home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / texmf / doc / LaTeX / Hilfe / syntax_find.ged < prev    next >
Text File  |  1995-09-06  |  6KB  |  117 lines
  1. /* GoldED-Makro                                                               */
  2. /* Dieses Makro dient zum Einfügen von TeX-Syntax in den laufenden Text.      */
  3. /* Es ist  für den TeX-Frontend "TeXt Plus Professional", kurz: TPP angepaßt. */
  4. /* Für andere Editoren müssen die mit einem Kommentar versehenen Zeilen modi- */
  5. /* fiziert werden.                                                            */
  6. /* Werner Liebscher, September 1994                                           */
  7. /*                                                                            */
  8. /* GoldED-Anpassung: Markus Aretz, Januar 1995                                */
  9.  
  10.  
  11. OPTIONS RESULTS                             /* enable return codes     */
  12.  
  13.  
  14. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  15.     address 'GOLDED.1'
  16.  
  17. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  18. OPTIONS FAILAT 6                            /* ignore warnings         */
  19. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  20.              
  21. trace errors
  22.  
  23. Index = arg(1)
  24. IndexLength = length(Index)
  25. IndexBegin = substr(Index,1,1)
  26.  
  27. select
  28.  when IndexBegin = 'a' then call open(Liste,'texhelp:syntax_type_a.liste','R')
  29.  when IndexBegin = 'A' then call open(Liste,'texhelp:syntax_type_a.liste','R')
  30.  when IndexBegin = 'b' then call open(Liste,'texhelp:syntax_type_b.liste','R')
  31.  when IndexBegin = 'B' then call open(Liste,'texhelp:syntax_type_b.liste','R')
  32.  when IndexBegin = 'c' then call open(Liste,'texhelp:syntax_type_c.liste','R')
  33.  when IndexBegin = 'C' then call open(Liste,'texhelp:syntax_type_c.liste','R')
  34.  when IndexBegin = 'd' then call open(Liste,'texhelp:syntax_type_d.liste','R')
  35.  when IndexBegin = 'D' then call open(Liste,'texhelp:syntax_type_d.liste','R')
  36.  when IndexBegin = 'e' then call open(Liste,'texhelp:syntax_type_e.liste','R')
  37.  when IndexBegin = 'E' then call open(Liste,'texhelp:syntax_type_e.liste','R')
  38.  when IndexBegin = 'f' then call open(Liste,'texhelp:syntax_type_f.liste','R')
  39.  when IndexBegin = 'F' then call open(Liste,'texhelp:syntax_type_f.liste','R')
  40.  when IndexBegin = 'g' then call open(Liste,'texhelp:syntax_type_g.liste','R')
  41.  when IndexBegin = 'G' then call open(Liste,'texhelp:syntax_type_g.liste','R')
  42.  when IndexBegin = 'h' then call open(Liste,'texhelp:syntax_type_h.liste','R')
  43.  when IndexBegin = 'H' then call open(Liste,'texhelp:syntax_type_h.liste','R')
  44.  when IndexBegin = 'i' then call open(Liste,'texhelp:syntax_type_i.liste','R')
  45.  when IndexBegin = 'I' then call open(Liste,'texhelp:syntax_type_i.liste','R')
  46.  when IndexBegin = 'j' then call open(Liste,'texhelp:syntax_type_jk.liste','R')
  47.  when IndexBegin = 'J' then call open(Liste,'texhelp:syntax_type_jk.liste','R')
  48.  when IndexBegin = 'k' then call open(Liste,'texhelp:syntax_type_jk.liste','R')
  49.  when IndexBegin = 'K' then call open(Liste,'texhelp:syntax_type_jk.liste','R')
  50.  when IndexBegin = 'l' then call open(Liste,'texhelp:syntax_type_l.liste','R')
  51.  when IndexBegin = 'L' then call open(Liste,'texhelp:syntax_type_l.liste','R')
  52.  when IndexBegin = 'm' then call open(Liste,'texhelp:syntax_type_m.liste','R')
  53.  when IndexBegin = 'M' then call open(Liste,'texhelp:syntax_type_m.liste','R')
  54.  when IndexBegin = 'n' then call open(Liste,'texhelp:syntax_type_n.liste','R')
  55.  when IndexBegin = 'N' then call open(Liste,'texhelp:syntax_type_n.liste','R')
  56.  when IndexBegin = 'o' then call open(Liste,'texhelp:syntax_type_o.liste','R')
  57.  when IndexBegin = 'O' then call open(Liste,'texhelp:syntax_type_o.liste','R')
  58.  when IndexBegin = 'p' then call open(Liste,'texhelp:syntax_type_p.liste','R')
  59.  when IndexBegin = 'P' then call open(Liste,'texhelp:syntax_type_p.liste','R')
  60.  when IndexBegin = 'q' then call open(Liste,'texhelp:syntax_type_qr.liste','R')
  61.  when IndexBegin = 'Q' then call open(Liste,'texhelp:syntax_type_qr.liste','R')
  62.  when IndexBegin = 'r' then call open(Liste,'texhelp:syntax_type_qr.liste','R')
  63.  when IndexBegin = 'R' then call open(Liste,'texhelp:syntax_type_qr.liste','R')
  64.  when IndexBegin = 's' then call open(Liste,'texhelp:syntax_type_s.liste','R')
  65.  when IndexBegin = 'S' then call open(Liste,'texhelp:syntax_type_s.liste','R')
  66.  when IndexBegin = 't' then call open(Liste,'texhelp:syntax_type_t.liste','R')
  67.  when IndexBegin = 'T' then call open(Liste,'texhelp:syntax_type_t.liste','R')
  68.  when IndexBegin = 'u' then call open(Liste,'texhelp:syntax_type_u.liste','R')
  69.  when IndexBegin = 'U' then call open(Liste,'texhelp:syntax_type_u.liste','R')
  70.  when IndexBegin = 'v' then call open(Liste,'texhelp:syntax_type_vwxz.liste','R')
  71.  when IndexBegin = 'V' then call open(Liste,'texhelp:syntax_type_vwxz.liste','R')
  72.  when IndexBegin = 'w' then call open(Liste,'texhelp:syntax_type_vwxz.liste','R')
  73.  when IndexBegin = 'W' then call open(Liste,'texhelp:syntax_type_vwxz.liste','R')
  74.  when IndexBegin = 'x' then call open(Liste,'texhelp:syntax_type_vwxz.liste','R')
  75.  when IndexBegin = 'X' then call open(Liste,'texhelp:syntax_type_vwxz.liste','R')
  76.  when IndexBegin = 'z' then call open(Liste,'texhelp:syntax_type_vwxz.liste','R')
  77.  when IndexBegin = 'Z' then call open(Liste,'texhelp:syntax_type_vwxz.liste','R')
  78. end
  79.  
  80. /* Die mit einem Kommentar versehenen Zeilen müssen für andere Editoren als TPP */
  81. /* äquivalent ersetzt werden                                                    */
  82.  
  83. call Open(TempFile,'t:GED.tmp','W')          /* Öffnen eines Temp-Files für GEd */
  84.  
  85. Index_found = 0
  86. do until Index_found == 1
  87.   ThisLine = Readln(Liste)
  88.   if abbrev(ThisLine,Index,IndexLength) then do
  89.     End_found = 0
  90.     do until End_found = 1
  91.       IndexLine = readln(Liste)
  92.       if ~abbrev(IndexLine,'blockend',8) then
  93.         call writeln(TempFile,IndexLine)
  94.       else
  95.         End_found = 1
  96.     end
  97.     Index_found = 1
  98.   end
  99. end
  100.  
  101. call close(Liste)
  102. call close(TempFile)
  103.  
  104. 'OPEN NAME "t:GED.tmp" INSERT QUIET'      /* Kopieren aus Temp-File an Kursorposition */
  105.                            /* Blockmarkierung entfernen                */
  106.                            /* Kursor ans Zeilenende setzen             */
  107.  
  108. 'UNLOCK' /* VERY important: unlock GUI */
  109. EXIT
  110.  
  111. SYNTAX:
  112.  
  113. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  114. 'UNLOCK'
  115. EXIT
  116.  
  117.