Skip to content

Commit 2ca9ff6

Browse files
YoheiKakiuchiYoheiKakiuchi
committed
update
1 parent fde700e commit 2ca9ff6

16 files changed

+46
-46
lines changed

‎lib/clib/bessel.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -17,4 +17,4 @@ bessel(ctx,n,argv,env)
1717
context *ctx;
1818
int n;
1919
pointer argv[], *env;
20-
{ defun(ctx, "BESSEL", argv[0], BESSEL);}
20+
{ defun(ctx, "BESSEL", argv[0], BESSEL,NULL);}

‎lib/clib/charconv.c

+4-4
Original file line numberDiff line numberDiff line change
@@ -88,10 +88,10 @@ pointer ICONV(context *ctx, int n, pointer *argv)
8888

8989
charconv(context *ctx, int n, pointer argv[])
9090
{ pointer mod=argv[0];
91-
defun(ctx,"CHARCONV",mod,cconv);
92-
defun(ctx,"ICONV-OPEN", mod, ICONVOPEN);
93-
defun(ctx,"ICONV-CLOSE", mod, ICONVCLOSE);
94-
defun(ctx, "ICONV", mod, ICONV);
91+
defun(ctx,"CHARCONV",mod,cconv,NULL);
92+
defun(ctx,"ICONV-OPEN", mod, ICONVOPEN,NULL);
93+
defun(ctx,"ICONV-CLOSE", mod, ICONVCLOSE,NULL);
94+
defun(ctx, "ICONV", mod, ICONV,NULL);
9595
}
9696

9797

‎lib/clib/floatdouble.c

+3-3
Original file line numberDiff line numberDiff line change
@@ -92,9 +92,9 @@ context *ctx;
9292
int n;
9393
pointer argv[];
9494
{ pointer mod=argv[0];
95-
defun(ctx,"FLOAT2DOUBLE",mod,F2D);
96-
defun(ctx,"DOUBLE2FLOAT",mod,D2F);
97-
defun(ctx,"SHORT2FLOAT",mod,S2F);
95+
defun(ctx,"FLOAT2DOUBLE",mod,F2D,NULL);
96+
defun(ctx,"DOUBLE2FLOAT",mod,D2F,NULL);
97+
defun(ctx,"SHORT2FLOAT",mod,S2F,NULL);
9898
}
9999

100100

‎lib/clib/linux_lowio.c

+3-3
Original file line numberDiff line numberDiff line change
@@ -42,9 +42,9 @@ pointer linux_lowio(context *ctx, int n, pointer argv[], pointer env)
4242

4343
printf("ioperm, outb, inb\n");
4444

45-
defun(ctx,"IOPERM", mod, IOPERM);
46-
defun(ctx,"OUTB", mod, OUTB);
47-
defun(ctx,"INB", mod, INB);
45+
defun(ctx,"IOPERM", mod, IOPERM,NULL);
46+
defun(ctx,"OUTB", mod, OUTB,NULL);
47+
defun(ctx,"INB", mod, INB,NULL);
4848

4949
printf("linux low level IO functions defined.\n");
5050

‎lib/clib/ndbm.c

+9-9
Original file line numberDiff line numberDiff line change
@@ -108,14 +108,14 @@ register pointer argv[];
108108

109109
ndbm(context *ctx, int n, pointer argv[])
110110
{ pointer mod=argv[0];
111-
defun(ctx,"DBM-OPEN",mod,DBM_OPEN);
112-
defun(ctx,"DBM-CLOSE",mod,DBM_CLOSE);
113-
defun(ctx,"DBM-FETCH",mod,DBM_FETCH);
114-
defun(ctx,"DBM-STORE",mod,DBM_STORE);
115-
defun(ctx,"DBM-DELETE",mod,DBM_DELETE);
116-
defun(ctx,"DBM-FIRSTKEY",mod,DBM_FIRSTKEY);
117-
defun(ctx,"DBM-NEXTKEY",mod,DBM_NEXTKEY);
118-
defun(ctx,"DBM-ERROR",mod,DBM_ERROR);
119-
defun(ctx,"DBM-CLEARERR",mod,DBM_CLEARERR);
111+
defun(ctx,"DBM-OPEN",mod,DBM_OPEN,NULL);
112+
defun(ctx,"DBM-CLOSE",mod,DBM_CLOSE,NULL);
113+
defun(ctx,"DBM-FETCH",mod,DBM_FETCH,NULL);
114+
defun(ctx,"DBM-STORE",mod,DBM_STORE,NULL);
115+
defun(ctx,"DBM-DELETE",mod,DBM_DELETE,NULL);
116+
defun(ctx,"DBM-FIRSTKEY",mod,DBM_FIRSTKEY,NULL);
117+
defun(ctx,"DBM-NEXTKEY",mod,DBM_NEXTKEY,NULL);
118+
defun(ctx,"DBM-ERROR",mod,DBM_ERROR,NULL);
119+
defun(ctx,"DBM-CLEARERR",mod,DBM_CLEARERR,NULL);
120120
}
121121

