E
Cuervo schrieb:
Diesers Programm funktioniert mit den aktuellen PrettyOS Versionen nicht mehr, es war nur ale Test gedacht und ist hiermit als "obsolete" und unbrauchbar markiert.
Cuervo schrieb:
So, ich stelle nochmal den aktuellen Code und eine EXE-Datei rein, Code ist in BlitzPlus geschrieben (http://www.blitzbasic.com).
Programm läuft auf EIGENE GEFAHR.
Download: LINK ENTFERNT
Dieses Archiv bitte in den Source Ordner exrtrahieren, so dass die build.exe darin liegt.
Global win
AppTitle "Compiler"
win=CreateWindow("Kompilieren...",100,100,640,480,0,1+32)
Global e,es,ed
Global tarea=CreateTextArea(10,10,620,460,win)
SetTextAreaColor tarea,0,0,0,1
SetTextAreaColor tarea,0,255,0,0
Global font=LoadFont("Arial",30)
SetTextAreaFont tarea,font
Global d$=CurrentDir()
ChangeDir "_stage1_bootloader"
RunCommand "Build.bat"
ChangeDir d$
ChangeDir "_stage2_bootloader"
RunCommand "Build.bat"
ChangeDir d$
ChangeDir "user"
ChangeDir "user_program_c"
CopyFile d$+"_nasm\nasmw.exe","nasmw.exe"
RunCommand d$+"_mingw32-make\mingw32-make.exe --makefile=Windows_makefile"
ChangeDir d$+"user"
CopyFile "user_program_c\program.elf","init_rd_img\program.elf"
ChangeDir "init_rd_img"
RunCommand d$+"_mingw32-make\mingw32-make.exe --makefile=Windows_makefile"
ChangeDir d$
ChangeDir "kernel"
RunCommand d$+"_mingw32-make\mingw32-make.exe --makefile=Windows_makefile"
ChangeDir d$
Notify "BUILDVORGANG ABGESCHLOSSEN!",1
AddTextAreaText tarea,Chr(13)+Chr(10)+Chr(13)+Chr(10)+"FERTIG!!!"
Repeat
e=WaitEvent()
If e=$803 Then
Exit
EndIf
es=EventSource()
ed=EventData()
Forever
FreeGadget win
End
Function RunCommand(s$)
Local p=CreateProcess(s$)
If p=0 Then
AddTextAreaText tarea,"BEFEHL "+s$+" nicht gefunden!"+Chr(13)+Chr(10)
Return 0
EndIf
While Not Eof(p)
AddTextAreaText tarea,ReadLine(p)+Chr(13)+Chr(10)
WaitEvent(1)
Wend
End Function