nendo 0.3.3 → 0.3.4

data/bin/nendo

@@ -131,12 +131,12 @@ def main
       # compile script file.
       core.clean_compiled_code( )
       core.load( fn )
-      core.replStr( sprintf( '(print-compiled-code "%s")', fn ))
+      core.evalStr( sprintf( '(print-compiled-code "%s")', fn ))
     else
       # start script file.
       core.setArgv( userOptions[1..userOptions.length] )
       core.load( fn )
-      core.replStr( "(if (and (global-defined? 'main) (procedure? main)) (main *argv*) #f)" )
+      core.evalStr( "(if (and (global-defined? 'main) (procedure? main)) (main *argv*) #f)" )
     end
   else
     core.repl

data/emacs/nendo-mode.el

@@ -3,6 +3,33 @@
 ;;
 ;;  Copyright (c) 2010 Kiyoka Nishiyama
 ;;
+;; Redistribution and use in source and binary forms, with or without
+;; modification, are permitted provided that the following conditions
+;; are met:
+;;
+;; 1. Redistributions of source code must retain the above copyright
+;;    notice, this list of conditions and the following disclaimer.
+;;
+;; 2. Redistributions in binary form must reproduce the above copyright
+;;    notice, this list of conditions and the following disclaimer in the
+;;    documentation and/or other materials provided with the distribution.
+;;
+;; 3. Neither the name of the authors nor the names of its contributors
+;;    may be used to endorse or promote products derived from this
+;;    software without specific prior written permission.
+;;
+;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+;; "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+;; LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+;; A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+;; OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+;; SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
+;; TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
+;; PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+;; LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+;;
 ;;
 ;; Please add follows to .emacs
 ;;  (setq scheme-program-name "nendo")
@@ -82,6 +109,105 @@ Editing commands are similar to those of 'scheme-mode'."
 		       match init))))
 
 
