1Newsgroups: de.comp.os.linux 2Path: greenie!marvin.muc.de!ftp.space.net!stasys!sungy!brinkley.East.Sun.COM!newsworthy.West.Sun.COM!koriel!ames!nntp-server.caltech.edu!vixen.cso.uiuc.edu!howland.reston.ans.net!EU.net!Germany.EU.net!pophh!nordwest.germany.eu.net!uniol!caty.ol.sub.de!shlink.shn.com!wuff.sane.de!wuemaus!fritz 3From: fritz@wuemaus.franken.de (Fritz Elfert) 4Subject: Re: ghostscript und die Umlaute 5Message-ID: <1994Oct6.212441.1610@wuemaus.franken.de> 6Organization: Kommunikationsnetz Franken e.V. 7Date: Thu, 6 Oct 1994 21:24:41 GMT 8References: <CwxxB5.Dtx@hermes.hrz.uni-bielefeld.de> <CwyAAB.512@greenie.muc.de> <Cx0K48.s6@elbereth.thur.de> <Cx7Bst.AH4@lotte.sax.de> 9X-Newsreader: TIN [version 1.2 PL2] 10Lines: 117 11 12Heiko Schlittermann (heiko@lotte.sax.de) wrote: 13: Die urspr"ungliche Frage ging ja von a2ps aus. Dem fehlte wirklich 14: nur der Schalter -8 (RTFMOM - RTFM once more. Vor langer Zeit 15: gelesen, aber damals keine Umlaute gebraucht...) Das schreibt dann 16: an diverse Stellen ein ISO*Encoding ins PostScript-Dokument und 17: das sz z.B. als \337 (wirklich 3 Zeichen). 18[....] 19: Soweit so gut. Aber wenn ich nun hergehe, und gslp nutzt, um den das 20: sz enthaltenen Text in Postscript zu wandeln, fehlen die Umlaute 21: einfach (fehlen nicht ganz, Leerzeichen sind an ihrer Stelle.) 22 23: Ob da einfach nur einer fehlt, der von PostScript 'ne Ahnung hat und 24: gslp.ps "andert? 25Gut, �berredet ;-) ich hab's mal eben in den gslp eingebaut. Hier ist 26ein context-diff vom gslp der GhostScript-3.0-Distribution auf mein 27neues gslpiso.ps Die Reencode-routine hab ich etwas modifiziert, denn 28das Original hat einfach den ISO-encodeten-Font �ber den normalen 29Font dr�bergebraten (nicht ganz die feine Englische...) bei mir wird 30jeweils ein neuer Font mit "ISO-" vornedran erzeugt: 31========================================================================== 32*** gslp.ps Thu Jul 28 02:40:00 1994 33--- gslpiso.ps Thu Oct 6 22:09:03 1994 34*************** 35*** 45,53 **** 36 lpdict begin 37 38 % Define the initial values of the printing parameters. 39 40 /BodyFont null def % use default 41 /defaultBodyFont 42! { /Courier findfont Landscape { 7 } { 10 } ifelse scalefont } def 43 /Columns 1 def 44 /DetectFileType false def 45--- 45,63 ---- 46 lpdict begin 47 48+ % Iso-Latin1-Encoding 49+ /ISOfindfont { 50+ dup 100 string cvs (ISO-) exch concatstrings cvn exch 51+ findfont dup maxlength dict begin 52+ {1 index/FID ne{def}{pop pop}ifelse}forall 53+ /Encoding ISOLatin1Encoding def 54+ currentdict 55+ end definefont 56+ } def 57+ 58 % Define the initial values of the printing parameters. 59 60 /BodyFont null def % use default 61 /defaultBodyFont 62! { /Courier ISOfindfont Landscape { 7 } { 10 } ifelse scalefont } def 63 /Columns 1 def 64 /DetectFileType false def 65*************** 66*** 62,66 **** 67 /HeadingFont null def % use default 68 /defaultHeadingFont 69! { /Courier-Bold findfont 10 scalefont } def 70 /Landscape false def 71 /MarginBottom 36 def % 1/2" 72--- 72,76 ---- 73 /HeadingFont null def % use default 74 /defaultHeadingFont 75! { /Courier-Bold ISOfindfont 10 scalefont } def 76 /Landscape false def 77 /MarginBottom 36 def % 1/2" 78*************** 79*** 164,168 **** 80 { OutFile null ne 81 { exch wosp 82! dup /FontName get wosp OutFile ( findfont) writestring 83 /FontMatrix get 0 get 1000 mul round cvi wosp 84 OutFile ( scalefont def\n) writestring 85--- 174,178 ---- 86 { OutFile null ne 87 { exch wosp 88! dup /FontName get wosp OutFile ( ISOfindfont) writestring 89 /FontMatrix get 0 get 1000 mul round cvi wosp 90 OutFile ( scalefont def\n) writestring 91*************** 92*** 329,333 **** 93 1 sub 94 } loop 95! arg exch 0 exch getinterval dup cvn findfont 96 exch arg exch anchorsearch pop pop cvr scalefont 97 } def 98--- 339,343 ---- 99 1 sub 100 } loop 101! arg exch 0 exch getinterval dup cvn ISOfindfont 102 exch arg exch anchorsearch pop pop cvr scalefont 103 } def 104*************** 105*** 406,410 **** 106 /-n { pop } def % ignore 107 /-o { more } def % ignore 108! /-p { (w) file /OutFile exch def OutFile (%!\n) writestring } def 109 /-P { pop } def % ignore 110 /-q { /Noisy false def more } def 111--- 416,422 ---- 112 /-n { pop } def % ignore 113 /-o { more } def % ignore 114! /-p { (w) file /OutFile exch def OutFile (%!\n) writestring 115! /ISOfindfont dup wosp load wosp OutFile (def) writestring 116! } def 117 /-P { pop } def % ignore 118 /-q { /Noisy false def more } def 119========================================================================== 120 121Ciao 122 -Fritz 123-- 124Fritz Elfert 125Wuerzburg/Germany email: fritz@wuemaus.franken.de 126--------------------------------------------------------------------------- 127Einen Brief mit der Deutschen Bundespost verschicken heisst ihn aufzugeben. 128 129