TEXT****SEQ+TKurs ****
****&7@Ed####d@?####12.10.0419:41:4529.08.0405:03:58####05 0 ################jd#=``~d<#= *VGLAPP: (last modified 28.08.2004 / MTr)j,#= ------~8#= Texte vergleichen und die Unterschiede als fertige:#= Apparateintrge in die Kollationsgrundlage einbauen.``X#=``#de,,*`` KOLL = ob5.v````1VGL1 = ca1.v````````````````````````````````````````1L*eof#=``
#= ACHTUNG!```x
#= --------```-#= die Zieldatei wird berschrieben!```@-#= ----------------------------------------```#=``-2#da,korr.1'korr.2'korr.3'korr.4'korr.5'korr.6,fr=-``7l#an,,'``>-#pa,aus`D74#=``R>##ve,,,-;-,+,*,ko=korr.1`eD6 * Angaben zur Textumgebung der Korrekturanwei-``xR` 8 * sungen, unterschieden nach nach den Korrektur-e 5 * arten 'Lschen', 'Ersetzen' und 'Einfgen':```x(
umg 0 5 0 - 0 5 0 - 1 0 0`
*eof
#=``T8#= Datei korr.1 enthlt das Ergebnis des Vergleichs der7#= beiden Textzeugen in Form von Korrekturanweisungen.`6#= Der Variantentext aus diesen Eintrgen soll nun``````````9#= in den Text der Kollationsgrundlage eingefgt werden,```
6#= und zwar jeweils hinter das Wort, auf das sie sich``P
#=``Pt>0z <%>< <>```4 * Das neue #ve,,,mo=w gibt in den Korrektur-h * werden:```````````````````I7 * In allen Korrekturanweisungen (auer bei Ein-`\6\6 * fgungen mit der Kennung ']+') mssen in den``oI8 * Referenzen fehlende Wortnummern ergnzt werden\$zf- 1 | ]+|`P,xx 1 |<>>/.<>>/[|>=(1-3),1->=(1-3),99[|````x3xx 1 |<>>/.<>>/-<>>/[|>=(1-3),1->=01.>=05,99[|`````5 * Prfen, ob die Referenz eine Bereichsangabe```|8 * enthlt (dann handelt es sich um ein Mehrwort- * Lemma) -> 32:`D
ev 2 |[|```
zf+ 2 |-|```q * Ein-Wort-Lemmata:`[Xak2 2 = ek1 2```````````````````````````````````;aei 2 1 11``Nerg 2 ||+| Ca1|`Lxx 2 | ]=|<<]>> |``+$xx 2 | :: ]+|<<]>> #/+add.#/- |8 xx 2 | ]-|<<]>> #/+om.#/- |K+x7 * In den Lemmata mit mehr als einem Wort zuerst`^87 * den Apparat-Eintrag frs erste Wort erzeugen:`gK@
ek1 3 |-|```q^ak2 3 = ek1 2```ag aei 3 1 11``t4!erg 3 ||+| Ca1|`z!xx 3 = xx 2```!8 * Dann hinter dem letzten Wort solcher Mehrwort-`"8 * Lemmata noch die Kodierung fr 'Ende des Lang-g" * eintrags' einsetzen...````````````````````````````````````g#erg 4 ||+|`#6 * ... und noch die Referenzangaben der Korrek-``T$6 * turanweisungen, in denen bergeordnete Teile``$8 * hinter dem Bis-Strich fehlen, in die bentigte % * Form bringen:````````````````````````````````````````````````````````````` t'&xx 4 |<|<>>/.<>>/-<>>/|>=01.<=01|``````````````````````````````````````````````````````````````X <(.xx 4 |<|<>>/.<>>/-<>>//<>>/|>=01.<=(3-1)|``jG(4 * Anweisungen der Form 1.2/3 - 6.7 :
X).xx 4 |<|<>>/.<>>//<>>/-<>>/.<>>/|<=(3-1)|``
0*4 * Anweisungen der Form 1.2/3 - 7 :{*+xx 4 |<|<>>/.<>>//<>>/-<>>/|>=01.<=01|`````````````````````````````````````````D/.xx 4 |<|<>>/.<>>/,<>>/-<>>/|>=(1-3),>=07|``````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````I /4 * Anweisungen der Form 1.2/3,4 - 6.7 ,9 :
0=xx 4 |<|<>>/.<>>//<>>/,<>>/-<>>/.<>>//<>>/,<>>/|<=(7-1)|```_
24 * Anweisungen der Form 1.2/3,4 - 9 :````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````#,33xx 4 |<|<>>/.<>>//<>>/,<>>/-<>>/|>=(1-5),<=01|`````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````
_33 _1__2__3__4```
X4spj 12 32 8 8```+4spn 21 22 8 8```6 5sp2 21 3 13 3```A+5sp3 40 8 8 8```F65PAL6xxx |; ]=|; |`VF6*eof\P7#=``jVx7"#= Korrekturanweisungen sortieren:``p\7#=``{j@8#sv,korr.2,korr.3,k,+,*`p8sw 1`{9ssl 0`l9*eof9##so,korr.3,korr.3,so=1+17,+,ti=1+44`4:#ko,korr.3,korr.4,+,+```:#=``:(#= Korrekturanweisungen ausfhren, d.h.`;)#= Apparateintrge in den Text einfgen:```;#=``(<#da,,seq-ap```<)#ka,,korr.5,,+,*,ko=korr.4,pr=-std-```<
sl 600```T=drt ps-q1`=*eof>#ko,korr.5,korr.6,+,+```>#ko,korr.6,,-std-,+,*`,>$za |</>>|</>>|</e>>|:H?"ze |<>|<>|</e>>|``@,?*eof:@#pa,ein`````````````````````````````````````#ko,korr.1,korr.2,,+,*``
ek1 2 |[|(><<>9<%)<>>/[|(#ek1 4 = ek1 2```p3 * Zur Erluterung der ek1 '(><<>9<%)<>>/[':`q8 * Wenn der Kontext der Korrekturanweisung selbst87 * eckige Klammern enthlt, braucht das Programm`9 * eine Hilfe, um zu wissen, wieviele eckige Klam-```7 * mern bersprungen werden mssen. Deshalb ent-`d7 * hlt die Korrekturanweisung in solchen Fllen`9 * eine Angabe etwa in der Form '(VKz)2', die aber```
,6 * fr die weitere Verarbeitung unntig ist und``[- * deshalb hier eliminiert werden mu:```````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````) '4 * Anweisungen der Form 1.2 - 7 :*4 * Anweisungen der Form 1.2/3 - 7/8 :\+3xx 4 |<|<>>/.<>>//<>>/-<>>//<>>/|>=01.<=(3-1)|`1
+4 * Anweisungen der Form 1.2 ,4 - 6.7 ,9 :
.4 * Anweisungen der Form 1.2 ,4 - 9 :```````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````` 08xx 4 |<|<>>/.<>>//<>>/,<>>/-<>>/.<>>/,<>>/|<=(5-1)|````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````````I p04 * Anweisungen der Form 1.2/3,4 - 6.7/8,9 :````````````````````````````````````````````````````````````````````````G)'4 * Anweisungen der Form 1.2 - 7/8 : %4 * Anweisungen der Form 1.2 - 6.7 : %)xx 4 |<|<>>/.<>>/-<>>/.<>>/|>=(5-7)|``` H&4 * Anweisungen der Form 1.2 - 6.7/8 : &.xx 4 |<|<>>/.<>>/-<>>/.<>>//<>>/|<=(5-1)|``
jh)4 * Anweisungen der Form 1.2/3 - 6.7/8 :{
)3xx 4 |<|<>>/.<>>//<>>/-<>>/.<>>//<>>/|<=(5-1)|`C
$,3xx 4 |<|<>>/.<>>/,<>>/-<>>/.<>>/,<>>/|<=(5-1)|`U
1
,3 * Anweisungen der Form 1.2 ,4 - 6.7/8,9:`h
C
,8xx 4 |<|<>>/.<>>/,<>>/-<>>/.<>>//<>>/,<>>/|<=(7-1)|z
U
P-3 * Anweisungen der Form 1.2 ,4 - 7 ,9:`
h
-3xx 4 |<|<>>/.<>>/,<>>/-<>>/,<>>/|>=01.<=(3-1)|`
z
.3 * Anweisungen der Form 1.2 ,4 - 7/8,9:`
|.8xx 4 |<|<>>/.<>>/,<>>/-<>>//<>>/,<>>/|>=01.<=(5-1)|
814 * Anweisungen der Form 1.2/3,4 - 7 ,9 :
18xx 4 |<|<>>/.<>>//<>>/,<>>/-<>>/,<>>/|>=01.<=(3-1)|````````````````````````````````````````````````````
24 * Anweisungen der Form 1.2/3,4 - 7/8,9 :#
d2=xx 4 |<|<>>/.<>>//<>>/,<>>/-<>>//<>>/,<>>/|>=01.<=(5-1)|```H
#= beziehen.```o
exx 1 |[|```xxxi 1 21````````````````````````````````````````````````````ZIEL = ob5ca1.app```N 5 * Hier wird in Apparat-Kurzeintrge das Kenn-```;4 * zeichen fr den Vergleichstext eingesetzt:````tql 5 * Hier wird in Apparat-Langeintrge das Kenn-```za 5 * zeichen fr den Vergleichs-text eingesetzt:```<5 * anweisungen vor ']=', ']-', ']+' nicht mehr```5 * wie frher ein Blank aus. Da dies aber i.f.```(5 * angesprochen wird, mu es ggf. hier ergnzt```(x :>0]=:>=01 ]=:0x :>0]-:>=01 ]-:6x :>0]+:>=01 ]+: