[Tustep-Liste] KWIC-Index

[stahl at germanistik.uni-wuerzburg.de]

Lieber Herr Moser,
lieber Wolfram,

zur Info schicke ich eine Tue-Datei herum, mit der ein KWIC-Index  
erstellt werden kann. Der Dateiname muss als Parameter beim Aufruf der  
Tue-Datei angegeben werden.

Viele Grüße
P.Stahl


#-------- Datei in Wortformen zerlegen -----------------------

#datei, kondat, fragen=-
#rvorbereite, ?1, -std-, modus=kwic, loesche=+, parameter=*, daten=kondat
           Abschnittsanfang
aa        /<</
           Trennzeichenliste für KWIC-Index
swt       | |.|,|;|:|!|?|"|-|(|)|<<|>>||%<>0>@|u.s.w.|d.h.|hg.|
           Laenge der Sortierschluessel
ssl       20 20 0 0 0 0
           ODER (SORTIERE und RAUFBEREITE beachten)
           ssl       20 20 0 20 20 0
           Aufbau der Sortierschluessel
xs1       |ä|a|ö|o|ü|u|ß|ss|
xs2       |ä|z|ö|z|ü|z|ß|z|
           Anzahl von Abschnitten (zum Testen)
*eof

#-------- Wortformen sortieren -------------------------------

#sortiere, -std-, -std-, sortierfeld=17+40'0, loesche=+

#-------- Wortformenliste erstellen --------------------------

#datei , proto, fragen=-
#raufbereite, -std-, -, modus=kwic, loesche=+, parameter=*,  
proto=proto, daten=kondat
           Druckausgabe
drt       ps-q1
dr        1 0 160 0
           Überschrift einsetzen
kt        /Kwic-Index: ?1,  &d1, &#3/
ktz       1
           Sortierschlüssellänge
ssl       40
           Länge des 1. und 2. Referenzteils
rfl       6 3
           Ergänzen nach 1. Ref.teil
nrt       |.|
           Referenz vollständig ausgeben
rtw       1
           Stellen für absolute Häufigkeit
ah        4
           Ergänzen vor und nach absoluter Häufigkeit
vah       / /
nah       /*/
           Ergänzen vor und nach Sortierwort
vsw       /__/
nsw       /_/
*eof

#-------- Ausgabe in eine PS-Datei ---------------------------

#datei, proto.ps, sdf-ap
#drucke, proto, ps-q1, datei=proto.ps, loesche=+, seite=1-199