rik/jlibusb
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- HALT inserted if JVM could not be created

Browse Source 
- ConnecteDevice in ReopenDevice

git-svn-id: https://svn.code.sf.net/p/libusbjava/code/trunk@120 94ad28fe-ef68-46b1-9651-e7ae4fcf1c4c
This commit is contained in:
schlaepfer
2006-03-28 05:42:56 +00:00
parent 94def9a6a3
commit aea0fc61e7
1 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
blackbox/Usb/Mod/BDI.otd
View File

@@ -267,6 +267,7 @@ MODULE UsbBDI;
IF bool = FALSE_ THEN
Done := FALSE;
Log.String("creating JVM failed"); Log.Ln;
HALT(77);
ELSE
Done := TRUE;
Log.String("JVM successfully created"); Log.Ln;
@@ -387,8 +388,8 @@ MODULE UsbBDI;
PROCEDURE CheckIfFileExists (filePath: ARRAY OF CHAR; fileName: ARRAY OF CHAR): BOOLEAN;
VAR
i: INTEGER; done: BOOLEAN;
loc: Files.Locator; file: Files.File; name: Files.Name;
i: INTEGER; done: BOOLEAN;
loc: Files.Locator; file: Files.File; name: Files.Name;
BEGIN
loc := Files.dir.This(filePath);
IF loc.res # 0 THEN (*RETURN FALSE*) END;
@@ -418,11 +419,11 @@ MODULE UsbBDI;
(*
CreateJVM("D:\work\USB\eclipse\mcdp\bin\");
*)
IF ~Done THEN HALT(77) END;
IF ~Done THEN HALT(78) END;
jvmCreated := TRUE;
END;
BDI.USB_Device_open;
IF ~Done THEN HALT(78) END;
IF ~Done THEN HALT(79) END;
deviceOpen := TRUE;
END
END ConnectDevice;
@@ -435,6 +436,7 @@ MODULE UsbBDI;
(* Close and reopen the device *)
PROCEDURE ReopenDevice * ;
BEGIN
ConnectDevice;
USB_Device_close;
USB_Device_open;
IF Done THEN