‎lib/clib/posix.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -35,7 +35,7 @@ posix(context *ctx, int n, pointer argv[])
3535
spevalof(PACKAGE)=unixpkg;
3636

3737
#if Solaris2
38-
defun(ctx,"NANOSLEEP",mod,NANOSLEEP);
38+
defun(ctx,"NANOSLEEP",mod,NANOSLEEP,NULL);
3939
#endif
4040

4141
/* restore package*/ spevalof(PACKAGE)=p;

‎lib/clib/rfft.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -37,6 +37,6 @@ pointer argv[];
3737
eusmain(mod)
3838
pointer mod;
3939
{
40-
defun("FFT",mod,FFT);
41-
defun("INVERSE-FFT",mod,INVFFT);
40+
defun("FFT",mod,FFT,NULL);
41+
defun("INVERSE-FFT",mod,INVFFT,NULL);
4242
}

‎lib/clib/sigmoid.c

+3-3
Original file line numberDiff line numberDiff line change
@@ -47,7 +47,7 @@ context *ctx;
4747
int n;
4848
pointer argv[];
4949
{ pointer mod=argv[0];
50-
defun(ctx,"SIGMOID",mod,SIGMOID);
51-
defun(ctx,"SIGMOIDX",mod,SIGMOIDX);
52-
defun(ctx,"OFFSET-VECTOR",mod,OFFSET_VECTOR);}
50+
defun(ctx,"SIGMOID",mod,SIGMOID,NULL);
51+
defun(ctx,"SIGMOIDX",mod,SIGMOIDX,NULL);
52+
defun(ctx,"OFFSET-VECTOR",mod,OFFSET_VECTOR,NULL);}
5353

‎lib/clib/ssvdc.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -61,5 +61,5 @@ context *ctx;
6161
int n;
6262
pointer argv[];
6363
{
64-
defun(ctx,"SSVDC",argv[0],SSVDC);}
64+
defun(ctx,"SSVDC",argv[0],SSVDC,NULL);}
6565

‎lib/clib/vxwcom.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -117,7 +117,7 @@ pointer CALL_VXW(context *ctx, int n, pointer argv[])
117117

118118
pointer vxwcom(context *ctx, int n, pointer argv[], pointer env)
119119
{ pointer mod = argv[0];
120-
defun(ctx, "VXW",mod,CALL_VXW);
120+
defun(ctx, "VXW",mod,CALL_VXW,NULL);
121121
return(T);
122122
}
123123

‎lisp/geo/intersection.c

+6-6
Original file line numberDiff line numberDiff line change
@@ -291,12 +291,12 @@ pointer argv[];
291291
printf("compfun=%x\n", compfun);
292292
*/
293293

294-
x=defun(ctx,"LINE-INTERSECTION",mod,LINEINTERSECTION);
295-
defun(ctx,"LINE-INTERSECTION3",mod,LINEINTERSECTION3);
294+
x=defun(ctx,"LINE-INTERSECTION",mod,LINEINTERSECTION,NULL);
295+
defun(ctx,"LINE-INTERSECTION3",mod,LINEINTERSECTION3,NULL);
296296
/* clippers*/
297-
defun(ctx,"VIEWPORTCLIP",mod,VPCLIP);
298-
defun(ctx,"HOMO-VIEWPORT-CLIP",mod,HOMO_VPCLIP);
299-
defun(ctx,"HOMO2NORMAL",mod,HOMO2NORMAL);
300-
defun(ctx,"HOMOGENIZE",mod,HOMOGENIZE);
297+
defun(ctx,"VIEWPORTCLIP",mod,VPCLIP,NULL);
298+
defun(ctx,"HOMO-VIEWPORT-CLIP",mod,HOMO_VPCLIP,NULL);
299+
defun(ctx,"HOMO2NORMAL",mod,HOMO2NORMAL,NULL);
300+
defun(ctx,"HOMOGENIZE",mod,HOMOGENIZE,NULL);
301301
return(T); }
302302

