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);
|