1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
$NetBSD: patch-ao,v 1.3 2010/02/12 18:18:29 sno Exp $
--- src/headers/paripriv.h.orig 2008-03-31 11:43:59.000000000 +0000
+++ src/headers/paripriv.h
@@ -850,4 +850,24 @@ GEN kbesselnew(GEN n, GEN z, long pr
GEN polylogd0(long m, GEN x, long flag, long prec);
GEN twistpartialzeta(GEN p, GEN q, long f, long c, GEN va, GEN cff);
+/* Something from src/languages/anal.[ch] to support Math::Pari */
+
+/* entrees */
+#define EpVALENCE(ep) ((ep)->valence & 0xFF)
+#define EpSTATIC(ep) ((ep)->valence & 0x100)
+#define EpSETSTATIC(ep) ((ep)->valence |= 0x100)
+#define EpPREDEFINED(ep) (EpVALENCE(ep) < EpUSER)
+enum { EpUSER = 100, EpNEW, EpALIAS, EpVAR, EpGVAR, EpMEMBER, EpINSTALL };
+
+extern entree **functions_hash; /* functions hashtable */
+extern entree functions_basic[];
+extern entree functions_highlevel[];
+extern entree *is_entry_intern(char *s, entree **table, long *hash);
+
+extern void *foreignHandler;
+extern GEN (*foreignExprHandler)(char*);
+extern char foreignExprSwitch;
+extern entree * (*foreignAutoload)(char*, long);
+extern void (*foreignFuncFree)(entree *);
+
ENDEXTERN
|
