module/language/ecmascript/impl.scm

   1 ;;; ECMAScript for Guile
   2
   3 ;; Copyright (C) 2009 Free Software Foundation, Inc.
   4
   5 ;; This program is free software; you can redistribute it and/or modify
   6 ;; it under the terms of the GNU General Public License as published by
   7 ;; the Free Software Foundation; either version 2, or (at your option)
   8 ;; any later version.
   9 ;;
  10 ;; This program is distributed in the hope that it will be useful,
  11 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 ;; GNU General Public License for more details.
  14 ;;
  15 ;; You should have received a copy of the GNU General Public License
  16 ;; along with this program; see the file COPYING.  If not, write to
  17 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  18 ;; Boston, MA 02111-1307, USA.
  19
  20 ;;; Code:
  21
  22 (define-module (language ecmascript impl)
  23   #:use-module (oop goops)
  24   #:use-module (language ecmascript base)
  25   #:use-module (language ecmascript function)
  26   #:use-module (language ecmascript array)
  27   #:re-export (*undefined* *this* call/this*
  28                pget pput pdel has-property?
  29                new-object
  30                new
  31                new-array)
  32   #:export (get-this
  33             typeof
  34             bitwise-not logical-not
  35             shift
  36             mod
  37             band bxor bior))
  38
  39
  40 (define (get-this)
  41   (fluid-ref *this*))
  42
  43 (define (typeof x)
  44   (cond ((eq? x *undefined*) "undefined")
  45         ((null? x) "object")
  46         ((boolean? x) "boolean")
  47         ((number? x) "number")
  48         ((string? x) "string")
  49         ((procedure? x) "function")
  50         ((is-a? x <js-object>) "object")
  51         (else "scm")))
  52
  53 (define bitwise-not lognot)
  54 (define (logical-not x)
  55   (not (->boolean (->primitive x))))
  56
  57 (define shift ash)
  58
  59 (define band logand)
  60 (define bxor logxor)
  61 (define bior logior)
  62
  63 (define mod modulo)