creating LB EXE programmatically

[tsh73]

Attempt at making EXE programmatically
create BAS -> TKN -> EXE
(I have very vague idea why could one wish to do that.
Making compiler with LB as code generator?)

Tested on LB 4.5.1 under Win XP.

How it works:
program has bunch of string constants at the top, saying
where LB folder is, how LB EXE named, how runtime named, what destination folder is,
and listing all necessary DLLs/SLLs.

After start program checks if these paths/filenames are exist, if not program aborts.
Then program ask for a file name, for example "hello".
Then it creates project folder as <destination folder >\hello
It asks a few things about future program
and writes it as
<destination folder >\hello\hello.bas
Something along
nomainwin
notice "made EXE"+chr$(13)+"Hello there"
end
but with things you've just entered instead of these strings.
(then it opens it in Notepad just to show off. You can safely close it)

Now, the task is to create TKN file.
There is a command line switch that starts that (documented in help file under "Using a Different Code Editor"), but the process stops on SAVE TKN dialog. So you have to press OK a few times. Program waits for you with a message "Press ENTER then ready".
(alternatively you can automate these "OK pressing" with some tool like AHK or AutoIt. I did it with AHK, but it looks fragile (Enter sometimes gets pressed in wrong window - in freshly opened Notepad with BAS file. If you still want it - ask and I'll post it,
compile it to saveTKNok.exe
and uncomment
'RUN "saveTKNok.exe" line.
)

Now if you pressed Enter on "Press ENTER then ready"
(or some program did that for you), program checks if TKN file is created in <destination folder >\hello folder.
If it is, it copies / renames runtime (in our example it will be hello.exe)
and copy all necessary DLL/SLL. (copy done via DOS/Windows command line COPY command)

Finally it opens project folder
<destination folder >\hello
in explorer
- it should contain BAS file, TKN file, renamed runtime EXE, and necessary DLL/SLL
If you run this EXE you'll get message box with title and message you provided.
Mission accomplished.

If you run program again and give another filename, you'll have another folder with all stuff in <destination folder>.

Program writes to a mainwin, something like this
Attempt at making EXE programmatically
 create BAS -> TKN -> EXE

0) Checking files/folders
LBpath$=      C:\Program Files\Liberty BASIC v4.5.1
exists
LBexe$=       liberty.exe
exists
LBruntime$=   run451.exe
exists
DestPath$=    C:\WRK\madeEXE
exists

1) Create BAS file
Enter file name (no extension):hello
BAS file name:
             hello.bas
make a directory for a project:
             C:\WRK\madeEXE\hello
gathering data for BAS file...
Enter window title:Fancy title
Enter message:Old McDonald have a farm

creating file hello.bas...
created BAS file:
             C:\WRK\madeEXE\hello\hello.bas
running file in Notepad (just close it)

2) Creating a TKN file
this will leave SAVE TKN dialog
  *Just press ENTER*
(and on Information box(es) press Ok too)
Press ENTER then ready
             C:\WRK\madeEXE\hello\hello.tkn
exists

3) Copy necessary files
runtime
             C:\WRK\madeEXE\hello\hello.exe
exists
DLL / SLL
             C:\WRK\madeEXE\hello\vbas31w.sll
             C:\WRK\madeEXE\hello\vgui31w.sll
             C:\WRK\madeEXE\hello\voflr31w.sll
             C:\WRK\madeEXE\hello\vthk31w.dll
             C:\WRK\madeEXE\hello\vtk1631w.dll
             C:\WRK\madeEXE\hello\vtk3231w.dll
             C:\WRK\madeEXE\hello\vvm31w.dll
             C:\WRK\madeEXE\hello\vvmt31w.dll
Folder with project
C:\WRK\madeEXE\hello
-=*over*=-

Finally, the program itself
'attempt at making EXE programmatically
'tsh73 Jan 2019

'paths and filenames. Check them!
LBpath$="C:\Program Files\Liberty BASIC v4.5.1"
LBexe$="liberty.exe"
LBruntime$="run451.exe"
DestPath$="C:\WRK\madeEXE"
DllList$="vbas31w.sll vgui31w.sll voflr31w.sll vthk31w.dll vtk1631w.dll vtk3231w.dll vvm31w.dll vvmt31w.dll"

qq$=chr$(34)    '(")
'" -> ";qq$;"

print "Attempt at making EXE programmatically"
print "  create BAS -> TKN -> EXE"
print

