summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/c-pascal/cap_c.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-05-17 16:18:42 +0000
committerKarl Berry <karl@freefriends.org>2010-05-17 16:18:42 +0000
commit23bb488bb028acf936fa4c2fce03649802515eb6 (patch)
tree00bfb4dfc21e90becb3c5f119bf348f372bad6f5 /Master/texmf-dist/tex/generic/c-pascal/cap_c.tex
parente679d4dd811dedc2b164b4ec19ba8053b2cae3ad (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.tex26
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