allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc) (10/01/89)
Posting-number: Volume 8, Issue 69
Submitted-by: howard@dahlbeck.ericsson.se (Howard Gayle)
Archive-name: cz/part05
#! /bin/sh
# This is a shell archive. Remove anything before this line, then feed it
# into a shell via "sh file" or similar. To overwrite existing files,
# type "sh file -c".
# The tool that generated this appeared in the comp.sources.unix newsgroup;
# send mail to comp-sources-unix@uunet.uu.net if you want that tool.
# If this archive is complete, you will see the following message at the end:
# "End of archive 5 (of 14)."
# Contents: T-61.rc common.p4 cz-news.b cz-rmail.el cz.1 cz.b cz.el
# cz.h cz0-init.h de.rc dk.rc
# Wrapped by howard@dahlbeck on Mon Sep 25 07:15:16 1989
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'T-61.rc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'T-61.rc'\"
else
echo shar: Extracting \"'T-61.rc'\" \(12699 characters\)
sed "s/^X//" >'T-61.rc' <<'END_OF_FILE'
X; T.61.rc - Character remappings for CCITT T.61
X;
X; Copyright 1989 Howard Lee Gayle
X; This file is written in the ISO 8859/1 character set.
X;
X; $Header: T-61.rc,v 1.1 89/08/04 17:10:29 howard Exp $
X;
X; This program is free software; you can redistribute it and/or modify
X; it under the terms of the GNU General Public License version 1,
X; as published by the Free Software Foundation.
X;
X; This program is distributed in the hope that it will be useful,
X; but WITHOUT ANY WARRANTY; without even the implied warranty of
X; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X; GNU General Public License for more details.
X;
X; You should have received a copy of the GNU General Public License
X; along with this program; if not, write to the Free Software
X; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X
XOctet0.8#044# +(\244 ; currency symbol (receive only)
XUndefine0 8#134#
XUndefine0 8#136#
XUndefine0 8#140#
XUndefine0 8#173#
XUndefine0 8#175#
XUndefine0 8#176#
XUndefine0 8#240#
XOctet0.8#244# +($ ; dollar sign
XOctet0.8#246# +(# ; number sign
XOctet0.8#250# +(\244 ; currency symbol
XUndefine0 8#251#
XUndefine0 8#252#
XUndefine0 8#254#
XUndefine0 8#255#
XUndefine0 8#256#
XUndefine0 8#257#
XOctet0.8#264# +(\327 ; multiply sign
XOctet0.8#270# +(\367 ; divide sign
XUndefine0 8#271#
XUndefine0 8#272#
XUndefine0 8#300#
X
XOctet0.8#301# +s1 ; grave accent
XOctet1.8#040# +(\221
XOctet1.8#101# +(\300 ; capital A with grave accent
XOctet1.8#105# +(\310 ; capital E with grave accent
XOctet1.8#111# +(\314 ; capital I with grave accent
XOctet1.8#117# +(\322 ; capital O with grave accent
XOctet1.8#125# +(\331 ; capital U with grave accent
XOctet1.8#141# +(\340 ; small a with grave accent
XOctet1.8#145# +(\350 ; small e with grave accent
XOctet1.8#151# +(\354 ; small i with grave accent
XOctet1.8#157# +(\362 ; small o with grave accent
XOctet1.8#165# +(\371 ; small u with grave accent
X
XOctet0.8#302# +s2 ; acute accent
XOctet2.8#040# +(\222
XOctet2.8#101# +(\301 ; capital A with acute accent
XOctet2.8#103# +)(\222)(C)@ ; capital C with acute accent
XOctet2.8#105# +(\311 ; capital E with acute accent
XOctet2.8#111# +(\315 ; capital I with acute accent
XOctet2.8#116# +)(\222)(N)@ ; capital N with acute accent
XOctet2.8#117# +(\323 ; capital O with acute accent
XOctet2.8#122# +)(\222)(R)@ ; capital R with acute accent
XOctet2.8#123# +)(\222)(S)@ ; capital S with acute accent
XOctet2.8#125# +(\332 ; capital U with acute accent
XOctet2.8#131# +(\335 ; capital Y with acute accent
XOctet2.8#132# +)(\222)(Z)@ ; capital Z with acute accent
XOctet2.8#141# +(\341 ; small a with acute accent
XOctet2.8#143# +)(\222)(c)@ ; small c with acute accent
XOctet2.8#145# +(\351 ; small e with acute accent
XOctet2.8#147# +)(\222)(g)@ ; small g with acute accent
XOctet2.8#151# +(\355 ; small i with acute accent
XOctet2.8#156# +)(\222)(n)@ ; small n with acute accent
XOctet2.8#157# +(\363 ; small o with acute accent
XOctet2.8#162# +)(\222)(r)@ ; small r with acute accent
XOctet2.8#163# +)(\222)(s)@ ; small s with acute accent
XOctet2.8#165# +(\372 ; small u with acute accent
XOctet2.8#171# +(\375 ; small y with acute accent
XOctet2.8#172# +)(\222)(z)@ ; small z with acute accent
X
XOctet0.8#303# +s3 ; circumflex accent
XOctet3.8#040# +(\223
XOctet3.8#101# +(\302 ; capital A with circumflex accent
XOctet3.8#103# +)(\223)(C)@ ; capital C with circumflex accent !! raise
XOctet3.8#105# +(\312 ; capital E with circumflex accent
XOctet3.8#107# +)(\223)(G)@ ; capital G with circumflex accent !! raise
XOctet3.8#110# +)(\223)(H)@ ; capital H with circumflex accent !! raise
XOctet3.8#111# +(\316 ; capital I with circumflex accent
XOctet3.8#112# +)(\223)(J)@ ; capital J with circumflex accent !! raise
XOctet3.8#117# +(\324 ; capital O with circumflex accent
XOctet3.8#123# +)(\223)(S)@ ; capital S with circumflex accent !! raise
XOctet3.8#125# +(\333 ; capital U with circumflex accent
XOctet3.8#127# +)(\223)(W)@ ; capital W with circumflex accent !! raise
XOctet3.8#131# +)(\223)(Y)@ ; capital Y with circumflex accent !! raise
XOctet3.8#141# +(\342 ; small a with circumflex accent
XOctet3.8#143# +)(\223)(c)@ ; small c with circumflex accent
XOctet3.8#145# +(\352 ; small e with circumflex accent
XOctet3.8#147# +)(\223)(g)@ ; small g with circumflex accent
XOctet3.8#150# +)(\223)0.15 -0.05(h)@O; small h with circumflex accent !! raise
XOctet3.8#151# +(\356 ; small i with circumflex accent
XOctet3.8#152# +)(\223)(j)-0.03 @Y; small j with circumflex accent
XOctet3.8#157# +(\364 ; small o with circumflex accent
XOctet3.8#163# +)(\223)(s)@ ; small s with circumflex accent
XOctet3.8#165# +(\373 ; small u with circumflex accent
XOctet3.8#167# +)(\223)(w)@ ; small w with circumflex accent
XOctet3.8#171# +)(\223)(y)@ ; small y with circumflex accent
X
XOctet0.8#304# +s4 ; tilde
XOctet4.8#040# +(\224
XOctet4.8#101# +(\303 ; capital A with tilde
XOctet4.8#111# +)(\224)(I)@ ; capital I with tilde !! raise
XOctet4.8#116# +(\321 ; capital N with tilde
XOctet4.8#117# +(\325 ; capital O with tilde
XOctet4.8#125# +)(\224)(U)@ ; capital U with tilde !! raise
XOctet4.8#141# +(\343 ; small a with tilde
XOctet4.8#151# +)(\224)(\220)@ ; small i with tilde
XOctet4.8#156# +(\361 ; small n with tilde
XOctet4.8#157# +(\365 ; small o with tilde
XOctet4.8#165# +)(\224)(u)@ ; small u with tilde
X
XOctet0.8#305# +s5 ; macron
XOctet5.8#040# +(\225
XOctet5.8#101# +)(\225)(A)@ ; capital A with macron !! raise
XOctet5.8#105# +)(\225)(E)@ ; capital E with macron !! raise
XOctet5.8#111# +)(\225)(I)@ ; capital I with macron !! raise
XOctet5.8#117# +)(\225)(O)@ ; capital O with macron !! raise
XOctet5.8#125# +)(\225)(U)@ ; capital U with macron !! raise
XOctet5.8#141# +)(\225)(a)@ ; small a with macron
XOctet5.8#145# +)(\225)(e)@ ; small e with macron
XOctet5.8#151# +)(\225)(\220)@ ; small i with macron
XOctet5.8#157# +)(\225)(o)@ ; small o with macron
XOctet5.8#165# +)(\225)(u)@ ; small u with macron
X
XOctet0.8#306# +s6 ; breve
XOctet6.8#040# +(\226
XOctet6.8#101# +)(\226)(A)@ ; capital A with breve !! raise
XOctet6.8#107# +)(\226)(G)@ ; capital G with breve !! raise
XOctet6.8#125# +)(\226)(U)@ ; capital U with breve !! raise
XOctet6.8#141# +)(\226)(a)@ ; small a with breve
XOctet6.8#147# +)(\226)(g)@ ; small g with breve
XOctet6.8#165# +)(\226)(u)@ ; small u with breve
X
XOctet0.8#307# +s7 ; dot
XOctet7.8#040# +(\227
XOctet7.8#103# +)(\227)(C)@ ; capital C with dot !!r
XOctet7.8#105# +)(\227)(E)@ ; capital E with dot !!r
XOctet7.8#107# +)(\227)(G)@ ; capital G with dot !!r
XOctet7.8#111# +)(\227)(I)@ ; capital I with dot !!r
XOctet7.8#132# +)(\227)(Z)@ ; capital Z with dot !!r
XOctet7.8#143# +)(\227)(c)@ ; small c with dot
XOctet7.8#145# +)(\227)(e)@ ; small e with dot
XOctet7.8#147# +)(\227)(g)@ ; small g with dot
XOctet7.8#172# +)(\227)(z)@ ; small z with dot
X
XOctet0.8#310# +s8 ; diaeresis or umlaut mark
XOctet8.8#040# +(\230
XOctet8.8#101# +(\304 ; capital A with diaeresis or umlaut mark
XOctet8.8#105# +(\313 ; capital E with diaeresis or umlaut mark
XOctet8.8#111# +(\317 ; capital I with diaeresis or umlaut mark
XOctet8.8#117# +(\326 ; capital O with diaeresis or umlaut mark
XOctet8.8#125# +(\334 ; capital U with diaeresis or umlaut mark
XOctet8.8#131# +)(\230)(Y)@ ; capital Y with diaeresis or umlaut mark !!r
XOctet8.8#141# +(\344 ; small a with diaeresis or umlaut mark
XOctet8.8#145# +(\353 ; small e with diaeresis or umlaut mark
XOctet8.8#151# +(\357 ; small i with diaeresis or umlaut mark
XOctet8.8#157# +(\366 ; small o with diaeresis or umlaut mark
XOctet8.8#165# +(\374 ; small u with diaeresis or umlaut mark
XOctet8.8#171# +(\377 ; small y with diaeresis or umlaut mark
X
XOctet0.8#312# +s9 ; ring
XOctet9.8#040# +(\232
XOctet9.8#101# +(\305 ; capital A with ring
XOctet9.8#125# +)(\232)(U)@ ; capital U with ring !!r
XOctet9.8#141# +(\345 ; small a with ring
XOctet9.8#165# +)(\232)(u)@ ; small u with ring
X
XOctet0.8#313# +s10 ; cedilla
XOctet10.8#040# +(\233
XOctet10.8#103# +(\307 ; capital C with cedilla
XOctet10.8#107# +)(\233)(G)@0; capital G with cedilla
XOctet10.8#113# +)(\233)(K)@0; capital K with cedilla
XOctet10.8#114# +)(\233)(L)@0; capital L with cedilla
XOctet10.8#116# +)(\233)(N)@0; capital N with cedilla
XOctet10.8#122# +)(\233)(R)@0; capital R with cedilla
XOctet10.8#123# +)(\233)(S)@0; capital S with cedilla
XOctet10.8#124# +)(\233)(T)@0; capital T with cedilla
XOctet10.8#143# +(\347 ; small c with cedilla
XOctet10.8#153# +)(\233)(k)@0; small k with cedilla
XOctet10.8#154# +)(\233)(l)@0; small l with cedilla
XOctet10.8#156# +)(\233)(n)@0; small n with cedilla
XOctet10.8#162# +)(\233)(r)@0; small r with cedilla
XOctet10.8#163# +)(\233)(s)@0; small s with cedilla
XOctet10.8#164# +)(\233)(t)@0; small t with cedilla
X
XOctet0.8#314# +s11 ; non-spacing underline
XOctet11.8#040# +(_
X
XOctet0.8#315# +s12 ; double acute accent
XOctet12.8#040# +(\235
XOctet12.8#117# +)(\235)(O)@; capital O with double acute accent !!r
XOctet12.8#125# +)(\235)(U)@; capital U with double acute accent !!r
XOctet12.8#157# +)(\235)(o)@; small o with double acute accent
XOctet12.8#165# +)(\235)(u)@; small u with double acute accent
X
XOctet0.8#316# +s13 ; ogonek
XOctet13.8#040# +(\236
XOctet13.8#101# +)(\236)(A)@0; capital A with ogonek
XOctet13.8#105# +)(\236)(E)@0; capital E with ogonek
XOctet13.8#111# +)(\236)(I)@0; capital I with ogonek
XOctet13.8#125# +)(\236)(U)@0; capital U with ogonek
XOctet13.8#141# +)(\236)(a)@0; small a with ogonek
XOctet13.8#145# +)(\236)(e)@0; small e with ogonek
XOctet13.8#151# +)(\236)(i)@0; small i with ogonek
XOctet13.8#165# +)(\236)(u)@0; small u with ogonek
X
XOctet0.8#317# +s14 ; caron
XOctet14.8#040# +(\237
XOctet14.8#103# +)(\237)(C)@; capital C with caron !!r
XOctet14.8#104# +)(\237)(D)@; capital D with caron !!r
XOctet14.8#105# +)(\237)(E)@; capital E with caron !!r
XOctet14.8#114# +)(\237)0.2 0.01(L)@O; capital L with caron !!r
XOctet14.8#116# +)(\237)(N)@; capital N with caron !!r
XOctet14.8#122# +)(\237)(R)@; capital R with caron !!r
XOctet14.8#123# +(\203 ; capital S with caron
XOctet14.8#124# +)(\237)(T)@; capital T with caron !!r
XOctet14.8#132# +(\205 ; capital Z with caron
XOctet14.8#143# +)(\237)(c)@; small c with caron
XOctet14.8#144# +)(\237)(d)@; small d with caron !!r
XOctet14.8#145# +)(\237)(e)@; small e with caron
XOctet14.8#154# +)(\237)(l)@; small l with caron !!r
XOctet14.8#156# +)(\237)(n)@; small n with caron
XOctet14.8#162# +)(\237)(r)@; small r with caron
XOctet14.8#163# +(\213 ; small s with caron
XOctet14.8#164# +)(\237)(t)@; small t with caron
XOctet14.8#172# +(\215 ; small z with caron
X
XUndefine0 8#320#
XUndefine0 8#321#
XUndefine0 8#322#
XUndefine0 8#323#
XUndefine0 8#324#
XUndefine0 8#325#
XUndefine0 8#326#
XUndefine0 8#327#
XUndefine0 8#330#
XUndefine0 8#331#
XUndefine0 8#332#
XUndefine0 8#333#
XUndefine0 8#334#
XUndefine0 8#335#
XUndefine0 8#336#
XUndefine0 8#337#
XOctet0.8#340# +)(W)ShowSym ; ohm sign
XOctet0.8#341# +(\306 ; capital AE diphthong
XOctet0.8#342# +(\320 ; capital D with stroke
XOctet0.8#343# +(\252 ; ordinal indicator, feminine
XOctet0.8#344# +)(\210)(H)0.25 @Y; capital H with stroke !!
XUndefine0 8#345#
XOctet0.8#346# +)(J)0.05(I)Kern; capital IJ ligature !!
XOctet0.8#347# +)(\267)0.05 0.25(L)@O; capital L with middle dot !!
XOctet0.8#350# +(\201 ; capital L with stroke
XOctet0.8#351# +(\330 ; capital O with slash
XOctet0.8#352# +(\202 ; capital OE ligature !!
XOctet0.8#353# +(\272 ; ordinal indicator, masculine
XOctet0.8#354# +(\336 ; capital thorn, Icelandic
XOctet0.8#355# +)(\210)(T)0.2 @Y; capital T with stroke !!
XUndefine0 8#356#;Octet0.8#356# + ; capital eng, Lapp !!
XOctet0.8#357# +)(')-0.2 -0.2(n)@O; small n with apostrophe !!
XOctet0.8#360# +)(k)ShowSym; small k, Greenlandic !!
XOctet0.8#361# +(\346 ; small ae diphthong
XOctet0.8#362# +)(\225)-.04 .21(d)@O; small d with stroke
XOctet0.8#363# +(\360 ; small eth, Icelandic
XOctet0.8#364# +)(\225)-.04 -0.05(h)@O; small h with stroke !!
XOctet0.8#365# +(\220 ; small i without dot
XOctet0.8#366# +)(j) 0.125 (i)Kern; small ij ligature !!
XOctet0.8#367# +)(\267)0.05 0.2(l)@O; small l with middle dot !!
XOctet0.8#370# +(\211 ; small l with stroke
XOctet0.8#371# +(\370 ; small o with slash
XOctet0.8#372# +(\212 ; small oe ligature
XOctet0.8#373# +(\337 ; small sharp s, German
XOctet0.8#374# +(\376 ; small thorn, Icelandic
XOctet0.8#375# +)(\225)-0.25 -0.05(t)@O; small t with stroke !!
XOctet0.8#376# +)(,)0 0.28(n)@O; small eng, Lapp !!
XUndefine0 8#377#
X
XCommandFile common
END_OF_FILE
if test 12699 -ne `wc -c <'T-61.rc'`; then
echo shar: \"'T-61.rc'\" unpacked with wrong size!
fi
# end of 'T-61.rc'
fi
if test -f 'common.p4' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'common.p4'\"
else
echo shar: Extracting \"'common.p4'\" \(4971 characters\)
sed "s/^X//" >'common.p4' <<'END_OF_FILE'
X% common.p4 - PostScript for cz0 for all character sets
X%
X% $Header: common.p4,v 1.1 89/08/04 17:11:24 howard Exp $
X%
X% Copyright 1989 Howard Lee Gayle
X% This file is written in the ISO 8859/1 character set.
X%
X% This program is free software; you can redistribute it and/or modify
X% it under the terms of the GNU General Public License version 1,
X% as published by the Free Software Foundation.
X%
X% This program is distributed in the hope that it will be useful,
X% but WITHOUT ANY WARRANTY; without even the implied warranty of
X% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X% GNU General Public License for more details.
X%
X% You should have received a copy of the GNU General Public License
X% along with this program; if not, write to the Free Software
X% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X
Xinclude(ps-abbrev.m4)
X
X/Str 10 string PDEF % General purpose
X/SmallScale 0.7 PDEF % For scaling down fonts.
X
X/SetFont{Font SETFONT}PBIND PDEF
X
X`/'PCOLB % Start of column.
X {% def
X 1 ne
X {% if
X `/'PXCOORD PXCOORD PDX add PDEF
X /XIndent XIndent PDX add PDEF
X /XLineNo XLineNo PDX add PDEF
X `/'PYCOORD YBody PDEF
X }
X if
X PPOP % Ignore page column number as string.
X }PBIND PDEF
X
X`/'PCOLE % End of column.
X {
X PPOP PPOP
X }PBIND PDEF
X
X/ShowSmall{Font SmallScale SCALEFN SETFONT PSHOW}PBIND PDEF
X
X/ShowSmallSymbol
X {% def
X SymbolFont1 Size SmallScale mul SCALEFN SETFONT PSHOW
X }PBIND PDEF
X
X`/'PCNTRL % Display a control character.
X {% def
X PFIXWID
X {% ifelse
X gsave
X (\255)ShowSmallSymbol % Up arrow.
X ShowSmall
X grestore
X ( )PSHOW
X }
X {% else
X (\341\255)ShowSmallSymbol % Left angle bracket, up arrow.
X ShowSmall
X (\361)ShowSmallSymbol % Right angle bracket.
X SetFont
X }
X ifelse
X }PBIND PDEF
X
X`/'PROTNEG % Rotate -90 degrees.
X {% def
X -90 rotate
X PPAGEWD neg 0 translate
X }PDEF
X
X`/'PROTPOS % Rotate +90 degrees.
X {% def
X 90 rotate
X 0 PPAGEHT neg translate
X }PDEF
X
X/ShowHalf{Font 0.5 SCALEFN SETFONT PSHOW SetFont}PBIND PDEF
X
X/ShowSpcl {% def
X (\341)ShowSmallSymbol % Left angle bracket.
X ShowSmall
X (\361)ShowSmallSymbol % Right angle bracket.
X SetFont
X }PBIND PDEF
X
X`/'PSLB % Beginning of single line.
X {% def
X PPOP % Ignore numeric line number.
X XLineNo PYCOORD moveto
X LineNoFont SETFONT PSHOW
X PXCOORD PYCOORD moveto
X SetFont
X }PBIND PDEF
X
X`/'PFLB % Beginning of first line in folded lines.
X `/'PSLB PLOAD PDEF
X
X`/'PMLB % Beginning of middle line in folded lines.
X {% def
X PPOP % Ignore numeric line number.
X PPOP % Ignore string line number.
X XIndent PYCOORD moveto
X SetFont
X }PBIND PDEF
X
X`/'PLLB % Beginning of last line in folded lines.
X `/'PMLB PLOAD PDEF
X
X`/'PSLE % End of line.
X {% def
X PPOP PPOP % Ignore arguments.
X `/'PYCOORD PYCOORD LEADING sub PDEF
X }PBIND PDEF
X
X/ShowSym
X {% def
X PFIXWID
X {% ifelse
X dup
X ( )stringwidth PPOP exch
X SymbolFont1 SETFONT
X stringwidth PPOP
X div
X SymbolFont1 exch
X SCALEFN SETFONT PSHOW
X }
X {% else
X SymbolFont1 Size SCALEFN SETFONT PSHOW
X }
X ifelse
X SetFont
X }PBIND PDEF
X
X/ShowFold % Mark a folded line.
X {(\337)ShowSym}PBIND PDEF % Print a double down arrow.
X
X`/'PFLE % End of first line in folded lines.
X {% def
X ShowFold
X PSLE
X }PBIND PDEF
X
X`/'PMLE % End of middle line in folded lines.
X `/'PFLE PLOAD PDEF
X
X`/'PLLE % End of last line.
X `/'PSLE PLOAD PDEF
X
X`/'PPAGEB % Start of page.
X {% def
X /BodyFont1 PFONT PFNDFNT PDEF
X /HeadFont1 HEADFNT PFNDFNT PDEF
X /FootFont1 FOOTFNT PFNDFNT PDEF
X /LineNoFont1 PLNFNT PFNDFNT PDEF
X /SymbolFont1 SYMBFNT PFNDFNT PDEF
X XADJUST YADJUST translate
X PROTATE
X /BodyFont BodyFont1 BODYSIZ SCALEFN PDEF
X /FootFont FootFont1 PFOOTHT SCALEFN PDEF
X /HeadFont HeadFont1 PHEADHT SCALEFN PDEF
X /LineNoFont LineNoFont1 PLNHT SCALEFN PDEF
X /YBody PPAGEHT TMARGIN sub PHEADHT sub PDEF
X LMARGIN YBody moveto
X /YBody YBody TOPSKIP sub BODYSIZ sub PDEF
X /Font HeadFont PDEF
X /Size PHEADHT PDEF
X SetFont
X PHEADER
X LineNoFont SETFONT
X LMARGIN BMARGIN moveto
X Version PSHOW
X BuiltinEncoding PSHOW
X FootFont SETFONT
X PPAGEWD LMARGIN add RMARGIN sub PPAGES stringwidth PPOP sub 2 div BMARGIN
X moveto
X PPAGES PSHOW
X `/'PXCOORD LMARGIN PLNWID add PDEF
X /XIndent PXCOORD FOLDIND add PDEF
X /XLineNo LMARGIN PDEF
X `/'PYCOORD YBody PDEF
X /Font BodyFont PDEF
X /Size BODYSIZ PDEF
X SetFont
X }PDEF
X
X`/'PPAGEE % End of page.
X {
X restore showpage
X }PBIND PDEF
X
X`/'PUNDEF % Show unprintable character as a number
X {% def
X PFIXWID
X {% ifelse
X ShowHalf % Show character as half-width hex.
X }
X {% else
X (\341)ShowSmallSymbol % Left angle bracket.
X ShowSmall % State in decimal.
X (\361)ShowSmallSymbol % Right angle bracket.
X SetFont
X }
X ifelse
X }PBIND PDEF
END_OF_FILE
if test 4971 -ne `wc -c <'common.p4'`; then
echo shar: \"'common.p4'\" unpacked with wrong size!
fi
# end of 'common.p4'
fi
if test -f 'cz-news.b' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'cz-news.b'\"
else
echo shar: Extracting \"'cz-news.b'\" \(2108 characters\)
sed "s/^X//" >'cz-news.b' <<'END_OF_FILE'
X# cz-news - print news article on PostScript printer
X#
X# $Header: cz-news.b,v 1.3 89/08/19 11:19:44 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# a - code converter
X# c - codeset
X# f - from name
X# g - newsgroup (none for mail)
X# l - lpr command
X# o - options to cz0
X# p - options to lpr
X# s - subject
X# t - temporary file name
X# u - usage string
X
XCMDNAME=cz-news
Xexport CMDNAME
Xu="Usage: $CMDNAME [-columns] [-Pprinter] [-b body-size] [-c codeset] [-f] [-g newsgroup] [-h heuristic] [-l] [-n] < news-article"
Xa=cat
Xc='8859-1'
Xg=
Xo=
Xp=
Xt=/tmp/cz$$
Xwhile [ $# -ne 0 ]
Xdo
X case "x$1" in
X x-1) o="$o -Columns 1" ;;
X x-2) o="$o -Columns 2" ;;
X x-3) o="$o -Columns 3" ;;
X x-4) o="$o -Columns 4" ;;
X x-5) o="$o -Columns 5" ;;
X x-6) o="$o -Columns 6" ;;
X x-7) o="$o -Columns 7" ;;
X x-8) o="$o -Columns 8" ;;
X x-9) o="$o -Columns 9" ;;
X x-P*) p="$1"; o="$o -CommandFile cz$1" ;;
X x-b) o="$o -BodySize $2"; shift ;;
X x-c) c="$2"; shift ;;
X x-f) o="$o -FixedWidth true" ;;
X x-g) g="$2 "; shift ;;
X x-h) a="78$2"; shift ;;
X x-l) o="$o -AutoLandscape 0" ;;
X x-n) o="$o -LineNumberMultiple 0" ;;
X *) echo "$u" 1>&2; exit 1 ;;
X esac
X shift
Xdone
Xtouch $t
Xchmod 600 $t
X$a > $t
Xf=`get-header -f -i -w from < $t`
Xs=`get-header -i -w subject < $t`
Xcz0 -o "|$l $p" -CommandFile "$c" $o -Header "$g${f}: $s" -File $t
Xrm $t
END_OF_FILE
if test 2108 -ne `wc -c <'cz-news.b'`; then
echo shar: \"'cz-news.b'\" unpacked with wrong size!
fi
# end of 'cz-news.b'
fi
if test -f 'cz-rmail.el' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'cz-rmail.el'\"
else
echo shar: Extracting \"'cz-rmail.el'\" \(2186 characters\)
sed "s/^X//" >'cz-rmail.el' <<'END_OF_FILE'
X;; cz-rmail.el - RMAIL interface to cz(1)
X;;
X;; $Header: cz-rmail.el,v 1.1 89/08/04 17:11:31 howard Exp $
X;;
X;; Copyright 1989 Howard Lee Gayle
X;; This file is written in the ISO 8859/1 character set.
X;;
X;; $Header: cz-rmail.el,v 1.1 89/08/04 17:11:31 howard Exp $
X;;
X;; This program is free software; you can redistribute it and/or modify
X;; it under the terms of the GNU General Public License version 1,
X;; as published by the Free Software Foundation.
X;;
X;; This program is distributed in the hope that it will be useful,
X;; but WITHOUT ANY WARRANTY; without even the implied warranty of
X;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X;; GNU General Public License for more details.
X;;
X;; You should have received a copy of the GNU General Public License
X;; along with this program; if not, write to the Free Software
X;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X
X(require 'cz)
X(require 'rmail)
X
X(define-key rmail-mode-map "L" 'rmail-cz)
X
X(defun rmail-cz ()
X "Laser-print the current message."
X (interactive)
X (let (
X (b (point-min))
X (e (point-max))
X h ; Header
X )
X (save-excursion
X (save-restriction
X (widen)
X (goto-char (rmail-msgbeg rmail-current-message))
X (forward-line 1)
X (if (= (following-char) ?0)
X (narrow-to-region
X (progn (forward-line 2) (point))
X (progn
X (search-forward "\n\n"
X (rmail-msgend rmail-current-message) 'move)
X (point)
X )
X )
X (narrow-to-region (point)
X (progn
X (search-forward "\n*** EOOH ***\n")
X (beginning-of-line)
X (point)
X )
X )
X )
X (setq h (concat (cz-simple-from (mail-fetch-field "from")) ": "
X (or (and (mail-fetch-field "resent-reply-to" t)
X (mail-fetch-field "resent-subject" t))
X (mail-fetch-field "subject"))))
X )
X )
X (cz-region-1 (point-min) (point-max) h)
X )
X)
END_OF_FILE
if test 2186 -ne `wc -c <'cz-rmail.el'`; then
echo shar: \"'cz-rmail.el'\" unpacked with wrong size!
fi
# end of 'cz-rmail.el'
fi
if test -f 'cz.1' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'cz.1'\"
else
echo shar: Extracting \"'cz.1'\" \(7358 characters\)
sed "s/^X//" >'cz.1' <<'END_OF_FILE'
X.\" $Header: cz.1,v 2.9 89/08/29 10:14:52 howard Exp $
X.TH CZ 1 "$Revision: 2.9 $"
X.SH NAME
Xcz, cz-news \- print text files on PostScript printer
X.SH SYNOPSIS
X.B cz
X[
X.BI \- columns
X]
X[
X.BI \-P printer
X]
X[
X.B \-b
X.I bodysize
X]
X[
X.B \-c
X.I codeset
X]
X[
X.B \-f
X]
X.if t .ti +0.5i
X[
X.B \-h
X.I heuristic
X]
X[
X.B \-l
X]
X[
X.B \-n
X]
X.I filename \&.\|.\|.
X.LP
X.B cz-news
X[
X.BI \- columns
X]
X[
X.BI \-P printer
X]
X[
X.B \-b
X.I bodysize
X]
X[
X.B \-c
X.I codeset
X]
X[
X.B \-f
X]
X[
X.B \-g
X.I newsgroup
X]
X.if t .ti +0.5i
X[
X.B \-h
X.I heuristic
X]
X[
X.B \-l
X]
X[
X.B \-n
X]
X<
X.I article
X.SH COPYRIGHT
XCopyright \(co 1989 Howard Lee Gayle
X.SH DESCRIPTION
X.I Cz
Xprints one or more files on a PostScript printer.
XEach page has a header produced by running
X.RB ls " \-l"
Xon the file.
X.I Cz-news
Xprints its standard input on a PostScript printer.
XEach page has a header produced by concatenating the
X.IR newsgroup ,
X.IR from ,
Xand
X.I subject
Xfields.
XThe
X.I newsgroup
Xoption may be omitted for mail messages.
X.SH OPTIONS
X.nr xx (\w'\-b newsgroup'u+2n)/1n
X.TP \n(xx
X.BI \- n
XProduce
X.IR n -column
Xoutput.
XThe default is 1.
X.TP
X.BI \-P p
XSpool the output on printer
X.IR p ,
Xand search for a
X.I .rc
Xfile named
X.RI cz-P p .rc.
XThis option is passed to
X.IR lpr (1).
XThe default is not to pass a
X.B \-P
Xoption to
X.IR lpr .
X.TP
X.BI \-b " bodysize"
XUse
X.I bodysize
Xfor the size of the body font.
XIt must be given in units that
X.IR cz0 (1)
Xcan handle.
XThe default is 11.0bp.
X.TP
X.BI \-c " codeset"
XThe files are assumed to be in the given
X.IR codeset .
XThe choices appear below.
XThe default is 8859-1.
X.TP
X.B \-f
XUse a fixed-width font.
XThe default is to use a variable-width font.
XThe default fonts are Times-Roman (variable-width) and Courier
X(fixed-width).
X.TP
X.BI \-g " newsgroup"
XThis option applies only to
X.IR cz-news .
XThe
X.I newsgroup
Xis prepended to the header.
X.TP
X.BI \-h " heuristic"
XApply the given
X.I heuristic
Xto the files before printing them.
XThe choices appear below.
XThe default is not to apply a heuristic.
X.TP
X.B \-l
XUse landscape mode.
XThe default is to use portrait mode.
X.TP
X.B \-n
XDo not print line numbers.
XThe default is to print line numbers every five lines.
X.SH CODESETS
X.nr xx (\w'8859-1'u+2n)/1n
X.TP \n(xx
X.B 8859-1
XISO 8859/1 (Latin-1).
X.TP
X.B de
XISO 8859/1, except that square brackets, backslash,
Xcurly braces, vertical line, and tilde are replaced by
Xthe corresponding characters from the German national version
Xof ISO 646.
X(Note that dollar sign and commercial at are unchanged.)
X.TP
X.B dk
XISO 8859/1, except that
Xsquare brackets,
Xbackslash,
Xcurly braces,
Xand
Xvertical line
Xare replaced by the corresponding characters from the
XDanish
Xnational version of ISO 646.
X(Note that
Xdollar sign,
Xcommercial at,
Xcircumflex,
Xgrave accent,
Xand
Xtilde
Xare unchanged.)
X.TP
X.B es
XISO 8859/1, except that square brackets, backslash,
Xcurly braces, and vertical line are replaced by
Xthe corresponding characters from the Spanish national version
Xof ISO 646.
X(Note that dollar sign, commercial at, circumflex, grave
Xaccent, and tilde are unchanged.)
X.TP
X.B fr
XISO 8859/1, except that square brackets, backslash,
Xleft curly brace, vertical line, and tilde are replaced by
Xthe corresponding characters from the French national version
Xof ISO 646.
X(Note that dollar sign, commercial at, circumflex, grave
Xaccent, and right curly brace are unchanged.)
X.TP
X.B se
XISO 8859/1, except that
Xsquare brackets, backslash,
Xgrave accent, curly braces, and vertical line
Xare replaced by
Xthe corresponding characters from the Swedish national version
Xof ISO 646.
X(Note that dollar sign, commercial at, circumflex, and tilde are unchanged.)
X.TP
X.B uk
XISO 8859/1, except that number sign prints as pound (sterling)
Xsign.
X.TP
X.B T-61
XThe CCITT T.61 (Teletex) character set.
X.SH HEURISTICS
X.nr xx (\w'seus'u+2n)/1n
X.TP \n(xx
X.B dkus
XCall
X.IR
X78dkus (1)
Xto convert a mixture of Danish and US English in ISO 646 to ISO 8859/1.
X.TP
X.B seus
XCall
X.IR
X78seus (1)
Xto convert a mixture of Swedish and US English in ISO 646 to ISO 8859/1.
X.SH EXAMPLES
XFile
X.I foo
Xcontains text in ISO 8859/1.
XPrint it in two-column landscape format with a 10 big-point
Xbody font and no line numbers on printer
X.IR lazer:
X.nf
X cz \-2 \-Plazer \-b 10.0bp \-l \-n foo
X.fi
X.PP
XFile
X.I swascii
Xcontains text in the Swedish national version of ISO 646.
XPrint it in a fixed-width font:
X.nf
X cz \-c se \-f swascii
X.fi
X.SH "MAILTOOL INTERFACE"
XIf you read mail with
X.IR mailtool (1)
Xon a Sun, you can set the
X.I printmail
Xvariable in your
X.I .mailrc
Xfile to
X.RI "cz-news \-h " heuristic .
XThis
Xwill print the current message when you click the
Xprint button.
X.SH "RN AND RRN INTERFACE"
XIf you read news with
X.IR rn (1)
Xor
X.IR rrn (1),
Xyou can define macros in your
X.I .rnmac
Xfile to run
X.IR cz-news .
XFor example,
X.nf
X @c s\||\|cz-news \-g %C.%a\er
X @s s\||\|cz-news \-g %C.%a \-h seus\er
X.fi
XThe @c macro is for ISO 8859/1 and the @s macro for Swedish.
XThe macros are typed at the article selection level,
X.I e.g.
X.nf
X End of article 310 (of 316)--what next? [npq] @s
X.fi
X.SH FILES
X(All paths starting with ./ are relative to the directory in which
X.I cz
Xis installed.)
X.DT
X.nf
X\&./bin/78???? \- heuristics
X\&./lib/8859-1.rc \- command file for ISO 8859/1
X\&./lib/8859-1.ps \- PostScript for ISO 8859/1
X\&./lib/T-61.rc \- command file for CCITT T.61
X\&./lib/T-61.ps \- PostScript for CCITT T.61
X\&./lib/common.ps \- PostScript for ISO 8859/1 and CCITT T.61
X\&./lib/de.rc \- command file for German ISO 646
X\&./lib/dk.rc \- command file for Danish ISO 646
X\&./lib/es.rc \- command file for Spanish ISO 646
X\&./lib/fr.rc \- command file for French ISO 646
X\&./lib/se.rc \- command file for Swedish ISO 646
X\&./lib/uk.rc \- command file for UK ISO 646
X/tmp/cz* \- temporary files
X.fi
X.SH "SEE ALSO"
X.IR 78 (1),
X.IR cz0 (1),
X.IR get-header (1),
X.IR lpr (1).
X.SH BUGS
XOnly the dk and se character sets are based on a study
Xof real mail messages and news articles.
XThe others are just guesses, but they're easy to change.
X.PP
XThe implementation of the CCITT T.61 character set is
Xincomplete and buggy.
XOnly (almost all) the graphic characters are implemented; the
Xcontrol characters are from ASCII, not T.61.
XAll graphic characters are displayed except capital eng, Lapp.
XHowever, some of them are PostScript kludges.
XThese are not actually fixed width when printed with a
Xfixed-width font.
XNon-spacing underline does not work.
XThe T.61 implementation can be used as a starting point for ISO
X8859/2, etc.
X.SH LICENSE
XThis program is free software; you can redistribute it and/or modify
Xit under the terms of the GNU General Public License version 1,
Xas published by the Free Software Foundation.
X.PP
XThis program is distributed in the hope that it will be useful,
Xbut WITHOUT ANY WARRANTY; without even the implied warranty of
XMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
XGNU General Public License for more details.
X.PP
XYou should have received a copy of the GNU General Public License
Xalong with this program; if not, write to the Free Software
XFoundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X.SH AUTHOR
XHoward Gayle,
XTN/ETX/T/BG,
XEricsson Telecom AB,
XS-126 25 Stockholm,
XSweden,
Xhoward@ericsson.se,
Xuunet!ericsson.se!howard,
XPhone: +46 8 719 5565,
XFAX: +46 8 719 9598,
XTelex: 14910 ERIC S
X.SH TRADEMARKS
XPostScript is a trademark of Adobe Systems, Incorporated.
XTimes is a trademark of Allied Corporation.
END_OF_FILE
if test 7358 -ne `wc -c <'cz.1'`; then
echo shar: \"'cz.1'\" unpacked with wrong size!
fi
# end of 'cz.1'
fi
if test -f 'cz.b' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'cz.b'\"
else
echo shar: Extracting \"'cz.b'\" \(2216 characters\)
sed "s/^X//" >'cz.b' <<'END_OF_FILE'
X# cz - print text files on PostScript printers
X#
X# $Header: cz.b,v 1.2 89/08/08 08:12:43 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X#
X# Shell variables:
X# a - code converter
X# c - codeset
X# f - file name
X# i - temporary file suffix number
X# l - lpr command
X# o - options to cz0
X# p - options to lpr
X# t - temporary file name
X# u - usage string
X
XCMDNAME=cz
Xexport CMDNAME
Xu="Usage: $CMDNAME [-columns] [-Pprinter] [-b body-size] [-c codeset] [-f] [-h heuristic] [-l] [-n] {file}"
Xa=
Xc='8859-1'
Xi=0
Xo=
Xp=
Xt=/tmp/cz$$
Xwhile true
Xdo
X case "x$1" in
X x-1) o="$o -Columns 1" ;;
X x-2) o="$o -Columns 2" ;;
X x-3) o="$o -Columns 3" ;;
X x-4) o="$o -Columns 4" ;;
X x-5) o="$o -Columns 5" ;;
X x-6) o="$o -Columns 6" ;;
X x-7) o="$o -Columns 7" ;;
X x-8) o="$o -Columns 8" ;;
X x-9) o="$o -Columns 9" ;;
X x-P*) p="$1"; o="$o -CommandFile cz$1" ;;
X x-b) o="$o -BodySize $2"; shift ;;
X x-c) c="$2"; shift ;;
X x-f) o="$o -FixedWidth true" ;;
X x-h) a="78$2 -f"; shift ;;
X x-l) o="$o -AutoLandscape 0" ;;
X x-n) o="$o -LineNumberMultiple 0" ;;
X x-*) echo "$u"; exit 1 ;;
X *) break ;;
X esac
X shift
Xdone
Xif [ $# -eq 0 ]
Xthen
X echo "$u" 1>&2
X exit 1
Xfi
Xtouch $t
Xfor f
Xdo
X echo "Header `ls -l $f`" >> $t
X if [ "$a" ]
X then
X i=`expr 1 + $i`
X touch /tmp/cz$$$i
X $a < $f > /tmp/cz$$$i
X echo "File /tmp/cz$$$i" >> $t
X else
X echo "File $f" >> $t
X fi
Xdone
Xcz0 -o "|$l $p" -CommandFile "$c" $o -CommandFile - < $t
Xrm /tmp/cz$$*
END_OF_FILE
if test 2216 -ne `wc -c <'cz.b'`; then
echo shar: \"'cz.b'\" unpacked with wrong size!
fi
# end of 'cz.b'
fi
if test -f 'cz.el' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'cz.el'\"
else
echo shar: Extracting \"'cz.el'\" \(2878 characters\)
sed "s/^X//" >'cz.el' <<'END_OF_FILE'
X;; cz.el - GNU Emacs interface to cz(1)
X;;
X;; Copyright 1989 Howard Lee Gayle
X;; This file is written in the ISO 8859/1 character set.
X;;
X;; $Header: cz.el,v 1.1 89/08/04 17:11:36 howard Exp $
X;;
X;; This program is free software; you can redistribute it and/or modify
X;; it under the terms of the GNU General Public License version 1,
X;; as published by the Free Software Foundation.
X;;
X;; This program is distributed in the hope that it will be useful,
X;; but WITHOUT ANY WARRANTY; without even the implied warranty of
X;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X;; GNU General Public License for more details.
X;;
X;; You should have received a copy of the GNU General Public License
X;; along with this program; if not, write to the Free Software
X;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X
X(defvar cz-CommandFile "8859-1" "*Command file for cz.")
X(defvar cz-FixedWidth nil
X "*Controls whether cz uses a fixed-width or a variable-width font.
Xfalse = variable, true = fixed, nil = default.")
X(defvar cz-output "|lpr" "*cz output stream.")
X(defvar cz-AutoLandscape nil "*Set to 0 for landscape mode.")
X
X(defun cz-buffer ()
X "Laser-print buffer contents."
X (interactive)
X (cz-region-1 (point-min) (point-max)
X (concat "Emacs buffer: " (buffer-name)))
X)
X
X(defun cz-region (start end)
X "Laser-print region contents."
X (interactive "r")
X (cz-region-1 start end (concat "Emacs buffer: " (buffer-name)))
X)
X
X(defun cz-region-1 (start end header)
X "Run cz0 on region from START to END.
X Pass HEADER to cz0."
X (let (
X a ; Argument list to call-process-region
X (b (get-buffer-create "*cz*"))
X (c (current-buffer))
X )
X (message "Spooling...")
X (set-buffer b)
X (erase-buffer)
X (buffer-flush-undo b)
X (set-buffer c)
X (setq a (list start end "cz0" nil b nil
X "-o" cz-output
X "-TabWidth" (int-to-string tab-width)))
X (if cz-CommandFile (setq a (nconc a
X (list "-CommandFile" cz-CommandFile))))
X (if cz-AutoLandscape (setq a (nconc a
X (list "-AutoLandscape" cz-AutoLandscape))))
X (if cz-FixedWidth (setq a (nconc a (list "-FixedWidth" cz-FixedWidth))))
X (setq a (nconc a (list "-Header" header "-File" "-")))
X (apply 'call-process-region a)
X (message "Spooling...done")
X )
X)
X
X(defun cz-simple-from (f)
X "Try to extract the real name from a mail or news From: field."
X (cond
X ((string-match "\"\\(..*\\)\"" f)
X (substring f (match-beginning 1) (match-end 1)))
X ((string-match "(\\(..*\\))" f)
X (substring f (match-beginning 1) (match-end 1)))
X ((string-match "\\(.*[^ ]\\) *<.*>" f)
X (substring f (match-beginning 1) (match-end 1)))
X (t f)
X )
X)
X
X(provide 'cz)
END_OF_FILE
if test 2878 -ne `wc -c <'cz.el'`; then
echo shar: \"'cz.el'\" unpacked with wrong size!
fi
# end of 'cz.el'
fi
if test -f 'cz.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'cz.h'\"
else
echo shar: Extracting \"'cz.h'\" \(1710 characters\)
sed "s/^X//" >'cz.h' <<'END_OF_FILE'
X/*
X * cz.h - include file for cz system
X *
X * Copyright 1989 Howard Lee Gayle
X *
X * $Header: cz.h,v 1.3 89/08/17 18:49:04 howard Exp $
X *
X * This program is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License version 1,
X * as published by the Free Software Foundation.
X *
X * This program is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X *
X * Prerequisites: howard/port.h howard/registers.i.
X */
X
X#define COMMENT ';' /* Comment to end of line.*/
X#define CZPATH "CZ_PATH" /* Environment variable for search path.*/
X#define PATHSEP ':' /* Separates path components.*/
X
XPRIVATE bStrT path; /* Search path for trigram tables.*/
Xextern cStrT getenv(); /* (3).*/
X
X/* ipath - initialize path */
X
XPUBLIC void ipath()
X
X/* Function:
X * Initialize path to the search path for the cz system.
X * Algorithm:
X * The value of the CZ_PATH environment variable overrides the default.
X * Returns:
X *
X * Notes:
X * 1) A big static area is reserved for the default path to make it
X * easy to patch this value in an executable.
X */
X{
XR1 bStrT p; /* Returned by getenv (3).*/
Xstatic byteT defpath[MFILE] = DEFPATH; /* Default search path.*/
X
Xp = (bStrT) getenv (CZPATH);
Xpath = (((NULBSTR == p) || (EOS == B(*p))) ? defpath : p);
X}
END_OF_FILE
if test 1710 -ne `wc -c <'cz.h'`; then
echo shar: \"'cz.h'\" unpacked with wrong size!
fi
# end of 'cz.h'
fi
if test -f 'cz0-init.h' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'cz0-init.h'\"
else
echo shar: Extracting \"'cz0-init.h'\" \(1895 characters\)
sed "s/^X//" >'cz0-init.h' <<'END_OF_FILE'
X/*
X * cz0-init.h - Some initializations for cz0.
X *
X * Copyright 1989 Howard Lee Gayle
X *
X * $Header: cz0-init.h,v 1.1 89/08/17 15:10:10 howard Exp $
X *
X * This program is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License version 1,
X * as published by the Free Software Foundation.
X *
X * This program is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X *
X * These are in a separate include file to make it easier to change
X * them at different sites, it that's what's really wanted.
X */
X
XReverse = TRUE;
Xparam0.BMargL = MM (15.0);
Xparam0.BMargP = MM (15.0);
Xparam0.BodySiz = 11.0;
Xparam0.BSkip = MM (10.0);
Xparam0.Columns = 1;
Xparam0.ColSep = MM (5.0);
Xparam0.FWFont = S ("Courier");
Xparam0.FixWid = FALSE;
Xparam0.FoldFst = MOCOL;
Xparam0.FoldInd = MM (15);
Xparam0.FoldRst = MOCOL;
Xparam0.FootFnt = S("Times-Roman");
Xparam0.FootHt = 11.0;
Xparam0.HeadFnt = S("Helvetica-Bold");
Xparam0.HeadHt = 12.0;
Xparam0.LandRot = 90;
Xparam0.LMargL = MM (10.0);
Xparam0.LMargP = MM (10.0);
Xparam0.LNFnt = S("Times-Roman");
Xparam0.LNHt = 5.0;
Xparam0.LNMult = 5;
Xparam0.LNWid = MM (5.0);
Xparam0.PageHt = MM (297.0);
Xparam0.PageWid = MM (210.0);
Xparam0.RMargL = MM (11.0);
Xparam0.RMargP = MM (11.0);
Xparam0.Spacing = 1.0;
Xparam0.SymbFnt = S("Symbol");
Xparam0.TabWid = 8;
Xparam0.TMargL = MM (15.0);
Xparam0.TMargP = MM (15.0);
Xparam0.TSkip = MM (10.0);
Xparam0.TxtVert = FALSE;
Xparam0.VWFont = S("Times-Roman");
Xparam0.XAdjust = 0.0;
Xparam0.YAdjust = 0.0;
END_OF_FILE
if test 1895 -ne `wc -c <'cz0-init.h'`; then
echo shar: \"'cz0-init.h'\" unpacked with wrong size!
fi
# end of 'cz0-init.h'
fi
if test -f 'de.rc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'de.rc'\"
else
echo shar: Extracting \"'de.rc'\" \(1668 characters\)
sed "s/^X//" >'de.rc' <<'END_OF_FILE'
X; de.rc - Character remappings for German ISO 646
X;
X; Copyright 1989 Howard Lee Gayle
X; This file is written in the ISO 8859/1 character set.
X;
X; $Header: de.rc,v 1.1 89/08/04 17:11:38 howard Exp $
X;
X; This program is free software; you can redistribute it and/or modify
X; it under the terms of the GNU General Public License version 1,
X; as published by the Free Software Foundation.
X;
X; This program is distributed in the hope that it will be useful,
X; but WITHOUT ANY WARRANTY; without even the implied warranty of
X; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X; GNU General Public License for more details.
X;
X; You should have received a copy of the GNU General Public License
X; along with this program; if not, write to the Free Software
X; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X;
X; $ is not converted because it almost always means US
X; dollars, not general currency sign. @ is not converted
X; because it is more likely to be an at sign in a mail address
X; than an E with acute accent. Tilde is more likely to be a
X; tilde in a path name (~howard/foo) than a u with umlaut.
X
X;Octet0.8#044# +(\244 ; $ -> general currency sign
X;Octet0.8#100# +(\311 ; @ ->
X Octet0.8#133# +(\304 ; [ -> capital A with diaeresis or umlaut mark.
X Octet0.8#134# +(\326 ; \ -> capital O with diaeresis or umlaut mark.
X Octet0.8#135# +(\334 ; ] -> capital U with diaeresis or umlaut mark.
X Octet0.8#173# +(\344 ; { -> small a with diaeresis or umlaut mark.
X Octet0.8#174# +(\366 ; | -> small o with diaeresis or umlaut mark.
X Octet0.8#175# +(\345 ; } -> small a with ring.
X Octet0.8#176# +(\337 ; ~ -> small sharp s, German.
XCommandFile 8859-1
END_OF_FILE
if test 1668 -ne `wc -c <'de.rc'`; then
echo shar: \"'de.rc'\" unpacked with wrong size!
fi
# end of 'de.rc'
fi
if test -f 'dk.rc' -a "${1}" != "-c" ; then
echo shar: Will not clobber existing file \"'dk.rc'\"
else
echo shar: Extracting \"'dk.rc'\" \(1808 characters\)
sed "s/^X//" >'dk.rc' <<'END_OF_FILE'
X; dk.rc - Character remappings for DANSCII.
X;
X; Copyright 1989 Howard Lee Gayle
X; This file is written in the ISO 8859/1 character set.
X;
X; $Header: dk.rc,v 1.2 89/08/27 10:51:43 howard Exp $
X;
X; This program is free software; you can redistribute it and/or modify
X; it under the terms of the GNU General Public License version 1,
X; as published by the Free Software Foundation.
X;
X; This program is distributed in the hope that it will be useful,
X; but WITHOUT ANY WARRANTY; without even the implied warranty of
X; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X; GNU General Public License for more details.
X;
X; You should have received a copy of the GNU General Public License
X; along with this program; if not, write to the Free Software
X; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X;
X; DANSCII is an informal name for the Danish national
X; variants of ISO 646.
X; $ is not converted because it almost always means US
X; dollars, not general currency sign. @ is not converted
X; because it is more likely to be an at sign in a mail address
X; than an E with acute accent. Tilde is more likely to be a
X; tilde in a path name (~howard/foo) than a u with umlaut.
X
X;Octet0.8#044# +(\244 ; $ -> general currency sign
X;Octet0.8#100# +(\311 ; @ -> capital E with acute accent
X Octet0.8#133# +(\306 ; [ -> capital AE diphthong
X Octet0.8#134# +(\330 ; \ -> capital O with slash
X Octet0.8#135# +(\305 ; ] -> capital A with ring.
X;Octet0.8#136# +(\334 ; ^ -> capital U with diaeresis or umlaut mark.
X;Octet0.8#140# +(\351 ; ` -> small e with acute accent.
X Octet0.8#173# +(\346 ; { -> small ae diphthong
X Octet0.8#174# +(\370 ; | -> small o with slash
X Octet0.8#175# +(\345 ; } -> small a with ring.
X;Octet0.8#176# +(\374 ; ~ -> small u with diaeresis or umlaut mark.
XCommandFile 8859-1
END_OF_FILE
if test 1808 -ne `wc -c <'dk.rc'`; then
echo shar: \"'dk.rc'\" unpacked with wrong size!
fi
# end of 'dk.rc'
fi
echo shar: End of archive 5 \(of 14\).
cp /dev/null ark5isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 ; do
if test ! -f ark${I}isdone ; then
MISSING="${MISSING} ${I}"
fi
done
if test "${MISSING}" = "" ; then
echo You have unpacked all 14 archives.
rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
echo You still need to unpack the following archives:
echo " " ${MISSING}
fi
## End of shell archive.
exit 0