home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / ADPro251-3.DMS / ADPro251-3.adf / ADProScripts.lha / GetFileVersion.adpro < prev    next >
Encoding:
Text File  |  1994-01-31  |  1.1 KB  |  60 lines
  1. /*
  2. ** GetFileVersion.adpro
  3. **
  4. ** $VER: GetFileVersion.adpro 1.2.0 (5.11.93)
  5. **
  6. ** This ADPro/MorphPlus script lets you inquire about the version number
  7. ** of a particular file.
  8. **
  9. ** This script requires ADPro v2.5.0 (or higher).
  10. **
  11. ** Copyright © 1992-1993 ASDG, Incorporated
  12. ** All Rights Reserved
  13. */
  14.  
  15.  
  16. ADDRESS "ADPro"
  17. OPTIONS RESULTS
  18.  
  19. NL = '0A'X
  20. SQ = '27'X
  21. DQ = '22'X
  22. TRUE  = 1
  23. FALSE = 0
  24.  
  25. continue = 0
  26. DO WHILE (continue = 0)
  27.     CALL "FREDSCRIPTS:FREDFunctions/GetAFile" '"Select a file to examine"' '""""' '""""' TRUE
  28.     SelectedFile = RESULT
  29.     IF (SelectedFile = DQ||DQ) THEN
  30.         EXIT 10
  31.  
  32.     ADDRESS COMMAND "Version >RAM:Version.out full " || SelectedFile
  33.  
  34.     IF (OPEN( VERFILE, 'RAM:Version.out', 'r' )) THEN DO
  35.         VersionString = READLN( VERFILE )
  36.  
  37.         /*
  38.         ** Display the version number.  Use word wrap.
  39.         */
  40.  
  41.         CALL "FREDSCRIPTS:FREDFunctions/WordWrap" 10 38 VersionString
  42.         text = RESULT
  43.  
  44.         ADPRO_TO_FRONT
  45.  
  46.         OKAYN '"GetFileVersion"' '"'text'"' '"Check Another File|Exit"'
  47.         IF (RC = 0) THEN
  48.             continue = 1
  49.  
  50.         ADDRESS REXX CLOSE( VERFILE )
  51.         ADDRESS COMMAND "Delete >NIL: RAM:Version.out"
  52.     END
  53.     ELSE DO
  54.         ADPRO_TO_FRONT
  55.         OKAY1 "Error loading version number."
  56.     END
  57. END
  58.  
  59. EXIT 0
  60.