24 lines
468 B
Plaintext
24 lines
468 B
Plaintext
|
import stdlib.sl
|
||
|
|
import float.sl
|
||
|
|
|
||
|
|
# C-style externs (auto ABI handling)
|
||
|
|
extern long labs(long n)
|
||
|
|
extern void exit(int status)
|
||
|
|
extern double atan2(double y, double x)
|
||
|
|
|
||
|
|
word main
|
||
|
|
# Test C-style extern with implicit ABI handling
|
||
|
|
-10 labs puti cr
|
||
|
|
|
||
|
|
1.5 2.5 f+ # 4.0
|
||
|
|
fputln
|
||
|
|
|
||
|
|
# External math library (libm)
|
||
|
|
10.0 10.0 atan2 # Result is pi/4
|
||
|
|
4.0 f* # Approx pi
|
||
|
|
fputln
|
||
|
|
|
||
|
|
# Test extern void
|
||
|
|
0 exit
|
||
|
|
end
|