added project

dvm/fdvm/trunk/Sage/h/elist.h

@@ -0,0 +1,79 @@
+/*********************************************************************/
+/*                  pC++/Sage++  Copyright (C) 1993                  */
+/*  Indiana University  University of Oregon  University of Rennes   */
+/*********************************************************************/
+
+
+struct ELIST_rec
+       {
+	  int type; /* 0 for int, 1 for string, 2 for ELIST */
+	  char * car;
+	  struct ELIST_rec * cdr;
+       };
+
+#define TEINT 0
+#define TESTRING 1
+#define TELIST 2
+
+typedef struct ELIST_rec * ELIST;
+
+
+/* 
+   the following two defines are pretty bad. But have been done so as to
+   avoid globals which look like global variables. For these to go away
+   libdb.a has to change.
+*/
+#define currentFile cur_file
+#define currentProject cur_proj
+
+extern PTR_FILE currentFile;    /* actually cur_file */
+extern PTR_PROJ currentProject; /* actually cur_proj */
+
+#ifndef TRUE
+#  define TRUE 1
+#endif
+#ifndef FALSE
+#  define FALSE 0
+#endif
+
+/* functions that are used within the cbaselib */
+ELIST ENew( /* etype */ );
+void EFree( /* e */ );
+ELIST ECopy( /* e */ );
+ELIST ECpCar( /* e */ );
+ELIST ECpCdr( /* e */ );
+ELIST EAppend( /* e1, e2 */ );
+ELIST EString( /* s */ );
+ELIST ENumber( /* n */ );
+ELIST ECons( /* e1, e2 */ );
+int ENumP(/*e*/);
+int EStringP(/*e*/);
+int EListP(/*e*/);
+
+#define ECar(x) ((x)->car)
+#define ECdr(x) ((x)->cdr)
+#define ECaar(x) (ECar((ELIST)ECar(x)))
+#define ECdar(x) (ECdr((ELIST)ECar(x)))
+#define ECadr(x) (ECar(ECdr(x)))
+#define ECddr(x) (ECdr(ECdr(x)))
+
+#define ECaaar(x) (ECar((ELIST)ECaar(x)))
+#define ECdaar(x) (ECdr((ELIST)ECaar(x)))
+#define ECadar(x) (ECar(ECdar(x)))
+#define ECaadr(x) (ECar((ELIST)ECadr(x)))
+#define ECaddr(x) (ECar(ECddr(x)))
+#define ECddar(x) (ECdr(ECdar(x)))
+#define ECdadr(x) (ECdr((ELIST)ECadr(x)))
+#define ECdddr(x) (ECdr(ECddr(x)))
+
+char *Allocate(/* size */);
+
+PTR_BFND FindCurrBifNode( /* id */ );
+PTR_LLND FindLLNode( /* id */ );
+PTR_LABEL FindLabNode(/* id */);
+PTR_SYMB FindSymbolNode(/* id */);
+PTR_TYPE FindTypeNode(/* id */);   
+PTR_FILE FindFileObj(/* filename */);
+PTR_DEP FindDepNode(/* id */); 
+PTR_BFND MakeDeclStmt(/* s */);
+int VarId(/* id */);