#INCLUDE "mysql.inc"
#USE "mysql.lib"
#INCLUDE "consts.inc"
#USE "course.lib"
PROC main(CHAN BYTE kyb, scr, err)
CHAN MYSQL.CONTROL control:
CHAN MYSQL.RESULT result:
BOOL quit:
PAR
MySQL(control, result, "bach-1", "root", "latte", "test", 0, "")
SEQ --control process
control ! query.all; "SELECT ** FROM t3"
control ! quit
SEQ --output process
quit := FALSE
WHILE NOT quit
result ? CASE
connected
SKIP
INT rows:
data.ready; rows
SKIP
MOBILE []MOBILE []BYTE row:
data.row; row
SEQ j = 0 FOR SIZE row
SEQ
out.string(row[j], 0, scr)
IF
j < ((SIZE row) - 1)
scr ! ' '
TRUE
scr ! '*n'
end.of.data
SKIP
quit
SEQ
scr ! FLUSH
quit := TRUE
: