Translate the examples from the morph folder #589

metafacture-runner/src/main/dist/examples/fix/marc21/10.marc21

@@ -0,0 +1,10 @@
+02602pam a2200529 c 4500001001000000003000700010005001700017007000300034008004100037015003400078016002200112020005800134035002500192040003500217041000800252044001000260084001900270090000600289100006100295245012400356260011200480300002200592490008100614600007900695600007000774600007100844650005400915650007400969650005401043650007401097650005401171650007401225689007701299689005201376689007201428689001901500689006801519689005201587689007201639689001901711689006901730689005201799689007201851689001901923830012301942925000702065946638705DE-10120070429135622.0tu960123s2004    gw |||||r|||| 00||||eng    a05,A03,2104z96,N47,04542dnb7 2DE-101a946638705  a0820431125cPp. : EUR 56.70, sfr 83.0090-8204-3112-5  a(DE-599)DNB946638705  a1140bgercDE-101d9999erakwb  aeng  cXA-DE  a820a8902sdnb  ab1 aKim, Soonsik4aut0(DE-588a)11515454X0(DE-101)11515454X10aColonial and post-colonial discourse in the novels of Yo§am Sang-So§ap, Chinua Achebe and Salman RushdiecSoonsik Kim3 aNew YorkaWashington, D.C./BaltimoreaBernaFrankfurt am MainaBerlinaBrusselsaViennaaOxfordbLangc2004  aVI, 214 S.c24 cm1 aComparative cultures and literaturesvVol. 94201 Literaturverz. S. 197 - 207170(DE-588c)4806527-40(DE-101)1296121112swdaYo§am, Sang-so§apd1897-1963170(DE-588c)4084672-60(DE-101)1186466802swdaAchebe, Chinuad1930-170(DE-588c)4217069-20(DE-101)1188735202swdaRushdie, Salmand1947- 70(DE-588c)4050479-70(DE-101)0405047942swdaRoman 70(DE-588c)4681702-50(DE-101)9642335092swdaPostkolonialismus <Motiv> 70(DE-588c)4050479-70(DE-101)0405047942swdaRoman 70(DE-588c)4681702-50(DE-101)9642335092swdaPostkolonialismus <Motiv> 70(DE-588c)4050479-70(DE-101)0405047942swdaRoman 70(DE-588c)4681702-50(DE-101)9642335092swdaPostkolonialismus <Motiv>00Ap0(DE-588c)4806527-40(DE-101)129612111aYo§am, Sang-so§apd1897-196301As0(DE-588c)4050479-70(DE-101)040504794aRoman02As0(DE-588c)4681702-50(DE-101)964233509aPostkolonialismus <Motiv>0 5DE-1015DE-10110Ap0(DE-588c)4084672-60(DE-101)118646680aAchebe, Chinuad1930-11As0(DE-588c)4050479-70(DE-101)040504794aRoman12As0(DE-588c)4681702-50(DE-101)964233509aPostkolonialismus <Motiv>1 5DE-1015DE-10120Ap0(DE-588c)4217069-20(DE-101)118873520aRushdie, Salmand1947-21As0(DE-588c)4050479-70(DE-101)040504794aRoman22As0(DE-588c)4681702-50(DE-101)964233509aPostkolonialismus <Motiv>2 5DE-1015DE-101 0aComparative cultures and literaturesvVol. 94201 Literaturverz. S. 197 - 207w(DE-101)025300458w(DE-600)2126467-3919r ara
+01387pam a2200349 c 450000100100000000300070001000500170001700700030003400800410003701500340007801600220011202000350013403500250016904000350019404100080022904400100023708400190024709000060026624500960027226000230036830000230039149000680041461000940048265500210057668900920059768900190068968900190070870000640072781001580079185600810094992500070103094685887XDE-10120101118212115.0tu960215s2005    gw |||||r|||| 00||||ger    a05,A43,1416z96,N11,05032dnb7 2DE-101a94685887X  a3880426066cgeh93-88042-606-6  a(DE-599)DNB94685887X  a1240bgercDE-101d9999erakwb  ager  cXA-DE  a720a0602sdnb  ab10aOstenfelder BauernhausbDeutschlands a§�ltestes Freilichtmuseum in HusumcKonrad Grunsky3 aHusumbHusumc2005  a48 S.bIll.c21 cm1 aSchriften des Nordfriesischen Museums Nissenhaus, HusumvNr. 65170(DE-588c)4841760-90(DE-101)9763312922swdaHusum <Nordfriesland>bOstenfelder Bauernhaus 72swdaFu§�hrer00Ac0(DE-588c)4841760-90(DE-101)976331292aHusum <Nordfriesland>bOstenfelder Bauernhaus01AfaFu§�hrer0 5DE-1015DE-1011 aGrunsky, Konrad4cre0(DE-588a)1090032090(DE-101)1090032092 aNissenhaus <Husum, Nordfriesland>4auttSchriften des Nordfriesischen Museums Ludwig-Nissenhaus, HusumvNr. 65w(DE-101)016002806w(DE-600)1069033-5926542mV:DE-604qapplication/pdfuhttp://d-nb.info/94685887X/043Inhaltsverzeichnisr ara
+01266pam a2200361 c 4500001001000000003000700010005001700017007000300034008004100037015003400078016002200112020004700134035002500181040003500206041000800241044001000249084001400259245005700273260005200330300002400382490001700406650006700423651006000490655003600550689005800586689006500644689001600709689002400725689001900749700007000768830005900838925000700897947459928DE-10120070430100559.0tu960426s1996    gw |||||r|||| 00||||ger    a05,A08,0528z96,N21,01802dnb7 2DE-101a947459928  a3814550080cPp. : DM 168.0093-8145-5008-0  a(DE-599)DNB947459928  a1140bgercDE-101d9999erakwb  ager  cXA-DE  a3402sdnb10aGesellschaftsrecht 1995chrsg. von Hartwig Henze ...3 aKo§�lnbRWS, Verl. Kommunikationsforumc1996  aVIII, 320 S.c22 cm1 aRWS-Forumv8 70(DE-588c)4020646-40(DE-101)0402064672swdaGesellschaftsrecht 70(DE-588c)4011882-40(DE-101)0401188272swdaDeutschland 72swdaKongresszKo§�ln <1995>00Ag0(DE-588c)4011882-40(DE-101)040118827aDeutschland01As0(DE-588c)4020646-40(DE-101)040206467aGesellschaftsrecht02AfaKongress03AgaKo§�ln <1995>0 5DE-1015DE-1011 aHenze, Hartwig4edteHrsg.0(DE-588a)1068672370(DE-101)106867237 0aRWS-Forumv8w(DE-101)018447201w(DE-600)1342722-2918r ara
+00712pam a2200253 c 4500001001000000003000700010005001700017007000300034008004100037015003400078016002200112020004900134035002500183040003500208041000800243044001000251084001700261090000600278100006500284245004500349260003900394300001800433925000700451948469390DE-10120050503235007.0tu960827s1997    gw |||||r|||| 00||||ger    a05,A20,1933z96,N38,06382dnb7 2DE-101a948469390  a3929207478cGewebe : DM 34.8093-929207-47-8  a(DE-599)DNB948469390  a1140bgercDE-101d9999erakwb  ager  cXA-DE  a830aB2sdnb  ab1 aBurning, Michael4aut0(DE-588a)1151854370(DE-101)11518543710aDeathlockb= TodespunktcMichael Burning3 aMu§�nster/Westf.bTebbertc1997  a264 S.c21 cmr ara
+01678pam a2200409 c 4500001001000000003000700010005001700017007000300034008004100037015003400078016002200112020004900134035002500183040003500208041000800243044001000251084001400261090000600275245007900281250001300360259000700373260004000380300004400420490004200464490006400506500003200570650006200602651005500664689005300719689006000772689001900832700007500851830008900926830016501015856008101180925000701261950561274DE-10120101118201933.0tu970602s2005    gw |||||r|||| 00||||ger    a05,A36,0756z97,N32,04562dnb7 2DE-101a950561274  a3894328835ckart. : sfr 39.9093-89432-883-5  a(DE-599)DNB950561274  a1140bgercDE-101d9999erakwb  ager  cXA-DE  a5902sdnb  ab10a˜Dieœ Prachtlibellen EuropasbGattung CalopteryxcGeorg Ru§�ppell ...  a1. Aufl.  a113 aHohenwarslebenbWestarp-Wiss.c2005  a255 S.bIll., graph. Darst., Kt.c21 cm1 aDie neue Brehm-Bu§�chereivBd. 6541 aDie neue Brehm-Bu§�cherei : Die @Libellen EuropasvBd. 4  aLiteraturverz. S. 237 - 251 70(DE-588c)4781371-40(DE-101)9713224222swdaPrachtlibelle 70(DE-588c)4015701-50(DE-101)0401570162swdaEuropa00Ag0(DE-588c)4015701-50(DE-101)040157016aEuropa01As0(DE-588c)4781371-40(DE-101)971322422aPrachtlibelle0 5DE-1015DE-1011 aRu§�ppell, Georg4cred1940-0(DE-588a)1069792050(DE-101)106979205 0a˜Dieœ neue Brehm-Bu§�chereivBd. 654w(DE-101)010148280w(DE-600)963890-893654 0a˜Dieœ neue Brehm-Bu§�cherei / Die Libellen EuropasnDie Libellen Europast˜Dieœ neue Brehm-Bu§�chereivBd. 4w(DE-101)977932621w(DE-600)2215590-991442mV:DE-604qapplication/pdfuhttp://d-nb.info/950561274/043Inhaltsverzeichnisr ara
+01381pam a2200385 c 4500001001000000003000700010005001700017007000300034008004100037015003400078016002200112020007000134035002500204040003500229041000800264044001000272084001400282090000600296245005500302260005200357300002200409490001700431650006300448651006000511655003600571689005800607689006100665689001600726689002400742689001900766700008300785830005900868856006100927925000700988950592463DE-10120110218201007.0tu970605s1997    gw |||||r|||| 00||||ger    a05,A08,0558z97,N27,02912dnb7 2DE-101a950592463  a3814550099cPp. : DM 189.00, sfr 168.00, S 1380.0093-8145-5009-9  a(DE-599)DNB950592463  a1140bgercDE-101d9999erakwb  ager  cXA-DE  a3402sdnb  ab10aInsolvenzrecht 1996chrsg. von Hanns Pru§�tting3 aKo§�lnbRWS, Verl. Kommunikationsforumc1997  aIX, 365 S.c22 cm1 aRWS-Forumv9 70(DE-588c)4114026-60(DE-101)0411402652swdaInsolvenzrecht 70(DE-588c)4011882-40(DE-101)0401188272swdaDeutschland 72swdaKongresszKo§�ln <1996>00Ag0(DE-588c)4011882-40(DE-101)040118827aDeutschland01As0(DE-588c)4114026-60(DE-101)041140265aInsolvenzrecht02AfaKongress03AgaKo§�ln <1996>0 5DE-1015DE-1011 aPru§�tting, Hanns4edtd1948-eHrsg.0(DE-588a)1157157890(DE-101)115715789 0aRWS-Forumv9w(DE-101)018447201w(DE-600)1342722-291942mX:GBVuhttp://d-nb.info/950592463/043Inhaltsverzeichnisr ara
+01233pam a2200337 c 4500001001000000003000700010005001700017007000300034008004100037015003400078016002200112020003700134035002500171040002800196041000800224044001000232084001400242090000600256100006400262245005800326260004900384300002300433490005100456500003100507651006100538689005900599689001900658830013000677856008100807925000700888950974439DE-10120101118201935.0tu970717s1997    gw |||||r|||| 00||||ita    a05,A28,0679z97,N33,06892dnb7 2DE-101a950974439  a3895862193ckart.93-89586-219-3  a(DE-599)DNB950974439  a1240bgercDE-101d9999  aita  cXA-DE  a4502sdnb  ab1 aBigalke, Rainer4aut0(DE-588a)1086282480(DE-101)10862824810aSicilianocRainer Bigalke. [Ed. by U. J. Lu§�ders]3 aMu§�nchenaNewcastlebLINCOM Europac1997  a102 S.bKt.c21 cm1 aLanguages of the world : [...], Materialsv129  aLiteraturverz. S. 96 - 102 70(DE-588c)4181612-20(DE-101)0418161292swdaSizilianisch00Ag0(DE-588c)4181612-20(DE-101)041816129aSizilianisch0 5DE-1015DE-101 0aLanguages of the world / Materialsn[...]pMaterialstLanguages of the worldv129w(DE-101)019448880w(DE-600)1451298-19312942mV:DE-604qapplication/pdfuhttp://d-nb.info/950974439/043Inhaltsverzeichnisr ara
+01384pam a2200385 c 4500001001000000003000700010005001700017007000300034008004100037015003400078016002200112020007100134035002500205040003500230041000800265044001000273084001400283090000600297245006600303260005200369300002200421490001800443650006100461651006000522655003600582689005800618689005900676689001600735689002400751689001900775700007500794830006100869856006100930925000700991953176436DE-10120110218202305.0tu980309s1998    gw |||||r|||| 00||||ger    a05,A08,0490z98,N14,02512dnb7 2DE-101a953176436  a3814550110cPp.. : DM 179.00, S 1307.00, sfr 159.0093-8145-5011-0  a(DE-599)DNB953176436  a1140bgercDE-101d9999erakwb  ager  cXA-DE  a3402sdnb  ab10aArbeitsrecht 1997chrsg. von Peter Hanau ; Gu§�nter Schaub3 aKo§�lnbRWS, Verl. Kommunikationsforumc1998  aXI, 356 S.c22 cm1 aRWS-Forumv11 70(DE-588c)4002769-70(DE-101)0400276942swdaArbeitsrecht 70(DE-588c)4011882-40(DE-101)0401188272swdaDeutschland 72swdaKongresszKo§�ln <1997>00Ag0(DE-588c)4011882-40(DE-101)040118827aDeutschland01As0(DE-588c)4002769-70(DE-101)040027694aArbeitsrecht02AfaKongress03AgaKo§�ln <1997>0 5DE-1015DE-1011 aHanau, Peter4edtd1966-eHrsg.0(DE-588a)1286723580(DE-101)128672358 0aRWS-Forumv11w(DE-101)018447201w(DE-600)1342722-2921142mX:GBVuhttp://d-nb.info/953176436/043Inhaltsverzeichnisr ara
+01303nam a2200373 c 4500001001000000003000700010005001700017007000300034008004100037015002100078016002200099020004700121035002500168040003500193041000800228044001000236084001400246090000600260245007900266260005200345300002100397490001800418650006700436651006000503655003600563689005800599689006500657689001600722689002400738689001900762700008000781830006100861925000700922954369300DE-10120070820134300.0tu980814s1998    gw |||||r|||| 00||||ger    a05,A08,05292dnb7 2DE-101a954369300  a3814550102cPp. : DM 182.0093-8145-5010-2  a(DE-599)DNB954369300  a1140bgercDE-101d1210erakwb  ager  cXA-DE  a3402sdnb  ab10aGesellschaftsrecht 1997chrsg. von Peter Hommelhoff ; Volker Ro§�hricht3 aKo§�lnbRWS, Verl. Kommunikationsforumc1998  aX, 355 S.c22 cm1 aRWS-Forumv10 70(DE-588c)4020646-40(DE-101)0402064672swdaGesellschaftsrecht 70(DE-588c)4011882-40(DE-101)0401188272swdaDeutschland 72swdaKongresszKo§�ln <1997>00Ag0(DE-588c)4011882-40(DE-101)040118827aDeutschland01As0(DE-588c)4020646-40(DE-101)040206467aGesellschaftsrecht02AfaKongress03AgaKo§�ln <1997>0 5DE-1015DE-1011 aHommelhoff, Peter4edtd1942-eHrsg.0(DE-588a)1332291570(DE-101)133229157 0aRWS-Forumv10w(DE-101)018447201w(DE-600)1342722-29210r ara
+01269nam a2200373 c 4500001001000000003000700010005001700017007000300034008004100037015002100078016002200099020004700121035002500168040003500193041000800228044001000236084001400246090000600260245006400266260005200330300002400382490001800406650005800424651006000482655003600542689005800578689005600636689001600692689002400708689001900732700007600751830006100827925000700888954377915DE-10120070430100600.0tu980817s1998    gw |||||r|||| 00||||ger    a05,A08,04952dnb7 2DE-101a954377915  a3814550129cPp. : DM 179.0093-8145-5012-9  a(DE-599)DNB954377915  a1140bgercDE-101d9999erakwb  ager  cXA-DE  a3402sdnb  ab10aBankrecht 1998chrsg. von Norbert Horn ; Herbert Schimansky3 aKo§�lnbRWS, Verl. Kommunikationsforumc1998  aVIII, 358 S.c22 cm1 aRWS-Forumv12 70(DE-588c)4004473-70(DE-101)0400447342swdaBankrecht 70(DE-588c)4011882-40(DE-101)0401188272swdaDeutschland 72swdaKongresszKo§�ln <1998>00Ag0(DE-588c)4011882-40(DE-101)040118827aDeutschland01As0(DE-588c)4004473-70(DE-101)040044734aBankrecht02AfaKongress03AgaKo§�ln <1998>0 5DE-1015DE-1011 aHorn, Norbert4edtd1936-eHrsg.0(DE-588a)1323749940(DE-101)132374994 0aRWS-Forumv12w(DE-101)018447201w(DE-600)1342722-29212r ara

metafacture-runner/src/main/dist/examples/fix/marc21/morph-marc21.fix

@@ -0,0 +1,8 @@
+if exists("24510.b")
+  paste("dc:title","24510.a","~:","24510.b")
+else
+  copy_field("24510.a","dc:title")
+end
+
+
+retain("dc:title")

metafacture-runner/src/main/dist/examples/fix/marc21/morph-marc21.flux

@@ -0,0 +1,10 @@
+default file = FLUX_DIR + "10.marc21";
+
+file|
+open-file|
+as-lines|
+decode-marc21|
+fix(FLUX_DIR + "morph-marc21.fix")|
+stream-to-triples|
+template("${o}")|
+write("stdout");

metafacture-runner/src/main/dist/examples/fix/morph-marcxml-online.flux

@@ -0,0 +1,10 @@
+default idn = "1021191485";
+
+idn|
+template("https://portal.dnb.de/opac.htm?method=requestMarcXml&idn=${o}")|
+open-http|
+decode-xml|
+handle-marcxml|
+fix("nothing()")|
+encode-formeta(style="multiline")|
+write("stdout");

metafacture-runner/src/main/dist/examples/fix/pica-to-marcxml/morph-pica-to-marcxml.fix

@@ -0,0 +1,23 @@
+#        <!-- maps PICA+ to marc21Xml -->
+#       <!-- setting the encoding scheme is mandatory. This sets it to utf8. -->
+add_field("leader.characterCodingScheme","a")
+#        <!-- directly invoke "data" creats "controlfields" -->
+
+if exists("[email protected]")
+  copy_field("[email protected]","001")
+else
+  add_field("001","no_id")
+end
+# <!-- entities triggers creation of "datafields" following the pattern: -->
+# <!--'entity.name="$fieldname$ind1$ind2"' => '<datafield tag="$fieldname" ind1="$ind1" ind2="$ind2">' -->
+# <!-- and 'source.name="$subfield" => <subfield code="$subfield"/> -->
+
+
+do list(path:"044N","var":"$004N")
+  do list(path:"$004N.a","var":"$a")
+    copy_field("$a","650 0.$append.a")
+  end
+end
+
+
+retain("leader","001","650??")

metafacture-runner/src/main/dist/examples/fix/pica-to-marcxml/morph-pica-to-marcxml.flux

@@ -0,0 +1,13 @@
+// opens file 'fileName', interprets the content as non normalized serialized
+// pica+, encode as marc, morphs to marcxml and writes to standard out
+
+default fileName = FLUX_DIR + "nonNormalized.pica";
+
+fileName|
+open-file|
+as-lines|
+lines-to-records|
+decode-pica(normalizedSerialization="false", ignoreMissingIdn="true")|
+fix(FLUX_DIR + "morph-pica-to-marcxml.fix")|
+encode-marcxml(ensurecorrectmarc21xml="true")|
+write("stdout");