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                ->boolean
  30                new-object new new-array)
  31   #:export (get-this
  32             typeof
  33             bitwise-not logical-not
  34             shift
  35             mod
  36             band bxor bior))
  37
  38
  39 (define (get-this)
  40   (fluid-ref *this*))
  41
  42 (define (typeof x)
  43   (cond ((eq? x *undefined*) "undefined")
  44         ((null? x) "object")
  45         ((boolean? x) "boolean")
  46         ((number? x) "number")
  47         ((string? x) "string")
  48         ((procedure? x) "function")
  49         ((is-a? x <js-object>) "object")
  50         (else "scm")))
  51
  52 (define bitwise-not lognot)
  53 (define (logical-not x)
  54   (not (->boolean (->primitive x))))
  55
  56 (define shift ash)
  57
  58 (define band logand)
  59 (define bxor logxor)
  60 (define bior logior)
  61
  62 (define mod modulo)