Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv32426
Added Files:
LoadProject.f
Log Message:
Jos: Needed to load the latest project
--- NEW FILE: LoadProject.f ---
Anew -LoadProject.f
Needs src\lib\w_search.f
map-handle ProjectHndl
create LatestProjectFile$ ," LatestProject.dat"
: CountMappedFile ( ProjectHndl - )
dup >hfileAddress @ swap >hfileLength @ ;
: LoadProject
LatestProjectFile$ count Prepend<home>\ ProjectHndl open-map-file
abort" Use Win32Forth IDE to open or define a project"
s" *BuildFile= "
ProjectHndl CountMappedFile temp$ place \ load the fpj filename
ProjectHndl close-map-file drop
temp$ dup +null count ProjectHndl open-map-file
abort" Project not found. Use Win32Forth IDE to open or define a project"
ProjectHndl CountMappedFile false w-search \ Search the line with BuildFile=
if ProjectHndl CountMappedFile nip over - -rot + swap
2dup 0xd scan nip - temp$ place
ProjectHndl close-map-file drop
temp$ count cr 2dup type \in-system-ok included
else abort" Invalid projectfile"
then
;
\s
|
