Repository navigation
Expand file tree
/
Copy pathinfo.m4
More file actions
143 lines (85 loc) · 5.61 KB
/
Copy pathinfo.m4
File metadata and controls
143 lines (85 loc) · 5.61 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
m4_changequote(<<,>>)m4_dnl
m4_divert(-1)
Copyright: 2022, 2023 Octrooicentrum Nederland
Licensed under the EUPL-1.2 or later.
You may obtain a copy of the licence at https://joinup.ec.europa.eu/collection/eupl/eupl-text-eupl-12.
Author: Marco de Beurs
m4_define(<<AltText>>, <<>>)m4_dnl
m4_define(<<NoDir>>,<< m4_substr( $1, m4_incr(m4_index($1,<</>>)))>>)m4_dnl
m4_define(<<AddToMDList>>,<< m4_divert(-1) add: $1 StripWrongChars($1)count = NoDir(ListName) m4_divert(>>StripWrongChars($1)count<<) NoDir(ListName) m4_divert(-1)>>)m4_dnl
m4_define(<<Input>>, <<m4_divert(-1)
+ $1 + m4_ifelse(m4_index($1,.md),<<-1>>,<<m4_define(<<ListName>>, $1)>>,<<m4_define(<<MdFileName>>, $1) AddToMDList($1)>>) m4_divert(-1) m4_include($1)>>)m4_dnl
m4_define(<<AddNew_>>,<<m4_divert(-1) + $2 + $1 nog een: NoDir(MdFileName) m4_ifdef($2<<>>StripWrongChars(MdFileName)<<set>>,<< oud >>,<< + nieuwe md + m4_divert($2) NoDir(MdFileName) m4_divert(-1) m4_define($2<<>>StripWrongChars(MdFileName)<<set>>, Ja)>>)>>)m4_dnl
m4_define(<<InputImage_>>,<<m4_divert(-1)
begin - StripWrongChars($1)set en ImageCounter - m4_ifdef(StripWrongChars($1)<<set>>,<<AddNew_($1,StripWrongChars($1)count)>>,<<nieuw: ImageCounter NoDir($1) : NoDir(MdFileName) m4_divert(>>ImageCounter<<)
NoDir($1) : AddNew_($1,ImageCounter) m4_divert(-1) m4_define(>>StripWrongChars($1)<<count, ImageCounter) IncrImageCounter >>)
m4_divert(-1)>>)m4_dnl
m4_define(<<InputImage>>,<<m4_divert(-1) inputi InputImage_($@) m4_divert(-1)
test - StripWrongChars($1)<<set>> en ImageCounter - m4_ifdef(StripWrongChars($1)<<set>>,<< oud >>,<< + nieuwe set + m4_define(StripWrongChars($1)set, ImageCounter)>>)
m4_divert(-1)>>)m4_dnl
m4_define(<<InputVideo_>>,<<m4_divert(-1)
begin - StripWrongChars($1)set en VideoCounter - m4_ifdef(StripWrongChars($1)<<set>>,<<AddNew_($1,StripWrongChars($1)count)>>,<<nieuw: VideoCounter NoDir($1) : NoDir(MdFileName) m4_divert(>>VideoCounter<<)
NoDir($1) : AddNew_($1,VideoCounter) m4_divert(-1) m4_define(>>StripWrongChars($1)<<count, VideoCounter) IncrVideoCounter >>)
m4_divert(-1)>>)m4_dnl
m4_define(<<InputVideo>>, <<m4_divert(-1) inputi InputVideo_($@) m4_divert(-1)
test - StripWrongChars($1)<<set>> en VideoCounter - m4_ifdef(StripWrongChars($1)<<set>>,<< oud >>,<< + nieuwe set + m4_define(StripWrongChars($1)set, VideoCounter)>>)
m4_divert(-1)>>)m4_dnl
m4_define(<<InputTikzImage_>>,<<m4_divert(-1)
begin - StripWrongChars($1)set en TikzImageCounter - m4_ifdef(StripWrongChars($1)<<set>>,<<AddNew_($1,StripWrongChars($1)count)>>,<<nieuw: TikzImageCounter NoDir($1) : NoDir(MdFileName) m4_divert(>>TikzImageCounter<<)
NoDir($1).tex : AddNew_($1,TikzImageCounter) m4_divert(-1) m4_define(>>StripWrongChars($1)<<count, TikzImageCounter) IncrTikzImageCounter >>)
m4_divert(-1)>>)m4_dnl
m4_define(<<InputTikzImage>>, <<m4_divert(-1) inputi InputTikzImage_($@) m4_divert(-1)
test - StripWrongChars($1)<<set>> en TikzImageCounter - m4_ifdef(StripWrongChars($1)<<set>>,<< oud >>,<< + nieuwe set + m4_define(StripWrongChars($1)set, TikzImageCounter)>>)
m4_divert(-1)>>)m4_dnl
m4_define(<<InputImageSpecial>>,<<InputImage($@)>>)
m4_define(<<StripWrongChars>>, <<m4_translit($1,<< ./->>)>>)m4_dnl
m4_define(<<StripSpace>>, <<m4_translit($1,<< >>)>>)m4_dnl
m4_define(<<ImageCounter>>, 1000)m4_dnl
m4_define(<<IncrImageCounter>>, <<m4_divert(-1) increment ImageCounter m4_define(<<ImageCounter>>, m4_incr(ImageCounter)) m4_divert(-1)>>)m4_dnl
m4_define(<<VideoCounter>>, 2000)m4_dnl
m4_define(<<IncrVideoCounter>>, <<m4_divert(-1) increment VideoCounter m4_define(<<VideoCounter>>, m4_incr(VideoCounter)) m4_divert(-1)>>)m4_dnl
m4_define(<<TikzImageCounter>>, 3000)m4_dnl
m4_define(<<IncrTikzImageCounter>>, <<m4_divert(-1) increment TikzImageCounter m4_define(<<TikzImageCounter>>, m4_incr(TikzImageCounter)) m4_divert(-1)>>)m4_dnl
m4_define(<<MDCounter>>, 1)m4_dnl
m4_define(<<IncrMDCounter>>, <<
m4_define(<<MDCounter>>, m4_incr(MDCounter))m4_dnl>>)m4_dnl
m4_define(<<MDName>>, <<m4_format(<<%s - %s - %d>>, $1,StripWrongChars($1), StripWrongChars($1)count) : StripWrongChars($1)count >>)m4_dnl
m4_define(<<SetMDName>>, <<m4_define(StripWrongChars($1)count, MDCounter) <<m4_divert(ListMDs)>>
MDCounter : $1 <<m4_divert(>>MDCounter<<)>>
StripWrongChars($1)count : NoDir($1) : <<m4_divert(-1)>> >>)m4_dnl
m4_define(<<ListInput>>, <<m4_ifelse(<<$#>>,<<1>>, MDName($1)
, MDName($1)
<<ListInput(m4_shift($@))>>)>>)m4_dnl
m4_define(<<InputToList>>, <<m4_ifelse(<<$#>>,<<1>>, SetMDName($1)
, SetMDName($1) IncrMDCounter
<<InputToList(m4_shift($@))>>)>>)m4_dnl
m4_define(<<InputAllLists>>, <<m4_ifelse(<<$#>>,<<1>>,<< Input(StripSpace($1))>>,<< Input(StripSpace($1)) InputAllLists(m4_shift($@))>>)>>)m4_dnl
m4_define(<<LastArg>>, <<m4_ifelse($#, 1, $1, <<LastArg(m4_shift($@))>>)>>)m4_dnl
m4_define(<<IfLevelPrintInput>>, << Input(LastArg($@)) >>)m4_dnl
m4_define(<<OrLevelPrintInput>>, << Input(LastArg($@)) >>)m4_dnl
m4_define(<<IncludeText>>, << Input($1) >>)m4_dnl
m4_divert(0)
# Overview of all md files #
m4_define(<<ListMDs>>, 0)m4_dnl
InputToList( m4_include(info_md.txt))
m4_divert(999)
# Overview of image files used in .md files #
m4_divert(1999)
# Overview of video files used in .md files #
m4_divert(2999)
# Overview of Tikz image files used in .md files #
m4_divert(0)
InputAllLists( m4_include(info_list.txt))
m4_divert(0)
# Overview of .md files used in lists #
m4_undivert
# Overview of .md files used in templates #
m4_define(<<MDCounter>>, 1)m4_dnl
m4_define(<<ListMDs>>, -1)m4_dnl
m4_define(<<InputImage>>,<<>>)
m4_define(<<InputVideo>>,<<>>)
m4_define(<<InputTikzImage>>,<<>>)
InputToList( m4_include(info_md.txt))
InputAllLists( m4_include(info_tpl.txt))
m4_divert(0)
m4_undivert