‎lisp/image/RGBHLS.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -69,7 +69,7 @@ context *ctx;
6969
int n;
7070
pointer argv[];
7171
{ pointer mod=argv[0];
72-
defun(ctx,"RGB-TO-HLS", mod, RGB_TO_HLS);
72+
defun(ctx,"RGB-TO-HLS", mod, RGB_TO_HLS,NULL);
7373
return(T);
7474
}
7575

‎lisp/image/convolve.c

+5-5
Original file line numberDiff line numberDiff line change
@@ -203,10 +203,10 @@ pointer argv[];
203203
{ pointer mod=argv[0];
204204

205205
/* printf("convolve is being initialized. mod=%x\n",mod); */
206-
defun(ctx,"CONVOLVE3",mod,CONVOLVE3);
207-
defun(ctx,"LOOK-UP",mod,LOOK_UP);
208-
defun(ctx,"HALVE-IMAGE",mod,HALVE_IMAGE);
209-
defun(ctx,"DOUBLE-IMAGE",mod,DOUBLE_IMAGE);
210-
defun(ctx,"MEDIAN-IMAGE",mod,MEDIAN_IMAGE);
206+
defun(ctx,"CONVOLVE3",mod,CONVOLVE3,NULL);
207+
defun(ctx,"LOOK-UP",mod,LOOK_UP,NULL);
208+
defun(ctx,"HALVE-IMAGE",mod,HALVE_IMAGE,NULL);
209+
defun(ctx,"DOUBLE-IMAGE",mod,DOUBLE_IMAGE,NULL);
210+
defun(ctx,"MEDIAN-IMAGE",mod,MEDIAN_IMAGE,NULL);
211211
}
212212

‎lisp/image/image_correlation.c

+3-3
Original file line numberDiff line numberDiff line change
@@ -196,8 +196,8 @@ context *ctx;
196196
int n;
197197
pointer argv[];
198198
{ pointer mod=argv[0];
199-
defun(ctx,"IMAGE-CORRELATION1",mod,IMAGE_CORRELATION1);
200-
defun(ctx,"IMAGE-CORRELATION",mod,IMAGE_CORRELATION);
201-
defun(ctx,"CIRCULAR-CORRELATION",mod,CIRCULAR_CORRELATION);
199+
defun(ctx,"IMAGE-CORRELATION1",mod,IMAGE_CORRELATION1,NULL);
200+
defun(ctx,"IMAGE-CORRELATION",mod,IMAGE_CORRELATION,NULL);
201+
defun(ctx,"CIRCULAR-CORRELATION",mod,CIRCULAR_CORRELATION,NULL);
202202
return(NIL);
203203
}

‎lisp/image/pixword.c

+2-2
Original file line numberDiff line numberDiff line change
@@ -76,7 +76,7 @@ extern void pixword(ctx,n,argv)
7676
int n;
7777
pointer argv[];
7878
{ pointer mod=argv[0];
79-
defun(ctx,"SPLIT-RGB",mod,SPLIT_RGB);
80-
defun(ctx,"MERGE-RGB",mod,MERGE_RGB);
79+
defun(ctx,"SPLIT-RGB",mod,SPLIT_RGB,NULL);
80+
defun(ctx,"MERGE-RGB",mod,MERGE_RGB,NULL);
8181
}
8282

‎lisp/opengl/src/eglfunc.c

+1-1
Original file line numberDiff line numberDiff line change
@@ -27,7 +27,7 @@ eglfunc(ctx, n, argv)
2727
int n;
2828
pointer argv[];
2929
{
30-
defun(ctx, "EGLGETSTRING", argv[0], EGLGETSTRING);
30+
defun(ctx, "EGLGETSTRING", argv[0], EGLGETSTRING,NULL);
3131
}
3232

3333
static init_object_module()

0 commit comments

Comments
 (0)