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
|
#!/usr/bin/perl
open(I,"mpost/thTrans.mp");
while (<I>) {
if (/^\s*(\S+)\s+([plas]{1}[a-z_]+)/) {
$SYMHASH{$2} = "";
}
}
close(I);
$SYMHASH{a_} = "noassign hidden";
$SYMHASH{a_u} = "";
$SYMHASH{a_zzz} = "noassign hidden";
$SYMHASH{l_border_invisible} = "hidden";
$SYMHASH{l_wall_invisible} = "hidden";
# ??? $SYMHASH{l_survey} = "noassign";
$SYMHASH{l_undefined} = "noassign";
$SYMHASH{l_label} = "noassign";
$SYMHASH{l_rope} = "noassign hidden";
$SYMHASH{l_u} = "";
$SYMHASH{l_} = "noassign hidden";
$SYMHASH{l_zzz} = "noassign hidden";
$SYMHASH{p_undefined} = "noassign";
$SYMHASH{p_section} = "noassign";
$SYMHASH{p_label} = "noassign";
$SYMHASH{p_remark} = "noassign";
$SYMHASH{p_mapconnection} = "noassign";
$SYMHASH{p_stationname} = "noassign";
$SYMHASH{p_date} = "noassign";
$SYMHASH{p_altitude} = "noassign";
$SYMHASH{p_wallaltitude} = "noassign";
$SYMHASH{p_height_positive} = "noassign";
$SYMHASH{p_height_negative} = "noassign";
$SYMHASH{p_height_unsigned} = "noassign";
$SYMHASH{p_passageheight_positive} = "noassign";
$SYMHASH{p_passageheight_negative} = "noassign";
$SYMHASH{p_passageheight_both} = "noassign";
$SYMHASH{p_passageheight_unsigned} = "noassign";
$SYMHASH{p_surfacestation} = "noassign";
$SYMHASH{p_cavestation} = "noassign";
$SYMHASH{p_flag_entrance} = "noassign hidden";
$SYMHASH{p_flag_spring} = "noassign hidden";
$SYMHASH{p_flag_sink} = "noassign hidden";
$SYMHASH{p_flag_doline} = "noassign hidden";
$SYMHASH{p_flag_airdraught} = "noassign hidden";
$SYMHASH{p_flag_continuation} = "noassign hidden";
$SYMHASH{p_flag_dig} = "noassign hidden";
$SYMHASH{p_flag_arch} = "noassign hidden";
$SYMHASH{p_flag_overhang} = "noassign hidden";
$SYMHASH{p_station} = "hidden";
$SYMHASH{p_u} = "";
$SYMHASH{p_} = "noassign hidden";
$SYMHASH{p_zzz} = "noassign hidden";
$SYMHASH{s_} = "noassign hidden";
$SYMHASH{s_zzz} = "noassign hidden";
$SYMHASH{x_} = "noassign hidden";
$SYMHASH{x_all} = "hidden";
$SYMHASH{x_ice} = "hidden";
$SYMHASH{x_sediments} = "hidden";
$SYMHASH{x_centerline} = "hidden";
$SYMHASH{x_water} = "hidden";
$SYMHASH{x_speleothems} = "hidden";
$SYMHASH{x_passagefills} = "hidden";
$SYMHASH{x_equipment} = "hidden";
$SYMHASH{x_sections} = "hidden";
$SYMHASH{x_surfacecenterline} = "noassign hidden";
$SYMHASH{x_cavecenterline} = "noassign hidden";
$SYMHASH{x_line_wall} = "hidden";
$SYMHASH{x_line_border} = "hidden";
$SYMHASH{x_line_waterflow} = "hidden";
$SYMHASH{x_line_survey} = "hidden";
$SYMHASH{x_point_waterflow} = "hidden";
$SYMHASH{x_point_station} = "hidden";
$SYMHASH{x_point_flag} = "hidden";
$SYMHASH{x_point_height} = "hidden";
$SYMHASH{x_point_passageheight} = "hidden";
$SYMHASH{x_point_airdraught} = "hidden";
$i = 0;
foreach $k (sort keys(SYMHASH)) {
$TK .= " SYM" . uc($k). " = $i,\n";
$TS .= " \"SYM" . uc($k). "\",\n";
$MP .= " \"$k\",\n";
$EX .= ($SYMHASH{$k} =~ /noassign/ ? " false,\n" : " true,\n");
$HN .= ($SYMHASH{$k} =~ /hidden/ ? " true,\n" : " false,\n");
$i++;
}
open(O,">thsymbolsetlist.h");
print O <<ENDO;
/**
* @file thsymbolsetlist.h
*
* THIS FILE IS GENERATED AUTOMATICALLY, DO NOT MODIFY IT !!!
*/
#ifndef thsymbolsetlist_h
#define thsymbolsetlist_h
#define thsymbolset_size $i
enum {
$TK};
typedef const char * thsymbolset__char_ptr;
static const thsymbolset__char_ptr thsymbolset__mp [] = {
$MP};
static const bool thsymbolset__assign [] = {
$EX};
static const bool thsymbolset__hidden [] = {
$HN};
static const thsymbolset__char_ptr thsymbolset__src [] = {
$TS};
#endif
ENDO
close(O);
|
