*: $Id: x-rswk.cpt 21976 2008-09-24 12:47:49Z ThB $
  *: # u-usw - Unterprogramme fuer die Darstellung unselbstaendiger Werke
  *:! x-rswk.apt generiert aus x-rswk.cpt (30.06.2011 22:35)
  *: #(| : Internes Unterprogramm
  *: #(_ : Registerbestimmung nach #urh anhand von Typkuerzel in #uqt
  *: --------------------------------------------------------------------
  *: Analyse der Spruenge, Unterprogramme und Includes:
  *:     Textmakros: $KOR (2), $PER (1), $SSW (3), $TAF (4)
  *: Unterprogramme: #(_, #(|
  *:        Aufrufe: #>_, #>|
  *:   Sprungmarken: #-|
  *:  rel. Spruenge: +#J0y, +#J0z, +#ucc, +#ucd
  *:   Anwendervar.: #ucc, #ucd, #uck, #ucx, #uqh, #uqt, #urh
  *: --------------------------------------------------------------------
  $Id: x-rswk.cpt 21976 2008-09-24 12:47:49Z ThB $
  # u-usw - Unterprogramme fuer die Darstellung unselbstaendiger Werke
  #(| : Internes Unterprogramm
  #(_ : Registerbestimmung nach #urh anhand von Typkuerzel in #uqt
        (vgl. aehnliches UP in u-rswk fuer Flips in Anzeigen)

  : $HeadURL: https://svn.extra.gymel.com/repos/allegro/acxt/enhancements/trunk/x-rswk.cpt $
  : s/repos/viewvc/ for browseable view in the URL above

ak=33."P"+|      RSWK-Ketten

  % RSWK-konforme Schlagwortketten #33ff in der Form
  % 330sMinimal artzGeschichtefAufsatzsammlungP213P312
  %
  % Bitte Platzhalter 3 etc. unten in #(_ aufloesen

#-|
#u1 +- V3,A               % "Fremdschlagworte" nicht

#nr dcc p"x" e1 =cd
!u1 +#J0y c"" Z          % definitiv Grundkette
#ch +#J0z c"" Z          % Test auf unpermutierendes Einzel-SW

   % #u1 ist Einzel-SW:
#nr dqt P>_ Z             % Defaultregister bestimmen (Sachschlagwort)
#urh drh y0               % ... ausgeben 
!u1                       % Einzel-SW
#+#

#J0y                      % #u1 ist Grundkette
#nr +#ucc p"123456789" e9 =cc

#J0z                      % #u1 ist Permutationsmuster
#u1 f32 F32 =cc

#ucc dck f32 >| Ack
#ucc dck f32 b1 >| Ack
#ucc dck f32 b2 >| Ack
#ucc dck f32 b3 >| Ack
#ucc dck f32 b4 >| Ack
#ucc dck f32 b5 >| Ack
#ucc dck f32 b6 >| Ack
#ucc dck f32 b7 >| Ack
#ucc dck f32 b8 >| Ack
#ucc dck f32 b9 >| Ack
#nr dck dcx Z
#+#

#(|                                        % Unterprogramm
#ch dcx e"P" ,"_/__" f"" Ack            % Schlagwortkette anhaengen
#uck +#ucd i4,1 y0 b1 =cx
#uck +#ucd i4,2 b"" =cx
#uck +#ucd i4,3 b"" b"" =cx
#uck +#ucd i4,4 b"" b"" b"" =cx
#uck +#ucd i4,5 b"" b"" b"" b"" =cx
#uck +#ucd i4,6 b"" b"" b"" b"" b"" =cx
#uck +#ucd i4,7 b"" b"" b"" b"" b"" b"" =cx
#uck +#ucd i4,8 b"" b"" b"" b"" b"" b"" b"" =cx
#uck +#ucd i4,9 b"" b"" b"" b"" b"" b"" b"" b"" =cx

#ucd +#J0y dcd Z          % aha: erstes Mal: Register bestimmen
#ucx y0 p" /" E"/"        % oder (folgende Male) Trenner anhaengen 
#nr +#J0z Z

#J0y  % Register anhand des aktuell vorne stehenden Kettengliesd bestimmen
#ucx y0 e1 =qt
#(_   % Registerbestimmung: #uqt enth. Kuerzel, #urh wird |Register enthalten
      % p - Person
      % c - Koerperschaft nach Ort
      % k - Koerperschaft ortsungebunden
      % s - Sachschlagwort
      % t - Werktitel (anonym)
      % g - Geo-Schlagwort
      % o - Topo-Schlagwort (kleinraeumiges Geographikum)
      % Default ist 3 falls nicht angegeben

#nr dqh drh p"|s%" e"%" =qh    % Default-Schlagworttyp ist "s"
#uqt y0 e1 p"|" dqh Aqh

  % Hier sind die konkreten Register(abschnitte) hinterlegt
  % Nur vom Default abweichende Kuerzel sind aufgefuehrt:
  % Platzhalter $(...) muessen aufgeloest werden!
#nr p"3|p1|k2|t4|" B"#uqh" e"|" p"|" Arh

#uqh dqh Z
#)_
#urh y0

#J0z
#ucx dcx y0 b1 e"" f32 F32 acx
!ucx u
#)|

  ## Ende von x-rswk.cpt ##
  *:
  *: --- Ende von x-rswk.apt ---
  *:
  *:           INDEX
  *:           =====
  *:
  *: Textmakros
  *: $KOR (2)     97
  *: $PER (1)     97
  *: $SSW (3)     97
  *: $TAF (4)     97
  *:
  *: Unterprogramme
  *: #(_          39, 81(!)
  *: #(|          50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 63(!)
  *:
  *: Sprungmarken
  *: #-#          42, 61
  *: #--          32
  *: #-|          24(k), 31(!)
  *:
  *: Anwendervariable
  *: #ucc         34(d), 45(+), 45(=), 48(=), 50, 51, 52, 53, 54, 55, 56, 57,
  *:      58, 59
  *: #ucd         34(=), 65(+), 66(+), 67(+), 68(+), 69(+), 70(+), 71(+),
  *:      72(+), 73(+), 75, 75(d)
  *: #uck         50(d), 50(A), 51(d), 51(A), 52(d), 52(A), 53(d), 53(A),
  *:      54(d), 54(A), 55(d), 55(A), 56(d), 56(A), 57(d), 57(A), 58(d),
  *:      58(A), 59(d), 59(A), 60(d), 64(A), 65, 66, 67, 68, 69, 70, 71, 72,
  *:      73
  *: #ucx         60(d), 64(d), 65(=), 66(=), 67(=), 68(=), 69(=), 70(=),
  *:      71(=), 72(=), 73(=), 76, 80, 104, 104(d), 104(a), 105
  *: #uqh         91(d), 91(=), 92(d), 92(A), 97(B), 99, 99(d)
  *: #uqt         39(d), 80(=), 92
  *: #urh         40, 40(d), 91(d), 97(A), 101
  *:
  *: lokale Spruenge
  *: +#J0y        35, 75
  *: +#J0z        36, 77
  *: +#ucc        45
  *: +#ucd        65, 66, 67, 68, 69, 70, 71, 72, 73
  *:
  *: Kategorien
  *: #33.         24(k)
  *: #J0y         35(+), 44, 75(+), 79
  *: #J0z         36(+), 47, 77(+), 103