Benutzereingabe (nochmals)

[Oliver J. Kaftan]

Liebe AllegrologInnen!

Meine Vorschlaege fuer eine erweiterte Umcodierung der Benutzereingabe
enthielten
noch einige Macken, die mir jetzt aufgefallen sind. Die Umcodierung fuer
Reg.5
zusammen mit dem Roesselsprung habe ich nun ganz in den Paragraphen
eingebaut,
an dem die Registereintraege selbst erzeugt werden. So braucht
gegebenenfalls nur
an einer Stelle geaendert zu werden.

MfG
          P. Oliver J. Kaftan

#-1   Umcodierung der Benutzereingabe fuer Reg.1 wird auch hier gemacht
!u1 +# i4,D i5,  b2 y2 "D "         Sonderpraefixe als Grossbuchstaben
!u1 +# i4,F i5,  b2 y2 "F-> "       erhalten, den Rest umcodieren
!u1 +# i4,W i5,  b2 y2 "W-> "       Eingabe z.B. "F Shakespeare,
William"

#-2    Reg.2
#-6    Reg.6
!u1 u
#+#

    Serien: (#85)
#-5   Umcodierung der Benutzereingabe Reg. 5
#u1 +#98s c";" e0
!u1 +#98s y2 c"[abcdefghijklmnopqrstuvwxyz]" e0
#uxa y0 e" ;" dgt Agt              "Roesselsprung vgl. NEWS 46, S. 11"
#u1 +#ugt y0 " ; " Agt
#+#

#-I
#t{"|5"}
#98s
#u1 y0 dgt Agt
!ugt +#98t e" ; " c".." e0      Pruefe: kommt "..." vor? dann gehe nach
-t
  !ch +#98u i4,_ e" ;" y2 p"_"      Kuerzel statt Serientitel
!ugt +#98u u e" ;" e" =p " e61    sonst nimm den Titel (bis " ; " )

#98t         wenn "...", dann #85 aus Hauptaufnahme nehmen  (!^85 )

  !^85 +#98u i4,_ e" ;" p"_"   pre-V14
!^85 u e" ; " e" =p " e61

#98u
#ugt +- b" ; " c".." dgt e0         wenn "..." statt Zaehlung, dann hier
schluss
#ugt +#ugt b" ; " B" = " e" " e"/" e"(" e" : " e"," B"." r5 p" ;"
#76 B" = " x"*1" e4 p" ; "                     Jahr, falls keine
Zaehlung
#ugt +#dt b" ; " B" = " b"/" e" : " r3 p"/"    mehrteilige Zaehlungen
(nn/mm)
#ugt +#dt b" ; " B" = " b"," e" : " r3 p"/"    mehrteilige Zaehlungen
(nn,mm)
#ugt b" ; " B" = " b" " e" : " r3 p"/"         mehrteilige Zaehlungen
(nn mm)
#dt dgt e0
#+#


#-4    Reg.4
!u1 +# i4,K i5,  b2 y2 "K "        Sonderpraefix erhalten, sonst
umcodieren
!u1
#+#

#-9    Reg. 9
#u1 +# i4,Z >Z                            Zugangsnummer
#u1 +#98i I4,i I4,I i8,- b"-" b"-" e0    ISSN "-" an der 4. Stelle
#u1 +# y0 I4,i I4,I i8,- ,",X,x," "I"         kein weiterer "-"
#98i
#u1 +# y0 I4,i I4,I c"-" "i"             ISBN "-" im Text
#u1 y0
#+#



#(Z    Invnr.
#u1 I4,Z p"|9Z!" e"!"        ergaenzt fuer die Umcodierung der
Benutzereingabe
#u1 y0 e"[;:.,-/ ]"
!u1 b"[;:.,-/ ]" r5
#)Z