Changeset f2c53c0 in git for Singular/libparse.h

Timestamp:

Jan 29, 2010, 2:17:17 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b4f17ed1d25f93d46dbe29e4b499baecc2fd51bb')

Children:

319f7948b5d13ad1012fdfd9c4113b6aced44bd4

Parents:

20d4b60dbf3e6336262bc0f3909917d6f602bbe6

Message:

libparse fixed

git-svn-id: file:///usr/local/Singular/svn/trunk@12480 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/libparse.h (modified) (1 diff)

Singular/libparse.h

@@ -8 +8 @@
 * ABSTRACT: lib parsing
 */
-#  include "structs.h"
-#  include "subexpr.h"
+typedef enum { OLD_LIBSTYLE, NEW_LIBSTYLE } lib_style_types;
 typedef enum { LOAD_LIB, GET_INFO } lp_modes;
-typedef enum { OLD_LIBSTYLE, NEW_LIBSTYLE } lib_style_types;
 
-procinfo *iiInitSingularProcinfo(procinfov pi, const char *libname,
+#ifdef STANDALONE_PARSER
+
+
+#define idhdl void*
+#define leftv void*
+#define package void*
+#define BOOLEAN int
+
+typedef enum { LANG_NONE, LANG_TOP, LANG_SINGULAR, LANG_C, LANG_MAX} language_defs;
+// LANG_TOP     : Toplevel package only
+// LANG_SINGULAR:
+// LANG_C       :
+//
+
+class proc_singular
+{
+public:
+  long   proc_start;       // position where proc is starting
+  long   def_end;          // position where proc header is ending
+  long   help_start;       // position where help is starting
+  long   help_end;         // position where help is starting
+  long   body_start;       // position where proc-body is starting
+  long   body_end;         // position where proc-body is ending
+  long   example_start;    // position where example is starting
+  long   proc_end;         // position where proc is ending
+  int    proc_lineno;
+  int    body_lineno;
+  int    example_lineno;
+  char   *body;
+  long help_chksum;
+};
+
+struct proc_object
+{
+//public:
+  BOOLEAN (*function)(leftv res, leftv v);
+};
+union uprocinfodata
+{
+public:
+  proc_singular  s;        // data of Singular-procedure
+  struct proc_object    o; // pointer to binary-function
+};
+
+typedef union uprocinfodata procinfodata;
+
+class procinfo;
+typedef procinfo *         procinfov;
+
+class procinfo
+{
+public:
+  char          *libname;
+  char          *procname;
+  package       pack;
+  language_defs language;
+  short         ref;
+  char          is_static;        // if set, proc not accessible for user
+  char          trace_flag;
+  procinfodata  data;
+};
+#else
+#include "febase.h"
+#endif
+
+procinfo *iiInitSingularProcinfo(procinfo* pi, const char *libname,
               const char *procname, int line, long pos, BOOLEAN pstatic=FALSE);