Commit | Line | Data |
---|---|---|
c906108c SS |
1 | /* This file is part of the program psim. |
2 | ||
3 | Copyright (C) 1994-1995, Andrew Cagney <cagney@highland.com.au> | |
4 | ||
5 | This program is free software; you can redistribute it and/or modify | |
6 | it under the terms of the GNU General Public License as published by | |
7 | the Free Software Foundation; either version 2 of the License, or | |
8 | (at your option) any later version. | |
9 | ||
10 | This program is distributed in the hope that it will be useful, | |
11 | but WITHOUT ANY WARRANTY; without even the implied warranty of | |
12 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
13 | GNU General Public License for more details. | |
14 | ||
15 | You should have received a copy of the GNU General Public License | |
16 | along with this program; if not, write to the Free Software | |
17 | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. | |
18 | ||
19 | */ | |
20 | ||
21 | ||
22 | /* Read a table, line by line, from a file. | |
23 | ||
24 | A table line has several forms: | |
25 | ||
26 | Field line: | |
27 | ||
28 | <text> { ":" <text> } | |
29 | type == table_colon_entry | |
30 | ||
31 | Fields points to a NULL terminated list of pointers. | |
32 | ||
33 | Tab indented block: | |
34 | ||
35 | <tab> <text> <nl> { <tab> <text> <nl> } | |
36 | type == table_code_entry | |
37 | ||
38 | The leading tab at the start of each line is discarded. | |
39 | fields[i] is the i'th line with the <nl> discarded. | |
40 | ||
41 | ||
42 | Code block: | |
43 | ||
44 | "{" <ignore-text> <nl> { <text> <nl> } "}" <ignore-text> <nl> | |
45 | type == table_code_entry | |
46 | ||
47 | The leading/trailing {/} lines are discarded. | |
48 | Lines containing two leading spaces have those spaces striped. | |
49 | fields[i] is the i'th line with the <nl> discarded. | |
50 | ||
51 | In addition, the table parser reconises and handles internally the | |
52 | following (when not in a code block): | |
53 | ||
54 | "#" <line-nr> '"' <file> '"' | |
55 | ||
56 | As per CPP/CC, treat following lines as if they were taken from | |
57 | <file> starting at <line-nr> | |
58 | ||
59 | No support for CPP's "#if/#else/#endif" style conditions are | |
60 | planned. */ | |
61 | ||
62 | typedef struct _table table; | |
63 | ||
64 | typedef enum { | |
65 | table_colon_entry, | |
66 | table_code_entry, | |
67 | } table_entry_type; | |
68 | ||
69 | ||
70 | typedef struct _table_entry table_entry; | |
71 | struct _table_entry { | |
72 | table *file; | |
73 | line_ref *line; | |
74 | table_entry_type type; | |
75 | int nr_fields; | |
76 | char **field; | |
77 | }; | |
78 | ||
79 | /* List of directories to search when opening a pushed file. Current | |
80 | directory is always searched first */ | |
81 | typedef struct _table_include table_include; | |
82 | struct _table_include { | |
83 | char *dir; | |
84 | table_include *next; | |
85 | }; | |
86 | ||
87 | ||
88 | /* Open/read a table file. Since the file is read once during open | |
89 | (and then closed immediatly) there is no close method. */ | |
90 | ||
91 | extern table *table_open | |
92 | (const char *file_name); | |
93 | ||
94 | extern table_entry *table_read | |
95 | (table *file); | |
96 | ||
97 | ||
98 | /* Push the the state of the current file and open FILE_NAME. When | |
99 | the end of FILE_NAME is reached, return to the pushed file */ | |
100 | ||
101 | extern void table_push | |
102 | (table *file, | |
103 | line_ref *line, | |
104 | table_include *search, | |
105 | const char *file_name); | |
106 | ||
107 | ||
108 | /* Expand the specified field_nr using the internal expansion table. | |
109 | A field is only expanded when explicitly specified. */ | |
110 | ||
111 | extern void table_expand_field | |
112 | (table_entry *entry, | |
113 | int field_nr); | |
114 | ||
115 | ||
116 | /* Given a code entry, write the code to FILE. Since any | |
117 | leading/trailing braces were striped as part of the read, they are | |
118 | not written. */ | |
119 | ||
120 | extern void table_print_code | |
121 | (lf *file, | |
122 | table_entry *entry); | |
123 | ||
124 | ||
125 | /* Debugging */ | |
126 | ||
127 | extern void dump_line_ref | |
128 | (lf *file, | |
129 | char *prefix, | |
130 | const line_ref *line, | |
131 | char *suffix); | |
132 | ||
133 | extern void dump_table_entry | |
134 | (lf *file, | |
135 | char *prefix, | |
136 | const table_entry *entry, | |
137 | char *suffix); | |
138 | ||
139 | ||
140 | ||
141 | /* Utilities for skipping around text */ | |
142 | ||
143 | extern char *skip_digits | |
144 | (char *chp); | |
145 | ||
146 | extern char *skip_spaces | |
147 | (char *chp); | |
148 | ||
149 | extern char *skip_to_separator | |
150 | (char *chp, | |
151 | char *separators); | |
152 | ||
153 | extern char *back_spaces | |
154 | (char *start, | |
155 | char *chp); |