summaryrefslogtreecommitdiff
path: root/macros/generic/c_pascal/cap_pyt.tex
blob: a15f89db62007c607e8186edf008941aa922eddb (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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% PCAP  ---  Macros for typesetting programs in Python, C and Pascal%
%       Micha\l{} Gulczy\'nski, Szczecin, Feb 1997 / Feb 1998       %
%                     mgulcz@we.tuniv.szczecin.pl                   %
% Python support: Danilo \v Segan, Beograd, Sep 2002                %
%                 mm01142@alas.matf.bg.ac.yu                        %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%  version 1.2p
%    Creation steps:
%      1. cp cap_pas.tex cap_pyt.tex
%      2. replace every occurence of "Pascal" with "Python"
%      3. Define keywords using ones defined in "python-mode.el"
%      4. Modify to support Python strings and comments
%  version 1.2
%    This file contains macros for typesetting programs in Pascal.
%    It belongs to the CAP package. Do not distribute separately.
%
%    All font definitions are located in the cap_comm.tex file.
%

%
%      set of keywords; they must be separated with spaces
%      a space must precede the first one and follow the last one, too
%
\def\KeywordsPython{
and assert break class continue def del elif else except exec for
from global if import in is lambda not or pass print raise return
while yield else except finally try
}
\catcode`\@ = 11
%
%      that's where we begin
%
\def\BeginPython{%
  \@PrepareCPas
  \@LetsStartPython
}%
% Some people in Poland use so-called ``slash notation''
% to represent certain Polish letters --- in this situation
% slash is an active character. On the other hand we use slash
% in pathnames: directory/subdirectory/file. I made this part
% sooo complicated, bacause I had to neutralise slash in
% \InputPascal.
\def\@InputPython#1{%
  \message{(Python: #1}%
  \openin\@InFile = #1
  \@PrepareCPas
  % The file is read line by line and each line is typeset
  % just like a separate program. Therefore the size of program
  % typeset using this macro is (almost) unlimited.
  \loop
    \global\read\@InFile to \@TextOfProgram
    \@WriteTextOfProgramPython
  \if \neof\@InFile \repeat
  \closein\@InFile
  \endgroup    % this group was begun by \@PrepareCPas
  \endgroup    % this group was begun by \InputPascal
  \message{)}%
}
\def\InputPython{%
  \begingroup
  \catcode`\/ = 11
  \@InputPython
}%
%
%      delimiter \EndC will be ordinary text
%
{ \catcode`\|=0   \catcode`\\=12
  |gdef|@LetsStartPython#1\EndPython{%
    |gdef|@TextOfProgram{#1}%
    |@WriteTextOfProgramPython
    |endgroup    % this group was begun by \@PrepareCPas
  }
}
%
%      macro \@TextOfProgram contains the whole text of program
%
\def\@WriteTextOfProgramPython{%
  \expandafter\@ReadCharPython\@TextOfProgram\@EndOfProgram
}
%
%      heart of the program -- the argument is a single char
%
\def\@ReadCharPython#1{%
  % this macro calls itself until the argument #1 is \@EndOfProgram
  \if\@Identical{\string#1}{\string\@EndOfProgram}%
    \let\@WhatNext = \relax
  \else
    \let\@WhatNext = \@ReadCharPython
    \global\@CharCode = `#1\relax
    \ifcase \@WhereAmI
      %%%%%%%%%%%%%%%%%%%
      % \@NothingSpecial:
      %%%%%%%%%%%%%%%%%%%
      \ifnum \@PrevChar=`\(
%        \ifnum \@CharCode=`\*
%          \global\@WhereAmI = \@LongComment
%          \@CommentState
%        \fi
        \@SymbolState\@Output{(}%
      \fi
      % the longest possible string containing only letters and digits
      % is either a keyword or an identifier
      \if\@DigitLetter{\@CharCode}%
        \edef\@Word{\@Word#1}%
      \else
        \if\@Identical{\@Word}{}%
        \else
          \@WriteWord{\@Word}{\KeywordsPython}%
          \def\@Word{}%
        \fi
        \ifnum \@CharCode=`\#
          \global\@WhereAmI = \@ShortComment
          \@CommentState
        \fi
	\ifnum \@CharCode=`\"
	  \global\@WhereAmI = \@Text
	  \@TextState
	\fi
        \ifnum \@CharCode=`\(
        \else
          \@WriteChar{#1}%
        \fi
      \fi
    \or
      %%%%%%%%%
      % \@Text:
      %%%%%%%%%
      \@WriteChar{#1}%
      \ifnum \@CharCode=`\"
        \global\@WhereAmI = \@NothingSpecial
        \@SymbolState
      \fi
    \or
      %%%%%%%%%%%%%%
      % \@Directive:
      %%%%%%%%%%%%%%
      % there are no directives in Python, but i'll leave it
    \or
      %%%%%%%%%%%%%%%%%
      % \@ShortComment:
      %%%%%%%%%%%%%%%%%
      \@WriteChar{#1}%
      \ifnum \@CharCode=13
        \global\@WhereAmI = \@NothingSpecial
        \@SymbolState
      \fi
    \or
      %%%%%%%%%%%%%%%%
      % \@LongComment:
      %%%%%%%%%%%%%%%%
      \@WriteChar{#1}%
      \ifnum \@PrevChar=`\*
        \ifnum \@CharCode=`\)
          \global\@WhereAmI = \@NothingSpecial
          \@SymbolState
          \@CharCode = 32
        \fi
      \fi
    \fi
    \global\@PrevChar = \@CharCode
  \fi
  \@WhatNext
}

\ifx \@PrepareCPas \@Dont@Know@What@It@Is
  \input cap_comm
\fi

\catcode`\@ = 12