tests/i/custom-string/program.cps


1
2
3
4
5
6
7
8
9
10
11
12
13


CLASS STRING
    Text : C_STRING
    IMPLICIT PROCEDURE NEW(Value : C_STRING)
        Text <- Value
    ENDPROCEDURE
    FUNCTION C_STR() RETURNS C_STRING
        RETURN Text
    ENDFUNCTION
ENDCLASS
FUNCTION LENGTH(Value : INTEGER) RETURNS INTEGER
    RETURN Value + 1
ENDFUNCTION
OUTPUT "custom STRING", ":", LENGTH(41)