From 17a40eea99838f7f911c046cc779cbf84d5a368c Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Mon, 4 Apr 2016 21:15:45 +0000
Subject: mcf2graph (4apr16)

git-svn-id: svn://tug.org/texlive/trunk@40235 c570f23f-e606-0410-a88d-b1316a301751
---
 .../doc/metapost/mcf2graph/mcf_example.tex         | 26 +++++++++++++++-------
 1 file changed, 18 insertions(+), 8 deletions(-)

(limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_example.tex')

diff --git a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_example.tex b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_example.tex
index 9752ba06246..d4344c996ab 100644
--- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_example.tex
+++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_example.tex
@@ -1,5 +1,5 @@
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Example of MCF typeset by LaTeX   mcf_examples.tex   by A.Yamaji  2016.4.2
+% Example of MCF typeset by LaTeX   mcf_examples.tex    by A.Yamaji  2016.4.4
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 \documentclass[a4paper]{article}
 \usepackage{graphicx}
@@ -48,13 +48,23 @@
   \advance\fontnum\@ne\relax\advance\tnum\@ne\relax%
   \ifnum\tnum=5 \\ \tnum=0\relax \fi%
 }
-%-------------------------------------------------------------------------------
-\def\inputINFO#1{%
-\openin\@auxf=#1%
-\CONT@true%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% copied from ltcntrl.dtx [2014/04/21 v1.0h LaTeX Kernel (program control)]
+% modify  @for (separater=",") to @for@semi (separater=";") 
+%--------------------------------------------------------------------------------
+\def\@for@semi#1:=#2\do#3{\expandafter\def\expandafter\@for@tmp\expandafter{#2}%
+ \ifx\@for@tmp\@empty \else \expandafter\@for@loop#2;\@nil;\@nil\@@#1{#3}\fi}%
+\def\@for@loop#1;#2;#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else%
+ #5\def#4{#2}\ifx #4\@nnil \else#5\@ifor@loop #3\@@#4{#5}\fi\fi}%
+\def\@ifor@loop#1;#2\@@#3#4{\def#3{#1}\ifx #3\@nnil%
+ \expandafter\@for@noop \else #4\relax\expandafter\@ifor@loop\fi#2\@@#3{#4}}%
+\def\@for@noop#1\@@#2#3{}%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\inputINFOS#1{\openin\@auxf=#1\CONT@true%
 \loop
-\read\@auxf to \tempinfo%
-\ifeof\@auxf\CONT@false\else\@for\@temp:=\tempinfo\do{\mol@sel\@temp}%
+\read\@auxf to \temp@info%
+\ifeof\@auxf\CONT@false\else%
+\@for@semi\@temp:=\temp@info\do{\mol@sel\@temp}%
 \put@char\fi%
 \ifCONT@ \repeat
 \closein\@auxf}%
@@ -70,7 +80,7 @@
 \fontnum=1%
 \noindent%
 %------------------------------------------------------------------------
-\inputINFO{mcf_exa_soc-info.aux}%
+\inputINFOS{mcf_exa_soc-info.aux}%
 %------------------------------------------------------------------------
 \end{document}
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-- 
cgit v1.2.3

