pike.git / bin / test_pike.pike

version» Context lines:

pike.git/bin/test_pike.pike:1:   #! /usr/bin/env pike    - /* $Id: test_pike.pike,v 1.103 2004/08/31 13:45:48 grubba Exp $ */ + /* $Id: test_pike.pike,v 1.104 2004/08/31 13:55:45 grubba Exp $ */      #if !constant(_verify_internals)   #define _verify_internals()   #endif      #if !constant(_dmalloc_set_name)   void _dmalloc_set_name(mixed ... args) {}   #endif      int foo(string opt)
pike.git/bin/test_pike.pike:305:       case "watchdog":    run_watchdog( (int)opt[1] );    break;       case "notty":    maybe_tty = 0;    break;       case "help": -  stdout->write(doc); +  write(doc);    return 0;       case "verbose": verbose+=foo(opt[1]); break;    case "prompt": prompt+=foo(opt[1]); break;    case "start": start=foo(opt[1]); start--; break;    case "end": end=foo(opt[1]); break;    case "fail": fail=1; break;    case "forked": {    array(string) orig_argv = backtrace()[0][3];    int i = search(orig_argv, argv[0]);