pike.git/
bin/
test_pike.pike
Branch:
Tag:
Non-build tags
All tags
No tags
1998-04-17
1998-04-17 05:04:49 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
f75182a16c277db4e36361e7cb208ac6a93cfb13 (
5
lines) (+
3
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
RUNPIKE quoting fixed
Rev: bin/test_pike.pike:1.13
1:
#!/usr/local/bin/pike
-
/* $Id: test_pike.pike,v 1.
12
1998/04/
16
01
:
10
:
40
hubbe Exp $ */
+
/* $Id: test_pike.pike,v 1.
13
1998/04/
17
05
:
04
:
49
hubbe Exp $ */
#include <simulate.h>
27:
string *args=backtrace()[0][3]; args=args[..sizeof(args)-1-argc];
-
add_constant("RUNPIKE",args*" ");
+
add_constant("RUNPIKE",
Array.map(
args
,Process.sh_quote)
*" ");
foreach(Getopt.find_all_options(argv,aggregate( ({"help",Getopt.NO_ARG,({"-h","--help"})}),