sync.c
Go to the documentation of this file.
1 /* a C function in "sync.c" */
2 /* cc -c -fpic sync.c
3 /* ld -shared -o sync.so sync.o
4 /* eus$ (setq m (load-foreign "sync.so"))
5 /* #<load-module #X818f520 "./sync.so">
6 /* eus$ (defforeign sync m "sync" (:float) :float)
7 /* #<foreign-code #X818f5e0>
8 /* eus$ sync 1.0
9 /* 0.841471
10 /* eus$ sync 2.0
11 /* 0.454649
12 /* eus$ sync 0.01
13 /* 0.999983
14 */
15 
16 
17 float sync(x) double x;
18 { extern double sin();
19  return(sin(x)/x);}
20 
21 int average(x,y)
22 int x,y;
23 { return((x+y)/2);}
24 
double sin()
int average(int x, int y)
Definition: sync.c:21
float sync(double x)
Definition: sync.c:17


euslisp
Author(s): Toshihiro Matsui
autogenerated on Mon Feb 28 2022 22:18:28