ba60da71d6
Added larger protocols to stress test the C++CSP backend with variant protocols that have many options, and sequential protocols that have many items
100 lines
3.3 KiB
Plaintext
100 lines
3.3 KiB
Plaintext
PROTOCOL SIMPLE IS INT; BOOL; BYTE:
|
|
PROTOCOL COMPLEX
|
|
CASE
|
|
three.args; INT; BOOL; BYTE
|
|
one.arg; INT
|
|
no.args
|
|
:
|
|
PROTOCOL ARRAY IS [10]BYTE:
|
|
PROTOCOL COUNTED IS INT::[]BYTE:
|
|
--Large and complex 10 has over ten choices, some of which have over ten sequential items
|
|
--This is to test C++CSP, which behaves differently with 9 or less choices than it does with ten or more
|
|
--Similarly LARGE.AND.COMPLEX.20 has over 20 choices, some of which have over 20 items!
|
|
PROTOCOL LARGE.AND.COMPLEX.10
|
|
CASE
|
|
choice.one; INT ; INT ; INT ; INT ; BOOL ; INT ; INT ; INT ; INT ; BOOL ; BYTE
|
|
choice.two
|
|
choice.three
|
|
choice.four
|
|
choice.five
|
|
choice.six; INT ; INT ; INT ; INT ; BOOL ; INT ; INT ; INT ; INT ; BOOL ; BYTE
|
|
choice.seven
|
|
choice.eight
|
|
choice.nine
|
|
choice.ten
|
|
choice.eleven; INT ; INT ; INT ; INT ; BOOL ; INT ; INT ; INT ; INT ; BOOL ; BYTE
|
|
:
|
|
PROTOCOL LARGE.AND.COMPLEX.20
|
|
CASE
|
|
choice.one; INT ; INT ; INT ; INT ; BOOL ; INT ; INT ; INT ; INT ; BOOL ; INT ; INT ; INT ; INT ; BOOL ; INT ; INT ; INT ; INT ; BOOL ; BYTE
|
|
choice.two
|
|
choice.three
|
|
choice.four
|
|
choice.five
|
|
choice.six; INT ; INT ; INT ; INT ; BOOL ; INT ; INT ; INT ; INT ; BOOL ; BYTE
|
|
choice.seven
|
|
choice.eight
|
|
choice.nine
|
|
choice.ten
|
|
choice.eleven; INT ; INT ; INT ; INT ; BOOL ; INT ; INT ; INT ; INT ; BOOL ; INT ; INT ; INT ; INT ; BOOL ; INT ; INT ; INT ; INT ; BOOL ; BYTE
|
|
choice.twelve
|
|
choice.thirteen
|
|
choice.fourteen
|
|
choice.fifteen
|
|
choice.sixteen; INT ; INT ; INT ; INT ; BOOL ; INT ; INT ; INT ; INT ; BOOL ; BYTE
|
|
choice.seventeen
|
|
choice.eighteen
|
|
choice.nineteen
|
|
choice.twenty
|
|
choice.twentyone; INT ; INT ; INT ; INT ; BOOL ; INT ; INT ; INT ; INT ; BOOL ; INT ; INT ; INT ; INT ; BOOL ; INT ; INT ; INT ; INT ; BOOL ; BYTE
|
|
:
|
|
|
|
|
|
PROC P ()
|
|
CHAN OF SIMPLE simple:
|
|
CHAN OF COMPLEX complex:
|
|
CHAN OF ARRAY array:
|
|
CHAN OF COUNTED counted:
|
|
CHAN OF LARGE.AND.COMPLEX.10 lac10:
|
|
CHAN OF LARGE.AND.COMPLEX.20 lac20:
|
|
INT i:
|
|
BOOL b:
|
|
BYTE y:
|
|
[10]BYTE is:
|
|
[20]INT ints:
|
|
[4]BOOL bools:
|
|
PAR
|
|
SEQ
|
|
simple ! 42; TRUE; 42
|
|
complex ! three.args; 42; TRUE; 42
|
|
complex ! one.arg; 42
|
|
complex ! no.args
|
|
complex ! one.arg; 24
|
|
array ! "abcdefghij"
|
|
counted ! 5::"abcde"
|
|
lac10 ! choice.eight
|
|
lac10 ! choice.one ; 0 ; 1 ; 2 ; 3 ; TRUE ; 5 ; 6 ; 7 ; 8 ; TRUE ; 255
|
|
lac20 ! choice.twentyone ; 0 ; 1 ; 2 ; 3 ; TRUE ; 5 ; 6 ; 7 ; 8 ; TRUE ; 10 ; 11 ; 12 ; 13 ; TRUE ; 15 ; 16 ; 17 ; 18 ; TRUE ; 255
|
|
SEQ
|
|
simple ? i; b; y
|
|
complex ? CASE three.args; i; b; y
|
|
complex ? CASE one.arg; i
|
|
complex ? CASE no.args
|
|
complex ? CASE
|
|
INT ii:
|
|
BOOL bb:
|
|
three.args; ii; bb; y
|
|
STOP
|
|
INT ii:
|
|
one.arg; ii
|
|
SKIP
|
|
no.args
|
|
STOP
|
|
array ? is
|
|
counted ? i::is
|
|
lac10 ? CASE choice.eight
|
|
lac10 ? CASE choice.one ; ints[0] ; ints[1] ; ints[2] ; ints[3] ; bools[0] ; ints[5] ; ints[6] ; ints[7] ; ints[8] ; bools[1] ; y
|
|
lac20 ? CASE choice.twentyone ; ints[0] ; ints[1] ; ints[2] ; ints[3] ; bools[0] ; ints[5] ; ints[6] ; ints[7] ; ints[8] ; bools[1] ;
|
|
ints[10] ; ints[11] ; ints[12] ; ints[13] ; bools[2] ; ints[15] ; ints[16] ; ints[17] ; ints[18] ; bools[3] ; y
|
|
:
|