[anjuta] Add JavaScript support.
- From: Johannes Schmid <jhs src gnome org>
- To: svn-commits-list gnome org
- Cc:
- Subject: [anjuta] Add JavaScript support.
- Date: Mon, 21 Dec 2009 16:39:25 +0000 (UTC)
commit 655dc05b3d25abd8b04827efa7594d37e0379362
Author: Maxim Ermilov <zaspire rambler ru>
Date: Mon Sep 28 18:11:05 2009 +0400
Add JavaScript support.
configure.in | 12 +
plugins/Makefile.am | 4 +-
plugins/js-debugger/Makefile.am | 48 +
plugins/js-debugger/debugger-js.c | 797 ++++
plugins/js-debugger/debugger-js.h | 73 +
plugins/js-debugger/debugger-server.c | 276 ++
plugins/js-debugger/debugger-server.h | 60 +
plugins/js-debugger/js_debugger.plugin.in | 10 +
plugins/js-debugger/js_debugger.png | Bin 0 -> 3011 bytes
plugins/js-debugger/plugin.c | 672 +++
plugins/js-debugger/plugin.h | 40 +
plugins/language-manager/languages.xml | 1 +
plugins/language-support-js/Makefile.am | 67 +
.../anjuta-language-javascript.ui | 218 +
.../anjuta-language-javascript.xml | 10 +
plugins/language-support-js/code-completion.c | 241 +
plugins/language-support-js/code-completion.h | 32 +
plugins/language-support-js/database-symbol.c | 294 ++
plugins/language-support-js/database-symbol.h | 57 +
plugins/language-support-js/db-anjuta-symbol.c | 237 +
plugins/language-support-js/db-anjuta-symbol.h | 54 +
plugins/language-support-js/dir-symbol.c | 294 ++
plugins/language-support-js/dir-symbol.h | 55 +
plugins/language-support-js/gi-symbol.c | 222 +
plugins/language-support-js/gi-symbol.h | 53 +
plugins/language-support-js/gir-symbol.c | 368 ++
plugins/language-support-js/gir-symbol.h | 53 +
plugins/language-support-js/ijs-symbol.c | 206 +
plugins/language-support-js/ijs-symbol.h | 70 +
plugins/language-support-js/import-symbol.c | 226 +
plugins/language-support-js/import-symbol.h | 54 +
plugins/language-support-js/js-context.c | 1 +
plugins/language-support-js/js-context.h | 1 +
plugins/language-support-js/js-node.c | 1 +
plugins/language-support-js/js-node.h | 1 +
.../js_support_plugin.plugin.in | 7 +
plugins/language-support-js/js_support_plugin.png | Bin 0 -> 4218 bytes
plugins/language-support-js/jsparse.c | 1 +
plugins/language-support-js/jsparse.h | 1 +
plugins/language-support-js/jstypes.h | 1 +
plugins/language-support-js/lex.yy.c | 1 +
plugins/language-support-js/lex.yy.h | 1 +
plugins/language-support-js/local-symbol.c | 227 +
plugins/language-support-js/local-symbol.h | 54 +
plugins/language-support-js/node-symbol.c | 240 +
plugins/language-support-js/node-symbol.h | 54 +
plugins/language-support-js/plugin.c | 625 +++
plugins/language-support-js/plugin.h | 48 +
plugins/language-support-js/simple-symbol.c | 157 +
plugins/language-support-js/simple-symbol.h | 60 +
plugins/language-support-js/std-symbol.c | 243 +
plugins/language-support-js/std-symbol.h | 54 +
plugins/language-support-js/unit_test/Makefile.am | 15 +
.../language-support-js/unit_test/Makefile.decl | 61 +
plugins/language-support-js/unit_test/test.c | 179 +
plugins/language-support-js/unit_test/u1.js | 31 +
plugins/language-support-js/unit_test/u2.js | 13 +
plugins/language-support-js/unit_test/u3.js | 14 +
plugins/language-support-js/unit_test/u4.js | 8 +
plugins/language-support-js/unit_test/u5.js | 5 +
plugins/language-support-js/unit_test/u6.js | 8 +
plugins/language-support-js/util.c | 258 ++
plugins/language-support-js/util.h | 55 +
plugins/language-support-js/y.tab.c | 1 +
plugins/language-support-js/y.tab.h | 1 +
plugins/project-wizard/templates/Makefile.am | 3 +-
plugins/project-wizard/templates/js.wiz | 56 +
.../templates/js_minimal/Makefile.am | 10 +
.../templates/js_minimal/Makefile.am.tpl | 9 +
.../project-wizard/templates/js_minimal/autogen.sh | 160 +
.../templates/js_minimal/configure.ac.tpl | 62 +
.../templates/js_minimal/project.anjuta | 37 +
.../templates/js_minimal/src/Makefile.am | 3 +
.../templates/js_minimal/src/Makefile.am.tpl | 38 +
.../templates/js_minimal/src/debug.c | 521 +++
.../templates/js_minimal/src/debug.h | 22 +
.../project-wizard/templates/js_minimal/src/main.c | 46 +
.../templates/js_minimal/src/main.js | 5 +
.../templates/translatable-strings.h | 8 +
plugins/symbol-db/anjuta-tags/Makefile.am | 37 +-
plugins/symbol-db/anjuta-tags/gir.c | 234 +
plugins/symbol-db/anjuta-tags/jscript.c | 1738 ++-------
plugins/symbol-db/anjuta-tags/parser/Grammar.y | 1193 +++++
plugins/symbol-db/anjuta-tags/parser/js-context.c | 626 +++
plugins/symbol-db/anjuta-tags/parser/js-context.h | 92 +
plugins/symbol-db/anjuta-tags/parser/js-node.c | 199 +
plugins/symbol-db/anjuta-tags/parser/js-node.h | 90 +
plugins/symbol-db/anjuta-tags/parser/jsparse.c | 147 +
plugins/symbol-db/anjuta-tags/parser/jsparse.h | 13 +
plugins/symbol-db/anjuta-tags/parser/jstypes.h | 114 +
plugins/symbol-db/anjuta-tags/parser/lex.l | 126 +
plugins/symbol-db/anjuta-tags/parser/lex.yy.c | 3698 ++++++++++++++++
plugins/symbol-db/anjuta-tags/parser/lex.yy.h | 339 ++
plugins/symbol-db/anjuta-tags/parser/y.tab.c | 4643 ++++++++++++++++++++
plugins/symbol-db/anjuta-tags/parser/y.tab.h | 168 +
plugins/symbol-db/anjuta-tags/parsers.h | 1 +
96 files changed, 20180 insertions(+), 1489 deletions(-)
---
diff --git a/configure.in b/configure.in
index c53fde4..a137547 100644
--- a/configure.in
+++ b/configure.in
@@ -119,6 +119,14 @@ AC_PATH_PROG(GCONFTOOL, gconftool-2)
AM_GCONF_SOURCE_2
dnl ***************************************************************************
+dnl Set gjsdir && girdir
+dnl ***************************************************************************
+girdir=`pkg-config --variable=girdir gobject-introspection-1.0`
+gjsdir=`pkg-config --variable=jsdir gjs-1.0`
+AC_SUBST(girdir)
+AC_SUBST(gjsdir)
+
+dnl ***************************************************************************
dnl Check for pkgconfig
dnl ***************************************************************************
AC_PATH_PROG(PKGCONFIG_CONFIG, pkg-config,no)
@@ -763,6 +771,7 @@ plugins/debug-manager/Makefile
plugins/debug-manager/images/Makefile
plugins/devhelp/Makefile
plugins/glade/Makefile
+plugins/js-debugger/Makefile
plugins/file-manager/Makefile
plugins/file-loader/Makefile
plugins/file-wizard/Makefile
@@ -795,6 +804,8 @@ plugins/project-wizard/templates/mkfile/Makefile
plugins/project-wizard/templates/mkfile/src/Makefile
plugins/project-wizard/templates/mkfile/po/Makefile
plugins/project-wizard/templates/minimal/Makefile
+plugins/project-wizard/templates/js_minimal/Makefile
+plugins/project-wizard/templates/js_minimal/src/Makefile
plugins/project-wizard/templates/terminal/Makefile
plugins/project-wizard/templates/terminal/src/Makefile
plugins/project-wizard/templates/terminal/po/Makefile
@@ -842,6 +853,7 @@ plugins/language-support-cpp-java/Makefile
plugins/language-support-cpp-java/cxxparser/Makefile
plugins/run-program/Makefile
plugins/starter/Makefile
+plugins/language-support-js/Makefile
anjuta.desktop.in
manuals/Makefile
manuals/reference/Makefile
diff --git a/plugins/Makefile.am b/plugins/Makefile.am
index e5099b1..5395330 100644
--- a/plugins/Makefile.am
+++ b/plugins/Makefile.am
@@ -31,6 +31,8 @@ SUBDIRS = . \
run-program \
gbf-am \
gbf-mkfile \
- starter
+ starter \
+ js-debugger \
+ language-support-js
-include $(top_srcdir)/git.mk
diff --git a/plugins/js-debugger/Makefile.am b/plugins/js-debugger/Makefile.am
new file mode 100644
index 0000000..4e61a0e
--- /dev/null
+++ b/plugins/js-debugger/Makefile.am
@@ -0,0 +1,48 @@
+# Plugin Icon file
+js_debugger_pixmapsdir = $(anjuta_image_dir)
+js_debugger_pixmaps_DATA = js_debugger.png
+
+# Plugin description file
+plugin_in_files = js_debugger.plugin.in
+%.plugin: %.plugin.in $(INTLTOOL_MERGE) $(wildcard $(top_srcdir)/po/*po) ; $(INTLTOOL_MERGE) $(top_srcdir)/po $< $@ -d -u -c $(top_builddir)/po/.intltool-merge-cache
+
+js_debugger_plugindir = $(anjuta_plugin_dir)
+js_debugger_plugin_DATA = $(plugin_in_files:.plugin.in=.plugin)
+
+# NOTE :
+# The naming convention is very intentional
+# We are forced to use the prefix 'lib' by automake and libtool
+# There is probably a way to avoid it but it is not worth to effort
+# to find out.
+# The 'anjuta_' prfix is a safety measure to avoid conflicts where the
+# plugin 'libpython.so' needs to link with the real 'libpython.so'
+
+# Include paths
+AM_CPPFLAGS = \
+ -Werror \
+ -DPACKAGE_LOCALE_DIR=\""$(prefix)/$(DATADIRNAME)/locale"\" \
+ -DANJUTA_DATA_DIR=\"$(anjuta_data_dir)\" \
+ -DANJUTA_PLUGIN_DIR=\"$(anjuta_plugin_dir)\" \
+ -DANJUTA_IMAGE_DIR=\"$(anjuta_image_dir)\" \
+ -DANJUTA_GLADE_DIR=\"$(anjuta_glade_dir)\" \
+ -DANJUTA_UI_DIR=\"$(anjuta_ui_dir)\" \
+ -DPACKAGE_SRC_DIR=\"$(srcdir)\" \
+ $(LIBANJUTA_CFLAGS)
+
+# Where to install the plugin
+plugindir = $(anjuta_plugin_dir)
+
+# The plugin
+plugin_LTLIBRARIES = libjs_debugger.la
+
+# Plugin sources
+libjs_debugger_la_SOURCES = debugger-js.c debugger-js.h debugger-server.c debugger-server.h plugin.c plugin.h
+
+# Plugin dependencies
+libjs_debugger_la_LIBADD = \
+ $(LIBANJUTA_LIBS)
+
+EXTRA_DIST = \
+ $(plugin_in_files) \
+ $(js_debugger_plugin_DATA) \
+ $(js_debugger_pixmaps_DATA)
diff --git a/plugins/js-debugger/debugger-js.c b/plugins/js-debugger/debugger-js.c
new file mode 100644
index 0000000..6baaa67
--- /dev/null
+++ b/plugins/js-debugger/debugger-js.c
@@ -0,0 +1,797 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+#include <libanjuta/anjuta-plugin.h>
+#include <libanjuta/interfaces/ianjuta-debugger.h>
+#include <libanjuta/interfaces/ianjuta-debugger-breakpoint.h>
+#include <libanjuta/interfaces/ianjuta-debugger-variable.h>
+#include <libanjuta/interfaces/ianjuta-terminal.h>
+#include "debugger-server.h"
+#include "debugger-js.h"
+
+typedef struct _DebuggerJsPrivate DebuggerJsPrivate;
+struct _DebuggerJsPrivate
+{
+ IAnjutaTerminal *terminal;
+ gchar *filename;
+ gboolean started, exited;
+ gboolean dataRecived;
+ IAnjutaDebugger *data;
+ gchar *working_directory;
+ gchar *current_source_file;
+ gint current_line;
+ gboolean busy;
+ GList *breakpoint;
+ guint BID;
+ pid_t pid;
+ DebuggerServer *server;
+ GList *task_queue;
+};
+
+#define DEBUGGER_JS_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE ((o), DEBUGGER_TYPE_JS, DebuggerJsPrivate))
+
+enum
+{
+ DEBUGGER_ERROR,
+ LAST_SIGNAL
+};
+
+static guint js_signals[LAST_SIGNAL] = { 0 };
+
+G_DEFINE_TYPE (DebuggerJs, debugger_js, G_TYPE_OBJECT);
+
+enum
+{
+ SIGNAL,
+ BREAKPOINT_LIST,
+ VARIABLE_LIST_CHILDREN,
+ LIST_LOCAL,
+ LIST_THREAD,
+ LIST_FRAME,
+ INFO_THREAD,
+ VARIABLE_CREATE,
+};
+
+struct Task
+{
+ IAnjutaDebuggerCallback callback;
+ gpointer user_data;
+ gint line_required;
+ gint task_type;
+ union
+ {
+ struct
+ {
+ gchar *name;
+ }VareableListChildren;
+ }this_data;
+ gchar *name;
+};
+
+static void
+debugger_js_init (DebuggerJs *object)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ priv->current_source_file = NULL;
+ priv->working_directory = g_strdup (".");
+ priv->dataRecived = FALSE;
+ priv->started = FALSE;
+ priv->exited = FALSE;
+ priv->busy = FALSE;
+ priv->breakpoint = NULL;
+ priv->BID = 1234;
+ priv->pid = 0;
+ priv->task_queue = NULL;
+
+ priv->terminal = NULL;
+ priv->filename = NULL;
+ priv->data = NULL;
+ priv->current_line = 0;
+ priv->server = NULL;
+}
+
+static void on_child_exited (IAnjutaTerminal *obj, gint pid, gint status, gpointer user_data);
+
+static void
+debugger_js_finalize (GObject *object)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ g_assert (priv != NULL);
+
+ g_signal_handlers_disconnect_by_func(G_OBJECT (priv->terminal), on_child_exited, object);
+
+ g_free (priv->filename);
+ g_free (priv->working_directory);
+ g_free (priv->current_source_file);
+ g_list_foreach (priv->breakpoint, (GFunc)g_free, NULL);
+ g_list_free (priv->breakpoint);
+ debugger_server_stop (priv->server);
+ g_object_unref (priv->server);
+ g_list_foreach (priv->task_queue, (GFunc)g_free, NULL);
+ g_list_free (priv->task_queue);
+
+ G_OBJECT_CLASS (debugger_js_parent_class)->finalize (object);
+}
+
+static void
+debugger_js_debugger_error (DebuggerJs *self, const gchar *text)
+{
+ g_warning ("%s", text);
+}
+
+static void
+debugger_js_class_init (DebuggerJsClass *klass)
+{
+ GObjectClass* object_class = G_OBJECT_CLASS (klass);
+
+ g_type_class_add_private (klass, sizeof (DebuggerJsPrivate));
+
+ object_class->finalize = debugger_js_finalize;
+
+ klass->DebuggerError = debugger_js_debugger_error;
+
+ js_signals[DEBUGGER_ERROR] =
+ g_signal_new ("DebuggerError",
+ G_OBJECT_CLASS_TYPE (klass),
+ G_SIGNAL_RUN_FIRST,
+ G_STRUCT_OFFSET (DebuggerJsClass, DebuggerError),
+ NULL, NULL,
+ g_cclosure_marshal_VOID__POINTER,
+ G_TYPE_NONE, 1, G_TYPE_POINTER);
+}
+
+static void
+task_added (DebuggerJs* object)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+ priv->busy = TRUE;
+ g_signal_emit_by_name (priv->data, "debugger-ready", IANJUTA_DEBUGGER_BUSY);
+}
+
+static gpointer
+variable_create (DebuggerJs* object, struct Task *task)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ IAnjutaDebuggerVariableObject *var = g_new (IAnjutaDebuggerVariableObject, 1);
+ gchar *str = debugger_server_get_line (priv->server);
+ var->expression = g_strdup (task->name);
+ var->name = g_strdup (task->name);
+ var->type = g_strdup ("object");
+ var->value = g_strdup ("object");
+ var->children = 0;
+ var->changed = TRUE;
+ var->exited = FALSE;
+ var->deleted = FALSE;
+
+ if (str[0] != '{')
+ {
+ var->type = g_strdup ("string");
+ var->value = g_strdup (str);
+ }
+ else
+ {
+ size_t i, k, size;
+ for (i = 0, k = 0, size = strlen (str); i < size; i++)
+ {
+ if (str[i] == '{')
+ k++;
+ if (str[i] == '}')
+ {
+ k--;
+ if (k == 0)
+ var->children ++;
+ }
+ }
+ }
+ g_free (str);
+ return var;
+}
+
+static gpointer
+info_thread (DebuggerJs* object, struct Task *task)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+ IAnjutaDebuggerFrame* frame;
+ gint thread;
+
+ thread = 123;
+ frame = g_new0 (IAnjutaDebuggerFrame, 1);
+
+ frame->thread = thread;
+ frame->address = 0xFFFF;
+ frame->file = g_strdup (priv->current_source_file);
+ frame->line = priv->current_line;
+ frame->library = NULL;
+ frame->function = NULL;
+
+ return frame;
+}
+
+static gpointer
+list_frame (DebuggerJs* object, struct Task *task)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ IAnjutaDebuggerFrame* frame;
+ GList *var = NULL;
+ gint i, size;
+ gchar *k;
+ gchar *line = debugger_server_get_line (priv->server);
+
+ for (k = line, i = 0, size = strlen (line); i <= size; i++)
+ {
+ if (line [i] == ',')
+ {
+ gchar *filename = g_new (gchar, strlen (line) + 1);
+ gint lineno;
+
+ frame = g_new0 (IAnjutaDebuggerFrame, 1);
+
+ line [i] = '\0';
+ if (sscanf (k, " LINE# %d %s", &lineno, filename) != 2)
+ {
+ g_signal_emit_by_name (object, "DebuggerError", "Invalid data arrived", G_TYPE_NONE);
+ continue;
+ }
+ frame->file = filename;
+ frame->line = lineno;
+ frame->args = NULL;
+ frame->function = NULL;
+ frame->library = NULL;
+ frame->thread = 123;
+ var = g_list_append (var, frame);
+ k = line + i + 1;
+ }
+ }
+ g_free (line);
+/* g_list_foreach (var, GFunc (g_free), NULL);
+ g_list_free (var);*/
+ return var;
+}
+
+static gpointer
+list_thread (DebuggerJs* object, struct Task *task)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ IAnjutaDebuggerFrame* frame;
+ GList* list = NULL;
+
+ frame = g_new0 (IAnjutaDebuggerFrame, 1);
+ frame->thread = 123;
+ frame->address = 0;
+ frame->file = g_strdup (priv->current_source_file);
+ frame->line = priv->current_line;
+ frame->library = NULL;
+ frame->function = NULL;
+ list = g_list_append (list, frame);
+//TODO:Free list?
+ return list;
+}
+
+static gpointer
+list_local (DebuggerJs* object, struct Task *task)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+ GList *var = NULL;
+ gint i, size;
+ gchar *k;
+ gchar *line = debugger_server_get_line (priv->server);
+
+ for (k = line, i = 0, size = strlen (line); i <= size; i++)
+ {
+ if (line [i] == ',')
+ {
+ line [i] = '\0';
+ var = g_list_append (var, g_strdup (k));
+ k = line + i + 1;
+ }
+ }
+ g_free (line);
+
+ return var;
+}
+
+static gpointer
+varibale_list_children (DebuggerJs* object, struct Task *task)
+{
+ size_t i, k, j, size;
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+ GList *ret = NULL;
+ IAnjutaDebuggerVariableObject *var = NULL;
+ gchar *str = debugger_server_get_line (priv->server);
+
+ for (i = 0, k = 0, j = 0, size = strlen (str); i < size; i++)
+ {
+ if (str[i] == '{')
+ {
+ k = i;
+ j = 0;
+ }
+ if (str[i] == ',')
+ {
+ str[i] = '\0';
+ if (j == 0)
+ {
+ var = g_new (IAnjutaDebuggerVariableObject, 1);
+ var->type = g_strdup (str + k + 1);
+ var->value = g_strdup ("");
+ var->children = 1;
+ k = i;
+ }
+ else if (j == 1)
+ {
+ var->expression = g_strconcat (task->this_data.VareableListChildren.name, ".", str + k + 2, NULL);
+ var->name = g_strconcat (task->this_data.VareableListChildren.name, ".", str + k + 2, NULL);
+ }
+ j++;
+ if (j == 2)
+ {
+ int z;
+ ret = g_list_append (ret, var);
+ for (z = 1; z && i< size; i++)
+ {
+ if (str[i] == '{')
+ z++;
+ if (str[i] == '}')
+ z--;
+ }
+ j = 0;
+ var = NULL;
+ }
+ }
+ }
+ g_assert (var == NULL);
+
+ g_free (str);
+ return ret;
+}
+
+static void
+on_data_arrived (DebuggerServer *server, gpointer user_data)
+{
+ DebuggerJs* object = DEBUGGER_JS (user_data);
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ if (priv->task_queue != NULL)
+ {
+ struct Task *task = (struct Task*)priv->task_queue->data;
+
+ g_assert (task);
+
+ while (task->line_required <= debugger_server_get_line_col (priv->server))
+ {
+ gpointer result;
+ switch (task->task_type)
+ {
+ case SIGNAL:
+ task->callback (NULL, task->user_data, NULL);
+ break;
+ case VARIABLE_CREATE:
+ result = variable_create (object, task);
+ task->callback (result, task->user_data, NULL);
+ break;
+ case INFO_THREAD:
+ result = info_thread (object, task);
+ task->callback (result, task->user_data, NULL);
+ break;
+ case LIST_THREAD:
+ result = list_thread (object, task);
+ task->callback (result, task->user_data, NULL);
+ break;
+ case LIST_FRAME:
+ result = list_frame (object, task);
+ task->callback (result, task->user_data, NULL);
+ break;
+ case LIST_LOCAL:
+ result = list_local (object, task);
+ task->callback (result, task->user_data, NULL);
+ break;
+ case BREAKPOINT_LIST:
+ task->callback (priv->breakpoint, task->user_data, NULL);//TODO: Return Copy
+ break;
+ case VARIABLE_LIST_CHILDREN:
+ result = varibale_list_children (object, task);
+ task->callback (result, task->user_data, NULL);
+ break;
+ default:
+ printf ("%d\n", task->task_type);
+ g_assert_not_reached ();
+ break;
+ }
+ priv->busy = FALSE;
+ g_signal_emit_by_name (priv->data, "debugger-ready", debugger_js_get_state (object));
+
+ priv->task_queue = g_list_delete_link (priv->task_queue, priv->task_queue);
+ if (!priv->task_queue)
+ break;
+ task = (struct Task*)priv->task_queue->data;
+ }
+ }
+ if (priv->task_queue == NULL && debugger_server_get_line_col (priv->server) > 0)
+ {
+ gint lineno;
+ gchar *line = debugger_server_get_line (server);
+ gchar *file;
+
+ g_assert (line);
+ g_assert (strlen (line) != 0);
+
+ priv->dataRecived = TRUE;
+ file = (gchar*)g_malloc (strlen (line));
+
+ if (priv->current_source_file)
+ g_free (priv->current_source_file);
+
+ if (sscanf (line, "Line #%d File:%s\n", &lineno, file) == 2) //TODO: Correct recive filename
+ {
+ priv->current_line = lineno;
+ priv->current_source_file = file;
+ if (priv->started)
+ g_signal_emit_by_name (priv->data, "program-moved", 0, 0, 0, file, lineno);
+ }
+ else
+ g_signal_emit_by_name (object, "DebuggerError", "Invalid data arrived", G_TYPE_NONE);
+
+ g_free (line);
+ }
+}
+
+static void
+on_error (DebuggerServer *server, const gchar * error, gpointer user_data)
+{
+ DebuggerJs* object = DEBUGGER_JS (user_data);
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ g_assert (error != NULL);
+
+ g_signal_emit_by_name (priv->data, "debugger-ready", IANJUTA_DEBUGGER_STOPPED);
+ priv->exited = TRUE;
+ priv->started = TRUE;
+ priv->busy = FALSE;
+
+ g_signal_emit_by_name (object, "DebuggerError", error, G_TYPE_NONE);
+}
+
+DebuggerJs*
+debugger_js_new (int port, const gchar* filename, IAnjutaDebugger *data)
+{
+ DebuggerJs* object = g_object_new (DEBUGGER_TYPE_JS, NULL);
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ g_assert (data != NULL);
+ g_assert (filename != NULL);
+
+ priv->data = data;
+ priv->terminal = anjuta_shell_get_interface (ANJUTA_PLUGIN (data)->shell, IAnjutaTerminal, NULL);
+ if (priv->terminal)
+ {
+ g_warning ("Terminal plugin does not installed.");
+ }
+ priv->server = debugger_server_new (port);
+
+ if (priv->server == NULL)
+ g_error ("Can not create server."); //TODO:FIX THIS
+ g_signal_connect (priv->server, "data-arrived", G_CALLBACK (on_data_arrived), object);
+ g_signal_connect (priv->server, "error", G_CALLBACK (on_error), object);
+
+ priv->filename = g_strdup (filename);
+ g_signal_emit_by_name (data, "debugger-started");
+
+ return object;
+}
+
+IAnjutaDebuggerState
+debugger_js_get_state (DebuggerJs *object)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ if (priv->busy)
+ return IANJUTA_DEBUGGER_BUSY;
+ if (!priv->started)
+ return IANJUTA_DEBUGGER_PROGRAM_LOADED;
+ if (priv->exited)
+ return IANJUTA_DEBUGGER_STOPPED;
+ if (debugger_server_get_line_col (priv->server) || priv->dataRecived)
+ return IANJUTA_DEBUGGER_PROGRAM_STOPPED;
+
+ return IANJUTA_DEBUGGER_PROGRAM_RUNNING;
+}
+
+void
+debugger_js_set_work_dir (DebuggerJs *object, const gchar* work_dir)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ g_assert (work_dir != NULL);
+
+ if (priv->working_directory)
+ g_free (priv->working_directory);
+ priv->working_directory = g_strdup (work_dir);
+}
+
+void
+debugger_js_start_remote (DebuggerJs *object)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ g_signal_emit_by_name (priv->data, "program-running");
+ priv->started = TRUE;
+}
+
+static void
+on_child_exited (IAnjutaTerminal *obj, gint pid, gint status, gpointer user_data)
+{
+ DebuggerJs* object = DEBUGGER_JS (user_data);
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ g_assert (priv != NULL);
+
+ debugger_server_stop (priv->server);
+ priv->busy = FALSE;
+ priv->started = TRUE;
+ priv->exited = TRUE;
+ kill (priv->pid, SIGKILL);
+ g_signal_emit_by_name (priv->data, "debugger-ready", IANJUTA_DEBUGGER_STOPPED);
+}
+
+void
+debugger_js_start (DebuggerJs *object, const gchar *arguments)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ gchar *str = g_strconcat (priv->filename, " --debug 127.0.0.1 ", arguments, NULL);
+
+ g_assert (priv->terminal != NULL);
+
+ g_signal_emit_by_name (priv->data, "program-running");
+ g_signal_connect (G_OBJECT (priv->terminal), "child-exited",
+ G_CALLBACK (on_child_exited), object);
+ priv->pid = ianjuta_terminal_execute_command (priv->terminal, priv->working_directory, str, NULL, NULL);
+
+ if (!priv->pid)
+ g_signal_emit_by_name (object, "DebuggerError", "Cannot start programm", G_TYPE_NONE);
+ priv->started = TRUE;
+
+ g_free (str);
+}
+
+void
+debugger_js_continue (DebuggerJs *object)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ priv->dataRecived = FALSE;
+ debugger_server_send_line (priv->server, "continue");
+}
+
+void
+debugger_js_stepin (DebuggerJs *object)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ priv->dataRecived = FALSE;
+ debugger_server_send_line (priv->server, "stepin");
+}
+
+void
+debugger_js_stepover (DebuggerJs *object)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ priv->dataRecived = FALSE;
+ debugger_server_send_line (priv->server, "stepover");
+}
+
+void
+debugger_js_stepout (DebuggerJs *object)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ priv->dataRecived = FALSE;
+ debugger_server_send_line (priv->server, "stepout");
+}
+
+void
+debugger_js_stop (DebuggerJs *object)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ debugger_server_stop (priv->server);
+ priv->exited = TRUE;
+ kill (priv->pid, SIGKILL);
+ g_signal_emit_by_name (priv->data, "debugger-ready", IANJUTA_DEBUGGER_STOPPED);
+}
+
+void
+debugger_js_add_breakpoint (DebuggerJs *object, const gchar* file, guint line)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+ gchar *str;
+
+ g_assert (file != NULL);
+
+ IAnjutaDebuggerBreakpointItem* bp = g_new (IAnjutaDebuggerBreakpointItem, 1);
+ bp->type = IANJUTA_DEBUGGER_BREAKPOINT_ON_LINE;
+ bp->enable = TRUE;
+ bp->line = line;
+ bp->times = 0;
+ bp->file = g_strdup (file);
+ debugger_server_send_line (priv->server, "add");
+ bp->id = priv->BID++;
+
+ str = g_strdup_printf ("%d %s", line, bp->file);
+ debugger_server_send_line (priv->server, str);
+ g_free (str);
+
+ priv->breakpoint = g_list_append (priv->breakpoint, bp);
+}
+
+void
+debugger_js_breakpoint_list (DebuggerJs *object, IAnjutaDebuggerCallback callback, gpointer user_data)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ g_assert (callback);
+
+ task_added (object);
+ struct Task *task = g_new (struct Task, 1);
+ task->user_data = user_data;
+ task->callback = callback;
+ task->line_required = 0;
+ task->task_type = BREAKPOINT_LIST;
+
+ priv->task_queue = g_list_append (priv->task_queue, task);
+}
+
+void
+debugger_js_signal (DebuggerJs *object, IAnjutaDebuggerCallback callback, gpointer user_data)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ g_assert (callback);
+
+ task_added (object);
+ struct Task *task = g_new (struct Task, 1);
+ task->user_data = user_data;
+ task->callback = callback;
+ task->line_required = 0;
+ task->task_type = SIGNAL;
+
+ priv->task_queue = g_list_append (priv->task_queue, task);
+}
+
+void
+debugger_js_variable_list_children (DebuggerJs *object, IAnjutaDebuggerCallback callback, const gchar *name, gpointer user_data)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ g_assert (name != NULL);
+
+ task_added (object);
+ struct Task *task = g_new (struct Task, 1);
+ task->user_data = user_data;
+ task->callback = callback;
+ task->line_required = 1;
+ task->task_type = VARIABLE_LIST_CHILDREN;
+ task->this_data.VareableListChildren.name = g_strdup (name);
+
+ debugger_server_send_line (priv->server, "eval");
+ debugger_server_send_line (priv->server, name);
+
+ priv->task_queue = g_list_append (priv->task_queue, task);
+}
+
+void
+debugger_js_list_local (DebuggerJs *object, IAnjutaDebuggerCallback callback, gpointer user_data)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ g_assert (callback);
+
+ task_added (object);
+ struct Task *task = g_new (struct Task, 1);
+ task->user_data = user_data;
+ task->callback = callback;
+ task->line_required = 1;
+ task->task_type = LIST_LOCAL;
+
+ debugger_server_send_line (priv->server, "list");
+
+ priv->task_queue = g_list_append (priv->task_queue, task);
+}
+
+void
+debugger_js_list_thread (DebuggerJs *object, IAnjutaDebuggerCallback callback, gpointer user_data)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ g_assert (callback);
+
+ task_added (object);
+ struct Task *task = g_new (struct Task, 1);
+ task->user_data = user_data;
+ task->callback = callback;
+ task->line_required = 0;
+ task->task_type = LIST_THREAD;
+
+ priv->task_queue = g_list_append (priv->task_queue, task);
+}
+
+void
+debugger_js_list_frame (DebuggerJs *object, IAnjutaDebuggerCallback callback, gpointer user_data)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ g_assert (callback);
+
+ task_added (object);
+ struct Task *task = g_new (struct Task, 1);
+ task->user_data = user_data;
+ task->callback = callback;
+ task->line_required = 1;
+ task->task_type = LIST_FRAME;
+
+ debugger_server_send_line (priv->server, "stacktrace");
+
+ priv->task_queue = g_list_append (priv->task_queue, task);
+}
+
+void
+debugger_js_info_thread (DebuggerJs *object, IAnjutaDebuggerCallback callback, gint thread, gpointer user_data)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ g_assert (callback);
+
+ task_added (object);
+ struct Task *task = g_new (struct Task, 1);
+ task->user_data = user_data;
+ task->callback = callback;
+ task->line_required = 0;
+ task->task_type = INFO_THREAD;
+
+ priv->task_queue = g_list_append (priv->task_queue, task);
+}
+
+void
+debugger_js_variable_create (DebuggerJs *object, IAnjutaDebuggerCallback callback, const gchar *name, gpointer user_data)
+{
+ DebuggerJsPrivate *priv = DEBUGGER_JS_PRIVATE(object);
+
+ g_assert (callback);
+ g_assert (name);
+ g_assert (strlen (name) >= 1);
+
+ task_added (object);
+ struct Task *task = g_new (struct Task, 1);
+ task->user_data = user_data;
+ task->callback = callback;
+ task->line_required = 1;
+ task->name = g_strdup (name);
+ task->task_type = VARIABLE_CREATE;
+
+ debugger_server_send_line (priv->server, "eval");
+ debugger_server_send_line (priv->server, name);
+
+ priv->task_queue = g_list_append (priv->task_queue, task);
+}
+
diff --git a/plugins/js-debugger/debugger-js.h b/plugins/js-debugger/debugger-js.h
new file mode 100644
index 0000000..6aede02
--- /dev/null
+++ b/plugins/js-debugger/debugger-js.h
@@ -0,0 +1,73 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _DEBUGGER_JS_H_
+#define _DEBUGGER_JS_H_
+
+#include <glib-object.h>
+
+G_BEGIN_DECLS
+
+#define DEBUGGER_TYPE_JS (debugger_js_get_type ())
+#define DEBUGGER_JS(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), DEBUGGER_TYPE_JS, DebuggerJs))
+#define DEBUGGER_JS_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), DEBUGGER_TYPE_JS, DebuggerJsClass))
+#define DEBUGGER_IS_JS(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), DEBUGGER_TYPE_JS))
+#define DEBUGGER_IS_JS_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), DEBUGGER_TYPE_JS))
+#define DEBUGGER_JS_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), DEBUGGER_TYPE_JS, DebuggerJsClass))
+
+typedef struct _DebuggerJsClass DebuggerJsClass;
+typedef struct _DebuggerJs DebuggerJs;
+
+struct _DebuggerJsClass
+{
+ GObjectClass parent_class;
+
+ /* Signals */
+ void(* DebuggerError) (DebuggerJs *self, const gchar *text);
+};
+
+struct _DebuggerJs
+{
+ GObject parent_instance;
+};
+
+GType debugger_js_get_type (void) G_GNUC_CONST;
+DebuggerJs* debugger_js_new (int port, const gchar* filename, IAnjutaDebugger *data);
+IAnjutaDebuggerState debugger_js_get_state (DebuggerJs *object);
+void debugger_js_set_work_dir (DebuggerJs *object, const gchar* work_dir);
+void debugger_js_start_remote (DebuggerJs *object);
+void debugger_js_start (DebuggerJs *object, const gchar *arguments);
+void debugger_js_continue (DebuggerJs *object);
+void debugger_js_stepin (DebuggerJs *object);
+void debugger_js_stepover (DebuggerJs *object);
+void debugger_js_stepout (DebuggerJs *object);
+void debugger_js_stop (DebuggerJs *object);
+void debugger_js_add_breakpoint (DebuggerJs *object, const gchar* file, guint line);
+void debugger_js_breakpoint_list (DebuggerJs *object, IAnjutaDebuggerCallback callback, gpointer user_data);
+void debugger_js_variable_list_children (DebuggerJs *object, IAnjutaDebuggerCallback callback, const gchar *name, gpointer user_data);
+void debugger_js_signal (DebuggerJs *object, IAnjutaDebuggerCallback callback, gpointer user_data);
+void debugger_js_list_local (DebuggerJs *object, IAnjutaDebuggerCallback callback, gpointer user_data);
+void debugger_js_list_thread (DebuggerJs *object, IAnjutaDebuggerCallback callback, gpointer user_data);
+void debugger_js_list_frame (DebuggerJs *object, IAnjutaDebuggerCallback callback, gpointer user_data);
+void debugger_js_info_thread (DebuggerJs *object, IAnjutaDebuggerCallback callback, gint thread, gpointer user_data);
+void debugger_js_variable_create (DebuggerJs *object, IAnjutaDebuggerCallback callback, const gchar *name, gpointer user_data);
+
+G_END_DECLS
+
+#endif /* _DEBUGGER_JS_H_ */
diff --git a/plugins/js-debugger/debugger-server.c b/plugins/js-debugger/debugger-server.c
new file mode 100644
index 0000000..205ebc4
--- /dev/null
+++ b/plugins/js-debugger/debugger-server.c
@@ -0,0 +1,276 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#include <sys/socket.h>
+#include <sys/types.h>
+#include <sys/ioctl.h>
+#include <netinet/in.h>
+#include <netinet/tcp.h>
+#include <unistd.h>
+#include <string.h>
+
+#include "debugger-server.h"
+
+typedef struct _DebuggerServerPrivate DebuggerServerPrivate;
+struct _DebuggerServerPrivate
+{
+ GList* in;
+ GList* out;
+ int server_socket;
+ int socket;
+ gboolean work;
+};
+
+#define DEBUGGER_SERVER_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE ((o), DEBUGGER_TYPE_SERVER, DebuggerServerPrivate))
+
+enum
+{
+ DATA_ARRIVED,
+ ERROR_SIGNAL,
+ LAST_SIGNAL
+};
+
+
+static guint server_signals[LAST_SIGNAL] = { 0 };
+
+G_DEFINE_TYPE (DebuggerServer, debugger_server, G_TYPE_OBJECT);
+
+static void
+debugger_server_init (DebuggerServer *object)
+{
+ DebuggerServerPrivate *priv = DEBUGGER_SERVER_PRIVATE (object);
+ priv->in = NULL;
+ priv->out = NULL;
+ priv->server_socket = 0;
+ priv->socket = 0;
+ priv->work = TRUE;
+}
+
+static void
+debugger_server_finalize (GObject *object)
+{
+ DebuggerServerPrivate *priv = DEBUGGER_SERVER_PRIVATE (object);
+
+ g_assert (priv);
+
+ g_list_foreach (priv->in, (GFunc)g_free, NULL);
+ g_list_free (priv->in);
+ g_list_foreach (priv->out, (GFunc)g_free, NULL);
+ g_list_free (priv->out);
+
+ G_OBJECT_CLASS (debugger_server_parent_class)->finalize (object);
+}
+
+static void
+debugger_server_data_arrived (DebuggerServer *self)
+{
+}
+
+static void
+debugger_server_error_signal (DebuggerServer *self, const gchar *text)
+{
+}
+
+static void
+debugger_server_class_init (DebuggerServerClass *klass)
+{
+ GObjectClass* object_class = G_OBJECT_CLASS (klass);
+
+ g_type_class_add_private (klass, sizeof (DebuggerServerPrivate));
+
+ object_class->finalize = debugger_server_finalize;
+
+ klass->data_arrived = debugger_server_data_arrived;
+ klass->error = debugger_server_error_signal;
+
+ server_signals[DATA_ARRIVED] =
+ g_signal_new ("data-arrived",
+ G_OBJECT_CLASS_TYPE (klass),
+ G_SIGNAL_RUN_FIRST,
+ G_STRUCT_OFFSET (DebuggerServerClass, data_arrived),
+ NULL, NULL,
+ g_cclosure_marshal_VOID__VOID,
+ G_TYPE_NONE, 0);
+ server_signals[DATA_ARRIVED] =
+ g_signal_new ("error",
+ G_OBJECT_CLASS_TYPE (klass),
+ G_SIGNAL_RUN_FIRST,
+ G_STRUCT_OFFSET (DebuggerServerClass, error),
+ NULL, NULL,
+ g_cclosure_marshal_VOID__POINTER,
+ G_TYPE_NONE, 1, G_TYPE_POINTER);
+}
+
+static gboolean
+SourceFunc (gpointer d)
+{
+ DebuggerServer *object = DEBUGGER_SERVER (d);
+ DebuggerServerPrivate *priv = DEBUGGER_SERVER_PRIVATE (object);
+ gint size;
+
+ if (priv->socket == 0)
+ {
+ fd_set accept_fd;
+ struct timeval timeo;
+ struct sockaddr *cp = NULL;
+ socklen_t sz;
+
+ FD_ZERO(&accept_fd);
+ FD_SET(priv->server_socket, &accept_fd);
+ timeo.tv_sec=0;
+ timeo.tv_usec=1;
+ if (select(priv->server_socket + 1,&accept_fd,NULL,NULL,&timeo) > 0)
+ {
+ if(FD_ISSET(priv->server_socket,&accept_fd))
+ {
+ if ((priv->socket = accept(priv->server_socket, cp, &sz)) == -1)
+ {
+ g_signal_emit_by_name (object, "error", "Can not accept.", G_TYPE_NONE);
+ }
+ close (priv->server_socket);
+ }
+ }
+ }
+ else
+ {
+ int len;
+ if (ioctl (priv->socket, FIONREAD, &len) == -1)
+ {
+ g_signal_emit_by_name (object, "error", "Error in ioctl call.", G_TYPE_NONE);
+ }
+ if (len > 4)
+ {
+ int in;
+ gchar *buf;
+ if (recv (priv->socket, &len, 4, 0) == -1)
+ {
+ g_signal_emit_by_name (object, "error", "Can not recv.", G_TYPE_NONE);
+ }
+ if (len <= 0)
+ {
+ g_signal_emit_by_name (object, "error", "Incorrect data recived.", G_TYPE_NONE);
+ }
+ buf = g_new (char, len + 1);
+ do
+ {
+ if (ioctl (priv->socket, FIONREAD, &in) == -1)
+ {
+ g_signal_emit_by_name (object, "error", "Error in ioctl call.", G_TYPE_NONE);
+ }
+ if (in < len)
+ usleep (20);
+ } while (in < len);
+ if (recv (priv->socket, buf, len, 0) == -1)
+ {
+ g_signal_emit_by_name (object, "error", "Can not recv.", G_TYPE_NONE);
+ }
+ buf [len] = '\0';
+
+ priv->in = g_list_append (priv->in, buf);
+ g_signal_emit_by_name (object, "data-arrived", G_TYPE_NONE);
+ }
+ while (priv->out != NULL)
+ {
+ size = strlen ((gchar*)priv->out->data) + 1;
+ if (send(priv->socket, &size, 4, 0) == -1)
+ {
+ g_signal_emit_by_name (object, "error", "Can not send.", G_TYPE_NONE);
+ }
+ if (send(priv->socket, priv->out->data, size, 0) == -1)
+ {
+ g_signal_emit_by_name (object, "error", "Can not send.", G_TYPE_NONE);
+ }
+ g_free (priv->out->data);
+ priv->out = g_list_delete_link (priv->out, priv->out);
+ }
+g_signal_emit_by_name (object, "data-arrived", G_TYPE_NONE);//TODO:FIX
+ }
+
+ if (!priv->work)
+ {
+ close (priv->socket);
+ }
+ return priv->work;
+}
+
+
+DebuggerServer*
+debugger_server_new (gint port)
+{
+ DebuggerServer* object = g_object_new (DEBUGGER_TYPE_SERVER, NULL);
+ DebuggerServerPrivate *priv = DEBUGGER_SERVER_PRIVATE (object);
+ struct sockaddr_in serverAddr;
+ int flag = 1;
+
+ priv->server_socket = socket (AF_INET, SOCK_STREAM, 0);
+
+ if (priv->server_socket == -1)
+ return NULL;
+
+ serverAddr.sin_family = AF_INET;
+ serverAddr.sin_addr.s_addr= htonl (INADDR_ANY);
+ serverAddr.sin_port = htons (port);
+ setsockopt (priv->server_socket, IPPROTO_TCP, TCP_NODELAY, (char *) &flag, sizeof(int));
+
+ if (bind (priv->server_socket, ((struct sockaddr*)&serverAddr), sizeof (serverAddr)) == -1)
+ return NULL;
+ listen (priv->server_socket , 5);
+
+ g_timeout_add (2, (GSourceFunc)SourceFunc, object);
+
+ return object;
+}
+
+void
+debugger_server_send_line (DebuggerServer *object, const gchar* line)
+{
+ DebuggerServerPrivate *priv = DEBUGGER_SERVER_PRIVATE (object);
+ g_assert (line != NULL);
+ priv->out = g_list_append (priv->out, g_strdup (line));
+}
+
+void
+debugger_server_stop (DebuggerServer *object)
+{
+ DebuggerServerPrivate *priv = DEBUGGER_SERVER_PRIVATE (object);
+ priv->work = FALSE;
+}
+
+gchar*
+debugger_server_get_line (DebuggerServer *object)
+{
+ DebuggerServerPrivate *priv = DEBUGGER_SERVER_PRIVATE (object);
+ gchar *ret = NULL;
+
+ g_assert (priv->in != NULL);
+
+ g_assert (priv->in->data != NULL);
+
+ ret = g_strdup ((gchar*)priv->in->data);
+
+ priv->in = g_list_delete_link (priv->in, priv->in);
+ return ret;
+}
+
+gint
+debugger_server_get_line_col (DebuggerServer *object)
+{
+ DebuggerServerPrivate *priv = DEBUGGER_SERVER_PRIVATE (object);
+ return g_list_length (priv->in);
+}
diff --git a/plugins/js-debugger/debugger-server.h b/plugins/js-debugger/debugger-server.h
new file mode 100644
index 0000000..874a44b
--- /dev/null
+++ b/plugins/js-debugger/debugger-server.h
@@ -0,0 +1,60 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _DEBUGGER_SERVER_H_
+#define _DEBUGGER_SERVER_H_
+
+#include <glib-object.h>
+
+G_BEGIN_DECLS
+
+#define DEBUGGER_TYPE_SERVER (debugger_server_get_type ())
+#define DEBUGGER_SERVER(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), DEBUGGER_TYPE_SERVER, DebuggerServer))
+#define DEBUGGER_SERVER_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), DEBUGGER_TYPE_SERVER, DebuggerServerClass))
+#define DEBUGGER_IS_SERVER(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), DEBUGGER_TYPE_SERVER))
+#define DEBUGGER_IS_SERVER_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), DEBUGGER_TYPE_SERVER))
+#define DEBUGGER_SERVER_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), DEBUGGER_TYPE_SERVER, DebuggerServerClass))
+
+typedef struct _DebuggerServerClass DebuggerServerClass;
+typedef struct _DebuggerServer DebuggerServer;
+
+struct _DebuggerServerClass
+{
+ GObjectClass parent_class;
+
+ /* Signals */
+ void(* data_arrived) (DebuggerServer *self);
+ void(* error) (DebuggerServer *self, const gchar * error);
+};
+
+struct _DebuggerServer
+{
+ GObject parent_instance;
+};
+
+GType debugger_server_get_type (void) G_GNUC_CONST;
+DebuggerServer* debugger_server_new (gint port);
+void debugger_server_send_line (DebuggerServer *object, const gchar* line);
+void debugger_server_stop (DebuggerServer *object);
+gchar* debugger_server_get_line (DebuggerServer *object);
+gint debugger_server_get_line_col (DebuggerServer *object);
+
+G_END_DECLS
+
+#endif /* _DEBUGGER_SERVER_H_ */
diff --git a/plugins/js-debugger/js_debugger.plugin.in b/plugins/js-debugger/js_debugger.plugin.in
new file mode 100644
index 0000000..ee70eac
--- /dev/null
+++ b/plugins/js-debugger/js_debugger.plugin.in
@@ -0,0 +1,10 @@
+[Anjuta Plugin]
+Location=js_debugger:JSDbg
+Icon=js_debugger.png
+_Name=Anjuta JS Debugger Plugin
+_Description=Anjuta JS Debugger Plugin
+UserActivatable=yes
+Interfaces=IAnjutaDebugger, IAnjutaDebuggerInstruction, IAnjutaDebuggerBreakpoint, IAnjutaDebuggerVariable
+
+[File Loader]
+SupportedMimeTypes=application/x-executable,application/octet-stream,application/x-core,application/x-shellscript
diff --git a/plugins/js-debugger/js_debugger.png b/plugins/js-debugger/js_debugger.png
new file mode 100644
index 0000000..1129ae9
Binary files /dev/null and b/plugins/js-debugger/js_debugger.png differ
diff --git a/plugins/js-debugger/plugin.c b/plugins/js-debugger/plugin.c
new file mode 100644
index 0000000..f14dedb
--- /dev/null
+++ b/plugins/js-debugger/plugin.c
@@ -0,0 +1,672 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#include <glib.h>
+#include <config.h>
+#include <libanjuta/anjuta-shell.h>
+#include <libanjuta/anjuta-debug.h>
+#include <libanjuta/interfaces/ianjuta-document-manager.h>
+#include <libanjuta/interfaces/ianjuta-debugger.h>
+#include <libanjuta/interfaces/ianjuta-debugger-breakpoint.h>
+#include <libanjuta/interfaces/ianjuta-debugger-register.h>
+#include <libanjuta/interfaces/ianjuta-debugger-memory.h>
+#include <libanjuta/interfaces/ianjuta-debugger-instruction.h>
+#include <libanjuta/interfaces/ianjuta-debugger-variable.h>
+#include <libanjuta/interfaces/ianjuta-terminal.h>
+#include <libanjuta/anjuta-plugin.h>
+#include "plugin.h"
+#include "debugger-js.h"
+
+struct _JSDbg
+{
+ AnjutaPlugin parent;
+ DebuggerJs *debugger;
+};
+
+struct _JSDbgClass
+{
+ AnjutaPluginClass parent_class;
+};
+
+static gpointer parent_class;
+#undef DEBUG_PRINT
+#define DEBUG_PRINT g_warning
+#define DEBUGGER_PORT 1235
+
+static gboolean
+js_debugger_activate (AnjutaPlugin *plugin)
+{
+ JSDbg *js_debugger;
+
+ DEBUG_PRINT ("%s", "JSDbg: Activating JSDbg plugin ...");
+ js_debugger = (JSDbg*) plugin;
+
+ return TRUE;
+}
+
+static gboolean
+js_debugger_deactivate (AnjutaPlugin *plugin)
+{
+ DEBUG_PRINT ("%s", "JSDbg: Dectivating JSDbg plugin ...");
+
+ return TRUE;
+}
+
+static void
+js_debugger_finalize (GObject *obj)
+{
+ /* Finalization codes here */
+ G_OBJECT_CLASS (parent_class)->finalize (obj);
+}
+
+static void
+js_debugger_dispose (GObject *obj)
+{
+ /* Disposition codes */
+ G_OBJECT_CLASS (parent_class)->dispose (obj);
+}
+
+static void
+js_debugger_instance_init (GObject *obj)
+{
+}
+
+static void
+js_debugger_class_init (GObjectClass *klass)
+{
+ AnjutaPluginClass *plugin_class = ANJUTA_PLUGIN_CLASS (klass);
+
+ parent_class = g_type_class_peek_parent (klass);
+
+ plugin_class->activate = js_debugger_activate;
+ plugin_class->deactivate = js_debugger_deactivate;
+ klass->finalize = js_debugger_finalize;
+ klass->dispose = js_debugger_dispose;
+}
+
+/* Implementation of IAnjutaDebugger interface
+ *---------------------------------------------------------------------------*/
+
+static IAnjutaDebuggerState
+idebugger_get_state (IAnjutaDebugger *plugin, GError **err)
+{
+ DEBUG_PRINT ("%s", "get_state: Implemented");
+
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ if (self->debugger == NULL)
+ return IANJUTA_DEBUGGER_STOPPED;
+ return debugger_js_get_state (self->debugger);
+}
+
+static void
+on_error (DebuggerJs *self, const gchar *text, gpointer user_data)
+{
+ JSDbg *object = ANJUTA_PLUGIN_JSDBG (user_data);
+
+ anjuta_util_dialog_error (GTK_WINDOW (ANJUTA_PLUGIN (object)->shell),
+ _("Error: %s"), text);
+ if (object->debugger != NULL)
+ g_object_unref (object->debugger);
+ object->debugger = NULL;
+}
+
+static gboolean
+idebugger_load (IAnjutaDebugger *plugin, const gchar *file, const gchar* mime_type,
+ const GList *search_dirs, GError **err)
+{
+ DEBUG_PRINT ("%s", "load: Implemented");
+
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ if (self->debugger != NULL)
+ g_object_unref (self->debugger);
+ self->debugger = debugger_js_new (DEBUGGER_PORT, file, plugin);
+ g_signal_connect (self->debugger, "DebuggerError", G_CALLBACK (on_error), self);
+ return TRUE;
+}
+
+static gboolean
+idebugger_unload (IAnjutaDebugger *plugin, GError **err)
+{
+ DEBUG_PRINT ("%s", "unload: Implemented");
+
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ if (self->debugger != NULL)
+ g_object_unref (self->debugger);
+
+ return TRUE;
+}
+
+static gboolean
+idebugger_set_working_directory (IAnjutaDebugger *plugin, const gchar *directory, GError **err)
+{
+ DEBUG_PRINT ("%s %s", "set_working_directory: Implemented", directory);
+
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_set_work_dir (self->debugger, directory);
+ return TRUE;
+}
+
+static gboolean
+idebugger_set_environment (IAnjutaDebugger *plugin, gchar **variables, GError **err)
+{
+ DEBUG_PRINT ("%s", "set_environment: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_attach (IAnjutaDebugger *plugin, pid_t pid, const GList *search_dirs, GError **err)
+{
+ DEBUG_PRINT ("%s", "attach: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_start (IAnjutaDebugger *plugin, const gchar *argument, gboolean terminal, gboolean stop, GError **err)
+{
+ DEBUG_PRINT ("%s", "start: Implemented");
+
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_start (self->debugger, argument);
+ return TRUE;
+}
+
+static gboolean
+idebugger_connect (IAnjutaDebugger *plugin, const gchar *server, const gchar *argument, gboolean terminal, gboolean stop, GError **err)
+{
+ DEBUG_PRINT ("%s", "connect: Not Implemented");
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_start_remote (self->debugger);
+ return TRUE;
+}
+
+static gboolean
+idebugger_quit (IAnjutaDebugger *plugin, GError **err)
+{
+ DEBUG_PRINT ("%s", "quit: Implemented");
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_stop (self->debugger);
+ return TRUE;
+}
+
+static gboolean
+idebugger_abort (IAnjutaDebugger *plugin, GError **err)
+{
+ DEBUG_PRINT ("%s", "abort: Implemented");
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_stop (self->debugger);
+ return TRUE;
+}
+
+static gboolean
+idebugger_run (IAnjutaDebugger *plugin, GError **err)
+{
+ DEBUG_PRINT ("%s", "run: Implemented");
+
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_continue (self->debugger);
+ return TRUE;
+}
+
+static gboolean
+idebugger_step_in (IAnjutaDebugger *plugin, GError **err)
+{
+ DEBUG_PRINT ("%s", "step_in: Implemented");
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_stepin (self->debugger);
+ return TRUE;
+}
+
+static gboolean
+idebugger_step_over (IAnjutaDebugger *plugin, GError **err)
+{
+ DEBUG_PRINT ("%s", "step_over: Implemented");
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_stepover (self->debugger);
+ return TRUE;
+}
+
+static gboolean
+idebugger_run_to (IAnjutaDebugger *plugin, const gchar* file,
+ gint line, GError **err)
+{
+ DEBUG_PRINT ("%s", "run_to: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_step_out (IAnjutaDebugger *plugin, GError **err)
+{
+ DEBUG_PRINT ("%s", "step_out: Implemented");
+
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_stepout (self->debugger);
+ return TRUE;
+}
+
+static gboolean
+idebugger_exit (IAnjutaDebugger *plugin, GError **err)
+{
+ DEBUG_PRINT ("%s", "exit: Implemented");
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_stop (self->debugger);
+ return TRUE;
+}
+
+static gboolean
+idebugger_interrupt (IAnjutaDebugger *plugin, GError **err)
+{
+ DEBUG_PRINT ("%s", "interrupt: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_inspect (IAnjutaDebugger *plugin, const gchar *name, IAnjutaDebuggerCallback callback, gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "inspect: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_evaluate (IAnjutaDebugger *plugin, const gchar *name, const gchar *value, IAnjutaDebuggerCallback callback, gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "evaluate : Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_send_command (IAnjutaDebugger *plugin, const gchar* command, GError **err)
+{
+ DEBUG_PRINT ("%s", "send_command: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_print (IAnjutaDebugger *plugin, const gchar* variable, IAnjutaDebuggerCallback callback, gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "print: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_list_local (IAnjutaDebugger *plugin, IAnjutaDebuggerCallback callback , gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "list_local: Implemented");
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_list_local (self->debugger, callback, user_data);
+ return TRUE;
+}
+
+static gboolean
+idebugger_list_argument (IAnjutaDebugger *plugin, IAnjutaDebuggerCallback callback , gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "list_argument: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_info_signal (IAnjutaDebugger *plugin, IAnjutaDebuggerCallback callback , gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "info_signal: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_info_sharedlib (IAnjutaDebugger *plugin, IAnjutaDebuggerCallback callback , gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "info_sharedlib: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_handle_signal (IAnjutaDebugger *plugin, const gchar* name, gboolean stop, gboolean print, gboolean ignore, GError **err)
+{
+ DEBUG_PRINT ("%s", "handle_signal: Not Implemented");
+
+ return TRUE;
+}
+
+static gboolean
+idebugger_info_frame (IAnjutaDebugger *plugin, guint frame, IAnjutaDebuggerCallback callback , gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "info_frame: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_info_args (IAnjutaDebugger *plugin, IAnjutaDebuggerCallback callback , gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "info_args: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_info_target (IAnjutaDebugger *plugin, IAnjutaDebuggerCallback callback , gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "info_target: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_info_program (IAnjutaDebugger *plugin, IAnjutaDebuggerCallback callback , gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "info_program: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_info_udot (IAnjutaDebugger *plugin, IAnjutaDebuggerCallback callback , gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "info_udot: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_info_variables (IAnjutaDebugger *plugin, IAnjutaDebuggerCallback callback , gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "info_variables: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_set_frame (IAnjutaDebugger *plugin, guint frame, GError **err)
+{
+ DEBUG_PRINT ("%s", "set_frame: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_list_frame (IAnjutaDebugger *plugin, IAnjutaDebuggerCallback callback , gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "list_frame: Implemented");
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_list_frame (self->debugger, callback, user_data);
+ return TRUE;
+}
+
+static gboolean
+idebugger_set_thread (IAnjutaDebugger *plugin, gint thread, GError **err)
+{
+ DEBUG_PRINT ("%s", "set_thread: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_list_thread (IAnjutaDebugger *plugin, IAnjutaDebuggerCallback callback , gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "list_thread: Implemented(Fake)");
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_list_thread (self->debugger, callback, user_data);
+ return TRUE;
+}
+
+static gboolean
+idebugger_info_thread (IAnjutaDebugger *plugin, gint thread, IAnjutaDebuggerCallback callback , gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "info_thread: Implemented(Fake)");
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_info_thread (self->debugger, callback, thread, user_data);
+ return TRUE;
+}
+
+static gboolean
+idebugger_list_register (IAnjutaDebugger *plugin, IAnjutaDebuggerCallback callback , gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "list_register: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_callback (IAnjutaDebugger *plugin, IAnjutaDebuggerCallback callback , gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "callback: Implemented");
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_signal (self->debugger, callback, user_data);
+ return TRUE;
+}
+
+static void
+idebugger_enable_log (IAnjutaDebugger *plugin, IAnjutaMessageView *log, GError **err)
+{
+ DEBUG_PRINT ("%s", "enable_log: Not Implemented");
+}
+
+static void
+idebugger_disable_log (IAnjutaDebugger *plugin, GError **err)
+{
+ DEBUG_PRINT ("%s", "disable_log: Not Implemented");
+}
+
+static void
+idebugger_iface_init (IAnjutaDebuggerIface *iface)
+{
+ iface->get_state = idebugger_get_state;
+ iface->attach = idebugger_attach;
+ iface->load = idebugger_load;
+ iface->set_working_directory = idebugger_set_working_directory;
+ iface->set_environment = idebugger_set_environment;
+ iface->start = idebugger_start;
+ iface->connect = idebugger_connect;
+ iface->unload = idebugger_unload;
+ iface->quit = idebugger_quit;
+ iface->abort = idebugger_abort;
+ iface->run = idebugger_run;
+ iface->step_in = idebugger_step_in;
+ iface->step_over = idebugger_step_over;
+ iface->step_out = idebugger_step_out;
+ iface->run_to = idebugger_run_to;
+ iface->exit = idebugger_exit;
+ iface->interrupt = idebugger_interrupt;
+
+ iface->inspect = idebugger_inspect;
+ iface->evaluate = idebugger_evaluate;
+
+ iface->print = idebugger_print;
+ iface->list_local = idebugger_list_local;
+ iface->list_argument = idebugger_list_argument;
+ iface->info_frame = idebugger_info_frame;
+ iface->info_signal = idebugger_info_signal;
+ iface->info_sharedlib = idebugger_info_sharedlib;
+ iface->info_args = idebugger_info_args;
+ iface->info_target = idebugger_info_target;
+ iface->info_program = idebugger_info_program;
+ iface->info_udot = idebugger_info_udot;
+ iface->info_variables = idebugger_info_variables;
+ iface->handle_signal = idebugger_handle_signal;
+ iface->list_frame = idebugger_list_frame;
+ iface->set_frame = idebugger_set_frame;
+ iface->list_thread = idebugger_list_thread;
+ iface->set_thread = idebugger_set_thread;
+ iface->info_thread = idebugger_info_thread;
+ iface->list_register = idebugger_list_register;
+
+ iface->send_command = idebugger_send_command;
+
+ iface->callback = idebugger_callback;
+
+ iface->enable_log = idebugger_enable_log;
+ iface->disable_log = idebugger_disable_log;
+}
+
+/* Implementation of IAnjutaDebuggerBreakpoint interface
+ *---------------------------------------------------------------------------*/
+
+static gint
+idebugger_breakpoint_implement (IAnjutaDebuggerBreakpoint *plugin, GError **err)
+{
+ return IANJUTA_DEBUGGER_BREAKPOINT_ON_LINE
+ | IANJUTA_DEBUGGER_BREAKPOINT_ENABLE
+ | IANJUTA_DEBUGGER_BREAKPOINT_IGNORE
+ | IANJUTA_DEBUGGER_BREAKPOINT_CONDITION;
+}
+
+static gboolean
+idebugger_breakpoint_add_at_line (IAnjutaDebuggerBreakpoint *plugin, const gchar* file, guint line, IAnjutaDebuggerCallback callback, gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "breakpoint_add_at_line: Implemented");
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_add_breakpoint (self->debugger, file, line);
+ return FALSE;
+}
+
+static gboolean
+idebugger_breakpoint_enable (IAnjutaDebuggerBreakpoint *plugin, guint id, gboolean enable, IAnjutaDebuggerCallback callback, gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "breakpoint_enable: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_breakpoint_ignore (IAnjutaDebuggerBreakpoint *plugin, guint id, guint ignore, IAnjutaDebuggerCallback callback, gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "breakpoint_ignore: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_breakpoint_condition (IAnjutaDebuggerBreakpoint *plugin, guint id, const gchar *condition, IAnjutaDebuggerCallback callback, gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "breakpoint_condition: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_breakpoint_remove (IAnjutaDebuggerBreakpoint *plugin, guint id, IAnjutaDebuggerCallback callback, gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "breakpoint_remove: Not Implemented");
+
+ return FALSE;
+}
+
+static gboolean
+idebugger_breakpoint_list (IAnjutaDebuggerBreakpoint *plugin, IAnjutaDebuggerCallback callback, gpointer user_data, GError **err)
+{
+ DEBUG_PRINT ("%s", "breakpoint_list: Implemented");
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_breakpoint_list (self->debugger, callback, user_data);
+ return TRUE;
+}
+
+static void
+idebugger_breakpoint_iface_init (IAnjutaDebuggerBreakpointIface *iface)
+{
+ iface->implement_breakpoint = idebugger_breakpoint_implement;
+ iface->set_breakpoint_at_line = idebugger_breakpoint_add_at_line;
+ iface->clear_breakpoint = idebugger_breakpoint_remove;
+ iface->list_breakpoint = idebugger_breakpoint_list;
+ iface->set_breakpoint_at_address = NULL;
+ iface->set_breakpoint_at_function = NULL;
+ iface->enable_breakpoint = idebugger_breakpoint_enable;
+ iface->ignore_breakpoint = idebugger_breakpoint_ignore;
+ iface->condition_breakpoint = idebugger_breakpoint_condition;
+}
+
+/* Implementation of IAnjutaDebuggerVariable interface
+ *---------------------------------------------------------------------------*/
+
+static gboolean
+idebugger_variable_destroy (IAnjutaDebuggerVariable *plugin, const gchar *name, GError **error)
+{
+ DEBUG_PRINT ("%s", "variable_destroy: Not Implemented");
+ return TRUE;
+}
+
+static gboolean
+idebugger_variable_evaluate (IAnjutaDebuggerVariable *plugin, const gchar *name, IAnjutaDebuggerCallback callback , gpointer user_data, GError **error)
+{
+ puts (name);
+ DEBUG_PRINT ("%s", "variable_evaluate: Not Implemented");
+ return FALSE;
+}
+
+static gboolean
+idebugger_variable_assign (IAnjutaDebuggerVariable *plugin, const gchar *name, const gchar *value, GError **error)
+{
+ puts (name);
+ DEBUG_PRINT ("%s", "variable_assign: Not Implemented");
+ return FALSE;
+}
+
+static gboolean
+idebugger_variable_list_children (IAnjutaDebuggerVariable *plugin, const gchar *name, IAnjutaDebuggerCallback callback , gpointer user_data, GError **error)
+{
+ puts (name);
+ DEBUG_PRINT ("%s", "variable_list_children: Implemented");
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_variable_list_children (self->debugger, callback, name, user_data);
+ return TRUE;
+}
+
+static gboolean
+idebugger_variable_create (IAnjutaDebuggerVariable *plugin, const gchar *name, IAnjutaDebuggerCallback callback , gpointer user_data, GError **error)
+{
+ puts (name);
+ DEBUG_PRINT ("%s", "idebugger_variable_create: Implemented");
+ JSDbg *self = ANJUTA_PLUGIN_JSDBG (plugin);
+ debugger_js_variable_create (self->debugger, callback, name, user_data);
+ return TRUE;
+}
+
+static gboolean
+idebugger_variable_update (IAnjutaDebuggerVariable *plugin, IAnjutaDebuggerCallback callback , gpointer user_data, GError **error)
+{
+ DEBUG_PRINT ("%s", "idebugger_variable_update: Not Implemented");
+ return FALSE;
+}
+
+static void
+idebugger_variable_iface_init (IAnjutaDebuggerVariableIface *iface)
+{
+ iface->destroy = idebugger_variable_destroy;
+ iface->evaluate = idebugger_variable_evaluate;
+ iface->assign = idebugger_variable_assign;
+ iface->list_children = idebugger_variable_list_children;
+ iface->create = idebugger_variable_create;
+ iface->update = idebugger_variable_update;
+}
+
+ANJUTA_PLUGIN_BEGIN (JSDbg, js_debugger);
+ANJUTA_PLUGIN_ADD_INTERFACE(idebugger, IANJUTA_TYPE_DEBUGGER);
+ANJUTA_PLUGIN_ADD_INTERFACE(idebugger_breakpoint, IANJUTA_TYPE_DEBUGGER_BREAKPOINT);
+ANJUTA_PLUGIN_ADD_INTERFACE(idebugger_variable, IANJUTA_TYPE_DEBUGGER_VARIABLE);
+ANJUTA_PLUGIN_END;
+
+ANJUTA_SIMPLE_PLUGIN (JSDbg, js_debugger);
diff --git a/plugins/js-debugger/plugin.h b/plugins/js-debugger/plugin.h
new file mode 100644
index 0000000..75af965
--- /dev/null
+++ b/plugins/js-debugger/plugin.h
@@ -0,0 +1,40 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _JS_DEBUGGER_H_
+#define _JS_DEBUGGER_H_
+
+#include <glib.h>
+#include <libanjuta/anjuta-plugin.h>
+G_BEGIN_DECLS
+
+extern GType js_debugger_get_type (GTypeModule *module);
+#define ANJUTA_TYPE_PLUGIN_JSDBG (js_debugger_get_type (NULL))
+#define ANJUTA_PLUGIN_JSDBG(o) (G_TYPE_CHECK_INSTANCE_CAST ((o), ANJUTA_TYPE_PLUGIN_JSDBG, JSDbg))
+#define ANJUTA_PLUGIN_JSDBG_CLASS(k) (G_TYPE_CHECK_CLASS_CAST ((k), ANJUTA_TYPE_PLUGIN_JSDBG, JSDbgClass))
+#define ANJUTA_IS_PLUGIN_JSDBG(o) (G_TYPE_CHECK_INSTANCE_TYPE ((o), ANJUTA_TYPE_PLUGIN_JSDbg))
+#define ANJUTA_IS_PLUGIN_JSDBG_CLASS(k) (G_TYPE_CHECK_CLASS_TYPE ((k), ANJUTA_TYPE_PLUGIN_JSDBG))
+#define ANJUTA_PLUGIN_JSDBG_GET_CLASS(o) (G_TYPE_INSTANCE_GET_CLASS ((o), ANJUTA_TYPE_PLUGIN_JSDBG, JSDbgClass))
+
+typedef struct _JSDbg JSDbg;
+typedef struct _JSDbgClass JSDbgClass;
+
+G_END_DECLS
+
+#endif
diff --git a/plugins/language-manager/languages.xml b/plugins/language-manager/languages.xml
index 16cf36d..c7aa521 100644
--- a/plugins/language-manager/languages.xml
+++ b/plugins/language-manager/languages.xml
@@ -8,4 +8,5 @@
<language id="4" name="Python" strings="python" mime-types="text/x-python" />
<language id="5" name="C#" strings="c#,csharp" mime-types="text/x-csharp" />
<language id="6" name="Vala" strings="vala" mime-types="text/x-vala" />
+ <language id="7" name="JavaScript" strings="js,javascript" mime-types="application/javascript" />
</languages>
diff --git a/plugins/language-support-js/Makefile.am b/plugins/language-support-js/Makefile.am
new file mode 100644
index 0000000..815ba27
--- /dev/null
+++ b/plugins/language-support-js/Makefile.am
@@ -0,0 +1,67 @@
+# Sample Makefile for a anjuta plugin.
+
+#SUBDIRS = unit_test
+
+js_support_plugin_gladedir = $(anjuta_glade_dir)
+js_support_plugin_glade_DATA = anjuta-language-javascript.ui
+
+js_support_plugin_uidir = $(anjuta_ui_dir)
+js_support_plugin_ui_DATA = anjuta-language-javascript.xml
+
+# Plugin Icon file
+js_support_plugin_pixmapsdir = $(anjuta_image_dir)
+js_support_plugin_pixmaps_DATA = js_support_plugin.png
+
+# Plugin description file
+plugin_in_files = js_support_plugin.plugin.in
+%.plugin: %.plugin.in $(INTLTOOL_MERGE) $(wildcard $(top_srcdir)/po/*po) ; $(INTLTOOL_MERGE) $(top_srcdir)/po $< $@ -d -u -c $(top_builddir)/po/.intltool-merge-cache
+
+js_support_plugin_plugindir = $(anjuta_plugin_dir)
+js_support_plugin_plugin_DATA = $(plugin_in_files:.plugin.in=.plugin)
+
+# NOTE :
+# The naming convention is very intentional
+# We are forced to use the prefix 'lib' by automake and libtool
+# There is probably a way to avoid it but it is not worth to effort
+# to find out.
+# The 'anjuta_' prfix is a safety measure to avoid conflicts where the
+# plugin 'libpython.so' needs to link with the real 'libpython.so'
+
+# Include paths
+AM_CPPFLAGS = \
+ -Wall \
+ -Werror \
+ -DPACKAGE_LOCALE_DIR=\""$(prefix)/$(DATADIRNAME)/locale"\" \
+ -DANJUTA_DATA_DIR=\"$(anjuta_data_dir)\" \
+ -DANJUTA_PLUGIN_DIR=\"$(anjuta_plugin_dir)\" \
+ -DANJUTA_IMAGE_DIR=\"$(anjuta_image_dir)\" \
+ -DANJUTA_GLADE_DIR=\"$(anjuta_glade_dir)\" \
+ -DANJUTA_UI_DIR=\"$(anjuta_ui_dir)\" \
+ $(LIBANJUTA_CFLAGS) \
+ -DPACKAGE_SRC_DIR=\"$(srcdir)\" \
+ -DGIR_PATH=\"$(girdir)\" \
+ -DGJS_PATH=\"$(gjsdir)\"
+
+# Where to install the plugin
+plugindir = $(anjuta_plugin_dir)
+
+# The plugin
+plugin_LTLIBRARIES = libjs_support_plugin.la
+
+# Plugin sources
+libjs_support_plugin_la_SOURCES = plugin.c plugin.h code-completion.c code-completion.h util.c util.h \
+y.tab.c y.tab.h lex.yy.c lex.yy.h js-node.c js-node.h js-context.c js-context.h jsparse.c jsparse.h ijs-symbol.h ijs-symbol.c gir-symbol.c gir-symbol.h gi-symbol.c gi-symbol.h simple-symbol.c simple-symbol.h local-symbol.c local-symbol.h node-symbol.c node-symbol.h import-symbol.c import-symbol.h dir-symbol.c dir-symbol.h std-symbol.c std-symbol.h database-symbol.c database-symbol.h db-anjuta-symbol.c db-anjuta-symbol.h
+
+# Plugin dependencies
+libjs_support_plugin_la_LIBADD = \
+ $(LIBANJUTA_LIBS)
+
+EXTRA_DIST = \
+ $(plugin_in_files)\
+ $(js_support_plugin_plugin_DATA)\
+ $(js_support_plugin_glade_DATA)\
+ $(js_support_plugin_ui_DATA)\
+ $(js_support_plugin_pixmaps_DATA)
+
+-include $(top_srcdir)/git.mk
+
diff --git a/plugins/language-support-js/anjuta-language-javascript.ui b/plugins/language-support-js/anjuta-language-javascript.ui
new file mode 100644
index 0000000..f1627c3
--- /dev/null
+++ b/plugins/language-support-js/anjuta-language-javascript.ui
@@ -0,0 +1,218 @@
+<?xml version="1.0"?>
+<interface>
+ <requires lib="gtk+" version="2.16"/>
+ <!-- interface-naming-policy toplevel-contextual -->
+ <object class="GtkListStore" id="jsdirs_liststore">
+ <columns>
+ <!-- column-name text -->
+ <column type="gchararray"/>
+ </columns>
+ </object>
+ <object class="GtkWindow" id="preferences_dialog">
+ <property name="title" translatable="yes">window1</property>
+ <child>
+ <object class="GtkVBox" id="vbox1">
+ <property name="visible">True</property>
+ <property name="orientation">vertical</property>
+ <child>
+ <object class="GtkFrame" id="frame1">
+ <property name="visible">True</property>
+ <property name="label_xalign">0</property>
+ <property name="shadow_type">in</property>
+ <child>
+ <object class="GtkAlignment" id="alignment1">
+ <property name="visible">True</property>
+ <property name="left_padding">12</property>
+ <child>
+ <object class="GtkHBox" id="hbox1">
+ <property name="visible">True</property>
+ <child>
+ <object class="GtkTreeView" id="jsdirs_treeview">
+ <property name="visible">True</property>
+ <property name="can_focus">True</property>
+ <property name="model">jsdirs_liststore</property>
+ <property name="enable_search">False</property>
+ <property name="search_column">0</property>
+ <child>
+ <object class="GtkTreeViewColumn" id="text">
+ <property name="title">Test</property>
+ <child>
+ <object class="GtkCellRendererText" id="test-renderer"/>
+ <attributes>
+ <attribute name="text">0</attribute>
+ </attributes>
+ </child>
+ </object>
+ </child>
+ </object>
+ <packing>
+ <property name="position">0</property>
+ </packing>
+ </child>
+ <child>
+ <object class="GtkVBox" id="vbox2">
+ <property name="visible">True</property>
+ <property name="orientation">vertical</property>
+ <child>
+ <object class="GtkButton" id="jsdirs_add_button">
+ <property name="label">gtk-add</property>
+ <property name="visible">True</property>
+ <property name="can_focus">True</property>
+ <property name="receives_default">True</property>
+ <property name="use_stock">True</property>
+ <signal name="clicked" handler="on_jsdirs_add_button_clicked"/>
+ </object>
+ <packing>
+ <property name="position">0</property>
+ </packing>
+ </child>
+ <child>
+ <object class="GtkButton" id="jsdirs_rm_button">
+ <property name="label">gtk-remove</property>
+ <property name="visible">True</property>
+ <property name="can_focus">True</property>
+ <property name="receives_default">True</property>
+ <property name="use_stock">True</property>
+ <signal name="clicked" handler="on_jsdirs_rm_button_clicked"/>
+ </object>
+ <packing>
+ <property name="position">1</property>
+ </packing>
+ </child>
+ </object>
+ <packing>
+ <property name="expand">False</property>
+ <property name="position">1</property>
+ </packing>
+ </child>
+ </object>
+ </child>
+ </object>
+ </child>
+ <child type="label">
+ <object class="GtkLabel" id="label1">
+ <property name="visible">True</property>
+ <property name="label" translatable="yes"><b>JS Find dirs</b></property>
+ <property name="use_markup">True</property>
+ </object>
+ </child>
+ </object>
+ <packing>
+ <property name="position">0</property>
+ </packing>
+ </child>
+ <child>
+ <object class="GtkHBox" id="hbox2">
+ <property name="visible">True</property>
+ <property name="spacing">12</property>
+ <child>
+ <object class="GtkLabel" id="label2">
+ <property name="visible">True</property>
+ <property name="label" translatable="yes">Gir repository's directory:</property>
+ <property name="use_underline">True</property>
+ <property name="mnemonic_widget">preferences_entry:text::0:javascript.girdir</property>
+ </object>
+ <packing>
+ <property name="expand">False</property>
+ <property name="position">0</property>
+ </packing>
+ </child>
+ <child>
+ <object class="GtkEntry" id="preferences_entry:text::0:javascript.girdir">
+ <property name="visible">True</property>
+ <property name="can_focus">True</property>
+ <property name="invisible_char">●</property>
+ </object>
+ <packing>
+ <property name="position">1</property>
+ </packing>
+ </child>
+ </object>
+ <packing>
+ <property name="position">1</property>
+ </packing>
+ </child>
+ <child>
+ <object class="GtkHBox" id="hbox3">
+ <property name="visible">True</property>
+ <property name="spacing">12</property>
+ <child>
+ <object class="GtkLabel" id="label3">
+ <property name="visible">True</property>
+ <property name="label" translatable="yes">Gjs repository's directory:</property>
+ <property name="use_underline">True</property>
+ <property name="mnemonic_widget">preferences_entry:text::0:javascript.girdir</property>
+ </object>
+ <packing>
+ <property name="expand">False</property>
+ <property name="position">0</property>
+ </packing>
+ </child>
+ <child>
+ <object class="GtkEntry" id="preferences_entry:text::0:javascript.gjsdir">
+ <property name="visible">True</property>
+ <property name="can_focus">True</property>
+ <property name="invisible_char">●</property>
+ </object>
+ <packing>
+ <property name="position">1</property>
+ </packing>
+ </child>
+ </object>
+ <packing>
+ <property name="position">2</property>
+ </packing>
+ </child>
+ <child>
+ <object class="GtkCheckButton" id="preferences_toggle:bool:1:1:javascript.auto">
+ <property name="label" translatable="yes">Auto code complete</property>
+ <property name="visible">True</property>
+ <property name="can_focus">True</property>
+ <property name="receives_default">False</property>
+ <property name="xalign">0.49000000953674316</property>
+ <property name="draw_indicator">True</property>
+ </object>
+ <packing>
+ <property name="position">3</property>
+ </packing>
+ </child>
+ <child>
+ <object class="GtkCheckButton" id="preferences_toggle:bool:1:1:javascript.missed">
+ <property name="label" translatable="yes">Highlight missed semicolon</property>
+ <property name="visible">True</property>
+ <property name="can_focus">True</property>
+ <property name="receives_default">False</property>
+ <property name="draw_indicator">True</property>
+ </object>
+ <packing>
+ <property name="position">4</property>
+ </packing>
+ </child>
+ <child>
+ <object class="GtkCheckButton" id="preferences_toggle:bool:1:1:javascript.add_brace_after_func">
+ <property name="label" translatable="yes">Add brace after function call autocompletion</property>
+ <property name="visible">True</property>
+ <property name="can_focus">True</property>
+ <property name="receives_default">False</property>
+ <property name="draw_indicator">True</property>
+ </object>
+ <packing>
+ <property name="position">5</property>
+ </packing>
+ </child>
+ <child>
+ <object class="GtkCheckButton" id="preferences_toggle:bool:1:1:javascript.show_calltips">
+ <property name="label" translatable="yes">Show calltips</property>
+ <property name="visible">True</property>
+ <property name="can_focus">True</property>
+ <property name="receives_default">False</property>
+ <property name="draw_indicator">True</property>
+ </object>
+ <packing>
+ <property name="position">7</property>
+ </packing>
+ </child>
+ </object>
+ </child>
+ </object>
+</interface>
diff --git a/plugins/language-support-js/anjuta-language-javascript.xml b/plugins/language-support-js/anjuta-language-javascript.xml
new file mode 100644
index 0000000..6d78958
--- /dev/null
+++ b/plugins/language-support-js/anjuta-language-javascript.xml
@@ -0,0 +1,10 @@
+<!--*- xml -*-->
+<ui>
+ <menubar name="MenuMain">
+ <menu name="MenuEdit" action="ActionMenuEdit">
+ <placeholder name="PlaceholderEditMenus">
+ <menuitem name="CodeComplete" action="CodeComplete"/>
+ </placeholder>
+ </menu>
+ </menubar>
+</ui>
diff --git a/plugins/language-support-js/code-completion.c b/plugins/language-support-js/code-completion.c
new file mode 100644
index 0000000..bd6594e
--- /dev/null
+++ b/plugins/language-support-js/code-completion.c
@@ -0,0 +1,241 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#include <libanjuta/anjuta-shell.h>
+#include <libanjuta/anjuta-debug.h>
+#include <libanjuta/interfaces/ianjuta-document-manager.h>
+#include <libanjuta/interfaces/ianjuta-editor-assist.h>
+#include <ctype.h>
+#include <glib.h>
+
+#include "code-completion.h"
+#include "database-symbol.h"
+#include "plugin.h"
+#include "util.h"
+
+GList*
+filter_list (GList *list, gchar *prefix)
+{
+ GList *ret = NULL, *i;
+ for (i = list; i; i = g_list_next (i))
+ {
+ if (!i->data)
+ continue;
+ if (strncmp ((gchar*)i->data, prefix, strlen (prefix)) == 0)
+ {
+ ret = g_list_append (ret, i->data);
+ }
+ }
+ return ret;
+}
+
+gchar*
+file_completion (IAnjutaEditor *editor, gint *cur_depth)
+{
+ int i;
+ IAnjutaIterable *position = ianjuta_editor_get_position (IANJUTA_EDITOR (editor), NULL);
+ int line = ianjuta_editor_get_line_from_position (IANJUTA_EDITOR (editor), position, NULL);
+ gchar *text = ianjuta_editor_get_text (editor,
+ ianjuta_editor_get_start_position (editor, NULL),
+ ianjuta_editor_get_line_begin_position (editor, line, NULL),
+ NULL);
+ int k, j;
+ if (strncmp (text, "#!/", 3) == 0) // For Seed support (Remove "#!/usr/bin/env seed" )
+ strncpy (text, "//", 2);
+ for (j = 0, i = 0, k = strlen (text); i < k; i++)
+ {
+ if (text[i] == '{')
+ j++;
+ if (text[i] == '}')
+ j--;
+ if (j < 0)
+ return NULL;/*ERROR*/
+ }
+ gchar *tmp = g_new (gchar, j + 1);
+ for (i = 0; i < j; i++)
+ tmp[i] = '}';
+ tmp [j] = '\0';
+ tmp = g_strconcat (text, tmp, NULL);
+ g_free (text);
+ text = tmp;
+ gchar *tmp_file = tmpnam (NULL);
+ FILE *f1 = fopen (tmp_file, "w");
+ fprintf (f1, "%s", text);
+ fclose (f1);
+ return tmp_file;
+}
+
+gchar*
+code_completion_get_str (IAnjutaEditor *editor, gboolean last_dot)
+{
+ IAnjutaIterable *position = ianjuta_editor_get_position (IANJUTA_EDITOR (editor), NULL);
+
+ gchar *text = ianjuta_editor_get_text (editor,
+ ianjuta_editor_get_line_begin_position (editor, 1, NULL),
+ position, NULL);
+
+ if (code_is_in_comment_or_str (text, TRUE))
+ {
+ g_free (text);
+ return NULL;
+ }
+
+ gchar *i = strlen (text) - 1 + text;
+ gchar *k = i;
+ if (last_dot)
+ if (*i == '.')
+ {
+ *i = '\0';
+ i--;
+ }
+ enum zstate
+ {
+ IDENT,
+ BRACE,
+ AFTER_BRACE,
+ EXIT
+ } s;
+ for (s = IDENT; i != text; i--)
+ {
+ switch (s)
+ {
+ case IDENT:
+ if (*i == ')')
+ {
+ *k = *i;
+ k--;
+ s = BRACE;
+ continue;
+ }
+ if (!isalnum (*i) && *i != '.' && *i != '_')
+ {
+ s = EXIT;
+ break;
+ }
+ if (*i == ' ')
+ {
+ s = EXIT;
+ break;
+ }
+ *k = *i;
+ k--;
+ break;
+ case AFTER_BRACE:
+ if (*i == ' ' || *i == '\t' || *i == '\n')
+ {
+ break;
+ }
+ i++;
+ s = IDENT;
+ break;
+ case BRACE:
+ if (*i == '(')
+ {
+ *k = *i;
+ k--;
+ s = AFTER_BRACE;
+ }
+ break;
+ default:
+ g_assert_not_reached ();
+ };
+ if (s == EXIT)
+ break;
+ }
+ k++;
+ i = g_strdup (k);
+ g_free (text);
+ g_assert (i != NULL);
+ return i;
+}
+
+gchar*
+code_completion_get_func_tooltip (JSLang *plugin, const gchar *var_name)
+{
+ if (plugin->symbol == NULL)
+ plugin->symbol = database_symbol_new ();
+ if (plugin->symbol == NULL)
+ return NULL;
+
+ IJsSymbol *symbol= ijs_symbol_get_member (IJS_SYMBOL (plugin->symbol), var_name);
+ if (!symbol)
+ {
+ DEBUG_PRINT ("Can't find symbol %s", var_name);
+ return NULL;
+ }
+
+ GList *args = ijs_symbol_get_arg_list (symbol);
+
+ GList *i;
+ gchar *res = NULL;
+ for (i = args; i; i = g_list_next (i))
+ {
+ if (!res)
+ res = i->data;
+ else
+ {
+ gchar * t = g_strdup_printf ("%s, %s", res, (gchar*)i->data);
+ g_free (res);
+ res = t;
+ }
+ }
+ g_object_unref (symbol);
+ return res;
+}
+
+gboolean
+code_completion_is_symbol_func (JSLang *plugin, const gchar *var_name)
+{
+ if (plugin->symbol == NULL)
+ plugin->symbol = database_symbol_new ();
+ if (plugin->symbol == NULL)
+ return FALSE;
+
+ IJsSymbol *symbol= ijs_symbol_get_member (IJS_SYMBOL (plugin->symbol), var_name);
+ if (!symbol)
+ {
+ DEBUG_PRINT ("Can't find symbol %s", var_name);
+ return FALSE;
+ }
+ g_object_unref (symbol);
+ return ijs_symbol_get_base_type (symbol) == BASE_FUNC;
+}
+
+GList*
+code_completion_get_list (JSLang *plugin, const gchar *tmp_file, const gchar *var_name, gint depth_level)
+{
+ GList *suggestions = NULL;
+ if (plugin->symbol == NULL)
+ plugin->symbol = database_symbol_new ();
+ if (plugin->symbol == NULL)
+ return NULL;
+ database_symbol_set_file (plugin->symbol, tmp_file);
+
+ if (!var_name || strlen (var_name) == 0)
+ return database_symbol_list_member_with_line (plugin->symbol,
+ ianjuta_editor_get_lineno (IANJUTA_EDITOR (plugin->current_editor), NULL));
+ IJsSymbol *t = ijs_symbol_get_member (IJS_SYMBOL (plugin->symbol), var_name);//TODO:Corect
+ if (t)
+ {
+ suggestions = ijs_symbol_list_member (IJS_SYMBOL (t));
+ g_object_unref (t);
+ }
+ return suggestions;
+}
+
diff --git a/plugins/language-support-js/code-completion.h b/plugins/language-support-js/code-completion.h
new file mode 100644
index 0000000..a5efe92
--- /dev/null
+++ b/plugins/language-support-js/code-completion.h
@@ -0,0 +1,32 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _CODE_COMPLETION_H_
+#define _CODE_COMPLETION_H_
+
+#include "plugin.h"
+
+GList* code_completion_get_list (JSLang *plugin, const gchar *tmp_file, const gchar *var_name, gint depth_level);
+gchar* code_completion_get_str (IAnjutaEditor *editor, gboolean last_dot);
+gboolean code_completion_is_symbol_func (JSLang *plugin, const gchar *var_name);
+gchar* code_completion_get_func_tooltip (JSLang *plugin, const gchar *var_name);
+
+gchar* file_completion (IAnjutaEditor *editor, gint *cur_depth);
+GList* filter_list (GList *list, gchar *prefix);
+#endif
diff --git a/plugins/language-support-js/database-symbol.c b/plugins/language-support-js/database-symbol.c
new file mode 100644
index 0000000..b74832d
--- /dev/null
+++ b/plugins/language-support-js/database-symbol.c
@@ -0,0 +1,294 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#include <string.h>
+
+#include "local-symbol.h"
+#include "std-symbol.h"
+#include "import-symbol.h"
+#include "database-symbol.h"
+#include "util.h"
+
+static void database_symbol_interface_init (IJsSymbolIface *iface);
+static GList* database_symbol_get_arg_list (IJsSymbol *obj);
+static gint database_symbol_get_base_type (IJsSymbol *obj);
+static GList* database_symbol_get_func_ret_type (IJsSymbol *obj);
+static IJsSymbol* database_symbol_get_member (IJsSymbol *obj, const gchar * name);
+static const gchar * database_symbol_get_name (IJsSymbol *obj);
+static GList* database_symbol_list_member (IJsSymbol *obj);
+
+static IJsSymbol* find (const gchar* name, IJsSymbol *sym);
+
+typedef struct _DatabaseSymbolPrivate DatabaseSymbolPrivate;
+struct _DatabaseSymbolPrivate
+{
+ GList *symbols;
+ LocalSymbol *local;
+ StdSymbol *global;
+};
+
+#define DATABASE_SYMBOL_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE ((o), DATABASE_TYPE_SYMBOL, DatabaseSymbolPrivate))
+
+G_DEFINE_TYPE_WITH_CODE (DatabaseSymbol, database_symbol, G_TYPE_OBJECT,
+ G_IMPLEMENT_INTERFACE (IJS_TYPE_SYMBOL,
+ database_symbol_interface_init));
+
+static void
+database_symbol_init (DatabaseSymbol *object)
+{
+ DatabaseSymbolPrivate *priv = DATABASE_SYMBOL_PRIVATE(object);
+ priv->symbols = NULL;
+ priv->local = NULL;
+ priv->global = NULL;
+}
+
+static void
+database_symbol_finalize (GObject *object)
+{
+ DatabaseSymbolPrivate *priv = DATABASE_SYMBOL_PRIVATE(object);
+
+ g_object_unref (priv->local);
+ g_object_unref (priv->global);
+ g_list_foreach (priv->symbols, (GFunc)g_object_unref, NULL);
+ g_list_free (priv->symbols);
+ G_OBJECT_CLASS (database_symbol_parent_class)->finalize (object);
+}
+
+static void
+database_symbol_class_init (DatabaseSymbolClass *klass)
+{
+ GObjectClass* object_class = G_OBJECT_CLASS (klass);
+/* GObjectClass* parent_class = G_OBJECT_CLASS (klass);*/
+
+ g_type_class_add_private (klass, sizeof (DatabaseSymbolPrivate));
+
+ object_class->finalize = database_symbol_finalize;
+}
+
+void
+database_symbol_set_file (DatabaseSymbol *object, const gchar* filename)
+{
+ GList *missed;
+ g_assert (DATABASE_IS_SYMBOL (object));
+ DatabaseSymbolPrivate *priv = DATABASE_SYMBOL_PRIVATE (object);
+
+ if (priv->local)
+ {
+ g_object_unref (priv->local);
+ }
+
+ priv->local = local_symbol_new (filename);
+ missed = local_symbol_get_missed_semicolons (priv->local);
+ highlight_lines (missed);
+ g_list_free (missed);
+}
+
+DatabaseSymbol*
+database_symbol_new ()
+{
+ DatabaseSymbol* self = DATABASE_SYMBOL (g_object_new (DATABASE_TYPE_SYMBOL, NULL));
+ DatabaseSymbolPrivate *priv = DATABASE_SYMBOL_PRIVATE (self);
+
+ priv->global = std_symbol_new ();
+ priv->local = NULL;
+ priv->symbols = g_list_append (NULL, import_symbol_new ());
+
+ return self;
+}
+
+static void
+database_symbol_interface_init (IJsSymbolIface *iface)
+{
+ iface->get_arg_list = database_symbol_get_arg_list;
+ iface->get_base_type = database_symbol_get_base_type;
+ iface->get_func_ret_type = database_symbol_get_func_ret_type;
+
+ iface->get_member = database_symbol_get_member;
+ iface->get_name = database_symbol_get_name;
+ iface->list_member = database_symbol_list_member;
+}
+
+static GList*
+database_symbol_get_arg_list (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static gint
+database_symbol_get_base_type (IJsSymbol *obj)
+{
+ return BASE_CLASS;
+}
+
+static GList*
+database_symbol_get_func_ret_type (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static IJsSymbol*
+database_symbol_get_member (IJsSymbol *obj, const gchar * name)
+{
+ DatabaseSymbol* self = DATABASE_SYMBOL (obj);
+ DatabaseSymbolPrivate *priv = DATABASE_SYMBOL_PRIVATE (self);
+
+ if (!name || strlen (name) == 0)
+ {
+ g_object_ref (priv->local);
+ return IJS_SYMBOL (priv->local);
+ }
+
+ GList *i;
+ for (i = priv->symbols; i; i = g_list_next (i))
+ {
+ IJsSymbol *t = IJS_SYMBOL (i->data);
+ if (strncmp (name, ijs_symbol_get_name (t), strlen (ijs_symbol_get_name (t))) != 0 )
+ continue;
+ if (strlen (name + strlen (ijs_symbol_get_name (t))) == 0)
+ {
+ g_object_ref (t);
+ return t;
+ }
+ return find (name + strlen (ijs_symbol_get_name (t)) + 1, t);
+ }
+
+ IJsSymbol *ret = find (name, IJS_SYMBOL (priv->local));
+ if (!ret)
+ ret = find (name, IJS_SYMBOL (priv->global));
+
+ return ret;
+}
+
+static const gchar *
+database_symbol_get_name (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static GList*
+database_symbol_list_member (IJsSymbol *obj)
+{
+ DatabaseSymbol* self = DATABASE_SYMBOL (obj);
+ DatabaseSymbolPrivate *priv = DATABASE_SYMBOL_PRIVATE (self);
+
+ GList *ret = NULL;
+ ret = ijs_symbol_list_member (IJS_SYMBOL (priv->global));
+ if (priv->local)
+ ret = g_list_concat (ret, ijs_symbol_list_member (IJS_SYMBOL (priv->local)));
+ ret = g_list_append (ret, g_strdup ("imports"));
+ return ret;
+}
+
+GList*
+database_symbol_list_local_member (DatabaseSymbol *object, gint line)
+{
+ DatabaseSymbolPrivate *priv = DATABASE_SYMBOL_PRIVATE (object);
+ return local_symbol_list_member_with_line (priv->local, line);
+}
+
+GList*
+database_symbol_list_member_with_line (DatabaseSymbol *object, gint line)
+{
+ g_assert (DATABASE_IS_SYMBOL (object));
+ DatabaseSymbolPrivate *priv = DATABASE_SYMBOL_PRIVATE (object);
+
+ GList *ret = NULL;
+ ret = ijs_symbol_list_member (IJS_SYMBOL (priv->global));
+ if (priv->local)
+ ret = g_list_concat (ret, local_symbol_list_member_with_line (priv->local, line));
+ ret = g_list_append (ret, g_strdup ("imports"));
+ return ret;
+}
+
+static IJsSymbol*
+find (const gchar* name, IJsSymbol *sym)
+{
+ gchar *vname = NULL, *left = NULL;
+ if (!sym)
+ return NULL;
+ if (!name)
+ return NULL;
+ int i;
+ for (i = 0; i < strlen (name); i++)
+ {
+ if (name[i] != '.')
+ continue;
+ vname = g_strndup (name, i);
+ left = g_strdup (name + i + 1);
+ break;
+ }
+ if (!vname)
+ vname = g_strdup (name);
+ if (strlen (vname) == 0)
+ {
+ g_free (vname);
+ g_free (left);
+ return NULL;
+ }
+ gboolean is_func_call = *((vname + strlen (vname)) - 1) == ')';
+ if (is_func_call)
+ vname [strlen (vname) - 2] = '\0';
+ GList *j;////TODO
+ for (j = ijs_symbol_list_member (sym); j; j = g_list_next (j))
+ {
+ gchar *t = (gchar*)j->data;
+//puts (t);
+ if (strcmp (vname, t) != 0 )
+ continue;
+ if (!is_func_call)
+ {
+ if (!left)
+ return ijs_symbol_get_member (sym, t);
+ IJsSymbol *tjs = ijs_symbol_get_member (sym, t);
+ IJsSymbol *ret = find (left, tjs);
+ g_object_unref (tjs);
+ return ret;
+ }
+ else
+ {
+ IJsSymbol *s = ijs_symbol_get_member (sym, t);
+ if (!s)
+ return NULL;
+ if (ijs_symbol_get_base_type (s) != BASE_FUNC)
+ {
+ g_object_unref (s);
+ return NULL;
+ }
+ GList* rets = ijs_symbol_get_func_ret_type (s);
+ g_object_unref (s);
+ if (rets == NULL)
+ {
+ return NULL;
+ }
+ //TODO: Fix
+ IJsSymbol *ret = global_search (rets->data);
+ if (!ret)
+ return NULL;
+ if (!left)
+ return ret;
+ s = find (left, ret);
+ g_object_unref (ret);
+ return s;
+ }
+ }
+ return NULL;
+}
diff --git a/plugins/language-support-js/database-symbol.h b/plugins/language-support-js/database-symbol.h
new file mode 100644
index 0000000..4e86878
--- /dev/null
+++ b/plugins/language-support-js/database-symbol.h
@@ -0,0 +1,57 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _DATABASE_SYMBOL_H_
+#define _DATABASE_SYMBOL_H_
+
+#include <glib-object.h>
+
+#include "ijs-symbol.h"
+
+G_BEGIN_DECLS
+
+#define DATABASE_TYPE_SYMBOL (database_symbol_get_type ())
+#define DATABASE_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), DATABASE_TYPE_SYMBOL, DatabaseSymbol))
+#define DATABASE_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), DATABASE_TYPE_SYMBOL, DatabaseSymbolClass))
+#define DATABASE_IS_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), DATABASE_TYPE_SYMBOL))
+#define DATABASE_IS_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), DATABASE_TYPE_SYMBOL))
+#define DATABASE_SYMBOL_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), DATABASE_TYPE_SYMBOL, DatabaseSymbolClass))
+
+typedef struct _DatabaseSymbolClass DatabaseSymbolClass;
+typedef struct _DatabaseSymbol DatabaseSymbol;
+
+struct _DatabaseSymbolClass
+{
+ GObjectClass parent_class;
+};
+
+struct _DatabaseSymbol
+{
+ GObject parent_instance;
+};
+
+GType database_symbol_get_type (void) G_GNUC_CONST;
+DatabaseSymbol* database_symbol_new (void);
+void database_symbol_set_file (DatabaseSymbol *object, const gchar* filename);
+GList* database_symbol_list_local_member (DatabaseSymbol *object, gint line);
+GList* database_symbol_list_member_with_line (DatabaseSymbol *object, gint line);
+
+G_END_DECLS
+
+#endif /* _DATABASE_SYMBOL_H_ */
diff --git a/plugins/language-support-js/db-anjuta-symbol.c b/plugins/language-support-js/db-anjuta-symbol.c
new file mode 100644
index 0000000..2d4a5be
--- /dev/null
+++ b/plugins/language-support-js/db-anjuta-symbol.c
@@ -0,0 +1,237 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#include <libanjuta/interfaces/ianjuta-symbol-manager.h>
+#include <libanjuta/anjuta-plugin.h>
+
+#include "db-anjuta-symbol.h"
+#include "util.h"
+
+static void db_anjuta_symbol_interface_init (IJsSymbolIface *iface);
+static GList* db_anjuta_symbol_get_arg_list (IJsSymbol *obj);
+static gint db_anjuta_symbol_get_base_type (IJsSymbol *obj);
+static GList* db_anjuta_symbol_get_func_ret_type (IJsSymbol *obj);
+static IJsSymbol* db_anjuta_symbol_get_member (IJsSymbol *obj, const gchar * name);
+static const gchar * db_anjuta_symbol_get_name (IJsSymbol *obj);
+static GList* db_anjuta_symbol_list_member (IJsSymbol *obj);
+
+static DbAnjutaSymbol* db_anjuta_symbol_new_for_symbol (IAnjutaSymbolManager *obj, IAnjutaSymbol *self);
+
+
+typedef struct _DbAnjutaSymbolPrivate DbAnjutaSymbolPrivate;
+struct _DbAnjutaSymbolPrivate
+{
+ GFile *file;
+ IAnjutaSymbolManager *obj;
+ gchar *self_name;
+ IAnjutaSymbol *self;
+};
+
+#define DB_ANJUTA_SYMBOL_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE ((o), DB_TYPE_ANJUTA_SYMBOL, DbAnjutaSymbolPrivate))
+
+
+G_DEFINE_TYPE_WITH_CODE (DbAnjutaSymbol, db_anjuta_symbol, G_TYPE_OBJECT,
+ G_IMPLEMENT_INTERFACE (IJS_TYPE_SYMBOL,
+ db_anjuta_symbol_interface_init));
+
+static void
+db_anjuta_symbol_init (DbAnjutaSymbol *object)
+{
+ DbAnjutaSymbolPrivate *priv = DB_ANJUTA_SYMBOL_PRIVATE (object);
+ priv->file = NULL;
+ priv->obj = NULL;
+ priv->self_name = NULL;
+ priv->self = NULL;
+}
+
+static void
+db_anjuta_symbol_finalize (GObject *object)
+{
+ DbAnjutaSymbolPrivate *priv = DB_ANJUTA_SYMBOL_PRIVATE (object);
+
+ g_object_unref (priv->self);
+ g_free (priv->self_name);
+ g_object_unref (priv->file);
+ g_object_unref (priv->self);
+ G_OBJECT_CLASS (db_anjuta_symbol_parent_class)->finalize (object);
+}
+
+static void
+db_anjuta_symbol_class_init (DbAnjutaSymbolClass *klass)
+{
+ GObjectClass* object_class = G_OBJECT_CLASS (klass);
+ /*GObjectClass* parent_class = G_OBJECT_CLASS (klass);*/
+
+ g_type_class_add_private (klass, sizeof (DbAnjutaSymbolPrivate));
+
+ object_class->finalize = db_anjuta_symbol_finalize;
+}
+
+
+static DbAnjutaSymbol*
+db_anjuta_symbol_new_for_symbol (IAnjutaSymbolManager *obj, IAnjutaSymbol *self)
+{
+ DbAnjutaSymbol *object = DB_ANJUTA_SYMBOL (g_object_new (DB_TYPE_ANJUTA_SYMBOL, NULL));
+ DbAnjutaSymbolPrivate *priv = DB_ANJUTA_SYMBOL_PRIVATE (object);
+
+ priv->obj = obj;
+ priv->self = self;
+
+ return object;
+}
+
+DbAnjutaSymbol*
+db_anjuta_symbol_new (const gchar *file_name)
+{
+ DbAnjutaSymbol *self = DB_ANJUTA_SYMBOL (g_object_new (DB_TYPE_ANJUTA_SYMBOL, NULL));
+ DbAnjutaSymbolPrivate *priv = DB_ANJUTA_SYMBOL_PRIVATE (self);
+
+ IAnjutaIterable* iter;
+ AnjutaPlugin *plugin = ANJUTA_PLUGIN (getPlugin ());
+
+ if (!plugin)
+ return NULL;
+
+ priv->obj = anjuta_shell_get_interface (plugin->shell, IAnjutaSymbolManager, NULL);
+
+ priv->file = g_file_new_for_path (file_name);
+ priv->self_name = g_file_get_basename (priv->file);
+ if (strcmp (priv->self_name + strlen (priv->self_name) - 3, ".js") == 0)
+ priv->self_name[strlen (priv->self_name) - 3] = '\0';
+
+ iter = ianjuta_symbol_manager_search_file (priv->obj, IANJUTA_SYMBOL_TYPE_CLASS | IANJUTA_SYMBOL_TYPE_VARIABLE
+ | IANJUTA_SYMBOL_TYPE_FILE | IANJUTA_SYMBOL_TYPE_OTHER,
+ TRUE, (IAnjutaSymbolField)(IANJUTA_SYMBOL_FIELD_SIMPLE | IANJUTA_SYMBOL_FIELD_FILE_PATH),
+ "%", priv->file, -1, -1, NULL);
+ if (iter == NULL)
+ {
+ DEBUG_PRINT ("Not IN DB: %s", file_name);
+ return NULL;
+ }
+ g_object_unref (iter);
+ return self;
+}
+
+static void
+db_anjuta_symbol_interface_init (IJsSymbolIface *iface)
+{
+ iface->get_arg_list = db_anjuta_symbol_get_arg_list;
+ iface->get_base_type = db_anjuta_symbol_get_base_type;
+ iface->get_func_ret_type = db_anjuta_symbol_get_func_ret_type;
+
+ iface->get_member = db_anjuta_symbol_get_member;
+ iface->get_name = db_anjuta_symbol_get_name;
+ iface->list_member = db_anjuta_symbol_list_member;
+}
+
+static GList*
+db_anjuta_symbol_get_arg_list (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static gint
+db_anjuta_symbol_get_base_type (IJsSymbol *obj)
+{
+ return BASE_CLASS;
+}
+
+static GList*
+db_anjuta_symbol_get_func_ret_type (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static IJsSymbol*
+db_anjuta_symbol_get_member (IJsSymbol *obj, const gchar * name)
+{
+ DbAnjutaSymbol *self = DB_ANJUTA_SYMBOL (obj);
+ DbAnjutaSymbolPrivate *priv = DB_ANJUTA_SYMBOL_PRIVATE (self);
+
+ g_assert (priv->obj != NULL);
+
+ if (priv->self)
+ {
+ DEBUG_PRINT ("TODO:%s %d", __FILE__, __LINE__);
+ }
+ else
+ {
+ g_assert (priv->file != NULL);
+
+ IAnjutaIterable *iter = ianjuta_symbol_manager_search_file (priv->obj, IANJUTA_SYMBOL_TYPE_MAX, TRUE, IANJUTA_SYMBOL_FIELD_SIMPLE, name, priv->file, -1, -1, NULL);
+ if (iter)
+ {
+ IAnjutaSymbol *symbol = IANJUTA_SYMBOL (iter);
+ return IJS_SYMBOL (db_anjuta_symbol_new_for_symbol (priv->obj, symbol));
+ }
+ }
+ return NULL;
+}
+
+static const gchar *
+db_anjuta_symbol_get_name (IJsSymbol *obj)
+{
+ DbAnjutaSymbol *self = DB_ANJUTA_SYMBOL (obj);
+ DbAnjutaSymbolPrivate *priv = DB_ANJUTA_SYMBOL_PRIVATE (self);
+
+ const gchar *ret = NULL;
+ if (priv->self)
+ ret = ianjuta_symbol_get_name (IANJUTA_SYMBOL (priv->self), NULL);
+ else
+ ret = priv->self_name;
+
+ g_assert (ret != NULL);
+
+ return ret;
+}
+
+static GList*
+db_anjuta_symbol_list_member (IJsSymbol *obj)
+{
+ DbAnjutaSymbol *self = DB_ANJUTA_SYMBOL (obj);
+ DbAnjutaSymbolPrivate *priv = DB_ANJUTA_SYMBOL_PRIVATE (self);
+
+ GList *ret = NULL;
+ IAnjutaIterable *iter;
+
+ g_assert (priv->obj != NULL);
+
+ if (priv->self)
+ {
+ iter = ianjuta_symbol_manager_get_members (priv->obj, priv->self, IANJUTA_SYMBOL_FIELD_SIMPLE, NULL);
+ }else
+ {
+ g_assert (priv->file != NULL);
+
+ iter = ianjuta_symbol_manager_search_file (priv->obj, IANJUTA_SYMBOL_TYPE_MAX, TRUE, IANJUTA_SYMBOL_FIELD_SIMPLE, "%", priv->file, -1, -1, NULL);
+ }
+ if (!iter)
+ {
+ DEBUG_PRINT ("Can't get member");
+ return NULL;
+ }
+ do {
+ IAnjutaSymbol *symbol = IANJUTA_SYMBOL (iter);
+ ret = g_list_append (ret, g_strdup (ianjuta_symbol_get_name (symbol, NULL)));
+ }while (ianjuta_iterable_next (iter, NULL));
+ g_object_unref (iter);
+ return ret;
+}
diff --git a/plugins/language-support-js/db-anjuta-symbol.h b/plugins/language-support-js/db-anjuta-symbol.h
new file mode 100644
index 0000000..befa744
--- /dev/null
+++ b/plugins/language-support-js/db-anjuta-symbol.h
@@ -0,0 +1,54 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _DB_ANJUTA_SYMBOL_H_
+#define _DB_ANJUTA_SYMBOL_H_
+
+#include <glib-object.h>
+
+#include "ijs-symbol.h"
+
+G_BEGIN_DECLS
+
+#define DB_TYPE_ANJUTA_SYMBOL (db_anjuta_symbol_get_type ())
+#define DB_ANJUTA_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), DB_TYPE_ANJUTA_SYMBOL, DbAnjutaSymbol))
+#define DB_ANJUTA_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), DB_TYPE_ANJUTA_SYMBOL, DbAnjutaSymbolClass))
+#define DB_IS_ANJUTA_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), DB_TYPE_ANJUTA_SYMBOL))
+#define DB_IS_ANJUTA_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), DB_TYPE_ANJUTA_SYMBOL))
+#define DB_ANJUTA_SYMBOL_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), DB_TYPE_ANJUTA_SYMBOL, DbAnjutaSymbolClass))
+
+typedef struct _DbAnjutaSymbolClass DbAnjutaSymbolClass;
+typedef struct _DbAnjutaSymbol DbAnjutaSymbol;
+
+struct _DbAnjutaSymbolClass
+{
+ GObjectClass parent_class;
+};
+
+struct _DbAnjutaSymbol
+{
+ GObject parent_instance;
+};
+
+GType db_anjuta_symbol_get_type (void) G_GNUC_CONST;
+DbAnjutaSymbol* db_anjuta_symbol_new (const gchar *file_name);
+
+G_END_DECLS
+
+#endif /* _DB_ANJUTA_SYMBOL_H_ */
diff --git a/plugins/language-support-js/dir-symbol.c b/plugins/language-support-js/dir-symbol.c
new file mode 100644
index 0000000..52b6370
--- /dev/null
+++ b/plugins/language-support-js/dir-symbol.c
@@ -0,0 +1,294 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#include <gio/gio.h>
+#include <string.h>
+
+#include "local-symbol.h"
+#include "db-anjuta-symbol.h"
+#include "dir-symbol.h"
+#include "util.h"
+
+typedef struct _DirSymbolPrivate DirSymbolPrivate;
+struct _DirSymbolPrivate
+{
+ GFile *self_dir;
+};
+
+#define DIR_SYMBOL_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE ((o), DIR_TYPE_SYMBOL, DirSymbolPrivate))
+
+static void dir_symbol_interface_init (IJsSymbolIface *iface);
+static GList* dir_symbol_get_arg_list (IJsSymbol *obj);
+static gint dir_symbol_get_base_type (IJsSymbol *obj);
+static GList* dir_symbol_get_func_ret_type (IJsSymbol *obj);
+static IJsSymbol* dir_symbol_get_member (IJsSymbol *obj, const gchar * name);
+static const gchar * dir_symbol_get_name (IJsSymbol *obj);
+static GList* dir_symbol_list_member (IJsSymbol *obj);
+
+G_DEFINE_TYPE_WITH_CODE (DirSymbol, dir_symbol, G_TYPE_OBJECT,
+ G_IMPLEMENT_INTERFACE (IJS_TYPE_SYMBOL,
+ dir_symbol_interface_init));
+
+static void
+dir_symbol_init (DirSymbol *object)
+{
+ DirSymbolPrivate* priv = DIR_SYMBOL_PRIVATE (object);
+ priv->self_dir = NULL;
+}
+
+static void
+dir_symbol_finalize (GObject *object)
+{
+ DirSymbolPrivate* priv = DIR_SYMBOL_PRIVATE (object);
+
+ g_object_unref (priv->self_dir);
+
+ G_OBJECT_CLASS (dir_symbol_parent_class)->finalize (object);
+}
+
+static void
+dir_symbol_class_init (DirSymbolClass *klass)
+{
+ GObjectClass* object_class = G_OBJECT_CLASS (klass);
+ /*GObjectClass* parent_class = G_OBJECT_CLASS (klass);*/
+
+ g_type_class_add_private (klass, sizeof (DirSymbolPrivate));
+
+ object_class->finalize = dir_symbol_finalize;
+}
+
+gchar*
+dir_symbol_get_path (DirSymbol* self)
+{
+ g_assert (DIR_IS_SYMBOL (self));
+ DirSymbolPrivate* priv = DIR_SYMBOL_PRIVATE (self);
+ g_assert (priv->self_dir != NULL);
+ return g_file_get_path (priv->self_dir);
+}
+
+DirSymbol*
+dir_symbol_new (const gchar* dirname)
+{
+ DirSymbol* self = DIR_SYMBOL (g_object_new (DIR_TYPE_SYMBOL, NULL));
+ DirSymbolPrivate* priv = DIR_SYMBOL_PRIVATE (self);
+
+ g_assert (dirname != NULL);
+
+ if (!g_file_test (dirname, G_FILE_TEST_IS_DIR))
+ {
+ g_object_unref (self);
+ return NULL;
+ }
+
+ priv->self_dir = g_file_new_for_path (dirname);
+ gchar *tmp = g_file_get_basename (priv->self_dir);
+
+ if (!tmp || tmp[0] == '.')
+ {
+ g_free (tmp);
+ g_object_unref (self);
+ return NULL;
+ }
+ g_free (tmp);
+
+ GFileInfo *info;
+ GFileEnumerator *enumerator = g_file_enumerate_children (priv->self_dir, G_FILE_ATTRIBUTE_STANDARD_NAME, G_FILE_QUERY_INFO_NONE, NULL, NULL);
+
+ if (enumerator == NULL)
+ {
+ g_object_unref (self);
+ return NULL;
+ }
+ gboolean has_child = FALSE;
+ for (info = g_file_enumerator_next_file (enumerator, NULL, NULL); info; info = g_file_enumerator_next_file (enumerator, NULL, NULL))
+ {
+ const gchar *name = g_file_info_get_name (info);
+ if (!name)
+ {
+ g_object_unref (info);
+ continue;
+ }
+ GFile *file = g_file_get_child (priv->self_dir, name);
+ gchar *file_path = g_file_get_path (file);
+ g_object_unref (file);
+ if (g_file_test (file_path, G_FILE_TEST_IS_DIR))
+ {
+ DirSymbol *t = dir_symbol_new (file_path);
+ g_free (file_path);
+ g_object_unref (info);
+ if (t)
+ {
+ g_object_unref (t);
+ has_child = TRUE;
+ break;
+ }
+ continue;
+ }
+ g_free (file_path);
+ size_t len = strlen (name);
+ if (len <= 3 || strcmp (name + len - 3, ".js") != 0)
+ {
+ g_object_unref (info);
+ continue;
+ }
+ g_object_unref (info);
+ has_child = TRUE;
+ }
+ g_object_unref (enumerator);
+ if (!has_child)
+ {
+ g_object_unref (self);
+ return NULL;
+ }
+
+ return self;
+}
+
+static void
+dir_symbol_interface_init (IJsSymbolIface *iface)
+{
+ iface->get_arg_list = dir_symbol_get_arg_list;
+ iface->get_base_type = dir_symbol_get_base_type;
+ iface->get_func_ret_type = dir_symbol_get_func_ret_type;
+
+ iface->get_member = dir_symbol_get_member;
+ iface->get_name = dir_symbol_get_name;
+ iface->list_member = dir_symbol_list_member;
+}
+
+static GList*
+dir_symbol_get_arg_list (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static gint
+dir_symbol_get_base_type (IJsSymbol *obj)
+{
+ return BASE_CLASS;
+}
+
+static GList*
+dir_symbol_get_func_ret_type (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static IJsSymbol*
+dir_symbol_get_member (IJsSymbol *obj, const gchar * name)
+{
+ DirSymbol* self = DIR_SYMBOL (obj);
+ DirSymbolPrivate* priv = DIR_SYMBOL_PRIVATE (self);
+
+ g_assert (name != NULL);
+
+ GFile *file = g_file_get_child (priv->self_dir, name);
+ gchar *path = g_file_get_path (file);
+ g_object_unref (file);
+
+ if (g_file_test (path, G_FILE_TEST_IS_DIR))
+ {
+ IJsSymbol *ret = IJS_SYMBOL (dir_symbol_new (path));
+ g_free (path);
+ return ret;
+ }
+ g_free (path);
+
+ gchar *namejs = g_strconcat (name, ".js", NULL);
+ file = g_file_get_child (priv->self_dir, namejs);
+ g_free (namejs);
+ path = g_file_get_path (file);
+ g_object_unref (file);
+
+ if (g_file_test (path, G_FILE_TEST_EXISTS | G_FILE_TEST_IS_REGULAR))
+ {
+ IJsSymbol *ret = IJS_SYMBOL (db_anjuta_symbol_new (path));
+ if (!ret)
+ ret = IJS_SYMBOL (local_symbol_new (path));
+ g_free (path);
+ return ret;
+ }
+ g_free (path);
+ return NULL;
+}
+
+static const gchar *
+dir_symbol_get_name (IJsSymbol *obj)
+{
+ DirSymbol* self = DIR_SYMBOL (obj);
+ DirSymbolPrivate* priv = DIR_SYMBOL_PRIVATE (self);
+
+ return g_file_get_basename (priv->self_dir);
+}
+
+static GList*
+dir_symbol_list_member (IJsSymbol *obj)
+{
+ DirSymbol* self = DIR_SYMBOL (obj);
+ DirSymbolPrivate* priv = DIR_SYMBOL_PRIVATE (self);
+ GList *ret = NULL;
+
+ GFileInfo *info;
+
+ GFileEnumerator *enumerator = g_file_enumerate_children (priv->self_dir, G_FILE_ATTRIBUTE_STANDARD_NAME, G_FILE_QUERY_INFO_NONE, NULL, NULL);
+
+ if (enumerator == NULL)
+ return NULL;
+
+ for (info = g_file_enumerator_next_file (enumerator, NULL, NULL); info; info = g_file_enumerator_next_file (enumerator, NULL, NULL))
+ {
+ const gchar *name = g_file_info_get_name (info);
+ if (!name)
+ {
+ g_object_unref (info);
+ continue;
+ }
+
+ GFile *file = g_file_get_child (priv->self_dir, name);
+ gchar *path = g_file_get_path (file);
+ g_object_unref (file);
+
+ if (g_file_test (path, G_FILE_TEST_IS_DIR))
+ {
+ DirSymbol *t = dir_symbol_new (path);
+ g_free (path);
+ if (t)
+ {
+ g_object_unref (t);
+ ret = g_list_append (ret, g_strdup (name));
+ }
+ g_object_unref (info);
+ continue;
+ }
+ size_t len = strlen (name);
+ if (len <= 3 || strcmp (name + len - 3, ".js") != 0)
+ {
+ g_object_unref (info);
+ continue;
+ }
+ gchar *t = g_strdup (name);
+ g_object_unref (info);
+ *(t + len - 3) = '\0';
+ ret = g_list_append (ret, t);
+ }
+
+ return ret;
+}
diff --git a/plugins/language-support-js/dir-symbol.h b/plugins/language-support-js/dir-symbol.h
new file mode 100644
index 0000000..f3acd3e
--- /dev/null
+++ b/plugins/language-support-js/dir-symbol.h
@@ -0,0 +1,55 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _DIR_SYMBOL_H_
+#define _DIR_SYMBOL_H_
+
+#include <glib-object.h>
+
+#include "ijs-symbol.h"
+
+G_BEGIN_DECLS
+
+#define DIR_TYPE_SYMBOL (dir_symbol_get_type ())
+#define DIR_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), DIR_TYPE_SYMBOL, DirSymbol))
+#define DIR_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), DIR_TYPE_SYMBOL, DirSymbolClass))
+#define DIR_IS_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), DIR_TYPE_SYMBOL))
+#define DIR_IS_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), DIR_TYPE_SYMBOL))
+#define DIR_SYMBOL_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), DIR_TYPE_SYMBOL, DirSymbolClass))
+
+typedef struct _DirSymbolClass DirSymbolClass;
+typedef struct _DirSymbol DirSymbol;
+
+struct _DirSymbolClass
+{
+ GObjectClass parent_class;
+};
+
+struct _DirSymbol
+{
+ GObject parent_instance;
+};
+
+GType dir_symbol_get_type (void) G_GNUC_CONST;
+DirSymbol* dir_symbol_new (const gchar* dirname);
+gchar* dir_symbol_get_path (DirSymbol* self);
+
+G_END_DECLS
+
+#endif /* _DIR_SYMBOL_H_ */
diff --git a/plugins/language-support-js/gi-symbol.c b/plugins/language-support-js/gi-symbol.c
new file mode 100644
index 0000000..e57ebf5
--- /dev/null
+++ b/plugins/language-support-js/gi-symbol.c
@@ -0,0 +1,222 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#include <gio/gio.h>
+
+#include "gi-symbol.h"
+#include "util.h"
+#include "gir-symbol.h"
+#include "string.h"
+
+static void gi_symbol_interface_init (IJsSymbolIface *iface);
+static GList* gi_symbol_get_arg_list (IJsSymbol *obj);
+static gint gi_symbol_get_base_type (IJsSymbol *obj);
+static GList* gi_symbol_get_func_ret_type (IJsSymbol *obj);
+static IJsSymbol* gi_symbol_get_member (IJsSymbol *obj, const gchar * name);
+static const gchar * gi_symbol_get_name (IJsSymbol *obj);
+static GList* gi_symbol_list_member (IJsSymbol *obj);
+
+G_DEFINE_TYPE_WITH_CODE (GiSymbol, gi_symbol, G_TYPE_OBJECT,
+ G_IMPLEMENT_INTERFACE (IJS_TYPE_SYMBOL,
+ gi_symbol_interface_init));
+
+typedef struct _GiSymbolPrivate GiSymbolPrivate;
+struct _GiSymbolPrivate
+{
+ GList *member;
+};
+
+#define GI_SYMBOL_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE ((o), GI_TYPE_SYMBOL, GiSymbolPrivate))
+
+static void
+gi_symbol_init (GiSymbol *object)
+{
+ GiSymbolPrivate *priv = GI_SYMBOL_PRIVATE(object);
+ priv->member = NULL;
+}
+
+static void
+gi_symbol_finalize (GObject *object)
+{
+ GiSymbolPrivate *priv = GI_SYMBOL_PRIVATE(object);
+
+ g_list_foreach (priv->member, (GFunc)g_object_unref, NULL);
+ g_list_free (priv->member);
+ G_OBJECT_CLASS (gi_symbol_parent_class)->finalize (object);
+}
+
+static void
+gi_symbol_class_init (GiSymbolClass *klass)
+{
+ GObjectClass* object_class = G_OBJECT_CLASS (klass);
+ /*GObjectClass* parent_class = G_OBJECT_CLASS (klass);*/
+
+ g_type_class_add_private (klass, sizeof (GiSymbolPrivate));
+
+ object_class->finalize = gi_symbol_finalize;
+}
+
+
+IJsSymbol*
+gi_symbol_new ()
+{
+ return g_object_new (GI_TYPE_SYMBOL, NULL);
+}
+
+static void
+gi_symbol_interface_init (IJsSymbolIface *iface)
+{
+ iface->get_arg_list = gi_symbol_get_arg_list;
+ iface->get_base_type = gi_symbol_get_base_type;
+ iface->get_func_ret_type = gi_symbol_get_func_ret_type;
+
+ iface->get_member = gi_symbol_get_member;
+ iface->get_name = gi_symbol_get_name;
+ iface->list_member = gi_symbol_list_member;
+}
+
+static GList*
+gi_symbol_get_arg_list (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static gint
+gi_symbol_get_base_type (IJsSymbol *obj)
+{
+ return BASE_CLASS;
+}
+
+static GList*
+gi_symbol_get_func_ret_type (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static IJsSymbol*
+gi_symbol_get_member (IJsSymbol *obj, const gchar * name)
+{
+ GList *i;
+
+ GiSymbol *object = GI_SYMBOL (obj);
+ GiSymbolPrivate *priv = GI_SYMBOL_PRIVATE (object);
+
+ g_assert (object != NULL);
+ g_assert (priv != NULL);
+
+ g_assert (name != NULL);
+
+ if (!name)
+ return NULL;
+ for (i = priv->member; i; i = g_list_next (i))
+ {
+ IJsSymbol *lib = IJS_SYMBOL (i->data);
+ if (g_strcmp0 (name, ijs_symbol_get_name (lib)) == 0)
+ {
+ g_object_ref (lib);
+ return lib;
+ }
+ }
+
+ GFileInfo *info;
+ const gchar *lib_name = name;
+ gchar *gir_path = get_gir_path ();
+ g_assert (gir_path);
+ GFile *dir = g_file_new_for_path (gir_path);
+ GFileEnumerator *enumerator = g_file_enumerate_children (dir, G_FILE_ATTRIBUTE_STANDARD_NAME, G_FILE_QUERY_INFO_NONE, NULL, NULL);
+ g_free (gir_path);
+ if (enumerator)
+ {
+ for (info = g_file_enumerator_next_file(enumerator, NULL, NULL); info; info = g_file_enumerator_next_file(enumerator, NULL, NULL))
+ {
+ const gchar *name = g_file_info_get_name (info);
+ if (!name)
+ {
+ g_object_unref (info);
+ continue;
+ }
+ if (strncmp (name, lib_name, strlen (lib_name)) == 0)
+ {
+ GFile *file = g_file_get_child (dir, name);
+ gchar *path = g_file_get_path (file);
+ IJsSymbol *n = NULL;
+ if (g_file_test (path, G_FILE_TEST_IS_REGULAR | G_FILE_TEST_EXISTS))
+ n = gir_symbol_new (path, lib_name);
+ g_free (path);
+ if (n)
+ {
+ priv->member = g_list_append (priv->member, n);
+ g_object_ref (n);
+ }
+ g_object_unref (enumerator);
+ return n;
+ }
+ g_object_unref (info);
+ }
+ g_object_unref (enumerator);
+ }
+ return NULL;
+}
+
+static const gchar *
+gi_symbol_get_name (IJsSymbol *obj)
+{
+ return "gi";
+}
+
+static GList*
+gi_symbol_list_member (IJsSymbol *obj)
+{
+ GList *ret = NULL;
+
+ GFileInfo *info;
+ gchar *gir_path = get_gir_path ();
+ GFile *dir = g_file_new_for_path (gir_path);
+ GFileEnumerator *enumerator = g_file_enumerate_children (dir, G_FILE_ATTRIBUTE_STANDARD_NAME, G_FILE_QUERY_INFO_NONE, NULL, NULL);
+
+ g_free (gir_path);
+ if (enumerator)
+ {
+ for (info = g_file_enumerator_next_file(enumerator, NULL, NULL); info; info = g_file_enumerator_next_file (enumerator, NULL, NULL))
+ {
+ int i;
+ const gchar *name = g_file_info_get_name (info);
+ if (!name)
+ {
+ g_object_unref (info);
+ continue;
+ }
+ for (i = 0; i < strlen (name); i++)
+ {
+ if (name[i] != '-' && name[i] != '.')
+ continue;
+ if (i == 0)
+ break;
+ gchar *lib_name = g_strndup (name, i);
+ ret = g_list_append (ret, lib_name);
+ break;
+ }
+ g_object_unref (info);
+ }
+ g_object_unref (enumerator);
+ }
+ return ret;
+}
diff --git a/plugins/language-support-js/gi-symbol.h b/plugins/language-support-js/gi-symbol.h
new file mode 100644
index 0000000..c5ec3ce
--- /dev/null
+++ b/plugins/language-support-js/gi-symbol.h
@@ -0,0 +1,53 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _GI_SYMBOL_H_
+#define _GI_SYMBOL_H_
+
+#include <glib-object.h>
+#include "ijs-symbol.h"
+
+G_BEGIN_DECLS
+
+#define GI_TYPE_SYMBOL (gi_symbol_get_type ())
+#define GI_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), GI_TYPE_SYMBOL, GiSymbol))
+#define GI_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), GI_TYPE_SYMBOL, GiSymbolClass))
+#define GI_IS_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), GI_TYPE_SYMBOL))
+#define GI_IS_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), GI_TYPE_SYMBOL))
+#define GI_SYMBOL_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), GI_TYPE_SYMBOL, GiSymbolClass))
+
+typedef struct _GiSymbolClass GiSymbolClass;
+typedef struct _GiSymbol GiSymbol;
+
+struct _GiSymbolClass
+{
+ GObjectClass parent_class;
+};
+
+struct _GiSymbol
+{
+ GObject parent_instance;
+};
+
+GType gi_symbol_get_type (void) G_GNUC_CONST;
+IJsSymbol* gi_symbol_new (void);
+
+G_END_DECLS
+
+#endif /* _GI_SYMBOL_H_ */
diff --git a/plugins/language-support-js/gir-symbol.c b/plugins/language-support-js/gir-symbol.c
new file mode 100644
index 0000000..0adfec0
--- /dev/null
+++ b/plugins/language-support-js/gir-symbol.c
@@ -0,0 +1,368 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#include <libxml/xmlmemory.h>
+#include <libxml/parser.h>
+#include <libxml/tree.h>
+#include <string.h>
+
+#include "gir-symbol.h"
+#include "ijs-symbol.h"
+#include "simple-symbol.h"
+#include "util.h"
+
+static void gir_symbol_interface_init (IJsSymbolIface *iface);
+static GList* gir_symbol_get_arg_list (IJsSymbol *obj);
+static gint gir_symbol_get_base_type (IJsSymbol *obj);
+static GList* gir_symbol_get_func_ret_type (IJsSymbol *obj);
+static IJsSymbol* gir_symbol_get_member (IJsSymbol *obj, const gchar * name);
+static const gchar * gir_symbol_get_name (IJsSymbol *obj);
+static GList* gir_symbol_list_member (IJsSymbol *obj);
+
+G_DEFINE_TYPE_WITH_CODE (GirSymbol, gir_symbol, G_TYPE_OBJECT,
+ G_IMPLEMENT_INTERFACE (IJS_TYPE_SYMBOL,
+ gir_symbol_interface_init));
+
+typedef struct _GirSymbolPrivate GirSymbolPrivate;
+struct _GirSymbolPrivate
+{
+ GList *member;
+ gchar *name;
+};
+
+static IJsSymbol* parse_node (xmlNode *node);
+
+#define GIR_SYMBOL_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE ((o), GIR_TYPE_SYMBOL, GirSymbolPrivate))
+
+static void
+gir_symbol_init (GirSymbol *object)
+{
+ GirSymbolPrivate *priv = GIR_SYMBOL_PRIVATE (object);
+ priv->name = NULL;
+ priv->member = NULL;
+}
+
+static void
+gir_symbol_finalize (GObject *object)
+{
+ GirSymbolPrivate *priv = GIR_SYMBOL_PRIVATE (object);
+
+ g_free (priv->name);
+ g_list_foreach (priv->member, (GFunc)g_object_unref, NULL);
+ g_list_free (priv->member);
+ G_OBJECT_CLASS (gir_symbol_parent_class)->finalize (object);
+}
+
+static void
+gir_symbol_class_init (GirSymbolClass *klass)
+{
+ GObjectClass* object_class = G_OBJECT_CLASS (klass);
+ /*GObjectClass* parent_class = G_OBJECT_CLASS (klass);*/
+
+ g_type_class_add_private (klass, sizeof (GirSymbolPrivate));
+
+ object_class->finalize = gir_symbol_finalize;
+}
+
+static gchar *cur_gir = NULL;
+
+IJsSymbol*
+gir_symbol_new (const gchar *filename, const gchar *lib_name)
+{
+ GirSymbol* symbol = g_object_new (GIR_TYPE_SYMBOL, NULL);
+ GirSymbolPrivate *priv = GIR_SYMBOL_PRIVATE (symbol);
+
+ g_assert (lib_name != NULL);
+
+ if (!lib_name)
+ {
+ g_object_unref (symbol);
+ return NULL;
+ }
+ priv->member = NULL;
+ priv->name = g_strdup (lib_name);
+
+ cur_gir = g_strdup_printf ("imports.gi.%s.", priv->name);
+ if (!g_file_test (filename, G_FILE_TEST_EXISTS | G_FILE_TEST_IS_REGULAR))
+ {
+ g_object_unref (symbol);
+ return NULL;
+ }
+ xmlDocPtr doc = xmlParseFile(filename);
+ xmlNode *root;
+ xmlNode *i;
+
+ if (doc == NULL) {
+ g_warning ("could not parse file");
+ g_object_unref (symbol);
+ return NULL;
+ }
+ root = xmlDocGetRootElement (doc);
+ for (i = root->children; i; i = i->next)
+ {
+ xmlNode *j;
+ if (!i->name)
+ continue;
+ if (g_strcmp0 ((const char*)i->name, "namespace") !=0)
+ continue;
+ for (j = i->children; j; j = j->next)
+ {
+ IJsSymbol *n = parse_node (j);
+ if (!n)
+ continue;
+ priv->member = g_list_append (priv->member, n);
+ }
+ }
+ xmlFreeDoc (doc);
+ return IJS_SYMBOL (symbol);
+}
+
+static void
+gir_symbol_interface_init (IJsSymbolIface *iface)
+{
+ iface->get_arg_list = gir_symbol_get_arg_list;
+ iface->get_base_type = gir_symbol_get_base_type;
+ iface->get_func_ret_type = gir_symbol_get_func_ret_type;
+ iface->get_member = gir_symbol_get_member;
+ iface->get_name = gir_symbol_get_name;
+ iface->list_member = gir_symbol_list_member;
+}
+
+static GList*
+gir_symbol_get_arg_list (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static gint
+gir_symbol_get_base_type (IJsSymbol *obj)
+{
+ return BASE_CLASS;
+}
+
+static GList*
+gir_symbol_get_func_ret_type (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static IJsSymbol*
+gir_symbol_get_member (IJsSymbol *obj, const gchar * name)
+{
+ GList *i;
+ GirSymbolPrivate *priv = GIR_SYMBOL_PRIVATE (obj);
+
+ for (i = priv->member; i; i = g_list_next (i))
+ {
+ IJsSymbol* t = IJS_SYMBOL (i->data);
+ if (g_strcmp0 (name, ijs_symbol_get_name (t)) == 0)
+ {
+ g_object_ref (t);
+ return t;
+ }
+ }
+ return NULL;
+}
+
+static const gchar *
+gir_symbol_get_name (IJsSymbol *obj)
+{
+ GirSymbol* symbol = GIR_SYMBOL (obj);
+ GirSymbolPrivate *priv = GIR_SYMBOL_PRIVATE (symbol);
+ return priv->name;
+}
+
+static GList*
+gir_symbol_list_member (IJsSymbol *obj)
+{
+ GList *i;
+ GList *ret = NULL;
+ GirSymbolPrivate *priv = GIR_SYMBOL_PRIVATE (obj);
+
+ for (i = priv->member; i; i = g_list_next (i))
+ {
+ IJsSymbol* t = IJS_SYMBOL (i->data);
+ ret = g_list_append (ret, g_strdup (ijs_symbol_get_name (t)));
+ }
+ return ret;
+}
+
+static IJsSymbol*
+parse_class (xmlNode *node)
+{
+ SimpleSymbol *ret = NULL;
+ xmlNode *i;
+ gchar *name;
+
+ name = (gchar*)xmlGetProp (node, (const xmlChar*)"name");
+ if (!name)
+ return NULL;
+
+ ret = simple_symbol_new ();
+ ret->name = name;
+//puts (name);
+ for (i = node->children; i; i = i->next)
+ {
+ IJsSymbol *child = parse_node (i);
+ if (!child)
+ continue;
+ ret->member = g_list_append (ret->member, child);
+ }
+ return IJS_SYMBOL (ret);
+}
+
+static IJsSymbol*
+parse_enumeration (xmlNode *node)
+{
+ SimpleSymbol *ret = NULL;
+ xmlNode *i;
+ gchar *name;
+
+ name = (gchar*)xmlGetProp (node, (const xmlChar*)"name");
+ if (!name)
+ return NULL;
+ ret = simple_symbol_new ();
+ ret->name = name;
+ ret->type = BASE_ENUM;
+
+ for (i = node->children; i; i = i->next)
+ {
+ gchar *name = (gchar*)xmlGetProp (i, (const xmlChar*)"name");
+ if (!name)
+ continue;
+ SimpleSymbol *t = simple_symbol_new ();
+ t->name = name;
+ ret->member = g_list_append (ret->member, t);
+ }
+ return IJS_SYMBOL (ret);
+}
+
+static IJsSymbol*
+parse_function (xmlNode *node)
+{
+ SimpleSymbol *ret = NULL;
+ xmlNode *i, *k;
+ gchar *name;
+
+ name = (gchar*)xmlGetProp (node, (xmlChar*)"name");
+ if (!name)
+ return NULL;
+
+ ret = simple_symbol_new ();
+ ret->name = name;
+ ret->type = BASE_FUNC;
+
+ for (i = node->children; i; i = i->next)
+ {
+ if (!i->name)
+ continue;
+ if (strcmp ((const gchar*)i->name, "return-value") == 0)
+ {
+ for (k = i->children; k; k = k->next)
+ {
+ xmlChar *tmp;
+ if (!k->name)
+ continue;
+ tmp = xmlGetProp (k, (const xmlChar*)"name");
+ if (!tmp)
+ continue;
+ ret->ret_type = g_list_append (ret->ret_type, g_strdup_printf ("%s%s", cur_gir, (gchar*)tmp));/*TODO:Fix type*/
+ xmlFree (tmp);
+ }
+ }
+ if (strcmp ((const gchar*)i->name, "parameters") == 0)
+ {
+ for (k = i->children; k; k = k->next)
+ {
+ gchar *name;
+ Argument *tmp;
+ if (!k->name)
+ continue;
+ name = (gchar*)xmlGetProp (node, (const xmlChar*)"name");
+ if (!name)
+ continue;
+ tmp = g_new (Argument, 1);
+ tmp->name = name;
+ tmp->types = NULL;
+ ret->args = g_list_append (ret->args, tmp);
+ }
+ }
+ }
+ return IJS_SYMBOL (ret);
+}
+
+static IJsSymbol*
+parse_node (xmlNode *node)
+{
+ if (!node || !node->name)
+ return NULL;
+ if (strcmp ((const gchar*)node->name, "text") == 0
+ || strcmp ((const gchar*)node->name, "implements") == 0)
+ return NULL;
+ if (strcmp ((const gchar*)node->name, "namespace") == 0 || strcmp ((const gchar*)node->name, "class") == 0
+ || strcmp ((const gchar*)node->name, "record") == 0
+ || strcmp ((const gchar*)node->name, "bitfield") == 0
+ || strcmp ((const gchar*)node->name, "interface") == 0)
+ {
+ return parse_class (node);
+ }
+ if (strcmp ((const gchar*)node->name, "union") == 0)
+ {
+ return parse_class (node);
+ }
+ if (strcmp ((const gchar*)node->name, "function") == 0 || strcmp ((const gchar*)node->name, "method") == 0
+ || strcmp ((const gchar*)node->name, "callback") == 0
+ || strcmp ((const gchar*)node->name, "constructor") == 0)
+ {
+ return parse_function (node);
+ }
+ if (strcmp ((const gchar*)node->name, "alias") == 0)
+ {
+ SimpleSymbol *self = NULL;
+ gchar *name = (gchar*)xmlGetProp (node, (const xmlChar*)"name");
+ if (!name)
+ return NULL;
+ self = simple_symbol_new ();
+ self->name = name;
+ return IJS_SYMBOL (self);
+ }
+ if (strcmp ((const gchar*)node->name, "constant") == 0 ||
+ strcmp ((const gchar*)node->name, "signal") == 0 ||
+ strcmp ((const gchar*)node->name, "field") == 0 ||
+ strcmp ((const gchar*)node->name, "property") == 0 ||
+ strcmp ((const gchar*)node->name, "member") == 0)
+ {
+ SimpleSymbol *ret = NULL;
+ gchar *name = (gchar*)xmlGetProp (node, (const xmlChar*)"name");
+ if (!name)
+ return NULL;
+ ret = simple_symbol_new ();
+ ret->name = name;
+ return IJS_SYMBOL (ret);
+ }
+ if (strcmp ((const gchar*)node->name, "enumeration") == 0)
+ {
+ return parse_enumeration (node);
+ }
+ puts ((const gchar*)node->name);
+// g_assert_not_reached ();
+ return NULL;
+}
diff --git a/plugins/language-support-js/gir-symbol.h b/plugins/language-support-js/gir-symbol.h
new file mode 100644
index 0000000..9622fab
--- /dev/null
+++ b/plugins/language-support-js/gir-symbol.h
@@ -0,0 +1,53 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _GIR_SYMBOL_H_
+#define _GIR_SYMBOL_H_
+
+#include <glib-object.h>
+#include "ijs-symbol.h"
+
+G_BEGIN_DECLS
+
+#define GIR_TYPE_SYMBOL (gir_symbol_get_type ())
+#define GIR_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), GIR_TYPE_SYMBOL, GirSymbol))
+#define GIR_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), GIR_TYPE_SYMBOL, GirSymbolClass))
+#define GIR_IS_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), GIR_TYPE_SYMBOL))
+#define GIR_IS_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), GIR_TYPE_SYMBOL))
+#define GIR_SYMBOL_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), GIR_TYPE_SYMBOL, GirSymbolClass))
+
+typedef struct _GirSymbolClass GirSymbolClass;
+typedef struct _GirSymbol GirSymbol;
+
+struct _GirSymbolClass
+{
+ GObjectClass parent_class;
+};
+
+struct _GirSymbol
+{
+ GObject parent_instance;
+};
+
+GType gir_symbol_get_type (void) G_GNUC_CONST;
+IJsSymbol* gir_symbol_new (const gchar *filename, const gchar *lib_name);
+
+G_END_DECLS
+
+#endif /* _GIR_SYMBOL_H_ */
diff --git a/plugins/language-support-js/ijs-symbol.c b/plugins/language-support-js/ijs-symbol.c
new file mode 100644
index 0000000..8803812
--- /dev/null
+++ b/plugins/language-support-js/ijs-symbol.c
@@ -0,0 +1,206 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+
+#include "ijs-symbol.h"
+
+GQuark
+ijs_symbol_error_quark (void)
+{
+ static GQuark quark = 0;
+
+ if (quark == 0) {
+ quark = g_quark_from_static_string ("ijs-symbol-quark");
+ }
+
+ return quark;
+}
+
+/**
+ * ijs_symbol_get_arg_list:
+ * @obj: A #IJsSymbol object
+ *
+ * If @obj has BASE_TYPE BASE_FUNC than return GList* of name of arg (gchar*)
+ *
+ * Return value: NULL or GList* of gchar *.
+ */
+GList*
+ijs_symbol_get_arg_list (IJsSymbol *obj)
+{
+ g_return_val_if_fail (IJS_IS_SYMBOL(obj), NULL);
+ return IJS_SYMBOL_GET_IFACE (obj)->get_arg_list (obj);
+}
+
+/* Default implementation */
+static GList*
+ijs_symbol_get_arg_list_default (IJsSymbol *obj)
+{
+ g_return_val_if_reached (NULL);
+}
+
+/**
+ * ijs_symbol_get_base_type:
+ * @obj: A #IJsSymbol object
+ *
+ * Get @obj BASE_TYPE.
+ *
+ * Return value: @obj BASE_TYPE.
+ */
+gint
+ijs_symbol_get_base_type (IJsSymbol *obj)
+{
+ g_return_val_if_fail (IJS_IS_SYMBOL(obj), 0);
+ return IJS_SYMBOL_GET_IFACE (obj)->get_base_type (obj);
+}
+
+/* Default implementation */
+static gint
+ijs_symbol_get_base_type_default (IJsSymbol *obj)
+{
+ g_return_val_if_reached (0);
+}
+
+/**
+ * ijs_symbol_get_func_ret_type:
+ * @obj: A #IJsSymbol object
+ *
+ * If @obj has BASE_TYPE BASE_FUNC than return GList* of name of possible return type (gchar*)
+ *
+ * Return value: NULL or GList* of gchar *.
+ */
+GList*
+ijs_symbol_get_func_ret_type (IJsSymbol *obj)
+{
+ g_return_val_if_fail (IJS_IS_SYMBOL(obj), NULL);
+ return IJS_SYMBOL_GET_IFACE (obj)->get_func_ret_type (obj);
+}
+
+/* Default implementation */
+static GList*
+ijs_symbol_get_func_ret_type_default (IJsSymbol *obj)
+{
+ g_return_val_if_reached (NULL);
+}
+
+/**
+ * ijs_symbol_get_member:
+ * @obj: A #IJsSymbol object
+ * @name: Name of member
+ *
+ * Get member of @obj with @name
+ *
+ * Return value: member of @obj with @name or NULL.
+ */
+IJsSymbol*
+ijs_symbol_get_member (IJsSymbol *obj, const gchar * name)
+{
+ g_return_val_if_fail (IJS_IS_SYMBOL(obj), NULL);
+ return IJS_SYMBOL_GET_IFACE (obj)->get_member (obj, name);
+}
+
+/* Default implementation */
+static IJsSymbol*
+ijs_symbol_get_member_default (IJsSymbol *obj, const gchar * name)
+{
+ g_return_val_if_reached (NULL);
+}
+
+/**
+ * ijs_symbol_get_name:
+ * @obj: A #IJsSymbol object
+ *
+ * Get self name
+ *
+ * Return value: self name or NULL.
+ */
+const gchar *
+ijs_symbol_get_name (IJsSymbol *obj)
+{
+ g_return_val_if_fail (IJS_IS_SYMBOL(obj), NULL);
+ return IJS_SYMBOL_GET_IFACE (obj)->get_name (obj);
+}
+
+/* Default implementation */
+static const gchar *
+ijs_symbol_get_name_default (IJsSymbol *obj)
+{
+ g_return_val_if_reached (NULL);
+}
+
+/**
+ * ijs_symbol_list_member:
+ * @obj: A #IJsSymbol object
+ *
+ * Get list of member's names.
+ *
+ * Return value: self name or NULL.
+ */
+GList*
+ijs_symbol_list_member (IJsSymbol *obj)
+{
+ g_return_val_if_fail (IJS_IS_SYMBOL(obj), NULL);
+ return IJS_SYMBOL_GET_IFACE (obj)->list_member (obj);
+}
+
+/* Default implementation */
+static GList*
+ijs_symbol_list_member_default (IJsSymbol *obj)
+{
+ g_return_val_if_reached (NULL);
+}
+
+static void
+ijs_symbol_base_init (IJsSymbolIface* klass)
+{
+ static gboolean initialized = FALSE;
+
+ klass->get_arg_list = ijs_symbol_get_arg_list_default;
+ klass->get_base_type = ijs_symbol_get_base_type_default;
+ klass->get_func_ret_type = ijs_symbol_get_func_ret_type_default;
+ klass->get_member = ijs_symbol_get_member_default;
+ klass->get_name = ijs_symbol_get_name_default;
+ klass->list_member = ijs_symbol_list_member_default;
+
+ if (!initialized) {
+
+ initialized = TRUE;
+ }
+}
+
+GType
+ijs_symbol_get_type (void)
+{
+ static GType type = 0;
+ if (!type) {
+ static const GTypeInfo info = {
+ sizeof (IJsSymbolIface),
+ (GBaseInitFunc) ijs_symbol_base_init,
+ NULL,
+ NULL,
+ NULL,
+ NULL,
+ 0,
+ 0,
+ NULL
+ };
+ type = g_type_register_static (G_TYPE_INTERFACE, "IJsSymbol", &info, 0);
+ g_type_interface_add_prerequisite (type, G_TYPE_OBJECT);
+ }
+ return type;
+}
diff --git a/plugins/language-support-js/ijs-symbol.h b/plugins/language-support-js/ijs-symbol.h
new file mode 100644
index 0000000..0e6f315
--- /dev/null
+++ b/plugins/language-support-js/ijs-symbol.h
@@ -0,0 +1,70 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _IJS_SYMBOL_H_
+#define _IJS_SYMBOL_H_
+
+#include <glib.h>
+#include <glib-object.h>
+
+G_BEGIN_DECLS
+
+#define IJS_TYPE_SYMBOL (ijs_symbol_get_type ())
+#define IJS_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), IJS_TYPE_SYMBOL, IJsSymbol))
+#define IJS_IS_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), IJS_TYPE_SYMBOL))
+#define IJS_SYMBOL_GET_IFACE(obj) (G_TYPE_INSTANCE_GET_INTERFACE ((obj), IJS_TYPE_SYMBOL, IJsSymbolIface))
+
+#define IJS_SYMBOL_ERROR ijs_symbol_error_quark()
+
+typedef struct _IJsSymbol IJsSymbol;
+typedef struct _IJsSymbolIface IJsSymbolIface;
+
+
+struct _IJsSymbolIface {
+ GTypeInterface g_iface;
+
+
+ GList* (*get_arg_list) (IJsSymbol *obj);
+ gint (*get_base_type) (IJsSymbol *obj);
+ GList* (*get_func_ret_type) (IJsSymbol *obj);
+ IJsSymbol* (*get_member) (IJsSymbol *obj, const gchar * name);
+ const gchar * (*get_name) (IJsSymbol *obj);
+ GList* (*list_member) (IJsSymbol *obj);
+};
+
+
+GQuark ijs_symbol_error_quark (void);
+GType ijs_symbol_get_type (void);
+
+GList* ijs_symbol_get_arg_list (IJsSymbol *obj);
+
+gint ijs_symbol_get_base_type (IJsSymbol *obj);
+
+GList* ijs_symbol_get_func_ret_type (IJsSymbol *obj);
+
+IJsSymbol* ijs_symbol_get_member (IJsSymbol *obj, const gchar * name);
+
+const gchar * ijs_symbol_get_name (IJsSymbol *obj);
+
+GList* ijs_symbol_list_member (IJsSymbol *obj);
+
+
+G_END_DECLS
+
+#endif
diff --git a/plugins/language-support-js/import-symbol.c b/plugins/language-support-js/import-symbol.c
new file mode 100644
index 0000000..1b33c7a
--- /dev/null
+++ b/plugins/language-support-js/import-symbol.c
@@ -0,0 +1,226 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#include "ijs-symbol.h"
+#include "import-symbol.h"
+#include "util.h"
+#include "gi-symbol.h"
+#include "dir-symbol.h"
+
+static void import_symbol_interface_init (IJsSymbolIface *iface);
+static GList* import_symbol_get_arg_list (IJsSymbol *obj);
+static gint import_symbol_get_base_type (IJsSymbol *obj);
+static GList* import_symbol_get_func_ret_type (IJsSymbol *obj);
+static IJsSymbol* import_symbol_get_member (IJsSymbol *obj, const gchar * name);
+static const gchar * import_symbol_get_name (IJsSymbol *obj);
+static GList* import_symbol_list_member (IJsSymbol *obj);
+
+typedef struct _ImportSymbolPrivate ImportSymbolPrivate;
+struct _ImportSymbolPrivate
+{
+ GList *member;
+ GList *dirs;
+};
+
+#define IMPORT_SYMBOL_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE ((o), IMPORT_TYPE_SYMBOL, ImportSymbolPrivate))
+
+G_DEFINE_TYPE_WITH_CODE (ImportSymbol, import_symbol, G_TYPE_OBJECT,
+ G_IMPLEMENT_INTERFACE (IJS_TYPE_SYMBOL,
+ import_symbol_interface_init));
+
+static void
+import_symbol_init (ImportSymbol *object)
+{
+ ImportSymbolPrivate *priv = IMPORT_SYMBOL_PRIVATE(object);
+ priv->member = NULL;
+ priv->dirs = NULL;
+}
+
+static void
+import_symbol_finalize (GObject *object)
+{
+ ImportSymbolPrivate *priv = IMPORT_SYMBOL_PRIVATE(object);
+
+ g_list_foreach (priv->member, (GFunc)g_object_unref, NULL);
+ g_list_foreach (priv->dirs, (GFunc)g_object_unref, NULL);
+ g_list_free (priv->member);
+ g_list_free (priv->dirs);
+ G_OBJECT_CLASS (import_symbol_parent_class)->finalize (object);
+}
+
+static void
+import_symbol_class_init (ImportSymbolClass *klass)
+{
+ GObjectClass* object_class = G_OBJECT_CLASS (klass);
+ /*GObjectClass* parent_class = G_OBJECT_CLASS (klass);*/
+
+ g_type_class_add_private (klass, sizeof (ImportSymbolPrivate));
+
+ object_class->finalize = import_symbol_finalize;
+}
+
+
+ImportSymbol*
+import_symbol_new ()
+{
+ ImportSymbol* ret = IMPORT_SYMBOL (g_object_new (IMPORT_TYPE_SYMBOL, NULL));
+ ImportSymbolPrivate *priv = IMPORT_SYMBOL_PRIVATE(ret);
+
+ priv->member = g_list_append (NULL, gi_symbol_new ());
+ priv->dirs = NULL;
+
+ return ret;
+}
+
+static void
+import_symbol_interface_init (IJsSymbolIface *iface)
+{
+ iface->get_arg_list = import_symbol_get_arg_list;
+ iface->get_base_type = import_symbol_get_base_type;
+ iface->get_func_ret_type = import_symbol_get_func_ret_type;
+
+ iface->get_member = import_symbol_get_member;
+ iface->get_name = import_symbol_get_name;
+ iface->list_member = import_symbol_list_member;
+}
+
+static void
+post_init (ImportSymbol *symbol)
+{
+ ImportSymbolPrivate *priv = IMPORT_SYMBOL_PRIVATE (symbol);
+ GList *paths = get_import_include_paths ();
+
+ GList *i;
+ for (i = priv->dirs; i; )
+ {
+ GList *k;
+ gchar *path = dir_symbol_get_path (DIR_SYMBOL (i->data));
+ gboolean has_path = FALSE;
+ g_assert (path != NULL);
+ for (k = paths; k; k = g_list_next (k))
+ {
+ if (g_strcmp0 (path, (gchar*)k->data) != 0)
+ continue;
+ has_path = TRUE;
+ paths = g_list_delete_link (paths, k);
+ break;
+ }
+ if (!has_path)
+ {
+ k = g_list_next (i);
+ g_object_unref (i->data);
+ priv->dirs = g_list_remove_link (priv->dirs, i);
+ i = k;
+ }
+ else
+ i = g_list_next (i);
+ g_free (path);
+ }
+ for (i = paths; i; i = g_list_next (i))
+ {
+ gchar *path = (gchar*)i->data;
+ g_assert (path != NULL);
+ DirSymbol *sym = dir_symbol_new (path);
+ if (sym)
+ priv->dirs = g_list_append (priv->dirs, sym);
+ }
+ g_list_foreach (paths, (GFunc)g_free, NULL);
+ g_list_free (paths);
+}
+
+static GList*
+import_symbol_get_arg_list (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static gint
+import_symbol_get_base_type (IJsSymbol *obj)
+{
+ return BASE_CLASS;
+}
+
+static GList*
+import_symbol_get_func_ret_type (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static IJsSymbol*
+import_symbol_get_member (IJsSymbol *obj, const gchar * name)
+{
+ ImportSymbol* self = IMPORT_SYMBOL (obj);
+ ImportSymbolPrivate *priv = IMPORT_SYMBOL_PRIVATE(self);
+
+ GList *i;
+
+ post_init (self);
+
+ for (i = priv->member; i; i = g_list_next (i))
+ {
+ IJsSymbol *t = IJS_SYMBOL (i->data);
+ if (g_strcmp0 (name, ijs_symbol_get_name (t)) == 0 )
+ {
+ g_object_ref (t);
+ return t;
+ }
+ }
+ for (i = priv->dirs; i; i = g_list_next (i))
+ {
+ IJsSymbol *t = IJS_SYMBOL (i->data);
+ IJsSymbol* ret = ijs_symbol_get_member (t, name);
+ if (!ret)
+ continue;
+ g_object_ref (ret);
+ return ret;
+ }
+ return NULL;
+}
+
+static const gchar *
+import_symbol_get_name (IJsSymbol *obj)
+{
+ return "imports";
+}
+
+static GList*
+import_symbol_list_member (IJsSymbol *obj)
+{
+ ImportSymbol* self = IMPORT_SYMBOL (obj);
+ ImportSymbolPrivate *priv = IMPORT_SYMBOL_PRIVATE(self);
+
+ GList *i;
+ GList *ret = NULL;
+
+ post_init (self);
+
+ for (i = priv->member; i; i = g_list_next (i))
+ {
+ IJsSymbol *t = IJS_SYMBOL (i->data);
+ ret = g_list_append (ret, g_strdup (ijs_symbol_get_name (t)));
+ }
+ for (i = priv->dirs; i; i = g_list_next (i))
+ {
+ IJsSymbol *t = IJS_SYMBOL (i->data);
+ ret = g_list_concat (ret, ijs_symbol_list_member (t));
+ }
+ return ret;
+}
diff --git a/plugins/language-support-js/import-symbol.h b/plugins/language-support-js/import-symbol.h
new file mode 100644
index 0000000..71cd717
--- /dev/null
+++ b/plugins/language-support-js/import-symbol.h
@@ -0,0 +1,54 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _IMPORT_SYMBOL_H_
+#define _IMPORT_SYMBOL_H_
+
+#include <glib-object.h>
+
+#include "ijs-symbol.h"
+
+G_BEGIN_DECLS
+
+#define IMPORT_TYPE_SYMBOL (import_symbol_get_type ())
+#define IMPORT_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), IMPORT_TYPE_SYMBOL, ImportSymbol))
+#define IMPORT_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), IMPORT_TYPE_SYMBOL, ImportSymbolClass))
+#define IMPORT_IS_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), IMPORT_TYPE_SYMBOL))
+#define IMPORT_IS_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), IMPORT_TYPE_SYMBOL))
+#define IMPORT_SYMBOL_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), IMPORT_TYPE_SYMBOL, ImportSymbolClass))
+
+typedef struct _ImportSymbolClass ImportSymbolClass;
+typedef struct _ImportSymbol ImportSymbol;
+
+struct _ImportSymbolClass
+{
+ GObjectClass parent_class;
+};
+
+struct _ImportSymbol
+{
+ GObject parent_instance;
+};
+
+GType import_symbol_get_type (void) G_GNUC_CONST;
+ImportSymbol* import_symbol_new (void);
+
+G_END_DECLS
+
+#endif /* _IMPORT_SYMBOL_H_ */
diff --git a/plugins/language-support-js/js-context.c b/plugins/language-support-js/js-context.c
new file mode 120000
index 0000000..55a2bcd
--- /dev/null
+++ b/plugins/language-support-js/js-context.c
@@ -0,0 +1 @@
+../symbol-db/anjuta-tags/parser/js-context.c
\ No newline at end of file
diff --git a/plugins/language-support-js/js-context.h b/plugins/language-support-js/js-context.h
new file mode 120000
index 0000000..6fe3e6c
--- /dev/null
+++ b/plugins/language-support-js/js-context.h
@@ -0,0 +1 @@
+../symbol-db/anjuta-tags/parser/js-context.h
\ No newline at end of file
diff --git a/plugins/language-support-js/js-node.c b/plugins/language-support-js/js-node.c
new file mode 120000
index 0000000..3727029
--- /dev/null
+++ b/plugins/language-support-js/js-node.c
@@ -0,0 +1 @@
+../symbol-db/anjuta-tags/parser/js-node.c
\ No newline at end of file
diff --git a/plugins/language-support-js/js-node.h b/plugins/language-support-js/js-node.h
new file mode 120000
index 0000000..feabe2e
--- /dev/null
+++ b/plugins/language-support-js/js-node.h
@@ -0,0 +1 @@
+../symbol-db/anjuta-tags/parser/js-node.h
\ No newline at end of file
diff --git a/plugins/language-support-js/js_support_plugin.plugin.in b/plugins/language-support-js/js_support_plugin.plugin.in
new file mode 100644
index 0000000..a04808d
--- /dev/null
+++ b/plugins/language-support-js/js_support_plugin.plugin.in
@@ -0,0 +1,7 @@
+[Anjuta Plugin]
+Location=js_support_plugin:JSLang
+Icon=js_support_plugin.png
+_Name=JS Support Plugin
+_Description=JavaScript Support Plugin
+Interfaces=IAnjutaPreferences
+
diff --git a/plugins/language-support-js/js_support_plugin.png b/plugins/language-support-js/js_support_plugin.png
new file mode 100644
index 0000000..0fe99c5
Binary files /dev/null and b/plugins/language-support-js/js_support_plugin.png differ
diff --git a/plugins/language-support-js/jsparse.c b/plugins/language-support-js/jsparse.c
new file mode 120000
index 0000000..3b55efe
--- /dev/null
+++ b/plugins/language-support-js/jsparse.c
@@ -0,0 +1 @@
+../symbol-db/anjuta-tags/parser/jsparse.c
\ No newline at end of file
diff --git a/plugins/language-support-js/jsparse.h b/plugins/language-support-js/jsparse.h
new file mode 120000
index 0000000..cddae7a
--- /dev/null
+++ b/plugins/language-support-js/jsparse.h
@@ -0,0 +1 @@
+../symbol-db/anjuta-tags/parser/jsparse.h
\ No newline at end of file
diff --git a/plugins/language-support-js/jstypes.h b/plugins/language-support-js/jstypes.h
new file mode 120000
index 0000000..7e94d11
--- /dev/null
+++ b/plugins/language-support-js/jstypes.h
@@ -0,0 +1 @@
+../symbol-db/anjuta-tags/parser/jstypes.h
\ No newline at end of file
diff --git a/plugins/language-support-js/lex.yy.c b/plugins/language-support-js/lex.yy.c
new file mode 120000
index 0000000..3c6c8b3
--- /dev/null
+++ b/plugins/language-support-js/lex.yy.c
@@ -0,0 +1 @@
+../symbol-db/anjuta-tags/parser/lex.yy.c
\ No newline at end of file
diff --git a/plugins/language-support-js/lex.yy.h b/plugins/language-support-js/lex.yy.h
new file mode 120000
index 0000000..6944fe2
--- /dev/null
+++ b/plugins/language-support-js/lex.yy.h
@@ -0,0 +1 @@
+../symbol-db/anjuta-tags/parser/lex.yy.h
\ No newline at end of file
diff --git a/plugins/language-support-js/local-symbol.c b/plugins/language-support-js/local-symbol.c
new file mode 100644
index 0000000..969ff9e
--- /dev/null
+++ b/plugins/language-support-js/local-symbol.c
@@ -0,0 +1,227 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#include <string.h>
+#include <gio/gio.h>
+
+#include "ijs-symbol.h"
+#include "node-symbol.h"
+#include "local-symbol.h"
+#include "util.h"
+
+static void local_symbol_interface_init (IJsSymbolIface *iface);
+static GList* local_symbol_get_arg_list (IJsSymbol *obj);
+static gint local_symbol_get_base_type (IJsSymbol *obj);
+static GList* local_symbol_get_func_ret_type (IJsSymbol *obj);
+static IJsSymbol* local_symbol_get_member (IJsSymbol *obj, const gchar * name);
+static const gchar * local_symbol_get_name (IJsSymbol *obj);
+static GList* local_symbol_list_member (IJsSymbol *obj);
+
+static GList* get_var_list (gint lineno, JSContext *my_cx);
+
+G_DEFINE_TYPE_WITH_CODE (LocalSymbol, local_symbol, G_TYPE_OBJECT,
+ G_IMPLEMENT_INTERFACE (IJS_TYPE_SYMBOL,
+ local_symbol_interface_init));
+
+typedef struct _LocalSymbolPrivate LocalSymbolPrivate;
+struct _LocalSymbolPrivate
+{
+ JSContext *my_cx;
+ JSNode *node;
+ GList *missed_semicolon;
+ gchar *self_name;
+ GList *calls;
+};
+
+#define LOCAL_SYMBOL_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE ((o), LOCAL_TYPE_SYMBOL, LocalSymbolPrivate))
+
+static void
+local_symbol_init (LocalSymbol *object)
+{
+ LocalSymbolPrivate *priv = LOCAL_SYMBOL_PRIVATE (object);
+ priv->my_cx = NULL;
+ priv->node = NULL;
+ priv->self_name = NULL;
+ priv->calls = NULL;
+ priv->missed_semicolon = NULL;
+}
+
+static void
+local_symbol_finalize (GObject *object)
+{
+ LocalSymbolPrivate *priv = LOCAL_SYMBOL_PRIVATE (object);
+
+ g_list_free (priv->calls);
+ g_list_free (priv->missed_semicolon);
+ g_free (priv->self_name);
+ if (priv->my_cx)
+ g_object_unref (priv->my_cx);
+ if (priv->node)
+ g_object_unref (priv->node);
+
+ G_OBJECT_CLASS (local_symbol_parent_class)->finalize (object);
+}
+
+static void
+local_symbol_class_init (LocalSymbolClass *klass)
+{
+ GObjectClass* object_class = G_OBJECT_CLASS (klass);
+ /*GObjectClass* parent_class = G_OBJECT_CLASS (klass);*/
+
+ g_type_class_add_private (klass, sizeof (LocalSymbolPrivate));
+
+ object_class->finalize = local_symbol_finalize;
+}
+
+
+LocalSymbol*
+local_symbol_new (const gchar *filename)
+{
+ LocalSymbol* ret = LOCAL_SYMBOL (g_object_new (LOCAL_TYPE_SYMBOL, NULL));
+ LocalSymbolPrivate *priv = LOCAL_SYMBOL_PRIVATE (ret);
+
+ priv->node = js_node_new_from_file (filename);
+ if (priv->node)
+ {
+ priv->missed_semicolon = g_list_copy (js_node_get_lines_missed_semicolon (priv->node));
+ priv->calls = NULL;
+ priv->my_cx = js_context_new_from_node (priv->node, &priv->calls);
+
+ GFile *file = g_file_new_for_path (filename);
+ priv->self_name = g_file_get_basename (file);
+ g_object_unref (file);
+ if (strcmp (priv->self_name + strlen (priv->self_name) - 3, ".js") == 0)
+ priv->self_name[strlen (priv->self_name) - 3] = '\0';
+ }
+ return ret;
+}
+
+GList*
+local_symbol_get_missed_semicolons (LocalSymbol* object)
+{
+ g_assert (LOCAL_IS_SYMBOL (object));
+ LocalSymbolPrivate *priv = LOCAL_SYMBOL_PRIVATE (object);
+ return priv->missed_semicolon;
+}
+
+GList*
+local_symbol_list_member_with_line (LocalSymbol* object, gint line)
+{
+ g_assert (LOCAL_IS_SYMBOL (object));
+ LocalSymbolPrivate *priv = LOCAL_SYMBOL_PRIVATE (object);
+ if (!priv->my_cx || !priv->node)
+ return NULL;
+ return get_var_list(line, priv->my_cx);
+}
+
+static void
+local_symbol_interface_init (IJsSymbolIface *iface)
+{
+ iface->get_arg_list = local_symbol_get_arg_list;
+ iface->get_base_type = local_symbol_get_base_type;
+ iface->get_func_ret_type = local_symbol_get_func_ret_type;
+
+ iface->get_member = local_symbol_get_member;
+ iface->get_name = local_symbol_get_name;
+ iface->list_member = local_symbol_list_member;
+}
+
+static GList*
+local_symbol_get_arg_list (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static gint
+local_symbol_get_base_type (IJsSymbol *obj)
+{
+ return BASE_CLASS;
+}
+
+static GList*
+local_symbol_get_func_ret_type (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static IJsSymbol*
+local_symbol_get_member (IJsSymbol *obj, const gchar * name)
+{
+ LocalSymbol* self = LOCAL_SYMBOL (obj);
+ LocalSymbolPrivate *priv = LOCAL_SYMBOL_PRIVATE (self);
+
+ if (!priv->my_cx || !priv->node)
+ return NULL;
+
+ JSNode *node = js_context_get_last_assignment (priv->my_cx, name);
+ if (node)
+ return IJS_SYMBOL (node_symbol_new (node, name, priv->my_cx));
+
+ return NULL;
+}
+
+static const gchar *
+local_symbol_get_name (IJsSymbol *obj)
+{
+ LocalSymbol* self = LOCAL_SYMBOL (obj);
+ LocalSymbolPrivate *priv = LOCAL_SYMBOL_PRIVATE (self);
+
+ return g_strdup (priv->self_name);
+}
+
+static GList*
+local_symbol_list_member (IJsSymbol *obj)
+{
+ LocalSymbol* self = LOCAL_SYMBOL (obj);
+ LocalSymbolPrivate *priv = LOCAL_SYMBOL_PRIVATE (self);
+
+ if (!priv->my_cx || !priv->node)
+ return NULL;
+
+ return get_var_list(0, priv->my_cx);
+}
+
+static GList*
+get_var_list (gint lineno, JSContext *my_cx)
+{
+ GList *i, *ret = NULL;
+ for (i = my_cx->local_var; i; i = g_list_next (i))
+ {
+ Var *t = (Var *)i->data;
+ if (!t->name)
+ continue;
+ ret = g_list_append (ret, g_strdup (t->name));
+ }
+ for (i = g_list_last (my_cx->childs); i; i = g_list_previous (i))
+ {
+ JSContext *t = JS_CONTEXT (i->data);
+ if (lineno)
+ if (t->bline > lineno || t->eline + 2 < lineno)
+ continue;
+ ret = g_list_concat (ret, get_var_list (lineno, t));
+ }
+ if (my_cx->func_name && lineno != 0)
+ {
+ for (i = my_cx->func_arg; i; i = g_list_next (i))
+ ret = g_list_append (ret, g_strdup ((gchar*)i->data));
+ }
+ return ret;
+}
diff --git a/plugins/language-support-js/local-symbol.h b/plugins/language-support-js/local-symbol.h
new file mode 100644
index 0000000..8238431
--- /dev/null
+++ b/plugins/language-support-js/local-symbol.h
@@ -0,0 +1,54 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _LOCAL_SYMBOL_H_
+#define _LOCAL_SYMBOL_H_
+
+#include <glib-object.h>
+
+G_BEGIN_DECLS
+
+#define LOCAL_TYPE_SYMBOL (local_symbol_get_type ())
+#define LOCAL_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), LOCAL_TYPE_SYMBOL, LocalSymbol))
+#define LOCAL_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), LOCAL_TYPE_SYMBOL, LocalSymbolClass))
+#define LOCAL_IS_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), LOCAL_TYPE_SYMBOL))
+#define LOCAL_IS_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), LOCAL_TYPE_SYMBOL))
+#define LOCAL_SYMBOL_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), LOCAL_TYPE_SYMBOL, LocalSymbolClass))
+
+typedef struct _LocalSymbolClass LocalSymbolClass;
+typedef struct _LocalSymbol LocalSymbol;
+
+struct _LocalSymbolClass
+{
+ GObjectClass parent_class;
+};
+
+struct _LocalSymbol
+{
+ GObject parent_instance;
+};
+
+GType local_symbol_get_type (void) G_GNUC_CONST;
+LocalSymbol* local_symbol_new (const gchar *filename);
+GList* local_symbol_list_member_with_line (LocalSymbol* object, gint line);
+GList* local_symbol_get_missed_semicolons (LocalSymbol* object);
+
+G_END_DECLS
+
+#endif /* _LOCAL_SYMBOL_H_ */
diff --git a/plugins/language-support-js/node-symbol.c b/plugins/language-support-js/node-symbol.c
new file mode 100644
index 0000000..8a5510f
--- /dev/null
+++ b/plugins/language-support-js/node-symbol.c
@@ -0,0 +1,240 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+#include <string.h>
+
+#include "node-symbol.h"
+#include "ijs-symbol.h"
+#include "util.h"
+
+static void node_symbol_interface_init (IJsSymbolIface *iface);
+static GList* node_symbol_get_arg_list (IJsSymbol *obj);
+static gint node_symbol_get_base_type (IJsSymbol *obj);
+static GList* node_symbol_get_func_ret_type (IJsSymbol *obj);
+static IJsSymbol* node_symbol_get_member (IJsSymbol *obj, const gchar * name);
+static const gchar * node_symbol_get_name (IJsSymbol *obj);
+static GList* node_symbol_list_member (IJsSymbol *obj);
+
+static gchar* get_complex_node_type (JSNode *node, JSContext *my_cx);
+
+typedef struct _NodeSymbolPrivate NodeSymbolPrivate;
+struct _NodeSymbolPrivate
+{
+ gchar * name;
+ JSNode *node;
+ JSContext *my_cx;
+};
+
+#define NODE_SYMBOL_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE ((o), NODE_TYPE_SYMBOL, NodeSymbolPrivate))
+
+G_DEFINE_TYPE_WITH_CODE (NodeSymbol, node_symbol, G_TYPE_OBJECT,
+ G_IMPLEMENT_INTERFACE (IJS_TYPE_SYMBOL,
+ node_symbol_interface_init));
+
+static void
+node_symbol_init (NodeSymbol *object)
+{
+ NodeSymbolPrivate *priv = NODE_SYMBOL_PRIVATE(object);
+ priv->name = NULL;
+ priv->node = NULL;
+ priv->my_cx = NULL;
+}
+
+static void
+node_symbol_finalize (GObject *object)
+{
+ NodeSymbolPrivate *priv = NODE_SYMBOL_PRIVATE(object);
+
+ g_free (priv->name);
+ if (priv->node)
+ g_object_unref (priv->node);
+ if (priv->my_cx)
+ g_object_unref (priv->my_cx);
+ G_OBJECT_CLASS (node_symbol_parent_class)->finalize (object);
+}
+
+static void
+node_symbol_class_init (NodeSymbolClass *klass)
+{
+ GObjectClass* object_class = G_OBJECT_CLASS (klass);
+ /*GObjectClass* parent_class = G_OBJECT_CLASS (klass);*/
+
+ g_type_class_add_private (klass, sizeof (NodeSymbolPrivate));
+
+ object_class->finalize = node_symbol_finalize;
+}
+
+
+NodeSymbol*
+node_symbol_new (JSNode *node, const gchar *name, JSContext *my_cx)
+{
+ NodeSymbol* ret = NODE_SYMBOL (g_object_new (NODE_TYPE_SYMBOL, NULL));
+ NodeSymbolPrivate *priv = NODE_SYMBOL_PRIVATE(ret);
+
+ g_return_val_if_fail (node != NULL && name != NULL && my_cx != NULL, NULL);
+
+ priv->node = node;
+ priv->name = g_strdup (name);
+ priv->my_cx = my_cx;
+ g_object_ref (node);
+ g_object_ref (my_cx);
+ return ret;
+}
+
+static void
+node_symbol_interface_init (IJsSymbolIface *iface)
+{
+ iface->get_arg_list = node_symbol_get_arg_list;
+ iface->get_base_type = node_symbol_get_base_type;
+ iface->get_func_ret_type = node_symbol_get_func_ret_type;
+
+ iface->get_member = node_symbol_get_member;
+ iface->get_name = node_symbol_get_name;
+ iface->list_member = node_symbol_list_member;
+}
+
+static GList*
+node_symbol_get_arg_list (IJsSymbol *obj)
+{
+ NodeSymbol* self = NODE_SYMBOL (obj);
+ NodeSymbolPrivate *priv = NODE_SYMBOL_PRIVATE(self);
+
+ if ((JSNodeArity)priv->node->pn_arity != PN_FUNC)
+ {
+ g_assert_not_reached ();
+ return NULL;
+ }
+
+ GList *ret = NULL;
+
+ if (priv->node->pn_u.func.args)
+ {
+ JSNode *i;
+ JSNode *args = priv->node->pn_u.func.args;
+
+ g_assert (args->pn_arity == PN_LIST);
+
+ for (i = args->pn_u.list.head; i; i = i->pn_next)
+ {
+ ret = g_list_append (ret, g_strdup (js_node_get_name (i)));
+ }
+ }
+
+ return ret;
+}
+
+static gint
+node_symbol_get_base_type (IJsSymbol *obj)
+{
+ NodeSymbol* self = NODE_SYMBOL (obj);
+ NodeSymbolPrivate *priv = NODE_SYMBOL_PRIVATE(self);
+
+ if ((JSNodeArity)priv->node->pn_arity == PN_FUNC)
+ return BASE_FUNC;
+ return BASE_CLASS;
+}
+
+static GList*
+node_symbol_get_func_ret_type (IJsSymbol *obj)
+{
+ NodeSymbol* self = NODE_SYMBOL (obj);
+ NodeSymbolPrivate *priv = NODE_SYMBOL_PRIVATE(self);
+
+ if (priv->node->pn_arity != PN_FUNC)
+ return NULL;
+ return js_context_get_func_ret_type (priv->my_cx, priv->name);
+}
+
+static IJsSymbol*
+node_symbol_get_member (IJsSymbol *obj, const gchar * name)
+{
+ NodeSymbol* self = NODE_SYMBOL (obj);
+ NodeSymbolPrivate *priv = NODE_SYMBOL_PRIVATE(self);
+
+ gchar *tname = get_complex_node_type (priv->node, priv->my_cx);
+ if (!tname)
+ return NULL;
+
+ if (js_context_get_member_list (priv->my_cx, tname)) //TODO:Fix mem leak
+ {
+ return IJS_SYMBOL (
+ node_symbol_new (js_context_get_member (priv->my_cx, tname, name),
+ name, priv->my_cx));
+ }
+ IJsSymbol *t = global_search (tname);
+ if (t)
+ return ijs_symbol_get_member (t, name);
+
+ return NULL;
+}
+
+static const gchar *
+node_symbol_get_name (IJsSymbol *obj)
+{
+ NodeSymbol* self = NODE_SYMBOL (obj);
+ NodeSymbolPrivate *priv = NODE_SYMBOL_PRIVATE(self);
+
+ gchar *tname = get_complex_node_type (priv->node, priv->my_cx);
+ if (tname)
+ return tname;
+
+ return g_strdup (priv->name);
+}
+
+static GList*
+node_symbol_list_member (IJsSymbol *obj)
+{
+ NodeSymbol* self = NODE_SYMBOL (obj);
+ NodeSymbolPrivate *priv = NODE_SYMBOL_PRIVATE(self);
+
+ gchar *name = get_complex_node_type (priv->node, priv->my_cx);
+
+ if (!name)
+ return NULL;
+ GList *t = js_context_get_member_list (priv->my_cx, name);
+ if (t)
+ return t;
+
+ IJsSymbol *sym = global_search (name);
+ if (sym)
+ return ijs_symbol_list_member (sym);
+ return NULL;
+}
+
+static gchar*
+get_complex_node_type (JSNode *node, JSContext *my_cx)
+{
+ Type *name = js_context_get_node_type (my_cx, node);
+ if (!name)
+ return NULL;
+
+ if (!name->isFuncCall)
+ return name->name;
+
+ IJsSymbol* sym = global_search (name->name);
+ if (sym && ijs_symbol_get_base_type (sym) == BASE_FUNC)
+ {
+ GList *ret = ijs_symbol_get_func_ret_type (sym);
+ if (ret)
+ {
+ g_assert (ret->data != NULL);
+ return (gchar*)ret->data;
+ }
+ }
+ return NULL;
+}
diff --git a/plugins/language-support-js/node-symbol.h b/plugins/language-support-js/node-symbol.h
new file mode 100644
index 0000000..6cdca21
--- /dev/null
+++ b/plugins/language-support-js/node-symbol.h
@@ -0,0 +1,54 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _NODE_SYMBOL_H_
+#define _NODE_SYMBOL_H_
+
+#include <glib-object.h>
+
+#include "jsparse.h"
+
+G_BEGIN_DECLS
+
+#define NODE_TYPE_SYMBOL (node_symbol_get_type ())
+#define NODE_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), NODE_TYPE_SYMBOL, NodeSymbol))
+#define NODE_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), NODE_TYPE_SYMBOL, NodeSymbolClass))
+#define NODE_IS_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), NODE_TYPE_SYMBOL))
+#define NODE_IS_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), NODE_TYPE_SYMBOL))
+#define NODE_SYMBOL_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), NODE_TYPE_SYMBOL, NodeSymbolClass))
+
+typedef struct _NodeSymbolClass NodeSymbolClass;
+typedef struct _NodeSymbol NodeSymbol;
+
+struct _NodeSymbolClass
+{
+ GObjectClass parent_class;
+};
+
+struct _NodeSymbol
+{
+ GObject parent_instance;
+};
+
+GType node_symbol_get_type (void) G_GNUC_CONST;
+NodeSymbol* node_symbol_new (JSNode *node, const gchar *name, JSContext *my_cx);
+
+G_END_DECLS
+
+#endif /* _NODE_SYMBOL_H_ */
diff --git a/plugins/language-support-js/plugin.c b/plugins/language-support-js/plugin.c
new file mode 100644
index 0000000..f8dad67
--- /dev/null
+++ b/plugins/language-support-js/plugin.c
@@ -0,0 +1,625 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#include <config.h>
+#include <libanjuta/anjuta-shell.h>
+#include <libanjuta/anjuta-session.h>
+#include <libanjuta/anjuta-debug.h>
+#include <libanjuta/interfaces/ianjuta-document-manager.h>
+#include <libanjuta/interfaces/ianjuta-project-manager.h>
+#include <libanjuta/interfaces/ianjuta-editor-assist.h>
+#include <libanjuta/interfaces/ianjuta-language.h>
+#include <libanjuta/interfaces/ianjuta-preferences.h>
+#include <ctype.h>
+
+#include <glib.h>
+#include "util.h"
+#include "plugin.h"
+#include "code-completion.h"
+
+#include "gi-symbol.h"
+
+#define PREFS_BUILDER ANJUTA_GLADE_DIR"/anjuta-language-javascript.ui"
+#define ICON_FILE "anjuta-language-cpp-java-plugin.png"
+#define UI_FILE ANJUTA_UI_DIR"/anjuta-language-javascript.xml"
+
+#define AUTO_CODECOMPLETE "javascript.auto"
+#define ADD_BRACE_AFTER_FUNCCALL "javascript.add_brace_after_func"
+#define SHOW_CALLTIPS "javascript.show_calltips"
+
+#define JSDIRS_LISTSTORE "jsdirs_liststore"
+#define JSDIRS_TREEVIEW "jsdirs_treeview"
+
+static gpointer parent_class;
+
+static void
+on_code_complete (GtkAction * action, JSLang *plugin);
+
+static void
+on_value_added_current_editor (AnjutaPlugin *plugin, const gchar *name,
+ const GValue *value, gpointer data);
+static void
+on_value_removed_current_editor (AnjutaPlugin *plugin, const gchar *name,
+ gpointer data);
+
+/*Export for GtkBuilder*/
+G_MODULE_EXPORT void
+on_jsdirs_rm_button_clicked (GtkButton *button, gpointer user_data);
+G_MODULE_EXPORT void
+on_jsdirs_add_button_clicked (GtkButton *button, gpointer user_data);
+
+
+static GtkActionEntry actions[] = {
+ { "CodeComplete", GTK_STOCK_DIALOG_INFO, N_("_Code Complete..."), "<control>space",
+ NULL, G_CALLBACK (on_code_complete)},
+};
+
+static gboolean
+js_support_plugin_activate (AnjutaPlugin *plugin)
+{
+ JSLang *js_support_plugin;
+
+ DEBUG_PRINT ("%s", "JSLang: Activating JSLang plugin ...");
+ js_support_plugin = (JSLang*) plugin;
+ js_support_plugin->editor_watch_id =
+ anjuta_plugin_add_watch (plugin,
+ IANJUTA_DOCUMENT_MANAGER_CURRENT_DOCUMENT,
+ on_value_added_current_editor,
+ on_value_removed_current_editor,
+ plugin);
+
+ return TRUE;
+}
+
+static gboolean
+js_support_plugin_deactivate (AnjutaPlugin *plugin)
+{
+ JSLang *js_support_plugin;
+
+ DEBUG_PRINT ("%s", "JSLang: Dectivating JSLang plugin ...");
+ js_support_plugin = (JSLang*) plugin;
+ anjuta_plugin_remove_watch (plugin,
+ js_support_plugin->editor_watch_id,
+ TRUE);
+ return TRUE;
+}
+
+static void
+js_support_plugin_finalize (GObject *obj)
+{
+ JSLang *self = (JSLang*)obj;
+
+ g_object_unref (self->symbol);
+ self->symbol = NULL;
+ g_list_free (self->complition_cache);
+ self->complition_cache = NULL;
+
+ G_OBJECT_CLASS (parent_class)->finalize (obj);
+}
+
+static void
+js_support_plugin_dispose (GObject *obj)
+{
+ JSLang *self = (JSLang*)obj;
+
+ g_assert (self != NULL);
+
+ g_object_unref (self->symbol);
+ self->symbol = NULL;
+ g_list_free (self->complition_cache);
+ self->complition_cache = NULL;
+
+ G_OBJECT_CLASS (parent_class)->dispose (obj);
+}
+
+static void
+js_support_plugin_instance_init (GObject *obj)
+{
+ JSLang *plugin = (JSLang*)obj;
+ plugin->complition_cache = NULL;
+ plugin->current = NULL;
+ plugin->prefs = NULL;
+ plugin->symbol = NULL;
+ plugin->action_group = NULL;
+}
+
+static void
+js_support_plugin_class_init (GObjectClass *klass)
+{
+ AnjutaPluginClass *plugin_class = ANJUTA_PLUGIN_CLASS (klass);
+
+ parent_class = g_type_class_peek_parent (klass);
+
+ plugin_class->activate = js_support_plugin_activate;
+ plugin_class->deactivate = js_support_plugin_deactivate;
+ klass->finalize = js_support_plugin_finalize;
+ klass->dispose = js_support_plugin_dispose;
+}
+
+static void
+on_editor_char_inserted (IAnjutaEditor *editor,
+ IAnjutaIterable *insert_pos,
+ gchar ch,
+ JSLang *plugin)
+{
+ DEBUG_PRINT ("JSLang: Insert char %c \"%s\"", ch, plugin->current);
+ if (ianjuta_editor_assist_tip_shown (IANJUTA_EDITOR_ASSIST (editor), NULL))
+ {
+ plugin->current = NULL;
+ plugin->complition_cache = NULL;
+ }
+ if (ch == ')')
+ ianjuta_editor_assist_cancel_tips (IANJUTA_EDITOR_ASSIST (editor), NULL);
+
+ if (!isalnum(ch) && ch != '.')
+ {
+ plugin->current = NULL;
+ plugin->complition_cache = NULL;
+ return;
+ }
+ gchar *str = code_completion_get_str (editor, TRUE);
+ if (!str)
+ return;
+ if (plugin->current)
+ {
+ if (strncmp (plugin->current, str, strlen (plugin->current)) != 0)
+ {
+ plugin->current = NULL;
+ plugin->complition_cache = NULL;
+ DEBUG_PRINT ("JSLang: Incorrect string");
+ return;
+ }
+ GList *tmp;
+ IAnjutaIterable *position = ianjuta_editor_get_position (IANJUTA_EDITOR (editor), NULL);
+ plugin->current = g_strdup_printf ("%s%c", plugin->current, ch);
+ DEBUG_PRINT ("JSLang: Continue completion for %s ", plugin->current);
+ tmp = filter_list (plugin->complition_cache, plugin->current);
+ if (tmp)
+ ianjuta_editor_assist_suggest (IANJUTA_EDITOR_ASSIST (editor),
+ tmp,
+ position,
+ /*alignment*/1 - strlen (plugin->current),
+ NULL);
+ else
+ ianjuta_editor_assist_hide_suggestions (IANJUTA_EDITOR_ASSIST (editor), NULL);
+ return;
+ }
+ if (!plugin->prefs)
+ plugin->prefs = anjuta_shell_get_preferences (ANJUTA_PLUGIN (plugin)->shell, NULL);
+ if (!anjuta_preferences_get_bool (plugin->prefs, AUTO_CODECOMPLETE))
+ {
+ DEBUG_PRINT ("JSLang: Auto code complete off");
+ return;
+ }
+ gint depth;
+ IAnjutaIterable *position = ianjuta_editor_get_position (IANJUTA_EDITOR (editor), NULL);
+ GList *suggestions = NULL;
+ gchar *file = file_completion (editor, &depth);
+ DEBUG_PRINT ("JSLang: Auto complete for %s (TMFILE=%s)", str, file);
+ if (ch == '.')
+ {
+ suggestions = code_completion_get_list (plugin, file, str, depth);
+ plugin->complition_cache = suggestions;
+ ianjuta_editor_assist_suggest (IANJUTA_EDITOR_ASSIST (editor),
+ suggestions,
+ position,
+ /*alignment*/1,
+ NULL);
+ plugin->current = g_strdup ("");
+ DEBUG_PRINT ("JSLang: Auto complete for '%s'", plugin->current);
+ } else
+ {
+ suggestions = code_completion_get_list (plugin, file, NULL, depth);
+ if (suggestions)
+ {
+ plugin->complition_cache = suggestions;
+ suggestions = filter_list (suggestions, str);
+ ianjuta_editor_assist_suggest (IANJUTA_EDITOR_ASSIST (editor),
+ suggestions,
+ position,
+ /*alignment*/1,
+ NULL);
+ plugin->current = g_strdup (str);
+ }
+ }
+}
+
+static void
+on_assist_chosen (IAnjutaEditorAssist* iassist, gint selection,
+ JSLang *plugin)
+{
+ DEBUG_PRINT ("%s %d", "JSLang: assist_chosen", selection);
+ IAnjutaIterable *position = ianjuta_editor_get_position (IANJUTA_EDITOR (iassist), NULL);
+ GList *tmp = g_list_nth (filter_list (plugin->complition_cache, plugin->current), selection);
+ if (tmp)
+ {
+ gchar *str = tmp->data;
+
+ g_assert (strlen (str) >= strlen (plugin->current));
+
+ if (strlen (str) > strlen (plugin->current))
+ {
+ ianjuta_editor_insert (IANJUTA_EDITOR (iassist), position, str + strlen (plugin->current), -1, NULL);
+
+ gchar *sym = code_completion_get_str (IANJUTA_EDITOR (iassist), FALSE);
+ g_assert (sym != NULL);
+
+ if (sym && code_completion_is_symbol_func (plugin, sym))
+ {
+ position = ianjuta_editor_get_position (IANJUTA_EDITOR (iassist), NULL);
+
+ if (anjuta_preferences_get_bool (plugin->prefs, ADD_BRACE_AFTER_FUNCCALL))
+ {
+ ianjuta_editor_insert (IANJUTA_EDITOR (iassist), position, " (", -1, NULL);
+ }
+ if (anjuta_preferences_get_bool (plugin->prefs, SHOW_CALLTIPS))
+ {
+
+ GList *t = NULL;
+ gchar *args = code_completion_get_func_tooltip (plugin, sym);
+ t = g_list_append (t, args);
+ if (args)
+ {
+ ianjuta_editor_assist_show_tips (iassist, t, position, 1, NULL);
+ g_free (args);
+ }
+ }
+ }
+ g_free (sym);
+ }
+ }
+ ianjuta_editor_assist_hide_suggestions (iassist, NULL);
+ plugin->current = NULL;
+ plugin->complition_cache = NULL;
+}
+
+static void
+on_editor_backspace (IAnjutaEditor* editor, JSLang *plugin)
+{
+ DEBUG_PRINT ("%s (%s)", "JSLang: editor backspace ", plugin->current);
+
+ ianjuta_editor_assist_cancel_tips (IANJUTA_EDITOR_ASSIST (editor), NULL);
+
+ if (!plugin->current)
+ return;
+ int size = strlen (plugin->current);
+ if (size == 0)
+ {
+ ianjuta_editor_assist_hide_suggestions (IANJUTA_EDITOR_ASSIST (editor), NULL);
+ plugin->current = NULL;
+ }
+ else
+ {
+ IAnjutaIterable *position = ianjuta_editor_get_position (IANJUTA_EDITOR (editor), NULL);
+ GList *tmp;
+ plugin->current[size - 1] = '\0';
+ tmp = filter_list (plugin->complition_cache, plugin->current);
+ if (tmp)
+ ianjuta_editor_assist_suggest (IANJUTA_EDITOR_ASSIST (editor),
+ tmp,
+ position,
+ /*alignment*/1 - strlen (plugin->current),
+ NULL);
+ else
+ ianjuta_editor_assist_hide_suggestions (IANJUTA_EDITOR_ASSIST (editor), NULL);
+ }
+}
+
+static void
+install_support (JSLang *plugin)
+{
+ AnjutaUI *ui;
+ const gchar *lang;
+ IAnjutaLanguage* lang_manager;
+
+ setPlugin (plugin);
+
+ if (!IANJUTA_IS_EDITOR (plugin->current_editor))
+ return;
+ lang_manager = anjuta_shell_get_interface (ANJUTA_PLUGIN (plugin)->shell,
+ IAnjutaLanguage, NULL);
+ if (!lang_manager)
+ return;
+ lang = ianjuta_language_get_name_from_editor (lang_manager,
+ IANJUTA_EDITOR_LANGUAGE (plugin->current_editor), NULL);
+ if (!lang || !g_str_equal (lang, "JavaScript"))
+ return;
+ DEBUG_PRINT ("%s", "JSLang: Install support");
+
+ g_signal_connect (plugin->current_editor,
+ "char-added",
+ G_CALLBACK (on_editor_char_inserted),
+ plugin);
+ g_signal_connect (plugin->current_editor, "assist-chosen",
+ G_CALLBACK(on_assist_chosen), plugin);
+ g_signal_connect (plugin->current_editor, "backspace",
+ G_CALLBACK (on_editor_backspace), plugin);
+ ui = anjuta_shell_get_ui (ANJUTA_PLUGIN (plugin)->shell, NULL);
+ plugin->action_group = anjuta_ui_add_action_group_entries (ui, "ActionGroupCodeComplete",
+ _("Code Complete"),
+ actions,
+ G_N_ELEMENTS (actions),
+ GETTEXT_PACKAGE, TRUE, plugin);
+ plugin->uiid = anjuta_ui_merge (ui, UI_FILE);
+}
+
+static void
+uninstall_support (JSLang *plugin)
+{
+ AnjutaUI *ui;
+ DEBUG_PRINT ("%s", "JSLang: Uninstall support");
+ if (IANJUTA_IS_EDITOR(plugin->current_editor))
+ {
+ g_signal_handlers_disconnect_by_func (plugin->current_editor,
+ G_CALLBACK (on_editor_char_inserted),
+ plugin);
+ g_signal_handlers_disconnect_by_func (plugin->current_editor,
+ G_CALLBACK (on_assist_chosen),
+ plugin);
+ g_signal_handlers_disconnect_by_func (plugin->current_editor,
+ G_CALLBACK (on_editor_backspace),
+ plugin);
+ }
+ ui = anjuta_shell_get_ui (ANJUTA_PLUGIN (plugin)->shell, NULL);
+ if (plugin->action_group)
+ anjuta_ui_remove_action_group (ui, plugin->action_group);
+ anjuta_ui_unmerge (ui, plugin->uiid);
+}
+
+static void
+on_value_added_current_editor (AnjutaPlugin *plugin, const gchar *name,
+ const GValue *value, gpointer data)
+{
+ JSLang *js_support_plugin;
+ IAnjutaDocument* doc = IANJUTA_DOCUMENT(g_value_get_object (value));
+
+ DEBUG_PRINT ("%s", "JSLang: Add editor");
+
+ js_support_plugin = (JSLang*) plugin;
+ if (IANJUTA_IS_EDITOR(doc))
+ js_support_plugin->current_editor = G_OBJECT(doc);
+ else
+ {
+ js_support_plugin->current_editor = NULL;
+ return;
+ }
+ if (IANJUTA_IS_EDITOR(js_support_plugin->current_editor))
+ install_support (js_support_plugin);
+/* g_signal_connect (lang_plugin->current_editor, "language-changed",
+ G_CALLBACK (on_editor_language_changed),
+ plugin);*/
+}
+
+static void
+on_value_removed_current_editor (AnjutaPlugin *plugin, const gchar *name,
+ gpointer data)
+{
+ JSLang *js_support_plugin;
+
+ DEBUG_PRINT ("%s", "JSLang: Remove editor");
+
+ js_support_plugin = (JSLang*) plugin;
+/* if (js_support_plugin->current_editor)
+ g_signal_handlers_disconnect_by_func (lang_plugin->current_editor,
+ G_CALLBACK (on_editor_language_changed),
+ plugin);*/
+ if (IANJUTA_IS_EDITOR(js_support_plugin->current_editor))
+ uninstall_support (js_support_plugin);
+ js_support_plugin->current_editor = NULL;
+}
+
+static void
+on_code_complete (GtkAction * action, JSLang *plugin)
+{
+ DEBUG_PRINT ("JSLang: Short cut");
+ if (ianjuta_editor_assist_tip_shown (IANJUTA_EDITOR_ASSIST (plugin->current_editor), NULL))
+ {
+ plugin->current = NULL;
+ plugin->complition_cache = NULL;
+ }
+ if (plugin->current || !plugin->current_editor)
+ return;
+ gint depth;
+ IAnjutaIterable *position = ianjuta_editor_get_position (IANJUTA_EDITOR (plugin->current_editor), NULL);
+ GList *suggestions = NULL;
+ gchar *str = code_completion_get_str (IANJUTA_EDITOR (plugin->current_editor), FALSE);
+ if (!str)
+ return;
+ gchar *file = file_completion (IANJUTA_EDITOR (plugin->current_editor), &depth);
+ gint i;
+ DEBUG_PRINT ("JSLang: Auto complete for %s (TMFILE=%s)", str, file);
+ for (i = strlen (str) - 1; i; i--)
+ {
+ if (str[i] == '.')
+ break;
+ }
+ if (i > 0)
+ {
+ suggestions = code_completion_get_list (plugin, file, g_strndup (str, i), depth);
+ }
+ else
+ suggestions = code_completion_get_list (plugin, file, NULL, depth);
+ if (suggestions)
+ {
+ plugin->complition_cache = suggestions;
+ if (i > 0)
+ plugin->current = g_strdup (str + i + 1);
+ else
+ plugin->current = g_strdup (str);
+ suggestions = filter_list (suggestions, plugin->current);
+ ianjuta_editor_assist_suggest (IANJUTA_EDITOR_ASSIST (plugin->current_editor),
+ suggestions,
+ position,
+ /*alignment*/1,
+ NULL);
+ }
+}
+
+static void
+jsdirs_save (GtkTreeModel *list_store)
+{
+ GtkTreeIter iter;
+ const gchar *project_root = NULL;
+ anjuta_shell_get (ANJUTA_PLUGIN (getPlugin ())->shell,
+ IANJUTA_PROJECT_MANAGER_PROJECT_ROOT_URI,
+ G_TYPE_STRING, &project_root, NULL);
+
+ GFile *tmp = g_file_new_for_uri (project_root);
+ AnjutaSession *session = anjuta_session_new (g_file_get_path (tmp));
+ g_object_unref (tmp);
+
+ GList *dirs = NULL;
+ if (!gtk_tree_model_iter_children (list_store, &iter, NULL))
+ return;
+ do
+ {
+ gchar *dir;
+ gtk_tree_model_get (list_store, &iter, 0, &dir, -1);
+
+ g_assert (dir != NULL);
+
+ dirs = g_list_append (dirs, dir);
+ } while (gtk_tree_model_iter_next (list_store, &iter));
+ anjuta_session_set_string_list (session, "options", "js_dirs", dirs);
+ anjuta_session_sync (session);
+}
+
+G_MODULE_EXPORT void
+on_jsdirs_rm_button_clicked (GtkButton *button, gpointer user_data)
+{
+ GtkTreeIter iter;
+ GtkTreeView *tree = GTK_TREE_VIEW (user_data);
+ GtkTreeModel *list_store = gtk_tree_view_get_model (tree);
+ GtkTreeSelection *selection = gtk_tree_view_get_selection (tree);
+
+ if (!gtk_tree_selection_get_selected (selection, &list_store, &iter))
+ return;
+ gtk_list_store_remove (GTK_LIST_STORE (list_store), &iter);
+ jsdirs_save (list_store);
+}
+
+G_MODULE_EXPORT void
+on_jsdirs_add_button_clicked (GtkButton *button, gpointer user_data)
+{
+ GtkWidget *dialog;
+
+ g_assert (user_data != NULL);
+
+ GtkTreeView *tree = GTK_TREE_VIEW (user_data);
+ GtkListStore *list_store = GTK_LIST_STORE (gtk_tree_view_get_model (tree));
+
+ g_assert (list_store != NULL);
+
+ dialog = gtk_file_chooser_dialog_new ("Choose directory",
+ NULL,
+ GTK_FILE_CHOOSER_ACTION_SELECT_FOLDER,
+ GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,
+ GTK_STOCK_OPEN, GTK_RESPONSE_ACCEPT,
+ NULL);
+ if (gtk_dialog_run (GTK_DIALOG (dialog)) == GTK_RESPONSE_ACCEPT)
+ {
+ char *filename;
+ filename = gtk_file_chooser_get_filename (GTK_FILE_CHOOSER (dialog));
+ if (filename)
+ {
+ GtkTreeIter iter;
+ gtk_list_store_append (list_store, &iter);
+ gtk_list_store_set (list_store, &iter, 0, filename, -1);
+ g_free (filename);
+ }
+ jsdirs_save (GTK_TREE_MODEL (list_store));
+ }
+ gtk_widget_destroy (dialog);
+}
+
+static void
+jsdirs_init_treeview (GtkBuilder* bxml)
+{
+ const gchar *project_root = NULL;
+ GtkTreeIter iter;
+ GtkListStore *list_store = GTK_LIST_STORE (gtk_builder_get_object (bxml, JSDIRS_LISTSTORE));
+ if (!list_store)
+ return;
+
+ anjuta_shell_get (ANJUTA_PLUGIN (getPlugin ())->shell,
+ IANJUTA_PROJECT_MANAGER_PROJECT_ROOT_URI,
+ G_TYPE_STRING, &project_root, NULL);
+
+ GFile *tmp = g_file_new_for_uri (project_root);
+ AnjutaSession *session = anjuta_session_new (g_file_get_path (tmp));
+ g_object_unref (tmp);
+ GList* dir_list = anjuta_session_get_string_list (session, "options", "js_dirs");
+ GList *i;
+ gtk_list_store_clear (list_store);
+
+ for (i = dir_list; i; i = g_list_next (i))
+ {
+ gtk_list_store_append (list_store, &iter);
+ gtk_list_store_set (list_store, &iter, 0, i->data, -1);
+ }
+ if (!dir_list)
+ {
+ gtk_list_store_append (list_store, &iter);
+ gtk_list_store_set (list_store, &iter, 0, ".", -1);
+ }
+}
+
+static void
+ipreferences_merge (IAnjutaPreferences* ipref, AnjutaPreferences* prefs,
+ GError** e)
+{
+ GError* error = NULL;
+ GtkBuilder* bxml = gtk_builder_new ();
+
+ /* Add preferences */
+ if (!gtk_builder_add_from_file (bxml, PREFS_BUILDER, &error))
+ {
+ g_warning ("Couldn't load builder file: %s", error->message);
+ g_error_free (error);
+ }
+ GtkTreeView *tree = GTK_TREE_VIEW (gtk_builder_get_object (bxml, JSDIRS_TREEVIEW));
+
+ gtk_builder_connect_signals (bxml, tree);
+ jsdirs_init_treeview (bxml);
+ anjuta_preferences_add_from_builder (prefs,
+ bxml, "vbox1", _("JavaScript"),
+ ICON_FILE);
+ g_object_unref (bxml);
+}
+
+static void
+ipreferences_unmerge (IAnjutaPreferences* ipref, AnjutaPreferences* prefs,
+ GError** e)
+{
+ anjuta_preferences_remove_page(prefs, _("JavaScript"));
+}
+
+static void
+ipreferences_iface_init (IAnjutaPreferencesIface* iface)
+{
+ iface->merge = ipreferences_merge;
+ iface->unmerge = ipreferences_unmerge;
+}
+
+
+ANJUTA_PLUGIN_BEGIN (JSLang, js_support_plugin);
+ANJUTA_PLUGIN_ADD_INTERFACE(ipreferences, IANJUTA_TYPE_PREFERENCES);
+ANJUTA_PLUGIN_END;
+
+ANJUTA_SIMPLE_PLUGIN (JSLang, js_support_plugin);
diff --git a/plugins/language-support-js/plugin.h b/plugins/language-support-js/plugin.h
new file mode 100644
index 0000000..fd5e76a
--- /dev/null
+++ b/plugins/language-support-js/plugin.h
@@ -0,0 +1,48 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _JS_SUPPORT_PLUGIN_H_
+#define _JS_SUPPORT_PLUGIN_H_
+
+#include <libanjuta/anjuta-plugin.h>
+
+#include "database-symbol.h"
+
+typedef struct _JSLang JSLang;
+typedef struct _JSLangClass JSLangClass;
+
+struct _JSLang{
+ AnjutaPlugin parent;
+ gint editor_watch_id;
+ GObject *current_editor;
+ gchar *current;
+ GList *complition_cache;
+ gint uiid;
+ AnjutaPreferences *prefs;
+ DatabaseSymbol* symbol;
+ GtkActionGroup *action_group;
+};
+
+struct _JSLangClass{
+ AnjutaPluginClass parent_class;
+};
+
+GType js_support_plugin_get_type (GTypeModule *module);
+
+#endif
diff --git a/plugins/language-support-js/simple-symbol.c b/plugins/language-support-js/simple-symbol.c
new file mode 100644
index 0000000..bf138d2
--- /dev/null
+++ b/plugins/language-support-js/simple-symbol.c
@@ -0,0 +1,157 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#include "simple-symbol.h"
+
+static void simple_symbol_interface_init (IJsSymbolIface *iface);
+static GList* simple_symbol_get_arg_list (IJsSymbol *obj);
+static gint simple_symbol_get_base_type (IJsSymbol *obj);
+static GList* simple_symbol_get_func_ret_type (IJsSymbol *obj);
+static IJsSymbol* simple_symbol_get_member (IJsSymbol *obj, const gchar * name);
+static const gchar * simple_symbol_get_name (IJsSymbol *obj);
+static GList* simple_symbol_list_member (IJsSymbol *obj);
+
+G_DEFINE_TYPE_WITH_CODE (SimpleSymbol, simple_symbol, G_TYPE_OBJECT,
+ G_IMPLEMENT_INTERFACE (IJS_TYPE_SYMBOL,
+ simple_symbol_interface_init));
+
+static void
+simple_symbol_init (SimpleSymbol *object)
+{
+ object->name = NULL;
+ object->member = NULL;
+ object->ret_type = NULL;
+ object->args = NULL;
+}
+
+static void
+simple_symbol_finalize (GObject *obj)
+{
+ SimpleSymbol *self = SIMPLE_SYMBOL (obj);
+ g_free (self->name);
+
+ g_list_foreach (self->member, (GFunc)g_object_unref, NULL);
+ g_list_free (self->member);
+
+ g_list_foreach (self->ret_type, (GFunc)g_free, NULL);
+ g_list_free (self->ret_type);
+
+ g_list_foreach (self->args, (GFunc)g_free, NULL);
+ g_list_free (self->args);
+
+ G_OBJECT_CLASS (simple_symbol_parent_class)->finalize (obj);
+}
+
+static void
+simple_symbol_class_init (SimpleSymbolClass *klass)
+{
+ GObjectClass* object_class = G_OBJECT_CLASS (klass);
+ /*GObjectClass* parent_class = G_OBJECT_CLASS (klass);*/
+
+ object_class->finalize = simple_symbol_finalize;
+}
+
+
+SimpleSymbol*
+simple_symbol_new (void)
+{
+ return g_object_new (SIMPLE_TYPE_SYMBOL, NULL);
+}
+
+static void
+simple_symbol_interface_init (IJsSymbolIface *iface)
+{
+ iface->get_arg_list = simple_symbol_get_arg_list;
+ iface->get_base_type = simple_symbol_get_base_type;
+ iface->get_func_ret_type = simple_symbol_get_func_ret_type;
+ iface->get_member = simple_symbol_get_member;
+ iface->get_name = simple_symbol_get_name;
+ iface->list_member = simple_symbol_list_member;
+}
+
+static GList*
+simple_symbol_get_arg_list (IJsSymbol *obj)
+{
+ SimpleSymbol *symbol = SIMPLE_SYMBOL (obj);
+ GList* ret = NULL;
+ GList* i;
+ for (i = symbol->args; i; i = g_list_next (i))
+ {
+ ret = g_list_append (ret, g_strdup ((gchar*)i->data));
+ }
+ return ret;
+}
+
+static gint
+simple_symbol_get_base_type (IJsSymbol *obj)
+{
+ SimpleSymbol *symbol = SIMPLE_SYMBOL (obj);
+ return symbol->type;
+}
+
+static GList*
+simple_symbol_get_func_ret_type (IJsSymbol *obj)
+{
+ SimpleSymbol *symbol = SIMPLE_SYMBOL (obj);
+ GList* ret = NULL;
+ GList* i;
+ for (i = symbol->ret_type; i; i = g_list_next (i))
+ {
+ ret = g_list_append (ret, g_strdup ((gchar*)i->data));
+ }
+ return ret;
+}
+
+static IJsSymbol*
+simple_symbol_get_member (IJsSymbol *obj, const gchar * name)
+{
+ GList *i;
+ SimpleSymbol *symbol = SIMPLE_SYMBOL (obj);
+ for (i = symbol->member; i; i = g_list_next (i))
+ {
+ IJsSymbol* t = IJS_SYMBOL (i->data);
+ if (g_strcmp0 (name, ijs_symbol_get_name (t)) == 0 )
+ {
+ g_object_ref (t);
+ return t;
+ }
+ }
+ return NULL;
+}
+
+static const gchar *
+simple_symbol_get_name (IJsSymbol *obj)
+{
+ SimpleSymbol *symbol = SIMPLE_SYMBOL (obj);
+ return symbol->name;
+}
+
+static GList*
+simple_symbol_list_member (IJsSymbol *obj)
+{
+ GList *i;
+ SimpleSymbol *symbol = SIMPLE_SYMBOL (obj);
+ GList *ret = NULL;
+ for (i = symbol->member; i; i = g_list_next (i))
+ {
+ IJsSymbol* t = IJS_SYMBOL (i->data);
+ ret = g_list_append (ret, g_strdup (ijs_symbol_get_name (t)));
+ }
+ return ret;
+}
diff --git a/plugins/language-support-js/simple-symbol.h b/plugins/language-support-js/simple-symbol.h
new file mode 100644
index 0000000..3ac0141
--- /dev/null
+++ b/plugins/language-support-js/simple-symbol.h
@@ -0,0 +1,60 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _SIMPLE_SYMBOL_H_
+#define _SIMPLE_SYMBOL_H_
+
+#include <glib-object.h>
+#include "ijs-symbol.h"
+#include "util.h"
+
+G_BEGIN_DECLS
+
+#define SIMPLE_TYPE_SYMBOL (simple_symbol_get_type ())
+#define SIMPLE_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), SIMPLE_TYPE_SYMBOL, SimpleSymbol))
+#define SIMPLE_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), SIMPLE_TYPE_SYMBOL, SimpleSymbolClass))
+#define SIMPLE_IS_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), SIMPLE_TYPE_SYMBOL))
+#define SIMPLE_IS_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), SIMPLE_TYPE_SYMBOL))
+#define SIMPLE_SYMBOL_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), SIMPLE_TYPE_SYMBOL, SimpleSymbolClass))
+
+typedef struct _SimpleSymbolClass SimpleSymbolClass;
+typedef struct _SimpleSymbol SimpleSymbol;
+
+struct _SimpleSymbolClass
+{
+ GObjectClass parent_class;
+};
+
+struct _SimpleSymbol
+{
+ GObject parent_instance;
+
+ gchar * name;
+ gint type;
+ GList* member; /*List of IJsSymbol**/
+ GList* ret_type;
+ GList* args;
+};
+
+GType simple_symbol_get_type (void) G_GNUC_CONST;
+SimpleSymbol* simple_symbol_new (void);
+
+G_END_DECLS
+
+#endif /* _SIMPLE_SYMBOL_H_ */
diff --git a/plugins/language-support-js/std-symbol.c b/plugins/language-support-js/std-symbol.c
new file mode 100644
index 0000000..7eae03f
--- /dev/null
+++ b/plugins/language-support-js/std-symbol.c
@@ -0,0 +1,243 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#include "std-symbol.h"
+#include "simple-symbol.h"
+#include "util.h"
+
+static void std_symbol_interface_init (IJsSymbolIface *iface);
+static GList* std_symbol_get_arg_list (IJsSymbol *obj);
+static gint std_symbol_get_base_type (IJsSymbol *obj);
+static GList* std_symbol_get_func_ret_type (IJsSymbol *obj);
+static IJsSymbol* std_symbol_get_member (IJsSymbol *obj, const gchar * name);
+static const gchar * std_symbol_get_name (IJsSymbol *obj);
+static GList* std_symbol_list_member (IJsSymbol *obj);
+
+typedef struct
+{
+ const gchar *name;
+ const gchar **member;
+}StandartObject;
+
+static const gchar *ErrorMember[] = { "message", "name", NULL };
+static const gchar *MathMember[] = {"E", "LN10", "LN2", "LOG10E", "LOG2E", "PI", "SQRT1_2", "SQRT2",
+ "abs", "acos", "asin", "atan", "atan2", "ceil", "cos", "exp", "floor", "log", "max",
+ "min", "pow", "random", "round", "sin", "sqrt", "tan", NULL
+};
+static const gchar *RegExpMember[] = { "compile", "exec", "test", "toString", "valueOf",
+ "global", "ignoreCase", "input", "lastIndex", "lastMatch", "lastParen",
+ "leftContext", "multiline", "prototype", "rightContext", "source",
+};
+static const gchar *DateMember[] = {
+ "getTime", "getTimezoneOffset", "getYear",
+ "getFullYear", "getUTCFullYear", "getMonth", "getUTCMonth", "getDate", "getUTCDate", "getDay", "getUTCDay", "getHours",
+ "getUTCHours", "getMinutes", "getUTCMinutes", "getSeconds", "getUTCSeconds", "getMilliseconds",
+ "getUTCMilliseconds", "setTime", "setYear", "setFullYear", "setUTCFullYear",
+ "setMonth", "setUTCMonth", "setDate", "setUTCDate", "setHours", "setUTCHours",
+ "setMinutes", "setUTCMinutes", "setSeconds", "setUTCSeconds",
+ "setMilliseconds", "setUTCMilliseconds", "toUTCString", "toLocaleDateString", "toLocaleTimeString",
+ "toLocaleFormat", "toDateString", "toTimeString", NULL
+};
+static const gchar *ArrayMember[] = {
+ "concat", "join", "pop", "push", "reverse", "shift", "slice", "sort",
+ "splice", "toLocaleString", "toString", "unshift", "valueOf", "length", NULL
+};
+static const gchar *StringMember[] = {
+ "charAt", "charCodeAt", "concat", "fromCharCode", "indexOf", "lastIndexOf",
+ "localeCompare", "match", "replace", "search",
+ "slice", "split", "substr", "substring", "toLocaleLowerCase", "toLocaleUpperCase",
+ "toLowerCase", "toString", "toUpperCase", "valueOf", "length", NULL
+};
+static const gchar *ObjectMember[] = {
+ "hasOwnProperty", "isPrototypeOf", "propertyIsEnumerable", "toLocaleString",
+ "toString", "valueOf", NULL
+};
+static const gchar *FunctionMember[] = {
+ "arguments", "caller", "constructor", "length", "apply", "call", "toString", "valueOf", NULL
+};
+static const gchar *NumberMember[] = {
+ "MAX_VALUE", "MIN_VALUE",
+ "NaN", "NEGATIVE_INFINITY", "POSITIVE_INFINITY", "toExponential",
+ "toFixed", "toLocaleString", "toPrecision", "toString", "valueOf", NULL
+};
+static const StandartObject stdSym[]= {
+ {"undefined", NULL},
+ {"Function", FunctionMember},
+ {"Object", ObjectMember},
+ {"Array", ArrayMember},
+ {"Boolean", NULL},
+ {"Date", DateMember},
+ {"Math", MathMember},
+ {"Number", NumberMember},
+ {"NaN", NULL},
+ {"Infinity", NULL},
+ {"isNaN", NULL},
+ {"isFinite", NULL},
+ {"parseFloat", NULL},
+ {"parseInt", NULL},
+ {"String", StringMember},
+ {"escape", NULL},
+ {"unescape", NULL},
+ {"decodeURI", NULL},
+ {"encodeURI", NULL},
+ {"decodeURIComponent", NULL},
+ {"encodeURIComponent", NULL},
+ {"uneval", NULL},
+ {"Error", ErrorMember},
+ {"InternalError", NULL},
+ {"EvalError", NULL},
+ {"RangeError", NULL},
+ {"ReferenceError", NULL},
+ {"SyntaxError", NULL},
+ {"TypeError", NULL},
+ {"URIError", NULL},
+ {"RegExp", RegExpMember},
+ {"Script", NULL},
+ {"XML", NULL},
+ {"XMLList", NULL},
+ {"isXMLName", NULL},
+ {"Namespace", NULL},
+ {"QName", NULL},
+ {"StopIteration", NULL},
+ {"Iterator", NULL},
+ {"Generator", NULL},
+ {NULL, NULL},
+};
+
+typedef struct _StdSymbolPrivate StdSymbolPrivate;
+struct _StdSymbolPrivate
+{
+ gpointer hz;
+};
+
+#define STD_SYMBOL_PRIVATE(o) (G_TYPE_INSTANCE_GET_PRIVATE ((o), STD_TYPE_SYMBOL, StdSymbolPrivate))
+
+
+G_DEFINE_TYPE_WITH_CODE (StdSymbol, std_symbol, G_TYPE_OBJECT,
+ G_IMPLEMENT_INTERFACE (IJS_TYPE_SYMBOL,
+ std_symbol_interface_init));
+
+static void
+std_symbol_init (StdSymbol *object)
+{
+ /* TODO: Add initialization code here */
+}
+
+static void
+std_symbol_finalize (GObject *object)
+{
+ /* TODO: Add deinitalization code here */
+
+ G_OBJECT_CLASS (std_symbol_parent_class)->finalize (object);
+}
+
+static void
+std_symbol_class_init (StdSymbolClass *klass)
+{
+ GObjectClass* object_class = G_OBJECT_CLASS (klass);
+ /*GObjectClass* parent_class = G_OBJECT_CLASS (klass);*/
+
+ g_type_class_add_private (klass, sizeof (StdSymbolPrivate));
+
+ object_class->finalize = std_symbol_finalize;
+}
+
+
+StdSymbol*
+std_symbol_new (void)
+{
+ return g_object_new (STD_TYPE_SYMBOL, NULL);
+}
+
+static void
+std_symbol_interface_init (IJsSymbolIface *iface)
+{
+ iface->get_arg_list = std_symbol_get_arg_list;
+ iface->get_base_type = std_symbol_get_base_type;
+ iface->get_func_ret_type = std_symbol_get_func_ret_type;
+
+ iface->get_member = std_symbol_get_member;
+ iface->get_name = std_symbol_get_name;
+ iface->list_member = std_symbol_list_member;
+}
+
+static GList*
+std_symbol_get_arg_list (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static gint
+std_symbol_get_base_type (IJsSymbol *obj)
+{
+ return BASE_CLASS;
+}
+
+static GList*
+std_symbol_get_func_ret_type (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return NULL;
+}
+
+static IJsSymbol*
+std_symbol_get_member (IJsSymbol *obj, const gchar * name)
+{
+ int i;
+
+ for (i = 0; stdSym[i].name; i++)
+ {
+ if (g_strcmp0 (name, stdSym[i].name) != 0)
+ continue;
+ if (!stdSym[i].member)
+ break;
+
+ SimpleSymbol* symbol = simple_symbol_new ();
+ symbol->name = g_strdup (name);
+ GList *members = NULL;
+ int k;
+ for (k = 0; stdSym[i].member[k]; k++)
+ {
+ SimpleSymbol* symbol = simple_symbol_new ();
+ symbol->name = g_strdup (stdSym[i].member[k]);
+ members = g_list_append (members, symbol);
+ }
+ symbol->member = members;
+ return IJS_SYMBOL (symbol);
+ }
+ return NULL;
+}
+
+static const gchar *
+std_symbol_get_name (IJsSymbol *obj)
+{
+ g_assert_not_reached ();
+ return "";
+}
+
+static GList*
+std_symbol_list_member (IJsSymbol *obj)
+{
+ int i;
+ GList *ret = NULL;
+ for (i = 0; stdSym[i].name; i++)
+ ret = g_list_append (ret, g_strdup (stdSym[i].name));
+ return ret;
+}
diff --git a/plugins/language-support-js/std-symbol.h b/plugins/language-support-js/std-symbol.h
new file mode 100644
index 0000000..9a1869d
--- /dev/null
+++ b/plugins/language-support-js/std-symbol.h
@@ -0,0 +1,54 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _STD_SYMBOL_H_
+#define _STD_SYMBOL_H_
+
+#include <glib-object.h>
+
+#include "ijs-symbol.h"
+
+G_BEGIN_DECLS
+
+#define STD_TYPE_SYMBOL (std_symbol_get_type ())
+#define STD_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), STD_TYPE_SYMBOL, StdSymbol))
+#define STD_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), STD_TYPE_SYMBOL, StdSymbolClass))
+#define STD_IS_SYMBOL(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), STD_TYPE_SYMBOL))
+#define STD_IS_SYMBOL_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), STD_TYPE_SYMBOL))
+#define STD_SYMBOL_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), STD_TYPE_SYMBOL, StdSymbolClass))
+
+typedef struct _StdSymbolClass StdSymbolClass;
+typedef struct _StdSymbol StdSymbol;
+
+struct _StdSymbolClass
+{
+ GObjectClass parent_class;
+};
+
+struct _StdSymbol
+{
+ GObject parent_instance;
+};
+
+GType std_symbol_get_type (void) G_GNUC_CONST;
+StdSymbol* std_symbol_new (void);
+
+G_END_DECLS
+
+#endif /* _STD_SYMBOL_H_ */
diff --git a/plugins/language-support-js/unit_test/Makefile.am b/plugins/language-support-js/unit_test/Makefile.am
new file mode 100644
index 0000000..ddcbd91
--- /dev/null
+++ b/plugins/language-support-js/unit_test/Makefile.am
@@ -0,0 +1,15 @@
+include Makefile.decl
+
+noinst_PROGRAMS = $(TEST_PROGS)
+
+TEST_PROGS += utest
+
+utest_SOURCES = test.c ../plugin.h ../code-completion.c ../code-completion.h ../util.c ../util.h \
+../y.tab.c ../y.tab.h ../lex.yy.c ../lex.yy.h ../jsparse.c ../jsparse.h ../ijs-symbol.h ../ijs-symbol.c ../gir-symbol.c ../gir-symbol.h ../gi-symbol.c ../gi-symbol.h ../simple-symbol.c ../simple-symbol.h ../local-symbol.c ../local-symbol.h ../node-symbol.c ../node-symbol.h ../import-symbol.c ../import-symbol.h ../dir-symbol.c ../dir-symbol.h ../std-symbol.c ../std-symbol.h ../database-symbol.c ../database-symbol.h ../db-anjuta-symbol.c ../db-anjuta-symbol.h
+utest_CPPFLAGS = \
+ -DGIR_PATH=\"$(girdir)\" \
+ -DGJS_PATH=\"$(gjsdir)\" \
+ $(LIBANJUTA_CFLAGS)
+
+utest_LDADD = \
+ $(LIBANJUTA_LIBS)
diff --git a/plugins/language-support-js/unit_test/Makefile.decl b/plugins/language-support-js/unit_test/Makefile.decl
new file mode 100644
index 0000000..57e1e56
--- /dev/null
+++ b/plugins/language-support-js/unit_test/Makefile.decl
@@ -0,0 +1,61 @@
+# GLIB - Library of useful C routines
+
+GTESTER = gtester # for non-GLIB packages
+#GTESTER = $(top_builddir)/glib/gtester # for the GLIB package
+#GTESTER_REPORT = $(top_builddir)/glib/gtester-report # for the GLIB package
+
+# initialize variables for unconditional += appending
+EXTRA_DIST =
+TEST_PROGS =
+
+### testing rules
+
+# test: run all tests in cwd and subdirs
+test: ${TEST_PROGS}
+if OS_UNIX
+ @test -z "${TEST_PROGS}" || ${GTESTER} --verbose ${TEST_PROGS}
+ @ for subdir in $(SUBDIRS) . ; do \
+ test "$$subdir" = "." -o "$$subdir" = "po" || \
+ ( cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) $@ ) || exit $? ; \
+ done
+endif
+
+# test-report: run tests in subdirs and generate report
+# perf-report: run tests in subdirs with -m perf and generate report
+# full-report: like test-report: with -m perf and -m slow
+test-report perf-report full-report: ${TEST_PROGS}
+ @test -z "${TEST_PROGS}" || { \
+ case $@ in \
+ test-report) test_options="-k";; \
+ perf-report) test_options="-k -m=perf";; \
+ full-report) test_options="-k -m=perf -m=slow";; \
+ esac ; \
+ if test -z "$$GTESTER_LOGDIR" ; then \
+ ${GTESTER} --verbose $$test_options -o test-report.xml ${TEST_PROGS} ; \
+ elif test -n "${TEST_PROGS}" ; then \
+ ${GTESTER} --verbose $$test_options -o `mktemp "$$GTESTER_LOGDIR/log-XXXXXX"` ${TEST_PROGS} ; \
+ fi ; \
+ }
+ @ ignore_logdir=true ; \
+ if test -z "$$GTESTER_LOGDIR" ; then \
+ GTESTER_LOGDIR=`mktemp -d "\`pwd\`/.testlogs-XXXXXX"`; export GTESTER_LOGDIR ; \
+ ignore_logdir=false ; \
+ fi ; \
+ for subdir in $(SUBDIRS) . ; do \
+ test "$$subdir" = "." -o "$$subdir" = "po" || \
+ ( cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) $@ ) || exit $? ; \
+ done ; \
+ $$ignore_logdir || { \
+ echo '<?xml version="1.0"?>' > $ xml ; \
+ echo '<report-collection>' >> $ xml ; \
+ for lf in `ls -L "$$GTESTER_LOGDIR"/.` ; do \
+ sed '1,1s/^<?xml\b[^>?]*?>//' <"$$GTESTER_LOGDIR"/"$$lf" >> $ xml ; \
+ done ; \
+ echo >> $ xml ; \
+ echo '</report-collection>' >> $ xml ; \
+ rm -rf "$$GTESTER_LOGDIR"/ ; \
+ ${GTESTER_REPORT} --version 2>/dev/null 1>&2 ; test "$$?" != 0 || ${GTESTER_REPORT} $ xml >$ html ; \
+ }
+.PHONY: test test-report perf-report full-report
+# run make test as part of make check
+check-local: test
diff --git a/plugins/language-support-js/unit_test/test.c b/plugins/language-support-js/unit_test/test.c
new file mode 100644
index 0000000..834e33f
--- /dev/null
+++ b/plugins/language-support-js/unit_test/test.c
@@ -0,0 +1,179 @@
+#include <string.h>
+#include <glib.h>
+#include <stdio.h>
+
+#include "../ijs-symbol.h"
+#include "../database-symbol.h"
+#include "../util.h"
+#include "../plugin.h"
+
+DatabaseSymbol *symdb = NULL;
+
+struct TestCase1
+{
+ const gchar *filename;
+ const gchar *var;
+ const gchar *res;
+};
+
+struct TestCase2
+{
+ const gchar *filename;
+ const gchar *res[100];
+};
+
+struct TestCase3
+{
+ const gchar *filename;
+ const gchar *var;
+ const gchar *res[100];
+};
+
+struct TestCase4
+{
+ const gchar *filename;
+ gint line;
+ const gchar *res[100];
+};
+
+#define TEST1_COL 5
+
+struct TestCase1 tests[] = {
+ {"./u1.js", "m", "Parenizor"},
+ {"./u1.js", "GLib", "imports.gi.GLib"},
+ {"./u1.js", "a", "String"},
+ {"./u3.js", "b", "Button"},
+ {"./u5.js", "a", "Number"}
+};
+
+#define TEST2_COL 2
+
+struct TestCase2 tests2[] = {
+ {"./u2.js", {"Function.prototype.method", "Parenizor", "mazx", "aasb", "GLib", NULL}},
+ {"./u3.js", {"Button", "Button.prototype", "a", "b", NULL}}
+};
+
+#define TEST3_COL 1
+
+struct TestCase3 tests3[] = {
+ {"./u3.js", "b", {"_init", "release", NULL}}
+};
+
+#define TEST4_COL 3
+
+struct TestCase4 tests4[] = {
+ {"./u4.js", 8, {"m", "a", "GLib", "var1", NULL}},
+ {"./u4.js", 9, {"m", "a", "GLib", NULL}},
+ {"./u6.js", 4, {"abc", "max", NULL}},
+ {"./u6.js", 7, {"abc", NULL}},
+};
+
+static void
+var_type_test (gconstpointer data)
+{
+ gint n = GPOINTER_TO_INT (data);
+
+ database_symbol_set_file (symdb, tests[n].filename);
+
+ IJsSymbol *t = ijs_symbol_get_member (IJS_SYMBOL (symdb), tests[n].var);
+
+ g_assert (t);
+ const gchar *name;
+
+ name = ijs_symbol_get_name (t);
+// printf ("\n%s == %s\n", name, tests[n].res);
+
+ g_assert (strcmp (name, tests[n].res) == 0);
+}
+
+static void
+var_list_test (gconstpointer data)
+{
+ gint n = GPOINTER_TO_INT (data);
+
+ database_symbol_set_file (symdb, tests2[n].filename);
+
+ IJsSymbol *sym = ijs_symbol_get_member (IJS_SYMBOL (symdb), "");
+
+ g_assert (sym);
+
+ GList *res = ijs_symbol_list_member (sym);
+ GList *i;
+ const gchar **k = tests2[n].res;
+ for (i = res; i; i = g_list_next (i), k++)
+ {
+ g_assert ( *k != NULL);
+// printf ("\n%s == %s\n", *k, i->data);
+ g_assert ( strcmp (*k, (gchar*)i->data) == 0);
+ }
+ g_assert ( *k == NULL);
+}
+
+static void
+var_list2_test (gconstpointer data)
+{
+ gint n = GPOINTER_TO_INT (data);
+
+ database_symbol_set_file (symdb, tests4[n].filename);
+
+ GList *res = database_symbol_list_local_member (symdb, tests4[n].line);
+ GList *i;
+ const gchar **k = tests4[n].res;
+ for (i = res; i; i = g_list_next (i), k++)
+ {
+//puts ((gchar*)i->data);
+ g_assert ( *k != NULL);
+// printf ("\n%s == %s\n", *k, i->data);
+ g_assert ( strcmp (*k, (gchar*)i->data) == 0);
+ }
+ g_assert ( *k == NULL);
+}
+
+static void
+var_list_member_test (gconstpointer data)
+{
+ gint n = GPOINTER_TO_INT (data);
+
+ database_symbol_set_file (symdb, tests3[n].filename);
+
+ IJsSymbol *t = ijs_symbol_get_member (IJS_SYMBOL (symdb), tests3[n].var);
+
+ g_assert (t);
+
+ GList *res = ijs_symbol_list_member (t);
+
+ GList *i;
+ const gchar **k = tests3[n].res;
+ for (i = res; i; i = g_list_next (i), k++)
+ {
+ g_assert ( *k != NULL);
+//printf ("\n%s == %s\n", *k, i->data);
+ g_assert ( strcmp (*k, (gchar*)i->data) == 0);
+ }
+ g_assert ( *k == NULL);
+}
+
+int
+main (int argc, char *argv[])
+{
+ gint i;
+
+ g_type_init ();
+ g_test_init (&argc, &argv, NULL);
+
+ JSLang *lang = g_new (JSLang, 1);
+ symdb = database_symbol_new ();
+ lang->symbol = IJS_SYMBOL (symdb);
+
+ setPlugin (lang);
+
+ for (i = 0; i < TEST1_COL; i++)
+ g_test_add_data_func ("/parser/var_type", GINT_TO_POINTER (i), var_type_test);
+ for (i = 0; i < TEST2_COL; i++)
+ g_test_add_data_func ("/parser/var_list", GINT_TO_POINTER (i), var_list_test);
+ for (i = 0; i < TEST3_COL; i++)
+ g_test_add_data_func ("/parser/list_member", GINT_TO_POINTER (i), var_list_member_test);
+ for (i = 0; i < TEST4_COL; i++)
+ g_test_add_data_func ("/parser/var_list2", GINT_TO_POINTER (i), var_list2_test);
+ return g_test_run();
+}
diff --git a/plugins/language-support-js/unit_test/u1.js b/plugins/language-support-js/unit_test/u1.js
new file mode 100644
index 0000000..583b313
--- /dev/null
+++ b/plugins/language-support-js/unit_test/u1.js
@@ -0,0 +1,31 @@
+Function.prototype.method = function (name, func) {
+ this.prototype[name] = func;
+ return this;
+};
+
+function Parenizor(value) {
+ this.setValue(value);
+}
+
+Parenizor.method('setValue', function (value) {
+ this.value = value;
+ return this;
+});
+
+Parenizor.method('getValue', function () {
+ return this.value;
+});
+
+Parenizor.method('toString', function () {
+ return '(' + this.getValue() + ')';
+});
+
+m= new Parenizor(0);
+a = "dsa";
+const GLib = imports.gi.GLib;
+
+for (var1=0;var1<100;var1=var1+1)
+{
+ var1++;
+}
+
diff --git a/plugins/language-support-js/unit_test/u2.js b/plugins/language-support-js/unit_test/u2.js
new file mode 100644
index 0000000..0d32d54
--- /dev/null
+++ b/plugins/language-support-js/unit_test/u2.js
@@ -0,0 +1,13 @@
+Function.prototype.method = function (name, func) {
+ this.prototype[name] = func;
+ return this;
+};
+
+function Parenizor(value) {
+ this.setValue(value);
+}
+
+mazx = new Parenizor(0);
+aasb = "dsa";
+const GLib = imports.gi.GLib;
+
diff --git a/plugins/language-support-js/unit_test/u3.js b/plugins/language-support-js/unit_test/u3.js
new file mode 100644
index 0000000..e96b2e5
--- /dev/null
+++ b/plugins/language-support-js/unit_test/u3.js
@@ -0,0 +1,14 @@
+function Button() {
+ this._init();
+}
+
+Button.prototype = {
+ _init : function() {
+ },
+
+ release : function() {
+ }
+};
+
+a = new Button ();
+b = a;
diff --git a/plugins/language-support-js/unit_test/u4.js b/plugins/language-support-js/unit_test/u4.js
new file mode 100644
index 0000000..7803ea2
--- /dev/null
+++ b/plugins/language-support-js/unit_test/u4.js
@@ -0,0 +1,8 @@
+m= new Parenizor(0);
+a = "dsa";
+const GLib = imports.gi.GLib;
+
+{
+ var var1 = "dfs";
+}
+
diff --git a/plugins/language-support-js/unit_test/u5.js b/plugins/language-support-js/unit_test/u5.js
new file mode 100644
index 0000000..5d024e5
--- /dev/null
+++ b/plugins/language-support-js/unit_test/u5.js
@@ -0,0 +1,5 @@
+function abc()
+{
+ return 1;
+}
+var a = abc();
diff --git a/plugins/language-support-js/unit_test/u6.js b/plugins/language-support-js/unit_test/u6.js
new file mode 100644
index 0000000..9607071
--- /dev/null
+++ b/plugins/language-support-js/unit_test/u6.js
@@ -0,0 +1,8 @@
+function abc(asdf)
+{
+ var max = 2;
+ return 1;
+}
+
+
+
diff --git a/plugins/language-support-js/util.c b/plugins/language-support-js/util.c
new file mode 100644
index 0000000..12fefcb
--- /dev/null
+++ b/plugins/language-support-js/util.c
@@ -0,0 +1,258 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+#include <libanjuta/anjuta-shell.h>
+#include <libanjuta/interfaces/ianjuta-indicable.h>
+#include <libanjuta/interfaces/ianjuta-editor.h>
+#include <libanjuta/interfaces/ianjuta-project-manager.h>
+#include <libanjuta/anjuta-session.h>
+
+#include "plugin.h"
+#include "util.h"
+
+#define HIGHLIGHT_MISSEDSEMICOLON "javascript.missed"
+#define GIR_DIR_KEY "javascript.girdir"
+#define GJS_DIR_KEY "javascript.gjsdir"
+
+static gchar*
+get_gjs_path ()
+{
+ JSLang* plugin = (JSLang*)getPlugin ();
+
+ if (!plugin->prefs)
+ plugin->prefs = anjuta_shell_get_preferences (ANJUTA_PLUGIN (plugin)->shell, NULL);
+
+ gchar *path = anjuta_preferences_get (plugin->prefs, GJS_DIR_KEY);
+ if (!path || strlen (path) < 1)
+ {
+ g_free (path);
+ if (strlen (GJS_PATH) == 0)
+ return NULL;
+ return g_strdup (GJS_PATH);
+ }
+ return path;
+}
+
+GList *
+get_import_include_paths ()
+{
+ const gchar *project_root = NULL;
+ GList *ret = NULL;
+ gchar *path = get_gjs_path ();
+ if (path)
+ ret = g_list_append (ret, path);
+
+ anjuta_shell_get (ANJUTA_PLUGIN (getPlugin ())->shell,
+ IANJUTA_PROJECT_MANAGER_PROJECT_ROOT_URI,
+ G_TYPE_STRING, &project_root, NULL);
+ if (project_root)
+ {
+ GFile *tmp = g_file_new_for_uri (project_root);
+ AnjutaSession *session = anjuta_session_new (g_file_get_path (tmp));
+ g_object_unref (tmp);
+
+ GList* dir_list = anjuta_session_get_string_list (session, "options", "js_dirs");
+ GList *i;
+ for (i = dir_list; i; i = g_list_next (i))
+ {
+ g_assert (i->data != NULL);
+ ret = g_list_append (ret, i->data);
+ }
+ if (!dir_list)
+ {
+ ret = g_list_append (ret, g_strdup ("."));
+ anjuta_session_set_string_list (session, "options", "js_dirs", ret);
+ }
+ }
+ return ret;
+}
+
+gpointer plugin = NULL;
+
+gpointer
+getPlugin ()
+{
+ if (plugin)
+ return plugin;
+ g_assert_not_reached ();
+ return NULL;
+}
+
+void
+setPlugin (gpointer pl)
+{
+ plugin = pl;
+}
+
+IJsSymbol*
+global_search (const gchar *name)
+{
+ JSLang* plugin = (JSLang*)getPlugin ();
+ return ijs_symbol_get_member (IJS_SYMBOL (plugin->symbol), name);
+}
+
+void
+highlight_lines (GList *lines)
+{
+ JSLang* plugin = (JSLang*)getPlugin ();
+
+ if (!plugin->prefs)
+ plugin->prefs = anjuta_shell_get_preferences (ANJUTA_PLUGIN (plugin)->shell, NULL);
+
+ if (!anjuta_preferences_get_bool (plugin->prefs, HIGHLIGHT_MISSEDSEMICOLON))
+ {
+ DEBUG_PRINT ("JSLang: Highlight missed semicolon off");
+ return;
+ }
+
+ IAnjutaEditor *editor = IANJUTA_EDITOR (((JSLang*)getPlugin ())->current_editor);
+ if (!IANJUTA_IS_EDITOR (editor))
+ return;
+ IAnjutaIndicable *indicable = IANJUTA_INDICABLE (editor);
+ if (!indicable)
+ return;
+
+ ianjuta_indicable_clear (indicable, NULL);
+
+ GList *i;
+ for (i = lines; i; i = g_list_next (i))
+ {
+ if (!i->data)
+ continue;
+ gint line = GPOINTER_TO_INT (i->data);
+ IAnjutaIterable* begin = ianjuta_editor_get_line_begin_position (editor, line, NULL);
+
+ IAnjutaIterable *end = ianjuta_editor_get_line_end_position (editor, line, NULL);
+ ianjuta_indicable_set (indicable, begin, end, TRUE, NULL);
+ }
+}
+
+enum code_state
+{
+ STATE_CODE,
+ STATE_QSTR,
+ STATE_STR,
+ STATE_ONE_LINE_COMMENT,
+ STATE_COMMENT
+};
+
+
+gboolean
+code_is_in_comment_or_str (gchar *str, gboolean remove_not_code)
+{
+ g_assert (str != NULL);
+ int s;
+ gchar *i;
+ for (i = str, s = STATE_CODE; *i != '\0'; i++)
+ {
+ switch (s)
+ {
+ case STATE_CODE:
+ if (*i == '"')
+ {
+ s = STATE_QSTR;
+ i++;
+ break;
+ }
+ if (*i == '\'')
+ {
+ s = STATE_STR;
+ i++;
+ break;
+ }
+ if (*i == '/' && *(i + 1) == '*')
+ {
+ if (remove_not_code)
+ *i = ' ';
+ i++;
+ s = STATE_COMMENT;
+ break;
+ }
+ if (*i == '/' && *(i + 1) == '/')
+ {
+ if (remove_not_code)
+ *i = ' ';
+ i++;
+ s = STATE_ONE_LINE_COMMENT;
+ break;
+ }
+ break;
+ case STATE_QSTR:
+ if (*i == '\\' && *(i + 1) == '"')
+ {
+ if (remove_not_code)
+ *i = ' ';
+ i++;
+ break;
+ }
+ if (*i == '"')
+ s = STATE_CODE;
+ break;
+ case STATE_STR:
+ if (*i == '\\' && *(i + 1) == '\'')
+ {
+ if (remove_not_code)
+ *i = ' ';
+ i++;
+ break;
+ }
+ if (*i == '\'')
+ s = STATE_CODE;
+ break;
+ case STATE_ONE_LINE_COMMENT:
+ if (*i == '\n')
+ s = STATE_CODE;
+ break;
+ case STATE_COMMENT:
+ if (*i == '*' && *(i + 1) == '/')
+ {
+ if (remove_not_code)
+ *i = ' ';
+ i++;
+ if (remove_not_code)
+ *i = ' ';
+ s = STATE_CODE;
+ }
+ break;
+ default:
+ g_assert_not_reached ();
+ }
+ if (s != STATE_CODE && remove_not_code)
+ *i = ' ';
+ }
+ return s != STATE_CODE;
+}
+
+gchar*
+get_gir_path ()
+{
+ JSLang* plugin = (JSLang*)getPlugin ();
+
+ if (!plugin->prefs)
+ plugin->prefs = anjuta_shell_get_preferences (ANJUTA_PLUGIN (plugin)->shell, NULL);
+
+ gchar *path = anjuta_preferences_get (plugin->prefs, GIR_DIR_KEY);
+ if (!path || strlen (path) < 1)
+ {
+ g_free (path);
+ if (strlen (GIR_PATH) == 0)
+ return g_strdup (".");
+ return g_strdup (GIR_PATH);
+ }
+ return path;
+}
diff --git a/plugins/language-support-js/util.h b/plugins/language-support-js/util.h
new file mode 100644
index 0000000..fd59720
--- /dev/null
+++ b/plugins/language-support-js/util.h
@@ -0,0 +1,55 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _UTIL_H_
+#define _UTIL_H_
+
+#include <glib.h>
+
+#include "ijs-symbol.h"
+
+#undef DEBUG_PRINT
+#define DEBUG_PRINT g_warning
+
+enum BaseType
+{
+ BASE_CLASS,
+ BASE_FUNC,
+ BASE_ENUM,
+ BASE_NAMESPACE,
+};
+
+struct _Argument
+{
+ gchar *name;
+ GList *types;
+};
+
+typedef struct _Argument Argument;
+
+GList * get_import_include_paths (void);
+gpointer getPlugin (void);
+void setPlugin (gpointer pl);
+IJsSymbol* global_search (const gchar *name);
+void highlight_lines (GList *lines);
+
+gchar* get_gir_path (void);
+gboolean code_is_in_comment_or_str (gchar *str, gboolean remove_not_code);
+
+#endif
diff --git a/plugins/language-support-js/y.tab.c b/plugins/language-support-js/y.tab.c
new file mode 120000
index 0000000..b6b3122
--- /dev/null
+++ b/plugins/language-support-js/y.tab.c
@@ -0,0 +1 @@
+../symbol-db/anjuta-tags/parser/y.tab.c
\ No newline at end of file
diff --git a/plugins/language-support-js/y.tab.h b/plugins/language-support-js/y.tab.h
new file mode 120000
index 0000000..1376507
--- /dev/null
+++ b/plugins/language-support-js/y.tab.h
@@ -0,0 +1 @@
+../symbol-db/anjuta-tags/parser/y.tab.h
\ No newline at end of file
diff --git a/plugins/project-wizard/templates/Makefile.am b/plugins/project-wizard/templates/Makefile.am
index 3e0971b..094cd50 100644
--- a/plugins/project-wizard/templates/Makefile.am
+++ b/plugins/project-wizard/templates/Makefile.am
@@ -1,7 +1,7 @@
SUBDIRS = minimal terminal cpp gtk anjuta-plugin \
gtkmm wxwin xlib xlib-dock gcj java gnome-applet\
- python mkfile sdl library licenses m4
+ python mkfile sdl library licenses m4 js_minimal
wizard_filesdir = $(anjuta_data_dir)/project
wizard_files_DATA = \
@@ -28,6 +28,7 @@ wizard_files_DATA = \
gcj-logo.png \
java.wiz \
java-logo.png \
+ js.wiz \
python.wiz \
python-logo.png \
mkfile.wiz \
diff --git a/plugins/project-wizard/templates/js.wiz b/plugins/project-wizard/templates/js.wiz
new file mode 100644
index 0000000..f6e8446
--- /dev/null
+++ b/plugins/project-wizard/templates/js.wiz
@@ -0,0 +1,56 @@
+<project-wizard>
+ <_name>Generic JavaScript</_name>
+ <_description>A generic minimal and flat project</_description>
+ <icon>terminal-logo.png</icon>
+ <category>JS</category>
+ <required-program>automake</required-program>
+ <required-program>autoconf</required-program>
+ <required-program>make</required-program>
+</project-wizard>
+
+<page name="basic" _label="Basic information" _description="General Project Information">
+ <property type="string" name="Name" _label="Project Name:" _description="project name" default="foobar-sample" summary="yes" restriction="filename" mandatory="yes"/>
+ <property type="string" name="Author" _label="Author:" _description="" default="[+UserName+]" mandatory="yes"/>
+ <property type="string" name="Email" _label="Email address:" _description="" default="[+EmailAddress+]" mandatory="no"/>
+ <property type="string" name="Version" _label="Version:" default="0.1" mandatory="yes"/>
+</page>
+
+<page name="options" _label="Project options" _description="Options for project build system">
+ <property type="directory" name="Destination" _label="Destination:" _description="" default="[+AnjutaProjectDirectory+]/[+(string-downcase (get "Name"))+]" mandatory="yes" exist="no" summary="yes"/>
+ <property type="list" name="License" _label="License" _description="Select code license" default="GPL" editable="no">
+ <item name="GPL" _label="General Public License (GPL)"/>
+ <item name="LGPL" _label="Lesser General Public License (LGPL)"/>
+ <item name="BSD" _label="Berkeley Software Distribution License (BSD)"/>
+ <item name="None" _label="No license"/>
+ </property>
+ <property type="hidden" name="NameUpper" default="[+(string-upcase (get "Name"))+]"/>
+ <property type="hidden" name="NameLower" default="[+(string-downcase (get "Name"))+]"/>
+ <property type="hidden" name="NameCUpper" default="[+(string->c-name! (string-substitute (string-upcase (get "Name")) " " "_"))+]"/>
+ <property type="hidden" name="NameCLower" default="[+(string->c-name! (string-substitute (string-downcase (get "Name")) " " "_"))+]"/>
+ <property type="hidden" name="NameHLower" default="[+(string-substitute (string->c-name! (string-downcase (get "Name"))) " " "-")+]"/>
+</page>
+
+<content>
+ <directory source="js_minimal" destination="[+Destination+]">
+ <file source="Makefile.am.tpl" destination="Makefile.am"/>
+ <file source="autogen.sh" executable="yes"/>
+ <file source="configure.ac.tpl" destination="configure.ac"/>
+ <file source="project.anjuta" destination="[+NameHLower+].anjuta"/>
+ </directory>
+ <directory source="js_minimal" destination="[+Destination+]">
+ <directory source="src" destination="src">
+ <file source="main.c"/>
+ <file source="debug.h"/>
+ <file source="debug.c"/>
+ <file source="main.js"/>
+ <file source="Makefile.am.tpl" destination="Makefile.am"/>
+ </directory>
+ </directory>
+ <directory source="licenses" destination="[+Destination+]">
+ <file source="[+License+]" destination="COPYING"/>
+ </directory>
+</content>
+
+<action>
+ <open file="[+Destination+]/[+NameHLower+].anjuta"/>
+</action>
diff --git a/plugins/project-wizard/templates/js_minimal/Makefile.am b/plugins/project-wizard/templates/js_minimal/Makefile.am
new file mode 100644
index 0000000..c072ecb
--- /dev/null
+++ b/plugins/project-wizard/templates/js_minimal/Makefile.am
@@ -0,0 +1,10 @@
+SUBDIRS = src
+
+wizard_filesdir = $(anjuta_data_dir)/project/js_minimal
+wizard_files_DATA = \
+ autogen.sh \
+ configure.ac.tpl \
+ Makefile.am.tpl \
+ project.anjuta
+
+EXTRA_DIST = $(wizard_files_DATA)
diff --git a/plugins/project-wizard/templates/js_minimal/Makefile.am.tpl b/plugins/project-wizard/templates/js_minimal/Makefile.am.tpl
new file mode 100644
index 0000000..bffa5fc
--- /dev/null
+++ b/plugins/project-wizard/templates/js_minimal/Makefile.am.tpl
@@ -0,0 +1,9 @@
+[+ autogen5 template +]
+## Process this file with automake to produce Makefile.in
+## Created by Anjuta
+
+SUBDIRS = src
+
+# Remove doc directory on uninstall
+uninstall-local:
+
diff --git a/plugins/project-wizard/templates/js_minimal/autogen.sh b/plugins/project-wizard/templates/js_minimal/autogen.sh
new file mode 100644
index 0000000..957e18f
--- /dev/null
+++ b/plugins/project-wizard/templates/js_minimal/autogen.sh
@@ -0,0 +1,160 @@
+[+ autogen5 template +]
+#!/bin/sh
+# Run this to generate all the initial makefiles, etc.
+
+srcdir=`dirname $0`
+test -z "$srcdir" && srcdir=.
+
+DIE=0
+
+if [ -n "$GNOME2_DIR" ]; then
+ ACLOCAL_FLAGS="-I $GNOME2_DIR/share/aclocal $ACLOCAL_FLAGS"
+ LD_LIBRARY_PATH="$GNOME2_DIR/lib:$LD_LIBRARY_PATH"
+ PATH="$GNOME2_DIR/bin:$PATH"
+ export PATH
+ export LD_LIBRARY_PATH
+fi
+
+(test -f $srcdir/configure.ac) || {
+ echo -n "**Error**: Directory "\`$srcdir\'" does not look like the"
+ echo " top-level package directory"
+ exit 1
+}
+
+(autoconf --version) < /dev/null > /dev/null 2>&1 || {
+ echo
+ echo "**Error**: You must have \`autoconf' installed."
+ echo "Download the appropriate package for your distribution,"
+ echo "or get the source tarball at ftp://ftp.gnu.org/pub/gnu/";
+ DIE=1
+}
+
+(grep "^IT_PROG_INTLTOOL" $srcdir/configure.ac >/dev/null) && {
+ (intltoolize --version) < /dev/null > /dev/null 2>&1 || {
+ echo
+ echo "**Error**: You must have \`intltool' installed."
+ echo "You can get it from:"
+ echo " ftp://ftp.gnome.org/pub/GNOME/";
+ DIE=1
+ }
+}
+
+(grep "^AM_PROG_XML_I18N_TOOLS" $srcdir/configure.ac >/dev/null) && {
+ (xml-i18n-toolize --version) < /dev/null > /dev/null 2>&1 || {
+ echo
+ echo "**Error**: You must have \`xml-i18n-toolize' installed."
+ echo "You can get it from:"
+ echo " ftp://ftp.gnome.org/pub/GNOME/";
+ DIE=1
+ }
+}
+
+(grep "^AM_PROG_LIBTOOL" $srcdir/configure.ac >/dev/null) && {
+ (libtool --version) < /dev/null > /dev/null 2>&1 || {
+ echo
+ echo "**Error**: You must have \`libtool' installed."
+ echo "You can get it from: ftp://ftp.gnu.org/pub/gnu/";
+ DIE=1
+ }
+}
+
+(grep "^AM_GLIB_GNU_GETTEXT" $srcdir/configure.ac >/dev/null) && {
+ (grep "sed.*POTFILES" $srcdir/configure.ac) > /dev/null || \
+ (glib-gettextize --version) < /dev/null > /dev/null 2>&1 || {
+ echo
+ echo "**Error**: You must have \`glib' installed."
+ echo "You can get it from: ftp://ftp.gtk.org/pub/gtk";
+ DIE=1
+ }
+}
+
+(automake --version) < /dev/null > /dev/null 2>&1 || {
+ echo
+ echo "**Error**: You must have \`automake' installed."
+ echo "You can get it from: ftp://ftp.gnu.org/pub/gnu/";
+ DIE=1
+ NO_AUTOMAKE=yes
+}
+
+
+# if no automake, don't bother testing for aclocal
+test -n "$NO_AUTOMAKE" || (aclocal --version) < /dev/null > /dev/null 2>&1 || {
+ echo
+ echo "**Error**: Missing \`aclocal'. The version of \`automake'"
+ echo "installed doesn't appear recent enough."
+ echo "You can get automake from ftp://ftp.gnu.org/pub/gnu/";
+ DIE=1
+}
+
+if test "$DIE" -eq 1; then
+ exit 1
+fi
+
+if test -z "$*"; then
+ echo "**Warning**: I am going to run \`configure' with no arguments."
+ echo "If you wish to pass any to it, please specify them on the"
+ echo \`$0\'" command line."
+ echo
+fi
+
+case $CC in
+xlc )
+ am_opt=--include-deps;;
+esac
+
+for coin in `find $srcdir -path $srcdir/CVS -prune -o -name configure.ac -print`
+do
+ dr=`dirname $coin`
+ if test -f $dr/NO-AUTO-GEN; then
+ echo skipping $dr -- flagged as no auto-gen
+ else
+ echo processing $dr
+ ( cd $dr
+
+ aclocalinclude="$ACLOCAL_FLAGS"
+
+ if grep "^AM_GLIB_GNU_GETTEXT" configure.ac >/dev/null; then
+ echo "Creating $dr/aclocal.m4 ..."
+ test -r $dr/aclocal.m4 || touch $dr/aclocal.m4
+ echo "Running glib-gettextize... Ignore non-fatal messages."
+ echo "no" | glib-gettextize --force --copy
+ echo "Making $dr/aclocal.m4 writable ..."
+ test -r $dr/aclocal.m4 && chmod u+w $dr/aclocal.m4
+ fi
+ if grep "^IT_PROG_INTLTOOL" configure.ac >/dev/null; then
+ echo "Running intltoolize..."
+ intltoolize --copy --force --automake
+ fi
+ if grep "^AM_PROG_XML_I18N_TOOLS" configure.ac >/dev/null; then
+ echo "Running xml-i18n-toolize..."
+ xml-i18n-toolize --copy --force --automake
+ fi
+ if grep "^AM_PROG_LIBTOOL" configure.ac >/dev/null; then
+ if test -z "$NO_LIBTOOLIZE" ; then
+ echo "Running libtoolize..."
+ libtoolize --force --copy
+ fi
+ fi
+ echo "Running aclocal $aclocalinclude ..."
+ aclocal $aclocalinclude
+ if grep "^A[CM]_CONFIG_HEADER" configure.ac >/dev/null; then
+ echo "Running autoheader..."
+ autoheader
+ fi
+ echo "Running automake --foreign $am_opt ..."
+ automake --add-missing --foreign $am_opt
+ echo "Running autoconf ..."
+ autoconf
+ )
+ fi
+done
+
+conf_flags="--enable-maintainer-mode"
+
+if test x$NOCONFIGURE = x; then
+ echo Running $srcdir/configure $conf_flags "$@" ...
+ $srcdir/configure $conf_flags "$@" \
+ && echo Now type \`make\' to compile. || exit 1
+else
+ echo Skipping configure process.
+fi
diff --git a/plugins/project-wizard/templates/js_minimal/configure.ac.tpl b/plugins/project-wizard/templates/js_minimal/configure.ac.tpl
new file mode 100644
index 0000000..2be9d48
--- /dev/null
+++ b/plugins/project-wizard/templates/js_minimal/configure.ac.tpl
@@ -0,0 +1,62 @@
+[+ autogen5 template +]
+dnl Process this file with autoconf to produce a configure script.
+dnl Created by Anjuta application wizard.
+
+AC_INIT([+NameHLower+], [+Version+])
+
+AM_INIT_AUTOMAKE(AC_PACKAGE_NAME, AC_PACKAGE_VERSION)
+AC_CONFIG_HEADERS([config.h])
+AM_MAINTAINER_MODE
+
+AC_ISC_POSIX
+AC_PROG_CC
+AM_PROG_CC_STDC
+AC_HEADER_STDC
+
+PKG_CHECK_EXISTS([mozilla-js], [JS_PACKAGE=mozilla-js],
+ [PKG_CHECK_EXISTS([xulrunner-js], [JS_PACKAGE=xulrunner-js], [JS_PACKAGE=firefox-js])])
+PKG_CHECK_MODULES(GJS,gtk+-2.0 gjs-gi-1.0 $JS_PACKAGE)
+
+## some flavors of Firefox .pc only set sdkdir, not libdir
+FIREFOX_JS_SDKDIR=`$PKG_CONFIG --variable=sdkdir $JS_PACKAGE`
+FIREFOX_JS_LIBDIR=`$PKG_CONFIG --variable=libdir $JS_PACKAGE`
+
+## Ubuntu does not set libdir in mozilla-js.pc
+if test x"$FIREFOX_JS_LIBDIR" = x ; then
+ ## Ubuntu returns xulrunner-devel as the sdkdir, but for the
+ ## libdir we want the runtime location on the target system,
+ ## so can't use -devel.
+ ## The library is in the non-devel directory also.
+ ## Don't ask me why it's in two places.
+ FIREFOX_JS_LIBDIR=`echo "$FIREFOX_JS_SDKDIR" | sed -e 's/-devel//g'`
+
+ if ! test -d "$FIREFOX_JS_LIBDIR" ; then
+ FIREFOX_JS_LIBDIR=
+ fi
+fi
+
+
+GJS_JS_DIR=`$PKG_CONFIG --variable=jsdir gjs-1.0`
+GJS_JS_NATIVE_DIR=`$PKG_CONFIG --variable=jsnativedir gjs-1.0`
+AC_SUBST(GJS_JS_DIR)
+AC_SUBST(FIREFOX_JS_LIBDIR)
+AC_SUBST(GJS_JS_NATIVE_DIR)
+
+AM_PATH_GLIB_2_0()
+G_IR_SCANNER=`$PKG_CONFIG --variable=g_ir_scanner gobject-introspection-1.0`
+AC_SUBST(G_IR_SCANNER)
+G_IR_COMPILER=`$PKG_CONFIG --variable=g_ir_compiler gobject-introspection-1.0`
+AC_SUBST(G_IR_COMPILER)
+G_IR_GENERATE=`$PKG_CONFIG --variable=g_ir_generate gobject-introspection-1.0`
+AC_SUBST(G_IR_GENERATE)
+GIRDIR=`$PKG_CONFIG --variable=girdir gobject-introspection-1.0`
+AC_SUBST(GIRDIR)
+TYPELIBDIR="$($PKG_CONFIG --variable=typelibdir gobject-introspection-1.0)"
+AC_SUBST(TYPELIBDIR)
+
+AM_PROG_LIBTOOL
+
+AC_OUTPUT([
+Makefile
+src/Makefile
+])
diff --git a/plugins/project-wizard/templates/js_minimal/project.anjuta b/plugins/project-wizard/templates/js_minimal/project.anjuta
new file mode 100644
index 0000000..f6d00b9
--- /dev/null
+++ b/plugins/project-wizard/templates/js_minimal/project.anjuta
@@ -0,0 +1,37 @@
+<?xml version="1.0"?>
+<anjuta>
+ <plugin name="GBF Project Manager"
+ url="http://anjuta.org/plugins/";
+ mandatory="yes">
+ <require group="Anjuta Plugin"
+ attribute="Interfaces"
+ value="IAnjutaProjectManager"/>
+ <require group="Project"
+ attribute="Supported-Project-Types"
+ value="automake"/>
+ </plugin>
+ <plugin name="Symbol Browser"
+ url="http://anjuta.org/plugins/";
+ mandatory="yes">
+ <require group="Anjuta Plugin"
+ attribute="Interfaces"
+ value="IAnjutaSymbolManager"/>
+ </plugin>
+ <plugin name="Make Build System"
+ url="http://anjuta.org/plugins/";
+ mandatory="yes">
+ <require group="Anjuta Plugin"
+ attribute="Interfaces"
+ value="IAnjutaBuildable"/>
+ <require group="Build"
+ attribute="Supported-Build-Types"
+ value="make"/>
+ </plugin>
+ <plugin name="Debug Manager"
+ url="http://anjuta.org/plugins/";
+ mandatory="no">
+ <require group="Anjuta Plugin"
+ attribute="Interfaces"
+ value="IAnjutaDebugManager"/>
+ </plugin>
+</anjuta>
diff --git a/plugins/project-wizard/templates/js_minimal/src/Makefile.am b/plugins/project-wizard/templates/js_minimal/src/Makefile.am
new file mode 100644
index 0000000..3fba174
--- /dev/null
+++ b/plugins/project-wizard/templates/js_minimal/src/Makefile.am
@@ -0,0 +1,3 @@
+wizard_filesdir = $(anjuta_data_dir)/project/js_minimal/src
+wizard_files_DATA = main.c main.js Makefile.am.tpl debug.c debug.h
+EXTRA_DIST = $(wizard_files_DATA)
diff --git a/plugins/project-wizard/templates/js_minimal/src/Makefile.am.tpl b/plugins/project-wizard/templates/js_minimal/src/Makefile.am.tpl
new file mode 100644
index 0000000..89b942b
--- /dev/null
+++ b/plugins/project-wizard/templates/js_minimal/src/Makefile.am.tpl
@@ -0,0 +1,38 @@
+[+ autogen5 template +]
+## Process this file with automake to produce Makefile.in
+
+## Created by Anjuta
+
+jsdir = $(pkgdatadir)
+js_DATA = \
+ main.js
+
+AM_CPPFLAGS = \
+ -DPACKAGE_DATA_DIR=\""$(datadir)"\" \
+ -DTYPELIBDIR=\"$(TYPELIBDIR)\"
+
+AM_CFLAGS =\
+ -Wall\
+ -g \
+ $(GJS_CFLAGS)\
+ -DPKGLIBDIR=\"$(pkglibdir)\" \
+ -DJSDIR=\"$(pkgdatadir)\"
+
+bin_PROGRAMS = [+NameHLower+]
+
+[+NameCLower+]_SOURCES = \
+ main.c \
+ debug.c debug.h
+
+[+NameCLower+]_LDFLAGS = \
+ $(GJS_LIBS) \
+ -R $(FIREFOX_JS_LIBDIR) -rdynamic
+
+[+NameCLower+]_LDADD = \
+ $(GJS_LIBS)
+
+EXTRA_DIST = $(js_DATA)
+
+uninstall-local:
+ -rm -r $(jsdir)
+
diff --git a/plugins/project-wizard/templates/js_minimal/src/debug.c b/plugins/project-wizard/templates/js_minimal/src/debug.c
new file mode 100644
index 0000000..cf81699
--- /dev/null
+++ b/plugins/project-wizard/templates/js_minimal/src/debug.c
@@ -0,0 +1,521 @@
+/***************************************************************************
+ * Copyright (C) Maxim Ermilov 2009 <zaspire rambler ru>
+ ****************************************************************************/
+
+/*
+ * 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 Library 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., 51 Franklin Street, Fifth Floor Boston, MA 02110-1301, USA
+ */
+#include <sys/socket.h>
+#include <sys/types.h>
+#include <sys/ioctl.h>
+#include <netinet/in.h>
+#include <arpa/inet.h>
+#include <unistd.h>
+#include <string.h>
+#include <netinet/tcp.h>
+
+#include <jsapi.h>
+#include <jsscript.h>
+#include <jscntxt.h>
+#include <jsdbgapi.h>
+
+#include <gio/gio.h>
+
+#include "debug.h"
+
+struct Breakpoint {
+ GFile *file;
+ guint lineno;
+};
+
+typedef struct {
+ JSObject *obj;
+ jsval name;
+ jsval val;
+} Value;
+
+GList *Values = NULL;
+
+gboolean wait_command = FALSE;
+gint depth = 0;
+gboolean stepover = FALSE;
+gboolean stepout = FALSE;
+GList *breakpoint = NULL;
+
+/*Missed in .h but exported*/
+extern JSContext *gjs_context_get_context(GjsContext * js_context);
+
+static gchar *variable_get_desc(JSContext * cx, JSObject * obj);
+static gchar *command_get();
+static void send_reply(const gchar *a1);
+static gchar *variable_get_local(JSContext * cx);
+
+#define DEBUG_PRINT printf
+
+static JSTrapStatus
+TrapHandler(JSContext * cx, JSScript * script,
+ jsbytecode * pc, jsval * rval, void *closure)
+{
+ gint tdepth;
+ gboolean exec = FALSE;
+ GList *i;
+ GFile *file = NULL;
+ gchar *file_path, *tmp;
+ JSStackFrame *fi;
+ JSStackFrame *fp;
+ if (!script)
+ return JSTRAP_CONTINUE;
+
+ if (JS_GetScriptFilename(cx, script) == NULL)
+ return JSTRAP_CONTINUE;
+
+ file = g_file_new_for_path(JS_GetScriptFilename(cx, script));
+
+ if (wait_command) {
+ wait_command = FALSE;
+ exec = TRUE;
+ }
+ tdepth = 0;
+ fi = NULL;
+ fp = JS_FrameIterator(cx, &fi);
+
+ if (!fp)
+ fp = JS_GetScriptedCaller(cx, NULL);
+ while (fp) {
+ if (JS_IsNativeFrame(cx, fp))
+ break;
+ tdepth++;
+ fi = fp;
+ fp = JS_GetScriptedCaller(cx, fp);
+ /*Hack for Xulrunner 1.9.1*/
+ if (fi == fp)
+ break;
+ }
+ if (stepover) {
+ if (tdepth <= depth) {
+ exec = TRUE;
+ stepover = FALSE;
+ }
+ }
+ if (stepout) {
+ if (tdepth < depth) {
+ exec = TRUE;
+ stepout = FALSE;
+ }
+ }
+ for (i = breakpoint; i; i = g_list_next(i)) {
+ struct Breakpoint *bp = (struct Breakpoint *)i->data;
+ g_assert(bp);
+ if (bp->lineno != JS_PCToLineNumber(cx, script, pc))
+ continue;
+ if (!g_file_equal(bp->file, file))
+ continue;
+ exec = TRUE;
+ break;
+ }
+ if (!exec)
+ return JSTRAP_CONTINUE;
+ file_path = g_file_get_path(file);
+ tmp = g_strdup_printf("Line #%d File:%s\n",
+ JS_PCToLineNumber(cx, script, pc),
+ file_path);
+ g_free(file_path);
+ send_reply(tmp);
+ while (TRUE) {
+ gboolean unknown_command = TRUE;
+ gchar *str = command_get();
+ JSTrapStatus result = 0xFF;
+
+ g_assert(str != NULL);
+
+ if (strcmp(str, "continue") == 0) {
+ result = JSTRAP_CONTINUE;
+ unknown_command = FALSE;
+ }
+ if (strcmp(str, "break") == 0) {
+ result = JSTRAP_RETURN;
+ unknown_command = FALSE;
+ }
+ if (strcmp(str, "stepin") == 0) {
+ wait_command = TRUE;
+ result = JSTRAP_CONTINUE;
+ unknown_command = FALSE;
+ }
+ if (strcmp(str, "stepover") == 0) {
+ depth = tdepth;
+ stepover = TRUE;
+ result = JSTRAP_CONTINUE;
+ unknown_command = FALSE;
+ }
+ if (strcmp(str, "stepout") == 0) {
+ depth = tdepth;
+ stepout = TRUE;
+ result = JSTRAP_CONTINUE;
+ unknown_command = FALSE;
+ }
+ if (strcmp(str, "add") == 0) {
+ struct Breakpoint *bp =
+ g_new(struct Breakpoint, 1);
+ int line;
+ gchar *com = command_get();
+ g_assert(strlen(com) > 0);
+ gchar *filename = g_malloc(strlen(com));
+ if (sscanf (com, "%d %s", &line, filename) != 2) {
+ g_warning("Invalid data");
+ continue;
+ }
+ bp->lineno = line;
+ bp->file = g_file_new_for_path (filename);
+ breakpoint = g_list_append(breakpoint, bp);
+ g_free(filename);
+ g_free(com);
+ unknown_command = FALSE;
+ }
+ if (strcmp(str, "eval") == 0) {
+ gboolean work = TRUE;
+ jsval rval;
+ gchar *com = command_get();
+ JSStackFrame *fi = 0;
+ JSStackFrame *fp = JS_FrameIterator(cx, &fi);
+
+ if (fp) {
+ if (JS_EvaluateInStackFrame
+ (cx, fp, com, strlen(com),
+ "<debug_eval>", 1,
+ &rval) != JS_TRUE) {
+ g_warning ("Can not eval;In stack");
+ send_reply("ERROR");
+ } else
+ work = FALSE;
+ } else {
+ if (JS_EvaluateScript
+ (cx, JS_GetGlobalObject(cx),
+ com, strlen(com),
+ "<debug_eval>", 1,
+ &rval) != JS_TRUE) {
+ g_warning ("Can not eval;");
+ send_reply("ERROR");
+ } else
+ work = FALSE;
+ }
+ g_free(com);
+ if (work)
+ continue;
+ if (JSVAL_IS_OBJECT(rval)) {
+ JSObject *obj;
+ JS_ValueToObject(cx, rval, &obj);
+ gchar *str = variable_get_desc(cx, obj);
+ send_reply(str);
+ g_free(str);
+ } else {
+ gchar *name;
+ JSString *str = JS_ValueToString(cx, rval);
+ if (!str) {
+ g_warning ("Exception in toString");
+ send_reply ("ERROR");
+ continue;
+ }
+ name = g_utf16_to_utf8(JS_GetStringChars
+ (str), -1, NULL, NULL, NULL);
+ send_reply(name);
+ g_free(name);
+ }
+ unknown_command = FALSE;
+ }
+ if (strcmp(str, "desc") == 0) {
+ gchar *str = variable_get_desc(cx, JS_GetGlobalObject(cx));
+ send_reply(str);
+ g_free(str);
+ unknown_command = FALSE;
+ }
+ if (strcmp(str, "list") == 0) {
+ gchar *str = variable_get_local(cx);
+ send_reply(str);
+ g_free (str);
+ unknown_command = FALSE;
+ }
+ if (strcmp(str, "stacktrace") == 0) {
+ gchar *ret = g_strdup(""), *t = NULL;
+
+ JSStackFrame *fi = 0;
+ JSStackFrame *fp = JS_FrameIterator(cx, &fi);
+ if (!fp)
+ fp = JS_GetScriptedCaller(cx, NULL);
+ while (fp) {
+ JSScript *s;
+ jsbytecode *pc;
+ int line;
+ const gchar *name;
+ if (JS_IsNativeFrame(cx, fp))
+ break;
+ s = JS_GetFrameScript(cx, fp);
+ pc = JS_GetFramePC(cx, fp);
+ if (!pc)
+ break;
+ line = JS_PCToLineNumber(cx, s, pc);
+ name = JS_GetScriptFilename(cx, s);
+ t = g_strdup_printf("%sLINE# %d %s, ", ret,
+ line, name);
+ g_free(ret);
+ ret = t;
+ fi = fp;
+ fp = JS_GetScriptedCaller(cx, fp);
+ /*Hack for Xulrunner 1.9.1*/
+ if (fi == fp)
+ break;
+ }
+ send_reply(ret);
+ g_free(ret);
+ unknown_command = FALSE;
+ }
+ g_free(str);
+ if (result != 0xFF)
+ return result;
+ g_assert(unknown_command != TRUE);
+ }
+ g_assert_not_reached();
+}
+
+static gchar *
+variable_get_members (JSContext * cx, JSObject * obj)
+{
+ gchar *ret = g_strdup("");
+ JSPropertyDescArray pda;
+ JS_GetPropertyDescArray(cx, obj, &pda);
+ uint32 i;
+
+ for (i = 0; i < pda.length; i++) {
+ JSString *str;
+ gchar *name, *t;
+
+ if (pda.array[i].flags & (JSPD_ERROR | JSPD_EXCEPTION))
+ continue;
+ if (!(pda.array[i].flags & (JSPD_VARIABLE | JSPD_ENUMERATE)))
+ continue;
+
+ str = JS_ValueToString(cx, pda.array[i].id);
+ name = g_utf16_to_utf8(JS_GetStringChars(str), -1, NULL, NULL,
+ NULL);
+ if (strcmp(name, "imports") == 0) {
+ g_free(name);
+ continue;
+ }
+ t = g_strconcat(ret, name, ",", NULL);
+ g_free (ret);
+ ret = t;
+
+ g_free(name);
+ }
+ g_assert(ret != NULL);
+ return ret;
+}
+
+static gchar *
+variable_get_desc(JSContext * cx, JSObject * obj)
+{
+ gchar *ret = g_strdup("");
+ JSPropertyDescArray pda;
+ JS_GetPropertyDescArray(cx, obj, &pda);
+ uint32 i;
+ gboolean first = TRUE;
+
+ for (i = 0; i < pda.length; i++) {
+ JSString *str;
+ gchar *name;
+ gchar *t;
+ const gchar *type;
+ if (pda.array[i].flags & (JSPD_ERROR | JSPD_EXCEPTION))
+ continue;
+
+ str = JS_ValueToString(cx, pda.array[i].id);
+ if (!str)
+ continue;
+ name = g_utf16_to_utf8(JS_GetStringChars(str), -1, NULL, NULL, NULL);
+
+ type = JS_GetTypeName(cx, JS_TypeOfValue(cx, pda.array[i].value));
+ if (first) {
+ ret = g_strconcat("{ ", type, ", ", name, NULL);
+ first = FALSE;
+ } else {
+ t = g_strconcat(ret, ", { ", type, ", ", name, NULL);
+ g_free(ret);
+ ret = t;
+ }
+ t = g_strconcat(ret, ",}", NULL);
+ g_free(ret);
+ ret = t;
+ g_free(name);
+ }
+ g_assert(ret != NULL);
+ return ret;
+}
+
+static gchar *
+variable_get_local(JSContext * cx)
+{
+ JSObject *obj = NULL;
+ JSStackFrame *fi = NULL;
+ JSStackFrame *fp = NULL;
+
+ fp = JS_FrameIterator(cx, &fi);
+ if (fp) {
+ obj = JS_GetFrameCallObject(cx, fp);
+ if (!obj)
+ obj = JS_GetFrameScopeChain(cx, fp);
+ }
+ if (!obj)
+ obj = JS_GetGlobalObject(cx);
+
+ g_assert (obj != NULL);
+
+ return variable_get_members(cx, obj);
+}
+
+GList *to_send = NULL;
+GMutex *command_mutex;
+int command_has;
+char *command = NULL;
+int sock;
+
+static void
+send_reply(const gchar *a1)
+{
+ g_assert(a1 != NULL);
+ to_send = g_list_append(to_send, g_strdup(a1));
+}
+
+static gchar *
+command_get()
+{
+ gchar *ret = NULL;
+ while (ret == NULL) {
+ g_mutex_lock(command_mutex);
+ if (to_send != NULL) {
+ GList *iter;
+ for (iter = to_send; iter; iter = g_list_next(iter)) {
+ int size = strlen((char *)iter->data) + 1;
+ if (send(sock, &size, 4, 0) == -1) {
+ g_error("Can not send.");
+ }
+ if (send(sock, iter->data, size, 0) == -1) {
+ g_error("Can not send.");
+ }
+ }
+ g_list_foreach (to_send, (GFunc)g_free, NULL);
+ g_list_free (to_send);
+ to_send = NULL;
+ }
+ if (command_has) {
+ ret = command;
+ command_has--;
+ } else
+ usleep(2);
+ g_mutex_unlock(command_mutex);
+ }
+ return ret;
+}
+
+static void
+NewScriptHook(JSContext * cx, const char *filename, uintN lineno,
+ JSScript * script, JSFunction * fun, void *callerdata)
+{
+ uintN i;
+ uintN col;
+ if (strstr(filename, ".js") == NULL || strlen(filename) > 10 || !script)
+ return;
+ DEBUG_PRINT("New Script : %s\n", filename);
+ col = JS_PCToLineNumber(cx, script, script->code + script->length - 1);
+ for (i = 0; i <= col; i++) {
+ JS_SetTrap(cx, script, JS_LineNumberToPC(cx, script, i),
+ TrapHandler, NULL);
+ }
+}
+
+static gpointer
+debug_thread(gpointer data)
+{
+ while (1) {
+ int len;
+ gchar *buf = NULL;
+ while (command_has != 0)
+ usleep(2);
+ g_mutex_lock(command_mutex);
+ if (ioctl(sock, FIONREAD, &len) == -1) {
+ g_error("Error in ioctl call.");
+ }
+ if (len > 4) {
+ if (recv(sock, &len, 4, 0) == -1) {
+ g_error("Can not recv.");
+ }
+ g_assert(len > 0);
+ buf = g_malloc(len + 1);
+ if (recv(sock, buf, len, 0) == -1) {
+ g_error("Can not recv.");
+ }
+ buf[len] = '\0';
+ command = g_strdup(buf);
+ g_free(buf);
+ command_has++;
+ }
+ g_mutex_unlock(command_mutex);
+ }
+}
+
+void
+debug_init(int *argc, char ***argv, GjsContext * context)
+{
+ int i;
+ int flag;
+ int port = 1235;
+ struct in_addr sip;
+ struct sockaddr_in ssa;
+ JSContext *cx = gjs_context_get_context(context);
+ JSRuntime *rt = JS_GetRuntime(cx);
+ gchar *ip = NULL;
+ for (i = 0; i < *argc - 1; i++) {
+ if (strcmp((*argv)[i], "--debug") == 0) {
+ ip = (*argv)[i + 1];
+ wait_command = TRUE;
+ }
+ if (strcmp((*argv)[i], "--js-port") == 0) {
+ sscanf((*argv)[i + 1], "%d", &port);
+ }
+ }
+
+ g_assert (port > 0);
+
+ if (ip == NULL)
+ return;
+ if (!g_thread_supported())
+ g_thread_init(NULL);
+
+ sock = socket(AF_INET, SOCK_STREAM, 0);
+ if (inet_aton(ip, &sip) != 1) {
+ g_error("Incorrect addres.");
+ }
+ ssa.sin_family = AF_INET;
+ ssa.sin_port = htons(port);
+ ssa.sin_addr = sip;
+ flag = 1;
+ setsockopt(sock, IPPROTO_TCP, TCP_NODELAY, (char *)&flag, sizeof(int));
+ if (connect(sock, (struct sockaddr *)&ssa, sizeof(ssa)) == -1) {
+ g_error("Can not connect.");
+ }
+
+ command_mutex = g_mutex_new();
+ command_has = 0;
+ g_thread_create(debug_thread, NULL, FALSE, NULL);
+ JS_SetNewScriptHook(rt, NewScriptHook, NULL);
+}
diff --git a/plugins/project-wizard/templates/js_minimal/src/debug.h b/plugins/project-wizard/templates/js_minimal/src/debug.h
new file mode 100644
index 0000000..a27a3ca
--- /dev/null
+++ b/plugins/project-wizard/templates/js_minimal/src/debug.h
@@ -0,0 +1,22 @@
+/***************************************************************************
+ * Copyright (C) Maxim Ermilov 2009 <zaspire rambler ru>
+ ****************************************************************************/
+/*
+ * 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 Library 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., 51 Franklin Street, Fifth Floor Boston, MA 02110-1301, USA
+ */
+
+#include <gjs/gjs.h>
+
+void debug_init (int *argc, char ***argv, GjsContext *cx);
\ No newline at end of file
diff --git a/plugins/project-wizard/templates/js_minimal/src/main.c b/plugins/project-wizard/templates/js_minimal/src/main.c
new file mode 100644
index 0000000..245cc54
--- /dev/null
+++ b/plugins/project-wizard/templates/js_minimal/src/main.c
@@ -0,0 +1,46 @@
+[+ autogen5 template +]
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ * main.c
+ * Copyright (C) [+Author+] [+(shell "date +%Y")+] <[+Email+]>
+ *
+[+CASE (get "License") +]
+[+ == "BSD" +][+(bsd "main.c" (get "Author") " * ")+]
+[+ == "LGPL" +][+(lgpl "main.c" (get "Author") " * ")+]
+[+ == "GPL" +][+(gpl "main.c" " * ")+]
+[+ESAC+] */
+
+#include <glib.h>
+#include <gjs/gjs.h>
+#include <girepository.h>
+
+#include "debug.h"
+
+int main(int argc, char **argv)
+{
+ GjsContext *gjs_context;
+ const char *js_dir;
+ char **search_path;
+ GError *error = NULL;
+ int status;
+
+ g_type_init ();
+ g_irepository_prepend_search_path (TYPELIBDIR);
+
+ js_dir = JSDIR":.";
+
+ search_path = g_strsplit(js_dir, ":", -1);
+ gjs_context = gjs_context_new_with_search_path(search_path);
+
+ debug_init (&argc, &argv, gjs_context);
+
+ if (!gjs_context_eval (gjs_context,
+ "const Main = imports.main; Main.start();",
+ -1, "<main>", &status, &error))
+ {
+ g_warning ("Evaling main.js failed: %s", error->message);
+ g_error_free (error);
+ }
+ g_strfreev (search_path);
+ return 0;
+}
diff --git a/plugins/project-wizard/templates/js_minimal/src/main.js b/plugins/project-wizard/templates/js_minimal/src/main.js
new file mode 100644
index 0000000..92e6b35
--- /dev/null
+++ b/plugins/project-wizard/templates/js_minimal/src/main.js
@@ -0,0 +1,5 @@
+const GLib = imports.gi.DBus;
+
+function start() {
+ log("Hello World!");
+}
diff --git a/plugins/project-wizard/templates/translatable-strings.h b/plugins/project-wizard/templates/translatable-strings.h
index 49c2567..ef02535 100644
--- a/plugins/project-wizard/templates/translatable-strings.h
+++ b/plugins/project-wizard/templates/translatable-strings.h
@@ -11,6 +11,7 @@ char *s = N_("A generic project");
char *s = N_("A generic Python project using automake project management");
char *s = N_("A generic wxWidgets project");
char *s = N_("A sample SDL project");
+char *s = N_("A shared or a static library project");
char *s = N_("Add C++ support:");
char *s = N_("Add gtk-doc system:");
char *s = N_("Add internationalization:");
@@ -24,6 +25,7 @@ char *s = N_("Applet Title:");
char *s = N_("Author:");
char *s = N_("Basic information");
char *s = N_("Berkeley Software Distribution License (BSD)");
+char *s = N_("Build library as");
char *s = N_("Comma-separated, other plugins that this plugin depends on. It could be either primary interface name or plugin location (library:class)");
char *s = N_("Configure external packages");
char *s = N_("Configure external packages:");
@@ -48,6 +50,7 @@ char *s = N_("General Public License (GPL)");
char *s = N_("Generic");
char *s = N_("Generic (Minimal)");
char *s = N_("Generic C++");
+char *s = N_("Generic JavaScript");
char *s = N_("Generic gcj compiled Java");
char *s = N_("Generic Java (automake)");
char *s = N_("Generic Python (automake)");
@@ -58,6 +61,7 @@ char *s = N_("Implement plugin interfaces");
char *s = N_("Interface implemented by the plugin");
char *s = N_("Interface:");
char *s = N_("Lesser General Public License (LGPL)");
+char *s = N_("Library");
char *s = N_("License");
char *s = N_("Main Class:");
char *s = N_("Main class");
@@ -66,6 +70,8 @@ char *s = N_("Makefile-based project");
char *s = N_("Mininum SDL version required");
char *s = N_("Name of the value to watch");
char *s = N_("No license");
+char *s = N_("Only Shared");
+char *s = N_("Only Static");
char *s = N_("Options for project build system");
char *s = N_("Plugin Class Name:");
char *s = N_("Plugin Dependencies:");
@@ -95,6 +101,8 @@ char *s = N_("Require SDL_ttf library");
char *s = N_("Require SDL_ttf:");
char *s = N_("SDL");
char *s = N_("Select code license");
+char *s = N_("Select library type to build");
+char *s = N_("Shared and Static library");
char *s = N_("Shell values to watch");
char *s = N_("Use pkg-config to add library support from other packages");
char *s = N_("Value Name:");
diff --git a/plugins/symbol-db/anjuta-tags/Makefile.am b/plugins/symbol-db/anjuta-tags/Makefile.am
index 62ec5a2..7ca73e3 100644
--- a/plugins/symbol-db/anjuta-tags/Makefile.am
+++ b/plugins/symbol-db/anjuta-tags/Makefile.am
@@ -8,10 +8,26 @@ AM_CPPFLAGS = \
-DPACKAGE_DATA_DIR=\""$(datadir)"\"
AM_CFLAGS =\
- -Wall
+ -Wall \
+ $(GLIB_CFLAGS) \
+ $(LIBXML_CFLAGS)
bin_PROGRAMS = anjuta-tags
+YACCFLAGS = -d -o ./parser/y.tab.c
+YACCFILE = ./parser/Grammar.y
+PARSER = bison
+
+parser/y.tab.c : ${YACCFILE}
+ ${PARSER} ${YACCFLAGS} ${YACCFILE}
+
+LEXER = flex
+LEXFILE = ./parser/lex.l
+LEXCCFLAGS = -Cr -o parser/lex.yy.c --yylineno --bison-bridge
+
+parser/lex.yy.c : ${LEXFILE}
+ ${LEXER} ${LEXCCFLAGS} ${LEXFILE}
+
anjuta_tags_SOURCES = \
main.c \
acconfig.h \
@@ -47,6 +63,7 @@ anjuta_tags_SOURCES = \
general.h \
get.c \
get.h \
+ gir.c \
html.c \
jscript.c \
keyword.c \
@@ -58,7 +75,7 @@ anjuta_tags_SOURCES = \
make.c \
Makefile.am \
matlab.c \
- ocaml.c \
+ ocaml.c \
options.c \
options.h \
parse.c \
@@ -90,9 +107,19 @@ anjuta_tags_SOURCES = \
vim.c \
vstring.c \
vstring.h \
- yacc.c
+ yacc.c \
+parser/y.tab.c \
+parser/lex.yy.c \
+parser/jsparse.c \
+parser/js-context.c \
+parser/js-node.c
+
-anjuta_tags_LDFLAGS =
+anjuta_tags_LDFLAGS = \
+ $(GLIB_LDFLAGS) \
+ $(LIBXML_LDFLAGS)
-anjuta_tags_LDADD =
+anjuta_tags_LDADD = \
+ $(GLIB_LIBS) \
+ $(LIBXML_LIBS)
diff --git a/plugins/symbol-db/anjuta-tags/gir.c b/plugins/symbol-db/anjuta-tags/gir.c
new file mode 100644
index 0000000..bb1e30e
--- /dev/null
+++ b/plugins/symbol-db/anjuta-tags/gir.c
@@ -0,0 +1,234 @@
+#include "general.h" /* must always come first */
+#include "debug.h"
+#include "entry.h"
+#include "keyword.h"
+#include "parse.h"
+#include "read.h"
+#include "routines.h"
+#include "vstring.h"
+#include <glib.h>
+#include <assert.h>
+#include <libxml/xmlmemory.h>
+#include <libxml/parser.h>
+#include <libxml/tree.h>
+
+static kindOption Kinds [] = {
+ { TRUE, 'f', "function", "functions" },
+ { TRUE, 'c', "class", "classes" },
+ { TRUE, 'm', "method", "methods" },
+ { TRUE, 'p', "property", "properties" },
+ { TRUE, 'v', "variable", "global variables" }
+};
+
+static void
+initialize (const langType language)
+{
+}
+
+static void
+get_file_pos (gint line, fpos_t *fpos, FILE *f)
+{
+ vString * str = vStringNew ();
+ gint i;
+ g_assert (fseek (f, 0, SEEK_SET) == 0);
+
+ for (i = 0;i < line - 1; i++)
+ if (readLine (str, f) == NULL)
+ return;
+
+ g_assert (fgetpos (f, fpos) == 0);
+}
+
+static void
+parse_function (xmlNode *node, const gchar *parent)
+{
+ xmlNode *i, *k;
+ gchar *name;
+ tagEntryInfo *tag;
+
+ g_assert (node != NULL);
+
+ name = (gchar*)xmlGetProp (node, (xmlChar*)"name");
+ if (!name)
+ return NULL;
+
+ tag = (tagEntryInfo*)malloc (sizeof (tagEntryInfo));
+ initTagEntry (tag, name);
+ get_file_pos (node->line, &tag->filePosition, File.fp);
+ tag->lineNumber = node->line;
+ tag->isFileScope = 1;
+ tag->kindName = "function";
+ tag->kind = 'f';
+ if (parent) {
+ tag->kindName = "member";
+ tag->kind = 'm';
+ tag->extensionFields.scope[0] = "class";
+ tag->extensionFields.scope[1] = parent;
+ }
+
+ for (i = node->children; i; i = i->next)
+ {
+ if (!i->name)
+ continue;
+ if (strcmp ((const gchar*)i->name, "return-value") == 0)
+ {
+ for (k = i->children; k; k = k->next)
+ {
+ const gchar *tmp;
+ if (!k->name)
+ continue;
+ tmp = (const gchar*)xmlGetProp (k, (const xmlChar*)"name");
+ if (!tmp)
+ continue;
+ tag->extensionFields.returnType = tmp;
+ }
+ }
+ if (strcmp ((const gchar*)i->name, "parameters") == 0)
+ {
+ for (k = i->children; k; k = k->next)
+ {
+/*TODO: const gchar *name;
+ if (!k->name)
+ continue;
+ name = (const gchar*)xmlGetProp (node, (const xmlChar*)"name");
+ if (!name)
+ continue;
+ tmp = g_new (Argument, 1);
+ tmp->name = g_strdup (name);
+ tmp->types = NULL;
+ ret->args = g_list_append (ret->args, tmp);*/
+ }
+ }
+ }
+ makeTagEntry (tag);
+}
+
+static void makeTags (const xmlNode *node, const gchar *parent);
+
+static void
+parse_class (xmlNode *node)
+{
+ xmlNode *i;
+ gchar *name;
+
+ g_assert (node);
+
+ name = (gchar*)xmlGetProp (node, (const xmlChar*)"name");
+ if (!name)
+ return NULL;
+
+ tagEntryInfo *tag = (tagEntryInfo*)malloc (sizeof (tagEntryInfo));
+ initTagEntry (tag, name);
+ tag->isFileScope = 1;
+ tag->kindName = "class";
+ tag->kind = 'c';
+ get_file_pos (node->line, &tag->filePosition, File.fp);
+ tag->lineNumber = node->line;
+ makeTagEntry (tag);
+
+ for (i = node->children; i; i = i->next)
+ {
+ makeTags (i, name);
+ }
+}
+
+static void
+makeTags (const xmlNode *node, const gchar *parent)
+{
+ xmlNode *i;
+
+ g_assert (node != NULL);
+ g_assert (node->name != NULL);
+
+ if (strcmp ((const gchar*)node->name, "text") == 0
+ || strcmp ((const gchar*)node->name, "implements") == 0)
+ return;
+ if (strcmp ((const gchar*)node->name, "enumeration") == 0
+ || strcmp ((const gchar*)node->name, "union") == 0
+ || strcmp ((const gchar*)node->name, "namespace") == 0
+ || strcmp ((const gchar*)node->name, "class") == 0
+ || strcmp ((const gchar*)node->name, "record") == 0
+ || strcmp ((const gchar*)node->name, "bitfield") == 0
+ || strcmp ((const gchar*)node->name, "interface") == 0)
+ {
+ return parse_class (node);
+ }
+ if (strcmp ((const gchar*)node->name, "function") == 0 || strcmp ((const gchar*)node->name, "method") == 0
+ || strcmp ((const gchar*)node->name, "callback") == 0
+ || strcmp ((const gchar*)node->name, "constructor") == 0)
+ {
+ return parse_function (node, parent);
+ }
+ if (strcmp ((const gchar*)node->name, "alias") == 0 ||
+ strcmp ((const gchar*)node->name, "constant") == 0 ||
+ strcmp ((const gchar*)node->name, "signal") == 0 ||
+ strcmp ((const gchar*)node->name, "field") == 0 ||
+ strcmp ((const gchar*)node->name, "property") == 0 ||
+ strcmp ((const gchar*)node->name, "member") == 0)
+ {
+ gchar *name = (gchar*)xmlGetProp (node, (const xmlChar*)"name");
+ if (!name)
+ return;
+ tagEntryInfo *tag = (tagEntryInfo*)malloc (sizeof (tagEntryInfo));
+ initTagEntry (tag, name);
+ tag->isFileScope = 1;
+ tag->kindName = "variable";
+ tag->kind = 'v';
+ get_file_pos (node->line, &tag->filePosition, File.fp);
+ tag->lineNumber = node->line;
+ if (parent) {
+ tag->kindName = "member";
+ tag->kind = 'm';
+ tag->extensionFields.scope[0] = "class";
+ tag->extensionFields.scope[1] = parent;
+ }
+ makeTagEntry (tag);
+ return;
+ }
+ puts ((const gchar*)node->name);
+// g_assert_not_reached ();
+}
+
+static boolean
+findTags (const unsigned int passCount)
+{
+ assert (passCount == 1);
+
+ xmlNode *i;
+ xmlDocPtr doc = xmlParseFile(getInputFileName());
+ xmlNode *root;
+
+ if (doc == NULL) {
+ g_warning ("could not parse file");
+ }
+ root = xmlDocGetRootElement(doc);
+ for (i = root->children; i; i = i->next)
+ {
+ xmlNode *j;
+ if (!i->name)
+ continue;
+ if (strcmp ((const char*)i->name, "namespace") !=0)
+ continue;
+ for (j = i->children; j; j = j->next)
+ {
+ makeTags (j, NULL);
+ }
+ }
+
+ return 1;
+}
+
+extern parserDefinition*
+GirParser (void)
+{
+ static const char *const extensions [] = { "gir", NULL };
+ parserDefinition *const def = parserNew ("GObject-Introspection");
+ def->extensions = extensions;
+
+ def->kinds = Kinds;
+ def->kindCount = KIND_COUNT (Kinds);
+ def->parser = findTags;
+ def->initialize = initialize;
+
+ return def;
+}
diff --git a/plugins/symbol-db/anjuta-tags/jscript.c b/plugins/symbol-db/anjuta-tags/jscript.c
old mode 100644
new mode 100755
index c4e5b1a..4304cf3
--- a/plugins/symbol-db/anjuta-tags/jscript.c
+++ b/plugins/symbol-db/anjuta-tags/jscript.c
@@ -1,30 +1,22 @@
/*
- * $Id: jscript.c 666 2008-05-15 17:47:31Z dfishburn $
- *
- * Copyright (c) 2003, Darren Hiebert
- *
- * This source code is released for free distribution under the terms of the
- * GNU General Public License.
- *
- * This module contains functions for generating tags for JavaScript language
- * files.
- *
- * This is a good reference for different forms of the function statement:
- * http://www.permadi.com/tutorial/jsFunc/
- * Another good reference:
- * http://developer.mozilla.org/en/docs/Core_JavaScript_1.5_Guide
- */
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
-/*
- * INCLUDE FILES
- */
-#include "general.h" /* must always come first */
-#include <ctype.h> /* to define isalpha () */
-#include <setjmp.h>
-#ifdef DEBUG
-#include <stdio.h>
-#endif
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#include "general.h" /* must always come first */
#include "debug.h"
#include "entry.h"
#include "keyword.h"
@@ -32,1536 +24,319 @@
#include "read.h"
#include "routines.h"
#include "vstring.h"
+#include <assert.h>
+#include "parser/jstypes.h"
+#include <glib.h>
+#include "parser/jsparse.h"
+#include "parser/js-context.h"
-/*
- * MACROS
- */
-#define isType(token,t) (boolean) ((token)->type == (t))
-#define isKeyword(token,k) (boolean) ((token)->keyword == (k))
+#include <string.h>
-/*
- * DATA DECLARATIONS
- */
-
-typedef enum eException { ExceptionNone, ExceptionEOF } exception_t;
-
-/*
- * Tracks class and function names already created
- */
-static stringList *ClassNames;
-static stringList *FunctionNames;
-
-/* Used to specify type of keyword.
-*/
-typedef enum eKeywordId {
- KEYWORD_NONE = -1,
- KEYWORD_function,
- KEYWORD_capital_function,
- KEYWORD_object,
- KEYWORD_capital_object,
- KEYWORD_prototype,
- KEYWORD_var,
- KEYWORD_new,
- KEYWORD_this,
- KEYWORD_for,
- KEYWORD_while,
- KEYWORD_do,
- KEYWORD_if,
- KEYWORD_else,
- KEYWORD_switch,
- KEYWORD_try,
- KEYWORD_catch,
- KEYWORD_finally
-} keywordId;
-
-/* Used to determine whether keyword is valid for the token language and
- * what its ID is.
- */
-typedef struct sKeywordDesc {
- const char *name;
- keywordId id;
-} keywordDesc;
-
-typedef enum eTokenType {
- TOKEN_UNDEFINED,
- TOKEN_CHARACTER,
- TOKEN_CLOSE_PAREN,
- TOKEN_SEMICOLON,
- TOKEN_COLON,
- TOKEN_COMMA,
- TOKEN_KEYWORD,
- TOKEN_OPEN_PAREN,
- TOKEN_OPERATOR,
- TOKEN_IDENTIFIER,
- TOKEN_STRING,
- TOKEN_PERIOD,
- TOKEN_OPEN_CURLY,
- TOKEN_CLOSE_CURLY,
- TOKEN_EQUAL_SIGN,
- TOKEN_FORWARD_SLASH,
- TOKEN_OPEN_SQUARE,
- TOKEN_CLOSE_SQUARE
-} tokenType;
-
-typedef struct sTokenInfo {
- tokenType type;
- keywordId keyword;
- vString * string;
- vString * scope;
- unsigned long lineNumber;
- fpos_t filePosition;
- int nestLevel;
- boolean ignoreTag;
-} tokenInfo;
-
-/*
- * DATA DEFINITIONS
- */
-
-static langType Lang_js;
-
-static jmp_buf Exception;
-
-typedef enum {
- JSTAG_FUNCTION,
- JSTAG_CLASS,
- JSTAG_METHOD,
- JSTAG_PROPERTY,
- JSTAG_VARIABLE,
- JSTAG_COUNT
-} jsKind;
-
-static kindOption JsKinds [] = {
- { TRUE, 'f', "function", "functions" },
- { TRUE, 'c', "class", "classes" },
- { TRUE, 'm', "method", "methods" },
- { TRUE, 'p', "property", "properties" },
- { TRUE, 'v', "variable", "global variables" }
-};
-
-static const keywordDesc JsKeywordTable [] = {
- /* keyword keyword ID */
- { "function", KEYWORD_function },
- { "Function", KEYWORD_capital_function },
- { "object", KEYWORD_object },
- { "Object", KEYWORD_capital_object },
- { "prototype", KEYWORD_prototype },
- { "var", KEYWORD_var },
- { "new", KEYWORD_new },
- { "this", KEYWORD_this },
- { "for", KEYWORD_for },
- { "while", KEYWORD_while },
- { "do", KEYWORD_do },
- { "if", KEYWORD_if },
- { "else", KEYWORD_else },
- { "switch", KEYWORD_switch },
- { "try", KEYWORD_try },
- { "catch", KEYWORD_catch },
- { "finally", KEYWORD_finally }
-};
-
-/*
- * FUNCTION DEFINITIONS
- */
-
-/* Recursive functions */
-static void parseFunction (tokenInfo *const token);
-static boolean parseBlock (tokenInfo *const token, tokenInfo *const parent);
-static boolean parseLine (tokenInfo *const token, boolean is_inside_class);
-
-static boolean isIdentChar (const int c)
+static JSTokenPos*
+getTagPos (JSNode *node)
{
- return (boolean)
- (isalpha (c) || isdigit (c) || c == '$' ||
- c == '@' || c == '_' || c == '#');
+ if (node->pn_type == TOK_NAME)
+ return &node->pn_pos;
+ return NULL;
}
-static void buildJsKeywordHash (void)
-{
- const size_t count = sizeof (JsKeywordTable) /
- sizeof (JsKeywordTable [0]);
- size_t i;
- for (i = 0 ; i < count ; ++i)
- {
- const keywordDesc* const p = &JsKeywordTable [i];
- addKeyword (p->name, Lang_js, (int) p->id);
- }
-}
+#define PROTOTYPE ".prototype"
-static tokenInfo *newToken (void)
+static void
+get_file_pos (gint line, fpos_t *fpos, FILE *f)
{
- tokenInfo *const token = xMalloc (1, tokenInfo);
-
- token->type = TOKEN_UNDEFINED;
- token->keyword = KEYWORD_NONE;
- token->string = vStringNew ();
- token->scope = vStringNew ();
- token->nestLevel = 0;
- token->ignoreTag = FALSE;
- token->lineNumber = getSourceLineNumber ();
- token->filePosition = getInputFilePosition ();
+ vString * str = vStringNew ();
+ gint i;
+ g_assert (fseek (f, 0, SEEK_SET) == 0);
- return token;
-}
+ for (i = 0;i < line - 1; i++)
+ if (readLine (str, f) == NULL)
+ return;
-static void deleteToken (tokenInfo *const token)
-{
- vStringDelete (token->string);
- vStringDelete (token->scope);
- eFree (token);
+ g_assert (fgetpos (f, fpos) == 0);
}
-/*
- * Tag generation functions
- */
+static GList *symbols = NULL;
+static GList *tags = NULL;
-static void makeConstTag (tokenInfo *const token, const jsKind kind)
+static void
+get_member_list (JSContext *my_cx)
{
- if (JsKinds [kind].enabled && ! token->ignoreTag )
- {
- const char *const name = vStringValue (token->string);
- tagEntryInfo e;
- initTagEntry (&e, name);
+ GList *i;
- e.lineNumber = token->lineNumber;
- e.filePosition = token->filePosition;
- e.kindName = JsKinds [kind].name;
- e.kind = JsKinds [kind].letter;
+ g_assert (my_cx != NULL);
- makeTagEntry (&e);
- }
-}
-
-static void makeJsTag (tokenInfo *const token, const jsKind kind)
-{
- vString * fulltag;
+ gint plen = strlen (PROTOTYPE);
- if (JsKinds [kind].enabled && ! token->ignoreTag )
+ for (i = my_cx->local_var; i; i = g_list_next (i))
{
- /*
- * If a scope has been added to the token, change the token
- * string to include the scope when making the tag.
- */
- if ( vStringLength(token->scope) > 0 )
+ gint len;
+ gchar *tstr;
+ Var *t = (Var *)i->data;
+ if (!t->name)
+ continue;
+ len = strlen (t->name);
+ if (len <= plen)
+ continue;
+ if (tstr = strstr (t->name, PROTOTYPE), tstr == NULL)
+ continue;
+ if (strlen (tstr) != plen)
{
- fulltag = vStringNew ();
- vStringCopy(fulltag, token->scope);
- vStringCatS (fulltag, ".");
- vStringCatS (fulltag, vStringValue(token->string));
- vStringTerminate(fulltag);
- vStringCopy(token->string, fulltag);
- vStringDelete (fulltag);
- }
- makeConstTag (token, kind);
- }
-}
-
-static void makeClassTag (tokenInfo *const token)
-{
- vString * fulltag;
-
- if ( ! token->ignoreTag )
- {
- fulltag = vStringNew ();
- if (vStringLength (token->scope) > 0)
- {
- vStringCopy(fulltag, token->scope);
- vStringCatS (fulltag, ".");
- vStringCatS (fulltag, vStringValue(token->string));
+//TODO:puts (t->name);
+//Make tag
}
else
{
- vStringCopy(fulltag, token->string);
- }
- vStringTerminate(fulltag);
- if ( ! stringListHas(ClassNames, vStringValue (fulltag)) )
- {
- stringListAdd (ClassNames, vStringNewCopy (fulltag));
- makeJsTag (token, JSTAG_CLASS);
- }
- vStringDelete (fulltag);
- }
-}
+ JSNode *node = t->node;
+ JSNode* iter;
-static void makeFunctionTag (tokenInfo *const token)
-{
- vString * fulltag;
-
- if ( ! token->ignoreTag )
- {
- fulltag = vStringNew ();
- if (vStringLength (token->scope) > 0)
- {
- vStringCopy(fulltag, token->scope);
- vStringCatS (fulltag, ".");
- vStringCatS (fulltag, vStringValue(token->string));
- }
- else
- {
- vStringCopy(fulltag, token->string);
- }
- vStringTerminate(fulltag);
- if ( ! stringListHas(FunctionNames, vStringValue (fulltag)) )
- {
- stringListAdd (FunctionNames, vStringNewCopy (fulltag));
- makeJsTag (token, JSTAG_FUNCTION);
- }
- vStringDelete (fulltag);
- }
-}
-
-/*
- * Parsing functions
- */
-
-static void parseString (vString *const string, const int delimiter)
-{
- boolean end = FALSE;
- while (! end)
- {
- int c = fileGetc ();
- if (c == EOF)
- end = TRUE;
- else if (c == '\\')
- {
- c = fileGetc(); /* This maybe a ' or ". */
- vStringPut(string, c);
- }
- else if (c == delimiter)
- end = TRUE;
- else
- vStringPut (string, c);
- }
- vStringTerminate (string);
-}
-
-/* Read a C identifier beginning with "firstChar" and places it into
- * "name".
- */
-static void parseIdentifier (vString *const string, const int firstChar)
-{
- int c = firstChar;
- Assert (isIdentChar (c));
- do
- {
- vStringPut (string, c);
- c = fileGetc ();
- } while (isIdentChar (c));
- vStringTerminate (string);
- if (!isspace (c))
- fileUngetc (c); /* unget non-identifier character */
-}
-
-static void readToken (tokenInfo *const token)
-{
- int c;
-
- token->type = TOKEN_UNDEFINED;
- token->keyword = KEYWORD_NONE;
- vStringClear (token->string);
-
-getNextChar:
- do
- {
- c = fileGetc ();
- token->lineNumber = getSourceLineNumber ();
- token->filePosition = getInputFilePosition ();
- }
- while (c == '\t' || c == ' ' || c == '\n');
-
- switch (c)
- {
- case EOF: longjmp (Exception, (int)ExceptionEOF); break;
- case '(': token->type = TOKEN_OPEN_PAREN; break;
- case ')': token->type = TOKEN_CLOSE_PAREN; break;
- case ';': token->type = TOKEN_SEMICOLON; break;
- case ',': token->type = TOKEN_COMMA; break;
- case '.': token->type = TOKEN_PERIOD; break;
- case ':': token->type = TOKEN_COLON; break;
- case '{': token->type = TOKEN_OPEN_CURLY; break;
- case '}': token->type = TOKEN_CLOSE_CURLY; break;
- case '=': token->type = TOKEN_EQUAL_SIGN; break;
- case '[': token->type = TOKEN_OPEN_SQUARE; break;
- case ']': token->type = TOKEN_CLOSE_SQUARE; break;
-
- case '\'':
- case '"':
- token->type = TOKEN_STRING;
- parseString (token->string, c);
- token->lineNumber = getSourceLineNumber ();
- token->filePosition = getInputFilePosition ();
- break;
-
- case '\\':
- c = fileGetc ();
- if (c != '\\' && c != '"' && !isspace (c))
- fileUngetc (c);
- token->type = TOKEN_CHARACTER;
- token->lineNumber = getSourceLineNumber ();
- token->filePosition = getInputFilePosition ();
- break;
-
- case '/':
- {
- int d = fileGetc ();
- if ( (d != '*') && /* is this the start of a comment? */
- (d != '/') ) /* is a one line comment? */
- {
- token->type = TOKEN_FORWARD_SLASH;
- fileUngetc (d);
- }
- else
- {
- if (d == '*')
- {
- do
- {
- fileSkipToCharacter ('*');
- c = fileGetc ();
- if (c == '/')
- break;
- else
- fileUngetc (c);
- } while (c != EOF && c != '\0');
- goto getNextChar;
- }
- else if (d == '/') /* is this the start of a comment? */
- {
- fileSkipToCharacter ('\n');
- goto getNextChar;
- }
- }
- break;
- }
-
- default:
- if (! isIdentChar (c))
- token->type = TOKEN_UNDEFINED;
- else
- {
- parseIdentifier (token->string, c);
- token->lineNumber = getSourceLineNumber ();
- token->filePosition = getInputFilePosition ();
- token->keyword = analyzeToken (token->string, Lang_js);
- if (isKeyword (token, KEYWORD_NONE))
- token->type = TOKEN_IDENTIFIER;
- else
- token->type = TOKEN_KEYWORD;
- }
- break;
- }
-}
-
-static void copyToken (tokenInfo *const dest, tokenInfo *const src)
-{
- dest->nestLevel = src->nestLevel;
- dest->lineNumber = src->lineNumber;
- dest->filePosition = src->filePosition;
- dest->type = src->type;
- dest->keyword = src->keyword;
- vStringCopy(dest->string, src->string);
- vStringCopy(dest->scope, src->scope);
-}
-
-/*
- * Token parsing functions
- */
-
-static void skipArgumentList (tokenInfo *const token)
-{
- int nest_level = 0;
-
- /*
- * Other databases can have arguments with fully declared
- * datatypes:
- * ( name varchar(30), text binary(10) )
- * So we must check for nested open and closing parantheses
- */
-
- if (isType (token, TOKEN_OPEN_PAREN)) /* arguments? */
- {
- nest_level++;
- while (! (isType (token, TOKEN_CLOSE_PAREN) && (nest_level == 0)))
- {
- readToken (token);
- if (isType (token, TOKEN_OPEN_PAREN))
- {
- nest_level++;
- }
- if (isType (token, TOKEN_CLOSE_PAREN))
+ g_assert (node->pn_type == TOK_RC);
+
+ for (iter = node->pn_u.list.head; iter != NULL; iter = iter->pn_next)
{
- if (nest_level > 0)
+ const gchar* name = js_node_get_name (iter->pn_u.binary.left);
+ const JSTokenPos* pos = getTagPos (iter->pn_u.binary.left);
+ if (!name)
+ g_assert_not_reached ();
+ else
{
- nest_level--;
- }
- }
- }
- readToken (token);
- }
-}
-
-static void skipArrayList (tokenInfo *const token)
-{
- int nest_level = 0;
-
- /*
- * Handle square brackets
- * var name[1]
- * So we must check for nested open and closing square brackets
- */
+ gchar *rname = g_strndup (t->name, len - plen);
- if (isType (token, TOKEN_OPEN_SQUARE)) /* arguments? */
- {
- nest_level++;
- while (! (isType (token, TOKEN_CLOSE_SQUARE) && (nest_level == 0)))
- {
- readToken (token);
- if (isType (token, TOKEN_OPEN_SQUARE))
- {
- nest_level++;
- }
- if (isType (token, TOKEN_CLOSE_SQUARE))
- {
- if (nest_level > 0)
- {
- nest_level--;
+ if (g_strcmp0 (name, "__proto__") == 0 )
+ {
+ GList *i;
+ Type *t = js_context_get_node_type (my_cx, JS_NODE (iter->pn_u.binary.right));
+ if (!t || !t->name)
+ continue;
+ for (i = tags; i != NULL; i = g_list_next (i))
+ if (g_strcmp0 (((tagEntryInfo *)i->data)->name, rname) == 0)
+ {
+ gchar *tn = g_strdup (t->name), *tstr;
+ if (tstr = strstr (tn, PROTOTYPE), tstr != NULL)
+ {
+ g_assert (strlen (tstr) == plen);
+ *tstr = '\0';
+ }
+ ((tagEntryInfo *)i->data)->extensionFields.inheritance = tn;
+ break;
+ }
+ }
+ else
+ {
+ tagEntryInfo *tag = (tagEntryInfo*)malloc (sizeof (tagEntryInfo));
+
+ symbols = g_list_append (symbols, g_strdup (name));
+
+ initTagEntry (tag, name);
+ tag->isFileScope = 1;
+ tag->kindName = "member";
+ tag->kind = 'm';
+ get_file_pos (pos->begin, &tag->filePosition, File.fp);
+ tag->lineNumber = pos->begin;
+ tag->extensionFields.scope[0]="class";
+ tag->extensionFields.scope[1]=rname;
+ JSNode *node = (JSNode *)iter->pn_u.binary.right;
+ if (node && node->pn_arity == PN_FUNC && node->pn_u.func.args)
+ {
+ gchar *str = NULL, *t;
+ JSNode *i = node->pn_u.func.args;
+ g_assert (i->pn_arity == PN_LIST);
+ for (i = (JSNode *)i->pn_u.list.head; i; i = (JSNode *)i->pn_next)
+ {
+ const gchar *name;
+ g_assert (i->pn_arity == PN_NAME);
+ name = js_node_get_name (i);
+ g_assert (name != NULL);
+ if (str == NULL)
+ str = g_strdup_printf ("( %s", name);
+ else
+ {
+ t = g_strdup_printf ("%s, %s", str, name);
+ g_free (str);
+ str = t;
+ }
+ }
+ t = g_strdup_printf ("%s)", str);
+ g_free (str);
+ str = t;
+ tag->extensionFields.signature = str;
+ }
+ makeTagEntry (tag);
+ }
}
}
- }
- readToken (token);
- }
-}
-
-static void addContext (tokenInfo* const parent, const tokenInfo* const child)
-{
- if (vStringLength (parent->string) > 0)
- {
- vStringCatS (parent->string, ".");
- }
- vStringCatS (parent->string, vStringValue(child->string));
- vStringTerminate(parent->string);
-}
-
-static void addToScope (tokenInfo* const token, vString* const extra)
-{
- if (vStringLength (token->scope) > 0)
- {
- vStringCatS (token->scope, ".");
- }
- vStringCatS (token->scope, vStringValue(extra));
- vStringTerminate(token->scope);
-}
-
-/*
- * Scanning functions
- */
-
-static void findCmdTerm (tokenInfo *const token)
-{
- /*
- * Read until we find either a semicolon or closing brace.
- * Any nested braces will be handled within.
- */
- while (! ( isType (token, TOKEN_SEMICOLON) ||
- isType (token, TOKEN_CLOSE_CURLY) ) )
- {
- /* Handle nested blocks */
- if ( isType (token, TOKEN_OPEN_CURLY))
- {
- parseBlock (token, token);
- }
- else if ( isType (token, TOKEN_OPEN_PAREN) )
- {
- skipArgumentList(token);
- }
- else
- {
- readToken (token);
- }
- }
-}
-
-static void parseSwitch (tokenInfo *const token)
-{
- /*
- * switch (expression){
- * case value1:
- * statement;
- * break;
- * case value2:
- * statement;
- * break;
- * default : statement;
- * }
- */
-
- readToken (token);
-
- if (isType (token, TOKEN_OPEN_PAREN))
- {
- /*
- * Handle nameless functions, these will only
- * be considered methods.
- */
- skipArgumentList(token);
- }
-
- if (isType (token, TOKEN_OPEN_CURLY))
- {
- /*
- * This will be either a function or a class.
- * We can only determine this by checking the body
- * of the function. If we find a "this." we know
- * it is a class, otherwise it is a function.
- */
- parseBlock (token, token);
- }
-
-}
-
-static void parseLoop (tokenInfo *const token)
-{
- /*
- * Handles these statements
- * for (x=0; x<3; x++)
- * document.write("This text is repeated three times<br>");
- *
- * for (x=0; x<3; x++)
- * {
- * document.write("This text is repeated three times<br>");
- * }
- *
- * while (number<5){
- * document.write(number+"<br>");
- * number++;
- * }
- *
- * do{
- * document.write(number+"<br>");
- * number++;
- * }
- * while (number<5);
- */
-
- if (isKeyword (token, KEYWORD_for) || isKeyword (token, KEYWORD_while))
- {
- readToken(token);
-
- if (isType (token, TOKEN_OPEN_PAREN))
- {
- /*
- * Handle nameless functions, these will only
- * be considered methods.
- */
- skipArgumentList(token);
- }
-
- if (isType (token, TOKEN_OPEN_CURLY))
- {
- /*
- * This will be either a function or a class.
- * We can only determine this by checking the body
- * of the function. If we find a "this." we know
- * it is a class, otherwise it is a function.
- */
- parseBlock (token, token);
- }
- else
- {
- parseLine(token, FALSE);
- }
- }
- else if (isKeyword (token, KEYWORD_do))
- {
- readToken(token);
-
- if (isType (token, TOKEN_OPEN_CURLY))
- {
- /*
- * This will be either a function or a class.
- * We can only determine this by checking the body
- * of the function. If we find a "this." we know
- * it is a class, otherwise it is a function.
- */
- parseBlock (token, token);
- }
- else
- {
- parseLine(token, FALSE);
- }
-
- readToken(token);
-
- if (isKeyword (token, KEYWORD_while))
- {
- readToken(token);
-
- if (isType (token, TOKEN_OPEN_PAREN))
- {
- /*
- * Handle nameless functions, these will only
- * be considered methods.
- */
- skipArgumentList(token);
- }
}
}
-}
-
-static boolean parseIf (tokenInfo *const token)
-{
- boolean read_next_token = TRUE;
- /*
- * If statements have two forms
- * if ( ... )
- * one line;
- *
- * if ( ... )
- * statement;
- * else
- * statement
- *
- * if ( ... ) {
- * multiple;
- * statements;
- * }
- *
- *
- * if ( ... ) {
- * return elem
- * }
- *
- * This example if correctly written, but the
- * else contains only 1 statement without a terminator
- * since the function finishes with the closing brace.
- *
- * function a(flag){
- * if(flag)
- * test(1);
- * else
- * test(2)
- * }
- *
- * TODO: Deal with statements that can optional end
- * without a semi-colon. Currently this messes up
- * the parsing of blocks.
- * Need to somehow detect this has happened, and either
- * backup a token, or skip reading the next token if
- * that is possible from all code locations.
- *
- */
-
- readToken (token);
-
- if (isKeyword (token, KEYWORD_if))
+ for (i = my_cx->childs; i; i = g_list_next (i))
{
- /*
- * Check for an "else if" and consume the "if"
- */
- readToken (token);
+ JSContext *t = (JSContext *)i->data;
+ get_member_list (t);
}
- if (isType (token, TOKEN_OPEN_PAREN))
- {
- /*
- * Handle nameless functions, these will only
- * be considered methods.
- */
- skipArgumentList(token);
- }
-
- if (isType (token, TOKEN_OPEN_CURLY))
- {
- /*
- * This will be either a function or a class.
- * We can only determine this by checking the body
- * of the function. If we find a "this." we know
- * it is a class, otherwise it is a function.
- */
- parseBlock (token, token);
- }
- else
- {
- findCmdTerm (token);
-
- /*
- * The IF could be followed by an ELSE statement.
- * This too could have two formats, a curly braced
- * multiline section, or another single line.
- */
-
- if (isType (token, TOKEN_CLOSE_CURLY))
- {
- /*
- * This statement did not have a line terminator.
- */
- read_next_token = FALSE;
- }
- else
- {
- readToken (token);
-
- if (isType (token, TOKEN_CLOSE_CURLY))
- {
- /*
- * This statement did not have a line terminator.
- */
- read_next_token = FALSE;
- }
- else
- {
- if (isKeyword (token, KEYWORD_else))
- read_next_token = parseIf (token);
- }
- }
- }
- return read_next_token;
}
-static void parseFunction (tokenInfo *const token)
-{
- tokenInfo *const name = newToken ();
- boolean is_class = FALSE;
-
- /*
- * This deals with these formats
- * function validFunctionTwo(a,b) {}
- */
-
- readToken (name);
- /* Add scope in case this is an INNER function */
- addToScope(name, token->scope);
-
- readToken (token);
- if (isType (token, TOKEN_PERIOD))
- {
- do
- {
- readToken (token);
- if ( isKeyword(token, KEYWORD_NONE) )
- {
- addContext (name, token);
- readToken (token);
- }
- } while (isType (token, TOKEN_PERIOD));
- }
-
- if ( isType (token, TOKEN_OPEN_PAREN) )
- skipArgumentList(token);
-
- if ( isType (token, TOKEN_OPEN_CURLY) )
- {
- is_class = parseBlock (token, name);
- if ( is_class )
- makeClassTag (name);
- else
- makeFunctionTag (name);
- }
-
- findCmdTerm (token);
+typedef enum {
+ JSTAG_FUNCTION,
+ JSTAG_CLASS,
+ JSTAG_METHOD,
+ JSTAG_PROPERTY,
+ JSTAG_VARIABLE,
+ JSTAG_COUNT
+} jsKind;
- deleteToken (name);
-}
+static kindOption JsKinds [] = {
+ { TRUE, 'f', "function", "functions" },
+ { TRUE, 'c', "class", "classes" },
+ { TRUE, 'm', "method", "methods" },
+ { TRUE, 'p', "property", "properties" },
+ { TRUE, 'v', "variable", "global variables" }
+};
-static boolean parseBlock (tokenInfo *const token, tokenInfo *const parent)
+static void
+initialize (const langType language)
{
- boolean is_class = FALSE;
- boolean read_next_token = TRUE;
- vString * saveScope = vStringNew ();
-
- token->nestLevel++;
- /*
- * Make this routine a bit more forgiving.
- * If called on an open_curly advance it
- */
- if ( isType (token, TOKEN_OPEN_CURLY) &&
- isKeyword(token, KEYWORD_NONE) )
- readToken(token);
-
- if (! isType (token, TOKEN_CLOSE_CURLY))
- {
- /*
- * Read until we find the closing brace,
- * any nested braces will be handled within
- */
- do
- {
- read_next_token = TRUE;
- if (isKeyword (token, KEYWORD_this))
- {
- /*
- * Means we are inside a class and have found
- * a class, not a function
- */
- is_class = TRUE;
- vStringCopy(saveScope, token->scope);
- addToScope (token, parent->string);
-
- /*
- * Ignore the remainder of the line
- * findCmdTerm(token);
- */
- parseLine (token, is_class);
-
- vStringCopy(token->scope, saveScope);
- }
- else if (isKeyword (token, KEYWORD_var))
- {
- /*
- * Potentially we have found an inner function.
- * Set something to indicate the scope
- */
- vStringCopy(saveScope, token->scope);
- addToScope (token, parent->string);
- parseLine (token, is_class);
- vStringCopy(token->scope, saveScope);
- }
- else if (isKeyword (token, KEYWORD_function))
- {
- vStringCopy(saveScope, token->scope);
- addToScope (token, parent->string);
- parseFunction (token);
- vStringCopy(token->scope, saveScope);
- }
- else if (isType (token, TOKEN_OPEN_CURLY))
- {
- /* Handle nested blocks */
- parseBlock (token, parent);
- }
- else
- {
- /*
- * It is possible for a line to have no terminator
- * if the following line is a closing brace.
- * parseLine will detect this case and indicate
- * whether we should read an additional token.
- */
- read_next_token = parseLine (token, is_class);
- }
-
- /*
- * Always read a new token unless we find a statement without
- * a ending terminator
- */
- if( read_next_token )
- readToken(token);
-
- /*
- * If we find a statement without a terminator consider the
- * block finished, otherwise the stack will be off by one.
- */
- } while (! isType (token, TOKEN_CLOSE_CURLY) && read_next_token );
- }
-
- vStringDelete(saveScope);
- token->nestLevel--;
-
- return is_class;
+ g_type_init ();
}
-static void parseMethods (tokenInfo *const token, tokenInfo *const class)
+static void
+findTags (JSContext *my_cx)
{
- tokenInfo *const name = newToken ();
-
- /*
- * This deals with these formats
- * validProperty : 2,
- * validMethod : function(a,b) {}
- * 'validMethod2' : function(a,b) {}
- * container.dirtyTab = {'url': false, 'title':false, 'snapshot':false, '*': false}
- */
-
- do
- {
- readToken (token);
- if (isType (token, TOKEN_STRING) || isKeyword(token, KEYWORD_NONE))
- {
- copyToken(name, token);
-
- readToken (token);
- if ( isType (token, TOKEN_COLON) )
+ GList *i;
+ g_assert (my_cx != NULL);
+ if (my_cx->func_name)
+ {
+ const char *name = my_cx->func_name;
+ gint line = my_cx->bline;
+ if (name)
+ {
+ tagEntryInfo *tag = (tagEntryInfo*)malloc (sizeof (tagEntryInfo));
+ initTagEntry (tag, name);
+ get_file_pos (line, &tag->filePosition, File.fp);
+ tag->lineNumber = line;
+ tag->isFileScope = 1;
+ tag->kindName = "class";
+ tag->kind = 'c';
+
+ symbols = g_list_append (symbols, g_strdup (name));
+
+ if (my_cx->ret_type)
+ tag->extensionFields.returnType = my_cx->ret_type->data;
+ if (my_cx->func_arg)
{
- readToken (token);
- if ( isKeyword (token, KEYWORD_function) )
+ gchar *str = NULL, *t;
+ GList *i;
+ for (i = my_cx->func_arg; i; i = g_list_next (i))
{
- readToken (token);
- if ( isType (token, TOKEN_OPEN_PAREN) )
+ g_assert (i->data != NULL);
+ if (i == my_cx->func_arg)
+ str = g_strdup_printf ("( %s", (gchar*)i->data);
+ else
{
- skipArgumentList(token);
+ t = g_strdup_printf ("%s, %s", str, (gchar*)i->data);
+ g_free (str);
+ str = t;
}
-
- if (isType (token, TOKEN_OPEN_CURLY))
- {
- addToScope (name, class->string);
- makeJsTag (name, JSTAG_METHOD);
- parseBlock (token, name);
-
- /*
- * Read to the closing curly, check next
- * token, if a comma, we must loop again
- */
- readToken (token);
- }
- }
- else
- {
- addToScope (name, class->string);
- makeJsTag (name, JSTAG_PROPERTY);
-
- /*
- * Read the next token, if a comma
- * we must loop again
- */
- readToken (token);
}
+ t = g_strdup_printf ("%s)", str);
+ g_free (str);
+ str = t;
+ tag->extensionFields.signature = str;
}
+ tags = g_list_append (tags, tag);
}
- } while ( isType(token, TOKEN_COMMA) );
-
- findCmdTerm (token);
-
- deleteToken (name);
-}
-
-static boolean parseStatement (tokenInfo *const token, boolean is_inside_class)
-{
- tokenInfo *const name = newToken ();
- tokenInfo *const secondary_name = newToken ();
- vString * saveScope = vStringNew ();
- boolean is_class = FALSE;
- boolean is_terminated = TRUE;
- boolean is_global = FALSE;
- boolean is_prototype = FALSE;
- vString * fulltag;
-
- vStringClear(saveScope);
- /*
- * Functions can be named or unnamed.
- * This deals with these formats:
- * Function
- * validFunctionOne = function(a,b) {}
- * testlib.validFunctionFive = function(a,b) {}
- * var innerThree = function(a,b) {}
- * var innerFour = (a,b) {}
- * var D2 = secondary_fcn_name(a,b) {}
- * var D3 = new Function("a", "b", "return a+b;");
- * Class
- * testlib.extras.ValidClassOne = function(a,b) {
- * this.a = a;
- * }
- * Class Methods
- * testlib.extras.ValidClassOne.prototype = {
- * 'validMethodOne' : function(a,b) {},
- * 'validMethodTwo' : function(a,b) {}
- * }
- * ValidClassTwo = function ()
- * {
- * this.validMethodThree = function() {}
- * // unnamed method
- * this.validMethodFour = () {}
- * }
- * Database.prototype.validMethodThree = Database_getTodaysDate;
- */
-
- if ( is_inside_class )
- is_class = TRUE;
- /*
- * var can preceed an inner function
- */
- if ( isKeyword(token, KEYWORD_var) )
- {
- /*
- * Only create variables for global scope
- */
- if ( token->nestLevel == 0 )
- {
- is_global = TRUE;
- }
- readToken(token);
}
-
- if ( isKeyword(token, KEYWORD_this) )
+ for (i = my_cx->childs; i; i = g_list_next (i))
{
- readToken(token);
- if (isType (token, TOKEN_PERIOD))
- {
- readToken(token);
- }
+ findTags (i->data);
}
+}
- copyToken(name, token);
-
- while (! isType (token, TOKEN_CLOSE_CURLY) &&
- ! isType (token, TOKEN_SEMICOLON) &&
- ! isType (token, TOKEN_EQUAL_SIGN) )
- {
- /* Potentially the name of the function */
- readToken (token);
- if (isType (token, TOKEN_PERIOD))
- {
- /*
- * Cannot be a global variable is it has dot references in the name
- */
- is_global = FALSE;
- do
- {
- readToken (token);
- if ( isKeyword(token, KEYWORD_NONE) )
- {
- if ( is_class )
- {
- vStringCopy(saveScope, token->scope);
- addToScope(token, name->string);
- }
- else
- addContext (name, token);
- }
- else if ( isKeyword(token, KEYWORD_prototype) )
- {
- /*
- * When we reach the "prototype" tag, we infer:
- * "BindAgent" is a class
- * "build" is a method
- *
- * function BindAgent( repeatableIdName, newParentIdName ) {
- * }
- *
- * CASE 1
- * Specified function name: "build"
- * BindAgent.prototype.build = function( mode ) {
- * ignore everything within this function
- * }
- *
- * CASE 2
- * Prototype listing
- * ValidClassOne.prototype = {
- * 'validMethodOne' : function(a,b) {},
- * 'validMethodTwo' : function(a,b) {}
- * }
- *
- */
- makeClassTag (name);
- is_class = TRUE;
- is_prototype = TRUE;
-
- /*
- * There should a ".function_name" next.
- */
- readToken (token);
- if (isType (token, TOKEN_PERIOD))
- {
- /*
- * Handle CASE 1
- */
- readToken (token);
- if ( isKeyword(token, KEYWORD_NONE) )
- {
- vStringCopy(saveScope, token->scope);
- addToScope(token, name->string);
-
- makeJsTag (token, JSTAG_METHOD);
- /*
- * We can read until the end of the block / statement.
- * We need to correctly parse any nested blocks, but
- * we do NOT want to create any tags based on what is
- * within the blocks.
- */
- token->ignoreTag = TRUE;
- /*
- * Find to the end of the statement
- */
- findCmdTerm (token);
- token->ignoreTag = FALSE;
- is_terminated = TRUE;
- goto cleanUp;
- }
- }
- else if (isType (token, TOKEN_EQUAL_SIGN))
- {
- readToken (token);
- if (isType (token, TOKEN_OPEN_CURLY))
- {
- /*
- * Handle CASE 2
- *
- * Creates tags for each of these class methods
- * ValidClassOne.prototype = {
- * 'validMethodOne' : function(a,b) {},
- * 'validMethodTwo' : function(a,b) {}
- * }
- */
- parseMethods(token, name);
- /*
- * Find to the end of the statement
- */
- findCmdTerm (token);
- token->ignoreTag = FALSE;
- is_terminated = TRUE;
- goto cleanUp;
- }
- }
- }
- readToken (token);
- } while (isType (token, TOKEN_PERIOD));
- }
-
- if ( isType (token, TOKEN_OPEN_PAREN) )
- skipArgumentList(token);
-
- if ( isType (token, TOKEN_OPEN_SQUARE) )
- skipArrayList(token);
-
- /*
- if ( isType (token, TOKEN_OPEN_CURLY) )
- {
- is_class = parseBlock (token, name);
+static void
+findGlobal (JSContext *my_cx)
+{
+ static int depth = 0;
+ GList *i;
+
+ g_assert (my_cx != NULL);
+ g_assert (depth <= 1);
+
+ for (i = my_cx->local_var; i; i = g_list_next (i))
+ {
+ const char *name = ((Var*)i->data)->name;
+ gint line = ((Var*)i->data)->line;
+ g_assert (name != NULL);
+
+ if (g_strstr_len (name, -1, PROTOTYPE) != NULL)
+ continue;
+
+ tagEntryInfo *tag = (tagEntryInfo*)malloc (sizeof (tagEntryInfo));
+ initTagEntry (tag, name);
+ get_file_pos (line, &tag->filePosition, File.fp);
+ tag->lineNumber = line;
+ tag->isFileScope = 1;
+ tag->kindName = "variable";
+ tag->kind = 'v';
+ Type *t = js_context_get_node_type (my_cx, ((Var*)i->data)->node);
+ if (t)
+ {
+ tag->extensionFields.typeRef [0] = "variable";
+ tag->extensionFields.typeRef [1] = t->name;
+ g_free (t);
}
- */
- }
-
- if ( isType (token, TOKEN_CLOSE_CURLY) )
- {
- /*
- * Reaching this section without having
- * processed an open curly brace indicates
- * the statement is most likely not terminated.
- */
- is_terminated = FALSE;
- goto cleanUp;
+ if (my_cx->ret_type)
+ tag->extensionFields.returnType = my_cx->ret_type->data;
+ if (g_list_find_custom (symbols, name, (GCompareFunc)g_strcmp0) == NULL)
+ makeTagEntry (tag);
}
-
- if ( isType (token, TOKEN_SEMICOLON) )
+ if (depth == 0)
{
- /*
- * Only create variables for global scope
- */
- if ( token->nestLevel == 0 && is_global )
+ depth++;
+ for (i = my_cx->childs; i; i = g_list_next (i))
{
- /*
- * Handles this syntax:
- * var g_var2;
- */
- if (isType (token, TOKEN_SEMICOLON))
- makeJsTag (name, JSTAG_VARIABLE);
+ findGlobal (i->data);
}
- /*
- * Statement has ended.
- * This deals with calls to functions, like:
- * alert(..);
- */
- goto cleanUp;
+ depth--;
}
+}
- if ( isType (token, TOKEN_EQUAL_SIGN) )
- {
- readToken (token);
-
- if ( isKeyword (token, KEYWORD_function) )
- {
- readToken (token);
-
- if ( isKeyword (token, KEYWORD_NONE) &&
- ! isType (token, TOKEN_OPEN_PAREN) )
- {
- /*
- * Functions of this format:
- * var D2A = function theAdd(a, b)
- * {
- * return a+b;
- * }
- * Are really two separate defined functions and
- * can be referenced in two ways:
- * alert( D2A(1,2) ); // produces 3
- * alert( theAdd(1,2) ); // also produces 3
- * So it must have two tags:
- * D2A
- * theAdd
- * Save the reference to the name for later use, once
- * we have established this is a valid function we will
- * create the secondary reference to it.
- */
- copyToken(secondary_name, token);
- readToken (token);
- }
-
- if ( isType (token, TOKEN_OPEN_PAREN) )
- skipArgumentList(token);
-
- if (isType (token, TOKEN_OPEN_CURLY))
- {
- /*
- * This will be either a function or a class.
- * We can only determine this by checking the body
- * of the function. If we find a "this." we know
- * it is a class, otherwise it is a function.
- */
- if ( is_inside_class )
- {
- makeJsTag (name, JSTAG_METHOD);
- if ( vStringLength(secondary_name->string) > 0 )
- makeFunctionTag (secondary_name);
- parseBlock (token, name);
- }
- else
- {
- is_class = parseBlock (token, name);
- if ( is_class )
- makeClassTag (name);
- else
- makeFunctionTag (name);
-
- if ( vStringLength(secondary_name->string) > 0 )
- makeFunctionTag (secondary_name);
-
- /*
- * Find to the end of the statement
- */
- goto cleanUp;
- }
- }
- }
- else if (isType (token, TOKEN_OPEN_PAREN))
- {
- /*
- * Handle nameless functions
- * this.method_name = () {}
- */
- skipArgumentList(token);
-
- if (isType (token, TOKEN_OPEN_CURLY))
- {
- /*
- * Nameless functions are only setup as methods.
- */
- makeJsTag (name, JSTAG_METHOD);
- parseBlock (token, name);
- }
- }
- else if (isType (token, TOKEN_OPEN_CURLY))
- {
- /*
- * Creates tags for each of these class methods
- * ValidClassOne.prototype = {
- * 'validMethodOne' : function(a,b) {},
- * 'validMethodTwo' : function(a,b) {}
- * }
- */
- parseMethods(token, name);
- if (isType (token, TOKEN_CLOSE_CURLY))
- {
- /*
- * Assume the closing parantheses terminates
- * this statements.
- */
- is_terminated = TRUE;
- }
- }
- else if (isKeyword (token, KEYWORD_new))
- {
- readToken (token);
- if ( isKeyword (token, KEYWORD_function) ||
- isKeyword (token, KEYWORD_capital_function) ||
- isKeyword (token, KEYWORD_object) ||
- isKeyword (token, KEYWORD_capital_object) )
- {
- if ( isKeyword (token, KEYWORD_object) ||
- isKeyword (token, KEYWORD_capital_object) )
- is_class = TRUE;
-
- readToken (token);
- if ( isType (token, TOKEN_OPEN_PAREN) )
- skipArgumentList(token);
-
- if (isType (token, TOKEN_SEMICOLON))
- {
- if ( token->nestLevel == 0 )
- {
- if ( is_class )
- {
- makeClassTag (name);
- } else {
- makeFunctionTag (name);
- }
- }
- }
- }
- }
- else if (isKeyword (token, KEYWORD_NONE))
- {
- /*
- * Only create variables for global scope
- */
- if ( token->nestLevel == 0 && is_global )
- {
- /*
- * A pointer can be created to the function.
- * If we recognize the function/class name ignore the variable.
- * This format looks identical to a variable definition.
- * A variable defined outside of a block is considered
- * a global variable:
- * var g_var1 = 1;
- * var g_var2;
- * This is not a global variable:
- * var g_var = function;
- * This is a global variable:
- * var g_var = different_var_name;
- */
- fulltag = vStringNew ();
- if (vStringLength (token->scope) > 0)
- {
- vStringCopy(fulltag, token->scope);
- vStringCatS (fulltag, ".");
- vStringCatS (fulltag, vStringValue(token->string));
- }
- else
- {
- vStringCopy(fulltag, token->string);
- }
- vStringTerminate(fulltag);
- if ( ! stringListHas(FunctionNames, vStringValue (fulltag)) &&
- ! stringListHas(ClassNames, vStringValue (fulltag)) )
- {
- findCmdTerm (token);
- if (isType (token, TOKEN_SEMICOLON))
- makeJsTag (name, JSTAG_VARIABLE);
- }
- vStringDelete (fulltag);
- }
- }
- }
- findCmdTerm (token);
-
- /*
- * Statements can be optionally terminated in the case of
- * statement prior to a close curly brace as in the
- * document.write line below:
- *
- * function checkForUpdate() {
- * if( 1==1 ) {
- * document.write("hello from checkForUpdate<br>")
- * }
- * return 1;
- * }
- */
- if ( ! is_terminated && isType (token, TOKEN_CLOSE_CURLY))
- is_terminated = FALSE;
-
+static boolean
+findJsTags (const unsigned int passCount)
+{
+ assert (passCount == 1);
+ g_assert (symbols == NULL);
+ g_assert (tags == NULL);
-cleanUp:
- vStringCopy(token->scope, saveScope);
- deleteToken (name);
- deleteToken (secondary_name);
- vStringDelete(saveScope);
+ JSNode * global = js_node_new_from_file (getInputFileName());
- return is_terminated;
-}
+ JSContext *my_cx;
+ GList *calls = NULL;
+ my_cx = js_context_new_from_node (global, &calls);
+ findTags (my_cx);
-static boolean parseLine (tokenInfo *const token, boolean is_inside_class)
-{
- boolean is_terminated = TRUE;
- /*
- * Detect the common statements, if, while, for, do, ...
- * This is necessary since the last statement within a block "{}"
- * can be optionally terminated.
- *
- * If the statement is not terminated, we need to tell
- * the calling routine to prevent reading an additional token
- * looking for the end of the statement.
- */
+ /*Members*/
- if (isType(token, TOKEN_KEYWORD))
- {
- switch (token->keyword)
- {
- case KEYWORD_for:
- case KEYWORD_while:
- case KEYWORD_do:
- parseLoop (token);
- break;
- case KEYWORD_if:
- case KEYWORD_else:
- case KEYWORD_try:
- case KEYWORD_catch:
- case KEYWORD_finally:
- /* Common semantics */
- is_terminated = parseIf (token);
- break;
- case KEYWORD_switch:
- parseSwitch (token);
- break;
- default:
- parseStatement (token, is_inside_class);
- break;
- }
- }
- else
- {
- /*
- * Special case where single line statements may not be
- * SEMICOLON terminated. parseBlock needs to know this
- * so that it does not read the next token.
- */
- is_terminated = parseStatement (token, is_inside_class);
- }
- return is_terminated;
-}
+ get_member_list (my_cx);
-static void parseJsFile (tokenInfo *const token)
-{
- do
- {
- readToken (token);
+ g_list_foreach (tags, (GFunc)makeTagEntry, NULL);
- if (isType(token, TOKEN_KEYWORD))
- {
- switch (token->keyword)
- {
- case KEYWORD_function: parseFunction (token); break;
- default: parseLine (token, FALSE); break;
- }
- }
- else
- {
- parseLine (token, FALSE);
- }
- } while (TRUE);
-}
+ findGlobal (my_cx);
-static void initialize (const langType language)
-{
- Assert (sizeof (JsKinds) / sizeof (JsKinds [0]) == JSTAG_COUNT);
- Lang_js = language;
- buildJsKeywordHash ();
-}
+ g_list_free (symbols);
+ symbols = NULL;
-static void findJsTags (void)
-{
- tokenInfo *const token = newToken ();
- exception_t exception;
-
- ClassNames = stringListNew ();
- FunctionNames = stringListNew ();
-
- exception = (exception_t) (setjmp (Exception));
- while (exception == ExceptionNone)
- parseJsFile (token);
+ g_list_free (tags);
+ tags = NULL;
- stringListDelete (ClassNames);
- stringListDelete (FunctionNames);
- ClassNames = NULL;
- FunctionNames = NULL;
- deleteToken (token);
+ return 1;
}
-/* Create parser definition stucture */
-extern parserDefinition* JavaScriptParser (void)
+extern parserDefinition*
+JavaScriptParser (void)
{
static const char *const extensions [] = { "js", NULL };
parserDefinition *const def = parserNew ("JavaScript");
def->extensions = extensions;
- /*
- * New definitions for parsing instead of regex
- */
+
def->kinds = JsKinds;
def->kindCount = KIND_COUNT (JsKinds);
def->parser = findJsTags;
@@ -1569,4 +344,3 @@ extern parserDefinition* JavaScriptParser (void)
return def;
}
-/* vi:set tabstop=4 shiftwidth=4 noexpandtab: */
diff --git a/plugins/symbol-db/anjuta-tags/parser/Grammar.y b/plugins/symbol-db/anjuta-tags/parser/Grammar.y
new file mode 100644
index 0000000..d571b62
--- /dev/null
+++ b/plugins/symbol-db/anjuta-tags/parser/Grammar.y
@@ -0,0 +1,1193 @@
+%pure_parser
+%define api.push_pull "both"
+%{
+
+/*
+ * Copyright (C) 1999-2000 Harri Porten (porten kde org)
+ * Copyright (C) 2006, 2007, 2008, 2009 Apple Inc. All rights reserved.
+ * Copyright (C) 2007 Eric Seidel <eric webkit org>
+ * Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser 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
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ */
+
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.h>
+
+#include <glib.h>
+
+#include "jstypes.h"
+#include "js-node.h"
+#define YYMAXDEPTH 10000
+#define YYENABLE_NLS 0
+
+/* default values for bison */
+
+void yyerror (char* msg);
+int yylex(void *a);
+
+#define YYERROR_VERBOSE 1 // SHOW NORMAL ERROR MESSAGE
+#define YYDEBUG 1 // Set to 1 to debug a parse error.
+#define jscyydebug 1 // Set to 1 to debug a parse error.
+
+JSNode *global = NULL;
+GList *line_missed_semicolon = NULL;
+
+static JSNode*
+node_new (int type, int arity)
+{
+ JSNode *node = g_object_new (JS_TYPE_NODE, NULL);
+ node->pn_type = type;
+ node->pn_arity = arity;
+
+ return node;
+}
+
+static void
+node_correct_position (JSNode *self, JSNode *inner)
+{
+ if (!self)
+ return;
+ if (!inner)
+ return;
+ if (!self->pn_pos.begin)
+ self->pn_pos.begin = inner->pn_pos.begin;
+ if (!self->pn_pos.end)
+ self->pn_pos.end = inner->pn_pos.end;
+ if (inner->pn_pos.begin && self->pn_pos.begin > inner->pn_pos.begin)
+ self->pn_pos.begin = inner->pn_pos.begin;
+ if (self->pn_pos.end < inner->pn_pos.end)
+ self->pn_pos.end = inner->pn_pos.end;
+}
+
+static int
+node_get_line (JSNode *self)
+{
+ if (!self)
+ return 0;
+ return self->pn_pos.end;
+}
+
+static void
+node_correct_position_end (JSNode *self, int end)
+{
+ if (!self->pn_pos.begin)
+ self->pn_pos.begin = end;
+ if (self->pn_pos.end < end)
+ self->pn_pos.end = end;
+}
+
+static void
+AUTO_SEMICOLON (int line)
+{
+ line_missed_semicolon = g_list_append (line_missed_semicolon, GINT_TO_POINTER (line));
+}
+
+#define PRINT_LINE /*printf("%s(%d)\n", __FILE__ , __LINE__)*/
+#define PRINT_LINE_TODO /*printf("TODO:%s(%d)\n", __FILE__ , __LINE__)*/
+#define PRINT_LINE_NOTNEED /*printf("NOTNEED:%s(%d)\n", __FILE__ , __LINE__)*/
+
+//#define YYPARSE_PARAM globalPtr
+//#define YYLEX_PARAM globalPtr
+
+%}
+
+%union {
+ int intValue;
+ JSNode* node;
+ struct {
+ char *iname;
+ JSTokenPos pos;
+ } name;
+}
+
+%start Program
+
+/* literals */
+%token NULLTOKEN TRUETOKEN FALSETOKEN
+
+/* keywords */
+%token BREAK CASE DEFAULT FOR NEW VAR CONSTTOKEN CONTINUE
+%token FUNCTION RETURN VOIDTOKEN DELETETOKEN
+%token IF THISTOKEN DO WHILE INTOKEN INSTANCEOF TYPEOF
+%token SWITCH WITH RESERVED
+%token THROW TRY CATCH FINALLY
+%token DEBUGGER
+
+/* give an if without an else higher precedence than an else to resolve the ambiguity */
+%nonassoc IF_WITHOUT_ELSE
+%nonassoc ELSE
+
+/* punctuators */
+%token EQEQ NE /* == and != */
+%token STREQ STRNEQ /* === and !== */
+%token LE GE /* < and > */
+%token OR AND /* || and && */
+%token PLUSPLUS MINUSMINUS /* ++ and -- */
+%token LSHIFT /* << */
+%token RSHIFT URSHIFT /* >> and >>> */
+%token PLUSEQUAL MINUSEQUAL /* += and -= */
+%token MULTEQUAL DIVEQUAL /* *= and /= */
+%token LSHIFTEQUAL /* <<= */
+%token RSHIFTEQUAL URSHIFTEQUAL /* >>= and >>>= */
+%token ANDEQUAL MODEQUAL /* &= and %= */
+%token XOREQUAL OREQUAL /* ^= and |= */
+%token <intValue> OPENBRACE /* { (with char offset) */
+%token <intValue> CLOSEBRACE /* } (line number) */
+
+/* terminal types */
+%token <name> IDENT_IN
+%token <node> NUMBER
+%token <node> STRING
+
+/* automatically inserted semicolon */
+%token AUTOPLUSPLUS AUTOMINUSMINUS
+
+/* non-terminal types */
+%type <node> Literal ArrayLiteral IDENT AssignmentOperator
+
+%type <node> PrimaryExpr PrimaryExprNoBrace
+%type <node> MemberExpr MemberExprNoBF /* BF => brace or function */
+%type <node> NewExpr NewExprNoBF
+%type <node> CallExpr CallExprNoBF
+%type <node> LeftHandSideExpr LeftHandSideExprNoBF
+%type <node> PostfixExpr PostfixExprNoBF
+%type <node> UnaryExpr UnaryExprNoBF UnaryExprCommon
+%type <node> MultiplicativeExpr MultiplicativeExprNoBF
+%type <node> AdditiveExpr AdditiveExprNoBF
+%type <node> ShiftExpr ShiftExprNoBF
+%type <node> RelationalExpr RelationalExprNoIn RelationalExprNoBF
+%type <node> EqualityExpr EqualityExprNoIn EqualityExprNoBF
+%type <node> BitwiseANDExpr BitwiseANDExprNoIn BitwiseANDExprNoBF
+%type <node> BitwiseXORExpr BitwiseXORExprNoIn BitwiseXORExprNoBF
+%type <node> BitwiseORExpr BitwiseORExprNoIn BitwiseORExprNoBF
+%type <node> LogicalANDExpr LogicalANDExprNoIn LogicalANDExprNoBF
+%type <node> LogicalORExpr LogicalORExprNoIn LogicalORExprNoBF
+%type <node> ConditionalExpr ConditionalExprNoIn ConditionalExprNoBF
+%type <node> AssignmentExpr AssignmentExprNoIn AssignmentExprNoBF
+%type <node> Expr ExprNoIn ExprNoBF
+
+%type <node> ExprOpt ExprNoInOpt
+
+%type <node> Statement Block
+%type <node> VariableStatement ConstStatement EmptyStatement ExprStatement
+%type <node> IfStatement IterationStatement ContinueStatement
+%type <node> BreakStatement ReturnStatement WithStatement
+%type <node> SwitchStatement LabelledStatement
+%type <node> ThrowStatement TryStatement
+%type <node> DebuggerStatement
+
+%type <node> Initializer InitializerNoIn
+%type <node> FunctionDeclaration
+%type <node> FunctionExpr
+%type <node> FunctionBody
+%type <node> SourceElements
+%type <node> FormalParameterList
+%type <node> Arguments
+%type <node> ArgumentList
+%type <node> VariableDeclarationList VariableDeclarationListNoIn
+%type <node> ConstDeclarationList
+%type <node> ConstDeclaration
+%type <node> CaseBlock
+%type <node> CaseClause DefaultClause
+%type <node> CaseClauses CaseClausesOpt
+%type <node> Elision ElisionOpt
+%type <node> ElementList
+%type <node> Property
+%type <node> PropertyList RegExp Disjunction Alternative Term Assertion QuantifierPrefix Quantifier PatternCharacter ClassRanges CharacterClass RAtom
+%%
+
+IDENT:
+ IDENT_IN { PRINT_LINE; $$ = node_new (TOK_NAME, PN_NAME); $$->pn_u.name.name = $1.iname; $$->pn_pos = $1.pos; $$->pn_u.name.isconst = 0;}
+;
+
+Disjunction:
+ Alternative { PRINT_LINE; $$ = NULL;}
+ | Alternative '|' Disjunction { PRINT_LINE; $$ = NULL;}
+;
+
+RegExp:
+ '/' Disjunction '/' { PRINT_LINE_TODO; $$ = NULL;}
+ | '/' Disjunction '/' IDENT { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+Alternative:
+ /* nothing */ { PRINT_LINE_TODO; $$ = NULL;}
+ | Alternative Term { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+Term:
+ Assertion { PRINT_LINE_TODO; $$ = NULL;}
+ | RAtom { PRINT_LINE_TODO; $$ = NULL;}
+ | RAtom Quantifier { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+Assertion:
+ '^' { PRINT_LINE_TODO; $$ = NULL;}
+ | '$' { PRINT_LINE_TODO; $$ = NULL;}
+/*| \ b | \ B*/
+;
+
+Quantifier:
+ QuantifierPrefix
+ | QuantifierPrefix '?'
+;
+
+QuantifierPrefix:
+ '*' { PRINT_LINE_TODO; $$ = NULL;}
+ | '+' { PRINT_LINE_TODO; $$ = NULL;}
+ | '?' { PRINT_LINE_TODO; $$ = NULL;}
+ | '{' NUMBER '}' { PRINT_LINE_TODO; $$ = NULL;}
+ | '{' NUMBER ',' '}' { PRINT_LINE_TODO; $$ = NULL;}
+ | '{' NUMBER ',' NUMBER '}' { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+RAtom:
+ PatternCharacter { PRINT_LINE_TODO; $$ = NULL;}
+ | '.' { PRINT_LINE_TODO; $$ = NULL;}
+ | '\\' IDENT { PRINT_LINE_TODO; $$ = NULL;/* TODO: FIX AtomEscape = IDENT*/ }
+ | '\\' '.' { PRINT_LINE_TODO; $$ = NULL;/* TODO: FIX AtomEscape = IDENT*/ }
+ | CharacterClass { PRINT_LINE_TODO; $$ = NULL;}
+ | '(' Disjunction ')' { PRINT_LINE_TODO; $$ = NULL;}
+ | '(' '?' ':' Disjunction ')' { PRINT_LINE_TODO; $$ = NULL;}
+ | '(' '?' '=' Disjunction ')' { PRINT_LINE_TODO; $$ = NULL;}
+ | '(' '?' '!' Disjunction ')' { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+PatternCharacter:
+ IDENT { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+CharacterClass:
+ '[' ClassRanges ']' { PRINT_LINE_TODO; $$ = NULL;}
+ | '[' '^' ClassRanges ']' { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+ClassRanges:
+ NUMBER { PRINT_LINE_TODO; $$ = NULL;}
+ | IDENT { PRINT_LINE_TODO; $$ = NULL;}
+ | ClassRanges '-' ClassRanges { PRINT_LINE_TODO; $$ = NULL;}
+ | ClassRanges ClassRanges { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+Literal:
+ NULLTOKEN { PRINT_LINE; $$ = node_new (TOK_PRIMARY, PN_NULLARY); $$->pn_op = JSOP_NULL;}
+ | TRUETOKEN { PRINT_LINE; $$ = node_new (TOK_PRIMARY, PN_NULLARY); $$->pn_op = JSOP_TRUE;}
+ | FALSETOKEN { PRINT_LINE; $$ = node_new (TOK_PRIMARY, PN_NULLARY); $$->pn_op = JSOP_FALSE;}
+ | NUMBER { PRINT_LINE; $$ = node_new (TOK_NUMBER, PN_NULLARY);}
+ | STRING { PRINT_LINE; $$ = node_new (TOK_STRING, PN_NULLARY);}
+;
+
+Property:
+ IDENT ':' AssignmentExpr { PRINT_LINE;
+ $$ = node_new (TOK_COLON, PN_BINARY);
+ $$->pn_u.binary.left = $1;
+ $$->pn_u.binary.right = $3;
+ node_correct_position ($$, $1);
+ node_correct_position ($$, $3);
+}
+ | STRING ':' AssignmentExpr { PRINT_LINE;
+ $$ = node_new (TOK_COLON, PN_BINARY);
+ $$->pn_u.binary.left = $1;
+ $$->pn_u.binary.right = $3;
+ node_correct_position ($$, $3);
+}
+ | NUMBER ':' AssignmentExpr { PRINT_LINE;
+ $$ = node_new (TOK_COLON, PN_BINARY);
+ $$->pn_u.binary.left = $1;
+ $$->pn_u.binary.right = $3;
+ node_correct_position ($$, $3);
+}
+ | IDENT IDENT '(' ')' OPENBRACE FunctionBody CLOSEBRACE { PRINT_LINE_TODO; $$ = NULL;}
+ | IDENT IDENT '(' FormalParameterList ')' OPENBRACE FunctionBody CLOSEBRACE
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+PropertyList:
+ Property { PRINT_LINE;
+ $$ = node_new (TOK_RC, PN_LIST);
+ $$->pn_u.list.head = $1;
+ node_correct_position ($$, $1);
+}
+ | PropertyList ',' Property { PRINT_LINE;
+ $$ = $1;
+ node_correct_position ($$, $3);
+ g_assert ($1->pn_arity == PN_LIST);
+ if ($1->pn_u.list.head) {
+ JSNode *i;
+ for (i = $1->pn_u.list.head; i->pn_next != NULL; i = i->pn_next)
+ ;
+ i->pn_next = $3;
+ } else $1->pn_u.list.head = $3;
+}
+;
+
+PrimaryExpr:
+ PrimaryExprNoBrace
+ | OPENBRACE CLOSEBRACE { PRINT_LINE_TODO; $$ = NULL;}
+ | OPENBRACE PropertyList CLOSEBRACE { PRINT_LINE;
+ $$ = $2;
+ node_correct_position_end ($$, $3);
+}
+ /* allow extra comma, see http://bugs.webkit.org/show_bug.cgi?id=5939 */
+ | OPENBRACE PropertyList ',' CLOSEBRACE { PRINT_LINE;
+ $$ = $2;
+ node_correct_position_end ($$, $4);
+}
+;
+
+PrimaryExprNoBrace:
+ THISTOKEN { PRINT_LINE; $$ = node_new (TOK_PRIMARY, PN_NULLARY); $$->pn_op = JSOP_THIS;}
+ | Literal
+ | ArrayLiteral
+ | IDENT { PRINT_LINE; $$ = $1;}
+ | '(' Expr ')' { PRINT_LINE; $$ = $2;}
+;
+
+ArrayLiteral:
+ '[' ElisionOpt ']' { PRINT_LINE_TODO; $$ = NULL;}
+ | '[' ElementList ']' { PRINT_LINE_TODO; $$ = NULL;}
+ | '[' ElementList ',' ElisionOpt ']' { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+ElementList:
+ ElisionOpt AssignmentExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | ElementList ',' ElisionOpt AssignmentExpr
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+ElisionOpt:
+ /* nothing */ { PRINT_LINE_TODO; $$ = NULL;}
+ | Elision
+;
+
+Elision:
+ ',' { PRINT_LINE_TODO; $$ = NULL;}
+ | Elision ',' { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+MemberExpr:
+ PrimaryExpr
+ | RegExp
+ | FunctionExpr { PRINT_LINE; $$ = $1;}
+ | MemberExpr '[' Expr ']' { PRINT_LINE_TODO; $$ = NULL;}
+ | MemberExpr '.' IDENT { PRINT_LINE;
+ $$ = node_new ( TOK_DOT, PN_NAME);
+ $$->pn_u.name.expr = $1;
+ $$->pn_u.name.name = $3;
+ node_correct_position ($$, $1);
+ node_correct_position ($$, $3);
+}
+ | NEW MemberExpr Arguments { PRINT_LINE;
+ $$ = node_new ( TOK_NEW, PN_LIST);
+ $$->pn_u.list.head = $2;
+ $2->pn_next = $3;
+ node_correct_position ($$, $2);
+ node_correct_position ($$, $3);
+}
+;
+
+MemberExprNoBF:
+ PrimaryExprNoBrace
+ | MemberExprNoBF '[' Expr ']' { PRINT_LINE_TODO; $$ = NULL;}
+ | MemberExprNoBF '.' IDENT { PRINT_LINE;
+ $$ = node_new ( TOK_DOT, PN_NAME);
+ $$->pn_u.name.expr = $1;
+ $$->pn_u.name.name = $3;
+ node_correct_position ($$, $1);
+ node_correct_position ($$, $3);
+}
+ | NEW MemberExpr Arguments { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+NewExpr:
+ MemberExpr
+ | NEW NewExpr { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+NewExprNoBF:
+ MemberExprNoBF
+ | NEW NewExpr { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+CallExpr:
+ MemberExpr Arguments { PRINT_LINE;
+ $$ = node_new ( TOK_LP, PN_LIST);
+ $1->pn_next = $2;
+ $$->pn_u.list.head = $1;
+ node_correct_position ($$, $1);
+ node_correct_position ($$, $2);
+}
+ | CallExpr Arguments { PRINT_LINE;
+ $$ = node_new ( TOK_LP, PN_LIST);
+ $1->pn_next = $2;
+ $$->pn_u.list.head = $1;
+ node_correct_position ($$, $1);
+ node_correct_position ($$, $2);
+}
+ | CallExpr '[' Expr ']' { PRINT_LINE_TODO; $$ = NULL;}
+ | CallExpr '.' IDENT { PRINT_LINE;
+ $$ = node_new ( TOK_DOT, PN_NAME);
+ $$->pn_u.name.expr = $1;
+ $$->pn_u.name.name = $3;
+ node_correct_position ($$, $1);
+ node_correct_position ($$, $3);
+}
+;
+
+CallExprNoBF:
+ MemberExprNoBF Arguments { PRINT_LINE;
+ $$ = node_new ( TOK_LP, PN_LIST);
+ $1->pn_next = $2;
+ $$->pn_u.list.head = $1;
+ node_correct_position ($$, $1);
+ node_correct_position ($$, $2);
+}
+ | CallExprNoBF Arguments { PRINT_LINE;
+ $$ = node_new ( TOK_LP, PN_LIST);
+ $1->pn_next = $2;
+ $$->pn_u.list.head = $1;
+ node_correct_position ($$, $1);
+ node_correct_position ($$, $2);
+}
+ | CallExprNoBF '[' Expr ']' { PRINT_LINE_TODO; $$ = NULL;}
+ | CallExprNoBF '.' IDENT { PRINT_LINE;
+ $$ = node_new ( TOK_DOT, PN_NAME);
+ $$->pn_u.name.expr = $1;
+ $$->pn_u.name.name = $3;
+ node_correct_position ($$, $1);
+ node_correct_position ($$, $3);
+}
+;
+
+Arguments:
+ '(' ')' { PRINT_LINE_NOTNEED; $$ = NULL;}
+ | '(' ArgumentList ')' { PRINT_LINE; $$ = $2;}
+;
+
+ArgumentList:
+ AssignmentExpr { PRINT_LINE; $$ = $1;}
+ | ArgumentList ',' AssignmentExpr { PRINT_LINE;
+ $$ = $1;
+ if ($1) $1->pn_next = $3;
+ else $$ = $3;
+ node_correct_position ($$, $3);
+}
+;
+
+LeftHandSideExpr:
+ NewExpr
+ | CallExpr
+;
+
+LeftHandSideExprNoBF:
+ NewExprNoBF
+ | CallExprNoBF
+;
+
+PostfixExpr:
+ LeftHandSideExpr
+ | LeftHandSideExpr PLUSPLUS { PRINT_LINE; $$ = $1;}
+ | LeftHandSideExpr MINUSMINUS { PRINT_LINE; $$ = $1;}
+;
+
+PostfixExprNoBF:
+ LeftHandSideExprNoBF
+ | LeftHandSideExprNoBF PLUSPLUS { PRINT_LINE_TODO; $$ = NULL;}
+ | LeftHandSideExprNoBF MINUSMINUS { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+UnaryExprCommon:
+ DELETETOKEN UnaryExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | VOIDTOKEN UnaryExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | TYPEOF UnaryExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | PLUSPLUS UnaryExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | AUTOPLUSPLUS UnaryExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | MINUSMINUS UnaryExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | AUTOMINUSMINUS UnaryExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | '+' UnaryExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | '-' UnaryExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | '~' UnaryExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | '!' UnaryExpr { PRINT_LINE_TODO; $$ = NULL;}
+
+UnaryExpr:
+ PostfixExpr
+ | UnaryExprCommon
+;
+
+UnaryExprNoBF:
+ PostfixExprNoBF
+ | UnaryExprCommon
+;
+
+MultiplicativeExpr:
+ UnaryExpr
+ | MultiplicativeExpr '*' UnaryExpr { PRINT_LINE; $$ = $3;}
+ | MultiplicativeExpr '/' UnaryExpr { PRINT_LINE; $$ = $3;}
+ | MultiplicativeExpr '%' UnaryExpr { PRINT_LINE; $$ = $3;}
+;
+
+MultiplicativeExprNoBF:
+ UnaryExprNoBF
+ | MultiplicativeExprNoBF '*' UnaryExpr
+ { PRINT_LINE_TODO; $$ = $3;}
+ | MultiplicativeExprNoBF '/' UnaryExpr
+ { PRINT_LINE_TODO; $$ = $3;}
+ | MultiplicativeExprNoBF '%' UnaryExpr
+ { PRINT_LINE_TODO; $$ = $3;}
+;
+
+AdditiveExpr:
+ MultiplicativeExpr
+ | AdditiveExpr '+' MultiplicativeExpr { PRINT_LINE; $$ = $3;}
+ | AdditiveExpr '-' MultiplicativeExpr { PRINT_LINE; $$ = $3;}
+;
+
+AdditiveExprNoBF:
+ MultiplicativeExprNoBF
+ | AdditiveExprNoBF '+' MultiplicativeExpr
+ { PRINT_LINE; $$ = $3;}
+ | AdditiveExprNoBF '-' MultiplicativeExpr
+ { PRINT_LINE; $$ = $3;}
+;
+
+ShiftExpr:
+ AdditiveExpr
+ | ShiftExpr LSHIFT AdditiveExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | ShiftExpr RSHIFT AdditiveExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | ShiftExpr URSHIFT AdditiveExpr { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+ShiftExprNoBF:
+ AdditiveExprNoBF
+ | ShiftExprNoBF LSHIFT AdditiveExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | ShiftExprNoBF RSHIFT AdditiveExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | ShiftExprNoBF URSHIFT AdditiveExpr { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+RelationalExpr:
+ ShiftExpr
+ | RelationalExpr '<' ShiftExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | RelationalExpr '>' ShiftExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | RelationalExpr LE ShiftExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | RelationalExpr GE ShiftExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | RelationalExpr INSTANCEOF ShiftExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | RelationalExpr INTOKEN ShiftExpr { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+RelationalExprNoIn:
+ ShiftExpr
+ | RelationalExprNoIn '<' ShiftExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | RelationalExprNoIn '>' ShiftExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | RelationalExprNoIn LE ShiftExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | RelationalExprNoIn GE ShiftExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | RelationalExprNoIn INSTANCEOF ShiftExpr
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+RelationalExprNoBF:
+ ShiftExprNoBF
+ | RelationalExprNoBF '<' ShiftExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | RelationalExprNoBF '>' ShiftExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | RelationalExprNoBF LE ShiftExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | RelationalExprNoBF GE ShiftExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | RelationalExprNoBF INSTANCEOF ShiftExpr
+ { PRINT_LINE_TODO; $$ = NULL;}
+ | RelationalExprNoBF INTOKEN ShiftExpr
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+EqualityExpr:
+ RelationalExpr
+ | EqualityExpr EQEQ RelationalExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | EqualityExpr NE RelationalExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | EqualityExpr STREQ RelationalExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | EqualityExpr STRNEQ RelationalExpr { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+EqualityExprNoIn:
+ RelationalExprNoIn
+ | EqualityExprNoIn EQEQ RelationalExprNoIn
+ { PRINT_LINE_TODO; $$ = NULL;}
+ | EqualityExprNoIn NE RelationalExprNoIn
+ { PRINT_LINE_TODO; $$ = NULL;}
+ | EqualityExprNoIn STREQ RelationalExprNoIn
+ { PRINT_LINE_TODO; $$ = NULL;}
+ | EqualityExprNoIn STRNEQ RelationalExprNoIn
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+EqualityExprNoBF:
+ RelationalExprNoBF
+ | EqualityExprNoBF EQEQ RelationalExpr
+ { PRINT_LINE_TODO; $$ = NULL;}
+ | EqualityExprNoBF NE RelationalExpr { PRINT_LINE_TODO; $$ = NULL;}
+ | EqualityExprNoBF STREQ RelationalExpr
+ { PRINT_LINE_TODO; $$ = NULL;}
+ | EqualityExprNoBF STRNEQ RelationalExpr
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+BitwiseANDExpr:
+ EqualityExpr
+ | BitwiseANDExpr '&' EqualityExpr { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+BitwiseANDExprNoIn:
+ EqualityExprNoIn
+ | BitwiseANDExprNoIn '&' EqualityExprNoIn
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+BitwiseANDExprNoBF:
+ EqualityExprNoBF
+ | BitwiseANDExprNoBF '&' EqualityExpr { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+BitwiseXORExpr:
+ BitwiseANDExpr
+ | BitwiseXORExpr '^' BitwiseANDExpr { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+BitwiseXORExprNoIn:
+ BitwiseANDExprNoIn
+ | BitwiseXORExprNoIn '^' BitwiseANDExprNoIn
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+BitwiseXORExprNoBF:
+ BitwiseANDExprNoBF
+ | BitwiseXORExprNoBF '^' BitwiseANDExpr
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+BitwiseORExpr:
+ BitwiseXORExpr
+ | BitwiseORExpr '|' BitwiseXORExpr { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+BitwiseORExprNoIn:
+ BitwiseXORExprNoIn
+ | BitwiseORExprNoIn '|' BitwiseXORExprNoIn
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+BitwiseORExprNoBF:
+ BitwiseXORExprNoBF
+ | BitwiseORExprNoBF '|' BitwiseXORExpr
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+LogicalANDExpr:
+ BitwiseORExpr
+ | LogicalANDExpr AND BitwiseORExpr { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+LogicalANDExprNoIn:
+ BitwiseORExprNoIn
+ | LogicalANDExprNoIn AND BitwiseORExprNoIn
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+LogicalANDExprNoBF:
+ BitwiseORExprNoBF
+ | LogicalANDExprNoBF AND BitwiseORExpr
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+LogicalORExpr:
+ LogicalANDExpr
+ | LogicalORExpr OR LogicalANDExpr { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+LogicalORExprNoIn:
+ LogicalANDExprNoIn
+ | LogicalORExprNoIn OR LogicalANDExprNoIn
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+LogicalORExprNoBF:
+ LogicalANDExprNoBF
+ | LogicalORExprNoBF OR LogicalANDExpr { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+ConditionalExpr:
+ LogicalORExpr
+ | LogicalORExpr '?' AssignmentExpr ':' AssignmentExpr
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+ConditionalExprNoIn:
+ LogicalORExprNoIn
+ | LogicalORExprNoIn '?' AssignmentExprNoIn ':' AssignmentExprNoIn
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+ConditionalExprNoBF:
+ LogicalORExprNoBF
+ | LogicalORExprNoBF '?' AssignmentExpr ':' AssignmentExpr
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+AssignmentExpr:
+ ConditionalExpr
+ | LeftHandSideExpr AssignmentOperator AssignmentExpr
+ { PRINT_LINE;
+ $$ = node_new (TOK_ASSIGN, PN_BINARY);
+ $$->pn_u.binary.left = $1;
+ $$->pn_u.binary.right = $3;
+ node_correct_position ($$, $1);
+ node_correct_position ($$, $3);
+}
+;
+
+AssignmentExprNoIn:
+ ConditionalExprNoIn
+ | LeftHandSideExpr AssignmentOperator AssignmentExprNoIn
+ { PRINT_LINE;
+ $$ = node_new (TOK_ASSIGN, PN_BINARY);
+ $$->pn_u.binary.left = $1;
+ $$->pn_u.binary.right = $3;
+ node_correct_position ($$, $1);
+ node_correct_position ($$, $3);
+}
+;
+
+AssignmentExprNoBF:
+ ConditionalExprNoBF
+ | LeftHandSideExprNoBF AssignmentOperator AssignmentExpr
+ { PRINT_LINE;
+ $$ = node_new (TOK_ASSIGN, PN_BINARY);
+ $$->pn_u.binary.left = $1;
+ $$->pn_u.binary.right = $3;
+ node_correct_position ($$, $1);
+ node_correct_position ($$, $3);
+}
+;
+
+AssignmentOperator:
+ '=' { PRINT_LINE_NOTNEED; $$ = NULL;}
+ | PLUSEQUAL { PRINT_LINE_NOTNEED; $$ = NULL;}
+ | MINUSEQUAL { PRINT_LINE_NOTNEED; $$ = NULL;}
+ | MULTEQUAL { PRINT_LINE_NOTNEED; $$ = NULL;}
+ | DIVEQUAL { PRINT_LINE_NOTNEED; $$ = NULL;}
+ | LSHIFTEQUAL { PRINT_LINE_NOTNEED; $$ = NULL;}
+ | RSHIFTEQUAL { PRINT_LINE_NOTNEED; $$ = NULL;}
+ | URSHIFTEQUAL { PRINT_LINE_NOTNEED; $$ = NULL;}
+ | ANDEQUAL { PRINT_LINE_NOTNEED; $$ = NULL;}
+ | XOREQUAL { PRINT_LINE_NOTNEED; $$ = NULL;}
+ | OREQUAL { PRINT_LINE_NOTNEED; $$ = NULL;}
+ | MODEQUAL { PRINT_LINE_NOTNEED; $$ = NULL;}
+;
+
+Expr:
+ AssignmentExpr
+ | Expr ',' AssignmentExpr { PRINT_LINE_TODO; $$ = $3;}
+;
+
+ExprNoIn:
+ AssignmentExprNoIn
+ | ExprNoIn ',' AssignmentExprNoIn { PRINT_LINE_TODO; $$ = $3;}
+;
+
+ExprNoBF:
+ AssignmentExprNoBF
+ | ExprNoBF ',' AssignmentExpr { PRINT_LINE_TODO; $$ = $3;}
+;
+
+Statement:
+ Block
+ | VariableStatement
+ | ConstStatement
+ | FunctionDeclaration
+ | EmptyStatement
+ | ExprStatement
+ | IfStatement
+ | IterationStatement
+ | ContinueStatement
+ | BreakStatement
+ | ReturnStatement
+ | WithStatement
+ | SwitchStatement
+ | LabelledStatement
+ | ThrowStatement
+ | TryStatement
+ | DebuggerStatement
+;
+
+Block:
+ OPENBRACE CLOSEBRACE { PRINT_LINE;
+ $$ = node_new (TOK_LC, PN_LIST);
+ $$->pn_u.list.head = NULL;
+ node_correct_position_end ($$, $2);
+}
+ | OPENBRACE SourceElements CLOSEBRACE { PRINT_LINE;
+ $$ = node_new (TOK_LC, PN_LIST);
+ $$->pn_u.list.head = $2;
+ node_correct_position ($$, $2);
+ node_correct_position_end ($$, $3);
+}
+;
+
+VariableStatement:
+ VAR VariableDeclarationList ';' { PRINT_LINE; $$ = $2;}
+ | VAR VariableDeclarationList error { PRINT_LINE; $$ = $2; AUTO_SEMICOLON (node_get_line ($2)); }
+;
+
+VariableDeclarationList:
+ IDENT { PRINT_LINE;
+ $$ = node_new (TOK_VAR, PN_LIST);
+ $$->pn_u.list.head = $1;
+ node_correct_position ($$, $1);
+}
+ | IDENT Initializer { PRINT_LINE;
+ $$ = node_new (TOK_VAR, PN_LIST);
+ $$->pn_u.list.head = $1;
+ $1->pn_u.name.expr = $2;
+ node_correct_position ($$, $1);
+ node_correct_position ($$, $2);
+}
+ | VariableDeclarationList ',' IDENT
+ { PRINT_LINE; $$ = $1;
+ if ($3) {
+ g_assert ($1->pn_arity == PN_LIST);
+ $3->pn_next = $1->pn_u.list.head;
+ $1->pn_u.list.head = $3;
+ }
+ node_correct_position ($$, $1);
+ node_correct_position ($$, $3);
+}
+ | VariableDeclarationList ',' IDENT Initializer
+ { PRINT_LINE;
+ if ($3) {
+ g_assert ($1->pn_arity == PN_LIST);
+ $3->pn_next = $1->pn_u.list.head;
+ $1->pn_u.list.head = $3;
+ $3->pn_u.name.expr = $4;
+ }
+ node_correct_position ($$, $1);
+ node_correct_position ($$, $3);
+ node_correct_position ($$, $4);
+}
+;
+
+VariableDeclarationListNoIn:
+ IDENT { PRINT_LINE;
+ $$ = node_new (TOK_VAR, PN_LIST);
+ $$->pn_u.list.head = $1;
+ node_correct_position ($$, $1);
+}
+ | IDENT InitializerNoIn { PRINT_LINE;
+ $$ = node_new (TOK_VAR, PN_LIST);
+ $$->pn_u.list.head = $1;
+ $1->pn_u.name.expr = $2;
+ node_correct_position ($$, $1);
+ node_correct_position ($$, $2);
+}
+ | VariableDeclarationListNoIn ',' IDENT
+ { PRINT_LINE_TODO; $$ = NULL;}
+ | VariableDeclarationListNoIn ',' IDENT InitializerNoIn
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+ConstStatement:
+ CONSTTOKEN ConstDeclarationList ';' { PRINT_LINE; $$ = $2;}
+ | CONSTTOKEN ConstDeclarationList error
+ { PRINT_LINE; $$ = $2; AUTO_SEMICOLON (node_get_line ($2));; }
+;
+
+ConstDeclarationList:
+ ConstDeclaration { PRINT_LINE;
+ $$ = node_new (TOK_VAR, PN_LIST);
+ $$->pn_u.list.head = $1;
+ node_correct_position ($$, $1);
+}
+ | ConstDeclarationList ',' ConstDeclaration
+ { PRINT_LINE;
+ $$ = $1;
+ if ($3) {
+ g_assert ($1->pn_arity == PN_LIST);
+ $3->pn_next = $1->pn_u.list.head;
+ $1->pn_u.list.head = $3;
+ }
+ node_correct_position ($$, $3);
+}
+;
+
+ConstDeclaration:
+ IDENT { PRINT_LINE; $$ = $1; $1->pn_u.name.isconst = 1;}
+ | IDENT Initializer { PRINT_LINE_TODO;
+ $$ = $1;
+ $$->pn_u.name.expr = $2;
+ node_correct_position ($$, $2);
+}
+;
+
+Initializer:
+ '=' AssignmentExpr { PRINT_LINE; $$ = $2;}
+;
+
+InitializerNoIn:
+ '=' AssignmentExprNoIn { PRINT_LINE; $$ = $2;}
+;
+
+EmptyStatement:
+ ';' { PRINT_LINE; $$ = node_new (TOK_SEMI, PN_UNARY); $$->pn_u.unary.kid = NULL;}
+;
+
+ExprStatement:
+ ExprNoBF ';' { PRINT_LINE; $$ = $1;}
+ | ExprNoBF error { PRINT_LINE; $$ = $1; AUTO_SEMICOLON (node_get_line ($1));; }
+;
+
+IfStatement:
+ IF '(' Expr ')' Statement %prec IF_WITHOUT_ELSE
+ { PRINT_LINE; $$ = $5;}
+ | IF '(' Expr ')' Statement ELSE Statement
+ { PRINT_LINE; $$ = $5;}
+;
+
+IterationStatement:
+ DO Statement WHILE '(' Expr ')' ';' { PRINT_LINE_TODO; $$ = NULL;}
+ | DO Statement WHILE '(' Expr ')' error { PRINT_LINE; $$ = NULL; AUTO_SEMICOLON (node_get_line ($5));}
+ | WHILE '(' Expr ')' Statement { PRINT_LINE; $$ = $5;}
+ | FOR '(' ExprNoInOpt ';' ExprOpt ';' ExprOpt ')' Statement
+ { PRINT_LINE; $$ = $9;}
+ | FOR '(' VAR VariableDeclarationListNoIn ';' ExprOpt ';' ExprOpt ')' Statement
+ { PRINT_LINE_TODO; $$ = NULL;}
+ | FOR '(' LeftHandSideExpr INTOKEN Expr ')' Statement
+ { PRINT_LINE; $$ = $7;}
+ | FOR '(' VAR IDENT INTOKEN Expr ')' Statement
+ { PRINT_LINE; $$ = $8;}
+ | FOR '(' VAR IDENT InitializerNoIn INTOKEN Expr ')' Statement
+ { PRINT_LINE; $$ = $9;}
+;
+
+ExprOpt:
+ /* nothing */ { PRINT_LINE_TODO; $$ = NULL;}
+ | Expr
+;
+
+ExprNoInOpt:
+ /* nothing */ { PRINT_LINE_TODO; $$ = NULL;}
+ | ExprNoIn
+;
+
+ContinueStatement:
+ CONTINUE ';' { PRINT_LINE_TODO; $$ = NULL;}
+ | CONTINUE error { PRINT_LINE; AUTO_SEMICOLON (0); }
+ | CONTINUE IDENT ';' { PRINT_LINE_TODO; $$ = NULL;}
+ | CONTINUE IDENT error { PRINT_LINE; AUTO_SEMICOLON (node_get_line ($2)); }
+;
+
+BreakStatement:
+ BREAK ';' { PRINT_LINE_TODO; $$ = NULL;}
+ | BREAK error { PRINT_LINE_TODO; $$ = NULL; AUTO_SEMICOLON (0);}
+ | BREAK IDENT ';' { PRINT_LINE_TODO; $$ = NULL;}
+ | BREAK IDENT error { PRINT_LINE; AUTO_SEMICOLON (node_get_line ($2)); }
+;
+
+ReturnStatement:
+ RETURN ';' { PRINT_LINE; $$ = node_new (TOK_RETURN, PN_UNARY); $$->pn_u.unary.kid = NULL;}
+ | RETURN error { PRINT_LINE; $$ = node_new (TOK_RETURN, PN_UNARY); $$->pn_u.unary.kid = NULL; AUTO_SEMICOLON (0); }
+ | RETURN Expr ';' { PRINT_LINE;
+ $$ = node_new (TOK_RETURN, PN_UNARY);
+ $$->pn_u.unary.kid = $2;
+ node_correct_position ($$, $2);
+}
+ | RETURN Expr error { PRINT_LINE;
+ $$ = node_new (TOK_RETURN, PN_UNARY);
+ $$->pn_u.unary.kid = $2;
+ node_correct_position ($$, $2);
+ AUTO_SEMICOLON (node_get_line ($2));
+}
+;
+
+WithStatement:
+ WITH '(' Expr ')' Statement { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+SwitchStatement:
+ SWITCH '(' Expr ')' CaseBlock { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+CaseBlock:
+ OPENBRACE CaseClausesOpt CLOSEBRACE { PRINT_LINE_TODO; $$ = NULL;}
+ | OPENBRACE CaseClausesOpt DefaultClause CaseClausesOpt CLOSEBRACE
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+CaseClausesOpt:
+/* nothing */ { PRINT_LINE_TODO; $$ = NULL;}
+ | CaseClauses
+;
+
+CaseClauses:
+ CaseClause { PRINT_LINE_TODO; $$ = NULL;}
+ | CaseClauses CaseClause { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+CaseClause:
+ CASE Expr ':' { PRINT_LINE_TODO; $$ = NULL;}
+ | CASE Expr ':' SourceElements { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+DefaultClause:
+ DEFAULT ':' { PRINT_LINE_TODO; $$ = NULL;}
+ | DEFAULT ':' SourceElements { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+LabelledStatement:
+ IDENT ':' Statement { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+ThrowStatement:
+ THROW Expr ';' { PRINT_LINE_TODO; $$ = NULL;}
+ | THROW Expr error { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+TryStatement:
+ TRY Block FINALLY Block { PRINT_LINE_TODO; $$ = NULL;}
+ | TRY Block CATCH '(' IDENT ')' Block { PRINT_LINE_TODO; $$ = NULL;}
+ | TRY Block CATCH '(' IDENT ')' Block FINALLY Block
+ { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+DebuggerStatement:
+ DEBUGGER ';' { PRINT_LINE_TODO; $$ = NULL;}
+ | DEBUGGER error { PRINT_LINE_TODO; $$ = NULL;}
+;
+
+FunctionDeclaration:
+ FUNCTION IDENT '(' ')' OPENBRACE FunctionBody CLOSEBRACE { PRINT_LINE;
+ $$ = node_new ( TOK_FUNCTION, PN_FUNC);
+ $$->pn_u.func.name = $2;
+ $$->pn_u.func.body = $6;
+ $$->pn_u.func.args = NULL;
+ node_correct_position ($$, $2);
+ node_correct_position ($$, $6);
+ node_correct_position_end ($$, $7);
+}
+ | FUNCTION IDENT '(' FormalParameterList ')' OPENBRACE FunctionBody CLOSEBRACE
+ { PRINT_LINE;
+ $$ = node_new ( TOK_FUNCTION, PN_FUNC);
+ $$->pn_u.func.name = $2;
+ $$->pn_u.func.body = $7;
+ $$->pn_u.func.args = $4;
+ node_correct_position ($$, $2);
+ node_correct_position ($$, $7);
+ node_correct_position ($$, $4);
+ node_correct_position_end ($$, $8);
+}
+;
+
+FunctionExpr:
+ FUNCTION '(' ')' OPENBRACE FunctionBody CLOSEBRACE { PRINT_LINE;
+ $$ = node_new ( TOK_FUNCTION, PN_FUNC);
+ $$->pn_u.func.name = NULL;
+ $$->pn_u.func.body = $5;
+ $$->pn_u.func.args = NULL;
+ node_correct_position ($$, $5);
+ node_correct_position_end ($$, $6);
+}
+ | FUNCTION '(' FormalParameterList ')' OPENBRACE FunctionBody CLOSEBRACE
+ { PRINT_LINE;
+ $$ = node_new ( TOK_FUNCTION, PN_FUNC);
+ $$->pn_u.func.name = NULL;
+ $$->pn_u.func.body = $6;
+ $$->pn_u.func.args = $3;
+ node_correct_position ($$, $3);
+ node_correct_position ($$, $6);
+ node_correct_position_end ($$, $7);
+}
+ | FUNCTION IDENT '(' ')' OPENBRACE FunctionBody CLOSEBRACE { PRINT_LINE;
+ $$ = node_new ( TOK_FUNCTION, PN_FUNC);
+ $$->pn_u.func.name = $2;
+ $$->pn_u.func.body = $6;
+ $$->pn_u.func.args = NULL;
+ node_correct_position ($$, $2);
+ node_correct_position ($$, $6);
+ node_correct_position_end ($$, $7);
+}
+ | FUNCTION IDENT '(' FormalParameterList ')' OPENBRACE FunctionBody CLOSEBRACE
+ { PRINT_LINE;
+ $$ = node_new ( TOK_FUNCTION, PN_FUNC);
+ $$->pn_u.func.name = $2;
+ $$->pn_u.func.body = $7;
+ $$->pn_u.func.args = $4;
+ node_correct_position ($$, $2);
+ node_correct_position ($$, $4);
+ node_correct_position ($$, $7);
+ node_correct_position_end ($$, $8);
+}
+;
+
+FormalParameterList:
+ IDENT { PRINT_LINE;
+ $$ = node_new (TOK_LC, PN_LIST);
+ $$->pn_u.list.head = $1;
+ node_correct_position ($$, $1);
+}
+ | FormalParameterList ',' IDENT { PRINT_LINE;
+ $$ = $1;
+ g_assert ($1->pn_arity == PN_LIST);
+ if ($1->pn_u.list.head) {
+ JSNode *i;
+ for (i = $1->pn_u.list.head; i->pn_next != NULL; i = i->pn_next)
+ ;
+ i->pn_next = $3;
+ } else $1->pn_u.list.head = $3;
+ node_correct_position ($$, $3);
+}
+;
+
+FunctionBody:
+ /* not in spec */ { PRINT_LINE_TODO; $$ = NULL;}
+ | SourceElements { PRINT_LINE; $$ = $1;}
+;
+
+Program:
+ /* not in spec */ { PRINT_LINE; global = NULL;}
+ | SourceElements { PRINT_LINE; global = $1;}
+;
+
+SourceElements:
+ Statement { PRINT_LINE;
+ $$ = node_new (TOK_LC, PN_LIST);
+ $$->pn_u.list.head = $1;
+ node_correct_position ($$, $1);
+}
+ | SourceElements Statement { PRINT_LINE;
+ $$ = $1;
+ g_assert ($1->pn_arity == PN_LIST);
+ if ($1->pn_u.list.head) {
+ JSNode *i;
+ for (i = $1->pn_u.list.head; i->pn_next != NULL; i = i->pn_next) {
+ }
+ i->pn_next = $2;
+ } else $1->pn_u.list.head = $2;
+ node_correct_position ($$, $2);
+}
+;
+
+%%
+#undef GLOBAL_DATA
+
+void yyerror (char* msg)
+{
+// puts (msg);
+}
diff --git a/plugins/symbol-db/anjuta-tags/parser/js-context.c b/plugins/symbol-db/anjuta-tags/parser/js-context.c
new file mode 100644
index 0000000..39c447e
--- /dev/null
+++ b/plugins/symbol-db/anjuta-tags/parser/js-context.c
@@ -0,0 +1,626 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#include <stdio.h>
+#include <string.h>
+#include "js-context.h"
+
+typedef struct _JSContextPrivate JSContextPrivate;
+
+struct _JSContextPrivate {
+ JSNode *node;
+};
+
+static void interpretator (JSNode *node, JSContext *my_cx, GList **calls);
+
+G_DEFINE_TYPE (JSContext, js_context, G_TYPE_OBJECT);
+
+#define JS_CONTEXT_GET_PRIVATE(i) \
+ (G_TYPE_INSTANCE_GET_PRIVATE ((i), JS_TYPE_CONTEXT, JSContextPrivate))
+
+static void
+js_context_init (JSContext *object)
+{
+ JSContextPrivate *priv = JS_CONTEXT_GET_PRIVATE (object);
+ object->func_arg = NULL;
+ object->func_name = NULL;
+ object->parent = NULL;
+ object->childs = NULL;
+ object->local_var = NULL;
+ object->bline = 0;
+ object->eline = 0;
+ object->ret_type = NULL;
+
+ priv->node = NULL;
+}
+
+static void
+js_context_finalize (GObject *object)
+{
+ JSContext *self = JS_CONTEXT (object);
+ JSContextPrivate *priv = JS_CONTEXT_GET_PRIVATE (self);
+
+ g_object_unref (priv->node);
+
+ g_list_foreach (self->local_var, (GFunc)g_free, NULL);
+ g_list_free (self->local_var);
+ g_list_foreach (self->childs, (GFunc)g_object_unref, NULL);
+ g_list_free (self->childs);
+ g_free (self->func_name);
+ g_list_free (self->ret_type);
+ g_list_free (self->func_arg);
+
+ G_OBJECT_CLASS (js_context_parent_class)->finalize (object);
+}
+
+static void
+js_context_class_init (JSContextClass *klass)
+{
+ GObjectClass* object_class = G_OBJECT_CLASS (klass);
+ /*GObjectClass* parent_class = G_OBJECT_CLASS (klass);*/
+
+ g_type_class_add_private (klass, sizeof (JSContextPrivate));
+
+ object_class->finalize = js_context_finalize;
+}
+
+
+JSContext*
+js_context_new_from_node (JSNode *node, GList **calls)
+{
+ JSContext *self = g_object_new (JS_TYPE_CONTEXT, NULL);
+ JSContextPrivate *priv = JS_CONTEXT_GET_PRIVATE (self);
+ g_object_ref (node);
+ priv->node = node;
+ interpretator (node, self, calls);
+ return self;
+}
+
+JSNode*
+js_context_get_last_assignment (JSContext *my_cx, const gchar *name)
+{
+ GList *i;
+ for (i = g_list_last (my_cx->local_var); i; i = g_list_previous (i))
+ {
+ Var *t = (Var *)i->data;
+ if (!t->name)
+ continue;
+ if (g_strcmp0 (t->name, name) != 0)
+ continue;
+ g_object_ref (t->node);
+ return t->node;
+ }
+ for (i = g_list_last (my_cx->childs); i; i = g_list_previous (i))
+ {
+ JSContext *t = (JSContext *)i->data;
+ JSNode *node = js_context_get_last_assignment (t, name);
+ if (node)
+ return node;
+ }
+ return NULL;
+}
+
+
+static JSContext *
+js_context_new (JSContext *parent)
+{
+ JSContext *self = g_object_new (JS_TYPE_CONTEXT, NULL);
+ self->parent = parent;
+ return self;
+}
+
+Type*
+js_context_get_node_type (JSContext *my_cx, JSNode *node)
+{
+ Type *ret;
+ const gchar *name;
+ if (!node)
+ return NULL;
+
+ ret = g_new (Type, 1);
+ ret->isFuncCall = FALSE;
+ switch ((JSNodeArity)node->pn_arity)
+ {
+ case PN_NAME:
+ switch ((JSTokenType)node->pn_type)
+ {
+ case TOK_NAME:
+ name = js_node_get_name (node);
+ if (!name)
+ g_assert_not_reached ();
+ else
+ {
+ JSNode *t = js_context_get_last_assignment (my_cx, name);
+ if (t)
+ {
+ Type *tname = js_context_get_node_type (my_cx, t);
+ if (tname)
+ return tname;
+ else
+ ret->name = g_strdup (name);
+ }
+ else
+ ret->name = g_strdup (name);
+ return ret;
+ }
+ break;
+ case TOK_DOT:
+ name = js_node_get_name (node);
+ if (!name)
+ g_assert_not_reached ();
+ else
+ {
+ JSNode *t = js_context_get_last_assignment (my_cx, name);
+ if (t)
+ {
+ Type *tname = js_context_get_node_type (my_cx, t);
+ if (tname)
+ return tname;
+ else
+ ret->name = g_strdup (name);
+ }
+ else
+ ret->name = g_strdup (name);
+ return ret;
+ }
+ break;
+ default:
+ g_assert_not_reached ();
+ break;
+ }
+ break;
+ case PN_NULLARY:
+ switch ((JSTokenType)node->pn_type)
+ {
+ case TOK_STRING:
+// puts ("string");
+ ret->name = g_strdup ("String");
+ return ret;
+ break;
+ case TOK_NUMBER:
+/// puts ("float");
+ ret->name = g_strdup ("Number");
+ return ret;
+ break;
+ case TOK_PRIMARY:
+ switch (node->pn_op)
+ {
+ case JSOP_FALSE:
+ case JSOP_TRUE:
+ ret->name = g_strdup ("Boolean");
+ return ret;
+ break;
+ case JSOP_NULL:
+ ret->name = g_strdup ("null");
+ return ret;
+ break;
+ case JSOP_THIS:
+ ret->name = g_strdup ("Object");
+ return ret;
+ break;
+ default:
+ printf ("%d\n", node->pn_op);
+ g_assert_not_reached ();
+ break;
+ }
+ break;
+ default:
+ printf ("%d\n", node->pn_type);
+ g_assert_not_reached ();
+ break;
+ }
+ break;
+ case PN_LIST:
+ switch ((JSTokenType)node->pn_type)
+ {
+ case TOK_NEW:
+ name = js_node_get_name (node->pn_u.list.head);
+ if (!name)
+ g_assert_not_reached ();
+ else
+ {
+// puts (name);
+ ret->name = g_strdup (name);
+ return ret;
+ }
+ break;
+ case TOK_LP:
+ name = js_node_get_name (node->pn_u.list.head);
+ if (!name)
+ g_assert_not_reached ();
+ else
+ {
+// printf ("call %s\n",name);
+ ret->isFuncCall = TRUE;
+ ret->name = g_strdup (name);
+ return ret;
+ }
+ break;
+ case TOK_PLUS:
+/*TODO if (node->pn_extra == PNX_STRCAT)
+ return g_strdup ("String");*/
+ ret->name = g_strdup ("Number");
+ return ret;
+ break;
+ case TOK_RC:
+//TODO:
+ break;
+ default:
+ printf ("%d\n", node->pn_type);
+ g_assert_not_reached ();
+ break;
+ }
+ break;
+ case PN_FUNC:
+ ret->name = g_strdup ("Function");
+ return ret;
+ break;
+ case PN_BINARY:
+ switch ((JSTokenType)node->pn_type)
+ {
+ case TOK_MINUS:
+ case TOK_PLUS:
+/*TODO if (node->pn_extra == PNX_STRCAT)
+ return g_strdup ("String");*/
+ ret->name = g_strdup ("Number");
+ return ret;
+ break;
+ default:
+ printf ("%d\n", node->pn_type);
+ g_assert_not_reached ();
+ break;
+ }
+ break;
+ case PN_UNARY:
+ switch ((JSTokenType)node->pn_type)
+ {
+ case TOK_RP:
+ return js_context_get_node_type (my_cx, node->pn_u.unary.kid);
+ break;
+ case TOK_UNARYOP:
+ return js_context_get_node_type (my_cx, node->pn_u.unary.kid);
+ break;
+ default:
+ printf ("%d\n", node->pn_type);
+ g_assert_not_reached ();
+ break;
+ }
+ break;
+ case PN_TERNARY:
+ switch ((JSTokenType)node->pn_type)
+ {
+/*TODO case TOK_HOOK:
+ return get_node_type (node->pn_u.ternary.kid2, my_cx);
+ break;*/
+ default:
+ printf ("%d\n", node->pn_type);
+ g_assert_not_reached ();
+ break;
+ }
+ break;
+ default:
+ printf ("%d\n", node->pn_type);
+ g_assert_not_reached ();
+ break;
+ }
+ return NULL;
+}
+
+static void
+interpretator (JSNode *node, JSContext *my_cx, GList **calls)
+{
+ JSNode *iter;
+
+ if (node == NULL)
+ return;
+ switch ((JSNodeArity)node->pn_arity)
+ {
+ case PN_FUNC:
+ {
+ Var *tvar = g_new (Var, 1);
+ tvar->name = NULL;
+ tvar->line = node->pn_pos.end;
+ tvar->node = node;
+
+ if (node->pn_u.func.name) {
+ tvar->name = g_strdup (js_node_get_name (node->pn_u.func.name));
+//puts (tvar->name);
+ }
+ if (tvar->name)
+ {
+ my_cx->local_var = g_list_append (my_cx->local_var, tvar);
+ JSContext *t = js_context_new (my_cx);
+ t->func_name = g_strdup (tvar->name);
+//puts (t->func_name);
+ t->bline = node->pn_pos.begin;
+ t->eline = node->pn_pos.end;
+ interpretator (node->pn_u.func.body, t, calls);
+ my_cx->childs = g_list_append (my_cx->childs, t);
+//puts (t->func_name);
+/* JSAtom ** params = (JSAtom **)g_malloc (function->nargs * sizeof (JSAtom *));
+ gint i;
+ for (i = 0; i < function->nargs; i++) {
+ params[i] = NULL;
+ }
+ JSScope * scope = OBJ_SCOPE(object);
+ JSScopeProperty * scope_property;
+ for (scope_property = SCOPE_LAST_PROP (scope);
+ scope_property != NULL;
+ scope_property = scope_property->parent) {
+ if (!JSID_IS_ATOM (scope_property->id) || ((uint16)scope_property->shortid) >= function->nargs) {
+ continue;
+ }
+ params[(uint16) scope_property->shortid] = JSID_TO_ATOM (scope_property->id);
+ }
+ for (i = 0; i < function->nargs; i++) {
+ g_assert (params[i] != NULL);
+ const gchar *code = js_AtomToPrintableString(cx, params[i]);
+ g_assert (code != NULL);
+ t->func_arg = g_list_append (t->func_arg, g_strdup (code));
+ }*/
+ JSNode *i = JS_NODE (node->pn_u.func.args);
+ if (i)
+ {
+ g_assert (i->pn_arity == PN_LIST);
+ for (i = JS_NODE (i->pn_u.list.head); i; i = JS_NODE (i->pn_next))
+ {
+ g_assert (i->pn_arity == PN_NAME);
+ t->func_arg = g_list_append (t->func_arg, g_strdup (js_node_get_name (i)));
+ }
+ }
+ }
+ }
+ break;
+ case PN_LIST:
+ switch ((JSTokenType)node->pn_type)
+ {
+ case TOK_LC:
+ {
+ JSContext *t = js_context_new (my_cx);
+ t->bline = node->pn_pos.begin;
+ t->eline = node->pn_pos.end;
+ for (iter = node->pn_u.list.head; iter != NULL; iter = iter->pn_next)
+ {
+ interpretator (iter, t, calls);
+ }
+ my_cx->childs = g_list_append (my_cx->childs, t);
+ }
+ break;
+ case TOK_LP:
+ {
+ const gchar *fname = js_node_get_name (node->pn_u.list.head);
+ if (!fname)
+ break;
+ FuncCall *t = g_new (FuncCall, 1);
+ t->name = g_strdup (fname);
+ t->list = ((JSNode*)node->pn_u.list.head)->pn_next;
+ *calls = g_list_append (*calls, t);
+//printf ("call to %s\n", t->name);
+ }
+ break;
+ case TOK_VAR:
+ for (iter = node->pn_u.list.head; iter != NULL; iter = iter->pn_next)
+ {
+ g_assert (iter->pn_type == TOK_NAME);
+
+ const gchar *name = js_node_get_name (iter);
+ Var *t = g_new (Var, 1);
+ t->name = g_strdup (name);
+ t->node = iter->pn_u.name.expr;
+ t->line = iter->pn_pos.end;
+ my_cx->local_var = g_list_append (my_cx->local_var, t);
+ }
+ break;
+ case TOK_RC:
+ for (iter = node->pn_u.list.head; iter != NULL; iter = iter->pn_next)
+ {
+ //add to Context
+ }
+ break;
+ default:
+ break;
+ }
+ case PN_BINARY:
+ switch ((JSTokenType)node->pn_type)
+ {
+ case TOK_ASSIGN:
+ ///NOT COMPLETE
+ {
+ const gchar *name = js_node_get_name (node->pn_u.binary.left);
+ Var *t = (Var *)g_new (Var, 1);
+ t->name = g_strdup (name);
+ t->node = node->pn_u.binary.right;
+ t->line = node->pn_pos.end;
+ my_cx->local_var = g_list_append (my_cx->local_var, t);
+ }
+ break;
+ case TOK_WHILE:
+ case TOK_FOR:
+ {
+ JSContext *t = js_context_new (my_cx);
+ t->bline = node->pn_pos.begin;
+ t->eline = node->pn_pos.end;
+ interpretator (node->pn_u.binary.right, t, calls);
+ my_cx->childs = g_list_append (my_cx->childs, t);
+ }
+ break;
+ case TOK_DO:
+ {
+ JSContext *t = js_context_new (my_cx);
+ t->bline = node->pn_pos.begin;
+ t->eline = node->pn_pos.end;
+ interpretator (node->pn_u.binary.left, t, calls);
+ my_cx->childs = g_list_append (my_cx->childs, t);
+ }
+ break;
+ default:
+ break;
+ }
+ break;
+ case PN_UNARY:
+ switch ((JSTokenType)node->pn_type)
+ {
+ case TOK_SEMI:
+ interpretator (node->pn_u.unary.kid, my_cx, calls);
+ break;
+ case TOK_RETURN:
+ {
+ Type *type = js_context_get_node_type (my_cx, node->pn_u.unary.kid);
+ if (type)
+ {
+ JSContext *i;
+// puts (type);
+ for (i = my_cx; i; i = i->parent)
+ {
+ if (!i->func_name)
+ continue;
+ i->ret_type = g_list_append (i->ret_type, type->name);
+ break;
+ }
+ }
+ }
+ break;
+ default:
+ break;
+ }
+ break;
+ case PN_TERNARY:
+ switch ((JSTokenType)node->pn_type)
+ {
+ case TOK_IF:
+/*TODO if (node->pn_kid2)
+ {
+ Context *t = new Context (my_cx);
+ t->bline = node->pn_kid2->pn_pos.begin.lineno;
+ t->eline = node->pn_kid2->pn_pos.end.lineno;
+ interpretator (node->pn_kid2, t, calls);
+ my_cx->childs = g_list_append (my_cx->childs, t);
+ }
+ if (node->pn_kid3)
+ {
+ Context *t = new Context (my_cx);
+ t->bline = node->pn_kid3->pn_pos.begin.lineno;
+ t->eline = node->pn_kid3->pn_pos.end.lineno;
+ interpretator (node->pn_kid3, t, calls);
+ my_cx->childs = g_list_append (my_cx->childs, t);
+ }*/
+ break;
+ default:
+ break;
+ }
+ break;
+ case PN_NAME:
+ case PN_NULLARY:
+ break;
+ default:
+ printf ("%d\n", node->pn_type);
+ g_assert_not_reached ();
+ break;
+ }
+}
+
+JSNode*
+js_context_get_member (JSContext *my_cx, const gchar *tname, const gchar *mname)
+{
+ GList *i;
+ gchar *name = g_strconcat (tname, ".prototype", NULL);
+ gchar *full_name = g_strdup_printf ("%s.%s", name, mname);
+//puts (name);
+ for (i = g_list_last (my_cx->local_var); i; i = g_list_previous (i))
+ {
+ Var *t = (Var *)i->data;
+ if (!t->name)
+ continue;
+ if (strncmp (t->name, name, strlen (name)) != 0)
+ continue;
+//printf ("%s==%s\n", name, t->name);
+ if (strcmp (t->name, full_name) == 0)
+ {
+ return t->node;
+ }
+ else
+ {
+ JSNode *node = js_node_get_member_from_rc (t->node, mname);
+ if (node)
+ return node;
+ }
+ }
+ for (i = g_list_last (my_cx->childs); i; i = g_list_previous (i))
+ {
+ JSContext *t = JS_CONTEXT (i->data);
+ JSNode *tmp = js_context_get_member (t, tname, mname);
+ if (tmp)
+ return tmp;
+ }
+ return NULL;
+}
+
+GList*
+js_context_get_func_ret_type (JSContext *my_cx, const gchar* name)
+{
+ GList *i;
+ g_assert (name != NULL);
+ if (my_cx->func_name)
+ {
+ if (g_strcmp0 (my_cx->func_name, name) == 0)
+ {
+ return my_cx->ret_type;//TODO:Fix this
+ }
+ }
+ for (i = g_list_last (my_cx->childs); i; i = g_list_previous (i))
+ {
+ JSContext *t = JS_CONTEXT (i->data);
+ GList *ret = js_context_get_func_ret_type (t, name);
+ if (ret)
+ return ret;
+ }
+ return NULL;
+}
+
+GList*
+js_context_get_member_list (JSContext *my_cx, const gchar *tname)
+{
+ GList *i, *ret = NULL;
+
+ g_return_val_if_fail (tname != NULL, NULL);
+
+ gchar *name = g_strconcat (tname, ".prototype", NULL);
+
+ for (i = g_list_last (my_cx->local_var); i; i = g_list_previous (i))
+ {
+ Var *t = (Var *)i->data;
+ if (!t->name)
+ continue;
+ if (strncmp (t->name, name, strlen (name)) != 0)
+ continue;
+ if (strlen (name) != strlen (t->name))
+ ret = g_list_append (ret, g_strdup (t->name));
+ else
+ {
+ GList *tmp = js_node_get_list_member_from_rc (t->node);
+ ret = g_list_concat (ret, tmp);
+ }
+ }
+ for (i = g_list_last (my_cx->childs); i; i = g_list_previous (i))
+ {
+ JSContext *t = JS_CONTEXT (i->data);
+ ret = g_list_concat (ret, js_context_get_member_list (t, tname));
+ }
+ return ret;
+}
diff --git a/plugins/symbol-db/anjuta-tags/parser/js-context.h b/plugins/symbol-db/anjuta-tags/parser/js-context.h
new file mode 100644
index 0000000..3398b86
--- /dev/null
+++ b/plugins/symbol-db/anjuta-tags/parser/js-context.h
@@ -0,0 +1,92 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _JS_CONTEXT_H_
+#define _JS_CONTEXT_H_
+
+#include <glib-object.h>
+
+#include "js-node.h"
+
+typedef struct
+{
+ gchar *name;
+ JSNode *list;
+} FuncCall;
+
+typedef struct
+{
+ gchar *name;
+ JSNode *node;
+ gint line;
+} Var;
+
+typedef struct
+{
+ gchar *name;
+ gboolean isFuncCall;
+} Type;
+
+G_BEGIN_DECLS
+
+#define JS_TYPE_CONTEXT (js_context_get_type ())
+#define JS_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), JS_TYPE_CONTEXT, JSContext))
+#define JS_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), JS_TYPE_CONTEXT, JSContextClass))
+#define JS_IS_CONTEXT(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), JS_TYPE_CONTEXT))
+#define JS_IS_CONTEXT_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), JS_TYPE_CONTEXT))
+#define JS_CONTEXT_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), JS_TYPE_CONTEXT, JSContextClass))
+
+typedef struct _JSContextClass JSContextClass;
+typedef struct _JSContext JSContext;
+
+struct _JSContextClass
+{
+ GObjectClass parent_class;
+};
+
+struct _JSContext
+{
+ GObject parent_instance;
+
+ GList *local_var;
+ gint bline, eline;
+ JSContext *parent;
+ GList *childs;
+ gchar *func_name;
+ GList *ret_type;
+ GList *func_arg;/*name only*/
+};
+
+GType js_context_get_type (void) G_GNUC_CONST;
+
+JSContext* js_context_new_from_node (JSNode *node, GList **calls);
+
+JSNode* js_context_get_last_assignment (JSContext *my_cx, const gchar *name);
+
+Type* js_context_get_node_type (JSContext *my_cx, JSNode *node);
+
+JSNode* js_context_get_member (JSContext *my_cx, const gchar *tname, const gchar *mname);
+
+GList* js_context_get_func_ret_type (JSContext *my_cx, const gchar* name);
+
+GList* js_context_get_member_list (JSContext *my_cx, const gchar *tname);
+
+G_END_DECLS
+
+#endif /* _JS_CONTEXT_H_ */
diff --git a/plugins/symbol-db/anjuta-tags/parser/js-node.c b/plugins/symbol-db/anjuta-tags/parser/js-node.c
new file mode 100644
index 0000000..ce2411b
--- /dev/null
+++ b/plugins/symbol-db/anjuta-tags/parser/js-node.c
@@ -0,0 +1,199 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+#include "stdio.h"
+
+#include "js-node.h"
+#include "y.tab.h"
+#include "lex.yy.h"
+
+typedef struct _JSNodePrivate JSNodePrivate;
+
+struct _JSNodePrivate {
+ GList *missed;
+};
+
+#define JS_NODE_GET_PRIVATE(i) \
+ (G_TYPE_INSTANCE_GET_PRIVATE ((i), JS_TYPE_NODE, JSNodePrivate))
+
+G_DEFINE_TYPE (JSNode, js_node, G_TYPE_OBJECT);
+
+static void
+js_node_init (JSNode *object)
+{
+ JSNodePrivate *priv = JS_NODE_GET_PRIVATE (object);
+ object->pn_u.func.body = NULL;
+ object->pn_u.func.args = NULL;
+ object->pn_u.func.name = NULL;
+ object->pn_next = NULL;
+ priv->missed = NULL;
+}
+
+static void
+js_node_finalize (GObject *object)
+{
+ JSNode *self = JS_NODE (object);
+ switch (self->pn_arity)
+ {
+ case PN_FUNC:
+ if (self->pn_u.func.body)
+ g_object_unref (self->pn_u.func.body);
+ if (self->pn_u.func.name)
+ g_object_unref (self->pn_u.func.name);
+// void *args;
+
+ break;
+ case PN_LIST:
+ if (self->pn_u.list.head)
+ g_object_unref (self->pn_u.list.head);
+ break;
+ case PN_TERNARY:
+ break;
+ case PN_BINARY:
+ if (self->pn_u.binary.left)
+ g_object_unref (self->pn_u.binary.left);
+ if (self->pn_u.binary.right)
+ g_object_unref (self->pn_u.binary.right);
+ break;
+ case PN_UNARY:
+ if (self->pn_u.unary.kid)
+ g_object_unref (self->pn_u.unary.kid);
+ break;
+ case PN_NAME:
+ if (self->pn_u.name.expr)
+ g_object_unref (self->pn_u.name.expr);
+//TODO:Fix g_object_unref (self->pn_u.name.name);
+ break;
+ case PN_NULLARY:
+ break;
+ }
+
+ if (self->pn_next)
+ g_object_unref (self->pn_next);
+ G_OBJECT_CLASS (js_node_parent_class)->finalize (object);
+}
+
+static void
+js_node_class_init (JSNodeClass *klass)
+{
+ GObjectClass* object_class = G_OBJECT_CLASS (klass);
+ /*GObjectClass* parent_class = G_OBJECT_CLASS (klass);*/
+ g_type_class_add_private (klass, sizeof (JSNodePrivate));
+ object_class->finalize = js_node_finalize;
+}
+
+const gchar*
+js_node_get_name (JSNode *node)
+{
+ g_return_val_if_fail (node, NULL);
+ g_assert (JS_IS_NODE (node));
+ if (node->pn_arity == PN_NULLARY)
+ {
+ return NULL;
+ }
+ if (node->pn_arity != PN_NAME)
+ return NULL;
+ switch ((JSTokenType)node->pn_type)
+ {
+ case TOK_NAME:
+ return node->pn_u.name.name;
+ break;
+ case TOK_DOT:
+ return g_strdup_printf ("%s.%s", js_node_get_name (node->pn_u.name.expr), js_node_get_name (node->pn_u.name.name));
+ break;
+ default:
+ g_assert_not_reached ();
+ break;
+ }
+ return NULL;
+}
+
+GList*
+js_node_get_list_member_from_rc (JSNode* node)
+{
+ GList *ret = NULL;
+ JSNode* iter;
+ if (node->pn_type != TOK_RC)
+ return NULL;
+ for (iter = node->pn_u.list.head; iter != NULL; iter = iter->pn_next)
+ {
+ const gchar* name = js_node_get_name (iter->pn_u.binary.left);
+ if (!name)
+ g_assert_not_reached ();
+ else
+ ret = g_list_append (ret, g_strdup (name));
+ }
+ return ret;
+}
+
+JSNode*
+js_node_get_member_from_rc (JSNode* node, const gchar *mname)
+{
+ JSNode* iter;
+ if (node->pn_type != TOK_RC)
+ return NULL;
+ for (iter = node->pn_u.list.head; iter != NULL; iter = iter->pn_next)
+ {
+ const gchar* name = js_node_get_name (iter->pn_u.binary.left);
+ if (!name)
+ {
+ g_assert_not_reached ();
+ continue;
+ }
+ if (g_strcmp0 (mname, name) != 0)
+ continue;
+ if (iter->pn_u.binary.right)
+ g_object_ref (iter->pn_u.binary.right);
+ return iter->pn_u.binary.right;
+ }
+ return NULL;
+}
+
+extern JSNode *global;
+extern GList *line_missed_semicolon;
+
+JSNode*
+js_node_new_from_file (const gchar *name)
+{
+ FILE *f = fopen (name, "r");
+ JSNodePrivate *priv;
+
+ line_missed_semicolon = NULL;
+ global = g_object_new (JS_TYPE_NODE, NULL);
+ priv = JS_NODE_GET_PRIVATE (global);
+ yyset_lineno (1);
+ YY_BUFFER_STATE b = yy_create_buffer (f, 10000);
+ yy_switch_to_buffer (b);
+
+ yyparse ();
+
+ fclose (f);
+
+ yy_delete_buffer (b);
+
+ priv->missed = line_missed_semicolon;
+ return global;
+}
+
+GList*
+js_node_get_lines_missed_semicolon (JSNode *node)
+{
+ JSNodePrivate *priv = JS_NODE_GET_PRIVATE (node);
+ return priv->missed;
+}
+
diff --git a/plugins/symbol-db/anjuta-tags/parser/js-node.h b/plugins/symbol-db/anjuta-tags/parser/js-node.h
new file mode 100644
index 0000000..208475f
--- /dev/null
+++ b/plugins/symbol-db/anjuta-tags/parser/js-node.h
@@ -0,0 +1,90 @@
+/* -*- Mode: C; indent-tabs-mode: t; c-basic-offset: 4; tab-width: 4 -*- */
+/*
+ Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+
+ 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*/
+
+#ifndef _JS_NODE_H_
+#define _JS_NODE_H_
+
+#include <glib-object.h>
+
+#include "jstypes.h"
+
+G_BEGIN_DECLS
+
+#define JS_TYPE_NODE (js_node_get_type ())
+#define JS_NODE(obj) (G_TYPE_CHECK_INSTANCE_CAST ((obj), JS_TYPE_NODE, JSNode))
+#define JS_NODE_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST ((klass), JS_TYPE_NODE, JSNodeClass))
+#define JS_IS_NODE(obj) (G_TYPE_CHECK_INSTANCE_TYPE ((obj), JS_TYPE_NODE))
+#define JS_IS_NODE_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE ((klass), JS_TYPE_NODE))
+#define JS_NODE_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS ((obj), JS_TYPE_NODE, JSNodeClass))
+
+typedef struct _JSNodeClass JSNodeClass;
+typedef struct _JSNode JSNode;
+
+struct _JSNodeClass
+{
+ GObjectClass parent_class;
+};
+
+struct _JSNode
+{
+ GObject parent_instance;
+
+ int pn_type;
+ int pn_op;
+ int pn_arity;
+ JSTokenPos pn_pos;
+ union {
+ struct { /* TOK_FUNCTION node */
+ JSNode *body;
+ JSNode *name;
+ JSNode *args;
+ } func;
+ struct { /* list of next-linked nodes */
+ JSNode *head;
+ } list;
+ struct { /* ternary: if, for(;;), ?: */
+ } ternary;
+ struct { /* two kids if binary */
+ JSNode *left;
+ JSNode *right;
+ } binary;
+ struct { /* one kid if unary */
+ JSNode *kid;
+ } unary;
+ struct { /* name, labeled statement, etc. */
+ JSNode *expr;
+ void *name;
+ char isconst;
+ } name;
+ struct {
+ } apair;
+ } pn_u;
+ JSNode *pn_next;
+};
+
+GType js_node_get_type (void) G_GNUC_CONST;
+const gchar* js_node_get_name (JSNode *node);
+JSNode* js_node_new_from_file (const gchar *name);
+GList* js_node_get_list_member_from_rc (JSNode* node);
+JSNode* js_node_get_member_from_rc (JSNode* node, const gchar *mname);
+GList* js_node_get_lines_missed_semicolon (JSNode *node);
+
+G_END_DECLS
+
+#endif /* _JS_NODE_H_ */
diff --git a/plugins/symbol-db/anjuta-tags/parser/jsparse.c b/plugins/symbol-db/anjuta-tags/parser/jsparse.c
new file mode 100644
index 0000000..69c522d
--- /dev/null
+++ b/plugins/symbol-db/anjuta-tags/parser/jsparse.c
@@ -0,0 +1,147 @@
+
+#include <stdio.h>
+#include "jstypes.h"
+#include "jsparse.h"
+#include "js-node.h"
+
+void
+print_node (JSNode *node, char *pref)
+{
+ char *pr = g_strconcat(pref, "\t", NULL);
+ JSNode *iter;
+
+ if (node == NULL)
+ return;
+
+ printf ("%s%d\n",pref,node->pn_type);
+ switch (node->pn_arity)
+ {
+ case PN_UNARY:
+ printf ("%sUNARY\n", pref);
+ switch ((JSTokenType)node->pn_type)
+ {
+ case TOK_SEMI:
+ print_node (node->pn_u.unary.kid, pr);
+ break;
+ default:
+ break;
+ }
+ break;
+ case PN_LIST:
+ printf ("%sLIST\n", pref);
+ switch ((JSTokenType)node->pn_type)
+ {
+ case TOK_VAR:
+ for (iter = node->pn_u.list.head; iter != NULL; iter = iter->pn_next)
+ {
+ g_assert (iter->pn_type == TOK_NAME);
+
+/* const gchar *name = js_node_get_name(iter);*/
+ break;
+ }
+ case TOK_LP:
+ print_node (node->pn_u.list.head, pr);
+ int k = 0;
+ for (iter = ((JSNode*)node->pn_u.list.head)->pn_next; iter != NULL; iter = iter->pn_next, k++)
+ {
+ print_node (iter, pr);
+ }
+ break;
+ case TOK_RC:
+ {
+ print_node (node->pn_u.list.head, pr);
+ int k = 0;
+ for (iter = ((JSNode*)node->pn_u.list.head)->pn_next; iter != NULL; iter = iter->pn_next, k++)
+ {
+ print_node (iter, pr);
+ }
+ }
+ break;
+ case TOK_LC:
+ for (iter = node->pn_u.list.head; iter != NULL; iter = iter->pn_next)
+ {
+ print_node (iter, pr);
+ }
+ break;
+ case TOK_NEW:
+ ///NOT COMPLETE
+ print_node (node->pn_u.list.head, pr);
+ for (iter = ((JSNode*)node->pn_u.list.head)->pn_next; iter != NULL; iter = iter->pn_next)
+ {
+ print_node (iter, pr);
+ }
+ break;
+ default:
+ break;
+ }
+ break;
+ case PN_BINARY:
+ printf ("%sBINARY\n", pref);
+ switch ((JSTokenType)node->pn_type)
+ {
+ case TOK_ASSIGN:
+ ///NOT COMPLETE
+ print_node (node->pn_u.binary.left, pr);
+ print_node (node->pn_u.binary.right, pr);
+
+ break;
+ default:
+ break;
+ }
+ break;
+ case PN_FUNC:
+ printf ("%sFUNC\n", pref);
+ print_node (node->pn_u.func.body, pr);
+ break;
+ case PN_NAME:
+//TODO printf ("%sNAME\n%s\n", pref, node->pn_u.name.name);
+ printf ("%sNAME\n", pref);
+ print_node (node->pn_u.name.expr, pr);
+/* JSAtom * atom = node->pn_atom;
+ *code = js_AtomToPrintableString(context, node->pn_atom); */
+ break;
+ case PN_NULLARY:
+ printf ("%sNULL\n", pref);
+ switch ((JSTokenType)node->pn_type)
+ {
+ case TOK_STRING:
+// *code = g_strconcat ("\"", js_AtomToPrintableString(context, node->pn_atom), "\"", NULL);
+ break;
+ case TOK_NUMBER:
+// *code = g_new (char, 100);
+// sprintf (*code, "%lf", node->pn_u.dval);
+ break;
+ default:
+ break;
+ }
+ break;
+ case PN_TERNARY:
+ printf ("%sTERNARY\n", pref);
+/* print (node->pn_u.ternary.kid1, pr, &in);
+ print (node->pn_u.ternary.kid2, pr, &in);
+ print (node->pn_u.ternary.kid3, pr, &in); */
+ break;
+
+ }
+ g_free (pr);
+ return;
+}
+/*
+void
+print_context (Context *my_cx, const gchar *str)
+{
+ GList *i;
+ printf ("%s%d-%d\n", str, my_cx->bline, my_cx->eline);
+ for (i = my_cx->local_var; i; i = g_list_next (i))
+ {
+ Var *t = (Var *)i->data;
+ if (!t->name)
+ continue;
+ printf ("%s%s\n", str, t->name);
+ }
+ for (i = g_list_last (my_cx->childs); i; i = g_list_previous (i))
+ {
+ Context *t = (Context *)i->data;
+ print_context (t, g_strdup_printf ("%s%s","\t", str));
+ }
+}*/
diff --git a/plugins/symbol-db/anjuta-tags/parser/jsparse.h b/plugins/symbol-db/anjuta-tags/parser/jsparse.h
new file mode 100644
index 0000000..e98703c
--- /dev/null
+++ b/plugins/symbol-db/anjuta-tags/parser/jsparse.h
@@ -0,0 +1,13 @@
+#ifndef JSPARSE_H
+#define JSPARSE_H
+
+#include <glib.h>
+#include "jstypes.h"
+#include "js-node.h"
+#include "js-context.h"
+
+void print_node (JSNode *node, char *pref);
+
+//void print_context (Context *my_cx, const gchar *str);
+
+#endif
diff --git a/plugins/symbol-db/anjuta-tags/parser/jstypes.h b/plugins/symbol-db/anjuta-tags/parser/jstypes.h
new file mode 100644
index 0000000..0d7a150
--- /dev/null
+++ b/plugins/symbol-db/anjuta-tags/parser/jstypes.h
@@ -0,0 +1,114 @@
+#ifndef JSTYPES_H
+#define JSTYPES_H
+
+#include <glib.h>
+
+typedef enum JSNodeArity {
+ PN_FUNC = -3,
+ PN_LIST = -2,
+ PN_TERNARY = 3,
+ PN_BINARY = 2,
+ PN_UNARY = 1,
+ PN_NAME = -1,
+ PN_NULLARY = 0
+} JSNodeArity;
+
+enum {
+ JSOP_FALSE,
+ JSOP_TRUE,
+ JSOP_NULL,
+ JSOP_THIS,
+};
+
+typedef struct {
+ long begin; /* first character and line of token */
+ long end; /* index 1 past last char, last line */
+} JSTokenPos;
+
+typedef enum JSTokenType {
+ TOK_ERROR = -1, /* well-known as the only code < EOF */
+ TOK_EOF = 0, /* end of file */
+ TOK_EOL = 1, /* end of line */
+ TOK_SEMI = 2, /* semicolon */
+ TOK_COMMA = 3, /* comma operator */
+ TOK_ASSIGN = 4, /* assignment ops (= += -= etc.) */
+ TOK_HOOK = 5, TOK_COLON = 6, /* conditional (?:) */
+ TOK_OR = 7, /* logical or (||) */
+ TOK_AND = 8, /* logical and (&&) */
+ TOK_BITOR = 9, /* bitwise-or (|) */
+ TOK_BITXOR = 10, /* bitwise-xor (^) */
+ TOK_BITAND = 11, /* bitwise-and (&) */
+ TOK_EQOP = 12, /* equality ops (== !=) */
+ TOK_RELOP = 13, /* relational ops (< <= > >=) */
+ TOK_SHOP = 14, /* shift ops (<< >> >>>) */
+ TOK_PLUS = 15, /* plus */
+ TOK_MINUS = 16, /* minus */
+ TOK_STAR = 17, TOK_DIVOP = 18, /* multiply/divide ops (* / %) */
+ TOK_UNARYOP = 19, /* unary prefix operator */
+ TOK_INC = 20, TOK_DEC = 21, /* increment/decrement (++ --) */
+ TOK_DOT = 22, /* member operator (.) */
+ TOK_LB = 23, TOK_RB = 24, /* left and right brackets */
+ TOK_LC = 25, TOK_RC = 26, /* left and right curlies (braces) */
+ TOK_LP = 27, TOK_RP = 28, /* left and right parentheses */
+ TOK_NAME = 29, /* identifier */
+ TOK_NUMBER = 30, /* numeric constant */
+ TOK_STRING = 31, /* string constant */
+ TOK_OBJECT = 32, /* RegExp or other object constant */
+ TOK_PRIMARY = 33, /* true, false, null, this, super */
+ TOK_FUNCTION = 34, /* function keyword */
+ TOK_EXPORT = 35, /* export keyword */
+ TOK_IMPORT = 36, /* import keyword */
+ TOK_IF = 37, /* if keyword */
+ TOK_ELSE = 38, /* else keyword */
+ TOK_SWITCH = 39, /* switch keyword */
+ TOK_CASE = 40, /* case keyword */
+ TOK_DEFAULT = 41, /* default keyword */
+ TOK_WHILE = 42, /* while keyword */
+ TOK_DO = 43, /* do keyword */
+ TOK_FOR = 44, /* for keyword */
+ TOK_BREAK = 45, /* break keyword */
+ TOK_CONTINUE = 46, /* continue keyword */
+ TOK_IN = 47, /* in keyword */
+ TOK_VAR = 48, /* var keyword */
+ TOK_WITH = 49, /* with keyword */
+ TOK_RETURN = 50, /* return keyword */
+ TOK_NEW = 51, /* new keyword */
+ TOK_DELETE = 52, /* delete keyword */
+ TOK_DEFSHARP = 53, /* #n= for object/array initializers */
+ TOK_USESHARP = 54, /* #n# for object/array initializers */
+ TOK_TRY = 55, /* try keyword */
+ TOK_CATCH = 56, /* catch keyword */
+ TOK_FINALLY = 57, /* finally keyword */
+ TOK_THROW = 58, /* throw keyword */
+ TOK_INSTANCEOF = 59, /* instanceof keyword */
+ TOK_DEBUGGER = 60, /* debugger keyword */
+ TOK_XMLSTAGO = 61, /* XML start tag open (<) */
+ TOK_XMLETAGO = 62, /* XML end tag open (</) */
+ TOK_XMLPTAGC = 63, /* XML point tag close (/>) */
+ TOK_XMLTAGC = 64, /* XML start or end tag close (>) */
+ TOK_XMLNAME = 65, /* XML start-tag non-final fragment */
+ TOK_XMLATTR = 66, /* XML quoted attribute value */
+ TOK_XMLSPACE = 67, /* XML whitespace */
+ TOK_XMLTEXT = 68, /* XML text */
+ TOK_XMLCOMMENT = 69, /* XML comment */
+ TOK_XMLCDATA = 70, /* XML CDATA section */
+ TOK_XMLPI = 71, /* XML processing instruction */
+ TOK_AT = 72, /* XML attribute op (@) */
+ TOK_DBLCOLON = 73, /* namespace qualified name op (::) */
+ TOK_ANYNAME = 74, /* XML AnyName singleton (*) */
+ TOK_DBLDOT = 75, /* XML descendant op (..) */
+ TOK_FILTER = 76, /* XML filtering predicate op (.()) */
+ TOK_XMLELEM = 77, /* XML element node type (no token) */
+ TOK_XMLLIST = 78, /* XML list node type (no token) */
+ TOK_YIELD = 79, /* yield from generator function */
+ TOK_ARRAYCOMP = 80, /* array comprehension initialiser */
+ TOK_ARRAYPUSH = 81, /* array push within comprehension */
+ TOK_LEXICALSCOPE = 82, /* block scope AST node label */
+ TOK_LET = 83, /* let keyword */
+ TOK_BODY = 84, /* synthetic body of function with
+ destructuring formal parameters */
+ TOK_RESERVED, /* reserved keywords */
+ TOK_LIMIT /* domain size */
+} JSTokenType;
+
+#endif
diff --git a/plugins/symbol-db/anjuta-tags/parser/lex.l b/plugins/symbol-db/anjuta-tags/parser/lex.l
new file mode 100644
index 0000000..0fec68f
--- /dev/null
+++ b/plugins/symbol-db/anjuta-tags/parser/lex.l
@@ -0,0 +1,126 @@
+%{
+#include <stdio.h>
+#include "jstypes.h"
+#include "js-node.h"
+#include "y.tab.h"
+%}
+
+%option nounput
+%option noinput
+%option yylineno
+COMMENT_BEGIN "/*"
+COMMENT_END "*/"
+%START COMMENT
+%%
+{COMMENT_BEGIN} {BEGIN COMMENT;};
+<COMMENT>[^*]* ;
+<COMMENT>[^/] ;
+<COMMENT>{COMMENT_END} {BEGIN 0; };
+null return NULLTOKEN;
+true return TRUETOKEN;
+false return FALSETOKEN;
+
+break return BREAK;
+case return CASE;
+catch return CATCH;
+const return CONSTTOKEN;
+default return DEFAULT;
+finally return FINALLY;
+for return FOR;
+instanceof return INSTANCEOF;
+new return NEW;
+var return VAR;
+continue return CONTINUE;
+function return FUNCTION;
+return return RETURN;
+void return VOIDTOKEN;
+delete return DELETETOKEN;
+if return IF;
+this return THISTOKEN;
+do return DO;
+while return WHILE;
+else return ELSE;
+in return INTOKEN;
+switch return SWITCH;
+throw return THROW;
+try return TRY;
+typeof return TYPEOF;
+with return WITH;
+debugger return DEBUGGER;
+"===" return STREQ;
+"!==" return STRNEQ;
+"let" ;
+"++" return PLUSPLUS;
+"--" return MINUSMINUS;
+"+=" return PLUSEQUAL;
+"-=" return MINUSEQUAL;
+"*=" return MULTEQUAL;
+"/=" return DIVEQUAL;
+"{" return OPENBRACE;
+"}" (*yylval).intValue = yylineno; return CLOSEBRACE;
+"==" return EQEQ;
+"!=" return NE;
+"<=" return LE;
+">=" return GE;
+"||" return OR;
+"&&" return AND;
+"&=" return ANDEQUAL;
+"%=" return MODEQUAL;
+"^=" return XOREQUAL;
+"|=" return OREQUAL;
+"0x"[A-Fa-f0-9]+ return NUMBER;
+[0-9]+"."[0-9]* return NUMBER;
+[0-9]*"."[0-9]+ return NUMBER;
+[0-9]+ return NUMBER;
+[a-zA-Z_][a-zA-Z0-9_]* (*yylval).name.iname=strdup (yytext); (*yylval).name.pos.end = yylineno; (*yylval).name.pos.begin = yylineno; return IDENT_IN;
+"\""([^\"]*"\\\""?[^\"]*)*"\"" return STRING;
+"\'"([^\']*"\\\'"?[^\']*)*"\'" return STRING;
+"<<" return LSHIFT;
+">>" return RSHIFT;
+">>>" return URSHIFT;
+">>=" return RSHIFTEQUAL;
+">>>=" return URSHIFTEQUAL;
+"(" return '(';
+")" return ')';
+"/" return '/';
+"\\" return '\\';
+":" return ':';
+"," return ',';
+"[" return '[';
+"]" return ']';
+"." return '.';
+"+" return '+';
+"-" return '-';
+"~" return '~';
+"!" return '!';
+"*" return '*';
+"%" return '%';
+"<" return '<';
+">" return '>';
+"&" return '&';
+"^" return '^';
+"|" return '|';
+"?" return '?';
+";" return ';';
+"=" return '=';
+"$" return '$';
+
+"//".*"\n" ;
+" " ;
+"\t" ;
+"\n" ;
+%%
+//"<<=" return LSHIFTEQUA;
+// RESERVED = 282,
+// IF_WITHOUT_ELSE = 288,
+// IDENT = 317,
+
+// AUTOPLUSPLUS = 319,
+// AUTOMINUSMINUS = 320
+
+
+int yywrap ()
+{
+ return 1;
+}
+
diff --git a/plugins/symbol-db/anjuta-tags/parser/lex.yy.c b/plugins/symbol-db/anjuta-tags/parser/lex.yy.c
new file mode 100644
index 0000000..03804f8
--- /dev/null
+++ b/plugins/symbol-db/anjuta-tags/parser/lex.yy.c
@@ -0,0 +1,3698 @@
+#line 2 "parser/lex.yy.c"
+
+#line 4 "parser/lex.yy.c"
+
+#define YY_INT_ALIGNED short int
+
+/* A lexical scanner generated by flex */
+
+#define FLEX_SCANNER
+#define YY_FLEX_MAJOR_VERSION 2
+#define YY_FLEX_MINOR_VERSION 5
+#define YY_FLEX_SUBMINOR_VERSION 35
+#if YY_FLEX_SUBMINOR_VERSION > 0
+#define FLEX_BETA
+#endif
+
+/* First, we deal with platform-specific or compiler-specific issues. */
+
+/* begin standard C headers. */
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+#include <stdlib.h>
+
+/* end standard C headers. */
+
+/* flex integer type definitions */
+
+#ifndef FLEXINT_H
+#define FLEXINT_H
+
+/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
+
+#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
+
+/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
+ * if you want the limit (max/min) macros for int types.
+ */
+#ifndef __STDC_LIMIT_MACROS
+#define __STDC_LIMIT_MACROS 1
+#endif
+
+#include <inttypes.h>
+typedef int8_t flex_int8_t;
+typedef uint8_t flex_uint8_t;
+typedef int16_t flex_int16_t;
+typedef uint16_t flex_uint16_t;
+typedef int32_t flex_int32_t;
+typedef uint32_t flex_uint32_t;
+#else
+typedef signed char flex_int8_t;
+typedef short int flex_int16_t;
+typedef int flex_int32_t;
+typedef unsigned char flex_uint8_t;
+typedef unsigned short int flex_uint16_t;
+typedef unsigned int flex_uint32_t;
+
+/* Limits of integral types. */
+#ifndef INT8_MIN
+#define INT8_MIN (-128)
+#endif
+#ifndef INT16_MIN
+#define INT16_MIN (-32767-1)
+#endif
+#ifndef INT32_MIN
+#define INT32_MIN (-2147483647-1)
+#endif
+#ifndef INT8_MAX
+#define INT8_MAX (127)
+#endif
+#ifndef INT16_MAX
+#define INT16_MAX (32767)
+#endif
+#ifndef INT32_MAX
+#define INT32_MAX (2147483647)
+#endif
+#ifndef UINT8_MAX
+#define UINT8_MAX (255U)
+#endif
+#ifndef UINT16_MAX
+#define UINT16_MAX (65535U)
+#endif
+#ifndef UINT32_MAX
+#define UINT32_MAX (4294967295U)
+#endif
+
+#endif /* ! C99 */
+
+#endif /* ! FLEXINT_H */
+
+#ifdef __cplusplus
+
+/* The "const" storage-class-modifier is valid. */
+#define YY_USE_CONST
+
+#else /* ! __cplusplus */
+
+/* C99 requires __STDC__ to be defined as 1. */
+#if defined (__STDC__)
+
+#define YY_USE_CONST
+
+#endif /* defined (__STDC__) */
+#endif /* ! __cplusplus */
+
+#ifdef YY_USE_CONST
+#define yyconst const
+#else
+#define yyconst
+#endif
+
+/* Returned upon end-of-file. */
+#define YY_NULL 0
+
+/* Promotes a possibly negative, possibly signed char to an unsigned
+ * integer for use as an array index. If the signed char is negative,
+ * we want to instead treat it as an 8-bit unsigned char, hence the
+ * double cast.
+ */
+#define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
+
+/* Enter a start condition. This macro really ought to take a parameter,
+ * but we do it the disgusting crufty way forced on us by the ()-less
+ * definition of BEGIN.
+ */
+#define BEGIN (yy_start) = 1 + 2 *
+
+/* Translate the current start state into a value that can be later handed
+ * to BEGIN to return to the state. The YYSTATE alias is for lex
+ * compatibility.
+ */
+#define YY_START (((yy_start) - 1) / 2)
+#define YYSTATE YY_START
+
+/* Action number for EOF rule of a given start state. */
+#define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
+
+/* Special action meaning "start processing a new file". */
+#define YY_NEW_FILE yyrestart(yyin )
+
+#define YY_END_OF_BUFFER_CHAR 0
+
+/* Size of default input buffer. */
+#ifndef YY_BUF_SIZE
+#ifdef __ia64__
+/* On IA-64, the buffer size is 16k, not 8k.
+ * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case.
+ * Ditto for the __ia64__ case accordingly.
+ */
+#define YY_BUF_SIZE 32768
+#else
+#define YY_BUF_SIZE 16384
+#endif /* __ia64__ */
+#endif
+
+/* The state buf must be large enough to hold one state per character in the main buffer.
+ */
+#define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
+
+#ifndef YY_TYPEDEF_YY_BUFFER_STATE
+#define YY_TYPEDEF_YY_BUFFER_STATE
+typedef struct yy_buffer_state *YY_BUFFER_STATE;
+#endif
+
+extern int yyleng;
+
+extern FILE *yyin, *yyout;
+
+#define EOB_ACT_CONTINUE_SCAN 0
+#define EOB_ACT_END_OF_FILE 1
+#define EOB_ACT_LAST_MATCH 2
+
+ /* Note: We specifically omit the test for yy_rule_can_match_eol because it requires
+ * access to the local variable yy_act. Since yyless() is a macro, it would break
+ * existing scanners that call yyless() from OUTSIDE yylex.
+ * One obvious solution it to make yy_act a global. I tried that, and saw
+ * a 5% performance hit in a non-yylineno scanner, because yy_act is
+ * normally declared as a register variable-- so it is not worth it.
+ */
+ #define YY_LESS_LINENO(n) \
+ do { \
+ int yyl;\
+ for ( yyl = n; yyl < yyleng; ++yyl )\
+ if ( yytext[yyl] == '\n' )\
+ --yylineno;\
+ }while(0)
+
+/* Return all but the first "n" matched characters back to the input stream. */
+#define yyless(n) \
+ do \
+ { \
+ /* Undo effects of setting up yytext. */ \
+ int yyless_macro_arg = (n); \
+ YY_LESS_LINENO(yyless_macro_arg);\
+ *yy_cp = (yy_hold_char); \
+ YY_RESTORE_YY_MORE_OFFSET \
+ (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
+ YY_DO_BEFORE_ACTION; /* set up yytext again */ \
+ } \
+ while ( 0 )
+
+#define unput(c) yyunput( c, (yytext_ptr) )
+
+#ifndef YY_TYPEDEF_YY_SIZE_T
+#define YY_TYPEDEF_YY_SIZE_T
+typedef size_t yy_size_t;
+#endif
+
+#ifndef YY_STRUCT_YY_BUFFER_STATE
+#define YY_STRUCT_YY_BUFFER_STATE
+struct yy_buffer_state
+ {
+ FILE *yy_input_file;
+
+ char *yy_ch_buf; /* input buffer */
+ char *yy_buf_pos; /* current position in input buffer */
+
+ /* Size of input buffer in bytes, not including room for EOB
+ * characters.
+ */
+ yy_size_t yy_buf_size;
+
+ /* Number of characters read into yy_ch_buf, not including EOB
+ * characters.
+ */
+ int yy_n_chars;
+
+ /* Whether we "own" the buffer - i.e., we know we created it,
+ * and can realloc() it to grow it, and should free() it to
+ * delete it.
+ */
+ int yy_is_our_buffer;
+
+ /* Whether this is an "interactive" input source; if so, and
+ * if we're using stdio for input, then we want to use getc()
+ * instead of fread(), to make sure we stop fetching input after
+ * each newline.
+ */
+ int yy_is_interactive;
+
+ /* Whether we're considered to be at the beginning of a line.
+ * If so, '^' rules will be active on the next match, otherwise
+ * not.
+ */
+ int yy_at_bol;
+
+ int yy_bs_lineno; /**< The line count. */
+ int yy_bs_column; /**< The column count. */
+
+ /* Whether to try to fill the input buffer when we reach the
+ * end of it.
+ */
+ int yy_fill_buffer;
+
+ int yy_buffer_status;
+
+#define YY_BUFFER_NEW 0
+#define YY_BUFFER_NORMAL 1
+ /* When an EOF's been seen but there's still some text to process
+ * then we mark the buffer as YY_EOF_PENDING, to indicate that we
+ * shouldn't try reading from the input source any more. We might
+ * still have a bunch of tokens to match, though, because of
+ * possible backing-up.
+ *
+ * When we actually see the EOF, we change the status to "new"
+ * (via yyrestart()), so that the user can continue scanning by
+ * just pointing yyin at a new input file.
+ */
+#define YY_BUFFER_EOF_PENDING 2
+
+ };
+#endif /* !YY_STRUCT_YY_BUFFER_STATE */
+
+/* Stack of input buffers. */
+static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
+static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
+static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
+
+/* We provide macros for accessing buffer states in case in the
+ * future we want to put the buffer states in a more general
+ * "scanner state".
+ *
+ * Returns the top of the stack, or NULL.
+ */
+#define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
+ ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
+ : NULL)
+
+/* Same as previous macro, but useful when we know that the buffer stack is not
+ * NULL or when we need an lvalue. For internal use only.
+ */
+#define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
+
+/* yy_hold_char holds the character lost when yytext is formed. */
+static char yy_hold_char;
+static int yy_n_chars; /* number of characters read into yy_ch_buf */
+int yyleng;
+
+/* Points to current character in buffer. */
+static char *yy_c_buf_p = (char *) 0;
+static int yy_init = 0; /* whether we need to initialize */
+static int yy_start = 0; /* start state number */
+
+/* Flag which is used to allow yywrap()'s to do buffer switches
+ * instead of setting up a fresh yyin. A bit of a hack ...
+ */
+static int yy_did_buffer_switch_on_eof;
+
+void yyrestart (FILE *input_file );
+void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer );
+YY_BUFFER_STATE yy_create_buffer (FILE *file,int size );
+void yy_delete_buffer (YY_BUFFER_STATE b );
+void yy_flush_buffer (YY_BUFFER_STATE b );
+void yypush_buffer_state (YY_BUFFER_STATE new_buffer );
+void yypop_buffer_state (void );
+
+static void yyensure_buffer_stack (void );
+static void yy_load_buffer_state (void );
+static void yy_init_buffer (YY_BUFFER_STATE b,FILE *file );
+
+#define YY_FLUSH_BUFFER yy_flush_buffer(YY_CURRENT_BUFFER )
+
+YY_BUFFER_STATE yy_scan_buffer (char *base,yy_size_t size );
+YY_BUFFER_STATE yy_scan_string (yyconst char *yy_str );
+YY_BUFFER_STATE yy_scan_bytes (yyconst char *bytes,int len );
+
+void *yyalloc (yy_size_t );
+void *yyrealloc (void *,yy_size_t );
+void yyfree (void * );
+
+#define yy_new_buffer yy_create_buffer
+
+#define yy_set_interactive(is_interactive) \
+ { \
+ if ( ! YY_CURRENT_BUFFER ){ \
+ yyensure_buffer_stack (); \
+ YY_CURRENT_BUFFER_LVALUE = \
+ yy_create_buffer(yyin,YY_BUF_SIZE ); \
+ } \
+ YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
+ }
+
+#define yy_set_bol(at_bol) \
+ { \
+ if ( ! YY_CURRENT_BUFFER ){\
+ yyensure_buffer_stack (); \
+ YY_CURRENT_BUFFER_LVALUE = \
+ yy_create_buffer(yyin,YY_BUF_SIZE ); \
+ } \
+ YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
+ }
+
+#define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
+
+/* Begin user sect3 */
+
+typedef unsigned char YY_CHAR;
+
+FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
+
+typedef int yy_state_type;
+
+extern int yylineno;
+
+int yylineno = 1;
+
+extern char *yytext;
+#define yytext_ptr yytext
+
+static yy_state_type yy_get_previous_state (void );
+static yy_state_type yy_try_NUL_trans (yy_state_type current_state );
+static int yy_get_next_buffer (void );
+static void yy_fatal_error (yyconst char msg[] );
+
+/* Done after the current pattern has been matched and before the
+ * corresponding action - sets up yytext.
+ */
+#define YY_DO_BEFORE_ACTION \
+ (yytext_ptr) = yy_bp; \
+ yyleng = (size_t) (yy_cp - yy_bp); \
+ (yy_hold_char) = *yy_cp; \
+ *yy_cp = '\0'; \
+ (yy_c_buf_p) = yy_cp;
+
+#define YY_NUM_RULES 96
+#define YY_END_OF_BUFFER 97
+/* This struct is not used in this scanner,
+ but its presence is necessary. */
+struct yy_trans_info
+ {
+ flex_int32_t yy_verify;
+ flex_int32_t yy_nxt;
+ };
+static yyconst flex_int16_t yy_accept[411] =
+ { 0,
+ 0, 0, 2, 2, 97, 96, 94, 95, 93, 80,
+ 96, 91, 82, 85, 96, 68, 69, 81, 77, 73,
+ 78, 76, 70, 59, 59, 72, 89, 83, 90, 84,
+ 88, 60, 74, 71, 75, 86, 60, 60, 60, 60,
+ 60, 60, 60, 60, 60, 60, 60, 60, 60, 44,
+ 87, 45, 79, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 3, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+
+ 2, 47, 0, 61, 0, 53, 51, 52, 0, 62,
+ 0, 42, 38, 40, 39, 41, 58, 1, 0, 43,
+ 57, 59, 0, 63, 48, 46, 49, 64, 60, 54,
+ 60, 60, 60, 60, 25, 60, 60, 60, 60, 60,
+ 23, 28, 60, 60, 60, 60, 60, 60, 60, 60,
+ 60, 60, 60, 60, 55, 50, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 4, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 36, 61, 62, 0, 92, 57, 56, 35, 66,
+ 65, 60, 60, 60, 60, 60, 60, 60, 60, 60,
+ 60, 14, 60, 60, 37, 16, 60, 60, 60, 60,
+ 60, 60, 31, 60, 17, 60, 60, 60, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 67, 60, 9, 60, 60,
+ 60, 60, 60, 60, 27, 60, 60, 60, 60, 5,
+
+ 60, 60, 24, 60, 6, 60, 21, 60, 33, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 8, 10, 11, 60, 60, 60, 60,
+ 7, 60, 60, 60, 60, 60, 30, 60, 26, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 60, 60, 60, 22, 60,
+ 60, 60, 20, 29, 32, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 60, 60, 12, 13, 60,
+ 60, 2, 2, 2, 2, 2, 2, 18, 34, 19,
+
+ 60, 2, 2, 2, 2, 60, 2, 15, 2, 0
+ } ;
+
+static yyconst flex_int16_t yy_base[431] =
+ { 0,
+ 0, 118, 236, 354, 5760, 5761, 5761, 5761, 5761, 5698,
+ 416, 5761, 5697, 92, 57, 5761, 5761, 5696, 86, 5761,
+ 87, 85, 205, 435, 205, 5761, 5761, 83, 5695, 84,
+ 5761, 0, 5761, 5761, 5761, 5694, 5640, 152, 264, 5645,
+ 272, 264, 5651, 147, 5650, 5631, 264, 270, 266, 5761,
+ 421, 5761, 5761, 0, 0, 0, 0, 5688, 459, 0,
+ 5687, 456, 456, 0, 0, 449, 454, 0, 455, 470,
+ 467, 483, 508, 0, 0, 312, 5686, 318, 0, 556,
+ 0, 0, 0, 5685, 5631, 402, 401, 5636, 469, 274,
+ 5642, 429, 5641, 5622, 463, 471, 399, 0, 445, 0,
+
+ 0, 5679, 507, 5761, 508, 5761, 5761, 5761, 175, 5761,
+ 504, 5761, 5761, 5761, 5761, 5761, 631, 5761, 5729, 5761,
+ 641, 653, 663, 5761, 5761, 5677, 5761, 488, 0, 5761,
+ 5636, 437, 5626, 473, 0, 5620, 5626, 5623, 5618, 5621,
+ 0, 5615, 5613, 5609, 5619, 5610, 5620, 465, 390, 5612,
+ 5609, 5617, 5616, 5604, 5761, 5761, 0, 5658, 555, 0,
+ 556, 0, 0, 0, 682, 0, 683, 5761, 0, 0,
+ 0, 0, 686, 290, 0, 696, 730, 740, 0, 0,
+ 5657, 0, 511, 795, 0, 5616, 472, 5606, 493, 0,
+ 5600, 5606, 5603, 5598, 5601, 0, 5595, 5593, 5589, 5599,
+
+ 5590, 5600, 471, 497, 5592, 5589, 5597, 5596, 5584, 0,
+ 0, 5761, 510, 719, 5689, 5761, 764, 870, 5761, 5761,
+ 5637, 5600, 5595, 5596, 477, 5577, 5596, 5591, 5590, 5575,
+ 5592, 0, 5589, 5571, 0, 0, 5578, 5568, 5568, 5568,
+ 5571, 5580, 0, 5579, 0, 4788, 4778, 4781, 0, 735,
+ 731, 573, 0, 893, 908, 0, 0, 4823, 963, 519,
+ 520, 738, 705, 4786, 626, 658, 657, 4759, 4758, 553,
+ 739, 4757, 4756, 659, 707, 835, 837, 660, 702, 4755,
+ 728, 4754, 701, 858, 729, 5761, 4743, 0, 3179, 3165,
+ 3175, 3176, 3161, 3135, 0, 3149, 3141, 3132, 3150, 0,
+
+ 3132, 3146, 0, 2137, 0, 2077, 0, 2085, 0, 0,
+ 882, 2088, 883, 884, 885, 168, 836, 886, 2087, 731,
+ 887, 888, 2086, 2059, 889, 669, 2058, 737, 2057, 989,
+ 2056, 790, 2055, 0, 0, 0, 2041, 2047, 1010, 1016,
+ 0, 1008, 1006, 1000, 999, 1004, 0, 1004, 0, 962,
+ 960, 959, 891, 894, 990, 895, 958, 991, 992, 993,
+ 994, 997, 957, 896, 927, 814, 828, 812, 0, 768,
+ 777, 787, 0, 0, 0, 995, 924, 998, 761, 833,
+ 996, 760, 734, 733, 703, 625, 586, 0, 0, 539,
+ 493, 925, 999, 481, 450, 1005, 926, 0, 0, 0,
+
+ 394, 321, 285, 153, 1008, 80, 897, 0, 34, 5761,
+ 1119, 1374, 1629, 1884, 2092, 2214, 2469, 2724, 2979, 3187,
+ 3309, 3564, 3819, 4074, 4329, 4584, 4792, 4914, 5169, 5424
+ } ;
+
+static yyconst flex_int16_t yy_def[431] =
+ { 0,
+ 411, 411, 412, 412, 410, 410, 410, 410, 410, 410,
+ 413, 410, 410, 410, 414, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 415, 410, 410, 410, 410, 415, 415, 415, 415,
+ 415, 415, 415, 415, 415, 415, 415, 415, 415, 410,
+ 410, 410, 410, 416, 416, 416, 416, 416, 417, 416,
+ 416, 416, 418, 416, 416, 410, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 80, 80, 80, 80, 80, 80,
+ 80, 80, 80, 80, 80, 80, 80, 416, 416, 416,
+
+ 416, 410, 413, 410, 413, 410, 410, 410, 414, 410,
+ 414, 410, 410, 410, 410, 410, 410, 410, 419, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 420, 410,
+ 420, 420, 420, 420, 420, 420, 420, 420, 420, 420,
+ 420, 420, 420, 420, 420, 420, 420, 420, 420, 420,
+ 420, 420, 420, 420, 410, 410, 416, 416, 421, 416,
+ 421, 416, 416, 416, 422, 416, 422, 410, 416, 416,
+ 416, 416, 416, 423, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 416,
+ 416, 410, 424, 425, 426, 410, 410, 410, 410, 410,
+ 410, 427, 427, 427, 427, 427, 427, 427, 427, 427,
+ 427, 427, 427, 427, 427, 427, 427, 427, 427, 427,
+ 427, 427, 427, 427, 427, 427, 427, 427, 416, 428,
+ 429, 430, 416, 416, 416, 416, 416, 416, 416, 259,
+ 259, 259, 259, 259, 259, 259, 259, 259, 259, 259,
+ 259, 259, 259, 259, 259, 259, 259, 259, 259, 259,
+ 259, 259, 259, 259, 259, 410, 427, 427, 427, 427,
+ 427, 427, 427, 427, 427, 427, 427, 427, 427, 427,
+
+ 427, 427, 427, 427, 427, 427, 427, 427, 427, 416,
+ 259, 259, 259, 259, 259, 259, 259, 259, 259, 259,
+ 259, 259, 259, 259, 259, 259, 259, 259, 259, 259,
+ 259, 259, 259, 427, 427, 427, 427, 427, 427, 427,
+ 427, 427, 427, 427, 427, 427, 427, 427, 427, 259,
+ 259, 259, 259, 259, 259, 259, 259, 259, 259, 259,
+ 259, 259, 259, 259, 259, 427, 427, 427, 427, 427,
+ 427, 427, 427, 427, 427, 259, 259, 259, 259, 259,
+ 259, 259, 259, 259, 259, 427, 427, 427, 427, 427,
+ 427, 259, 259, 259, 259, 259, 259, 427, 427, 427,
+
+ 427, 259, 259, 259, 259, 427, 259, 427, 259, 0,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410
+ } ;
+
+static yyconst flex_int16_t yy_nxt[6018] =
+ { 0,
+ 410, 410, 410, 410, 410, 410, 410, 410, 7, 8,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 9, 10, 11, 410, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 25,
+ 25, 25, 25, 25, 25, 25, 25, 26, 27, 28,
+ 29, 30, 31, 410, 32, 32, 32, 32, 32, 32,
+ 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
+ 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
+ 33, 34, 35, 36, 32, 110, 32, 37, 38, 39,
+
+ 40, 41, 32, 32, 42, 32, 32, 43, 32, 44,
+ 32, 32, 32, 45, 46, 47, 32, 48, 49, 32,
+ 32, 32, 50, 51, 52, 53, 7, 8, 113, 107,
+ 184, 115, 117, 117, 117, 117, 117, 117, 117, 117,
+ 117, 117, 124, 125, 127, 128, 114, 116, 111, 9,
+ 10, 11, 108, 12, 13, 14, 15, 16, 17, 18,
+ 19, 20, 21, 22, 23, 24, 25, 25, 25, 25,
+ 25, 25, 25, 25, 25, 26, 27, 28, 29, 30,
+ 31, 408, 32, 32, 32, 32, 32, 32, 32, 32,
+ 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
+
+ 32, 32, 32, 32, 32, 32, 32, 32, 33, 34,
+ 35, 36, 32, 110, 32, 37, 38, 39, 40, 41,
+ 32, 32, 42, 32, 32, 43, 32, 44, 32, 32,
+ 32, 45, 46, 47, 32, 48, 49, 32, 32, 32,
+ 50, 51, 52, 53, 55, 56, 118, 144, 132, 184,
+ 121, 119, 122, 122, 122, 122, 122, 122, 122, 122,
+ 122, 122, 133, 145, 184, 120, 111, 57, 58, 59,
+ 354, 60, 61, 62, 63, 64, 65, 66, 67, 68,
+ 69, 70, 71, 72, 73, 73, 73, 73, 73, 73,
+ 73, 73, 73, 74, 75, 76, 77, 78, 79, 253,
+
+ 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,
+ 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,
+ 80, 80, 80, 80, 80, 80, 81, 82, 83, 84,
+ 80, 215, 80, 85, 86, 87, 88, 89, 80, 80,
+ 90, 80, 80, 91, 80, 92, 80, 80, 80, 93,
+ 94, 95, 80, 96, 97, 80, 80, 80, 98, 99,
+ 100, 101, 55, 56, 134, 141, 151, 148, 137, 153,
+ 154, 179, 180, 142, 135, 196, 138, 149, 182, 183,
+ 152, 184, 139, 197, 150, 57, 58, 59, 140, 60,
+ 61, 62, 63, 64, 65, 66, 67, 68, 69, 70,
+
+ 71, 72, 73, 73, 73, 73, 73, 73, 73, 73,
+ 73, 74, 75, 76, 77, 78, 79, 184, 80, 80,
+ 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,
+ 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,
+ 80, 80, 80, 80, 81, 82, 83, 84, 80, 104,
+ 80, 85, 86, 87, 88, 89, 80, 80, 90, 80,
+ 80, 91, 80, 92, 80, 80, 80, 93, 94, 95,
+ 80, 96, 97, 80, 80, 80, 98, 99, 100, 101,
+ 121, 155, 122, 122, 122, 122, 122, 122, 122, 122,
+ 122, 122, 160, 163, 166, 168, 169, 109, 187, 171,
+
+ 103, 189, 208, 209, 406, 210, 242, 105, 118, 112,
+ 243, 190, 188, 174, 170, 172, 164, 173, 173, 173,
+ 173, 173, 173, 173, 173, 173, 173, 175, 176, 199,
+ 177, 177, 177, 177, 177, 177, 177, 177, 177, 177,
+ 104, 213, 214, 104, 156, 200, 184, 167, 220, 221,
+ 161, 223, 224, 176, 123, 177, 177, 177, 177, 177,
+ 177, 177, 177, 177, 177, 192, 203, 206, 211, 240,
+ 226, 257, 258, 193, 227, 277, 204, 184, 241, 194,
+ 228, 207, 253, 205, 278, 195, 260, 261, 160, 250,
+ 263, 290, 291, 401, 264, 111, 103, 103, 105, 105,
+
+ 265, 105, 178, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 279, 215, 184, 184, 280, 313, 312,
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 184, 184, 161, 161, 400, 184,
+ 184, 322, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 184, 184, 184, 184, 117, 117,
+ 117, 117, 117, 117, 117, 117, 117, 117, 217, 217,
+ 217, 217, 217, 217, 217, 217, 217, 217, 121, 399,
+
+ 122, 122, 122, 122, 122, 122, 122, 122, 122, 122,
+ 218, 218, 218, 218, 218, 218, 218, 218, 218, 218,
+ 166, 251, 184, 109, 109, 398, 318, 218, 218, 218,
+ 218, 218, 218, 173, 173, 173, 173, 173, 173, 173,
+ 173, 173, 173, 254, 254, 254, 254, 254, 254, 254,
+ 254, 254, 254, 184, 184, 184, 184, 110, 319, 218,
+ 218, 218, 218, 218, 218, 184, 324, 362, 160, 166,
+ 328, 320, 109, 167, 167, 176, 103, 177, 177, 177,
+ 177, 177, 177, 177, 177, 177, 177, 255, 255, 255,
+ 255, 255, 255, 255, 255, 255, 255, 184, 184, 184,
+
+ 331, 184, 329, 184, 255, 255, 255, 255, 255, 255,
+ 111, 217, 217, 217, 217, 217, 217, 217, 217, 217,
+ 217, 316, 167, 325, 184, 184, 161, 184, 330, 184,
+ 184, 357, 333, 184, 184, 184, 255, 255, 255, 255,
+ 255, 255, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 314, 315, 323, 363, 184, 184, 397, 184,
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 184, 391, 184, 390, 389, 184,
+ 365, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 184, 184, 184, 218, 218, 218,
+ 218, 218, 218, 218, 218, 218, 218, 388, 387, 184,
+ 386, 184, 184, 184, 218, 218, 218, 218, 218, 218,
+ 254, 254, 254, 254, 254, 254, 254, 254, 254, 254,
+ 326, 327, 355, 395, 184, 255, 255, 255, 255, 255,
+ 255, 255, 255, 255, 255, 332, 218, 218, 218, 218,
+ 218, 218, 255, 255, 255, 255, 255, 255, 184, 184,
+ 184, 184, 184, 184, 184, 184, 351, 184, 350, 353,
+ 184, 184, 184, 184, 358, 379, 377, 385, 409, 352,
+
+ 376, 356, 361, 359, 255, 255, 255, 255, 255, 255,
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 393, 402, 405, 184, 184, 184,
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 311,
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 184, 184, 381, 378, 380, 364,
+
+ 384, 184, 382, 383, 184, 375, 396, 374, 373, 372,
+ 371, 392, 403, 394, 404, 370, 369, 368, 407, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
+ 6, 6, 6, 6, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,
+ 54, 54, 54, 54, 54, 54, 54, 54, 54, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 129,
+ 129, 129, 129, 129, 129, 129, 129, 129, 129, 367,
+ 366, 184, 184, 184, 184, 184, 129, 129, 129, 129,
+ 129, 129, 129, 129, 129, 129, 129, 129, 129, 129,
+ 129, 129, 129, 129, 129, 129, 129, 129, 129, 129,
+ 129, 129, 360, 184, 184, 349, 129, 348, 129, 129,
+ 129, 129, 129, 129, 129, 129, 129, 129, 129, 129,
+
+ 129, 129, 129, 129, 129, 129, 129, 129, 129, 129,
+ 129, 129, 129, 129, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 347, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 129, 129, 129, 129, 129, 129,
+ 129, 129, 129, 129, 346, 345, 344, 343, 342, 341,
+ 340, 129, 129, 129, 129, 129, 129, 129, 129, 129,
+ 129, 129, 129, 129, 129, 129, 129, 129, 129, 129,
+ 129, 129, 129, 129, 129, 129, 129, 339, 338, 337,
+ 336, 129, 335, 129, 129, 129, 129, 129, 129, 129,
+ 129, 129, 129, 129, 129, 129, 129, 129, 129, 129,
+
+ 129, 129, 129, 129, 129, 129, 129, 129, 129, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 103,
+ 103, 103, 103, 103, 103, 103, 103, 103, 103, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 109, 109, 109, 109, 109, 109,
+ 109, 109, 109, 109, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 215,
+ 215, 215, 215, 215, 215, 215, 215, 215, 215, 129,
+ 129, 129, 129, 129, 129, 129, 129, 129, 129, 334,
+ 184, 184, 184, 184, 184, 321, 129, 129, 129, 129,
+ 129, 129, 129, 129, 129, 129, 129, 129, 129, 129,
+ 129, 129, 129, 129, 129, 129, 129, 129, 129, 129,
+ 129, 129, 317, 310, 309, 308, 129, 307, 129, 129,
+ 129, 129, 129, 129, 129, 129, 129, 129, 129, 129,
+
+ 129, 129, 129, 129, 129, 129, 129, 129, 129, 129,
+ 129, 129, 129, 129, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 159,
+ 159, 159, 159, 159, 159, 159, 159, 159, 159, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 165, 165, 165, 165, 165, 165,
+ 165, 165, 165, 165, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 252,
+ 252, 252, 252, 252, 252, 252, 252, 252, 252, 306,
+ 305, 304, 303, 302, 301, 300, 299, 298, 297, 296,
+ 295, 294, 293, 292, 289, 288, 287, 286, 216, 285,
+
+ 284, 283, 282, 281, 276, 275, 274, 273, 272, 271,
+ 270, 269, 268, 267, 266, 262, 259, 256, 249, 248,
+ 247, 246, 245, 244, 239, 238, 237, 236, 235, 234,
+ 233, 232, 231, 230, 229, 225, 222, 219, 216, 212,
+ 202, 201, 198, 191, 186, 185, 181, 162, 158, 147,
+ 146, 143, 136, 131, 130, 126, 112, 106, 102, 410,
+ 5, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410
+ } ;
+
+static yyconst flex_int16_t yy_chk[6018] =
+ { 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 1, 1,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 1, 1, 1, 0, 1, 1, 1, 1, 1,
+ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+ 1, 1, 1, 0, 1, 1, 1, 1, 1, 1,
+ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+ 1, 1, 1, 1, 1, 15, 1, 1, 1, 1,
+
+ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+ 1, 1, 1, 1, 1, 1, 2, 2, 19, 14,
+ 409, 21, 22, 22, 22, 22, 22, 22, 22, 22,
+ 22, 22, 28, 28, 30, 30, 19, 21, 15, 2,
+ 2, 2, 14, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 406, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 109, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 3, 3, 23, 44, 38, 404,
+ 25, 23, 25, 25, 25, 25, 25, 25, 25, 25,
+ 25, 25, 38, 44, 316, 23, 109, 3, 3, 3,
+ 316, 3, 3, 3, 3, 3, 3, 3, 3, 3,
+ 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
+ 3, 3, 3, 3, 3, 3, 3, 3, 3, 174,
+
+ 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
+ 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
+ 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
+ 3, 174, 3, 3, 3, 3, 3, 3, 3, 3,
+ 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
+ 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
+ 3, 3, 4, 4, 39, 42, 48, 47, 41, 49,
+ 49, 76, 76, 42, 39, 90, 41, 47, 78, 78,
+ 48, 403, 41, 90, 47, 4, 4, 4, 41, 4,
+ 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
+
+ 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
+ 4, 4, 4, 4, 4, 4, 4, 402, 4, 4,
+ 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
+ 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
+ 4, 4, 4, 4, 4, 4, 4, 4, 4, 11,
+ 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
+ 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
+ 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
+ 24, 51, 24, 24, 24, 24, 24, 24, 24, 24,
+ 24, 24, 59, 62, 63, 66, 67, 63, 86, 69,
+
+ 59, 87, 97, 97, 401, 99, 149, 11, 71, 66,
+ 149, 87, 86, 71, 67, 69, 62, 70, 70, 70,
+ 70, 70, 70, 70, 70, 70, 70, 71, 72, 92,
+ 72, 72, 72, 72, 72, 72, 72, 72, 72, 72,
+ 103, 105, 111, 213, 51, 92, 395, 63, 128, 128,
+ 59, 132, 132, 73, 24, 73, 73, 73, 73, 73,
+ 73, 73, 73, 73, 73, 89, 95, 96, 99, 148,
+ 134, 183, 183, 89, 134, 203, 95, 394, 148, 89,
+ 134, 96, 252, 95, 203, 89, 187, 187, 159, 161,
+ 189, 225, 225, 391, 189, 111, 159, 161, 103, 105,
+
+ 189, 213, 72, 80, 80, 80, 80, 80, 80, 80,
+ 80, 80, 80, 204, 252, 260, 261, 204, 261, 260,
+ 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,
+ 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,
+ 80, 80, 80, 80, 80, 80, 159, 161, 390, 270,
+ 80, 270, 80, 80, 80, 80, 80, 80, 80, 80,
+ 80, 80, 80, 80, 80, 80, 80, 80, 80, 80,
+ 80, 80, 80, 80, 80, 80, 80, 80, 117, 117,
+ 117, 117, 117, 117, 117, 117, 117, 117, 121, 121,
+ 121, 121, 121, 121, 121, 121, 121, 121, 122, 387,
+
+ 122, 122, 122, 122, 122, 122, 122, 122, 122, 122,
+ 123, 123, 123, 123, 123, 123, 123, 123, 123, 123,
+ 165, 167, 265, 165, 167, 386, 265, 123, 123, 123,
+ 123, 123, 123, 173, 173, 173, 173, 173, 173, 173,
+ 173, 173, 173, 176, 176, 176, 176, 176, 176, 176,
+ 176, 176, 176, 267, 266, 274, 278, 214, 266, 123,
+ 123, 123, 123, 123, 123, 326, 274, 326, 250, 251,
+ 278, 267, 251, 165, 167, 177, 250, 177, 177, 177,
+ 177, 177, 177, 177, 177, 177, 177, 178, 178, 178,
+ 178, 178, 178, 178, 178, 178, 178, 283, 279, 385,
+
+ 283, 263, 279, 275, 178, 178, 178, 178, 178, 178,
+ 214, 217, 217, 217, 217, 217, 217, 217, 217, 217,
+ 217, 263, 251, 275, 281, 285, 250, 320, 281, 384,
+ 383, 320, 285, 328, 262, 271, 178, 178, 178, 178,
+ 178, 178, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 262, 262, 271, 328, 382, 379, 382, 184,
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 184, 372, 332, 371, 370, 184,
+ 332, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+
+ 184, 184, 184, 184, 184, 184, 184, 184, 184, 184,
+ 184, 184, 184, 184, 184, 184, 184, 218, 218, 218,
+ 218, 218, 218, 218, 218, 218, 218, 368, 367, 380,
+ 366, 276, 317, 277, 218, 218, 218, 218, 218, 218,
+ 254, 254, 254, 254, 254, 254, 254, 254, 254, 254,
+ 276, 277, 317, 380, 284, 255, 255, 255, 255, 255,
+ 255, 255, 255, 255, 255, 284, 218, 218, 218, 218,
+ 218, 218, 255, 255, 255, 255, 255, 255, 311, 313,
+ 314, 315, 318, 321, 322, 325, 313, 353, 311, 315,
+ 354, 356, 364, 407, 321, 356, 354, 364, 407, 314,
+
+ 353, 318, 325, 322, 255, 255, 255, 255, 255, 255,
+ 259, 259, 259, 259, 259, 259, 259, 259, 259, 259,
+ 377, 392, 397, 365, 377, 392, 397, 259, 259, 259,
+ 259, 259, 259, 259, 259, 259, 259, 259, 259, 259,
+ 259, 259, 259, 259, 259, 259, 259, 259, 259, 259,
+ 259, 259, 259, 363, 357, 352, 351, 259, 350, 259,
+ 259, 259, 259, 259, 259, 259, 259, 259, 259, 259,
+ 259, 259, 259, 259, 259, 259, 259, 259, 259, 259,
+ 259, 259, 259, 259, 259, 330, 355, 358, 359, 360,
+ 361, 376, 381, 362, 378, 393, 359, 355, 358, 330,
+
+ 362, 396, 360, 361, 405, 348, 381, 346, 345, 344,
+ 343, 376, 393, 378, 396, 342, 340, 339, 405, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 411, 411, 411, 411, 411, 411,
+ 411, 411, 411, 411, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 412,
+ 412, 412, 412, 412, 412, 412, 412, 412, 412, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 413, 413, 413, 413, 413, 413,
+ 413, 413, 413, 413, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 414,
+ 414, 414, 414, 414, 414, 414, 414, 414, 414, 415,
+ 415, 415, 415, 415, 415, 415, 415, 415, 415, 338,
+ 337, 333, 331, 329, 327, 324, 415, 415, 415, 415,
+ 415, 415, 415, 415, 415, 415, 415, 415, 415, 415,
+ 415, 415, 415, 415, 415, 415, 415, 415, 415, 415,
+ 415, 415, 323, 319, 312, 308, 415, 306, 415, 415,
+ 415, 415, 415, 415, 415, 415, 415, 415, 415, 415,
+
+ 415, 415, 415, 415, 415, 415, 415, 415, 415, 415,
+ 415, 415, 415, 415, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 304, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 416,
+ 416, 416, 416, 416, 416, 416, 416, 416, 416, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 417, 417, 417, 417, 417, 417,
+ 417, 417, 417, 417, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 418,
+ 418, 418, 418, 418, 418, 418, 418, 418, 418, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 419, 419, 419, 419, 419, 419,
+ 419, 419, 419, 419, 420, 420, 420, 420, 420, 420,
+ 420, 420, 420, 420, 302, 301, 299, 298, 297, 296,
+ 294, 420, 420, 420, 420, 420, 420, 420, 420, 420,
+ 420, 420, 420, 420, 420, 420, 420, 420, 420, 420,
+ 420, 420, 420, 420, 420, 420, 420, 293, 292, 291,
+ 290, 420, 289, 420, 420, 420, 420, 420, 420, 420,
+ 420, 420, 420, 420, 420, 420, 420, 420, 420, 420,
+
+ 420, 420, 420, 420, 420, 420, 420, 420, 420, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 421, 421, 421, 421, 421, 421,
+ 421, 421, 421, 421, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 422,
+ 422, 422, 422, 422, 422, 422, 422, 422, 422, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 423, 423, 423, 423, 423, 423,
+ 423, 423, 423, 423, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 424,
+ 424, 424, 424, 424, 424, 424, 424, 424, 424, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 425, 425, 425, 425, 425, 425,
+ 425, 425, 425, 425, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 426,
+ 426, 426, 426, 426, 426, 426, 426, 426, 426, 427,
+ 427, 427, 427, 427, 427, 427, 427, 427, 427, 287,
+ 282, 280, 273, 272, 269, 268, 427, 427, 427, 427,
+ 427, 427, 427, 427, 427, 427, 427, 427, 427, 427,
+ 427, 427, 427, 427, 427, 427, 427, 427, 427, 427,
+ 427, 427, 264, 258, 248, 247, 427, 246, 427, 427,
+ 427, 427, 427, 427, 427, 427, 427, 427, 427, 427,
+
+ 427, 427, 427, 427, 427, 427, 427, 427, 427, 427,
+ 427, 427, 427, 427, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 428,
+ 428, 428, 428, 428, 428, 428, 428, 428, 428, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 429, 429, 429, 429, 429, 429,
+ 429, 429, 429, 429, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 430,
+ 430, 430, 430, 430, 430, 430, 430, 430, 430, 244,
+ 242, 241, 240, 239, 238, 237, 234, 233, 231, 230,
+ 229, 228, 227, 226, 224, 223, 222, 221, 215, 209,
+
+ 208, 207, 206, 205, 202, 201, 200, 199, 198, 197,
+ 195, 194, 193, 192, 191, 188, 186, 181, 158, 154,
+ 153, 152, 151, 150, 147, 146, 145, 144, 143, 142,
+ 140, 139, 138, 137, 136, 133, 131, 126, 119, 102,
+ 94, 93, 91, 88, 85, 84, 77, 61, 58, 46,
+ 45, 43, 40, 37, 36, 29, 18, 13, 10, 5,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+
+ 410, 410, 410, 410, 410, 410, 410, 410, 410, 410,
+ 410, 410, 410, 410, 410, 410, 410
+ } ;
+
+/* Table of booleans, true if rule could match eol. */
+static yyconst flex_int32_t yy_rule_can_match_eol[97] =
+ { 0,
+0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, };
+
+static yy_state_type yy_last_accepting_state;
+static char *yy_last_accepting_cpos;
+
+static yyconst yy_state_type yy_NUL_trans[410] =
+ { 0,
+ 6, 6, 54, 54, 0, 0, 0, 0, 0, 0,
+ 103, 0, 0, 0, 109, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 157, 157, 157, 157, 157, 159, 157,
+ 157, 157, 165, 157, 157, 0, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+
+ 157, 0, 103, 0, 103, 0, 0, 0, 109, 0,
+ 109, 0, 0, 0, 0, 0, 0, 0, 215, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 157, 157, 159, 157,
+ 159, 157, 157, 157, 165, 157, 165, 0, 157, 157,
+ 157, 157, 157, 252, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 0, 103, 109, 215, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 157, 159,
+ 165, 252, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 157,
+ 157, 157, 157, 157, 157, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 157, 157, 157, 157, 157,
+ 157, 157, 157, 157, 157, 0, 0, 0, 0, 0,
+ 0, 157, 157, 157, 157, 157, 157, 0, 0, 0,
+
+ 0, 157, 157, 157, 157, 0, 157, 0, 157
+ } ;
+
+extern int yy_flex_debug;
+int yy_flex_debug = 0;
+
+/* The intent behind this definition is that it'll catch
+ * any uses of REJECT which flex missed.
+ */
+#define REJECT reject_used_but_not_detected
+#define yymore() yymore_used_but_not_detected
+#define YY_MORE_ADJ 0
+#define YY_RESTORE_YY_MORE_OFFSET
+char *yytext;
+#line 1 "./parser/lex.l"
+#line 2 "./parser/lex.l"
+#include <stdio.h>
+#include "jstypes.h"
+#include "js-node.h"
+#include "y.tab.h"
+#define YY_NO_INPUT 1
+
+#line 1958 "parser/lex.yy.c"
+
+#define INITIAL 0
+#define COMMENT 1
+
+#ifndef YY_NO_UNISTD_H
+/* Special case for "unistd.h", since it is non-ANSI. We include it way
+ * down here because we want the user's section 1 to have been scanned first.
+ * The user has a chance to override it with an option.
+ */
+#include <unistd.h>
+#endif
+
+#ifndef YY_EXTRA_TYPE
+#define YY_EXTRA_TYPE void *
+#endif
+
+static int yy_init_globals (void );
+
+/* Accessor methods to globals.
+ These are made visible to non-reentrant scanners for convenience. */
+
+int yylex_destroy (void );
+
+int yyget_debug (void );
+
+void yyset_debug (int debug_flag );
+
+YY_EXTRA_TYPE yyget_extra (void );
+
+void yyset_extra (YY_EXTRA_TYPE user_defined );
+
+FILE *yyget_in (void );
+
+void yyset_in (FILE * in_str );
+
+FILE *yyget_out (void );
+
+void yyset_out (FILE * out_str );
+
+int yyget_leng (void );
+
+char *yyget_text (void );
+
+int yyget_lineno (void );
+
+void yyset_lineno (int line_number );
+
+YYSTYPE * yyget_lval (void );
+
+void yyset_lval (YYSTYPE * yylval_param );
+
+/* Macros after this point can all be overridden by user definitions in
+ * section 1.
+ */
+
+#ifndef YY_SKIP_YYWRAP
+#ifdef __cplusplus
+extern "C" int yywrap (void );
+#else
+extern int yywrap (void );
+#endif
+#endif
+
+#ifndef yytext_ptr
+static void yy_flex_strncpy (char *,yyconst char *,int );
+#endif
+
+#ifdef YY_NEED_STRLEN
+static int yy_flex_strlen (yyconst char * );
+#endif
+
+#ifndef YY_NO_INPUT
+
+#ifdef __cplusplus
+static int yyinput (void );
+#else
+static int input (void );
+#endif
+
+#endif
+
+/* Amount of stuff to slurp up with each read. */
+#ifndef YY_READ_BUF_SIZE
+#ifdef __ia64__
+/* On IA-64, the buffer size is 16k, not 8k */
+#define YY_READ_BUF_SIZE 16384
+#else
+#define YY_READ_BUF_SIZE 8192
+#endif /* __ia64__ */
+#endif
+
+/* Copy whatever the last rule matched to the standard output. */
+#ifndef ECHO
+/* This used to be an fputs(), but since the string might contain NUL's,
+ * we now use fwrite().
+ */
+#define ECHO do { if (fwrite( yytext, yyleng, 1, yyout )) {} } while (0)
+#endif
+
+/* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
+ * is returned in "result".
+ */
+#ifndef YY_INPUT
+#define YY_INPUT(buf,result,max_size) \
+ errno=0; \
+ while ( (result = read( fileno(yyin), (char *) buf, max_size )) < 0 ) \
+ { \
+ if( errno != EINTR) \
+ { \
+ YY_FATAL_ERROR( "input in flex scanner failed" ); \
+ break; \
+ } \
+ errno=0; \
+ clearerr(yyin); \
+ }\
+\
+
+#endif
+
+/* No semi-colon after return; correct usage is to write "yyterminate();" -
+ * we don't want an extra ';' after the "return" because that will cause
+ * some compilers to complain about unreachable statements.
+ */
+#ifndef yyterminate
+#define yyterminate() return YY_NULL
+#endif
+
+/* Number of entries by which start-condition stack grows. */
+#ifndef YY_START_STACK_INCR
+#define YY_START_STACK_INCR 25
+#endif
+
+/* Report a fatal error. */
+#ifndef YY_FATAL_ERROR
+#define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
+#endif
+
+/* end tables serialization structures and prototypes */
+
+/* Default declaration of generated scanner - a define so the user can
+ * easily add parameters.
+ */
+#ifndef YY_DECL
+#define YY_DECL_IS_OURS 1
+
+extern int yylex \
+ (YYSTYPE * yylval_param );
+
+#define YY_DECL int yylex \
+ (YYSTYPE * yylval_param )
+#endif /* !YY_DECL */
+
+/* Code executed at the beginning of each rule, after yytext and yyleng
+ * have been set up.
+ */
+#ifndef YY_USER_ACTION
+#define YY_USER_ACTION
+#endif
+
+/* Code executed at the end of each rule. */
+#ifndef YY_BREAK
+#define YY_BREAK break;
+#endif
+
+#define YY_RULE_SETUP \
+ YY_USER_ACTION
+
+/** The main scanner function which does all the work.
+ */
+YY_DECL
+{
+ register yy_state_type yy_current_state;
+ register char *yy_cp, *yy_bp;
+ register int yy_act;
+
+ YYSTYPE * yylval;
+
+#line 14 "./parser/lex.l"
+
+#line 2138 "parser/lex.yy.c"
+
+ yylval = yylval_param;
+
+ if ( !(yy_init) )
+ {
+ (yy_init) = 1;
+
+#ifdef YY_USER_INIT
+ YY_USER_INIT;
+#endif
+
+ if ( ! (yy_start) )
+ (yy_start) = 1; /* first start state */
+
+ if ( ! yyin )
+ yyin = stdin;
+
+ if ( ! yyout )
+ yyout = stdout;
+
+ if ( ! YY_CURRENT_BUFFER ) {
+ yyensure_buffer_stack ();
+ YY_CURRENT_BUFFER_LVALUE =
+ yy_create_buffer(yyin,YY_BUF_SIZE );
+ }
+
+ yy_load_buffer_state( );
+ }
+
+ while ( 1 ) /* loops until end-of-file is reached */
+ {
+ yy_cp = (yy_c_buf_p);
+
+ /* Support of yytext. */
+ *yy_cp = (yy_hold_char);
+
+ /* yy_bp points to the position in yy_ch_buf of the start of
+ * the current run.
+ */
+ yy_bp = yy_cp;
+
+ yy_current_state = (yy_start);
+yy_match:
+ do
+ {
+ register YY_CHAR yy_c = YY_SC_TO_UI(*yy_cp);
+ if ( yy_accept[yy_current_state] )
+ {
+ (yy_last_accepting_state) = yy_current_state;
+ (yy_last_accepting_cpos) = yy_cp;
+ }
+ while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
+ {
+ yy_current_state = (int) yy_def[yy_current_state];
+ }
+ yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
+ ++yy_cp;
+ }
+ while ( yy_base[yy_current_state] != 5761 );
+
+yy_find_action:
+ yy_act = yy_accept[yy_current_state];
+ if ( yy_act == 0 )
+ { /* have to back up */
+ yy_cp = (yy_last_accepting_cpos);
+ yy_current_state = (yy_last_accepting_state);
+ yy_act = yy_accept[yy_current_state];
+ }
+
+ YY_DO_BEFORE_ACTION;
+
+ if ( yy_act != YY_END_OF_BUFFER && yy_rule_can_match_eol[yy_act] )
+ {
+ int yyl;
+ for ( yyl = 0; yyl < yyleng; ++yyl )
+ if ( yytext[yyl] == '\n' )
+
+ yylineno++;
+;
+ }
+
+do_action: /* This label is used only to access EOF actions. */
+
+ switch ( yy_act )
+ { /* beginning of action switch */
+ case 0: /* must back up */
+ /* undo the effects of YY_DO_BEFORE_ACTION */
+ *yy_cp = (yy_hold_char);
+ yy_cp = (yy_last_accepting_cpos);
+ yy_current_state = (yy_last_accepting_state);
+ goto yy_find_action;
+
+case 1:
+YY_RULE_SETUP
+#line 15 "./parser/lex.l"
+{BEGIN COMMENT;};
+ YY_BREAK
+case 2:
+/* rule 2 can match eol */
+YY_RULE_SETUP
+#line 16 "./parser/lex.l"
+;
+ YY_BREAK
+case 3:
+/* rule 3 can match eol */
+YY_RULE_SETUP
+#line 17 "./parser/lex.l"
+;
+ YY_BREAK
+case 4:
+YY_RULE_SETUP
+#line 18 "./parser/lex.l"
+{BEGIN 0; };
+ YY_BREAK
+case 5:
+YY_RULE_SETUP
+#line 19 "./parser/lex.l"
+return NULLTOKEN;
+ YY_BREAK
+case 6:
+YY_RULE_SETUP
+#line 20 "./parser/lex.l"
+return TRUETOKEN;
+ YY_BREAK
+case 7:
+YY_RULE_SETUP
+#line 21 "./parser/lex.l"
+return FALSETOKEN;
+ YY_BREAK
+case 8:
+YY_RULE_SETUP
+#line 23 "./parser/lex.l"
+return BREAK;
+ YY_BREAK
+case 9:
+YY_RULE_SETUP
+#line 24 "./parser/lex.l"
+return CASE;
+ YY_BREAK
+case 10:
+YY_RULE_SETUP
+#line 25 "./parser/lex.l"
+return CATCH;
+ YY_BREAK
+case 11:
+YY_RULE_SETUP
+#line 26 "./parser/lex.l"
+return CONSTTOKEN;
+ YY_BREAK
+case 12:
+YY_RULE_SETUP
+#line 27 "./parser/lex.l"
+return DEFAULT;
+ YY_BREAK
+case 13:
+YY_RULE_SETUP
+#line 28 "./parser/lex.l"
+return FINALLY;
+ YY_BREAK
+case 14:
+YY_RULE_SETUP
+#line 29 "./parser/lex.l"
+return FOR;
+ YY_BREAK
+case 15:
+YY_RULE_SETUP
+#line 30 "./parser/lex.l"
+return INSTANCEOF;
+ YY_BREAK
+case 16:
+YY_RULE_SETUP
+#line 31 "./parser/lex.l"
+return NEW;
+ YY_BREAK
+case 17:
+YY_RULE_SETUP
+#line 32 "./parser/lex.l"
+return VAR;
+ YY_BREAK
+case 18:
+YY_RULE_SETUP
+#line 33 "./parser/lex.l"
+return CONTINUE;
+ YY_BREAK
+case 19:
+YY_RULE_SETUP
+#line 34 "./parser/lex.l"
+return FUNCTION;
+ YY_BREAK
+case 20:
+YY_RULE_SETUP
+#line 35 "./parser/lex.l"
+return RETURN;
+ YY_BREAK
+case 21:
+YY_RULE_SETUP
+#line 36 "./parser/lex.l"
+return VOIDTOKEN;
+ YY_BREAK
+case 22:
+YY_RULE_SETUP
+#line 37 "./parser/lex.l"
+return DELETETOKEN;
+ YY_BREAK
+case 23:
+YY_RULE_SETUP
+#line 38 "./parser/lex.l"
+return IF;
+ YY_BREAK
+case 24:
+YY_RULE_SETUP
+#line 39 "./parser/lex.l"
+return THISTOKEN;
+ YY_BREAK
+case 25:
+YY_RULE_SETUP
+#line 40 "./parser/lex.l"
+return DO;
+ YY_BREAK
+case 26:
+YY_RULE_SETUP
+#line 41 "./parser/lex.l"
+return WHILE;
+ YY_BREAK
+case 27:
+YY_RULE_SETUP
+#line 42 "./parser/lex.l"
+return ELSE;
+ YY_BREAK
+case 28:
+YY_RULE_SETUP
+#line 43 "./parser/lex.l"
+return INTOKEN;
+ YY_BREAK
+case 29:
+YY_RULE_SETUP
+#line 44 "./parser/lex.l"
+return SWITCH;
+ YY_BREAK
+case 30:
+YY_RULE_SETUP
+#line 45 "./parser/lex.l"
+return THROW;
+ YY_BREAK
+case 31:
+YY_RULE_SETUP
+#line 46 "./parser/lex.l"
+return TRY;
+ YY_BREAK
+case 32:
+YY_RULE_SETUP
+#line 47 "./parser/lex.l"
+return TYPEOF;
+ YY_BREAK
+case 33:
+YY_RULE_SETUP
+#line 48 "./parser/lex.l"
+return WITH;
+ YY_BREAK
+case 34:
+YY_RULE_SETUP
+#line 49 "./parser/lex.l"
+return DEBUGGER;
+ YY_BREAK
+case 35:
+YY_RULE_SETUP
+#line 50 "./parser/lex.l"
+return STREQ;
+ YY_BREAK
+case 36:
+YY_RULE_SETUP
+#line 51 "./parser/lex.l"
+return STRNEQ;
+ YY_BREAK
+case 37:
+YY_RULE_SETUP
+#line 52 "./parser/lex.l"
+;
+ YY_BREAK
+case 38:
+YY_RULE_SETUP
+#line 53 "./parser/lex.l"
+return PLUSPLUS;
+ YY_BREAK
+case 39:
+YY_RULE_SETUP
+#line 54 "./parser/lex.l"
+return MINUSMINUS;
+ YY_BREAK
+case 40:
+YY_RULE_SETUP
+#line 55 "./parser/lex.l"
+return PLUSEQUAL;
+ YY_BREAK
+case 41:
+YY_RULE_SETUP
+#line 56 "./parser/lex.l"
+return MINUSEQUAL;
+ YY_BREAK
+case 42:
+YY_RULE_SETUP
+#line 57 "./parser/lex.l"
+return MULTEQUAL;
+ YY_BREAK
+case 43:
+YY_RULE_SETUP
+#line 58 "./parser/lex.l"
+return DIVEQUAL;
+ YY_BREAK
+case 44:
+YY_RULE_SETUP
+#line 59 "./parser/lex.l"
+return OPENBRACE;
+ YY_BREAK
+case 45:
+YY_RULE_SETUP
+#line 60 "./parser/lex.l"
+(*yylval).intValue = yylineno; return CLOSEBRACE;
+ YY_BREAK
+case 46:
+YY_RULE_SETUP
+#line 61 "./parser/lex.l"
+return EQEQ;
+ YY_BREAK
+case 47:
+YY_RULE_SETUP
+#line 62 "./parser/lex.l"
+return NE;
+ YY_BREAK
+case 48:
+YY_RULE_SETUP
+#line 63 "./parser/lex.l"
+return LE;
+ YY_BREAK
+case 49:
+YY_RULE_SETUP
+#line 64 "./parser/lex.l"
+return GE;
+ YY_BREAK
+case 50:
+YY_RULE_SETUP
+#line 65 "./parser/lex.l"
+return OR;
+ YY_BREAK
+case 51:
+YY_RULE_SETUP
+#line 66 "./parser/lex.l"
+return AND;
+ YY_BREAK
+case 52:
+YY_RULE_SETUP
+#line 67 "./parser/lex.l"
+return ANDEQUAL;
+ YY_BREAK
+case 53:
+YY_RULE_SETUP
+#line 68 "./parser/lex.l"
+return MODEQUAL;
+ YY_BREAK
+case 54:
+YY_RULE_SETUP
+#line 69 "./parser/lex.l"
+return XOREQUAL;
+ YY_BREAK
+case 55:
+YY_RULE_SETUP
+#line 70 "./parser/lex.l"
+return OREQUAL;
+ YY_BREAK
+case 56:
+YY_RULE_SETUP
+#line 71 "./parser/lex.l"
+return NUMBER;
+ YY_BREAK
+case 57:
+YY_RULE_SETUP
+#line 72 "./parser/lex.l"
+return NUMBER;
+ YY_BREAK
+case 58:
+YY_RULE_SETUP
+#line 73 "./parser/lex.l"
+return NUMBER;
+ YY_BREAK
+case 59:
+YY_RULE_SETUP
+#line 74 "./parser/lex.l"
+return NUMBER;
+ YY_BREAK
+case 60:
+YY_RULE_SETUP
+#line 75 "./parser/lex.l"
+(*yylval).name.iname=strdup (yytext); (*yylval).name.pos.end = yylineno; (*yylval).name.pos.begin = yylineno; return IDENT_IN;
+ YY_BREAK
+case 61:
+/* rule 61 can match eol */
+YY_RULE_SETUP
+#line 76 "./parser/lex.l"
+return STRING;
+ YY_BREAK
+case 62:
+/* rule 62 can match eol */
+YY_RULE_SETUP
+#line 77 "./parser/lex.l"
+return STRING;
+ YY_BREAK
+case 63:
+YY_RULE_SETUP
+#line 78 "./parser/lex.l"
+return LSHIFT;
+ YY_BREAK
+case 64:
+YY_RULE_SETUP
+#line 79 "./parser/lex.l"
+return RSHIFT;
+ YY_BREAK
+case 65:
+YY_RULE_SETUP
+#line 80 "./parser/lex.l"
+return URSHIFT;
+ YY_BREAK
+case 66:
+YY_RULE_SETUP
+#line 81 "./parser/lex.l"
+return RSHIFTEQUAL;
+ YY_BREAK
+case 67:
+YY_RULE_SETUP
+#line 82 "./parser/lex.l"
+return URSHIFTEQUAL;
+ YY_BREAK
+case 68:
+YY_RULE_SETUP
+#line 83 "./parser/lex.l"
+return '(';
+ YY_BREAK
+case 69:
+YY_RULE_SETUP
+#line 84 "./parser/lex.l"
+return ')';
+ YY_BREAK
+case 70:
+YY_RULE_SETUP
+#line 85 "./parser/lex.l"
+return '/';
+ YY_BREAK
+case 71:
+YY_RULE_SETUP
+#line 86 "./parser/lex.l"
+return '\\';
+ YY_BREAK
+case 72:
+YY_RULE_SETUP
+#line 87 "./parser/lex.l"
+return ':';
+ YY_BREAK
+case 73:
+YY_RULE_SETUP
+#line 88 "./parser/lex.l"
+return ',';
+ YY_BREAK
+case 74:
+YY_RULE_SETUP
+#line 89 "./parser/lex.l"
+return '[';
+ YY_BREAK
+case 75:
+YY_RULE_SETUP
+#line 90 "./parser/lex.l"
+return ']';
+ YY_BREAK
+case 76:
+YY_RULE_SETUP
+#line 91 "./parser/lex.l"
+return '.';
+ YY_BREAK
+case 77:
+YY_RULE_SETUP
+#line 92 "./parser/lex.l"
+return '+';
+ YY_BREAK
+case 78:
+YY_RULE_SETUP
+#line 93 "./parser/lex.l"
+return '-';
+ YY_BREAK
+case 79:
+YY_RULE_SETUP
+#line 94 "./parser/lex.l"
+return '~';
+ YY_BREAK
+case 80:
+YY_RULE_SETUP
+#line 95 "./parser/lex.l"
+return '!';
+ YY_BREAK
+case 81:
+YY_RULE_SETUP
+#line 96 "./parser/lex.l"
+return '*';
+ YY_BREAK
+case 82:
+YY_RULE_SETUP
+#line 97 "./parser/lex.l"
+return '%';
+ YY_BREAK
+case 83:
+YY_RULE_SETUP
+#line 98 "./parser/lex.l"
+return '<';
+ YY_BREAK
+case 84:
+YY_RULE_SETUP
+#line 99 "./parser/lex.l"
+return '>';
+ YY_BREAK
+case 85:
+YY_RULE_SETUP
+#line 100 "./parser/lex.l"
+return '&';
+ YY_BREAK
+case 86:
+YY_RULE_SETUP
+#line 101 "./parser/lex.l"
+return '^';
+ YY_BREAK
+case 87:
+YY_RULE_SETUP
+#line 102 "./parser/lex.l"
+return '|';
+ YY_BREAK
+case 88:
+YY_RULE_SETUP
+#line 103 "./parser/lex.l"
+return '?';
+ YY_BREAK
+case 89:
+YY_RULE_SETUP
+#line 104 "./parser/lex.l"
+return ';';
+ YY_BREAK
+case 90:
+YY_RULE_SETUP
+#line 105 "./parser/lex.l"
+return '=';
+ YY_BREAK
+case 91:
+YY_RULE_SETUP
+#line 106 "./parser/lex.l"
+return '$';
+ YY_BREAK
+case 92:
+/* rule 92 can match eol */
+YY_RULE_SETUP
+#line 108 "./parser/lex.l"
+;
+ YY_BREAK
+case 93:
+YY_RULE_SETUP
+#line 109 "./parser/lex.l"
+;
+ YY_BREAK
+case 94:
+YY_RULE_SETUP
+#line 110 "./parser/lex.l"
+;
+ YY_BREAK
+case 95:
+/* rule 95 can match eol */
+YY_RULE_SETUP
+#line 111 "./parser/lex.l"
+;
+ YY_BREAK
+case 96:
+YY_RULE_SETUP
+#line 112 "./parser/lex.l"
+ECHO;
+ YY_BREAK
+#line 2717 "parser/lex.yy.c"
+case YY_STATE_EOF(INITIAL):
+case YY_STATE_EOF(COMMENT):
+ yyterminate();
+
+ case YY_END_OF_BUFFER:
+ {
+ /* Amount of text matched not including the EOB char. */
+ int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
+
+ /* Undo the effects of YY_DO_BEFORE_ACTION. */
+ *yy_cp = (yy_hold_char);
+ YY_RESTORE_YY_MORE_OFFSET
+
+ if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
+ {
+ /* We're scanning a new file or input source. It's
+ * possible that this happened because the user
+ * just pointed yyin at a new source and called
+ * yylex(). If so, then we have to assure
+ * consistency between YY_CURRENT_BUFFER and our
+ * globals. Here is the right place to do so, because
+ * this is the first action (other than possibly a
+ * back-up) that will match for the new input source.
+ */
+ (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
+ YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin;
+ YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
+ }
+
+ /* Note that here we test for yy_c_buf_p "<=" to the position
+ * of the first EOB in the buffer, since yy_c_buf_p will
+ * already have been incremented past the NUL character
+ * (since all states make transitions on EOB to the
+ * end-of-buffer state). Contrast this with the test
+ * in input().
+ */
+ if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
+ { /* This was really a NUL. */
+ yy_state_type yy_next_state;
+
+ (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
+
+ yy_current_state = yy_get_previous_state( );
+
+ /* Okay, we're now positioned to make the NUL
+ * transition. We couldn't have
+ * yy_get_previous_state() go ahead and do it
+ * for us because it doesn't know how to deal
+ * with the possibility of jamming (and we don't
+ * want to build jamming into it because then it
+ * will run more slowly).
+ */
+
+ yy_next_state = yy_try_NUL_trans( yy_current_state );
+
+ yy_bp = (yytext_ptr) + YY_MORE_ADJ;
+
+ if ( yy_next_state )
+ {
+ /* Consume the NUL. */
+ yy_cp = ++(yy_c_buf_p);
+ yy_current_state = yy_next_state;
+ goto yy_match;
+ }
+
+ else
+ {
+ yy_cp = (yy_c_buf_p);
+ goto yy_find_action;
+ }
+ }
+
+ else switch ( yy_get_next_buffer( ) )
+ {
+ case EOB_ACT_END_OF_FILE:
+ {
+ (yy_did_buffer_switch_on_eof) = 0;
+
+ if ( yywrap( ) )
+ {
+ /* Note: because we've taken care in
+ * yy_get_next_buffer() to have set up
+ * yytext, we can now set up
+ * yy_c_buf_p so that if some total
+ * hoser (like flex itself) wants to
+ * call the scanner after we return the
+ * YY_NULL, it'll still work - another
+ * YY_NULL will get returned.
+ */
+ (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
+
+ yy_act = YY_STATE_EOF(YY_START);
+ goto do_action;
+ }
+
+ else
+ {
+ if ( ! (yy_did_buffer_switch_on_eof) )
+ YY_NEW_FILE;
+ }
+ break;
+ }
+
+ case EOB_ACT_CONTINUE_SCAN:
+ (yy_c_buf_p) =
+ (yytext_ptr) + yy_amount_of_matched_text;
+
+ yy_current_state = yy_get_previous_state( );
+
+ yy_cp = (yy_c_buf_p);
+ yy_bp = (yytext_ptr) + YY_MORE_ADJ;
+ goto yy_match;
+
+ case EOB_ACT_LAST_MATCH:
+ (yy_c_buf_p) =
+ &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
+
+ yy_current_state = yy_get_previous_state( );
+
+ yy_cp = (yy_c_buf_p);
+ yy_bp = (yytext_ptr) + YY_MORE_ADJ;
+ goto yy_find_action;
+ }
+ break;
+ }
+
+ default:
+ YY_FATAL_ERROR(
+ "fatal flex scanner internal error--no action found" );
+ } /* end of action switch */
+ } /* end of scanning one token */
+} /* end of yylex */
+
+/* yy_get_next_buffer - try to read in a new buffer
+ *
+ * Returns a code representing an action:
+ * EOB_ACT_LAST_MATCH -
+ * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
+ * EOB_ACT_END_OF_FILE - end of file
+ */
+static int yy_get_next_buffer (void)
+{
+ register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
+ register char *source = (yytext_ptr);
+ register int number_to_move, i;
+ int ret_val;
+
+ if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
+ YY_FATAL_ERROR(
+ "fatal flex scanner internal error--end of buffer missed" );
+
+ if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
+ { /* Don't try to fill the buffer, so this is an EOF. */
+ if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
+ {
+ /* We matched a single character, the EOB, so
+ * treat this as a final EOF.
+ */
+ return EOB_ACT_END_OF_FILE;
+ }
+
+ else
+ {
+ /* We matched some text prior to the EOB, first
+ * process it.
+ */
+ return EOB_ACT_LAST_MATCH;
+ }
+ }
+
+ /* Try to read more data. */
+
+ /* First move last chars to start of buffer. */
+ number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;
+
+ for ( i = 0; i < number_to_move; ++i )
+ *(dest++) = *(source++);
+
+ if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
+ /* don't do the read, it's not guaranteed to return an EOF,
+ * just force an EOF
+ */
+ YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
+
+ else
+ {
+ int num_to_read =
+ YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
+
+ while ( num_to_read <= 0 )
+ { /* Not enough room in the buffer - grow it. */
+
+ /* just a shorter name for the current buffer */
+ YY_BUFFER_STATE b = YY_CURRENT_BUFFER;
+
+ int yy_c_buf_p_offset =
+ (int) ((yy_c_buf_p) - b->yy_ch_buf);
+
+ if ( b->yy_is_our_buffer )
+ {
+ int new_size = b->yy_buf_size * 2;
+
+ if ( new_size <= 0 )
+ b->yy_buf_size += b->yy_buf_size / 8;
+ else
+ b->yy_buf_size *= 2;
+
+ b->yy_ch_buf = (char *)
+ /* Include room in for 2 EOB chars. */
+ yyrealloc((void *) b->yy_ch_buf,b->yy_buf_size + 2 );
+ }
+ else
+ /* Can't grow it, we don't own it. */
+ b->yy_ch_buf = 0;
+
+ if ( ! b->yy_ch_buf )
+ YY_FATAL_ERROR(
+ "fatal error - scanner input buffer overflow" );
+
+ (yy_c_buf_p) = &b->yy_ch_buf[yy_c_buf_p_offset];
+
+ num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
+ number_to_move - 1;
+
+ }
+
+ if ( num_to_read > YY_READ_BUF_SIZE )
+ num_to_read = YY_READ_BUF_SIZE;
+
+ /* Read in more data. */
+ YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
+ (yy_n_chars), (size_t) num_to_read );
+
+ YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
+ }
+
+ if ( (yy_n_chars) == 0 )
+ {
+ if ( number_to_move == YY_MORE_ADJ )
+ {
+ ret_val = EOB_ACT_END_OF_FILE;
+ yyrestart(yyin );
+ }
+
+ else
+ {
+ ret_val = EOB_ACT_LAST_MATCH;
+ YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
+ YY_BUFFER_EOF_PENDING;
+ }
+ }
+
+ else
+ ret_val = EOB_ACT_CONTINUE_SCAN;
+
+ if ((yy_size_t) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
+ /* Extend the array by 50%, plus the number we really need. */
+ yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1);
+ YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size );
+ if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
+ YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
+ }
+
+ (yy_n_chars) += number_to_move;
+ YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
+ YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
+
+ (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
+
+ return ret_val;
+}
+
+/* yy_get_previous_state - get the state just before the EOB char was reached */
+
+ static yy_state_type yy_get_previous_state (void)
+{
+ register yy_state_type yy_current_state;
+ register char *yy_cp;
+
+ yy_current_state = (yy_start);
+
+ for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
+ {
+ if ( yy_accept[yy_current_state] )
+ {
+ (yy_last_accepting_state) = yy_current_state;
+ (yy_last_accepting_cpos) = yy_cp;
+ }
+ if ( *yy_cp )
+ {
+ register YY_CHAR yy_c = YY_SC_TO_UI(*yy_cp);
+ if ( yy_accept[yy_current_state] )
+ {
+ (yy_last_accepting_state) = yy_current_state;
+ (yy_last_accepting_cpos) = yy_cp;
+ }
+ while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
+ {
+ yy_current_state = (int) yy_def[yy_current_state];
+ }
+ yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
+ }
+ else
+ yy_current_state = yy_NUL_trans[yy_current_state];
+ }
+
+ return yy_current_state;
+}
+
+/* yy_try_NUL_trans - try to make a transition on the NUL character
+ *
+ * synopsis
+ * next_state = yy_try_NUL_trans( current_state );
+ */
+ static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state )
+{
+ register int yy_is_jam;
+
+ yy_current_state = yy_NUL_trans[yy_current_state];
+ yy_is_jam = (yy_current_state == 0);
+
+ return yy_is_jam ? 0 : yy_current_state;
+}
+
+#ifndef YY_NO_INPUT
+#ifdef __cplusplus
+ static int yyinput (void)
+#else
+ static int input (void)
+#endif
+
+{
+ int c;
+
+ *(yy_c_buf_p) = (yy_hold_char);
+
+ if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
+ {
+ /* yy_c_buf_p now points to the character we want to return.
+ * If this occurs *before* the EOB characters, then it's a
+ * valid NUL; if not, then we've hit the end of the buffer.
+ */
+ if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
+ /* This was really a NUL. */
+ *(yy_c_buf_p) = '\0';
+
+ else
+ { /* need more input */
+ int offset = (yy_c_buf_p) - (yytext_ptr);
+ ++(yy_c_buf_p);
+
+ switch ( yy_get_next_buffer( ) )
+ {
+ case EOB_ACT_LAST_MATCH:
+ /* This happens because yy_g_n_b()
+ * sees that we've accumulated a
+ * token and flags that we need to
+ * try matching the token before
+ * proceeding. But for input(),
+ * there's no matching to consider.
+ * So convert the EOB_ACT_LAST_MATCH
+ * to EOB_ACT_END_OF_FILE.
+ */
+
+ /* Reset buffer status. */
+ yyrestart(yyin );
+
+ /*FALLTHROUGH*/
+
+ case EOB_ACT_END_OF_FILE:
+ {
+ if ( yywrap( ) )
+ return EOF;
+
+ if ( ! (yy_did_buffer_switch_on_eof) )
+ YY_NEW_FILE;
+#ifdef __cplusplus
+ return yyinput();
+#else
+ return input();
+#endif
+ }
+
+ case EOB_ACT_CONTINUE_SCAN:
+ (yy_c_buf_p) = (yytext_ptr) + offset;
+ break;
+ }
+ }
+ }
+
+ c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */
+ *(yy_c_buf_p) = '\0'; /* preserve yytext */
+ (yy_hold_char) = *++(yy_c_buf_p);
+
+ if ( c == '\n' )
+
+ yylineno++;
+;
+
+ return c;
+}
+#endif /* ifndef YY_NO_INPUT */
+
+/** Immediately switch to a different input stream.
+ * @param input_file A readable stream.
+ *
+ * @note This function does not reset the start condition to @c INITIAL .
+ */
+ void yyrestart (FILE * input_file )
+{
+
+ if ( ! YY_CURRENT_BUFFER ){
+ yyensure_buffer_stack ();
+ YY_CURRENT_BUFFER_LVALUE =
+ yy_create_buffer(yyin,YY_BUF_SIZE );
+ }
+
+ yy_init_buffer(YY_CURRENT_BUFFER,input_file );
+ yy_load_buffer_state( );
+}
+
+/** Switch to a different input buffer.
+ * @param new_buffer The new input buffer.
+ *
+ */
+ void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer )
+{
+
+ /* TODO. We should be able to replace this entire function body
+ * with
+ * yypop_buffer_state();
+ * yypush_buffer_state(new_buffer);
+ */
+ yyensure_buffer_stack ();
+ if ( YY_CURRENT_BUFFER == new_buffer )
+ return;
+
+ if ( YY_CURRENT_BUFFER )
+ {
+ /* Flush out information for old buffer. */
+ *(yy_c_buf_p) = (yy_hold_char);
+ YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
+ YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
+ }
+
+ YY_CURRENT_BUFFER_LVALUE = new_buffer;
+ yy_load_buffer_state( );
+
+ /* We don't actually know whether we did this switch during
+ * EOF (yywrap()) processing, but the only time this flag
+ * is looked at is after yywrap() is called, so it's safe
+ * to go ahead and always set it.
+ */
+ (yy_did_buffer_switch_on_eof) = 1;
+}
+
+static void yy_load_buffer_state (void)
+{
+ (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
+ (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
+ yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
+ (yy_hold_char) = *(yy_c_buf_p);
+}
+
+/** Allocate and initialize an input buffer state.
+ * @param file A readable stream.
+ * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
+ *
+ * @return the allocated buffer state.
+ */
+ YY_BUFFER_STATE yy_create_buffer (FILE * file, int size )
+{
+ YY_BUFFER_STATE b;
+
+ b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
+ if ( ! b )
+ YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
+
+ b->yy_buf_size = size;
+
+ /* yy_ch_buf has to be 2 characters longer than the size given because
+ * we need to put in 2 end-of-buffer characters.
+ */
+ b->yy_ch_buf = (char *) yyalloc(b->yy_buf_size + 2 );
+ if ( ! b->yy_ch_buf )
+ YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
+
+ b->yy_is_our_buffer = 1;
+
+ yy_init_buffer(b,file );
+
+ return b;
+}
+
+/** Destroy the buffer.
+ * @param b a buffer created with yy_create_buffer()
+ *
+ */
+ void yy_delete_buffer (YY_BUFFER_STATE b )
+{
+
+ if ( ! b )
+ return;
+
+ if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
+ YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
+
+ if ( b->yy_is_our_buffer )
+ yyfree((void *) b->yy_ch_buf );
+
+ yyfree((void *) b );
+}
+
+#ifndef __cplusplus
+extern int isatty (int );
+#endif /* __cplusplus */
+
+/* Initializes or reinitializes a buffer.
+ * This function is sometimes called more than once on the same buffer,
+ * such as during a yyrestart() or at EOF.
+ */
+ static void yy_init_buffer (YY_BUFFER_STATE b, FILE * file )
+
+{
+ int oerrno = errno;
+
+ yy_flush_buffer(b );
+
+ b->yy_input_file = file;
+ b->yy_fill_buffer = 1;
+
+ /* If b is the current buffer, then yy_init_buffer was _probably_
+ * called from yyrestart() or through yy_get_next_buffer.
+ * In that case, we don't want to reset the lineno or column.
+ */
+ if (b != YY_CURRENT_BUFFER){
+ b->yy_bs_lineno = 1;
+ b->yy_bs_column = 0;
+ }
+
+ b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
+
+ errno = oerrno;
+}
+
+/** Discard all buffered characters. On the next scan, YY_INPUT will be called.
+ * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
+ *
+ */
+ void yy_flush_buffer (YY_BUFFER_STATE b )
+{
+ if ( ! b )
+ return;
+
+ b->yy_n_chars = 0;
+
+ /* We always need two end-of-buffer characters. The first causes
+ * a transition to the end-of-buffer state. The second causes
+ * a jam in that state.
+ */
+ b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
+ b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
+
+ b->yy_buf_pos = &b->yy_ch_buf[0];
+
+ b->yy_at_bol = 1;
+ b->yy_buffer_status = YY_BUFFER_NEW;
+
+ if ( b == YY_CURRENT_BUFFER )
+ yy_load_buffer_state( );
+}
+
+/** Pushes the new state onto the stack. The new state becomes
+ * the current state. This function will allocate the stack
+ * if necessary.
+ * @param new_buffer The new state.
+ *
+ */
+void yypush_buffer_state (YY_BUFFER_STATE new_buffer )
+{
+ if (new_buffer == NULL)
+ return;
+
+ yyensure_buffer_stack();
+
+ /* This block is copied from yy_switch_to_buffer. */
+ if ( YY_CURRENT_BUFFER )
+ {
+ /* Flush out information for old buffer. */
+ *(yy_c_buf_p) = (yy_hold_char);
+ YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
+ YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
+ }
+
+ /* Only push if top exists. Otherwise, replace top. */
+ if (YY_CURRENT_BUFFER)
+ (yy_buffer_stack_top)++;
+ YY_CURRENT_BUFFER_LVALUE = new_buffer;
+
+ /* copied from yy_switch_to_buffer. */
+ yy_load_buffer_state( );
+ (yy_did_buffer_switch_on_eof) = 1;
+}
+
+/** Removes and deletes the top of the stack, if present.
+ * The next element becomes the new top.
+ *
+ */
+void yypop_buffer_state (void)
+{
+ if (!YY_CURRENT_BUFFER)
+ return;
+
+ yy_delete_buffer(YY_CURRENT_BUFFER );
+ YY_CURRENT_BUFFER_LVALUE = NULL;
+ if ((yy_buffer_stack_top) > 0)
+ --(yy_buffer_stack_top);
+
+ if (YY_CURRENT_BUFFER) {
+ yy_load_buffer_state( );
+ (yy_did_buffer_switch_on_eof) = 1;
+ }
+}
+
+/* Allocates the stack if it does not exist.
+ * Guarantees space for at least one push.
+ */
+static void yyensure_buffer_stack (void)
+{
+ int num_to_alloc;
+
+ if (!(yy_buffer_stack)) {
+
+ /* First allocation is just for 2 elements, since we don't know if this
+ * scanner will even need a stack. We use 2 instead of 1 to avoid an
+ * immediate realloc on the next call.
+ */
+ num_to_alloc = 1;
+ (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc
+ (num_to_alloc * sizeof(struct yy_buffer_state*)
+ );
+ if ( ! (yy_buffer_stack) )
+ YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
+
+ memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
+
+ (yy_buffer_stack_max) = num_to_alloc;
+ (yy_buffer_stack_top) = 0;
+ return;
+ }
+
+ if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
+
+ /* Increase the buffer to prepare for a possible push. */
+ int grow_size = 8 /* arbitrary grow size */;
+
+ num_to_alloc = (yy_buffer_stack_max) + grow_size;
+ (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc
+ ((yy_buffer_stack),
+ num_to_alloc * sizeof(struct yy_buffer_state*)
+ );
+ if ( ! (yy_buffer_stack) )
+ YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
+
+ /* zero only the new slots.*/
+ memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
+ (yy_buffer_stack_max) = num_to_alloc;
+ }
+}
+
+/** Setup the input buffer state to scan directly from a user-specified character buffer.
+ * @param base the character buffer
+ * @param size the size in bytes of the character buffer
+ *
+ * @return the newly allocated buffer state object.
+ */
+YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size )
+{
+ YY_BUFFER_STATE b;
+
+ if ( size < 2 ||
+ base[size-2] != YY_END_OF_BUFFER_CHAR ||
+ base[size-1] != YY_END_OF_BUFFER_CHAR )
+ /* They forgot to leave room for the EOB's. */
+ return 0;
+
+ b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
+ if ( ! b )
+ YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
+
+ b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
+ b->yy_buf_pos = b->yy_ch_buf = base;
+ b->yy_is_our_buffer = 0;
+ b->yy_input_file = 0;
+ b->yy_n_chars = b->yy_buf_size;
+ b->yy_is_interactive = 0;
+ b->yy_at_bol = 1;
+ b->yy_fill_buffer = 0;
+ b->yy_buffer_status = YY_BUFFER_NEW;
+
+ yy_switch_to_buffer(b );
+
+ return b;
+}
+
+/** Setup the input buffer state to scan a string. The next call to yylex() will
+ * scan from a @e copy of @a str.
+ * @param yystr a NUL-terminated string to scan
+ *
+ * @return the newly allocated buffer state object.
+ * @note If you want to scan bytes that may contain NUL values, then use
+ * yy_scan_bytes() instead.
+ */
+YY_BUFFER_STATE yy_scan_string (yyconst char * yystr )
+{
+
+ return yy_scan_bytes(yystr,strlen(yystr) );
+}
+
+/** Setup the input buffer state to scan the given bytes. The next call to yylex() will
+ * scan from a @e copy of @a bytes.
+ * @param yybytes the byte buffer to scan
+ * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes.
+ *
+ * @return the newly allocated buffer state object.
+ */
+YY_BUFFER_STATE yy_scan_bytes (yyconst char * yybytes, int _yybytes_len )
+{
+ YY_BUFFER_STATE b;
+ char *buf;
+ yy_size_t n;
+ int i;
+
+ /* Get memory for full buffer, including space for trailing EOB's. */
+ n = _yybytes_len + 2;
+ buf = (char *) yyalloc(n );
+ if ( ! buf )
+ YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
+
+ for ( i = 0; i < _yybytes_len; ++i )
+ buf[i] = yybytes[i];
+
+ buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
+
+ b = yy_scan_buffer(buf,n );
+ if ( ! b )
+ YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
+
+ /* It's okay to grow etc. this buffer, and we should throw it
+ * away when we're done.
+ */
+ b->yy_is_our_buffer = 1;
+
+ return b;
+}
+
+#ifndef YY_EXIT_FAILURE
+#define YY_EXIT_FAILURE 2
+#endif
+
+static void yy_fatal_error (yyconst char* msg )
+{
+ (void) fprintf( stderr, "%s\n", msg );
+ exit( YY_EXIT_FAILURE );
+}
+
+/* Redefine yyless() so it works in section 3 code. */
+
+#undef yyless
+#define yyless(n) \
+ do \
+ { \
+ /* Undo effects of setting up yytext. */ \
+ int yyless_macro_arg = (n); \
+ YY_LESS_LINENO(yyless_macro_arg);\
+ yytext[yyleng] = (yy_hold_char); \
+ (yy_c_buf_p) = yytext + yyless_macro_arg; \
+ (yy_hold_char) = *(yy_c_buf_p); \
+ *(yy_c_buf_p) = '\0'; \
+ yyleng = yyless_macro_arg; \
+ } \
+ while ( 0 )
+
+/* Accessor methods (get/set functions) to struct members. */
+
+/** Get the current line number.
+ *
+ */
+int yyget_lineno (void)
+{
+
+ return yylineno;
+}
+
+/** Get the input stream.
+ *
+ */
+FILE *yyget_in (void)
+{
+ return yyin;
+}
+
+/** Get the output stream.
+ *
+ */
+FILE *yyget_out (void)
+{
+ return yyout;
+}
+
+/** Get the length of the current token.
+ *
+ */
+int yyget_leng (void)
+{
+ return yyleng;
+}
+
+/** Get the current token.
+ *
+ */
+
+char *yyget_text (void)
+{
+ return yytext;
+}
+
+/** Set the current line number.
+ * @param line_number
+ *
+ */
+void yyset_lineno (int line_number )
+{
+
+ yylineno = line_number;
+}
+
+/** Set the input stream. This does not discard the current
+ * input buffer.
+ * @param in_str A readable stream.
+ *
+ * @see yy_switch_to_buffer
+ */
+void yyset_in (FILE * in_str )
+{
+ yyin = in_str ;
+}
+
+void yyset_out (FILE * out_str )
+{
+ yyout = out_str ;
+}
+
+int yyget_debug (void)
+{
+ return yy_flex_debug;
+}
+
+void yyset_debug (int bdebug )
+{
+ yy_flex_debug = bdebug ;
+}
+
+static int yy_init_globals (void)
+{
+ /* Initialization is the same as for the non-reentrant scanner.
+ * This function is called from yylex_destroy(), so don't allocate here.
+ */
+
+ /* We do not touch yylineno unless the option is enabled. */
+ yylineno = 1;
+
+ (yy_buffer_stack) = 0;
+ (yy_buffer_stack_top) = 0;
+ (yy_buffer_stack_max) = 0;
+ (yy_c_buf_p) = (char *) 0;
+ (yy_init) = 0;
+ (yy_start) = 0;
+
+/* Defined in main.c */
+#ifdef YY_STDINIT
+ yyin = stdin;
+ yyout = stdout;
+#else
+ yyin = (FILE *) 0;
+ yyout = (FILE *) 0;
+#endif
+
+ /* For future reference: Set errno on error, since we are called by
+ * yylex_init()
+ */
+ return 0;
+}
+
+/* yylex_destroy is for both reentrant and non-reentrant scanners. */
+int yylex_destroy (void)
+{
+
+ /* Pop the buffer stack, destroying each element. */
+ while(YY_CURRENT_BUFFER){
+ yy_delete_buffer(YY_CURRENT_BUFFER );
+ YY_CURRENT_BUFFER_LVALUE = NULL;
+ yypop_buffer_state();
+ }
+
+ /* Destroy the stack itself. */
+ yyfree((yy_buffer_stack) );
+ (yy_buffer_stack) = NULL;
+
+ /* Reset the globals. This is important in a non-reentrant scanner so the next time
+ * yylex() is called, initialization will occur. */
+ yy_init_globals( );
+
+ return 0;
+}
+
+/*
+ * Internal utility routines.
+ */
+
+#ifndef yytext_ptr
+static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
+{
+ register int i;
+ for ( i = 0; i < n; ++i )
+ s1[i] = s2[i];
+}
+#endif
+
+#ifdef YY_NEED_STRLEN
+static int yy_flex_strlen (yyconst char * s )
+{
+ register int n;
+ for ( n = 0; s[n]; ++n )
+ ;
+
+ return n;
+}
+#endif
+
+void *yyalloc (yy_size_t size )
+{
+ return (void *) malloc( size );
+}
+
+void *yyrealloc (void * ptr, yy_size_t size )
+{
+ /* The cast to (char *) in the following accommodates both
+ * implementations that use char* generic pointers, and those
+ * that use void* generic pointers. It works with the latter
+ * because both ANSI C and C++ allow castless assignment from
+ * any pointer type to void*, and deal with argument conversions
+ * as though doing an assignment.
+ */
+ return (void *) realloc( (char *) ptr, size );
+}
+
+void yyfree (void * ptr )
+{
+ free( (char *) ptr ); /* see yyrealloc() for (char *) cast */
+}
+
+#define YYTABLES_NAME "yytables"
+
+#line 112 "./parser/lex.l"
+
+
+//"<<=" return LSHIFTEQUA;
+// RESERVED = 282,
+// IF_WITHOUT_ELSE = 288,
+// IDENT = 317,
+
+// AUTOPLUSPLUS = 319,
+// AUTOMINUSMINUS = 320
+
+
+int yywrap ()
+{
+ return 1;
+}
+
+
diff --git a/plugins/symbol-db/anjuta-tags/parser/lex.yy.h b/plugins/symbol-db/anjuta-tags/parser/lex.yy.h
new file mode 100644
index 0000000..9b90ca6
--- /dev/null
+++ b/plugins/symbol-db/anjuta-tags/parser/lex.yy.h
@@ -0,0 +1,339 @@
+#ifndef yyHEADER_H
+#define yyHEADER_H 1
+#define yyIN_HEADER 1
+
+#line 6 "./parser/lex.yy.h"
+
+#line 8 "./parser/lex.yy.h"
+
+#define YY_INT_ALIGNED short int
+
+/* A lexical scanner generated by flex */
+
+#define FLEX_SCANNER
+#define YY_FLEX_MAJOR_VERSION 2
+#define YY_FLEX_MINOR_VERSION 5
+#define YY_FLEX_SUBMINOR_VERSION 35
+#if YY_FLEX_SUBMINOR_VERSION > 0
+#define FLEX_BETA
+#endif
+
+/* First, we deal with platform-specific or compiler-specific issues. */
+
+/* begin standard C headers. */
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+#include <stdlib.h>
+
+/* end standard C headers. */
+
+/* flex integer type definitions */
+
+#ifndef FLEXINT_H
+#define FLEXINT_H
+
+/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
+
+#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
+
+/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
+ * if you want the limit (max/min) macros for int types.
+ */
+#ifndef __STDC_LIMIT_MACROS
+#define __STDC_LIMIT_MACROS 1
+#endif
+
+#include <inttypes.h>
+typedef int8_t flex_int8_t;
+typedef uint8_t flex_uint8_t;
+typedef int16_t flex_int16_t;
+typedef uint16_t flex_uint16_t;
+typedef int32_t flex_int32_t;
+typedef uint32_t flex_uint32_t;
+#else
+typedef signed char flex_int8_t;
+typedef short int flex_int16_t;
+typedef int flex_int32_t;
+typedef unsigned char flex_uint8_t;
+typedef unsigned short int flex_uint16_t;
+typedef unsigned int flex_uint32_t;
+
+/* Limits of integral types. */
+#ifndef INT8_MIN
+#define INT8_MIN (-128)
+#endif
+#ifndef INT16_MIN
+#define INT16_MIN (-32767-1)
+#endif
+#ifndef INT32_MIN
+#define INT32_MIN (-2147483647-1)
+#endif
+#ifndef INT8_MAX
+#define INT8_MAX (127)
+#endif
+#ifndef INT16_MAX
+#define INT16_MAX (32767)
+#endif
+#ifndef INT32_MAX
+#define INT32_MAX (2147483647)
+#endif
+#ifndef UINT8_MAX
+#define UINT8_MAX (255U)
+#endif
+#ifndef UINT16_MAX
+#define UINT16_MAX (65535U)
+#endif
+#ifndef UINT32_MAX
+#define UINT32_MAX (4294967295U)
+#endif
+
+#endif /* ! C99 */
+
+#endif /* ! FLEXINT_H */
+
+#ifdef __cplusplus
+
+/* The "const" storage-class-modifier is valid. */
+#define YY_USE_CONST
+
+#else /* ! __cplusplus */
+
+/* C99 requires __STDC__ to be defined as 1. */
+#if defined (__STDC__)
+
+#define YY_USE_CONST
+
+#endif /* defined (__STDC__) */
+#endif /* ! __cplusplus */
+
+#ifdef YY_USE_CONST
+#define yyconst const
+#else
+#define yyconst
+#endif
+
+/* Size of default input buffer. */
+#ifndef YY_BUF_SIZE
+#ifdef __ia64__
+/* On IA-64, the buffer size is 16k, not 8k.
+ * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case.
+ * Ditto for the __ia64__ case accordingly.
+ */
+#define YY_BUF_SIZE 32768
+#else
+#define YY_BUF_SIZE 16384
+#endif /* __ia64__ */
+#endif
+
+#ifndef YY_TYPEDEF_YY_BUFFER_STATE
+#define YY_TYPEDEF_YY_BUFFER_STATE
+typedef struct yy_buffer_state *YY_BUFFER_STATE;
+#endif
+
+extern int yyleng;
+
+extern FILE *yyin, *yyout;
+
+#ifndef YY_TYPEDEF_YY_SIZE_T
+#define YY_TYPEDEF_YY_SIZE_T
+typedef size_t yy_size_t;
+#endif
+
+#ifndef YY_STRUCT_YY_BUFFER_STATE
+#define YY_STRUCT_YY_BUFFER_STATE
+struct yy_buffer_state
+ {
+ FILE *yy_input_file;
+
+ char *yy_ch_buf; /* input buffer */
+ char *yy_buf_pos; /* current position in input buffer */
+
+ /* Size of input buffer in bytes, not including room for EOB
+ * characters.
+ */
+ yy_size_t yy_buf_size;
+
+ /* Number of characters read into yy_ch_buf, not including EOB
+ * characters.
+ */
+ int yy_n_chars;
+
+ /* Whether we "own" the buffer - i.e., we know we created it,
+ * and can realloc() it to grow it, and should free() it to
+ * delete it.
+ */
+ int yy_is_our_buffer;
+
+ /* Whether this is an "interactive" input source; if so, and
+ * if we're using stdio for input, then we want to use getc()
+ * instead of fread(), to make sure we stop fetching input after
+ * each newline.
+ */
+ int yy_is_interactive;
+
+ /* Whether we're considered to be at the beginning of a line.
+ * If so, '^' rules will be active on the next match, otherwise
+ * not.
+ */
+ int yy_at_bol;
+
+ int yy_bs_lineno; /**< The line count. */
+ int yy_bs_column; /**< The column count. */
+
+ /* Whether to try to fill the input buffer when we reach the
+ * end of it.
+ */
+ int yy_fill_buffer;
+
+ int yy_buffer_status;
+
+ };
+#endif /* !YY_STRUCT_YY_BUFFER_STATE */
+
+void yyrestart (FILE *input_file );
+void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer );
+YY_BUFFER_STATE yy_create_buffer (FILE *file,int size );
+void yy_delete_buffer (YY_BUFFER_STATE b );
+void yy_flush_buffer (YY_BUFFER_STATE b );
+void yypush_buffer_state (YY_BUFFER_STATE new_buffer );
+void yypop_buffer_state (void );
+
+YY_BUFFER_STATE yy_scan_buffer (char *base,yy_size_t size );
+YY_BUFFER_STATE yy_scan_string (yyconst char *yy_str );
+YY_BUFFER_STATE yy_scan_bytes (yyconst char *bytes,int len );
+
+void *yyalloc (yy_size_t );
+void *yyrealloc (void *,yy_size_t );
+void yyfree (void * );
+
+/* Begin user sect3 */
+
+extern int yylineno;
+
+extern char *yytext;
+#define yytext_ptr yytext
+
+#ifdef YY_HEADER_EXPORT_START_CONDITIONS
+#define INITIAL 0
+#define COMMENT 1
+
+#endif
+
+#ifndef YY_NO_UNISTD_H
+/* Special case for "unistd.h", since it is non-ANSI. We include it way
+ * down here because we want the user's section 1 to have been scanned first.
+ * The user has a chance to override it with an option.
+ */
+#include <unistd.h>
+#endif
+
+#ifndef YY_EXTRA_TYPE
+#define YY_EXTRA_TYPE void *
+#endif
+
+/* Accessor methods to globals.
+ These are made visible to non-reentrant scanners for convenience. */
+
+int yylex_destroy (void );
+
+int yyget_debug (void );
+
+void yyset_debug (int debug_flag );
+
+YY_EXTRA_TYPE yyget_extra (void );
+
+void yyset_extra (YY_EXTRA_TYPE user_defined );
+
+FILE *yyget_in (void );
+
+void yyset_in (FILE * in_str );
+
+FILE *yyget_out (void );
+
+void yyset_out (FILE * out_str );
+
+int yyget_leng (void );
+
+char *yyget_text (void );
+
+int yyget_lineno (void );
+
+void yyset_lineno (int line_number );
+
+YYSTYPE * yyget_lval (void );
+
+void yyset_lval (YYSTYPE * yylval_param );
+
+/* Macros after this point can all be overridden by user definitions in
+ * section 1.
+ */
+
+#ifndef YY_SKIP_YYWRAP
+#ifdef __cplusplus
+extern "C" int yywrap (void );
+#else
+extern int yywrap (void );
+#endif
+#endif
+
+#ifndef yytext_ptr
+static void yy_flex_strncpy (char *,yyconst char *,int );
+#endif
+
+#ifdef YY_NEED_STRLEN
+static int yy_flex_strlen (yyconst char * );
+#endif
+
+#ifndef YY_NO_INPUT
+
+#endif
+
+/* Amount of stuff to slurp up with each read. */
+#ifndef YY_READ_BUF_SIZE
+#ifdef __ia64__
+/* On IA-64, the buffer size is 16k, not 8k */
+#define YY_READ_BUF_SIZE 16384
+#else
+#define YY_READ_BUF_SIZE 8192
+#endif /* __ia64__ */
+#endif
+
+/* Number of entries by which start-condition stack grows. */
+#ifndef YY_START_STACK_INCR
+#define YY_START_STACK_INCR 25
+#endif
+
+/* Default declaration of generated scanner - a define so the user can
+ * easily add parameters.
+ */
+#ifndef YY_DECL
+#define YY_DECL_IS_OURS 1
+
+extern int yylex \
+ (YYSTYPE * yylval_param );
+
+#define YY_DECL int yylex \
+ (YYSTYPE * yylval_param )
+#endif /* !YY_DECL */
+
+/* yy_get_previous_state - get the state just before the EOB char was reached */
+
+#undef YY_NEW_FILE
+#undef YY_FLUSH_BUFFER
+#undef yy_set_bol
+#undef yy_new_buffer
+#undef yy_set_interactive
+#undef YY_DO_BEFORE_ACTION
+
+#ifdef YY_DECL_IS_OURS
+#undef YY_DECL_IS_OURS
+#undef YY_DECL
+#endif
+
+#line 109 "./parser/lex.l"
+
+
+#line 338 "./parser/lex.yy.h"
+#undef yyIN_HEADER
+#endif /* yyHEADER_H */
diff --git a/plugins/symbol-db/anjuta-tags/parser/y.tab.c b/plugins/symbol-db/anjuta-tags/parser/y.tab.c
new file mode 100644
index 0000000..257ff78
--- /dev/null
+++ b/plugins/symbol-db/anjuta-tags/parser/y.tab.c
@@ -0,0 +1,4643 @@
+
+/* A Bison parser, made by GNU Bison 2.4.1. */
+
+/* Skeleton implementation for Bison's Yacc-like parsers in C
+
+ Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
+ Free Software Foundation, Inc.
+
+ 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 3 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, see <http://www.gnu.org/licenses/>. */
+
+/* As a special exception, you may create a larger work that contains
+ part or all of the Bison parser skeleton and distribute that work
+ under terms of your choice, so long as that work isn't itself a
+ parser generator using the skeleton or a modified version thereof
+ as a parser skeleton. Alternatively, if you modify or redistribute
+ the parser skeleton itself, you may (at your option) remove this
+ special exception, which will cause the skeleton and the resulting
+ Bison output files to be licensed under the GNU General Public
+ License without this special exception.
+
+ This special exception was added by the Free Software Foundation in
+ version 2.2 of Bison. */
+
+/* C LALR(1) parser skeleton written by Richard Stallman, by
+ simplifying the original so-called "semantic" parser. */
+
+/* All symbols defined below should begin with yy or YY, to avoid
+ infringing on user name space. This should be done even for local
+ variables, as they might otherwise be expanded by user macros.
+ There are some unavoidable exceptions within include files to
+ define necessary library symbols; they are noted "INFRINGES ON
+ USER NAME SPACE" below. */
+
+/* Identify Bison output. */
+#define YYBISON 1
+
+/* Bison version. */
+#define YYBISON_VERSION "2.4.1"
+
+/* Skeleton name. */
+#define YYSKELETON_NAME "yacc.c"
+
+/* Pure parsers. */
+#define YYPURE 1
+
+/* Push parsers. */
+#define YYPUSH 1
+
+/* Pull parsers. */
+#define YYPULL 1
+
+/* Using locations. */
+#define YYLSP_NEEDED 0
+
+
+
+/* Copy the first part of user declarations. */
+
+/* Line 189 of yacc.c */
+#line 3 "./parser/Grammar.y"
+
+
+/*
+ * Copyright (C) 1999-2000 Harri Porten (porten kde org)
+ * Copyright (C) 2006, 2007, 2008, 2009 Apple Inc. All rights reserved.
+ * Copyright (C) 2007 Eric Seidel <eric webkit org>
+ * Copyright (C) 2009 Maxim Ermilov <zaspire rambler ru>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser 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
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *
+ */
+
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.h>
+
+#include <glib.h>
+
+#include "jstypes.h"
+#include "js-node.h"
+#define YYMAXDEPTH 10000
+#define YYENABLE_NLS 0
+
+/* default values for bison */
+
+void yyerror (char* msg);
+int yylex(void *a);
+
+#define YYERROR_VERBOSE 1 // SHOW NORMAL ERROR MESSAGE
+#define YYDEBUG 1 // Set to 1 to debug a parse error.
+#define jscyydebug 1 // Set to 1 to debug a parse error.
+
+JSNode *global = NULL;
+GList *line_missed_semicolon = NULL;
+
+static JSNode*
+node_new (int type, int arity)
+{
+ JSNode *node = g_object_new (JS_TYPE_NODE, NULL);
+ node->pn_type = type;
+ node->pn_arity = arity;
+
+ return node;
+}
+
+static void
+node_correct_position (JSNode *self, JSNode *inner)
+{
+ if (!self)
+ return;
+ if (!inner)
+ return;
+ if (!self->pn_pos.begin)
+ self->pn_pos.begin = inner->pn_pos.begin;
+ if (!self->pn_pos.end)
+ self->pn_pos.end = inner->pn_pos.end;
+ if (inner->pn_pos.begin && self->pn_pos.begin > inner->pn_pos.begin)
+ self->pn_pos.begin = inner->pn_pos.begin;
+ if (self->pn_pos.end < inner->pn_pos.end)
+ self->pn_pos.end = inner->pn_pos.end;
+}
+
+static int
+node_get_line (JSNode *self)
+{
+ if (!self)
+ return 0;
+ return self->pn_pos.end;
+}
+
+static void
+node_correct_position_end (JSNode *self, int end)
+{
+ if (!self->pn_pos.begin)
+ self->pn_pos.begin = end;
+ if (self->pn_pos.end < end)
+ self->pn_pos.end = end;
+}
+
+static void
+AUTO_SEMICOLON (int line)
+{
+ line_missed_semicolon = g_list_append (line_missed_semicolon, GINT_TO_POINTER (line));
+}
+
+#define PRINT_LINE /*printf("%s(%d)\n", __FILE__ , __LINE__)*/
+#define PRINT_LINE_TODO /*printf("TODO:%s(%d)\n", __FILE__ , __LINE__)*/
+#define PRINT_LINE_NOTNEED /*printf("NOTNEED:%s(%d)\n", __FILE__ , __LINE__)*/
+
+//#define YYPARSE_PARAM globalPtr
+//#define YYLEX_PARAM globalPtr
+
+
+
+/* Line 189 of yacc.c */
+#line 180 "./parser/y.tab.c"
+
+/* Enabling traces. */
+#ifndef YYDEBUG
+# define YYDEBUG 0
+#endif
+
+/* Enabling verbose error messages. */
+#ifdef YYERROR_VERBOSE
+# undef YYERROR_VERBOSE
+# define YYERROR_VERBOSE 1
+#else
+# define YYERROR_VERBOSE 0
+#endif
+
+/* Enabling the token table. */
+#ifndef YYTOKEN_TABLE
+# define YYTOKEN_TABLE 0
+#endif
+
+
+/* Tokens. */
+#ifndef YYTOKENTYPE
+# define YYTOKENTYPE
+ /* Put the tokens into the symbol table, so that GDB and other debuggers
+ know about them. */
+ enum yytokentype {
+ NULLTOKEN = 258,
+ TRUETOKEN = 259,
+ FALSETOKEN = 260,
+ BREAK = 261,
+ CASE = 262,
+ DEFAULT = 263,
+ FOR = 264,
+ NEW = 265,
+ VAR = 266,
+ CONSTTOKEN = 267,
+ CONTINUE = 268,
+ FUNCTION = 269,
+ RETURN = 270,
+ VOIDTOKEN = 271,
+ DELETETOKEN = 272,
+ IF = 273,
+ THISTOKEN = 274,
+ DO = 275,
+ WHILE = 276,
+ INTOKEN = 277,
+ INSTANCEOF = 278,
+ TYPEOF = 279,
+ SWITCH = 280,
+ WITH = 281,
+ RESERVED = 282,
+ THROW = 283,
+ TRY = 284,
+ CATCH = 285,
+ FINALLY = 286,
+ DEBUGGER = 287,
+ IF_WITHOUT_ELSE = 288,
+ ELSE = 289,
+ EQEQ = 290,
+ NE = 291,
+ STREQ = 292,
+ STRNEQ = 293,
+ LE = 294,
+ GE = 295,
+ OR = 296,
+ AND = 297,
+ PLUSPLUS = 298,
+ MINUSMINUS = 299,
+ LSHIFT = 300,
+ RSHIFT = 301,
+ URSHIFT = 302,
+ PLUSEQUAL = 303,
+ MINUSEQUAL = 304,
+ MULTEQUAL = 305,
+ DIVEQUAL = 306,
+ LSHIFTEQUAL = 307,
+ RSHIFTEQUAL = 308,
+ URSHIFTEQUAL = 309,
+ ANDEQUAL = 310,
+ MODEQUAL = 311,
+ XOREQUAL = 312,
+ OREQUAL = 313,
+ OPENBRACE = 314,
+ CLOSEBRACE = 315,
+ IDENT_IN = 316,
+ NUMBER = 317,
+ STRING = 318,
+ AUTOPLUSPLUS = 319,
+ AUTOMINUSMINUS = 320
+ };
+#endif
+
+
+
+#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
+typedef union YYSTYPE
+{
+
+/* Line 214 of yacc.c */
+#line 109 "./parser/Grammar.y"
+
+ int intValue;
+ JSNode* node;
+ struct {
+ char *iname;
+ JSTokenPos pos;
+ } name;
+
+
+
+/* Line 214 of yacc.c */
+#line 292 "./parser/y.tab.c"
+} YYSTYPE;
+# define YYSTYPE_IS_TRIVIAL 1
+# define yystype YYSTYPE /* obsolescent; will be withdrawn */
+# define YYSTYPE_IS_DECLARED 1
+#endif
+
+#ifndef YYPUSH_DECLS
+# define YYPUSH_DECLS
+struct yypstate;
+typedef struct yypstate yypstate;
+enum { YYPUSH_MORE = 4 };
+
+#if defined __STDC__ || defined __cplusplus
+int yyparse (void);
+#else
+int yyparse ();
+#endif
+#if defined __STDC__ || defined __cplusplus
+int yypush_parse (yypstate *yyps, int yypushed_char, YYSTYPE const *yypushed_val);
+#else
+int yypush_parse ();
+#endif
+#if defined __STDC__ || defined __cplusplus
+int yypull_parse (yypstate *yyps);
+#else
+int yypull_parse ();
+#endif
+#if defined __STDC__ || defined __cplusplus
+yypstate * yypstate_new (void);
+#else
+yypstate * yypstate_new ();
+#endif
+#if defined __STDC__ || defined __cplusplus
+void yypstate_delete (yypstate *yyps);
+#else
+void yypstate_delete ();
+#endif
+#endif
+
+
+/* Copy the second part of user declarations. */
+
+
+/* Line 264 of yacc.c */
+#line 337 "./parser/y.tab.c"
+
+#ifdef short
+# undef short
+#endif
+
+#ifdef YYTYPE_UINT8
+typedef YYTYPE_UINT8 yytype_uint8;
+#else
+typedef unsigned char yytype_uint8;
+#endif
+
+#ifdef YYTYPE_INT8
+typedef YYTYPE_INT8 yytype_int8;
+#elif (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+typedef signed char yytype_int8;
+#else
+typedef short int yytype_int8;
+#endif
+
+#ifdef YYTYPE_UINT16
+typedef YYTYPE_UINT16 yytype_uint16;
+#else
+typedef unsigned short int yytype_uint16;
+#endif
+
+#ifdef YYTYPE_INT16
+typedef YYTYPE_INT16 yytype_int16;
+#else
+typedef short int yytype_int16;
+#endif
+
+#ifndef YYSIZE_T
+# ifdef __SIZE_TYPE__
+# define YYSIZE_T __SIZE_TYPE__
+# elif defined size_t
+# define YYSIZE_T size_t
+# elif ! defined YYSIZE_T && (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+# include <stddef.h> /* INFRINGES ON USER NAME SPACE */
+# define YYSIZE_T size_t
+# else
+# define YYSIZE_T unsigned int
+# endif
+#endif
+
+#define YYSIZE_MAXIMUM ((YYSIZE_T) -1)
+
+#ifndef YY_
+# if YYENABLE_NLS
+# if ENABLE_NLS
+# include <libintl.h> /* INFRINGES ON USER NAME SPACE */
+# define YY_(msgid) dgettext ("bison-runtime", msgid)
+# endif
+# endif
+# ifndef YY_
+# define YY_(msgid) msgid
+# endif
+#endif
+
+/* Suppress unused-variable warnings by "using" E. */
+#if ! defined lint || defined __GNUC__
+# define YYUSE(e) ((void) (e))
+#else
+# define YYUSE(e) /* empty */
+#endif
+
+/* Identity function, used to suppress warnings about constant conditions. */
+#ifndef lint
+# define YYID(n) (n)
+#else
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static int
+YYID (int yyi)
+#else
+static int
+YYID (yyi)
+ int yyi;
+#endif
+{
+ return yyi;
+}
+#endif
+
+#if ! defined yyoverflow || YYERROR_VERBOSE
+
+# ifdef YYSTACK_ALLOC
+ /* Pacify GCC's `empty if-body' warning. */
+# define YYSTACK_FREE(Ptr) do { /* empty */; } while (YYID (0))
+# ifndef YYSTACK_ALLOC_MAXIMUM
+ /* The OS might guarantee only one guard page at the bottom of the stack,
+ and a page size can be as small as 4096 bytes. So we cannot safely
+ invoke alloca (N) if N exceeds 4096. Use a slightly smaller number
+ to allow for a few compiler-allocated temporary stack slots. */
+# define YYSTACK_ALLOC_MAXIMUM 4032 /* reasonable circa 2006 */
+# endif
+# else
+# define YYSTACK_ALLOC YYMALLOC
+# define YYSTACK_FREE YYFREE
+# ifndef YYSTACK_ALLOC_MAXIMUM
+# define YYSTACK_ALLOC_MAXIMUM YYSIZE_MAXIMUM
+# endif
+# if (defined __cplusplus && ! defined _STDLIB_H \
+ && ! ((defined YYMALLOC || defined malloc) \
+ && (defined YYFREE || defined free)))
+# include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
+# ifndef _STDLIB_H
+# define _STDLIB_H 1
+# endif
+# endif
+# ifndef YYMALLOC
+# define YYMALLOC malloc
+# if ! defined malloc && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+void *malloc (YYSIZE_T); /* INFRINGES ON USER NAME SPACE */
+# endif
+# endif
+# ifndef YYFREE
+# define YYFREE free
+# if ! defined free && ! defined _STDLIB_H && (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+void free (void *); /* INFRINGES ON USER NAME SPACE */
+# endif
+# endif
+# endif
+#endif /* ! defined yyoverflow || YYERROR_VERBOSE */
+
+
+#if (! defined yyoverflow \
+ && (! defined __cplusplus \
+ || (defined YYSTYPE_IS_TRIVIAL && YYSTYPE_IS_TRIVIAL)))
+
+/* A type that is properly aligned for any stack member. */
+union yyalloc
+{
+ yytype_int16 yyss_alloc;
+ YYSTYPE yyvs_alloc;
+};
+
+/* The size of the maximum gap between one aligned stack and the next. */
+# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
+
+/* The size of an array large to enough to hold all stacks, each with
+ N elements. */
+# define YYSTACK_BYTES(N) \
+ ((N) * (sizeof (yytype_int16) + sizeof (YYSTYPE)) \
+ + YYSTACK_GAP_MAXIMUM)
+
+/* Copy COUNT objects from FROM to TO. The source and destination do
+ not overlap. */
+# ifndef YYCOPY
+# if defined __GNUC__ && 1 < __GNUC__
+# define YYCOPY(To, From, Count) \
+ __builtin_memcpy (To, From, (Count) * sizeof (*(From)))
+# else
+# define YYCOPY(To, From, Count) \
+ do \
+ { \
+ YYSIZE_T yyi; \
+ for (yyi = 0; yyi < (Count); yyi++) \
+ (To)[yyi] = (From)[yyi]; \
+ } \
+ while (YYID (0))
+# endif
+# endif
+
+/* Relocate STACK from its old location to the new one. The
+ local variables YYSIZE and YYSTACKSIZE give the old and new number of
+ elements in the stack, and YYPTR gives the new location of the
+ stack. Advance YYPTR to a properly aligned location for the next
+ stack. */
+# define YYSTACK_RELOCATE(Stack_alloc, Stack) \
+ do \
+ { \
+ YYSIZE_T yynewbytes; \
+ YYCOPY (&yyptr->Stack_alloc, Stack, yysize); \
+ Stack = &yyptr->Stack_alloc; \
+ yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
+ yyptr += yynewbytes / sizeof (*yyptr); \
+ } \
+ while (YYID (0))
+
+#endif
+
+/* YYFINAL -- State number of the termination state. */
+#define YYFINAL 207
+/* YYLAST -- Last index in YYTABLE. */
+#define YYLAST 1389
+
+/* YYNTOKENS -- Number of terminals. */
+#define YYNTOKENS 92
+/* YYNNTS -- Number of nonterminals. */
+#define YYNNTS 110
+/* YYNRULES -- Number of rules. */
+#define YYNRULES 335
+/* YYNRULES -- Number of states. */
+#define YYNSTATES 599
+
+/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */
+#define YYUNDEFTOK 2
+#define YYMAXUTOK 320
+
+#define YYTRANSLATE(YYX) \
+ ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
+
+/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX. */
+static const yytype_uint8 yytranslate[] =
+{
+ 0, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 82, 2, 2, 69, 87, 90, 2,
+ 78, 79, 71, 72, 75, 85, 76, 67, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 80, 91,
+ 88, 81, 89, 70, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 83, 77, 84, 68, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 73, 66, 74, 86, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
+ 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
+ 15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
+ 25, 26, 27, 28, 29, 30, 31, 32, 33, 34,
+ 35, 36, 37, 38, 39, 40, 41, 42, 43, 44,
+ 45, 46, 47, 48, 49, 50, 51, 52, 53, 54,
+ 55, 56, 57, 58, 59, 60, 61, 62, 63, 64,
+ 65
+};
+
+#if YYDEBUG
+/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
+ YYRHS. */
+static const yytype_uint16 yyprhs[] =
+{
+ 0, 0, 3, 5, 7, 11, 15, 20, 21, 24,
+ 26, 28, 31, 33, 35, 37, 40, 42, 44, 46,
+ 50, 55, 61, 63, 65, 68, 71, 73, 77, 83,
+ 89, 95, 97, 101, 106, 108, 110, 114, 117, 119,
+ 121, 123, 125, 127, 131, 135, 139, 147, 156, 158,
+ 162, 164, 167, 171, 176, 178, 180, 182, 184, 188,
+ 192, 196, 202, 205, 210, 211, 213, 215, 218, 220,
+ 222, 224, 229, 233, 237, 239, 244, 248, 252, 254,
+ 257, 259, 262, 265, 268, 273, 277, 280, 283, 288,
+ 292, 295, 299, 301, 305, 307, 309, 311, 313, 315,
+ 318, 321, 323, 326, 329, 332, 335, 338, 341, 344,
+ 347, 350, 353, 356, 359, 362, 364, 366, 368, 370,
+ 372, 376, 380, 384, 386, 390, 394, 398, 400, 404,
+ 408, 410, 414, 418, 420, 424, 428, 432, 434, 438,
+ 442, 446, 448, 452, 456, 460, 464, 468, 472, 474,
+ 478, 482, 486, 490, 494, 496, 500, 504, 508, 512,
+ 516, 520, 522, 526, 530, 534, 538, 540, 544, 548,
+ 552, 556, 558, 562, 566, 570, 574, 576, 580, 582,
+ 586, 588, 592, 594, 598, 600, 604, 606, 610, 612,
+ 616, 618, 622, 624, 628, 630, 634, 636, 640, 642,
+ 646, 648, 652, 654, 658, 660, 664, 666, 672, 674,
+ 680, 682, 688, 690, 694, 696, 700, 702, 706, 708,
+ 710, 712, 714, 716, 718, 720, 722, 724, 726, 728,
+ 730, 732, 736, 738, 742, 744, 748, 750, 752, 754,
+ 756, 758, 760, 762, 764, 766, 768, 770, 772, 774,
+ 776, 778, 780, 782, 785, 789, 793, 797, 799, 802,
+ 806, 811, 813, 816, 820, 825, 829, 833, 835, 839,
+ 841, 844, 847, 850, 852, 855, 858, 864, 872, 880,
+ 888, 894, 904, 915, 923, 932, 942, 943, 945, 946,
+ 948, 951, 954, 958, 962, 965, 968, 972, 976, 979,
+ 982, 986, 990, 996, 1002, 1006, 1012, 1013, 1015, 1017,
+ 1020, 1024, 1029, 1032, 1036, 1040, 1044, 1048, 1053, 1061,
+ 1071, 1074, 1077, 1085, 1094, 1101, 1109, 1117, 1126, 1128,
+ 1132, 1133, 1135, 1136, 1138, 1140
+};
+
+/* YYRHS -- A `-1'-separated list of the rules' RHS. */
+static const yytype_int16 yyrhs[] =
+{
+ 200, 0, -1, 61, -1, 96, -1, 96, 66, 94,
+ -1, 67, 94, 67, -1, 67, 94, 67, 93, -1,
+ -1, 96, 97, -1, 98, -1, 101, -1, 101, 99,
+ -1, 68, -1, 69, -1, 100, -1, 100, 70, -1,
+ 71, -1, 72, -1, 70, -1, 73, 62, 74, -1,
+ 73, 62, 75, 74, -1, 73, 62, 75, 62, 74,
+ -1, 102, -1, 76, -1, 77, 93, -1, 77, 76,
+ -1, 103, -1, 78, 94, 79, -1, 78, 70, 80,
+ 94, 79, -1, 78, 70, 81, 94, 79, -1, 78,
+ 70, 82, 94, 79, -1, 93, -1, 83, 104, 84,
+ -1, 83, 68, 104, 84, -1, 62, -1, 93, -1,
+ 104, 85, 104, -1, 104, 104, -1, 3, -1, 4,
+ -1, 5, -1, 62, -1, 63, -1, 93, 80, 159,
+ -1, 63, 80, 159, -1, 62, 80, 159, -1, 93,
+ 93, 78, 79, 59, 199, 60, -1, 93, 93, 78,
+ 198, 79, 59, 199, 60, -1, 106, -1, 107, 75,
+ 106, -1, 109, -1, 59, 60, -1, 59, 107, 60,
+ -1, 59, 107, 75, 60, -1, 19, -1, 105, -1,
+ 110, -1, 93, -1, 78, 163, 79, -1, 83, 112,
+ 84, -1, 83, 111, 84, -1, 83, 111, 75, 112,
+ 84, -1, 112, 159, -1, 111, 75, 112, 159, -1,
+ -1, 113, -1, 75, -1, 113, 75, -1, 108, -1,
+ 95, -1, 197, -1, 114, 83, 163, 84, -1, 114,
+ 76, 93, -1, 10, 114, 120, -1, 109, -1, 115,
+ 83, 163, 84, -1, 115, 76, 93, -1, 10, 114,
+ 120, -1, 114, -1, 10, 116, -1, 115, -1, 10,
+ 116, -1, 114, 120, -1, 118, 120, -1, 118, 83,
+ 163, 84, -1, 118, 76, 93, -1, 115, 120, -1,
+ 119, 120, -1, 119, 83, 163, 84, -1, 119, 76,
+ 93, -1, 78, 79, -1, 78, 121, 79, -1, 159,
+ -1, 121, 75, 159, -1, 116, -1, 118, -1, 117,
+ -1, 119, -1, 122, -1, 122, 43, -1, 122, 44,
+ -1, 123, -1, 123, 43, -1, 123, 44, -1, 17,
+ 127, -1, 16, 127, -1, 24, 127, -1, 43, 127,
+ -1, 64, 127, -1, 44, 127, -1, 65, 127, -1,
+ 72, 127, -1, 85, 127, -1, 86, 127, -1, 82,
+ 127, -1, 124, -1, 126, -1, 125, -1, 126, -1,
+ 127, -1, 129, 71, 127, -1, 129, 67, 127, -1,
+ 129, 87, 127, -1, 128, -1, 130, 71, 127, -1,
+ 130, 67, 127, -1, 130, 87, 127, -1, 129, -1,
+ 131, 72, 129, -1, 131, 85, 129, -1, 130, -1,
+ 132, 72, 129, -1, 132, 85, 129, -1, 131, -1,
+ 133, 45, 131, -1, 133, 46, 131, -1, 133, 47,
+ 131, -1, 132, -1, 134, 45, 131, -1, 134, 46,
+ 131, -1, 134, 47, 131, -1, 133, -1, 135, 88,
+ 133, -1, 135, 89, 133, -1, 135, 39, 133, -1,
+ 135, 40, 133, -1, 135, 23, 133, -1, 135, 22,
+ 133, -1, 133, -1, 136, 88, 133, -1, 136, 89,
+ 133, -1, 136, 39, 133, -1, 136, 40, 133, -1,
+ 136, 23, 133, -1, 134, -1, 137, 88, 133, -1,
+ 137, 89, 133, -1, 137, 39, 133, -1, 137, 40,
+ 133, -1, 137, 23, 133, -1, 137, 22, 133, -1,
+ 135, -1, 138, 35, 135, -1, 138, 36, 135, -1,
+ 138, 37, 135, -1, 138, 38, 135, -1, 136, -1,
+ 139, 35, 136, -1, 139, 36, 136, -1, 139, 37,
+ 136, -1, 139, 38, 136, -1, 137, -1, 140, 35,
+ 135, -1, 140, 36, 135, -1, 140, 37, 135, -1,
+ 140, 38, 135, -1, 138, -1, 141, 90, 138, -1,
+ 139, -1, 142, 90, 139, -1, 140, -1, 143, 90,
+ 138, -1, 141, -1, 144, 68, 141, -1, 142, -1,
+ 145, 68, 142, -1, 143, -1, 146, 68, 141, -1,
+ 144, -1, 147, 66, 144, -1, 145, -1, 148, 66,
+ 145, -1, 146, -1, 149, 66, 144, -1, 147, -1,
+ 150, 42, 147, -1, 148, -1, 151, 42, 148, -1,
+ 149, -1, 152, 42, 147, -1, 150, -1, 153, 41,
+ 150, -1, 151, -1, 154, 41, 151, -1, 152, -1,
+ 155, 41, 150, -1, 153, -1, 153, 70, 159, 80,
+ 159, -1, 154, -1, 154, 70, 160, 80, 160, -1,
+ 155, -1, 155, 70, 159, 80, 159, -1, 156, -1,
+ 122, 162, 159, -1, 157, -1, 122, 162, 160, -1,
+ 158, -1, 123, 162, 159, -1, 81, -1, 48, -1,
+ 49, -1, 50, -1, 51, -1, 52, -1, 53, -1,
+ 54, -1, 55, -1, 57, -1, 58, -1, 56, -1,
+ 159, -1, 163, 75, 159, -1, 160, -1, 164, 75,
+ 160, -1, 161, -1, 165, 75, 159, -1, 167, -1,
+ 168, -1, 171, -1, 196, -1, 176, -1, 177, -1,
+ 178, -1, 179, -1, 182, -1, 183, -1, 184, -1,
+ 185, -1, 186, -1, 192, -1, 193, -1, 194, -1,
+ 195, -1, 59, 60, -1, 59, 201, 60, -1, 11,
+ 169, 91, -1, 11, 169, 1, -1, 93, -1, 93,
+ 174, -1, 169, 75, 93, -1, 169, 75, 93, 174,
+ -1, 93, -1, 93, 175, -1, 170, 75, 93, -1,
+ 170, 75, 93, 175, -1, 12, 172, 91, -1, 12,
+ 172, 1, -1, 173, -1, 172, 75, 173, -1, 93,
+ -1, 93, 174, -1, 81, 159, -1, 81, 160, -1,
+ 91, -1, 165, 91, -1, 165, 1, -1, 18, 78,
+ 163, 79, 166, -1, 18, 78, 163, 79, 166, 34,
+ 166, -1, 20, 166, 21, 78, 163, 79, 91, -1,
+ 20, 166, 21, 78, 163, 79, 1, -1, 21, 78,
+ 163, 79, 166, -1, 9, 78, 181, 91, 180, 91,
+ 180, 79, 166, -1, 9, 78, 11, 170, 91, 180,
+ 91, 180, 79, 166, -1, 9, 78, 122, 22, 163,
+ 79, 166, -1, 9, 78, 11, 93, 22, 163, 79,
+ 166, -1, 9, 78, 11, 93, 175, 22, 163, 79,
+ 166, -1, -1, 163, -1, -1, 164, -1, 13, 91,
+ -1, 13, 1, -1, 13, 93, 91, -1, 13, 93,
+ 1, -1, 6, 91, -1, 6, 1, -1, 6, 93,
+ 91, -1, 6, 93, 1, -1, 15, 91, -1, 15,
+ 1, -1, 15, 163, 91, -1, 15, 163, 1, -1,
+ 26, 78, 163, 79, 166, -1, 25, 78, 163, 79,
+ 187, -1, 59, 188, 60, -1, 59, 188, 191, 188,
+ 60, -1, -1, 189, -1, 190, -1, 189, 190, -1,
+ 7, 163, 80, -1, 7, 163, 80, 201, -1, 8,
+ 80, -1, 8, 80, 201, -1, 93, 80, 166, -1,
+ 28, 163, 91, -1, 28, 163, 1, -1, 29, 167,
+ 31, 167, -1, 29, 167, 30, 78, 93, 79, 167,
+ -1, 29, 167, 30, 78, 93, 79, 167, 31, 167,
+ -1, 32, 91, -1, 32, 1, -1, 14, 93, 78,
+ 79, 59, 199, 60, -1, 14, 93, 78, 198, 79,
+ 59, 199, 60, -1, 14, 78, 79, 59, 199, 60,
+ -1, 14, 78, 198, 79, 59, 199, 60, -1, 14,
+ 93, 78, 79, 59, 199, 60, -1, 14, 93, 78,
+ 198, 79, 59, 199, 60, -1, 93, -1, 198, 75,
+ 93, -1, -1, 201, -1, -1, 201, -1, 166, -1,
+ 201, 166, -1
+};
+
+/* YYRLINE[YYN] -- source line where rule number YYN was defined. */
+static const yytype_uint16 yyrline[] =
+{
+ 0, 215, 215, 219, 220, 224, 225, 229, 230, 234,
+ 235, 236, 240, 241, 246, 247, 251, 252, 253, 254,
+ 255, 256, 260, 261, 262, 263, 264, 265, 266, 267,
+ 268, 272, 276, 277, 281, 282, 283, 284, 288, 289,
+ 290, 291, 292, 296, 303, 309, 315, 316, 321, 326,
+ 340, 341, 342, 347, 354, 355, 356, 357, 358, 362,
+ 363, 364, 368, 369, 374, 375, 379, 380, 384, 385,
+ 386, 387, 388, 395, 405, 406, 407, 414, 418, 419,
+ 423, 424, 428, 435, 442, 443, 453, 460, 467, 468,
+ 478, 479, 483, 484, 493, 494, 498, 499, 503, 504,
+ 505, 509, 510, 511, 515, 516, 517, 518, 519, 520,
+ 521, 522, 523, 524, 525, 528, 529, 533, 534, 538,
+ 539, 540, 541, 545, 546, 548, 550, 555, 556, 557,
+ 561, 562, 564, 569, 570, 571, 572, 576, 577, 578,
+ 579, 583, 584, 585, 586, 587, 588, 589, 593, 594,
+ 595, 596, 597, 598, 603, 604, 605, 606, 607, 608,
+ 610, 615, 616, 617, 618, 619, 623, 624, 626, 628,
+ 630, 635, 636, 638, 639, 641, 646, 647, 651, 652,
+ 657, 658, 662, 663, 667, 668, 673, 674, 679, 680,
+ 684, 685, 690, 691, 696, 697, 701, 702, 707, 708,
+ 713, 714, 718, 719, 724, 725, 729, 730, 735, 736,
+ 741, 742, 747, 748, 759, 760, 771, 772, 783, 784,
+ 785, 786, 787, 788, 789, 790, 791, 792, 793, 794,
+ 798, 799, 803, 804, 808, 809, 813, 814, 815, 816,
+ 817, 818, 819, 820, 821, 822, 823, 824, 825, 826,
+ 827, 828, 829, 833, 838, 847, 848, 852, 857, 864,
+ 874, 889, 894, 901, 903, 908, 909, 914, 919, 932,
+ 933, 941, 945, 949, 953, 954, 958, 960, 965, 966,
+ 967, 968, 970, 972, 974, 976, 981, 982, 986, 987,
+ 991, 992, 993, 994, 998, 999, 1000, 1001, 1005, 1006,
+ 1007, 1012, 1021, 1025, 1029, 1030, 1035, 1036, 1040, 1041,
+ 1045, 1046, 1050, 1051, 1055, 1059, 1060, 1064, 1065, 1066,
+ 1071, 1072, 1076, 1085, 1099, 1107, 1117, 1126, 1140, 1145,
+ 1159, 1160, 1164, 1165, 1169, 1174
+};
+#endif
+
+#if YYDEBUG || YYERROR_VERBOSE || YYTOKEN_TABLE
+/* YYTNAME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
+ First, the terminals, then, starting at YYNTOKENS, nonterminals. */
+static const char *const yytname[] =
+{
+ "$end", "error", "$undefined", "NULLTOKEN", "TRUETOKEN", "FALSETOKEN",
+ "BREAK", "CASE", "DEFAULT", "FOR", "NEW", "VAR", "CONSTTOKEN",
+ "CONTINUE", "FUNCTION", "RETURN", "VOIDTOKEN", "DELETETOKEN", "IF",
+ "THISTOKEN", "DO", "WHILE", "INTOKEN", "INSTANCEOF", "TYPEOF", "SWITCH",
+ "WITH", "RESERVED", "THROW", "TRY", "CATCH", "FINALLY", "DEBUGGER",
+ "IF_WITHOUT_ELSE", "ELSE", "EQEQ", "NE", "STREQ", "STRNEQ", "LE", "GE",
+ "OR", "AND", "PLUSPLUS", "MINUSMINUS", "LSHIFT", "RSHIFT", "URSHIFT",
+ "PLUSEQUAL", "MINUSEQUAL", "MULTEQUAL", "DIVEQUAL", "LSHIFTEQUAL",
+ "RSHIFTEQUAL", "URSHIFTEQUAL", "ANDEQUAL", "MODEQUAL", "XOREQUAL",
+ "OREQUAL", "OPENBRACE", "CLOSEBRACE", "IDENT_IN", "NUMBER", "STRING",
+ "AUTOPLUSPLUS", "AUTOMINUSMINUS", "'|'", "'/'", "'^'", "'$'", "'?'",
+ "'*'", "'+'", "'{'", "'}'", "','", "'.'", "'\\\\'", "'('", "')'", "':'",
+ "'='", "'!'", "'['", "']'", "'-'", "'~'", "'%'", "'<'", "'>'", "'&'",
+ "';'", "$accept", "IDENT", "Disjunction", "RegExp", "Alternative",
+ "Term", "Assertion", "Quantifier", "QuantifierPrefix", "RAtom",
+ "PatternCharacter", "CharacterClass", "ClassRanges", "Literal",
+ "Property", "PropertyList", "PrimaryExpr", "PrimaryExprNoBrace",
+ "ArrayLiteral", "ElementList", "ElisionOpt", "Elision", "MemberExpr",
+ "MemberExprNoBF", "NewExpr", "NewExprNoBF", "CallExpr", "CallExprNoBF",
+ "Arguments", "ArgumentList", "LeftHandSideExpr", "LeftHandSideExprNoBF",
+ "PostfixExpr", "PostfixExprNoBF", "UnaryExprCommon", "UnaryExpr",
+ "UnaryExprNoBF", "MultiplicativeExpr", "MultiplicativeExprNoBF",
+ "AdditiveExpr", "AdditiveExprNoBF", "ShiftExpr", "ShiftExprNoBF",
+ "RelationalExpr", "RelationalExprNoIn", "RelationalExprNoBF",
+ "EqualityExpr", "EqualityExprNoIn", "EqualityExprNoBF", "BitwiseANDExpr",
+ "BitwiseANDExprNoIn", "BitwiseANDExprNoBF", "BitwiseXORExpr",
+ "BitwiseXORExprNoIn", "BitwiseXORExprNoBF", "BitwiseORExpr",
+ "BitwiseORExprNoIn", "BitwiseORExprNoBF", "LogicalANDExpr",
+ "LogicalANDExprNoIn", "LogicalANDExprNoBF", "LogicalORExpr",
+ "LogicalORExprNoIn", "LogicalORExprNoBF", "ConditionalExpr",
+ "ConditionalExprNoIn", "ConditionalExprNoBF", "AssignmentExpr",
+ "AssignmentExprNoIn", "AssignmentExprNoBF", "AssignmentOperator", "Expr",
+ "ExprNoIn", "ExprNoBF", "Statement", "Block", "VariableStatement",
+ "VariableDeclarationList", "VariableDeclarationListNoIn",
+ "ConstStatement", "ConstDeclarationList", "ConstDeclaration",
+ "Initializer", "InitializerNoIn", "EmptyStatement", "ExprStatement",
+ "IfStatement", "IterationStatement", "ExprOpt", "ExprNoInOpt",
+ "ContinueStatement", "BreakStatement", "ReturnStatement",
+ "WithStatement", "SwitchStatement", "CaseBlock", "CaseClausesOpt",
+ "CaseClauses", "CaseClause", "DefaultClause", "LabelledStatement",
+ "ThrowStatement", "TryStatement", "DebuggerStatement",
+ "FunctionDeclaration", "FunctionExpr", "FormalParameterList",
+ "FunctionBody", "Program", "SourceElements", 0
+};
+#endif
+
+# ifdef YYPRINT
+/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to
+ token YYLEX-NUM. */
+static const yytype_uint16 yytoknum[] =
+{
+ 0, 256, 257, 258, 259, 260, 261, 262, 263, 264,
+ 265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
+ 275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
+ 285, 286, 287, 288, 289, 290, 291, 292, 293, 294,
+ 295, 296, 297, 298, 299, 300, 301, 302, 303, 304,
+ 305, 306, 307, 308, 309, 310, 311, 312, 313, 314,
+ 315, 316, 317, 318, 319, 320, 124, 47, 94, 36,
+ 63, 42, 43, 123, 125, 44, 46, 92, 40, 41,
+ 58, 61, 33, 91, 93, 45, 126, 37, 60, 62,
+ 38, 59
+};
+# endif
+
+/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
+static const yytype_uint8 yyr1[] =
+{
+ 0, 92, 93, 94, 94, 95, 95, 96, 96, 97,
+ 97, 97, 98, 98, 99, 99, 100, 100, 100, 100,
+ 100, 100, 101, 101, 101, 101, 101, 101, 101, 101,
+ 101, 102, 103, 103, 104, 104, 104, 104, 105, 105,
+ 105, 105, 105, 106, 106, 106, 106, 106, 107, 107,
+ 108, 108, 108, 108, 109, 109, 109, 109, 109, 110,
+ 110, 110, 111, 111, 112, 112, 113, 113, 114, 114,
+ 114, 114, 114, 114, 115, 115, 115, 115, 116, 116,
+ 117, 117, 118, 118, 118, 118, 119, 119, 119, 119,
+ 120, 120, 121, 121, 122, 122, 123, 123, 124, 124,
+ 124, 125, 125, 125, 126, 126, 126, 126, 126, 126,
+ 126, 126, 126, 126, 126, 127, 127, 128, 128, 129,
+ 129, 129, 129, 130, 130, 130, 130, 131, 131, 131,
+ 132, 132, 132, 133, 133, 133, 133, 134, 134, 134,
+ 134, 135, 135, 135, 135, 135, 135, 135, 136, 136,
+ 136, 136, 136, 136, 137, 137, 137, 137, 137, 137,
+ 137, 138, 138, 138, 138, 138, 139, 139, 139, 139,
+ 139, 140, 140, 140, 140, 140, 141, 141, 142, 142,
+ 143, 143, 144, 144, 145, 145, 146, 146, 147, 147,
+ 148, 148, 149, 149, 150, 150, 151, 151, 152, 152,
+ 153, 153, 154, 154, 155, 155, 156, 156, 157, 157,
+ 158, 158, 159, 159, 160, 160, 161, 161, 162, 162,
+ 162, 162, 162, 162, 162, 162, 162, 162, 162, 162,
+ 163, 163, 164, 164, 165, 165, 166, 166, 166, 166,
+ 166, 166, 166, 166, 166, 166, 166, 166, 166, 166,
+ 166, 166, 166, 167, 167, 168, 168, 169, 169, 169,
+ 169, 170, 170, 170, 170, 171, 171, 172, 172, 173,
+ 173, 174, 175, 176, 177, 177, 178, 178, 179, 179,
+ 179, 179, 179, 179, 179, 179, 180, 180, 181, 181,
+ 182, 182, 182, 182, 183, 183, 183, 183, 184, 184,
+ 184, 184, 185, 186, 187, 187, 188, 188, 189, 189,
+ 190, 190, 191, 191, 192, 193, 193, 194, 194, 194,
+ 195, 195, 196, 196, 197, 197, 197, 197, 198, 198,
+ 199, 199, 200, 200, 201, 201
+};
+
+/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */
+static const yytype_uint8 yyr2[] =
+{
+ 0, 2, 1, 1, 3, 3, 4, 0, 2, 1,
+ 1, 2, 1, 1, 1, 2, 1, 1, 1, 3,
+ 4, 5, 1, 1, 2, 2, 1, 3, 5, 5,
+ 5, 1, 3, 4, 1, 1, 3, 2, 1, 1,
+ 1, 1, 1, 3, 3, 3, 7, 8, 1, 3,
+ 1, 2, 3, 4, 1, 1, 1, 1, 3, 3,
+ 3, 5, 2, 4, 0, 1, 1, 2, 1, 1,
+ 1, 4, 3, 3, 1, 4, 3, 3, 1, 2,
+ 1, 2, 2, 2, 4, 3, 2, 2, 4, 3,
+ 2, 3, 1, 3, 1, 1, 1, 1, 1, 2,
+ 2, 1, 2, 2, 2, 2, 2, 2, 2, 2,
+ 2, 2, 2, 2, 2, 1, 1, 1, 1, 1,
+ 3, 3, 3, 1, 3, 3, 3, 1, 3, 3,
+ 1, 3, 3, 1, 3, 3, 3, 1, 3, 3,
+ 3, 1, 3, 3, 3, 3, 3, 3, 1, 3,
+ 3, 3, 3, 3, 1, 3, 3, 3, 3, 3,
+ 3, 1, 3, 3, 3, 3, 1, 3, 3, 3,
+ 3, 1, 3, 3, 3, 3, 1, 3, 1, 3,
+ 1, 3, 1, 3, 1, 3, 1, 3, 1, 3,
+ 1, 3, 1, 3, 1, 3, 1, 3, 1, 3,
+ 1, 3, 1, 3, 1, 3, 1, 5, 1, 5,
+ 1, 5, 1, 3, 1, 3, 1, 3, 1, 1,
+ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+ 1, 3, 1, 3, 1, 3, 1, 1, 1, 1,
+ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+ 1, 1, 1, 2, 3, 3, 3, 1, 2, 3,
+ 4, 1, 2, 3, 4, 3, 3, 1, 3, 1,
+ 2, 2, 2, 1, 2, 2, 5, 7, 7, 7,
+ 5, 9, 10, 7, 8, 9, 0, 1, 0, 1,
+ 2, 2, 3, 3, 2, 2, 3, 3, 2, 2,
+ 3, 3, 5, 5, 3, 5, 0, 1, 1, 2,
+ 3, 4, 2, 3, 3, 3, 3, 4, 7, 9,
+ 2, 2, 7, 8, 6, 7, 7, 8, 1, 3,
+ 0, 1, 0, 1, 1, 2
+};
+
+/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state
+ STATE-NUM when YYTABLE doesn't specify something else to do. Zero
+ means the default is an error. */
+static const yytype_uint16 yydefact[] =
+{
+ 332, 38, 39, 40, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 54, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 2, 41, 42,
+ 0, 0, 0, 0, 0, 64, 0, 0, 273, 57,
+ 55, 74, 56, 80, 96, 97, 101, 117, 118, 123,
+ 130, 137, 154, 171, 180, 186, 192, 198, 204, 210,
+ 216, 234, 0, 334, 236, 237, 238, 240, 241, 242,
+ 243, 244, 245, 246, 247, 248, 249, 250, 251, 252,
+ 239, 0, 333, 295, 294, 0, 288, 0, 0, 0,
+ 7, 57, 69, 68, 50, 78, 81, 70, 257, 0,
+ 269, 0, 267, 291, 290, 0, 0, 299, 298, 78,
+ 94, 95, 98, 115, 116, 119, 127, 133, 141, 161,
+ 176, 182, 188, 194, 200, 206, 212, 230, 0, 98,
+ 105, 104, 0, 0, 0, 106, 0, 0, 0, 0,
+ 321, 320, 107, 109, 253, 0, 108, 110, 111, 0,
+ 114, 66, 0, 0, 65, 112, 113, 0, 0, 0,
+ 0, 86, 0, 0, 87, 102, 103, 219, 220, 221,
+ 222, 223, 224, 225, 226, 229, 227, 228, 218, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 275, 0, 274, 1, 335, 297,
+ 296, 0, 98, 148, 166, 178, 184, 190, 196, 202,
+ 208, 214, 232, 289, 0, 78, 79, 0, 0, 51,
+ 0, 0, 0, 48, 0, 0, 3, 0, 0, 77,
+ 0, 258, 256, 0, 255, 270, 266, 0, 265, 293,
+ 292, 0, 82, 0, 0, 83, 99, 100, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 301, 0, 300, 0, 0, 0, 0,
+ 0, 316, 315, 0, 0, 254, 58, 64, 60, 59,
+ 62, 67, 314, 76, 90, 0, 92, 0, 89, 0,
+ 217, 125, 124, 126, 131, 132, 138, 139, 140, 160,
+ 159, 157, 158, 155, 156, 172, 173, 174, 175, 181,
+ 187, 193, 199, 205, 0, 235, 261, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 286, 73, 0, 328,
+ 0, 0, 0, 0, 0, 0, 52, 0, 5, 7,
+ 12, 13, 23, 0, 7, 0, 31, 8, 9, 10,
+ 22, 26, 72, 0, 271, 259, 268, 0, 0, 85,
+ 0, 213, 121, 120, 122, 128, 129, 134, 135, 136,
+ 147, 146, 144, 145, 142, 143, 162, 163, 164, 165,
+ 177, 183, 189, 195, 201, 0, 231, 0, 0, 0,
+ 0, 0, 0, 317, 0, 0, 91, 75, 88, 0,
+ 0, 0, 262, 0, 286, 0, 98, 215, 153, 151,
+ 152, 149, 150, 167, 168, 169, 170, 179, 185, 191,
+ 197, 203, 0, 233, 287, 0, 330, 0, 0, 0,
+ 0, 45, 44, 43, 0, 53, 49, 6, 4, 25,
+ 24, 0, 0, 34, 0, 35, 0, 18, 16, 17,
+ 0, 11, 14, 71, 260, 330, 0, 84, 0, 276,
+ 0, 280, 306, 303, 302, 0, 61, 63, 93, 211,
+ 0, 272, 0, 263, 0, 0, 0, 286, 0, 331,
+ 329, 330, 330, 0, 0, 0, 7, 7, 7, 27,
+ 0, 32, 0, 37, 0, 15, 0, 330, 207, 0,
+ 0, 0, 0, 307, 308, 0, 0, 0, 264, 286,
+ 283, 209, 0, 324, 0, 0, 330, 330, 0, 0,
+ 0, 0, 33, 36, 19, 0, 322, 0, 277, 279,
+ 278, 0, 0, 304, 306, 309, 318, 284, 0, 0,
+ 0, 325, 326, 0, 0, 330, 28, 29, 30, 0,
+ 20, 323, 310, 312, 0, 0, 285, 0, 281, 327,
+ 46, 0, 21, 311, 313, 305, 319, 282, 47
+};
+
+/* YYDEFGOTO[NTERM-NUM]. */
+static const yytype_int16 yydefgoto[] =
+{
+ -1, 91, 235, 92, 236, 377, 378, 481, 482, 379,
+ 380, 381, 523, 40, 233, 234, 93, 94, 42, 152,
+ 153, 154, 109, 43, 110, 44, 111, 45, 161, 305,
+ 129, 46, 113, 47, 114, 115, 49, 116, 50, 117,
+ 51, 118, 52, 119, 214, 53, 120, 215, 54, 121,
+ 216, 55, 122, 217, 56, 123, 218, 57, 124, 219,
+ 58, 125, 220, 59, 126, 221, 60, 127, 222, 61,
+ 339, 454, 223, 62, 63, 64, 65, 99, 337, 66,
+ 101, 102, 241, 432, 67, 68, 69, 70, 455, 224,
+ 71, 72, 73, 74, 75, 493, 532, 533, 534, 564,
+ 76, 77, 78, 79, 80, 97, 360, 508, 81, 509
+};
+
+/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
+ STATE-NUM. */
+#define YYPACT_NINF -423
+static const yytype_int16 yypact[] =
+{
+ 1073, -423, -423, -423, 5, -33, 367, -6, -6, 23,
+ -6, 260, 1303, 1303, 16, -423, 1073, 20, 1303, 85,
+ 116, 1303, 137, 18, 1303, 1303, 842, -423, -423, -423,
+ 1303, 1303, 1303, 1303, 1303, 138, 1303, 1303, -423, 175,
+ -423, -423, -423, 218, -423, 219, 440, -423, -423, -423,
+ 10, 114, 312, 150, 368, 151, 190, 209, 230, -21,
+ -423, -423, 12, -423, -423, -423, -423, -423, -423, -423,
+ -423, -423, -423, -423, -423, -423, -423, -423, -423, -423,
+ -423, 282, 1073, -423, -423, 35, 719, 367, 127, 347,
+ -423, -423, -423, -423, -423, 235, -423, -423, 211, 24,
+ 211, 31, -423, -423, -423, 36, 239, -423, -423, 235,
+ -423, 250, 886, -423, -423, -423, 94, 121, 420, 178,
+ 376, 249, 280, 263, 340, 13, -423, -423, 43, 271,
+ -423, -423, 1303, 370, 1303, -423, 1303, 1303, 46, -8,
+ -423, -423, -423, -423, -423, 984, -423, -423, -423, 177,
+ -423, -423, 132, 1104, 290, -423, -423, 1073, -6, 1188,
+ 1303, -423, -6, 1303, -423, -423, -423, -423, -423, -423,
+ -423, -423, -423, -423, -423, -423, -423, -423, -423, 1303,
+ 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303,
+ 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303,
+ 1303, 1303, 1303, 1303, -423, 1303, -423, -423, -423, -423,
+ -423, -6, 344, 420, 19, 402, 325, 348, 352, 378,
+ 78, -423, -423, 356, 332, 235, -423, -18, 349, -423,
+ 355, 366, 25, -423, 135, 365, 286, -6, 1303, -423,
+ 1303, -423, -423, -6, -423, -423, -423, -6, -423, -423,
+ -423, 95, -423, -6, 1303, -423, -423, -423, 1303, 1303,
+ 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303,
+ 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303,
+ 1303, 1303, 1303, -423, 1303, -423, 194, 384, 206, 214,
+ 241, -423, -423, 385, 137, -423, -423, 138, -423, -423,
+ -423, -423, -423, -423, -423, 255, -423, 165, -423, 173,
+ -423, -423, -423, -423, 94, 94, 121, 121, 121, 420,
+ 420, 420, 420, 420, 420, 178, 178, 178, 178, 376,
+ 249, 280, 263, 340, 388, -423, 9, 117, 1303, 1303,
+ 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303, 1303,
+ 1303, 1303, 1303, 1303, 1303, 1303, 1303, -423, 389, -423,
+ 256, 99, 1303, 1303, 1303, 391, -423, 381, -6, -423,
+ -423, -423, -423, 136, 400, 244, -423, -423, -423, 382,
+ -423, -423, -423, 184, -423, 211, -423, 412, 261, -423,
+ 196, -423, -423, -423, -423, 94, 94, 121, 121, 121,
+ 420, 420, 420, 420, 420, 420, 178, 178, 178, 178,
+ 376, 249, 280, 263, 340, 392, -423, 1073, 1303, 1073,
+ 414, 1073, -6, -423, 1219, 1303, -423, -423, -423, 1303,
+ 1303, 1303, 453, -6, 1303, 262, 886, -423, 420, 420,
+ 420, 420, 420, 19, 19, 19, 19, 402, 325, 348,
+ 352, 378, 397, -423, 403, 390, 1073, -6, 421, 423,
+ 274, -423, -423, -423, 119, -423, -423, -423, -423, -423,
+ -423, 153, 408, -423, 323, -423, 92, -423, -423, -423,
+ 417, -423, 429, -423, -423, 1073, 441, -423, 1303, 467,
+ 281, -423, 495, -423, -423, 424, -423, -423, -423, -423,
+ 299, -423, 1303, 425, 413, 1073, 1303, 1303, 447, 1073,
+ -423, 1073, 1073, 451, 454, 301, -423, -423, -423, -423,
+ 161, -423, 323, 106, 315, -423, 457, 1073, -423, 1073,
+ 37, 1303, 70, 495, -423, 137, 1073, 304, -423, 1303,
+ -423, -423, 446, -423, 459, 466, 1073, 1073, 469, 452,
+ 455, 461, -423, 106, -423, 188, -423, 470, -423, -423,
+ -423, 75, 458, -423, 495, -423, 501, -423, 1073, 464,
+ 1073, -423, -423, 473, 484, 1073, -423, -423, -423, 474,
+ -423, -423, 1073, 1073, 489, 137, -423, 1073, -423, -423,
+ -423, 491, -423, 1073, 1073, -423, -423, -423, -423
+};
+
+/* YYPGOTO[NTERM-NUM]. */
+static const yytype_int16 yypgoto[] =
+{
+ -423, 0, -334, -423, -423, -423, -423, -423, -423, -423,
+ -423, -423, -370, -423, 189, -423, -423, 30, -423, -423,
+ 264, -423, 42, -423, 44, -423, -423, -423, -16, -423,
+ 534, -423, -423, -423, 133, 39, -423, -92, -423, -62,
+ -423, 485, -423, 34, 113, -423, -145, 213, -423, -139,
+ 208, -423, -132, 212, -423, -129, 217, -423, -140, 207,
+ -423, -423, -423, -423, -423, -423, -423, -138, -321, -423,
+ -32, 6, -423, -423, 97, -11, -423, -423, -423, -423,
+ -423, 317, -97, 62, -423, -423, -423, -423, -422, -423,
+ -423, -423, -423, -423, -423, -423, 8, -423, 40, -423,
+ -423, -423, -423, -423, -423, -423, -250, -411, -423, 2
+};
+
+/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If
+ positive, shift that token. If negative, reduce the rule which
+ number is the opposite. If zero, do what YYDEFACT says.
+ If YYTABLE_NINF, syntax error. */
+#define YYTABLE_NINF -1
+static const yytype_uint16 yytable[] =
+{
+ 39, 388, 82, 245, 85, 476, 83, 98, 100, 105,
+ 106, 139, 504, 204, 179, 300, 39, 128, 437, 140,
+ 202, 306, 293, 294, 103, 242, 39, 138, 145, 164,
+ 41, 430, 246, 452, 453, 468, 209, 249, 559, 149,
+ 472, 310, 340, 27, 283, 86, 41, 291, 95, 203,
+ 96, 130, 131, 329, 281, 27, 41, 135, 341, 342,
+ 330, 358, 333, 142, 143, 334, 27, 335, 331, 146,
+ 147, 148, 332, 150, 526, 155, 156, 180, 562, 239,
+ 258, 181, 39, 282, 27, 542, 27, 205, 228, 232,
+ 431, 314, 315, 252, 132, 255, 84, 182, 134, 243,
+ 544, 545, 384, 206, 520, 364, 247, 343, 344, 141,
+ 501, 460, 41, 133, 104, 244, 557, 569, 284, 353,
+ 391, 284, 248, 316, 317, 318, 210, 250, 560, 225,
+ 563, 226, 410, 48, 285, 573, 574, 292, 286, 411,
+ 288, 414, 289, 290, 415, 39, 416, 412, 354, 48,
+ 284, 413, 553, 27, 473, 582, 27, 39, 303, 48,
+ 27, 259, 308, 136, 591, 260, 307, 27, 473, 309,
+ 395, 396, 188, 189, 387, 41, 521, 522, 459, 208,
+ 27, 261, 549, 550, 551, 541, 183, 41, 27, 190,
+ 191, 522, 433, 262, 137, 366, 26, 27, 514, 184,
+ 267, 268, 397, 398, 399, 227, 263, 297, 434, 357,
+ 367, 336, 469, 151, 515, 48, 298, 269, 270, 311,
+ 312, 313, 27, 473, 461, 462, 463, 359, 325, 326,
+ 327, 328, 365, 516, 517, 518, 376, 382, 192, 193,
+ 284, 198, 208, 385, 383, 552, 522, 100, 284, 427,
+ 579, 359, 284, 389, 302, 157, 296, 428, 199, 284,
+ 390, 107, 580, 1, 2, 3, 271, 272, 483, 284,
+ 87, 284, 201, 417, 88, 200, 12, 13, 48, 15,
+ 487, 284, 207, 423, 18, 419, 497, 498, 484, 284,
+ 48, 499, 240, 420, 158, 162, 159, 159, 392, 393,
+ 394, 160, 163, 24, 25, 27, 473, 406, 407, 408,
+ 409, 237, 474, 159, 256, 257, 284, 251, 238, 89,
+ 421, 27, 28, 29, 30, 31, 253, 90, 159, 279,
+ 425, 457, 32, 254, 426, 458, 457, 284, 33, 277,
+ 486, 505, 34, 35, 435, 36, 37, 27, 278, 457,
+ 528, 108, 369, 513, 370, 371, 284, 185, 186, 187,
+ 530, 359, 372, 373, 374, 301, 338, 232, 467, 375,
+ 1, 2, 3, 470, 284, 475, 457, 87, 536, 284,
+ 548, 88, 280, 568, 27, 473, 15, 256, 257, 554,
+ 555, 287, 167, 168, 169, 170, 171, 172, 173, 174,
+ 175, 176, 177, 194, 195, 196, 197, 229, 27, 230,
+ 231, 273, 274, 275, 276, 349, 350, 39, 351, 39,
+ 352, 39, 495, 356, 490, 178, 89, 361, 27, 28,
+ 29, 355, 368, 503, 90, 362, 500, 345, 346, 347,
+ 348, 465, 27, 230, 231, 33, 363, 41, 456, 41,
+ 35, 41, 477, 478, 479, 480, 39, 510, 443, 444,
+ 445, 446, 418, 422, 359, 264, 265, 266, 429, 464,
+ 471, 485, 488, 492, 475, 502, 475, 506, 284, 524,
+ 511, 507, 512, 165, 166, 39, 41, 519, 167, 168,
+ 169, 170, 171, 172, 173, 174, 175, 176, 177, 525,
+ 527, 529, 531, 535, 539, 39, 431, 543, 537, 39,
+ 546, 39, 39, 547, 489, 41, 491, 556, 494, 571,
+ 475, 178, 475, 475, 566, 570, 572, 39, 575, 39,
+ 581, 576, 585, 589, 577, 41, 39, 561, 583, 41,
+ 578, 41, 41, 587, 590, 112, 39, 39, 592, 595,
+ 48, 598, 48, 475, 48, 112, 466, 41, 448, 41,
+ 451, 424, 447, 449, 386, 538, 41, 112, 39, 450,
+ 39, 213, 584, 565, 596, 39, 41, 41, 0, 0,
+ 0, 0, 39, 39, 593, 594, 0, 39, 0, 48,
+ 0, 0, 0, 39, 39, 0, 0, 0, 41, 0,
+ 41, 0, 540, 0, 0, 41, 208, 0, 0, 0,
+ 0, 0, 41, 41, 0, 0, 0, 41, 48, 0,
+ 212, 0, 0, 41, 41, 0, 558, 0, 0, 0,
+ 0, 0, 0, 567, 0, 0, 0, 0, 48, 0,
+ 0, 0, 48, 0, 48, 48, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 48, 0, 48, 0, 0, 586, 112, 588, 112, 48,
+ 112, 112, 0, 319, 320, 321, 322, 323, 324, 48,
+ 48, 0, 0, 0, 597, 0, 0, 112, 0, 0,
+ 208, 208, 0, 112, 112, 0, 0, 112, 0, 0,
+ 0, 48, 0, 48, 0, 0, 0, 0, 48, 0,
+ 0, 0, 0, 112, 0, 48, 48, 0, 0, 0,
+ 48, 0, 1, 2, 3, 0, 48, 48, 0, 87,
+ 211, 0, 0, 88, 0, 12, 13, 112, 15, 112,
+ 0, 0, 0, 18, 0, 0, 0, 0, 0, 0,
+ 0, 0, 400, 401, 402, 403, 404, 405, 0, 0,
+ 0, 0, 24, 25, 0, 0, 0, 0, 0, 0,
+ 0, 0, 112, 0, 112, 0, 0, 0, 89, 0,
+ 27, 28, 29, 30, 31, 0, 90, 0, 112, 0,
+ 0, 32, 112, 0, 0, 0, 0, 33, 0, 0,
+ 0, 34, 35, 0, 36, 37, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 112, 0, 112, 0,
+ 0, 0, 0, 0, 213, 438, 439, 440, 441, 442,
+ 213, 213, 213, 213, 213, 213, 213, 213, 213, 213,
+ 213, 0, 0, 0, 0, 1, 2, 3, 4, 0,
+ 0, 5, 6, 7, 8, 9, 10, 11, 12, 13,
+ 14, 15, 16, 17, 0, 0, 18, 19, 20, 0,
+ 21, 22, 112, 436, 23, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 24, 25, 0, 436, 436,
+ 112, 0, 0, 0, 0, 0, 112, 112, 112, 0,
+ 0, 26, 144, 27, 28, 29, 30, 31, 0, 0,
+ 0, 0, 0, 0, 32, 0, 213, 0, 0, 0,
+ 33, 0, 0, 0, 34, 35, 0, 36, 37, 256,
+ 257, 0, 0, 38, 167, 168, 169, 170, 171, 172,
+ 173, 174, 175, 176, 177, 0, 0, 0, 0, 0,
+ 0, 0, 112, 0, 0, 0, 0, 0, 112, 112,
+ 0, 0, 0, 112, 112, 436, 0, 178, 112, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 1, 2, 3,
+ 4, 213, 0, 5, 6, 7, 8, 9, 10, 11,
+ 12, 13, 14, 15, 16, 17, 0, 0, 18, 19,
+ 20, 0, 21, 22, 0, 0, 23, 0, 0, 0,
+ 0, 0, 112, 0, 0, 0, 0, 24, 25, 0,
+ 0, 0, 0, 0, 0, 0, 112, 0, 0, 0,
+ 436, 112, 0, 26, 295, 27, 28, 29, 30, 31,
+ 0, 0, 0, 0, 0, 0, 32, 0, 0, 0,
+ 0, 0, 33, 0, 0, 112, 34, 35, 0, 36,
+ 37, 0, 0, 112, 0, 38, 1, 2, 3, 4,
+ 0, 0, 5, 6, 7, 8, 9, 10, 11, 12,
+ 13, 14, 15, 16, 17, 0, 0, 18, 19, 20,
+ 0, 21, 22, 0, 0, 23, 0, 1, 2, 3,
+ 0, 0, 0, 0, 87, 0, 24, 25, 88, 0,
+ 12, 13, 0, 15, 0, 0, 0, 0, 18, 0,
+ 0, 0, 26, 0, 27, 28, 29, 30, 31, 0,
+ 0, 0, 0, 0, 0, 32, 0, 24, 25, 0,
+ 0, 33, 0, 0, 0, 34, 35, 0, 36, 37,
+ 0, 0, 0, 89, 38, 27, 28, 29, 30, 31,
+ 0, 90, 0, 0, 0, 0, 32, 0, 0, 0,
+ 0, 0, 33, 0, 0, 0, 34, 35, 299, 36,
+ 37, 1, 2, 3, 0, 0, 0, 0, 87, 0,
+ 0, 0, 88, 0, 12, 13, 0, 15, 0, 0,
+ 0, 0, 18, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 1, 2, 3, 0, 0, 0, 0, 87,
+ 0, 24, 25, 88, 0, 12, 13, 0, 15, 0,
+ 0, 0, 0, 18, 0, 0, 0, 89, 0, 27,
+ 28, 29, 30, 31, 0, 90, 0, 0, 0, 0,
+ 32, 0, 24, 25, 0, 0, 33, 304, 0, 0,
+ 34, 35, 0, 36, 37, 0, 0, 0, 89, 0,
+ 27, 28, 29, 30, 31, 0, 90, 0, 0, 0,
+ 0, 32, 0, 0, 0, 0, 0, 33, 0, 0,
+ 0, 34, 35, 496, 36, 37, 1, 2, 3, 0,
+ 0, 0, 0, 87, 0, 0, 0, 88, 0, 12,
+ 13, 0, 15, 0, 0, 0, 0, 18, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 0, 0, 0, 0, 24, 25, 0, 0,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
+ 0, 0, 89, 0, 27, 28, 29, 30, 31, 0,
+ 90, 0, 0, 0, 0, 32, 0, 0, 0, 0,
+ 0, 33, 0, 0, 0, 34, 35, 0, 36, 37
+};
+
+static const yytype_int16 yycheck[] =
+{
+ 0, 251, 0, 100, 4, 375, 1, 7, 8, 9,
+ 10, 22, 434, 1, 46, 153, 16, 11, 339, 1,
+ 41, 159, 30, 31, 1, 1, 26, 21, 26, 45,
+ 0, 22, 1, 354, 355, 369, 1, 1, 1, 33,
+ 374, 179, 23, 61, 1, 78, 16, 1, 6, 70,
+ 6, 12, 13, 198, 41, 61, 26, 18, 39, 40,
+ 199, 79, 202, 24, 25, 203, 61, 205, 200, 30,
+ 31, 32, 201, 34, 485, 36, 37, 67, 8, 95,
+ 112, 71, 82, 70, 61, 507, 61, 75, 88, 89,
+ 81, 183, 184, 109, 78, 111, 91, 87, 78, 75,
+ 511, 512, 240, 91, 474, 80, 75, 88, 89, 91,
+ 431, 361, 82, 16, 91, 91, 527, 539, 75, 41,
+ 258, 75, 91, 185, 186, 187, 91, 91, 91, 87,
+ 60, 87, 277, 0, 91, 546, 547, 91, 132, 278,
+ 134, 281, 136, 137, 282, 145, 284, 279, 70, 16,
+ 75, 280, 522, 61, 62, 80, 61, 157, 158, 26,
+ 61, 67, 162, 78, 575, 71, 160, 61, 62, 163,
+ 262, 263, 22, 23, 79, 145, 84, 85, 79, 82,
+ 61, 87, 516, 517, 518, 506, 72, 157, 61, 39,
+ 40, 85, 75, 72, 78, 60, 59, 61, 79, 85,
+ 22, 23, 264, 265, 266, 78, 85, 75, 91, 225,
+ 75, 211, 76, 75, 464, 82, 84, 39, 40, 180,
+ 181, 182, 61, 62, 362, 363, 364, 227, 194, 195,
+ 196, 197, 232, 80, 81, 82, 236, 237, 88, 89,
+ 75, 90, 145, 243, 238, 84, 85, 247, 75, 84,
+ 62, 251, 75, 253, 157, 80, 79, 84, 68, 75,
+ 254, 1, 74, 3, 4, 5, 88, 89, 84, 75,
+ 10, 75, 42, 79, 14, 66, 16, 17, 145, 19,
+ 84, 75, 0, 294, 24, 79, 424, 425, 385, 75,
+ 157, 429, 81, 79, 76, 76, 78, 78, 259, 260,
+ 261, 83, 83, 43, 44, 61, 62, 273, 274, 275,
+ 276, 76, 68, 78, 43, 44, 75, 78, 83, 59,
+ 79, 61, 62, 63, 64, 65, 76, 67, 78, 66,
+ 75, 75, 72, 83, 79, 79, 75, 75, 78, 90,
+ 79, 79, 82, 83, 338, 85, 86, 61, 68, 75,
+ 488, 91, 66, 79, 68, 69, 75, 45, 46, 47,
+ 79, 361, 76, 77, 78, 75, 22, 367, 368, 83,
+ 3, 4, 5, 373, 75, 375, 75, 10, 79, 75,
+ 79, 14, 42, 79, 61, 62, 19, 43, 44, 74,
+ 75, 21, 48, 49, 50, 51, 52, 53, 54, 55,
+ 56, 57, 58, 35, 36, 37, 38, 60, 61, 62,
+ 63, 35, 36, 37, 38, 90, 68, 417, 66, 419,
+ 42, 421, 422, 91, 418, 81, 59, 78, 61, 62,
+ 63, 75, 67, 433, 67, 80, 430, 35, 36, 37,
+ 38, 60, 61, 62, 63, 78, 80, 417, 59, 419,
+ 83, 421, 70, 71, 72, 73, 456, 457, 345, 346,
+ 347, 348, 78, 78, 464, 45, 46, 47, 80, 78,
+ 70, 59, 80, 59, 474, 22, 476, 80, 75, 62,
+ 59, 91, 59, 43, 44, 485, 456, 79, 48, 49,
+ 50, 51, 52, 53, 54, 55, 56, 57, 58, 70,
+ 59, 34, 7, 79, 91, 505, 81, 60, 502, 509,
+ 59, 511, 512, 59, 417, 485, 419, 60, 421, 60,
+ 520, 81, 522, 523, 535, 79, 60, 527, 59, 529,
+ 60, 79, 31, 60, 79, 505, 536, 531, 80, 509,
+ 79, 511, 512, 79, 60, 11, 546, 547, 74, 60,
+ 417, 60, 419, 553, 421, 21, 367, 527, 350, 529,
+ 353, 297, 349, 351, 247, 503, 536, 33, 568, 352,
+ 570, 86, 564, 533, 585, 575, 546, 547, -1, -1,
+ -1, -1, 582, 583, 582, 583, -1, 587, -1, 456,
+ -1, -1, -1, 593, 594, -1, -1, -1, 568, -1,
+ 570, -1, 505, -1, -1, 575, 509, -1, -1, -1,
+ -1, -1, 582, 583, -1, -1, -1, 587, 485, -1,
+ 86, -1, -1, 593, 594, -1, 529, -1, -1, -1,
+ -1, -1, -1, 536, -1, -1, -1, -1, 505, -1,
+ -1, -1, 509, -1, 511, 512, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ 527, -1, 529, -1, -1, 568, 132, 570, 134, 536,
+ 136, 137, -1, 188, 189, 190, 191, 192, 193, 546,
+ 547, -1, -1, -1, 587, -1, -1, 153, -1, -1,
+ 593, 594, -1, 159, 160, -1, -1, 163, -1, -1,
+ -1, 568, -1, 570, -1, -1, -1, -1, 575, -1,
+ -1, -1, -1, 179, -1, 582, 583, -1, -1, -1,
+ 587, -1, 3, 4, 5, -1, 593, 594, -1, 10,
+ 11, -1, -1, 14, -1, 16, 17, 203, 19, 205,
+ -1, -1, -1, 24, -1, -1, -1, -1, -1, -1,
+ -1, -1, 267, 268, 269, 270, 271, 272, -1, -1,
+ -1, -1, 43, 44, -1, -1, -1, -1, -1, -1,
+ -1, -1, 238, -1, 240, -1, -1, -1, 59, -1,
+ 61, 62, 63, 64, 65, -1, 67, -1, 254, -1,
+ -1, 72, 258, -1, -1, -1, -1, 78, -1, -1,
+ -1, 82, 83, -1, 85, 86, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, 282, -1, 284, -1,
+ -1, -1, -1, -1, 339, 340, 341, 342, 343, 344,
+ 345, 346, 347, 348, 349, 350, 351, 352, 353, 354,
+ 355, -1, -1, -1, -1, 3, 4, 5, 6, -1,
+ -1, 9, 10, 11, 12, 13, 14, 15, 16, 17,
+ 18, 19, 20, 21, -1, -1, 24, 25, 26, -1,
+ 28, 29, 338, 339, 32, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, 43, 44, -1, 354, 355,
+ 356, -1, -1, -1, -1, -1, 362, 363, 364, -1,
+ -1, 59, 60, 61, 62, 63, 64, 65, -1, -1,
+ -1, -1, -1, -1, 72, -1, 431, -1, -1, -1,
+ 78, -1, -1, -1, 82, 83, -1, 85, 86, 43,
+ 44, -1, -1, 91, 48, 49, 50, 51, 52, 53,
+ 54, 55, 56, 57, 58, -1, -1, -1, -1, -1,
+ -1, -1, 418, -1, -1, -1, -1, -1, 424, 425,
+ -1, -1, -1, 429, 430, 431, -1, 81, 434, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, 3, 4, 5,
+ 6, 506, -1, 9, 10, 11, 12, 13, 14, 15,
+ 16, 17, 18, 19, 20, 21, -1, -1, 24, 25,
+ 26, -1, 28, 29, -1, -1, 32, -1, -1, -1,
+ -1, -1, 488, -1, -1, -1, -1, 43, 44, -1,
+ -1, -1, -1, -1, -1, -1, 502, -1, -1, -1,
+ 506, 507, -1, 59, 60, 61, 62, 63, 64, 65,
+ -1, -1, -1, -1, -1, -1, 72, -1, -1, -1,
+ -1, -1, 78, -1, -1, 531, 82, 83, -1, 85,
+ 86, -1, -1, 539, -1, 91, 3, 4, 5, 6,
+ -1, -1, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, -1, -1, 24, 25, 26,
+ -1, 28, 29, -1, -1, 32, -1, 3, 4, 5,
+ -1, -1, -1, -1, 10, -1, 43, 44, 14, -1,
+ 16, 17, -1, 19, -1, -1, -1, -1, 24, -1,
+ -1, -1, 59, -1, 61, 62, 63, 64, 65, -1,
+ -1, -1, -1, -1, -1, 72, -1, 43, 44, -1,
+ -1, 78, -1, -1, -1, 82, 83, -1, 85, 86,
+ -1, -1, -1, 59, 91, 61, 62, 63, 64, 65,
+ -1, 67, -1, -1, -1, -1, 72, -1, -1, -1,
+ -1, -1, 78, -1, -1, -1, 82, 83, 84, 85,
+ 86, 3, 4, 5, -1, -1, -1, -1, 10, -1,
+ -1, -1, 14, -1, 16, 17, -1, 19, -1, -1,
+ -1, -1, 24, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, 3, 4, 5, -1, -1, -1, -1, 10,
+ -1, 43, 44, 14, -1, 16, 17, -1, 19, -1,
+ -1, -1, -1, 24, -1, -1, -1, 59, -1, 61,
+ 62, 63, 64, 65, -1, 67, -1, -1, -1, -1,
+ 72, -1, 43, 44, -1, -1, 78, 79, -1, -1,
+ 82, 83, -1, 85, 86, -1, -1, -1, 59, -1,
+ 61, 62, 63, 64, 65, -1, 67, -1, -1, -1,
+ -1, 72, -1, -1, -1, -1, -1, 78, -1, -1,
+ -1, 82, 83, 84, 85, 86, 3, 4, 5, -1,
+ -1, -1, -1, 10, -1, -1, -1, 14, -1, 16,
+ 17, -1, 19, -1, -1, -1, -1, 24, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, -1, -1, -1, -1, 43, 44, -1, -1,
+ -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
+ -1, -1, 59, -1, 61, 62, 63, 64, 65, -1,
+ 67, -1, -1, -1, -1, 72, -1, -1, -1, -1,
+ -1, 78, -1, -1, -1, 82, 83, -1, 85, 86
+};
+
+/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
+ symbol of state STATE-NUM. */
+static const yytype_uint8 yystos[] =
+{
+ 0, 3, 4, 5, 6, 9, 10, 11, 12, 13,
+ 14, 15, 16, 17, 18, 19, 20, 21, 24, 25,
+ 26, 28, 29, 32, 43, 44, 59, 61, 62, 63,
+ 64, 65, 72, 78, 82, 83, 85, 86, 91, 93,
+ 105, 109, 110, 115, 117, 119, 123, 125, 126, 128,
+ 130, 132, 134, 137, 140, 143, 146, 149, 152, 155,
+ 158, 161, 165, 166, 167, 168, 171, 176, 177, 178,
+ 179, 182, 183, 184, 185, 186, 192, 193, 194, 195,
+ 196, 200, 201, 1, 91, 93, 78, 10, 14, 59,
+ 67, 93, 95, 108, 109, 114, 116, 197, 93, 169,
+ 93, 172, 173, 1, 91, 93, 93, 1, 91, 114,
+ 116, 118, 122, 124, 126, 127, 129, 131, 133, 135,
+ 138, 141, 144, 147, 150, 153, 156, 159, 163, 122,
+ 127, 127, 78, 166, 78, 127, 78, 78, 163, 167,
+ 1, 91, 127, 127, 60, 201, 127, 127, 127, 163,
+ 127, 75, 111, 112, 113, 127, 127, 80, 76, 78,
+ 83, 120, 76, 83, 120, 43, 44, 48, 49, 50,
+ 51, 52, 53, 54, 55, 56, 57, 58, 81, 162,
+ 67, 71, 87, 72, 85, 45, 46, 47, 22, 23,
+ 39, 40, 88, 89, 35, 36, 37, 38, 90, 68,
+ 66, 42, 41, 70, 1, 75, 91, 0, 166, 1,
+ 91, 11, 122, 133, 136, 139, 142, 145, 148, 151,
+ 154, 157, 160, 164, 181, 114, 116, 78, 93, 60,
+ 62, 63, 93, 106, 107, 94, 96, 76, 83, 120,
+ 81, 174, 1, 75, 91, 174, 1, 75, 91, 1,
+ 91, 78, 120, 76, 83, 120, 43, 44, 162, 67,
+ 71, 87, 72, 85, 45, 46, 47, 22, 23, 39,
+ 40, 88, 89, 35, 36, 37, 38, 90, 68, 66,
+ 42, 41, 70, 1, 75, 91, 163, 21, 163, 163,
+ 163, 1, 91, 30, 31, 60, 79, 75, 84, 84,
+ 159, 75, 166, 93, 79, 121, 159, 163, 93, 163,
+ 159, 127, 127, 127, 129, 129, 131, 131, 131, 133,
+ 133, 133, 133, 133, 133, 135, 135, 135, 135, 138,
+ 141, 144, 147, 150, 159, 159, 93, 170, 22, 162,
+ 23, 39, 40, 88, 89, 35, 36, 37, 38, 90,
+ 68, 66, 42, 41, 70, 75, 91, 120, 79, 93,
+ 198, 78, 80, 80, 80, 93, 60, 75, 67, 66,
+ 68, 69, 76, 77, 78, 83, 93, 97, 98, 101,
+ 102, 103, 93, 163, 159, 93, 173, 79, 198, 93,
+ 163, 159, 127, 127, 127, 129, 129, 131, 131, 131,
+ 133, 133, 133, 133, 133, 133, 135, 135, 135, 135,
+ 138, 141, 144, 147, 150, 159, 159, 79, 78, 79,
+ 79, 79, 78, 167, 112, 75, 79, 84, 84, 80,
+ 22, 81, 175, 75, 91, 163, 122, 160, 133, 133,
+ 133, 133, 133, 136, 136, 136, 136, 139, 142, 145,
+ 148, 151, 160, 160, 163, 180, 59, 75, 79, 79,
+ 198, 159, 159, 159, 78, 60, 106, 93, 94, 76,
+ 93, 70, 94, 62, 68, 93, 104, 70, 71, 72,
+ 73, 99, 100, 84, 174, 59, 79, 84, 80, 166,
+ 163, 166, 59, 187, 166, 93, 84, 159, 159, 159,
+ 163, 160, 22, 93, 180, 79, 80, 91, 199, 201,
+ 93, 59, 59, 79, 79, 198, 80, 81, 82, 79,
+ 104, 84, 85, 104, 62, 70, 199, 59, 159, 34,
+ 79, 7, 188, 189, 190, 79, 79, 163, 175, 91,
+ 166, 160, 180, 60, 199, 199, 59, 59, 79, 94,
+ 94, 94, 84, 104, 74, 75, 60, 199, 166, 1,
+ 91, 163, 8, 60, 191, 190, 167, 166, 79, 180,
+ 79, 60, 60, 199, 199, 59, 79, 79, 79, 62,
+ 74, 60, 80, 80, 188, 31, 166, 79, 166, 60,
+ 60, 199, 74, 201, 201, 60, 167, 166, 60
+};
+
+#define yyerrok (yyerrstatus = 0)
+#define yyclearin (yychar = YYEMPTY)
+#define YYEMPTY (-2)
+#define YYEOF 0
+
+#define YYACCEPT goto yyacceptlab
+#define YYABORT goto yyabortlab
+#define YYERROR goto yyerrorlab
+
+
+/* Like YYERROR except do call yyerror. This remains here temporarily
+ to ease the transition to the new meaning of YYERROR, for GCC.
+ Once GCC version 2 has supplanted version 1, this can go. */
+
+#define YYFAIL goto yyerrlab
+
+#define YYRECOVERING() (!!yyerrstatus)
+
+#define YYBACKUP(Token, Value) \
+do \
+ if (yychar == YYEMPTY && yylen == 1) \
+ { \
+ yychar = (Token); \
+ yylval = (Value); \
+ yytoken = YYTRANSLATE (yychar); \
+ YYPOPSTACK (1); \
+ goto yybackup; \
+ } \
+ else \
+ { \
+ yyerror (YY_("syntax error: cannot back up")); \
+ YYERROR; \
+ } \
+while (YYID (0))
+
+
+#define YYTERROR 1
+#define YYERRCODE 256
+
+
+/* YYLLOC_DEFAULT -- Set CURRENT to span from RHS[1] to RHS[N].
+ If N is 0, then set CURRENT to the empty location which ends
+ the previous symbol: RHS[0] (always defined). */
+
+#define YYRHSLOC(Rhs, K) ((Rhs)[K])
+#ifndef YYLLOC_DEFAULT
+# define YYLLOC_DEFAULT(Current, Rhs, N) \
+ do \
+ if (YYID (N)) \
+ { \
+ (Current).first_line = YYRHSLOC (Rhs, 1).first_line; \
+ (Current).first_column = YYRHSLOC (Rhs, 1).first_column; \
+ (Current).last_line = YYRHSLOC (Rhs, N).last_line; \
+ (Current).last_column = YYRHSLOC (Rhs, N).last_column; \
+ } \
+ else \
+ { \
+ (Current).first_line = (Current).last_line = \
+ YYRHSLOC (Rhs, 0).last_line; \
+ (Current).first_column = (Current).last_column = \
+ YYRHSLOC (Rhs, 0).last_column; \
+ } \
+ while (YYID (0))
+#endif
+
+
+/* YY_LOCATION_PRINT -- Print the location on the stream.
+ This macro was not mandated originally: define only if we know
+ we won't break user code: when these are the locations we know. */
+
+#ifndef YY_LOCATION_PRINT
+# if YYLTYPE_IS_TRIVIAL
+# define YY_LOCATION_PRINT(File, Loc) \
+ fprintf (File, "%d.%d-%d.%d", \
+ (Loc).first_line, (Loc).first_column, \
+ (Loc).last_line, (Loc).last_column)
+# else
+# define YY_LOCATION_PRINT(File, Loc) ((void) 0)
+# endif
+#endif
+
+
+/* YYLEX -- calling `yylex' with the right arguments. */
+
+#ifdef YYLEX_PARAM
+# define YYLEX yylex (&yylval, YYLEX_PARAM)
+#else
+# define YYLEX yylex (&yylval)
+#endif
+
+/* Enable debugging if requested. */
+#if YYDEBUG
+
+# ifndef YYFPRINTF
+# include <stdio.h> /* INFRINGES ON USER NAME SPACE */
+# define YYFPRINTF fprintf
+# endif
+
+# define YYDPRINTF(Args) \
+do { \
+ if (yydebug) \
+ YYFPRINTF Args; \
+} while (YYID (0))
+
+# define YY_SYMBOL_PRINT(Title, Type, Value, Location) \
+do { \
+ if (yydebug) \
+ { \
+ YYFPRINTF (stderr, "%s ", Title); \
+ yy_symbol_print (stderr, \
+ Type, Value); \
+ YYFPRINTF (stderr, "\n"); \
+ } \
+} while (YYID (0))
+
+
+/*--------------------------------.
+| Print this symbol on YYOUTPUT. |
+`--------------------------------*/
+
+/*ARGSUSED*/
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static void
+yy_symbol_value_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
+#else
+static void
+yy_symbol_value_print (yyoutput, yytype, yyvaluep)
+ FILE *yyoutput;
+ int yytype;
+ YYSTYPE const * const yyvaluep;
+#endif
+{
+ if (!yyvaluep)
+ return;
+# ifdef YYPRINT
+ if (yytype < YYNTOKENS)
+ YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
+# else
+ YYUSE (yyoutput);
+# endif
+ switch (yytype)
+ {
+ default:
+ break;
+ }
+}
+
+
+/*--------------------------------.
+| Print this symbol on YYOUTPUT. |
+`--------------------------------*/
+
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static void
+yy_symbol_print (FILE *yyoutput, int yytype, YYSTYPE const * const yyvaluep)
+#else
+static void
+yy_symbol_print (yyoutput, yytype, yyvaluep)
+ FILE *yyoutput;
+ int yytype;
+ YYSTYPE const * const yyvaluep;
+#endif
+{
+ if (yytype < YYNTOKENS)
+ YYFPRINTF (yyoutput, "token %s (", yytname[yytype]);
+ else
+ YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]);
+
+ yy_symbol_value_print (yyoutput, yytype, yyvaluep);
+ YYFPRINTF (yyoutput, ")");
+}
+
+/*------------------------------------------------------------------.
+| yy_stack_print -- Print the state stack from its BOTTOM up to its |
+| TOP (included). |
+`------------------------------------------------------------------*/
+
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static void
+yy_stack_print (yytype_int16 *yybottom, yytype_int16 *yytop)
+#else
+static void
+yy_stack_print (yybottom, yytop)
+ yytype_int16 *yybottom;
+ yytype_int16 *yytop;
+#endif
+{
+ YYFPRINTF (stderr, "Stack now");
+ for (; yybottom <= yytop; yybottom++)
+ {
+ int yybot = *yybottom;
+ YYFPRINTF (stderr, " %d", yybot);
+ }
+ YYFPRINTF (stderr, "\n");
+}
+
+# define YY_STACK_PRINT(Bottom, Top) \
+do { \
+ if (yydebug) \
+ yy_stack_print ((Bottom), (Top)); \
+} while (YYID (0))
+
+
+/*------------------------------------------------.
+| Report that the YYRULE is going to be reduced. |
+`------------------------------------------------*/
+
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static void
+yy_reduce_print (YYSTYPE *yyvsp, int yyrule)
+#else
+static void
+yy_reduce_print (yyvsp, yyrule)
+ YYSTYPE *yyvsp;
+ int yyrule;
+#endif
+{
+ int yynrhs = yyr2[yyrule];
+ int yyi;
+ unsigned long int yylno = yyrline[yyrule];
+ YYFPRINTF (stderr, "Reducing stack by rule %d (line %lu):\n",
+ yyrule - 1, yylno);
+ /* The symbols being reduced. */
+ for (yyi = 0; yyi < yynrhs; yyi++)
+ {
+ YYFPRINTF (stderr, " $%d = ", yyi + 1);
+ yy_symbol_print (stderr, yyrhs[yyprhs[yyrule] + yyi],
+ &(yyvsp[(yyi + 1) - (yynrhs)])
+ );
+ YYFPRINTF (stderr, "\n");
+ }
+}
+
+# define YY_REDUCE_PRINT(Rule) \
+do { \
+ if (yydebug) \
+ yy_reduce_print (yyvsp, Rule); \
+} while (YYID (0))
+
+/* Nonzero means print parse trace. It is left uninitialized so that
+ multiple parsers can coexist. */
+int yydebug;
+#else /* !YYDEBUG */
+# define YYDPRINTF(Args)
+# define YY_SYMBOL_PRINT(Title, Type, Value, Location)
+# define YY_STACK_PRINT(Bottom, Top)
+# define YY_REDUCE_PRINT(Rule)
+#endif /* !YYDEBUG */
+
+
+/* YYINITDEPTH -- initial size of the parser's stacks. */
+#ifndef YYINITDEPTH
+# define YYINITDEPTH 200
+#endif
+
+/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
+ if the built-in stack extension method is used).
+
+ Do not make this value too large; the results are undefined if
+ YYSTACK_ALLOC_MAXIMUM < YYSTACK_BYTES (YYMAXDEPTH)
+ evaluated with infinite-precision integer arithmetic. */
+
+#ifndef YYMAXDEPTH
+# define YYMAXDEPTH 10000
+#endif
+
+
+
+#if YYERROR_VERBOSE
+
+# ifndef yystrlen
+# if defined __GLIBC__ && defined _STRING_H
+# define yystrlen strlen
+# else
+/* Return the length of YYSTR. */
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static YYSIZE_T
+yystrlen (const char *yystr)
+#else
+static YYSIZE_T
+yystrlen (yystr)
+ const char *yystr;
+#endif
+{
+ YYSIZE_T yylen;
+ for (yylen = 0; yystr[yylen]; yylen++)
+ continue;
+ return yylen;
+}
+# endif
+# endif
+
+# ifndef yystpcpy
+# if defined __GLIBC__ && defined _STRING_H && defined _GNU_SOURCE
+# define yystpcpy stpcpy
+# else
+/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
+ YYDEST. */
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static char *
+yystpcpy (char *yydest, const char *yysrc)
+#else
+static char *
+yystpcpy (yydest, yysrc)
+ char *yydest;
+ const char *yysrc;
+#endif
+{
+ char *yyd = yydest;
+ const char *yys = yysrc;
+
+ while ((*yyd++ = *yys++) != '\0')
+ continue;
+
+ return yyd - 1;
+}
+# endif
+# endif
+
+# ifndef yytnamerr
+/* Copy to YYRES the contents of YYSTR after stripping away unnecessary
+ quotes and backslashes, so that it's suitable for yyerror. The
+ heuristic is that double-quoting is unnecessary unless the string
+ contains an apostrophe, a comma, or backslash (other than
+ backslash-backslash). YYSTR is taken from yytname. If YYRES is
+ null, do not copy; instead, return the length of what the result
+ would have been. */
+static YYSIZE_T
+yytnamerr (char *yyres, const char *yystr)
+{
+ if (*yystr == '"')
+ {
+ YYSIZE_T yyn = 0;
+ char const *yyp = yystr;
+
+ for (;;)
+ switch (*++yyp)
+ {
+ case '\'':
+ case ',':
+ goto do_not_strip_quotes;
+
+ case '\\':
+ if (*++yyp != '\\')
+ goto do_not_strip_quotes;
+ /* Fall through. */
+ default:
+ if (yyres)
+ yyres[yyn] = *yyp;
+ yyn++;
+ break;
+
+ case '"':
+ if (yyres)
+ yyres[yyn] = '\0';
+ return yyn;
+ }
+ do_not_strip_quotes: ;
+ }
+
+ if (! yyres)
+ return yystrlen (yystr);
+
+ return yystpcpy (yyres, yystr) - yyres;
+}
+# endif
+
+/* Copy into YYRESULT an error message about the unexpected token
+ YYCHAR while in state YYSTATE. Return the number of bytes copied,
+ including the terminating null byte. If YYRESULT is null, do not
+ copy anything; just return the number of bytes that would be
+ copied. As a special case, return 0 if an ordinary "syntax error"
+ message will do. Return YYSIZE_MAXIMUM if overflow occurs during
+ size calculation. */
+static YYSIZE_T
+yysyntax_error (char *yyresult, int yystate, int yychar)
+{
+ int yyn = yypact[yystate];
+
+ if (! (YYPACT_NINF < yyn && yyn <= YYLAST))
+ return 0;
+ else
+ {
+ int yytype = YYTRANSLATE (yychar);
+ YYSIZE_T yysize0 = yytnamerr (0, yytname[yytype]);
+ YYSIZE_T yysize = yysize0;
+ YYSIZE_T yysize1;
+ int yysize_overflow = 0;
+ enum { YYERROR_VERBOSE_ARGS_MAXIMUM = 5 };
+ char const *yyarg[YYERROR_VERBOSE_ARGS_MAXIMUM];
+ int yyx;
+
+# if 0
+ /* This is so xgettext sees the translatable formats that are
+ constructed on the fly. */
+ YY_("syntax error, unexpected %s");
+ YY_("syntax error, unexpected %s, expecting %s");
+ YY_("syntax error, unexpected %s, expecting %s or %s");
+ YY_("syntax error, unexpected %s, expecting %s or %s or %s");
+ YY_("syntax error, unexpected %s, expecting %s or %s or %s or %s");
+# endif
+ char *yyfmt;
+ char const *yyf;
+ static char const yyunexpected[] = "syntax error, unexpected %s";
+ static char const yyexpecting[] = ", expecting %s";
+ static char const yyor[] = " or %s";
+ char yyformat[sizeof yyunexpected
+ + sizeof yyexpecting - 1
+ + ((YYERROR_VERBOSE_ARGS_MAXIMUM - 2)
+ * (sizeof yyor - 1))];
+ char const *yyprefix = yyexpecting;
+
+ /* Start YYX at -YYN if negative to avoid negative indexes in
+ YYCHECK. */
+ int yyxbegin = yyn < 0 ? -yyn : 0;
+
+ /* Stay within bounds of both yycheck and yytname. */
+ int yychecklim = YYLAST - yyn + 1;
+ int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
+ int yycount = 1;
+
+ yyarg[0] = yytname[yytype];
+ yyfmt = yystpcpy (yyformat, yyunexpected);
+
+ for (yyx = yyxbegin; yyx < yyxend; ++yyx)
+ if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
+ {
+ if (yycount == YYERROR_VERBOSE_ARGS_MAXIMUM)
+ {
+ yycount = 1;
+ yysize = yysize0;
+ yyformat[sizeof yyunexpected - 1] = '\0';
+ break;
+ }
+ yyarg[yycount++] = yytname[yyx];
+ yysize1 = yysize + yytnamerr (0, yytname[yyx]);
+ yysize_overflow |= (yysize1 < yysize);
+ yysize = yysize1;
+ yyfmt = yystpcpy (yyfmt, yyprefix);
+ yyprefix = yyor;
+ }
+
+ yyf = YY_(yyformat);
+ yysize1 = yysize + yystrlen (yyf);
+ yysize_overflow |= (yysize1 < yysize);
+ yysize = yysize1;
+
+ if (yysize_overflow)
+ return YYSIZE_MAXIMUM;
+
+ if (yyresult)
+ {
+ /* Avoid sprintf, as that infringes on the user's name space.
+ Don't have undefined behavior even if the translation
+ produced a string with the wrong number of "%s"s. */
+ char *yyp = yyresult;
+ int yyi = 0;
+ while ((*yyp = *yyf) != '\0')
+ {
+ if (*yyp == '%' && yyf[1] == 's' && yyi < yycount)
+ {
+ yyp += yytnamerr (yyp, yyarg[yyi++]);
+ yyf += 2;
+ }
+ else
+ {
+ yyp++;
+ yyf++;
+ }
+ }
+ }
+ return yysize;
+ }
+}
+#endif /* YYERROR_VERBOSE */
+
+
+/*-----------------------------------------------.
+| Release the memory associated to this symbol. |
+`-----------------------------------------------*/
+
+/*ARGSUSED*/
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+static void
+yydestruct (const char *yymsg, int yytype, YYSTYPE *yyvaluep)
+#else
+static void
+yydestruct (yymsg, yytype, yyvaluep)
+ const char *yymsg;
+ int yytype;
+ YYSTYPE *yyvaluep;
+#endif
+{
+ YYUSE (yyvaluep);
+
+ if (!yymsg)
+ yymsg = "Deleting";
+ YY_SYMBOL_PRINT (yymsg, yytype, yyvaluep, yylocationp);
+
+ switch (yytype)
+ {
+
+ default:
+ break;
+ }
+}
+
+
+
+
+
+
+struct yypstate
+ {
+ /* Number of syntax errors so far. */
+ int yynerrs;
+
+ int yystate;
+ /* Number of tokens to shift before error messages enabled. */
+ int yyerrstatus;
+
+ /* The stacks and their tools:
+ `yyss': related to states.
+ `yyvs': related to semantic values.
+
+ Refer to the stacks thru separate pointers, to allow yyoverflow
+ to reallocate them elsewhere. */
+
+ /* The state stack. */
+ yytype_int16 yyssa[YYINITDEPTH];
+ yytype_int16 *yyss;
+ yytype_int16 *yyssp;
+
+ /* The semantic value stack. */
+ YYSTYPE yyvsa[YYINITDEPTH];
+ YYSTYPE *yyvs;
+ YYSTYPE *yyvsp;
+
+ YYSIZE_T yystacksize;
+
+ /* Used to determine if this is the first time this instance has
+ been used. */
+ int yynew;
+ };
+
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+int
+yyparse (void)
+#else
+int
+yyparse ()
+
+#endif
+{
+ return yypull_parse (0);
+}
+
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+int
+yypull_parse (yypstate *yyps)
+#else
+int
+yypull_parse (yyps)
+ yypstate *yyps;
+#endif
+{
+ int yystatus;
+ yypstate *yyps_local;
+ int yychar;
+ YYSTYPE yylval;
+ if (yyps == 0)
+ {
+ yyps_local = yypstate_new ();
+ if (!yyps_local)
+ {
+ yyerror (YY_("memory exhausted"));
+ return 2;
+ }
+ }
+ else
+ yyps_local = yyps;
+ do {
+ yychar = YYLEX;
+ yystatus =
+ yypush_parse (yyps_local, yychar, &yylval);
+ } while (yystatus == YYPUSH_MORE);
+ if (yyps == 0)
+ yypstate_delete (yyps_local);
+ return yystatus;
+}
+
+/* Initialize the parser data structure. */
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+yypstate *
+yypstate_new (void)
+#else
+yypstate *
+yypstate_new ()
+
+#endif
+{
+ yypstate *yyps;
+ yyps = (yypstate *) malloc (sizeof *yyps);
+ if (!yyps)
+ return 0;
+ yyps->yynew = 1;
+ return yyps;
+}
+
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+void
+yypstate_delete (yypstate *yyps)
+#else
+void
+yypstate_delete (yyps)
+ yypstate *yyps;
+#endif
+{
+#ifndef yyoverflow
+ /* If the stack was reallocated but the parse did not complete, then the
+ stack still needs to be freed. */
+ if (!yyps->yynew && yyps->yyss != yyps->yyssa)
+ YYSTACK_FREE (yyps->yyss);
+#endif
+ free (yyps);
+}
+
+#define yynerrs yyps->yynerrs
+#define yystate yyps->yystate
+#define yyerrstatus yyps->yyerrstatus
+#define yyssa yyps->yyssa
+#define yyss yyps->yyss
+#define yyssp yyps->yyssp
+#define yyvsa yyps->yyvsa
+#define yyvs yyps->yyvs
+#define yyvsp yyps->yyvsp
+#define yystacksize yyps->yystacksize
+
+/*-------------------------.
+| yyparse or yypush_parse. |
+`-------------------------*/
+
+#if (defined __STDC__ || defined __C99__FUNC__ \
+ || defined __cplusplus || defined _MSC_VER)
+int
+yypush_parse (yypstate *yyps, int yypushed_char, YYSTYPE const *yypushed_val)
+#else
+int
+yypush_parse (yyps, yypushed_char, yypushed_val)
+ yypstate *yyps;
+ int yypushed_char;
+ YYSTYPE const *yypushed_val;
+#endif
+{
+/* The lookahead symbol. */
+int yychar;
+
+/* The semantic value of the lookahead symbol. */
+YYSTYPE yylval;
+
+
+ int yyn;
+ int yyresult;
+ /* Lookahead token as an internal (translated) token number. */
+ int yytoken;
+ /* The variables used to return semantic value and location from the
+ action routines. */
+ YYSTYPE yyval;
+
+#if YYERROR_VERBOSE
+ /* Buffer for error messages, and its allocated size. */
+ char yymsgbuf[128];
+ char *yymsg = yymsgbuf;
+ YYSIZE_T yymsg_alloc = sizeof yymsgbuf;
+#endif
+
+#define YYPOPSTACK(N) (yyvsp -= (N), yyssp -= (N))
+
+ /* The number of symbols on the RHS of the reduced rule.
+ Keep to zero when no symbol should be popped. */
+ int yylen = 0;
+
+ if (!yyps->yynew)
+ {
+ yyn = yypact[yystate];
+ goto yyread_pushed_token;
+ }
+
+ yytoken = 0;
+ yyss = yyssa;
+ yyvs = yyvsa;
+ yystacksize = YYINITDEPTH;
+
+ YYDPRINTF ((stderr, "Starting parse\n"));
+
+ yystate = 0;
+ yyerrstatus = 0;
+ yynerrs = 0;
+ yychar = YYEMPTY; /* Cause a token to be read. */
+
+ /* Initialize stack pointers.
+ Waste one element of value and location stack
+ so that they stay on the same level as the state stack.
+ The wasted elements are never initialized. */
+ yyssp = yyss;
+ yyvsp = yyvs;
+
+ goto yysetstate;
+
+/*------------------------------------------------------------.
+| yynewstate -- Push a new state, which is found in yystate. |
+`------------------------------------------------------------*/
+ yynewstate:
+ /* In all cases, when you get here, the value and location stacks
+ have just been pushed. So pushing a state here evens the stacks. */
+ yyssp++;
+
+ yysetstate:
+ *yyssp = yystate;
+
+ if (yyss + yystacksize - 1 <= yyssp)
+ {
+ /* Get the current used size of the three stacks, in elements. */
+ YYSIZE_T yysize = yyssp - yyss + 1;
+
+#ifdef yyoverflow
+ {
+ /* Give user a chance to reallocate the stack. Use copies of
+ these so that the &'s don't force the real ones into
+ memory. */
+ YYSTYPE *yyvs1 = yyvs;
+ yytype_int16 *yyss1 = yyss;
+
+ /* Each stack pointer address is followed by the size of the
+ data in use in that stack, in bytes. This used to be a
+ conditional around just the two extra args, but that might
+ be undefined if yyoverflow is a macro. */
+ yyoverflow (YY_("memory exhausted"),
+ &yyss1, yysize * sizeof (*yyssp),
+ &yyvs1, yysize * sizeof (*yyvsp),
+ &yystacksize);
+
+ yyss = yyss1;
+ yyvs = yyvs1;
+ }
+#else /* no yyoverflow */
+# ifndef YYSTACK_RELOCATE
+ goto yyexhaustedlab;
+# else
+ /* Extend the stack our own way. */
+ if (YYMAXDEPTH <= yystacksize)
+ goto yyexhaustedlab;
+ yystacksize *= 2;
+ if (YYMAXDEPTH < yystacksize)
+ yystacksize = YYMAXDEPTH;
+
+ {
+ yytype_int16 *yyss1 = yyss;
+ union yyalloc *yyptr =
+ (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
+ if (! yyptr)
+ goto yyexhaustedlab;
+ YYSTACK_RELOCATE (yyss_alloc, yyss);
+ YYSTACK_RELOCATE (yyvs_alloc, yyvs);
+# undef YYSTACK_RELOCATE
+ if (yyss1 != yyssa)
+ YYSTACK_FREE (yyss1);
+ }
+# endif
+#endif /* no yyoverflow */
+
+ yyssp = yyss + yysize - 1;
+ yyvsp = yyvs + yysize - 1;
+
+ YYDPRINTF ((stderr, "Stack size increased to %lu\n",
+ (unsigned long int) yystacksize));
+
+ if (yyss + yystacksize - 1 <= yyssp)
+ YYABORT;
+ }
+
+ YYDPRINTF ((stderr, "Entering state %d\n", yystate));
+
+ if (yystate == YYFINAL)
+ YYACCEPT;
+
+ goto yybackup;
+
+/*-----------.
+| yybackup. |
+`-----------*/
+yybackup:
+
+ /* Do appropriate processing given the current state. Read a
+ lookahead token if we need one and don't already have one. */
+
+ /* First try to decide what to do without reference to lookahead token. */
+ yyn = yypact[yystate];
+ if (yyn == YYPACT_NINF)
+ goto yydefault;
+
+ /* Not known => get a lookahead token if don't already have one. */
+
+ /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol. */
+ if (yychar == YYEMPTY)
+ {
+ if (!yyps->yynew)
+ {
+ YYDPRINTF ((stderr, "Return for a new token:\n"));
+ yyresult = YYPUSH_MORE;
+ goto yypushreturn;
+ }
+ yyps->yynew = 0;
+yyread_pushed_token:
+ YYDPRINTF ((stderr, "Reading a token: "));
+ yychar = yypushed_char;
+ if (yypushed_val)
+ yylval = *yypushed_val;
+ }
+
+ if (yychar <= YYEOF)
+ {
+ yychar = yytoken = YYEOF;
+ YYDPRINTF ((stderr, "Now at end of input.\n"));
+ }
+ else
+ {
+ yytoken = YYTRANSLATE (yychar);
+ YY_SYMBOL_PRINT ("Next token is", yytoken, &yylval, &yylloc);
+ }
+
+ /* If the proper action on seeing token YYTOKEN is to reduce or to
+ detect an error, take that action. */
+ yyn += yytoken;
+ if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
+ goto yydefault;
+ yyn = yytable[yyn];
+ if (yyn <= 0)
+ {
+ if (yyn == 0 || yyn == YYTABLE_NINF)
+ goto yyerrlab;
+ yyn = -yyn;
+ goto yyreduce;
+ }
+
+ /* Count tokens shifted since error; after three, turn off error
+ status. */
+ if (yyerrstatus)
+ yyerrstatus--;
+
+ /* Shift the lookahead token. */
+ YY_SYMBOL_PRINT ("Shifting", yytoken, &yylval, &yylloc);
+
+ /* Discard the shifted token. */
+ yychar = YYEMPTY;
+
+ yystate = yyn;
+ *++yyvsp = yylval;
+
+ goto yynewstate;
+
+
+/*-----------------------------------------------------------.
+| yydefault -- do the default action for the current state. |
+`-----------------------------------------------------------*/
+yydefault:
+ yyn = yydefact[yystate];
+ if (yyn == 0)
+ goto yyerrlab;
+ goto yyreduce;
+
+
+/*-----------------------------.
+| yyreduce -- Do a reduction. |
+`-----------------------------*/
+yyreduce:
+ /* yyn is the number of a rule to reduce with. */
+ yylen = yyr2[yyn];
+
+ /* If YYLEN is nonzero, implement the default value of the action:
+ `$$ = $1'.
+
+ Otherwise, the following line sets YYVAL to garbage.
+ This behavior is undocumented and Bison
+ users should not rely upon it. Assigning to YYVAL
+ unconditionally makes the parser a bit smaller, and it avoids a
+ GCC warning that YYVAL may be used uninitialized. */
+ yyval = yyvsp[1-yylen];
+
+
+ YY_REDUCE_PRINT (yyn);
+ switch (yyn)
+ {
+ case 2:
+
+/* Line 1455 of yacc.c */
+#line 215 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = node_new (TOK_NAME, PN_NAME); (yyval.node)->pn_u.name.name = (yyvsp[(1) - (1)].name).iname; (yyval.node)->pn_pos = (yyvsp[(1) - (1)].name).pos; (yyval.node)->pn_u.name.isconst = 0;;}
+ break;
+
+ case 3:
+
+/* Line 1455 of yacc.c */
+#line 219 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = NULL;;}
+ break;
+
+ case 4:
+
+/* Line 1455 of yacc.c */
+#line 220 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = NULL;;}
+ break;
+
+ case 5:
+
+/* Line 1455 of yacc.c */
+#line 224 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 6:
+
+/* Line 1455 of yacc.c */
+#line 225 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 7:
+
+/* Line 1455 of yacc.c */
+#line 229 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 8:
+
+/* Line 1455 of yacc.c */
+#line 230 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 9:
+
+/* Line 1455 of yacc.c */
+#line 234 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 10:
+
+/* Line 1455 of yacc.c */
+#line 235 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 11:
+
+/* Line 1455 of yacc.c */
+#line 236 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 12:
+
+/* Line 1455 of yacc.c */
+#line 240 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 13:
+
+/* Line 1455 of yacc.c */
+#line 241 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 16:
+
+/* Line 1455 of yacc.c */
+#line 251 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 17:
+
+/* Line 1455 of yacc.c */
+#line 252 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 18:
+
+/* Line 1455 of yacc.c */
+#line 253 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 19:
+
+/* Line 1455 of yacc.c */
+#line 254 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 20:
+
+/* Line 1455 of yacc.c */
+#line 255 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 21:
+
+/* Line 1455 of yacc.c */
+#line 256 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 22:
+
+/* Line 1455 of yacc.c */
+#line 260 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 23:
+
+/* Line 1455 of yacc.c */
+#line 261 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 24:
+
+/* Line 1455 of yacc.c */
+#line 262 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;/* TODO: FIX AtomEscape = IDENT*/ ;}
+ break;
+
+ case 25:
+
+/* Line 1455 of yacc.c */
+#line 263 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;/* TODO: FIX AtomEscape = IDENT*/ ;}
+ break;
+
+ case 26:
+
+/* Line 1455 of yacc.c */
+#line 264 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 27:
+
+/* Line 1455 of yacc.c */
+#line 265 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 28:
+
+/* Line 1455 of yacc.c */
+#line 266 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 29:
+
+/* Line 1455 of yacc.c */
+#line 267 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 30:
+
+/* Line 1455 of yacc.c */
+#line 268 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 31:
+
+/* Line 1455 of yacc.c */
+#line 272 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 32:
+
+/* Line 1455 of yacc.c */
+#line 276 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 33:
+
+/* Line 1455 of yacc.c */
+#line 277 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 34:
+
+/* Line 1455 of yacc.c */
+#line 281 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 35:
+
+/* Line 1455 of yacc.c */
+#line 282 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 36:
+
+/* Line 1455 of yacc.c */
+#line 283 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 37:
+
+/* Line 1455 of yacc.c */
+#line 284 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 38:
+
+/* Line 1455 of yacc.c */
+#line 288 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = node_new (TOK_PRIMARY, PN_NULLARY); (yyval.node)->pn_op = JSOP_NULL;;}
+ break;
+
+ case 39:
+
+/* Line 1455 of yacc.c */
+#line 289 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = node_new (TOK_PRIMARY, PN_NULLARY); (yyval.node)->pn_op = JSOP_TRUE;;}
+ break;
+
+ case 40:
+
+/* Line 1455 of yacc.c */
+#line 290 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = node_new (TOK_PRIMARY, PN_NULLARY); (yyval.node)->pn_op = JSOP_FALSE;;}
+ break;
+
+ case 41:
+
+/* Line 1455 of yacc.c */
+#line 291 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = node_new (TOK_NUMBER, PN_NULLARY);;}
+ break;
+
+ case 42:
+
+/* Line 1455 of yacc.c */
+#line 292 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = node_new (TOK_STRING, PN_NULLARY);;}
+ break;
+
+ case 43:
+
+/* Line 1455 of yacc.c */
+#line 296 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_COLON, PN_BINARY);
+ (yyval.node)->pn_u.binary.left = (yyvsp[(1) - (3)].node);
+ (yyval.node)->pn_u.binary.right = (yyvsp[(3) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (3)].node));
+ node_correct_position ((yyval.node), (yyvsp[(3) - (3)].node));
+;}
+ break;
+
+ case 44:
+
+/* Line 1455 of yacc.c */
+#line 303 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_COLON, PN_BINARY);
+ (yyval.node)->pn_u.binary.left = (yyvsp[(1) - (3)].node);
+ (yyval.node)->pn_u.binary.right = (yyvsp[(3) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(3) - (3)].node));
+;}
+ break;
+
+ case 45:
+
+/* Line 1455 of yacc.c */
+#line 309 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_COLON, PN_BINARY);
+ (yyval.node)->pn_u.binary.left = (yyvsp[(1) - (3)].node);
+ (yyval.node)->pn_u.binary.right = (yyvsp[(3) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(3) - (3)].node));
+;}
+ break;
+
+ case 46:
+
+/* Line 1455 of yacc.c */
+#line 315 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 47:
+
+/* Line 1455 of yacc.c */
+#line 317 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 48:
+
+/* Line 1455 of yacc.c */
+#line 321 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_RC, PN_LIST);
+ (yyval.node)->pn_u.list.head = (yyvsp[(1) - (1)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (1)].node));
+;}
+ break;
+
+ case 49:
+
+/* Line 1455 of yacc.c */
+#line 326 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = (yyvsp[(1) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(3) - (3)].node));
+ g_assert ((yyvsp[(1) - (3)].node)->pn_arity == PN_LIST);
+ if ((yyvsp[(1) - (3)].node)->pn_u.list.head) {
+ JSNode *i;
+ for (i = (yyvsp[(1) - (3)].node)->pn_u.list.head; i->pn_next != NULL; i = i->pn_next)
+ ;
+ i->pn_next = (yyvsp[(3) - (3)].node);
+ } else (yyvsp[(1) - (3)].node)->pn_u.list.head = (yyvsp[(3) - (3)].node);
+;}
+ break;
+
+ case 51:
+
+/* Line 1455 of yacc.c */
+#line 341 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 52:
+
+/* Line 1455 of yacc.c */
+#line 342 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = (yyvsp[(2) - (3)].node);
+ node_correct_position_end ((yyval.node), (yyvsp[(3) - (3)].intValue));
+;}
+ break;
+
+ case 53:
+
+/* Line 1455 of yacc.c */
+#line 347 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = (yyvsp[(2) - (4)].node);
+ node_correct_position_end ((yyval.node), (yyvsp[(4) - (4)].intValue));
+;}
+ break;
+
+ case 54:
+
+/* Line 1455 of yacc.c */
+#line 354 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = node_new (TOK_PRIMARY, PN_NULLARY); (yyval.node)->pn_op = JSOP_THIS;;}
+ break;
+
+ case 57:
+
+/* Line 1455 of yacc.c */
+#line 357 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(1) - (1)].node);;}
+ break;
+
+ case 58:
+
+/* Line 1455 of yacc.c */
+#line 358 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(2) - (3)].node);;}
+ break;
+
+ case 59:
+
+/* Line 1455 of yacc.c */
+#line 362 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 60:
+
+/* Line 1455 of yacc.c */
+#line 363 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 61:
+
+/* Line 1455 of yacc.c */
+#line 364 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 62:
+
+/* Line 1455 of yacc.c */
+#line 368 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 63:
+
+/* Line 1455 of yacc.c */
+#line 370 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 64:
+
+/* Line 1455 of yacc.c */
+#line 374 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 66:
+
+/* Line 1455 of yacc.c */
+#line 379 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 67:
+
+/* Line 1455 of yacc.c */
+#line 380 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 70:
+
+/* Line 1455 of yacc.c */
+#line 386 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(1) - (1)].node);;}
+ break;
+
+ case 71:
+
+/* Line 1455 of yacc.c */
+#line 387 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 72:
+
+/* Line 1455 of yacc.c */
+#line 388 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new ( TOK_DOT, PN_NAME);
+ (yyval.node)->pn_u.name.expr = (yyvsp[(1) - (3)].node);
+ (yyval.node)->pn_u.name.name = (yyvsp[(3) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (3)].node));
+ node_correct_position ((yyval.node), (yyvsp[(3) - (3)].node));
+;}
+ break;
+
+ case 73:
+
+/* Line 1455 of yacc.c */
+#line 395 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new ( TOK_NEW, PN_LIST);
+ (yyval.node)->pn_u.list.head = (yyvsp[(2) - (3)].node);
+ (yyvsp[(2) - (3)].node)->pn_next = (yyvsp[(3) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(2) - (3)].node));
+ node_correct_position ((yyval.node), (yyvsp[(3) - (3)].node));
+;}
+ break;
+
+ case 75:
+
+/* Line 1455 of yacc.c */
+#line 406 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 76:
+
+/* Line 1455 of yacc.c */
+#line 407 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new ( TOK_DOT, PN_NAME);
+ (yyval.node)->pn_u.name.expr = (yyvsp[(1) - (3)].node);
+ (yyval.node)->pn_u.name.name = (yyvsp[(3) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (3)].node));
+ node_correct_position ((yyval.node), (yyvsp[(3) - (3)].node));
+;}
+ break;
+
+ case 77:
+
+/* Line 1455 of yacc.c */
+#line 414 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 79:
+
+/* Line 1455 of yacc.c */
+#line 419 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 81:
+
+/* Line 1455 of yacc.c */
+#line 424 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 82:
+
+/* Line 1455 of yacc.c */
+#line 428 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new ( TOK_LP, PN_LIST);
+ (yyvsp[(1) - (2)].node)->pn_next = (yyvsp[(2) - (2)].node);
+ (yyval.node)->pn_u.list.head = (yyvsp[(1) - (2)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (2)].node));
+ node_correct_position ((yyval.node), (yyvsp[(2) - (2)].node));
+;}
+ break;
+
+ case 83:
+
+/* Line 1455 of yacc.c */
+#line 435 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new ( TOK_LP, PN_LIST);
+ (yyvsp[(1) - (2)].node)->pn_next = (yyvsp[(2) - (2)].node);
+ (yyval.node)->pn_u.list.head = (yyvsp[(1) - (2)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (2)].node));
+ node_correct_position ((yyval.node), (yyvsp[(2) - (2)].node));
+;}
+ break;
+
+ case 84:
+
+/* Line 1455 of yacc.c */
+#line 442 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 85:
+
+/* Line 1455 of yacc.c */
+#line 443 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new ( TOK_DOT, PN_NAME);
+ (yyval.node)->pn_u.name.expr = (yyvsp[(1) - (3)].node);
+ (yyval.node)->pn_u.name.name = (yyvsp[(3) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (3)].node));
+ node_correct_position ((yyval.node), (yyvsp[(3) - (3)].node));
+;}
+ break;
+
+ case 86:
+
+/* Line 1455 of yacc.c */
+#line 453 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new ( TOK_LP, PN_LIST);
+ (yyvsp[(1) - (2)].node)->pn_next = (yyvsp[(2) - (2)].node);
+ (yyval.node)->pn_u.list.head = (yyvsp[(1) - (2)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (2)].node));
+ node_correct_position ((yyval.node), (yyvsp[(2) - (2)].node));
+;}
+ break;
+
+ case 87:
+
+/* Line 1455 of yacc.c */
+#line 460 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new ( TOK_LP, PN_LIST);
+ (yyvsp[(1) - (2)].node)->pn_next = (yyvsp[(2) - (2)].node);
+ (yyval.node)->pn_u.list.head = (yyvsp[(1) - (2)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (2)].node));
+ node_correct_position ((yyval.node), (yyvsp[(2) - (2)].node));
+;}
+ break;
+
+ case 88:
+
+/* Line 1455 of yacc.c */
+#line 467 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 89:
+
+/* Line 1455 of yacc.c */
+#line 468 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new ( TOK_DOT, PN_NAME);
+ (yyval.node)->pn_u.name.expr = (yyvsp[(1) - (3)].node);
+ (yyval.node)->pn_u.name.name = (yyvsp[(3) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (3)].node));
+ node_correct_position ((yyval.node), (yyvsp[(3) - (3)].node));
+;}
+ break;
+
+ case 90:
+
+/* Line 1455 of yacc.c */
+#line 478 "./parser/Grammar.y"
+ { PRINT_LINE_NOTNEED; (yyval.node) = NULL;;}
+ break;
+
+ case 91:
+
+/* Line 1455 of yacc.c */
+#line 479 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(2) - (3)].node);;}
+ break;
+
+ case 92:
+
+/* Line 1455 of yacc.c */
+#line 483 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(1) - (1)].node);;}
+ break;
+
+ case 93:
+
+/* Line 1455 of yacc.c */
+#line 484 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = (yyvsp[(1) - (3)].node);
+ if ((yyvsp[(1) - (3)].node)) (yyvsp[(1) - (3)].node)->pn_next = (yyvsp[(3) - (3)].node);
+ else (yyval.node) = (yyvsp[(3) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(3) - (3)].node));
+;}
+ break;
+
+ case 99:
+
+/* Line 1455 of yacc.c */
+#line 504 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(1) - (2)].node);;}
+ break;
+
+ case 100:
+
+/* Line 1455 of yacc.c */
+#line 505 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(1) - (2)].node);;}
+ break;
+
+ case 102:
+
+/* Line 1455 of yacc.c */
+#line 510 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 103:
+
+/* Line 1455 of yacc.c */
+#line 511 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 104:
+
+/* Line 1455 of yacc.c */
+#line 515 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 105:
+
+/* Line 1455 of yacc.c */
+#line 516 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 106:
+
+/* Line 1455 of yacc.c */
+#line 517 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 107:
+
+/* Line 1455 of yacc.c */
+#line 518 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 108:
+
+/* Line 1455 of yacc.c */
+#line 519 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 109:
+
+/* Line 1455 of yacc.c */
+#line 520 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 110:
+
+/* Line 1455 of yacc.c */
+#line 521 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 111:
+
+/* Line 1455 of yacc.c */
+#line 522 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 112:
+
+/* Line 1455 of yacc.c */
+#line 523 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 113:
+
+/* Line 1455 of yacc.c */
+#line 524 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 114:
+
+/* Line 1455 of yacc.c */
+#line 525 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 120:
+
+/* Line 1455 of yacc.c */
+#line 539 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(3) - (3)].node);;}
+ break;
+
+ case 121:
+
+/* Line 1455 of yacc.c */
+#line 540 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(3) - (3)].node);;}
+ break;
+
+ case 122:
+
+/* Line 1455 of yacc.c */
+#line 541 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(3) - (3)].node);;}
+ break;
+
+ case 124:
+
+/* Line 1455 of yacc.c */
+#line 547 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = (yyvsp[(3) - (3)].node);;}
+ break;
+
+ case 125:
+
+/* Line 1455 of yacc.c */
+#line 549 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = (yyvsp[(3) - (3)].node);;}
+ break;
+
+ case 126:
+
+/* Line 1455 of yacc.c */
+#line 551 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = (yyvsp[(3) - (3)].node);;}
+ break;
+
+ case 128:
+
+/* Line 1455 of yacc.c */
+#line 556 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(3) - (3)].node);;}
+ break;
+
+ case 129:
+
+/* Line 1455 of yacc.c */
+#line 557 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(3) - (3)].node);;}
+ break;
+
+ case 131:
+
+/* Line 1455 of yacc.c */
+#line 563 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(3) - (3)].node);;}
+ break;
+
+ case 132:
+
+/* Line 1455 of yacc.c */
+#line 565 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(3) - (3)].node);;}
+ break;
+
+ case 134:
+
+/* Line 1455 of yacc.c */
+#line 570 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 135:
+
+/* Line 1455 of yacc.c */
+#line 571 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 136:
+
+/* Line 1455 of yacc.c */
+#line 572 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 138:
+
+/* Line 1455 of yacc.c */
+#line 577 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 139:
+
+/* Line 1455 of yacc.c */
+#line 578 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 140:
+
+/* Line 1455 of yacc.c */
+#line 579 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 142:
+
+/* Line 1455 of yacc.c */
+#line 584 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 143:
+
+/* Line 1455 of yacc.c */
+#line 585 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 144:
+
+/* Line 1455 of yacc.c */
+#line 586 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 145:
+
+/* Line 1455 of yacc.c */
+#line 587 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 146:
+
+/* Line 1455 of yacc.c */
+#line 588 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 147:
+
+/* Line 1455 of yacc.c */
+#line 589 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 149:
+
+/* Line 1455 of yacc.c */
+#line 594 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 150:
+
+/* Line 1455 of yacc.c */
+#line 595 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 151:
+
+/* Line 1455 of yacc.c */
+#line 596 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 152:
+
+/* Line 1455 of yacc.c */
+#line 597 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 153:
+
+/* Line 1455 of yacc.c */
+#line 599 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 155:
+
+/* Line 1455 of yacc.c */
+#line 604 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 156:
+
+/* Line 1455 of yacc.c */
+#line 605 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 157:
+
+/* Line 1455 of yacc.c */
+#line 606 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 158:
+
+/* Line 1455 of yacc.c */
+#line 607 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 159:
+
+/* Line 1455 of yacc.c */
+#line 609 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 160:
+
+/* Line 1455 of yacc.c */
+#line 611 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 162:
+
+/* Line 1455 of yacc.c */
+#line 616 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 163:
+
+/* Line 1455 of yacc.c */
+#line 617 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 164:
+
+/* Line 1455 of yacc.c */
+#line 618 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 165:
+
+/* Line 1455 of yacc.c */
+#line 619 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 167:
+
+/* Line 1455 of yacc.c */
+#line 625 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 168:
+
+/* Line 1455 of yacc.c */
+#line 627 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 169:
+
+/* Line 1455 of yacc.c */
+#line 629 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 170:
+
+/* Line 1455 of yacc.c */
+#line 631 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 172:
+
+/* Line 1455 of yacc.c */
+#line 637 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 173:
+
+/* Line 1455 of yacc.c */
+#line 638 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 174:
+
+/* Line 1455 of yacc.c */
+#line 640 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 175:
+
+/* Line 1455 of yacc.c */
+#line 642 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 177:
+
+/* Line 1455 of yacc.c */
+#line 647 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 179:
+
+/* Line 1455 of yacc.c */
+#line 653 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 181:
+
+/* Line 1455 of yacc.c */
+#line 658 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 183:
+
+/* Line 1455 of yacc.c */
+#line 663 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 185:
+
+/* Line 1455 of yacc.c */
+#line 669 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 187:
+
+/* Line 1455 of yacc.c */
+#line 675 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 189:
+
+/* Line 1455 of yacc.c */
+#line 680 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 191:
+
+/* Line 1455 of yacc.c */
+#line 686 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 193:
+
+/* Line 1455 of yacc.c */
+#line 692 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 195:
+
+/* Line 1455 of yacc.c */
+#line 697 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 197:
+
+/* Line 1455 of yacc.c */
+#line 703 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 199:
+
+/* Line 1455 of yacc.c */
+#line 709 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 201:
+
+/* Line 1455 of yacc.c */
+#line 714 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 203:
+
+/* Line 1455 of yacc.c */
+#line 720 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 205:
+
+/* Line 1455 of yacc.c */
+#line 725 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 207:
+
+/* Line 1455 of yacc.c */
+#line 731 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 209:
+
+/* Line 1455 of yacc.c */
+#line 737 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 211:
+
+/* Line 1455 of yacc.c */
+#line 743 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 213:
+
+/* Line 1455 of yacc.c */
+#line 749 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_ASSIGN, PN_BINARY);
+ (yyval.node)->pn_u.binary.left = (yyvsp[(1) - (3)].node);
+ (yyval.node)->pn_u.binary.right = (yyvsp[(3) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (3)].node));
+ node_correct_position ((yyval.node), (yyvsp[(3) - (3)].node));
+;}
+ break;
+
+ case 215:
+
+/* Line 1455 of yacc.c */
+#line 761 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_ASSIGN, PN_BINARY);
+ (yyval.node)->pn_u.binary.left = (yyvsp[(1) - (3)].node);
+ (yyval.node)->pn_u.binary.right = (yyvsp[(3) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (3)].node));
+ node_correct_position ((yyval.node), (yyvsp[(3) - (3)].node));
+;}
+ break;
+
+ case 217:
+
+/* Line 1455 of yacc.c */
+#line 773 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_ASSIGN, PN_BINARY);
+ (yyval.node)->pn_u.binary.left = (yyvsp[(1) - (3)].node);
+ (yyval.node)->pn_u.binary.right = (yyvsp[(3) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (3)].node));
+ node_correct_position ((yyval.node), (yyvsp[(3) - (3)].node));
+;}
+ break;
+
+ case 218:
+
+/* Line 1455 of yacc.c */
+#line 783 "./parser/Grammar.y"
+ { PRINT_LINE_NOTNEED; (yyval.node) = NULL;;}
+ break;
+
+ case 219:
+
+/* Line 1455 of yacc.c */
+#line 784 "./parser/Grammar.y"
+ { PRINT_LINE_NOTNEED; (yyval.node) = NULL;;}
+ break;
+
+ case 220:
+
+/* Line 1455 of yacc.c */
+#line 785 "./parser/Grammar.y"
+ { PRINT_LINE_NOTNEED; (yyval.node) = NULL;;}
+ break;
+
+ case 221:
+
+/* Line 1455 of yacc.c */
+#line 786 "./parser/Grammar.y"
+ { PRINT_LINE_NOTNEED; (yyval.node) = NULL;;}
+ break;
+
+ case 222:
+
+/* Line 1455 of yacc.c */
+#line 787 "./parser/Grammar.y"
+ { PRINT_LINE_NOTNEED; (yyval.node) = NULL;;}
+ break;
+
+ case 223:
+
+/* Line 1455 of yacc.c */
+#line 788 "./parser/Grammar.y"
+ { PRINT_LINE_NOTNEED; (yyval.node) = NULL;;}
+ break;
+
+ case 224:
+
+/* Line 1455 of yacc.c */
+#line 789 "./parser/Grammar.y"
+ { PRINT_LINE_NOTNEED; (yyval.node) = NULL;;}
+ break;
+
+ case 225:
+
+/* Line 1455 of yacc.c */
+#line 790 "./parser/Grammar.y"
+ { PRINT_LINE_NOTNEED; (yyval.node) = NULL;;}
+ break;
+
+ case 226:
+
+/* Line 1455 of yacc.c */
+#line 791 "./parser/Grammar.y"
+ { PRINT_LINE_NOTNEED; (yyval.node) = NULL;;}
+ break;
+
+ case 227:
+
+/* Line 1455 of yacc.c */
+#line 792 "./parser/Grammar.y"
+ { PRINT_LINE_NOTNEED; (yyval.node) = NULL;;}
+ break;
+
+ case 228:
+
+/* Line 1455 of yacc.c */
+#line 793 "./parser/Grammar.y"
+ { PRINT_LINE_NOTNEED; (yyval.node) = NULL;;}
+ break;
+
+ case 229:
+
+/* Line 1455 of yacc.c */
+#line 794 "./parser/Grammar.y"
+ { PRINT_LINE_NOTNEED; (yyval.node) = NULL;;}
+ break;
+
+ case 231:
+
+/* Line 1455 of yacc.c */
+#line 799 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = (yyvsp[(3) - (3)].node);;}
+ break;
+
+ case 233:
+
+/* Line 1455 of yacc.c */
+#line 804 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = (yyvsp[(3) - (3)].node);;}
+ break;
+
+ case 235:
+
+/* Line 1455 of yacc.c */
+#line 809 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = (yyvsp[(3) - (3)].node);;}
+ break;
+
+ case 253:
+
+/* Line 1455 of yacc.c */
+#line 833 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_LC, PN_LIST);
+ (yyval.node)->pn_u.list.head = NULL;
+ node_correct_position_end ((yyval.node), (yyvsp[(2) - (2)].intValue));
+;}
+ break;
+
+ case 254:
+
+/* Line 1455 of yacc.c */
+#line 838 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_LC, PN_LIST);
+ (yyval.node)->pn_u.list.head = (yyvsp[(2) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(2) - (3)].node));
+ node_correct_position_end ((yyval.node), (yyvsp[(3) - (3)].intValue));
+;}
+ break;
+
+ case 255:
+
+/* Line 1455 of yacc.c */
+#line 847 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(2) - (3)].node);;}
+ break;
+
+ case 256:
+
+/* Line 1455 of yacc.c */
+#line 848 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(2) - (3)].node); AUTO_SEMICOLON (node_get_line ((yyvsp[(2) - (3)].node))); ;}
+ break;
+
+ case 257:
+
+/* Line 1455 of yacc.c */
+#line 852 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_VAR, PN_LIST);
+ (yyval.node)->pn_u.list.head = (yyvsp[(1) - (1)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (1)].node));
+;}
+ break;
+
+ case 258:
+
+/* Line 1455 of yacc.c */
+#line 857 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_VAR, PN_LIST);
+ (yyval.node)->pn_u.list.head = (yyvsp[(1) - (2)].node);
+ (yyvsp[(1) - (2)].node)->pn_u.name.expr = (yyvsp[(2) - (2)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (2)].node));
+ node_correct_position ((yyval.node), (yyvsp[(2) - (2)].node));
+;}
+ break;
+
+ case 259:
+
+/* Line 1455 of yacc.c */
+#line 865 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(1) - (3)].node);
+ if ((yyvsp[(3) - (3)].node)) {
+ g_assert ((yyvsp[(1) - (3)].node)->pn_arity == PN_LIST);
+ (yyvsp[(3) - (3)].node)->pn_next = (yyvsp[(1) - (3)].node)->pn_u.list.head;
+ (yyvsp[(1) - (3)].node)->pn_u.list.head = (yyvsp[(3) - (3)].node);
+ }
+ node_correct_position ((yyval.node), (yyvsp[(1) - (3)].node));
+ node_correct_position ((yyval.node), (yyvsp[(3) - (3)].node));
+;}
+ break;
+
+ case 260:
+
+/* Line 1455 of yacc.c */
+#line 875 "./parser/Grammar.y"
+ { PRINT_LINE;
+ if ((yyvsp[(3) - (4)].node)) {
+ g_assert ((yyvsp[(1) - (4)].node)->pn_arity == PN_LIST);
+ (yyvsp[(3) - (4)].node)->pn_next = (yyvsp[(1) - (4)].node)->pn_u.list.head;
+ (yyvsp[(1) - (4)].node)->pn_u.list.head = (yyvsp[(3) - (4)].node);
+ (yyvsp[(3) - (4)].node)->pn_u.name.expr = (yyvsp[(4) - (4)].node);
+ }
+ node_correct_position ((yyval.node), (yyvsp[(1) - (4)].node));
+ node_correct_position ((yyval.node), (yyvsp[(3) - (4)].node));
+ node_correct_position ((yyval.node), (yyvsp[(4) - (4)].node));
+;}
+ break;
+
+ case 261:
+
+/* Line 1455 of yacc.c */
+#line 889 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_VAR, PN_LIST);
+ (yyval.node)->pn_u.list.head = (yyvsp[(1) - (1)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (1)].node));
+;}
+ break;
+
+ case 262:
+
+/* Line 1455 of yacc.c */
+#line 894 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_VAR, PN_LIST);
+ (yyval.node)->pn_u.list.head = (yyvsp[(1) - (2)].node);
+ (yyvsp[(1) - (2)].node)->pn_u.name.expr = (yyvsp[(2) - (2)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (2)].node));
+ node_correct_position ((yyval.node), (yyvsp[(2) - (2)].node));
+;}
+ break;
+
+ case 263:
+
+/* Line 1455 of yacc.c */
+#line 902 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 264:
+
+/* Line 1455 of yacc.c */
+#line 904 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 265:
+
+/* Line 1455 of yacc.c */
+#line 908 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(2) - (3)].node);;}
+ break;
+
+ case 266:
+
+/* Line 1455 of yacc.c */
+#line 910 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(2) - (3)].node); AUTO_SEMICOLON (node_get_line ((yyvsp[(2) - (3)].node)));; ;}
+ break;
+
+ case 267:
+
+/* Line 1455 of yacc.c */
+#line 914 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_VAR, PN_LIST);
+ (yyval.node)->pn_u.list.head = (yyvsp[(1) - (1)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (1)].node));
+;}
+ break;
+
+ case 268:
+
+/* Line 1455 of yacc.c */
+#line 920 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = (yyvsp[(1) - (3)].node);
+ if ((yyvsp[(3) - (3)].node)) {
+ g_assert ((yyvsp[(1) - (3)].node)->pn_arity == PN_LIST);
+ (yyvsp[(3) - (3)].node)->pn_next = (yyvsp[(1) - (3)].node)->pn_u.list.head;
+ (yyvsp[(1) - (3)].node)->pn_u.list.head = (yyvsp[(3) - (3)].node);
+ }
+ node_correct_position ((yyval.node), (yyvsp[(3) - (3)].node));
+;}
+ break;
+
+ case 269:
+
+/* Line 1455 of yacc.c */
+#line 932 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(1) - (1)].node); (yyvsp[(1) - (1)].node)->pn_u.name.isconst = 1;;}
+ break;
+
+ case 270:
+
+/* Line 1455 of yacc.c */
+#line 933 "./parser/Grammar.y"
+ { PRINT_LINE_TODO;
+ (yyval.node) = (yyvsp[(1) - (2)].node);
+ (yyval.node)->pn_u.name.expr = (yyvsp[(2) - (2)].node);
+ node_correct_position ((yyval.node), (yyvsp[(2) - (2)].node));
+;}
+ break;
+
+ case 271:
+
+/* Line 1455 of yacc.c */
+#line 941 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(2) - (2)].node);;}
+ break;
+
+ case 272:
+
+/* Line 1455 of yacc.c */
+#line 945 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(2) - (2)].node);;}
+ break;
+
+ case 273:
+
+/* Line 1455 of yacc.c */
+#line 949 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = node_new (TOK_SEMI, PN_UNARY); (yyval.node)->pn_u.unary.kid = NULL;;}
+ break;
+
+ case 274:
+
+/* Line 1455 of yacc.c */
+#line 953 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(1) - (2)].node);;}
+ break;
+
+ case 275:
+
+/* Line 1455 of yacc.c */
+#line 954 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(1) - (2)].node); AUTO_SEMICOLON (node_get_line ((yyvsp[(1) - (2)].node)));; ;}
+ break;
+
+ case 276:
+
+/* Line 1455 of yacc.c */
+#line 959 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(5) - (5)].node);;}
+ break;
+
+ case 277:
+
+/* Line 1455 of yacc.c */
+#line 961 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(5) - (7)].node);;}
+ break;
+
+ case 278:
+
+/* Line 1455 of yacc.c */
+#line 965 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 279:
+
+/* Line 1455 of yacc.c */
+#line 966 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = NULL; AUTO_SEMICOLON (node_get_line ((yyvsp[(5) - (7)].node)));;}
+ break;
+
+ case 280:
+
+/* Line 1455 of yacc.c */
+#line 967 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(5) - (5)].node);;}
+ break;
+
+ case 281:
+
+/* Line 1455 of yacc.c */
+#line 969 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(9) - (9)].node);;}
+ break;
+
+ case 282:
+
+/* Line 1455 of yacc.c */
+#line 971 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 283:
+
+/* Line 1455 of yacc.c */
+#line 973 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(7) - (7)].node);;}
+ break;
+
+ case 284:
+
+/* Line 1455 of yacc.c */
+#line 975 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(8) - (8)].node);;}
+ break;
+
+ case 285:
+
+/* Line 1455 of yacc.c */
+#line 977 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(9) - (9)].node);;}
+ break;
+
+ case 286:
+
+/* Line 1455 of yacc.c */
+#line 981 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 288:
+
+/* Line 1455 of yacc.c */
+#line 986 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 290:
+
+/* Line 1455 of yacc.c */
+#line 991 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 291:
+
+/* Line 1455 of yacc.c */
+#line 992 "./parser/Grammar.y"
+ { PRINT_LINE; AUTO_SEMICOLON (0); ;}
+ break;
+
+ case 292:
+
+/* Line 1455 of yacc.c */
+#line 993 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 293:
+
+/* Line 1455 of yacc.c */
+#line 994 "./parser/Grammar.y"
+ { PRINT_LINE; AUTO_SEMICOLON (node_get_line ((yyvsp[(2) - (3)].node))); ;}
+ break;
+
+ case 294:
+
+/* Line 1455 of yacc.c */
+#line 998 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 295:
+
+/* Line 1455 of yacc.c */
+#line 999 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL; AUTO_SEMICOLON (0);;}
+ break;
+
+ case 296:
+
+/* Line 1455 of yacc.c */
+#line 1000 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 297:
+
+/* Line 1455 of yacc.c */
+#line 1001 "./parser/Grammar.y"
+ { PRINT_LINE; AUTO_SEMICOLON (node_get_line ((yyvsp[(2) - (3)].node))); ;}
+ break;
+
+ case 298:
+
+/* Line 1455 of yacc.c */
+#line 1005 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = node_new (TOK_RETURN, PN_UNARY); (yyval.node)->pn_u.unary.kid = NULL;;}
+ break;
+
+ case 299:
+
+/* Line 1455 of yacc.c */
+#line 1006 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = node_new (TOK_RETURN, PN_UNARY); (yyval.node)->pn_u.unary.kid = NULL; AUTO_SEMICOLON (0); ;}
+ break;
+
+ case 300:
+
+/* Line 1455 of yacc.c */
+#line 1007 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_RETURN, PN_UNARY);
+ (yyval.node)->pn_u.unary.kid = (yyvsp[(2) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(2) - (3)].node));
+;}
+ break;
+
+ case 301:
+
+/* Line 1455 of yacc.c */
+#line 1012 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_RETURN, PN_UNARY);
+ (yyval.node)->pn_u.unary.kid = (yyvsp[(2) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(2) - (3)].node));
+ AUTO_SEMICOLON (node_get_line ((yyvsp[(2) - (3)].node)));
+;}
+ break;
+
+ case 302:
+
+/* Line 1455 of yacc.c */
+#line 1021 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 303:
+
+/* Line 1455 of yacc.c */
+#line 1025 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 304:
+
+/* Line 1455 of yacc.c */
+#line 1029 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 305:
+
+/* Line 1455 of yacc.c */
+#line 1031 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 306:
+
+/* Line 1455 of yacc.c */
+#line 1035 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 308:
+
+/* Line 1455 of yacc.c */
+#line 1040 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 309:
+
+/* Line 1455 of yacc.c */
+#line 1041 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 310:
+
+/* Line 1455 of yacc.c */
+#line 1045 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 311:
+
+/* Line 1455 of yacc.c */
+#line 1046 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 312:
+
+/* Line 1455 of yacc.c */
+#line 1050 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 313:
+
+/* Line 1455 of yacc.c */
+#line 1051 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 314:
+
+/* Line 1455 of yacc.c */
+#line 1055 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 315:
+
+/* Line 1455 of yacc.c */
+#line 1059 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 316:
+
+/* Line 1455 of yacc.c */
+#line 1060 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 317:
+
+/* Line 1455 of yacc.c */
+#line 1064 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 318:
+
+/* Line 1455 of yacc.c */
+#line 1065 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 319:
+
+/* Line 1455 of yacc.c */
+#line 1067 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 320:
+
+/* Line 1455 of yacc.c */
+#line 1071 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 321:
+
+/* Line 1455 of yacc.c */
+#line 1072 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 322:
+
+/* Line 1455 of yacc.c */
+#line 1076 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new ( TOK_FUNCTION, PN_FUNC);
+ (yyval.node)->pn_u.func.name = (yyvsp[(2) - (7)].node);
+ (yyval.node)->pn_u.func.body = (yyvsp[(6) - (7)].node);
+ (yyval.node)->pn_u.func.args = NULL;
+ node_correct_position ((yyval.node), (yyvsp[(2) - (7)].node));
+ node_correct_position ((yyval.node), (yyvsp[(6) - (7)].node));
+ node_correct_position_end ((yyval.node), (yyvsp[(7) - (7)].intValue));
+;}
+ break;
+
+ case 323:
+
+/* Line 1455 of yacc.c */
+#line 1086 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new ( TOK_FUNCTION, PN_FUNC);
+ (yyval.node)->pn_u.func.name = (yyvsp[(2) - (8)].node);
+ (yyval.node)->pn_u.func.body = (yyvsp[(7) - (8)].node);
+ (yyval.node)->pn_u.func.args = (yyvsp[(4) - (8)].node);
+ node_correct_position ((yyval.node), (yyvsp[(2) - (8)].node));
+ node_correct_position ((yyval.node), (yyvsp[(7) - (8)].node));
+ node_correct_position ((yyval.node), (yyvsp[(4) - (8)].node));
+ node_correct_position_end ((yyval.node), (yyvsp[(8) - (8)].intValue));
+;}
+ break;
+
+ case 324:
+
+/* Line 1455 of yacc.c */
+#line 1099 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new ( TOK_FUNCTION, PN_FUNC);
+ (yyval.node)->pn_u.func.name = NULL;
+ (yyval.node)->pn_u.func.body = (yyvsp[(5) - (6)].node);
+ (yyval.node)->pn_u.func.args = NULL;
+ node_correct_position ((yyval.node), (yyvsp[(5) - (6)].node));
+ node_correct_position_end ((yyval.node), (yyvsp[(6) - (6)].intValue));
+;}
+ break;
+
+ case 325:
+
+/* Line 1455 of yacc.c */
+#line 1108 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new ( TOK_FUNCTION, PN_FUNC);
+ (yyval.node)->pn_u.func.name = NULL;
+ (yyval.node)->pn_u.func.body = (yyvsp[(6) - (7)].node);
+ (yyval.node)->pn_u.func.args = (yyvsp[(3) - (7)].node);
+ node_correct_position ((yyval.node), (yyvsp[(3) - (7)].node));
+ node_correct_position ((yyval.node), (yyvsp[(6) - (7)].node));
+ node_correct_position_end ((yyval.node), (yyvsp[(7) - (7)].intValue));
+;}
+ break;
+
+ case 326:
+
+/* Line 1455 of yacc.c */
+#line 1117 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new ( TOK_FUNCTION, PN_FUNC);
+ (yyval.node)->pn_u.func.name = (yyvsp[(2) - (7)].node);
+ (yyval.node)->pn_u.func.body = (yyvsp[(6) - (7)].node);
+ (yyval.node)->pn_u.func.args = NULL;
+ node_correct_position ((yyval.node), (yyvsp[(2) - (7)].node));
+ node_correct_position ((yyval.node), (yyvsp[(6) - (7)].node));
+ node_correct_position_end ((yyval.node), (yyvsp[(7) - (7)].intValue));
+;}
+ break;
+
+ case 327:
+
+/* Line 1455 of yacc.c */
+#line 1127 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new ( TOK_FUNCTION, PN_FUNC);
+ (yyval.node)->pn_u.func.name = (yyvsp[(2) - (8)].node);
+ (yyval.node)->pn_u.func.body = (yyvsp[(7) - (8)].node);
+ (yyval.node)->pn_u.func.args = (yyvsp[(4) - (8)].node);
+ node_correct_position ((yyval.node), (yyvsp[(2) - (8)].node));
+ node_correct_position ((yyval.node), (yyvsp[(4) - (8)].node));
+ node_correct_position ((yyval.node), (yyvsp[(7) - (8)].node));
+ node_correct_position_end ((yyval.node), (yyvsp[(8) - (8)].intValue));
+;}
+ break;
+
+ case 328:
+
+/* Line 1455 of yacc.c */
+#line 1140 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_LC, PN_LIST);
+ (yyval.node)->pn_u.list.head = (yyvsp[(1) - (1)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (1)].node));
+;}
+ break;
+
+ case 329:
+
+/* Line 1455 of yacc.c */
+#line 1145 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = (yyvsp[(1) - (3)].node);
+ g_assert ((yyvsp[(1) - (3)].node)->pn_arity == PN_LIST);
+ if ((yyvsp[(1) - (3)].node)->pn_u.list.head) {
+ JSNode *i;
+ for (i = (yyvsp[(1) - (3)].node)->pn_u.list.head; i->pn_next != NULL; i = i->pn_next)
+ ;
+ i->pn_next = (yyvsp[(3) - (3)].node);
+ } else (yyvsp[(1) - (3)].node)->pn_u.list.head = (yyvsp[(3) - (3)].node);
+ node_correct_position ((yyval.node), (yyvsp[(3) - (3)].node));
+;}
+ break;
+
+ case 330:
+
+/* Line 1455 of yacc.c */
+#line 1159 "./parser/Grammar.y"
+ { PRINT_LINE_TODO; (yyval.node) = NULL;;}
+ break;
+
+ case 331:
+
+/* Line 1455 of yacc.c */
+#line 1160 "./parser/Grammar.y"
+ { PRINT_LINE; (yyval.node) = (yyvsp[(1) - (1)].node);;}
+ break;
+
+ case 332:
+
+/* Line 1455 of yacc.c */
+#line 1164 "./parser/Grammar.y"
+ { PRINT_LINE; global = NULL;;}
+ break;
+
+ case 333:
+
+/* Line 1455 of yacc.c */
+#line 1165 "./parser/Grammar.y"
+ { PRINT_LINE; global = (yyvsp[(1) - (1)].node);;}
+ break;
+
+ case 334:
+
+/* Line 1455 of yacc.c */
+#line 1169 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = node_new (TOK_LC, PN_LIST);
+ (yyval.node)->pn_u.list.head = (yyvsp[(1) - (1)].node);
+ node_correct_position ((yyval.node), (yyvsp[(1) - (1)].node));
+;}
+ break;
+
+ case 335:
+
+/* Line 1455 of yacc.c */
+#line 1174 "./parser/Grammar.y"
+ { PRINT_LINE;
+ (yyval.node) = (yyvsp[(1) - (2)].node);
+ g_assert ((yyvsp[(1) - (2)].node)->pn_arity == PN_LIST);
+ if ((yyvsp[(1) - (2)].node)->pn_u.list.head) {
+ JSNode *i;
+ for (i = (yyvsp[(1) - (2)].node)->pn_u.list.head; i->pn_next != NULL; i = i->pn_next) {
+ }
+ i->pn_next = (yyvsp[(2) - (2)].node);
+ } else (yyvsp[(1) - (2)].node)->pn_u.list.head = (yyvsp[(2) - (2)].node);
+ node_correct_position ((yyval.node), (yyvsp[(2) - (2)].node));
+;}
+ break;
+
+
+
+/* Line 1455 of yacc.c */
+#line 4421 "./parser/y.tab.c"
+ default: break;
+ }
+ YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
+
+ YYPOPSTACK (yylen);
+ yylen = 0;
+ YY_STACK_PRINT (yyss, yyssp);
+
+ *++yyvsp = yyval;
+
+ /* Now `shift' the result of the reduction. Determine what state
+ that goes to, based on the state we popped back to and the rule
+ number reduced by. */
+
+ yyn = yyr1[yyn];
+
+ yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
+ if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
+ yystate = yytable[yystate];
+ else
+ yystate = yydefgoto[yyn - YYNTOKENS];
+
+ goto yynewstate;
+
+
+/*------------------------------------.
+| yyerrlab -- here on detecting error |
+`------------------------------------*/
+yyerrlab:
+ /* If not already recovering from an error, report this error. */
+ if (!yyerrstatus)
+ {
+ ++yynerrs;
+#if ! YYERROR_VERBOSE
+ yyerror (YY_("syntax error"));
+#else
+ {
+ YYSIZE_T yysize = yysyntax_error (0, yystate, yychar);
+ if (yymsg_alloc < yysize && yymsg_alloc < YYSTACK_ALLOC_MAXIMUM)
+ {
+ YYSIZE_T yyalloc = 2 * yysize;
+ if (! (yysize <= yyalloc && yyalloc <= YYSTACK_ALLOC_MAXIMUM))
+ yyalloc = YYSTACK_ALLOC_MAXIMUM;
+ if (yymsg != yymsgbuf)
+ YYSTACK_FREE (yymsg);
+ yymsg = (char *) YYSTACK_ALLOC (yyalloc);
+ if (yymsg)
+ yymsg_alloc = yyalloc;
+ else
+ {
+ yymsg = yymsgbuf;
+ yymsg_alloc = sizeof yymsgbuf;
+ }
+ }
+
+ if (0 < yysize && yysize <= yymsg_alloc)
+ {
+ (void) yysyntax_error (yymsg, yystate, yychar);
+ yyerror (yymsg);
+ }
+ else
+ {
+ yyerror (YY_("syntax error"));
+ if (yysize != 0)
+ goto yyexhaustedlab;
+ }
+ }
+#endif
+ }
+
+
+
+ if (yyerrstatus == 3)
+ {
+ /* If just tried and failed to reuse lookahead token after an
+ error, discard it. */
+
+ if (yychar <= YYEOF)
+ {
+ /* Return failure if at end of input. */
+ if (yychar == YYEOF)
+ YYABORT;
+ }
+ else
+ {
+ yydestruct ("Error: discarding",
+ yytoken, &yylval);
+ yychar = YYEMPTY;
+ }
+ }
+
+ /* Else will try to reuse lookahead token after shifting the error
+ token. */
+ goto yyerrlab1;
+
+
+/*---------------------------------------------------.
+| yyerrorlab -- error raised explicitly by YYERROR. |
+`---------------------------------------------------*/
+yyerrorlab:
+
+ /* Pacify compilers like GCC when the user code never invokes
+ YYERROR and the label yyerrorlab therefore never appears in user
+ code. */
+ if (/*CONSTCOND*/ 0)
+ goto yyerrorlab;
+
+ /* Do not reclaim the symbols of the rule which action triggered
+ this YYERROR. */
+ YYPOPSTACK (yylen);
+ yylen = 0;
+ YY_STACK_PRINT (yyss, yyssp);
+ yystate = *yyssp;
+ goto yyerrlab1;
+
+
+/*-------------------------------------------------------------.
+| yyerrlab1 -- common code for both syntax error and YYERROR. |
+`-------------------------------------------------------------*/
+yyerrlab1:
+ yyerrstatus = 3; /* Each real token shifted decrements this. */
+
+ for (;;)
+ {
+ yyn = yypact[yystate];
+ if (yyn != YYPACT_NINF)
+ {
+ yyn += YYTERROR;
+ if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
+ {
+ yyn = yytable[yyn];
+ if (0 < yyn)
+ break;
+ }
+ }
+
+ /* Pop the current state because it cannot handle the error token. */
+ if (yyssp == yyss)
+ YYABORT;
+
+
+ yydestruct ("Error: popping",
+ yystos[yystate], yyvsp);
+ YYPOPSTACK (1);
+ yystate = *yyssp;
+ YY_STACK_PRINT (yyss, yyssp);
+ }
+
+ *++yyvsp = yylval;
+
+
+ /* Shift the error token. */
+ YY_SYMBOL_PRINT ("Shifting", yystos[yyn], yyvsp, yylsp);
+
+ yystate = yyn;
+ goto yynewstate;
+
+
+/*-------------------------------------.
+| yyacceptlab -- YYACCEPT comes here. |
+`-------------------------------------*/
+yyacceptlab:
+ yyresult = 0;
+ goto yyreturn;
+
+/*-----------------------------------.
+| yyabortlab -- YYABORT comes here. |
+`-----------------------------------*/
+yyabortlab:
+ yyresult = 1;
+ goto yyreturn;
+
+#if !defined(yyoverflow) || YYERROR_VERBOSE
+/*-------------------------------------------------.
+| yyexhaustedlab -- memory exhaustion comes here. |
+`-------------------------------------------------*/
+yyexhaustedlab:
+ yyerror (YY_("memory exhausted"));
+ yyresult = 2;
+ /* Fall through. */
+#endif
+
+yyreturn:
+ if (yychar != YYEMPTY)
+ yydestruct ("Cleanup: discarding lookahead",
+ yytoken, &yylval);
+ /* Do not reclaim the symbols of the rule which action triggered
+ this YYABORT or YYACCEPT. */
+ YYPOPSTACK (yylen);
+ YY_STACK_PRINT (yyss, yyssp);
+ while (yyssp != yyss)
+ {
+ yydestruct ("Cleanup: popping",
+ yystos[*yyssp], yyvsp);
+ YYPOPSTACK (1);
+ }
+#ifndef yyoverflow
+ if (yyss != yyssa)
+ YYSTACK_FREE (yyss);
+#endif
+ yyps->yynew = 1;
+
+yypushreturn:
+#if YYERROR_VERBOSE
+ if (yymsg != yymsgbuf)
+ YYSTACK_FREE (yymsg);
+#endif
+ /* Make sure YYID is used. */
+ return YYID (yyresult);
+}
+
+
+
+/* Line 1675 of yacc.c */
+#line 1187 "./parser/Grammar.y"
+
+#undef GLOBAL_DATA
+
+void yyerror (char* msg)
+{
+// puts (msg);
+}
+
diff --git a/plugins/symbol-db/anjuta-tags/parser/y.tab.h b/plugins/symbol-db/anjuta-tags/parser/y.tab.h
new file mode 100644
index 0000000..fb29a2e
--- /dev/null
+++ b/plugins/symbol-db/anjuta-tags/parser/y.tab.h
@@ -0,0 +1,168 @@
+
+/* A Bison parser, made by GNU Bison 2.4.1. */
+
+/* Skeleton interface for Bison's Yacc-like parsers in C
+
+ Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003, 2004, 2005, 2006
+ Free Software Foundation, Inc.
+
+ 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 3 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, see <http://www.gnu.org/licenses/>. */
+
+/* As a special exception, you may create a larger work that contains
+ part or all of the Bison parser skeleton and distribute that work
+ under terms of your choice, so long as that work isn't itself a
+ parser generator using the skeleton or a modified version thereof
+ as a parser skeleton. Alternatively, if you modify or redistribute
+ the parser skeleton itself, you may (at your option) remove this
+ special exception, which will cause the skeleton and the resulting
+ Bison output files to be licensed under the GNU General Public
+ License without this special exception.
+
+ This special exception was added by the Free Software Foundation in
+ version 2.2 of Bison. */
+
+
+/* Tokens. */
+#ifndef YYTOKENTYPE
+# define YYTOKENTYPE
+ /* Put the tokens into the symbol table, so that GDB and other debuggers
+ know about them. */
+ enum yytokentype {
+ NULLTOKEN = 258,
+ TRUETOKEN = 259,
+ FALSETOKEN = 260,
+ BREAK = 261,
+ CASE = 262,
+ DEFAULT = 263,
+ FOR = 264,
+ NEW = 265,
+ VAR = 266,
+ CONSTTOKEN = 267,
+ CONTINUE = 268,
+ FUNCTION = 269,
+ RETURN = 270,
+ VOIDTOKEN = 271,
+ DELETETOKEN = 272,
+ IF = 273,
+ THISTOKEN = 274,
+ DO = 275,
+ WHILE = 276,
+ INTOKEN = 277,
+ INSTANCEOF = 278,
+ TYPEOF = 279,
+ SWITCH = 280,
+ WITH = 281,
+ RESERVED = 282,
+ THROW = 283,
+ TRY = 284,
+ CATCH = 285,
+ FINALLY = 286,
+ DEBUGGER = 287,
+ IF_WITHOUT_ELSE = 288,
+ ELSE = 289,
+ EQEQ = 290,
+ NE = 291,
+ STREQ = 292,
+ STRNEQ = 293,
+ LE = 294,
+ GE = 295,
+ OR = 296,
+ AND = 297,
+ PLUSPLUS = 298,
+ MINUSMINUS = 299,
+ LSHIFT = 300,
+ RSHIFT = 301,
+ URSHIFT = 302,
+ PLUSEQUAL = 303,
+ MINUSEQUAL = 304,
+ MULTEQUAL = 305,
+ DIVEQUAL = 306,
+ LSHIFTEQUAL = 307,
+ RSHIFTEQUAL = 308,
+ URSHIFTEQUAL = 309,
+ ANDEQUAL = 310,
+ MODEQUAL = 311,
+ XOREQUAL = 312,
+ OREQUAL = 313,
+ OPENBRACE = 314,
+ CLOSEBRACE = 315,
+ IDENT_IN = 316,
+ NUMBER = 317,
+ STRING = 318,
+ AUTOPLUSPLUS = 319,
+ AUTOMINUSMINUS = 320
+ };
+#endif
+
+
+
+#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
+typedef union YYSTYPE
+{
+
+/* Line 1676 of yacc.c */
+#line 109 "./parser/Grammar.y"
+
+ int intValue;
+ JSNode* node;
+ struct {
+ char *iname;
+ JSTokenPos pos;
+ } name;
+
+
+
+/* Line 1676 of yacc.c */
+#line 128 "./parser/y.tab.h"
+} YYSTYPE;
+# define YYSTYPE_IS_TRIVIAL 1
+# define yystype YYSTYPE /* obsolescent; will be withdrawn */
+# define YYSTYPE_IS_DECLARED 1
+#endif
+
+
+
+
+#ifndef YYPUSH_DECLS
+# define YYPUSH_DECLS
+struct yypstate;
+typedef struct yypstate yypstate;
+enum { YYPUSH_MORE = 4 };
+#if defined __STDC__ || defined __cplusplus
+int yyparse (void);
+#else
+int yyparse ();
+#endif
+#if defined __STDC__ || defined __cplusplus
+int yypush_parse (yypstate *yyps, int yypushed_char, YYSTYPE const *yypushed_val);
+#else
+int yypush_parse ();
+#endif
+#if defined __STDC__ || defined __cplusplus
+int yypull_parse (yypstate *yyps);
+#else
+int yypull_parse ();
+#endif
+#if defined __STDC__ || defined __cplusplus
+yypstate * yypstate_new (void);
+#else
+yypstate * yypstate_new ();
+#endif
+#if defined __STDC__ || defined __cplusplus
+void yypstate_delete (yypstate *yyps);
+#else
+void yypstate_delete ();
+#endif
+#endif
+
diff --git a/plugins/symbol-db/anjuta-tags/parsers.h b/plugins/symbol-db/anjuta-tags/parsers.h
index 3dcc8ae..44dd66f 100644
--- a/plugins/symbol-db/anjuta-tags/parsers.h
+++ b/plugins/symbol-db/anjuta-tags/parsers.h
@@ -31,6 +31,7 @@
ErlangParser, \
FlexParser, \
FortranParser, \
+ GirParser, \
HtmlParser, \
JavaParser, \
JavaScriptParser, \
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]
