Logikoma
eb93bb7da0
All checks were successful
akbasic CI Build / cmake_build (push) Successful in 3m29s
akbasic CI Build / sanitizers (push) Successful in 4m42s
akbasic CI Build / coverage (push) Successful in 3m56s
akbasic CI Build / akgl_build (push) Successful in 8m34s
akbasic CI Build / mutation_test (push) Successful in 18m50s
48 lines
1.4 KiB
QBasic
48 lines
1.4 KiB
QBasic
10 REM A structure parameter must name its type: @ says "a structure" without
|
|
20 REM saying which, so B@ does not state a contract the way B$ does.
|
|
30 TYPE CRATE
|
|
40 W#
|
|
50 H#
|
|
60 END TYPE
|
|
70 DIM A@ AS CRATE
|
|
80 A@.W# = 5
|
|
90 A@.H# = 3
|
|
100 DEF AREA(B@ AS CRATE) = B@.W# * B@.H#
|
|
110 PRINT AREA(A@)
|
|
120 REM Passing is BY VALUE, because a parameter is bound by assignment and
|
|
130 REM assignment copies. A function cannot change its caller's record by
|
|
140 REM accident.
|
|
150 DEF WIDEN(B@ AS CRATE)
|
|
160 B@.W# = 99
|
|
170 RETURN B@.W#
|
|
180 PRINT WIDEN(A@)
|
|
190 PRINT A@.W#
|
|
200 REM To change one on purpose, pass a pointer. Assignment copies its
|
|
210 REM reference, so the callee is looking at the caller's own record.
|
|
220 DIM Q@ AS PTR TO CRATE
|
|
230 POINT Q@ AT A@
|
|
240 DEF POKEIT(P@ AS PTR TO CRATE)
|
|
250 P@->W# = 42
|
|
260 RETURN P@->W#
|
|
270 PRINT POKEIT(Q@)
|
|
280 PRINT A@.W#
|
|
290 REM And a recursive function can carry a record down with it.
|
|
300 TYPE NODE
|
|
310 COUNT#
|
|
320 TAIL@ AS PTR TO NODE
|
|
330 END TYPE
|
|
340 DIM N1@ AS NODE
|
|
350 DIM N2@ AS NODE
|
|
360 N1@.COUNT# = 10
|
|
370 N2@.COUNT# = 20
|
|
380 POINT N1@.TAIL@ AT N2@
|
|
390 DEF TOTAL(P@ AS PTR TO NODE)
|
|
395 REM A pointer is true when it points at something, so a walk knows
|
|
396 REM where the list ends. NOT is the bitwise operator here, so the test is
|
|
397 REM written the positive way round.
|
|
400 IF P@->TAIL@ THEN RETURN P@->COUNT# + TOTAL(P@->TAIL@)
|
|
410 RETURN P@->COUNT#
|
|
420 DIM W@ AS PTR TO NODE
|
|
430 POINT W@ AT N1@
|
|
440 PRINT TOTAL(W@)
|