try to make initialisation process more robust

try to make name more robust (in case Lookup new atom fails)


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1254 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

include/YapInterface.h

@@ -24,6 +24,10 @@
 
 #include "yap_structs.h"
 
+#if HAVE_STDARG_H
+#include <stdarg.h>
+#endif
+
 #ifndef _yap_c_interface_h
 
 #define _yap_c_interface_h 1
@@ -220,8 +224,8 @@ extern X_API YAP_Bool PROTO(YAP_GoalHasException,(YAP_Term *));
 /*  int YAP_Reset(void) */
 extern X_API void PROTO(YAP_Reset,(void));
 
-/*  void YAP_Error(char *) */
-extern X_API void PROTO(YAP_Error,(char *));
+/*  void YAP_Error(int, YAP_Term, char *,...) */
+extern X_API void PROTO(YAP_Error,(int, YAP_Term, char *, ...));
 
 /*  YAP_Term YAP_Read(int (*)(void)) */
 extern X_API YAP_Term PROTO(YAP_Read,(int (*)(void)));

include/yap_structs.h

@@ -53,7 +53,7 @@ typedef struct AtomEntry *YAP_Atom;
 #define YAP_BOOT_FROM_SAVED_CODE   1
 #define YAP_BOOT_FROM_SAVED_STACKS 2
 #define YAP_FULL_BOOT_FROM_PROLOG  4
-#define YAP_BOOT_FROM_SAVED_ERROR  -1
+#define YAP_BOOT_ERROR            -1
 
 #define YAP_WRITE_QUOTED		0
 #define YAP_WRITE_HANDLE_VARS		1
@@ -98,6 +98,10 @@ typedef struct {
   int Argc;
   /* array of arguments as seen by Prolog */
   char **Argv;
+  /* errornumber */
+  int ErrorNo;
+  /* errorstring */
+  char *ErrorCause;
 } YAP_init_args;