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

- period incremented to 500ms

Browse Source 
git-svn-id: https://svn.code.sf.net/p/libusbjava/code/trunk@118 94ad28fe-ef68-46b1-9651-e7ae4fcf1c4c
This commit is contained in:
schlaepfer
2006-03-17 07:34:05 +00:00
parent e39c8308f0
commit c3f93ae092
1 changed files with 18 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
blackbox/Usb/Mod/TargLog.otd
View File

@@ -7,20 +7,20 @@ MODULE UsbTargLog;
IMPORT IMPORT
USB := UsbBDI, Log := StdLog, Services, TextModels, XUT := XdeUtilities; USB := UsbBDI, Log := StdLog, Services, TextModels, XUT := XdeUtilities;
CONST CONST
logTitle = "USB Target Log"; logTitle = "USB Target Log";
PERIOD = 200; PERIOD = 500;
TYPE TYPE
Receiver = POINTER TO RECORD (Services.Action) Receiver = POINTER TO RECORD (Services.Action)
time: LONGINT; period: INTEGER time: LONGINT; period: INTEGER
END; END;
VAR VAR
receiver: Receiver; receiver: Receiver;
logTextModel: TextModels.Model; logWriter: TextModels.Writer; logTextModel: TextModels.Model; logWriter: TextModels.Writer;
PROCEDURE (receiver: Receiver) Do; PROCEDURE (receiver: Receiver) Do;
VAR VAR
length, i: INTEGER; done: BOOLEAN; length, i: INTEGER; done: BOOLEAN;
data: ARRAY USB.MAX_UART_DATA_LENGTH OF SHORTCHAR; data: ARRAY USB.MAX_UART_DATA_LENGTH OF SHORTCHAR;
@@ -33,23 +33,23 @@ MODULE UsbTargLog;
END END
END; END;
INC( receiver.time, receiver.period ); Services.DoLater(receiver, receiver.time ) INC( receiver.time, receiver.period ); Services.DoLater(receiver, receiver.time )
END Do; END Do;
PROCEDURE Stop * ; PROCEDURE Stop * ;
BEGIN BEGIN
IF receiver # NIL THEN Services.RemoveAction(receiver ); receiver := NIL END; IF receiver # NIL THEN Services.RemoveAction(receiver ); receiver := NIL END;
logWriter := NIL; logTextModel := NIL logWriter := NIL; logTextModel := NIL
END Stop; END Stop;
PROCEDURE StartReceiver; PROCEDURE StartReceiver;
BEGIN BEGIN
IF receiver # NIL THEN Services.RemoveAction(receiver ); receiver := NIL END; IF receiver # NIL THEN Services.RemoveAction(receiver ); receiver := NIL END;
NEW(receiver); NEW(receiver);
receiver.time := Services.Ticks(); receiver.period := PERIOD; receiver.time := Services.Ticks(); receiver.period := PERIOD;
Services.DoLater(receiver, receiver.time) Services.DoLater(receiver, receiver.time)
END StartReceiver; END StartReceiver;
PROCEDURE Start * ; PROCEDURE Start * ;
VAR beg, end: INTEGER; VAR beg, end: INTEGER;
BEGIN BEGIN
IF ~USB.DeviceOpen() THEN IF ~USB.DeviceOpen() THEN
@@ -60,9 +60,9 @@ MODULE UsbTargLog;
XUT.GetTextModel("", logTextModel, beg, end); logWriter := logTextModel.NewWriter(NIL); XUT.GetTextModel("", logTextModel, beg, end); logWriter := logTextModel.NewWriter(NIL);
XUT.ShowTextView(logTextModel, logTitle); XUT.ShowTextView(logTextModel, logTitle);
StartReceiver; StartReceiver;
END Start; END Start;
PROCEDURE SendSelToTarget * ; PROCEDURE SendSelToTarget * ;
(** send all visible char of the current selection to the target (** send all visible char of the current selection to the target
*) *)
VAR VAR
@@ -97,14 +97,14 @@ MODULE UsbTargLog;
Log.String("Data sent successfully"); Log.Ln; Log.String("Data sent successfully"); Log.Ln;
END END
END END
END SendSelToTarget; END SendSelToTarget;
PROCEDURE ClearText * ; PROCEDURE ClearText * ;
BEGIN BEGIN
IF logTextModel # NIL THEN IF logTextModel # NIL THEN
logTextModel.Delete(0, logTextModel.Length()); logWriter.SetPos(0) logTextModel.Delete(0, logTextModel.Length()); logWriter.SetPos(0)
END END
END ClearText; END ClearText;
CLOSE CLOSE
Stop Stop