More branch merging
git-svn-id: svn://10.0.0.236/trunk@100431 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
rogerl%netscape.com
277
mozilla/js2/tests/cpp/DikDik_Shell.cpp
Normal file
277
mozilla/js2/tests/cpp/DikDik_Shell.cpp
Normal file
@@ -0,0 +1,277 @@
|
||||
// -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*-
|
||||
//
|
||||
// The contents of this file are subject to the Netscape Public
|
||||
// License Version 1.1 (the "License"); you may not use this file
|
||||
// except in compliance with the License. You may obtain a copy of
|
||||
// the License at http://www.mozilla.org/NPL/
|
||||
//
|
||||
// Software distributed under the License is distributed on an "AS
|
||||
// IS" basis, WITHOUT WARRANTY OF ANY KIND, either express oqr
|
||||
// implied. See the License for the specific language governing
|
||||
// rights and limitations under the License.
|
||||
//
|
||||
// The Original Code is the JavaScript 2 Prototype.
|
||||
//
|
||||
// The Initial Developer of the Original Code is Netscape
|
||||
// Communications Corporation. Portions created by Netscape are
|
||||
// Copyright (C) 1998 Netscape Communications Corporation. All
|
||||
// Rights Reserved.
|
||||
|
||||
|
||||
//
|
||||
// JS2 shell.
|
||||
//
|
||||
|
||||
#ifdef _WIN32
|
||||
// Turn off warnings about identifiers too long in browser information
|
||||
#pragma warning(disable: 4786)
|
||||
#endif
|
||||
|
||||
#define EXITCODE_RUNTIME_ERROR 3
|
||||
|
||||
#include <algorithm>
|
||||
#include <assert.h>
|
||||
|
||||
#include "world.h"
|
||||
#include "reader.h"
|
||||
#include "parser.h"
|
||||
#include "js2runtime.h"
|
||||
#include "bytecodegen.h"
|
||||
|
||||
#ifdef DEBUG
|
||||
#include "tracer.h"
|
||||
#endif
|
||||
|
||||
#if defined(XP_MAC) && !defined(XP_MAC_MPW)
|
||||
#include <SIOUX.h>
|
||||
#include <MacTypes.h>
|
||||
|
||||
static char *mac_argv[] = {"js2", 0};
|
||||
|
||||
static void initConsole(StringPtr consoleName,
|
||||
const char* startupMessage,
|
||||
int &argc, char **&argv)
|
||||
{
|
||||
SIOUXSettings.autocloseonquit = false;
|
||||
SIOUXSettings.asktosaveonclose = false;
|
||||
SIOUXSetTitle(consoleName);
|
||||
|
||||
// Set up a buffer for stderr (otherwise it's a pig).
|
||||
static char buffer[BUFSIZ];
|
||||
setvbuf(stderr, buffer, _IOLBF, BUFSIZ);
|
||||
|
||||
JavaScript::stdOut << startupMessage;
|
||||
|
||||
argc = 1;
|
||||
argv = mac_argv;
|
||||
}
|
||||
|
||||
#endif
|
||||
|
||||
using namespace JavaScript::JS2Runtime;
|
||||
|
||||
|
||||
JavaScript::World world;
|
||||
JavaScript::Arena a;
|
||||
|
||||
bool gTraceFlag = false;
|
||||
|
||||
namespace JavaScript {
|
||||
namespace Shell {
|
||||
|
||||
// Interactively read a line from the input stream in and put it into
|
||||
// s. Return false if reached the end of input before reading anything.
|
||||
static bool promptLine(LineReader &inReader, string &s, const char *prompt)
|
||||
{
|
||||
if (prompt) {
|
||||
stdOut << prompt;
|
||||
#ifdef XP_MAC_MPW
|
||||
// Print a CR after the prompt because MPW grabs the entire
|
||||
// line when entering an interactive command.
|
||||
stdOut << '\n';
|
||||
#endif
|
||||
}
|
||||
return inReader.readLine(s) != 0;
|
||||
}
|
||||
|
||||
|
||||
/* "filename" of the console */
|
||||
const String ConsoleName = widenCString("<console>");
|
||||
const bool showTokens = false;
|
||||
|
||||
#define INTERPRET_INPUT 1
|
||||
//#define SHOW_ICODE 1
|
||||
|
||||
|
||||
static JSValue load(Context *cx, const JSValue& /*thisValue*/, JSValue *argv, uint32 argc)
|
||||
{
|
||||
if ((argc >= 1) && (argv[0].isString())) {
|
||||
const String& fileName = *argv[0].string;
|
||||
cx->readEvalFile(fileName);
|
||||
}
|
||||
return kUndefinedValue;
|
||||
}
|
||||
|
||||
static JSValue print(Context *, const JSValue& /*thisValue*/, JSValue *argv, uint32 argc)
|
||||
{
|
||||
for (uint32 i = 0; i < argc; i++) {
|
||||
stdOut << argv[i] << "\n";
|
||||
}
|
||||
return kUndefinedValue;
|
||||
}
|
||||
|
||||
static JSValue debug(Context *cx, const JSValue& /*thisValue*/, JSValue * /*argv*/, uint32 /*argc*/)
|
||||
{
|
||||
cx->mDebugFlag = !cx->mDebugFlag;
|
||||
return kUndefinedValue;
|
||||
}
|
||||
|
||||
static JSValue trace(Context * /*cx*/, const JSValue& /*thisValue*/, JSValue * /*argv*/, uint32 /*argc*/)
|
||||
{
|
||||
gTraceFlag = true;
|
||||
stdOut << "Will report allocation stats\n";
|
||||
return kUndefinedValue;
|
||||
}
|
||||
|
||||
static JSValue dikdik(Context * /*cx*/, const JSValue& /*thisValue*/, JSValue * /*argv*/, uint32 /*argc*/)
|
||||
{
|
||||
extern void do_dikdik(Formatter &f);
|
||||
do_dikdik(stdOut);
|
||||
return kUndefinedValue;
|
||||
}
|
||||
|
||||
static int readEvalPrint(Context *cx, FILE *in)
|
||||
{
|
||||
int result = 0;
|
||||
String buffer;
|
||||
string line;
|
||||
LineReader inReader(in);
|
||||
while (promptLine(inReader, line, buffer.empty() ? "dd> " : "> ")) {
|
||||
appendChars(buffer, line.data(), line.size());
|
||||
try {
|
||||
Parser p(world, a, cx->mFlags, buffer, ConsoleName);
|
||||
cx->setReader(&p.lexer.reader);
|
||||
if (showTokens) {
|
||||
Lexer &l = p.lexer;
|
||||
while (true) {
|
||||
const Token &t = l.get(true);
|
||||
if (t.hasKind(Token::end))
|
||||
break;
|
||||
stdOut << ' ';
|
||||
t.print(stdOut, true);
|
||||
}
|
||||
stdOut << '\n';
|
||||
} else {
|
||||
StmtNode *parsedStatements = p.parseProgram();
|
||||
ASSERT(p.lexer.peek(true).hasKind(Token::end));
|
||||
if (cx->mDebugFlag)
|
||||
{
|
||||
PrettyPrinter f(stdOut, 30);
|
||||
{
|
||||
PrettyPrinter::Block b(f, 2);
|
||||
f << "Program =";
|
||||
f.linearBreak(1);
|
||||
StmtNode::printStatements(f, parsedStatements);
|
||||
}
|
||||
f.end();
|
||||
stdOut << '\n';
|
||||
}
|
||||
#ifdef INTERPRET_INPUT
|
||||
// Generate code for parsedStatements, which is a linked
|
||||
// list of zero or more statements
|
||||
cx->buildRuntime(parsedStatements);
|
||||
JS2Runtime::ByteCodeModule* bcm = cx->genCode(parsedStatements, ConsoleName);
|
||||
if (bcm) {
|
||||
#ifdef SHOW_ICODE
|
||||
stdOut << *bcm;
|
||||
#endif
|
||||
bcm->setSource(buffer, ConsoleName);
|
||||
cx->setReader(NULL);
|
||||
JSValue result = cx->interpret(bcm, 0, NULL, JSValue(cx->getGlobalObject()), NULL, 0);
|
||||
if (!result.isUndefined())
|
||||
stdOut << result.toString(cx) << "\n";
|
||||
delete bcm;
|
||||
}
|
||||
#endif
|
||||
}
|
||||
clear(buffer);
|
||||
} catch (Exception &e) {
|
||||
// If we got a syntax error on the end of input, then wait for a continuation
|
||||
// of input rather than printing the error message.
|
||||
if (!(e.hasKind(Exception::syntaxError) && e.lineNum && e.pos == buffer.size() &&
|
||||
e.sourceFile == ConsoleName)) {
|
||||
stdOut << '\n' << e.fullMessage();
|
||||
clear(buffer);
|
||||
result = EXITCODE_RUNTIME_ERROR;
|
||||
}
|
||||
}
|
||||
}
|
||||
stdOut << '\n';
|
||||
return result;
|
||||
}
|
||||
|
||||
static bool processArgs(Context *cx, int argc, char **argv, int *result)
|
||||
{
|
||||
bool doInteractive = true;
|
||||
for (int i = 0; i < argc; i++) {
|
||||
if (argv[i][0] == '-') {
|
||||
switch (argv[i][1]) {
|
||||
case 'f':
|
||||
{
|
||||
try {
|
||||
cx->readEvalFile(JavaScript::widenCString(argv[++i]));
|
||||
} catch (Exception &e) {
|
||||
stdOut << '\n' << e.fullMessage();
|
||||
*result = EXITCODE_RUNTIME_ERROR;
|
||||
}
|
||||
doInteractive = false;
|
||||
}
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
}
|
||||
return doInteractive;
|
||||
}
|
||||
|
||||
} /* namespace Shell */
|
||||
} /* namespace JavaScript */
|
||||
|
||||
|
||||
int main(int argc, char **argv)
|
||||
{
|
||||
#if defined(XP_MAC) && !defined(XP_MAC_MPW)
|
||||
initConsole("\pJavaScript Shell", "Welcome to the js2 shell.\n", argc, argv);
|
||||
#endif
|
||||
|
||||
using namespace JavaScript;
|
||||
using namespace Shell;
|
||||
|
||||
try {
|
||||
JSObject *globalObject;
|
||||
Context cx(&globalObject, world, a, Pragma::js2);
|
||||
|
||||
globalObject->defineVariable(&cx, widenCString("load"), (NamespaceList *)(NULL), NULL, JSValue(new JSFunction(load, NULL)));
|
||||
globalObject->defineVariable(&cx, widenCString("print"), (NamespaceList *)(NULL), NULL, JSValue(new JSFunction(print, NULL)));
|
||||
globalObject->defineVariable(&cx, widenCString("debug"), (NamespaceList *)(NULL), NULL, JSValue(new JSFunction(debug, NULL)));
|
||||
globalObject->defineVariable(&cx, widenCString("trace"), (NamespaceList *)(NULL), NULL, JSValue(new JSFunction(trace, NULL)));
|
||||
globalObject->defineVariable(&cx, widenCString("dikdik"), (NamespaceList *)(NULL), NULL, JSValue(new JSFunction(dikdik, NULL)));
|
||||
|
||||
bool doInteractive = true;
|
||||
int result = 0;
|
||||
if (argc > 1) {
|
||||
doInteractive = processArgs(&cx, argc - 1, argv + 1, &result);
|
||||
}
|
||||
if (doInteractive)
|
||||
result = readEvalPrint(&cx, stdin);
|
||||
|
||||
if (gTraceFlag)
|
||||
trace_dump(JavaScript::stdOut);
|
||||
|
||||
return result;
|
||||
}
|
||||
catch (Exception &e) {
|
||||
stdOut << '\n' << e.fullMessage();
|
||||
return EXITCODE_RUNTIME_ERROR;
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user