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 1483次 阅读更多...

RScheme 移植到ARM

最近花了点时间,把RScheme 移植到arm上了,现在可以跑在Android和Cubieboard 的Debian上。把移植过程记录一下。

1、由于没有arm版的配置,需要在configure.in里面新增host 为arm,红色部分新增,这样能识别arm设备了,如下:

case "${host}" in
  m68k-*-*)     ARCH=m68k ; AC_DEFINE(PLATFORM_ARCH_M68K,1) ;;
  powerpc-*-*)  ARCH=powerpc ; AC_DEFINE(PLATFORM_ARCH_PPC,1) ;;
  rs6000-*-*)   ARCH=powerpc ; AC_DEFINE(PLATFORM_ARCH_PPC,1) ;;
  i?86-*-*)     ARCH=i386 ; AC_DEFINE(PLATFORM_ARCH_I386,1) ;;
  x86_64-*-*)   ARCH=x86_64 ; AC_DEFINE(PLATFORM_ARCH_X86_64,