pike.git / bin / test_pike.pike

version» Context lines:

pike.git/bin/test_pike.pike:1:   #!/usr/local/bin/pike    - /* $Id: test_pike.pike,v 1.54 2001/02/21 16:31:43 mirar Exp $ */ + /* $Id: test_pike.pike,v 1.55 2001/06/23 21:52:43 hubbe Exp $ */      import Stdio;      #if !constant(_verify_internals)   #define _verify_internals()   #endif      #if !constant(_dmalloc_set_name)   void _dmalloc_set_name(mixed ... args) {}   #endif
pike.git/bin/test_pike.pike:481:    if(sscanf(gnapp[e],"%*d"))    {    computed_line=0;    break;    }    }    string linetester="int __cpp_line=__LINE__; int __rtl_line=[int]backtrace()[-1][1];\n";       string to_compile = test + linetester + widener;    +  if((shift/6)&1) +  { +  fname+=" (save parent)"; +  to_compile= +  "#pragma save_parent\n" +  "# 1\n" +  +to_compile; +  } +     if((shift/3)&1)    {    fname+=" (CRNL)";    to_compile=replace(to_compile,"\n","\r\n");    }    -  +     // _optimizer_debug(5);       if(verbose>9) bzot(to_compile);    switch(type)    {    mixed at,bt;    mixed err;    case "COMPILE":    _dmalloc_set_name(fname,0);    if(catch(compile_string(to_compile, fname)))