'0) check files/folders
print "0) Checking files/folders"
ok=1

print "LBpath$=",LBpath$
res=pathExists(LBpath$)
if res then print " exists" else print " not exists"
ok=ok and res

print "LBexe$=",LBexe$
res=fileExists(LBpath$,LBexe$)
if res then print " exists" else print " not exists"
ok=ok and res

print "LBruntime$=",LBruntime$
res=fileExists(LBpath$,LBruntime$)
if res then print " exists" else print " not exists"
ok=ok and res

print "DestPath$=",DestPath$
res=pathExists(DestPath$)
if res then print " exists" else print " not exists"
ok=ok and res

if not(ok) then
print "-----------------------"
print "program aborted - check your files/folders!"
end
end if

'1) create BAS file
print
print "1) Create BAS file"

input "Enter file name (no extension):";fname$
'fname$="hello"
fname0$=trim$(fname$)    'base name
fname$=fname0$
if right$(lower$(fname$),4)<>".bas" then fname$=fname$+".bas"
print "BAS file name: "
print, fname$
'make a directory for a project
DestPath1$=DestPath$;"\";fname0$
print "make a directory for a project: "
print, DestPath1$
'goto [copy]
result = mkdir(DestPath1$)
if result = 183 then
print "-----------------------"
print "Directory for a project "
print "  ";DestPath1$
print "already exists - delete it or change your filename"
end
end if

if result <> 0 then
print "-----------------------"
print "Directory for a project "
print "  ";DestPath1$
print "not created - check your filename"
end
end if

print "gathering data for BAS file..."
input "Enter window title:";ttl$
input "Enter message:";msg$
print
print "creating file ";fname$;"..."
' nomainwin
' notice "made EXE"+chr$(13)+"Hello there"
' end
open DestPath1$;"\";fname$ for output as #1
   #1, "nomainwin"
   #1, "notice "; qq$;ttl$;qq$; "+chr$(13)+"; qq$;msg$;qq$
   #1, "end"
close #1
print "created BAS file: "
print, DestPath1$;"\";fname$

call pause 300
print "running file in Notepad (just close it)"
run "notepad.exe ";DestPath1$;"\";fname$

'2) create TKN file
print
print "2) Creating a TKN file"
print "this will leave SAVE TKN dialog"
print "   *Just press ENTER*   "
print "(and on Information box(es) press Ok too)"
'RUN "JBASIC -T -A PROG.BAS"
RUN LBpath$;"\";LBexe$;" -T -A ";DestPath1$;"\";fname$
'this leaves a dialog or two. If one pass ENTER there it will help.
call pause 2000 'may take a while
'now, this file is AHK script pressing OK for you
'RUN "saveTKNok.exe"

input "Press ENTER then ready";dummy$
print ,DestPath1$;"\";fname0$;".tkn"
res=fileExists(DestPath1$,fname0$;".tkn")
if res then print " exists" else print " not exists"
ok=ok and res

if not(ok) then
print "-----------------------"
print "TKN creation failed"
end
end if

[copy]
'3) copy files
print
print "3) Copy necessary files"
'runtime
print "runtime"
from$=LBpath$;"\";LBruntime$
to$=DestPath1$;"\";fname0$;".exe"
'run "cmd.exe /k echo ";qq$;from$;qq$;" ";qq$;to$;qq$
run "cmd.exe /c copy ";qq$;from$;qq$;" ";qq$;to$;qq$

call pause 300

print , to$
res=fileExists(DestPath1$,fname0$;".exe")
if res then print " exists" else print " not exists"
ok=ok and res

'dll sll
print "DLL / SLL"

w$=""
i=0
while 1
   i=i+1
   w$=word$(DllList$,i)
   if w$="" then exit while
   from$=LBpath$;"\";w$
   to$=DestPath1$;"\";w$
print ,to$
   run "cmd.exe /c copy ";qq$;from$;qq$;" ";qq$;to$;qq$
wend

print "Folder with project"
print DestPath1$
run "explorer ";qq$;DestPath1$;qq$
print "-=*over*=-"

'-----------------------------
sub pause mil
   t=time$("ms")+mil
   while time$("ms")<t
       scan
   wend
end sub

function fileExists(path$, filename$)
 dim info$(0, 0)
 files path$, filename$, info$()
 fileExists = val(info$(0, 0)) 'non zero is true
end function

function pathExists(path$)
'if we need it exist anyway
'catch error "Directory already exists".
  pathExists = (mkdir(path$)=183)
end function