/* Header for module strings, generated by p2c */
#ifndef STRINGS_H
#define STRINGS_H


#ifdef STRINGS_G
# define vextern
#else
# define vextern extern
#endif
/* p2c: strings.pas, line 13: 
 * Note: Turbo Pascal conditional compilation directive was ignored [218] */



/*$IFDEF DOUBLE_PRECISION */
/*$ELSE*/
/* p2c: strings.pas, line 16:
 * Warning: Symbol 'FLOAT' was already defined [220] */
/*$ENDIF*/

typedef struct symbol_node {
  struct symbol_node *next;
  Char *sstr, *dstr;
} symbol_node;


extern Char NOT_FOUND[21];
extern Char AMBIGUOUS[21];
extern Char DELIMITER_ERROR[21];
extern Char NO_MORE_TOKENS;


extern boolean match_range PP((Char *low, Char *test, Char *high));

extern Char lowercase PP((int ch));

extern Char *lbr PP((Char *Result, Char *s));

extern Char *tbr PP((Char *Result, Char *s));

extern Char *to_lower PP((Char *Result, Char *s));

extern Char *to_upper PP((Char *Result, Char *s));

extern Char *filled_string PP((Char *Result, int c, int width));

extern Char *right_justify PP((Char *Result, Char *s, int width));

extern Char *left_justify PP((Char *Result, Char *s, int width));

extern Char *center PP((Char *Result, Char *s, int width));

extern Char *merge PP((Char *Result, Char *s1, Char *s2));

extern Char *untab PP((Char *Result, Char *s, int tabsize));

extern Char *tab_compress PP((Char *Result, Char *s, int tabsize));

extern Char *replace_chars PP((Char *Result, Char *s, int find, int sub));

extern Char *replace_strs PP((Char *Result, Char *s, Char *find, Char *sub));

extern Void extract_delimited_string PP((int lfchar, int rtchar, Char *instr,
					 uchar *startloc, uchar *size));

extern Char *find_symbol_def PP((Char *Result, symbol_node *slist,
				 Char *symbol));

extern Void init_symbol PP((symbol_node **slist, Char *symbol,
			    Char *definition));

extern Void copy_symbols PP((symbol_node **src, symbol_node **dst));

extern Void release_all_symbols PP((symbol_node **slist));

extern long expand_macros PP((symbol_node *mlist, int mc, int msize,
			      Char *instr, Char *outstr));

extern Char *macro_error PP((Char *Result, long i));

extern long format_line PP((Char *instr, int leftmargin, int rightmargin,
			    Char *outstr));

extern Char *alpha_count PP((Char *Result, long i));

extern boolean file_exists PP((Char *f));

extern Char *int2str PP((Char *Result, long i));

extern Char *float2str PP((Char *Result, double r));

extern Char *cli PP((Char *Result, symbol_node **slist, int sc));

extern Char *tokenize PP((Char *Result, Char *line));

extern Char *get_token PP((Char *Result, Char *line));


#undef vextern

#endif /*STRINGS_H*/

/* End. */