home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / emacs-19.28-src.tgz / tar.out / fsf / emacs / vms / precomp.com < prev    next >
Text File  |  1996-09-28  |  1KB  |  45 lines
  1. $!
  2. $! VMS command file to define the `ccom' command.
  3. $! This version allows the current directory to be part of a search list.
  4. $!
  5. $ dirname = f$environment("PROCEDURE")
  6. $ gosub parse_dir
  7. $ dirname2 = dirname - "]" + ".]"
  8. $ define /nolog sys vaxc$include
  9. $ define /nolog x11 decw$include
  10. $ dir = f$environment("DEFAULT")
  11. $ dir = f$extract(0,f$locate(":",dir),dir)
  12. $ if f$trnlnm("vaxc$include",,,,,"MAX_INDEX") .eq. 0
  13. $  then
  14. $   define /nolog vaxc$include sys$library,sys$disk:[]
  15. $  else
  16. $   x = 1
  17. $   dirlist = f$trnlnm("vaxc$include")
  18. $   loop:
  19. $   next = f$trnlnm("vaxc$include",,x)
  20. $   if next .nes. ""
  21. $    then
  22. $     if next .nes. dir then dirlist = dirlist + ",''next'"
  23. $     x = x + 1
  24. $     goto loop
  25. $    endif
  26. $   dirlist = dirlist + ",''dir'"
  27. $   define /nolog vaxc$include 'dirlist'
  28. $  endif
  29. $ ccom :== cc /debug /define=("""emacs""",HAVE_CONFIG_H) /nolist
  30. $ sh log sys
  31. $ sh log x11
  32. $ exit
  33. $
  34. $
  35. $parse_dir:
  36. $   dirname=f$parse("A.;0",dirname,,,"NO_CONCEAL") - "A.;0"
  37. $   dirname=dirname - ".][000000" - ".><000000" - ".>[000000" - ".]<000000"
  38. $   dirname=dirname - "][" - "><" - ">[" - "]<"
  39. $   if f$element(1,"<",dirname) .nes. "<" then -
  40.     dirname = f$element(0,"<",dirname) + "[" + f$element(1,"<",dirname)
  41. $   if f$element(1,">",dirname) .nes. ">" then -
  42.     dirname = f$element(0,">",dirname) + "]" + f$element(1,">",dirname)
  43. $ ! write sys$output "''dirname'
  44. $   return
  45.