program.cps « class-destructor-function-error « iii « tests - cie-pseudocode-compiler.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/tests/iii/class-destructor-function-error/program.cps

blob: 89a2b5a87623484479e576b5fe2cb66fc3dc5883 (plain)


CLASS Box
FUNCTION DELETE() RETURNS INTEGER
RETURN 0
ENDFUNCTION
ENDCLASS

color:#e06c75; font-weight:bold; } .hl.kwd { color:#e5c07b; font-weight:bold; } .hl.kwe { color:#be5046; font-weight:bold; } .hl.kwf { color:#d19a66; font-weight:bold; } } OVERLOAD FUNCTION Mixed(x : INTEGER) RETURNS INTEGER RETURN x ENDFUNCTION FUNCTION Mixed(x : REAL) RETURNS REAL RETURN x ENDFUNCTION OVERLOAD FUNCTION Ret(x : INTEGER) RETURNS INTEGER RETURN x ENDFUNCTION OVERLOAD FUNCTION Ret(x : INTEGER) RETURNS REAL RETURN x ENDFUNCTION OVERLOAD PROCEDURE Mode(BYREF x : INTEGER) ENDPROCEDURE OVERLOAD PROCEDURE Mode(BYVAL x : INTEGER) ENDPROCEDURE OVERLOAD FUNCTION Exact(x : REAL) RETURNS REAL RETURN x ENDFUNCTION OUTPUT Exact(1) OVERLOAD PROCEDURE Bounds(a : ARRAY[1:2] OF INTEGER) ENDPROCEDURE OVERLOAD PROCEDURE Bounds(a : ARRAY[3:4] OF INTEGER) ENDPROCEDURE OVERLOAD FUNCTION EOF(x : INTEGER) RETURNS INTEGER RETURN x ENDFUNCTION OUTPUT Exact("text") OUTPUT Exact()