blob: 02ecd5b85eb9ea24359553019ba59db6b6741ca8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
% File: grmode.sty
% Requirements: LaTeX based on plain TeX 3.0 or later.
%
% Oct 13, 1991.
%
% Purpose: grmode.sty is a latex include file used in conjuctio with
% the grlatex package (format lgreek, and files lgreek.tex,
% grfonts.tex, greek.sty)
% This file switches grlatex to a global greek mode. A latin mode is defined
% to access the original latex mode. It is intended as a header file for
% grlatex style files for typesetting greek texts. (e.g. grarticle,
% grbook etc.)
% Note that this file can used under normal latex with the use of
% the macro definitions greek.sty. The only problem is the lack of hyphenation
% patterns for greek in that case.
%
% Copyright (C) 1991-1992 by K J Dryllerakis (kd@doc.ic.ac.uk)
%
% First of all we make sure that the greek macros for KD fonts
% are loaded.
%
\ifx\gr@@kformatloaded\relax
\else
\input greek.sty
\fi
%
% We need to enter a global greek mode, i.e. define the new catcodes and
% default language
%
\let\~=~ % Save the meaning of ~
\gr@@km@de % Load the catcode definitions for greek mode
\language\greek % Switch to greek Hyphenation patterns
%
% Remember: We need to inverse the greek-latin modes.
% This means redefinition of certain things:
%
% I. create a latin environment
% Inside the environemnt everything is like in the standard LaTeX Mode
%
\newenvironment{latin}{\language0\l@tinm@de%
\t@f@m\t@f@nt\ignorespaces}%
{\xdef\t@f@nt{\the\font}\xdef\t@f@m{\noexpand\fam\the\fam}}
\gdef\t@f@nt{\rm}
\gdef\t@f@m{\fam0}
%
% Redifine the set greek macro to point to latin instead of greek
%
\gdef\@setgr@@k{\gdef\t@f@nt{\rm}\ifnum\language=\greek\gr\else\rm\fi}
%
% Finally we need to redifine the today macro
%
\def\today{\number\day\space \ifcase\month\or
Ianouar'iou\or Febrouar'iou\or Mart'iou\or April'iou\or Ma'iou\or Ioun'iou\or
Ioul'iou\or Augo'ustou\or Septembr'iou\or Oktwbr'iou\or Noembr'iou\or
Dekembr'iou\fi\space \number\year}
\endinput
% End of file grmode.sty
|
