summaryrefslogtreecommitdiffstats
path: root/sys/tools
diff options
context:
space:
mode:
authorobrien <obrien@FreeBSD.org>2002-05-01 03:19:19 +0000
committerobrien <obrien@FreeBSD.org>2002-05-01 03:19:19 +0000
commit77bbdad49ce646f671ba2fce42f4c569805e5f5e (patch)
tree65ebc751ef2d7e7e21174d189ce628c5073cc145 /sys/tools
parentd2ad9809fdbc349ce1304d59926d0d88358fc64a (diff)
downloadFreeBSD-src-77bbdad49ce646f671ba2fce42f4c569805e5f5e.zip
FreeBSD-src-77bbdad49ce646f671ba2fce42f4c569805e5f5e.tar.gz
Awk version of makeobjops.PL.
Note the invocation ordering is slightly different: awk -f makeobjops.awk foo.m -ch Submitted by: Oliver Fromme <olli@fromme.com>
Diffstat (limited to 'sys/tools')
-rw-r--r--sys/tools/makeobjops.awk485
1 files changed, 485 insertions, 0 deletions
diff --git a/sys/tools/makeobjops.awk b/sys/tools/makeobjops.awk
new file mode 100644
index 0000000..d78698c
--- /dev/null
+++ b/sys/tools/makeobjops.awk
@@ -0,0 +1,485 @@
+#!/usr/bin/awk -f
+#
+# Copyright (c) 1992, 1993
+# The Regents of the University of California. 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.
+# 3. All advertising materials mentioning features or use of this software
+# must display the following acknowledgement:
+# This product includes software developed by the University of
+# California, Berkeley and its contributors.
+# 4. Neither the name of the University nor the names of its contributors
+# may be used to endorse or promote products derived from this software
+# without specific prior written permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE REGENTS 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 REGENTS 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.
+#
+# From @(#)vnode_if.sh 8.1 (Berkeley) 6/10/93
+# From @(#)makedevops.sh 1.1 1998/06/14 13:53:12 dfr Exp $
+# From @(#)makedevops.sh ?.? 1998/10/05
+# From src/sys/kern/makedevops.pl,v 1.12 1999/11/22 14:40:04 n_hibma Exp
+# From src/sys/kern/makeobjops.pl,v 1.8 2001/11/16 02:02:42 joe Exp
+#
+# $FreeBSD$
+
+#
+# Script to produce kobj front-end sugar.
+#
+
+function usage ()
+{
+ print "usage: makeobjops.awk <srcfile.m> [-d] [-p] [-l <nr>] [-c|-h]";
+ print "where -c produce only .c files";
+ print " -h produce only .h files";
+ print " -p use the path component in the source file for destination dir";
+ print " -l set line width for output files [80]";
+ print " -d switch on debugging";
+ exit 1;
+}
+
+function warn (msg)
+{
+ print "makeobjops.awk:", msg > "/dev/stderr";
+}
+
+function warnsrc (msg)
+{
+ warn(src ":" lineno ": " msg);
+}
+
+function debug (msg)
+{
+ if (opt_d)
+ warn(msg);
+}
+
+function die (msg)
+{
+ warn(msg);
+ exit 1;
+}
+
+# These are just for convenience ...
+function printc(s) {if (opt_c) print s > ctmpfilename;}
+function printh(s) {if (opt_h) print s > htmpfilename;}
+
+#
+# If a line exceeds maxlength, split it into multiple
+# lines at commas. Subsequent lines are indented by
+# the specified number of spaces.
+#
+# In other words: Lines are split by replacing ", "
+# by ",\n" plus indent spaces.
+#
+
+function format_line (line, maxlength, indent)
+{
+ rline = "";
+
+ while (length(line) > maxlength) {
+ #
+ # Find the rightmost ", " so that the part
+ # to the left of it is just within maxlength.
+ # If there is none, give up and leave it as-is.
+ #
+ if (!match(substr(line, 1, maxlength + 1), /^.*, /))
+ break;
+ rline = rline substr(line, 1, RLENGTH - 1) "\n";
+ line = sprintf("%*s", indent, "") substr(line, RLENGTH + 1);
+ }
+ return rline line;
+}
+
+#
+# Join an array into a string.
+#
+
+function join (separator, array, num)
+{
+ _result = ""
+ if (num) {
+ while (num > 1)
+ _result = separator array[num--] _result;
+ _result = array[1] _result;
+ }
+ return _result;
+}
+
+#
+# Execute a system command and report if it failed.
+#
+
+function system_check (cmd)
+{
+ if ((rc = system(cmd)))
+ warn(cmd " failed (" rc ")");
+}
+
+#
+# Handle "INTERFACE" line.
+#
+
+function handle_interface ()
+{
+ intname = $2;
+ sub(/;$/, "", intname);
+ if (intname !~ /^[a-z_][a-z0-9_]*$/) {
+ debug($0);
+ warnsrc("Invalid interface name '" intname "', use [a-z_][a-z0-9_]*");
+ error = 1;
+ return;
+ }
+ if (!/;[ ]*$/)
+ warnsrc("Semicolon missing at end of line, no problem");
+
+ debug("Interface " intname);
+
+ printh("#ifndef _" intname "_if_h_");
+ printh("#define _" intname "_if_h_\n");
+ printc("#include \"" intname "_if.h\"\n");
+}
+
+#
+# Handle "CODE" and "HEADER" sections.
+# Returns the code as-is.
+#
+
+function handle_code ()
+{
+ code = "\n";
+ getline < src;
+ indent = $0;
+ sub(/[^ ].*$/, "", indent); # find the indent used
+ while (!/^}/) {
+ sub("^" indent, ""); # remove the indent
+ code = code $0 "\n";
+ getline < src;
+ lineno++;;
+ }
+ return code;
+}
+
+#
+# Handle "METHOD" and "STATICMETHOD" sections.
+#
+
+function handle_method (static)
+{
+ #
+ # Get the return type and function name and delete that from
+ # the line. What is left is the possibly first function argument
+ # if it is on the same line.
+ #
+ if (!intname) {
+ warnsrc("No interface name defined");
+ error = 1;
+ return;
+ }
+ sub(/^[^ ]+[ ]+/, "");
+ ret = $0;
+ sub(/[ ]*\{.*$/, "", ret);
+ name = ret;
+ sub(/^.*[ ]/, "", name); # last element is name of method
+ sub(/[ ]+[^ ]+$/, "", ret); # return type
+ debug("Method: name=" name " return type=" ret);
+
+ sub(/^[^\{]*\{[ ]*/, "");
+
+ if (!name || !ret) {
+ debug($0);
+ warnsrc("Invalid method specification");
+ error = 1;
+ return;
+ }
+
+ if (name !~ /^[a-z_][a-z_0-9]*$/) {
+ warnsrc("Invalid method name '" name "', use [a-z_][a-z0-9_]*");
+ error = 1;
+ return;
+ }
+
+ if (methods[name]) {
+ warnsrc("Duplicate method name");
+ error = 1;
+ return;
+ }
+ methods[name] = name;
+
+ line = $0;
+ while (line !~ /\}/ && (getline < src) > 0) {
+ line = line " " $0;
+ lineno++
+ }
+
+ default = "";
+ if (!match(line, /\};?/)) {
+ warnsrc("Premature end of file");
+ error = 1;
+ return;
+ }
+ extra = substr(line, RSTART + RLENGTH);
+ if (extra ~ /[ ]*DEFAULT[ ]*[a-zA-Z_][a-zA-Z_0-9]*[ ]*;/) {
+ default = extra;
+ sub(/.*DEFAULT[ ]*/, "", default);
+ sub(/[; ]+.*$/, "", default);
+ }
+ else if (extra && opt_d) {
+ # Warn about garbage at end of line.
+ warnsrc("Ignored '" extra "'");
+ }
+ sub(/\};?.*$/, "", line);
+
+ #
+ # Create a list of variables without the types prepended.
+ #
+ sub(/^[ ]+/, "", line); # remove leading ...
+ sub(/[ ]+$/, "", line); # ... and trailing whitespace
+ gsub(/[ ]+/, " ", line); # remove double spaces
+
+ num_arguments = split(line, arguments, / *; */) - 1;
+ delete varnames; # list of varnames
+ num_varnames = 0;
+ for (i = 1; i <= num_arguments; i++) {
+ if (!arguments[i])
+ continue; # skip argument if argument is empty
+ num_ar = split(arguments[i], ar, /[* ]+/);
+ if (num_ar < 2) { # only 1 word in argument?
+ warnsrc("no type for '" arguments[i] "'");
+ error = 1;
+ return;
+ }
+ # Last element is name of variable.
+ varnames[++num_varnames] = ar[num_ar];
+ }
+
+ argument_list = join(", ", arguments, num_arguments);
+ varname_list = join(", ", varnames, num_varnames);
+
+ if (opt_d) {
+ warn("Arguments: " argument_list);
+ warn("Varnames: " varname_list);
+ }
+
+ mname = intname "_" name; # method name
+ umname = toupper(mname); # uppercase method name
+
+ firstvar = varnames[1];
+
+ if (default == "")
+ default = "0";
+
+ # the method description
+ printh("extern struct kobjop_desc " mname "_desc;");
+ # the method typedef
+ prototype = "typedef " ret " " mname "_t(";
+ printh(format_line(prototype argument_list ");",
+ line_width, length(prototype)));
+
+ # Print out the method desc
+ printc("struct kobjop_desc " mname "_desc = {");
+ printc("\t0, (kobjop_t) " default);
+ printc("};\n");
+
+ # Print out the method itself
+ if (0) { # haven't chosen the format yet
+ printh("static __inline " ret " " umname "(" varname_list ")");
+ printh("\t" join(";\n\t", arguments, num_arguments) ";");
+ }
+ else {
+ prototype = "static __inline " ret " " umname "(";
+ printh(format_line(prototype argument_list ")",
+ line_width, length(prototype)));
+ }
+ printh("{");
+ printh("\tkobjop_t _m;");
+ if (!static)
+ firstvar = "((kobj_t)" firstvar ")";
+ printh("\tKOBJOPLOOKUP(" firstvar "->ops," mname ");");
+ retrn = (ret != "void") ? "return " : "";
+ printh("\t" retrn "((" mname "_t *) _m)(" varname_list ");");
+ printh("}\n");
+}
+
+#
+# Begin of the main program.
+#
+
+BEGIN {
+
+line_width = 80;
+gerror = 0;
+
+#
+# Process the command line.
+#
+
+num_files = 0;
+
+for (i = 1; i < ARGC; i++) {
+ if (ARGV[i] ~ /^-/) {
+ #
+ # awk doesn't have getopt(), so we have to do it ourselves.
+ # This is a bit clumsy, but it works.
+ #
+ for (j = 2; j <= length(ARGV[i]); j++) {
+ o = substr(ARGV[i], j, 1);
+ if (o == "c") opt_c = 1;
+ else if (o == "h") opt_h = 1;
+ else if (o == "p") opt_p = 1;
+ else if (o == "d") opt_d = 1;
+ else if (o == "l") {
+ if (length(ARGV[i]) > j) {
+ opt_l = substr(ARGV[i], j + 1);
+ break;
+ }
+ else {
+ if (++i < ARGC)
+ opt_l = ARGV[i];
+ else
+ usage();
+ }
+ }
+ else
+ usage();
+ }
+ }
+ else if (ARGV[i] ~ /\.m$/)
+ filenames[num_files++] = ARGV[i];
+ else
+ usage();
+}
+
+if (!num_files || !(opt_c || opt_h))
+ usage();
+
+if (opt_p)
+ debug("Will produce files in original not in current directory");
+
+if (opt_l) {
+ if (opt_l !~ /^[0-9]+$/ || opt_l < 1)
+ die("Invalid line width '" opt_l "'");
+ line_width = opt_l;
+ debug("Line width set to " line_width);
+}
+
+for (i = 0; i < num_files; i++)
+ debug("Filename: " filenames[i]);
+
+for (file_i = 0; file_i < num_files; file_i++) {
+ src = filenames[file_i];
+ cfilename = hfilename = src;
+ sub(/\.m$/, ".c", cfilename);
+ sub(/\.m$/, ".h", hfilename);
+ if (!opt_p) {
+ sub(/^.*\//, "", cfilename);
+ sub(/^.*\//, "", hfilename);
+ }
+
+ debug("Processing from " src " to " cfilename " / " hfilename);
+
+ ctmpfilename = cfilename ".tmp";
+ htmpfilename = hfilename ".tmp";
+
+ common_head = \
+ "/*\n" \
+ " * This file is produced automatically.\n" \
+ " * Do not modify anything in here by hand.\n" \
+ " *\n" \
+ " * Created from source file\n" \
+ " * " src "\n" \
+ " * with\n" \
+ " * makeobjops.awk\n" \
+ " *\n" \
+ " * See the source file for legal information\n" \
+ " */\n";
+
+ printc(common_head "\n" \
+ "#include <sys/param.h>\n" \
+ "#include <sys/queue.h>\n" \
+ "#include <sys/kernel.h>\n" \
+ "#include <sys/kobj.h>");
+
+ printh(common_head);
+
+ delete methods; # clear list of methods
+ intname = "";
+ lineno = 0;
+ error = 0; # to signal clean up and gerror setting
+
+ while (!error && (getline < src) > 0) {
+ lineno++;
+
+ #
+ # Take special notice of include directives.
+ #
+ if (/^#[ ]*include[ ]+["<][^">]+[">]/) {
+ incld = $0;
+ sub(/^#[ ]*include[ ]+/, "", incld);
+ debug("Included file: " incld);
+ printc("#include " incld);
+ }
+
+ sub(/#.*/, ""); # remove comments
+ sub(/^[ ]+/, ""); # remove leading ...
+ sub(/[ ]+$/, ""); # ... and trailing whitespace
+
+ if (/^$/) { # skip empty lines
+ }
+ else if (/^INTERFACE[ ]+[^ ;]*[ ]*;?[ ]*$/)
+ handle_interface();
+ else if (/^CODE[ ]*{$/)
+ printc(handle_code());
+ else if (/^HEADER[ ]*{$/)
+ printh(handle_code());
+ else if (/^METHOD/)
+ handle_method(0);
+ else if (/^STATICMETHOD/)
+ handle_method(1);
+ else {
+ debug($0);
+ warnsrc("Invalid line encountered");
+ error = 1;
+ }
+ }
+
+ #
+ # Print the final '#endif' in the header file.
+ #
+ printh("#endif /* _" intname "_if_h_ */");
+
+ close (ctmpfilename);
+ close (htmpfilename);
+
+ if (error) {
+ warn("Output skipped");
+ system_check("rm -f " ctmpfilename " " htmpfilename);
+ gerror = 1;
+ }
+ else {
+ if (opt_c)
+ system_check("mv " ctmpfilename " " cfilename);
+ if (opt_h)
+ system_check("mv " htmpfilename " " hfilename);
+ }
+}
+
+exit gerror;
+
+}
OpenPOWER on IntegriCloud