summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2016-04-10 21:01:13 +0000
committerKarl Berry <karl@freefriends.org>2016-04-10 21:01:13 +0000
commit6485e226745fdea37ad21cde17db5598856f0c59 (patch)
treeddcf2a71cd0e3374c21feca50f564143625f17bc /Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
parent29484417f94035497851ce9993154d3e6e6d83e8 (diff)
mcf2graph (10apr16)
git-svn-id: svn://tug.org/texlive/trunk@40386 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex')
-rw-r--r--Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex13
1 files changed, 9 insertions, 4 deletions
diff --git a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
index 97665f04f28..69487d81d77 100644
--- a/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
+++ b/Master/texmf-dist/doc/metapost/mcf2graph/mcf_mplib_exa.tex
@@ -1,5 +1,5 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Example of MCF typest with LuaLaTeX(luamplib) by A.Yamaji 2016.4.6
+% Example of MCF typest with LuaLaTeX(luamplib) by A.Yamaji 2016.4.10
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\documentclass{article}
%------------------------------------------------------------------------------
@@ -10,7 +10,6 @@
input mcf2graph.mf;
mp_log_name:="temp-info.aux";
sw_auxout:=1;
- aux_delimiter:=",";
var3:="len_x"; tag3:="Lx";
var4:="calc_weight"; tag4:="MWc";
var5:="calc_formula"; tag5:="FMc";
@@ -40,10 +39,16 @@
\def\@MW{MW}\def\@MWc{MWc}\def\@FM{FM}\def\@FMc{FMc}\def\@Lx{Lx}\def\@Ly{Ly}%
\def\@NO{NO}\def\@USE@{USE}\def\@logP@{logP}\def\@EXA@{EXA}\def\@EXB@{EXB}%
%-------------------------------------------------------------------------------
+% modified latex2e kernel program control (@for delimiter ','=>';')
+\def\@sfor#1#2{\expandafter\def\expandafter\@tmp\expandafter{#1}%
+ \ifx\@tmp\@empty\else \expandafter\@rep#1;\@nil;\@nil\@@\@list{#2}\fi}%
+\def\@rep#1;#2\@@#3#4{\def#3{#1}\ifx#3\@nnil%
+ \expandafter\@fornoop\else#4\relax\expandafter\@rep\fi#2\@@#3{#4}}%
+%-------------------------------------------------------------------------------
\def\inputINFO#1{\openin\@auxf=#1\CONT@true%
\loop
-\read\@auxf to \tempinfo%
-\ifeof\@auxf\CONT@false\else \@for\@temp:=\tempinfo\do{\mol@sel\@temp} \fi%
+\read\@auxf to \@info%
+\ifeof\@auxf\CONT@false\else \@sfor\@info{\mol@sel\@list}\fi%
\ifCONT@ \repeat
\closein\@auxf}%
%--------------------------------------------------------------------------------