mirror of
https://github.com/carp-lang/Carp.git
synced 2024-10-26 13:51:50 +03:00
core: bugfix in String.from-chars; added Char.to-int and Char.from-int
This commit is contained in:
parent
376dee89e2
commit
99573e335f
@ -1,2 +1,5 @@
|
|||||||
(defmodule Char
|
(defmodule Char
|
||||||
(register str (Fn [Char] String)))
|
(register str (Fn [Char] String))
|
||||||
|
(register to-int (Fn [Char] Int))
|
||||||
|
(register from-int (Fn [Int] Char))
|
||||||
|
)
|
||||||
|
@ -9,7 +9,7 @@
|
|||||||
(register cstr (Fn [&String] (Ptr Char)))
|
(register cstr (Fn [&String] (Ptr Char)))
|
||||||
(register str (Fn [&String] String))
|
(register str (Fn [&String] String))
|
||||||
(register chars (Fn [&String] (Array Char)))
|
(register chars (Fn [&String] (Array Char)))
|
||||||
(register from-chars (Fn [(Array Char)] &String))
|
(register from-chars (Fn [(Array Char)] String))
|
||||||
|
|
||||||
(defn repeat [n inpt]
|
(defn repeat [n inpt]
|
||||||
(let [str ""]
|
(let [str ""]
|
||||||
|
@ -218,8 +218,8 @@ Array String_chars(string *s) {
|
|||||||
}
|
}
|
||||||
|
|
||||||
string String_from_MINUS_chars(Array a) {
|
string String_from_MINUS_chars(Array a) {
|
||||||
string s = malloc(a.len);
|
string s = malloc(a.len+1);
|
||||||
snprintf(s, a.len, "%s", a.data);
|
snprintf(s, a.len+1, "%s", a.data);
|
||||||
return s;
|
return s;
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -229,6 +229,14 @@ string Char_str(char c) {
|
|||||||
return buffer;
|
return buffer;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
int Char_to_MINUS_int(char c) {
|
||||||
|
return (int)c;
|
||||||
|
}
|
||||||
|
|
||||||
|
char Char_from_MINUS_int(int i) {
|
||||||
|
return (char)i;
|
||||||
|
}
|
||||||
|
|
||||||
int exmod__bleh(int x) {
|
int exmod__bleh(int x) {
|
||||||
return x * 1000;
|
return x * 1000;
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user