aboutsummaryrefslogtreecommitdiff
path: root/src/modsupport.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/modsupport.c')
-rw-r--r--src/modsupport.c464
1 files changed, 232 insertions, 232 deletions
diff --git a/src/modsupport.c b/src/modsupport.c
index 1044268..cf3e7b2 100644
--- a/src/modsupport.c
+++ b/src/modsupport.c
@@ -2,12 +2,12 @@
Copyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The
Netherlands.
- All Rights Reserved
+ All Rights Reserved
-Permission to use, copy, modify, and distribute this software and its
-documentation for any purpose and without fee is hereby granted,
+Permission to use, copy, modify, and distribute this software and its
+documentation for any purpose and without fee is hereby granted,
provided that the above copyright notice appear in all copies and that
-both that copyright notice and this permission notice appear in
+both that copyright notice and this permission notice appear in
supporting documentation, and that the names of Stichting Mathematisch
Centrum or CWI not be used in advertising or publicity pertaining to
distribution of the software without specific, written prior permission.
@@ -31,351 +31,351 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
object *
initmodule(name, methods)
- char *name;
- struct methodlist *methods;
+ char *name;
+ struct methodlist *methods;
{
- object *m, *d, *v;
- struct methodlist *ml;
- char namebuf[256];
- if ((m = add_module(name)) == NULL) {
- fprintf(stderr, "initializing module: %s\n", name);
- fatal("can't create a module");
- }
- d = getmoduledict(m);
- for (ml = methods; ml->ml_name != NULL; ml++) {
- sprintf(namebuf, "%s.%s", name, ml->ml_name);
- v = newmethodobject(strdup(namebuf), ml->ml_meth,
- (object *)NULL);
- /* XXX The strdup'ed memory is never freed */
- if (v == NULL || dictinsert(d, ml->ml_name, v) != 0) {
- fprintf(stderr, "initializing module: %s\n", name);
- fatal("can't initialize module");
- }
- DECREF(v);
- }
- return m;
+ object *m, *d, *v;
+ struct methodlist *ml;
+ char namebuf[256];
+ if ((m = add_module(name)) == NULL) {
+ fprintf(stderr, "initializing module: %s\n", name);
+ fatal("can't create a module");
+ }
+ d = getmoduledict(m);
+ for (ml = methods; ml->ml_name != NULL; ml++) {
+ sprintf(namebuf, "%s.%s", name, ml->ml_name);
+ v = newmethodobject(strdup(namebuf), ml->ml_meth,
+ (object *)NULL);
+ /* XXX The strdup'ed memory is never freed */
+ if (v == NULL || dictinsert(d, ml->ml_name, v) != 0) {
+ fprintf(stderr, "initializing module: %s\n", name);
+ fatal("can't initialize module");
+ }
+ DECREF(v);
+ }
+ return m;
}
/* Argument list handling tools.
- All return 1 for success, or call err_set*() and return 0 for failure */
+ All return 1 for success, or call err_set*() and return 0 for failure */
int
getnoarg(v)
- object *v;
+ object *v;
{
- if (v != NULL) {
- return err_badarg();
- }
- return 1;
+ if (v != NULL) {
+ return err_badarg();
+ }
+ return 1;
}
int
getintarg(v, a)
- object *v;
- int *a;
+ object *v;
+ int *a;
{
- if (v == NULL || !is_intobject(v)) {
- return err_badarg();
- }
- *a = getintvalue(v);
- return 1;
+ if (v == NULL || !is_intobject(v)) {
+ return err_badarg();
+ }
+ *a = getintvalue(v);
+ return 1;
}
int
getintintarg(v, a, b)
- object *v;
- int *a;
- int *b;
+ object *v;
+ int *a;
+ int *b;
{
- if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
- return err_badarg();
- }
- return getintarg(gettupleitem(v, 0), a) &&
- getintarg(gettupleitem(v, 1), b);
+ if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
+ return err_badarg();
+ }
+ return getintarg(gettupleitem(v, 0), a) &&
+ getintarg(gettupleitem(v, 1), b);
}
int
getlongarg(v, a)
- object *v;
- long *a;
+ object *v;
+ long *a;
{
- if (v == NULL || !is_intobject(v)) {
- return err_badarg();
- }
- *a = getintvalue(v);
- return 1;
+ if (v == NULL || !is_intobject(v)) {
+ return err_badarg();
+ }
+ *a = getintvalue(v);
+ return 1;
}
int
getlonglongargs(v, a, b)
- object *v;
- long *a, *b;
+ object *v;
+ long *a, *b;
{
- if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
- return err_badarg();
- }
- return getlongarg(gettupleitem(v, 0), a) &&
- getlongarg(gettupleitem(v, 1), b);
+ if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
+ return err_badarg();
+ }
+ return getlongarg(gettupleitem(v, 0), a) &&
+ getlongarg(gettupleitem(v, 1), b);
}
int
getlonglongobjectargs(v, a, b, c)
- object *v;
- long *a, *b;
- object **c;
+ object *v;
+ long *a, *b;
+ object **c;
{
- if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 3) {
- return err_badarg();
- }
- if (getlongarg(gettupleitem(v, 0), a) &&
- getlongarg(gettupleitem(v, 1), b)) {
- *c = gettupleitem(v, 2);
- return 1;
- }
- else {
- return err_badarg();
- }
+ if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 3) {
+ return err_badarg();
+ }
+ if (getlongarg(gettupleitem(v, 0), a) &&
+ getlongarg(gettupleitem(v, 1), b)) {
+ *c = gettupleitem(v, 2);
+ return 1;
+ }
+ else {
+ return err_badarg();
+ }
}
int
getstrarg(v, a)
- object *v;
- object **a;
+ object *v;
+ object **a;
{
- if (v == NULL || !is_stringobject(v)) {
- return err_badarg();
- }
- *a = v;
- return 1;
+ if (v == NULL || !is_stringobject(v)) {
+ return err_badarg();
+ }
+ *a = v;
+ return 1;
}
int
getstrstrarg(v, a, b)
- object *v;
- object **a;
- object **b;
+ object *v;
+ object **a;
+ object **b;
{
- if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
- return err_badarg();
- }
- return getstrarg(gettupleitem(v, 0), a) &&
- getstrarg(gettupleitem(v, 1), b);
+ if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
+ return err_badarg();
+ }
+ return getstrarg(gettupleitem(v, 0), a) &&
+ getstrarg(gettupleitem(v, 1), b);
}
int
getstrstrintarg(v, a, b, c)
- object *v;
- object **a;
- object **b;
- int *c;
+ object *v;
+ object **a;
+ object **b;
+ int *c;
{
- if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 3) {
- return err_badarg();
- }
- return getstrarg(gettupleitem(v, 0), a) &&
- getstrarg(gettupleitem(v, 1), b) &&
- getintarg(gettupleitem(v, 2), c);
+ if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 3) {
+ return err_badarg();
+ }
+ return getstrarg(gettupleitem(v, 0), a) &&
+ getstrarg(gettupleitem(v, 1), b) &&
+ getintarg(gettupleitem(v, 2), c);
}
int
getstrintarg(v, a, b)
- object *v;
- object **a;
- int *b;
+ object *v;
+ object **a;
+ int *b;
{
- if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
- return err_badarg();
- }
- return getstrarg(gettupleitem(v, 0), a) &&
- getintarg(gettupleitem(v, 1), b);
+ if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
+ return err_badarg();
+ }
+ return getstrarg(gettupleitem(v, 0), a) &&
+ getintarg(gettupleitem(v, 1), b);
}
int
getintstrarg(v, a, b)
- object *v;
- int *a;
- object **b;
+ object *v;
+ int *a;
+ object **b;
{
- if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
- return err_badarg();
- }
- return getintarg(gettupleitem(v, 0), a) &&
- getstrarg(gettupleitem(v, 1), b);
+ if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
+ return err_badarg();
+ }
+ return getintarg(gettupleitem(v, 0), a) &&
+ getstrarg(gettupleitem(v, 1), b);
}
int
getpointarg(v, a)
- object *v;
- int *a; /* [2] */
+ object *v;
+ int *a; /* [2] */
{
- return getintintarg(v, a, a+1);
+ return getintintarg(v, a, a+1);
}
int
get3pointarg(v, a)
- object *v;
- int *a; /* [6] */
+ object *v;
+ int *a; /* [6] */
{
- if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 3) {
- return err_badarg();
- }
- return getpointarg(gettupleitem(v, 0), a) &&
- getpointarg(gettupleitem(v, 1), a+2) &&
- getpointarg(gettupleitem(v, 2), a+4);
+ if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 3) {
+ return err_badarg();
+ }
+ return getpointarg(gettupleitem(v, 0), a) &&
+ getpointarg(gettupleitem(v, 1), a+2) &&
+ getpointarg(gettupleitem(v, 2), a+4);
}
int
getrectarg(v, a)
- object *v;
- int *a; /* [2+2] */
+ object *v;
+ int *a; /* [2+2] */
{
- if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
- return err_badarg();
- }
- return getpointarg(gettupleitem(v, 0), a) &&
- getpointarg(gettupleitem(v, 1), a+2);
+ if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
+ return err_badarg();
+ }
+ return getpointarg(gettupleitem(v, 0), a) &&
+ getpointarg(gettupleitem(v, 1), a+2);
}
int
getrectintarg(v, a)
- object *v;
- int *a; /* [4+1] */
+ object *v;
+ int *a; /* [4+1] */
{
- if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
- return err_badarg();
- }
- return getrectarg(gettupleitem(v, 0), a) &&
- getintarg(gettupleitem(v, 1), a+4);
+ if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
+ return err_badarg();
+ }
+ return getrectarg(gettupleitem(v, 0), a) &&
+ getintarg(gettupleitem(v, 1), a+4);
}
int
getpointintarg(v, a)
- object *v;
- int *a; /* [2+1] */
+ object *v;
+ int *a; /* [2+1] */
{
- if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
- return err_badarg();
- }
- return getpointarg(gettupleitem(v, 0), a) &&
- getintarg(gettupleitem(v, 1), a+2);
+ if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
+ return err_badarg();
+ }
+ return getpointarg(gettupleitem(v, 0), a) &&
+ getintarg(gettupleitem(v, 1), a+2);
}
int
getpointstrarg(v, a, b)
- object *v;
- int *a; /* [2] */
- object **b;
+ object *v;
+ int *a; /* [2] */
+ object **b;
{
- if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
- return err_badarg();
- }
- return getpointarg(gettupleitem(v, 0), a) &&
- getstrarg(gettupleitem(v, 1), b);
+ if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
+ return err_badarg();
+ }
+ return getpointarg(gettupleitem(v, 0), a) &&
+ getstrarg(gettupleitem(v, 1), b);
}
int
getstrintintarg(v, a, b, c)
- object *v;
- object *a;
- int *b, *c;
+ object *v;
+ object *a;
+ int *b, *c;
{
- if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 3) {
- return err_badarg();
- }
- return getstrarg(gettupleitem(v, 0), a) &&
- getintarg(gettupleitem(v, 1), b) &&
- getintarg(gettupleitem(v, 2), c);
+ if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 3) {
+ return err_badarg();
+ }
+ return getstrarg(gettupleitem(v, 0), a) &&
+ getintarg(gettupleitem(v, 1), b) &&
+ getintarg(gettupleitem(v, 2), c);
}
int
getrectpointarg(v, a)
- object *v;
- int *a; /* [4+2] */
+ object *v;
+ int *a; /* [4+2] */
{
- if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
- return err_badarg();
- }
- return getrectarg(gettupleitem(v, 0), a) &&
- getpointarg(gettupleitem(v, 1), a+4);
+ if (v == NULL || !is_tupleobject(v) || gettuplesize(v) != 2) {
+ return err_badarg();
+ }
+ return getrectarg(gettupleitem(v, 0), a) &&
+ getpointarg(gettupleitem(v, 1), a+4);
}
int
getlongtuplearg(args, a, n)
- object *args;
- long *a; /* [n] */
- int n;
+ object *args;
+ long *a; /* [n] */
+ int n;
{
- int i;
- if (!is_tupleobject(args) || gettuplesize(args) != n) {
- return err_badarg();
- }
- for (i = 0; i < n; i++) {
- object *v = gettupleitem(args, i);
- if (!is_intobject(v)) {
- return err_badarg();
- }
- a[i] = getintvalue(v);
- }
- return 1;
+ int i;
+ if (!is_tupleobject(args) || gettuplesize(args) != n) {
+ return err_badarg();
+ }
+ for (i = 0; i < n; i++) {
+ object *v = gettupleitem(args, i);
+ if (!is_intobject(v)) {
+ return err_badarg();
+ }
+ a[i] = getintvalue(v);
+ }
+ return 1;
}
int
getshorttuplearg(args, a, n)
- object *args;
- short *a; /* [n] */
- int n;
+ object *args;
+ short *a; /* [n] */
+ int n;
{
- int i;
- if (!is_tupleobject(args) || gettuplesize(args) != n) {
- return err_badarg();
- }
- for (i = 0; i < n; i++) {
- object *v = gettupleitem(args, i);
- if (!is_intobject(v)) {
- return err_badarg();
- }
- a[i] = getintvalue(v);
- }
- return 1;
+ int i;
+ if (!is_tupleobject(args) || gettuplesize(args) != n) {
+ return err_badarg();
+ }
+ for (i = 0; i < n; i++) {
+ object *v = gettupleitem(args, i);
+ if (!is_intobject(v)) {
+ return err_badarg();
+ }
+ a[i] = getintvalue(v);
+ }
+ return 1;
}
int
getlonglistarg(args, a, n)
- object *args;
- long *a; /* [n] */
- int n;
+ object *args;
+ long *a; /* [n] */
+ int n;
{
- int i;
- if (!is_listobject(args) || getlistsize(args) != n) {
- return err_badarg();
- }
- for (i = 0; i < n; i++) {
- object *v = getlistitem(args, i);
- if (!is_intobject(v)) {
- return err_badarg();
- }
- a[i] = getintvalue(v);
- }
- return 1;
+ int i;
+ if (!is_listobject(args) || getlistsize(args) != n) {
+ return err_badarg();
+ }
+ for (i = 0; i < n; i++) {
+ object *v = getlistitem(args, i);
+ if (!is_intobject(v)) {
+ return err_badarg();
+ }
+ a[i] = getintvalue(v);
+ }
+ return 1;
}
int
getshortlistarg(args, a, n)
- object *args;
- short *a; /* [n] */
- int n;
+ object *args;
+ short *a; /* [n] */
+ int n;
{
- int i;
- if (!is_listobject(args) || getlistsize(args) != n) {
- return err_badarg();
- }
- for (i = 0; i < n; i++) {
- object *v = getlistitem(args, i);
- if (!is_intobject(v)) {
- return err_badarg();
- }
- a[i] = getintvalue(v);
- }
- return 1;
+ int i;
+ if (!is_listobject(args) || getlistsize(args) != n) {
+ return err_badarg();
+ }
+ for (i = 0; i < n; i++) {
+ object *v = getlistitem(args, i);
+ if (!is_intobject(v)) {
+ return err_badarg();
+ }
+ a[i] = getintvalue(v);
+ }
+ return 1;
}
generated by cgit v1.2.3 (git 2.25.1) at 2026-06-17 13:25:52 +0000