Author: bernhard Date: Mon May 21 10:08:31 2007 New Revision: 18612 Modified: trunk/languages/LANGUAGES.STATUS.pod trunk/languages/lisp/cl.pir trunk/languages/lisp/include/macros/standard.pir trunk/languages/lisp/system.pir
Log: Add info about PJS. Courtesy of Mehmet Selim. Modified: trunk/languages/LANGUAGES.STATUS.pod ============================================================================== --- trunk/languages/LANGUAGES.STATUS.pod (original) +++ trunk/languages/LANGUAGES.STATUS.pod Mon May 21 10:08:31 2007 @@ -734,7 +734,6 @@ Fairly complete, about 95%. Note that this implementation is not exactly the same as the language as accepted by IMCC. - =item Last verified with parrot version 0.4.9 @@ -746,6 +745,34 @@ =back +=head2 PJS + +=over 4 + +=item Description + +PJS is a JavaScript (ECMAScript) implementation. It makes use of flex/bison for parsing. +It can only do basic things right now (variables, if-else, loops, try-catch-finally, eval, etc.). + +=item Status + +Started. + +=item Last verified with parrot version + +0.4.12 + +=item Location + +L<http://users.fulladsl.be/spb1622/pjs/> + +=item Wiki + +L<http://rakudo.org/parrot/index.cgi?javascript> + +=back + + =head2 Plumhead =over 4 Modified: trunk/languages/lisp/cl.pir ============================================================================== --- trunk/languages/lisp/cl.pir (original) +++ trunk/languages/lisp/cl.pir Mon May 21 10:08:31 2007 @@ -49,69 +49,95 @@ .STREAM(value,stream) .DEFVAR(symbol, package, "*STANDARD-OUTPUT*", value) - .DEFUN(symbol, package, "APPLY", _apply) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "APPLY", _apply) + .DEFUN(symbol, package, "APPLY", "_apply") - .DEFUN(symbol, package, "ATOM", _atom) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "ATOM", _atom) + .DEFUN(symbol, package, "ATOM", "_atom") - .DEFUN(symbol, package, "BOUNDP", _boundp) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "BOUNDP", _boundp) + .DEFUN(symbol, package, "BOUNDP", "_boundp") - .DEFUN(symbol, package, "CAR", _car) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "CAR", _car) + .DEFUN(symbol, package, "CAR", "_car") - .DEFUN(symbol, package, "CDR", _cdr) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "CDR", _cdr) + .DEFUN(symbol, package, "CDR", "_cdr") - .DEFUN(symbol, package, "CHAR", _char) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "CHAR", _char) + .DEFUN(symbol, package, "CHAR", "_char") - .DEFUN(symbol, package, "CONS", _cons) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "CONS", _cons) + .DEFUN(symbol, package, "CONS", "_cons") - .DEFUN(symbol, package, "EQ", _eq) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "EQ", _eq) + .DEFUN(symbol, package, "EQ", "_eq") - .DEFUN(symbol, package, "EVAL", _eval) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "EVAL", _eval) + .DEFUN(symbol, package, "EVAL", "_eval") .SPECIAL_FORM(symbol, package, "FUNCTION", _function) - .DEFUN(symbol, package, "GENSYM", _gensym) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "GENSYM", _gensym) + .DEFUN(symbol, package, "GENSYM", "_gensym") .SPECIAL_FORM(symbol, package, "IF", _if) .SPECIAL_FORM(symbol, package, "LET", _let) - .DEFUN(symbol, package, "LIST", _list) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "LIST", _list) + .DEFUN(symbol, package, "LIST", "_list") - .DEFUN(symbol, package, "MOD", _modulus) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "MOD", _modulus) + .DEFUN(symbol, package, "MOD", "_modulus") - .DEFUN(symbol, package, "NULL", _null) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "NULL", _null) + .DEFUN(symbol, package, "NULL", "_null") - .DEFUN(symbol, package, "PRINT", _print) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "PRINT", _print) + .DEFUN(symbol, package, "PRINT", "_print") .SPECIAL_FORM(symbol, package, "PROGN", _progn) .SPECIAL_FORM(symbol, package, "QUOTE", _quote) - .DEFUN(symbol, package, "READ", _read) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "READ", _read) + .DEFUN(symbol, package, "READ", "_read") - .DEFUN(symbol, package, "READ-DELIMITED-LIST",_read_delimited_list) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "READ-DELIMITED-LIST",_read_delimited_list) + .DEFUN(symbol, package, "READ-DELIMITED-LIST","_read_delimited_list") - .DEFUN(symbol, package, "RPLACA", _rplaca) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "RPLACA", _rplaca) + .DEFUN(symbol, package, "RPLACA", "_rplaca") - .DEFUN(symbol, package, "RPLACD", _rplacd) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "RPLACD", _rplacd) + .DEFUN(symbol, package, "RPLACD", "_rplacd") .SPECIAL_FORM(symbol, package, "SETQ",_setq ) - .DEFUN(symbol, package, "TYPE-OF", _type_of) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "TYPE-OF", _type_of) + .DEFUN(symbol, package, "TYPE-OF", "_type_of") - .DEFUN(symbol, package, "VALUES", _values) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "VALUES", _values) + .DEFUN(symbol, package, "VALUES", "_values") - .DEFUN(symbol, package, "QUIT", _quit) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "QUIT", _quit) + .DEFUN(symbol, package, "QUIT", "_quit") - .DEFUN(symbol, package, "/", _divide) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "/", _divide) + .DEFUN(symbol, package, "/", "_divide") - .DEFUN(symbol, package, "-", _subtract) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "-", _subtract) + .DEFUN(symbol, package, "-", "_subtract") - .DEFUN(symbol, package, "*", _multiply) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "*", _multiply) + .DEFUN(symbol, package, "*", "_multiply") - .DEFUN(symbol, package, "+", _add) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "+", _add) + .DEFUN(symbol, package, "+", "_add") - .DEFUN(symbol, package, "=", _equal) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "=", _equal) + .DEFUN(symbol, package, "=", "_equal") .return(1) .end Modified: trunk/languages/lisp/include/macros/standard.pir ============================================================================== --- trunk/languages/lisp/include/macros/standard.pir (original) +++ trunk/languages/lisp/include/macros/standard.pir Mon May 21 10:08:31 2007 @@ -62,8 +62,7 @@ .sym pmc _functionp .sym pmc _namep - # VALID_IN_PARROT_0_2_0 .FUNCTION(_functionp, .L) - .FUNCTION(_functionp, ".L") + .FUNCTION(_functionp, .L) _namep = new "LispString" _namep = .N Modified: trunk/languages/lisp/system.pir ============================================================================== --- trunk/languages/lisp/system.pir (original) +++ trunk/languages/lisp/system.pir Mon May 21 10:08:31 2007 @@ -52,39 +52,56 @@ .DEFVAR(symbol, package, "*INSIDE-BACKQUOTE-LIST*", value) - .DEFUN(symbol, package, "%GET-OBJECT-ATTRIBUTE", _get_object_attr) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "%GET-OBJECT-ATTRIBUTE", _get_object_attr) + .DEFUN(symbol, package, "%GET-OBJECT-ATTRIBUTE", "_get_object_attr") - .DEFUN(symbol, package, "%SET-OBJECT-ATTRIBUTE", _set_object_attr) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "%SET-OBJECT-ATTRIBUTE", _set_object_attr) + .DEFUN(symbol, package, "%SET-OBJECT-ATTRIBUTE", "_set_object_attr") - .DEFUN(symbol, package, "%MAKE-HASH-TABLE", _make_hash) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "%MAKE-HASH-TABLE", _make_hash) + .DEFUN(symbol, package, "%MAKE-HASH-TABLE", "_make_hash") - .DEFUN(symbol, package, "%SET-HASH", _set_hash) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "%SET-HASH", _set_hash) + .DEFUN(symbol, package, "%SET-HASH", "_set_hash") - .DEFUN(symbol, package, "%GET-HASH", _get_hash) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "%GET-HASH", _get_hash) + .DEFUN(symbol, package, "%GET-HASH", "_get_hash") - .DEFUN(symbol, package, "%ALIAS-PACKAGE", _alias_package) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "%ALIAS-PACKAGE", _alias_package) + .DEFUN(symbol, package, "%ALIAS-PACKAGE", "_alias_package") - .DEFUN(symbol, package, "%FIND-PACKAGE", _find_package) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "%FIND-PACKAGE", _find_package) + .DEFUN(symbol, package, "%FIND-PACKAGE", "_find_package") - .DEFUN(symbol, package, "%MAKE-PACKAGE", _make_package) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "%MAKE-PACKAGE", _make_package) + .DEFUN(symbol, package, "%MAKE-PACKAGE", "_make_package") - .DEFUN(symbol, package, "%USE-PACKAGE", _use_package) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "%USE-PACKAGE", _use_package) + .DEFUN(symbol, package, "%USE-PACKAGE", "_use_package") - .DEFUN(symbol, package, "%EXPORT", _export) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "%EXPORT", _export) + .DEFUN(symbol, package, "%EXPORT", "_export") - .DEFUN(symbol, package, "%OPEN-FILE", _open_file) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "%OPEN-FILE", _open_file) + .DEFUN(symbol, package, "%OPEN-FILE", "_open_file") - .DEFUN(symbol, package, "%PEEK", _peek) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "%PEEK", _peek) + .DEFUN(symbol, package, "%PEEK", "_peek") - .DEFUN(symbol, package, "%CLOSE", _close) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "%CLOSE", _close) + .DEFUN(symbol, package, "%CLOSE", "_close") - .DEFUN(symbol, package, "%STRING-EQUAL", _string_equal) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "%STRING-EQUAL", _string_equal) + .DEFUN(symbol, package, "%STRING-EQUAL", "_string_equal") - .DEFUN(symbol, package, "%MAKE-MACRO", _make_macro) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "%MAKE-MACRO", _make_macro) + .DEFUN(symbol, package, "%MAKE-MACRO", "_make_macro") # XXX - THESE SHOULD BE REMOVED AND CONVERTED TO PROPER LISP FUNCTIONS - .DEFUN(symbol, package, "ERROR", _raise_error) - .DEFUN(symbol, package, "LOAD", _load) + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "ERROR", _raise_error) + .DEFUN(symbol, package, "ERROR", "_raise_error") + # VALID_IN_PARROT_0_2_0 .DEFUN(symbol, package, "LOAD", _load) + .DEFUN(symbol, package, "LOAD", "_load") .return(1) .end
