podhmo

(defvar cise-translate-command
  "gosh -u file.filter -u gauche.cgen.cise -e '(file-filter cise-translate)' -E exit ")

(defvar cise-translate-remove-sharp-line-p nil)

(defvar cise-translate-remove-sharp-line-command
  "grep -v '^#line'")

(defun cise-translate-make-command ()
  (if cise-translate-remove-sharp-line-p

podhmo

(global-set-key [hiragana-katakana] 'anything)
(global-set-key [C-hiragana-katakana] 'anything-resume)
(global-set-key [S-hiragana-katakana] 'anything-resume)

podhmo

(defvar anything-multi-occur-buffer-name "*Occur*")
(defvar anything-multi-occur-reject-function nil)
(defvar anything-multi-occur-exclude-buffers nil)

(defun anything-multi-occur-reject-default-function (bufs)
  (remove-if (lambda (b)
               (let ((bname (buffer-name b)))
                 (or (= (aref bname 0) 32) ;; white-space
                     (member bname anything-multi-occur-exclude-buffers))))
             bufs))

podhmo

(defvar anything-multi-occur-buffer-name "*Occur*")
(defvar anything-multi-occur-reject-function nil)
(defvar anything-multi-occur-exclude-buffers nil)

(defun anything-multi-occur-reject-default-function (bufs)
  (remove-if (lambda (b)
               (let ((bname (buffer-name b)))
                 (or (= (aref bname 0) 32) ;; white-space
                     (member bname anything-multi-occur-exclude-buffers))))

podhmo

(defvar anything-multi-occur-buffer-name "*Occur*")
(defvar anything-multi-occur-reject-function nil)
(defvar anything-multi-occur-exclude-buffers nil)

(defun anything-multi-occur-reject-default-function (bufs)
  (remove-if (lambda (b)
               (let ((bname (buffer-name b)))
                 (or (= (aref bname 0) 32) ;; white-space
                     (member bname anything-multi-occur-exclude-buffers))))
             bufs))

podhmo

(use gauche.uvector)
(use gauche.experimental.lamb)
(use srfi-42)
(use srfi-1)
(extend gl.processing)


(define (with-pixels w h fn)
  (list->u8vector
   (fold-ec '() (: i h) (: j w)

podhmo

(extend gl.processing)

(define draw (draw$ (^ () (gl-draw-pixels 200 200 GL_RGB GL_UNSIGNED_BYTE pixels))
                    :save "foo.png"))

(define pixels
  (pixels-generator 200 200 (^ (i j) (values 0 i j))
                    :type :rgb))

(define main (setup$ (^ ()

podhmo

### install gauche and git
sudo aptitude update
sudo apt-get build-dep gauche gauche-gl
sudo apt-get install wget gauche git-core
mkdir box && cd box

wget http://prdownloads.sourceforge.net/gauche/Gauche-0.9.tgz
tar zxvf Gauche-0.9.tgz
cd Gauche-0.9
gauche-config --reconfigure | sh

podhmo

(use gl.processing)

(define pd 0)
(define texture #f)

(define draw
  (draw$ (^ ()
            (no-stroke!)
            (with-texture
             (gl-matrix-mode GL_TEXTURE)

podhmo

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <stdio.h>
#include <unistd.h>
#include <string.h>
#include <errno.h>
#include <fcntl.h>