TudbuT/spl
1
0
Fork 0
Code Issues Pull requests Projects Releases 5 Packages Wiki Activity Actions

add gettypeid

Browse source
This commit is contained in:
Daniella / Tove 2024-10-13 23:24:45 +02:00
parent ea8d3f5a6f
commit eb1335ade4
Signed by: TudbuT
GPG key ID: B3CF345217F202D3
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/std_fns.rs
View file

@ -110,6 +110,12 @@ pub fn gettype(stack: &mut Stack) -> OError {
Ok(()) Ok(())
} }
pub fn gettypeid(stack: &mut Stack) -> OError {
let o = stack.pop();
stack.push(Value::Int(o.lock_ro().kind.lock_ro().get_id() as i32).spl());
Ok(())
}
pub fn barray_new(stack: &mut Stack) -> OError { pub fn barray_new(stack: &mut Stack) -> OError {
let Value::Mega(i) = stack.pop().lock_ro().native.clone() else { let Value::Mega(i) = stack.pop().lock_ro().native.clone() else {
return stack.err(ErrorKind::InvalidCall("banew".to_owned())); return stack.err(ErrorKind::InvalidCall("banew".to_owned()));
@ -1066,7 +1072,7 @@ pub fn from_properties(stack: &mut Stack) -> OError {
pub fn register(r: &mut Stack, o: Arc<Frame>) { pub fn register(r: &mut Stack, o: Arc<Frame>) {
type Fn = fn(&mut Stack) -> OError; type Fn = fn(&mut Stack) -> OError;
let fns: [(&str, Fn, u32); 63] = [ let fns: [(&str, Fn, u32); 64] = [
("pop", pop, 0), ("pop", pop, 0),
("dup", dup, 2), ("dup", dup, 2),
("dup2", dup2, 3), ("dup2", dup2, 3),
@ -1075,6 +1081,7 @@ pub fn register(r: &mut Stack, o: Arc<Frame>) {
("mswap", mswap, 2), ("mswap", mswap, 2),
("print", print, 0), ("print", print, 0),
("gettype", gettype, 1), ("gettype", gettype, 1),
("gettypeid", gettypeid, 1),
("settype", settype, 1), ("settype", settype, 1),
("banew", barray_new, 1), ("banew", barray_new, 1),
("anew", array_new, 1), ("anew", array_new, 1),