12a43edc2d
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
10 lines
422 B
Scheme
10 lines
422 B
Scheme
(or (= (ICONST) 42) (exit 1))
|
|
(or (< (abs (- (FCONST) 2.1828)) 0.00001) (exit 1))
|
|
(or (char=? (CCONST) #\x) (exit 1))
|
|
(or (char=? (CCONST2) #\newline) (exit 1))
|
|
(or (string=? (SCONST) "Hello World") (exit 1))
|
|
(or (string=? (SCONST2) "\"Hello World\"") (exit 1))
|
|
(or (< (abs (- (EXPR) (+ (ICONST) (* 3 (FCONST))))) 0.00001) (exit 1))
|
|
(or (= (iconst) 37) (exit 1))
|
|
(or (< (abs (- (fconst) 3.14)) 0.00001) (exit 1))
|
|
(exit 0)
|