diff options
author | Karl Berry <karl@freefriends.org> | 2010-05-17 16:18:42 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2010-05-17 16:18:42 +0000 |
commit | 23bb488bb028acf936fa4c2fce03649802515eb6 (patch) | |
tree | 00bfb4dfc21e90becb3c5f119bf348f372bad6f5 /Master/texmf-dist/tex/generic/c-pascal/cap_c.tex | |
parent | e679d4dd811dedc2b164b4ec19ba8053b2cae3ad (diff) |
c-pascal update (long ago)
git-svn-id: svn://tug.org/texlive/trunk@18316 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/c-pascal/cap_c.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/c-pascal/cap_c.tex | 26 |
1 files changed, 15 insertions, 11 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 index 5501e94d312..3aaa2d33f8e 100644 --- a/Master/texmf-dist/tex/generic/c-pascal/cap_c.tex +++ b/Master/texmf-dist/tex/generic/c-pascal/cap_c.tex @@ -4,6 +4,10 @@ % mgulcz@we.tuniv.szczecin.pl % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % +% version 1.2d +% Added DVIPS color support (actually, any output is replaced with +% a macro call to \@Output --- search for it to see the changes) +% -- by Danilo {\v S}egan, mm01142@alas.matf.bg.ac.yu % version 1.2 % This file contains macros for typesetting programs in C. % It belongs to the CAP package. Do not distribute separately. @@ -37,7 +41,7 @@ catch throw try % 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. +% \InputC. \def\@InputC#1{% \message{(C++: #1}% \openin\@InFile = #1 @@ -92,15 +96,15 @@ catch throw try \ifnum \@PrevChar=`\/ \ifnum \@CharCode=`\/ \global\@WhereAmI = \@ShortComment - \CommentFont - \char47% + \@CommentState + \@Output{\char47}% \else \ifnum \@CharCode=`\* \global\@WhereAmI = \@LongComment - \CommentFont + \@CommentState \fi \fi - \char47% + \@Output{\char47}% \fi % the longest possible string containing only letters and digits % is either a keyword or an identifier @@ -114,11 +118,11 @@ catch throw try \fi \ifnum \@CharCode=`\# \global\@WhereAmI = \@Directive - \DirectiveFont + \@DirectiveState \fi \ifnum \@CharCode=`\" \global\@WhereAmI = \@Text - \TextFont + \@TextState \fi \ifnum \@CharCode=`\/ \else @@ -132,7 +136,7 @@ catch throw try \@WriteChar{#1}% \ifnum \@CharCode=`\" \global\@WhereAmI = \@NothingSpecial - \SymbolFont + \@SymbolState \fi \or %%%%%%%%%%%%%% @@ -141,7 +145,7 @@ catch throw try \@WriteChar{#1}% \ifnum \@CharCode=13 \global\@WhereAmI = \@NothingSpecial - \SymbolFont + \@SymbolState \fi \or %%%%%%%%%%%%%%%%% @@ -150,7 +154,7 @@ catch throw try \@WriteChar{#1}% \ifnum \@CharCode=13 \global\@WhereAmI = \@NothingSpecial - \SymbolFont + \@SymbolState \fi \or %%%%%%%%%%%%%%%% @@ -160,7 +164,7 @@ catch throw try \ifnum \@PrevChar=`\* \ifnum \@CharCode=`\/ \global\@WhereAmI = \@NothingSpecial - \SymbolFont + \@SymbolState \@CharCode = 32 \fi \fi |