Add libteken (from FreeBSD) to third_party.

third_party/libteken/teken/gensequences

+#!/usr/bin/awk -f

[jamesr, 2015/05/05 17:22:28]

do we need this?

+
+#-
+# Copyright (c) 2008-2009 Ed Schouten <ed@FreeBSD.org>
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions
+# are met:
+# 1. Redistributions of source code must retain the above copyright
+#    notice, this list of conditions and the following disclaimer.
+# 2. Redistributions in binary form must reproduce the above copyright
+#    notice, this list of conditions and the following disclaimer in the
+#    documentation and/or other materials provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+# SUCH DAMAGE.
+#
+# $FreeBSD: head/sys/teken/gensequences 223574 2011-06-26 18:25:10Z ed $
+
+function die(msg) {
+        print msg;
+        exit 1;
+}
+
+function cchar(str) {
+        if (str == "^[")
+                return "\\x1B";
+
+        return str;
+}
+
+BEGIN {
+FS = "\t+"
+
+while (getline > 0) {
+        if (NF == 0 || $1 ~ /^#/)
+                continue;
+
+        if (NF != 3 && NF != 4)
+                die("Invalid line layout: " NF " columns");
+
+        split($3, sequence, " +");
+        nsequences = 0;
+        for (s in sequence)
+                nsequences++;
+
+        prefix = "";
+        l_prefix_name[""] = "teken_state_init";
+        for (i = 1; i < nsequences; i++) {
+                n = prefix sequence[i];
+                l_prefix_parent[n] = prefix;
+                l_prefix_suffix[n] = sequence[i];
+                if (!l_prefix_name[n])
+                        l_prefix_name[n] = "teken_state_" ++npr;
+                prefix = n;
+        }
+
+        suffix = sequence[nsequences];
+        cmd = prefix suffix;
+
+        # Fill lists
+        if (l_cmd_name[cmd] != "")
+                die(cmd " already exists");
+        l_cmd_prefix[cmd] = prefix;
+        l_cmd_suffix[cmd] = suffix;
+        l_cmd_args[cmd] = $4;
+        l_cmd_abbr[cmd] = $1;
+        l_cmd_name[cmd] = $2;
+        l_cmd_c_name[cmd] = "teken_subr_" tolower($2);
+        gsub(" ", "_", l_cmd_c_name[cmd]);
+
+        if ($4 != "")
+                l_prefix_numbercmds[prefix]++;
+}
+
+print "/* Generated file. Do not edit. */";
+print "";
+
+for (p in l_prefix_name) {
+        if (l_prefix_name[p] != "teken_state_init")
+                print "static teken_state_t     " l_prefix_name[p] ";";
+}
+
+for (p in l_prefix_name) {
+        print "";
+        print "/* '" p "' */";
+        print "static void";
+        print l_prefix_name[p] "(teken_t *t, teken_char_t c)";
+        print "{";
+
+        if (l_prefix_numbercmds[p] > 0) {
+                print "";
+                print "\tif (teken_state_numbers(t, c))";
+                print "\t\treturn;";
+        }
+
+        print "";
+        print "\tswitch (c) {";
+        for (c in l_cmd_prefix) {
+                if (l_cmd_prefix[c] != p)
+                        continue;
+
+                print "\tcase '" cchar(l_cmd_suffix[c]) "': /* " l_cmd_abbr[c] ": " l_cmd_name[c] " */";
+
+                if (l_cmd_args[c] == "v") {
+                        print "\t\t" l_cmd_c_name[c] "(t, t->t_curnum, t->t_nums);";
+                } else {
+                        printf "\t\t%s(t", l_cmd_c_name[c];
+                        split(l_cmd_args[c], args, " ");
+                        for (a = 1; args[a] != ""; a++) {
+                                if (args[a] == "n")
+                                        printf ", (t->t_curnum < %d || t->t_nums[%d] == 0) ? 1 : t->t_nums[%d]", a, (a - 1), (a - 1);
+                                else if (args[a] == "r")
+                                        printf ", t->t_curnum < %d ? 0 : t->t_nums[%d]", a, (a - 1);
+                                else
+                                        die("Invalid argument type: " args[a]);
+                        }
+                        print ");";
+                }
+                print "\t\tbreak;";
+        }
+        for (pc in l_prefix_parent) {
+                if (l_prefix_parent[pc] != p)
+                        continue;
+                print "\tcase '" cchar(l_prefix_suffix[pc]) "':";
+                print "\t\tteken_state_switch(t, " l_prefix_name[pc] ");";
+                print "\t\treturn;";
+        }
+
+        print "\tdefault:";
+        if (l_prefix_name[p] == "teken_state_init") {
+                print "\t\tteken_subr_regular_character(t, c);";
+        } else {
+                print "\t\tteken_printf(\"Unsupported sequence in " l_prefix_name[p] ": %u\\n\", (unsigned int)c);";
+        }
+        print "\t\tbreak;";
+
+        print "\t}";
+
+        if (l_prefix_name[p] != "teken_state_init") {
+                print "";
+                print "\tteken_state_switch(t, teken_state_init);";
+        }
+        print "}";
+}
+
+}