From 432febb2eb8f8994f83e44f8e50b42f1a51a7e91 Mon Sep 17 00:00:00 2001 From: Taco Hoekwater Date: Mon, 18 Dec 2006 09:15:51 +0000 Subject: 0.993 (troff.map support) git-svn-id: svn://tug.org/texlive/trunk@2784 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/mp.web | 6 +++--- Build/source/texk/web2c/mpdir/mapfile.c | 11 ++++++++--- Build/source/texk/web2c/mpdir/mp.defines | 5 ++++- 3 files changed, 15 insertions(+), 7 deletions(-) (limited to 'Build/source') diff --git a/Build/source/texk/web2c/mp.web b/Build/source/texk/web2c/mp.web index 640eb4a1114..8f8ef7eb6c8 100644 --- a/Build/source/texk/web2c/mp.web +++ b/Build/source/texk/web2c/mp.web @@ -97,8 +97,8 @@ undergoes any modifications, so that it will be clear which version of @^extensions to \MP@> @^system dependencies@> -@d banner=='This is MetaPost, Version 0.992' {printed when \MP\ starts} -@d metapost_version=="0.992" +@d banner=='This is MetaPost, Version 0.993' {printed when \MP\ starts} +@d metapost_version=="0.993" @ Different \PASCAL s have slightly different conventions, and the present @!@:PASCAL H}{\ph@> @@ -24203,7 +24203,7 @@ tini@/ ready_already:=314159; start_of_MP: @; @; -mp_init_map_file; +mp_init_map_file(troff_mode); setjobid(internal[year],internal[month],internal[day],internal[time]); history:=spotless; {ready to go!} if start_sym>0 then {insert the `\&{everyjob}' symbol} diff --git a/Build/source/texk/web2c/mpdir/mapfile.c b/Build/source/texk/web2c/mpdir/mapfile.c index 25d5818f5c0..1893b55bfd7 100644 --- a/Build/source/texk/web2c/mpdir/mapfile.c +++ b/Build/source/texk/web2c/mpdir/mapfile.c @@ -941,7 +941,7 @@ void mpmapline (strnumber t) xfree (s); } -void mpinitmapfile (void) +void mpinitmapfile (int is_troff) { assert (mitem == NULL); mitem = xtalloc (1, mapitem); @@ -949,8 +949,13 @@ void mpinitmapfile (void) mitem->type = MAPFILE; if (kpse_find_file("mpost.map", kpse_fontmap_format,0)) mitem->line = xstrdup ("mpost.map"); - else - mitem->line = xstrdup ("pdftex.map"); + else { + if (is_troff) { + mitem->line = xstrdup ("troff.map"); + } else { + mitem->line = xstrdup ("pdftex.map"); + } + } } /**********************************************************************/ diff --git a/Build/source/texk/web2c/mpdir/mp.defines b/Build/source/texk/web2c/mpdir/mp.defines index bdd51f83332..90f196b1ff5 100644 --- a/Build/source/texk/web2c/mpdir/mp.defines +++ b/Build/source/texk/web2c/mpdir/mp.defines @@ -30,7 +30,7 @@ $Id$ @define function tfmoffm(); @define procedure mpmapfile(); @define procedure mpmapline(); -@define procedure mpinitmapfile; +@define procedure mpinitmapfile(); { functions from writefont.c } @@ -52,3 +52,6 @@ $Id$ @define procedure setjobid(); +{ function from turningnumber.c } + +@define function bezierslope(); \ No newline at end of file -- cgit v1.2.3