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
143
144
145
146
147
148
149
150
151
152
153
154
155
|
/* This file is part of the program psim.
Copyright (C) 1994-1995, Andrew Cagney <cagney@highland.com.au>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/
/* Read a table, line by line, from a file.
A table line has several forms:
Field line:
<text> { ":" <text> }
type == table_colon_entry
Fields points to a NULL terminated list of pointers.
Tab indented block:
<tab> <text> <nl> { <tab> <text> <nl> }
type == table_code_entry
The leading tab at the start of each line is discarded.
fields[i] is the i'th line with the <nl> discarded.
Code block:
"{" <ignore-text> <nl> { <text> <nl> } "}" <ignore-text> <nl>
type == table_code_entry
The leading/trailing {/} lines are discarded.
Lines containing two leading spaces have those spaces striped.
fields[i] is the i'th line with the <nl> discarded.
In addition, the table parser reconises and handles internally the
following (when not in a code block):
"#" <line-nr> '"' <file> '"'
As per CPP/CC, treat following lines as if they were taken from
<file> starting at <line-nr>
No support for CPP's "#if/#else/#endif" style conditions are
planned. */
typedef struct _table table;
typedef enum {
table_colon_entry,
table_code_entry,
} table_entry_type;
typedef struct _table_entry table_entry;
struct _table_entry {
table *file;
line_ref *line;
table_entry_type type;
int nr_fields;
char **field;
};
/* List of directories to search when opening a pushed file. Current
directory is always searched first */
typedef struct _table_include table_include;
struct _table_include {
char *dir;
table_include *next;
};
/* Open/read a table file. Since the file is read once during open
(and then closed immediatly) there is no close method. */
extern table *table_open
(const char *file_name);
extern table_entry *table_read
(table *file);
/* Push the the state of the current file and open FILE_NAME. When
the end of FILE_NAME is reached, return to the pushed file */
extern void table_push
(table *file,
line_ref *line,
table_include *search,
const char *file_name);
/* Expand the specified field_nr using the internal expansion table.
A field is only expanded when explicitly specified. */
extern void table_expand_field
(table_entry *entry,
int field_nr);
/* Given a code entry, write the code to FILE. Since any
leading/trailing braces were striped as part of the read, they are
not written. */
extern void table_print_code
(lf *file,
table_entry *entry);
/* Debugging */
extern void dump_line_ref
(lf *file,
char *prefix,
const line_ref *line,
char *suffix);
extern void dump_table_entry
(lf *file,
char *prefix,
const table_entry *entry,
char *suffix);
/* Utilities for skipping around text */
extern char *skip_digits
(char *chp);
extern char *skip_spaces
(char *chp);
extern char *skip_to_separator
(char *chp,
char *separators);
extern char *back_spaces
(char *start,
char *chp);
|
