Imported from /srv/lorry/lorry-area/autogen/autogen-5.16.2.tar.gz.HEADautogen-5.16.2master

1 files changed, 109 insertions, 0 deletions

diff --git a/agen5/defParse.def b/agen5/defParse.def
new file mode 100644
index 0000000..6b24380
--- /dev/null
+++ b/agen5/defParse.def
@@ -0,0 +1,109 @@
+/*
+ *  Time-stamp:        "2010-08-06 08:57:49 bkorb"
+ *
+ *  This file is part of AutoGen.
+ *  AutoGen Copyright (c) 1992-2012 by Bruce Korb - all rights reserved
+ *
+ * AutoGen 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.
+ *
+ * AutoGen 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/>.
+ */
+
+autogen definitions fsm;
+
+method = callout;
+type   = loop;
+prefix = dp;
+#ifdef DEBUG_ENABLED
+debug-flag      = FSM_DEBUG_ENABLED;
+#endif
+handler-file    = defParse.x;
+
+/*
+ * Non-terminal "events"
+ */
+event  = "autogen", "definitions", end,
+         var_name, other_name, string, here_string, number;
+
+/*
+ * Terminal token-events
+ */
+event  = lit_semi, lit_eq, lit_comma, lit_o_brace, lit_c_brace,
+         lit_open_bkt, lit_close_bkt;
+
+lit-semi        = ';';
+lit-eq          = '=';
+lit-comma       = ',';
+lit-o_brace     = '{';
+lit-c_brace     = '}';
+lit-open_bkt    = '[';
+lit-close_bkt   = ']';
+end = 'End-Of-File';
+
+state  = need_def,     need_tpl,     need_semi,    need_name,
+         have_name,    need_value,   need_idx,     need_cbkt,
+         indx_name,    have_value;
+
+/*
+ *  Initial to operational state
+ */
+transition =
+{ tst  = init;         tev = "autogen";     next = need_def;  ttype = noop; },
+{ tst  = need_def;     tev = "definitions"; next = need_tpl;  ttype = noop; },
+{ tst  = need_tpl;     tev = string, other_name, var_name;
+  next = need_semi;    ttype = tpl_name; },
+{ tst  = need_semi;    tev = lit_semi;      next = need_name; ttype = noop; };
+
+/*
+ *  When looking for the next named object, you either get the name,
+ *  or end a block or end the input.  If you get an "autogen" token, ignore it.
+ *  We likely got it due to a #include.
+ */
+transition =
+{ tst = need_name;    tev   = "autogen";    next = need_def;  ttype = noop; },
+{ tst = need_name;    tev   = var_name;     next = have_name; },
+{ tst = need_name;    tev   = lit_c_brace;  next = have_value;
+                      ttype = end_block; },
+{ tst = need_name;    tev   = end;          next = done; };
+
+/*
+ *  We have a name now.  Next is a semicolon for an empty string value,
+ *  or an '=' to start a value list or a '[' for an indexed value.
+ */
+transition =
+{ tst = have_name;    tev   = lit_semi;      next = need_name;
+                      ttype = empty_val; },
+{ tst = have_name;    tev   = lit_eq;        next = need_value; },
+{ tst = have_name;    tev   = lit_open_bkt;  next = need_idx; ttype = noop; },
+{ tst = need_idx;     tev   = number, var_name;
+                      ttype = indexed_name;  next = need_cbkt; },
+{ tst = need_cbkt;    tev   = lit_close_bkt; next = indx_name;
+                      ttype = noop; },
+/*
+ *  once you have one index, you cannot have another.
+ *  Otherwise, "indx_name" is identical to "have_name".
+ */
+{ tst = indx_name;    tev   = lit_semi;        next = need_name;
+                      ttype = empty_val; },
+{ tst = indx_name;    tev   = lit_eq;          next = need_value;
+                      ttype = noop; };
+
+transition =
+{ tst  = need_value;  tev = string, here_string, other_name, var_name, number;
+                      next  = have_value;      ttype = str_value; },
+{ tst  = need_value;  tev   = lit_o_brace;     next  = need_name;
+                      ttype = start_block; },
+{ tst  = have_value;  tev   = lit_semi;        next  = need_name;
+                      ttype = noop; },
+{ tst  = have_value;  tev   = lit_comma;       next  = need_value;
+                      ttype = next_val; };
+/* end of agen5/defParse.def */