-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathkukanet.src
86 lines (82 loc) · 2.45 KB
/
kukanet.src
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
global DEF TCP_SEND( STRING:IN )
DECL CHAR STRING[]
CHAR sDate[30]
CHAR FILENAME[30]
DECL STATE_T STAT
INT OFFSET
DECL MODUS_T MODE
INT HANDLE
MODE=#SYNC
OFFSET=0
HANDLE = 0
SWRITE (sDate[], STAT, OFFSET, "%d.%d.%d %d:%d:%d.%d", $DATE.YEAR, $DATE.MONTH, $DATE.DAY, $DATE.HOUR, $DATE.MIN, $DATE.SEC, $DATE.CSEC)
OFFSET=0
SWRITE (FILENAME[], STAT, OFFSET, "%s", "\\\\.\\pipe\\kukanet")
IF (STAT.RET1==#CMD_ABORT) THEN
;CheckError$FCT_CALL(STAT.MSG_NO,2)
ENDIF
CWRITE($FCT_CALL, STAT, MODE, "krl_fopen", FILENAME[], "a", HANDLE)
IF (STAT.RET1==#CMD_ABORT) THEN
;CheckError$FCT_CALL(STAT.MSG_NO,3)
ELSE
;==================================================
; Write a character string to the file
;==================================================
CWRITE($FCT_CALL, STAT, MODE, "krl_fprintf", HANDLE, "%s %s 'H0D''H0A'", sDate[], STRING[] )
;CWRITE($FCT_CALL, STAT, MODE, "krl_fputs", HANDLE, sTime[])
;CWRITE($FCT_CALL, STAT, MODE, "krl_fputs", HANDLE, STRING[])
;krl_fprintf
;krl_fwriteln
IF (STAT.RET1==#CMD_ABORT) THEN
;CheckError$FCT_CALL(STAT.MSG_NO,4)
ENDIF
;==================================================
; Close the file
;==================================================
CWRITE($FCT_CALL, STAT, MODE, "krl_fclose", HANDLE)
IF (STAT.RET1==#CMD_ABORT) THEN
;CheckError$FCT_CALL(STAT.MSG_NO,5)
ELSE
;HANDLE=0
ENDIF
ENDIF
END
global DEF TCP_SEND_BOOL( STRING:IN, BOOLPARAM:IN )
DECL CHAR STRING[]
DECL BOOL BOOLPARAM
DECL STATE_T STATE
DECL INT OFFSET
DECL CHAR STRPARAM[50]
DECL CHAR NEWSTR[100]
OFFSET = 0
SWRITE(STRPARAM[], STATE, OFFSET, "%d", BOOLPARAM)
OFFSET=StrAdd( NEWSTR[], STRING[] )
OFFSET=StrAdd( NEWSTR[], STRPARAM[] )
TCP_SEND( NEWSTR[] )
END
global DEF TCP_SEND_INT( STRING:IN, INTPARAM:IN )
DECL CHAR STRING[]
DECL INT INTPARAM
DECL STATE_T STATE
DECL INT OFFSET
DECL CHAR STRPARAM[50]
DECL CHAR NEWSTR[100]
OFFSET = 0
SWRITE(STRPARAM[], STATE, OFFSET, "%d", INTPARAM)
OFFSET=StrAdd( NEWSTR[], STRING[] )
OFFSET=StrAdd( NEWSTR[], STRPARAM[] )
TCP_SEND( NEWSTR[] )
END
global DEF TCP_SEND_FLOAT( STRING:IN, FLOATPARAM:IN )
DECL CHAR STRING[]
DECL REAL FLOATPARAM
DECL STATE_T STATE
DECL INT OFFSET
DECL CHAR STRPARAM[50]
DECL CHAR NEWSTR[100]
OFFSET = 0
SWRITE(STRPARAM[], STATE, OFFSET, "%f", FLOATPARAM)
OFFSET=StrAdd( NEWSTR[], STRING[] )
OFFSET=StrAdd( NEWSTR[], STRPARAM[] )
TCP_SEND( NEWSTR[] )
END