From 23bb488bb028acf936fa4c2fce03649802515eb6 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
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

