nendo 0.3.0 → 0.3.1

data/lib/nendo.rb

@@ -1,11 +1,41 @@
 #!/usr/bin/env ruby
 # -*- encoding: utf-8 -*-
 #
-# Nendo:   "Nendo is a diarect of Lisp."
+# nendo.rb  -  "language core of nendo"
 #  
-#
+#   Copyright (c) 2000-2010  Kiyoka Nishiyama  <kiyoka@sumibi.org>
+#   
+#   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.
+#  
+#  $Id: 
 #
 require 'stringio'
+#require 'profile'
 
 class Nil
   include Enumerable
@@ -903,6 +933,9 @@ module BuiltinFunctions
   end
 
   def _hash_MIMARKtable_MIMARKget( h, key, *args )
+    if !((key.is_a? String) or ( key.is_a? Symbol))
+      raise TypeError, "Error: argument key requires String or Symbol.\n"
+    end
     if h.has_key?( key )
       h[key]
     else
@@ -916,11 +949,23 @@ module BuiltinFunctions
   end
 
   def _hash_MIMARKtable_MIMARKput_EXMARK( h, key, value )
+    if !((key.is_a? String) or ( key.is_a? Symbol))
+      raise TypeError, "Error: argument key requires String or Symbol.\n"
+    end
     h[key] = value
   end
 
-  def _raise( exception, message )
-    raise exception, message
+  # backtrace expects this format "filename:lineno: place message ". e.g.  "init.nnd:10: in aaa macro.".
+  def _raise( exception, message, backtrace )
+    raise exception, message, [ backtrace ]
+  end
+
+  def __ASMARKLINE_ASMARK()
+    @lastLineno
+  end
+
+  def __ASMARKFILE_ASMARK()
+    @lastSourcefile
   end
 end
 
@@ -956,10 +1001,14 @@ class Evaluator
     }
     @char_table_ruby_to_lisp = @char_table_lisp_to_ruby.invert
 
+    # toplevel binding
+    @global_lisp_binding = Hash.new
+
     # built-in functions
     self.methods.grep( /^_/ ) { |rubySymbol|
       @___tmp = self.method( rubySymbol )
-      eval( sprintf( "@%s = @___tmp", rubySymbol ), @binding )
+      eval( sprintf( "@%s = @___tmp;", rubySymbol ), @binding )
+      eval( sprintf( "@global_lisp_binding['%s'] = true;", rubySymbol ), @binding )
     }
 
     # initialize buildin functions as Proc objects
@@ -1101,7 +1150,12 @@ class Evaluator
       ar = args.cdr.map { |x| x.car }
       variable_sym = toRubySymbol( args.car.to_s.sub( /^:/, "" ))
       global_cap = locals.flatten.include?( variable_sym.split( /[.]/ )[0] ) ? nil : "@"
-      [ sprintf( "%s%s = ", global_cap, variable_sym ), ar ]
+      [ "begin",
+        [
+         sprintf( "@global_lisp_binding['%s'] = true", variable_sym ),
+         sprintf( "%s%s = ", global_cap, variable_sym ),
+         ar ],
+        "end" ]
     when :error
       [
        'begin raise RuntimeError, ',
@@ -1318,7 +1372,7 @@ class Evaluator
                  end
     if global_cap
       ["begin",
-       [sprintf( 'if (self.instance_variables.include?(:@%s)) then', variable_sym ),
+       [sprintf( "if @global_lisp_binding.has_key?('%s') then", variable_sym ),
         expression,
         sprintf( 'else raise NameError.new( "Error: undefined variable %s", "%s" ) end', variable_sym, variable_sym ),
         sprintf( 'rescue => __e ; __e.set_backtrace( ["%s:%d"] + __e.backtrace ) ; raise __e',  sourcefile, lineno  )],
@@ -1493,11 +1547,43 @@ class Evaluator
     @expand_flag = true
     macroexpand_1_check( sexp )
   end
-  
+
+  def macroexpand( sexp )
+    case sexp
+    when Cell
+      if :quote == sexp.car
+        sexp
+      else
+        sym = sexp.car.to_s
+        sym = toRubySymbol( sym )
+        newSexp = sexp
+        if isRubyInterface( sym )
+          # do nothing
+        elsif sexp.car.class == Symbol and eval( sprintf( "(defined? @%s and LispMacro == @%s.class)", sym,sym ), @binding )
+          eval( sprintf( "@__macro = @%s", sym ), @binding )
+          newSexp = callProcedure( sym, @__macro, sexp.cdr )
+        end
+        if _equal_QUMARK( newSexp, sexp )
+          sexp.map { |x|
+            if x.car.is_a? Cell
+              macroexpand( x.car )
+            else
+              x.car
+            end
+          }.to_list( sexp.lastAtom )
+        else
+          newSexp
+        end
+      end
+    else
+      sexp
+    end
+  end
+
   def lispCompile( sexp )
     converge = true
     begin
-      newSexp  = macroexpand_1( sexp )
+      newSexp  = macroexpand( sexp )
       converge = _equal_QUMARK( newSexp, sexp )
       sexp = newSexp
     end until converge
@@ -1521,6 +1607,8 @@ class Evaluator
   end
 
   def lispEval( sexp, sourcefile, lineno )
+    @lastSourcefile = sourcefile
+    @lastLineno     = lineno
     sexp = lispCompile( sexp )
     sexp = quoting( sexp );
     if @debug
@@ -1533,7 +1621,7 @@ class Evaluator
     end
     @compiled_code[ sourcefile ] << rubyExp
     printf( "          rubyExp=<<<\n%s\n>>>\n", rubyExp ) if @debug
-    eval( rubyExp, @binding, sourcefile, lineno );
+    eval( rubyExp, @binding, @lastSourcefile, @lastLineno )
   end
 
   def _load( filename )
@@ -1551,6 +1639,7 @@ class Evaluator
         end
       end
     }
+    forward_gensym_counter()
   end
 
   def _load_MIMARKcompiled_MIMARKcode( filename )

data/lib/text/html-lite.nnd

@@ -1,5 +1,6 @@
+;;-*- mode: nendo; syntax: scheme -*-;;
 ;;;
-;;; html-lite.scm - lightweight HTML construction
+;;; html-lite.nnd - lightweight HTML construction
 ;;;  
 ;;;   Copyright (c) 2000-2009  Shiro Kawai  <shiro@acm.org>
 ;;;   
@@ -30,7 +31,7 @@
 ;;;   NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ;;;   SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 ;;;  
-;;;  $Id: html-lite.scm,v 1.19 2008-05-10 13:36:11 shirok Exp $
+;;;  $Id: 
 ;;;
 ;;;
 ;;;  ported for Nendo language by Kiyoka Nishiyama.