home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / wp_dtp / xdme1820.lha / XDME / Macros / C / addinc.xdme next >
Text File  |  1992-11-18  |  619b  |  31 lines
  1. #
  2. #   Add another include file.
  3. #
  4. #   $VER: addinc V1.00 (18.11.1992)
  5. #
  6.  
  7. # remember where we were
  8. push pos
  9.  
  10. # goto top
  11. top
  12.  
  13. # search Include-statement. This is now too reliable
  14. find `       Includes'
  15.  
  16. # leave headline
  17. down down
  18.  
  19. # look for the first line that doesn't have a #include in it
  20. first while c="#" down
  21.  
  22. # insert a new line and text
  23. insline `#include '
  24.  
  25. # ask for the name
  26. # look at the first char
  27. # if it's a '"', add a '"' at the end, too.
  28. # else add <>
  29. # goto last position and go down one line, because we have inserted one
  30. escimm (`) wleft ifelse c=34 `last (")' `if c<>"<" `(<)' last (>)' pop auto down
  31.