Intravision/reactos
1
0
Fork 0
mirror of https://github.com/reactos/reactos.git synced 2025-06-27 18:59:42 +00:00
Code Issues Projects Releases Packages Wiki Activity

Added kjs -- The kernel javascript system.

Browse source 
This system allows the kernel debugger to be scripted with the new js
command.

Functions for reading and writing memory, as well as reading the module
list, the registry, and the trap frame registers are provided.  A simple
mechanism is provided for reading javascript initialization from the
registry so that the user may provide custom functions for use during
debugging sessions.

I have already used it to find a bug in kdb itself; as well as to list
sections in modules and perform various other tedious tasks often
required while debugging linked lists, etc.

This is a static library that will be built when KDBG=1, and linked
with ntoskrnl.

svn path=/trunk/; revision=7554
This commit is contained in:
Art Yerkes 2004-01-10 20:38:18 +00:00
parent 0d8f07c6a3
commit f48739f395
215 changed files with 128469 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
reactos/lib/kjs/AUTHORS Normal file
View file

@ -0,0 +1,4 @@
Authors of the NGS JavaScript Interpreter
Markku Rossi <mtr@iki.fi>

482
reactos/lib/kjs/COPYING Normal file
View file

@ -0,0 +1,482 @@
GNU LIBRARY GENERAL PUBLIC LICENSE
Version 2, June 1991
Copyright (C) 1991 Free Software Foundation, Inc.
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
[This is the first released version of the library GPL. It is
numbered 2 because it goes with version 2 of the ordinary GPL.]
Preamble
The licenses for most software are designed to take away your
freedom to share and change it. By contrast, the GNU General Public
Licenses are intended to guarantee your freedom to share and change
free software--to make sure the software is free for all its users.
This license, the Library General Public License, applies to some
specially designated Free Software Foundation software, and to any
other libraries whose authors decide to use it. You can use it for
your libraries, too.
When we speak of free software, we are referring to freedom, not
price. Our General Public Licenses are designed to make sure that you
have the freedom to distribute copies of free software (and charge for
this service if you wish), that you receive source code or can get it
if you want it, that you can change the software or use pieces of it
in new free programs; and that you know you can do these things.
To protect your rights, we need to make restrictions that forbid
anyone to deny you these rights or to ask you to surrender the rights.
These restrictions translate to certain responsibilities for you if
you distribute copies of the library, or if you modify it.
For example, if you distribute copies of the library, whether gratis
or for a fee, you must give the recipients all the rights that we gave
you. You must make sure that they, too, receive or can get the source
code. If you link a program with the library, you must provide
complete object files to the recipients so that they can relink them
with the library, after making changes to the library and recompiling
it. And you must show them these terms so they know their rights.
Our method of protecting your rights has two steps: (1) copyright
the library, and (2) offer you this license which gives you legal
permission to copy, distribute and/or modify the library.
Also, for each distributor's protection, we want to make certain
that everyone understands that there is no warranty for this free
library. If the library is modified by someone else and passed on, we
want its recipients to know that what they have is not the original
version, so that any problems introduced by others will not reflect on
the original authors' reputations.
Finally, any free program is threatened constantly by software
patents. We wish to avoid the danger that companies distributing free
software will individually obtain patent licenses, thus in effect
transforming the program into proprietary software. To prevent this,
we have made it clear that any patent must be licensed for everyone's
free use or not licensed at all.
Most GNU software, including some libraries, is covered by the ordinary
GNU General Public License, which was designed for utility programs. This
license, the GNU Library General Public License, applies to certain
designated libraries. This license is quite different from the ordinary
one; be sure to read it in full, and don't assume that anything in it is
the same as in the ordinary license.
The reason we have a separate public license for some libraries is that
they blur the distinction we usually make between modifying or adding to a
program and simply using it. Linking a program with a library, without
changing the library, is in some sense simply using the library, and is
analogous to running a utility program or application program. However, in
a textual and legal sense, the linked executable is a combined work, a
derivative of the original library, and the ordinary General Public License
treats it as such.
Because of this blurred distinction, using the ordinary General
Public License for libraries did not effectively promote software
sharing, because most developers did not use the libraries. We
concluded that weaker conditions might promote sharing better.
However, unrestricted linking of non-free programs would deprive the
users of those programs of all benefit from the free status of the
libraries themselves. This Library General Public License is intended to
permit developers of non-free programs to use free libraries, while
preserving your freedom as a user of such programs to change the free
libraries that are incorporated in them. (We have not seen how to achieve
this as regards changes in header files, but we have achieved it as regards
changes in the actual functions of the Library.) The hope is that this
will lead to faster development of free libraries.
The precise terms and conditions for copying, distribution and
modification follow. Pay close attention to the difference between a
"work based on the library" and a "work that uses the library". The
former contains code derived from the library, while the latter only
works together with the library.
Note that it is possible for a library to be covered by the ordinary
General Public License rather than by this special one.
GNU LIBRARY GENERAL PUBLIC LICENSE
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
0. This License Agreement applies to any software library which
contains a notice placed by the copyright holder or other authorized
party saying it may be distributed under the terms of this Library
General Public License (also called "this License"). Each licensee is
addressed as "you".
A "library" means a collection of software functions and/or data
prepared so as to be conveniently linked with application programs
(which use some of those functions and data) to form executables.
The "Library", below, refers to any such software library or work
which has been distributed under these terms. A "work based on the
Library" means either the Library or any derivative work under
copyright law: that is to say, a work containing the Library or a
portion of it, either verbatim or with modifications and/or translated
straightforwardly into another language. (Hereinafter, translation is
included without limitation in the term "modification".)
"Source code" for a work means the preferred form of the work for
making modifications to it. For a library, complete source code means
all the source code for all modules it contains, plus any associated
interface definition files, plus the scripts used to control compilation
and installation of the library.
Activities other than copying, distribution and modification are not
covered by this License; they are outside its scope. The act of
running a program using the Library is not restricted, and output from
such a program is covered only if its contents constitute a work based
on the Library (independent of the use of the Library in a tool for
writing it). Whether that is true depends on what the Library does
and what the program that uses the Library does.
1. You may copy and distribute verbatim copies of the Library's
complete source code as you receive it, in any medium, provided that
you conspicuously and appropriately publish on each copy an
appropriate copyright notice and disclaimer of warranty; keep intact
all the notices that refer to this License and to the absence of any
warranty; and distribute a copy of this License along with the
Library.
You may charge a fee for the physical act of transferring a copy,
and you may at your option offer warranty protection in exchange for a
fee.
2. You may modify your copy or copies of the Library or any portion
of it, thus forming a work based on the Library, and copy and
distribute such modifications or work under the terms of Section 1
above, provided that you also meet all of these conditions:
a) The modified work must itself be a software library.
b) You must cause the files modified to carry prominent notices
stating that you changed the files and the date of any change.
c) You must cause the whole of the work to be licensed at no
charge to all third parties under the terms of this License.
d) If a facility in the modified Library refers to a function or a
table of data to be supplied by an application program that uses
the facility, other than as an argument passed when the facility
is invoked, then you must make a good faith effort to ensure that,
in the event an application does not supply such function or
table, the facility still operates, and performs whatever part of
its purpose remains meaningful.
(For example, a function in a library to compute square roots has
a purpose that is entirely well-defined independent of the
application. Therefore, Subsection 2d requires that any
application-supplied function or table used by this function must
be optional: if the application does not supply it, the square
root function must still compute square roots.)
These requirements apply to the modified work as a whole. If
identifiable sections of that work are not derived from the Library,
and can be reasonably considered independent and separate works in
themselves, then this License, and its terms, do not apply to those
sections when you distribute them as separate works. But when you
distribute the same sections as part of a whole which is a work based
on the Library, the distribution of the whole must be on the terms of
this License, whose permissions for other licensees extend to the
entire whole, and thus to each and every part regardless of who wrote
it.
Thus, it is not the intent of this section to claim rights or contest
your rights to work written entirely by you; rather, the intent is to
exercise the right to control the distribution of derivative or
collective works based on the Library.
In addition, mere aggregation of another work not based on the Library
with the Library (or with a work based on the Library) on a volume of
a storage or distribution medium does not bring the other work under
the scope of this License.
3. You may opt to apply the terms of the ordinary GNU General Public
License instead of this License to a given copy of the Library. To do
this, you must alter all the notices that refer to this License, so
that they refer to the ordinary GNU General Public License, version 2,
instead of to this License. (If a newer version than version 2 of the
ordinary GNU General Public License has appeared, then you can specify
that version instead if you wish.) Do not make any other change in
these notices.
Once this change is made in a given copy, it is irreversible for
that copy, so the ordinary GNU General Public License applies to all
subsequent copies and derivative works made from that copy.
This option is useful when you wish to copy part of the code of
the Library into a program that is not a library.
4. You may copy and distribute the Library (or a portion or
derivative of it, under Section 2) in object code or executable form
under the terms of Sections 1 and 2 above provided that you accompany
it with the complete corresponding machine-readable source code, which
must be distributed under the terms of Sections 1 and 2 above on a
medium customarily used for software interchange.
If distribution of object code is made by offering access to copy
from a designated place, then offering equivalent access to copy the
source code from the same place satisfies the requirement to
distribute the source code, even though third parties are not
compelled to copy the source along with the object code.
5. A program that contains no derivative of any portion of the
Library, but is designed to work with the Library by being compiled or
linked with it, is called a "work that uses the Library". Such a
work, in isolation, is not a derivative work of the Library, and
therefore falls outside the scope of this License.
However, linking a "work that uses the Library" with the Library
creates an executable that is a derivative of the Library (because it
contains portions of the Library), rather than a "work that uses the
library". The executable is therefore covered by this License.
Section 6 states terms for distribution of such executables.
When a "work that uses the Library" uses material from a header file
that is part of the Library, the object code for the work may be a
derivative work of the Library even though the source code is not.
Whether this is true is especially significant if the work can be
linked without the Library, or if the work is itself a library. The
threshold for this to be true is not precisely defined by law.
If such an object file uses only numerical parameters, data
structure layouts and accessors, and small macros and small inline
functions (ten lines or less in length), then the use of the object
file is unrestricted, regardless of whether it is legally a derivative
work. (Executables containing this object code plus portions of the
Library will still fall under Section 6.)
Otherwise, if the work is a derivative of the Library, you may
distribute the object code for the work under the terms of Section 6.
Any executables containing that work also fall under Section 6,
whether or not they are linked directly with the Library itself.
6. As an exception to the Sections above, you may also compile or
link a "work that uses the Library" with the Library to produce a
work containing portions of the Library, and distribute that work
under terms of your choice, provided that the terms permit
modification of the work for the customer's own use and reverse
engineering for debugging such modifications.
You must give prominent notice with each copy of the work that the
Library is used in it and that the Library and its use are covered by
this License. You must supply a copy of this License. If the work
during execution displays copyright notices, you must include the
copyright notice for the Library among them, as well as a reference
directing the user to the copy of this License. Also, you must do one
of these things:
a) Accompany the work with the complete corresponding
machine-readable source code for the Library including whatever
changes were used in the work (which must be distributed under
Sections 1 and 2 above); and, if the work is an executable linked
with the Library, with the complete machine-readable "work that
uses the Library", as object code and/or source code, so that the
user can modify the Library and then relink to produce a modified
executable containing the modified Library. (It is understood
that the user who changes the contents of definitions files in the
Library will not necessarily be able to recompile the application
to use the modified definitions.)
b) Accompany the work with a written offer, valid for at
least three years, to give the same user the materials
specified in Subsection 6a, above, for a charge no more
than the cost of performing this distribution.
c) If distribution of the work is made by offering access to copy
from a designated place, offer equivalent access to copy the above
specified materials from the same place.
d) Verify that the user has already received a copy of these
materials or that you have already sent this user a copy.
For an executable, the required form of the "work that uses the
Library" must include any data and utility programs needed for
reproducing the executable from it. However, as a special exception,
the source code distributed need not include anything that is normally
distributed (in either source or binary form) with the major
components (compiler, kernel, and so on) of the operating system on
which the executable runs, unless that component itself accompanies
the executable.
It may happen that this requirement contradicts the license
restrictions of other proprietary libraries that do not normally
accompany the operating system. Such a contradiction means you cannot
use both them and the Library together in an executable that you
distribute.
7. You may place library facilities that are a work based on the
Library side-by-side in a single library together with other library
facilities not covered by this License, and distribute such a combined
library, provided that the separate distribution of the work based on
the Library and of the other library facilities is otherwise
permitted, and provided that you do these two things:
a) Accompany the combined library with a copy of the same work
based on the Library, uncombined with any other library
facilities. This must be distributed under the terms of the
Sections above.
b) Give prominent notice with the combined library of the fact
that part of it is a work based on the Library, and explaining
where to find the accompanying uncombined form of the same work.
8. You may not copy, modify, sublicense, link with, or distribute
the Library except as expressly provided under this License. Any
attempt otherwise to copy, modify, sublicense, link with, or
distribute the Library is void, and will automatically terminate your
rights under this License. However, parties who have received copies,
or rights, from you under this License will not have their licenses
terminated so long as such parties remain in full compliance.
9. You are not required to accept this License, since you have not
signed it. However, nothing else grants you permission to modify or
distribute the Library or its derivative works. These actions are
prohibited by law if you do not accept this License. Therefore, by
modifying or distributing the Library (or any work based on the
Library), you indicate your acceptance of this License to do so, and
all its terms and conditions for copying, distributing or modifying
the Library or works based on it.
10. Each time you redistribute the Library (or any work based on the
Library), the recipient automatically receives a license from the
original licensor to copy, distribute, link with or modify the Library
subject to these terms and conditions. You may not impose any further
restrictions on the recipients' exercise of the rights granted herein.
You are not responsible for enforcing compliance by third parties to
this License.
11. If, as a consequence of a court judgment or allegation of patent
infringement or for any other reason (not limited to patent issues),
conditions are imposed on you (whether by court order, agreement or
otherwise) that contradict the conditions of this License, they do not
excuse you from the conditions of this License. If you cannot
distribute so as to satisfy simultaneously your obligations under this
License and any other pertinent obligations, then as a consequence you
may not distribute the Library at all. For example, if a patent
license would not permit royalty-free redistribution of the Library by
all those who receive copies directly or indirectly through you, then
the only way you could satisfy both it and this License would be to
refrain entirely from distribution of the Library.
If any portion of this section is held invalid or unenforceable under any
particular circumstance, the balance of the section is intended to apply,
and the section as a whole is intended to apply in other circumstances.
It is not the purpose of this section to induce you to infringe any
patents or other property right claims or to contest validity of any
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system which is
implemented by public license practices. Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.
This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.
12. If the distribution and/or use of the Library is restricted in
certain countries either by patents or by copyrighted interfaces, the
original copyright holder who places the Library under this License may add
an explicit geographical distribution limitation excluding those countries,
so that distribution is permitted only in or among countries not thus
excluded. In such case, this License incorporates the limitation as if
written in the body of this License.
13. The Free Software Foundation may publish revised and/or new
versions of the Library General Public License from time to time.
Such new versions will be similar in spirit to the present version,
but may differ in detail to address new problems or concerns.
Each version is given a distinguishing version number. If the Library
specifies a version number of this License which applies to it and
"any later version", you have the option of following the terms and
conditions either of that version or of any later version published by
the Free Software Foundation. If the Library does not specify a
license version number, you may choose any version ever published by
the Free Software Foundation.
14. If you wish to incorporate parts of the Library into other free
programs whose distribution conditions are incompatible with these,
write to the author to ask for permission. For software which is
copyrighted by the Free Software Foundation, write to the Free
Software Foundation; we sometimes make exceptions for this. Our
decision will be guided by the two goals of preserving the free status
of all derivatives of our free software and of promoting the sharing
and reuse of software generally.
NO WARRANTY
15. BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO
WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW.
EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR
OTHER PARTIES PROVIDE THE LIBRARY "AS IS" WITHOUT WARRANTY OF ANY
KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE
LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME
THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
16. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN
WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY
AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU
FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR
CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE
LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
DAMAGES.
END OF TERMS AND CONDITIONS
Appendix: How to Apply These Terms to Your New Libraries
If you develop a new library, and you want it to be of the greatest
possible use to the public, we recommend making it free software that
everyone can redistribute and change. You can do so by permitting
redistribution under these terms (or, alternatively, under the terms of the
ordinary General Public License).
To apply these terms, attach the following notices to the library. It is
safest to attach them to the start of each source file to most effectively
convey the exclusion of warranty; and each file should have at least the
"copyright" line and a pointer to where the full notice is found.
<one line to give the library's name and a brief idea of what it does.>
Copyright (C) <year> <name of author>
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free
Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
MA 02111-1307, USA
Also add information on how to contact you by electronic and paper mail.
You should also get your employer (if you work as a programmer) or your
school, if any, to sign a "copyright disclaimer" for the library, if
necessary. Here is a sample; alter the names:
Yoyodyne, Inc., hereby disclaims all copyright interest in the
library `Frob' (a library for tweaking knobs) written by James Random Hacker.
<signature of Ty Coon>, 1 April 1990
Ty Coon, President of Vice
That's all there is to it!

112
reactos/lib/kjs/ChangeLog Normal file
View file

@ -0,0 +1,112 @@
1999-01-15 Markku Rossi <mtr@amme.ssh.fi>
* configure.in: Added AC_FUNC_ALLOCA.
1999-01-12 Markku Rossi <mtr@amme.ssh.fi>
* configure.in (with_dload_val): Added check for the dlfcn.h
header file.
1998-10-20 Markku Rossi <mtr@purple.ngs.fi>
* Version 0.2.4 released.
1998-10-02 Markku Rossi <mtr@purple.ngs.fi>
* configure.in: New configure option --enable-operand-hooks to
enable the byte-code operand hooks.
1998-09-17 Markku Rossi <mtr@purple.ngs.fi>
* configure.in: Fixed the --with-pthreads to resolve the compiler
and its options which are needed when compiling thread
applications. The thread checks are defined in `am/pthreads.m4'
file.
1998-09-07 Markku Rossi <mtr@purple.ngs.fi>
* Version 0.2.2 released.
1998-08-24 Markku Rossi <mtr@purple.ngs.fi>
* Version 0.2.1 released.
1998-08-17 Markku Rossi <mtr@purple.ngs.fi>
* configure.in: Added check for struct_st.st_blksize.
1998-08-12 Markku Rossi <mtr@purple.ngs.fi>
* configure.in: New option --disable-jumps to unconditionally
disable the `jumps' byte-code instruction dispatch method.
1998-08-10 Markku Rossi <mtr@purple.ngs.fi>
* configure.in: Changed to use libtool for libraries. Now the
libjs can be built to a shared library.
1998-08-04 Markku Rossi <mtr@purple.ngs.fi>
* Added `projects' subdirectory to hold JS related work and
contributions.
1998-07-06 Markku Rossi <mtr@ngs.fi>
* Changed the license to GNU Library General Public License LGPL.
* Version 0.2.0 released.
1998-06-26 Markku Rossi <mtr@ngs.fi>
* configure.in: New option --enable-profiling to enable byte-code
operand profiling.
Renamed --with-all-dispatchers to --enable-all-dispatchers.
1998-06-25 Markku Rossi <mtr@ngs.fi>
* Added jsas directory for the JavaScript assembler.
1998-06-09 Markku Rossi <mtr@ngs.fi>
* Version 0.1.2 released.
1998-06-02 Markku Rossi <mtr@ngs.fi>
* configure.in: New options --without-js and --without-md5 to
undefine the JS and MD5 extensions.
Added check for the lstat() function that is not present on
djgpp/Windows 95.
Added check for struct stat's st_blocks member. That is not
present on djgpp/windows 95.
Thanks to Dave Pearson <davep@hagbard.demon.co.uk> for the
djgpp/Window95 notes.
Added checks for some pthread differences.
1998-05-29 Markku Rossi <mtr@ngs.fi>
* Version 0.1.1 released.
1998-05-25 Markku Rossi <mtr@ngs.fi>
* Version 0.1.0 released.
1998-04-07 Markku Rossi <mtr@ngs.fi>
* Version 0.0.2 frozen.
1998-04-02 Markku Rossi <mtr@ngs.fi>
* configure.in: New option --with-all-dispatchers to enable all
byte-code instruction dispatchers.
1998-03-30 Markku Rossi <mtr@ngs.fi>
* Added micros directory for micro ports.
1998-02-27 Markku Rossi <mtr@ngs.fi>
* Added dasm and docs directories to the project.
1998-02-23 Markku Rossi <mtr@ngs.fi>
* Started to use auto{make,conf} in the project.

183
reactos/lib/kjs/INSTALL Normal file
View file

@ -0,0 +1,183 @@
Basic Installation
==================
These are generic installation instructions.
The `configure' shell script attempts to guess correct values for
various system-dependent variables used during compilation. It uses
those values to create a `Makefile' in each directory of the package.
It may also create one or more `.h' files containing system-dependent
definitions. Finally, it creates a shell script `config.status' that
you can run in the future to recreate the current configuration, a file
`config.cache' that saves the results of its tests to speed up
reconfiguring, and a file `config.log' containing compiler output
(useful mainly for debugging `configure').
If you need to do unusual things to compile the package, please try
to figure out how `configure' could check whether to do them, and mail
diffs or instructions to the address given in the `README' so they can
be considered for the next release. If at some point `config.cache'
contains results you don't want to keep, you may remove or edit it.
The file `configure.in' is used to create `configure' by a program
called `autoconf'. You only need `configure.in' if you want to change
it or regenerate `configure' using a newer version of `autoconf'.
The simplest way to compile this package is:
1. `cd' to the directory containing the package's source code and type
`./configure' to configure the package for your system. If you're
using `csh' on an old version of System V, you might need to type
`sh ./configure' instead to prevent `csh' from trying to execute
`configure' itself.
Running `configure' takes awhile. While running, it prints some
messages telling which features it is checking for.
2. Type `make' to compile the package.
3. Optionally, type `make check' to run any self-tests that come with
the package.
4. Type `make install' to install the programs and any data files and
documentation.
5. You can remove the program binaries and object files from the
source code directory by typing `make clean'. To also remove the
files that `configure' created (so you can compile the package for
a different kind of computer), type `make distclean'. There is
also a `make maintainer-clean' target, but that is intended mainly
for the package's developers. If you use it, you may have to get
all sorts of other programs in order to regenerate files that came
with the distribution.
Compilers and Options
=====================
Some systems require unusual options for compilation or linking that
the `configure' script does not know about. You can give `configure'
initial values for variables by setting them in the environment. Using
a Bourne-compatible shell, you can do that on the command line like
this:
CC=c89 CFLAGS=-O2 LIBS=-lposix ./configure
Or on systems that have the `env' program, you can do it like this:
env CPPFLAGS=-I/usr/local/include LDFLAGS=-s ./configure
Compiling For Multiple Architectures
====================================
You can compile the package for more than one kind of computer at the
same time, by placing the object files for each architecture in their
own directory. To do this, you must use a version of `make' that
supports the `VPATH' variable, such as GNU `make'. `cd' to the
directory where you want the object files and executables to go and run
the `configure' script. `configure' automatically checks for the
source code in the directory that `configure' is in and in `..'.
If you have to use a `make' that does not supports the `VPATH'
variable, you have to compile the package for one architecture at a time
in the source code directory. After you have installed the package for
one architecture, use `make distclean' before reconfiguring for another
architecture.
Installation Names
==================
By default, `make install' will install the package's files in
`/usr/local/bin', `/usr/local/man', etc. You can specify an
installation prefix other than `/usr/local' by giving `configure' the
option `--prefix=PATH'.
You can specify separate installation prefixes for
architecture-specific files and architecture-independent files. If you
give `configure' the option `--exec-prefix=PATH', the package will use
PATH as the prefix for installing programs and libraries.
Documentation and other data files will still use the regular prefix.
In addition, if you use an unusual directory layout you can give
options like `--bindir=PATH' to specify different values for particular
kinds of files. Run `configure --help' for a list of the directories
you can set and what kinds of files go in them.
If the package supports it, you can cause programs to be installed
with an extra prefix or suffix on their names by giving `configure' the
option `--program-prefix=PREFIX' or `--program-suffix=SUFFIX'.
Optional Features
=================
Some packages pay attention to `--enable-FEATURE' options to
`configure', where FEATURE indicates an optional part of the package.
They may also pay attention to `--with-PACKAGE' options, where PACKAGE
is something like `gnu-as' or `x' (for the X Window System). The
`README' should mention any `--enable-' and `--with-' options that the
package recognizes.
For packages that use the X Window System, `configure' can usually
find the X include and library files automatically, but if it doesn't,
you can use the `configure' options `--x-includes=DIR' and
`--x-libraries=DIR' to specify their locations.
Specifying the System Type
==========================
There may be some features `configure' can not figure out
automatically, but needs to determine by the type of host the package
will run on. Usually `configure' can figure that out, but if it prints
a message saying it can not guess the host type, give it the
`--host=TYPE' option. TYPE can either be a short name for the system
type, such as `sun4', or a canonical name with three fields:
CPU-COMPANY-SYSTEM
See the file `config.sub' for the possible values of each field. If
`config.sub' isn't included in this package, then this package doesn't
need to know the host type.
If you are building compiler tools for cross-compiling, you can also
use the `--target=TYPE' option to select the type of system they will
produce code for and the `--build=TYPE' option to select the type of
system on which you are compiling the package.
Sharing Defaults
================
If you want to set default values for `configure' scripts to share,
you can create a site shell script called `config.site' that gives
default values for variables like `CC', `cache_file', and `prefix'.
`configure' looks for `PREFIX/share/config.site' if it exists, then
`PREFIX/etc/config.site' if it exists. Or, you can set the
`CONFIG_SITE' environment variable to the location of the site script.
A warning: not all `configure' scripts look for a site script.
Operation Controls
==================
`configure' recognizes the following options to control how it
operates.
`--cache-file=FILE'
Use and save the results of the tests in FILE instead of
`./config.cache'. Set FILE to `/dev/null' to disable caching, for
debugging `configure'.
`--help'
Print a summary of the options to `configure', and exit.
`--quiet'
`--silent'
`-q'
Do not print messages saying which checks are being made. To
suppress all normal output, redirect it to `/dev/null' (any error
messages will still be shown).
`--srcdir=DIR'
Look for the package's source code in directory DIR. Usually
`configure' can determine that directory automatically.
`--version'
Print the version of Autoconf used to generate the `configure'
script, and exit.
`configure' also accepts some other, not widely useful, options.

6
reactos/lib/kjs/MODIFICATIONS Normal file
View file

@ -0,0 +1,6 @@
This interpreter has been modified for use in the ReactOS kernel as a
debugging aid. The original files are available in the src directory,
and modified files are in the ksrc directory.
The file jsconfig.h which is normally automatically generated has been
hand generated here.

35
reactos/lib/kjs/Makefile.am Normal file
View file

@ -0,0 +1,35 @@
#
# Automakefile for JS interpreter.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
SUBDIRS = src jsc jsas jsdas jswrap docs micros examples projects
include_HEADERS = jsconfig.h
ACLOCAL_AMFLAGS = -I $(srcdir)/am @ACLOCAL_FLAGS_FOR_LIBTOOL@
dist-hook:
mkdir $(distdir)/am
cp -p $(srcdir)/am/pthreads.m4 $(distdir)/am/pthreads.m4
mkdir $(distdir)/am.opt
cp -p $(srcdir)/am.opt/libtool.m4 $(distdir)/am.opt/libtool.m4

384
reactos/lib/kjs/Makefile.in Normal file
View file

@ -0,0 +1,384 @@
# Makefile.in generated automatically by automake 1.3 from Makefile.am
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Automakefile for JS interpreter.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
SHELL = /bin/sh
srcdir = @srcdir@
top_srcdir = @top_srcdir@
VPATH = @srcdir@
prefix = @prefix@
exec_prefix = @exec_prefix@
bindir = @bindir@
sbindir = @sbindir@
libexecdir = @libexecdir@
datadir = @datadir@
sysconfdir = @sysconfdir@
sharedstatedir = @sharedstatedir@
localstatedir = @localstatedir@
libdir = @libdir@
infodir = @infodir@
mandir = @mandir@
includedir = @includedir@
oldincludedir = /usr/include
DISTDIR =
pkgdatadir = $(datadir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
top_builddir = .
ACLOCAL = @ACLOCAL@
AUTOCONF = @AUTOCONF@
AUTOMAKE = @AUTOMAKE@
AUTOHEADER = @AUTOHEADER@
INSTALL = @INSTALL@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
transform = @program_transform_name@
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
host_alias = @host_alias@
host_triplet = @host@
ACLOCAL_FLAGS_FOR_LIBTOOL = @ACLOCAL_FLAGS_FOR_LIBTOOL@
CC = @CC@
CPP = @CPP@
EXTENSIONS = @EXTENSIONS@
EXTENSIONS_LIBS = @EXTENSIONS_LIBS@
INTERPRETER_FEATURES = @INTERPRETER_FEATURES@
LD = @LD@
LIBTOOL = @LIBTOOL@
LN_S = @LN_S@
MAKEINFO = @MAKEINFO@
NM = @NM@
PACKAGE = @PACKAGE@
PGCC_BY_PROVENZANO = @PGCC_BY_PROVENZANO@
RANLIB = @RANLIB@
U = @U@
VERSION = @VERSION@
XLC_R_AIX = @XLC_R_AIX@
SUBDIRS = src jsc jsas jsdas jswrap docs micros examples projects
include_HEADERS = jsconfig.h
ACLOCAL_AMFLAGS = -I $(srcdir)/am @ACLOCAL_FLAGS_FOR_LIBTOOL@
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = jsconfig.h
CONFIG_CLEAN_FILES =
HEADERS = $(include_HEADERS)
DIST_COMMON = README AUTHORS COPYING ChangeLog INSTALL Makefile.am \
Makefile.in NEWS THANKS TODO acconfig.h aclocal.m4 config.guess \
config.sub configure configure.in install-sh jsconfig.h.in ltconfig \
ltmain.sh missing mkinstalldirs stamp-h.in
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
TAR = tar
GZIP = --best
all: all-recursive-am all-am
.SUFFIXES:
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status
$(ACLOCAL_M4): configure.in
cd $(srcdir) && $(ACLOCAL) $(ACLOCAL_AMFLAGS)
config.status: $(srcdir)/configure
$(SHELL) ./config.status --recheck
$(srcdir)/configure: $(srcdir)/configure.in $(ACLOCAL_M4) $(CONFIGURE_DEPENDENCIES)
cd $(srcdir) && $(AUTOCONF)
jsconfig.h: stamp-h
@:
stamp-h: $(srcdir)/jsconfig.h.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES= CONFIG_HEADERS=jsconfig.h \
$(SHELL) ./config.status
@echo timestamp > stamp-h
$(srcdir)/jsconfig.h.in: $(srcdir)/stamp-h.in
$(srcdir)/stamp-h.in: $(top_srcdir)/configure.in $(ACLOCAL_M4) acconfig.h
cd $(top_srcdir) && $(AUTOHEADER)
@echo timestamp > $(srcdir)/stamp-h.in
mostlyclean-hdr:
clean-hdr:
distclean-hdr:
-rm -f jsconfig.h
maintainer-clean-hdr:
install-includeHEADERS: $(include_HEADERS)
@$(NORMAL_INSTALL)
$(mkinstalldirs) $(DESTDIR)$(includedir)
@list='$(include_HEADERS)'; for p in $$list; do \
if test -f "$$p"; then d= ; else d="$(srcdir)/"; fi; \
echo " $(INSTALL_DATA) $$d$$p $(DESTDIR)$(includedir)/$$p"; \
$(INSTALL_DATA) $$d$$p $(DESTDIR)$(includedir)/$$p; \
done
uninstall-includeHEADERS:
@$(NORMAL_UNINSTALL)
list='$(include_HEADERS)'; for p in $$list; do \
rm -f $(DESTDIR)$(includedir)/$$p; \
done
# This directory's subdirectories are mostly independent; you can cd
# into them and run `make' without going through this Makefile.
# To change the values of `make' variables: instead of editing Makefiles,
# (1) if the variable is set in `config.status', edit `config.status'
# (which will cause the Makefiles to be regenerated when you run `make');
# (2) otherwise, pass the desired values on the `make' command line.
@SET_MAKE@
all-recursive install-data-recursive install-exec-recursive \
installdirs-recursive install-recursive uninstall-recursive \
check-recursive installcheck-recursive info-recursive dvi-recursive:
@set fnord $(MAKEFLAGS); amf=$$2; \
list='$(SUBDIRS)'; for subdir in $$list; do \
target=`echo $@ | sed s/-recursive//`; \
echo "Making $$target in $$subdir"; \
(cd $$subdir && $(MAKE) $$target) \
|| case "$$amf" in *=*) exit 1;; *k*) fail=yes;; *) exit 1;; esac; \
done && test -z "$$fail"
mostlyclean-recursive clean-recursive distclean-recursive \
maintainer-clean-recursive:
@set fnord $(MAKEFLAGS); amf=$$2; \
rev=''; list='$(SUBDIRS)'; for subdir in $$list; do \
rev="$$subdir $$rev"; \
done; \
for subdir in $$rev; do \
target=`echo $@ | sed s/-recursive//`; \
echo "Making $$target in $$subdir"; \
(cd $$subdir && $(MAKE) $$target) \
|| case "$$amf" in *=*) exit 1;; *k*) fail=yes;; *) exit 1;; esac; \
done && test -z "$$fail"
tags-recursive:
list='$(SUBDIRS)'; for subdir in $$list; do \
(cd $$subdir && $(MAKE) tags); \
done
tags: TAGS
ID: $(HEADERS) $(SOURCES) $(LISP)
here=`pwd` && cd $(srcdir) \
&& mkid -f$$here/ID $(SOURCES) $(HEADERS) $(LISP)
TAGS: tags-recursive $(HEADERS) $(SOURCES) jsconfig.h.in $(TAGS_DEPENDENCIES) $(LISP)
tags=; \
here=`pwd`; \
list='$(SUBDIRS)'; for subdir in $$list; do \
test -f $$subdir/TAGS && tags="$$tags -i $$here/$$subdir/TAGS"; \
done; \
list='$(SOURCES) $(HEADERS)'; \
unique=`for i in $$list; do echo $$i; done | \
awk ' { files[$$0] = 1; } \
END { for (i in files) print i; }'`; \
test -z "$(ETAGS_ARGS)jsconfig.h.in$$unique$(LISP)$$tags" \
|| (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags jsconfig.h.in $$unique $(LISP) -o $$here/TAGS)
mostlyclean-tags:
clean-tags:
distclean-tags:
-rm -f TAGS ID
maintainer-clean-tags:
distdir = $(PACKAGE)-$(VERSION)
top_distdir = $(distdir)
# This target untars the dist file and tries a VPATH configuration. Then
# it guarantees that the distribution is self-contained by making another
# tarfile.
distcheck: dist
-rm -rf $(distdir)
GZIP=$(GZIP) $(TAR) zxf $(distdir).tar.gz
mkdir $(distdir)/=build
mkdir $(distdir)/=inst
dc_install_base=`cd $(distdir)/=inst && pwd`; \
cd $(distdir)/=build \
&& ../configure --srcdir=.. --prefix=$$dc_install_base \
&& $(MAKE) \
&& $(MAKE) dvi \
&& $(MAKE) check \
&& $(MAKE) install \
&& $(MAKE) installcheck \
&& $(MAKE) dist
-rm -rf $(distdir)
@echo "========================"; \
echo "$(distdir).tar.gz is ready for distribution"; \
echo "========================"
dist: distdir
-chmod -R a+r $(distdir)
GZIP=$(GZIP) $(TAR) chozf $(distdir).tar.gz $(distdir)
-rm -rf $(distdir)
dist-all: distdir
-chmod -R a+r $(distdir)
GZIP=$(GZIP) $(TAR) chozf $(distdir).tar.gz $(distdir)
-rm -rf $(distdir)
distdir: $(DISTFILES)
-rm -rf $(distdir)
mkdir $(distdir)
-chmod 777 $(distdir)
@for file in $(DISTFILES); do \
d=$(srcdir); \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done
for subdir in $(SUBDIRS); do \
test -d $(distdir)/$$subdir \
|| mkdir $(distdir)/$$subdir \
|| exit 1; \
chmod 777 $(distdir)/$$subdir; \
(cd $$subdir && $(MAKE) top_distdir=../$(distdir) distdir=../$(distdir)/$$subdir distdir) \
|| exit 1; \
done
$(MAKE) top_distdir="$(top_distdir)" distdir="$(distdir)" dist-hook
info: info-recursive
dvi: dvi-recursive
check: all-am
$(MAKE) check-recursive
installcheck: installcheck-recursive
all-recursive-am: jsconfig.h
$(MAKE) all-recursive
all-am: Makefile $(HEADERS) jsconfig.h
install-data-am: install-includeHEADERS
uninstall-am: uninstall-includeHEADERS
install-exec: install-exec-recursive
@$(NORMAL_INSTALL)
install-data: install-data-recursive install-data-am
@$(NORMAL_INSTALL)
install: install-recursive install-data-am
@:
uninstall: uninstall-recursive uninstall-am
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs: installdirs-recursive
$(mkinstalldirs) $(DATADIR)$(includedir)
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-rm -f Makefile $(DISTCLEANFILES)
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
maintainer-clean-generic:
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
mostlyclean-am: mostlyclean-hdr mostlyclean-tags mostlyclean-generic
clean-am: clean-hdr clean-tags clean-generic mostlyclean-am
distclean-am: distclean-hdr distclean-tags distclean-generic clean-am
maintainer-clean-am: maintainer-clean-hdr maintainer-clean-tags \
maintainer-clean-generic distclean-am
mostlyclean: mostlyclean-recursive mostlyclean-am
clean: clean-recursive clean-am
distclean: distclean-recursive distclean-am
-rm -f config.status
-rm -f libtool
maintainer-clean: maintainer-clean-recursive maintainer-clean-am
@echo "This command is intended for maintainers to use;"
@echo "it deletes files that may require special tools to rebuild."
-rm -f config.status
.PHONY: mostlyclean-hdr distclean-hdr clean-hdr maintainer-clean-hdr \
uninstall-includeHEADERS install-includeHEADERS install-data-recursive \
uninstall-data-recursive install-exec-recursive \
uninstall-exec-recursive installdirs-recursive uninstalldirs-recursive \
all-recursive check-recursive installcheck-recursive info-recursive \
dvi-recursive mostlyclean-recursive distclean-recursive clean-recursive \
maintainer-clean-recursive tags tags-recursive mostlyclean-tags \
distclean-tags clean-tags maintainer-clean-tags distdir info dvi \
installcheck all-recursive-am all-am install-data-am uninstall-am \
install-exec install-data install uninstall all installdirs \
mostlyclean-generic distclean-generic clean-generic \
maintainer-clean-generic clean mostlyclean distclean maintainer-clean
dist-hook:
mkdir $(distdir)/am
cp -p $(srcdir)/am/pthreads.m4 $(distdir)/am/pthreads.m4
mkdir $(distdir)/am.opt
cp -p $(srcdir)/am.opt/libtool.m4 $(distdir)/am.opt/libtool.m4
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

384
reactos/lib/kjs/Makefile.orig Normal file
View file

@ -0,0 +1,384 @@
# Generated automatically from Makefile.in by configure.
# Makefile.in generated automatically by automake 1.3 from Makefile.am
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Automakefile for JS interpreter.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
SHELL = /bin/sh
srcdir = .
top_srcdir = .
prefix = /usr/local/js-0.2.5
exec_prefix = ${prefix}
bindir = ${exec_prefix}/bin
sbindir = ${exec_prefix}/sbin
libexecdir = ${exec_prefix}/libexec
datadir = ${prefix}/share
sysconfdir = ${prefix}/etc
sharedstatedir = ${prefix}/com
localstatedir = ${prefix}/var
libdir = ${exec_prefix}/lib
infodir = ${prefix}/info
mandir = ${prefix}/man
includedir = ${prefix}/include
oldincludedir = /usr/include
DISTDIR =
pkgdatadir = $(datadir)/js
pkglibdir = $(libdir)/js
pkgincludedir = $(includedir)/js
top_builddir = .
ACLOCAL = aclocal
AUTOCONF = autoconf
AUTOMAKE = automake
AUTOHEADER = autoheader
INSTALL = /usr/bin/install -c
INSTALL_PROGRAM = ${INSTALL}
INSTALL_DATA = ${INSTALL} -m 644
INSTALL_SCRIPT = ${INSTALL_PROGRAM}
transform = s,x,x,
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
host_alias = i686-pc-linux-gnu
host_triplet = i686-pc-linux-gnu
ACLOCAL_FLAGS_FOR_LIBTOOL =
CC = gcc
CPP = gcc -E
EXTENSIONS = dl_open.lo xjs.lo xmd5.lo md5c.lo
EXTENSIONS_LIBS = -ldl
INTERPRETER_FEATURES = r_std.lo
LD = /usr/bin/ld
LIBTOOL = $(SHELL) $(top_builddir)/libtool
LN_S = ln -s
MAKEINFO = makeinfo
NM = /usr/bin/nm -B
PACKAGE = js
PGCC_BY_PROVENZANO =
RANLIB = ranlib
U =
VERSION = 0.2.5
XLC_R_AIX =
SUBDIRS = src jsc jsas jsdas jswrap docs micros examples projects
include_HEADERS = jsconfig.h
ACLOCAL_AMFLAGS = -I $(srcdir)/am
ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = jsconfig.h
CONFIG_CLEAN_FILES =
HEADERS = $(include_HEADERS)
DIST_COMMON = README AUTHORS COPYING ChangeLog INSTALL Makefile.am \
Makefile.in NEWS THANKS TODO acconfig.h aclocal.m4 config.guess \
config.sub configure configure.in install-sh jsconfig.h.in ltconfig \
ltmain.sh missing mkinstalldirs stamp-h.in
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
TAR = tar
GZIP = --best
all: all-recursive-am all-am
.SUFFIXES:
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES=$@ CONFIG_HEADERS= $(SHELL) ./config.status
$(ACLOCAL_M4): configure.in
cd $(srcdir) && $(ACLOCAL) $(ACLOCAL_AMFLAGS)
config.status: $(srcdir)/configure
$(SHELL) ./config.status --recheck
$(srcdir)/configure: $(srcdir)/configure.in $(ACLOCAL_M4) $(CONFIGURE_DEPENDENCIES)
cd $(srcdir) && $(AUTOCONF)
jsconfig.h: stamp-h
@:
stamp-h: $(srcdir)/jsconfig.h.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES= CONFIG_HEADERS=jsconfig.h \
$(SHELL) ./config.status
@echo timestamp > stamp-h
$(srcdir)/jsconfig.h.in: $(srcdir)/stamp-h.in
$(srcdir)/stamp-h.in: $(top_srcdir)/configure.in $(ACLOCAL_M4) acconfig.h
cd $(top_srcdir) && $(AUTOHEADER)
@echo timestamp > $(srcdir)/stamp-h.in
mostlyclean-hdr:
clean-hdr:
distclean-hdr:
-rm -f jsconfig.h
maintainer-clean-hdr:
install-includeHEADERS: $(include_HEADERS)
@$(NORMAL_INSTALL)
$(mkinstalldirs) $(DESTDIR)$(includedir)
@list='$(include_HEADERS)'; for p in $$list; do \
if test -f "$$p"; then d= ; else d="$(srcdir)/"; fi; \
echo " $(INSTALL_DATA) $$d$$p $(DESTDIR)$(includedir)/$$p"; \
$(INSTALL_DATA) $$d$$p $(DESTDIR)$(includedir)/$$p; \
done
uninstall-includeHEADERS:
@$(NORMAL_UNINSTALL)
list='$(include_HEADERS)'; for p in $$list; do \
rm -f $(DESTDIR)$(includedir)/$$p; \
done
# This directory's subdirectories are mostly independent; you can cd
# into them and run `make' without going through this Makefile.
# To change the values of `make' variables: instead of editing Makefiles,
# (1) if the variable is set in `config.status', edit `config.status'
# (which will cause the Makefiles to be regenerated when you run `make');
# (2) otherwise, pass the desired values on the `make' command line.
all-recursive install-data-recursive install-exec-recursive \
installdirs-recursive install-recursive uninstall-recursive \
check-recursive installcheck-recursive info-recursive dvi-recursive:
@set fnord $(MAKEFLAGS); amf=$$2; \
list='$(SUBDIRS)'; for subdir in $$list; do \
target=`echo $@ | sed s/-recursive//`; \
echo "Making $$target in $$subdir"; \
(cd $$subdir && $(MAKE) $$target) \
|| case "$$amf" in *=*) exit 1;; *k*) fail=yes;; *) exit 1;; esac; \
done && test -z "$$fail"
mostlyclean-recursive clean-recursive distclean-recursive \
maintainer-clean-recursive:
@set fnord $(MAKEFLAGS); amf=$$2; \
rev=''; list='$(SUBDIRS)'; for subdir in $$list; do \
rev="$$subdir $$rev"; \
done; \
for subdir in $$rev; do \
target=`echo $@ | sed s/-recursive//`; \
echo "Making $$target in $$subdir"; \
(cd $$subdir && $(MAKE) $$target) \
|| case "$$amf" in *=*) exit 1;; *k*) fail=yes;; *) exit 1;; esac; \
done && test -z "$$fail"
tags-recursive:
list='$(SUBDIRS)'; for subdir in $$list; do \
(cd $$subdir && $(MAKE) tags); \
done
tags: TAGS
ID: $(HEADERS) $(SOURCES) $(LISP)
here=`pwd` && cd $(srcdir) \
&& mkid -f$$here/ID $(SOURCES) $(HEADERS) $(LISP)
TAGS: tags-recursive $(HEADERS) $(SOURCES) jsconfig.h.in $(TAGS_DEPENDENCIES) $(LISP)
tags=; \
here=`pwd`; \
list='$(SUBDIRS)'; for subdir in $$list; do \
test -f $$subdir/TAGS && tags="$$tags -i $$here/$$subdir/TAGS"; \
done; \
list='$(SOURCES) $(HEADERS)'; \
unique=`for i in $$list; do echo $$i; done | \
awk ' { files[$$0] = 1; } \
END { for (i in files) print i; }'`; \
test -z "$(ETAGS_ARGS)jsconfig.h.in$$unique$(LISP)$$tags" \
|| (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags jsconfig.h.in $$unique $(LISP) -o $$here/TAGS)
mostlyclean-tags:
clean-tags:
distclean-tags:
-rm -f TAGS ID
maintainer-clean-tags:
distdir = $(PACKAGE)-$(VERSION)
top_distdir = $(distdir)
# This target untars the dist file and tries a VPATH configuration. Then
# it guarantees that the distribution is self-contained by making another
# tarfile.
distcheck: dist
-rm -rf $(distdir)
GZIP=$(GZIP) $(TAR) zxf $(distdir).tar.gz
mkdir $(distdir)/=build
mkdir $(distdir)/=inst
dc_install_base=`cd $(distdir)/=inst && pwd`; \
cd $(distdir)/=build \
&& ../configure --srcdir=.. --prefix=$$dc_install_base \
&& $(MAKE) \
&& $(MAKE) dvi \
&& $(MAKE) check \
&& $(MAKE) install \
&& $(MAKE) installcheck \
&& $(MAKE) dist
-rm -rf $(distdir)
@echo "========================"; \
echo "$(distdir).tar.gz is ready for distribution"; \
echo "========================"
dist: distdir
-chmod -R a+r $(distdir)
GZIP=$(GZIP) $(TAR) chozf $(distdir).tar.gz $(distdir)
-rm -rf $(distdir)
dist-all: distdir
-chmod -R a+r $(distdir)
GZIP=$(GZIP) $(TAR) chozf $(distdir).tar.gz $(distdir)
-rm -rf $(distdir)
distdir: $(DISTFILES)
-rm -rf $(distdir)
mkdir $(distdir)
-chmod 777 $(distdir)
@for file in $(DISTFILES); do \
d=$(srcdir); \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done
for subdir in $(SUBDIRS); do \
test -d $(distdir)/$$subdir \
|| mkdir $(distdir)/$$subdir \
|| exit 1; \
chmod 777 $(distdir)/$$subdir; \
(cd $$subdir && $(MAKE) top_distdir=../$(distdir) distdir=../$(distdir)/$$subdir distdir) \
|| exit 1; \
done
$(MAKE) top_distdir="$(top_distdir)" distdir="$(distdir)" dist-hook
info: info-recursive
dvi: dvi-recursive
check: all-am
$(MAKE) check-recursive
installcheck: installcheck-recursive
all-recursive-am: jsconfig.h
$(MAKE) all-recursive
all-am: Makefile $(HEADERS) jsconfig.h
install-data-am: install-includeHEADERS
uninstall-am: uninstall-includeHEADERS
install-exec: install-exec-recursive
@$(NORMAL_INSTALL)
install-data: install-data-recursive install-data-am
@$(NORMAL_INSTALL)
install: install-recursive install-data-am
@:
uninstall: uninstall-recursive uninstall-am
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs: installdirs-recursive
$(mkinstalldirs) $(DATADIR)$(includedir)
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-rm -f Makefile $(DISTCLEANFILES)
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
maintainer-clean-generic:
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
mostlyclean-am: mostlyclean-hdr mostlyclean-tags mostlyclean-generic
clean-am: clean-hdr clean-tags clean-generic mostlyclean-am
distclean-am: distclean-hdr distclean-tags distclean-generic clean-am
maintainer-clean-am: maintainer-clean-hdr maintainer-clean-tags \
maintainer-clean-generic distclean-am
mostlyclean: mostlyclean-recursive mostlyclean-am
clean: clean-recursive clean-am
distclean: distclean-recursive distclean-am
-rm -f config.status
-rm -f libtool
maintainer-clean: maintainer-clean-recursive maintainer-clean-am
@echo "This command is intended for maintainers to use;"
@echo "it deletes files that may require special tools to rebuild."
-rm -f config.status
.PHONY: mostlyclean-hdr distclean-hdr clean-hdr maintainer-clean-hdr \
uninstall-includeHEADERS install-includeHEADERS install-data-recursive \
uninstall-data-recursive install-exec-recursive \
uninstall-exec-recursive installdirs-recursive uninstalldirs-recursive \
all-recursive check-recursive installcheck-recursive info-recursive \
dvi-recursive mostlyclean-recursive distclean-recursive clean-recursive \
maintainer-clean-recursive tags tags-recursive mostlyclean-tags \
distclean-tags clean-tags maintainer-clean-tags distdir info dvi \
installcheck all-recursive-am all-am install-data-am uninstall-am \
install-exec install-data install uninstall all installdirs \
mostlyclean-generic distclean-generic clean-generic \
maintainer-clean-generic clean mostlyclean distclean maintainer-clean
dist-hook:
mkdir $(distdir)/am
cp -p $(srcdir)/am/pthreads.m4 $(distdir)/am/pthreads.m4
mkdir $(distdir)/am.opt
cp -p $(srcdir)/am.opt/libtool.m4 $(distdir)/am.opt/libtool.m4
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

131
reactos/lib/kjs/NEWS Normal file
View file

@ -0,0 +1,131 @@
What's new in the NGS JavaScript Interpreter
============================================
Noteworthy changes in js-0.2.5:
- Implemented nested function declarations, e.g. function
declarations as statements.
- Ported to 64 bit Alpha chip.
Noteworthy changes in js-0.2.4:
- Security options for the virtual machine to disable insecure
methods from the File and System built-in objects.
- New global method `print()' that prints its arguments to the
system's standard output stream.
- User-definable event hooks.
- New built-in object `Directory' to access directories.
- ECMAScript compatibility fixes in: built-in objects, byte-code
operands, compiler
- Optimizations in the memory usage.
- Simple constant folding optimization for additive expressions.
- JavaScript assembler `jsas'.
- Many bug fixes.
Noteworthy changes in js-0.2.3:
* Misc
- ECMAScript compatibility fixes in: built-in objects, byte-code
operands, compiler
- fixed the configure option `--with-pthreads' to resolve the system
features
Noteworthy changes in js-0.2.2:
* Misc
- js.h API changes
- better ECMAScript support
* JSC
- do Statement while (Expression);
- switch (Expression) CaseBlock
- try statement (ECMAScript compatible)
- labeled statements
- the continue and break statements now support the labeled
statements
- local variable declarations in for statements
- \xHH and \uHHHH escape sequences in string and regular expression
literals
- strict equals and does-not-equal operators
- the `arguments' property of function instance
- optimizations and code cleanups
Noteworthy changes in js-0.2.1:
* New methods:
** global methods
- callMethod() to call methods from objects with given array of
arguments.
- loadClass() extend the interpreter by calling extension entry
functions from shared libraries.
** File
- chmod() change permissions of a file
** Number
- constructor `new Number()'
- global method `Number()' invocation
* The `js' program
- new option -x, --executable to add execute permissions to the
generated byte-code files
- new warning options: -Wmissing-semicolon, -Wstrict-ecma, -Wpedantic
* js.h API changes
* Misc
- Uses libtool for libraries. Now the libjs can be built to a
shared library.
- New utility program `jswrap' to create C functions that are
implemented in JavaScript.
- Automatic semicolon insertion.
- Support for regular expression literals.
- Support for array initializers.
- updates in the byte-code operands
- new configure option `--disable-jumps' to uncoditionally disable
the `jumps' byte-code instruction dispatch method
- ported to Windows 9x/NT
Noteworthy changes in js-0.2.0:
* The license was changed to GNU Library General Public License LGPL.
* JSC
- Implemented 'foo'-strings. The character constants are now
written as #'a'.
- Implemented the mod operand.
* Implemented the prototype properties for objects.
* Implemented the prototype properties for built-in objects. Now you
can define your own properties for built-in objects.
* Major cleanups in the memory management:
- The interpreter will not exit if memory allocations fail.
- Fixed all known memory leaks.
- Optimized the heap freelist handling. This reduces the memory
consumption noticeably.
* Namespace cleanups.
* Documentation updates.
* Bug fixes and feature updates. Please, see the ChangeLogs for the
details.

69
reactos/lib/kjs/README Normal file
View file

@ -0,0 +1,69 @@
NGS JavaScript Interpreter
==========================
Welcome to the NGS JavaScript interpreter. The NGS JavaScript is a
GPL free interpreter for the JavaScript language. The JavaScript
language is an interpreted C-like language, developed by Netscape et
al.
The NGS JavaScript interpreter is free software; you can redistribute
it and/or modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA
* Design Goals
This implementation is not 100% compatible with the JavaScript
language, found from the Netscape's WWW browsers and servers. To
achieve the following design goals, some shortcuts have been taken in
the implementation, as compared to the Netscape's implementation.
This implementation is designed to be:
- re-entrant
the interpreter can be safely used in multi-threaded environments
- extendible
the interpreter API allows user-defined commands and classes, and it
allows reading and setting language's global variables
- fast
the JavaScript code is compiled to byte-code that is executed by a
virtual machine
- programmable
it should be easy to implement large projects with the language
* WWW Home Page and Additional Information
The WWW home page of the NGS JavaScript interpreter is at URL:
http://www.ngs.fi/js/
The home page contains up-to-date information about the interpreter,
its development, releases, documentation, etc.
Please note that the current version, js-0.2.0 is a work in progress.
It contains bugs and many features are still unimplemented.
Comments, suggestions, bug reports and fixes, feature wishes, etc. are
welcome.
Markku Rossi <mtr@ngs.fi>

7
reactos/lib/kjs/THANKS Normal file
View file

@ -0,0 +1,7 @@
Roger E Critchlow Jr <rec@elf.org>
Dmitry M. Golubovsky <golubovsky@usa.net>
Stephan Kulow <coolo@kde.org>
Torben Weis <weis@informatik.uni-frankfurt.de>
Eric W. Sink <eric@postman.abisource.com>
Paul Rohr <paul@abisource.com>
Indrek Mandre <indrek@warp.edu.ee>

13
reactos/lib/kjs/TODO Normal file
View file

@ -0,0 +1,13 @@
TODO JavaScript
* Debugger
* Package builder that would ease the pain of creating stubs for
extensions. Something similar that perl has for its extensions. As
an initial application, implement GTK package.
... or try SWIG: www.swig.org
* Implement a JSTokenized in C. That would speed up the parsing
noticeably.

76
reactos/lib/kjs/acconfig.h Normal file
View file

@ -0,0 +1,76 @@
/*
* Define the PACKAGE and VERSION only if they are undefined. This means
* that we do not redefine them, when the library is used in another
* GNU like package that defines PACKAGE and VERSION.
*/
/* Package name. */
#ifndef PACKAGE
#undef PACKAGE
#endif /* no PACKAGE */
/* Version number. */
#ifndef VERSION
#undef VERSION
#endif /* no VERSION */
/* Are C prototypes supported. */
#undef PROTOTYPES
/* Canonical host name and its parts. */
#undef CANONICAL_HOST
#undef CANONICAL_HOST_CPU
#undef CANONICAL_HOST_VENDOR
#undef CANONICAL_HOST_OS
/* Do we want to build all instruction dispatchers? */
#undef ALL_DISPATCHERS
/* Do we want to profile byte-code operands. */
#undef PROFILING
/* Do we want the byte-code operand hooks. */
#undef BC_OPERAND_HOOKS
/*
* Unconditionall disable the jumps byte-code instruction dispatch
* method.
*/
#undef DISABLE_JUMPS
/* Does the struct stat has st_blksize member? */
#undef HAVE_STAT_ST_ST_BLKSIZE
/* Does the struct stat has st_blocks member? */
#undef HAVE_STAT_ST_ST_BLOCKS
/*
* Posix threads features.
*/
/* Does the asctime_r() function take three arguments. */
#undef ASCTIME_R_WITH_THREE_ARGS
/* Does the drand48_r() work with DRAND48D data. */
#undef DRAND48_R_WITH_DRAND48D
/* How the attribute structures are passed to the init functions. */
#undef CONDATTR_BY_VALUE
#undef MUTEXATTR_BY_VALUE
#undef THREADATTR_BY_VALUE
/*
* Extensions.
*/
/* JS */
#undef WITH_JS
/* Curses. */
#undef WITH_CURSES
#undef HAVE_CURSES_H
#undef HAVE_NCURSES_H
/* MD5 */
#undef WITH_MD5

664
reactos/lib/kjs/aclocal.m4 vendored Normal file
View file

@ -0,0 +1,664 @@
dnl aclocal.m4 generated automatically by aclocal 1.3
dnl Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
dnl This Makefile.in is free software; the Free Software Foundation
dnl gives unlimited permission to copy and/or distribute it,
dnl with or without modifications, as long as this notice is preserved.
dnl This program is distributed in the hope that it will be useful,
dnl but WITHOUT ANY WARRANTY, to the extent permitted by law; without
dnl even the implied warranty of MERCHANTABILITY or FITNESS FOR A
dnl PARTICULAR PURPOSE.
# Do all the work for Automake. This macro actually does too much --
# some checks are only needed if your package does certain things.
# But this isn't really a big deal.
# serial 1
dnl Usage:
dnl AM_INIT_AUTOMAKE(package,version, [no-define])
AC_DEFUN(AM_INIT_AUTOMAKE,
[AC_REQUIRE([AM_PROG_INSTALL])
PACKAGE=[$1]
AC_SUBST(PACKAGE)
VERSION=[$2]
AC_SUBST(VERSION)
dnl test to see if srcdir already configured
if test "`cd $srcdir && pwd`" != "`pwd`" && test -f $srcdir/config.status; then
AC_MSG_ERROR([source directory already configured; run "make distclean" there first])
fi
ifelse([$3],,
AC_DEFINE_UNQUOTED(PACKAGE, "$PACKAGE")
AC_DEFINE_UNQUOTED(VERSION, "$VERSION"))
AC_REQUIRE([AM_SANITY_CHECK])
AC_REQUIRE([AC_ARG_PROGRAM])
dnl FIXME This is truly gross.
missing_dir=`cd $ac_aux_dir && pwd`
AM_MISSING_PROG(ACLOCAL, aclocal, $missing_dir)
AM_MISSING_PROG(AUTOCONF, autoconf, $missing_dir)
AM_MISSING_PROG(AUTOMAKE, automake, $missing_dir)
AM_MISSING_PROG(AUTOHEADER, autoheader, $missing_dir)
AM_MISSING_PROG(MAKEINFO, makeinfo, $missing_dir)
AC_REQUIRE([AC_PROG_MAKE_SET])])
# serial 1
AC_DEFUN(AM_PROG_INSTALL,
[AC_REQUIRE([AC_PROG_INSTALL])
test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL_PROGRAM}'
AC_SUBST(INSTALL_SCRIPT)dnl
])
#
# Check to make sure that the build environment is sane.
#
AC_DEFUN(AM_SANITY_CHECK,
[AC_MSG_CHECKING([whether build environment is sane])
# Just in case
sleep 1
echo timestamp > conftestfile
# Do `set' in a subshell so we don't clobber the current shell's
# arguments. Must try -L first in case configure is actually a
# symlink; some systems play weird games with the mod time of symlinks
# (eg FreeBSD returns the mod time of the symlink's containing
# directory).
if (
set X `ls -Lt $srcdir/configure conftestfile 2> /dev/null`
if test "[$]*" = "X"; then
# -L didn't work.
set X `ls -t $srcdir/configure conftestfile`
fi
if test "[$]*" != "X $srcdir/configure conftestfile" \
&& test "[$]*" != "X conftestfile $srcdir/configure"; then
# If neither matched, then we have a broken ls. This can happen
# if, for instance, CONFIG_SHELL is bash and it inherits a
# broken ls alias from the environment. This has actually
# happened. Such a system could not be considered "sane".
AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken
alias in your environment])
fi
test "[$]2" = conftestfile
)
then
# Ok.
:
else
AC_MSG_ERROR([newly created file is older than distributed files!
Check your system clock])
fi
rm -f conftest*
AC_MSG_RESULT(yes)])
dnl AM_MISSING_PROG(NAME, PROGRAM, DIRECTORY)
dnl The program must properly implement --version.
AC_DEFUN(AM_MISSING_PROG,
[AC_MSG_CHECKING(for working $2)
# Run test in a subshell; some versions of sh will print an error if
# an executable is not found, even if stderr is redirected.
# Redirect stdin to placate older versions of autoconf. Sigh.
if ($2 --version) < /dev/null > /dev/null 2>&1; then
$1=$2
AC_MSG_RESULT(found)
else
$1="$3/missing $2"
AC_MSG_RESULT(missing)
fi
AC_SUBST($1)])
# Like AC_CONFIG_HEADER, but automatically create stamp file.
AC_DEFUN(AM_CONFIG_HEADER,
[AC_PREREQ([2.12])
AC_CONFIG_HEADER([$1])
dnl When config.status generates a header, we must update the stamp-h file.
dnl This file resides in the same directory as the config header
dnl that is generated. We must strip everything past the first ":",
dnl and everything past the last "/".
AC_OUTPUT_COMMANDS(changequote(<<,>>)dnl
ifelse(patsubst(<<$1>>, <<[^ ]>>, <<>>), <<>>,
<<test -z "<<$>>CONFIG_HEADERS" || echo timestamp > patsubst(<<$1>>, <<^\([^:]*/\)?.*>>, <<\1>>)stamp-h<<>>dnl>>,
<<am_indx=1
for am_file in <<$1>>; do
case " <<$>>CONFIG_HEADERS " in
*" <<$>>am_file "*<<)>>
echo timestamp > `echo <<$>>am_file | sed -e 's%:.*%%' -e 's%[^/]*$%%'`stamp-h$am_indx
;;
esac
am_indx=`expr "<<$>>am_indx" + 1`
done<<>>dnl>>)
changequote([,]))])
#
# Resolve how to compile Posix thread programs.
#
# serial 1
AC_DEFUN(AM_POSIX_THREADS,
[
#
# First, check the easily recognizable compilers.
#
AC_CANONICAL_HOST
# pgcc, pthreads gcc by Chris Provenzano
AC_CHECK_PROG(PGCC_BY_PROVENZANO, pgcc, yes, no)
if test "$PGCC_BY_PROVENZANO" = "yes"; then
CC='pgcc'
CFLAGS="$CFLAGS -g -Wall -Wno-unused"
LDFLAGS="$LDFLAGS -g"
fi
if test "X$CC" = "X"; then
# xlc_r, thread safe C compiler for AIX
AC_CHECK_PROG(XLC_R_AIX, xlc_r, yes, no)
if test "$XLC_R_AIX" = "yes"; then
CC='xlc_r'
CFLAGS='-I/usr/local/include -g'
LDFLAGS="$LDFLAGS -L/usr/local/lib -g"
fi
fi
AC_ARG_WITH(cc,
[ --with-cc(=CC) use system's native compiler or compiler CC],
if test "X$withval" != "Xno"; then
if test "X$withval" = "Xyes"; then
CC='cc'
else
CC=$withval
fi
CFLAGS='-I/usr/local/include'
LDFLAGS="$LDFLAGS -L/usr/local/lib"
echo "using compiler CC=$CC"
fi
)
if test "X$CC" = "X"; then
# Ok, not an easy compiler, let's try our knowledge-base
AC_PROG_CC
case "$host" in
*solaris2.5* )
if test -n "$GCC"; then
CFLAGS="$CFLAGS -D_REENTRANT"
else
CFLAGS="$CFLAGS -threads"
fi
;;
*osf* )
if test -n "$GCC"; then
AC_WARN(don't know how to make gcc thread-aware, using cc)
CC='cc'
CFLAGS="$CFLAGS -threads"
else
CFLAGS=="$CFLAGS -threads"
fi
;;
*aix4* )
if test -n "$GCC"; then
CFLAGS="$CFLAGS -D_REENTRANT"
LDFLAGS="$LDFLAGS -L/usr/lib/threads -nostartfiles /lib/crt0_r.o -lc_r -lpthreads"
else
AC_WARN(don't know how to make $CC thread-aware)
fi
;;
*-*-linux-gnu )
CFLAGS="$CFLAGS -D_REENTRANT"
LDFLAGS="-lpthread"
;;
* )
AC_WARN(don't know how to make compiler thread-aware)
;;
esac
fi
# Check pthread functions.
AC_CHECK_FUNCS(pthread_attr_setscope \
pthread_attr_setstacksize \
pthread_mutexattr_create \
pthread_condattr_create \
pthread_condattr_init \
pthread_attr_create)
# Check if pthread_mutex_init() takes attributes by value.
AC_MSG_CHECKING([if pthread_mutex_init() takes attributes by value])
AC_TRY_COMPILE([
#include <stdio.h>
#include <pthread.h>
], [
pthread_mutex_t m;
pthread_mutex_init (&m, NULL);
], [
AC_MSG_RESULT(no)
], [
AC_MSG_RESULT(yes)
AC_DEFINE(MUTEXATTR_BY_VALUE)
])
# Check if pthread_cond_init() takes attributes by value.
AC_MSG_CHECKING([if pthread_cond_init() takes attributes by value])
AC_TRY_COMPILE([
#include <stdio.h>
#include <pthread.h>
], [
pthread_cond_t c;
pthread_cond_init (&c, NULL);
], [
AC_MSG_RESULT(no)
], [
AC_MSG_RESULT(yes)
AC_DEFINE(CONDATTR_BY_VALUE)
])
# Check if pthread_create() takes attributes by value.
AC_MSG_CHECKING([if pthread_create() takes attributes by value])
AC_TRY_COMPILE([
#include <stdio.h>
#include <pthread.h>
], [
pthread_t th;
pthread_attr_t th_attr;
pthread_create (&th, &th_attr, NULL, NULL);
], [
AC_MSG_RESULT(no)
], [
AC_MSG_RESULT(yes)
AC_DEFINE(THREADATTR_BY_VALUE)
])
# Check if asctime_r() takes three arguments.
AC_MSG_CHECKING([if asctime_r() takes three arguments])
AC_TRY_COMPILE([
#include <stdio.h>
#include <time.h>
], [
struct tm tm;
char buf[256];
asctime_r (&tm, buf, sizeof (buf));
], [
AC_DEFINE(ASCTIME_R_WITH_THREE_ARGS)
AC_MSG_RESULT(yes)
], [
AC_MSG_RESULT(no)
])
# Check if drand48_r() is available and it works with DRAND48D data.
AC_MSG_CHECKING([if drand48_r() works with DRAND48D])
AC_TRY_COMPILE([
#include <stdlib.h>
], [
DRAND48D data;
double r;
srand48_r (42, &data);
drand48_r (&data, &r);
], [
AC_DEFINE(DRAND48_R_WITH_DRAND48D)
AC_MSG_RESULT(yes)
], [
AC_MSG_RESULT(no)
AC_MSG_WARN(assuming that the drand48() function is thread-safe)
])
# End of AM_POSIX_THREADS macro.
])
# serial 24 AM_PROG_LIBTOOL
AC_DEFUN(AM_PROG_LIBTOOL,
[AC_REQUIRE([AM_ENABLE_SHARED])dnl
AC_REQUIRE([AM_ENABLE_STATIC])dnl
AC_REQUIRE([AC_CANONICAL_HOST])dnl
AC_REQUIRE([AC_PROG_RANLIB])dnl
AC_REQUIRE([AC_PROG_CC])dnl
AC_REQUIRE([AM_PROG_LD])dnl
AC_REQUIRE([AM_PROG_NM])dnl
AC_REQUIRE([AC_PROG_LN_S])dnl
dnl
# Always use our own libtool.
LIBTOOL='$(SHELL) $(top_builddir)/libtool'
AC_SUBST(LIBTOOL)dnl
# Check for any special flags to pass to ltconfig.
libtool_flags=
test "$enable_shared" = no && libtool_flags="$libtool_flags --disable-shared"
test "$enable_static" = no && libtool_flags="$libtool_flags --disable-static"
test "$silent" = yes && libtool_flags="$libtool_flags --silent"
test "$ac_cv_prog_gcc" = yes && libtool_flags="$libtool_flags --with-gcc"
test "$ac_cv_prog_gnu_ld" = yes && libtool_flags="$libtool_flags --with-gnu-ld"
# Some flags need to be propagated to the compiler or linker for good
# libtool support.
case "$host" in
*-*-irix6*)
# Find out which ABI we are using.
echo '[#]line __oline__ "configure"' > conftest.$ac_ext
if AC_TRY_EVAL(ac_compile); then
case "`/usr/bin/file conftest.o`" in
*32-bit*)
LD="${LD-ld} -32"
;;
*N32*)
LD="${LD-ld} -n32"
;;
*64-bit*)
LD="${LD-ld} -64"
;;
esac
fi
rm -rf conftest*
;;
*-*-sco3.2v5*)
# On SCO OpenServer 5, we need -belf to get full-featured binaries.
CFLAGS="$CFLAGS -belf"
;;
esac
# Actually configure libtool. ac_aux_dir is where install-sh is found.
CC="$CC" CFLAGS="$CFLAGS" CPPFLAGS="$CPPFLAGS" \
LD="$LD" NM="$NM" RANLIB="$RANLIB" LN_S="$LN_S" \
${CONFIG_SHELL-/bin/sh} $ac_aux_dir/ltconfig \
$libtool_flags --no-verify $ac_aux_dir/ltmain.sh $host \
|| AC_MSG_ERROR([libtool configure failed])
])
# AM_ENABLE_SHARED - implement the --enable-shared flag
# Usage: AM_ENABLE_SHARED[(DEFAULT)]
# Where DEFAULT is either `yes' or `no'. If omitted, it defaults to
# `yes'.
AC_DEFUN(AM_ENABLE_SHARED,
[define([AM_ENABLE_SHARED_DEFAULT], ifelse($1, no, no, yes))dnl
AC_ARG_ENABLE(shared,
changequote(<<, >>)dnl
<< --enable-shared build shared libraries [default=>>AM_ENABLE_SHARED_DEFAULT]
changequote([, ])dnl
[ --enable-shared=PKGS only build shared libraries if the current package
appears as an element in the PKGS list],
[p=${PACKAGE-default}
case "$enableval" in
yes) enable_shared=yes ;;
no) enable_shared=no ;;
*)
enable_shared=no
# Look at the argument we got. We use all the common list separators.
IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:,"
for pkg in $enableval; do
if test "X$pkg" = "X$p"; then
enable_shared=yes
fi
done
IFS="$ac_save_ifs"
;;
esac],
enable_shared=AM_ENABLE_SHARED_DEFAULT)dnl
])
# AM_DISABLE_SHARED - set the default shared flag to --disable-shared
AC_DEFUN(AM_DISABLE_SHARED,
[AM_ENABLE_SHARED(no)])
# AM_DISABLE_STATIC - set the default static flag to --disable-static
AC_DEFUN(AM_DISABLE_STATIC,
[AM_ENABLE_STATIC(no)])
# AM_ENABLE_STATIC - implement the --enable-static flag
# Usage: AM_ENABLE_STATIC[(DEFAULT)]
# Where DEFAULT is either `yes' or `no'. If omitted, it defaults to
# `yes'.
AC_DEFUN(AM_ENABLE_STATIC,
[define([AM_ENABLE_STATIC_DEFAULT], ifelse($1, no, no, yes))dnl
AC_ARG_ENABLE(static,
changequote(<<, >>)dnl
<< --enable-static build static libraries [default=>>AM_ENABLE_STATIC_DEFAULT]
changequote([, ])dnl
[ --enable-static=PKGS only build shared libraries if the current package
appears as an element in the PKGS list],
[p=${PACKAGE-default}
case "$enableval" in
yes) enable_static=yes ;;
no) enable_static=no ;;
*)
enable_static=no
# Look at the argument we got. We use all the common list separators.
IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:,"
for pkg in $enableval; do
if test "X$pkg" = "X$p"; then
enable_static=yes
fi
done
IFS="$ac_save_ifs"
;;
esac],
enable_static=AM_ENABLE_STATIC_DEFAULT)dnl
])
# AM_PROG_LD - find the path to the GNU or non-GNU linker
AC_DEFUN(AM_PROG_LD,
[AC_ARG_WITH(gnu-ld,
[ --with-gnu-ld assume the C compiler uses GNU ld [default=no]],
test "$withval" = no || with_gnu_ld=yes, with_gnu_ld=no)
AC_REQUIRE([AC_PROG_CC])
ac_prog=ld
if test "$ac_cv_prog_gcc" = yes; then
# Check if gcc -print-prog-name=ld gives a path.
AC_MSG_CHECKING([for ld used by GCC])
ac_prog=`($CC -print-prog-name=ld) 2>&5`
case "$ac_prog" in
# Accept absolute paths.
/* | [A-Za-z]:\\*)
test -z "$LD" && LD="$ac_prog"
;;
"")
# If it fails, then pretend we aren't using GCC.
ac_prog=ld
;;
*)
# If it is relative, then search for the first ld in PATH.
with_gnu_ld=unknown
;;
esac
elif test "$with_gnu_ld" = yes; then
AC_MSG_CHECKING([for GNU ld])
else
AC_MSG_CHECKING([for non-GNU ld])
fi
AC_CACHE_VAL(ac_cv_path_LD,
[if test -z "$LD"; then
IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
for ac_dir in $PATH; do
test -z "$ac_dir" && ac_dir=.
if test -f "$ac_dir/$ac_prog"; then
ac_cv_path_LD="$ac_dir/$ac_prog"
# Check to see if the program is GNU ld. I'd rather use --version,
# but apparently some GNU ld's only accept -v.
# Break only if it was the GNU/non-GNU ld that we prefer.
if "$ac_cv_path_LD" -v 2>&1 < /dev/null | egrep '(GNU|with BFD)' > /dev/null; then
test "$with_gnu_ld" != no && break
else
test "$with_gnu_ld" != yes && break
fi
fi
done
IFS="$ac_save_ifs"
else
ac_cv_path_LD="$LD" # Let the user override the test with a path.
fi])
LD="$ac_cv_path_LD"
if test -n "$LD"; then
AC_MSG_RESULT($LD)
else
AC_MSG_RESULT(no)
fi
test -z "$LD" && AC_MSG_ERROR([no acceptable ld found in \$PATH])
AC_SUBST(LD)
AM_PROG_LD_GNU
])
AC_DEFUN(AM_PROG_LD_GNU,
[AC_CACHE_CHECK([if the linker ($LD) is GNU ld], ac_cv_prog_gnu_ld,
[# I'd rather use --version here, but apparently some GNU ld's only accept -v.
if $LD -v 2>&1 </dev/null | egrep '(GNU|with BFD)' 1>&5; then
ac_cv_prog_gnu_ld=yes
else
ac_cv_prog_gnu_ld=no
fi])
])
# AM_PROG_NM - find the path to a BSD-compatible name lister
AC_DEFUN(AM_PROG_NM,
[AC_MSG_CHECKING([for BSD-compatible nm])
AC_CACHE_VAL(ac_cv_path_NM,
[case "$NM" in
/* | [A-Za-z]:\\*)
ac_cv_path_NM="$NM" # Let the user override the test with a path.
;;
*)
IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
for ac_dir in /usr/ucb /usr/ccs/bin $PATH /bin; do
test -z "$ac_dir" && ac_dir=.
if test -f $ac_dir/nm; then
# Check to see if the nm accepts a BSD-compat flag.
# Adding the `sed 1q' prevents false positives on HP-UX, which says:
# nm: unknown option "B" ignored
if ($ac_dir/nm -B /dev/null 2>&1 | sed '1q'; exit 0) | egrep /dev/null >/dev/null; then
ac_cv_path_NM="$ac_dir/nm -B"
elif ($ac_dir/nm -p /dev/null 2>&1 | sed '1q'; exit 0) | egrep /dev/null >/dev/null; then
ac_cv_path_NM="$ac_dir/nm -p"
else
ac_cv_path_NM="$ac_dir/nm"
fi
break
fi
done
IFS="$ac_save_ifs"
test -z "$ac_cv_path_NM" && ac_cv_path_NM=nm
;;
esac])
NM="$ac_cv_path_NM"
AC_MSG_RESULT([$NM])
AC_SUBST(NM)
])
# serial 1
# @defmac AC_PROG_CC_STDC
# @maindex PROG_CC_STDC
# @ovindex CC
# If the C compiler in not in ANSI C mode by default, try to add an option
# to output variable @code{CC} to make it so. This macro tries various
# options that select ANSI C on some system or another. It considers the
# compiler to be in ANSI C mode if it handles function prototypes correctly.
#
# If you use this macro, you should check after calling it whether the C
# compiler has been set to accept ANSI C; if not, the shell variable
# @code{am_cv_prog_cc_stdc} is set to @samp{no}. If you wrote your source
# code in ANSI C, you can make an un-ANSIfied copy of it by using the
# program @code{ansi2knr}, which comes with Ghostscript.
# @end defmac
AC_DEFUN(AM_PROG_CC_STDC,
[AC_REQUIRE([AC_PROG_CC])
AC_BEFORE([$0], [AC_C_INLINE])
AC_BEFORE([$0], [AC_C_CONST])
dnl Force this before AC_PROG_CPP. Some cpp's, eg on HPUX, require
dnl a magic option to avoid problems with ANSI preprocessor commands
dnl like #elif.
dnl FIXME: can't do this because then AC_AIX won't work due to a
dnl circular dependency.
dnl AC_BEFORE([$0], [AC_PROG_CPP])
AC_MSG_CHECKING(for ${CC-cc} option to accept ANSI C)
AC_CACHE_VAL(am_cv_prog_cc_stdc,
[am_cv_prog_cc_stdc=no
ac_save_CC="$CC"
# Don't try gcc -ansi; that turns off useful extensions and
# breaks some systems' header files.
# AIX -qlanglvl=ansi
# Ultrix and OSF/1 -std1
# HP-UX -Aa -D_HPUX_SOURCE
# SVR4 -Xc -D__EXTENSIONS__
for ac_arg in "" -qlanglvl=ansi -std1 "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__"
do
CC="$ac_save_CC $ac_arg"
AC_TRY_COMPILE(
[#include <stdarg.h>
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
/* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */
struct buf { int x; };
FILE * (*rcsopen) (struct buf *, struct stat *, int);
static char *e (p, i)
char **p;
int i;
{
return p[i];
}
static char *f (char * (*g) (char **, int), char **p, ...)
{
char *s;
va_list v;
va_start (v,p);
s = g (p, va_arg (v,int));
va_end (v);
return s;
}
int test (int i, double x);
struct s1 {int (*f) (int a);};
struct s2 {int (*f) (double a);};
int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int);
int argc;
char **argv;
], [
return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1];
],
[am_cv_prog_cc_stdc="$ac_arg"; break])
done
CC="$ac_save_CC"
])
if test -z "$am_cv_prog_cc_stdc"; then
AC_MSG_RESULT([none needed])
else
AC_MSG_RESULT($am_cv_prog_cc_stdc)
fi
case "x$am_cv_prog_cc_stdc" in
x|xno) ;;
*) CC="$CC $am_cv_prog_cc_stdc" ;;
esac
])
# serial 1
AC_DEFUN(AM_C_PROTOTYPES,
[AC_REQUIRE([AM_PROG_CC_STDC])
AC_REQUIRE([AC_PROG_CPP])
AC_MSG_CHECKING([for function prototypes])
if test "$am_cv_prog_cc_stdc" != no; then
AC_MSG_RESULT(yes)
AC_DEFINE(PROTOTYPES)
U= ANSI2KNR=
else
AC_MSG_RESULT(no)
U=_ ANSI2KNR=./ansi2knr
# Ensure some checks needed by ansi2knr itself.
AC_HEADER_STDC
AC_CHECK_HEADERS(string.h)
fi
AC_SUBST(U)dnl
AC_SUBST(ANSI2KNR)dnl
])

259
reactos/lib/kjs/am.opt/libtool.m4 vendored Normal file
View file

@ -0,0 +1,259 @@
## libtool.m4 - Configure libtool for the target system. -*-Shell-script-*-
## Copyright (C) 1996-1998 Free Software Foundation, Inc.
## Gordon Matzigkeit <gord@gnu.ai.mit.edu>, 1996
##
## This program is free software; you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
## General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program; if not, write to the Free Software
## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
##
## As a special exception to the GNU General Public License, if you
## distribute this file as part of a program that contains a
## configuration script generated by Autoconf, you may include it under
## the same distribution terms that you use for the rest of that program.
# serial 24 AM_PROG_LIBTOOL
AC_DEFUN(AM_PROG_LIBTOOL,
[AC_REQUIRE([AM_ENABLE_SHARED])dnl
AC_REQUIRE([AM_ENABLE_STATIC])dnl
AC_REQUIRE([AC_CANONICAL_HOST])dnl
AC_REQUIRE([AC_PROG_RANLIB])dnl
AC_REQUIRE([AC_PROG_CC])dnl
AC_REQUIRE([AM_PROG_LD])dnl
AC_REQUIRE([AM_PROG_NM])dnl
AC_REQUIRE([AC_PROG_LN_S])dnl
dnl
# Always use our own libtool.
LIBTOOL='$(SHELL) $(top_builddir)/libtool'
AC_SUBST(LIBTOOL)dnl
# Check for any special flags to pass to ltconfig.
libtool_flags=
test "$enable_shared" = no && libtool_flags="$libtool_flags --disable-shared"
test "$enable_static" = no && libtool_flags="$libtool_flags --disable-static"
test "$silent" = yes && libtool_flags="$libtool_flags --silent"
test "$ac_cv_prog_gcc" = yes && libtool_flags="$libtool_flags --with-gcc"
test "$ac_cv_prog_gnu_ld" = yes && libtool_flags="$libtool_flags --with-gnu-ld"
# Some flags need to be propagated to the compiler or linker for good
# libtool support.
case "$host" in
*-*-irix6*)
# Find out which ABI we are using.
echo '[#]line __oline__ "configure"' > conftest.$ac_ext
if AC_TRY_EVAL(ac_compile); then
case "`/usr/bin/file conftest.o`" in
*32-bit*)
LD="${LD-ld} -32"
;;
*N32*)
LD="${LD-ld} -n32"
;;
*64-bit*)
LD="${LD-ld} -64"
;;
esac
fi
rm -rf conftest*
;;
*-*-sco3.2v5*)
# On SCO OpenServer 5, we need -belf to get full-featured binaries.
CFLAGS="$CFLAGS -belf"
;;
esac
# Actually configure libtool. ac_aux_dir is where install-sh is found.
CC="$CC" CFLAGS="$CFLAGS" CPPFLAGS="$CPPFLAGS" \
LD="$LD" NM="$NM" RANLIB="$RANLIB" LN_S="$LN_S" \
${CONFIG_SHELL-/bin/sh} $ac_aux_dir/ltconfig \
$libtool_flags --no-verify $ac_aux_dir/ltmain.sh $host \
|| AC_MSG_ERROR([libtool configure failed])
])
# AM_ENABLE_SHARED - implement the --enable-shared flag
# Usage: AM_ENABLE_SHARED[(DEFAULT)]
# Where DEFAULT is either `yes' or `no'. If omitted, it defaults to
# `yes'.
AC_DEFUN(AM_ENABLE_SHARED,
[define([AM_ENABLE_SHARED_DEFAULT], ifelse($1, no, no, yes))dnl
AC_ARG_ENABLE(shared,
changequote(<<, >>)dnl
<< --enable-shared build shared libraries [default=>>AM_ENABLE_SHARED_DEFAULT]
changequote([, ])dnl
[ --enable-shared=PKGS only build shared libraries if the current package
appears as an element in the PKGS list],
[p=${PACKAGE-default}
case "$enableval" in
yes) enable_shared=yes ;;
no) enable_shared=no ;;
*)
enable_shared=no
# Look at the argument we got. We use all the common list separators.
IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:,"
for pkg in $enableval; do
if test "X$pkg" = "X$p"; then
enable_shared=yes
fi
done
IFS="$ac_save_ifs"
;;
esac],
enable_shared=AM_ENABLE_SHARED_DEFAULT)dnl
])
# AM_DISABLE_SHARED - set the default shared flag to --disable-shared
AC_DEFUN(AM_DISABLE_SHARED,
[AM_ENABLE_SHARED(no)])
# AM_DISABLE_STATIC - set the default static flag to --disable-static
AC_DEFUN(AM_DISABLE_STATIC,
[AM_ENABLE_STATIC(no)])
# AM_ENABLE_STATIC - implement the --enable-static flag
# Usage: AM_ENABLE_STATIC[(DEFAULT)]
# Where DEFAULT is either `yes' or `no'. If omitted, it defaults to
# `yes'.
AC_DEFUN(AM_ENABLE_STATIC,
[define([AM_ENABLE_STATIC_DEFAULT], ifelse($1, no, no, yes))dnl
AC_ARG_ENABLE(static,
changequote(<<, >>)dnl
<< --enable-static build static libraries [default=>>AM_ENABLE_STATIC_DEFAULT]
changequote([, ])dnl
[ --enable-static=PKGS only build shared libraries if the current package
appears as an element in the PKGS list],
[p=${PACKAGE-default}
case "$enableval" in
yes) enable_static=yes ;;
no) enable_static=no ;;
*)
enable_static=no
# Look at the argument we got. We use all the common list separators.
IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:,"
for pkg in $enableval; do
if test "X$pkg" = "X$p"; then
enable_static=yes
fi
done
IFS="$ac_save_ifs"
;;
esac],
enable_static=AM_ENABLE_STATIC_DEFAULT)dnl
])
# AM_PROG_LD - find the path to the GNU or non-GNU linker
AC_DEFUN(AM_PROG_LD,
[AC_ARG_WITH(gnu-ld,
[ --with-gnu-ld assume the C compiler uses GNU ld [default=no]],
test "$withval" = no || with_gnu_ld=yes, with_gnu_ld=no)
AC_REQUIRE([AC_PROG_CC])
ac_prog=ld
if test "$ac_cv_prog_gcc" = yes; then
# Check if gcc -print-prog-name=ld gives a path.
AC_MSG_CHECKING([for ld used by GCC])
ac_prog=`($CC -print-prog-name=ld) 2>&5`
case "$ac_prog" in
# Accept absolute paths.
/* | [A-Za-z]:\\*)
test -z "$LD" && LD="$ac_prog"
;;
"")
# If it fails, then pretend we aren't using GCC.
ac_prog=ld
;;
*)
# If it is relative, then search for the first ld in PATH.
with_gnu_ld=unknown
;;
esac
elif test "$with_gnu_ld" = yes; then
AC_MSG_CHECKING([for GNU ld])
else
AC_MSG_CHECKING([for non-GNU ld])
fi
AC_CACHE_VAL(ac_cv_path_LD,
[if test -z "$LD"; then
IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
for ac_dir in $PATH; do
test -z "$ac_dir" && ac_dir=.
if test -f "$ac_dir/$ac_prog"; then
ac_cv_path_LD="$ac_dir/$ac_prog"
# Check to see if the program is GNU ld. I'd rather use --version,
# but apparently some GNU ld's only accept -v.
# Break only if it was the GNU/non-GNU ld that we prefer.
if "$ac_cv_path_LD" -v 2>&1 < /dev/null | egrep '(GNU|with BFD)' > /dev/null; then
test "$with_gnu_ld" != no && break
else
test "$with_gnu_ld" != yes && break
fi
fi
done
IFS="$ac_save_ifs"
else
ac_cv_path_LD="$LD" # Let the user override the test with a path.
fi])
LD="$ac_cv_path_LD"
if test -n "$LD"; then
AC_MSG_RESULT($LD)
else
AC_MSG_RESULT(no)
fi
test -z "$LD" && AC_MSG_ERROR([no acceptable ld found in \$PATH])
AC_SUBST(LD)
AM_PROG_LD_GNU
])
AC_DEFUN(AM_PROG_LD_GNU,
[AC_CACHE_CHECK([if the linker ($LD) is GNU ld], ac_cv_prog_gnu_ld,
[# I'd rather use --version here, but apparently some GNU ld's only accept -v.
if $LD -v 2>&1 </dev/null | egrep '(GNU|with BFD)' 1>&5; then
ac_cv_prog_gnu_ld=yes
else
ac_cv_prog_gnu_ld=no
fi])
])
# AM_PROG_NM - find the path to a BSD-compatible name lister
AC_DEFUN(AM_PROG_NM,
[AC_MSG_CHECKING([for BSD-compatible nm])
AC_CACHE_VAL(ac_cv_path_NM,
[case "$NM" in
/* | [A-Za-z]:\\*)
ac_cv_path_NM="$NM" # Let the user override the test with a path.
;;
*)
IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:"
for ac_dir in /usr/ucb /usr/ccs/bin $PATH /bin; do
test -z "$ac_dir" && ac_dir=.
if test -f $ac_dir/nm; then
# Check to see if the nm accepts a BSD-compat flag.
# Adding the `sed 1q' prevents false positives on HP-UX, which says:
# nm: unknown option "B" ignored
if ($ac_dir/nm -B /dev/null 2>&1 | sed '1q'; exit 0) | egrep /dev/null >/dev/null; then
ac_cv_path_NM="$ac_dir/nm -B"
elif ($ac_dir/nm -p /dev/null 2>&1 | sed '1q'; exit 0) | egrep /dev/null >/dev/null; then
ac_cv_path_NM="$ac_dir/nm -p"
else
ac_cv_path_NM="$ac_dir/nm"
fi
break
fi
done
IFS="$ac_save_ifs"
test -z "$ac_cv_path_NM" && ac_cv_path_NM=nm
;;
esac])
NM="$ac_cv_path_NM"
AC_MSG_RESULT([$NM])
AC_SUBST(NM)
])

179
reactos/lib/kjs/am/pthreads.m4 Normal file
View file

@ -0,0 +1,179 @@
#
# Resolve how to compile Posix thread programs.
#
# serial 1
AC_DEFUN(AM_POSIX_THREADS,
[
#
# First, check the easily recognizable compilers.
#
AC_CANONICAL_HOST
# pgcc, pthreads gcc by Chris Provenzano
AC_CHECK_PROG(PGCC_BY_PROVENZANO, pgcc, yes, no)
if test "$PGCC_BY_PROVENZANO" = "yes"; then
CC='pgcc'
CFLAGS="$CFLAGS -g -Wall -Wno-unused"
LDFLAGS="$LDFLAGS -g"
fi
if test "X$CC" = "X"; then
# xlc_r, thread safe C compiler for AIX
AC_CHECK_PROG(XLC_R_AIX, xlc_r, yes, no)
if test "$XLC_R_AIX" = "yes"; then
CC='xlc_r'
CFLAGS='-I/usr/local/include -g'
LDFLAGS="$LDFLAGS -L/usr/local/lib -g"
fi
fi
AC_ARG_WITH(cc,
[ --with-cc(=CC) use system's native compiler or compiler CC],
if test "X$withval" != "Xno"; then
if test "X$withval" = "Xyes"; then
CC='cc'
else
CC=$withval
fi
CFLAGS='-I/usr/local/include'
LDFLAGS="$LDFLAGS -L/usr/local/lib"
echo "using compiler CC=$CC"
fi
)
if test "X$CC" = "X"; then
# Ok, not an easy compiler, let's try our knowledge-base
AC_PROG_CC
case "$host" in
*solaris2.5* )
if test -n "$GCC"; then
CFLAGS="$CFLAGS -D_REENTRANT"
else
CFLAGS="$CFLAGS -threads"
fi
;;
*osf* )
if test -n "$GCC"; then
AC_WARN(don't know how to make gcc thread-aware, using cc)
CC='cc'
CFLAGS="$CFLAGS -threads"
else
CFLAGS=="$CFLAGS -threads"
fi
;;
*aix4* )
if test -n "$GCC"; then
CFLAGS="$CFLAGS -D_REENTRANT"
LDFLAGS="$LDFLAGS -L/usr/lib/threads -nostartfiles /lib/crt0_r.o -lc_r -lpthreads"
else
AC_WARN(don't know how to make $CC thread-aware)
fi
;;
*-*-linux-gnu )
CFLAGS="$CFLAGS -D_REENTRANT"
LDFLAGS="-lpthread"
;;
* )
AC_WARN(don't know how to make compiler thread-aware)
;;
esac
fi
# Check pthread functions.
AC_CHECK_FUNCS(pthread_attr_setscope \
pthread_attr_setstacksize \
pthread_mutexattr_create \
pthread_condattr_create \
pthread_condattr_init \
pthread_attr_create)
# Check if pthread_mutex_init() takes attributes by value.
AC_MSG_CHECKING([if pthread_mutex_init() takes attributes by value])
AC_TRY_COMPILE([
#include <stdio.h>
#include <pthread.h>
], [
pthread_mutex_t m;
pthread_mutex_init (&m, NULL);
], [
AC_MSG_RESULT(no)
], [
AC_MSG_RESULT(yes)
AC_DEFINE(MUTEXATTR_BY_VALUE)
])
# Check if pthread_cond_init() takes attributes by value.
AC_MSG_CHECKING([if pthread_cond_init() takes attributes by value])
AC_TRY_COMPILE([
#include <stdio.h>
#include <pthread.h>
], [
pthread_cond_t c;
pthread_cond_init (&c, NULL);
], [
AC_MSG_RESULT(no)
], [
AC_MSG_RESULT(yes)
AC_DEFINE(CONDATTR_BY_VALUE)
])
# Check if pthread_create() takes attributes by value.
AC_MSG_CHECKING([if pthread_create() takes attributes by value])
AC_TRY_COMPILE([
#include <stdio.h>
#include <pthread.h>
], [
pthread_t th;
pthread_attr_t th_attr;
pthread_create (&th, &th_attr, NULL, NULL);
], [
AC_MSG_RESULT(no)
], [
AC_MSG_RESULT(yes)
AC_DEFINE(THREADATTR_BY_VALUE)
])
# Check if asctime_r() takes three arguments.
AC_MSG_CHECKING([if asctime_r() takes three arguments])
AC_TRY_COMPILE([
#include <stdio.h>
#include <time.h>
], [
struct tm tm;
char buf[256];
asctime_r (&tm, buf, sizeof (buf));
], [
AC_DEFINE(ASCTIME_R_WITH_THREE_ARGS)
AC_MSG_RESULT(yes)
], [
AC_MSG_RESULT(no)
])
# Check if drand48_r() is available and it works with DRAND48D data.
AC_MSG_CHECKING([if drand48_r() works with DRAND48D])
AC_TRY_COMPILE([
#include <stdlib.h>
], [
DRAND48D data;
double r;
srand48_r (42, &data);
drand48_r (&data, &r);
], [
AC_DEFINE(DRAND48_R_WITH_DRAND48D)
AC_MSG_RESULT(yes)
], [
AC_MSG_RESULT(no)
AC_MSG_WARN(assuming that the drand48() function is thread-safe)
])
# End of AM_POSIX_THREADS macro.
])

48
reactos/lib/kjs/config.cache Normal file
View file

@ -0,0 +1,48 @@
# This file is a shell script that caches the results of configure
# tests run on this system so they can be shared between configure
# scripts and configure runs. It is not useful on other systems.
# If it contains results you don't want to keep, you may remove or edit it.
#
# By default, configure uses ./config.cache as the cache file,
# creating it if it does not exist already. You can give configure
# the --cache-file=FILE option to use a different cache file; that is
# what configure does when it calls configure scripts in
# subdirectories, so they share the cache.
# Giving --cache-file=/dev/null disables caching, for debugging configure.
# config.status only pays attention to the cache file if you give it the
# --recheck option to rerun configure.
#
ac_cv_c_const=${ac_cv_c_const=yes}
ac_cv_func_alloca_works=${ac_cv_func_alloca_works=yes}
ac_cv_func_drand48=${ac_cv_func_drand48=yes}
ac_cv_func_lstat=${ac_cv_func_lstat=yes}
ac_cv_func_sleep=${ac_cv_func_sleep=yes}
ac_cv_func_srand48=${ac_cv_func_srand48=yes}
ac_cv_func_usleep=${ac_cv_func_usleep=yes}
ac_cv_header_alloca_h=${ac_cv_header_alloca_h=yes}
ac_cv_header_dlfcn_h=${ac_cv_header_dlfcn_h=yes}
ac_cv_header_errno_h=${ac_cv_header_errno_h=yes}
ac_cv_header_float_h=${ac_cv_header_float_h=yes}
ac_cv_header_limits_h=${ac_cv_header_limits_h=yes}
ac_cv_header_stdc=${ac_cv_header_stdc=yes}
ac_cv_header_stdlib_h=${ac_cv_header_stdlib_h=yes}
ac_cv_header_string_h=${ac_cv_header_string_h=yes}
ac_cv_header_unistd_h=${ac_cv_header_unistd_h=yes}
ac_cv_lib_dl_dlopen=${ac_cv_lib_dl_dlopen=yes}
ac_cv_path_LD=${ac_cv_path_LD=/usr/bin/ld}
ac_cv_path_NM=${ac_cv_path_NM='/usr/bin/nm -B'}
ac_cv_path_install=${ac_cv_path_install='/usr/bin/install -c'}
ac_cv_prog_ACLOCAL_FLAGS_FOR_LIBTOOL=${ac_cv_prog_ACLOCAL_FLAGS_FOR_LIBTOOL=found}
ac_cv_prog_CC=${ac_cv_prog_CC=gcc}
ac_cv_prog_CPP=${ac_cv_prog_CPP='gcc -E'}
ac_cv_prog_LN_S=${ac_cv_prog_LN_S='ln -s'}
ac_cv_prog_RANLIB=${ac_cv_prog_RANLIB=ranlib}
ac_cv_prog_cc_cross=${ac_cv_prog_cc_cross=no}
ac_cv_prog_cc_g=${ac_cv_prog_cc_g=yes}
ac_cv_prog_cc_works=${ac_cv_prog_cc_works=yes}
ac_cv_prog_gcc=${ac_cv_prog_gcc=yes}
ac_cv_prog_gnu_ld=${ac_cv_prog_gnu_ld=yes}
ac_cv_prog_make_make_set=${ac_cv_prog_make_make_set=yes}
ac_cv_sizeof_int=${ac_cv_sizeof_int=4}
ac_cv_sizeof_long=${ac_cv_sizeof_long=4}
am_cv_prog_cc_stdc=${am_cv_prog_cc_stdc=}

53
reactos/lib/kjs/config.log Normal file
View file

@ -0,0 +1,53 @@
This file contains any messages produced by compilers while
running configure, to aid debugging if configure makes a mistake.
configure:582: checking for a BSD compatible install
configure:635: checking whether build environment is sane
configure:692: checking whether make sets ${MAKE}
configure:738: checking for working aclocal
configure:751: checking for working autoconf
configure:764: checking for working automake
configure:777: checking for working autoheader
configure:790: checking for working makeinfo
configure:813: checking for libtool
configure:851: checking for ranlib
configure:885: checking host system type
configure:1537: checking for gcc
configure:1614: checking whether the C compiler (gcc ) works
configure:1628: gcc -o conftest conftest.c 1>&5
configure:1648: checking whether the C compiler (gcc ) is a cross-compiler
configure:1653: checking whether we are using GNU C
configure:1677: checking whether gcc accepts -g
configure:1765: checking for ld used by GCC
configure:1822: checking if the linker (/usr/bin/ld) is GNU ld
configure:1838: checking for BSD-compatible nm
configure:1875: checking whether ln -s works
configure:1943: checking how to run the C preprocessor
configure:2004: checking for AIX
configure:2032: checking for gcc option to accept ANSI C
configure:2110: checking for working const
configure:2187: checking for function prototypes
configure:2348: checking for working alloca.h
configure:2381: checking for alloca
configure:2576: checking for ANSI C header files
configure:2683: checking for string.h
configure:2683: checking for stdlib.h
configure:2683: checking for unistd.h
configure:2683: checking for errno.h
configure:2683: checking for float.h
configure:2683: checking for limits.h
configure:2721: checking size of int
configure:2760: checking size of long
configure:2802: checking for srand48
configure:2802: checking for drand48
configure:2802: checking for sleep
configure:2802: checking for usleep
configure:2802: checking for lstat
configure:2856: checking if inline works
configure:2872: gcc -c -g -O2 conftest.c 1>&5
configure:2892: checking if struct stat has st_blksize
configure:2907: gcc -c -g -O2 conftest.c 1>&5
configure:2927: checking if struct stat has st_blocks
configure:2942: gcc -c -g -O2 conftest.c 1>&5
configure:3147: checking for dlfcn.h
configure:3184: checking for dlopen in -ldl

275
reactos/lib/kjs/configure.in Normal file
View file

@ -0,0 +1,275 @@
dnl Process this file with autoconf to produce a configure script.
AC_PREREQ(2.12)
AC_INIT(src/jsint.h)
AM_INIT_AUTOMAKE(js, 0.2.5)
AM_CONFIG_HEADER(jsconfig.h)
AC_REVISION($Revision: 1.1 $)
dnl Check if we have `libtool'.
AC_CHECK_PROG(ACLOCAL_FLAGS_FOR_LIBTOOL, libtool, found, -I $(srcdir)/am.opt)
if test "X$ACLOCAL_FLAGS_FOR_LIBTOOL" = "Xfound"; then
ACLOCAL_FLAGS_FOR_LIBTOOL=""
fi
AM_PROG_INSTALL
AC_PROG_RANLIB
AC_CANONICAL_HOST
AC_DEFINE_UNQUOTED(CANONICAL_HOST, "$host")
AC_DEFINE_UNQUOTED(CANONICAL_HOST_CPU, "$host_cpu")
AC_DEFINE_UNQUOTED(CANONICAL_HOST_VENDOR, "$host_vendor")
AC_DEFINE_UNQUOTED(CANONICAL_HOST_OS, "$host_os")
dnl System / C-compiler properties.
please_posix_threads=0
AC_ARG_WITH(pthreads,
[ --with-pthreads use Posix threads for the re-entrant functions],
if test "X$withval" = "Xyes"; then
please_posix_threads=1
echo "fetching re-entrant functions from the Posix threads library"
RE_ENTRANT_SOURCE="r_pthrs.lo"
fi
)
if test "X$please_posix_threads" = "X1"; then
dnl Check if we know anything about the Posix threads.
AM_POSIX_THREADS
fi
dnl ... other re-entrancy back-ends
if test "X$RE_ENTRANT_SOURCE" = "X"; then
echo "fetching re-entrant functions from the C-library"
AC_MSG_WARN(the interpreter is not re-entrant)
RE_ENTRANT_SOURCE="r_std.lo"
fi
INTERPRETER_FEATURES="$INTERPRETER_FEATURES $RE_ENTRANT_SOURCE"
dnl Now we definitely need the cc.
AC_PROG_CC
AM_ENABLE_SHARED(no)
AM_ENABLE_STATIC(yes)
AM_PROG_LIBTOOL
AC_AIX
AM_PROG_CC_STDC
AC_C_CONST
AM_C_PROTOTYPES
AC_FUNC_ALLOCA
AC_STDC_HEADERS
AC_HAVE_HEADERS(string.h stdlib.h unistd.h errno.h float.h limits.h)
AC_CHECK_SIZEOF(int)
AC_CHECK_SIZEOF(long)
AC_CHECK_FUNCS(srand48 drand48 sleep usleep lstat)
dnl Can we use inline?
AC_MSG_CHECKING([if inline works])
AC_TRY_COMPILE([
static inline int foo ()
{
return 0;
}
], [
foo ();
], [
AC_MSG_RESULT(yes)
], [
AC_MSG_RESULT(no)
AC_DEFINE(inline,)
])
dnl Does the struct stat have st_blksize?
AC_MSG_CHECKING([if struct stat has st_blksize])
AC_TRY_COMPILE([
#include <sys/stat.h>
#include <sys/types.h>
], [
struct stat stat_st;
stat_st.st_blksize = 0;
], [
AC_MSG_RESULT(yes)
AC_DEFINE(HAVE_STAT_ST_ST_BLKSIZE, 1)
], [
AC_MSG_RESULT(no)
])
dnl Does the struct stat have st_blocks?
AC_MSG_CHECKING([if struct stat has st_blocks])
AC_TRY_COMPILE([
#include <sys/stat.h>
#include <sys/types.h>
], [
struct stat stat_st;
stat_st.st_blocks = 0;
], [
AC_MSG_RESULT(yes)
AC_DEFINE(HAVE_STAT_ST_ST_BLOCKS, 1)
], [
AC_MSG_RESULT(no)
])
dnl
dnl Interpreter features.
dnl
AC_ARG_ENABLE(all-dispatchers,
[ --enable-all-dispatchers build all byte-code instruction dispatchers],
if test "X$enableval" = "Xyes"; then
echo "building all byte-code instruction dispatchers"
AC_DEFINE(ALL_DISPATCHERS)
INTERPRETER_FEATURES="$INTERPRETER_FEATURES vmswt0.lo"
fi
)
AC_ARG_ENABLE(profiling,
[ --enable-profiling enable byte-code operand profiling],
if test "X$enableval" = "Xyes"; then
echo "enabling byte-code operand profiling"
AC_DEFINE(PROFILING)
fi
)
AC_ARG_ENABLE(operand-hooks,
[ --enable-operand-hooks turn on byte-code operand hooks],
if test "X$enableval" = "Xyes"; then
echo "enabling byte-code operand hooks"
AC_DEFINE(BC_OPERAND_HOOKS)
fi
)
AC_ARG_ENABLE(jumps,
[ --disable-jumps disable the jumps instruction dispatch method],
if test "X$enableval" = "Xno"; then
echo "disabling the jumps byte-code instruction dispatch method"
AC_DEFINE(DISABLE_JUMPS)
fi
)
dnl
dnl Extensions.
dnl
EXTENSIONS=""
EXTENSIONS_LIBS=""
with_curses_val=0
AC_ARG_WITH(curses,
[ --with-curses build curses entension],
if test "X$withval" = "Xyes"; then
echo "building curses extension"
with_curses_val=1
dnl Check which curses package to use.
AC_CHECK_HEADER(ncurses.h, [
AC_DEFINE(HAVE_NCURSES_H)
curses_lib='-lncurses'
], [
AC_CHECK_HEADER(curses.h, [
AC_DEFINE(HAVE_CURSES_H)
curses_lib='-lcurses'
], [
AC_MSG_ERROR([couldn't determine which curses library I should use])
])
])
fi
)
if test "X$with_curses_val" = "X1"; then
AC_DEFINE(WITH_CURSES)
EXTENSIONS="$EXTENSIONS xcurses.lo"
EXTENSIONS_LIBS="$EXTENSIONS_LIBS $curses_lib -ltermcap"
fi
with_dload_val=1
AC_ARG_WITH(dload,
[ --without-dload disable dynamic loading],
if test "X$withval" = "Xno"; then
echo "disabling the dynamic loading"
with_dload_val=0
fi
)
if test "X$with_dload_val" = "X1"; then
# Check what dload method we should use, and from which library.
# The dl{open,close,cym}() interface.
AC_HAVE_HEADERS(dlfcn.h)
AC_CHECK_LIB(dl, dlopen, [
EXTENSIONS="$EXTENSIONS dl_open.lo"
EXTENSIONS_LIBS="$EXTENSIONS_LIBS -ldl"
], [
# Ok, can't do dynamic loading.
with_dload_val=0
])
fi
if test "X$with_dload_val" = "X1"; then
# Everything ok so far. Let's set the final link flags the
# environment might require.
case "$host" in
*linux* )
LDFLAGS="$LDFLAGS -rdynamic"
;;
esac
else
# Sorry, no luck. Dynamic loading do not work on your system.
EXTENSIONS="dl_dummy.lo"
fi
with_js_val=1
AC_ARG_WITH(js,
[ --without-js do not built the JS extension],
if text "X$withval" = "Xno"; then
echo "disabling the JS extension"
with_js_val=0
fi
)
if test "X$with_js_val" = "X1"; then
AC_DEFINE(WITH_JS)
EXTENSIONS="$EXTENSIONS xjs.lo"
fi
with_md5_val=1
AC_ARG_WITH(md5,
[ --without-md5 do not built the MD5 extension],
if text "X$withval" = "Xno"; then
echo "disabling the MD5 extension"
with_md5_val=0
fi
)
if test "X$with_md5_val" = "X1"; then
AC_DEFINE(WITH_MD5)
EXTENSIONS="$EXTENSIONS xmd5.lo md5c.lo"
fi
AC_SUBST(EXTENSIONS)
AC_SUBST(EXTENSIONS_LIBS)
AC_SUBST(INTERPRETER_FEATURES)
AC_OUTPUT([Makefile \
src/Makefile \
src/tests/Makefile \
examples/Makefile \
jsc/Makefile \
jsc/tests/Makefile \
jsas/Makefile \
jsdas/Makefile \
jswrap/Makefile \
docs/Makefile \
projects/Makefile \
micros/Makefile])

343
reactos/lib/kjs/docs/Makefile Normal file
View file

@ -0,0 +1,343 @@
# Generated automatically from Makefile.in by configure.
# Makefile.in generated automatically by automake 1.3 from Makefile.am
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Automakefile for the documents.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
SHELL = /bin/sh
srcdir = .
top_srcdir = ..
prefix = /usr/local/js-0.2.5
exec_prefix = ${prefix}
bindir = ${exec_prefix}/bin
sbindir = ${exec_prefix}/sbin
libexecdir = ${exec_prefix}/libexec
datadir = ${prefix}/share
sysconfdir = ${prefix}/etc
sharedstatedir = ${prefix}/com
localstatedir = ${prefix}/var
libdir = ${exec_prefix}/lib
infodir = ${prefix}/info
mandir = ${prefix}/man
includedir = ${prefix}/include
oldincludedir = /usr/include
DISTDIR =
pkgdatadir = $(datadir)/js
pkglibdir = $(libdir)/js
pkgincludedir = $(includedir)/js
top_builddir = ..
ACLOCAL = aclocal
AUTOCONF = autoconf
AUTOMAKE = automake
AUTOHEADER = autoheader
INSTALL = /usr/bin/install -c
INSTALL_PROGRAM = ${INSTALL}
INSTALL_DATA = ${INSTALL} -m 644
INSTALL_SCRIPT = ${INSTALL_PROGRAM}
transform = s,x,x,
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
host_alias = i686-pc-linux-gnu
host_triplet = i686-pc-linux-gnu
ACLOCAL_FLAGS_FOR_LIBTOOL =
CC = gcc
CPP = gcc -E
EXTENSIONS = dl_open.lo xjs.lo xmd5.lo md5c.lo
EXTENSIONS_LIBS = -ldl
INTERPRETER_FEATURES = r_std.lo
LD = /usr/bin/ld
LIBTOOL = $(SHELL) $(top_builddir)/libtool
LN_S = ln -s
MAKEINFO = makeinfo
NM = /usr/bin/nm -B
PACKAGE = js
PGCC_BY_PROVENZANO =
RANLIB = ranlib
U =
VERSION = 0.2.5
XLC_R_AIX =
info_TEXINFOS = js.texi
EXTRA_DIST = design.texi lgpl.texinfo
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = ../jsconfig.h
CONFIG_CLEAN_FILES =
TEXI2DVI = texi2dvi
TEXINFO_TEX = $(srcdir)/texinfo.tex
INFO_DEPS = js.info
DVIS = js.dvi
TEXINFOS = js.texi
DIST_COMMON = Makefile.am Makefile.in mdate-sh stamp-vti texinfo.tex \
version.texi
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
TAR = tar
GZIP = --best
all: Makefile $(INFO_DEPS)
.SUFFIXES:
.SUFFIXES: .dvi .info .ps .texi .texinfo .txi
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps docs/Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
version.texi: stamp-vti
cp $(srcdir)/stamp-vti $(srcdir)/version.texi
stamp-vti: js.texi $(top_srcdir)/configure.in
@echo "@set UPDATED `cd $(srcdir) \
&& $(SHELL) ./mdate-sh js.texi`" > vti.tmp
@echo "@set EDITION $(VERSION)" >> vti.tmp
@echo "@set VERSION $(VERSION)" >> vti.tmp
@cmp -s vti.tmp $(srcdir)/stamp-vti \
|| (echo "Updating $(srcdir)/stamp-vti"; \
cp vti.tmp $(srcdir)/stamp-vti)
-@rm -f vti.tmp
mostlyclean-vti:
-rm -f vti.tmp
clean-vti:
distclean-vti:
maintainer-clean-vti:
-rm -f stamp-vti version.texi
js.info: js.texi version.texi
js.dvi: js.texi version.texi
DVIPS = dvips
.texi.info:
@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
cd $(srcdir) \
&& $(MAKEINFO) `echo $< | sed 's,.*/,,'`
.texi.dvi:
TEXINPUTS=$(srcdir):$$TEXINPUTS \
MAKEINFO='$(MAKEINFO) -I $(srcdir)' $(TEXI2DVI) $<
.texi:
@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
cd $(srcdir) \
&& $(MAKEINFO) `echo $< | sed 's,.*/,,'`
.texinfo.info:
@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
cd $(srcdir) \
&& $(MAKEINFO) `echo $< | sed 's,.*/,,'`
.texinfo:
@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
cd $(srcdir) \
&& $(MAKEINFO) `echo $< | sed 's,.*/,,'`
.texinfo.dvi:
TEXINPUTS=$(srcdir):$$TEXINPUTS \
MAKEINFO='$(MAKEINFO) -I $(srcdir)' $(TEXI2DVI) $<
.txi.info:
@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
cd $(srcdir) \
&& $(MAKEINFO) `echo $< | sed 's,.*/,,'`
.txi.dvi:
TEXINPUTS=$(srcdir):$$TEXINPUTS \
MAKEINFO='$(MAKEINFO) -I $(srcdir)' $(TEXI2DVI) $<
.txi:
@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
cd $(srcdir) \
&& $(MAKEINFO) `echo $< | sed 's,.*/,,'`
.dvi.ps:
$(DVIPS) $< -o $@
install-info-am: $(INFO_DEPS)
@$(NORMAL_INSTALL)
$(mkinstalldirs) $(DESTDIR)$(infodir)
@for file in $(INFO_DEPS); do \
d=$(srcdir); \
for ifile in `cd $$d && echo $$file $$file-[0-9] $$file-[0-9][0-9]`; do \
if test -f $$d/$$ifile; then \
echo " $(INSTALL_DATA) $$d/$$ifile $(DESTDIR)$(infodir)/$$ifile"; \
$(INSTALL_DATA) $$d/$$ifile $(DESTDIR)$(infodir)/$$ifile; \
else : ; fi; \
done; \
done
@$(POST_INSTALL)
@if $(SHELL) -c 'install-info --version | sed 1q | fgrep -s -v -i debian' >/dev/null 2>&1; then \
for file in $(INFO_DEPS); do \
echo " install-info --info-dir=$(DESTDIR)$(infodir) $(DESTDIR)$(infodir)/$$file";\
install-info --info-dir=$(DESTDIR)$(infodir) $(DESTDIR)$(infodir)/$$file || :;\
done; \
else : ; fi
uninstall-info:
$(PRE_UNINSTALL)
@if $(SHELL) -c 'install-info --version | sed 1q | fgrep -s -v -i debian' >/dev/null 2>&1; then \
ii=yes; \
else ii=; fi; \
for file in $(INFO_DEPS); do \
test -z "$ii" \
|| install-info --info-dir=$(DESTDIR)$(infodir) --remove $$file; \
done
@$(NORMAL_UNINSTALL)
for file in $(INFO_DEPS); do \
(cd $(DESTDIR)$(infodir) && rm -f $$file $$file-[0-9] $$file-[0-9][0-9]); \
done
dist-info: $(INFO_DEPS)
for base in $(INFO_DEPS); do \
d=$(srcdir); \
for file in `cd $$d && eval echo $$base*`; do \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done; \
done
mostlyclean-aminfo:
-rm -f js.aux js.cp js.cps js.dvi js.fn js.fns js.ky js.kys js.ps \
js.log js.pg js.toc js.tp js.tps js.vr js.vrs js.op js.tr \
js.cv js.cn
clean-aminfo:
distclean-aminfo:
maintainer-clean-aminfo:
for i in $(INFO_DEPS); do \
rm -f $$i; \
if test "`echo $$i-[0-9]*`" != "$$i-[0-9]*"; then \
rm -f $$i-[0-9]*; \
fi; \
done
tags: TAGS
TAGS:
distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
subdir = docs
distdir: $(DISTFILES)
@for file in $(DISTFILES); do \
d=$(srcdir); \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done
$(MAKE) top_distdir="$(top_distdir)" distdir="$(distdir)" dist-info
info: $(INFO_DEPS)
dvi: $(DVIS)
check: all
$(MAKE)
installcheck:
install-exec:
@$(NORMAL_INSTALL)
install-data: install-info-am
@$(NORMAL_INSTALL)
install: install-exec install-data all
@:
uninstall: uninstall-info
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs:
$(mkinstalldirs) $(DESTDIR)$(infodir)
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-rm -f Makefile $(DISTCLEANFILES)
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
maintainer-clean-generic:
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
mostlyclean: mostlyclean-vti mostlyclean-aminfo mostlyclean-generic
clean: clean-vti clean-aminfo clean-generic mostlyclean
distclean: distclean-vti distclean-aminfo distclean-generic clean
-rm -f config.status
-rm -f libtool
maintainer-clean: maintainer-clean-vti maintainer-clean-aminfo \
maintainer-clean-generic distclean
@echo "This command is intended for maintainers to use;"
@echo "it deletes files that may require special tools to rebuild."
.PHONY: mostlyclean-vti distclean-vti clean-vti maintainer-clean-vti \
install-info-am uninstall-info mostlyclean-aminfo distclean-aminfo \
clean-aminfo maintainer-clean-aminfo tags distdir info dvi installcheck \
install-exec install-data install uninstall all installdirs \
mostlyclean-generic distclean-generic clean-generic \
maintainer-clean-generic clean mostlyclean distclean maintainer-clean
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

27
reactos/lib/kjs/docs/Makefile.am Normal file
View file

@ -0,0 +1,27 @@
#
# Automakefile for the documents.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
info_TEXINFOS = js.texi
EXTRA_DIST = design.texi lgpl.texinfo

343
reactos/lib/kjs/docs/Makefile.in Normal file
View file

@ -0,0 +1,343 @@
# Makefile.in generated automatically by automake 1.3 from Makefile.am
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Automakefile for the documents.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
SHELL = /bin/sh
srcdir = @srcdir@
top_srcdir = @top_srcdir@
VPATH = @srcdir@
prefix = @prefix@
exec_prefix = @exec_prefix@
bindir = @bindir@
sbindir = @sbindir@
libexecdir = @libexecdir@
datadir = @datadir@
sysconfdir = @sysconfdir@
sharedstatedir = @sharedstatedir@
localstatedir = @localstatedir@
libdir = @libdir@
infodir = @infodir@
mandir = @mandir@
includedir = @includedir@
oldincludedir = /usr/include
DISTDIR =
pkgdatadir = $(datadir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
top_builddir = ..
ACLOCAL = @ACLOCAL@
AUTOCONF = @AUTOCONF@
AUTOMAKE = @AUTOMAKE@
AUTOHEADER = @AUTOHEADER@
INSTALL = @INSTALL@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
transform = @program_transform_name@
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
host_alias = @host_alias@
host_triplet = @host@
ACLOCAL_FLAGS_FOR_LIBTOOL = @ACLOCAL_FLAGS_FOR_LIBTOOL@
CC = @CC@
CPP = @CPP@
EXTENSIONS = @EXTENSIONS@
EXTENSIONS_LIBS = @EXTENSIONS_LIBS@
INTERPRETER_FEATURES = @INTERPRETER_FEATURES@
LD = @LD@
LIBTOOL = @LIBTOOL@
LN_S = @LN_S@
MAKEINFO = @MAKEINFO@
NM = @NM@
PACKAGE = @PACKAGE@
PGCC_BY_PROVENZANO = @PGCC_BY_PROVENZANO@
RANLIB = @RANLIB@
U = @U@
VERSION = @VERSION@
XLC_R_AIX = @XLC_R_AIX@
info_TEXINFOS = js.texi
EXTRA_DIST = design.texi lgpl.texinfo
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = ../jsconfig.h
CONFIG_CLEAN_FILES =
TEXI2DVI = texi2dvi
TEXINFO_TEX = $(srcdir)/texinfo.tex
INFO_DEPS = js.info
DVIS = js.dvi
TEXINFOS = js.texi
DIST_COMMON = Makefile.am Makefile.in mdate-sh stamp-vti texinfo.tex \
version.texi
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
TAR = tar
GZIP = --best
all: Makefile $(INFO_DEPS)
.SUFFIXES:
.SUFFIXES: .dvi .info .ps .texi .texinfo .txi
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps docs/Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
version.texi: stamp-vti
cp $(srcdir)/stamp-vti $(srcdir)/version.texi
stamp-vti: js.texi $(top_srcdir)/configure.in
@echo "@set UPDATED `cd $(srcdir) \
&& $(SHELL) ./mdate-sh js.texi`" > vti.tmp
@echo "@set EDITION $(VERSION)" >> vti.tmp
@echo "@set VERSION $(VERSION)" >> vti.tmp
@cmp -s vti.tmp $(srcdir)/stamp-vti \
|| (echo "Updating $(srcdir)/stamp-vti"; \
cp vti.tmp $(srcdir)/stamp-vti)
-@rm -f vti.tmp
mostlyclean-vti:
-rm -f vti.tmp
clean-vti:
distclean-vti:
maintainer-clean-vti:
-rm -f stamp-vti version.texi
js.info: js.texi version.texi
js.dvi: js.texi version.texi
DVIPS = dvips
.texi.info:
@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
cd $(srcdir) \
&& $(MAKEINFO) `echo $< | sed 's,.*/,,'`
.texi.dvi:
TEXINPUTS=$(srcdir):$$TEXINPUTS \
MAKEINFO='$(MAKEINFO) -I $(srcdir)' $(TEXI2DVI) $<
.texi:
@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
cd $(srcdir) \
&& $(MAKEINFO) `echo $< | sed 's,.*/,,'`
.texinfo.info:
@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
cd $(srcdir) \
&& $(MAKEINFO) `echo $< | sed 's,.*/,,'`
.texinfo:
@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
cd $(srcdir) \
&& $(MAKEINFO) `echo $< | sed 's,.*/,,'`
.texinfo.dvi:
TEXINPUTS=$(srcdir):$$TEXINPUTS \
MAKEINFO='$(MAKEINFO) -I $(srcdir)' $(TEXI2DVI) $<
.txi.info:
@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
cd $(srcdir) \
&& $(MAKEINFO) `echo $< | sed 's,.*/,,'`
.txi.dvi:
TEXINPUTS=$(srcdir):$$TEXINPUTS \
MAKEINFO='$(MAKEINFO) -I $(srcdir)' $(TEXI2DVI) $<
.txi:
@cd $(srcdir) && rm -f $@ $@-[0-9] $@-[0-9][0-9]
cd $(srcdir) \
&& $(MAKEINFO) `echo $< | sed 's,.*/,,'`
.dvi.ps:
$(DVIPS) $< -o $@
install-info-am: $(INFO_DEPS)
@$(NORMAL_INSTALL)
$(mkinstalldirs) $(DESTDIR)$(infodir)
@for file in $(INFO_DEPS); do \
d=$(srcdir); \
for ifile in `cd $$d && echo $$file $$file-[0-9] $$file-[0-9][0-9]`; do \
if test -f $$d/$$ifile; then \
echo " $(INSTALL_DATA) $$d/$$ifile $(DESTDIR)$(infodir)/$$ifile"; \
$(INSTALL_DATA) $$d/$$ifile $(DESTDIR)$(infodir)/$$ifile; \
else : ; fi; \
done; \
done
@$(POST_INSTALL)
@if $(SHELL) -c 'install-info --version | sed 1q | fgrep -s -v -i debian' >/dev/null 2>&1; then \
for file in $(INFO_DEPS); do \
echo " install-info --info-dir=$(DESTDIR)$(infodir) $(DESTDIR)$(infodir)/$$file";\
install-info --info-dir=$(DESTDIR)$(infodir) $(DESTDIR)$(infodir)/$$file || :;\
done; \
else : ; fi
uninstall-info:
$(PRE_UNINSTALL)
@if $(SHELL) -c 'install-info --version | sed 1q | fgrep -s -v -i debian' >/dev/null 2>&1; then \
ii=yes; \
else ii=; fi; \
for file in $(INFO_DEPS); do \
test -z "$ii" \
|| install-info --info-dir=$(DESTDIR)$(infodir) --remove $$file; \
done
@$(NORMAL_UNINSTALL)
for file in $(INFO_DEPS); do \
(cd $(DESTDIR)$(infodir) && rm -f $$file $$file-[0-9] $$file-[0-9][0-9]); \
done
dist-info: $(INFO_DEPS)
for base in $(INFO_DEPS); do \
d=$(srcdir); \
for file in `cd $$d && eval echo $$base*`; do \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done; \
done
mostlyclean-aminfo:
-rm -f js.aux js.cp js.cps js.dvi js.fn js.fns js.ky js.kys js.ps \
js.log js.pg js.toc js.tp js.tps js.vr js.vrs js.op js.tr \
js.cv js.cn
clean-aminfo:
distclean-aminfo:
maintainer-clean-aminfo:
for i in $(INFO_DEPS); do \
rm -f $$i; \
if test "`echo $$i-[0-9]*`" != "$$i-[0-9]*"; then \
rm -f $$i-[0-9]*; \
fi; \
done
tags: TAGS
TAGS:
distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
subdir = docs
distdir: $(DISTFILES)
@for file in $(DISTFILES); do \
d=$(srcdir); \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done
$(MAKE) top_distdir="$(top_distdir)" distdir="$(distdir)" dist-info
info: $(INFO_DEPS)
dvi: $(DVIS)
check: all
$(MAKE)
installcheck:
install-exec:
@$(NORMAL_INSTALL)
install-data: install-info-am
@$(NORMAL_INSTALL)
install: install-exec install-data all
@:
uninstall: uninstall-info
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs:
$(mkinstalldirs) $(DESTDIR)$(infodir)
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-rm -f Makefile $(DISTCLEANFILES)
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
maintainer-clean-generic:
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
mostlyclean: mostlyclean-vti mostlyclean-aminfo mostlyclean-generic
clean: clean-vti clean-aminfo clean-generic mostlyclean
distclean: distclean-vti distclean-aminfo distclean-generic clean
-rm -f config.status
-rm -f libtool
maintainer-clean: maintainer-clean-vti maintainer-clean-aminfo \
maintainer-clean-generic distclean
@echo "This command is intended for maintainers to use;"
@echo "it deletes files that may require special tools to rebuild."
.PHONY: mostlyclean-vti distclean-vti clean-vti maintainer-clean-vti \
install-info-am uninstall-info mostlyclean-aminfo distclean-aminfo \
clean-aminfo maintainer-clean-aminfo tags distdir info dvi installcheck \
install-exec install-data install uninstall all installdirs \
mostlyclean-generic distclean-generic clean-generic \
maintainer-clean-generic clean mostlyclean distclean maintainer-clean
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

112
reactos/lib/kjs/docs/design.texi Normal file
View file

@ -0,0 +1,112 @@
\input texinfo @c -*-texinfo-*-
@c %**start of header
@setfilename jsdesign.info
@settitle jsdesign
@setchapternewpage on
@c %**end of header
@ifinfo
Copyright (C) 1998 New Generation Software (NGS) Oy
Permission is granted to make and distribute verbatim copies of
this manual provided the copyright notice and this permission notice
are preserved on all copies.
@ignore
Permission is granted to process this file through TeX and print the
results, provided the printed document carries copying permission
notice identical to this one except for the removal of this paragraph
@end ignore
Permission is granted to copy and distribute modified versions of this
manual under the conditions for verbatim copying, provided that the entire
resulting derived work is distributed under the terms of a permission
notice identical to this one.
Permission is granted to copy and distribute translations of this manual
into another language, under the above conditions for modified versions,
except that this permission notice may be stated in a translation approved
by the Foundation.
@end ifinfo
@titlepage
@title NGS JavaScript Interpreter
@subtitle Design Goals
@author Markku Rossi
@page
@vskip 0pt plus 1filll
Copyright @copyright{} 1998 New Generation Software (NGS) Oy
@sp 2
Permission is granted to make and distribute verbatim copies of
this manual provided the copyright notice and this permission notice
are preserved on all copies.
Permission is granted to copy and distribute modified versions of this
manual under the conditions for verbatim copying, provided that the entire
resulting derived work is distributed under the terms of a permission
notice identical to this one.
Permission is granted to copy and distribute translations of this manual
into another language, under the above conditions for modified versions,
except that this permission notice may be stated in a translation
approved by the Free Software Foundation.
@end titlepage
@ifinfo
@node Top, Introduction, (dir), (dir)
@comment node-name, next, previous, up
@top The Design Goals of the NGS JavaScript Interpreter
The Design Goals of the NGS JavaScript Interpreter.
@end ifinfo
@strong{This document is very much under construction.}
@menu
* Introduction::
* Re-Entrant::
* Extendible::
* Fast::
* Programmable::
* The *Java* Hype::
@end menu
@node Introduction, Re-Entrant, Top, Top
@chapter Introduction
The NGS JavaScript interpreter is "yet another extension language".
Although the world is full of extensions languages, none of the
currently available languages didn't meet all the requirements we had
for the extension language. So, as a trivial solution, we decided to
implement one that would satisfy our needs.
The following chapters describe the goals that were set for the project.
The chapters are in priority order, starting from the most important
feature.
@node Re-Entrant, Extendible, Introduction, Top
@chapter Re-Entrant
One of the original reasons for the JS project was the lack of
thread-safe interpreters.
@node Extendible, Fast, Re-Entrant, Top
@chapter Extendible
@node Fast, Programmable, Extendible, Top
@chapter Fast
@node Programmable, The *Java* Hype, Fast, Top
@chapter Programmable
@node The *Java* Hype, , Programmable, Top
@chapter The *Java* Hype
@contents
@bye

145
reactos/lib/kjs/docs/js.info Normal file
View file

@ -0,0 +1,145 @@
This is Info file js.info, produced by Makeinfo version 1.68 from the
input file js.texi.
INFO-DIR-SECTION NGS JavaScript Interpreter
START-INFO-DIR-ENTRY
* libjs: (js). The JavaScript interpreter library.
* js: (js)The js Program. JavaScript interpreter.
END-INFO-DIR-ENTRY
This file documents NGS JavaScript interpreter 0.2.5
Copyright (C) 1998 New Generation Software (NGS) Oy
Permission is granted to make and distribute verbatim copies of this
manual provided the copyright notice and this permission notice are
preserved on all copies.
Permission is granted to copy and distribute modified versions of
this manual under the conditions for verbatim copying, provided that
the entire resulting derived work is distributed under the terms of a
permission notice identical to this one.
Permission is granted to copy and distribute translations of this
manual into another language, under the above conditions for modified
versions, except that this permission notice may be stated in a
translation approved by the Foundation.

Indirect:
js.info-1: 1052
js.info-2: 50497
js.info-3: 100456
js.info-4: 147894

Tag Table:
(Indirect)
Node: Top1052
Node: Introduction1530
Node: NGS JavaScript Language1730
Node: Language1973
Node: Lexical Conventions2215
Node: White Space2498
Node: Comments2631
Node: Reserved Words2753
Node: Identifiers2887
Node: Punctuators3018
Node: Literals3143
Node: Automatic Semicolon Insertion3280
Node: Function Definition4268
Node: Statements4416
Node: Block4917
Node: Variable Statement5024
Node: Empty Statement5162
Node: The if Statement5305
Node: The do...while Statement5460
Node: The while Statement5639
Node: The for Statement5805
Node: The for...in Statement5965
Node: The continue Statement6142
Node: The break Statement6317
Node: The return Statement6484
Node: The with Statement6649
Node: The switch Statement6975
Node: Labeled Statements7139
Node: The throw Statement7296
Node: The try Statement7456
Node: Expressions7585
Node: Primary Expressions8045
Node: Left-Hand-Side Expressions8204
Node: Postfix Expressions8385
Node: Unary Operators8548
Node: Multiplicative Operators8701
Node: Additive Operators8871
Node: Bitwise Shift Operators9037
Node: Relational Operators9209
Node: Equality Operators9375
Node: Binary Bitwise Operators9538
Node: Binary Logical Operators9717
Node: Conditional Operator9898
Node: Assignment Operators10067
Node: Comma Operator10226
Node: Global Methods and Properties10344
Node: Native Objects13372
Node: Array13678
Node: Boolean20867
Node: Date21974
Node: File23572
Node: Directory27924
Node: Function28319
Node: Math28424
Node: Number29593
Node: Object31030
Node: RegExp31585
Node: String37819
Node: System42434
Node: VM46388
Node: Extensions49830
Node: Curses49978
Node: JS50072
Node: MD550497
Node: The js Program52029
Node: Invoking The js Program52486
Node: Evaluating and Executing Code62627
Node: Compiling JavaScript Code62830
Node: Warning Messages63490
Node: Optimization68445
Node: Debugging Information68597
Node: Assembler Listings70615
Node: The jsas Program73003
Node: Invoking The jsas Program73319
Node: The jsdas Program74216
Node: Invoking The jsdas Program74642
Node: Viewing Byte-Code Files76034
Node: Manipulating Byte-Code Files79458
Node: The jswrap Program80445
Node: Invoking The jswrap Program80827
Node: Definition File Format82356
Node: The Type Specifiers83870
Node: The Pass-Type Specifiers85357
Node: The Life Scope Specifiers86752
Node: Re-Entrant Functions87454
Node: Calling the Functions from C87636
Node: Sample Project87826
Node: JavaScript API88972
Node: Interpreter Handling89240
Node: Evaluation and Compilation91564
Node: Type Handling95182
Node: Defining Global Methods95764
Node: Classes96069
Node: Modules99295
Node: Virtual Machine99476
Node: Byte-Code File Format99686
Node: File Header99953
Node: Code Section100317
Node: Constants Section100456
Node: Symtab Section101224
Node: Debug Section101371
Node: Byte-Code Operands101490
Node: Stack Frame113444
Node: JavaScript Compiler114261
Node: Public Entry Points115800
Node: GNU Library General Public License120892
Node: Index147894

End Tag Table

1886
reactos/lib/kjs/docs/js.info-1 Normal file
View file

File diff suppressed because it is too large Load diff

1635
reactos/lib/kjs/docs/js.info-2 Normal file
View file

File diff suppressed because it is too large Load diff

1145
reactos/lib/kjs/docs/js.info-3 Normal file
View file

File diff suppressed because it is too large Load diff

383
reactos/lib/kjs/docs/js.info-4 Normal file
View file

@ -0,0 +1,383 @@
This is Info file js.info, produced by Makeinfo version 1.68 from the
input file js.texi.
INFO-DIR-SECTION NGS JavaScript Interpreter
START-INFO-DIR-ENTRY
* libjs: (js). The JavaScript interpreter library.
* js: (js)The js Program. JavaScript interpreter.
END-INFO-DIR-ENTRY
This file documents NGS JavaScript interpreter 0.2.5
Copyright (C) 1998 New Generation Software (NGS) Oy
Permission is granted to make and distribute verbatim copies of this
manual provided the copyright notice and this permission notice are
preserved on all copies.
Permission is granted to copy and distribute modified versions of
this manual under the conditions for verbatim copying, provided that
the entire resulting derived work is distributed under the terms of a
permission notice identical to this one.
Permission is granted to copy and distribute translations of this
manual into another language, under the above conditions for modified
versions, except that this permission notice may be stated in a
translation approved by the Foundation.

File: js.info, Node: Index, Prev: GNU Library General Public License, Up: Top
Index
*****
* Menu:
* $1: RegExp.
* $2: RegExp.
* $3: RegExp.
* $4: RegExp.
* $5: RegExp.
* $6: RegExp.
* $7: RegExp.
* $8: RegExp.
* $9: RegExp.
* $_: RegExp.
* abs on Math: Math.
* acos on Math: Math.
* add: Byte-Code Operands.
* add_1_i: Byte-Code Operands.
* add_2_i: Byte-Code Operands.
* and: Byte-Code Operands.
* apop: Byte-Code Operands.
* append on String: String.
* Array: Array.
* asin on Math: Math.
* atan on Math: Math.
* atan2 on Math: Math.
* autoFlush: File.
* bits: System.
* Boolean: Boolean.
* bufferSize: File.
* byteToString on File: File.
* call_method: Byte-Code Operands.
* callMethod: Global Methods and Properties.
* canonicalHost: System.
* canonicalHostCPU: System.
* canonicalHostOS: System.
* canonicalHostVendor: System.
* ceil on Math: Math.
* charAt on String: String.
* charCodeAt on String: String.
* chdir on System: System.
* chmod on File: File.
* clearError on File: File.
* close on Directory: Directory.
* close on File: File.
* cmp_eq: Byte-Code Operands.
* cmp_ge: Byte-Code Operands.
* cmp_gt: Byte-Code Operands.
* cmp_le: Byte-Code Operands.
* cmp_lt: Byte-Code Operands.
* cmp_ne: Byte-Code Operands.
* cmp_seq: Byte-Code Operands.
* cmp_sne: Byte-Code Operands.
* compile on JS: JS.
* compile on RegExp: RegExp.
* concat on Array: Array.
* concat on String: String.
* const: Byte-Code Operands.
* const_false: Byte-Code Operands.
* const_i: Byte-Code Operands.
* const_i0: Byte-Code Operands.
* const_i1: Byte-Code Operands.
* const_i2: Byte-Code Operands.
* const_i3: Byte-Code Operands.
* const_null: Byte-Code Operands.
* const_true: Byte-Code Operands.
* const_undefined: Byte-Code Operands.
* cos on Math: Math.
* crc32 on String: String.
* Date: Date.
* debug: Global Methods and Properties.
* delete_array: Byte-Code Operands.
* delete_property: Byte-Code Operands.
* Directory: Directory.
* dispatchMethod: VM.
* div: Byte-Code Operands.
* done: Byte-Code Operands.
* dup: Byte-Code Operands.
* E: Math.
* eof on File: File.
* errno: System.
* error: Global Methods and Properties.
* error on File: File.
* error on System: System.
* errorMessage: JS.
* escape: Global Methods and Properties.
* eval: Global Methods and Properties.
* eval on JS: JS.
* evalFile on JS: JS.
* evalJavaScriptFile on JS: JS.
* exec on RegExp: RegExp.
* executeByteCodeFile on JS: JS.
* exists on File: File.
* exit on System: System.
* exp on Math: Math.
* File: File.
* final on MD5: MD5.
* finalBinary on MD5: MD5.
* float: Global Methods and Properties.
* floor on Math: Math.
* flush on File: File.
* format on Date: Date.
* formatGMT on Date: Date.
* fromCharCode on String: String.
* garbageCollect on VM: VM.
* gcCount: VM.
* gcTrigger: VM.
* getcwd on System: System.
* getDate on Date: Date.
* getDay on Date: Date.
* getenv on System: System.
* getHours on Date: Date.
* getLength on File: File.
* getMinutes on Date: Date.
* getMonth on Date: Date.
* getPosition on File: File.
* getSeconds on Date: Date.
* getTime on Date: Date.
* getTimezoneOffset on Date: Date.
* getVar on JS: JS.
* getYear on Date: Date.
* global: RegExp.
* halt: Byte-Code Operands.
* heapAllocated: VM.
* heapFree: VM.
* heapSize: VM.
* iffalse: Byte-Code Operands.
* iffalse_b: Byte-Code Operands.
* iftrue: Byte-Code Operands.
* iftrue_b: Byte-Code Operands.
* ignoreCase: RegExp.
* indexOf on String: String.
* Infinity: Global Methods and Properties.
* init on MD5: MD5.
* input: RegExp.
* int: Global Methods and Properties.
* isFinite: Global Methods and Properties.
* isFloat: Global Methods and Properties.
* isInt: Global Methods and Properties.
* isNaN: Global Methods and Properties.
* jmp: Byte-Code Operands.
* join on Array: Array.
* JS: JS.
* js_apply: Evaluation and Compilation.
* js_class_context: Classes.
* js_class_create: Classes.
* js_class_define_method: Classes.
* js_class_define_property: Classes.
* js_class_destroy: Classes.
* js_compile: Evaluation and Compilation.
* js_compile_data_to_byte_code: Evaluation and Compilation.
* js_compile_to_byte_code: Evaluation and Compilation.
* js_create_global_method: Defining Global Methods.
* js_create_interp: Interpreter Handling.
* js_define_class: Classes.
* js_define_module: Modules.
* js_destroy_interp: Interpreter Handling.
* js_error_message: Interpreter Handling.
* js_eval: Evaluation and Compilation.
* js_eval_data: Evaluation and Compilation.
* js_eval_file: Evaluation and Compilation.
* js_eval_javascript_file: Evaluation and Compilation.
* js_execute_byte_code: Evaluation and Compilation.
* js_execute_byte_code_file: Evaluation and Compilation.
* js_get_options: Interpreter Handling.
* js_get_var: Interpreter Handling.
* js_init_default_options: Interpreter Handling.
* js_instantiate_class: Classes.
* js_isa: Classes.
* js_lookup_class: Classes.
* js_result: Interpreter Handling.
* js_set_options: Interpreter Handling.
* js_set_var: Interpreter Handling.
* js_type_make_array: Type Handling.
* js_type_make_string: Type Handling.
* js_version: Interpreter Handling.
* JSC$compile_file: Public Entry Points.
* JSC$compile_string: Public Entry Points.
* jsr: Byte-Code Operands.
* jsr_w: Byte-Code Operands.
* lastIndex: RegExp.
* lastIndexOf on String: String.
* lastMatch: RegExp.
* lastParen: RegExp.
* leftContext: RegExp.
* length <1>: String.
* length: Array.
* lineBreakSequence: System.
* LN10: Math.
* LN2: Math.
* load: Global Methods and Properties.
* load_arg: Byte-Code Operands.
* load_array: Byte-Code Operands.
* load_global: Byte-Code Operands.
* load_global_w: Byte-Code Operands.
* load_local: Byte-Code Operands.
* load_nth_arg: Byte-Code Operands.
* load_property: Byte-Code Operands.
* loadClass: Global Methods and Properties.
* locals: Byte-Code Operands.
* log on Math: Math.
* LOG10E: Math.
* LOG2E: Math.
* lstat on File: File.
* MakeDate: Date.
* MakeDay: Date.
* MakeTime: Date.
* match on String: String.
* max on Math: Math.
* MAX_VALUE: Number.
* MD5: MD5.
* min on Math: Math.
* min_args: Byte-Code Operands.
* MIN_VALUE: Number.
* mod: Byte-Code Operands.
* mul: Byte-Code Operands.
* multiline: RegExp.
* NaN <1>: Global Methods and Properties.
* NaN: Number.
* neg: Byte-Code Operands.
* NEGATIVE_INFINITY: Number.
* new: Byte-Code Operands.
* nop: Byte-Code Operands.
* not: Byte-Code Operands.
* nth: Byte-Code Operands.
* Number: Number.
* numConstants: VM.
* numGlobals: VM.
* Object: Object.
* open on Directory: Directory.
* open on File: File.
* or: Byte-Code Operands.
* pack on String: String.
* parse on Date: Date.
* parseFloat: Global Methods and Properties.
* parseInt: Global Methods and Properties.
* PI: Math.
* pop: Byte-Code Operands.
* pop on Array: Array.
* pop_n: Byte-Code Operands.
* popen on System: System.
* POSITIVE_INFINITY: Number.
* pow on Math: Math.
* print: Global Methods and Properties.
* print on System: System.
* push on Array: Array.
* random on Math: Math.
* read on Directory: Directory.
* read on File: File.
* readByte on File: File.
* readln on File: File.
* RegExp: RegExp.
* remove on File: File.
* rename on File: File.
* replace on String: String.
* return: Byte-Code Operands.
* reverse on Array: Array.
* rewind on Directory: Directory.
* rightContext: RegExp.
* roll: Byte-Code Operands.
* round on Math: Math.
* search on String: String.
* seed on Math: Math.
* seek on Directory: Directory.
* setDate on Date: Date.
* setHours on Date: Date.
* setMinutes on Date: Date.
* setMonths on Date: Date.
* setPosition on File: File.
* setSeconds on Date: Date.
* setTime on Date: Date.
* setVar on JS: JS.
* setYear on Date: Date.
* shift on Array: Array.
* shift_left: Byte-Code Operands.
* shift_right: Byte-Code Operands.
* shift_rright: Byte-Code Operands.
* sin on Math: Math.
* sleep on System: System.
* slice on Array: Array.
* slice on String: String.
* sort on Array: Array.
* source: RegExp.
* splice on Array: Array.
* split on String: String.
* sqrt on Math: Math.
* SQRT1_2: Math.
* SQRT2: Math.
* stackSize: VM.
* stackTrace on VM: VM.
* stacktraceOnError: VM.
* stat on File: File.
* stderr: System.
* stdin: System.
* stdout: System.
* store_arg: Byte-Code Operands.
* store_array: Byte-Code Operands.
* store_global: Byte-Code Operands.
* store_local: Byte-Code Operands.
* store_property: Byte-Code Operands.
* strerror on System: System.
* String: String.
* stringToByte on File: File.
* sub: Byte-Code Operands.
* substr on String: String.
* substring on String: String.
* swap: Byte-Code Operands.
* system on System: System.
* tan on Math: Math.
* tell on Directory: Directory.
* test on RegExp: RegExp.
* throw: Byte-Code Operands.
* TimeClip: Date.
* toGMTString on Date: Date.
* toLocaleString on Date: Date.
* toLowerCase on String: String.
* toSource on Array: Array.
* toSource on Object: Object.
* toString on Array: Array.
* toString on Boolean: Boolean.
* toString on File: File.
* toString on Number: Number.
* toString on Object: Object.
* toUpperCase on String: String.
* try_pop: Byte-Code Operands.
* try_push: Byte-Code Operands.
* typeof: Byte-Code Operands.
* unescape: Global Methods and Properties.
* ungetByte on File: File.
* unpack on String: String.
* unshift on Array: Array.
* update on MD5: MD5.
* usleep on System: System.
* UTC on Date: Date.
* valueOf on Boolean: Boolean.
* valueOf on Number: Number.
* valueOf on Object: Object.
* verbose: VM.
* verboseStacktrace: VM.
* version: VM.
* versionMajor: VM.
* versionMinor: VM.
* versionPatch: VM.
* warnUndef: VM.
* with_pop: Byte-Code Operands.
* with_push: Byte-Code Operands.
* write on File: File.
* writeByte on File: File.
* writeln on File: File.
* xor: Byte-Code Operands.

4885
reactos/lib/kjs/docs/js.texi Normal file
View file

File diff suppressed because it is too large Load diff

548
reactos/lib/kjs/docs/lgpl.texinfo Normal file
View file

@ -0,0 +1,548 @@
@c This LGPL is meant to be included from other files.
@c To format a standalone LGPL, use liblic.texi.
@ifset lgpl-appendix
@appendix GNU LIBRARY GENERAL PUBLIC LICENSE
@end ifset
@ifclear lgpl-appendix
@unnumbered GNU LIBRARY GENERAL PUBLIC LICENSE
@end ifclear
@center Version 2, June 1991
@display
Copyright @copyright{} 1991 Free Software Foundation, Inc.
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
[This is the first released version of the library GPL. It is
numbered 2 because it goes with version 2 of the ordinary GPL.]
@end display
@unnumberedsec Preamble
The licenses for most software are designed to take away your
freedom to share and change it. By contrast, the GNU General Public
Licenses are intended to guarantee your freedom to share and change
free software---to make sure the software is free for all its users.
This license, the Library General Public License, applies to some
specially designated Free Software Foundation software, and to any
other libraries whose authors decide to use it. You can use it for
your libraries, too.
When we speak of free software, we are referring to freedom, not
price. Our General Public Licenses are designed to make sure that you
have the freedom to distribute copies of free software (and charge for
this service if you wish), that you receive source code or can get it
if you want it, that you can change the software or use pieces of it
in new free programs; and that you know you can do these things.
To protect your rights, we need to make restrictions that forbid
anyone to deny you these rights or to ask you to surrender the rights.
These restrictions translate to certain responsibilities for you if
you distribute copies of the library, or if you modify it.
For example, if you distribute copies of the library, whether gratis
or for a fee, you must give the recipients all the rights that we gave
you. You must make sure that they, too, receive or can get the source
code. If you link a program with the library, you must provide
complete object files to the recipients so that they can relink them
with the library, after making changes to the library and recompiling
it. And you must show them these terms so they know their rights.
Our method of protecting your rights has two steps: (1) copyright
the library, and (2) offer you this license which gives you legal
permission to copy, distribute and/or modify the library.
Also, for each distributor's protection, we want to make certain
that everyone understands that there is no warranty for this free
library. If the library is modified by someone else and passed on, we
want its recipients to know that what they have is not the original
version, so that any problems introduced by others will not reflect on
the original authors' reputations.
Finally, any free program is threatened constantly by software
patents. We wish to avoid the danger that companies distributing free
software will individually obtain patent licenses, thus in effect
transforming the program into proprietary software. To prevent this,
we have made it clear that any patent must be licensed for everyone's
free use or not licensed at all.
Most GNU software, including some libraries, is covered by the ordinary
GNU General Public License, which was designed for utility programs. This
license, the GNU Library General Public License, applies to certain
designated libraries. This license is quite different from the ordinary
one; be sure to read it in full, and don't assume that anything in it is
the same as in the ordinary license.
The reason we have a separate public license for some libraries is that
they blur the distinction we usually make between modifying or adding to a
program and simply using it. Linking a program with a library, without
changing the library, is in some sense simply using the library, and is
analogous to running a utility program or application program. However, in
a textual and legal sense, the linked executable is a combined work, a
derivative of the original library, and the ordinary General Public License
treats it as such.
Because of this blurred distinction, using the ordinary General
Public License for libraries did not effectively promote software
sharing, because most developers did not use the libraries. We
concluded that weaker conditions might promote sharing better.
However, unrestricted linking of non-free programs would deprive the
users of those programs of all benefit from the free status of the
libraries themselves. This Library General Public License is intended to
permit developers of non-free programs to use free libraries, while
preserving your freedom as a user of such programs to change the free
libraries that are incorporated in them. (We have not seen how to achieve
this as regards changes in header files, but we have achieved it as regards
changes in the actual functions of the Library.) The hope is that this
will lead to faster development of free libraries.
The precise terms and conditions for copying, distribution and
modification follow. Pay close attention to the difference between a
``work based on the library'' and a ``work that uses the library''. The
former contains code derived from the library, while the latter only
works together with the library.
Note that it is possible for a library to be covered by the ordinary
General Public License rather than by this special one.
@iftex
@unnumberedsec TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
@end iftex
@ifinfo
@center TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
@end ifinfo
@enumerate 0
@item
This License Agreement applies to any software library which
contains a notice placed by the copyright holder or other authorized
party saying it may be distributed under the terms of this Library
General Public License (also called ``this License''). Each licensee is
addressed as ``you''.
A ``library'' means a collection of software functions and/or data
prepared so as to be conveniently linked with application programs
(which use some of those functions and data) to form executables.
The ``Library'', below, refers to any such software library or work
which has been distributed under these terms. A ``work based on the
Library'' means either the Library or any derivative work under
copyright law: that is to say, a work containing the Library or a
portion of it, either verbatim or with modifications and/or translated
straightforwardly into another language. (Hereinafter, translation is
included without limitation in the term ``modification''.)
``Source code'' for a work means the preferred form of the work for
making modifications to it. For a library, complete source code means
all the source code for all modules it contains, plus any associated
interface definition files, plus the scripts used to control compilation
and installation of the library.
Activities other than copying, distribution and modification are not
covered by this License; they are outside its scope. The act of
running a program using the Library is not restricted, and output from
such a program is covered only if its contents constitute a work based
on the Library (independent of the use of the Library in a tool for
writing it). Whether that is true depends on what the Library does
and what the program that uses the Library does.
@item
You may copy and distribute verbatim copies of the Library's
complete source code as you receive it, in any medium, provided that
you conspicuously and appropriately publish on each copy an
appropriate copyright notice and disclaimer of warranty; keep intact
all the notices that refer to this License and to the absence of any
warranty; and distribute a copy of this License along with the
Library.
You may charge a fee for the physical act of transferring a copy,
and you may at your option offer warranty protection in exchange for a
fee.
@item
You may modify your copy or copies of the Library or any portion
of it, thus forming a work based on the Library, and copy and
distribute such modifications or work under the terms of Section 1
above, provided that you also meet all of these conditions:
@enumerate a
@item
The modified work must itself be a software library.
@item
You must cause the files modified to carry prominent notices
stating that you changed the files and the date of any change.
@item
You must cause the whole of the work to be licensed at no
charge to all third parties under the terms of this License.
@item
If a facility in the modified Library refers to a function or a
table of data to be supplied by an application program that uses
the facility, other than as an argument passed when the facility
is invoked, then you must make a good faith effort to ensure that,
in the event an application does not supply such function or
table, the facility still operates, and performs whatever part of
its purpose remains meaningful.
(For example, a function in a library to compute square roots has
a purpose that is entirely well-defined independent of the
application. Therefore, Subsection 2d requires that any
application-supplied function or table used by this function must
be optional: if the application does not supply it, the square
root function must still compute square roots.)
@end enumerate
These requirements apply to the modified work as a whole. If
identifiable sections of that work are not derived from the Library,
and can be reasonably considered independent and separate works in
themselves, then this License, and its terms, do not apply to those
sections when you distribute them as separate works. But when you
distribute the same sections as part of a whole which is a work based
on the Library, the distribution of the whole must be on the terms of
this License, whose permissions for other licensees extend to the
entire whole, and thus to each and every part regardless of who wrote
it.
Thus, it is not the intent of this section to claim rights or contest
your rights to work written entirely by you; rather, the intent is to
exercise the right to control the distribution of derivative or
collective works based on the Library.
In addition, mere aggregation of another work not based on the Library
with the Library (or with a work based on the Library) on a volume of
a storage or distribution medium does not bring the other work under
the scope of this License.
@item
You may opt to apply the terms of the ordinary GNU General Public
License instead of this License to a given copy of the Library. To do
this, you must alter all the notices that refer to this License, so
that they refer to the ordinary GNU General Public License, version 2,
instead of to this License. (If a newer version than version 2 of the
ordinary GNU General Public License has appeared, then you can specify
that version instead if you wish.) Do not make any other change in
these notices.
Once this change is made in a given copy, it is irreversible for
that copy, so the ordinary GNU General Public License applies to all
subsequent copies and derivative works made from that copy.
This option is useful when you wish to copy part of the code of
the Library into a program that is not a library.
@item
You may copy and distribute the Library (or a portion or
derivative of it, under Section 2) in object code or executable form
under the terms of Sections 1 and 2 above provided that you accompany
it with the complete corresponding machine-readable source code, which
must be distributed under the terms of Sections 1 and 2 above on a
medium customarily used for software interchange.
If distribution of object code is made by offering access to copy
from a designated place, then offering equivalent access to copy the
source code from the same place satisfies the requirement to
distribute the source code, even though third parties are not
compelled to copy the source along with the object code.
@item
A program that contains no derivative of any portion of the
Library, but is designed to work with the Library by being compiled or
linked with it, is called a ``work that uses the Library''. Such a
work, in isolation, is not a derivative work of the Library, and
therefore falls outside the scope of this License.
However, linking a ``work that uses the Library'' with the Library
creates an executable that is a derivative of the Library (because it
contains portions of the Library), rather than a ``work that uses the
library''. The executable is therefore covered by this License.
Section 6 states terms for distribution of such executables.
When a ``work that uses the Library'' uses material from a header file
that is part of the Library, the object code for the work may be a
derivative work of the Library even though the source code is not.
Whether this is true is especially significant if the work can be
linked without the Library, or if the work is itself a library. The
threshold for this to be true is not precisely defined by law.
If such an object file uses only numerical parameters, data
structure layouts and accessors, and small macros and small inline
functions (ten lines or less in length), then the use of the object
file is unrestricted, regardless of whether it is legally a derivative
work. (Executables containing this object code plus portions of the
Library will still fall under Section 6.)
Otherwise, if the work is a derivative of the Library, you may
distribute the object code for the work under the terms of Section 6.
Any executables containing that work also fall under Section 6,
whether or not they are linked directly with the Library itself.
@item
As an exception to the Sections above, you may also compile or
link a ``work that uses the Library'' with the Library to produce a
work containing portions of the Library, and distribute that work
under terms of your choice, provided that the terms permit
modification of the work for the customer's own use and reverse
engineering for debugging such modifications.
You must give prominent notice with each copy of the work that the
Library is used in it and that the Library and its use are covered by
this License. You must supply a copy of this License. If the work
during execution displays copyright notices, you must include the
copyright notice for the Library among them, as well as a reference
directing the user to the copy of this License. Also, you must do one
of these things:
@enumerate a
@item
Accompany the work with the complete corresponding
machine-readable source code for the Library including whatever
changes were used in the work (which must be distributed under
Sections 1 and 2 above); and, if the work is an executable linked
with the Library, with the complete machine-readable ``work that
uses the Library'', as object code and/or source code, so that the
user can modify the Library and then relink to produce a modified
executable containing the modified Library. (It is understood
that the user who changes the contents of definitions files in the
Library will not necessarily be able to recompile the application
to use the modified definitions.)
@item
Accompany the work with a written offer, valid for at
least three years, to give the same user the materials
specified in Subsection 6a, above, for a charge no more
than the cost of performing this distribution.
@item
If distribution of the work is made by offering access to copy
from a designated place, offer equivalent access to copy the above
specified materials from the same place.
@item
Verify that the user has already received a copy of these
materials or that you have already sent this user a copy.
@end enumerate
For an executable, the required form of the ``work that uses the
Library'' must include any data and utility programs needed for
reproducing the executable from it. However, as a special exception,
the source code distributed need not include anything that is normally
distributed (in either source or binary form) with the major
components (compiler, kernel, and so on) of the operating system on
which the executable runs, unless that component itself accompanies
the executable.
It may happen that this requirement contradicts the license
restrictions of other proprietary libraries that do not normally
accompany the operating system. Such a contradiction means you cannot
use both them and the Library together in an executable that you
distribute.
@item
You may place library facilities that are a work based on the
Library side-by-side in a single library together with other library
facilities not covered by this License, and distribute such a combined
library, provided that the separate distribution of the work based on
the Library and of the other library facilities is otherwise
permitted, and provided that you do these two things:
@enumerate a
@item
Accompany the combined library with a copy of the same work
based on the Library, uncombined with any other library
facilities. This must be distributed under the terms of the
Sections above.
@item
Give prominent notice with the combined library of the fact
that part of it is a work based on the Library, and explaining
where to find the accompanying uncombined form of the same work.
@end enumerate
@item
You may not copy, modify, sublicense, link with, or distribute
the Library except as expressly provided under this License. Any
attempt otherwise to copy, modify, sublicense, link with, or
distribute the Library is void, and will automatically terminate your
rights under this License. However, parties who have received copies,
or rights, from you under this License will not have their licenses
terminated so long as such parties remain in full compliance.
@item
You are not required to accept this License, since you have not
signed it. However, nothing else grants you permission to modify or
distribute the Library or its derivative works. These actions are
prohibited by law if you do not accept this License. Therefore, by
modifying or distributing the Library (or any work based on the
Library), you indicate your acceptance of this License to do so, and
all its terms and conditions for copying, distributing or modifying
the Library or works based on it.
@item
Each time you redistribute the Library (or any work based on the
Library), the recipient automatically receives a license from the
original licensor to copy, distribute, link with or modify the Library
subject to these terms and conditions. You may not impose any further
restrictions on the recipients' exercise of the rights granted herein.
You are not responsible for enforcing compliance by third parties to
this License.
@item
If, as a consequence of a court judgment or allegation of patent
infringement or for any other reason (not limited to patent issues),
conditions are imposed on you (whether by court order, agreement or
otherwise) that contradict the conditions of this License, they do not
excuse you from the conditions of this License. If you cannot
distribute so as to satisfy simultaneously your obligations under this
License and any other pertinent obligations, then as a consequence you
may not distribute the Library at all. For example, if a patent
license would not permit royalty-free redistribution of the Library by
all those who receive copies directly or indirectly through you, then
the only way you could satisfy both it and this License would be to
refrain entirely from distribution of the Library.
If any portion of this section is held invalid or unenforceable under any
particular circumstance, the balance of the section is intended to apply,
and the section as a whole is intended to apply in other circumstances.
It is not the purpose of this section to induce you to infringe any
patents or other property right claims or to contest validity of any
such claims; this section has the sole purpose of protecting the
integrity of the free software distribution system which is
implemented by public license practices. Many people have made
generous contributions to the wide range of software distributed
through that system in reliance on consistent application of that
system; it is up to the author/donor to decide if he or she is willing
to distribute software through any other system and a licensee cannot
impose that choice.
This section is intended to make thoroughly clear what is believed to
be a consequence of the rest of this License.
@item
If the distribution and/or use of the Library is restricted in
certain countries either by patents or by copyrighted interfaces, the
original copyright holder who places the Library under this License may add
an explicit geographical distribution limitation excluding those countries,
so that distribution is permitted only in or among countries not thus
excluded. In such case, this License incorporates the limitation as if
written in the body of this License.
@item
The Free Software Foundation may publish revised and/or new
versions of the Library General Public License from time to time.
Such new versions will be similar in spirit to the present version,
but may differ in detail to address new problems or concerns.
Each version is given a distinguishing version number. If the Library
specifies a version number of this License which applies to it and
``any later version'', you have the option of following the terms and
conditions either of that version or of any later version published by
the Free Software Foundation. If the Library does not specify a
license version number, you may choose any version ever published by
the Free Software Foundation.
@item
If you wish to incorporate parts of the Library into other free
programs whose distribution conditions are incompatible with these,
write to the author to ask for permission. For software which is
copyrighted by the Free Software Foundation, write to the Free
Software Foundation; we sometimes make exceptions for this. Our
decision will be guided by the two goals of preserving the free status
of all derivatives of our free software and of promoting the sharing
and reuse of software generally.
@iftex
@heading NO WARRANTY
@end iftex
@ifinfo
@center NO WARRANTY
@end ifinfo
@item
BECAUSE THE LIBRARY IS LICENSED FREE OF CHARGE, THERE IS NO
WARRANTY FOR THE LIBRARY, TO THE EXTENT PERMITTED BY APPLICABLE LAW.
EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR
OTHER PARTIES PROVIDE THE LIBRARY ``AS IS'' WITHOUT WARRANTY OF ANY
KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE
LIBRARY IS WITH YOU. SHOULD THE LIBRARY PROVE DEFECTIVE, YOU ASSUME
THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION.
@item
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN
WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY
AND/OR REDISTRIBUTE THE LIBRARY AS PERMITTED ABOVE, BE LIABLE TO YOU
FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR
CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE
LIBRARY (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING
RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A
FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF
SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH
DAMAGES.
@end enumerate
@iftex
@heading END OF TERMS AND CONDITIONS
@end iftex
@ifinfo
@center END OF TERMS AND CONDITIONS
@end ifinfo
@page
@unnumberedsec How to Apply These Terms to Your New Libraries
If you develop a new library, and you want it to be of the greatest
possible use to the public, we recommend making it free software that
everyone can redistribute and change. You can do so by permitting
redistribution under these terms (or, alternatively, under the terms of the
ordinary General Public License).
To apply these terms, attach the following notices to the library. It is
safest to attach them to the start of each source file to most effectively
convey the exclusion of warranty; and each file should have at least the
``copyright'' line and a pointer to where the full notice is found.
@smallexample
@var{one line to give the library's name and an idea of what it does.}
Copyright (C) @var{year} @var{name of author}
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Library General Public
License as published by the Free Software Foundation; either
version 2 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this library; if not, write to the
Free Software Foundation, Inc., 59 Temple Place - Suite 330, Cambridge,
MA 02139, USA.
@end smallexample
Also add information on how to contact you by electronic and paper mail.
You should also get your employer (if you work as a programmer) or your
school, if any, to sign a ``copyright disclaimer'' for the library, if
necessary. Here is a sample; alter the names:
@example
Yoyodyne, Inc., hereby disclaims all copyright interest in
the library `Frob' (a library for tweaking knobs) written
by James Random Hacker.
@var{signature of Ty Coon}, 1 April 1990
Ty Coon, President of Vice
@end example
That's all there is to it!

92
reactos/lib/kjs/docs/mdate-sh Executable file
View file

@ -0,0 +1,92 @@
#!/bin/sh
# Get modification time of a file or directory and pretty-print it.
# Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
# written by Ulrich Drepper <drepper@gnu.ai.mit.edu>, June 1995
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software Foundation,
# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
# Prevent date giving response in another language.
LANG=C
export LANG
LC_ALL=C
export LC_ALL
LC_TIME=C
export LC_TIME
# Get the extended ls output of the file or directory.
# On HPUX /bin/sh, "set" interprets "-rw-r--r--" as options, so the "x" below.
if ls -L /dev/null 1>/dev/null 2>&1; then
set - x`ls -L -l -d $1`
else
set - x`ls -l -d $1`
fi
# The month is at least the fourth argument
# (3 shifts here, the next inside the loop).
shift
shift
shift
# Find the month. Next argument is day, followed by the year or time.
month=
until test $month
do
shift
case $1 in
Jan) month=January; nummonth=1;;
Feb) month=February; nummonth=2;;
Mar) month=March; nummonth=3;;
Apr) month=April; nummonth=4;;
May) month=May; nummonth=5;;
Jun) month=June; nummonth=6;;
Jul) month=July; nummonth=7;;
Aug) month=August; nummonth=8;;
Sep) month=September; nummonth=9;;
Oct) month=October; nummonth=10;;
Nov) month=November; nummonth=11;;
Dec) month=December; nummonth=12;;
esac
done
day=$2
# Here we have to deal with the problem that the ls output gives either
# the time of day or the year.
case $3 in
*:*) set `date`; eval year=\$$#
case $2 in
Jan) nummonthtod=1;;
Feb) nummonthtod=2;;
Mar) nummonthtod=3;;
Apr) nummonthtod=4;;
May) nummonthtod=5;;
Jun) nummonthtod=6;;
Jul) nummonthtod=7;;
Aug) nummonthtod=8;;
Sep) nummonthtod=9;;
Oct) nummonthtod=10;;
Nov) nummonthtod=11;;
Dec) nummonthtod=12;;
esac
# For the first six month of the year the time notation can also
# be used for files modified in the last year.
if (expr $nummonth \> $nummonthtod) > /dev/null;
then
year=`expr $year - 1`
fi;;
*) year=$3;;
esac
# The result.
echo $day $month $year

3
reactos/lib/kjs/docs/stamp-vti Normal file
View file

@ -0,0 +1,3 @@
@set UPDATED 25 November 1998
@set EDITION 0.2.5
@set VERSION 0.2.5

4935
reactos/lib/kjs/docs/texinfo.tex Normal file
View file

File diff suppressed because it is too large Load diff

3
reactos/lib/kjs/docs/version.texi Normal file
View file

@ -0,0 +1,3 @@
@set UPDATED 25 November 1998
@set EDITION 0.2.5
@set VERSION 0.2.5

320
reactos/lib/kjs/examples/Makefile Normal file
View file

@ -0,0 +1,320 @@
# Generated automatically from Makefile.in by configure.
# Makefile.in generated automatically by automake 1.3 from Makefile.am
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Automakefile for the examples directory.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
SHELL = /bin/sh
srcdir = .
top_srcdir = ..
prefix = /usr/local/js-0.2.5
exec_prefix = ${prefix}
bindir = ${exec_prefix}/bin
sbindir = ${exec_prefix}/sbin
libexecdir = ${exec_prefix}/libexec
datadir = ${prefix}/share
sysconfdir = ${prefix}/etc
sharedstatedir = ${prefix}/com
localstatedir = ${prefix}/var
libdir = ${exec_prefix}/lib
infodir = ${prefix}/info
mandir = ${prefix}/man
includedir = ${prefix}/include
oldincludedir = /usr/include
DISTDIR =
pkgdatadir = $(datadir)/js
pkglibdir = $(libdir)/js
pkgincludedir = $(includedir)/js
top_builddir = ..
ACLOCAL = aclocal
AUTOCONF = autoconf
AUTOMAKE = automake
AUTOHEADER = autoheader
INSTALL = /usr/bin/install -c
INSTALL_PROGRAM = ${INSTALL}
INSTALL_DATA = ${INSTALL} -m 644
INSTALL_SCRIPT = ${INSTALL_PROGRAM}
transform = s,x,x,
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
host_alias = i686-pc-linux-gnu
host_triplet = i686-pc-linux-gnu
ACLOCAL_FLAGS_FOR_LIBTOOL =
CC = gcc
CPP = gcc -E
EXTENSIONS = dl_open.lo xjs.lo xmd5.lo md5c.lo
EXTENSIONS_LIBS = -ldl
INTERPRETER_FEATURES = r_std.lo
LD = /usr/bin/ld
LIBTOOL = $(SHELL) $(top_builddir)/libtool
LN_S = ln -s
MAKEINFO = makeinfo
NM = /usr/bin/nm -B
PACKAGE = js
PGCC_BY_PROVENZANO =
RANLIB = ranlib
U =
VERSION = 0.2.5
XLC_R_AIX =
INCLUDES = -I$(top_srcdir)/src
noinst_PROGRAMS = simple ieval
simple_SOURCES = simple.c
simple_LDADD = ../src/libjs.la -ldl -lm
ieval_SOURCES = ieval.c
ieval_LDADD = ../src/libjs.la -ldl -lm
EXTRA_DIST = hello.js add.js dload.c
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = ../jsconfig.h
CONFIG_CLEAN_FILES =
PROGRAMS = $(noinst_PROGRAMS)
DEFS = -DHAVE_CONFIG_H -I. -I$(srcdir) -I..
CPPFLAGS =
LDFLAGS = -rdynamic
LIBS =
simple_OBJECTS = simple.o
simple_DEPENDENCIES = ../src/libjs.la
simple_LDFLAGS =
ieval_OBJECTS = ieval.o
ieval_DEPENDENCIES = ../src/libjs.la
ieval_LDFLAGS =
CFLAGS = -g -O2
COMPILE = $(CC) $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS)
LTCOMPILE = $(LIBTOOL) --mode=compile $(CC) $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS)
LINK = $(LIBTOOL) --mode=link $(CC) $(CFLAGS) $(LDFLAGS) -o $@
DIST_COMMON = Makefile.am Makefile.in
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
TAR = tar
GZIP = --best
SOURCES = $(simple_SOURCES) $(ieval_SOURCES)
OBJECTS = $(simple_OBJECTS) $(ieval_OBJECTS)
all: Makefile $(PROGRAMS)
.SUFFIXES:
.SUFFIXES: .S .c .lo .o .s
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps examples/Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
mostlyclean-noinstPROGRAMS:
clean-noinstPROGRAMS:
-test -z "$(noinst_PROGRAMS)" || rm -f $(noinst_PROGRAMS)
distclean-noinstPROGRAMS:
maintainer-clean-noinstPROGRAMS:
.c.o:
$(COMPILE) -c $<
.s.o:
$(COMPILE) -c $<
.S.o:
$(COMPILE) -c $<
mostlyclean-compile:
-rm -f *.o core *.core
clean-compile:
distclean-compile:
-rm -f *.tab.c
maintainer-clean-compile:
.c.lo:
$(LIBTOOL) --mode=compile $(COMPILE) -c $<
.s.lo:
$(LIBTOOL) --mode=compile $(COMPILE) -c $<
.S.lo:
$(LIBTOOL) --mode=compile $(COMPILE) -c $<
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
distclean-libtool:
maintainer-clean-libtool:
simple: $(simple_OBJECTS) $(simple_DEPENDENCIES)
@rm -f simple
$(LINK) $(simple_LDFLAGS) $(simple_OBJECTS) $(simple_LDADD) $(LIBS)
ieval: $(ieval_OBJECTS) $(ieval_DEPENDENCIES)
@rm -f ieval
$(LINK) $(ieval_LDFLAGS) $(ieval_OBJECTS) $(ieval_LDADD) $(LIBS)
tags: TAGS
ID: $(HEADERS) $(SOURCES) $(LISP)
here=`pwd` && cd $(srcdir) \
&& mkid -f$$here/ID $(SOURCES) $(HEADERS) $(LISP)
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP)
tags=; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS)'; \
unique=`for i in $$list; do echo $$i; done | \
awk ' { files[$$0] = 1; } \
END { for (i in files) print i; }'`; \
test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \
|| (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS)
mostlyclean-tags:
clean-tags:
distclean-tags:
-rm -f TAGS ID
maintainer-clean-tags:
distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
subdir = examples
distdir: $(DISTFILES)
@for file in $(DISTFILES); do \
d=$(srcdir); \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done
info:
dvi:
check: all
$(MAKE)
installcheck:
install-exec:
@$(NORMAL_INSTALL)
install-data:
@$(NORMAL_INSTALL)
install: install-exec install-data all
@:
uninstall:
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs:
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-rm -f Makefile $(DISTCLEANFILES)
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
maintainer-clean-generic:
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
mostlyclean: mostlyclean-noinstPROGRAMS mostlyclean-compile \
mostlyclean-libtool mostlyclean-tags \
mostlyclean-generic
clean: clean-noinstPROGRAMS clean-compile clean-libtool clean-tags \
clean-generic mostlyclean
distclean: distclean-noinstPROGRAMS distclean-compile distclean-libtool \
distclean-tags distclean-generic clean
-rm -f config.status
-rm -f libtool
maintainer-clean: maintainer-clean-noinstPROGRAMS \
maintainer-clean-compile maintainer-clean-libtool \
maintainer-clean-tags maintainer-clean-generic \
distclean
@echo "This command is intended for maintainers to use;"
@echo "it deletes files that may require special tools to rebuild."
.PHONY: mostlyclean-noinstPROGRAMS distclean-noinstPROGRAMS \
clean-noinstPROGRAMS maintainer-clean-noinstPROGRAMS \
mostlyclean-compile distclean-compile clean-compile \
maintainer-clean-compile mostlyclean-libtool distclean-libtool \
clean-libtool maintainer-clean-libtool tags mostlyclean-tags \
distclean-tags clean-tags maintainer-clean-tags distdir info dvi \
installcheck install-exec install-data install uninstall all \
installdirs mostlyclean-generic distclean-generic clean-generic \
maintainer-clean-generic clean mostlyclean distclean maintainer-clean
dload-linux:
$(CC) $(CFLAGS) -shared -fPIC -DPIC dload.c -o dload.so
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

40
reactos/lib/kjs/examples/Makefile.am Normal file
View file

@ -0,0 +1,40 @@
#
# Automakefile for the examples directory.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
INCLUDES = -I$(top_srcdir)/src
noinst_PROGRAMS = simple ieval
simple_SOURCES = simple.c
simple_LDADD = ../src/libjs.la @EXTENSIONS_LIBS@ -lm
ieval_SOURCES = ieval.c
ieval_LDADD = ../src/libjs.la @EXTENSIONS_LIBS@ -lm
EXTRA_DIST = hello.js add.js dload.c
dload-linux:
$(CC) $(CFLAGS) -shared -fPIC -DPIC dload.c -o dload.so

320
reactos/lib/kjs/examples/Makefile.in Normal file
View file

@ -0,0 +1,320 @@
# Makefile.in generated automatically by automake 1.3 from Makefile.am
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Automakefile for the examples directory.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
SHELL = /bin/sh
srcdir = @srcdir@
top_srcdir = @top_srcdir@
VPATH = @srcdir@
prefix = @prefix@
exec_prefix = @exec_prefix@
bindir = @bindir@
sbindir = @sbindir@
libexecdir = @libexecdir@
datadir = @datadir@
sysconfdir = @sysconfdir@
sharedstatedir = @sharedstatedir@
localstatedir = @localstatedir@
libdir = @libdir@
infodir = @infodir@
mandir = @mandir@
includedir = @includedir@
oldincludedir = /usr/include
DISTDIR =
pkgdatadir = $(datadir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
top_builddir = ..
ACLOCAL = @ACLOCAL@
AUTOCONF = @AUTOCONF@
AUTOMAKE = @AUTOMAKE@
AUTOHEADER = @AUTOHEADER@
INSTALL = @INSTALL@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
transform = @program_transform_name@
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
host_alias = @host_alias@
host_triplet = @host@
ACLOCAL_FLAGS_FOR_LIBTOOL = @ACLOCAL_FLAGS_FOR_LIBTOOL@
CC = @CC@
CPP = @CPP@
EXTENSIONS = @EXTENSIONS@
EXTENSIONS_LIBS = @EXTENSIONS_LIBS@
INTERPRETER_FEATURES = @INTERPRETER_FEATURES@
LD = @LD@
LIBTOOL = @LIBTOOL@
LN_S = @LN_S@
MAKEINFO = @MAKEINFO@
NM = @NM@
PACKAGE = @PACKAGE@
PGCC_BY_PROVENZANO = @PGCC_BY_PROVENZANO@
RANLIB = @RANLIB@
U = @U@
VERSION = @VERSION@
XLC_R_AIX = @XLC_R_AIX@
INCLUDES = -I$(top_srcdir)/src
noinst_PROGRAMS = simple ieval
simple_SOURCES = simple.c
simple_LDADD = ../src/libjs.la @EXTENSIONS_LIBS@ -lm
ieval_SOURCES = ieval.c
ieval_LDADD = ../src/libjs.la @EXTENSIONS_LIBS@ -lm
EXTRA_DIST = hello.js add.js dload.c
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = ../jsconfig.h
CONFIG_CLEAN_FILES =
PROGRAMS = $(noinst_PROGRAMS)
DEFS = @DEFS@ -I. -I$(srcdir) -I..
CPPFLAGS = @CPPFLAGS@
LDFLAGS = @LDFLAGS@
LIBS = @LIBS@
simple_OBJECTS = simple.o
simple_DEPENDENCIES = ../src/libjs.la
simple_LDFLAGS =
ieval_OBJECTS = ieval.o
ieval_DEPENDENCIES = ../src/libjs.la
ieval_LDFLAGS =
CFLAGS = @CFLAGS@
COMPILE = $(CC) $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS)
LTCOMPILE = $(LIBTOOL) --mode=compile $(CC) $(DEFS) $(INCLUDES) $(CPPFLAGS) $(CFLAGS)
LINK = $(LIBTOOL) --mode=link $(CC) $(CFLAGS) $(LDFLAGS) -o $@
DIST_COMMON = Makefile.am Makefile.in
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
TAR = tar
GZIP = --best
SOURCES = $(simple_SOURCES) $(ieval_SOURCES)
OBJECTS = $(simple_OBJECTS) $(ieval_OBJECTS)
all: Makefile $(PROGRAMS)
.SUFFIXES:
.SUFFIXES: .S .c .lo .o .s
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps examples/Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
mostlyclean-noinstPROGRAMS:
clean-noinstPROGRAMS:
-test -z "$(noinst_PROGRAMS)" || rm -f $(noinst_PROGRAMS)
distclean-noinstPROGRAMS:
maintainer-clean-noinstPROGRAMS:
.c.o:
$(COMPILE) -c $<
.s.o:
$(COMPILE) -c $<
.S.o:
$(COMPILE) -c $<
mostlyclean-compile:
-rm -f *.o core *.core
clean-compile:
distclean-compile:
-rm -f *.tab.c
maintainer-clean-compile:
.c.lo:
$(LIBTOOL) --mode=compile $(COMPILE) -c $<
.s.lo:
$(LIBTOOL) --mode=compile $(COMPILE) -c $<
.S.lo:
$(LIBTOOL) --mode=compile $(COMPILE) -c $<
mostlyclean-libtool:
-rm -f *.lo
clean-libtool:
-rm -rf .libs _libs
distclean-libtool:
maintainer-clean-libtool:
simple: $(simple_OBJECTS) $(simple_DEPENDENCIES)
@rm -f simple
$(LINK) $(simple_LDFLAGS) $(simple_OBJECTS) $(simple_LDADD) $(LIBS)
ieval: $(ieval_OBJECTS) $(ieval_DEPENDENCIES)
@rm -f ieval
$(LINK) $(ieval_LDFLAGS) $(ieval_OBJECTS) $(ieval_LDADD) $(LIBS)
tags: TAGS
ID: $(HEADERS) $(SOURCES) $(LISP)
here=`pwd` && cd $(srcdir) \
&& mkid -f$$here/ID $(SOURCES) $(HEADERS) $(LISP)
TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP)
tags=; \
here=`pwd`; \
list='$(SOURCES) $(HEADERS)'; \
unique=`for i in $$list; do echo $$i; done | \
awk ' { files[$$0] = 1; } \
END { for (i in files) print i; }'`; \
test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \
|| (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS)
mostlyclean-tags:
clean-tags:
distclean-tags:
-rm -f TAGS ID
maintainer-clean-tags:
distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
subdir = examples
distdir: $(DISTFILES)
@for file in $(DISTFILES); do \
d=$(srcdir); \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done
info:
dvi:
check: all
$(MAKE)
installcheck:
install-exec:
@$(NORMAL_INSTALL)
install-data:
@$(NORMAL_INSTALL)
install: install-exec install-data all
@:
uninstall:
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs:
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-rm -f Makefile $(DISTCLEANFILES)
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
maintainer-clean-generic:
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
mostlyclean: mostlyclean-noinstPROGRAMS mostlyclean-compile \
mostlyclean-libtool mostlyclean-tags \
mostlyclean-generic
clean: clean-noinstPROGRAMS clean-compile clean-libtool clean-tags \
clean-generic mostlyclean
distclean: distclean-noinstPROGRAMS distclean-compile distclean-libtool \
distclean-tags distclean-generic clean
-rm -f config.status
-rm -f libtool
maintainer-clean: maintainer-clean-noinstPROGRAMS \
maintainer-clean-compile maintainer-clean-libtool \
maintainer-clean-tags maintainer-clean-generic \
distclean
@echo "This command is intended for maintainers to use;"
@echo "it deletes files that may require special tools to rebuild."
.PHONY: mostlyclean-noinstPROGRAMS distclean-noinstPROGRAMS \
clean-noinstPROGRAMS maintainer-clean-noinstPROGRAMS \
mostlyclean-compile distclean-compile clean-compile \
maintainer-clean-compile mostlyclean-libtool distclean-libtool \
clean-libtool maintainer-clean-libtool tags mostlyclean-tags \
distclean-tags clean-tags maintainer-clean-tags distdir info dvi \
installcheck install-exec install-data install uninstall all \
installdirs mostlyclean-generic distclean-generic clean-generic \
maintainer-clean-generic clean mostlyclean distclean maintainer-clean
dload-linux:
$(CC) $(CFLAGS) -shared -fPIC -DPIC dload.c -o dload.so
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

14
reactos/lib/kjs/examples/add.js Normal file
View file

@ -0,0 +1,14 @@
function main ()
{
System.print ("result1=", add (1, 2, 3), "\n");
System.print ("result2=", add (1, 2, 3.5), "\n");
}
main ();
/*
Local variables:
mode: c
End:
*/

60
reactos/lib/kjs/examples/dload.c Normal file
View file

@ -0,0 +1,60 @@
/*
* An example of a shared library extension for js.
* Copyright (c) 1998 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/examples/dload.c,v $
* $Id: dload.c,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
#include <js.h>
#include <stdio.h>
/*
* Static functions.
*/
/* The `hello' command. */
JSMethodResult
dlhello_proc (void *context, JSInterpPtr interp, int argc, JSType *argv,
JSType *result_return, char *error_return)
{
char *msg = context;
printf ("%s\n", msg);
return JS_OK;
}
/*
* Global functions.
*/
void
dload (JSInterpPtr interp)
{
js_create_global_method (interp, "dlhello", dlhello_proc,
"dlhello: Hello, world!", NULL);
}

48
reactos/lib/kjs/examples/hello.js Normal file
View file

@ -0,0 +1,48 @@
function main ()
{
System.stdout.writeln ("main(): enter");
System.stdout.writeln ("calling our `hello' global...");
hello ();
System.stdout.writeln ("calling our `Hello.show' method...");
Hello.show ();
try
{
Hello.fail ();
}
catch (msg)
{
System.stdout.writeln (msg);
}
System.stdout.writeln ("Hello.msg=" + Hello.msg);
try
{
Hello.msg = "foo";
}
catch (msg)
{
System.stdout.writeln (msg);
}
var h1 = new Hello ("Hello, mtr!");
h1.show ();
Hello.investigate (h1);
var h2 = h1.copy ();
h2.show ();
Hello.investigate (h2);
System.stdout.writeln ("main(): leave");
}
main ();
/*
Local variables:
mode: c
End:
*/

100
reactos/lib/kjs/examples/ieval.c Normal file
View file

@ -0,0 +1,100 @@
/*
* Show how the evaluation can be done in phases.
* Copyright (c) 1998 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/examples/ieval.c,v $
* $Id: ieval.c,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <assert.h>
#include <js.h>
/*
* Global functions.
*/
int
main (int argc, char *argv[])
{
char buf[1024];
JSInterpPtr interp;
/* Create one interpreter. */
interp = js_create_interp (NULL);
/* Enter the query loop. */
while (1)
{
unsigned char *bc;
unsigned char *bc_copy;
unsigned int bc_len;
char *cp;
printf ("What file should I evaluate? ");
if (fgets (buf, sizeof (buf), stdin) == NULL)
break;
cp = strchr (buf, '\n');
if (cp)
*cp = '\0';
if (js_compile_to_byte_code (interp, buf, &bc, &bc_len) == 0)
{
printf ("Compilation to the byte-code failed: %s\n",
js_error_message (interp));
continue;
}
printf ("Compilation returned %d bytes of byte-code data.\n",
bc_len);
bc_copy = malloc (bc_len);
assert (bc_copy != NULL);
memcpy (bc_copy, bc, bc_len);
while (1)
{
printf ("Hit ENTER to execute the code. ^D exits the loop. ");
if (getchar () == EOF)
break;
if (js_execute_byte_code (interp, bc_copy, bc_len) == 0)
printf ("Execution failed: %s\n", js_error_message (interp));
}
free (bc_copy);
printf ("\n");
}
printf ("\n");
js_destroy_interp (interp);
return 1;
}

18
reactos/lib/kjs/examples/obtype.js Normal file
View file

@ -0,0 +1,18 @@
function main ()
{
System.stdout.writeln ("main(): enter");
System.stdout.writeln (("fubar").getType().toString());
System.stdout.writeln ((new Object()).getType().toString());
System.stdout.writeln ("main(): leave");
}
main ();
/*
Local variables:
mode: c
End:
*/

338
reactos/lib/kjs/examples/simple.c Normal file
View file

@ -0,0 +1,338 @@
/*
* An example how to embed the JavaScript interpreter to your program.
* Copyright (c) 1998-1999 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/examples/simple.c,v $
* $Id: simple.c,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
#include <stdio.h>
#include <stdlib.h>
#include <js.h>
/*
* Static functions.
*/
/* I/O function for the standard error stream. */
int
io_stderr (void *context, unsigned char *buffer, unsigned int amount)
{
return fwrite (buffer, 1, amount, stderr);
}
/* The `hello' command. */
JSMethodResult
hello_proc (void *context, JSInterpPtr interp, int argc, JSType *argv,
JSType *result_return, char *error_return)
{
char *msg = context;
printf ("%s\n", msg);
return JS_OK;
}
/* The `add' command. */
JSMethodResult
add_proc (void *context, JSInterpPtr interp, int argc, JSType *argv,
JSType *result_return, char *error_return)
{
int i;
double d = 0.0;
int doubles = 0;
for (i = 0; i < argc; i++)
{
JSType *arg = &argv[i];
switch (arg->type)
{
case JS_TYPE_INTEGER:
d += (double) arg->u.i;
break;
case JS_TYPE_DOUBLE:
d += arg->u.d;
doubles++;
break;
default:
sprintf (error_return, "add: illegal argument");
return JS_ERROR;
break;
}
}
if (doubles == 0)
{
result_return->type = JS_TYPE_INTEGER;
result_return->u.i = (long) d;
}
else
{
result_return->type = JS_TYPE_DOUBLE;
result_return->u.d = d;
}
return JS_OK;
}
/* Methods for the `Hello' class. */
/* The instance context for Hello objects. */
struct hello_ctx_st
{
char msg[1024];
};
typedef struct hello_ctx_st HelloCtx;
/* Method `Hello.show()'. */
static JSMethodResult
hello_show (JSClassPtr cls, void *instance_context, JSInterpPtr interp,
int argc, JSType *argv, JSType *result_return, char *error_return)
{
HelloCtx *ictx = instance_context;
char *msg;
if (ictx)
msg = ictx->msg;
else
msg = js_class_context (cls);
printf ("%s\n", msg);
return JS_OK;
}
/* Method `Hello.fail()'. */
static JSMethodResult
hello_fail (JSClassPtr cls, void *instance_context, JSInterpPtr interp,
int argc, JSType *argv, JSType *result_return, char *error_return)
{
strcpy (error_return, "My mission is to fail!");
return JS_ERROR;
}
/* Method `Hello.investigate(obj)'. */
static JSMethodResult
hello_investigate (JSClassPtr cls, void *instance_context, JSInterpPtr interp,
int argc, JSType *argv, JSType *result_return,
char *error_return)
{
HelloCtx *others_ictx;
if (argc != 1)
{
strcpy (error_return, "illegal amount of arguments");
return JS_ERROR;
}
if (!js_isa (interp, &argv[0], js_lookup_class (interp, "Hello"),
(void **) &others_ictx))
{
strcpy (error_return, "illegal argument");
return JS_ERROR;
}
printf ("Hello.investigate(): my argument's message is \"%s\"\n",
others_ictx->msg);
return JS_OK;
}
/* Take a copy of us. */
static JSMethodResult
hello_copy (JSClassPtr cls, void *instance_context, JSInterpPtr interp,
int argc, JSType *argv, JSType *result_return,
char *error_return)
{
HelloCtx *ictx = instance_context;
HelloCtx *nictx;
JSClassPtr rcls;
rcls = js_lookup_class (interp, "Hello");
if (cls != rcls)
{
sprintf (error_return, "internal class error");
return JS_ERROR;
}
nictx = malloc (sizeof (*nictx));
if (ictx)
strcpy (nictx->msg, ictx->msg);
else
strcpy (nictx->msg, "Hello, world!!!!!");
js_instantiate_class (interp, cls, nictx, free, result_return);
return JS_OK;
}
/* The getter function for the `Hello.msg' property. */
static JSMethodResult
hello_msg (JSClassPtr cls, void *instance_context, JSInterpPtr interp,
int setp, JSType *value, char *error_return)
{
HelloCtx *ictx = instance_context;
char *msg;
if (ictx)
msg = ictx->msg;
else
msg = js_class_context (cls);
js_type_make_string (interp, value, msg, strlen (msg));
}
static JSMethodResult
hello_constructor (JSClassPtr cls, JSInterpPtr interp, int argc, JSType *argv,
void **ictx_return, JSFreeProc *ictx_destructor_return,
char *error_return)
{
HelloCtx *ictx;
int len;
if (argc != 1)
{
strcpy (error_return, "wront amount of arguments");
return JS_ERROR;
}
if (argv[0].type != JS_TYPE_STRING)
{
strcpy (error_return, "illegal argument");
return JS_ERROR;
}
ictx = calloc (1, sizeof (*ictx));
if (ictx == NULL)
{
strcpy (error_return, "out of memory");
return JS_ERROR;
}
len = argv[0].u.s->len;
if (len + 1 > sizeof (ictx->msg))
len = sizeof (ictx->msg) - 1;
memcpy (ictx->msg, argv[0].u.s->data, len);
ictx->msg[len] = '\0';
*ictx_return = ictx;
*ictx_destructor_return = free;
return JS_OK;
}
/*
* Global functions.
*/
int
main (int argc, char *argv[])
{
JSInterpPtr interp;
JSInterpOptions options;
JSClassPtr cls;
int i;
if (argc < 2)
{
fprintf (stderr, "Usage: %s FILE...\n", argv[0]);
exit (1);
}
/* Create one interpreter. */
js_init_default_options (&options);
options.verbose = 2;
options.s_stderr = io_stderr;
options.s_context = NULL;
interp = js_create_interp (&options);
/* Create our extensions. */
js_create_global_method (interp, "hello", hello_proc,
"(global method) Hello, world!", NULL);
js_create_global_method (interp, "add", add_proc, NULL, NULL);
/* Create our class. */
cls = js_class_create ("(Hello) Hello, world!", NULL, 0,
hello_constructor);
js_class_define_method (cls, "show", JS_CF_STATIC, hello_show);
js_class_define_method (cls, "fail", JS_CF_STATIC, hello_fail);
js_class_define_method (cls, "investigate", JS_CF_STATIC, hello_investigate);
js_class_define_method (cls, "copy", 0, hello_copy);
js_class_define_property (cls, "msg", JS_CF_STATIC | JS_CF_IMMUTABLE,
hello_msg);
js_define_class (interp, cls, "Hello");
/* Evaluate all argument files. */
for (i = 1; i < argc; i++)
if (!js_eval_file (interp, argv[i]))
fprintf (stderr, "evaluation of file `%s' failed: %s\n",
argv[i], js_error_message (interp));
/* Call our add command with the js_apply() function. */
{
JSType argv[3];
argv[0].type = JS_TYPE_INTEGER;
argv[0].u.i = 42;
argv[1].type = JS_TYPE_INTEGER;
argv[1].u.i = 72;
if (!js_apply (interp, "add", 2, argv))
{
fprintf (stderr, "js_apply() failed: %s\n", js_error_message (interp));
exit (1);
}
js_result (interp, &argv[2]);
if (argv[2].type != JS_TYPE_INTEGER)
{
fprintf (stderr, "add() returned wrong type!\n");
exit (1);
}
printf ("%ld + %ld = %ld\n", argv[0].u.i, argv[1].u.i, argv[2].u.i);
}
/* Cleanup. */
js_destroy_interp (interp);
return 1;
}

503
reactos/lib/kjs/include/js.h Normal file
View file

@ -0,0 +1,503 @@
/*
* Public API for the JavaScript interpreter.
* Copyright (c) 1998-1999 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/include/js.h,v $
* $Id: js.h,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
#ifndef JS_H
#define JS_H
#include <stdio.h>
#ifndef JS_DLLEXPORT
#ifdef WIN32
#define JS_DLLEXPORT __declspec(dllexport)
#else /* not WIN32 */
#define JS_DLLEXPORT
#endif /* not WIN32 */
#endif /* not JS_DLLEXPORT */
#ifdef __cplusplus
extern "C" {
#endif
/*
* Types and definitions.
*/
/* Flags for class methods and properties. */
#define JS_CF_STATIC 0x01
#define JS_CF_IMMUTABLE 0x02
/*
* This is frustrating. We have to define these, since MS's and
* Borlands' compilers can't agree on how to handle the stupid export
* declarations and function pointer return values.
*/
typedef char *JSCharPtr;
typedef void *JSVoidPtr;
/* Byte-code instruction dispatch methods. */
typedef enum
{
JS_VM_DISPATCH_SWITCH_BASIC,
JS_VM_DISPATCH_SWITCH,
JS_VM_DISPATCH_JUMPS
} JSVMDispatchMethod;
typedef struct js_interp_st *JSInterpPtr;
/*
* An I/O function that can be set to interpreter options to redirect
* the system's default streams.
*/
typedef int (*JSIOFunc) (void *context, unsigned char *buffer,
unsigned int amount);
/*
* Hook that is called at certain points during the byte-code
* execution. Note that the JS_HOOK_OPERAND_COUNT is only available,
* if the interpreter was configured with `--enable-operand-hooks'
* option.
*/
#define JS_EVENT_OPERAND_COUNT 1
#define JS_EVENT_GARBAGE_COLLECT 2
typedef int (*JSHook) (int event, void *context);
/* Interpreter options. */
struct js_interp_options_st
{
unsigned int stack_size;
JSVMDispatchMethod dispatch_method;
unsigned int verbose;
/* Virtual machine flags. */
unsigned int no_compiler : 1;
unsigned int stacktrace_on_error : 1;
unsigned int secure_builtin_file : 1;
unsigned int secure_builtin_system : 1;
/* Misc compiler flags. */
unsigned int annotate_assembler : 1;
unsigned int debug_info : 1;
unsigned int executable_bc_files : 1;
/* Compiler warning flags. */
unsigned int warn_unused_argument : 1;
unsigned int warn_unused_variable : 1;
unsigned int warn_undef : 1; /* runtime option */
unsigned int warn_shadow : 1;
unsigned int warn_with_clobber : 1;
unsigned int warn_missing_semicolon : 1;
unsigned int warn_strict_ecma : 1;
unsigned int warn_deprecated : 1;
/* Compiler optimization flags. */
unsigned int optimize_peephole : 1;
unsigned int optimize_jumps_to_jumps : 1;
unsigned int optimize_bc_size : 1;
unsigned int optimize_heavy : 1;
/*
* The standard system streams. If these are NULL, the streams are
* bind to the system's stdin, stdout, and stderr files.
*/
JSIOFunc s_stdin;
JSIOFunc s_stdout;
JSIOFunc s_stderr;
void *s_context;
/* The callback hook. */
JSHook hook;
void *hook_context;
/*
* Call the <hook> after the virtual machine has executed this many
* operands.
*/
unsigned int hook_operand_count_trigger;
/* How many file descriptors the interpreter can allocate. */
unsigned long fd_count;
};
typedef struct js_interp_options_st JSInterpOptions;
/* JavaScript public types. */
#define JS_TYPE_UNDEFINED 0
#define JS_TYPE_NULL 1
#define JS_TYPE_BOOLEAN 2
#define JS_TYPE_INTEGER 3
#define JS_TYPE_STRING 4
#define JS_TYPE_DOUBLE 5
#define JS_TYPE_ARRAY 6
#define JS_TYPE_BUILTIN 11
/* String type. */
struct js_type_string_st
{
unsigned int flags;
unsigned char *data;
unsigned int len;
};
typedef struct js_type_string_st JSTypeString;
/* Array type. */
struct js_type_array_st
{
unsigned int length;
struct js_type_st *data;
};
typedef struct js_type_array_st JSTypeArray;
/* The type closure. */
struct js_type_st
{
int type; /* One of the JS_TYPE_* values. */
union
{
long i; /* integer or boolean */
JSTypeString *s; /* string */
double d; /* double */
JSTypeArray *array; /* array */
struct /* Fillter to assure that this the type */
{ /* structure has correct size. */
unsigned int a1;
unsigned int a2;
} align;
} u;
};
typedef struct js_type_st JSType;
/* Function type to free client data. */
typedef void (*JSFreeProc) (void *context);
/* Return types for methods. */
typedef enum
{
JS_OK,
JS_ERROR
} JSMethodResult;
/* Function type for global methods. */
typedef JSMethodResult (*JSGlobalMethodProc) (void *context,
JSInterpPtr interp, int argc,
JSType *argv,
JSType *result_return,
char *error_return);
/* Function type for JS modules. */
typedef void (*JSModuleInitProc) (JSInterpPtr interp);
/* Classes. */
typedef struct js_class_st *JSClassPtr;
typedef JSMethodResult (*JSMethodProc) (JSClassPtr cls, void *instance_context,
JSInterpPtr interp, int argc,
JSType *argv, JSType *result_return,
char *error_return);
typedef JSMethodResult (*JSPropertyProc) (JSClassPtr cls,
void *instance_context,
JSInterpPtr interp, int setp,
JSType *value, char *error_return);
typedef JSMethodResult (*JSConstructor) (JSClassPtr cls, JSInterpPtr interp,
int argc, JSType *argv,
void **ictx_return,
JSFreeProc *ictx_destructor_return,
char *error_return);
/*
* Prototypes global functions.
*/
/*
* Interpreter handling.
*/
/*
* Return a string that describes the JavaScript interpreter version
* number. The returned string is in format "MAJOR.MINOR.PATCH",
* where MAJOR, MINOR, and PATCH are integer numbers.
*/
const JSCharPtr JS_DLLEXPORT js_version ();
/* Initialize interpreter options to system's default values. */
void JS_DLLEXPORT js_init_default_options (JSInterpOptions *options);
/* Create a new JavaScript interpreter. */
struct _KJS;
JSInterpPtr JS_DLLEXPORT js_create_interp (JSInterpOptions *options,
struct _KJS *kjs);
/* Destroy interpreter <interp>. */
void JS_DLLEXPORT js_destroy_interp (JSInterpPtr interp);
/* Return error message from the latest error. */
const JSCharPtr JS_DLLEXPORT js_error_message (JSInterpPtr interp);
/*
* Get the result of the latest evaluation or execution in interpreter
* <interp>. The result is returned in <result_return>. All data,
* returned in <result_return>, belongs to the interpreter. The
* caller must not modify or changed it in any ways.
*/
void JS_DLLEXPORT js_result (JSInterpPtr interp, JSType *result_return);
/* Set the value of global variable <name> to <value>. */
void JS_DLLEXPORT js_set_var (JSInterpPtr interp, char *name, JSType *value);
/* Get the value of global variable <name> to <value>. */
void JS_DLLEXPORT js_get_var (JSInterpPtr interp, char *name, JSType *value);
/* Get the options of interpreter <interp> to <options>. */
void JS_DLLEXPORT js_get_options (JSInterpPtr interp,
JSInterpOptions *options);
/* Modify the options of interpreter <interp> according to <options>. */
void JS_DLLEXPORT js_set_options (JSInterpPtr interp,
JSInterpOptions *options);
/*
* Evaluation and compilation.
*/
/* Evalutate JavaScript code <code> with interpreter <interp>. */
int JS_DLLEXPORT js_eval (JSInterpPtr interp, char *code);
/* Evaluate JavaScript code <data, datalen> with interpreter <interp>. */
int JS_DLLEXPORT js_eval_data (JSInterpPtr interp, char *data,
unsigned int datalen);
/*
* Evaluate file <filename> with interpreter <interp>. File
* <filename> can contain JavaScript of byte-code. The function
* return 1 if the evaluation was successful or 0 otherwise. If the
* evaluation failed, the error message can be retrieved with the
* function js_error_message().
*/
int JS_DLLEXPORT js_eval_file (JSInterpPtr interp, char *filename);
/* Eval JavaScript file <filename> with interpreter <interp>. */
int JS_DLLEXPORT js_eval_javascript_file (JSInterpPtr interp, char *filename);
/* Execute a byte-code file <filename> with interpreter <interp>. */
int JS_DLLEXPORT js_execute_byte_code_file (JSInterpPtr interp,
char *filename);
/*
* Call funtion <name> with arguments <argc, argv>. The return value
* of the function <name> can be retrieved with the js_result()
* function.
*/
int JS_DLLEXPORT js_apply (JSInterpPtr interp, char *name,
unsigned int argc, JSType *argv);
/* Compile JavaScript file <input_file> to assembler or byte-code. */
int JS_DLLEXPORT js_compile (JSInterpPtr interp, char *input_file,
char *assembler_file, char *byte_code_file);
/*
* Compile JavaScript file <input_file> to byte-code and return the
* resulting byte-code data in <bc_return, bc_len_return>. The
* returned byte-code data <bc_return> belongs to the interpreter
* and it must be saved by the caller *before* any other JS functions
* is called. If the data is not saved, its contents will be invalid
* at the next garbage collection.
*/
int JS_DLLEXPORT js_compile_to_byte_code (JSInterpPtr interp, char *input_file,
unsigned char **bc_return,
unsigned int *bc_len_return);
/*
* Compile JavaScript code <data, datalen> to byte-code and return the
* resulting byte-code data in <bc_return, bc_len_return>.
*/
int JS_DLLEXPORT js_compile_data_to_byte_code (JSInterpPtr interp, char *data,
unsigned int datalen,
unsigned char **bc_return,
unsigned int *bc_len_return);
/*
* Execute byte-code data <bc, bc_len>. The byte-code data is the
* contents of a byte-code file, or a copy of the data returned by the
* js_compile{,_data}_to_byte_code() functions.
*
* Note! You can't use the data from the js_compile{,_data}_to_byte_code()
* functions as an input for this function. Instead, you must take a
* private copy of the data and pass that copy to the function:
*
* if (js_compile_to_byte_code (interp, "./foo.js", &bc, &bclen))
* {
* char *bc_copy = xmalloc (bclen);
*
* memcpy (bc_copy, bc, bclen);
* js_execute_byte_code (interp, bc_copy, bclen);
* xfree (bc_copy);
* }
*/
int JS_DLLEXPORT js_execute_byte_code (JSInterpPtr interp, unsigned char *bc,
unsigned int bc_len);
/*
* Type handling.
*/
/*
* Create a new string type from <data> that has <length> bytes of data.
* All fields of <type> belong to the interpreter.
*/
void JS_DLLEXPORT js_type_make_string (JSInterpPtr interp, JSType *type,
unsigned char *data,
unsigned int length);
/* Create a new array with capacity of <length> items. */
void JS_DLLEXPORT js_type_make_array (JSInterpPtr interp, JSType *type,
unsigned int length);
/*
* Global methods.
*/
/*
* Create a new global method to the interpreter <interp>. The
* method's name will be <name> and its implementation is function
* <proc>. The argument <context> is a user-specified data that is
* passed to the command <proc>. When the command is deleted, the
* argument <context_free_proc> is called for data <context> to free
* up all resources the <context> might have. The function returns
* 1 if the operation was successful or 0 otherwise.
*/
int JS_DLLEXPORT js_create_global_method (JSInterpPtr interp, char *name,
JSGlobalMethodProc proc,
void *context,
JSFreeProc context_free_proc);
/*
* Classes.
*/
/*
* Create a new class with class context data <class_context>. The
* context data is destroyed with <class_context_destructor>. If the
* argument <no_auto_destroy> is not 0, the JavaScript interpreter
* will *not* destroy the class when the interpreter is destroyed. In
* that case, it is the caller's responsibility to call
* js_class_destroy() for the returned class handle, after the
* interpreter has been destroyed. If the argument <constructor> is
* not NULL, it is used to instantiate the class when a `new CLASS
* (ARGS);' expression is evaluated in the JavaScript code.
*/
JSClassPtr JS_DLLEXPORT js_class_create (void *class_context,
JSFreeProc class_context_destructor,
int no_auto_destroy,
JSConstructor constuctor);
void JS_DLLEXPORT js_class_destroy (JSClassPtr cls);
JSVoidPtr JS_DLLEXPORT js_class_context (JSClassPtr cls);
int JS_DLLEXPORT js_class_define_method (JSClassPtr cls, char *name,
unsigned int flags,
JSMethodProc method);
int JS_DLLEXPORT js_class_define_property (JSClassPtr cls, char *name,
unsigned int flags,
JSPropertyProc property);
int JS_DLLEXPORT js_define_class (JSInterpPtr interp, JSClassPtr cls,
char *name);
int JS_DLLEXPORT js_instantiate_class (JSInterpPtr interp, JSClassPtr cls,
void *ictx, JSFreeProc ictx_destructor,
JSType *result_return);
const JSClassPtr JS_DLLEXPORT js_lookup_class (JSInterpPtr interp,
char *name);
/*
* Check if object <object> is an instance of class <cls>. The
* function returns a boolean success status. If the argument
* <instance_context_return> is not NULL, it will be set to the
* instance context of object <object>.
*/
int JS_DLLEXPORT js_isa (JSInterpPtr interp, JSType *object, JSClassPtr cls,
void **instance_context_return);
/*
* Modules.
*/
/*
* Call the module initialization function <init_proc>. The function
* return 1 if the module was successfully initialized or 0 otherwise.
* In case of error, the error message can be fetched with the
* js_error_mesage() function.
*/
int JS_DLLEXPORT js_define_module (JSInterpPtr interp,
JSModuleInitProc init_proc);
/*
* The default modules.
*/
/* JavaScript interpreter extension. */
void JS_DLLEXPORT js_ext_JS (JSInterpPtr interp);
/* Curses extension. */
void JS_DLLEXPORT js_ext_curses (JSInterpPtr interp);
/* MD5 extension. */
void JS_DLLEXPORT js_ext_MD5 (JSInterpPtr interp);
#ifdef __cplusplus
}
#endif
#endif /* not JS_H */

190
reactos/lib/kjs/include/jsconfig.h Normal file
View file

@ -0,0 +1,190 @@
/* jsconfig.h. Generated automatically by configure. */
/* jsconfig.h.in. Generated automatically from configure.in by autoheader. */
/* Define if on AIX 3.
System headers sometimes define this.
We just want to avoid a redefinition error message. */
#ifndef _ALL_SOURCE
/* #undef _ALL_SOURCE */
#endif
/* Define if using alloca.c. */
/* #undef C_ALLOCA */
/* Define to empty if the keyword does not work. */
/* #undef const */
/* Define to one of _getb67, GETB67, getb67 for Cray-2 and Cray-YMP systems.
This function is required for alloca.c support on those systems. */
/* #undef CRAY_STACKSEG_END */
/* Define if you have alloca, as a function or macro. */
#define HAVE_ALLOCA 1
/* Define if you have <alloca.h> and it should be used (not on Ultrix). */
#define HAVE_ALLOCA_H 1
/* Define as __inline if that's what the C compiler calls it. */
/* #undef inline */
/* If using the C implementation of alloca, define if you know the
direction of stack growth for your system; otherwise it will be
automatically deduced at run-time.
STACK_DIRECTION > 0 => grows toward higher addresses
STACK_DIRECTION < 0 => grows toward lower addresses
STACK_DIRECTION = 0 => direction of growth unknown
*/
/* #undef STACK_DIRECTION */
/* Define if you have the ANSI C header files. */
#define STDC_HEADERS 1
/*
* Define the PACKAGE and VERSION only if they are undefined. This means
* that we do not redefine them, when the library is used in another
* GNU like package that defines PACKAGE and VERSION.
*/
/* Package name. */
#ifndef PACKAGE
#define PACKAGE "js"
#endif /* no PACKAGE */
/* Version number. */
#ifndef VERSION
#define VERSION "0.2.5"
#endif /* no VERSION */
/* Are C prototypes supported. */
#define PROTOTYPES 1
/* Canonical host name and its parts. */
#define CANONICAL_HOST "i686-pc-linux-gnu"
#define CANONICAL_HOST_CPU "i686"
#define CANONICAL_HOST_VENDOR "pc"
#define CANONICAL_HOST_OS "linux-gnu"
/* Do we want to build all instruction dispatchers? */
/* #undef ALL_DISPATCHERS */
/* Do we want to profile byte-code operands. */
/* #undef PROFILING */
/* Do we want the byte-code operand hooks. */
/* #undef BC_OPERAND_HOOKS */
/*
* Unconditionall disable the jumps byte-code instruction dispatch
* method.
*/
/* #undef DISABLE_JUMPS */
/* Does the struct stat has st_blksize member? */
#define HAVE_STAT_ST_ST_BLKSIZE 1
/* Does the struct stat has st_blocks member? */
#define HAVE_STAT_ST_ST_BLOCKS 1
/* Does the asctime_r() function take three arguments. */
/* #undef ASCTIME_R_WITH_THREE_ARGS */
/* Does the drand48_r() work with DRAND48D data. */
/* #undef DRAND48_R_WITH_DRAND48D */
/* How the attribute structures are passed to the init functions. */
/* #undef CONDATTR_BY_VALUE */
/* #undef MUTEXATTR_BY_VALUE */
/* #undef THREADATTR_BY_VALUE */
/* JS */
#define WITH_JS 1
/* Curses. */
/* #undef WITH_CURSES */
/* #undef HAVE_CURSES_H */
/* #undef HAVE_NCURSES_H */
/* MD5 */
#define WITH_MD5 1
/* The number of bytes in a int. */
#define SIZEOF_INT 4
/* The number of bytes in a long. */
#define SIZEOF_LONG 4
/* Define if you have the drand48 function. */
#define HAVE_DRAND48 1
/* Define if you have the lstat function. */
#define HAVE_LSTAT 1
/* Define if you have the pthread_attr_create function. */
/* #undef HAVE_PTHREAD_ATTR_CREATE */
/* Define if you have the pthread_attr_setscope function. */
/* #undef HAVE_PTHREAD_ATTR_SETSCOPE */
/* Define if you have the pthread_attr_setstacksize function. */
/* #undef HAVE_PTHREAD_ATTR_SETSTACKSIZE */
/* Define if you have the pthread_condattr_create function. */
/* #undef HAVE_PTHREAD_CONDATTR_CREATE */
/* Define if you have the pthread_condattr_init function. */
/* #undef HAVE_PTHREAD_CONDATTR_INIT */
/* Define if you have the pthread_mutexattr_create function. */
/* #undef HAVE_PTHREAD_MUTEXATTR_CREATE */
/* Define if you have the sleep function. */
#define HAVE_SLEEP 1
/* Define if you have the srand48 function. */
#define HAVE_SRAND48 1
/* Define if you have the usleep function. */
#define HAVE_USLEEP 1
/* Define if you have the <dlfcn.h> header file. */
#define HAVE_DLFCN_H 1
/* Define if you have the <errno.h> header file. */
#define HAVE_ERRNO_H 1
/* Define if you have the <float.h> header file. */
#define HAVE_FLOAT_H 1
/* Define if you have the <limits.h> header file. */
#define HAVE_LIMITS_H 1
/* Define if you have the <stdlib.h> header file. */
#define HAVE_STDLIB_H 1
/* Define if you have the <string.h> header file. */
#define HAVE_STRING_H 1
/* Define if you have the <unistd.h> header file. */
#define HAVE_UNISTD_H 1
#include "ddk/ntddk.h"
#include "ntos/rtl.h"
/* #include "assert.h" */
#ifndef __TYPE_UINT64
typedef unsigned __int64 __uint64;
#define __TYPE_UINT64
#endif/*__TYPE_UINT64*/
extern void __kernel_abort();
#define abort(x) __kernel_abort()
#define HUGE_VAL (__uint64)(-1LL)
#ifndef SETJMP_DEF
#define SETJMP_DEF
typedef struct _jmpbuf_kernel {
int words[8];
} jmp_buf[1];
#endif/*SETJMP_DEF*/
int setjmp( jmp_buf j );
void longjmp( jmp_buf env, int val );

1783
reactos/lib/kjs/include/jsint.h Normal file
View file

File diff suppressed because it is too large Load diff

24
reactos/lib/kjs/include/kjs.h Normal file
View file

@ -0,0 +1,24 @@
#ifndef KJS_H
#define KJS_H
#include "jsint.h"
#include "js.h"
#include "kjs_structs.h"
typedef struct system_ctx_st SystemCtx;
typedef struct _KJS {
JSInterpPtr interp;
JSVirtualMachine *vm;
SystemCtx *ctx;
} KJS, *PKJS;
extern PKJS kjs_create_interp( VOID *Reserved );
extern VOID kjs_destroy_interp( PKJS kjs );
extern VOID kjs_eval( PKJS js_interp, PCHAR commands );
extern VOID kjs_system_register( PKJS js_interp, PCHAR method, PVOID context,
PKJS_METHOD function );
extern VOID kjs_system_unregister( PKJS js_interp, PVOID context,
PKJS_METHOD function );
#endif/*KJS_H*/

44
reactos/lib/kjs/include/kjs_structs.h Normal file
View file

@ -0,0 +1,44 @@
#ifndef KJS_STRUCTS_H
#define KJS_STRUCTS_H
struct _KJS;
struct js_node_st;
typedef int (*PKJS_METHOD)( void *context,
struct js_node_st *js_node, struct js_node_st *result );
typedef struct _JSSymbolList {
JSSymbol symbol;
PKJS_METHOD registered_function;
struct _JSSymbolList *next;
PVOID context;
} JSSymbolList;
struct system_ctx_st
{
JSSymbol s_print;
JSSymbol s_mread;
JSSymbol s_mwrite;
JSSymbol s_reg;
JSSymbol s_regdir;
JSSymbolList *registered_symbols;
JSSymbol s_bits;
JSSymbol s_canonicalHost;
JSSymbol s_canonicalHostCPU;
JSSymbol s_canonicalHostVendor;
JSSymbol s_canonicalHostOS;
JSSymbol s_errno;
JSSymbol s_lineBreakSequence;
JSSymbol s_stderr;
JSSymbol s_stdin;
JSSymbol s_stdout;
/* System file handles. */
JSNode pstderr;
JSNode pstdin;
JSNode pstdout;
};
#endif/*KJS_STRUCTS_H*/

35
reactos/lib/kjs/jsas/ChangeLog Normal file
View file

@ -0,0 +1,35 @@
1998-12-17 Markku Rossi <mtr@amme.ssh.fi>
* process.js (process_file): Added support for integer constants.
(const_string): Fixed a typo from the backslash handing.
1998-10-28 Markku Rossi <mtr@purple.ngs.fi>
* process.js (process_file): Use the operand flags instead of
using the hardcoded operand names.
* extract-operands.js (main): Fixed to obey the flag comments of
the operands.def file.
1998-10-14 Markku Rossi <mtr@purple.ngs.fi>
* main.js (main): Fixed to create the output file name from the
input file names.
* process.js (process_file): Initial support for string
constants.
* main.js: Implemented -g, -O, and -v options.
1998-10-13 Markku Rossi <mtr@purple.ngs.fi>
* extract-operands.js: Extract byte-code operand information from
the `src/operands.def' file, and create the operands.js file.
1998-10-12 Markku Rossi <mtr@purple.ngs.fi>
* process.js: New file to handle the assembler file processing.
1998-06-25 Markku Rossi <mtr@ngs.fi>
* Created the assembler project.

244
reactos/lib/kjs/jsas/Makefile Normal file
View file

@ -0,0 +1,244 @@
# Generated automatically from Makefile.in by configure.
# Makefile.in generated automatically by automake 1.3 from Makefile.am
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Automakefile for JavaScript assembler.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
SHELL = /bin/sh
srcdir = .
top_srcdir = ..
prefix = /usr/local/js-0.2.5
exec_prefix = ${prefix}
bindir = ${exec_prefix}/bin
sbindir = ${exec_prefix}/sbin
libexecdir = ${exec_prefix}/libexec
datadir = ${prefix}/share
sysconfdir = ${prefix}/etc
sharedstatedir = ${prefix}/com
localstatedir = ${prefix}/var
libdir = ${exec_prefix}/lib
infodir = ${prefix}/info
mandir = ${prefix}/man
includedir = ${prefix}/include
oldincludedir = /usr/include
DISTDIR =
pkgdatadir = $(datadir)/js
pkglibdir = $(libdir)/js
pkgincludedir = $(includedir)/js
top_builddir = ..
ACLOCAL = aclocal
AUTOCONF = autoconf
AUTOMAKE = automake
AUTOHEADER = autoheader
INSTALL = /usr/bin/install -c
INSTALL_PROGRAM = ${INSTALL}
INSTALL_DATA = ${INSTALL} -m 644
INSTALL_SCRIPT = ${INSTALL_PROGRAM}
transform = s,x,x,
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
host_alias = i686-pc-linux-gnu
host_triplet = i686-pc-linux-gnu
ACLOCAL_FLAGS_FOR_LIBTOOL =
CC = gcc
CPP = gcc -E
EXTENSIONS = dl_open.lo xjs.lo xmd5.lo md5c.lo
EXTENSIONS_LIBS = -ldl
INTERPRETER_FEATURES = r_std.lo
LD = /usr/bin/ld
LIBTOOL = $(SHELL) $(top_builddir)/libtool
LN_S = ln -s
MAKEINFO = makeinfo
NM = /usr/bin/nm -B
PACKAGE = js
PGCC_BY_PROVENZANO =
RANLIB = ranlib
U =
VERSION = 0.2.5
XLC_R_AIX =
JSCOMPILER = ../src/js
JSCOMPILER_FLAGS = -g -Wpedantic -O2
JSS = process.js operands.js main.js
JSCS = process.jsc operands.jsc main.jsc
EXTRA_DIST = $(JSS)
bin_SCRIPTS = jsas
CLEANFILES = jsas $(JSCS)
SUFFIXES = .jsc .js
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = ../jsconfig.h
CONFIG_CLEAN_FILES =
SCRIPTS = $(bin_SCRIPTS)
DIST_COMMON = ChangeLog Makefile.am Makefile.in
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
TAR = tar
GZIP = --best
all: Makefile $(SCRIPTS)
.SUFFIXES:
.SUFFIXES: .js .jsc
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps jsas/Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
install-binSCRIPTS: $(bin_SCRIPTS)
@$(NORMAL_INSTALL)
$(mkinstalldirs) $(DESTDIR)$(bindir)
@list='$(bin_SCRIPTS)'; for p in $$list; do \
if test -f $$p; then \
echo " $(INSTALL_SCRIPT) $$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`"; \
$(INSTALL_SCRIPT) $$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
else if test -f $(srcdir)/$$p; then \
echo " $(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`"; \
$(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
else :; fi; fi; \
done
uninstall-binSCRIPTS:
@$(NORMAL_UNINSTALL)
list='$(bin_SCRIPTS)'; for p in $$list; do \
rm -f $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
done
tags: TAGS
TAGS:
distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
subdir = jsas
distdir: $(DISTFILES)
@for file in $(DISTFILES); do \
d=$(srcdir); \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done
info:
dvi:
check: all
$(MAKE)
installcheck:
install-exec: install-binSCRIPTS
@$(NORMAL_INSTALL)
install-data:
@$(NORMAL_INSTALL)
install: install-exec install-data all
@:
uninstall: uninstall-binSCRIPTS
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs:
$(mkinstalldirs) $(DATADIR)$(bindir)
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-rm -f Makefile $(DISTCLEANFILES)
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
maintainer-clean-generic:
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
mostlyclean: mostlyclean-generic
clean: clean-generic mostlyclean
distclean: distclean-generic clean
-rm -f config.status
-rm -f libtool
maintainer-clean: maintainer-clean-generic distclean
@echo "This command is intended for maintainers to use;"
@echo "it deletes files that may require special tools to rebuild."
.PHONY: uninstall-binSCRIPTS install-binSCRIPTS tags distdir info dvi \
installcheck install-exec install-data install uninstall all \
installdirs mostlyclean-generic distclean-generic clean-generic \
maintainer-clean-generic clean mostlyclean distclean maintainer-clean
compile: $(JSCS)
jsas: $(JSS)
rm -f $@.js
for i in $(JSS); do cat $(srcdir)/$$i >> $@.js; done
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $@.js
echo "#!$(bindir)/js --file" > $@
# echo "#!$(JSCOMPILER) --file" > $@
cat $@.jsc >> $@
chmod a+x $@
.js.jsc:
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $<
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

51
reactos/lib/kjs/jsas/Makefile.am Normal file
View file

@ -0,0 +1,51 @@
#
# Automakefile for JavaScript assembler.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
JSCOMPILER = ../src/js
JSCOMPILER_FLAGS = -g -Wpedantic -O2
JSS = process.js operands.js main.js
JSCS = process.jsc operands.jsc main.jsc
EXTRA_DIST = $(JSS)
bin_SCRIPTS = jsas
compile: $(JSCS)
jsas: $(JSS)
rm -f $@.js
for i in $(JSS); do cat $(srcdir)/$$i >> $@.js; done
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $@.js
echo "#!$(bindir)/js --file" > $@
# echo "#!$(JSCOMPILER) --file" > $@
cat $@.jsc >> $@
chmod a+x $@
CLEANFILES = jsas $(JSCS)
SUFFIXES = .jsc .js
.js.jsc:
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $<

244
reactos/lib/kjs/jsas/Makefile.in Normal file
View file

@ -0,0 +1,244 @@
# Makefile.in generated automatically by automake 1.3 from Makefile.am
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Automakefile for JavaScript assembler.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
SHELL = /bin/sh
srcdir = @srcdir@
top_srcdir = @top_srcdir@
VPATH = @srcdir@
prefix = @prefix@
exec_prefix = @exec_prefix@
bindir = @bindir@
sbindir = @sbindir@
libexecdir = @libexecdir@
datadir = @datadir@
sysconfdir = @sysconfdir@
sharedstatedir = @sharedstatedir@
localstatedir = @localstatedir@
libdir = @libdir@
infodir = @infodir@
mandir = @mandir@
includedir = @includedir@
oldincludedir = /usr/include
DISTDIR =
pkgdatadir = $(datadir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
top_builddir = ..
ACLOCAL = @ACLOCAL@
AUTOCONF = @AUTOCONF@
AUTOMAKE = @AUTOMAKE@
AUTOHEADER = @AUTOHEADER@
INSTALL = @INSTALL@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
transform = @program_transform_name@
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
host_alias = @host_alias@
host_triplet = @host@
ACLOCAL_FLAGS_FOR_LIBTOOL = @ACLOCAL_FLAGS_FOR_LIBTOOL@
CC = @CC@
CPP = @CPP@
EXTENSIONS = @EXTENSIONS@
EXTENSIONS_LIBS = @EXTENSIONS_LIBS@
INTERPRETER_FEATURES = @INTERPRETER_FEATURES@
LD = @LD@
LIBTOOL = @LIBTOOL@
LN_S = @LN_S@
MAKEINFO = @MAKEINFO@
NM = @NM@
PACKAGE = @PACKAGE@
PGCC_BY_PROVENZANO = @PGCC_BY_PROVENZANO@
RANLIB = @RANLIB@
U = @U@
VERSION = @VERSION@
XLC_R_AIX = @XLC_R_AIX@
JSCOMPILER = ../src/js
JSCOMPILER_FLAGS = -g -Wpedantic -O2
JSS = process.js operands.js main.js
JSCS = process.jsc operands.jsc main.jsc
EXTRA_DIST = $(JSS)
bin_SCRIPTS = jsas
CLEANFILES = jsas $(JSCS)
SUFFIXES = .jsc .js
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = ../jsconfig.h
CONFIG_CLEAN_FILES =
SCRIPTS = $(bin_SCRIPTS)
DIST_COMMON = ChangeLog Makefile.am Makefile.in
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
TAR = tar
GZIP = --best
all: Makefile $(SCRIPTS)
.SUFFIXES:
.SUFFIXES: .js .jsc
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps jsas/Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
install-binSCRIPTS: $(bin_SCRIPTS)
@$(NORMAL_INSTALL)
$(mkinstalldirs) $(DESTDIR)$(bindir)
@list='$(bin_SCRIPTS)'; for p in $$list; do \
if test -f $$p; then \
echo " $(INSTALL_SCRIPT) $$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`"; \
$(INSTALL_SCRIPT) $$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
else if test -f $(srcdir)/$$p; then \
echo " $(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`"; \
$(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
else :; fi; fi; \
done
uninstall-binSCRIPTS:
@$(NORMAL_UNINSTALL)
list='$(bin_SCRIPTS)'; for p in $$list; do \
rm -f $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
done
tags: TAGS
TAGS:
distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
subdir = jsas
distdir: $(DISTFILES)
@for file in $(DISTFILES); do \
d=$(srcdir); \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done
info:
dvi:
check: all
$(MAKE)
installcheck:
install-exec: install-binSCRIPTS
@$(NORMAL_INSTALL)
install-data:
@$(NORMAL_INSTALL)
install: install-exec install-data all
@:
uninstall: uninstall-binSCRIPTS
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs:
$(mkinstalldirs) $(DATADIR)$(bindir)
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-rm -f Makefile $(DISTCLEANFILES)
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
maintainer-clean-generic:
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
mostlyclean: mostlyclean-generic
clean: clean-generic mostlyclean
distclean: distclean-generic clean
-rm -f config.status
-rm -f libtool
maintainer-clean: maintainer-clean-generic distclean
@echo "This command is intended for maintainers to use;"
@echo "it deletes files that may require special tools to rebuild."
.PHONY: uninstall-binSCRIPTS install-binSCRIPTS tags distdir info dvi \
installcheck install-exec install-data install uninstall all \
installdirs mostlyclean-generic distclean-generic clean-generic \
maintainer-clean-generic clean mostlyclean distclean maintainer-clean
compile: $(JSCS)
jsas: $(JSS)
rm -f $@.js
for i in $(JSS); do cat $(srcdir)/$$i >> $@.js; done
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $@.js
echo "#!$(bindir)/js --file" > $@
# echo "#!$(JSCOMPILER) --file" > $@
cat $@.jsc >> $@
chmod a+x $@
.js.jsc:
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $<
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

980
reactos/lib/kjs/jsas/jsas.js Normal file
View file

@ -0,0 +1,980 @@
/*
* Process assembler file.
* Copyright (c) 1998 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/jsas/jsas.js,v $
* $Id: jsas.js,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
function process_file (name)
{
var fp = new File (name);
var labels = new Object ();
var label_waits = new Object ();
var op;
if (fp.open ("r"))
{
var linenum = 0;
while (!fp.eof ())
{
var line = fp.readln ();
linenum++;
/* Remove comments. */
line = line.replace (/;.*$/, "");
/* Extract the labels and symbols. */
if (/^([^ \t\n]+):(.*)$/.exec (line))
{
var label = RegExp.$1;
line = RegExp.$2;
if (/^\.[^ ]+$/.test (label) && label != ".global")
{
/* It is a label. */
if (labels[label])
{
System.stderr.writeln (name + ":" + linenum.toString ()
+ ": label `" + label +
"' is already defined");
System.stderr.writeln (name + ":"
+ (labels[label].linenum
.toString ())
+ ": this is the place of the "
+ "previous definition");
System.exit (1);
}
labels[label] = new JSC$ASM_label ();
labels[label].linenum = linenum;
labels[label].link ();
}
else
{
/* It is a symbol. */
new JSC$ASM_symbol (linenum, label).link ();
}
}
/* Skip empty lines. */
if (/^[ \n\t]*$/.test (line))
continue;
if (!/^[ \n\t]*([^ \n\t]+)[ \n\t]*(.*)[ \n\t]*$/.exec (line))
{
System.stderr.writeln (name + ":" + linenum.toString ()
+ ": syntax error");
System.exit (1);
}
var operand = RegExp.$1;
var argument = RegExp.$2;
/* Check that this is a known operand. */
if (typeof argument_sizes[operand] == "undefined")
{
System.stderr.writeln (name + ":" + linenum.toString ()
+ ": unknown operand `" + operand
+ "'");
System.exit (1);
}
if ((operand_flags[operand] & 0x02) != 0)
{
/* The branch operands. */
if (argument.length == 0)
{
System.stderr.writeln (name + ":" + linenum.toString ()
+ ": branch operand requires a "
+ " label argument");
System.exit (1);
}
if (!label_waits[argument])
label_waits[argument] = new Array ();
op = give_operand (operand, linenum);
label_waits[argument].push (op);
op.link ();
}
else if ((operand_flags[operand] & 0x01) != 0)
{
/* The symbol operands. */
if (!/^[A-Za-z_$][A-Za-z_$0-9]*$/.test (argument))
{
System.stderr.writeln (name + ":" + linenum.toString ()
+ ": operand `" + operand
+ "' requires a symbol argument");
System.exit (1);
}
op = give_operand (operand, linenum);
op.link ();
op.value = argument;
}
else if (operand == "const")
{
var value;
if (/^\"(.*)\"$/.test (argument))
value = const_string (RegExp.$1);
else if (/^[0-9]+$/.test (argument))
value = parseInt(argument);
else
{
System.stderr.writeln (name + ":" + linenum.toString ()
+ ": malformed argument `"
+ argument + "' for operand `"
+ operand + "'");
System.exit (1);
}
op = give_operand (operand, linenum);
op.link ();
op.value = value;
}
else
{
if (argument_sizes[operand] == 0)
{
/* Simple operands without arugments. */
if (argument.length != 0)
{
System.stderr.writeln (name + ":" + linenum.toString ()
+ ": operand `" + operand
+ "' doesn't take argument");
System.exit (1);
}
give_operand (operand, linenum).link ();
}
else
{
/* Simple operands with integer arguments. */
if (!/^[-+]?[0-9]+$/.test (argument))
{
System.stderr.writeln (name + ":" + linenum.toString ()
+ ": operand `" + operand
+ "' requires an integer "
+ "argument");
System.exit (1);
}
op = give_operand (operand, linenum);
op.link ();
op.value = parseInt (argument);
}
}
}
fp.close ();
/* Patch labels to branch operands. */
for (var label in label_waits)
for (op in label_waits[label])
{
if (!labels[label])
{
System.stderr.writeln (name + ":" + op.linenum.toString ()
+ ": undefined label `" + label + "'");
System.exit (1);
}
op.value = labels[label];
}
}
else
{
System.stderr.writeln (program + ": couldn't open input file `"
+ name + "': " + System.strerror (System.errno));
System.exit (1);
}
}
function const_string (source)
{
var str = new String ("");
var i;
for (i = 0; i < source.length; i++)
{
switch (source[i])
{
case #'\\':
if (i + 1 > source.length)
str.append ("\\");
else
{
i++;
var ch;
switch (source[i])
{
case #'n':
ch = "\n";
break;
case #'t':
ch = "\t";
break;
case #'v':
ch = "\v";
break;
case #'b':
ch = "\b";
break;
case #'r':
ch = "\r";
break;
case #'f':
ch = "\f";
break;
case #'a':
ch = "\a";
break;
case #'\\':
ch = "\\";
break;
case #'?':
ch = "?";
break;
case #'\'':
ch = "'";
break;
case #'"':
ch = "\"";
break;
default:
ch = File.byteToString (source[i]);
break;
}
str.append (ch);
}
break;
default:
str.append (File.byteToString (source[i]));
break;
}
}
return str;
}
/*
Local variables:
mode: c
End:
*/
/* -*- c -*-
* Operand definitions for the JavaScript byte-code.
*
* This file is automatically create from the operands.def file.
* Editing is strongly discouraged. You should edit the file
* `extract-operands.js' instead.
*/
argument_sizes = new Object ();
operand_flags = new Object ();
function give_operand (name, ln)
{
switch (name)
{
case "halt":
return new JSC$ASM_halt (ln);
break;
case "done":
return new JSC$ASM_done (ln);
break;
case "nop":
return new JSC$ASM_nop (ln);
break;
case "dup":
return new JSC$ASM_dup (ln);
break;
case "pop":
return new JSC$ASM_pop (ln);
break;
case "pop_n":
return new JSC$ASM_pop_n (ln);
break;
case "apop":
return new JSC$ASM_apop (ln);
break;
case "swap":
return new JSC$ASM_swap (ln);
break;
case "roll":
return new JSC$ASM_roll (ln);
break;
case "const":
return new JSC$ASM_const (ln);
break;
case "const_null":
return new JSC$ASM_const_null (ln);
break;
case "const_true":
return new JSC$ASM_const_true (ln);
break;
case "const_false":
return new JSC$ASM_const_false (ln);
break;
case "const_undefined":
return new JSC$ASM_const_undefined (ln);
break;
case "const_i0":
return new JSC$ASM_const_i0 (ln);
break;
case "const_i1":
return new JSC$ASM_const_i1 (ln);
break;
case "const_i2":
return new JSC$ASM_const_i2 (ln);
break;
case "const_i3":
return new JSC$ASM_const_i3 (ln);
break;
case "const_i":
return new JSC$ASM_const_i (ln);
break;
case "load_global":
return new JSC$ASM_load_global (ln);
break;
case "store_global":
return new JSC$ASM_store_global (ln);
break;
case "load_arg":
return new JSC$ASM_load_arg (ln);
break;
case "store_arg":
return new JSC$ASM_store_arg (ln);
break;
case "load_local":
return new JSC$ASM_load_local (ln);
break;
case "store_local":
return new JSC$ASM_store_local (ln);
break;
case "load_property":
return new JSC$ASM_load_property (ln);
break;
case "store_property":
return new JSC$ASM_store_property (ln);
break;
case "load_array":
return new JSC$ASM_load_array (ln);
break;
case "store_array":
return new JSC$ASM_store_array (ln);
break;
case "nth":
return new JSC$ASM_nth (ln);
break;
case "cmp_eq":
return new JSC$ASM_cmp_eq (ln);
break;
case "cmp_ne":
return new JSC$ASM_cmp_ne (ln);
break;
case "cmp_lt":
return new JSC$ASM_cmp_lt (ln);
break;
case "cmp_gt":
return new JSC$ASM_cmp_gt (ln);
break;
case "cmp_le":
return new JSC$ASM_cmp_le (ln);
break;
case "cmp_ge":
return new JSC$ASM_cmp_ge (ln);
break;
case "cmp_seq":
return new JSC$ASM_cmp_seq (ln);
break;
case "cmp_sne":
return new JSC$ASM_cmp_sne (ln);
break;
case "sub":
return new JSC$ASM_sub (ln);
break;
case "add":
return new JSC$ASM_add (ln);
break;
case "mul":
return new JSC$ASM_mul (ln);
break;
case "div":
return new JSC$ASM_div (ln);
break;
case "mod":
return new JSC$ASM_mod (ln);
break;
case "neg":
return new JSC$ASM_neg (ln);
break;
case "and":
return new JSC$ASM_and (ln);
break;
case "not":
return new JSC$ASM_not (ln);
break;
case "or":
return new JSC$ASM_or (ln);
break;
case "xor":
return new JSC$ASM_xor (ln);
break;
case "shift_left":
return new JSC$ASM_shift_left (ln);
break;
case "shift_right":
return new JSC$ASM_shift_right (ln);
break;
case "shift_rright":
return new JSC$ASM_shift_rright (ln);
break;
case "iffalse":
return new JSC$ASM_iffalse (ln);
break;
case "iftrue":
return new JSC$ASM_iftrue (ln);
break;
case "call_method":
return new JSC$ASM_call_method (ln);
break;
case "jmp":
return new JSC$ASM_jmp (ln);
break;
case "jsr":
return new JSC$ASM_jsr (ln);
break;
case "return":
return new JSC$ASM_return (ln);
break;
case "typeof":
return new JSC$ASM_typeof (ln);
break;
case "new":
return new JSC$ASM_new (ln);
break;
case "delete_property":
return new JSC$ASM_delete_property (ln);
break;
case "delete_array":
return new JSC$ASM_delete_array (ln);
break;
case "locals":
return new JSC$ASM_locals (ln);
break;
case "min_args":
return new JSC$ASM_min_args (ln);
break;
case "load_nth_arg":
return new JSC$ASM_load_nth_arg (ln);
break;
case "with_push":
return new JSC$ASM_with_push (ln);
break;
case "with_pop":
return new JSC$ASM_with_pop (ln);
break;
case "try_push":
return new JSC$ASM_try_push (ln);
break;
case "try_pop":
return new JSC$ASM_try_pop (ln);
break;
case "throw":
return new JSC$ASM_throw (ln);
break;
case "iffalse_b":
return new JSC$ASM_iffalse_b (ln);
break;
case "iftrue_b":
return new JSC$ASM_iftrue_b (ln);
break;
case "add_1_i":
return new JSC$ASM_add_1_i (ln);
break;
case "add_2_i":
return new JSC$ASM_add_2_i (ln);
break;
case "load_global_w":
return new JSC$ASM_load_global_w (ln);
break;
case "jsr_w":
return new JSC$ASM_jsr_w (ln);
break;
default:
System.stderr.writeln (program + ":" + ln.toString ()
+ ": unknown operand `" + name + "'");
break;
}
}
argument_sizes["halt"] = 0;
operand_flags["halt"] = 0x0;
argument_sizes["done"] = 0;
operand_flags["done"] = 0x0;
argument_sizes["nop"] = 0;
operand_flags["nop"] = 0x0;
argument_sizes["dup"] = 0;
operand_flags["dup"] = 0x0;
argument_sizes["pop"] = 0;
operand_flags["pop"] = 0x0;
argument_sizes["pop_n"] = 1;
operand_flags["pop_n"] = 0x0;
argument_sizes["apop"] = 1;
operand_flags["apop"] = 0x0;
argument_sizes["swap"] = 0;
operand_flags["swap"] = 0x0;
argument_sizes["roll"] = 1;
operand_flags["roll"] = 0x0;
argument_sizes["const"] = 4;
operand_flags["const"] = 0x0;
argument_sizes["const_null"] = 0;
operand_flags["const_null"] = 0x0;
argument_sizes["const_true"] = 0;
operand_flags["const_true"] = 0x0;
argument_sizes["const_false"] = 0;
operand_flags["const_false"] = 0x0;
argument_sizes["const_undefined"] = 0;
operand_flags["const_undefined"] = 0x0;
argument_sizes["const_i0"] = 0;
operand_flags["const_i0"] = 0x0;
argument_sizes["const_i1"] = 0;
operand_flags["const_i1"] = 0x0;
argument_sizes["const_i2"] = 0;
operand_flags["const_i2"] = 0x0;
argument_sizes["const_i3"] = 0;
operand_flags["const_i3"] = 0x0;
argument_sizes["const_i"] = 4;
operand_flags["const_i"] = 0x0;
argument_sizes["load_global"] = 4;
operand_flags["load_global"] = 0x1;
argument_sizes["store_global"] = 4;
operand_flags["store_global"] = 0x1;
argument_sizes["load_arg"] = 1;
operand_flags["load_arg"] = 0x0;
argument_sizes["store_arg"] = 1;
operand_flags["store_arg"] = 0x0;
argument_sizes["load_local"] = 2;
operand_flags["load_local"] = 0x0;
argument_sizes["store_local"] = 2;
operand_flags["store_local"] = 0x0;
argument_sizes["load_property"] = 4;
operand_flags["load_property"] = 0x1;
argument_sizes["store_property"] = 4;
operand_flags["store_property"] = 0x1;
argument_sizes["load_array"] = 0;
operand_flags["load_array"] = 0x0;
argument_sizes["store_array"] = 0;
operand_flags["store_array"] = 0x0;
argument_sizes["nth"] = 0;
operand_flags["nth"] = 0x0;
argument_sizes["cmp_eq"] = 0;
operand_flags["cmp_eq"] = 0x0;
argument_sizes["cmp_ne"] = 0;
operand_flags["cmp_ne"] = 0x0;
argument_sizes["cmp_lt"] = 0;
operand_flags["cmp_lt"] = 0x0;
argument_sizes["cmp_gt"] = 0;
operand_flags["cmp_gt"] = 0x0;
argument_sizes["cmp_le"] = 0;
operand_flags["cmp_le"] = 0x0;
argument_sizes["cmp_ge"] = 0;
operand_flags["cmp_ge"] = 0x0;
argument_sizes["cmp_seq"] = 0;
operand_flags["cmp_seq"] = 0x0;
argument_sizes["cmp_sne"] = 0;
operand_flags["cmp_sne"] = 0x0;
argument_sizes["sub"] = 0;
operand_flags["sub"] = 0x0;
argument_sizes["add"] = 0;
operand_flags["add"] = 0x0;
argument_sizes["mul"] = 0;
operand_flags["mul"] = 0x0;
argument_sizes["div"] = 0;
operand_flags["div"] = 0x0;
argument_sizes["mod"] = 0;
operand_flags["mod"] = 0x0;
argument_sizes["neg"] = 0;
operand_flags["neg"] = 0x0;
argument_sizes["and"] = 0;
operand_flags["and"] = 0x0;
argument_sizes["not"] = 0;
operand_flags["not"] = 0x0;
argument_sizes["or"] = 0;
operand_flags["or"] = 0x0;
argument_sizes["xor"] = 0;
operand_flags["xor"] = 0x0;
argument_sizes["shift_left"] = 0;
operand_flags["shift_left"] = 0x0;
argument_sizes["shift_right"] = 0;
operand_flags["shift_right"] = 0x0;
argument_sizes["shift_rright"] = 0;
operand_flags["shift_rright"] = 0x0;
argument_sizes["iffalse"] = 4;
operand_flags["iffalse"] = 0x2;
argument_sizes["iftrue"] = 4;
operand_flags["iftrue"] = 0x2;
argument_sizes["call_method"] = 4;
operand_flags["call_method"] = 0x1;
argument_sizes["jmp"] = 4;
operand_flags["jmp"] = 0x2;
argument_sizes["jsr"] = 0;
operand_flags["jsr"] = 0x0;
argument_sizes["return"] = 0;
operand_flags["return"] = 0x0;
argument_sizes["typeof"] = 0;
operand_flags["typeof"] = 0x0;
argument_sizes["new"] = 0;
operand_flags["new"] = 0x0;
argument_sizes["delete_property"] = 4;
operand_flags["delete_property"] = 0x1;
argument_sizes["delete_array"] = 0;
operand_flags["delete_array"] = 0x0;
argument_sizes["locals"] = 2;
operand_flags["locals"] = 0x0;
argument_sizes["min_args"] = 1;
operand_flags["min_args"] = 0x0;
argument_sizes["load_nth_arg"] = 0;
operand_flags["load_nth_arg"] = 0x0;
argument_sizes["with_push"] = 0;
operand_flags["with_push"] = 0x0;
argument_sizes["with_pop"] = 1;
operand_flags["with_pop"] = 0x0;
argument_sizes["try_push"] = 4;
operand_flags["try_push"] = 0x2;
argument_sizes["try_pop"] = 1;
operand_flags["try_pop"] = 0x0;
argument_sizes["throw"] = 0;
operand_flags["throw"] = 0x0;
argument_sizes["iffalse_b"] = 4;
operand_flags["iffalse_b"] = 0x2;
argument_sizes["iftrue_b"] = 4;
operand_flags["iftrue_b"] = 0x2;
argument_sizes["add_1_i"] = 0;
operand_flags["add_1_i"] = 0x0;
argument_sizes["add_2_i"] = 0;
operand_flags["add_2_i"] = 0x0;
argument_sizes["load_global_w"] = 4;
operand_flags["load_global_w"] = 0x1;
argument_sizes["jsr_w"] = 4;
operand_flags["jsr_w"] = 0x1;
/*
* Assembler for JavaScript assembler.
* Copyright (c) 1998 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/jsas/jsas.js,v $
* $Id: jsas.js,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
/*
* Variables and definitions.
*/
version_number = "0.0.1";
/*
* Options.
*/
/*
* -g, --debug
*
* Generate debugging information.
*/
opt_debug = false;
/*
* -h, --help
*
* Print short help and exit successfully.
*/
/*
* -O, --optimize
*
* Optimize the assembler.
*/
opt_optimize = false;
/*
* -v, --verbose
*
* Tell what we are doing.
*/
opt_verbose = false;
/*
* -V, --version
*
* Print version information and exit successfully.
*/
/*
* Functions.
*/
function main ()
{
var idx = ARGS[0].lastIndexOf ("/");
if (idx >= 0)
program = ARGS[0].substr (idx + 1);
else
program = ARGS[0];
/* Handle arguments. */
var i;
for (i = 1; i < ARGS.length; i++)
{
if (ARGS[i][0] == #'-')
{
if (ARGS[i] == "-g" || ARGS[i] == "--debug")
opt_debug = true;
else if (ARGS[i] == "-h" || ARGS[i] == "--help")
{
usage ();
System.exit (1);
}
else if (ARGS[i] == "-O" || ARGS[i] == "--optimize")
opt_optimize = true;
else if (ARGS[i] == "-v" || ARGS[i] == "--verbose")
opt_verbose = true;
else if (ARGS[i] == "-V" || ARGS[i] == "--version")
{
version ();
System.exit (0);
}
else
{
/* Unrecognized option. */
System.error (program, ": unrecognized option `",
ARGS[i], "'\n");
System.error ("Try `", program,
" --help' for more information.\n");
System.exit (1);
}
}
else
{
/* End of arguments. */
break;
}
}
if (i >= ARGS.length)
{
System.error (program, ": no files specified\n");
System.exit (1);
}
/* Options. */
JSC$verbose = opt_verbose;
JSC$generate_debug_info = opt_debug;
/* Process files. */
for (; i < ARGS.length; i++)
{
/* Reset the JSC's assembler package. */
JSC$asm_reset ();
/* Process the input file. */
JSC$filename = ARGS[i];
process_file (JSC$filename);
if (opt_optimize)
JSC$asm_optimize (JSC$FLAG_OPTIMIZE_MASK);
JSC$asm_finalize ();
var result = JSC$asm_bytecode ();
/* Create the output file name. */
var oname = ARGS[i].replace (/\.jas$/, ".jsc");
if (oname == ARGS[i])
oname += ".jsc";
var ostream = new File (oname);
if (ostream.open ("w"))
{
ostream.write (result);
ostream.close ();
}
else
{
System.stderr.writeln ("jsas: couldn't create bc file `"
+ oname + "': "
+ System.strerror (System.errno));
System.exit (1);
}
}
}
function usage ()
{
System.print ("\
Usage: ", program, " [OPTION]... FILE...\n\
Mandatory arguments to long options are mandatory for short options too.\n");
System.print ("\
-g, --debug generate debugging information\n\
-h, --help print this help and exit\n\
-O, --optimize optimize the assembler code\n\
-v, --verbose tell what the assembler is doing\n\
-V, --version print version number\n\
");
System.print ("\nReport bugs to mtr@ngs.fi.\n");
}
function version ()
{
System.print ("NGS JavaScript assembler ", version_number, "\n");
System.print ("\
Copyright (C) 1998 New Generation Software (NGS) Oy.\n\
NGS JavaScript Interpreter comes with NO WARRANTY, to the extent\n\
permitted by law. You may redistribute copies of NGS JavaScript\n\
Interpreter under the terms of the GNU Library General Public License.\n\
For more information about these matters, see the files named COPYING.\n\
");
}
main ();
/*
Local variables:
mode: c
End:
*/

212
reactos/lib/kjs/jsas/main.js Normal file
View file

@ -0,0 +1,212 @@
/*
* Assembler for JavaScript assembler.
* Copyright (c) 1998 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/jsas/main.js,v $
* $Id: main.js,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
/*
* Variables and definitions.
*/
version_number = "0.0.1";
/*
* Options.
*/
/*
* -g, --debug
*
* Generate debugging information.
*/
opt_debug = false;
/*
* -h, --help
*
* Print short help and exit successfully.
*/
/*
* -O, --optimize
*
* Optimize the assembler.
*/
opt_optimize = false;
/*
* -v, --verbose
*
* Tell what we are doing.
*/
opt_verbose = false;
/*
* -V, --version
*
* Print version information and exit successfully.
*/
/*
* Functions.
*/
function main ()
{
var idx = ARGS[0].lastIndexOf ("/");
if (idx >= 0)
program = ARGS[0].substr (idx + 1);
else
program = ARGS[0];
/* Handle arguments. */
var i;
for (i = 1; i < ARGS.length; i++)
{
if (ARGS[i][0] == #'-')
{
if (ARGS[i] == "-g" || ARGS[i] == "--debug")
opt_debug = true;
else if (ARGS[i] == "-h" || ARGS[i] == "--help")
{
usage ();
System.exit (1);
}
else if (ARGS[i] == "-O" || ARGS[i] == "--optimize")
opt_optimize = true;
else if (ARGS[i] == "-v" || ARGS[i] == "--verbose")
opt_verbose = true;
else if (ARGS[i] == "-V" || ARGS[i] == "--version")
{
version ();
System.exit (0);
}
else
{
/* Unrecognized option. */
System.error (program, ": unrecognized option `",
ARGS[i], "'\n");
System.error ("Try `", program,
" --help' for more information.\n");
System.exit (1);
}
}
else
{
/* End of arguments. */
break;
}
}
if (i >= ARGS.length)
{
System.error (program, ": no files specified\n");
System.exit (1);
}
/* Options. */
JSC$verbose = opt_verbose;
JSC$generate_debug_info = opt_debug;
/* Process files. */
for (; i < ARGS.length; i++)
{
/* Reset the JSC's assembler package. */
JSC$asm_reset ();
/* Process the input file. */
JSC$filename = ARGS[i];
process_file (JSC$filename);
if (opt_optimize)
JSC$asm_optimize (JSC$FLAG_OPTIMIZE_MASK);
JSC$asm_finalize ();
var result = JSC$asm_bytecode ();
/* Create the output file name. */
var oname = ARGS[i].replace (/\.jas$/, ".jsc");
if (oname == ARGS[i])
oname += ".jsc";
var ostream = new File (oname);
if (ostream.open ("w"))
{
ostream.write (result);
ostream.close ();
}
else
{
System.stderr.writeln ("jsas: couldn't create bc file `"
+ oname + "': "
+ System.strerror (System.errno));
System.exit (1);
}
}
}
function usage ()
{
System.print ("\
Usage: ", program, " [OPTION]... FILE...\n\
Mandatory arguments to long options are mandatory for short options too.\n");
System.print ("\
-g, --debug generate debugging information\n\
-h, --help print this help and exit\n\
-O, --optimize optimize the assembler code\n\
-v, --verbose tell what the assembler is doing\n\
-V, --version print version number\n\
");
System.print ("\nReport bugs to mtr@ngs.fi.\n");
}
function version ()
{
System.print ("NGS JavaScript assembler ", version_number, "\n");
System.print ("\
Copyright (C) 1998 New Generation Software (NGS) Oy.\n\
NGS JavaScript Interpreter comes with NO WARRANTY, to the extent\n\
permitted by law. You may redistribute copies of NGS JavaScript\n\
Interpreter under the terms of the GNU Library General Public License.\n\
For more information about these matters, see the files named COPYING.\n\
");
}
main ();
/*
Local variables:
mode: c
End:
*/

472
reactos/lib/kjs/jsas/operands.js Normal file
View file

@ -0,0 +1,472 @@
/* -*- c -*-
* Operand definitions for the JavaScript byte-code.
*
* This file is automatically create from the operands.def file.
* Editing is strongly discouraged. You should edit the file
* `extract-operands.js' instead.
*/
argument_sizes = new Object ();
operand_flags = new Object ();
function give_operand (name, ln)
{
switch (name)
{
case "halt":
return new JSC$ASM_halt (ln);
break;
case "done":
return new JSC$ASM_done (ln);
break;
case "nop":
return new JSC$ASM_nop (ln);
break;
case "dup":
return new JSC$ASM_dup (ln);
break;
case "pop":
return new JSC$ASM_pop (ln);
break;
case "pop_n":
return new JSC$ASM_pop_n (ln);
break;
case "apop":
return new JSC$ASM_apop (ln);
break;
case "swap":
return new JSC$ASM_swap (ln);
break;
case "roll":
return new JSC$ASM_roll (ln);
break;
case "const":
return new JSC$ASM_const (ln);
break;
case "const_null":
return new JSC$ASM_const_null (ln);
break;
case "const_true":
return new JSC$ASM_const_true (ln);
break;
case "const_false":
return new JSC$ASM_const_false (ln);
break;
case "const_undefined":
return new JSC$ASM_const_undefined (ln);
break;
case "const_i0":
return new JSC$ASM_const_i0 (ln);
break;
case "const_i1":
return new JSC$ASM_const_i1 (ln);
break;
case "const_i2":
return new JSC$ASM_const_i2 (ln);
break;
case "const_i3":
return new JSC$ASM_const_i3 (ln);
break;
case "const_i":
return new JSC$ASM_const_i (ln);
break;
case "load_global":
return new JSC$ASM_load_global (ln);
break;
case "store_global":
return new JSC$ASM_store_global (ln);
break;
case "load_arg":
return new JSC$ASM_load_arg (ln);
break;
case "store_arg":
return new JSC$ASM_store_arg (ln);
break;
case "load_local":
return new JSC$ASM_load_local (ln);
break;
case "store_local":
return new JSC$ASM_store_local (ln);
break;
case "load_property":
return new JSC$ASM_load_property (ln);
break;
case "store_property":
return new JSC$ASM_store_property (ln);
break;
case "load_array":
return new JSC$ASM_load_array (ln);
break;
case "store_array":
return new JSC$ASM_store_array (ln);
break;
case "nth":
return new JSC$ASM_nth (ln);
break;
case "cmp_eq":
return new JSC$ASM_cmp_eq (ln);
break;
case "cmp_ne":
return new JSC$ASM_cmp_ne (ln);
break;
case "cmp_lt":
return new JSC$ASM_cmp_lt (ln);
break;
case "cmp_gt":
return new JSC$ASM_cmp_gt (ln);
break;
case "cmp_le":
return new JSC$ASM_cmp_le (ln);
break;
case "cmp_ge":
return new JSC$ASM_cmp_ge (ln);
break;
case "cmp_seq":
return new JSC$ASM_cmp_seq (ln);
break;
case "cmp_sne":
return new JSC$ASM_cmp_sne (ln);
break;
case "sub":
return new JSC$ASM_sub (ln);
break;
case "add":
return new JSC$ASM_add (ln);
break;
case "mul":
return new JSC$ASM_mul (ln);
break;
case "div":
return new JSC$ASM_div (ln);
break;
case "mod":
return new JSC$ASM_mod (ln);
break;
case "neg":
return new JSC$ASM_neg (ln);
break;
case "and":
return new JSC$ASM_and (ln);
break;
case "not":
return new JSC$ASM_not (ln);
break;
case "or":
return new JSC$ASM_or (ln);
break;
case "xor":
return new JSC$ASM_xor (ln);
break;
case "shift_left":
return new JSC$ASM_shift_left (ln);
break;
case "shift_right":
return new JSC$ASM_shift_right (ln);
break;
case "shift_rright":
return new JSC$ASM_shift_rright (ln);
break;
case "iffalse":
return new JSC$ASM_iffalse (ln);
break;
case "iftrue":
return new JSC$ASM_iftrue (ln);
break;
case "call_method":
return new JSC$ASM_call_method (ln);
break;
case "jmp":
return new JSC$ASM_jmp (ln);
break;
case "jsr":
return new JSC$ASM_jsr (ln);
break;
case "return":
return new JSC$ASM_return (ln);
break;
case "typeof":
return new JSC$ASM_typeof (ln);
break;
case "new":
return new JSC$ASM_new (ln);
break;
case "delete_property":
return new JSC$ASM_delete_property (ln);
break;
case "delete_array":
return new JSC$ASM_delete_array (ln);
break;
case "locals":
return new JSC$ASM_locals (ln);
break;
case "min_args":
return new JSC$ASM_min_args (ln);
break;
case "load_nth_arg":
return new JSC$ASM_load_nth_arg (ln);
break;
case "with_push":
return new JSC$ASM_with_push (ln);
break;
case "with_pop":
return new JSC$ASM_with_pop (ln);
break;
case "try_push":
return new JSC$ASM_try_push (ln);
break;
case "try_pop":
return new JSC$ASM_try_pop (ln);
break;
case "throw":
return new JSC$ASM_throw (ln);
break;
case "iffalse_b":
return new JSC$ASM_iffalse_b (ln);
break;
case "iftrue_b":
return new JSC$ASM_iftrue_b (ln);
break;
case "add_1_i":
return new JSC$ASM_add_1_i (ln);
break;
case "add_2_i":
return new JSC$ASM_add_2_i (ln);
break;
case "load_global_w":
return new JSC$ASM_load_global_w (ln);
break;
case "jsr_w":
return new JSC$ASM_jsr_w (ln);
break;
default:
System.stderr.writeln (program + ":" + ln.toString ()
+ ": unknown operand `" + name + "'");
break;
}
}
argument_sizes["halt"] = 0;
operand_flags["halt"] = 0x0;
argument_sizes["done"] = 0;
operand_flags["done"] = 0x0;
argument_sizes["nop"] = 0;
operand_flags["nop"] = 0x0;
argument_sizes["dup"] = 0;
operand_flags["dup"] = 0x0;
argument_sizes["pop"] = 0;
operand_flags["pop"] = 0x0;
argument_sizes["pop_n"] = 1;
operand_flags["pop_n"] = 0x0;
argument_sizes["apop"] = 1;
operand_flags["apop"] = 0x0;
argument_sizes["swap"] = 0;
operand_flags["swap"] = 0x0;
argument_sizes["roll"] = 1;
operand_flags["roll"] = 0x0;
argument_sizes["const"] = 4;
operand_flags["const"] = 0x0;
argument_sizes["const_null"] = 0;
operand_flags["const_null"] = 0x0;
argument_sizes["const_true"] = 0;
operand_flags["const_true"] = 0x0;
argument_sizes["const_false"] = 0;
operand_flags["const_false"] = 0x0;
argument_sizes["const_undefined"] = 0;
operand_flags["const_undefined"] = 0x0;
argument_sizes["const_i0"] = 0;
operand_flags["const_i0"] = 0x0;
argument_sizes["const_i1"] = 0;
operand_flags["const_i1"] = 0x0;
argument_sizes["const_i2"] = 0;
operand_flags["const_i2"] = 0x0;
argument_sizes["const_i3"] = 0;
operand_flags["const_i3"] = 0x0;
argument_sizes["const_i"] = 4;
operand_flags["const_i"] = 0x0;
argument_sizes["load_global"] = 4;
operand_flags["load_global"] = 0x1;
argument_sizes["store_global"] = 4;
operand_flags["store_global"] = 0x1;
argument_sizes["load_arg"] = 1;
operand_flags["load_arg"] = 0x0;
argument_sizes["store_arg"] = 1;
operand_flags["store_arg"] = 0x0;
argument_sizes["load_local"] = 2;
operand_flags["load_local"] = 0x0;
argument_sizes["store_local"] = 2;
operand_flags["store_local"] = 0x0;
argument_sizes["load_property"] = 4;
operand_flags["load_property"] = 0x1;
argument_sizes["store_property"] = 4;
operand_flags["store_property"] = 0x1;
argument_sizes["load_array"] = 0;
operand_flags["load_array"] = 0x0;
argument_sizes["store_array"] = 0;
operand_flags["store_array"] = 0x0;
argument_sizes["nth"] = 0;
operand_flags["nth"] = 0x0;
argument_sizes["cmp_eq"] = 0;
operand_flags["cmp_eq"] = 0x0;
argument_sizes["cmp_ne"] = 0;
operand_flags["cmp_ne"] = 0x0;
argument_sizes["cmp_lt"] = 0;
operand_flags["cmp_lt"] = 0x0;
argument_sizes["cmp_gt"] = 0;
operand_flags["cmp_gt"] = 0x0;
argument_sizes["cmp_le"] = 0;
operand_flags["cmp_le"] = 0x0;
argument_sizes["cmp_ge"] = 0;
operand_flags["cmp_ge"] = 0x0;
argument_sizes["cmp_seq"] = 0;
operand_flags["cmp_seq"] = 0x0;
argument_sizes["cmp_sne"] = 0;
operand_flags["cmp_sne"] = 0x0;
argument_sizes["sub"] = 0;
operand_flags["sub"] = 0x0;
argument_sizes["add"] = 0;
operand_flags["add"] = 0x0;
argument_sizes["mul"] = 0;
operand_flags["mul"] = 0x0;
argument_sizes["div"] = 0;
operand_flags["div"] = 0x0;
argument_sizes["mod"] = 0;
operand_flags["mod"] = 0x0;
argument_sizes["neg"] = 0;
operand_flags["neg"] = 0x0;
argument_sizes["and"] = 0;
operand_flags["and"] = 0x0;
argument_sizes["not"] = 0;
operand_flags["not"] = 0x0;
argument_sizes["or"] = 0;
operand_flags["or"] = 0x0;
argument_sizes["xor"] = 0;
operand_flags["xor"] = 0x0;
argument_sizes["shift_left"] = 0;
operand_flags["shift_left"] = 0x0;
argument_sizes["shift_right"] = 0;
operand_flags["shift_right"] = 0x0;
argument_sizes["shift_rright"] = 0;
operand_flags["shift_rright"] = 0x0;
argument_sizes["iffalse"] = 4;
operand_flags["iffalse"] = 0x2;
argument_sizes["iftrue"] = 4;
operand_flags["iftrue"] = 0x2;
argument_sizes["call_method"] = 4;
operand_flags["call_method"] = 0x1;
argument_sizes["jmp"] = 4;
operand_flags["jmp"] = 0x2;
argument_sizes["jsr"] = 0;
operand_flags["jsr"] = 0x0;
argument_sizes["return"] = 0;
operand_flags["return"] = 0x0;
argument_sizes["typeof"] = 0;
operand_flags["typeof"] = 0x0;
argument_sizes["new"] = 0;
operand_flags["new"] = 0x0;
argument_sizes["delete_property"] = 4;
operand_flags["delete_property"] = 0x1;
argument_sizes["delete_array"] = 0;
operand_flags["delete_array"] = 0x0;
argument_sizes["locals"] = 2;
operand_flags["locals"] = 0x0;
argument_sizes["min_args"] = 1;
operand_flags["min_args"] = 0x0;
argument_sizes["load_nth_arg"] = 0;
operand_flags["load_nth_arg"] = 0x0;
argument_sizes["with_push"] = 0;
operand_flags["with_push"] = 0x0;
argument_sizes["with_pop"] = 1;
operand_flags["with_pop"] = 0x0;
argument_sizes["try_push"] = 4;
operand_flags["try_push"] = 0x2;
argument_sizes["try_pop"] = 1;
operand_flags["try_pop"] = 0x0;
argument_sizes["throw"] = 0;
operand_flags["throw"] = 0x0;
argument_sizes["iffalse_b"] = 4;
operand_flags["iffalse_b"] = 0x2;
argument_sizes["iftrue_b"] = 4;
operand_flags["iftrue_b"] = 0x2;
argument_sizes["add_1_i"] = 0;
operand_flags["add_1_i"] = 0x0;
argument_sizes["add_2_i"] = 0;
operand_flags["add_2_i"] = 0x0;
argument_sizes["load_global_w"] = 4;
operand_flags["load_global_w"] = 0x1;
argument_sizes["jsr_w"] = 4;
operand_flags["jsr_w"] = 0x1;

296
reactos/lib/kjs/jsas/process.js Normal file
View file

@ -0,0 +1,296 @@
/*
* Process assembler file.
* Copyright (c) 1998 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/jsas/process.js,v $
* $Id: process.js,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
function process_file (name)
{
var fp = new File (name);
var labels = new Object ();
var label_waits = new Object ();
var op;
if (fp.open ("r"))
{
var linenum = 0;
while (!fp.eof ())
{
var line = fp.readln ();
linenum++;
/* Remove comments. */
line = line.replace (/;.*$/, "");
/* Extract the labels and symbols. */
if (/^([^ \t\n]+):(.*)$/.exec (line))
{
var label = RegExp.$1;
line = RegExp.$2;
if (/^\.[^ ]+$/.test (label) && label != ".global")
{
/* It is a label. */
if (labels[label])
{
System.stderr.writeln (name + ":" + linenum.toString ()
+ ": label `" + label +
"' is already defined");
System.stderr.writeln (name + ":"
+ (labels[label].linenum
.toString ())
+ ": this is the place of the "
+ "previous definition");
System.exit (1);
}
labels[label] = new JSC$ASM_label ();
labels[label].linenum = linenum;
labels[label].link ();
}
else
{
/* It is a symbol. */
new JSC$ASM_symbol (linenum, label).link ();
}
}
/* Skip empty lines. */
if (/^[ \n\t]*$/.test (line))
continue;
if (!/^[ \n\t]*([^ \n\t]+)[ \n\t]*(.*)[ \n\t]*$/.exec (line))
{
System.stderr.writeln (name + ":" + linenum.toString ()
+ ": syntax error");
System.exit (1);
}
var operand = RegExp.$1;
var argument = RegExp.$2;
/* Check that this is a known operand. */
if (typeof argument_sizes[operand] == "undefined")
{
System.stderr.writeln (name + ":" + linenum.toString ()
+ ": unknown operand `" + operand
+ "'");
System.exit (1);
}
if ((operand_flags[operand] & 0x02) != 0)
{
/* The branch operands. */
if (argument.length == 0)
{
System.stderr.writeln (name + ":" + linenum.toString ()
+ ": branch operand requires a "
+ " label argument");
System.exit (1);
}
if (!label_waits[argument])
label_waits[argument] = new Array ();
op = give_operand (operand, linenum);
label_waits[argument].push (op);
op.link ();
}
else if ((operand_flags[operand] & 0x01) != 0)
{
/* The symbol operands. */
if (!/^[A-Za-z_$][A-Za-z_$0-9]*$/.test (argument))
{
System.stderr.writeln (name + ":" + linenum.toString ()
+ ": operand `" + operand
+ "' requires a symbol argument");
System.exit (1);
}
op = give_operand (operand, linenum);
op.link ();
op.value = argument;
}
else if (operand == "const")
{
var value;
if (/^\"(.*)\"$/.test (argument))
value = const_string (RegExp.$1);
else if (/^[0-9]+$/.test (argument))
value = parseInt(argument);
else
{
System.stderr.writeln (name + ":" + linenum.toString ()
+ ": malformed argument `"
+ argument + "' for operand `"
+ operand + "'");
System.exit (1);
}
op = give_operand (operand, linenum);
op.link ();
op.value = value;
}
else
{
if (argument_sizes[operand] == 0)
{
/* Simple operands without arugments. */
if (argument.length != 0)
{
System.stderr.writeln (name + ":" + linenum.toString ()
+ ": operand `" + operand
+ "' doesn't take argument");
System.exit (1);
}
give_operand (operand, linenum).link ();
}
else
{
/* Simple operands with integer arguments. */
if (!/^[-+]?[0-9]+$/.test (argument))
{
System.stderr.writeln (name + ":" + linenum.toString ()
+ ": operand `" + operand
+ "' requires an integer "
+ "argument");
System.exit (1);
}
op = give_operand (operand, linenum);
op.link ();
op.value = parseInt (argument);
}
}
}
fp.close ();
/* Patch labels to branch operands. */
for (var label in label_waits)
for (op in label_waits[label])
{
if (!labels[label])
{
System.stderr.writeln (name + ":" + op.linenum.toString ()
+ ": undefined label `" + label + "'");
System.exit (1);
}
op.value = labels[label];
}
}
else
{
System.stderr.writeln (program + ": couldn't open input file `"
+ name + "': " + System.strerror (System.errno));
System.exit (1);
}
}
function const_string (source)
{
var str = new String ("");
var i;
for (i = 0; i < source.length; i++)
{
switch (source[i])
{
case #'\\':
if (i + 1 > source.length)
str.append ("\\");
else
{
i++;
var ch;
switch (source[i])
{
case #'n':
ch = "\n";
break;
case #'t':
ch = "\t";
break;
case #'v':
ch = "\v";
break;
case #'b':
ch = "\b";
break;
case #'r':
ch = "\r";
break;
case #'f':
ch = "\f";
break;
case #'a':
ch = "\a";
break;
case #'\\':
ch = "\\";
break;
case #'?':
ch = "?";
break;
case #'\'':
ch = "'";
break;
case #'"':
ch = "\"";
break;
default:
ch = File.byteToString (source[i]);
break;
}
str.append (ch);
}
break;
default:
str.append (File.byteToString (source[i]));
break;
}
}
return str;
}
/*
Local variables:
mode: c
End:
*/

652
reactos/lib/kjs/jsc/ChangeLog Normal file
View file

@ -0,0 +1,652 @@
1999-01-11 Markku Rossi <mtr@amme.ssh.fi>
* lexer.js (JSC$lexer_read_string): Optimized the stream reading
by using the new String.append(INTEGER) method.
1998-10-26 Markku Rossi <mtr@purple.ngs.fi>
* parser.js (JSC$parser_parse_stmt): Implemented function
declarations as statements.
* gram.js (JSC$stmt_function_declaration): New statement for
nested function declarations.
* defs.js: New statement type JSC$STMT_FUNCTION_DECLARATION.
* gram.js (JSC$expr_call_asm): Added support for function
pointers.
* asm.js: Added support for function pointers.
Added new operands `jsr_w' and `load_global_w' which operate with
the with chains.
1998-10-12 Markku Rossi <mtr@purple.ngs.fi>
* gram.js (JSC$expr_additive_constant_folding): Implemented simple
constant folding optimization.
* parser.js (JSC$parser_parse_assignment_expr): Implemented
constant folding optimization.
* entry.js (JSC$compile_stream): Added a try-finally block over
the stream compilation. This assures that the stream is always
closed, even if the compilation fails.
1998-10-01 Markku Rossi <mtr@purple.ngs.fi>
* parser.js (JSC$parser_parse_function_declaration): Fixed the
parameter list parsing. Now we do require that the parameters are
separated by a ','.
1998-09-17 Markku Rossi <mtr@purple.ngs.fi>
* gram.js (JSC$stmt_try_asm): If none of the catch blocks matches
the exception, we must throw it the upper level.
1998-09-10 Markku Rossi <mtr@purple.ngs.fi>
* asm.js (JSC$ASM_const_i_print): Cleaned up the output.
* gram.js (JSC$expr_object_initializer): New expression object for
object literals.
* parser.js (JSC$parser_parse_primary_expr): Implemented object
literals.
* asm.js (JSC$ASM_const_i): New operand to push a Int32 integer to
the stack. Effectively this operand removes all integer constants
from the constants section. They can be expressed in the same
space that was used to present the integer index.
* gram.js (JSC$expr_integer_asm): Changed to use the new `const_i'
operand.
1998-09-07 Markku Rossi <mtr@purple.ngs.fi>
* parser.js (JSC$parser_parse_function_declaration): Implemented
the `arguments' property of function instance.
* gram.js (JSC$function_declaration_asm): Added support for the
`arguments' property of function instance. If the property is
used in the function body, we add code to the beginning of the
function to create the arguments array.
(JSC$stmt_for_count_locals): Fixed the counting of the local
variables.
(JSC$stmt_for_in_count_locals): Fixed the counting of local
variables.
* entry.js: New flag JSC$FLAG_WARN_DEPRECATED to generate error
messages about uses of deprecated features.
* asm.js (JSC$ASM_load_nth_arg): New byte-code operand to load the
nth argument of function, where the index is at the top of the
stack. This is needed in the implemenation of the `arguments'
property of function instances.
Re-organized byte-code operand numbers. All old byte-code files
must be re-compiled.
1998-09-04 Markku Rossi <mtr@purple.ngs.fi>
* asm.js: Re-organized byte-code operand numbers. All old
byte-code files must be re-compiled.
* parser.js (JSC$parser_parse_primary_expr): Changed the way how
the regular expression constants are handled. We must decide the
point when we accept a regexp constant. The lexer can't do it
because the div operand and regexp constants can't be
distinguished based on lexical analysis.
(JSC$parser_parse_equality_expr): Implemented strict equals and
does-not-equal operators. The change affects lexer.js, parser.js,
gram.js, asm.js, and defs.js.
* defs.js: Removed constant JSC$tREGEXP.
* lexer.js (JSC$lexer): Changed the way how the regular expression
constants are handled. We no longer return them as a token. We
return the starting '/' character as-is and the parser recognizes
the cases when it can start a regexp constant. In those cases,
the parser will call JSC$lexer_read_regexp_constant() that reads
the constant and compiles it to the RegExp built-in object.
1998-09-03 Markku Rossi <mtr@purple.ngs.fi>
* lexer.js (JSC$lexer): Changed the way how errors are returned
form the malformed regular expression constants. This is needed
because the syntax of the try-statement was changed.
* gram.js (JSC$stmt_for): Added support for local variable
declarations.
(JSC$stmt_for_in): Added support for local variable declarations.
* parser.js (JSC$parser_parse_iteration_stmt): Added support for
local variable declarations in the head of the for statement.
* entry.js (JSC$compile_stream): Clear the syntax tree after the
assembler has been generated. This saves some memory.
* Replaced all JC$Lists in the compiler sources with built-in
Array objects.
Removed the list.js file from the project.
* asm.js (JSC$asm_print): Cleaned up the annotated assembler
output.
* gram.js (JSC$ContBreak): Added support for labeled statements.
The constructor and all calculation methods were fixed to support
the labels.
(JSC$ContBreak$is_unique_label): New method is_unique_label() to
check if the given label is unique in the current continue-break
stack.
(JSC$stmt_continue): Added support for labeled statements.
(JSC$stmt_break): Added support for labeled statements.
(JSC$stmt_labeled_stmt): New statement for the labeled
statements.
* parser.js (JSC$parser_parse_stmt): Implemented labeled
statements.
(JSC$parser_parse_stmt): Added optional label to break and
continue statements.
1998-09-02 Markku Rossi <mtr@purple.ngs.fi>
* parser.js (JSC$parser_parse_try): New function to parse try
statements.
* gram.js (JSC$stmt_break_asm): Cleaned up the try and with
nesting calculation. Now we use the methods, instead of directly
investigating the top frame in the cont_break stack.
(JSC$stmt_try): Re-implemented the try statement, including its
asm() and count_locals() methods. Now the implementation is
ECMAScript compatible.
1998-09-01 Markku Rossi <mtr@purple.ngs.fi>
* asm.js (JSC$asm_optimize): Optimize cases `const_true, iftrue'
and `const_false, iffalse' to jumps.
(JSC$asm_optimize): Cleaned up the peephole optimizations.
Implemented a new byte-code side optimization that removes
unnecessary jumps to the immediately following labels.
* gram.js (JSC$stmt_switch): New statement object for the switch
statements.
(JSC$stmt_continue_asm): Fixed to work inside a switch statement.
(JSC$ContBreak): Cleaned up the continue-break handling in loops.
Now it should work inside switch statements, including nested
switch statements.
* parser.js (JSC$parser_parse_switch): New function to parse
switch statements.
1998-08-25 Markku Rossi <mtr@purple.ngs.fi>
* parser.js (JSC$parser_parse_stmt): Added strict_ecma warning
about line terminators between `throw' and the expression.
* gram.js (JSC$stmt_do_while): New statement object for do...while
statements.
* parser.js (JSC$parser_parse_variable_stmt): Fixed the variable
declaration parsing. Now it should co-operate correctly with the
automatic semicolon insertion.
(JSC$parser_parse_iteration_stmt): Implemented do...while
statements.
* lexer.js (JSC$lexer_read_regexp): New function to read regular
expression literals. The backslash escapes within them are so
different from string literals that they need an own function to
handle them.
(JSC$lexer_read_backslash_escape): New function to handle
backslash escapes in strings, character constants, and partly in
regular expression literals.
(JSC$lexer_read_backslash_escape): Added support for \xHH and
\uHHHH escapes.
Now the lexer should be ECMAScript 2.0 (draft) compatible.
1998-08-19 Markku Rossi <mtr@purple.ngs.fi>
* parser.js: New functions JSC$warning() and JSC$message() to
report warnings and messages from the compiler. Changed all
outputs in the sources to use these functions. There shouldn't be
any System.error() calls left.
1998-08-17 Markku Rossi <mtr@purple.ngs.fi>
* gram.js (JSC$expr_array_initializer): New expression for array
initializers.
* parser.js (JSC$parser_parse_primary_expr): Implemented array
initializers.
* defs.js: New expression type JSC$EXPR_ARRAY_INITIALIZER.
* list.js: Cleaned up the code.
1998-08-14 Markku Rossi <mtr@purple.ngs.fi>
* asm.js: Changed JSC$CONST_REGEXP's value to 11. It is returned
as a JS_BUILTIN.
* parser.js: Added support for the regular expression constants.
* gram.js (JSC$expr_regexp): New grammar component for the regular
expression constants.
* asm.js: Added support for the regular expression constants.
* defs.js: New type constant JSC$JS_BUILTIN.
1998-08-13 Markku Rossi <mtr@purple.ngs.fi>
* defs.js: New token constant JSC$tREGEXP.
* parser.js (JSC$parser_parse): Fixed to report the number of
missing semicolons only if there are any.
* entry.js: New flag JSC$FLAG_WARN_STRICT_ECMA to generate error
messages about features that are supported but which are agains
the ECMAScript standard.
* lexer.js (JSC$lexer): Fixed all error messages to be in the
`FILENAME:LINENUM: MESSAGE' format.
(JSC$lexer_read_string): Added warning about line terminators in
string and regular expression constants.
Fixed all error messages.
Optimized the data creation to use the String.append() method.
(JSC$lexer): Implemented regular expression literals.
1998-08-12 Markku Rossi <mtr@purple.ngs.fi>
* parser.js: Changed messages about automatic semicolon inserting
to warnings.
* entry.js: New flag JSC$FLAG_WARN_MISSING_SEMICOLON.
1998-08-11 Markku Rossi <mtr@purple.ngs.fi>
* parser.js (JSC$parser_parse_source_element): Tag the global
level variable declarations so that we can distinguish them at the
assembler creation time.
Implemented automatic semicolon inserting.
(JSC$parser_parse): Added statistics about the missing
semicolons.
* gram.js (JSC$stmt_variable_asm): Changed the variables, declared
at the global level, to be global variables.
Fixed some panic() calls to report the error with the `error()'
global method.
1998-08-05 Markku Rossi <mtr@purple.ngs.fi>
* entry.js: New flag JSC$FLAG_GENERATE_EXECUTABLE_BC_FILES.
(JSC$compile_stream): Added support for
JSC$FLAG_GENERATE_EXECUTABLE_BC_FILES.
1998-06-08 Markku Rossi <mtr@ngs.fi>
* parser.js (JSC$parser_parse_arguments): Fixed a bug that allowed
us to call functions so that the individual arguements were not
separated by a comma #','.
* asm.js: Removed operands `assert_args', `assert_min_args', and
`assert_max_args'.
Added operands `min_args', `add_1_i', and `add_2_i'.
* gram.js (JSC$function_declaration_asm): Removed conditional
function argument count checks. The check were replaced with
`min_args' operand that arranges things so that the minimum amount
of arguments is present.
* entry.js (JSC$compile_stream): Removed flag
JSC$FLAG_ARGUMENT_COUNT_CHECKS. JavaScript allows functions to be
called with any number of arguments. Therefore, we can't assert
the minimum amount of arguments for function.
* gram.js (JSC$expr_new_asm): Added support for `new Foo'
expressions.
* asm.js: Changed constant types to new values.
1998-06-05 Markku Rossi <mtr@ngs.fi>
* asm.js (JSC$ASM_mod): Implemented operand mod.
Cleaned up byte-code operand opcodes.
1998-06-03 Markku Rossi <mtr@ngs.fi>
* asm.js: Cleaned up the byte-code creation. Now we have common
byte-code creation methods for different operand values: int8,
int16, etc. This cleanup removes redundancy and saves nine
functions.
Cleaned up the compiler progress messages.
1998-06-02 Markku Rossi <mtr@ngs.fi>
* lexer.js (JSC$lexer): Implemented 'data' -strings. The
character constants are now presented as #'a'.
1998-05-15 Markku Rossi <mtr@ngs.fi>
* gram.js (JSC$stmt_if_count_locals): Changed the way how the
number of locals is counted. We don't need #if + #else, but we
need max(#if, #else).
* parser.js (JSC$parser_parse_stmt): Implemented the `throw'
statement.
* gram.js (JSC$stmt_throw): Implemented the `throw' statement.
* asm.js (JSC$ASM_throw): Implemented operand `throw'.
* defs.js: Defined new statement JSC$STMT_THROW.
1998-05-14 Markku Rossi <mtr@ngs.fi>
* parser.js (JSC$parser_parse_stmt): Implemented the `try...catch'
statement.
Fixed a typo where function syntax_error() was called instead of
JSC$parser_syntax_error().
* gram.js (JSC$ContBreak$try_return_nesting): New function to
count how many try_pop's the return statement should invoke.
(JSC$stmt_return_asm): Changed to invoke try_pop's if the return
occurs inside a try-block.
(JSC$stmt_try): Implemented the `try...catch' statement.
* asm.js: Implemented new operands try_push and try_pop to
implement the `try...catch' statement.
(JSC$asm_is_local_jump): Added JSC$OP_TRY_PUSH.
(JSC$asm_optimize): Changed to stop `dup...pop' searching on
`try_pop' operand.
* defs.js: Defined tokens for the ECMA Script's future reserved
keywords.
Defined new statement JSC$STMT_TRY.
* lexer.js (JSC$lexer): Added support for the ECMA Script's future
reserved keywords.
* gram.js: Cleaned up the `continue' and `break' statement
handling. Now there is an instance of class JSC$ContBreak that
holds the state of the currently active looping constructs.
1998-05-13 Markku Rossi <mtr@ngs.fi>
* gram.js: Checked all XXX's and fixed them.
1998-05-12 Markku Rossi <mtr@ngs.fi>
* parser.js (JSC$parser_parse_iteration_stmt): Implemented
`for...in' statements.
* gram.js (JSC$stmt_for_in): Implemented `for...in' statements.
* defs.js: New statement type JSC$STMT_FOR_IN.
* asm.js: Reorganized byte-code operands.
(JSC$ASM_roll): New operand to roll the n uppermost items in the
stack.
(JSC$ASM_nth): New operand to return the nth item from array,
object, or string.
1998-05-11 Markku Rossi <mtr@ngs.fi>
* asm.js (JSC$ASM_delete_property): New function for the
`delete_property' operand.
(JSC$ASM_delete_array): New function for the `delete_array'
operand.
The new functions JSC$ASM_delete_property and JSC$ASM_delete_array
replace the old `delete' operand.
* gram.js (JSC$expr_unary_asm): Implemented (correctly) the delete
operator.
1998-05-07 Markku Rossi <mtr@ngs.fi>
* asm.js (JSC$asm_optimize): Fixed a bug from the peep-hole
optimization. We must not optimize over subroutine calls like:
jsr, new, call_method or return operands.
* lexer.js (JSC$lexer_read_string): Fixed to handle
backslash+newline like C does.
1998-04-16 Markku Rossi <mtr@ngs.fi>
* lexer.js (JSC$lexer): Implemented decimal literals.
* asm.js (JSC$ASM_const_bytecode): Implemented float and NaN
constants.
* entry.js: New flag JSC$FLAG_WARN_WITH_CLOBBER to control
warnings about the with-lookup clobbering.
* gram.js (JSC$asm_expr_lvalue_load_asm): Added warnings for
symbols which with-lookup is clobbered by a local variable or a
function argument declaration.
1998-04-15 Markku Rossi <mtr@ngs.fi>
* asm.js (JSC$ASM_with_pop): Added argument `value' that specifies
how many with-frames the operand pops.
* gram.js (JSC$stmt_with_asm): Finished with statement. Now it
handles break and continue statements within the with block.
1998-03-31 Markku Rossi <mtr@ngs.fi>
* entry.js: Renamed flag JSC$FLAG_OPTIMIZE_JUMPS_TO_JUMPS to
JSC$FLAG_OPTIMIZE_JUMPS.
1998-03-26 Markku Rossi <mtr@ngs.fi>
* Added tests for the compiler.
* defs.js: Changed JSC$alloc_id() calls with constant values.
1998-03-25 Markku Rossi <mtr@ngs.fi>
* asm.js (JSC$asm_optimize): Replaced individual `dup nnn pop =>
nnn' optimizations with one generic dup-pop optimizations. This
new optimizations handles all the optimizable dup-pop cases.
1998-03-24 Markku Rossi <mtr@ngs.fi>
* asm.js (JSC$asm_optimize): New optimizations for `while (true)'
and `while (false)' cases.
1998-03-05 Markku Rossi <mtr@ngs.fi>
* parser.js (JSC$parser_parse_left_hand_side_expr): Fixed few
typos where JSC$parser_get_token() was called without arguments.
* lexer.js (JSC$lexer): Implemented some character constants. Now
the lexer supports all character constants that can be found from
the ANSI-C reference.
* gram.js: Added language types for all expressions that know
them.
Changed to generate type aware assembler operands for expressions
and statements for which the type is known.
* entry.js (JSC$compile_stream): Added unconditional
optimizations: constant folding and type optimizations.
* defs.js: Added language primitive types.
* asm.js: Implemented type aware iffalse_b and iftrue_b operands.
1998-03-04 Markku Rossi <mtr@ngs.fi>
* gram.js (JSC$expr_real_asm): Implemented.
1998-03-03 Markku Rossi <mtr@ngs.fi>
* asm.js (JSC$optimize_heavy): New function to perform
optimizations that require the liveness information of local
variables and arguments.
* entry.js: New flag JSC$FLAG_OPTIMIZE_HEAVY for heavy
optimizations.
* asm.js: Re-organized assembler operands.
Implemented all missing operands.
* entry.js: New flag JSC$FLAG_ARGUMENT_COUNT_CHECKS.
* gram.js (JSC$function_declaration_asm): Added argument count
checks.
Renamed shift operands.
1998-03-02 Markku Rossi <mtr@ngs.fi>
* parser.js: Fixes some bugs, shown by the new function argument
count check.
* gram.js: Changed all `new JSC$ASM_*()' constructors to
explicitly call the link() method.
* asm.js: Removed call to JSC$asm_append() from all asm
constructors. The linking is now implemented with the link()
method that is defined to all assembler operands, labels and
symbols.
* gram.js (JSC$function_declaration): Added lbrace_ln to hold the
line number of the opening lbrace of the body.
(JSC$function_declaration_asm): Set locals' linenumber to be
lbrace_ln.
1998-02-27 Markku Rossi <mtr@ngs.fi>
* asm.js (JSC$asm_bytecode): Added debugging information.
* entry.js: Renamed to entry.js from main.js.
New flag JSC$FLAG_ANNOTATE_ASSEMBLER.
(JSC$compile_stream): Changed to handle
JSC$FLAG_ANNOTATE_ASSEMBLER flag.
New flag JSC$FLAG_GENERATE_DEBUG_INFO.
(JSC$compile_stream): Changed to handle
JSC$FLAG_GENERATE_DEBUG_INFO flga.
* streams.js: Added rewind and readln methods to all streams.
* asm.js (JSC$asm_print): If requested, annotate the generated
assembler listing with the original source code.
* gram.js: Added line number information to all assembler
operands.
* parser.js: Added line number information to all statements and
expressions.
1998-02-26 Markku Rossi <mtr@ngs.fi>
* asm.js (JSC$asm_optimize): Implemented new optimization for
assembler, generated from statements like `i++' and `i--'.
1998-02-24 Markku Rossi <mtr@ngs.fi>
* asm.js (JSC$ASM_xor): Implemented xor opcode.
(JSC$ASM_with_push): Implemented with statements.
(JSC$asm_generate): Changed to ensure that the evaluation of the
global section returns some sane value to the caller.
(JSC$asm_optimize): New peephole optimization for apop + pop.
(JSC$ASM_locals): Changed the argument to be a 16 bit integer.
* parser.js (JSC$parser_parse): Fixed an infinite loop. We must
check that parse_source_element() returns true. Otherwise we have
encountered a syntax error.
* gram.js (JSC$expr_unary_asm): Implemented rest unary
expressions.
(JSC$stmt_with): Implemented with statement.
* lexer.js (JSC$lexer): Made `#!' a single line commment starter.
(JSC$lexer): Implemented '\ooo' notations to top-level and to
string constants.
1998-02-23 Markku Rossi <mtr@ngs.fi>
* namespace.js: Changed namespace to report errors and warnings
about different variable and argument definition illegalities.
* main.js (JSC$compile_stream): Changed to raise an error if the
input stream couldn't be opened.
* gram.js (JSC$stmt_variable_asm): Removed warnings about multiply
defined variables. They are now reported directly from
namespace.
* asm.js (JSC$asm_optimize): Added argument flags that tells which
optimizations the function should perform.
1998-02-20 Markku Rossi <mtr@ngs.fi>
* parser.js (JSC$parser_reset): New function to reset all global
variables.
* main.js (JSC$compiler_reset): New function to reset the whole
compiler.
* gram.js (JSC$gram_reset): New function to reset all global
variables.
* asm.js (JSC$asm_reset): New function to reset all global
variables. This replaces the old JSC$asm_clear() function.
* Changed all errors to be reported with the error() global
method.
1998-02-18 Markku Rossi <mtr@ngs.fi>
* main.js (JSC$compile_stream): Made error messages more
informative.
* streams.js: Added property `error' for all streams.
* namespace.js (JSC$NameSpace_define_symbol): Changed to return a
boolean status code that identify whether the symbol was already
defined or not.
* gram.js: Added line number information for statements.
1998-02-16 Markku Rossi <mtr@ngs.fi>
* gram.js (JSC$stmt_continue): Implemented `continue' statement.
(JSC$stmt_break): Implemented `break' statement.
* asm.js (JSC$asm_bytecode): Changed to use String.append()
instead of the plus operand. This saves memory usage noticeably.
1998-02-13 Markku Rossi <mtr@ngs.fi>
* asm.js (JSC$asm_optimize): Made heavy optimizations to depend on
the JSC$optimize_heavy variable.
* main.js: Create a new public interface to the compiler.
Made all diagnostics messages to depend on the JSC$verbose
variable.
* asm.js (JSC$asm_optimize): Cleaned up the optimization code.
Run the dead code elimination optimizations in a loop until no
more changes can be done.
(JSC$asm_generate): Added support for local variables in the
global statements.
* parser.js (JSC$parser_parse_left_hand_side_expr): Implemented
array references.
1998-02-11 Markku Rossi <mtr@ngs.fi>
* The JavaScript compiler is now self-hosting. It can generate
valid byte-code files which can be executed with the virtual
machine. The perl assembler is no longer needed.
* gram.js: Changed to generate internal assembler objects instead
of dumping the assembler code to the stdout.
* asm.js: New file to implement the assembler.
1998-02-09 Markku Rossi <mtr@ngs.fi>
* streams.js (JSC$StreamString): Implemented string stream.
* The JavaScript JavaScript compiler can now compile itself.

318
reactos/lib/kjs/jsc/Makefile Normal file
View file

@ -0,0 +1,318 @@
# Generated automatically from Makefile.in by configure.
# Makefile.in generated automatically by automake 1.3 from Makefile.am
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Automakefile for JavaScript JavaScript compiler.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
SHELL = /bin/sh
srcdir = .
top_srcdir = ..
prefix = /usr/local/js-0.2.5
exec_prefix = ${prefix}
bindir = ${exec_prefix}/bin
sbindir = ${exec_prefix}/sbin
libexecdir = ${exec_prefix}/libexec
datadir = ${prefix}/share
sysconfdir = ${prefix}/etc
sharedstatedir = ${prefix}/com
localstatedir = ${prefix}/var
libdir = ${exec_prefix}/lib
infodir = ${prefix}/info
mandir = ${prefix}/man
includedir = ${prefix}/include
oldincludedir = /usr/include
DISTDIR =
pkgdatadir = $(datadir)/js
pkglibdir = $(libdir)/js
pkgincludedir = $(includedir)/js
top_builddir = ..
ACLOCAL = aclocal
AUTOCONF = autoconf
AUTOMAKE = automake
AUTOHEADER = autoheader
INSTALL = /usr/bin/install -c
INSTALL_PROGRAM = ${INSTALL}
INSTALL_DATA = ${INSTALL} -m 644
INSTALL_SCRIPT = ${INSTALL_PROGRAM}
transform = s,x,x,
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
host_alias = i686-pc-linux-gnu
host_triplet = i686-pc-linux-gnu
ACLOCAL_FLAGS_FOR_LIBTOOL =
CC = gcc
CPP = gcc -E
EXTENSIONS = dl_open.lo xjs.lo xmd5.lo md5c.lo
EXTENSIONS_LIBS = -ldl
INTERPRETER_FEATURES = r_std.lo
LD = /usr/bin/ld
LIBTOOL = $(SHELL) $(top_builddir)/libtool
LN_S = ln -s
MAKEINFO = makeinfo
NM = /usr/bin/nm -B
PACKAGE = js
PGCC_BY_PROVENZANO =
RANLIB = ranlib
U =
VERSION = 0.2.5
XLC_R_AIX =
SUBDIRS = tests
JSCOMPILER = ../src/js
JSCOMPILER_FLAGS = -Wpedantic -O2
JSS = defs.js lexer.js parser.js gram.js namespace.js \
streams.js asm.js entry.js
JSCS = defs.jsc lexer.jsc parser.jsc gram.jsc namespace.jsc \
streams.jsc asm.jsc entry.jsc
EXTRA_DIST = $(JSS) $(JSCS) bs.js bs.jsc compiler.js compiler.jsc
SUFFIXES = .jsc .js
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = ../jsconfig.h
CONFIG_CLEAN_FILES =
DIST_COMMON = ChangeLog Makefile.am Makefile.in TODO
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
TAR = tar
GZIP = --best
all: all-recursive all-am
.SUFFIXES:
.SUFFIXES: .js .jsc
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps jsc/Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
# This directory's subdirectories are mostly independent; you can cd
# into them and run `make' without going through this Makefile.
# To change the values of `make' variables: instead of editing Makefiles,
# (1) if the variable is set in `config.status', edit `config.status'
# (which will cause the Makefiles to be regenerated when you run `make');
# (2) otherwise, pass the desired values on the `make' command line.
all-recursive install-data-recursive install-exec-recursive \
installdirs-recursive install-recursive uninstall-recursive \
check-recursive installcheck-recursive info-recursive dvi-recursive:
@set fnord $(MAKEFLAGS); amf=$$2; \
list='$(SUBDIRS)'; for subdir in $$list; do \
target=`echo $@ | sed s/-recursive//`; \
echo "Making $$target in $$subdir"; \
(cd $$subdir && $(MAKE) $$target) \
|| case "$$amf" in *=*) exit 1;; *k*) fail=yes;; *) exit 1;; esac; \
done && test -z "$$fail"
mostlyclean-recursive clean-recursive distclean-recursive \
maintainer-clean-recursive:
@set fnord $(MAKEFLAGS); amf=$$2; \
rev=''; list='$(SUBDIRS)'; for subdir in $$list; do \
rev="$$subdir $$rev"; \
done; \
for subdir in $$rev; do \
target=`echo $@ | sed s/-recursive//`; \
echo "Making $$target in $$subdir"; \
(cd $$subdir && $(MAKE) $$target) \
|| case "$$amf" in *=*) exit 1;; *k*) fail=yes;; *) exit 1;; esac; \
done && test -z "$$fail"
tags-recursive:
list='$(SUBDIRS)'; for subdir in $$list; do \
(cd $$subdir && $(MAKE) tags); \
done
tags: TAGS
ID: $(HEADERS) $(SOURCES) $(LISP)
here=`pwd` && cd $(srcdir) \
&& mkid -f$$here/ID $(SOURCES) $(HEADERS) $(LISP)
TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP)
tags=; \
here=`pwd`; \
list='$(SUBDIRS)'; for subdir in $$list; do \
test -f $$subdir/TAGS && tags="$$tags -i $$here/$$subdir/TAGS"; \
done; \
list='$(SOURCES) $(HEADERS)'; \
unique=`for i in $$list; do echo $$i; done | \
awk ' { files[$$0] = 1; } \
END { for (i in files) print i; }'`; \
test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \
|| (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS)
mostlyclean-tags:
clean-tags:
distclean-tags:
-rm -f TAGS ID
maintainer-clean-tags:
distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
subdir = jsc
distdir: $(DISTFILES)
@for file in $(DISTFILES); do \
d=$(srcdir); \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done
for subdir in $(SUBDIRS); do \
test -d $(distdir)/$$subdir \
|| mkdir $(distdir)/$$subdir \
|| exit 1; \
chmod 777 $(distdir)/$$subdir; \
(cd $$subdir && $(MAKE) top_distdir=../$(top_distdir) distdir=../$(distdir)/$$subdir distdir) \
|| exit 1; \
done
info: info-recursive
dvi: dvi-recursive
check: all-am
$(MAKE) check-recursive
installcheck: installcheck-recursive
all-am: Makefile
install-exec: install-exec-recursive
@$(NORMAL_INSTALL)
install-data: install-data-recursive
@$(NORMAL_INSTALL)
install: install-recursive
@:
uninstall: uninstall-recursive
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs: installdirs-recursive
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-rm -f Makefile $(DISTCLEANFILES)
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
maintainer-clean-generic:
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
mostlyclean-am: mostlyclean-tags mostlyclean-generic
clean-am: clean-tags clean-generic mostlyclean-am
distclean-am: distclean-tags distclean-generic clean-am
maintainer-clean-am: maintainer-clean-tags maintainer-clean-generic \
distclean-am
mostlyclean: mostlyclean-recursive mostlyclean-am
clean: clean-recursive clean-am
distclean: distclean-recursive distclean-am
-rm -f config.status
-rm -f libtool
maintainer-clean: maintainer-clean-recursive maintainer-clean-am
@echo "This command is intended for maintainers to use;"
@echo "it deletes files that may require special tools to rebuild."
.PHONY: install-data-recursive uninstall-data-recursive \
install-exec-recursive uninstall-exec-recursive installdirs-recursive \
uninstalldirs-recursive all-recursive check-recursive \
installcheck-recursive info-recursive dvi-recursive \
mostlyclean-recursive distclean-recursive clean-recursive \
maintainer-clean-recursive tags tags-recursive mostlyclean-tags \
distclean-tags clean-tags maintainer-clean-tags distdir info dvi \
installcheck all-am install-exec install-data install uninstall all \
installdirs mostlyclean-generic distclean-generic clean-generic \
maintainer-clean-generic clean mostlyclean distclean maintainer-clean
compile: $(JSCS) bs.jsc
compiler: compiler.jsc
compiler.jsc: compiler.js
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $<
cp compiler.jsc bak/compiler-`date | sed 's/ /-/g'`.jsc || true
compiler.js: $(JSS)
cat $(JSS) >compiler.js
run: compile
$(JSCOMPILER) --load $(JSCS) --file bs.jsc
wc:
wc $(JSS)
my-clean:
rm -f $(JSCS) bs.jsc
.js.jsc:
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -g -c $<
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

60
reactos/lib/kjs/jsc/Makefile.am Normal file
View file

@ -0,0 +1,60 @@
#
# Automakefile for JavaScript JavaScript compiler.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
SUBDIRS = tests
JSCOMPILER = ../src/js
JSCOMPILER_FLAGS = -Wpedantic -O2
JSS = defs.js lexer.js parser.js gram.js namespace.js \
streams.js asm.js entry.js
JSCS = defs.jsc lexer.jsc parser.jsc gram.jsc namespace.jsc \
streams.jsc asm.jsc entry.jsc
EXTRA_DIST = $(JSS) $(JSCS) bs.js bs.jsc compiler.js compiler.jsc
compile: $(JSCS) bs.jsc
compiler: compiler.jsc
compiler.jsc: compiler.js
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $<
cp compiler.jsc bak/compiler-`date | sed 's/ /-/g'`.jsc || true
compiler.js: $(JSS)
cat $(JSS) >compiler.js
run: compile
$(JSCOMPILER) --load $(JSCS) --file bs.jsc
wc:
wc $(JSS)
my-clean:
rm -f $(JSCS) bs.jsc
SUFFIXES = .jsc .js
.js.jsc:
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -g -c $<

318
reactos/lib/kjs/jsc/Makefile.in Normal file
View file

@ -0,0 +1,318 @@
# Makefile.in generated automatically by automake 1.3 from Makefile.am
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Automakefile for JavaScript JavaScript compiler.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
SHELL = /bin/sh
srcdir = @srcdir@
top_srcdir = @top_srcdir@
VPATH = @srcdir@
prefix = @prefix@
exec_prefix = @exec_prefix@
bindir = @bindir@
sbindir = @sbindir@
libexecdir = @libexecdir@
datadir = @datadir@
sysconfdir = @sysconfdir@
sharedstatedir = @sharedstatedir@
localstatedir = @localstatedir@
libdir = @libdir@
infodir = @infodir@
mandir = @mandir@
includedir = @includedir@
oldincludedir = /usr/include
DISTDIR =
pkgdatadir = $(datadir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
top_builddir = ..
ACLOCAL = @ACLOCAL@
AUTOCONF = @AUTOCONF@
AUTOMAKE = @AUTOMAKE@
AUTOHEADER = @AUTOHEADER@
INSTALL = @INSTALL@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
transform = @program_transform_name@
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
host_alias = @host_alias@
host_triplet = @host@
ACLOCAL_FLAGS_FOR_LIBTOOL = @ACLOCAL_FLAGS_FOR_LIBTOOL@
CC = @CC@
CPP = @CPP@
EXTENSIONS = @EXTENSIONS@
EXTENSIONS_LIBS = @EXTENSIONS_LIBS@
INTERPRETER_FEATURES = @INTERPRETER_FEATURES@
LD = @LD@
LIBTOOL = @LIBTOOL@
LN_S = @LN_S@
MAKEINFO = @MAKEINFO@
NM = @NM@
PACKAGE = @PACKAGE@
PGCC_BY_PROVENZANO = @PGCC_BY_PROVENZANO@
RANLIB = @RANLIB@
U = @U@
VERSION = @VERSION@
XLC_R_AIX = @XLC_R_AIX@
SUBDIRS = tests
JSCOMPILER = ../src/js
JSCOMPILER_FLAGS = -Wpedantic -O2
JSS = defs.js lexer.js parser.js gram.js namespace.js \
streams.js asm.js entry.js
JSCS = defs.jsc lexer.jsc parser.jsc gram.jsc namespace.jsc \
streams.jsc asm.jsc entry.jsc
EXTRA_DIST = $(JSS) $(JSCS) bs.js bs.jsc compiler.js compiler.jsc
SUFFIXES = .jsc .js
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = ../jsconfig.h
CONFIG_CLEAN_FILES =
DIST_COMMON = ChangeLog Makefile.am Makefile.in TODO
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
TAR = tar
GZIP = --best
all: all-recursive all-am
.SUFFIXES:
.SUFFIXES: .js .jsc
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps jsc/Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
# This directory's subdirectories are mostly independent; you can cd
# into them and run `make' without going through this Makefile.
# To change the values of `make' variables: instead of editing Makefiles,
# (1) if the variable is set in `config.status', edit `config.status'
# (which will cause the Makefiles to be regenerated when you run `make');
# (2) otherwise, pass the desired values on the `make' command line.
@SET_MAKE@
all-recursive install-data-recursive install-exec-recursive \
installdirs-recursive install-recursive uninstall-recursive \
check-recursive installcheck-recursive info-recursive dvi-recursive:
@set fnord $(MAKEFLAGS); amf=$$2; \
list='$(SUBDIRS)'; for subdir in $$list; do \
target=`echo $@ | sed s/-recursive//`; \
echo "Making $$target in $$subdir"; \
(cd $$subdir && $(MAKE) $$target) \
|| case "$$amf" in *=*) exit 1;; *k*) fail=yes;; *) exit 1;; esac; \
done && test -z "$$fail"
mostlyclean-recursive clean-recursive distclean-recursive \
maintainer-clean-recursive:
@set fnord $(MAKEFLAGS); amf=$$2; \
rev=''; list='$(SUBDIRS)'; for subdir in $$list; do \
rev="$$subdir $$rev"; \
done; \
for subdir in $$rev; do \
target=`echo $@ | sed s/-recursive//`; \
echo "Making $$target in $$subdir"; \
(cd $$subdir && $(MAKE) $$target) \
|| case "$$amf" in *=*) exit 1;; *k*) fail=yes;; *) exit 1;; esac; \
done && test -z "$$fail"
tags-recursive:
list='$(SUBDIRS)'; for subdir in $$list; do \
(cd $$subdir && $(MAKE) tags); \
done
tags: TAGS
ID: $(HEADERS) $(SOURCES) $(LISP)
here=`pwd` && cd $(srcdir) \
&& mkid -f$$here/ID $(SOURCES) $(HEADERS) $(LISP)
TAGS: tags-recursive $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) $(LISP)
tags=; \
here=`pwd`; \
list='$(SUBDIRS)'; for subdir in $$list; do \
test -f $$subdir/TAGS && tags="$$tags -i $$here/$$subdir/TAGS"; \
done; \
list='$(SOURCES) $(HEADERS)'; \
unique=`for i in $$list; do echo $$i; done | \
awk ' { files[$$0] = 1; } \
END { for (i in files) print i; }'`; \
test -z "$(ETAGS_ARGS)$$unique$(LISP)$$tags" \
|| (cd $(srcdir) && etags $(ETAGS_ARGS) $$tags $$unique $(LISP) -o $$here/TAGS)
mostlyclean-tags:
clean-tags:
distclean-tags:
-rm -f TAGS ID
maintainer-clean-tags:
distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
subdir = jsc
distdir: $(DISTFILES)
@for file in $(DISTFILES); do \
d=$(srcdir); \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done
for subdir in $(SUBDIRS); do \
test -d $(distdir)/$$subdir \
|| mkdir $(distdir)/$$subdir \
|| exit 1; \
chmod 777 $(distdir)/$$subdir; \
(cd $$subdir && $(MAKE) top_distdir=../$(top_distdir) distdir=../$(distdir)/$$subdir distdir) \
|| exit 1; \
done
info: info-recursive
dvi: dvi-recursive
check: all-am
$(MAKE) check-recursive
installcheck: installcheck-recursive
all-am: Makefile
install-exec: install-exec-recursive
@$(NORMAL_INSTALL)
install-data: install-data-recursive
@$(NORMAL_INSTALL)
install: install-recursive
@:
uninstall: uninstall-recursive
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs: installdirs-recursive
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-rm -f Makefile $(DISTCLEANFILES)
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
maintainer-clean-generic:
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
mostlyclean-am: mostlyclean-tags mostlyclean-generic
clean-am: clean-tags clean-generic mostlyclean-am
distclean-am: distclean-tags distclean-generic clean-am
maintainer-clean-am: maintainer-clean-tags maintainer-clean-generic \
distclean-am
mostlyclean: mostlyclean-recursive mostlyclean-am
clean: clean-recursive clean-am
distclean: distclean-recursive distclean-am
-rm -f config.status
-rm -f libtool
maintainer-clean: maintainer-clean-recursive maintainer-clean-am
@echo "This command is intended for maintainers to use;"
@echo "it deletes files that may require special tools to rebuild."
.PHONY: install-data-recursive uninstall-data-recursive \
install-exec-recursive uninstall-exec-recursive installdirs-recursive \
uninstalldirs-recursive all-recursive check-recursive \
installcheck-recursive info-recursive dvi-recursive \
mostlyclean-recursive distclean-recursive clean-recursive \
maintainer-clean-recursive tags tags-recursive mostlyclean-tags \
distclean-tags clean-tags maintainer-clean-tags distdir info dvi \
installcheck all-am install-exec install-data install uninstall all \
installdirs mostlyclean-generic distclean-generic clean-generic \
maintainer-clean-generic clean mostlyclean distclean maintainer-clean
compile: $(JSCS) bs.jsc
compiler: compiler.jsc
compiler.jsc: compiler.js
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $<
cp compiler.jsc bak/compiler-`date | sed 's/ /-/g'`.jsc || true
compiler.js: $(JSS)
cat $(JSS) >compiler.js
run: compile
$(JSCOMPILER) --load $(JSCS) --file bs.jsc
wc:
wc $(JSS)
my-clean:
rm -f $(JSCS) bs.jsc
.js.jsc:
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -g -c $<
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

24
reactos/lib/kjs/jsc/TODO Normal file
View file

@ -0,0 +1,24 @@
TODO JavaScript JavaScript Compiler
* General
- clean up the compiler source
* Optimizations
- Improve constant folding: type conversions, expr_multiplicative,
expr_shift, expr_relational, expr_bitwise, etc.
- create type-specified virtual machine operands for +, -, *,
etc. and use them if the types are known. See JSC$stmt_if_asm()
for an example.
- delete_{property,array} => delete_{property,array}
pop
const_undefined
* parser.js
- 7.8 Sharp Variables
- and more???

2287
reactos/lib/kjs/jsc/asm.js Normal file
View file

File diff suppressed because it is too large Load diff

65
reactos/lib/kjs/jsc/bs.js Normal file
View file

@ -0,0 +1,65 @@
/*
* Bootstrap file for the JavaScript compiler.
* Copyright (c) 1998 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/jsc/bs.js,v $
* $Id: bs.js,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
/*
* To run the compiler from vm, just call the entry point with fixed
* arguments.
*/
VM.verbose = 0;
function compile ()
{
var file = "a.js";
var verbose = JSC$FLAG_VERBOSE;
if (ARGS.length == 2)
{
file = ARGS[1];
verbose = 0;
}
JSC$compile_file (file,
verbose
| JSC$FLAG_ANNOTATE_ASSEMBLER
| JSC$FLAG_GENERATE_DEBUG_INFO
| JSC$FLAG_OPTIMIZE_MASK
| JSC$FLAG_WARN_MASK & ~JSC$FLAG_WARN_MISSING_SEMICOLON,
"./a.jas",
"./a.jsc");
}
compile ();
/*
Local variables:
mode: c
End:
*/

8221
reactos/lib/kjs/jsc/compiler.js Normal file
View file

File diff suppressed because it is too large Load diff

178
reactos/lib/kjs/jsc/defs.js Normal file
View file

@ -0,0 +1,178 @@
/*
* Internal definitions.
* Copyright (c) 1998 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/jsc/defs.js,v $
* $Id: defs.js,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
/*
* Constants.
*/
/* Tokens. */
JSC$tEOF = 128;
JSC$tINTEGER = 129;
JSC$tFLOAT = 130;
JSC$tSTRING = 131;
JSC$tIDENTIFIER = 132;
JSC$tBREAK = 133;
JSC$tCONTINUE = 134;
JSC$tDELETE = 135;
JSC$tELSE = 136;
JSC$tFOR = 137;
JSC$tFUNCTION = 138;
JSC$tIF = 139;
JSC$tIN = 140;
JSC$tNEW = 141;
JSC$tRETURN = 142;
JSC$tTHIS = 143;
JSC$tTYPEOF = 144;
JSC$tVAR = 145;
JSC$tVOID = 146;
JSC$tWHILE = 147;
JSC$tWITH = 148;
JSC$tCASE = 149;
JSC$tCATCH = 150;
JSC$tCLASS = 151;
JSC$tCONST = 152;
JSC$tDEBUGGER = 153;
JSC$tDEFAULT = 154;
JSC$tDO = 155;
JSC$tENUM = 156;
JSC$tEXPORT = 157;
JSC$tEXTENDS = 158;
JSC$tFINALLY = 159;
JSC$tIMPORT = 160;
JSC$tSUPER = 161;
JSC$tSWITCH = 162;
JSC$tTHROW = 163;
JSC$tTRY = 164;
JSC$tNULL = 165;
JSC$tTRUE = 166;
JSC$tFALSE = 167;
JSC$tEQUAL = 168;
JSC$tNEQUAL = 169;
JSC$tLE = 170;
JSC$tGE = 171;
JSC$tAND = 172;
JSC$tOR = 173;
JSC$tPLUSPLUS = 174;
JSC$tMINUSMINUS = 175;
JSC$tMULA = 176;
JSC$tDIVA = 177;
JSC$tMODA = 178;
JSC$tADDA = 179;
JSC$tSUBA = 180;
JSC$tANDA = 181;
JSC$tXORA = 182;
JSC$tORA = 183;
JSC$tLSIA = 184;
JSC$tLSHIFT = 185;
JSC$tRSHIFT = 186;
JSC$tRRSHIFT = 187;
JSC$tRSIA = 188;
JSC$tRRSA = 189;
JSC$tSEQUAL = 190;
JSC$tSNEQUAL = 191;
/* Expressions. */
JSC$EXPR_COMMA = 0;
JSC$EXPR_ASSIGNMENT = 1;
JSC$EXPR_QUEST_COLON = 2;
JSC$EXPR_LOGICAL = 3;
JSC$EXPR_BITWISE = 4;
JSC$EXPR_EQUALITY = 5;
JSC$EXPR_RELATIONAL = 6;
JSC$EXPR_SHIFT = 7;
JSC$EXPR_MULTIPLICATIVE = 8;
JSC$EXPR_ADDITIVE = 9;
JSC$EXPR_THIS = 10;
JSC$EXPR_NULL = 11;
JSC$EXPR_TRUE = 12;
JSC$EXPR_FALSE = 13;
JSC$EXPR_IDENTIFIER = 14;
JSC$EXPR_FLOAT = 15;
JSC$EXPR_INTEGER = 16;
JSC$EXPR_STRING = 17;
JSC$EXPR_CALL = 18;
JSC$EXPR_OBJECT_PROPERTY = 19;
JSC$EXPR_OBJECT_ARRAY = 20;
JSC$EXPR_NEW = 21;
JSC$EXPR_DELETE = 22;
JSC$EXPR_VOID = 23;
JSC$EXPR_TYPEOF = 24;
JSC$EXPR_PREFIX = 25;
JSC$EXPR_POSTFIX = 26;
JSC$EXPR_UNARY = 27;
JSC$EXPR_REGEXP = 28;
JSC$EXPR_ARRAY_INITIALIZER = 29;
JSC$EXPR_OBJECT_INITIALIZER = 30;
/* Statements */
JSC$STMT_BLOCK = 0;
JSC$STMT_FUNCTION_DECLARATION = 1;
JSC$STMT_VARIABLE = 2;
JSC$STMT_EMPTY = 3;
JSC$STMT_EXPR = 4;
JSC$STMT_IF = 5;
JSC$STMT_WHILE = 6;
JSC$STMT_FOR = 7;
JSC$STMT_FOR_IN = 8;
JSC$STMT_CONTINUE = 9;
JSC$STMT_BREAK = 10;
JSC$STMT_RETURN = 11;
JSC$STMT_WITH = 12;
JSC$STMT_TRY = 13;
JSC$STMT_THROW = 14;
JSC$STMT_DO_WHILE = 15;
JSC$STMT_SWITCH = 16;
JSC$STMT_LABELED_STMT = 17;
/* JavaScript types. */
JSC$JS_UNDEFINED = 0;
JSC$JS_NULL = 1;
JSC$JS_BOOLEAN = 2;
JSC$JS_INTEGER = 3;
JSC$JS_STRING = 4;
JSC$JS_FLOAT = 5;
JSC$JS_ARRAY = 6;
JSC$JS_OBJECT = 7;
JSC$JS_BUILTIN = 11;
/*
Local variables:
mode: c
End:
*/

206
reactos/lib/kjs/jsc/entry.js Normal file
View file

@ -0,0 +1,206 @@
/*
* Public entry points to the JavaScript compiler.
* Copyright (c) 1998 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/jsc/entry.js,v $
* $Id: entry.js,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
/*
* Definitions.
*/
JSC$FLAG_VERBOSE = 0x00000001;
JSC$FLAG_ANNOTATE_ASSEMBLER = 0x00000002;
JSC$FLAG_GENERATE_DEBUG_INFO = 0x00000004;
JSC$FLAG_GENERATE_EXECUTABLE_BC_FILES = 0x00000008;
JSC$FLAG_OPTIMIZE_PEEPHOLE = 0x00000020;
JSC$FLAG_OPTIMIZE_JUMPS = 0x00000040;
JSC$FLAG_OPTIMIZE_BC_SIZE = 0x00000080;
JSC$FLAG_OPTIMIZE_HEAVY = 0x00000100;
JSC$FLAG_OPTIMIZE_MASK = 0x0000fff0;
JSC$FLAG_WARN_UNUSED_ARGUMENT = 0x00010000;
JSC$FLAG_WARN_UNUSED_VARIABLE = 0x00020000;
JSC$FLAG_WARN_SHADOW = 0x00040000;
JSC$FLAG_WARN_WITH_CLOBBER = 0x00080000;
JSC$FLAG_WARN_MISSING_SEMICOLON = 0x00100000;
JSC$FLAG_WARN_STRICT_ECMA = 0x00200000;
JSC$FLAG_WARN_DEPRECATED = 0x00400000;
JSC$FLAG_WARN_MASK = 0xffff0000;
/*
* Global interfaces to the compiler.
*/
function JSC$compile_file (fname, flags, asm_file, bc_file)
{
var stream = new JSC$StreamFile (fname);
return JSC$compile_stream (stream, flags, asm_file, bc_file);
}
function JSC$compile_string (str, flags, asm_file, bc_file)
{
var stream = new JSC$StreamString (str);
return JSC$compile_stream (stream, flags, asm_file, bc_file);
}
function JSC$compiler_reset ()
{
/* Reset compiler to a known initial state. */
JSC$parser_reset ();
JSC$gram_reset ();
JSC$asm_reset ();
}
function JSC$compile_stream (stream, flags, asm_file, bc_file)
{
var result = false;
JSC$compiler_reset ();
if (stream.open ())
{
try
{
JSC$verbose = ((flags & JSC$FLAG_VERBOSE) != 0);
JSC$generate_debug_info
= ((flags & JSC$FLAG_GENERATE_DEBUG_INFO) != 0);
JSC$warn_unused_argument
= ((flags & JSC$FLAG_WARN_UNUSED_ARGUMENT) != 0);
JSC$warn_unused_variable
= ((flags & JSC$FLAG_WARN_UNUSED_VARIABLE) != 0);
JSC$warn_shadow
= ((flags & JSC$FLAG_WARN_SHADOW) != 0);
JSC$warn_with_clobber
= ((flags & JSC$FLAG_WARN_WITH_CLOBBER) != 0);
JSC$warn_missing_semicolon
= ((flags & JSC$FLAG_WARN_MISSING_SEMICOLON) != 0);
JSC$warn_strict_ecma
= ((flags & JSC$FLAG_WARN_STRICT_ECMA) != 0);
JSC$warn_deprecated
= ((flags & JSC$FLAG_WARN_DEPRECATED) != 0);
/* Compilation and assembler generation time optimizations. */
JSC$optimize_constant_folding = true;
JSC$optimize_type = true;
JSC$parser_parse (stream);
/* Assembler. */
JSC$asm_generate ();
/*
* We don't need the syntax tree anymore. Free it and save
* some memory.
*/
JSC$parser_reset ();
/* Optimize if requested. */
if ((flags & JSC$FLAG_OPTIMIZE_MASK) != 0)
JSC$asm_optimize (flags);
if (typeof asm_file == "string")
{
var asm_stream = new File (asm_file);
var src_stream = false;
if (asm_stream.open ("w"))
{
if ((flags & JSC$FLAG_ANNOTATE_ASSEMBLER) != 0)
if (stream.rewind ())
src_stream = stream;
JSC$asm_print (src_stream, asm_stream);
asm_stream.close ();
}
else
JSC$message ("jsc: couldn't create asm output file \""
+ asm_file + "\": "
+ System.strerror (System.errno));
}
JSC$asm_finalize ();
result = JSC$asm_bytecode ();
/* Remove all intermediate results from the memory. */
JSC$compiler_reset ();
if (typeof bc_file == "string")
{
var ostream = new File (bc_file);
if (ostream.open ("w"))
{
ostream.write (result);
ostream.close ();
if ((flags & JSC$FLAG_GENERATE_EXECUTABLE_BC_FILES) != 0)
{
/* Add execute permissions to the output file. */
var st = File.stat (bc_file);
if (st)
{
if (!File.chmod (bc_file, st[2] | 0111))
JSC$message ("jsc: couldn't add execute "
+ "permissions to bc file \""
+ bc_file + "\": "
+ System.strerror (System.errno));
}
else
JSC$message ("jsc: couldn't stat bc file \"" + bc_file
+ "\": "
+ System.strerror (System.errno));
}
}
else
JSC$message ("jsc: couldn't create bc file \"" + bc_file
+ "\": " + System.strerror (System.errno));
}
}
finally
{
stream.close ();
}
}
else
error ("jsc: couldn't open input stream \"" + stream.name + "\": "
+ stream.error);
return result;
}
/*
Local variables:
mode: c
End:
*/

2697
reactos/lib/kjs/jsc/gram.js Normal file
View file

File diff suppressed because it is too large Load diff

824
reactos/lib/kjs/jsc/lexer.js Normal file
View file

@ -0,0 +1,824 @@
/*
* Lexer.
* Copyright (c) 1998-1999 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/jsc/lexer.js,v $
* $Id: lexer.js,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
/*
* Global functions.
*/
function JSC$lexer (stream)
{
var ch, ch2;
JSC$token_value = null;
while ((ch = stream.readByte ()) != -1)
{
if (ch == #'\n')
{
JSC$linenum++;
continue;
}
if (JSC$lexer_is_white_space (ch))
continue;
JSC$token_linenum = JSC$linenum;
if (ch == #'/' && JSC$lexer_peek_char (stream) == #'*')
{
/* Multi line comment. */
stream.readByte ();
while ((ch = stream.readByte ()) != -1
&& (ch != #'*' || JSC$lexer_peek_char (stream) != #'/'))
if (ch == #'\n')
JSC$linenum++;
/* Consume the peeked #'/' character. */
stream.readByte ();
}
else if ((ch == #'/' && JSC$lexer_peek_char (stream) == #'/')
|| (ch == #'#' && JSC$lexer_peek_char (stream) == #'!'))
{
/* Single line comment. */
while ((ch = stream.readByte ()) != -1 && ch != #'\n')
;
if (ch == #'\n')
JSC$linenum++;
}
else if (ch == #'"' || ch == #'\'')
{
/* String constant. */
JSC$token_value = JSC$lexer_read_string (stream, "string", ch);
return JSC$tSTRING;
}
/* Literals. */
else if (ch == #'=' && JSC$lexer_peek_char (stream) == #'=')
{
stream.readByte ();
if (JSC$lexer_peek_char (stream) == #'=')
{
stream.readByte ();
return JSC$tSEQUAL;
}
return JSC$tEQUAL;
}
else if (ch == #'!' && JSC$lexer_peek_char (stream) == #'=')
{
stream.readByte ();
if (JSC$lexer_peek_char (stream) == #'=')
{
stream.readByte ();
return JSC$tSNEQUAL;
}
return JSC$tNEQUAL;
}
else if (ch == #'<' && JSC$lexer_peek_char (stream) == #'=')
{
stream.readByte ();
return JSC$tLE;
}
else if (ch == #'>' && JSC$lexer_peek_char (stream) == #'=')
{
stream.readByte ();
return JSC$tGE;
}
else if (ch == #'&' && JSC$lexer_peek_char (stream) == #'&')
{
stream.readByte ();
return JSC$tAND;
}
else if (ch == #'|' && JSC$lexer_peek_char (stream) == #'|')
{
stream.readByte ();
return JSC$tOR;
}
else if (ch == #'+' && JSC$lexer_peek_char (stream) == #'+')
{
stream.readByte ();
return JSC$tPLUSPLUS;
}
else if (ch == #'-' && JSC$lexer_peek_char (stream) == #'-')
{
stream.readByte ();
return JSC$tMINUSMINUS;
}
else if (ch == #'*' && JSC$lexer_peek_char (stream) == #'=')
{
stream.readByte ();
return JSC$tMULA;
}
else if (ch == #'/' && JSC$lexer_peek_char (stream) == #'=')
{
stream.readByte ();
return JSC$tDIVA;
}
else if (ch == #'%' && JSC$lexer_peek_char (stream) == #'=')
{
stream.readByte ();
return JSC$tMODA;
}
else if (ch == #'+' && JSC$lexer_peek_char (stream) == #'=')
{
stream.readByte ();
return JSC$tADDA;
}
else if (ch == #'-' && JSC$lexer_peek_char (stream) == #'=')
{
stream.readByte ();
return JSC$tSUBA;
}
else if (ch == #'&' && JSC$lexer_peek_char (stream) == #'=')
{
stream.readByte ();
return JSC$tANDA;
}
else if (ch == #'^' && JSC$lexer_peek_char (stream) == #'=')
{
stream.readByte ();
return JSC$tXORA;
}
else if (ch == #'|' && JSC$lexer_peek_char (stream) == #'=')
{
stream.readByte ();
return JSC$tORA;
}
else if (ch == #'<' && JSC$lexer_peek_char (stream) == #'<')
{
stream.readByte ();
if (JSC$lexer_peek_char (stream) == #'=')
{
stream.readByte ();
return JSC$tLSIA;
}
else
return JSC$tLSHIFT;
}
else if (ch == #'>' && JSC$lexer_peek_char (stream) == #'>')
{
stream.readByte ();
ch2 = JSC$lexer_peek_char (stream);
if (ch2 == #'=')
{
stream.readByte ();
return JSC$tRSIA;
}
else if (ch2 == #'>')
{
stream.readByte ();
if (JSC$lexer_peek_char (stream) == #'=')
{
stream.readByte ();
return JSC$tRRSA;
}
else
return JSC$tRRSHIFT;
}
else
return JSC$tRSHIFT;
}
/* Identifiers and keywords. */
else if (JSC$lexer_is_identifier_letter (ch))
{
/* An identifier. */
var id = String.fromCharCode (ch);
while ((ch = stream.readByte ()) != -1
&& (JSC$lexer_is_identifier_letter (ch)
|| JSC$lexer_is_decimal_digit (ch)))
id.append (File.byteToString (ch));
stream.ungetByte (ch);
/* Keywords. */
if (id == "break")
return JSC$tBREAK;
else if (id == "continue")
return JSC$tCONTINUE;
else if (id == "delete")
return JSC$tDELETE;
else if (id == "else")
return JSC$tELSE;
else if (id == "for")
return JSC$tFOR;
else if (id == "function")
return JSC$tFUNCTION;
else if (id == "if")
return JSC$tIF;
else if (id == "in")
return JSC$tIN;
else if (id == "new")
return JSC$tNEW;
else if (id == "return")
return JSC$tRETURN;
else if (id == "this")
return JSC$tTHIS;
else if (id == "typeof")
return JSC$tTYPEOF;
else if (id == "var")
return JSC$tVAR;
else if (id == "void")
return JSC$tVOID;
else if (id == "while")
return JSC$tWHILE;
else if (id == "with")
return JSC$tWITH;
/*
* Future reserved keywords (some of these is already in use
* in this implementation).
*/
else if (id == "case")
return JSC$tCASE;
else if (id == "catch")
return JSC$tCATCH;
else if (id == "class")
return JSC$tCLASS;
else if (id == "const")
return JSC$tCONST;
else if (id == "debugger")
return JSC$tDEBUGGER;
else if (id == "default")
return JSC$tDEFAULT;
else if (id == "do")
return JSC$tDO;
else if (id == "enum")
return JSC$tENUM;
else if (id == "export")
return JSC$tEXPORT;
else if (id == "extends")
return JSC$tEXTENDS;
else if (id == "finally")
return JSC$tFINALLY;
else if (id == "import")
return JSC$tIMPORT;
else if (id == "super")
return JSC$tSUPER;
else if (id == "switch")
return JSC$tSWITCH;
else if (id == "throw")
return JSC$tTHROW;
else if (id == "try")
return JSC$tTRY;
/* Null and boolean literals. */
else if (id == "null")
return JSC$tNULL;
else if (id == "true")
return JSC$tTRUE;
else if (id == "false")
return JSC$tFALSE;
else
{
/* It really is an identifier. */
JSC$token_value = id;
return JSC$tIDENTIFIER;
}
}
/* Character constants. */
else if (ch == #'#' && JSC$lexer_peek_char (stream) == #'\'')
{
/* Skip the starting #'\'' and read more. */
stream.readByte ();
ch = stream.readByte ();
if (ch == #'\\')
{
JSC$token_value
= JSC$lexer_read_backslash_escape (stream, 0, "character");
if (stream.readByte () != #'\'')
error (JSC$filename + ":" + JSC$linenum.toString ()
+ ": malformed character constant");
}
else if (JSC$lexer_peek_char (stream) == #'\'')
{
stream.readByte ();
JSC$token_value = ch;
}
else
error (JSC$filename + ":" + JSC$linenum.toString ()
+ ": malformed character constant");
return JSC$tINTEGER;
}
/* Octal and hex numbers. */
else if (ch == #'0'
&& JSC$lexer_peek_char (stream) != #'.'
&& JSC$lexer_peek_char (stream) != #'e'
&& JSC$lexer_peek_char (stream) != #'E')
{
JSC$token_value = 0;
ch = stream.readByte ();
if (ch == #'x' || ch == #'X')
{
ch = stream.readByte ();
while (JSC$lexer_is_hex_digit (ch))
{
JSC$token_value *= 16;
JSC$token_value += JSC$lexer_hex_to_dec (ch);
ch = stream.readByte ();
}
stream.ungetByte (ch);
}
else
{
while (JSC$lexer_is_octal_digit (ch))
{
JSC$token_value *= 8;
JSC$token_value += ch - #'0';
ch = stream.readByte ();
}
stream.ungetByte (ch);
}
return JSC$tINTEGER;
}
/* Decimal numbers. */
else if (JSC$lexer_is_decimal_digit (ch)
|| (ch == #'.'
&& JSC$lexer_is_decimal_digit (
JSC$lexer_peek_char (stream))))
{
var is_float = false;
var buf = new String (File.byteToString (ch));
var accept_dot = true;
if (ch == #'.')
{
/*
* We started with #'.' and we know that the next character
* is a decimal digit (we peeked it).
*/
is_float = true;
ch = stream.readByte ();
while (JSC$lexer_is_decimal_digit (ch))
{
buf.append (File.byteToString (ch));
ch = stream.readByte ();
}
accept_dot = false;
}
else
{
/* We did start with a decimal digit. */
ch = stream.readByte ();
while (JSC$lexer_is_decimal_digit (ch))
{
buf.append (File.byteToString (ch));
ch = stream.readByte ();
}
}
if ((accept_dot && ch == #'.')
|| ch == #'e' || ch == #'E')
{
is_float = true;
if (ch == #'.')
{
buf.append (File.byteToString (ch));
ch = stream.readByte ();
while (JSC$lexer_is_decimal_digit (ch))
{
buf.append (File.byteToString (ch));
ch = stream.readByte ();
}
}
if (ch == #'e' || ch == #'E')
{
buf.append (File.byteToString (ch));
ch = stream.readByte ();
if (ch == #'+' || ch == #'-')
{
buf.append (File.byteToString (ch));
ch = stream.readByte ();
}
if (!JSC$lexer_is_decimal_digit (ch))
error (JSC$filename + ":" + JSC$linenum.toString ()
+ ": malformed exponent part in a decimal literal");
while (JSC$lexer_is_decimal_digit (ch))
{
buf.append (File.byteToString (ch));
ch = stream.readByte ();
}
}
}
/* Finally, we put the last character pack to the stream. */
stream.ungetByte (ch);
if (is_float)
{
JSC$token_value = parseFloat (buf);
return JSC$tFLOAT;
}
JSC$token_value = parseInt (buf);
return JSC$tINTEGER;
}
/* Just return the character as-is. */
else
return ch;
}
/* EOF reached. */
return JSC$tEOF;
}
/*
* Help functions.
*/
function JSC$lexer_peek_char (stream)
{
var ch2 = stream.readByte ();
stream.ungetByte (ch2);
return ch2;
}
function JSC$lexer_is_identifier_letter (ch)
{
return ((#'a' <= ch && ch <= #'z') || (#'A' <= ch && ch <= #'Z')
|| ch == #'$' || ch == #'_');
}
function JSC$lexer_is_octal_digit (ch)
{
return (#'0' <= ch && ch <= #'7');
}
function JSC$lexer_is_decimal_digit (ch)
{
return #'0' <= ch && ch <= #'9';
}
function JSC$lexer_is_hex_digit (ch)
{
return ((#'0' <= ch && ch <= #'9')
|| (#'a' <= ch && ch <= #'f')
|| (#'A' <= ch && ch <= #'F'));
}
function JSC$lexer_is_white_space (ch)
{
return (ch == #' ' || ch == #'\t' || ch == #'\v' || ch == #'\r'
|| ch == #'\f' || ch == #'\n');
}
function JSC$lexer_hex_to_dec (ch)
{
return ((#'0' <= ch && ch <= #'9')
? ch - #'0'
: ((#'a' <= ch && ch <= #'f')
? 10 + ch - #'a'
: 10 + ch - #'A'));
}
function JSC$lexer_read_backslash_escape (stream, possible_start, name)
{
var ch = stream.readByte ();
if (ch == #'n')
ch = #'\n';
else if (ch == #'t')
ch = #'\t';
else if (ch == #'v')
ch = #'\v';
else if (ch == #'b')
ch = #'\b';
else if (ch == #'r')
ch = #'\r';
else if (ch == #'f')
ch = #'\f';
else if (ch == #'a')
ch = #'\a';
else if (ch == #'\\')
ch = #'\\';
else if (ch == #'?')
ch = #'?';
else if (ch == #'\'')
ch = #'\'';
else if (ch == #'"')
ch = #'"';
else if (ch == #'x')
{
/* HexEscapeSequence. */
var c1, c2;
c1 = stream.readByte ();
c2 = stream.readByte ();
if (c1 == -1 || c2 == -1)
JSC$lexer_eof_in_constant (possible_start, name);
if (!JSC$lexer_is_hex_digit (c1) || !JSC$lexer_is_hex_digit (c2))
error (JSC$filename + ":" + JSC$linenum.toString ()
+ ": \\x used with no following hex digits");
ch = (JSC$lexer_hex_to_dec (c1) << 4) + JSC$lexer_hex_to_dec (c2);
}
else if (ch == #'u')
{
/* UnicodeEscapeSequence. */
var c1, c2, c3, c4;
c1 = stream.readByte ();
c2 = stream.readByte ();
c3 = stream.readByte ();
c4 = stream.readByte ();
if (c1 == -1 || c2 == -1 || c3 == -1 || c4 == -1)
JSC$lexer_eof_in_constant (possible_start, name);
if (!JSC$lexer_is_hex_digit (c1) || !JSC$lexer_is_hex_digit (c2)
|| !JSC$lexer_is_hex_digit (c3) || !JSC$lexer_is_hex_digit (c4))
error (JSC$filename + ":" + JSC$linenum.toString ()
+ ": \\u used with no following hex digits");
ch = ((JSC$lexer_hex_to_dec (c1) << 12)
+ (JSC$lexer_hex_to_dec (c2) << 8)
+ (JSC$lexer_hex_to_dec (c3) << 4)
+ JSC$lexer_hex_to_dec (c4));
}
else if (JSC$lexer_is_octal_digit (ch))
{
var result = ch - #'0';
var i = 1;
if (ch == #'0')
/* Allow three octal digits after '0'. */
i = 0;
ch = stream.readByte ();
while (i < 3 && JSC$lexer_is_octal_digit (ch))
{
result *= 8;
result += ch - #'0';
ch = stream.readByte ();
i++;
}
stream.ungetByte (ch);
ch = result;
}
else
{
if (ch == -1)
error (JSC$filename + ":" + JSC$linenum.toString ()
+ ": unterminated " + name);
JSC$warning (JSC$filename + ":" + JSC$linenum.toString ()
+ ": warning: unknown escape sequence `\\"
+ File.byteToString (ch) + "'");
}
return ch;
}
function JSC$lexer_read_string (stream, name, ender)
{
var str = new String ("");
var done = false, ch;
var possible_start_ln = JSC$linenum;
var warned_line_terminator = false;
while (!done)
{
ch = stream.readByte ();
if (ch == #'\n')
{
if (JSC$warn_strict_ecma && !warned_line_terminator)
{
JSC$warning (JSC$filename + ":" + JSC$linenum.toString ()
+ ": warning: ECMAScript don't allow line terminators in "
+ name + " constants");
warned_line_terminator = true;
}
JSC$linenum++;
}
if (ch == -1)
JSC$lexer_eof_in_constant (possible_start_ln, name);
else if (ch == ender)
done = true;
else
{
if (ch == #'\\')
{
if (JSC$lexer_peek_char (stream) == #'\n')
{
/*
* Backslash followed by a newline character. Ignore
* them both.
*/
stream.readByte ();
JSC$linenum++;
continue;
}
ch = JSC$lexer_read_backslash_escape (stream, possible_start_ln,
name);
}
str.append (ch);
}
}
return str;
}
function JSC$lexer_read_regexp_constant (stream)
{
/* Regexp literal. */
var source = JSC$lexer_read_regexp_source (stream);
/* Check the possible flags. */
var flags = new String ("");
while ((ch = JSC$lexer_peek_char (stream)) == #'g' || ch == #'i')
{
stream.readByte ();
flags.append (File.byteToString (ch));
}
/* Try to compile it. */
var msg = false;
var result;
try
{
result = new RegExp (source, flags);
}
catch (msg)
{
var start = msg.lastIndexOf (":");
msg = (JSC$filename + ":" + JSC$token_linenum.toString ()
+ ": malformed regular expression constant:"
+ msg.substr (start + 1));
}
if (msg)
error (msg);
/* Success. */
return result;
}
function JSC$lexer_read_regexp_source (stream)
{
var str = new String ("");
var done = false, ch;
var possible_start_ln = JSC$linenum;
var warned_line_terminator = false;
var name = "regular expression";
while (!done)
{
ch = stream.readByte ();
if (ch == #'\n')
{
if (JSC$warn_strict_ecma && !warned_line_terminator)
{
JSC$warning (JSC$filename + ":" + JSC$linenum.toString ()
+ ": warning: ECMAScript don't allow line "
+ "terminators in " + name + " constants");
warned_line_terminator = true;
}
JSC$linenum++;
}
if (ch == -1)
JSC$lexer_eof_in_constant (possible_start_ln, name);
else if (ch == #'/')
done = true;
else
{
if (ch == #'\\')
{
ch = stream.readByte ();
if (ch == #'\n')
{
/*
* Backslash followed by a newline character. Ignore
* them both.
*/
JSC$linenum++;
continue;
}
if (ch == -1)
JSC$lexer_eof_in_constant (possible_start_ln, name);
/* Handle the backslash escapes. */
if (ch == #'f')
ch = #'\f';
else if (ch == #'n')
ch = #'\n';
else if (ch == #'r')
ch = #'\r';
else if (ch == #'t')
ch = #'\t';
else if (ch == #'v')
ch == #'\v';
else if (ch == #'c')
{
/* SourceCharacter. */
ch = stream.readByte ();
if (ch == -1)
JSC$lexer_eof_in_constant (possible_start_ln, name);
if (ch == #'\n' && JSC$warn_strict_ecma)
JSC$warning (JSC$filename + ":" + JSC$linenum.toString ()
+ ": warning: ECMAScript don't allow line termiantor after \\c in regular expression constants");
/*
* Append the source-character escape start. The ch
* will be appended later.
*/
str.append ("\\c");
}
else if (ch == #'u' || ch == #'x' || ch == #'0')
{
/* These can be handled with the read_backslash_escape(). */
stream.ungetByte (ch);
ch = JSC$lexer_read_backslash_escape (stream);
}
else
{
/*
* Nothing special. Leave it to the result as-is.
* The regular expression backage will handle it.
*/
stream.ungetByte (ch);
ch = #'\\';
}
}
str.append (File.byteToString (ch));
}
}
return str;
}
function JSC$lexer_eof_in_constant (possible_start, name)
{
var msg = (JSC$filename + ":" + JSC$linenum.toString ()
+ ": unterminated " + name + " constant");
if (possible_start > 0)
msg += (System.lineBreakSequence
+ JSC$filename + ":" + possible_start.toString ()
+ ": possible real start of unterminated " + name + " constant");
error (msg);
}
/*
Local variables:
mode: c
End:
*/

161
reactos/lib/kjs/jsc/namespace.js Normal file
View file

@ -0,0 +1,161 @@
/*
* Namespace handling.
* Copyright (c) 1998 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/jsc/namespace.js,v $
* $Id: namespace.js,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
/*
* Global functions.
*/
JSC$SCOPE_ARG = 1;
JSC$SCOPE_LOCAL = 2;
function JSC$NameSpace ()
{
this.frame = new JSC$NameSpaceFrame ();
this.push_frame = JSC$NameSpace_push_frame;
this.pop_frame = JSC$NameSpace_pop_frame;
this.alloc_local = JSC$NameSpace_alloc_local;
this.define_symbol = JSC$NameSpace_define_symbol;
this.lookup_symbol = JSC$NameSpace_lookup_symbol;
}
function JSC$NameSpace_push_frame ()
{
var f = new JSC$NameSpaceFrame ();
f.num_locals = this.frame.num_locals;
f.next = this.frame;
this.frame = f;
}
function JSC$NameSpace_pop_frame ()
{
var i;
for (i = this.frame.defs; i != null; i = i.next)
if (i.usecount == 0)
{
if (i.scope == JSC$SCOPE_ARG)
{
if (JSC$warn_unused_argument)
JSC$warning (JSC$filename + ":" + i.linenum.toString ()
+ ": warning: unused argument `" + i.symbol + "'");
}
else
{
if (JSC$warn_unused_variable)
JSC$warning (JSC$filename + ":" + i.linenum.toString ()
+ ": warning: unused variable `" + i.symbol + "'");
}
}
this.frame = this.frame.next;
}
function JSC$NameSpace_alloc_local ()
{
return this.frame.num_locals++;
}
function JSC$NameSpace_define_symbol (symbol, scope, value, linenum)
{
var i;
for (i = this.frame.defs; i != null; i = i.next)
if (i.symbol == symbol)
{
if (i.scope == scope)
error (JSC$filename + ":" + i.linenum.toString()
+ ": redeclaration of `" + i.symbol + "'");
if (i.scope == JSC$SCOPE_ARG && JSC$warn_shadow)
JSC$warning (JSC$filename + ":" + linenum.toString ()
+ ": warning: declaration of `" + symbol
+ "' shadows a parameter");
i.scope = scope;
i.value = value;
i.linenum = linenum;
return;
}
/* Create a new definition. */
i = new JSC$SymbolDefinition (symbol, scope, value, linenum);
i.next = this.frame.defs;
this.frame.defs = i;
}
function JSC$NameSpace_lookup_symbol (symbol)
{
var f, i;
for (f = this.frame; f != null; f = f.next)
for (i = f.defs; i != null; i = i.next)
if (i.symbol == symbol)
{
i.usecount++;
return i;
}
return null;
}
/*
* Static helpers.
*/
function JSC$NameSpaceFrame ()
{
this.next = null;
this.defs = null;
this.num_locals = 0;
}
function JSC$SymbolDefinition (symbol, scope, value, linenum)
{
this.next = null;
this.symbol = symbol;
this.scope = scope;
this.value = value;
this.linenum = linenum;
this.usecount = 0;
}
/*
Local variables:
mode: c
End:
*/

1695
reactos/lib/kjs/jsc/parser.js Normal file
View file

File diff suppressed because it is too large Load diff

173
reactos/lib/kjs/jsc/streams.js Normal file
View file

@ -0,0 +1,173 @@
/*
* Input stream definitions.
* Copyright (c) 1998 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/jsc/streams.js,v $
* $Id: streams.js,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
/*
* File stream.
*/
function JSC$StreamFile (name)
{
this.name = name;
this.stream = new File (name);
this.error = "";
this.open = JSC$StreamFile_open;
this.close = JSC$StreamFile_close;
this.rewind = JSC$StreamFile_rewind;
this.readByte = JSC$StreamFile_read_byte;
this.ungetByte = JSC$StreamFile_unget_byte;
this.readln = JSC$StreamFile_readln;
}
function JSC$StreamFile_open ()
{
if (!this.stream.open ("r"))
{
this.error = System.strerror (System.errno);
return false;
}
return true;
}
function JSC$StreamFile_close ()
{
return this.stream.close ();
}
function JSC$StreamFile_rewind ()
{
return this.stream.setPosition (0);
}
function JSC$StreamFile_read_byte ()
{
return this.stream.readByte ();
}
function JSC$StreamFile_unget_byte (byte)
{
this.stream.ungetByte (byte);
}
function JSC$StreamFile_readln ()
{
return this.stream.readln ();
}
/*
* String stream.
*/
function JSC$StreamString (str)
{
this.name = "StringStream";
this.string = str;
this.pos = 0;
this.unget_byte = -1;
this.error = "";
this.open = JSC$StreamString_open;
this.close = JSC$StreamString_close;
this.rewind = JSC$StreamString_rewind;
this.readByte = JSC$StreamString_read_byte;
this.ungetByte = JSC$StreamString_unget_byte;
this.readln = JSC$StreamString_readln;
}
function JSC$StreamString_open ()
{
return true;
}
function JSC$StreamString_close ()
{
return true;
}
function JSC$StreamString_rewind ()
{
this.pos = 0;
this.unget_byte = -1;
this.error = "";
return true;
}
function JSC$StreamString_read_byte ()
{
var ch;
if (this.unget_byte >= 0)
{
ch = this.unget_byte;
this.unget_byte = -1;
return ch;
}
if (this.pos >= this.string.length)
return -1;
return this.string.charCodeAt (this.pos++);
}
function JSC$StreamString_unget_byte (byte)
{
this.unget_byte = byte;
}
function JSC$StreamString_readln ()
{
var line = new String ("");
var ch;
while ((ch = this.readByte ()) != -1 && ch != #'\n')
line.append (String.pack ("C", ch));
return line;
}
/*
Local variables:
mode: c
End:
*/

11
reactos/lib/kjs/jsc/tests/ChangeLog Normal file
View file

@ -0,0 +1,11 @@
1998-11-25 Markku Rossi <mtr@amme.ssh.fi>
* asci.test: Fixed to work when the builddir != srcdir.
1998-08-11 Markku Rossi <mtr@purple.ngs.fi>
* asci.test: Added test for the automatic semicolon insertion.
1998-03-26 Markku Rossi <mtr@ngs.fi>
* Makefile.am: Created tests for the JavaScript compiler.

223
reactos/lib/kjs/jsc/tests/Makefile Normal file
View file

@ -0,0 +1,223 @@
# Generated automatically from Makefile.in by configure.
# Makefile.in generated automatically by automake 1.3 from Makefile.am
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Automakefile for JavaScript compiler tests.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
#
# along with this program; see the file COPYING. If not, write to
# the Free Software Foundation, 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
SHELL = /bin/sh
srcdir = .
top_srcdir = ../..
prefix = /usr/local/js-0.2.5
exec_prefix = ${prefix}
bindir = ${exec_prefix}/bin
sbindir = ${exec_prefix}/sbin
libexecdir = ${exec_prefix}/libexec
datadir = ${prefix}/share
sysconfdir = ${prefix}/etc
sharedstatedir = ${prefix}/com
localstatedir = ${prefix}/var
libdir = ${exec_prefix}/lib
infodir = ${prefix}/info
mandir = ${prefix}/man
includedir = ${prefix}/include
oldincludedir = /usr/include
DISTDIR =
pkgdatadir = $(datadir)/js
pkglibdir = $(libdir)/js
pkgincludedir = $(includedir)/js
top_builddir = ../..
ACLOCAL = aclocal
AUTOCONF = autoconf
AUTOMAKE = automake
AUTOHEADER = autoheader
INSTALL = /usr/bin/install -c
INSTALL_PROGRAM = ${INSTALL}
INSTALL_DATA = ${INSTALL} -m 644
INSTALL_SCRIPT = ${INSTALL_PROGRAM}
transform = s,x,x,
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
host_alias = i686-pc-linux-gnu
host_triplet = i686-pc-linux-gnu
ACLOCAL_FLAGS_FOR_LIBTOOL =
CC = gcc
CPP = gcc -E
EXTENSIONS = dl_open.lo xjs.lo xmd5.lo md5c.lo
EXTENSIONS_LIBS = -ldl
INTERPRETER_FEATURES = r_std.lo
LD = /usr/bin/ld
LIBTOOL = $(SHELL) $(top_builddir)/libtool
LN_S = ln -s
MAKEINFO = makeinfo
NM = /usr/bin/nm -B
PACKAGE = js
PGCC_BY_PROVENZANO =
RANLIB = ranlib
U =
VERSION = 0.2.5
XLC_R_AIX =
TESTS = compile.test asci.test
EXTRA_DIST = defs $(TESTS) asci.js
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = ../../jsconfig.h
CONFIG_CLEAN_FILES =
DIST_COMMON = ChangeLog Makefile.am Makefile.in
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
TAR = tar
GZIP = --best
all: Makefile
.SUFFIXES:
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps jsc/tests/Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
tags: TAGS
TAGS:
distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
subdir = jsc/tests
distdir: $(DISTFILES)
@for file in $(DISTFILES); do \
d=$(srcdir); \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done
check-TESTS: $(TESTS)
@failed=0; all=0; \
srcdir=$(srcdir); export srcdir; \
for tst in $(TESTS); do \
if test -f $$tst; then dir=.; \
else dir="$(srcdir)"; fi; \
if $(TESTS_ENVIRONMENT) $$dir/$$tst; then \
all=`expr $$all + 1`; \
echo "PASS: $$tst"; \
elif test $$? -ne 77; then \
all=`expr $$all + 1`; \
failed=`expr $$failed + 1`; \
echo "FAIL: $$tst"; \
fi; \
done; \
if test "$$failed" -eq 0; then \
banner="All $$all tests passed"; \
else \
banner="$$failed of $$all tests failed"; \
fi; \
dashes=`echo "$$banner" | sed s/./=/g`; \
echo "$$dashes"; \
echo "$$banner"; \
echo "$$dashes"; \
test "$$failed" -eq 0
info:
dvi:
check: all
$(MAKE) check-TESTS
installcheck:
install-exec:
@$(NORMAL_INSTALL)
install-data:
@$(NORMAL_INSTALL)
install: install-exec install-data all
@:
uninstall:
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs:
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-rm -f Makefile $(DISTCLEANFILES)
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
maintainer-clean-generic:
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
mostlyclean: mostlyclean-generic
clean: clean-generic mostlyclean
distclean: distclean-generic clean
-rm -f config.status
-rm -f libtool
maintainer-clean: maintainer-clean-generic distclean
@echo "This command is intended for maintainers to use;"
@echo "it deletes files that may require special tools to rebuild."
.PHONY: tags distdir check-TESTS info dvi installcheck install-exec \
install-data install uninstall all installdirs mostlyclean-generic \
distclean-generic clean-generic maintainer-clean-generic clean \
mostlyclean distclean maintainer-clean
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

28
reactos/lib/kjs/jsc/tests/Makefile.am Normal file
View file

@ -0,0 +1,28 @@
#
# Automakefile for JavaScript compiler tests.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
#
# along with this program; see the file COPYING. If not, write to
# the Free Software Foundation, 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
TESTS = compile.test asci.test
EXTRA_DIST = defs $(TESTS) asci.js

223
reactos/lib/kjs/jsc/tests/Makefile.in Normal file
View file

@ -0,0 +1,223 @@
# Makefile.in generated automatically by automake 1.3 from Makefile.am
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Automakefile for JavaScript compiler tests.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
#
# along with this program; see the file COPYING. If not, write to
# the Free Software Foundation, 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
SHELL = /bin/sh
srcdir = @srcdir@
top_srcdir = @top_srcdir@
VPATH = @srcdir@
prefix = @prefix@
exec_prefix = @exec_prefix@
bindir = @bindir@
sbindir = @sbindir@
libexecdir = @libexecdir@
datadir = @datadir@
sysconfdir = @sysconfdir@
sharedstatedir = @sharedstatedir@
localstatedir = @localstatedir@
libdir = @libdir@
infodir = @infodir@
mandir = @mandir@
includedir = @includedir@
oldincludedir = /usr/include
DISTDIR =
pkgdatadir = $(datadir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
top_builddir = ../..
ACLOCAL = @ACLOCAL@
AUTOCONF = @AUTOCONF@
AUTOMAKE = @AUTOMAKE@
AUTOHEADER = @AUTOHEADER@
INSTALL = @INSTALL@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
transform = @program_transform_name@
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
host_alias = @host_alias@
host_triplet = @host@
ACLOCAL_FLAGS_FOR_LIBTOOL = @ACLOCAL_FLAGS_FOR_LIBTOOL@
CC = @CC@
CPP = @CPP@
EXTENSIONS = @EXTENSIONS@
EXTENSIONS_LIBS = @EXTENSIONS_LIBS@
INTERPRETER_FEATURES = @INTERPRETER_FEATURES@
LD = @LD@
LIBTOOL = @LIBTOOL@
LN_S = @LN_S@
MAKEINFO = @MAKEINFO@
NM = @NM@
PACKAGE = @PACKAGE@
PGCC_BY_PROVENZANO = @PGCC_BY_PROVENZANO@
RANLIB = @RANLIB@
U = @U@
VERSION = @VERSION@
XLC_R_AIX = @XLC_R_AIX@
TESTS = compile.test asci.test
EXTRA_DIST = defs $(TESTS) asci.js
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = ../../jsconfig.h
CONFIG_CLEAN_FILES =
DIST_COMMON = ChangeLog Makefile.am Makefile.in
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
TAR = tar
GZIP = --best
all: Makefile
.SUFFIXES:
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps jsc/tests/Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
tags: TAGS
TAGS:
distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
subdir = jsc/tests
distdir: $(DISTFILES)
@for file in $(DISTFILES); do \
d=$(srcdir); \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done
check-TESTS: $(TESTS)
@failed=0; all=0; \
srcdir=$(srcdir); export srcdir; \
for tst in $(TESTS); do \
if test -f $$tst; then dir=.; \
else dir="$(srcdir)"; fi; \
if $(TESTS_ENVIRONMENT) $$dir/$$tst; then \
all=`expr $$all + 1`; \
echo "PASS: $$tst"; \
elif test $$? -ne 77; then \
all=`expr $$all + 1`; \
failed=`expr $$failed + 1`; \
echo "FAIL: $$tst"; \
fi; \
done; \
if test "$$failed" -eq 0; then \
banner="All $$all tests passed"; \
else \
banner="$$failed of $$all tests failed"; \
fi; \
dashes=`echo "$$banner" | sed s/./=/g`; \
echo "$$dashes"; \
echo "$$banner"; \
echo "$$dashes"; \
test "$$failed" -eq 0
info:
dvi:
check: all
$(MAKE) check-TESTS
installcheck:
install-exec:
@$(NORMAL_INSTALL)
install-data:
@$(NORMAL_INSTALL)
install: install-exec install-data all
@:
uninstall:
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs:
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-rm -f Makefile $(DISTCLEANFILES)
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
maintainer-clean-generic:
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
mostlyclean: mostlyclean-generic
clean: clean-generic mostlyclean
distclean: distclean-generic clean
-rm -f config.status
-rm -f libtool
maintainer-clean: maintainer-clean-generic distclean
@echo "This command is intended for maintainers to use;"
@echo "it deletes files that may require special tools to rebuild."
.PHONY: tags distdir check-TESTS info dvi installcheck install-exec \
install-data install uninstall all installdirs mostlyclean-generic \
distclean-generic clean-generic maintainer-clean-generic clean \
mostlyclean distclean maintainer-clean
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

44
reactos/lib/kjs/jsc/tests/asci.js Normal file
View file

@ -0,0 +1,44 @@
function t1 ()
{
1
}
function t2 ()
{
return
}
function t3 ()
{
return a + b
}
function t4 ()
{
return
a + b
}
function t5 ()
{
i
++i;
}
function t6 ()
{
i
--i;
}
t3 ()
{ 1
2 } 3
/*
Local variables:
mode: c
End:
*/

32
reactos/lib/kjs/jsc/tests/asci.test Executable file
View file

@ -0,0 +1,32 @@
#!/bin/sh
#
# Test the automatic semicolon insertion.
#
. $srcdir/defs || exit 1
ascifiles="asci.js"
name="asci.test"
# First, create the state 1 compiler.
rm -f jsc.js
for i in $jscsources; do
cat $srcdir/../$i >> jsc.js
done
echo "$name: creating the state 1 compiler"
$js -Wall -O2 -c jsc.js
mv jsc.jsc stage1.jsc
# Now, compile our asci test source files with the state 1 compiler.
for i in $ascifiles; do
$js --load stage1.jsc --file $srcdir/../bs.js $srcdir/$i
done
# Finally, cleanup.
rm -f a.jas a.jsc jsc.js stage1.jsc

50
reactos/lib/kjs/jsc/tests/compile.test Executable file
View file

@ -0,0 +1,50 @@
#!/bin/sh
#
# Compile the compiler source a couple of times.
#
. $srcdir/defs || exit 1
name="compile.test"
# First, create the compiler source file.
rm -f jsc.js
for i in $jscsources; do
cat $srcdir/../$i >> jsc.js
done
# Second, compile the source to the stage one compiler.
echo "$name: creating the stage 1 compiler"
$js -Wall -O2 -c jsc.js
mv jsc.jsc stage1.jsc
# Third, compile the stage two compiler with our new compiler.
echo "$name: creating the stage 2 compiler"
$js --load stage1.jsc --file $srcdir/../bs.js jsc.js
mv a.jsc stage2.jsc
# Fourth, compile stage three compiler.
echo "$name: creating the stage 3 compiler"
$js --load stage2.jsc --file $srcdir/../bs.js jsc.js
mv a.jsc stage3.jsc
# Fifth, cleanup.
rm -f a.jas jsc.js stage1.jsc
# Finally, check that stage2.jsc and stage3.jsc do not differ. If
# they do, the there is something seriously broken.
cmp stage2.jsc stage3.jsc || {
rm -f stage2.jsc stage3.jsc
echo "error: the stage 2 and stage 3 compilers differ"
exit 1
}
# All ok.
rm -f stage2.jsc stage3.jsc

15
reactos/lib/kjs/jsc/tests/defs Executable file
View file

@ -0,0 +1,15 @@
#!/bin/sh
#
# Definitions for the JavaScript compiler testing environment.
#
jscsources="defs.js lexer.js parser.js gram.js namespace.js \
streams.js asm.js entry.js"
js="../../src/js"
# Check that $srcdir is set correctly.
test -f $srcdir/defs || {
echo "defs: installation error" 1>&2
exit 1
}

167
reactos/lib/kjs/jsconfig.h.in Normal file
View file

@ -0,0 +1,167 @@
/* jsconfig.h.in. Generated automatically from configure.in by autoheader. */
/* Define if on AIX 3.
System headers sometimes define this.
We just want to avoid a redefinition error message. */
#ifndef _ALL_SOURCE
#undef _ALL_SOURCE
#endif
/* Define if using alloca.c. */
#undef C_ALLOCA
/* Define to empty if the keyword does not work. */
#undef const
/* Define to one of _getb67, GETB67, getb67 for Cray-2 and Cray-YMP systems.
This function is required for alloca.c support on those systems. */
#undef CRAY_STACKSEG_END
/* Define if you have alloca, as a function or macro. */
#undef HAVE_ALLOCA
/* Define if you have <alloca.h> and it should be used (not on Ultrix). */
#undef HAVE_ALLOCA_H
/* Define as __inline if that's what the C compiler calls it. */
#undef inline
/* If using the C implementation of alloca, define if you know the
direction of stack growth for your system; otherwise it will be
automatically deduced at run-time.
STACK_DIRECTION > 0 => grows toward higher addresses
STACK_DIRECTION < 0 => grows toward lower addresses
STACK_DIRECTION = 0 => direction of growth unknown
*/
#undef STACK_DIRECTION
/* Define if you have the ANSI C header files. */
#undef STDC_HEADERS
/*
* Define the PACKAGE and VERSION only if they are undefined. This means
* that we do not redefine them, when the library is used in another
* GNU like package that defines PACKAGE and VERSION.
*/
/* Package name. */
#ifndef PACKAGE
#undef PACKAGE
#endif /* no PACKAGE */
/* Version number. */
#ifndef VERSION
#undef VERSION
#endif /* no VERSION */
/* Are C prototypes supported. */
#undef PROTOTYPES
/* Canonical host name and its parts. */
#undef CANONICAL_HOST
#undef CANONICAL_HOST_CPU
#undef CANONICAL_HOST_VENDOR
#undef CANONICAL_HOST_OS
/* Do we want to build all instruction dispatchers? */
#undef ALL_DISPATCHERS
/* Do we want to profile byte-code operands. */
#undef PROFILING
/* Do we want the byte-code operand hooks. */
#undef BC_OPERAND_HOOKS
/*
* Unconditionall disable the jumps byte-code instruction dispatch
* method.
*/
#undef DISABLE_JUMPS
/* Does the struct stat has st_blksize member? */
#undef HAVE_STAT_ST_ST_BLKSIZE
/* Does the struct stat has st_blocks member? */
#undef HAVE_STAT_ST_ST_BLOCKS
/* Does the asctime_r() function take three arguments. */
#undef ASCTIME_R_WITH_THREE_ARGS
/* Does the drand48_r() work with DRAND48D data. */
#undef DRAND48_R_WITH_DRAND48D
/* How the attribute structures are passed to the init functions. */
#undef CONDATTR_BY_VALUE
#undef MUTEXATTR_BY_VALUE
#undef THREADATTR_BY_VALUE
/* JS */
#undef WITH_JS
/* Curses. */
#undef WITH_CURSES
#undef HAVE_CURSES_H
#undef HAVE_NCURSES_H
/* MD5 */
#undef WITH_MD5
/* The number of bytes in a int. */
#undef SIZEOF_INT
/* The number of bytes in a long. */
#undef SIZEOF_LONG
/* Define if you have the drand48 function. */
#undef HAVE_DRAND48
/* Define if you have the lstat function. */
#undef HAVE_LSTAT
/* Define if you have the pthread_attr_create function. */
#undef HAVE_PTHREAD_ATTR_CREATE
/* Define if you have the pthread_attr_setscope function. */
#undef HAVE_PTHREAD_ATTR_SETSCOPE
/* Define if you have the pthread_attr_setstacksize function. */
#undef HAVE_PTHREAD_ATTR_SETSTACKSIZE
/* Define if you have the pthread_condattr_create function. */
#undef HAVE_PTHREAD_CONDATTR_CREATE
/* Define if you have the pthread_condattr_init function. */
#undef HAVE_PTHREAD_CONDATTR_INIT
/* Define if you have the pthread_mutexattr_create function. */
#undef HAVE_PTHREAD_MUTEXATTR_CREATE
/* Define if you have the sleep function. */
#undef HAVE_SLEEP
/* Define if you have the srand48 function. */
#undef HAVE_SRAND48
/* Define if you have the usleep function. */
#undef HAVE_USLEEP
/* Define if you have the <dlfcn.h> header file. */
#undef HAVE_DLFCN_H
/* Define if you have the <errno.h> header file. */
#undef HAVE_ERRNO_H
/* Define if you have the <float.h> header file. */
#undef HAVE_FLOAT_H
/* Define if you have the <limits.h> header file. */
#undef HAVE_LIMITS_H
/* Define if you have the <stdlib.h> header file. */
#undef HAVE_STDLIB_H
/* Define if you have the <string.h> header file. */
#undef HAVE_STRING_H
/* Define if you have the <unistd.h> header file. */
#undef HAVE_UNISTD_H

61
reactos/lib/kjs/jsdas/ChangeLog Normal file
View file

@ -0,0 +1,61 @@
1998-10-26 Markku Rossi <mtr@purple.ngs.fi>
* extract-op-names.js (main): Fixed to use the flags comments in
the operands.def file.
1998-09-01 Markku Rossi <mtr@purple.ngs.fi>
* bc.js (ByteCode$parse): Added a more verbose error message for
cases when the byte-code file is truncated.
1998-08-25 Markku Rossi <mtr@purple.ngs.fi>
* bc.js (ByteCode$prettyPrintString): Added support for some
missing character escapes.
1998-08-14 Markku Rossi <mtr@purple.ngs.fi>
* bc.js: Added support for the regular expression constants.
1998-06-08 Markku Rossi <mtr@ngs.fi>
* Changed all character constants to the new #'f' format.
1998-05-27 Markku Rossi <mtr@ngs.fi>
* jsdas.1: Documented the command line options.
1998-05-25 Markku Rossi <mtr@ngs.fi>
* main.js (main): Added option -S, --strip to remove the debug
section.
1998-05-14 Markku Rossi <mtr@ngs.fi>
* bc.js (ByteCode$printCode): Added support for the `try_push'
operand.
1998-05-12 Markku Rossi <mtr@ngs.fi>
* jsdas.1: Initial version of the manual page.
1998-05-11 Markku Rossi <mtr@ngs.fi>
* bc.js (ByteCode$printCode): Added support for the
`delete_property' operand.
1998-05-08 Markku Rossi <mtr@ngs.fi>
* bc.js: Cleaned up the byte-code file handling.
(ByteCode$printCode): Implemented byte-code printing.
Implemented byte-code file mutators: linkSection(),
removeSection() and write().
1998-05-07 Markku Rossi <mtr@ngs.fi>
* Re-organized the das directory. Now the JavaScript disassembler
is built automatically with the `all' target. It is a
`bin_SCRIPTS' target so it gets installed when the JavaScript
package is installed. The makefile also makes the `jsdasm' an
executable and it sets the `js' interpreter command to the first
line of the compiled `jsdasm' program.

290
reactos/lib/kjs/jsdas/Makefile Normal file
View file

@ -0,0 +1,290 @@
# Generated automatically from Makefile.in by configure.
# Makefile.in generated automatically by automake 1.3 from Makefile.am
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Automakefile for JavaScript disassembler.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
SHELL = /bin/sh
srcdir = .
top_srcdir = ..
prefix = /usr/local/js-0.2.5
exec_prefix = ${prefix}
bindir = ${exec_prefix}/bin
sbindir = ${exec_prefix}/sbin
libexecdir = ${exec_prefix}/libexec
datadir = ${prefix}/share
sysconfdir = ${prefix}/etc
sharedstatedir = ${prefix}/com
localstatedir = ${prefix}/var
libdir = ${exec_prefix}/lib
infodir = ${prefix}/info
mandir = ${prefix}/man
includedir = ${prefix}/include
oldincludedir = /usr/include
DISTDIR =
pkgdatadir = $(datadir)/js
pkglibdir = $(libdir)/js
pkgincludedir = $(includedir)/js
top_builddir = ..
ACLOCAL = aclocal
AUTOCONF = autoconf
AUTOMAKE = automake
AUTOHEADER = autoheader
INSTALL = /usr/bin/install -c
INSTALL_PROGRAM = ${INSTALL}
INSTALL_DATA = ${INSTALL} -m 644
INSTALL_SCRIPT = ${INSTALL_PROGRAM}
transform = s,x,x,
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
host_alias = i686-pc-linux-gnu
host_triplet = i686-pc-linux-gnu
ACLOCAL_FLAGS_FOR_LIBTOOL =
CC = gcc
CPP = gcc -E
EXTENSIONS = dl_open.lo xjs.lo xmd5.lo md5c.lo
EXTENSIONS_LIBS = -ldl
INTERPRETER_FEATURES = r_std.lo
LD = /usr/bin/ld
LIBTOOL = $(SHELL) $(top_builddir)/libtool
LN_S = ln -s
MAKEINFO = makeinfo
NM = /usr/bin/nm -B
PACKAGE = js
PGCC_BY_PROVENZANO =
RANLIB = ranlib
U =
VERSION = 0.2.5
XLC_R_AIX =
JSCOMPILER = ../src/js
JSCOMPILER_FLAGS = -Wpedantic -O2 -g
JSS = bc.js operands.js main.js
JSCS = bc.jsc operands.jsc main.jsc
EXTRA_DIST = $(JSS) extract-op-names.js jsdas.1
man_MANS = jsdas.1
bin_SCRIPTS = jsdas
CLEANFILES = jsdas $(JSCS)
SUFFIXES = .jsc .js
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = ../jsconfig.h
CONFIG_CLEAN_FILES =
SCRIPTS = $(bin_SCRIPTS)
man1dir = $(mandir)/man1
MANS = $(man_MANS)
NROFF = nroff
DIST_COMMON = ChangeLog Makefile.am Makefile.in TODO
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
TAR = tar
GZIP = --best
all: Makefile $(SCRIPTS) $(MANS)
.SUFFIXES:
.SUFFIXES: .js .jsc
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps jsdas/Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
install-binSCRIPTS: $(bin_SCRIPTS)
@$(NORMAL_INSTALL)
$(mkinstalldirs) $(DESTDIR)$(bindir)
@list='$(bin_SCRIPTS)'; for p in $$list; do \
if test -f $$p; then \
echo " $(INSTALL_SCRIPT) $$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`"; \
$(INSTALL_SCRIPT) $$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
else if test -f $(srcdir)/$$p; then \
echo " $(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`"; \
$(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
else :; fi; fi; \
done
uninstall-binSCRIPTS:
@$(NORMAL_UNINSTALL)
list='$(bin_SCRIPTS)'; for p in $$list; do \
rm -f $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
done
install-man1:
$(mkinstalldirs) $(DESTDIR)$(man1dir)
@list='$(man1_MANS)'; \
l2='$(man_MANS)'; for i in $$l2; do \
case "$$i" in \
*.1*) list="$$list $$i" ;; \
esac; \
done; \
for i in $$list; do \
if test -f $(srcdir)/$$i; then file=$(srcdir)/$$i; \
else file=$$i; fi; \
ext=`echo $$i | sed -e 's/^.*\\.//'`; \
inst=`echo $$i | sed -e 's/\\.[0-9a-z]*$$//'`; \
inst=`echo $$inst | sed '$(transform)'`.$$ext; \
echo " $(INSTALL_DATA) $$file $(DESTDIR)$(man1dir)/$$inst"; \
$(INSTALL_DATA) $$file $(DESTDIR)$(man1dir)/$$inst; \
done
uninstall-man1:
@list='$(man1_MANS)'; \
l2='$(man_MANS)'; for i in $$l2; do \
case "$$i" in \
*.1*) list="$$list $$i" ;; \
esac; \
done; \
for i in $$list; do \
ext=`echo $$i | sed -e 's/^.*\\.//'`; \
inst=`echo $$i | sed -e 's/\\.[0-9a-z]*$$//'`; \
inst=`echo $$inst | sed '$(transform)'`.$$ext; \
echo " rm -f $(DESTDIR)$(man1dir)/$$inst"; \
rm -f $(DESTDIR)$(man1dir)/$$inst; \
done
install-man: $(MANS)
@$(NORMAL_INSTALL)
$(MAKE) install-man1
uninstall-man:
@$(NORMAL_UNINSTALL)
$(MAKE) uninstall-man1
tags: TAGS
TAGS:
distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
subdir = jsdas
distdir: $(DISTFILES)
@for file in $(DISTFILES); do \
d=$(srcdir); \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done
info:
dvi:
check: all
$(MAKE)
installcheck:
install-exec: install-binSCRIPTS
@$(NORMAL_INSTALL)
install-data: install-man
@$(NORMAL_INSTALL)
install: install-exec install-data all
@:
uninstall: uninstall-binSCRIPTS uninstall-man
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs:
$(mkinstalldirs) $(DATADIR)$(bindir) $(DESTDIR)$(mandir)/man1
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-rm -f Makefile $(DISTCLEANFILES)
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
maintainer-clean-generic:
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
mostlyclean: mostlyclean-generic
clean: clean-generic mostlyclean
distclean: distclean-generic clean
-rm -f config.status
-rm -f libtool
maintainer-clean: maintainer-clean-generic distclean
@echo "This command is intended for maintainers to use;"
@echo "it deletes files that may require special tools to rebuild."
.PHONY: uninstall-binSCRIPTS install-binSCRIPTS install-man1 \
uninstall-man1 install-man uninstall-man tags distdir info dvi \
installcheck install-exec install-data install uninstall all \
installdirs mostlyclean-generic distclean-generic clean-generic \
maintainer-clean-generic clean mostlyclean distclean maintainer-clean
compile: $(JSCS)
jsdas: $(JSS)
rm -f $@.js
for i in $(JSS); do cat $(srcdir)/$$i >> $@.js; done
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $@.js
echo "#!$(bindir)/js --file" > $@
# echo "#!$(JSCOMPILER) --file" > $@
cat $@.jsc >> $@
chmod a+x $@
.js.jsc:
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $<
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

53
reactos/lib/kjs/jsdas/Makefile.am Normal file
View file

@ -0,0 +1,53 @@
#
# Automakefile for JavaScript disassembler.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
JSCOMPILER = ../src/js
JSCOMPILER_FLAGS = -Wpedantic -O2 -g
JSS = bc.js operands.js main.js
JSCS = bc.jsc operands.jsc main.jsc
EXTRA_DIST = $(JSS) extract-op-names.js jsdas.1
man_MANS = jsdas.1
bin_SCRIPTS = jsdas
compile: $(JSCS)
jsdas: $(JSS)
rm -f $@.js
for i in $(JSS); do cat $(srcdir)/$$i >> $@.js; done
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $@.js
echo "#!$(bindir)/js --file" > $@
# echo "#!$(JSCOMPILER) --file" > $@
cat $@.jsc >> $@
chmod a+x $@
CLEANFILES = jsdas $(JSCS)
SUFFIXES = .jsc .js
.js.jsc:
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $<

290
reactos/lib/kjs/jsdas/Makefile.in Normal file
View file

@ -0,0 +1,290 @@
# Makefile.in generated automatically by automake 1.3 from Makefile.am
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Automakefile for JavaScript disassembler.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
SHELL = /bin/sh
srcdir = @srcdir@
top_srcdir = @top_srcdir@
VPATH = @srcdir@
prefix = @prefix@
exec_prefix = @exec_prefix@
bindir = @bindir@
sbindir = @sbindir@
libexecdir = @libexecdir@
datadir = @datadir@
sysconfdir = @sysconfdir@
sharedstatedir = @sharedstatedir@
localstatedir = @localstatedir@
libdir = @libdir@
infodir = @infodir@
mandir = @mandir@
includedir = @includedir@
oldincludedir = /usr/include
DISTDIR =
pkgdatadir = $(datadir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
top_builddir = ..
ACLOCAL = @ACLOCAL@
AUTOCONF = @AUTOCONF@
AUTOMAKE = @AUTOMAKE@
AUTOHEADER = @AUTOHEADER@
INSTALL = @INSTALL@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
transform = @program_transform_name@
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
host_alias = @host_alias@
host_triplet = @host@
ACLOCAL_FLAGS_FOR_LIBTOOL = @ACLOCAL_FLAGS_FOR_LIBTOOL@
CC = @CC@
CPP = @CPP@
EXTENSIONS = @EXTENSIONS@
EXTENSIONS_LIBS = @EXTENSIONS_LIBS@
INTERPRETER_FEATURES = @INTERPRETER_FEATURES@
LD = @LD@
LIBTOOL = @LIBTOOL@
LN_S = @LN_S@
MAKEINFO = @MAKEINFO@
NM = @NM@
PACKAGE = @PACKAGE@
PGCC_BY_PROVENZANO = @PGCC_BY_PROVENZANO@
RANLIB = @RANLIB@
U = @U@
VERSION = @VERSION@
XLC_R_AIX = @XLC_R_AIX@
JSCOMPILER = ../src/js
JSCOMPILER_FLAGS = -Wpedantic -O2 -g
JSS = bc.js operands.js main.js
JSCS = bc.jsc operands.jsc main.jsc
EXTRA_DIST = $(JSS) extract-op-names.js jsdas.1
man_MANS = jsdas.1
bin_SCRIPTS = jsdas
CLEANFILES = jsdas $(JSCS)
SUFFIXES = .jsc .js
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = ../jsconfig.h
CONFIG_CLEAN_FILES =
SCRIPTS = $(bin_SCRIPTS)
man1dir = $(mandir)/man1
MANS = $(man_MANS)
NROFF = nroff
DIST_COMMON = ChangeLog Makefile.am Makefile.in TODO
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
TAR = tar
GZIP = --best
all: Makefile $(SCRIPTS) $(MANS)
.SUFFIXES:
.SUFFIXES: .js .jsc
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps jsdas/Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
install-binSCRIPTS: $(bin_SCRIPTS)
@$(NORMAL_INSTALL)
$(mkinstalldirs) $(DESTDIR)$(bindir)
@list='$(bin_SCRIPTS)'; for p in $$list; do \
if test -f $$p; then \
echo " $(INSTALL_SCRIPT) $$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`"; \
$(INSTALL_SCRIPT) $$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
else if test -f $(srcdir)/$$p; then \
echo " $(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`"; \
$(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
else :; fi; fi; \
done
uninstall-binSCRIPTS:
@$(NORMAL_UNINSTALL)
list='$(bin_SCRIPTS)'; for p in $$list; do \
rm -f $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
done
install-man1:
$(mkinstalldirs) $(DESTDIR)$(man1dir)
@list='$(man1_MANS)'; \
l2='$(man_MANS)'; for i in $$l2; do \
case "$$i" in \
*.1*) list="$$list $$i" ;; \
esac; \
done; \
for i in $$list; do \
if test -f $(srcdir)/$$i; then file=$(srcdir)/$$i; \
else file=$$i; fi; \
ext=`echo $$i | sed -e 's/^.*\\.//'`; \
inst=`echo $$i | sed -e 's/\\.[0-9a-z]*$$//'`; \
inst=`echo $$inst | sed '$(transform)'`.$$ext; \
echo " $(INSTALL_DATA) $$file $(DESTDIR)$(man1dir)/$$inst"; \
$(INSTALL_DATA) $$file $(DESTDIR)$(man1dir)/$$inst; \
done
uninstall-man1:
@list='$(man1_MANS)'; \
l2='$(man_MANS)'; for i in $$l2; do \
case "$$i" in \
*.1*) list="$$list $$i" ;; \
esac; \
done; \
for i in $$list; do \
ext=`echo $$i | sed -e 's/^.*\\.//'`; \
inst=`echo $$i | sed -e 's/\\.[0-9a-z]*$$//'`; \
inst=`echo $$inst | sed '$(transform)'`.$$ext; \
echo " rm -f $(DESTDIR)$(man1dir)/$$inst"; \
rm -f $(DESTDIR)$(man1dir)/$$inst; \
done
install-man: $(MANS)
@$(NORMAL_INSTALL)
$(MAKE) install-man1
uninstall-man:
@$(NORMAL_UNINSTALL)
$(MAKE) uninstall-man1
tags: TAGS
TAGS:
distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
subdir = jsdas
distdir: $(DISTFILES)
@for file in $(DISTFILES); do \
d=$(srcdir); \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done
info:
dvi:
check: all
$(MAKE)
installcheck:
install-exec: install-binSCRIPTS
@$(NORMAL_INSTALL)
install-data: install-man
@$(NORMAL_INSTALL)
install: install-exec install-data all
@:
uninstall: uninstall-binSCRIPTS uninstall-man
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs:
$(mkinstalldirs) $(DATADIR)$(bindir) $(DESTDIR)$(mandir)/man1
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-rm -f Makefile $(DISTCLEANFILES)
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
maintainer-clean-generic:
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
mostlyclean: mostlyclean-generic
clean: clean-generic mostlyclean
distclean: distclean-generic clean
-rm -f config.status
-rm -f libtool
maintainer-clean: maintainer-clean-generic distclean
@echo "This command is intended for maintainers to use;"
@echo "it deletes files that may require special tools to rebuild."
.PHONY: uninstall-binSCRIPTS install-binSCRIPTS install-man1 \
uninstall-man1 install-man uninstall-man tags distdir info dvi \
installcheck install-exec install-data install uninstall all \
installdirs mostlyclean-generic distclean-generic clean-generic \
maintainer-clean-generic clean mostlyclean distclean maintainer-clean
compile: $(JSCS)
jsdas: $(JSS)
rm -f $@.js
for i in $(JSS); do cat $(srcdir)/$$i >> $@.js; done
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $@.js
echo "#!$(bindir)/js --file" > $@
# echo "#!$(JSCOMPILER) --file" > $@
cat $@.jsc >> $@
chmod a+x $@
.js.jsc:
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $<
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

5
reactos/lib/kjs/jsdas/TODO Normal file
View file

@ -0,0 +1,5 @@
TODO JavaScript Disassembler
============================
* option --extract to save contents of a section to file

619
reactos/lib/kjs/jsdas/bc.js Normal file
View file

@ -0,0 +1,619 @@
/*
* Byte-code file handling.
* Copyright (c) 1998 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/jsdas/bc.js,v $
* $Id: bc.js,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
function ByteCode$SymtabEntry (name, offset)
{
this.name = name;
this.offset = offset;
}
function ByteCode ()
{
/* Private methods. */
this.sectionName = ByteCode$sectionName;
this.lookupSection = ByteCode$lookupSection;
this.parseConstants = ByteCode$parseConstants;
this.parseSymtab = ByteCode$parseSymtab;
this.prettyPrintString = ByteCode$prettyPrintString;
this.opIsSymbol = ByteCode$opIsSymbol;
this.opIsJump = ByteCode$opIsJump;
/* Public methods. */
this.parse = ByteCode$parse;
this.write = ByteCode$write;
this.printInfo = ByteCode$printInfo;
this.printCode = ByteCode$printCode;
this.printConstants = ByteCode$printConstants;
this.printSymtab = ByteCode$printSymtab;
this.printDebug = ByteCode$printDebug;
this.linkSection = ByteCode$linkSection;
this.removeSection = ByteCode$removeSection;
}
function ByteCode$sectionName (type)
{
var name = type.toString ();
if (type == JSC$BC_SECT_CODE)
name += " (code)";
else if (type == JSC$BC_SECT_CONSTANTS)
name += " (constants)";
else if (type == JSC$BC_SECT_SYMTAB)
name += " (symtab)";
else if (type == JSC$BC_SECT_DEBUG)
name += " (debug)";
return name;
}
function ByteCode$lookupSection (sect)
{
var i;
for (i = 0; i < this.sect_types.length; i++)
if (this.sect_types[i] == sect)
return this.sect_data[i];
System.print ("jsdas: no section ", this.sectionName (sect), "\n");
return false;
}
function ByteCode$parseConstants ()
{
if (this.constants)
return this.constants;
var data = this.lookupSection (JSC$BC_SECT_CONSTANTS);
if (!data)
return false;
this.constants = new Array ();
var pos, count = 0;
for (pos = 0; pos < data.length; count++)
{
var type = data[pos++];
var val;
if (type == JSC$CONST_INT)
{
val = data.substr (pos, 4).unpack ("N")[0];
pos += 4;
}
else if (type == JSC$CONST_STRING)
{
var len = data.substr (pos, 4).unpack ("N")[0];
pos += 4;
val = "\"" + data.substr (pos, len);
pos += len;
}
else if (type == JSC$CONST_FLOAT)
{
val = data.substr (pos, 8).unpack ("d")[0];
pos += 8;
}
else if (type == JSC$CONST_SYMBOL)
{
val = new String ("S");
for (; data[pos] != #'\0'; pos++)
val.append (data.charAt (pos));
pos++;
}
else if (type == JSC$CONST_NAN)
{
val = parseFloat ("****");
}
else if (type == JSC$CONST_REGEXP)
{
var flags = data.substr (pos, 1).unpack ("C")[0];
pos++;
var len = data.substr (pos, 4).unpack ("N")[0];
pos += 4;
val = "/" + File.byteToString (flags) + data.substr (pos, len);
pos += len;
}
else
{
/* Unknown constant type. */
this.constants = false;
return false;
}
this.constants[count] = val;
}
return this.constants;
}
function ByteCode$parseSymtab ()
{
if (this.symtab)
return this.symtab;
var data = this.lookupSection (JSC$BC_SECT_SYMTAB);
if (!data)
return false;
this.symtab = new Array ();
/* Fetch the number of symtab entries. */
var nentries = data.unpack ("N")[0];
var pos, count = 0;
for (pos = 4; pos < data.length; count++)
{
/* Read the symbol name. */
var name = new String ("");
for (; data[pos] != #'\0'; pos++)
name.append (data.charAt (pos));
pos++;
/* Read the offset. */
var offset = data.substr (pos, 4).unpack ("N")[0];
pos += 4;
this.symtab.push (new ByteCode$SymtabEntry (name, offset));
}
if (count != nentries)
System.print ("jsdas: warning: expected ", nentries,
" symtab entries, but got ", count, "\n");
return this.symtab;
}
function ByteCode$prettyPrintString (str)
{
var i;
var tail = "";
var ender;
/* Determine the type. */
if (str[0] == #'"')
{
i = 1;
ender = "\"";
}
else
{
/* Regexp. */
var flags = str[1];
ender = "/";
if (flags & JSC$CONST_REGEXP_FLAG_G)
tail += "g";
if (flags & JSC$CONST_REGEXP_FLAG_I)
tail += "i";
i = 2;
}
System.print (ender);
for (; i < str.length; i++)
{
if (str[i] == ender[0] || str[i] == #'\\')
System.print ("\\" + str.charAt (i));
else if (str[i] == #'\n')
System.print ("\\n");
else if (str[i] == #'\t')
System.print ("\\t");
else if (str[i] == #'\v')
System.print ("\\v");
else if (str[i] == #'\b')
System.print ("\\b");
else if (str[i] == #'\r')
System.print ("\\r");
else if (str[i] == #'\f')
System.print ("\\f");
else if (str[i] == #'\a')
System.print ("\\a");
else if (str[i] == #'\'')
System.print ("\\\'");
else if (str[i] == #'\"')
System.print ("\\\"");
else
System.print (str.charAt (i));
}
System.print (ender, tail);
}
function ByteCode$opIsSymbol (op)
{
return (DASM$op_flags[op] & 0x01) != 0;
}
function ByteCode$opIsJump (op)
{
return (DASM$op_flags[op] & 0x02) != 0;
}
function ByteCode$parse (stream)
{
var ch;
var buf;
ch = stream.readByte ();
if (ch == #'#')
{
if (stream.readByte () != #'!')
return false;
/* Skip the first comment line. */
this.first_line = "#!" + stream.readln ();
}
else
{
stream.ungetByte (ch);
this.first_line = false;
}
buf = stream.read (4);
if (buf.length != 4)
return false;
var a = buf.unpack ("N");
if (a[0] != JSC$BC_MAGIC)
{
System.print ("jsdas: illegal magic: ", a[0].toString (16),
", should be: ", JSC$BC_MAGIC.toString (16), "\n");
return false;
}
buf = stream.read (4);
if (buf.length != 4)
return false;
var num_sections = buf.unpack ("N")[0];
this.sect_types = new Array ();
this.sect_data = new Array ();
/* Read sections. */
for (i = 0; i < num_sections; i++)
{
/* Type and length. */
buf = stream.read (8);
if (buf.length != 8)
return false;
a = buf.unpack ("NN");
this.sect_types[i] = a[0];
var len = a[1];
buf = stream.read (len);
if (buf.length != len)
{
System.stdout.writeln ("couldn't read section " + i.toString ()
+ ", expected=" + len.toString ()
+ ", got=" + buf.length.toString ());
return false;
}
this.sect_data[i] = buf;
}
return true;
}
function ByteCode$printInfo ()
{
var i;
for (i = 0; i < this.sect_types.length; i++)
{
var sectname = this.sectionName (this.sect_types[i]);
System.print (" section ", i, ": ");
System.print ("type=", sectname);
System.print (", length=", this.sect_data[i].length, "\n");
}
}
function ByteCode$printConstants ()
{
if (!this.parseConstants ())
{
System.print ("jsdas: couldn't find a parse the constants section\n");
return;
}
var i;
for (i = 0; i < this.constants.length; i++)
{
System.print (" ", i, ":\t");
var c = this.constants[i];
if (typeof c == "number")
System.print (c);
else if (typeof c == "string")
{
/* Must be a string, regexp or symbol. */
if (c[0] == #'S')
/* Symbol. */
System.print (c.substr (1));
else
this.prettyPrintString (c);
}
else
{
System.print ("jsdas: illegal element in the constans array: type=",
typeof c, "\n");
return;
}
System.print ("\n");
}
}
function ByteCode$printSymtab ()
{
var symtab = this.parseSymtab ();
if (!symtab)
{
System.print ("jsdas: couldn't find or parse symtab section\n");
return;
}
var i;
for (i = 0; i < symtab.length; i++)
{
var name = symtab[i].name;
var offset = symtab[i].offset;
System.print (" ", name);
var pad = name.length;
for (; pad < 40; pad++)
System.print (" ");
System.print (offset, "\n");
}
}
function ByteCode$printDebug ()
{
var data = this.lookupSection (JSC$BC_SECT_DEBUG);
if (!data)
return;
var pos, count = 0;
var filename = "<unknown>";
for (pos = 0; pos < data.length; count++)
{
var type = data[pos++];
if (type == JSC$DEBUG_FILENAME)
{
var len = data.substr (pos, 4).unpack ("N")[0];
pos += 4;
filename = data.substr (pos, len);
pos += len;
}
else if (type == JSC$DEBUG_LINENUMBER)
{
var a = data.substr (pos, 8).unpack ("NN");
pos += 8;
System.print (" ", a[0], "\t", filename, ":", a[1], "\n");
}
else
{
System.print ("jsdas: unknown debug entry: ",
"skipping all remaining data\n");
return;
}
}
}
function ByteCode$printCode ()
{
var data = this.lookupSection (JSC$BC_SECT_CODE);
if (!data)
return;
var consts = this.parseConstants ();
if (!consts)
{
System.print ("jsdas: couldn't find or parse constants\n");
return;
}
var symtab = this.parseSymtab ();
if (!symtab)
{
System.print ("jsdas: couldn't find or parse symtab\n");
return;
}
var symtab_pos = -1;
var next_symtab_offset = -1;
var pos;
for (pos = 0; pos < data.length; )
{
/* Handle symtab entries. */
if (pos >= next_symtab_offset)
{
while (pos > next_symtab_offset)
{
/* Lookup the next offset. */
symtab_pos++;
if (symtab_pos >= symtab.length)
next_symtab_offset = data.length + 1;
else
next_symtab_offset = symtab[symtab_pos].offset;
}
if (pos == next_symtab_offset)
System.print (pos == 0 ? "" : "\n",
symtab[symtab_pos].name, ":\n");
}
System.print (" ", pos, "\t");
var op = data[pos++];
if (!DASM$op_names[op])
{
System.print ("jsdas: unknown operand: ",
"skipping all remaining data\n");
return;
}
System.print (DASM$op_names[op], "\t");
if (DASM$op_names[op].length < 8)
System.print ("\t");
var ds = DASM$op_data[op];
var val;
if (ds == 1)
val = data[pos];
else if (ds == 2)
val = data.substr (pos, 2).unpack ("n")[0];
else if (ds == 4)
val = data.substr (pos, 4).unpack ("N")[0];
if (op == JSC$OP_CONST || this.opIsSymbol (op))
{
/* Handle symbols and constants. */
var c = consts[val];
if (typeof c == "string")
{
if (c[0] == #'S')
System.print (c.substr (1));
else
this.prettyPrintString (c);
}
else
System.print (c);
}
else if (this.opIsJump (op))
{
/* Local jumps. */
val += pos + ds;
System.print (val);
}
else
{
/* Handle all the rest. */
if (ds != 0)
System.print (val);
}
pos += ds;
System.print ("\n");
}
}
function ByteCode$linkSection (type, data)
{
var i;
for (i = 0; i < this.sect_types.length; i++)
if (this.sect_types[i] == type)
{
this.sect_data[i] = data;
return;
}
/* Create a new section. */
this.sect_types.push (type);
this.sect_data.push (data);
}
function ByteCode$removeSection (type)
{
var i;
for (i = 0; i < this.sect_types.length; i++)
if (this.sect_types[i] == type)
{
/* Found it. */
this.sect_types.splice (i, 1);
this.sect_data.splice (i, 1);
return true;
}
return false;
}
function ByteCode$write (name)
{
var fp = new File (name);
if (fp.open ("w"))
{
/* Possible first line. */
if (this.first_line)
fp.writeln (this.first_line);
/* Magic. */
fp.write (String.pack ("N", JSC$BC_MAGIC));
/* Number of sections. */
fp.write (String.pack ("N", this.sect_types.length));
var i;
for (i = 0; i < this.sect_types.length; i++)
{
/* Write type and the length of the section. */
fp.write (String.pack ("NN", this.sect_types[i],
this.sect_data[i].length));
/* Write the data. */
fp.write (this.sect_data[i]);
}
return fp.close ();
}
return false;
}
/*
Local variables:
mode: c
End:
*/

117
reactos/lib/kjs/jsdas/extract-op-names.js Executable file
View file

@ -0,0 +1,117 @@
#!../src/js
/*
* Extract byte-code operand names from the operands.def file.
* Copyright (c) 1998 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/jsdas/extract-op-names.js,v $
* $Id: extract-op-names.js,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
source = "../src/operands.def";
target = "operands.js";
op_re = new RegExp ("\
^operand[ \t]+([a-zA-Z_][a-zA-Z0-9_]*)[ \t]+([^ \t]+)[ \t]+{(.*)");
function main ()
{
var ifp = new File (source);
var ofp = new File (target);
var count = 0;
if (ifp.open ("r"))
{
if (ofp.open ("w"))
{
header (ofp);
while (!ifp.eof ())
{
var line = ifp.readln ();
if (op_re.test (line))
operand (ofp, RegExp.$1, RegExp.$2, RegExp.$3, count++);
}
ofp.close ();
}
else
{
ifp.close ();
System.error ("Couldn't create target file `", target, "':",
System.strerror (System.errno), "\n");
System.exit (1);
}
ifp.close ();
}
else
{
System.error ("Couldn't open source file `", source, "':",
System.strerror (System.errno), "\n");
System.exit (1);
}
}
function header (fp)
{
fp.write ("\
/* -*- c -*-
* Operand definitions for the JavaScript byte-code.
*
* This file is automatically create from the operands.def file.
* Editing is strongly discouraged. You should edit the file
* `extract-op-names.js' instead.
*/
DASM$op_names = new Array ();
DASM$op_data = new Array ();
DASM$op_flags = new Array ();
");
}
function operand (ofp, name, data, flags, count)
{
var f = 0;
if (/symbol/.test (flags))
f |= 0x01;
if (/jump/.test (flags))
f |= 0x02;
ofp.write ("\
DASM$op_names[" + count.toString () + "]\t= \"" + name + "\";
DASM$op_data[" + count.toString () + "] \t= " + data + ";
DASM$op_flags[" + count.toString () + "] \t= 0x" + f.toString (16) + ";
");
}
main ();
/*
Local variables:
mode: c
End:
*/

83
reactos/lib/kjs/jsdas/jsdas.1 Normal file
View file

@ -0,0 +1,83 @@
.\"
.\" Manual page for the js disassembler.
.\" Copyright (c) 1998 New Generation Software (NGS) Oy
.\" Author: Markku Rossi <mtr@iki.fi>
.\"
.\" This program is free software; you can redistribute it and/or modify
.\" it under the terms of the GNU General Public License as published by
.\" the Free Software Foundation; either version 2, or (at your option)
.\" any later version.
.\"
.\" This program is distributed in the hope that it will be useful,
.\" but WITHOUT ANY WARRANTY; without even the implied warranty of
.\" MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
.\" GNU General Public License for more details.
.\"
.\" You should have received a copy of the GNU General Public License
.\" along with this program; see the file COPYING. If not, write to
.\" the Free Software Foundation, 59 Temple Place - Suite 330,
.\" Boston, MA 02111-1307, USA.
.\"
.TH JSDAS 1 "May 27, 1998" "JSDAS" "JSDAS"
.SH NAME
jsdas \- disassemble and manipulate JavaScript byte\-code files
.SH SYNOPSIS
.B jsdas
[\f3\-cCdhisSV\f1]
[\f3\-l \f2type\f1 \f2data\f1]
[\f3\-r \f2type\f1]
\f2file\f1...
.SH DESCRIPTION
The \f3jsdas\f1 program is a disassembler and a manipulator for the
JavaScript byte\-code files. The program can be used to view,
disassemble and manipulate the byte\-code files.
.SH OPTIONS
.TP 8
.B \-c, \-\-code
Print the code section of the byte\-code files. This is the default
action that is preformed if no options are given for the \f3jsdas\f1
program.
.TP 8
.B \-C, \-\-constants
Print the constants section of the byte\-code file.
.TP 8
.B \-d, \-\-debug
Print the debug section of the byte\-code file.
.TP 8
.B \-h, \-\-help
Print a short help message that describes the options that can be given
to the \f3jsdas\f1 program.
.TP 8
.B \-i, \-\-info
Print the byte\-code file information.
.TP 8
.B \-l \f2type\f3 \f2data\f3, \-\-link \f2type\f3 \f2data\f3
Link a new section to the byte\-code file. The section's type is
\f2type\f1 and its contents is read from file \f2data\f1.
.TP 8
.B \-r \f2type\f3, \-\-remove \f2type\f3
Remove section of type \f2type\f1 from the byte\-code files.
.TP 8
.B \-s, \-\-symtab
Print the symbol table section of the byte\-code file.
.TP 8
.B \-S, \-\-strip
Remove the debug section from the byte\-code files.
.TP 8
.B \-V, \-\-version
Print the version number of the \f3jsdas\f1 program.
.SH AUTHOR
Markku Rossi <mtr@ngs.fi>
NGS JavaScript WWW home page: <http://www.ngs.fi/js/>
.SH SEE ALSO
js(1)

1253
reactos/lib/kjs/jsdas/jsdas.js Normal file
View file

File diff suppressed because it is too large Load diff

398
reactos/lib/kjs/jsdas/main.js Normal file
View file

@ -0,0 +1,398 @@
/*
* Disassembler for JavaScript byte-code files.
* Copyright (c) 1998 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/jsdas/main.js,v $
* $Id: main.js,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
/*
* Variables and definitions.
*/
version_number = "0.0.1";
/*
* Options.
*/
/*
* -c, --code
*
* Print code section.
*/
opt_code = false;
/*
* -C, --constants
*
* Print constants section.
*/
opt_constants = false;
/*
* -d, --debug
*
* Print the debug section.
*/
opt_debug = false;
/*
* -h, --help
*
* Print short help and exit successfully.
*/
/*
* -i, --info
*
* Show general information about the file.
*/
opt_info = false;
/*
* -l TYPE DATA, --link TYPE DATA
*
* Link a new section to the byte-code file. The new section's type is
* TYPE and its data is in file DATA.
*/
opt_link = false;
opt_link_type = 0;
opt_link_data = "";
/*
* -r TYPE, --remove TYPE
*
* Remove section TYPE.
*/
opt_remove = false;
opt_remove_type = 0;
/*
* -s, --symtab
*
* Print symtab section.
*/
opt_symtab = false;
/*
* -S, --strip
*
* Remove the debug section from byte-code files.
*/
/*
* -V, --version
*
* Print version information and exit successfully.
*/
/*
* Functions.
*/
function main ()
{
var opt_default = true;
var idx = ARGS[0].lastIndexOf ("/");
if (idx >= 0)
program = ARGS[0].substr (idx + 1);
else
program = ARGS[0];
/* Handle arguments. */
var i;
for (i = 1; i < ARGS.length; i++)
{
if (ARGS[i][0] == #'-')
{
if (ARGS[i] == "-c" || ARGS[i] == "--code")
{
opt_code = true;
opt_default = false;
}
else if (ARGS[i] == "-C" || ARGS[i] == "--constants")
{
opt_constants = true;
opt_default = false;
}
else if (ARGS[i] == "-d" || ARGS[i] == "--debug")
{
opt_debug = true;
opt_default = false;
}
else if (ARGS[i] == "-i" || ARGS[i] == "--info")
{
opt_info = true;
opt_default = false;
}
else if (ARGS[i] == "-l" || ARGS[i] == "--link")
{
opt_link = true;
opt_default = false;
if (i + 2 >= ARGS.length)
{
System.error (program, ": no arguments for option --link\n");
System.exit (1);
}
opt_link_type = parseInt (ARGS[++i]);
if (isNaN (opt_link_type))
{
System.error (program, ": illegal section type `",
ARGS[i], "'\n");
System.exit (1);
}
opt_link_data = (ARGS[++i]);
}
else if (ARGS[i] == "-r" || ARGS[i] == "--remove")
{
opt_remove = true;
opt_default = false;
if (i + 1 >= ARGS.length)
{
System.error (program,
": no arguments for option --remove\n");
System.exit (1);
}
opt_remove_type = parseInt (ARGS[++i]);
if (isNaN (opt_remove_type))
{
System.error (program, ": illegal section type `",
ARGS[i], "'\n");
System.exit (1);
}
}
else if (ARGS[i] == "-s" || ARGS[i] == "--symtab")
{
opt_symtab = true;
opt_default = false;
}
else if (ARGS[i] == "-S" || ARGS[i] == "--strip")
{
opt_remove = true;
opt_default = false;
opt_remove_type = JSC$BC_SECT_DEBUG;
}
else if (ARGS[i] == "-h" || ARGS[i] == "--help")
{
usage ();
System.exit (0);
}
else if (ARGS[i] == "-V" || ARGS[i] == "--version")
{
version ();
System.exit (0);
}
else
{
/* Unrecognized option. */
System.error (program, ": unrecognized option `",
ARGS[i], "'\n");
System.error ("Try `", program,
" --help' for more information.\n");
System.exit (1);
}
}
else
{
/* End of arguments. */
break;
}
}
if (i >= ARGS.length)
{
System.error (program, ": no files specified\n");
System.exit (1);
}
/* Process files. */
var first = true;
for (; i < ARGS.length; i++)
{
if (first)
first = false;
else
System.print ("\n");
System.print (ARGS[i], ":\n");
var is = new File (ARGS[i]);
if (is.open ("r"))
{
var bc = new ByteCode ();
var result = bc.parse (is);
is.close ();
if (!result)
System.print (program, ": couldn't parse byte-code file `",
ARGS[i], "'\n");
else
{
var write_back = false;
if (opt_info)
{
System.print ("\n* byte-code file information\n\n");
bc.printInfo ();
}
if (opt_constants)
{
System.print ("\n* section `Constants'\n\n");
bc.printConstants ();
}
if (opt_default || opt_code)
{
System.print ("\n* section `Code'\n\n");
bc.printCode ();
}
if (opt_symtab)
{
System.print ("\n* section `Symtab'\n\n");
bc.printSymtab ();
}
if (opt_debug)
{
System.print ("\n* section `Debug'\n\n");
bc.printDebug ();
}
if (opt_link)
{
var df = new File (opt_link_data);
if (df.open ("r"))
{
var len = df.getLength ();
var data = df.read (len);
df.close ();
if (data.length < len)
System.error (program,
": couldn't read data from file `",
opt_link_data, "': ",
System.strerror (System.errno), "\n");
else
{
System.print (program, ": linking ", data.length,
" bytes of data to section ",
opt_link_type.toString (), "\n");
bc.linkSection (opt_link_type, data);
write_back = true;
}
}
else
System.error (program, ": couldn't open data file `",
opt_link_data, "': ",
System.strerror (System.errno), "\n");
}
if (opt_remove)
{
System.print (program, ": removing section ",
opt_remove_type, "\n");
if (bc.removeSection (opt_remove_type))
write_back = true;
}
if (write_back)
{
/* Write the byte-code file back to its original file. */
if (!bc.write (ARGS[i]))
{
System.error (program, ": write failed: ",
System.strerror (System.errno),
"\n");
System.exit (1);
}
}
}
}
else
System.error (program, ": couldn't open bc file `", ARGS[i], "': ",
System.strerror (System.errno), "\n");
}
}
function usage ()
{
System.print ("\
Usage: ", program, " [OPTION]... FILE...\n\
Mandatory arguments to long options are mandatory for short options too.\n");
System.print ("\
-c, --code print code section (default)\n\
-C, --constants print constants section\n\
-d, --debug print debug section\n\
-h, --help print this help and exit\n\
-i, --info print the byte-code file header and general\n\
information about the sections\n\
-l, --link TYPE DATA link data from file DATA to section TYPE\n\
-r, --remove TYPE remove section TYPE\n\
-s, --symtab print symtab section\n\
-S, --strip remove debug section\n\
-V, --version print version number\n\
");
System.print ("\nReport bugs to mtr@ngs.fi.\n");
}
function version ()
{
System.print ("NGS JavaScript disassembler ", version_number, "\n");
System.print ("\
Copyright (C) 1998 New Generation Software (NGS) Oy.\n\
NGS JavaScript Interpreter comes with NO WARRANTY, to the extent\n\
permitted by law. You may redistribute copies of NGS JavaScript\n\
Interpreter under the terms of the GNU Library General Public License.\n\
For more information about these matters, see the files named COPYING.\n\
");
}
main ();
/*
Local variables:
mode: c
End:
*/

236
reactos/lib/kjs/jsdas/operands.js Normal file
View file

@ -0,0 +1,236 @@
/* -*- c -*-
* Operand definitions for the JavaScript byte-code.
*
* This file is automatically create from the operands.def file.
* Editing is strongly discouraged. You should edit the file
* `extract-op-names.js' instead.
*/
DASM$op_names = new Array ();
DASM$op_data = new Array ();
DASM$op_flags = new Array ();
DASM$op_names[0] = "halt";
DASM$op_data[0] = 0;
DASM$op_flags[0] = 0x0;
DASM$op_names[1] = "done";
DASM$op_data[1] = 0;
DASM$op_flags[1] = 0x0;
DASM$op_names[2] = "nop";
DASM$op_data[2] = 0;
DASM$op_flags[2] = 0x0;
DASM$op_names[3] = "dup";
DASM$op_data[3] = 0;
DASM$op_flags[3] = 0x0;
DASM$op_names[4] = "pop";
DASM$op_data[4] = 0;
DASM$op_flags[4] = 0x0;
DASM$op_names[5] = "pop_n";
DASM$op_data[5] = 1;
DASM$op_flags[5] = 0x0;
DASM$op_names[6] = "apop";
DASM$op_data[6] = 1;
DASM$op_flags[6] = 0x0;
DASM$op_names[7] = "swap";
DASM$op_data[7] = 0;
DASM$op_flags[7] = 0x0;
DASM$op_names[8] = "roll";
DASM$op_data[8] = 1;
DASM$op_flags[8] = 0x0;
DASM$op_names[9] = "const";
DASM$op_data[9] = 4;
DASM$op_flags[9] = 0x0;
DASM$op_names[10] = "const_null";
DASM$op_data[10] = 0;
DASM$op_flags[10] = 0x0;
DASM$op_names[11] = "const_true";
DASM$op_data[11] = 0;
DASM$op_flags[11] = 0x0;
DASM$op_names[12] = "const_false";
DASM$op_data[12] = 0;
DASM$op_flags[12] = 0x0;
DASM$op_names[13] = "const_undefined";
DASM$op_data[13] = 0;
DASM$op_flags[13] = 0x0;
DASM$op_names[14] = "const_i0";
DASM$op_data[14] = 0;
DASM$op_flags[14] = 0x0;
DASM$op_names[15] = "const_i1";
DASM$op_data[15] = 0;
DASM$op_flags[15] = 0x0;
DASM$op_names[16] = "const_i2";
DASM$op_data[16] = 0;
DASM$op_flags[16] = 0x0;
DASM$op_names[17] = "const_i3";
DASM$op_data[17] = 0;
DASM$op_flags[17] = 0x0;
DASM$op_names[18] = "const_i";
DASM$op_data[18] = 4;
DASM$op_flags[18] = 0x0;
DASM$op_names[19] = "load_global";
DASM$op_data[19] = 4;
DASM$op_flags[19] = 0x1;
DASM$op_names[20] = "store_global";
DASM$op_data[20] = 4;
DASM$op_flags[20] = 0x1;
DASM$op_names[21] = "load_arg";
DASM$op_data[21] = 1;
DASM$op_flags[21] = 0x0;
DASM$op_names[22] = "store_arg";
DASM$op_data[22] = 1;
DASM$op_flags[22] = 0x0;
DASM$op_names[23] = "load_local";
DASM$op_data[23] = 2;
DASM$op_flags[23] = 0x0;
DASM$op_names[24] = "store_local";
DASM$op_data[24] = 2;
DASM$op_flags[24] = 0x0;
DASM$op_names[25] = "load_property";
DASM$op_data[25] = 4;
DASM$op_flags[25] = 0x1;
DASM$op_names[26] = "store_property";
DASM$op_data[26] = 4;
DASM$op_flags[26] = 0x1;
DASM$op_names[27] = "load_array";
DASM$op_data[27] = 0;
DASM$op_flags[27] = 0x0;
DASM$op_names[28] = "store_array";
DASM$op_data[28] = 0;
DASM$op_flags[28] = 0x0;
DASM$op_names[29] = "nth";
DASM$op_data[29] = 0;
DASM$op_flags[29] = 0x0;
DASM$op_names[30] = "cmp_eq";
DASM$op_data[30] = 0;
DASM$op_flags[30] = 0x0;
DASM$op_names[31] = "cmp_ne";
DASM$op_data[31] = 0;
DASM$op_flags[31] = 0x0;
DASM$op_names[32] = "cmp_lt";
DASM$op_data[32] = 0;
DASM$op_flags[32] = 0x0;
DASM$op_names[33] = "cmp_gt";
DASM$op_data[33] = 0;
DASM$op_flags[33] = 0x0;
DASM$op_names[34] = "cmp_le";
DASM$op_data[34] = 0;
DASM$op_flags[34] = 0x0;
DASM$op_names[35] = "cmp_ge";
DASM$op_data[35] = 0;
DASM$op_flags[35] = 0x0;
DASM$op_names[36] = "cmp_seq";
DASM$op_data[36] = 0;
DASM$op_flags[36] = 0x0;
DASM$op_names[37] = "cmp_sne";
DASM$op_data[37] = 0;
DASM$op_flags[37] = 0x0;
DASM$op_names[38] = "sub";
DASM$op_data[38] = 0;
DASM$op_flags[38] = 0x0;
DASM$op_names[39] = "add";
DASM$op_data[39] = 0;
DASM$op_flags[39] = 0x0;
DASM$op_names[40] = "mul";
DASM$op_data[40] = 0;
DASM$op_flags[40] = 0x0;
DASM$op_names[41] = "div";
DASM$op_data[41] = 0;
DASM$op_flags[41] = 0x0;
DASM$op_names[42] = "mod";
DASM$op_data[42] = 0;
DASM$op_flags[42] = 0x0;
DASM$op_names[43] = "neg";
DASM$op_data[43] = 0;
DASM$op_flags[43] = 0x0;
DASM$op_names[44] = "and";
DASM$op_data[44] = 0;
DASM$op_flags[44] = 0x0;
DASM$op_names[45] = "not";
DASM$op_data[45] = 0;
DASM$op_flags[45] = 0x0;
DASM$op_names[46] = "or";
DASM$op_data[46] = 0;
DASM$op_flags[46] = 0x0;
DASM$op_names[47] = "xor";
DASM$op_data[47] = 0;
DASM$op_flags[47] = 0x0;
DASM$op_names[48] = "shift_left";
DASM$op_data[48] = 0;
DASM$op_flags[48] = 0x0;
DASM$op_names[49] = "shift_right";
DASM$op_data[49] = 0;
DASM$op_flags[49] = 0x0;
DASM$op_names[50] = "shift_rright";
DASM$op_data[50] = 0;
DASM$op_flags[50] = 0x0;
DASM$op_names[51] = "iffalse";
DASM$op_data[51] = 4;
DASM$op_flags[51] = 0x2;
DASM$op_names[52] = "iftrue";
DASM$op_data[52] = 4;
DASM$op_flags[52] = 0x2;
DASM$op_names[53] = "call_method";
DASM$op_data[53] = 4;
DASM$op_flags[53] = 0x1;
DASM$op_names[54] = "jmp";
DASM$op_data[54] = 4;
DASM$op_flags[54] = 0x2;
DASM$op_names[55] = "jsr";
DASM$op_data[55] = 0;
DASM$op_flags[55] = 0x0;
DASM$op_names[56] = "return";
DASM$op_data[56] = 0;
DASM$op_flags[56] = 0x0;
DASM$op_names[57] = "typeof";
DASM$op_data[57] = 0;
DASM$op_flags[57] = 0x0;
DASM$op_names[58] = "new";
DASM$op_data[58] = 0;
DASM$op_flags[58] = 0x0;
DASM$op_names[59] = "delete_property";
DASM$op_data[59] = 4;
DASM$op_flags[59] = 0x1;
DASM$op_names[60] = "delete_array";
DASM$op_data[60] = 0;
DASM$op_flags[60] = 0x0;
DASM$op_names[61] = "locals";
DASM$op_data[61] = 2;
DASM$op_flags[61] = 0x0;
DASM$op_names[62] = "min_args";
DASM$op_data[62] = 1;
DASM$op_flags[62] = 0x0;
DASM$op_names[63] = "load_nth_arg";
DASM$op_data[63] = 0;
DASM$op_flags[63] = 0x0;
DASM$op_names[64] = "with_push";
DASM$op_data[64] = 0;
DASM$op_flags[64] = 0x0;
DASM$op_names[65] = "with_pop";
DASM$op_data[65] = 1;
DASM$op_flags[65] = 0x0;
DASM$op_names[66] = "try_push";
DASM$op_data[66] = 4;
DASM$op_flags[66] = 0x2;
DASM$op_names[67] = "try_pop";
DASM$op_data[67] = 1;
DASM$op_flags[67] = 0x0;
DASM$op_names[68] = "throw";
DASM$op_data[68] = 0;
DASM$op_flags[68] = 0x0;
DASM$op_names[69] = "iffalse_b";
DASM$op_data[69] = 4;
DASM$op_flags[69] = 0x2;
DASM$op_names[70] = "iftrue_b";
DASM$op_data[70] = 4;
DASM$op_flags[70] = 0x2;
DASM$op_names[71] = "add_1_i";
DASM$op_data[71] = 0;
DASM$op_flags[71] = 0x0;
DASM$op_names[72] = "add_2_i";
DASM$op_data[72] = 0;
DASM$op_flags[72] = 0x0;
DASM$op_names[73] = "load_global_w";
DASM$op_data[73] = 4;
DASM$op_flags[73] = 0x1;
DASM$op_names[74] = "jsr_w";
DASM$op_data[74] = 4;
DASM$op_flags[74] = 0x1;

13
reactos/lib/kjs/jswrap/ChangeLog Normal file
View file

@ -0,0 +1,13 @@
1998-08-12 Markku Rossi <mtr@purple.ngs.fi>
* process.js (path_to_ppname): Fixed to convert all non-identifier
characters to '_'. The function can now also handle file names
which start with an number.
1998-08-10 Markku Rossi <mtr@purple.ngs.fi>
* process.js (Func$print_c): Fixed call-by-reference arguments.
Implemented the `static' modifier for arguments.
(c_typename): Changed int's C-type to `long'.
(Func$print_c): Added some casts to make C++ compilers happy about
our code.

244
reactos/lib/kjs/jswrap/Makefile Normal file
View file

@ -0,0 +1,244 @@
# Generated automatically from Makefile.in by configure.
# Makefile.in generated automatically by automake 1.3 from Makefile.am
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Automakefile for jswrap.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
SHELL = /bin/sh
srcdir = .
top_srcdir = ..
prefix = /usr/local/js-0.2.5
exec_prefix = ${prefix}
bindir = ${exec_prefix}/bin
sbindir = ${exec_prefix}/sbin
libexecdir = ${exec_prefix}/libexec
datadir = ${prefix}/share
sysconfdir = ${prefix}/etc
sharedstatedir = ${prefix}/com
localstatedir = ${prefix}/var
libdir = ${exec_prefix}/lib
infodir = ${prefix}/info
mandir = ${prefix}/man
includedir = ${prefix}/include
oldincludedir = /usr/include
DISTDIR =
pkgdatadir = $(datadir)/js
pkglibdir = $(libdir)/js
pkgincludedir = $(includedir)/js
top_builddir = ..
ACLOCAL = aclocal
AUTOCONF = autoconf
AUTOMAKE = automake
AUTOHEADER = autoheader
INSTALL = /usr/bin/install -c
INSTALL_PROGRAM = ${INSTALL}
INSTALL_DATA = ${INSTALL} -m 644
INSTALL_SCRIPT = ${INSTALL_PROGRAM}
transform = s,x,x,
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
host_alias = i686-pc-linux-gnu
host_triplet = i686-pc-linux-gnu
ACLOCAL_FLAGS_FOR_LIBTOOL =
CC = gcc
CPP = gcc -E
EXTENSIONS = dl_open.lo xjs.lo xmd5.lo md5c.lo
EXTENSIONS_LIBS = -ldl
INTERPRETER_FEATURES = r_std.lo
LD = /usr/bin/ld
LIBTOOL = $(SHELL) $(top_builddir)/libtool
LN_S = ln -s
MAKEINFO = makeinfo
NM = /usr/bin/nm -B
PACKAGE = js
PGCC_BY_PROVENZANO =
RANLIB = ranlib
U =
VERSION = 0.2.5
XLC_R_AIX =
JSCOMPILER = ../src/js
JSCOMPILER_FLAGS = -Wpedantic -O2 -g
JSS = process.js main.js
JSCS = process.jsc main.jsc
EXTRA_DIST = $(JSS)
bin_SCRIPTS = jswrap
CLEANFILES = jswrap $(JSCS)
SUFFIXES = .jsc .js
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = ../jsconfig.h
CONFIG_CLEAN_FILES =
SCRIPTS = $(bin_SCRIPTS)
DIST_COMMON = ChangeLog Makefile.am Makefile.in TODO
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
TAR = tar
GZIP = --best
all: Makefile $(SCRIPTS)
.SUFFIXES:
.SUFFIXES: .js .jsc
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps jswrap/Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
install-binSCRIPTS: $(bin_SCRIPTS)
@$(NORMAL_INSTALL)
$(mkinstalldirs) $(DESTDIR)$(bindir)
@list='$(bin_SCRIPTS)'; for p in $$list; do \
if test -f $$p; then \
echo " $(INSTALL_SCRIPT) $$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`"; \
$(INSTALL_SCRIPT) $$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
else if test -f $(srcdir)/$$p; then \
echo " $(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`"; \
$(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
else :; fi; fi; \
done
uninstall-binSCRIPTS:
@$(NORMAL_UNINSTALL)
list='$(bin_SCRIPTS)'; for p in $$list; do \
rm -f $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
done
tags: TAGS
TAGS:
distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
subdir = jswrap
distdir: $(DISTFILES)
@for file in $(DISTFILES); do \
d=$(srcdir); \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done
info:
dvi:
check: all
$(MAKE)
installcheck:
install-exec: install-binSCRIPTS
@$(NORMAL_INSTALL)
install-data:
@$(NORMAL_INSTALL)
install: install-exec install-data all
@:
uninstall: uninstall-binSCRIPTS
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs:
$(mkinstalldirs) $(DATADIR)$(bindir)
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-rm -f Makefile $(DISTCLEANFILES)
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
maintainer-clean-generic:
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
mostlyclean: mostlyclean-generic
clean: clean-generic mostlyclean
distclean: distclean-generic clean
-rm -f config.status
-rm -f libtool
maintainer-clean: maintainer-clean-generic distclean
@echo "This command is intended for maintainers to use;"
@echo "it deletes files that may require special tools to rebuild."
.PHONY: uninstall-binSCRIPTS install-binSCRIPTS tags distdir info dvi \
installcheck install-exec install-data install uninstall all \
installdirs mostlyclean-generic distclean-generic clean-generic \
maintainer-clean-generic clean mostlyclean distclean maintainer-clean
compile: $(JSCS)
jswrap: $(JSS)
rm -f $@.js
for i in $(JSS); do cat $(srcdir)/$$i >> $@.js; done
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $@.js
echo "#!$(bindir)/js --file" > $@
# echo "#!$(JSCOMPILER) --file" > $@
cat $@.jsc >> $@
chmod a+x $@
.js.jsc:
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $<
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

51
reactos/lib/kjs/jswrap/Makefile.am Normal file
View file

@ -0,0 +1,51 @@
#
# Automakefile for jswrap.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
JSCOMPILER = ../src/js
JSCOMPILER_FLAGS = -Wpedantic -O2 -g
JSS = process.js main.js
JSCS = process.jsc main.jsc
EXTRA_DIST = $(JSS)
bin_SCRIPTS = jswrap
compile: $(JSCS)
jswrap: $(JSS)
rm -f $@.js
for i in $(JSS); do cat $(srcdir)/$$i >> $@.js; done
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $@.js
echo "#!$(bindir)/js --file" > $@
# echo "#!$(JSCOMPILER) --file" > $@
cat $@.jsc >> $@
chmod a+x $@
CLEANFILES = jswrap $(JSCS)
SUFFIXES = .jsc .js
.js.jsc:
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $<

244
reactos/lib/kjs/jswrap/Makefile.in Normal file
View file

@ -0,0 +1,244 @@
# Makefile.in generated automatically by automake 1.3 from Makefile.am
# Copyright (C) 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
# This Makefile.in is free software; the Free Software Foundation
# gives unlimited permission to copy and/or distribute it,
# with or without modifications, as long as this notice is preserved.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
#
# Automakefile for jswrap.
# Copyright (c) 1998 New Generation Software (NGS) Oy
#
# Author: Markku Rossi <mtr@ngs.fi>
#
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Library General Public
# License as published by the Free Software Foundation; either
# version 2 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Library General Public License for more details.
#
# You should have received a copy of the GNU Library General Public
# License along with this library; if not, write to the Free
# Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA
#
SHELL = /bin/sh
srcdir = @srcdir@
top_srcdir = @top_srcdir@
VPATH = @srcdir@
prefix = @prefix@
exec_prefix = @exec_prefix@
bindir = @bindir@
sbindir = @sbindir@
libexecdir = @libexecdir@
datadir = @datadir@
sysconfdir = @sysconfdir@
sharedstatedir = @sharedstatedir@
localstatedir = @localstatedir@
libdir = @libdir@
infodir = @infodir@
mandir = @mandir@
includedir = @includedir@
oldincludedir = /usr/include
DISTDIR =
pkgdatadir = $(datadir)/@PACKAGE@
pkglibdir = $(libdir)/@PACKAGE@
pkgincludedir = $(includedir)/@PACKAGE@
top_builddir = ..
ACLOCAL = @ACLOCAL@
AUTOCONF = @AUTOCONF@
AUTOMAKE = @AUTOMAKE@
AUTOHEADER = @AUTOHEADER@
INSTALL = @INSTALL@
INSTALL_PROGRAM = @INSTALL_PROGRAM@
INSTALL_DATA = @INSTALL_DATA@
INSTALL_SCRIPT = @INSTALL_SCRIPT@
transform = @program_transform_name@
NORMAL_INSTALL = :
PRE_INSTALL = :
POST_INSTALL = :
NORMAL_UNINSTALL = :
PRE_UNINSTALL = :
POST_UNINSTALL = :
host_alias = @host_alias@
host_triplet = @host@
ACLOCAL_FLAGS_FOR_LIBTOOL = @ACLOCAL_FLAGS_FOR_LIBTOOL@
CC = @CC@
CPP = @CPP@
EXTENSIONS = @EXTENSIONS@
EXTENSIONS_LIBS = @EXTENSIONS_LIBS@
INTERPRETER_FEATURES = @INTERPRETER_FEATURES@
LD = @LD@
LIBTOOL = @LIBTOOL@
LN_S = @LN_S@
MAKEINFO = @MAKEINFO@
NM = @NM@
PACKAGE = @PACKAGE@
PGCC_BY_PROVENZANO = @PGCC_BY_PROVENZANO@
RANLIB = @RANLIB@
U = @U@
VERSION = @VERSION@
XLC_R_AIX = @XLC_R_AIX@
JSCOMPILER = ../src/js
JSCOMPILER_FLAGS = -Wpedantic -O2 -g
JSS = process.js main.js
JSCS = process.jsc main.jsc
EXTRA_DIST = $(JSS)
bin_SCRIPTS = jswrap
CLEANFILES = jswrap $(JSCS)
SUFFIXES = .jsc .js
mkinstalldirs = $(SHELL) $(top_srcdir)/mkinstalldirs
CONFIG_HEADER = ../jsconfig.h
CONFIG_CLEAN_FILES =
SCRIPTS = $(bin_SCRIPTS)
DIST_COMMON = ChangeLog Makefile.am Makefile.in TODO
DISTFILES = $(DIST_COMMON) $(SOURCES) $(HEADERS) $(TEXINFOS) $(EXTRA_DIST)
TAR = tar
GZIP = --best
all: Makefile $(SCRIPTS)
.SUFFIXES:
.SUFFIXES: .js .jsc
$(srcdir)/Makefile.in: Makefile.am $(top_srcdir)/configure.in $(ACLOCAL_M4)
cd $(top_srcdir) && $(AUTOMAKE) --gnu --include-deps jswrap/Makefile
Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
cd $(top_builddir) \
&& CONFIG_FILES=$(subdir)/$@ CONFIG_HEADERS= $(SHELL) ./config.status
install-binSCRIPTS: $(bin_SCRIPTS)
@$(NORMAL_INSTALL)
$(mkinstalldirs) $(DESTDIR)$(bindir)
@list='$(bin_SCRIPTS)'; for p in $$list; do \
if test -f $$p; then \
echo " $(INSTALL_SCRIPT) $$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`"; \
$(INSTALL_SCRIPT) $$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
else if test -f $(srcdir)/$$p; then \
echo " $(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`"; \
$(INSTALL_SCRIPT) $(srcdir)/$$p $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
else :; fi; fi; \
done
uninstall-binSCRIPTS:
@$(NORMAL_UNINSTALL)
list='$(bin_SCRIPTS)'; for p in $$list; do \
rm -f $(DESTDIR)$(bindir)/`echo $$p|sed '$(transform)'`; \
done
tags: TAGS
TAGS:
distdir = $(top_builddir)/$(PACKAGE)-$(VERSION)/$(subdir)
subdir = jswrap
distdir: $(DISTFILES)
@for file in $(DISTFILES); do \
d=$(srcdir); \
test -f $(distdir)/$$file \
|| ln $$d/$$file $(distdir)/$$file 2> /dev/null \
|| cp -p $$d/$$file $(distdir)/$$file; \
done
info:
dvi:
check: all
$(MAKE)
installcheck:
install-exec: install-binSCRIPTS
@$(NORMAL_INSTALL)
install-data:
@$(NORMAL_INSTALL)
install: install-exec install-data all
@:
uninstall: uninstall-binSCRIPTS
install-strip:
$(MAKE) INSTALL_PROGRAM='$(INSTALL_PROGRAM) -s' INSTALL_SCRIPT='$(INSTALL_PROGRAM)' install
installdirs:
$(mkinstalldirs) $(DATADIR)$(bindir)
mostlyclean-generic:
-test -z "$(MOSTLYCLEANFILES)" || rm -f $(MOSTLYCLEANFILES)
clean-generic:
-test -z "$(CLEANFILES)" || rm -f $(CLEANFILES)
distclean-generic:
-rm -f Makefile $(DISTCLEANFILES)
-rm -f config.cache config.log stamp-h stamp-h[0-9]*
-test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
maintainer-clean-generic:
-test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES)
-test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
mostlyclean: mostlyclean-generic
clean: clean-generic mostlyclean
distclean: distclean-generic clean
-rm -f config.status
-rm -f libtool
maintainer-clean: maintainer-clean-generic distclean
@echo "This command is intended for maintainers to use;"
@echo "it deletes files that may require special tools to rebuild."
.PHONY: uninstall-binSCRIPTS install-binSCRIPTS tags distdir info dvi \
installcheck install-exec install-data install uninstall all \
installdirs mostlyclean-generic distclean-generic clean-generic \
maintainer-clean-generic clean mostlyclean distclean maintainer-clean
compile: $(JSCS)
jswrap: $(JSS)
rm -f $@.js
for i in $(JSS); do cat $(srcdir)/$$i >> $@.js; done
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $@.js
echo "#!$(bindir)/js --file" > $@
# echo "#!$(JSCOMPILER) --file" > $@
cat $@.jsc >> $@
chmod a+x $@
.js.jsc:
$(JSCOMPILER) $(JSCOMPILER_FLAGS) -c $<
# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

13
reactos/lib/kjs/jswrap/TODO Normal file
View file

@ -0,0 +1,13 @@
TODO jswrap
===========
* Fix the debugging information in the embedded byte-code files: input
file name (.psw) and line numbers. This requires support from the
compiler.
* The current version do not optimize with -O2. We can't do the
liveness analysing, because on `return' statements, arguments are
not alive, and the by-reference return values won't work. The
compiler needs a new flag JSC$FLAG_OPTIMIZE_ARGUMENTS_LIVE_ON_RETURN
that would fix the problem.

1138
reactos/lib/kjs/jswrap/jswrap.js Normal file
View file

File diff suppressed because it is too large Load diff

248
reactos/lib/kjs/jswrap/main.js Normal file
View file

@ -0,0 +1,248 @@
/*
* JS C wrapper.
* Copyright (c) 1998 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/jswrap/main.js,v $
* $Id: main.js,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
/*
* Variables and definitions.
*/
version_number = "0.0.1";
/*
* Options.
*/
/*
* -g, --debug
*
* Generate debugging information to the generated JS byte-code.
*/
opt_debug = false;
/*
* -h FILE, --header FILE
*
* Generate the C header to file FILE.
*/
header_file = null;
/*
* -n, --no-error-handler
*
* Do not create the default error handler to the C files.
*/
opt_no_error_handler = false;
/*
* -o FILE, --output FILE
*
* Generate the C output to file FILE.
*/
output_file = null;
/*
* -r, --reentrant
*
* Generate re-entrant C stubs.
*/
opt_reentrant = false;
/*
* -V, --version
*
* Print version information and exit successfully.
*/
/*
* --help
*
* Print short help and exit successfully.
*/
/*
* Functions.
*/
function main ()
{
var idx = ARGS[0].lastIndexOf ("/");
if (idx >= 0)
program = ARGS[0].substr (idx + 1);
else
program = ARGS[0];
/* Handle arguments. */
var i;
for (i = 1; i < ARGS.length; i++)
{
if (ARGS[i][0] == #'-')
{
if (ARGS[i] == "-g" || ARGS[i] == "--debug")
opt_debug = true;
else if (ARGS[i] == "-h" || ARGS[i] == "--header")
{
if (i + 1 >= ARGS.length)
{
System.error (program,
": no argument for option --header\n");
System.exit (1);
}
header_file = ARGS[++i];
}
else if (ARGS[i] == "-n" || ARGS[i] == "--no-error-handler")
opt_no_error_handler = true;
else if (ARGS[i] == "-o" || ARGS[i] == "--output")
{
if (i + 1 >= ARGS.length)
{
System.error (program,
": no argument for option --output\n");
System.exit (1);
}
output_file = ARGS[++i];
}
else if (ARGS[i] == "-r" || ARGS[i] == "--reentrant")
opt_reentrant = true;
else if (ARGS[i] == "-V" || ARGS[i] == "--version")
{
version ();
System.exit (0);
}
else if (ARGS[i] == "--help")
{
usage ();
System.exit (0);
}
else
{
/* Unrecognized option. */
System.error (program, ": unrecognized option `",
ARGS[i], "'\n");
System.error ("Try `", program,
" --help' for more information.\n");
System.exit (1);
}
}
else
{
/* End of arguments. */
break;
}
}
if (i >= ARGS.length)
{
System.error (program, ": no input file specified\n");
System.exit (1);
}
if (i + 1 < ARGS.length)
{
System.error (program, ": extraneous arguments after input file\n");
System.exit (1);
}
input_file = ARGS[i];
/* Set the defaults. */
var re = new RegExp ("^(.*)\\.jsw$");
if (!header_file)
{
if (re.test (input_file))
header_file = RegExp.$1 + ".h";
else
header_file = input_file + ".h";
}
if (!output_file)
{
if (re.test (input_file))
output_file = RegExp.$1 + ".c";
else
output_file = input_file + ".c";
}
if (false)
{
if (re.test (input_file))
js_file = RegExp.$1 + ".js";
else
js_file = input_file + ".js";
}
process ();
}
function usage ()
{
System.print ("\
Usage: ", program, " [OPTION]... FILE\n\
Mandatory arguments to long options are mandatory for short options too.\n");
System.print ("\
-g, --debug generate debugging information to the generated\n\
JS byte-code\n\
-h, --header FILE generate the C header to file FILE\n\
-n, --no-error-handler do not generate the default error handler\n\
-o, --output FILE generate the C output to file FILE\n\
-r, --reentrant generate re-entrant C stubs\n\
-V, --version print version number\n\
--help print this help and exit\n\
");
System.print ("\nReport bugs to mtr@ngs.fi.\n");
}
function version ()
{
System.print ("NGS JavaScript C wrapper generator ", version_number, "\n");
System.print ("\
Copyright (C) 1998 New Generation Software (NGS) Oy.\n\
NGS JavaScript Interpreter comes with NO WARRANTY, to the extent\n\
permitted by law. You may redistribute copies of NGS JavaScript\n\
Interpreter under the terms of the GNU Library General Public License.\n\
For more information about these matters, see the files named COPYING.\n\
");
}
main ();
/*
Local variables:
mode: c
End:
*/

890
reactos/lib/kjs/jswrap/process.js Normal file
View file

@ -0,0 +1,890 @@
/*
* Process the jswrap input files and generate output.
* Copyright (c) 1998 New Generation Software (NGS) Oy
*
* Author: Markku Rossi <mtr@ngs.fi>
*/
/*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the Free
* Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
* MA 02111-1307, USA
*/
/*
* $Source: /cygdrive/c/RCVS/CVS/ReactOS/reactos/lib/kjs/jswrap/process.js,v $
* $Id: process.js,v 1.1 2004/01/10 20:38:17 arty Exp $
*/
/*
* Constants and definitions.
*/
/* Tokens. */
tEOF = 1000;
tFUNCTION = 1001;
tIDENTIFIER = 1002;
tCSTRING = 2001;
tDOUBLE = 2002;
tINT = 2003;
tSTRING = 2004;
tVOID = 2005;
tIN = 2010;
tOUT = 2011;
tINOUT = 2012;
tSTATIC = 2020;
function is_type_token (token)
{
return (token == tCSTRING || token == tDOUBLE || token == tINT
|| token == tSTRING || token == tVOID);
}
function is_copy_type_token (token)
{
return (token == tIN || token == tOUT || token == tINOUT);
}
function typename (token)
{
if (token == tCSTRING)
return "cstring";
else if (token == tDOUBLE)
return "double";
else if (token == tINT)
return "int";
else if (token == tSTRING)
return "string";
else if (token == tVOID)
return "void";
else if (token == tIN)
return "in";
else if (token == tOUT)
return "out";
else if (token == tINOUT)
return "inout";
else
return "";
}
function c_typename (token)
{
if (token == tCSTRING)
return "char *";
else if (token == tDOUBLE)
return "double ";
else if (token == tINT)
return "long ";
else if (token == tVOID)
return "void ";
else if (token == tOUT || token == tINOUT)
return "*";
else
return "";
}
function jsint_typename (token)
{
if (token == tCSTRING)
return "JS_STRING";
else if (token == tDOUBLE)
return "JS_FLOAT";
else if (token == tINT)
return "JS_INTEGER";
else if (token == tSTRING)
return "JS_STRING";
else
return "";
}
valid_c_identifier_re = new RegExp ("^[A-Za-z_][A-Za-z_0-9]*$");
end_brace_re = new RegExp ("^}[ \t]*$");
/*
* Variables.
*/
/* The input file line number. */
linenum = 1;
token_linenum = 1;
token_value = null;
/*
* Functions.
*/
function process ()
{
if (false)
System.print (program, ": processing file `", input_file,
"', header=`", header_file,
"', output=`", output_file,
"', reentrant=", opt_reentrant, "\n");
linenum = 1;
/* Open input file. */
ifp = new File (input_file);
if (!ifp.open ("r"))
{
System.error (program, ": couldn't open input file `", input_file,
"': ", System.strerror (System.errno), "\n");
System.exit (1);
}
/* Create output files. */
ofp_c = new File (output_file);
if (!ofp_c.open ("w"))
{
System.error (program, ": couldn't create output file `", output_file,
"': ", System.strerror (System.errno), "\n");
System.exit (1);
}
ofp_h = new File (header_file);
if (!ofp_h.open ("w"))
{
ofp_c.close ();
File.remove (output_file);
System.error (program, ": couldn't create header file `", header_file,
"': ", System.strerror (System.errno), "\n");
System.exit (1);
}
if (false)
{
ofp_js = new File (js_file);
if (!ofp_js.open ("w"))
{
ofp_c.close ();
ofp_h.close ();
File.remove (output_file);
File.remove (header_file);
System.error (program, ": couldn't create JS file `", js_file,
"': ", System.strerror (System.errno), "\n");
System.exit (1);
}
}
/* Parse the input. */
parse ();
/* Cleanup. */
ofp_c.close ();
ofp_h.close ();
}
/*
* The Func class to hold function definitions.
*/
function Func ()
{
}
new Func ();
function Func$generate_js ()
{
this.code = new String ("function " + this.name + " (");
var i;
for (i = 0; i < this.args.length; i++)
{
this.code.append (this.args[i].name);
if (i + 1 < this.args.length)
this.code.append (", ");
}
this.code.append (")\n{");
this.code.append (this.body);
this.code.append ("}\n");
}
Func.prototype.generate_js = Func$generate_js;
function Func$print_js (stream)
{
stream.write (this.code);
}
Func.prototype.print_js = Func$print_js;
function Func$print_h (stream, header)
{
stream.write ("\n");
stream.write (c_typename (this.return_type) + this.name + " (");
if (opt_reentrant)
{
/* The first argument is the interpreter handle. */
stream.write ("\n\tJSInterpPtr interp");
if (this.args.length > 0)
stream.write (",");
}
var i;
for (i = 0; i < this.args.length; i++)
{
stream.write ("\n\t");
if (this.args[i].type == tSTRING)
{
stream.write ("unsigned char *"
+ c_typename (this.args[i].copy_type)
+ this.args[i].name + ",\n\t"
+ "unsigned int "
+ c_typename (this.args[i].copy_type)
+ this.args[i].name + "_len");
}
else
{
stream.write (c_typename (this.args[i].type)
+ c_typename (this.args[i].copy_type));
stream.write (this.args[i].name);
}
if (i + 1 < this.args.length)
stream.write (", ");
}
stream.write ("\n\t)");
if (header)
stream.write (";");
stream.write ("\n");
}
Func.prototype.print_h = Func$print_h;
function Func$print_c (stream)
{
this.compile ();
this.dump_bc (stream);
this.print_h (stream, false);
stream.write ("{\n");
if (!opt_reentrant)
stream.write (" JSInterpPtr interp = jswrap_interp;\n");
stream.write (" JSVirtualMachine *vm = interp->vm;\n");
stream.write (" JSNode argv["
+ (this.args.length + 1).toString ()
+ "];\n");
stream.write (" int result;\n");
if (this.return_type == tCSTRING)
stream.write (" char *cp;\n");
stream.write ("\n");
/* Argument count. */
stream.write (" argv[0].type = JS_INTEGER;\n");
stream.write (" argv[0].u.vinteger = "
+ this.args.length.toString ()
+ ";\n");
/* Arguments. */
/* Construct the argv array. */
for (i = 0; i < this.args.length; i++)
{
var arg = this.args[i];
var cspec = "";
stream.write ("\n");
var argnum = (i + 1).toString ();
if (arg.copy_type == tOUT)
{
stream.write (" argv[" + argnum + "].type = JS_UNDEFINED;\n");
}
else
{
if (arg.copy_type == tINOUT)
cspec = "*";
if (arg.type == tCSTRING)
{
stream.write (" js_vm_make"
+ (arg.staticp ? "_static" : "")
+ "_string (vm, &argv["
+ argnum + "], "
+ cspec + arg.name + ", strlen ("
+ cspec + arg.name + "));\n");
}
else if (arg.type == tDOUBLE)
{
stream.write (" argv[" + argnum + "].type = JS_FLOAT;\n");
stream.write (" argv[" + argnum + "].u.vfloat = "
+ cspec + arg.name + ";\n");
}
else if (arg.type == tINT)
{
stream.write (" argv[" + argnum + "].type = JS_INTEGER;\n");
stream.write (" argv[" + argnum + "].u.vinteger = "
+ cspec + arg.name + ";\n");
}
else if (arg.type == tSTRING)
{
stream.write (" js_vm_make_static_string (vm, &argv["
+ argnum + "], "
+ cspec + arg.name + ", "
+ cspec + arg.name + "_len);\n");
}
else
VM.stackTrace ();
}
}
/* Call the function. */
stream.write ("\
retry:
result = js_vm_apply (vm, \"" + this.name + "\", NULL, "
+ (i + 1).toString () + ", argv);
if (result == 0)
{
JSNode *n = &vm->globals[js_vm_intern (vm, \"" + this.name + "\")];
if (n->type != JS_FUNC)
{
JSByteCode *bc = js_bc_read_data (" + this.name + "_bc,
sizeof (" + this.name + "_bc));
result = js_vm_execute (vm, bc);
js_bc_free (bc);
if (result == 0)
jswrap_error (interp, \"initialization of function`"
+ this.name + "' failed\");
goto retry;
}
jswrap_error (interp, \"execution of function `"
+ this.name + "' failed\");
}
");
/* Handle out and inout parameters. */
for (i = 0; i < this.args.length; i++)
{
var arg = this.args[i];
if (arg.copy_type == tIN)
continue;
var spos = (this.args.length - i).toString ();
/* Check that we have there a correct type. */
stream.write ("
if ((vm->sp - " + spos + ")->type != " + jsint_typename (arg.type) + ")
jswrap_error (interp,
\"wrong return type for argument `"
+ arg.name + "' of function `" + this.name + "'\");
");
/* Handle the different types. */
if (arg.type == tCSTRING)
{
stream.write ("\
*" + arg.name + " = (char *) js_vm_alloc (vm, (vm->sp - "
+ spos + ")->u.vstring->len + 1);
memcpy (*" + arg.name + ", (vm->sp - " + spos + ")->u.vstring->data,
(vm->sp - " + spos + ")->u.vstring->len);
" + arg.name + "[(vm->sp - " + spos + ")->u.vstring->len] = '\\0';
");
}
else if (arg.type == tDOUBLE)
{
stream.write ("\
*" + arg.name + " = (vm->sp - " + spos + ")->u.vfloat;\n");
}
else if (arg.type == tINT)
{
stream.write ("\
*" + arg.name + " = (vm->sp - " + spos + ")->u.vinteger;\n");
}
else if (arg.type == tSTRING)
{
stream.write ("\
*" + arg.name + " = (vm->sp - " + spos + ")->u.vstring->data;
*" + arg.name + "_len = (vm->sp - " + spos + ")->u.vstring->len;
");
}
}
/* Handle the function return value. */
if (this.return_type != tVOID)
{
/* Check that the code returned correct type. */
stream.write ("
if (vm->exec_result.type != " + jsint_typename (this.return_type) + ")
jswrap_error (interp, \"return type mismatch in function `"
+ this.name + "'\");
");
/* Handle the different types. */
if (this.return_type == tCSTRING)
{
stream.write ("\
cp = (char *) js_vm_alloc (vm, vm->exec_result.u.vstring->len + 1);
memcpy (cp, vm->exec_result.u.vstring->data, vm->exec_result.u.vstring->len);
cp[vm->exec_result.u.vstring->len] = '\\0';
return cp;
");
}
else if (this.return_type == tDOUBLE)
stream.write (" return vm->exec_result.u.vfloat;\n");
else if (this.return_type == tINT)
stream.write (" return vm->exec_result.u.vinteger;\n");
}
stream.write ("}\n");
}
Func.prototype.print_c = Func$print_c;
function Func$compile ()
{
/* Create the byte-code for this function. */
var flags = 0;
if (false)
flags |= JSC$FLAG_VERBOSE;
if (opt_debug)
flags |= JSC$FLAG_GENERATE_DEBUG_INFO;
flags |= (JSC$FLAG_OPTIMIZE_PEEPHOLE
| JSC$FLAG_OPTIMIZE_JUMPS
| JSC$FLAG_OPTIMIZE_BC_SIZE);
flags |= JSC$FLAG_WARN_MASK;
try
{
this.bc = JSC$compile_string (this.code, flags, null, null);
}
catch (error)
{
System.error (error, "\n");
System.exit (1);
}
}
Func.prototype.compile = Func$compile;
function Func$dump_bc (stream)
{
stream.write ("\nstatic unsigned char " + this.name + "_bc[] = {");
var i;
for (i = 0; i < this.bc.length; i++)
{
if ((i % 12) == 0)
stream.write ("\n ");
var item = this.bc[i].toString (16);
if (item.length == 1)
item = "0" + item;
stream.write (" 0x" + item + ",");
}
stream.write ("\n};\n");
}
Func.prototype.dump_bc = Func$dump_bc;
/*
* The Argument class to hold function argument definitions.
*/
function Argument ()
{
this.type = false;
this.copy_type = tIN;
this.staticp = false;
}
new Argument ();
function Argument$print ()
{
System.print (typename (this.copy_type), " ", typename (this.type),
" ", this.name);
}
Argument.prototype.print = Argument$print;
/*
* The .jsw file parsing.
*/
function parse ()
{
var token;
var func;
headers ();
while ((token = get_token ()) != tEOF)
{
if (token != tFUNCTION)
syntax_error ();
func = new Func ();
/* Possible return type. */
token = get_token ();
if (is_type_token (token))
{
if (token == tSTRING)
{
System.error (input_file, ":", linenum,
": the function return value can't be `string'\n");
System.exit (1);
}
func.return_type = token;
token = get_token ();
}
else
func.return_type = tVOID;
/* The name of the function. */
if (token != tIDENTIFIER)
syntax_error ();
if (!valid_c_identifier_re.test (token_value))
{
System.error (input_file, ":", linenum,
": function name is not a valid C identifier `",
token_value, "'\n");
System.exit (1);
}
func.name = token_value;
/* Arguments. */
token = get_token ();
if (token != #'(')
syntax_error ();
var args = new Array ();
token = get_token ();
while (token != #')')
{
var arg = new Argument ();
while (token != tIDENTIFIER)
{
if (token == tEOF)
syntax_error ();
if (is_type_token (token))
arg.type = token;
else if (is_copy_type_token (token))
arg.copy_type = token;
else if (token == tSTATIC)
arg.staticp = true;
else
syntax_error ();
token = get_token ();
}
if (!valid_c_identifier_re.test (token_value))
{
System.error (input_file, ":", linenum,
": argument name is not a valid C identifier `",
token_value, "'\n");
System.exit (1);
}
arg.name = token_value;
/* Check some validity conditions. */
if (!arg.type)
{
System.error (input_file, ":", linenum,
": no type specified for argument `",
arg.name, "'\n");
System.exit (1);
}
if (arg.staticp)
{
if (arg.type != tCSTRING && arg.type != tSTRING)
{
System.error (input_file, ":", linenum,
": type `static' can only be used with `cstring' and `string' arguments\n");
System.exit (1);
}
if (arg.copy_type == tOUT)
System.error (input_file, ":", linenum,
": warning: type `static' is meaningful only with `in' and `inout' arguments\n");
}
args.push (arg);
token = get_token ();
if (token == #',')
token = get_token ();
}
func.args = args;
/* The opening '{' of the function body. */
token = get_token ();
if (token != #'{')
syntax_error ();
/* Get the function body. */
var code = new String ("");
while (true)
{
var line = ifp.readln ();
if (!line)
syntax_error ();
linenum++;
if (end_brace_re.test (line))
break;
code.append (line + "\n");
}
func.body = code;
func.generate_js ();
// func.print_js (ofp_js);
func.print_h (ofp_h, true);
func.print_c (ofp_c);
}
trailers ();
}
function get_token ()
{
var ch;
while ((ch = ifp.readByte ()) != -1)
{
if (ch == #' ' || ch == #'\t' || ch == #'\v' || ch == #'\r'
|| ch == #'\f')
continue;
if (ch == #'\n')
{
linenum++;
continue;
}
token_linenum = linenum;
if (ch == #'/' && peek_char () == #'*')
{
/* Multi line comment. */
ifp.readByte ();
while ((ch = ifp.readByte ()) != -1
&& (ch != #'*' || peek_char () != #'/'))
if (ch == #'\n')
linenum++;
/* Consume the peeked #'/' character. */
ifp.readByte ();
}
/* Identifiers and keywords. */
else if (JSC$lexer_is_identifier_letter (ch))
{
/* An identifier. */
var id = String.fromCharCode (ch);
while ((ch = ifp.readByte ()) != -1
&& (JSC$lexer_is_identifier_letter (ch)
|| JSC$lexer_is_decimal_digit (ch)))
id.append (File.byteToString (ch));
ifp.ungetByte (ch);
/* Keywords. */
if (id == "function")
return tFUNCTION;
/* Types. */
else if (id == "cstring")
return tCSTRING;
else if (id == "double")
return tDOUBLE;
else if (id == "int")
return tINT;
else if (id == "string")
return tSTRING;
else if (id == "void")
return tVOID;
else if (id == "in")
return tIN;
else if (id == "out")
return tOUT;
else if (id == "inout")
return tINOUT;
else if (id == "static")
return tSTATIC;
else
{
/* It really is an identifier. */
token_value = id;
return tIDENTIFIER;
}
}
/* Just return the character as-is. */
else
return ch;
}
/* EOF reached. */
return tEOF;
}
function peek_char ()
{
var ch = ifp.readByte ();
ifp.ungetByte (ch);
return ch;
}
function syntax_error ()
{
System.error (input_file, ":", linenum, ": syntax error\n");
System.exit (1);
}
function headers ()
{
var stream;
/* The header file. */
stream = ofp_h;
header_banner (stream);
var ppname = path_to_ppname (header_file);
stream.write ("\n#ifndef " + ppname
+ "\n#define " + ppname + "\n");
/* The C file. */
stream = ofp_c;
header_banner (stream);
stream.write ("\n#include <jsint.h>\n");
if (!opt_reentrant)
{
stream.write ("
/*
* This global interpreter handle can be removed with " + program + "'s
* option -r, --reentrant.
*/
");
stream.write ("extern JSInterpPtr jswrap_interp;\n");
}
if (opt_no_error_handler)
{
stream.write ("
/* Prototype for the error handler of the JS runtime errors. */
");
stream.write ("void jswrap_error (JSInterpPtr interp, char *error);\n");
}
else
{
/* Define the default jswrap_error() function. */
stream.write ("
/*
* This is the default error handler for the JS runtime errors. The default
* handler can be removed with " + program + "'s option -n, --no-error-handler.
* In this case, your code must define the handler function.
*/
");
stream.write ("\
static void
jswrap_error (JSInterpPtr interp, char *error)
{
const char *cp;
fprintf (stderr, \"JS runtime error: %s\", error);
cp = js_error_message (interp);
if (cp[0])
fprintf (stderr, \": %s\", cp);
fprintf (stderr, \"\\n\");
exit (1);
}
");
}
stream.write ("
/*
* The global function definitions.
*/
");
}
function header_banner (stream)
{
stream.write ("/* This file is automatically generated from `"
+ input_file + "' by " + program + ". */\n");
}
path_to_ppname_re = new RegExp ("[^A-Za-z_0-9]", "g");
function path_to_ppname (path)
{
var str = path.toUpperCase ().replace (path_to_ppname_re, "_");
if (#'0' <= str[0] && str[0] <= #'9')
str = "_" + str;
return str;
}
function trailers ()
{
/* The header file. */
var stream = ofp_h;
stream.write ("\n#endif /* not " + path_to_ppname (header_file) + " */\n");
}
/*
Local variables:
mode: c
End:
*/

11
reactos/lib/kjs/kjs.def Normal file
View file

@ -0,0 +1,11 @@
; $Id: kjs.def,v 1.1 2004/01/10 20:38:17 arty Exp $
;
; ReactOS Operating System
;
LIBRARY kjs.dll
EXPORTS
kjs_eval
kjs_system_register
kjs_create_interp
kjs_destroy_interp

Some files were not shown because too many files have changed in this diff Show more