From 92a15e15b276458e10aa05016bf472e8c6dd3eb0 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Thu, 12 Jan 2006 23:45:13 +0000
Subject: context

git-svn-id: svn://tug.org/texlive/trunk@608 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/context/base/symb-run.tex | 54 +++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 Master/texmf-dist/tex/context/base/symb-run.tex

(limited to 'Master/texmf-dist/tex/context/base/symb-run.tex')

diff --git a/Master/texmf-dist/tex/context/base/symb-run.tex b/Master/texmf-dist/tex/context/base/symb-run.tex
new file mode 100644
index 00000000000..3ad195f8243
--- /dev/null
+++ b/Master/texmf-dist/tex/context/base/symb-run.tex
@@ -0,0 +1,54 @@
+%D \module
+%D   [       file=symb-run, % code moved from symb-ini
+%D        version=1998.07.20,
+%D          title=\CONTEXT\ Symbol Libraries,
+%D       subtitle=Runtime Macros,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+\unprotect
+
+\gdef\doshowsymbolset[#1][#2]% todo: make nicer, use legend or so
+  {\vbox\bgroup
+   \blank
+   \getparameters[\??ss][\c!n=5,#2]%
+   \forcesymbolset[#1]%
+   \doifsymbolsetelse{#1}
+     {\global\let\allfigures\empty
+      \doglobal\newcounter\figurecounter
+      \setupcolors[\c!state=\v!start]% to prevent mps color conversion
+      \dontcomplain
+      \def\doshowsymbols% global needed due to grouping in alignment
+        {\expanded{\globalprocesscommalist[\symbolset{#1}]}\docommando}%
+      \def\docommando##1%
+        {\vbox
+           {\forgetall
+            \tttf
+            \halign
+              {\hss\quad####\strut\quad\hss\cr
+               \symbol[##1]\quad{\red\ruledhbox{\black\symbol[##1]}}\cr
+               \tfx##1\cr}}%
+         \doglobal\increment\figurecounter
+         \ifnum\figurecounter=\@@ssn
+           \doglobal\newcounter\figurecounter
+           \def\next{\crcr\noalign{\vskip1ex}}%
+         \else
+           \def\next{&}%
+         \fi
+         \next}%
+      \tabskip\zeropoint \!!plus 1fill
+      \halign to \hsize
+        {&\hss##\hss\cr\doshowsymbols\crcr}}%
+      {}%
+   \blank
+   \egroup}
+
+\gdef\showsymbolset
+  {\dodoubleempty\doshowsymbolset}
+
+\protect \endinput
-- 
cgit v1.2.3

