home *** CD-ROM | disk | FTP | other *** search
/ vsiftp.vmssoftware.com / VSIPUBLIC@vsiftp.vmssoftware.com.tar / FREEWARE / FREEWARE40.ZIP / flistfrontend / doc / build.com < prev    next >
Encoding:
Text File  |  1995-10-26  |  1.5 KB  |  72 lines
  1. $! $Id: build.com,v 1.3 1995/10/26 22:41:25 tom Exp $
  2. $! VAX/VMS DCL build script for FLIST and BROWSE documentation
  3. $!
  4. $! Tested with:
  5. $!    VMS system version 5.4-2
  6. $!    Dec RUNOFF (V3.2-01)
  7. $
  8. $    VERIFY = F$VERIFY(0)
  9. $    set := set
  10. $    set symbol/scope=(nolocal,noglobal)
  11. $    mylib := [-.lib]flist.olb
  12. $
  13. $ if "''p1'" .eqs. "" .or. "''p1'" .eqs. "ALL"
  14. $ then
  15. $    call document d0 FLIST
  16. $    call document m0 BROWSE
  17. $    call helpfile db FLIST
  18. $    call helpfile ma BROWSE
  19. $ endif
  20. $
  21. $ if "''p1'" .eqs. "CLEAN"
  22. $ then
  23. $    call remove *.brn;*
  24. $    call remove *.rnt;*
  25. $    call remove *.rnx;*
  26. $    write sys$output "** made CLEAN"
  27. $ endif
  28. $
  29. $ if "''p1'" .eqs. "CLOBBER"
  30. $ then
  31. $    @ 'f$environment("procedure") CLEAN
  32. $    call remove *.hlp;*
  33. $    call remove *.mem;*
  34. $    write sys$output "** made CLOBBER"
  35. $ endif
  36. $
  37. $ VERIFY = F$VERIFY(VERIFY)
  38. $ exit
  39. $
  40. $ document: subroutine
  41. $    call remove *.brn;*
  42. $    opts = "/variant=""paged""
  43. $    part = "''p1'-parts"
  44. $    if f$search("''p2'.mem") .eqs. ""
  45. $    then
  46. $        write sys$output "** compiling ''p2' document"
  47. $        runoff'opts/nooutput/intermediate 'part
  48. $        runoff/contents/output='p1 'part
  49. $        runoff/index/output='p1 'part
  50. $        runoff'opts/output='p2.mem 'p1
  51. $        purge 'p2.mem
  52. $        call remove *.brn;*
  53. $        call remove 'p1.rnt;*
  54. $        call remove 'p1.rnx;*
  55. $    endif
  56. $ endsubroutine
  57. $
  58. $ helpfile: subroutine
  59. $    if f$search("''p2'.hlp") .eqs. ""
  60. $    then
  61. $        runoff/variant="lib"/output='p2.hlp 'p1
  62. $    endif
  63. $ endsubroutine
  64. $
  65. $ remove: subroutine
  66. $    if f$search("''p1'") .nes. ""
  67. $    then
  68. $        set file/protection=(owner:rwed) 'p1
  69. $        delete 'p1
  70. $    endif
  71. $ endsubroutine
  72.