summaryrefslogtreecommitdiff
path: root/apl9.h
diff options
context:
space:
mode:
Diffstat (limited to 'apl9.h')
-rw-r--r--apl9.h20
1 files changed, 9 insertions, 11 deletions
diff --git a/apl9.h b/apl9.h
index 88135c6..51cebfb 100644
--- a/apl9.h
+++ b/apl9.h
@@ -45,16 +45,14 @@ typedef enum
typedef enum
{
- ESyntax = 1,
- EParse,
- EValue,
- EDomain,
- ERank,
- EType,
- ELength,
- EIndex,
- EShape,
- ENotImplemented,
+ /* The numbers are the same as in dyalog */
+ ESyntax = 2,
+ EIndex = 3,
+ ERank = 4,
+ ELength = 5,
+ EValue = 6,
+ EDomain = 11,
+ ENotImplemented = 100, /* not in dyalog */
} errorCodes;
/* Data types */
@@ -330,6 +328,7 @@ Datum *quadnamedatum(QuadnameDef);
/* error.c */
ErrorGuard *newerrorguard(Array *, Statement *);
void throwerror(Rune *, int);
+Rune *errorstr(int);
/* inverse.c */
Function inverse(Function);
@@ -479,6 +478,5 @@ extern int arrayalloccounts; /* memory.c */
extern int datumalloccounts; /* memory.c */
extern QuadnameDef quadnames[]; /* quadnames.c */
extern int printprecision; /* print.c */
-extern Rune *errorstrs[]; /* error.c */
extern int needsnewline; /* quadnames.c */
extern int mainstacksize; /* concurrency.c */ \ No newline at end of file