BlackBox Component Builder Forums

Code: Select all

	PROCEDURE Strip (VAR path: Name); (*Remove "\BlackBox.exe" from path*)
	VAR n: INTEGER;
	BEGIN
		n := LEN(path$)-1;
		WHILE (0 < n) & (path[n] # "/") & (path[n] # "\") DO DEC(n) END;
		path[n] := 0X
	END Strip;
	
	PROCEDURE GetStartup (VAR startup: String);
	VAR res: INTEGER; path: Name;
	BEGIN
		res := WinApi.GetModuleFileNameW(0, path, LEN(path));
		Strip(path);
		startup := Strings.New(path)
	END GetStartup;
	

Code: Select all

	PROCEDURE (d: Directory) Old (loc: Files.Locator; name: Files.Name; shrd: BOOLEAN): Files.File;
		VAR res, i, j: INTEGER; f: File; ref: WinApi.HANDLE; fname: FullName; type: Files.Type; s: BYTE;
			shadow : FullName; (*alm 2016-11-13*)
	BEGIN
		ASSERT(loc # NIL, 20); ASSERT(name # "", 21);
		res := ok; f := NIL;
		WITH loc: Locator DO
			Append(loc.path, name, "", loc.maxLen, fname);
			f := ThisFile(fname);
			IF f # NIL THEN
				IF ~shrd OR (f.state = exclusive) THEN loc.res := Error(sharingErr); RETURN NIL
				ELSE loc.res := ok; loc.path := f.loc.path$; (*alm 2016-11-13*) RETURN f
				END
			END;
			IF shrd THEN s := shared ELSE s := exclusive END;
			OpenFile(s, fname, ref, res);
			IF ((res = fileNotFoundErr) OR (res = pathNotFoundErr)) & (loc.rootLen > 0) THEN
				GetShadowDir(loc, fname);
				shadow := fname$; (*alm 2016-11-13*)
				Append(fname, name, "", loc.maxLen, fname);
				f := ThisFile(fname);
				IF f # NIL THEN
					IF ~shrd OR (f.state = exclusive) THEN loc.res := Error(sharingErr); RETURN NIL
					ELSE loc.res := ok; loc.path := f.loc.path$; (*alm 2016-11-13*); RETURN f
					END
				END;
				OpenFile(s, fname, ref, res);
				IF res = ok THEN loc.path := shadow$ END (*alm 2016-11-13*)
			END;
			IF res = ok THEN
				NEW(f); f.loc := loc;
				f.swapper := -1; i := 0;
				GetType(name, type);
				f.InitType(type);
				ASSERT(ref # invalid, 107);
				f.ref := ref; f.name := fname$; f.state := s; f.t := Kernel.Time();
				f.len := WinApi.GetFileSize(ref, j)
			END
		END;
		loc.res := Error(res);
		RETURN f
	END Old;

Code: Select all

(*2016-11-13 alm
	I wanted to programmatically access the server / shadow directory name.  I thought that information should be returned by HostFiles.Old.  It turns out that the working directory path is always returned.  I propose that the actual path of the file should be available in the loc(HostFiles).path variable after return from the call.
	
	This program shows that behavior.  It does it twice because there is an execution path that is unique for a shared previously existing file.  Notice that this program gives an incorrect path for the Loc1 / Name1, but correct for Loc0 / Name0.
	
*)
MODULE AlmShowPath;
	IMPORT
		Files, HostFiles, StdLog;
		
	CONST  (*Compile and execute this program twice, with scenario 0 and scenario 1.*)
		Loc0 = "Std/Mod"; Name0 = "Api.odc";  (*works*)
		Loc1 = "Alm/Mod"; Name1 = "Path.odc";  (*fails*)

	PROCEDURE ShowAbsoluteFileName*;
		VAR
			loc : Files.Locator;
			f1, f2 : Files.File;
	BEGIN
		loc := Files.dir.This( Loc0 );
		f1 := Files.dir.Old( loc, Name0, TRUE );
		IF f1=NIL THEN StdLog.String( "file not opened: " ) ELSE StdLog.String( "file opened: ") END;
		StdLog.String( loc(HostFiles.Locator).path$ + "/" + Name0 );
		StdLog.Ln;
		
		loc := Files.dir.This( Loc0 );
		f2 := Files.dir.Old( loc, Name0, TRUE );
		IF f2=NIL THEN StdLog.String( "file not opened: " ) ELSE StdLog.String( "file opened: ") END;
		StdLog.String( loc(HostFiles.Locator).path$ + "/" + Name0 );
		StdLog.Ln
	END ShowAbsoluteFileName;
	
END AlmShowPath.

 AlmShowPath.ShowAbsoluteFileName

Code: Select all

env WINEPREFIX="/home/amcintosh/.wine" wine C:\\users\\amcintosh\\project\\bb7-rc1\\blackbox-canonical\\BlackBox.exe  /USE C:\\users\\amcintosh\\project\\bb7-rc1\\blackbox-empty &