home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / text_dtp / editor / turbotext / rexx / execblk.ttx < prev    next >
Text File  |  1995-07-10  |  945b  |  50 lines
  1.  
  2. /** $VER: ExecBlk.ttx 2.0 (22.2.94)
  3.  **
  4.  ** Execute the currently selected block, or the whole document if no block is
  5.  ** selected, as an AmigaDOS script file.
  6.  **/
  7.  
  8.  
  9. OPTIONS RESULTS
  10.  
  11.  
  12.   SetDisplayLock ON
  13.   SetInputLock ON
  14.  
  15.   TaskID = Pragma('ID')
  16.   tempname = "T:ExecBlk-" || TaskID
  17.  
  18.   GetBlkInfo
  19.   PARSE VAR RESULT blockActive .
  20.  
  21.   /* Determine if we are executing a block or the whole file */
  22.   IF blockActive = ON THEN DO
  23.     GetBlk lines.
  24.  
  25.     IF Open(file,tempname,WRITE) THEN DO
  26.       DO i = 1 TO lines.0 BY 1
  27.         WriteCh(file,lines.i)
  28.       END
  29.       WriteLn(file,"")
  30.       Close(file)
  31.       DROP lines.
  32.     END
  33.  
  34.   END; ELSE DO
  35.     GetFilePath
  36.     path = RESULT
  37.     SaveFileAs QUIET NOICON NOBACKUP tempname
  38.     SetFilePath path
  39.   END
  40.  
  41.   ADDRESS COMMAND "C:Execute " || tempname
  42.  
  43.   IF ~Show(L,'rexxsupport.library') THEN DO
  44.     AddLib('rexxsupport.library',0,-30)
  45.   END;
  46.   Delete(tempname)
  47.  
  48.   SetDisplayLock OFF
  49.   SetInputLock OFF
  50.