generic 1

git-svn-id: svn://tug.org/texlive/trunk@613 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 177 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/generic/c-pascal/cap_c.tex b/Master/texmf-dist/tex/generic/c-pascal/cap_c.tex
new file mode 100644
index 00000000000..5501e94d312
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/c-pascal/cap_c.tex
@@ -0,0 +1,177 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%     CAP  ---  Macros for typesetting programs in C and Pascal     %
+%       Micha\l{} Gulczy\'nski, Szczecin, Feb 1997 / Feb 1998       %
+%                     mgulcz@we.tuniv.szczecin.pl                   %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+%  version 1.2
+%    This file contains macros for typesetting programs in C.
+%    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\KeywordsC{
+void char int float double enum long short signed unsigned far near huge
+auto register extern static volatile inline const typedef
+new delete sizeof struct union
+for do while if else switch case default break continue return goto
+asm cdecl pascal interrupt
+class private public protected this friend virtual template operator
+catch throw try
+}
+\catcode`\@ = 11
+%
+%      that's where we begin
+%
+\def\BeginC{%
+  \@PrepareCPas
+  \@LetsStartC
+}%
+% 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
+% \InsertC.
+\def\@InputC#1{%
+  \message{(C++: #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
+    \@WriteTextOfProgramC
+  \if \neof\@InFile \repeat
+  \closein\@InFile
+  \endgroup    % this group was begun by \@PrepareCPas
+  \endgroup    % this group was begun by \InputC
+  \message{)}%
+}
+\def\InputC{%
+  \begingroup
+  \catcode`\/ = 11
+  \@InputC
+}
+%
+%      delimiter \EndC will be ordinary text
+%
+{ \catcode`\|=0   \catcode`\\=12
+  |gdef|@LetsStartC#1\EndC{%
+    |gdef|@TextOfProgram{#1}%
+    |@WriteTextOfProgramC
+    |endgroup    % this group was begun by \@PrepareCPas
+  }
+}
+%
+%      macro \@TextOfProgram contains the whole text of program
+%
+\def\@WriteTextOfProgramC{%
+  \expandafter\@ReadCharC\@TextOfProgram\@EndOfProgram
+}
+%
+%      heart of the program -- the argument is a single char
+%
+\def\@ReadCharC#1{%
+  % this macro calls itself until the argument #1 is \@EndOfProgram
+  \if\@Identical{\string#1}{\string\@EndOfProgram}%
+    \let\@WhatNext = \relax
+  \else
+    \let\@WhatNext = \@ReadCharC
+    \global\@CharCode = `#1\relax
+    \ifcase \@WhereAmI
+      %%%%%%%%%%%%%%%%%%%
+      % \@NothingSpecial:
+      %%%%%%%%%%%%%%%%%%%
+      \ifnum \@PrevChar=`\/
+        \ifnum \@CharCode=`\/
+          \global\@WhereAmI = \@ShortComment
+          \CommentFont
+          \char47%
+        \else
+          \ifnum \@CharCode=`\*
+            \global\@WhereAmI = \@LongComment
+            \CommentFont
+          \fi
+        \fi
+        \char47%
+      \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}{\KeywordsC}%
+          \def\@Word{}%
+        \fi
+        \ifnum \@CharCode=`\#
+          \global\@WhereAmI = \@Directive
+          \DirectiveFont
+        \fi
+        \ifnum \@CharCode=`\"
+          \global\@WhereAmI = \@Text
+          \TextFont
+        \fi
+        \ifnum \@CharCode=`\/
+        \else
+          \@WriteChar{#1}%
+        \fi
+      \fi
+    \or
+      %%%%%%%%%
+      % \@Text:
+      %%%%%%%%%
+      \@WriteChar{#1}%
+      \ifnum \@CharCode=`\"
+        \global\@WhereAmI = \@NothingSpecial
+        \SymbolFont
+      \fi
+    \or
+      %%%%%%%%%%%%%%
+      % \@Directive:
+      %%%%%%%%%%%%%%
+      \@WriteChar{#1}%
+      \ifnum \@CharCode=13
+        \global\@WhereAmI = \@NothingSpecial
+        \SymbolFont
+      \fi
+    \or
+      %%%%%%%%%%%%%%%%%
+      % \@ShortComment:
+      %%%%%%%%%%%%%%%%%
+      \@WriteChar{#1}%
+      \ifnum \@CharCode=13
+        \global\@WhereAmI = \@NothingSpecial
+        \SymbolFont
+      \fi
+    \or
+      %%%%%%%%%%%%%%%%
+      % \@LongComment:
+      %%%%%%%%%%%%%%%%
+      \@WriteChar{#1}%
+      \ifnum \@PrevChar=`\*
+        \ifnum \@CharCode=`\/
+          \global\@WhereAmI = \@NothingSpecial
+          \SymbolFont
+          \@CharCode = 32
+        \fi
+      \fi
+    \fi
+    \global\@PrevChar = \@CharCode
+  \fi
+  \@WhatNext
+}
+
+\ifx \@PrepareCPas \@Dont@Know@What@It@Is
+  \input cap_comm
+\fi
+
+\catcode`\@ = 12