diff options
Diffstat (limited to 'pseudocode-lib/string.cps')
| -rw-r--r-- | pseudocode-lib/string.cps | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/pseudocode-lib/string.cps b/pseudocode-lib/string.cps index 96de023..5bff821 100644 --- a/pseudocode-lib/string.cps +++ b/pseudocode-lib/string.cps @@ -37,9 +37,12 @@ CLASS STRING OVERLOAD PROCEDURE NEW(BYREF Other : STRING) _HANDLE <- _string_impl_copy(Other._HANDLE) ENDPROCEDURE - OVERLOAD PROCEDURE NEW(Text : C_STRING) + OVERLOAD IMPLICIT PROCEDURE NEW(Text : C_STRING) _HANDLE <- _string_impl_from_cstr(Text) ENDPROCEDURE + OVERLOAD IMPLICIT PROCEDURE NEW(Ch : CHAR) + _HANDLE <- _string_impl_from_count_char((_STRING_C_INTEGER)1, (C_CHAR)Ch) + ENDPROCEDURE OVERLOAD PROCEDURE NEW(Count : INTEGER, Ch : C_CHAR) _HANDLE <- _string_impl_from_count_char((_STRING_C_INTEGER)Count, Ch) ENDPROCEDURE |