Meeting Pearls 3/Meeting_Pearls_III.iso/Pearls/texmf/doc/LaTeX/Hilfe/syntax_find.tpl

Text File | 1995-09-06 | 6KB | 102 lines

/* TPP-Makro                                                                  */
/* Dieses Makro dient zum Einfügen von TeX-Syntax in den laufenden Text.      */
/* Es ist  für den TeX-Frontend "TeXt Plus Professional", kurz: TPP angepaßt. */
/* Für andere Editoren müssen die mit einem Kommentar versehenen Zeilen modi- */
/* fiziert werden.                                                            */
/* Werner Liebscher, September 1994                                           */


options results

trace errors

address 'TextPlus'

options results

Index = arg(1)
IndexLength = length(Index)
IndexBegin = substr(Index,1,1)

select
 when IndexBegin = 'a' then call open(Liste,'texhelp:syntax_type_a.liste','R')
 when IndexBegin = 'A' then call open(Liste,'texhelp:syntax_type_a.liste','R')
 when IndexBegin = 'b' then call open(Liste,'texhelp:syntax_type_b.liste','R')
 when IndexBegin = 'B' then call open(Liste,'texhelp:syntax_type_b.liste','R')
 when IndexBegin = 'c' then call open(Liste,'texhelp:syntax_type_c.liste','R')
 when IndexBegin = 'C' then call open(Liste,'texhelp:syntax_type_c.liste','R')
 when IndexBegin = 'd' then call open(Liste,'texhelp:syntax_type_d.liste','R')
 when IndexBegin = 'D' then call open(Liste,'texhelp:syntax_type_d.liste','R')
 when IndexBegin = 'e' then call open(Liste,'texhelp:syntax_type_e.liste','R')
 when IndexBegin = 'E' then call open(Liste,'texhelp:syntax_type_e.liste','R')
 when IndexBegin = 'f' then call open(Liste,'texhelp:syntax_type_f.liste','R')
 when IndexBegin = 'F' then call open(Liste,'texhelp:syntax_type_f.liste','R')
 when IndexBegin = 'g' then call open(Liste,'texhelp:syntax_type_g.liste','R')
 when IndexBegin = 'G' then call open(Liste,'texhelp:syntax_type_g.liste','R')
 when IndexBegin = 'h' then call open(Liste,'texhelp:syntax_type_h.liste','R')
 when IndexBegin = 'H' then call open(Liste,'texhelp:syntax_type_h.liste','R')
 when IndexBegin = 'i' then call open(Liste,'texhelp:syntax_type_i.liste','R')
 when IndexBegin = 'I' then call open(Liste,'texhelp:syntax_type_i.liste','R')
 when IndexBegin = 'j' then call open(Liste,'texhelp:syntax_type_jk.liste','R')
 when IndexBegin = 'J' then call open(Liste,'texhelp:syntax_type_jk.liste','R')
 when IndexBegin = 'k' then call open(Liste,'texhelp:syntax_type_jk.liste','R')
 when IndexBegin = 'K' then call open(Liste,'texhelp:syntax_type_jk.liste','R')
 when IndexBegin = 'l' then call open(Liste,'texhelp:syntax_type_l.liste','R')
 when IndexBegin = 'L' then call open(Liste,'texhelp:syntax_type_l.liste','R')
 when IndexBegin = 'm' then call open(Liste,'texhelp:syntax_type_m.liste','R')
 when IndexBegin = 'M' then call open(Liste,'texhelp:syntax_type_m.liste','R')
 when IndexBegin = 'n' then call open(Liste,'texhelp:syntax_type_n.liste','R')
 when IndexBegin = 'N' then call open(Liste,'texhelp:syntax_type_n.liste','R')
 when IndexBegin = 'o' then call open(Liste,'texhelp:syntax_type_o.liste','R')
 when IndexBegin = 'O' then call open(Liste,'texhelp:syntax_type_o.liste','R')
 when IndexBegin = 'p' then call open(Liste,'texhelp:syntax_type_p.liste','R')
 when IndexBegin = 'P' then call open(Liste,'texhelp:syntax_type_p.liste','R')
 when IndexBegin = 'q' then call open(Liste,'texhelp:syntax_type_qr.liste','R')
 when IndexBegin = 'Q' then call open(Liste,'texhelp:syntax_type_qr.liste','R')
 when IndexBegin = 'r' then call open(Liste,'texhelp:syntax_type_qr.liste','R')
 when IndexBegin = 'R' then call open(Liste,'texhelp:syntax_type_qr.liste','R')
 when IndexBegin = 's' then call open(Liste,'texhelp:syntax_type_s.liste','R')
 when IndexBegin = 'S' then call open(Liste,'texhelp:syntax_type_s.liste','R')
 when IndexBegin = 't' then call open(Liste,'texhelp:syntax_type_t.liste','R')
 when IndexBegin = 'T' then call open(Liste,'texhelp:syntax_type_t.liste','R')
 when IndexBegin = 'u' then call open(Liste,'texhelp:syntax_type_u.liste','R')
 when IndexBegin = 'U' then call open(Liste,'texhelp:syntax_type_u.liste','R')
 when IndexBegin = 'v' then call open(Liste,'texhelp:syntax_type_vwxz.liste','R')
 when IndexBegin = 'V' then call open(Liste,'texhelp:syntax_type_vwxz.liste','R')
 when IndexBegin = 'w' then call open(Liste,'texhelp:syntax_type_vwxz.liste','R')
 when IndexBegin = 'W' then call open(Liste,'texhelp:syntax_type_vwxz.liste','R')
 when IndexBegin = 'x' then call open(Liste,'texhelp:syntax_type_vwxz.liste','R')
 when IndexBegin = 'X' then call open(Liste,'texhelp:syntax_type_vwxz.liste','R')
 when IndexBegin = 'z' then call open(Liste,'texhelp:syntax_type_vwxz.liste','R')
 when IndexBegin = 'Z' then call open(Liste,'texhelp:syntax_type_vwxz.liste','R')
end

/* Die mit einem Kommentar versehenen Zeilen müssen für andere Editoren als TPP */
/* äquivalent ersetzt werden                                                    */

call open(TempFile,'t:TP.tmp','W')             /* Öffnen des Temp-Files von TPP */

Index_found = 0
do until Index_found == 1
  ThisLine = Readln(Liste)
  if abbrev(ThisLine,Index,IndexLength) then do
    End_found = 0
    do until End_found = 1
      IndexLine = readln(Liste)
      if ~abbrev(IndexLine,'blockend',8) then
        call writeln(TempFile,IndexLine)
      else
        End_found = 1
    end
    Index_found = 1
  end
end

call close(Liste)
call close(TempFile)

'bcopytmp'                          /* Kopieren aus Temp-File an Kursorposition */
'unblock'                           /* Blockmarkierung entfernen                */
'last'                              /* Kursor ans Zeilenende setzen             */