home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / new / amigalibdisks / disk936 / tked / rexx / comment-block.tked < prev    next >
Encoding:
Text File  |  1993-12-21  |  1.8 KB  |  61 lines
  1. /** -----------------------------------------------------------
  2.  ** ARexx program to comment out a selected block 
  3.  ** -----------------------------------------------------------
  4.  ** AREXX-Programm, um einen markierten Block auszukommentieren
  5.  ** -----------------------------------------------------------
  6.  **
  7.  ** © Tom Kroener '92
  8.  **
  9.  **/
  10.  
  11. options results
  12. address 'TKEd.1'                /* Portname of the first started TKEd */
  13. Indent "OFF"                    /* No unwanted indents */
  14.  
  15. /* uncomment this for AREXX- or C- programs */
  16. /*
  17. scom  = "/** "
  18. mcom  = " ** "
  19. ecom  = " **/"
  20. */
  21.  
  22. /* uncomment this for Modula2- or Oberon- programs */
  23. scom  = "(** "
  24. mcom  = " ** "
  25. ecom  = " **)"
  26.  
  27. /* uncomment this for Assembler- programs */
  28. /*
  29. scom  = ";* "
  30. mcom  = ";* "
  31. ecom  = ";* "
  32. */
  33.  
  34.  
  35. FirstMarkedLine                    /* Look for the start of the block */
  36. Start = result
  37. IF Start = -1 THEN
  38.   DO; Request1 "No block marked"  /* Request and exit if nothing marked */
  39.      EXIT 10
  40.   END
  41.  
  42. GetLineNr                         /* Get number of the last marked line */
  43. End = result-1                    /* Cursor stands in the first unmarked 
  44.                                      line */
  45. UnmarkBlock
  46. GotoLine Start
  47. BeginOfLine
  48. WriteString scom                  /* Write start of comment */
  49. DO WHILE Start < END              /* Write until end of block */
  50.   BeginOfLine
  51.   Cursor "DOWN"                   /* One line down */
  52.   WriteString mcom                /* Write comment */
  53.   Start = Start + 1               /* Increment the counter for the lines */
  54. END;  
  55. EndOfLine                         /* All lines commented out */
  56. MakeReturn                        /* Insert a blank line for better looking */
  57. WriteString ecom                  /* Write end of the comment */
  58.  
  59. EXIT 0                            /* ciao */
  60.  
  61.