home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / misc / emu / AROSdev.lha / AROS / docs / src / cvslog2html.gawk < prev    next >
Encoding:
Text File  |  1997-01-24  |  575 b   |  38 lines
  1. /^revision/ { active=1; par=0; next; }
  2. /^----------------------------/ { active=0; next; }
  3. /^=========/ { exit(0); }
  4. /^date:/ {
  5.     date=$2;
  6.     author=substr($5,1,length($5)-1);
  7.     split(date,a,"/");
  8.     print "<DT>"a[3]"."a[2]"."a[1]" " author"<DD>"
  9.     next;
  10. }
  11. /^branches: / { next }
  12.  {
  13.     if (active)
  14.     {
  15.     if ($1=="")
  16.     {
  17.         if (!par)
  18.         {
  19.         print "<P>"
  20.         par=1;
  21.         }
  22.     }
  23.     else
  24.     {
  25.         par = 0;
  26.  
  27.         line=$0;
  28.  
  29.         gsub(/&/,"\\&",line);
  30.         gsub(/</,"\\<",line);
  31.         gsub(/>/,"\\>",line);
  32.         gsub(/"/,"\\"",line);
  33.  
  34.         print line;
  35.     }
  36.     }
  37. }
  38.