X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FyaccParser%2Futils.h;fp=ghc%2Fcompiler%2FyaccParser%2Futils.h;h=e43303e72089a2e70e6288730ecb3ed4f778f571;hb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;hp=0000000000000000000000000000000000000000;hpb=e48474bff05e6cfb506660420f025f694c870d38;p=ghc-hetmet.git

diff --git a/ghc/compiler/yaccParser/utils.h b/ghc/compiler/yaccParser/utils.h
new file mode 100644
index 0000000..e43303e
--- /dev/null
+++ b/ghc/compiler/yaccParser/utils.h
@@ -0,0 +1,140 @@
+/*
+	Utility Definitions.
+*/
+
+#ifndef __UTILS_H
+#define __UTILS_H
+
+/* stuff from util.c */
+extern tree root;
+extern list Lnil;
+extern list all;
+
+extern BOOLEAN nonstandardFlag;
+extern BOOLEAN hashIds;
+extern BOOLEAN acceptPrim;
+extern BOOLEAN etags;
+				  
+extern BOOLEAN ignoreSCC;
+extern BOOLEAN warnSCC;
+				  
+extern BOOLEAN implicitPrelude;
+extern BOOLEAN ignorePragmas;
+
+extern int minAcceptablePragmaVersion;
+extern int maxAcceptablePragmaVersion;
+extern int thisIfacePragmaVersion;
+
+extern unsigned hash_table_size;
+extern char *input_file_dir;
+
+extern list imports_dirlist;
+extern list sys_imports_dirlist;
+
+extern char HiSuffix[];
+extern char PreludeHiSuffix[];
+
+extern void process_args PROTO((int, char **));
+
+/* end of util.c stuff */
+
+extern list mklcons	PROTO((void *h, list t)); /* if we have PROTO, we have "void *" */
+extern list lapp	PROTO((list l1, void *l2));
+extern list lconc	PROTO((list l1, list l2));
+extern list mktruecase	PROTO((tree t));
+
+#define lsing(l) mklcons(l, Lnil)		/* Singleton Lists */
+#define ldub(l1, l2) mklcons(l1, lsing(l2))	/* Two-element Lists */
+
+#define FN fns[icontexts]
+#define SAMEFN samefn[icontexts]
+#define PREVPATT prevpatt[icontexts]
+
+extern tree *Rginfun PROTO((struct Sap *));
+extern tree *Rginarg1 PROTO((struct Sap *));
+extern tree *Rginarg2 PROTO((struct Sap *));
+
+#define ginfun(xx) *Rginfun(xx)
+#define ginarg1(xx) *Rginarg1(xx)
+#define ginarg2(xx) *Rginarg2(xx)
+
+extern id installid PROTO((char *));		   /* Create a new identifier */
+extern hstring installHstring PROTO((int, char *)); /* Create a new literal string */
+
+extern id install_literal PROTO((char *));
+extern char	*id_to_string PROTO((id));
+
+extern struct infix *infixlookup();
+
+/* partain additions */
+
+extern char	*xmalloc PROTO((unsigned)); /* just a GNU-style error-checking malloc */
+extern int	 printf  PROTO((const char *, ...));
+extern int	 fprintf PROTO((FILE *, const char *, ...));
+/*varies (sun/alpha): extern int	 fputc   PROTO((char, FILE *)); */
+extern int	 fputs	 PROTO((const char *, FILE *));
+extern int  	 sscanf	 PROTO((const char *, const char *, ...));
+extern long	 strtol  PROTO((const char *, char **, int));
+extern size_t	 fread	 PROTO((void *, size_t, size_t, FILE *));
+extern int	 fclose  PROTO((FILE *));
+extern int	 isatty	 PROTO((int));
+/*extern ???       _filbuf */
+/*extern ???  	 _flsbuf */
+
+extern void	 format_string PROTO((FILE *, unsigned char *, int));
+extern tree	 mkbinop PROTO((char *, tree, tree));
+extern tree	 mkinfixop PROTO((char *, tree, tree));
+extern list	 type2context PROTO((ttype));
+extern pbinding  createpat PROTO((list, binding));
+extern void	 process_args PROTO((int, char **));
+extern void	 hash_init PROTO((void));
+extern void	 print_hash_table PROTO((void));
+extern long int	 hash_index PROTO((id));
+extern void	 yyinit PROTO((void));
+extern int	 yyparse PROTO((void));
+extern int	 yylex PROTO((void));
+extern void	 setyyin PROTO((char *));
+extern void	 yyerror PROTO((char *));
+extern void	 error PROTO((char *));
+extern void	 hsperror PROTO((char *));
+extern void	 enteriscope PROTO((void));
+extern void	 exposeis PROTO((void));
+extern void	 makeinfix PROTO((id, int, int));
+extern int	 nfixes PROTO((void));
+extern long int	 precedence PROTO((int));
+extern int	 pprecedence PROTO((struct infix *));
+extern void	 rearrangeprec PROTO((tree, tree));
+extern int	 pfixity PROTO((struct infix *));
+extern void 	 hsincindent PROTO((void));
+extern void	 hssetindent PROTO((void));
+extern void	 hsentercontext PROTO((int));
+extern void	 hsendindent PROTO((void));
+extern void	 hsindentoff PROTO((void));
+
+extern int	 checkfixity PROTO((char *));
+extern void	 checksamefn PROTO((char *));
+extern void	 checkcontext PROTO((list));
+extern void	 checkinpat PROTO((void));
+extern void	 checkpatt PROTO((tree));
+extern BOOLEAN	 lhs_is_patt PROTO((tree));
+extern tree	 function PROTO((tree));
+extern void	 checkconap PROTO((tree, tree));
+extern void	 extendfn PROTO((binding, binding));
+extern void	 precparse PROTO((tree));
+extern void	 checkorder PROTO((binding));
+extern BOOLEAN	 checkorder2 PROTO((binding, BOOLEAN));
+extern BOOLEAN	 checksig PROTO((BOOLEAN, binding));
+extern void	 checkprec PROTO((tree, id, BOOLEAN));
+extern BOOLEAN	 isconstr PROTO((char *));
+extern void	 setstartlineno PROTO((void));
+extern void	 pprogram PROTO((tree));
+extern void	 who_am_i PROTO((void));
+extern void	 new_filename PROTO((char *));
+extern int	 Return PROTO((int));
+
+/* mattson additions */
+extern char *xstrdup PROTO((char *));	    	/* Duplicate a string */
+extern char *xstrndup PROTO((char *, unsigned));/* Duplicate a substring */
+extern char *xrealloc PROTO((char *, unsigned));/* Re-allocate a string */
+
+#endif /* __UTILS_H */