scheme 一个好玩的开源库

[evilbinary]

一个很好玩的开源库 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))
   

[qinix]

似乎是基于 Chez Scheme 搞的，何不分享一下背后的故事和感受

[jakobliao]

lisp 世界真小,鸭子全平台推广啦

[evilbinary]

@jakobliao 啦啦啦

[yoyohaha]

鸭子，是我