Very Basic HUG BaCon editor

[alexfish]

Change the compiler at -c . I use tcc for test(it is fast) then opt for cc Aka gcc or clang

INCLUDE "hug.bac"
REM ==============================================
SUB Run()
LOCAL txt$ = GRAB$(ed)

SAVE txt$ TO "myapp.bac"
res$ = EXEC$("bacon -c -q -y -r -c tcc myapp.bac")
IF INSTR(res$,"ready.") THEN
res$ = CHOP$(MID$(res$,INSTR(res$,"ready.") + 6))
END IF

TEXT(ed2,"")
TEXT(ed2,res$)
END SUB
REM ==============================================

win= WINDOW("BaCon",909,636)

but= BUTTON("RUN",100,30)
CALLBACK(but,Run)
ATTACH(win,but,3,3)

ed= EDIT(450,600)
ATTACH(win,ed,3,33)


FONT(ed,"monospace 12px")

ed2= EDIT(450,600)
ATTACH(win,ed2,456,33)
FONT(ed2,"monospace 12px")

DISPLAY


Can be Improved = DIY

Have Fun
+
BR
Alex

How about

IF FILEEXISTS("myapp.bac") THEN
TEXT(ed,LOAD$("myapp.bac"))
END IF