All rights reserved.
This code is derived from software contributed to Berkeley by
Ozan Yigit.
Redistribution and use in source and binary forms are permitted
provided that the above copyright notice and this paragraph are
duplicated in all such forms and that any documentation,
advertising materials, and other materials related to such
distribution and use acknowledge that the software was developed
by the University of California, Berkeley. The name of the
University may not be used to endorse or promote products derived
from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
@(#)m4.1 6.3 (Berkeley) 08/28/89
The options and their effects are as follows:
\f3-D\f2name\^[\f3=\f2val\^] Defines name to val or to null in val 's absence.
-U name undefines name .
Macro calls have the form:
name(arg1,arg2, .\|.\|., argn)
The ( must immediately follow the name of the macro. If the name of a defined macro is not followed by a ( , it is taken to be a call of that macro with no arguments, i.e. name(). Potential macro names consist of alphabetic letters and digits.
Leading unquoted blanks, tabs and newlines are ignored while collecting arguments. Left and right single quotes are used to quote strings. The value of a quoted string is the string stripped of the quotes.
When a macro name is recognized, its arguments are collected by searching for a matching ) . If fewer arguments are supplied than are in the macro definition, the trailing arguments are taken to be null. Macro evaluation proceeds normally during the collection of the arguments, and any commas or right parentheses which happen to turn up within the value of a nested call are as effective as those in the original input text. (This is typically referred as inside-out macro expansion.) After argument collection, the value of the macro is pushed back onto the input stream and rescanned.
M4 makes available the following built-in macros. They may be redefined, but once this is done the original meaning is lost. Their values are null unless otherwise stated.
14 \\$1 usage: \\\$1\\$2\
.. .MC define "(name [, val])" the second argument is installed as the value of the macro whose name is the first argument. If there is no second argument, the value is null. Each occurrence of $ n in the replacement text, where n is a digit, is replaced by the n -th argument. Argument 0 is the name of the macro; missing arguments are replaced by the null string. .MC defn "(name [, name ...]) returns the quoted definition of its argument(s). Useful in renaming macros. .MC undefine "(name [, name ...])" removes the definition of the macro(s) named. If there is more than one definition for the named macro, (due to previous use of pushdef ) all definitions are removed. .MC pushdef "(name [, val])" like define , but saves any previous definition by stacking the current definition. .MC popdef "(name [, name ...])" removes current definition of its argument(s), exposing the previous one if any. .MC ifdef "(name, if-def [, ifnot-def])" if the first argument is defined, the value is the second argument, otherwise the third. If there is no third argument, the value is null. .MC shift "(arg, arg, arg, ...)" returns all but its first argument. The other arguments are quoted and pushed back with commas in between. The quoting nullifies the effect of the extra scan that will subsequently be performed. .MC changequote "(lqchar, rqchar)" change quote symbols to the first and second arguments. With no arguments, the quotes are reset back to the default characters. (i.e., \*`\|\*'). .MC changecom "(lcchar, rcchar)" change left and right comment markers from the default # and newline . With no arguments, the comment mechanism is reset back to the default characters. With one argument, the left marker becomes the argument and the right marker becomes newline. With two arguments, both markers are affected. .MC divert "(divnum)" m4 maintains 10 output streams, numbered 0-9. initially stream 0 is the current stream. The divert macro changes the current output stream to its (digit-string) argument. Output diverted to a stream other than 0 through 9 disappears into bitbucket. .MC undivert "([divnum [, divnum ...]])" causes immediate output of text from diversions named as argument(s), or all diversions if no argument. Text may be undiverted into another diversion. Undiverting discards the diverted text. At the end of input processing, M4 forces an automatic undivert , unless m4wrap is defined. .MC divnum "()" returns the value of the current output stream. .MC dnl "()" reads and discards characters up to and including the next newline. .MC ifelse "(arg, arg, if-same [, ifnot-same | arg, arg ...])" has three or more arguments. If the first argument is the same string as the second, then the value is the third argument. If not, and if there are more than four arguments, the process is repeated with arguments 4, 5, 6 and 7. Otherwise, the value is either the fourth string, or, if it is not present, null. .MC incr "(num)" returns the value of its argument incremented by 1. The value of the argument is calculated by interpreting an initial digit-string as a decimal number. .MC decr "(num)" returns the value of its argument decremented by 1. .MC eval "(expression)" evaluates its argument as a constant expression, using integer arithmetic. The evaluation mechanism is very similar to that of cpp (#if expression). The expression can involve only integer constants and character constants, possibly connected by the binary operators
* / % + - >> << < > <= >= == != & ^ | && ||or the unary operators - ~ ! or by the ternary operator ? : . Parentheses may be used for grouping. Octal numbers may be specified as in C. .MC len "(string)" returns the number of characters in its argument. .MC index "(search-string, string)" returns the position in its first argument where the second argument begins (zero origin), or -1 if the second argument does not occur. .MC substr "(string, index [, length])" returns a substring of its first argument. The second argument is a zero origin number selecting the first character (internally treated as an expression); the third argument indicates the length of the substring. A missing third argument is taken to be large enough to extend to the end of the first string. .MC translit "(source, from [, to])" transliterates the characters in its first argument from the set given by the second argument to the set given by the third. If the third argument is shorter than the second, all extra characters in the second argument are deleted from the first argument. If the third argument is missing altogether, all characters in the second argument are deleted from the first argument. .MC include "(filename)" returns the contents of the file named in the argument. .MC sinclude "(filename)" is identical to include , except that it says nothing if the file is inaccessible. .MC paste "(filename)" returns the contents of the file named in the argument without any processing, unlike include. .MC spaste "(filename)" is identical to paste , except that it says nothing if the file is inaccessible. .MC syscmd "(command)" executes the UNIX command given in the first argument. No value is returned. .MC sysval "()" is the return code from the last call to syscmd . .MC maketemp "(string)" fills in a string of XXXXXX in its argument with the current process ID\*S. .MC m4exit "([exitcode])" causes immediate exit from m4 . Argument 1, if given, is the exit code; the default is 0. .MC m4wrap "(m4-macro-or-built-in)" argument 1 will be pushed back at final EOF ; example: m4wrap(`dumptable()'). .MC errprint "(str [, str, str, ...])" prints its argument(s) on stderr. If there is more than one argument, each argument is separated by a space during the output. .MC dumpdef "([name, name, ...])" prints current names and definitions, for the named items, or for all if no arguments are given. .dt
All complex uses of M4 require the ability to program in deep recursion. Previous lisp experience is recommended.
changequote(<,>) define(HASHVAL,99) dnl define(hash,<expr(str(substr($1,1),0)%HASHVAL)>) dnl define(str, <ifelse($1,",$2, <str(substr(<$1>,1),<expr($2+'substr($1,0,1)')>)>) >) dnl define(KEYWORD,<$1,hash($1),>) dnl define(TSTART, <struct prehash { char *keyword; int hashval; } keytab[] = {>) dnl define(TEND,< "",0 };>) dnl
Thus a keyword table containing the keyword string and its pre-calculated hash value may be generated thus:
TSTART
KEYWORD("foo")
KEYWORD("bar")
KEYWORD("baz")
TEND
which will expand into:
struct prehash {
char *keyword;
int hashval;
} keytab[] = {
"foo",27,
"bar",12,
"baz",20,
"",0
};
Presumably, such a table would speed up the installation of the keywords into a dynamic hash table. (Note that the above macro cannot be used with M4 , since eval does not handle character constants.)