home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / text / tex / 10359 < prev    next >
Encoding:
Internet Message Format  |  1992-08-19  |  4.6 KB
  1. Path: sparky!uunet!gatech!bloom-beacon!eru.mt.luth.se!lunic!sunic!aun.uninett.no!nuug!nntp.uio.no!hfmac15.uio.no!user
  2. From: olems@ulrik.uio.no (Ole Michael Selberg)
  3. Newsgroups: comp.text.tex
  4. Subject: Re: german quotation marks in TeX ?
  5. Message-ID: <olems-200892122110@hfmac15.uio.no>
  6. Date: 20 Aug 92 11:21:05 GMT
  7. References: <451@muller.loria.fr>
  8. Sender: news@ulrik.uio.no (Mr News)
  9. Followup-To: comp.text.tex
  10. Organization: Oslo University
  11. Lines: 110
  12. Nntp-Posting-Host: hfmac15.uio.no
  13.  
  14. In article <451@muller.loria.fr>, roegel@loria.fr (Roegel Denis) wrote:
  15. > 
  16. > Hi all,
  17. > 
  18. > This is a very easy question. I would like to typeset the german quotation
  19. > marks, the first beeing left down, the last up and right. 
  20. >  
  21. > It looks something like         
  22. >                            Hallo"
  23. >                           "
  24. > I could of course use " and lower it to get the left mark, but I wonder if
  25. > this has already been defined, especialley by german TeXnicians. All what I 
  26. > found was to use `` and '' within the Fraktur font defined by Haramboulis.
  27. > Is there a better solution ?
  28. > 
  29.  
  30. % You can obtain ,, with the following definition:
  31.  
  32. \def\anf{\leavevmode\setbox0=\hbox{\lower1.38ex\hbox{''}}\ht0=0pt % 
  33.    \dp0=0pt \box0}
  34.  
  35. % You may want to do some additional kerning, since the 
  36. % supposes `` to be an opening quote (Anfuehrungszeichen) and '' a closing
  37. % quote (Abfuehrungszeichen), whereas in German it's the other way around.
  38. % This makes the spacing slightly wrong (it's almost imperceptible,
  39. though!).
  40.  
  41. % Personally, I think you'd get a better result using guillemets
  42. % (i.e. >>Hallo<< instead of ,,Hallo```).
  43. % These are the macros I've written myself to be able to combine
  44. % PS guillmets, taken from Times, with Computer Modern Roman
  45. % (\ti is TimesItalic, \tb -- TimesBold etc, which are supposed to be
  46. defined 
  47. % by \font in the usual way; \ab yields `<<', \as yields `>>', \hab yields
  48. `<'
  49. % /initial half quote/, \has yields `>' /final half quote/):
  50. %%
  51. %% Guillemet definitions:
  52. %%
  53.   \def\ab{\leavevmode\ifnum\fam=\itfam\abit\else%
  54.        \ifnum\fam=\bffam\abbf\else\ifnum\fam=\slfam\absl\else%
  55.                \abrm\fi\fi\fi}%
  56.            \def\abit{{\ti\char171}\kern-0.1em}%  
  57.            \def\absl{{\ts\lower0.05em\hbox{\char171}}}%
  58.            \def\abbf{{\tb\char171}}%
  59.            \def\abrm{{\tr\lower0.05em\hbox{\char171}}}%
  60.   \def\as{\leavevmode\ifnum\fam=\itfam\asit\else%
  61.        \ifnum\fam=\bffam\asbf\else\ifnum\fam=\slfam\assl\else%     
  62.                \asrm\fi\fi\fi}%
  63.            \def\asit{{\ti\char187}}%
  64.            \def\assl{{\ts\lower0.05em\hbox{\char187}}}%  
  65.            \def\asbf{{\tb\char187}}%
  66.            \def\asrm{{\tr\lower0.05em\hbox{\char187}}}%
  67.   \def\hab{\leavevmode\ifnum\fam=\itfam\habit\else%
  68.        \ifnum\fam=\bffam\habbf\else\ifnum\fam=\slfam\habsl\else%
  69.               \habrm\fi\fi\fi}%
  70.            \def\habit{{\ti\char172}}%  
  71.            \def\habsl{{\ts\char172}}%
  72.            \def\habbf{{\tb\char172}}%
  73.            \def\habrm{{\tr\char172}}%
  74.    \def\has{\leavevmode\ifnum\fam=\itfam\hasit\else%
  75.        \ifnum\fam=\bffam\hasbf\else\ifnum\fam=\slfam\hassl\else
  76.               \hasrm\fi\fi\fi}
  77.            \def\hasit{{\ti\char173}}%
  78.            \def\hassl{{\ts\char173}}%  
  79.            \def\hasbf{{\tb\char173}}%
  80.            \def\hasrm{{\tr\char173}}%
  81.            
  82. % To simplify my work, I make " and * active, so that I can
  83. % input: 
  84. %           Han sa: "Jeg har avbestilt *Aftenposten*." 
  85. % and have it apprear like this in my output:
  86. %           Han sa: <<Jeg har avbestilt <Aftenposten>.>>
  87. % For this, I use the following macros:
  88.  
  89. %%
  90. %% Definitions for simplified input of quotes:
  91. %%
  92. \newcount\quoteflag \newcount\quotecount 
  93. \newcount\hquoteflag  \newcount\hquotecount
  94. \def\star{*}
  95. \catcode`\"=\active
  96. \catcode`\*=\active
  97. \def"{\ifnum\quoteflag=0 \ab\global\quoteflag=1
  98.        \else\as\global\quoteflag=0 \fi \global\advance\quotecount by1}
  99. \def*{\ifnum\hquotecount=0 \hab\global\hquoteflag=1
  100.        \else\has\global\hquoteflag=0 \fi\global\advance\hquotecount by1}
  101. \def\quotetest{\ifodd\quotecount\immediate\write16{!! Uneven number of
  102. quotes.}\fi
  103.      \ifodd\hquotecount\immediate\write16{!! Uneven number of half
  104. quotes.}\fi}
  105.       
  106. % The macro \quotetest can be used within other macros, e.g. chapter
  107. macros,
  108. % to alert you of non-matching quotes.
  109.  
  110. % NB: If you want to use the above definitions for German, you should let
  111. % \ab and \hab exchange places with \as and \has, so that
  112. %         "Ich verstehe nicht", sagte sie
  113. % yields
  114. %         >>Ich verstehe nicht<<, sagte sie
  115. % according to the rules of German standard typography (except in
  116. Switzerland).
  117.  
  118.  
  119. Ole Michael Selberg
  120. Institutt for oesteuropeiske og orientalske studier
  121. Universitetet i Oslo
  122. Postboks 1030 Blindern
  123. N-0315 Oslo 3
  124.