home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / smart21b.zip / MACROS / SAVE_ENV.REX < prev    next >
OS/2 REXX Batch file  |  1992-10-02  |  1KB  |  37 lines
  1. /* SaveEnv.Rex - Rexx Macro to Save the SL environment    */
  2. /* This saves each Sourcelink file and its col and offset */
  3. /* edit mode and wrap                                     */
  4. /* arg is filename to save the opened SL filenames        */
  5. S_GET_NUM_SL_FILES NumOfSLFiles
  6. if NumOfSLFiles = 0
  7. then say "no files to save"
  8. else do
  9.     if ARG(1,'E') 
  10.        then
  11.           NEWFILENAME = ARG(1)
  12.        else
  13.           'S_PROMPT' 'Enter Environment Filename,' 'NEWFILENAME'
  14.     if NEWFILENAME = CANCEL 
  15.         then leave      
  16.     'S_OPEN_FILE R C' NewFilename NewFNHandle
  17.     if rc \= 0 
  18.        then say 'open return code = ' rc
  19.     else 
  20.         do I=NumOfSLFiles-1 to 0 by -1 until I = -1 
  21.             'S_GET_BUFF_FILENAME' I 'Filename'
  22.             if rc = 0
  23.                 then do
  24.                 'S_GET_CURR_FILENAME CurrFilename'
  25.                 'S_GET_BUFF_LINE_NUM' I 'LineNum'
  26.                 'S_GET_BUFF_COL_NUM'  I 'ColNum'
  27.                 'S_GET_BUFF_EDITMODE' I 'EditMode'
  28.                 'S_GET_BUFF_WORDWRAP' I 'WrapMode'
  29.                 Record = Filename '('Linenum':'ColNum') ' EditMode' 'WrapMode
  30.                 S_WRITE_FILE NewFNHandle LENGTH(Record) Record BytesWritten
  31.                 S_WRITE_FILE NewFNHandle 1 '0a'x BytesWritten
  32.                 end
  33.         end I
  34.  
  35.     S_CLOSE_FILE NewFNHandle
  36.     end   
  37.