lisp 写app玩

顺手编译RScheme成lib,可以跑android、ios、win、mac、linux上。

现在玩lisp app。需要生成一个packages 给ios用,

(define (read)
    (let (( pnum (read-op)))
        (if (number? (string->number pnum))
            (string->number pnum)
            pnum)))

(define-ios-glue (read-op)
{
    REG0=make_string(show_input());
    RETURN1();
})

(define-ios-glue (alert title message)
{
    alert(string_text(title),string_text(message));
    RETURN0();
})

然后在ios里面使用,结果如下:

发布在 未分类 by 3189次 阅读更多...