|
|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T c
Length: 905 (0x389)
Types: TextFile
Names: »carp.awk«
└─⟦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«
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" }