+;;
+;; Indent width settings
+;;    port from gauche-mode.el by OOHASHI Daichi <leque@katch.ne.jp>
+;; 
+(mapc #'(lambda (s)
+	  (put (car s) 'scheme-indent-function (cdr s)))
+      '(
+	(&block . 1)
+	(and-let* . 1)
+	(begin0 . 0)
+	(call-with-builder . 1)
+	(call-with-cgi-script . 1)
+	(call-with-client-socket . 1)
+	(call-with-ftp-connection . 1)
+	(call-with-input-conversion . 1)
+	(call-with-input-file . 1)
+	(call-with-input-process . 1)
+	(call-with-input-string . 1)
+	(call-with-iterator . 1)
+	(call-with-iterators . 1)
+	(call-with-output-conversion . 1)
+	(call-with-output-file . 1)
+	(call-with-output-process . 1)
+	(call-with-output-string . 0)
+	(call-with-process-io . 1)
+	(call-with-string-io . 1)
+	(call-with-temporary-file . 1)
+	(call-with-values . 1)
+	(dolist . 1)
+	(dotimes . 1)
+	(guard . 1)
+	(hash-table-for-each . 1)
+	(if-let1 . 2)
+	(if-match . 2)
+	(let*-values . 1)
+	(let-args . 2)
+	(let-keywords . 2)
+	(let-keywords* . 2)
+	(let-match . 2)
+	(let-optionals* . 2)
+	(let-values . 1)
+	(let1 . 2)
+	(let/cc . 1)
+	(make . 1)
+	(make-parameter . 1)
+	(match . 1)
+	(parameterize . 1)
+	(parse-options . 1)
+	(pre-pose-order . 1)
+	(rlet1 . 2)
+	(receive . 2)
+	(rxmatch-case . 1)
+	(rxmatch-cond . 0)
+	(rxmatch-if  . 4)
+	(rxmatch-let . 2)
+	(syntax-rules . 1)
+	(unless . 1)
+	(until . 1)
+	(unwind-protect . 1)
+	(when . 1)
+	(while . 1)
+	(with-builder . 1)
+	(with-error-handler . 1)
+	(with-exception-handler . 1)
+	(with-error-to-port . 1)
+	(with-input-conversion . 1)
+	(with-input-from-port . 1)
+	(with-input-from-file . 1)
+	(with-input-from-process . 1)
+	(with-input-from-string . 1)
+	(with-iterator . 1)
+	(with-locking-mutex . 1)
+	(with-module . 1)
+	(with-output-conversion . 1)
+	(with-output-to-file . 1)
+	(with-output-to-port . 1)
+	(with-output-to-process . 1)
+	(with-port-locking . 1)
+	(with-ports . 3)
+	(with-signal-handlers . 1)
+	(with-string-io . 1)
+	(with-time-counter . 1)
+	;; R6RS
+	(call-with-bytevector-output-port . 0)
+	(call-with-current-continuation . 0)
+	(call-with-port . 1)
+	(call-with-string-output-port . 0)
+	(call/cc . 0)
+	(datum->syntax . 1)
+	(define-condition-type . 2)
+	(define-enumeration . 1)
+	(define-record-type . 1)
+	(dynamic-wind . 0)
+	(identifier-syntax . 0)
+	(library . 1)
+	(letrec* . 1)
+	(with-syntax . 1)
+	))
+
 
 (provide 'nendo-mode)
 

data/example/KyotoCabinet/kcbench.rb

@@ -0,0 +1,20 @@
+#!/usr/local/bin/ruby
+# -*- coding: utf-8 -*-
+
+require 'kyotocabinet'
+include KyotoCabinet
+
+db = DB::new
+
+# データベースを開く
+unless db.open('numbers.kch', DB::OWRITER | DB::OCREATE)
+  printf("open error: %s\n", db.error)
+end
+
+# 書きこみ
+(0..99999).each { |num|
+  db[ num ] = num
+}
+
+p db[1000]
+p db[10000]

data/example/KyotoCabinet/kcbench1.nnd

@@ -0,0 +1,29 @@
+#!/bin/sh
+:; #-*- mode: nendo; syntax: scheme -*-;;
+:; exec /usr/local/bin/nendo $0 $*
+
+(require "kyotocabinet")
+
+(define db (KyotoCabinet::DB.new))
+
+(define (main argv)
+  (define (_create)
+    (if (not (db.open "numbers.kch" (+ KyotoCabinet::DB::OWRITER KyotoCabinet::DB::OCREATE)))
+        (printf "open error: %s\n" db.error)
+        ;; 書きこみ
+        (let loop ((num 0))
+          (when (< num 100000)
+            (hash-table-put! db num num)
+            (loop (+ num 1))))))
+  (_create)
+  (print (hash-table-get db 1000))
+  (print (hash-table-get db 10000)))
+
+
+
+
+
+
+
+  
+

data/example/KyotoCabinet/kcbench2.nnd

@@ -0,0 +1,30 @@
+#!/bin/sh
+:; #-*- mode: nendo; syntax: scheme -*-;;
+:; exec /usr/local/bin/nendo $0 $*
+
+(require "kyotocabinet")
+
+(define db (KyotoCabinet::DB.new))
+
+(define (main argv)
+  (define (_create)
+    (if (not (db.open "numbers.kch" (+ KyotoCabinet::DB::OWRITER KyotoCabinet::DB::OCREATE)))
+        (printf "open error: %s\n" db.error)
+        ;; 書きこみ
+        (Range.new 0 99999
+                   (&block (num)
+                     (db.store num num)))))
+  (_create)
+  (print (hash-table-get db 1000))
+  (print (hash-table-get db 10000)))
+
+
+
+
+
+  
+
+
+
+  
+

data/example/KyotoCabinet/kcbench3.nnd

@@ -0,0 +1,31 @@
+#!/bin/sh
+:; #-*- mode: nendo; syntax: scheme -*-;;
+:; exec /usr/local/bin/nendo $0 $*
+
+(require "kyotocabinet")
+
+(define db (KyotoCabinet::DB.new))
+
+(define (main argv)
+  (define (_create)
+    (if (not (db.open "numbers.kch" (+ KyotoCabinet::DB::OWRITER KyotoCabinet::DB::OCREATE)))
+        (printf "open error: %s\n" db.error)
+        ;; 書きこみ
+        (for-each
+         (lambda (num)
+           (db.store num num))
+         (range 100000))))
+
+  (_create)
+  (print (hash-table-get db 1000))
+  (print (hash-table-get db 10000)))
+
+
+
+
+  
+
+
+
+  
+

data/example/export-lisp-functions.rb

@@ -0,0 +1,20 @@
+#!/usr/local/bin/ruby
+
+require 'nendo'
+
+def main
+  core = Nendo::Core.new()
+  core.loadInitFile
+  lst = [ "a", "b", "c",
+          [ "d", "e" ].to_list
+        ].to_list
+  core.evalStr( '(define (sexpToString sexp) (write-to-string sexp))' )
+  core.evalStr( '(export-to-ruby sexpToString)' )
+  core.evalStr( '(use text.tree)' )
+  core.evalStr( '(define (treeToString sexp) (tree->string sexp))' )
+  core.evalStr( '(export-to-ruby treeToString)' )
+  puts core.sexpToString( lst )
+  puts core.treeToString( lst )
+end
+
+main

data/example/scratch.nnd

@@ -2,23 +2,14 @@
 ;; -----------------
 (enable-idebug)
 (disable-idebug)
-(define debug-print-length 256)
-
-;; Bug : got in `translate': undefined method `sourcefile' for #<Nendo::Cell:0x00000101580668> (NoMethodError)
-(let-values (((a b) (car+cdr '(1 . 2))))
-  (or (and (= a 1) (= b 2))
-      (fail 'car+cdr:1)))
-
-(define (foo lis)
-  (second lis))
+(define debug-print-length 2000)
+
+(%internal-define-to-letrec
+ '(macro (x)
+    (define (foo v) (+ v 1))
+    (define result 10)
+    (define (bar v) (+ v 2))
+    '(1 2 3)))
   
-(foo '(1 2 3))
-(foo 1)
-
-'(1 2 3)
 (exit)
 
-;; circular
-(load-library "srfi-1")
-(list?
- (circular-list 1 2))

data/example/tak_ruby_version.rb

@@ -0,0 +1,14 @@
+#!/usr/local/bin/ruby
+
+# takeuchi function ( tarai mawashi bench )
+def tak( x, y, z )
+  if y >= x
+    y
+  else
+    tak( tak( x-1, y, z ),
+         tak( y-1, z, x ),
+         tak( z-1, x, y ))
+  end
+end
+
+puts tak( 10, 5, 0 )

data/lib/debug/syslog.nndc

@@ -19,7 +19,7 @@ trampCall(
 
 trampCall( 
   begin
-      def self._debug_MIMARKprint_MIMARKoutput_MIMARKfunc_METHOD( origname, pred, args ) callProcedure( origname, pred, args ) end
+      def self._debug_MIMARKprint_MIMARKoutput_MIMARKfunc_METHOD( origname, pred, args )   lispMethodEntry( origname, true ) ;   ret = callProcedure( origname, pred, args ) ;  lispMethodExit( origname,  true ) ;   return ret end 
       @global_lisp_binding['_debug_MIMARKprint_MIMARKoutput_MIMARKfunc'] = self.method( :_debug_MIMARKprint_MIMARKoutput_MIMARKfunc_METHOD )
     @_debug_MIMARKprint_MIMARKoutput_MIMARKfunc = 
     trampCall(