home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / DOCZ16.ZIP;1 / DOCZ.LIF / DOCSTASH.COM < prev    next >
Encoding:
Text File  |  1994-04-24  |  2.0 KB  |  66 lines
  1. $! ****************************************************************************
  2. $!  DOCSTASH.COM
  3. $!
  4. $!   This is a DCL command file demonstrating the automation of the DOCZ
  5. $!   System with CMS version control.
  6. $!
  7. $!     This command file can be called from DOCLIS using the /c option, as in
  8. $!         /c=@docstash
  9. $!     P1=Library name
  10. $!     P2=Module name
  11. $!     P3=File name
  12. $!     P4=Comment
  13. $!
  14. $!   This command file assumes that the current module is not reserved and/or
  15. $!   concurrent reservations are allowed.
  16. $! ****************************************************************************
  17. $!
  18. $    SET NOON
  19. $    IF (P1 .EQS. "") .OR. (P2 .EQS. "") .OR (P3 .EQS. "") THEN GOTO ARGS
  20. $    WRITE SYS$OUTPUT -
  21.     "Library=",P1,", Module=",P2,", File=",P3
  22. $    WRITE SYS$OUTPUT -
  23.     "Comment=",P4
  24. $    IF F$SEARCH("''P3'") .EQS. "" THEN GOTO NOTFOUND
  25. $    DOCROOT = -
  26.     F$EXTRACT(0,F$LENGTH(F$TRNLNM("DOCSRC"))-1,F$LOGICAL("DOCSRC"))
  27. $    CMS SET LIBRARY "''DOCROOT'.''P1']"
  28. $    CMS RESERVE/NOHIST/OUT=NL: 'P3' ""
  29. $    STAT = $STATUS
  30. $    IF (STAT .AND. 1) .NE. 1 THEN GOTO NEW
  31. $!  old module
  32. $    IF P4 .EQS. "" THEN WRITE SYS$OUTPUT -
  33.     "DOCSTASH WARNING:  no comment for last module update"
  34. $    WRITE SYS$OUTPUT -
  35.     "> Updating ",P3
  36. $    CMS REPLACE 'P3' "''P4'"
  37. $    GOTO DONE
  38. $!  new module
  39. $ NEW:
  40. $    WRITE SYS$OUTPUT -
  41.     "> Adding ",P3
  42. $    DESCRIPTION = ""
  43. $!  hack the description for the new module out of the DOCZ header
  44. $    DOCGET 'P2' 'P3' DES /O=TEMP.TMP
  45. $    OPEN/READ TEMPFILE TEMP.TMP
  46. $    READ TEMPFILE DESCRIPTION
  47. $    CLOSE TEMPFILE
  48. $    DELETE/NOLOG/NOCONFIRM TEMP.TMP;
  49. $    CMS CREATE ELEMENT 'P3' "''P4'"
  50. $    CMS CREATE GROUP 'P1' "Library"
  51. $    CMS INSERT ELEMENT 'P3' 'P1' "''DESCRIPTION'"
  52. $    GOTO DONE
  53. $ ARGS:
  54. $    WRITE SYS$OUTPUT -
  55.     "DOCSTASH <DOCZ library> <module name> <file name> <remark>"
  56. $    GOTO DONE
  57. $ NOTFOUND:
  58. $    WRITE SYS$OUTPUT -
  59.     'P3'," not found!"
  60. $ DONE:
  61. $    EXIT $STATUS .AND. 1
  62. $!
  63. $! ****************************************************************************
  64. $!   end DOCSTASH.COM
  65. $! ****************************************************************************
  66.