一个很好玩的开源库 https://github.com/evilbinary/scheme-lib

scheme-lib

scheme-lib 是一个 scheme 使用的库。目前支持 android mac linux windows，其它平台在规划中。

linux、mac

装编译

1. linux 下安装apt-get install freeglut3-dev libgles1-mesa-dev libgles2-mesa-dev libegl1-mesa-dev libalut-dev libopenal-dev libffi-dev依赖库。
2. mac 安装 xcode command line tool。
3. 执行make命令就可以编译，对应平台的文件在bin目录下。
4. 进入bin目录，执行source env.sh，然后运行./scheme --script ../apps/hello.ss就可以运行例子。

截图

android

新手入门

环境安装

1. 先安装scheme-release-1.2.apk
2. 将手机连接电脑，开启 adb 调试模式（需要安装 adb 命令,不会用 goolge ）。进入cd scheme-lib/android/src/packages，在 shell 下执行python sync.py命令,这样每次修改后，会自动同步 packages 下的代码到手机/sdcard/org.evilbinary.chez/lib目录下面，这样方便运行了。
3. 在 run 界面里面输入测试代码。比如:

(import (test) (gles1) (glut) ) (load "/sdcard/org.evilbinary.chez/lib/apps/hello.ss") 

demo 例子

;imgui 例子 ;imgui hello,world (define (imgui-test-hello-world) (glut-init) (imgui-init) (imgui-scale 2.5 2.5) (glut-touch-event (lambda (type x y) (imgui-touch-event type x y) )) (glut-key-event (lambda (event) (imgui-key-event (glut-event-get event 'type) (glut-event-get event 'keycode) (glut-event-get event 'char) (glut-event-get event 'chars)) (if (= 4 (glut-event-get event 'keycode )) (begin (imgui-exit) (glut-exit))) )) (glut-display (lambda () (imgui-render-start) ;(imgui-test) (imgui-set-next-window-size (imgui-make-vec2 200.0 140.0) 0) (imgui-begin "evilbinary" 0) (imgui-text "hello,world") (imgui-end) (imgui-render-end) )) (glut-reshape (lambda(w h) (imgui-resize w h) )) (glut-main-loop) (imgui-exit)) 

运行效果如下：

测试配置

1. 在手机上输入运行代码可能不方便，所以弄了个配置文件，把需要运行的代码放到配置中会自己加载代码运行。配置文件为config.xml内容如下:

   <?xml version='1.0' encoding='utf-8' standalOne='yes' ?> <map> <string name="debugCode">(import (test) (gles1) (glut) ) (load "/sdcard/org.evilbinary.chez/lib/apps/draw-point.ss") ;(imgui-test-hello-world) </string> </map> 

2. adb push config.xml /sdcard/org.evilbinary.chez/conf/config.xml

3. 打开 scheme app 就可以直接运行啦。

高级篇

android 使用外部库

1. 手工添加 Android.mk 和源码文件到scheme-lib/android/src下命名为 libhadd 的文件夹。 add.c 内容如下：

   #include <stdio.h> #include <stdarg.h> int add(int a,int b){ return a+b; } 

   Android.mk 内容如下：

   LOCAL_PATH := $(call my-dir) include $(CLEAR_VARS) include $(LOCAL_PATH)/../Optimizations.mk LOCAL_MODULE := add LOCAL_SRC_FILES := add.c LOCAL_C_INCLUDES := LOCAL_CFLAGS += -I. -I./c/ LOCAL_CFLAGS += -g -Wall -DANDROID -DINLINES -DGC_MACROS -Wno-unused-parameter -pie -fPIE -fPIC LOCAL_LDLIBS += -ldl -llog -lz include $(BUILD_SHARED_LIBRARY) 

2. 执行make android。

3. 将编译后生成的库android/src/libs/libadd.so 同步到/sdcard/org.evilbinary.chez/lib目录下，这样能调用外部库了。

4. 调用外libadd.so库和使用代码如下：

   (import (scheme) (utils libutil) ) (load-lib "libadd.so") (define-c-function int add (int int) ) (display (add 100 1234))