Current Path : /sys/teken/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
Current File : //sys/teken/gensequences |
#!/usr/bin/awk -f #- # 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: release/9.1.0/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 "}"; } }