#LIB INCLUDE_OBJ "string.o" TYPE _STRING_HANDLE = C_TYPE("void*") TYPE _STRING_C_INTEGER = C_TYPE("long long") EXTERN "C" EXTERN_FUNCTION _string_impl_new() RETURNS _STRING_HANDLE EXTERN "C" EXTERN_FUNCTION _string_impl_copy(_STRING_HANDLE) RETURNS _STRING_HANDLE EXTERN "C" EXTERN_FUNCTION _string_impl_from_cstr(C_STRING) RETURNS _STRING_HANDLE EXTERN "C" EXTERN_FUNCTION _string_impl_from_count_char(_STRING_C_INTEGER, C_CHAR) RETURNS _STRING_HANDLE EXTERN "C" EXTERN_PROCEDURE _string_impl_delete(_STRING_HANDLE) EXTERN "C" EXTERN_PROCEDURE _string_impl_assign(_STRING_HANDLE, _STRING_HANDLE) EXTERN "C" EXTERN_PROCEDURE _string_impl_assign_cstr(_STRING_HANDLE, C_STRING) EXTERN "C" EXTERN_PROCEDURE _string_impl_concat(_STRING_HANDLE, _STRING_HANDLE, _STRING_HANDLE) EXTERN "C" EXTERN_PROCEDURE _string_impl_from_int(_STRING_HANDLE, _STRING_C_INTEGER) EXTERN "C" EXTERN_PROCEDURE _string_impl_from_real(_STRING_HANDLE, C_DOUBLE) EXTERN "C" EXTERN_FUNCTION _string_impl_to_real(_STRING_HANDLE) RETURNS C_DOUBLE EXTERN "C" EXTERN_FUNCTION _string_impl_length(_STRING_HANDLE) RETURNS _STRING_C_INTEGER EXTERN "C" EXTERN_PROCEDURE _string_impl_left(_STRING_HANDLE, _STRING_HANDLE, _STRING_C_INTEGER) EXTERN "C" EXTERN_PROCEDURE _string_impl_right(_STRING_HANDLE, _STRING_HANDLE, _STRING_C_INTEGER) EXTERN "C" EXTERN_PROCEDURE _string_impl_mid(_STRING_HANDLE, _STRING_HANDLE, _STRING_C_INTEGER, _STRING_C_INTEGER) EXTERN "C" EXTERN_PROCEDURE _string_impl_lcase(_STRING_HANDLE, _STRING_HANDLE) EXTERN "C" EXTERN_FUNCTION _string_impl_lcase_char(C_CHAR) RETURNS C_CHAR EXTERN "C" EXTERN_PROCEDURE _string_impl_ucase(_STRING_HANDLE, _STRING_HANDLE) EXTERN "C" EXTERN_FUNCTION _string_impl_ucase_char(C_CHAR) RETURNS C_CHAR EXTERN "C" EXTERN_FUNCTION _string_impl_asc(_STRING_HANDLE) RETURNS _STRING_C_INTEGER EXTERN "C" EXTERN_FUNCTION _string_impl_asc_char(C_CHAR) RETURNS _STRING_C_INTEGER EXTERN "C" EXTERN_FUNCTION _string_impl_chr_char(_STRING_C_INTEGER) RETURNS C_CHAR EXTERN "C" EXTERN_FUNCTION _string_impl_is_num(_STRING_HANDLE) RETURNS C_INT EXTERN "C" EXTERN_FUNCTION _string_impl_c_str(_STRING_HANDLE) RETURNS C_STRING EXTERN "C" EXTERN_PROCEDURE _string_impl_input(_STRING_HANDLE) EXTERN "C" EXTERN_FUNCTION _string_impl_compare(_STRING_HANDLE, _STRING_HANDLE) RETURNS C_INT CLASS STRING PUBLIC _HANDLE : _STRING_HANDLE OVERLOAD PROCEDURE NEW() _HANDLE <- _string_impl_new() ENDPROCEDURE OVERLOAD PROCEDURE NEW(BYREF Other : STRING) _HANDLE <- _string_impl_copy(Other._HANDLE) ENDPROCEDURE OVERLOAD PROCEDURE NEW(Text : C_STRING) _HANDLE <- _string_impl_from_cstr(Text) ENDPROCEDURE OVERLOAD PROCEDURE NEW(Count : INTEGER, Ch : C_CHAR) _HANDLE <- _string_impl_from_count_char((_STRING_C_INTEGER)Count, Ch) ENDPROCEDURE PROCEDURE DELETE() CALL _string_impl_delete(_HANDLE) ENDPROCEDURE OVERLOAD PROCEDURE OPERATOR<-(BYREF Other : STRING) CALL _string_impl_assign(_HANDLE, Other._HANDLE) ENDPROCEDURE OVERLOAD PROCEDURE OPERATOR<-(Text : C_STRING) CALL _string_impl_assign_cstr(_HANDLE, Text) ENDPROCEDURE FUNCTION _LENGTH() RETURNS INTEGER RETURN (INTEGER)_string_impl_length(_HANDLE) ENDFUNCTION FUNCTION C_STR() RETURNS C_STRING RETURN _string_impl_c_str(_HANDLE) ENDFUNCTION PROCEDURE READ_INPUT() CALL _string_impl_input(_HANDLE) ENDPROCEDURE ENDCLASS OVERLOAD FUNCTION OPERATOR&(A : STRING, B : STRING) RETURNS STRING DECLARE Result : STRING CALL _string_impl_concat(Result._HANDLE, A._HANDLE, B._HANDLE) RETURN Result ENDFUNCTION OVERLOAD FUNCTION NUM_TO_STR(Number : INTEGER) RETURNS STRING DECLARE Result : STRING CALL _string_impl_from_int(Result._HANDLE, (_STRING_C_INTEGER)Number) RETURN Result ENDFUNCTION OVERLOAD FUNCTION NUM_TO_STR(Number : REAL) RETURNS STRING DECLARE Result : STRING CALL _string_impl_from_real(Result._HANDLE, (C_DOUBLE)Number) RETURN Result ENDFUNCTION OVERLOAD FUNCTION STR_TO_NUM(S : STRING) RETURNS REAL RETURN (REAL)_string_impl_to_real(S._HANDLE) ENDFUNCTION OVERLOAD FUNCTION STR_TO_NUM(C : CHAR) RETURNS REAL DECLARE S : STRING(1, (C_CHAR)C) RETURN STR_TO_NUM(S) ENDFUNCTION FUNCTION LENGTH(S : STRING) RETURNS INTEGER RETURN (INTEGER)_string_impl_length(S._HANDLE) ENDFUNCTION FUNCTION LEFT(S : STRING, Count : INTEGER) RETURNS STRING DECLARE Result : STRING CALL _string_impl_left(Result._HANDLE, S._HANDLE, (_STRING_C_INTEGER)Count) RETURN Result ENDFUNCTION FUNCTION RIGHT(S : STRING, Count : INTEGER) RETURNS STRING DECLARE Result : STRING CALL _string_impl_right(Result._HANDLE, S._HANDLE, (_STRING_C_INTEGER)Count) RETURN Result ENDFUNCTION FUNCTION MID(S : STRING, Start : INTEGER, Count : INTEGER) RETURNS STRING DECLARE Result : STRING CALL _string_impl_mid(Result._HANDLE, S._HANDLE, (_STRING_C_INTEGER)Start, (_STRING_C_INTEGER)Count) RETURN Result ENDFUNCTION OVERLOAD FUNCTION LCASE(S : STRING) RETURNS STRING DECLARE Result : STRING CALL _string_impl_lcase(Result._HANDLE, S._HANDLE) RETURN Result ENDFUNCTION OVERLOAD FUNCTION LCASE(Ch : CHAR) RETURNS CHAR RETURN (CHAR)_string_impl_lcase_char((C_CHAR)Ch) ENDFUNCTION OVERLOAD FUNCTION UCASE(S : STRING) RETURNS STRING DECLARE Result : STRING CALL _string_impl_ucase(Result._HANDLE, S._HANDLE) RETURN Result ENDFUNCTION OVERLOAD FUNCTION UCASE(Ch : CHAR) RETURNS CHAR RETURN (CHAR)_string_impl_ucase_char((C_CHAR)Ch) ENDFUNCTION OVERLOAD FUNCTION ASC(S : STRING) RETURNS INTEGER RETURN (INTEGER)_string_impl_asc(S._HANDLE) ENDFUNCTION OVERLOAD FUNCTION ASC(Ch : CHAR) RETURNS INTEGER RETURN (INTEGER)_string_impl_asc_char((C_CHAR)Ch) ENDFUNCTION FUNCTION CHR(Code : INTEGER) RETURNS CHAR RETURN (CHAR)_string_impl_chr_char((_STRING_C_INTEGER)Code) ENDFUNCTION FUNCTION IS_NUM(S : STRING) RETURNS BOOLEAN RETURN (BOOLEAN)_string_impl_is_num(S._HANDLE) ENDFUNCTION OVERLOAD FUNCTION OPERATOR=(A : STRING, B : STRING) RETURNS BOOLEAN RETURN (INTEGER)_string_impl_compare(A._HANDLE, B._HANDLE) = 0 ENDFUNCTION OVERLOAD FUNCTION OPERATOR<>(A : STRING, B : STRING) RETURNS BOOLEAN RETURN (INTEGER)_string_impl_compare(A._HANDLE, B._HANDLE) <> 0 ENDFUNCTION OVERLOAD FUNCTION OPERATOR<(A : STRING, B : STRING) RETURNS BOOLEAN RETURN (INTEGER)_string_impl_compare(A._HANDLE, B._HANDLE) < 0 ENDFUNCTION OVERLOAD FUNCTION OPERATOR>(A : STRING, B : STRING) RETURNS BOOLEAN RETURN (INTEGER)_string_impl_compare(A._HANDLE, B._HANDLE) > 0 ENDFUNCTION OVERLOAD FUNCTION OPERATOR<=(A : STRING, B : STRING) RETURNS BOOLEAN RETURN (INTEGER)_string_impl_compare(A._HANDLE, B._HANDLE) <= 0 ENDFUNCTION OVERLOAD FUNCTION OPERATOR>=(A : STRING, B : STRING) RETURNS BOOLEAN RETURN (INTEGER)_string_impl_compare(A._HANDLE, B._HANDLE) >= 0 ENDFUNCTION