home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Converter / AD2.55-C.DMS / in.adf / FREDScripts.lha / FREDFunctions / SeqFileSelect < prev    next >
Encoding:
Text File  |  1994-01-31  |  2.1 KB  |  108 lines
  1. /*
  2. ** SeqFileSelect
  3. **
  4. ** $VER: SeqFileSelect 1.1.0 (5.11.93)
  5. **
  6. ** This ARexx script contains a function which selects the FRED sequence
  7. ** file to create.  This script must be used in conjunction with the
  8. ** SeqFileAppend script.
  9. **
  10. ** INPUTS
  11. **    None
  12. **
  13. ** RETURN
  14. **    SeqFName -- string describing the sequence file selected.
  15. **
  16. ** This script should work with current versions of ARexx.
  17. **
  18. ** This script requires ADPro v2.5.0 (or higher).
  19. **
  20. ** Copyright © 1993 ASDG, Incorporated
  21. ** All Rights Reserved
  22. */
  23.  
  24.  
  25. ADDRESS "ADPro"
  26. OPTIONS RESULTS
  27.  
  28. NL = '0A'X
  29. SQ = '27'X
  30. DQ = '22'X
  31. TRUE  = 1
  32. FALSE = 0
  33.  
  34.  
  35. /*
  36. ** Ask if a sequence file should be created/used.  
  37. */
  38.  
  39. ADPRO_TO_FRONT
  40.  
  41. OKAYN '"SeqFileSelect"' '"Create a FRED sequence file?"' '"Yes|No|Cancel"'
  42. IF (RC = 0) THEN DO
  43.     SCREEN_TO_FRONT "FRED"
  44.     EXIT 10
  45. END
  46. ELSE IF (RC = 1) THEN DO
  47.     CALL "FREDSCRIPTS:FREDFunctions/GetAFile" '"Select FRED Sequence File"' '"ADPRO:Sequences"' '""""' TRUE
  48.     IF (RESULT = DQ||DQ) THEN
  49.         EXIT 10
  50.     ELSE
  51.         SeqFName = RESULT
  52.  
  53.  
  54.     /*
  55.     ** Replace extension with .seq, if need be
  56.  
  57.     OldSeqFName = SeqFName
  58.     FileExtPos = (LASTPOS( '.', OldSeqFName )) - 1
  59.     IF (FileExtPos ~= 0) THEN DO
  60.         PeriodPos = LASTPOS( '.', "seq" )
  61.         IF (PeriodPos ~= 0) THEN
  62.             SeqFName = LEFT( OldSeqFName, FileExtPos ) || "seq"
  63.         ELSE
  64.             SeqFName = LEFT( OldSeqFName, FileExtPos ) || ".seq"
  65.     END
  66.     ELSE DO
  67.         PeriodPos = LASTPOS( '.', "seq" )
  68.         IF (PeriodPos ~= 0) THEN
  69.             SeqFName = OldSeqFName || "seq"
  70.         ELSE
  71.             SeqFName = OldSeqFName || ".seq"
  72.     END
  73.     */
  74.  
  75.  
  76.     /*
  77.     ** Check for existence.  Ask to append or replace.
  78.     */
  79.  
  80.     IF (EXISTS( SeqFName ) = TRUE) THEN DO
  81.         ADPRO_TO_FRONT
  82.  
  83.         OKAYN '"SeqFileSelect"' '"Sequence file exists.  Append to sequence file?"' '"Append|Replace|Cancel"'
  84.         IF (RC = 0) THEN DO
  85.             SCREEN_TO_FRONT "FRED"
  86.             EXIT 10
  87.         END
  88.         ELSE IF (RC = 2) THEN DO
  89.             ADDRESS COMMAND "Delete >NIL:" SeqFName
  90.             ADDRESS COMMAND "Echo >" || SeqFName
  91.         END
  92.  
  93.         SCREEN_TO_FRONT "FRED"
  94.     END
  95.     ELSE
  96.         ADDRESS COMMAND "Echo >" || SeqFName
  97. END
  98. ELSE IF (RC = 2) THEN
  99.     SeqFName = "???"
  100.  
  101. SeqFNameStr = DQ || SeqFName || DQ
  102.  
  103. SCREEN_TO_FRONT "FRED"
  104.  
  105. RETURN SeqFNameStr
  106.  
  107. EXIT 0
  108.