'
' Simple Command Line Shell emulation to directly execute some BaCon commands.
'
' Usage: ./shell [bacon.bash]
'        ./shell [bacon.ksh]
'
' (Without argument 'bacon' is assumed to be the converter.)
'
' October 2010, PvE - GPL.
'----------------------------------------------------------------------------------------------------------------

TRAP LOCAL

' Get the arguments
SPLIT ARGUMENT$ BY " " TO arg$ SIZE amount

' Name of temporary directory to store generated C files
tmp_dir$ = CONCAT$("/tmp/", arg$[0], "/")

' Name of tmp file for direct mode
tmp_file$ = CONCAT$(arg$[0], ".tmp.bac")

' Determine compiler binary
IF amount EQ 2 THEN bacon$ = arg$[1]
ELSE bacon$ = "./bacon"

' Default prompt
prompt$ = "-> "

PRINT NL$, "---= Entering BaCon Shell v0.1 using BaCon version ", VERSION$, " with 65535 bytes free ;-) =---", NL$

' Create the temporary directory
MAKEDIR tmp_dir$

' Endless loop
WHILE TRUE

    ' Get data from user
    INPUT prompt$, command$

    ' EXIT command?
    IF EQUAL(CHOP$(UCASE$(command$)), "EXIT") THEN END

    ' No, assume BaCon code
    ELIF LEN(command$) > 0 THEN

        ' Cleanup temporary directory
        IF FILEEXISTS(CONCAT$(tmp_dir$, tmp_file$)) THEN DELETE FILE CONCAT$(tmp_dir$, tmp_file$)
        IF FILEEXISTS(CONCAT$(tmp_dir$, tmp_file$, ".c")) THEN DELETE FILE CONCAT$(tmp_dir$, tmp_file$, ".c")
        IF FILEEXISTS(CONCAT$(tmp_dir$, tmp_file$, ".h")) THEN DELETE FILE CONCAT$(tmp_dir$, tmp_file$, ".h")

        ' Write command to temporary file
        OPEN CONCAT$(tmp_dir$, tmp_file$) FOR WRITING AS tmp_file
            WRITELN command$ TO tmp_file
        CLOSE FILE tmp_file

        ' Convert and compile
        result$ = EXEC$(CONCAT$(bacon$, " -d ", tmp_dir$, " ", CONCAT$(tmp_dir$, tmp_file$)))

        ' Check result
        IF NOT(INSTR(result$, "ready")) THEN
            PRINT "? ERROR"
        ELSE
            SYSTEM CONCAT$(tmp_dir$, LEFT$(tmp_file$, LEN(tmp_file$) - 4))
        END IF

    END IF
WEND