Source Browser ?

1
%D \module
2
%D   [       file=core-two, % moved from core-uti
3
%D        version=1997.03.31,
4
%D          title=\CONTEXT\ Core Macros,
5
%D       subtitle=Two Pass Data,
6
%D         author=Hans Hagen,
7
%D           date=\currentdate,
8
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9
%C
10
%C This module is part of the \CONTEXT\ macro||package and is
11
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12
%C details.
13
14
\writestatus
{
loading
}
{
ConTeXt
 
Core
 
Macros
 
/
 
Two
 
Pass
 
Data
}
15
16
%D This is a rather old mechanism which has not changed much over
17
%D time, apart from adding a few more selectors. This code used
18
%D to be part of \type {core-uti}. The following examples demonstrate
19
%D the interface.
20
%D
21
%D \startbuffer
22
%D \definetwopasslist{test-1}
23
%D
24
%D \gettwopassdatalist{test-1} [\twopassdatalist=]
25
%D \checktwopassdata  {test-1} [\twopassdata=]
26
%D \checktwopassdata  {test-1} [\twopassdata=]
27
%D \gettwopassdata    {test-1} [\twopassdata=]
28
%D \gettwopassdata    {test-1} [\twopassdata=]
29
%D
30
%D \definetwopasslist{test-2}
31
%D
32
%D \lazysavetwopassdata{test-2}{1}{x}
33
%D \lazysavetwopassdata{test-2}{2}{y}
34
%D \lazysavetwopassdata{test-2}{3}{z}
35
%D
36
%D \gettwopassdatalist{test-2} [\twopassdatalist=x,y,z]
37
%D \checktwopassdata  {test-2} [\twopassdata=x]
38
%D \checktwopassdata  {test-2} [\twopassdata=x]
39
%D \gettwopassdata    {test-2} [\twopassdata=x]
40
%D \gettwopassdata    {test-2} [\twopassdata=y]
41
%D \gettwopassdata    {test-2} [\twopassdata=z]
42
%D \gettwopassdata    {test-2} [\twopassdata=]
43
%D
44
%D \definetwopasslist{test-3}
45
%D
46
%D \lazysavetaggedtwopassdata{test-3}{1}{x}{a}
47
%D \lazysavetaggedtwopassdata{test-3}{2}{y}{b}
48
%D \lazysavetaggedtwopassdata{test-3}{3}{z}{c}
49
%D
50
%D \findtwopassdata{test-3}{x} [\twopassdata=a]
51
%D \findtwopassdata{test-3}{y} [\twopassdata=b]
52
%D \findtwopassdata{test-3}{z} [\twopassdata=c]
53
%D \findtwopassdata{test-3}{w} [\twopassdata=]
54
%D
55
%D \definetwopasslist{test-4}
56
%D
57
%D \lazysavetwopassdata{test-4}{1}{A}
58
%D \lazysavetwopassdata{test-4}{2}{B}
59
%D \lazysavetwopassdata{test-4}{3}{C}
60
%D
61
%D \getfirsttwopassdata{test-4}    [\twopassdata=A]
62
%D \getlasttwopassdata {test-4}    [\twopassdata=C]
63
%D \getfirsttwopassdata{test-4}    [\twopassdata=A]
64
%D \getlasttwopassdata {test-4}    [\twopassdata=C]
65
%D \getfromtwopassdata {test-4}{1} [\twopassdata=A]
66
%D \getfromtwopassdata {test-4}{3} [\twopassdata=C]
67
%D \getfromtwopassdata {test-4}{2} [\twopassdata=B]
68
%D \stopbuffer
69
%D
70
%D \getbuffer \typebuffer
71
72
\unprotect
73
74
\registerctxluafile
{
core
-
two
}
{
}
75
76
\def
\immediatesavetwopassdata
   
#
1
#
2
#
3
{
\normalexpanded
{
\noexpand
\clf_savetwopassdata
{
#
1
}
{
#
3
}
}
}
77
\def
     
\lazysavetwopassdata
   
#
1
#
2
#
3
{
\normalexpanded
{
\noexpand
\ctxlatecommand{
savetwopassdata
(
"
#1
"
,
"
#3
"
)
}
}
}
78
\let
         
\savetwopassdata
          
\lazysavetwopassdata
79
\def
    
\savetaggedtwopassdata
#
1
#
2
#
3
#
4
{
\normalexpanded
{
\noexpand
\clf_savetaggedtwopassdata
{
#
1
}
{
#
3
}
{
#
4
}
}
}
80
\def
\lazysavetaggedtwopassdata
#
1
#
2
#
3
#
4
{
\normalexpanded
{
\noexpand
\ctxlatecommand{
savetaggedtwopassdata
(
"
#1
"
,
'
#3
'
,
"
#4
"
)
}
}
}
81
82
% temp hack: needs a proper \starteverytimeluacode
83
84
\setfalse
\twopassdatafound
85
\let
     
\twopassdata
      
\empty
86
\let
     
\twopassdatalist
  
\empty
87
88
\newif
   
\iftwopassdatafound
  
% obsolete, will go
89
90
\def
\syst_twopass_check
 
% can be delegated to lua once obsolete is gone
91  
{
\ifx
\twopassdata
\empty
92     
\twopassdatafoundfalse
 
% obsolete
93     
\setfalse
\twopassdatafound
94   
\else
95     
\twopassdatafoundtrue
  
% obsolete
96     
\settrue
\twopassdatafound
97   
\fi
}
98
99
\def
\syst_twopass_set_not_found
100  
{
\twopassdatafoundfalse
 
% obsolete
101   
\setfalse
\twopassdatafound
}
102
103
\def
\syst_twopass_set_found
104  
{
\twopassdatafoundtrue
 
% obsolete
105   
\settrue
\twopassdatafound
}
106
107
\unexpanded
\def
\definetwopasslist
        
#
1
{
\clf_definetwopasslist
{
#
1
}
}
108
\unexpanded
\def
\gettwopassdata
           
#
1
{
\edef
\twopassdata
    
{
\clf_gettwopassdata
      
{
#
1
}
}
\syst_twopass_check
}
109
\unexpanded
\def
\checktwopassdata
         
#
1
{
\edef
\twopassdata
    
{
\clf_checktwopassdata
    
{
#
1
}
}
\syst_twopass_check
}
110
\unexpanded
\def
\findtwopassdata
        
#
1
#
2
{
\edef
\twopassdata
    
{
\clf_findtwopassdata
 
{
#
1
}
{
#
2
}
}
\syst_twopass_check
}
111
\unexpanded
\def
\getfirsttwopassdata
      
#
1
{
\edef
\twopassdata
    
{
\clf_getfirsttwopassdata
 
{
#
1
}
}
\syst_twopass_check
}
112
\unexpanded
\def
\getlasttwopassdata
       
#
1
{
\edef
\twopassdata
    
{
\clf_getlasttwopassdata
  
{
#
1
}
}
%
113                                            
\edef
\noftwopassitems
{
\clf_counttwopassdata
    
{
#
1
}
}
\syst_twopass_check
}
114
\unexpanded
\def
\getnamedtwopassdatalist
#
1
#
2
{
\edef
              
#
1
{
\clf_gettwopassdatalist
  
{
#
2
}
}
}
115
\unexpanded
\def
\gettwopassdatalist
       
#
1
{
\edef
\twopassdatalist
{
\clf_gettwopassdatalist
  
{
#
1
}
}
}
116
117
\unexpanded
\def
\doifelseintwopassdata
  
#
1
#
2
{
\clf_doifelseintwopassdata
{
#
1
}
{
#
2
}
}
118
119           
\let
\doifintwopassdataelse
       
\doifelseintwopassdata
120           
\let
\getfromtwopassdata
          
\findtwopassdata
121
122
\protect
 
\endinput
123