From 23bb488bb028acf936fa4c2fce03649802515eb6 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 17 May 2010 16:18:42 +0000 Subject: c-pascal update (long ago) git-svn-id: svn://tug.org/texlive/trunk@18316 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/generic/c-pascal/cap_c.tex | 26 ++++++++++++++---------- 1 file changed, 15 insertions(+), 11 deletions(-) (limited to 'Master/texmf-dist/tex/generic/c-pascal/cap_c.tex') 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 -- cgit v1.2.3