lib/player-lib.lisp

   1 (in-package :avm2-compiler)
   2
   3 ;;; top level globals/static/whatever functions that didn't get added by the
   4 ;;; automatic reflection stuff in player-class-decl.lisp
   5
   6 (let ((*symbol-table* *player-symbol-table*))
   7   ;;; *
   8
   9   (swf-ffi-defun-lex flash::array "" "Array" (&rest args) Array)
  10   (swf-ffi-defun-lex flash::Boolean "" "Boolean" (expr) Boolean)
  11   (swf-ffi-defun-lex flash::date "" "Date" () String)
  12   (swf-ffi-defun-lex flash::decode-uri "" "decodeURI" (uri) String)
  13   (swf-ffi-defun-lex flash::decode-uri-component "" "decodeURIComponent" (uri) String)
  14   (swf-ffi-defun-lex flash::encode-uri "" "encodeURI" (uri) String)
  15   (swf-ffi-defun-lex flash::encode-uri-component "" "encodeURIComponent" (uri) String)
  16   (swf-ffi-defun-lex flash::escape "" "escape" (string) String)
  17   (swf-ffi-defun-lex flash::int "" "int" (value) int)
  18   (swf-ffi-defun-lex flash::is-finite "" "isFinite" (number) Boolean)
  19   (swf-ffi-defun-lex flash::is-nan "" "isNaN" (number) Boolean)
  20   (swf-ffi-defun-lex flash::is-xml-name "" "isXMLName" (str) Boolean)
  21   (swf-ffi-defun-lex flash::number "" "Number" (expr) Number)
  22   (swf-ffi-defun-lex flash::object "" "Object" (value) Object)
  23   (swf-ffi-defun-lex flash::parse-float "" "parseFloat" (string) Number)
  24   (swf-ffi-defun-lex flash::parse-int "" "parseInt" (string &optional (radix 0)) Number)
  25   (swf-ffi-defun-lex flash::string "" "String" (expression) String)
  26   (swf-ffi-defun-lex flash::trace "" "trace" (&rest args) void)
  27   (swf-ffi-defun-lex flash::uint "" "uint" (value) uint)
  28   (swf-ffi-defun-lex flash::unescape "" "unescape" (string) String)
  29   (swf-ffi-defun-lex flash::xml "" "XML" (expression) XML)
  30   (swf-ffi-defun-lex flash::xml-list "" "XMLList" (expression) XMLList)
  31
  32   (swf-ffi-defconstant-lex flash::infinity "" "Inifinity" Number)
  33   (swf-ffi-defconstant-lex flash::negative-infinity "" "-Inifinity" Number)
  34   (swf-ffi-defconstant-lex flash::nan "" "NaN" Number)
  35   (swf-ffi-defconstant-lex flash::undefined "" "undefined" *)
  36
  37 ;;; Array.*
  38   (swf-ffi-defun-lex flash::.Array "Array" "Array" (&optional (numElements 0)) :Array)
  39   (swf-ffi-defun-lex flash::.Array "Array" "Array" (&rest values) :Array)
  40
  41   (swf-ffi-defmethod flash::.concat :Array "concat" (&rest args):Array)
  42   (swf-ffi-defmethod flash::.every :Array "every" ((callback :Function) (thisObject * null)) :Boolean)
  43   (swf-ffi-defmethod flash::.filter :Array "filter" ((callback :Function) (thisObject :* null)):Array)
  44
  45   (swf-ffi-defmethod flash::.for-each :Array "forEach" ((callback :Function) (thisObject :* null)):void)
  46   (swf-ffi-defmethod flash::.index-Of :Array "indexOf" ((searchElement :*) (fromIndex :int)) :int)
  47   (swf-ffi-defmethod flash::.join :Array "join" ((sep :*)) :String)
  48   (swf-ffi-defmethod flash::.last-Index-Of :Array "lastIndexOf" ((searchElement :*) (fromIndex :int #x7fffffff)) :int)
  49   (swf-ffi-defmethod flash::.map :Array "map" ((callback :Function) (thisObject :* null)):Array)
  50   (swf-ffi-defmethod flash::.pop :Array "pop" () :*)
  51   (swf-ffi-defmethod flash::.push :Array "push" (&rest args) :uint)
  52   (swf-ffi-defmethod flash::.reverse :Array "reverse" () :Array)
  53   (swf-ffi-defmethod flash::.shift :Array "shift" ():*)
  54   (swf-ffi-defmethod flash::.slice :Array "slice" ((startIndex :int 0) (endIndex :int 16777215)) :Array)
  55   (swf-ffi-defmethod flash::.some :Array "some" ((callback :Function) (thisObject :* null)):Boolean)
  56   (swf-ffi-defmethod flash::.sort :Array "sort" (&rest args) :Array)
  57   (swf-ffi-defmethod flash::.sort-on :Array "sortOn" ((fieldName :Object) (options :Object null)):Array)
  58   (swf-ffi-defmethod flash::.splice :Array "splice" ((startIndex :int) (deleteCount :uint) &rest values) :Array)
  59   (swf-ffi-defmethod flash::.to-locale-string :Array "toLocaleString" () :String)
  60   (swf-ffi-defmethod flash::.to-string :Array "toString" ():String)
  61   (swf-ffi-defmethod flash::.unshift :Array "unshift" (&rest args):uint)
  62
  63
  64   (swf-ffi-defconstant-lex flash::array.case-insensitive "Array" "CASEINSENSITIVE" uint)
  65   (swf-ffi-defconstant-lex flash::array.descending "Array" "DESCENDING" uint)
  66   (swf-ffi-defconstant-lex flash::array.numeric "Array" "NUMERIC" uint)
  67   (swf-ffi-defconstant-lex flash::array.return-indexed-array "Array" "RETURNINDEXEDARRAY" uint)
  68   (swf-ffi-defconstant-lex flash::array.unique-sort "Array" "UNIQUESORT" uint)
  69
  70 ;;; Boolean.*
  71
  72   (swf-ffi-defun-lex flash::Boolean "Boolean" "Boolean" ((expression :Object false)):Boolean)
  73   (swf-ffi-defmethod flash::.to-String :Boolean "toString" ():String)
  74   (swf-ffi-defmethod flash::.value-Of :Boolean "valueOf" ():Boolean)
  75
  76 ;;; Function.*
  77   (swf-ffi-defmethod flash::.apply :Function "apply" ((this :*) (arg-array :*)):*)
  78   (swf-ffi-defmethod flash::.call :Function "call" (this &rest args) :*)
  79
  80 ;;; int.*
  81   (swf-ffi-defmethod flash::.to-exponential :int "toExponential" ((fraction-digits :uint)) :string)
  82   (swf-ffi-defmethod flash::.to-fixed :int "toFixed" ((fraction-digits :uint)) :string)
  83   (swf-ffi-defmethod flash::.to-precision :int "toPrecision" ((precision :uint)) :string)
  84   (swf-ffi-defmethod flash::.to-string :int "toString" ((radix :uint)) :string)
  85   (swf-ffi-defconstant-lex flash::int.max-value "int" "MAX_VALUE" int)
  86   (swf-ffi-defconstant-lex flash::int.min-value "int" "MIN_VALUE" int)
  87
  88 ;;; Math.*
  89
  90   (swf-ffi-defun-lex flash::math.abs "Math" "abs" (val) :Number)
  91   (swf-ffi-defun-lex flash::math.acos "Math" "acos" (val) :Number)
  92   (swf-ffi-defun-lex flash::math.asin "Math" "asin" (val) :Number)
  93   (swf-ffi-defun-lex flash::math.atan "Math" "atan" (val) :Number)
  94   (swf-ffi-defun-lex flash::math.atan2 "Math" "atan2" (y x) :Number)
  95   (swf-ffi-defun-lex flash::math.ceil "Math" "ceil" (val) :Number)
  96   (swf-ffi-defun-lex flash::math.cos "Math" "cos" (angle-radians) :Number)
  97   (swf-ffi-defun-lex flash::math.exp "Math" "exp" (val) :Number)
  98   (swf-ffi-defun-lex flash::math.floor "Math" "floor" (val) :Number)
  99   (swf-ffi-defun-lex flash::math.log "Math" "log" (val) :Number)
 100   (swf-ffi-defun-lex flash::math.max "Math" "max" (val1 val2 &rest rest) :Number)
 101   (swf-ffi-defun-lex flash::math.min "Math" "min" (val1 val2 &rest rest) :Number)
 102   (swf-ffi-defun-lex flash::math.pow "Math" "pow" (val1 val2):Number)
 103   (swf-ffi-defun-lex flash::math.random "Math" "random" () :Number)
 104   (swf-ffi-defun-lex flash::math.round "Math" "round" (val):Number)
 105   (swf-ffi-defun-lex flash::math.sin "Math" "sin" (angle-Radians):Number)
 106   (swf-ffi-defun-lex flash::math.sqrt "Math" "sqrt" (val):Number)
 107   (swf-ffi-defun-lex flash::math.tan "Math" "tan" (angle-Radians):Number)
 108
 109   (swf-ffi-defconstant-lex flash::math.e "Math" "E" Number)
 110   (swf-ffi-defconstant-lex flash::math.ln10 "Math" "LN10" Number)
 111   (swf-ffi-defconstant-lex flash::math.ln2 "Math" "LN2" Number)
 112   (swf-ffi-defconstant-lex flash::math.log10e "Math" "LOG10E" Number)
 113   (swf-ffi-defconstant-lex flash::math.log2e "Math" "LOG2E" Number)
 114   (swf-ffi-defconstant-lex flash::math.pi "Math" "PI" Number)
 115   (swf-ffi-defconstant-lex flash::math.sqrt1/2 "Math" "SQRT1_2" Number)
 116   (swf-ffi-defconstant-lex flash::math.sqrt2 "Math" "SQRT2" Number)
 117
 118 ;;; String.*
 119
 120
 121   (swf-ffi-defmethod flash::.char-at :String "charAt" ((index :Number 0)):String)
 122   (swf-ffi-defmethod flash::.char-code-at :String "charCodeAt" ((index :Number 0)):Number)
 123   (swf-ffi-defmethod flash::.concat :String "concat" (&rest args):String)
 124   (swf-ffi-defun-lex flash::string.from-char-code "String" "fromCharCode" (&rest charCodes):String)
 125   (swf-ffi-defmethod flash::.index-of :String "indexOf" ((val :String) (startIndex :Number 0)):int)
 126   (swf-ffi-defmethod flash::.last-index-of :String "lastIndexOf" ((val :String) (startIndex :Number #x7FFFFFFF)):int)
 127   (swf-ffi-defmethod flash::.locale-compare :String "localeCompare" ((other :String) &rest values):int)
 128   (swf-ffi-defmethod flash::.match :String "match" (pattern):Array)
 129   (swf-ffi-defmethod flash::.replace :String "replace" (pattern (repl :Object)):String)
 130   (swf-ffi-defmethod flash::.search :String "search" (pattern):int)
 131   (swf-ffi-defmethod flash::.slice :String "slice" ((startIndex :Number 0) (endIndex :Number #x7fffffff)):String)
 132   (swf-ffi-defmethod flash::.split :String "split" (delimiter (limit :Number #x7fffffff)):Array)
 133   (swf-ffi-defmethod flash::.substr :String "substr" ((startIndex :Number 0) (len :Number #x7fffffff)):String)
 134   (swf-ffi-defmethod flash::.substring :String "substring" ((startIndex :Number 0) (endIndex :Number #x7fffffff)):String)
 135   (swf-ffi-defmethod flash::.to-locale-lower-case :String "toLocaleLowerCase" ():String)
 136   (swf-ffi-defmethod flash::.to-locale-upper-case :String "toLocaleUpperCase" ():String)
 137   (swf-ffi-defmethod flash::.to-lower-case :String "toLowerCase" ():String)
 138   (swf-ffi-defmethod flash::.to-string :String "toString" ():String)
 139   (swf-ffi-defmethod flash::.to-upper-case :String "toUpperCase" ():String)
 140   (swf-ffi-defmethod flash::.value-of :String "valueOf" ():String)
 141 )