[go: up one dir, main page]
More Web Proxy on the site http://driver.im/
SlideShare a Scribd company logo
Gauche



         kshikano@ohmsha.co.jp




          1
Gauche



         k16.shikano@gmail.com
         http://k16journal.blogspot.com/




          2
Gauche




3
4
Scheme




         5
Scheme


2        Gauche.Night




           6
Scheme


2        Gauche.Night




           7
Gauche
Gauche




         8
— Shiro   Wiliki




9
— Shiro        Wiliki
               Gauche + SXML
SXML       M                   Gauche
   LaTeX




                10
11
Gauche




  12
Gauche   Perl   Ruby




          13
Gauche   Perl   Ruby




          14
Gauche   Perl   Ruby




          15
Gauche   Perl   Ruby




          16
Gauche
(regexp-replace-all* manuscript
  #/( ) ([        ])/ quot;12quot;)




                      17
Gauche
(regexp-replace-all* manuscript
  #/( ) ([        ])/ quot;12quot;)




                      18
19
Gauche
         c-wrapper




                20
hurigana.scm

LaTeX


(c-load-library quot;/usr/lib/libkakasi.so.2.1.0quot;)
(c-include quot;/usr/include/libkakasi.hquot;)
(define (kanji->hira str)
  (let ((base-ces quot;utf-8quot;) (kakasi-ces quot;iso2022jpquot;))
   (kakasi_close_kanwadict)
   (kakasi_getopt_argv 2 ’(quot;kakasiquot; quot;-JHquot;))
        ...




                      21
22
xml-trivial.scm
               XML
(define (read-xml)
  (define (in-tag c tag)
   (cond ((eof-object? c)
             (error quot;EOF while tagquot; tag))
            ((char=? # c)
             (in-escaped (read-char)
                         (string+char tag c)))
      ...




                         23
xml-trivial.scm
               XML


(define (read-xml)
  (define (in-tag c tag)
   (cond ((eof-object? c)
             (error quot;EOF while tagquot; tag))
            ((char=? # c)
             (in-escaped (read-char)
                         (string+char tag c)))
      ...




                         24
xml2tex.scm
XML
                                 LaTeX


(define (make-p name)
  (define-rule
      (lambda ()
        (receive (vskip hskip)
         (values (ifstr ($@ ’vskip)
                    (cut list quot;vskipquot; <> quot;nquot;))
...
(define-simple-rules make-p
  p0 p1 p2 p3)


                         25
xml2tex.scm
XML
                                 LaTeX



(define (make-p name)
  (define-rule
      (lambda ()
        (receive (vskip hskip)
         (values (ifstr ($@ ’vskip)
                    (cut list quot;vskipquot; <> quot;nquot;))
...
(define-simple-rules make-p
  p0 p1 p2 p3)
                         26
xml2tex.scm
XML
                   LaTeX




XML            xml2tex.scm   LaTeX




              27
xml2tex.scm
XML
                   LaTeX




XML            xml2tex.scm   LaTeX




              28
xml2tex.scm             XML
make                       PDF

              Subversion




                   29
kshikano@ohmsha.co.jp
k16.shikano@gmail.com




         30

More Related Content

Gaucheで本を作る