view lib/interp @ 9291:facea1455b05

<ais523> addquote <fungot> boily: i walked 5 miles to get to http://community.schemewiki.org from there. but it\'s written in a relatively portable style?
author HackBot
date Sat, 15 Oct 2016 16:07:31 +0000
parents 7b17fe055014
children 9cb638b68832
line wrap: on
line source

#!/bin/sh

export I_CMD="$0"
export I_ARG="$1"
export ARG_FILE="/tmp/input.$$"

get_arg() {
    #if expr "$I_ARG" : "http://" > /dev/null
    #then
    #    wget $WGET_OPTIONS "$I_ARG" -O "$ARG_FILE"
    #else
        printf '%s' "$I_ARG" > "$ARG_FILE"
    #fi
}

clean_arg() {
    rm -f "$ARG_FILE"
}

interp_stdin() {
    get_arg
    $1 < "$ARG_FILE" 2>&1
    clean_arg
}

interp_file() {
    get_arg
    $1 "$ARG_FILE" 2>&1
    clean_arg
}

interp_stdin_java() {
    get_arg
    cd $1
    java $2 < "$ARG_FILE" 2>&1
    clean_arg
}

interp_file_java() {
    get_arg
    cd $1
    java $2 "$ARG_FILE" 2>&1
    clean_arg
}