DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: T c

⟦61a624bf7⟧ TextFile

    Length: 905 (0x389)
    Types: TextFile
    Names: »carp.awk«

Derivation

└─⟦4f9d7c866⟧ Bits:30007245 EUUGD6: Sikkerheds distributionen
    └─⟦3da311d67⟧ »./cops/1.04/cops_104.tar.Z« 
        └─⟦6a2577110⟧ 
└─⟦4f9d7c866⟧ Bits:30007245 EUUGD6: Sikkerheds distributionen
    └─⟦6a2577110⟧ »./cops/1.04/cops_104.tar« 
            └─⟦this⟧ »cops_104/carp/carp.awk« 

TextFile

BEGIN { LPP=40; line=0; }

/COPS/ {
  printf ("/title (%s) def\n",$0);
}

/hostname/ {
  #assume first three fields are "hostname     rep date"
  printf "/headray [ ";
  for (f=4; f <= NF; ++f) {
    printf ("(%s) ",$f);
  }
  print "] def";
  printf ("/numcols %d def\n",NF-3);
  print "dotitle";
  print "doheader";
  FS = "|"
}

/\|/ {
  ++line;
  #assumes spaces not tabs
  host=substr($1,0,index($1," ")-1);
  date=substr($1,index($1," "));
  #breaks in the year 2000
  date=substr(date,index(date,"1"));
  date=substr(date,0,index(date," ")-1);

  printf ("(%s) (%s) newline\n",host,date);
  for (f=2; f <= NF; ++f) {
    if ($f == 0) print "  dofull";
    else if ($f == 1) print "  dohalf";
    else if ($f == 2) print "  doempty";
    else print "  donothing";
  }
}

line != 0 && line%LPP == 0 {
  print "showpage";
  print "";
  print "dotitle";
  print "doheader";
}

END { print "showpage" }