casa-mp-base
Public
Commits
Ryan Schmidt authored d865d65bf5a
| 1 1 | --- exec-wrapper.in.orig 2009-05-24 22:03:21.000000000 -0500 |
| 2 - | +++ exec-wrapper.in 2010-02-09 17:42:42.000000000 -0600 |
| 2 + | +++ exec-wrapper.in 2010-02-09 19:08:34.000000000 -0600 |
| 3 3 | |
| 4 4 | # stdout - escaped string. |
| 5 5 | strToOct() |
| 6 6 | { |
| 7 7 | - printf "%s" "${1}" | od -v -A n -t o1 | \ |
| 8 8 | + printf "%s" "${1}" | od -v -A n -t o1 | tr -d "\n" | \ |
| 9 9 | sed "s/ *\([0-9]*\) */\\\\\1/g" | tr -d "\n" |
| 10 10 | } |
| 11 11 | |
| 12 + | |
| 13 + | printf "\textern char **environ;\n" |
| 14 + | |
| 15 + | # Set environment variables. |
| 16 + | - for i in $( seq $OPT_ENV_NUM ); do |
| 17 + | + for i in $( gseq $OPT_ENV_NUM ); do |
| 18 + | printf "\tif (putenv(\"" |
| 19 + | eval strToOct \"\${OPT_ENV_$i}\" |
| 20 + | printf "\"))\n" |
| 21 + | |
| 22 + | done |
| 23 + | |
| 24 + | # Unset environment variables. |
| 25 + | - for i in $( seq $OPT_UENV_NUM ); do |
| 26 + | + for i in $( gseq $OPT_UENV_NUM ); do |
| 27 + | printf "\tif (unsetenv(\"" |
| 28 + | eval strToOct \"\${OPT_UENV_$i}\" |
| 29 + | printf "\"))\n" |
| 30 + | |
| 31 + | |
| 32 + | printf "\tnew_argv[0] = argv[0];\n" |
| 33 + | |
| 34 + | - for i in $( seq $OPT_ARG_NUM ); do |
| 35 + | + for i in $( gseq $OPT_ARG_NUM ); do |
| 36 + | printf "\tnew_argv[%s] = \"" $i |
| 37 + | eval strToOct \"\${OPT_ARG_$i}\" |
| 38 + | printf "\";\n" |