1 /*****************************************************************************
2 ** This is part of the CTSim program
3 ** Copyright (C) 1983-2000 Kevin Rosenberg
5 ** $Id: pol.h,v 1.4 2000/06/13 16:20:31 kevin Exp $
7 ** This program is free software; you can redistribute it and/or modify
8 ** it under the terms of the GNU General Public License (version 2) as
9 ** published by the Free Software Foundation.
11 ** This program is distributed in the hope that it will be useful,
12 ** but WITHOUT ANY WARRANTY; without even the implied warranty of
13 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 ** GNU General Public License for more details.
16 ** You should have received a copy of the GNU General Public License
17 ** along with this program; if not, write to the Free Software
18 ** Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19 ******************************************************************************/
23 /* codes for pol_usefile */
25 #define P_USE_STR 1 /* use string as input source */
26 #define P_USE_FILE 2 /* use file as input source */
28 /* codes for pol_int and pol_float */
29 /* if in reject catagory, get new number from terminal */
31 #define P_FLTINT 1 /* get a real or integer number */
32 #define P_BFLTINT 2 /* get a real or integer number, clip against bounds */
33 #define P_CBFLTINT 3 /* get real or int, reject if outside bounds */
35 #define P_FLT 4 /* get a real number */
36 #define P_BFLT 5 /* get a real, clip against bounds */
37 #define P_CBFLT 6 /* get a floating, reject if outside bounds */
39 #define P_INT 7 /* get a integer number */
40 #define P_BINT 8 /* get a integer, clip against bounds */
41 #define P_CBINT 9 /* get a integer, reject if outside bounds */
46 #define MAXTOK 200 /* maximum length of a token */
49 #define MAXSKIPWORD 20
50 #define MAXSKIPCHAR 20
52 #define MIN_INT -32768
57 #define TT_STRING 1 /* string token */
58 #define TT_INT 2 /* integer token */
59 #define TT_REAL 3 /* floating point token */
60 #define TT_ALPHA 4 /* alphabetic token */
61 #define TT_ALPNUM 5 /* alphanumeric token */
63 #define TT_SPECLCHAR 7
65 #define TT_EOF 8 /* end of file reached */
66 #define TT_ERROR 9 /* error in token, caused by call to wrong */
67 /* type of token reader */
68 #define TT_BLANK 10 /* white space token. pol_tok() skips these */
69 #define TT_USERTOK 11 /* user defined token */
77 typedef struct symlist SYMBOL;
80 int ready; /* TRUE if token is ready */
81 char tokstr[MAXTOK+1]; /* token string */
82 int type; /* type of token 'TT_' */
83 int code; /* holds code for user defined tokens */
84 double fnum; /* real value of token */
85 int inum; /* integer value of token */
88 typedef struct token_st TOKEN;
92 void pol_skpword(char *w);
93 void pol_skpchar(char *s);
94 int pol_install(char *str, int code);
95 int pol_word(char *search, int nlet);
96 int pol_usertok(char *str, int *code);
97 int pol_string(char *str);
98 int pol_integer(int *n, int typecode, int boundcode, int bb1, int bb2);
99 int pol_float(double *n, double typecode, double boundcode, double bb1, double bb2);
101 void pol_reader(void);
102 void gettext(char *str, int lim);
103 void pol_usefile(int source, char *fn);
104 void pol_closefile(void);
105 int pol_lookchar(void);
106 int pol_inchar(void);
107 void pol_ungetch(int c);
108 int get_inputline(FILE *fp);
109 void set_inputline(char *line);