home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / text / edit / macro / amigae / ec21b_comment.rexx < prev    next >
OS/2 REXX Batch file  |  1994-11-03  |  1KB  |  47 lines
  1. /* $VER: 1.5, ©1994 BURGHARD Eric.                            */
  2. /*             Place an entire block under comment            */
  3.  
  4. options results                             /* enable return codes     */
  5.                                             /* not started by GoldEd ? */
  6. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then address 'GOLDED.1'
  7. 'LOCK CURRENT QUIET'                        /* lock GUI, gain access   */
  8. if rc then exit
  9. options failat 6                            /* ignore warnings         */
  10. signal on syntax                            /* ensure clean exit       */
  11.  
  12. 'QUERY MARKED'
  13. if result="FALSE" then 'REQUEST STATUS=" No block marked !"'
  14. else do
  15.     'QUERY ABSLINE COLUMN'
  16.     parse var result line ' ' col
  17.     'GOTO BLAST'
  18.     'QUERY ABSLINE VAR LLINE'
  19.     'GOTO BFIRST'
  20.     'QUERY ABSLINE VAR FLINE'
  21.     do l=fline for lline-fline+1
  22.         'FIRST'
  23.         'QUERY ANYCHAR'
  24.         if result=TRUE then do
  25.             'QUERY WORD'
  26.             if result~="/*" then do
  27.                 'QUERY WORD'
  28.                 'TEXT T="/** "'
  29.                 'GOTO EOL'
  30.                 'TEXT T=" **/"'
  31.             end
  32.         end
  33.         lne=l+1
  34.         'GOTO LINE='lne''
  35.     end
  36.     'BLOCK HIDE'
  37.     'GOTO COLUMN='col' LINE='line''
  38. end
  39. 'UNLOCK'
  40. exit
  41.  
  42. syntax:
  43. say "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  44. 'UNLOCK'
  45. exit
  46.  
  47.