home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / bsd_srcs / usr.bin / lisp / cvt.awk < prev    next >
Encoding:
Text File  |  1983-03-29  |  735 b   |  30 lines
  1.  
  2. { if(begin != 1)
  3.   { if($1 != "") flags[$1] = "on"
  4.     if($2 != "") flags[$2] = "on"
  5.     if($3 != "") flags[$3] = "on"
  6.     if($4 != "") flags[$4] = "on"
  7.     if($5 != "") flags[$5] = "on"
  8.     skip = 0
  9.     begin = 1
  10.     next } }
  11. /#ifdef/||/#elseif/ { if (flags[$2] != "") skip = -1; else skip = 1
  12.                  print $0
  13.                  next }
  14. /#ifndef/ { if (flags[$2] != "") skip = 1; else skip = -1
  15.                  print $0
  16.                  next }
  17. /#else/ { skip = -skip; print $0; next}
  18. /#endif/ { skip = 0 ; print $0; next}
  19. { if(skip > 0)
  20.     { if(substr($0,1,1) != "#") print "#" $0; else print $0;
  21.       next }}
  22. { if(skip < 0)
  23.     { if(substr($0,1,1) == "#") 
  24.           print substr($0,2,length($0)-1) 
  25.       else print $0
  26.       next }}
  27. { print $0 }
  28.  
  29.  
  30.