view lib/interp @ 5129:7d19c0f4d970

<b_jonas> echo $\'#!/usr/bin/perl\\n\'\'$_=shift;sub k{my$t;$t=~y/IVXLC/XLCDM/,$t.=("",I,II,III,IV,V,VI,VII,VIII,IX)[$_]for/./g;$$t=$_;$t}k for s""\\$"..4e3;print eval(),$/\' > bin/fromroman && chmod a+x bin/fromroman
author HackBot
date Fri, 14 Nov 2014 21:22:56 +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
}