ifeval.sl

一个C格式的脚本处理函数库源代码,可让你的C程序具有执行C格式的脚本文件

#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
_debug_info = 1; () = evalfile ("inc.sl");
#else
failed("#else");
#endif


#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
print ("Testing #ifeval ...");
#else
failed("#else");
#endif

#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
define
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
check_typeof
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
(expr,
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
 type)
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
{
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
   if
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
     (typeof (
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
	      expr)
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
      != type)
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
     failed (
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
"typeof " + string (
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
type) + " found " + string (
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
typeof(
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
expr)));
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
}
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
static variable 
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
Silly = [
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
1,
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
2,
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
3,
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
4,
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
5,
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
6];
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
if (length (Silly) != 6)
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
  failed ("Silly Array");
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
Silly = [1:
#else
failed("#else");
#endif
#ifeval variable XXX = [1:3]; XXX = [1,2,3]; length(XXX);
10];
#else
failed("#else");
#endif
#ifeval variable XXX = [1:3]; XXX = [1,2,3]; length(XXX);
if (length (Silly) != 10) failed ("[1:10]");
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
Silly = struct
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
{
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
   a,
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {x = struct { c, d, a}; return 1;} crazy (0,0,0,0);
   b,
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
   c
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
};
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
Silly.a = "hello";
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
define check_bool (
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
i)
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
{
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
   check_typeof (
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
i == i,
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
 Char_Type);
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
}
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
define check_result (
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
i,
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
 j,
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
 k)
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
{
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
   if (
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
k != i + j)
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
     failed (
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
sprintf(
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
"%S + %S != %S",
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
 typeof (
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
i),
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
 typeof(
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
j),
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
 typeof(
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
k)));
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
}
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
check_typeof(
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
'a',
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
 UChar_Type);
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
check_typeof (
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
'a' + 'b',
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
 Integer_Type);
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
check_typeof (
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
1h + 'b',
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
 Integer_Type);
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
if (
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
Integer_Type == Short_Type) check_typeof (
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
1hu + 'b',
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
 UInteger_Type);
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
else check_typeof (
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
1hu + 'b',
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
 Integer_Type);
#else
failed("#else");
#endif

print (
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
       "Ok\n");
exit (
#else
failed("#else");
#endif
#ifeval define crazy (x,y,z,w) {return 1;} crazy (0,0,0,0);
0);
#else
failed("#else");
#endif

failed ("Should not see this!!!");