home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fonts 1 / freshfonts1.bin / programs / amiga / pastex / rexx / golded / docline.ged < prev    next >
Text File  |  1994-04-07  |  1KB  |  47 lines
  1. /*
  2.     $VER: DokLine.ged V0.97 (20.3.94) Axel Burghardt
  3.  
  4.     Das Makro hilft bein einfachen Dokumentieren von Programmtexten.
  5.     Der beschreibende Text wird per Requester erfragt und zentriert 
  6.     zwischen 'Char' an der Cursorzeile eingefügt.
  7.     Als erster Parameter kann die Zeilenlänge angegeben werden. Als 
  8.     Standardwert werden 78 Spalten angenommen.
  9.     Der zweite Parameter definiert das Zeichen 'Char'.
  10.  
  11.     Änderungen:
  12.     6.4.94 - Wenn kein Kommentar eingegeben wird, ist die Linie nun
  13.              durchgehend.
  14.              Wird kein 'Char' übergeben, so wird als Char ' ' ange-
  15.              nommen.
  16. */
  17.  
  18. Title = "DokLine V0.97"
  19.  
  20. PARSE ARG Len' 'Char
  21. IF Len=''  THEN Len=78
  22. IF Char='' THEN Char=' '
  23.  
  24. OPTIONS RESULTS
  25.  
  26. /* ----------------- Wie wurde GoldEd gestartet? ------------------ */
  27.  
  28. IF (LEFT(ADDRESS(), 6) ~= "GOLDED") THEN address 'GOLDED.1'
  29.  
  30. 'LOCK CURRENT'                              
  31. 'FIRST'
  32. 'REQUEST BODY="Kommentar zum Quelltext eingeben:" STRING TITLE="'Title'"'
  33. IF RC=0 THEN DO
  34.  
  35. /* --------------------- Bereite den Text auf --------------------- */
  36.  
  37.   IF Result ~= '' THEN 
  38.     Text = ' 'Result' '
  39.   ELSE
  40.     Text = ''
  41.   Doc = '/**' center(Text,Len-6,Char) '**/'
  42.   'TEXT CR T="'Doc'"'
  43. END
  44. 'UNLOCK'
  45. EXIT 0
  46.  
  47.