[Win32forth-cvs] win32forth/src/lib LoadProject.f,NONE,1.1

[Jos v.d.V. <jo...@us...>]

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