cutils-1.6/0040755000076500001450000000000007324331443012232 5ustar sandrosandrocutils-1.6/COPYRIGHT0100644000076500001450000000234507323643603013531 0ustar sandrosandroCopyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. cutils-1.6/CREDITS0100644000076500001450000000137207324330274013253 0ustar sandrosandro* Tim Vanderhoek for FreeBSD compatibility fixes. * Liviu Daia for bug fixes. * Masafumi NAKANE for bug fixes and configuration ideas. * Georg Umgiesser for bug reports. * David Stes for bug reports. * Chuck Robey for bug fixes. * Eric Backus for bug reports and fixes. * Hamish Moffatt for bug fixes. * Wetzel Gabriel for bug fixes and cobfusc `-f', `-x', `-z' options implementation. * Jukka A. Ukkonen for roff and tty formats, better handling of #xxx preprocessor directives and some other minor changes to chilight. cutils-1.6/HISTORY0100644000076500001450000000045207324331426013315 0ustar sandrosandro1996-07-01 cutils 1.0 1996-08-12 cutils 1.1 1996-08-27 cutils 1.2 1996-11-09 cutils 1.2.1 1996-11-26 cutils 1.3 1996-12-08 cutils 1.3.1 1996-12-24 cutils 1.3.2 1997-05-01 cutils 1.3.3 1997-05-19 cutils 1.4 1997-06-05 cutils 1.5 1997-10-06 cutils 1.5.1 1997-11-24 cutils 1.5.2 2001-07-15 cutils 1.6 cutils-1.6/INSTALL0100644000076500001450000001723006367460531013272 0ustar sandrosandroBasic Installation ================== These are generic installation instructions. The `configure' shell script attempts to guess correct values for various system-dependent variables used during compilation. It uses those values to create a `Makefile' in each directory of the package. It may also create one or more `.h' files containing system-dependent definitions. Finally, it creates a shell script `config.status' that you can run in the future to recreate the current configuration, a file `config.cache' that saves the results of its tests to speed up reconfiguring, and a file `config.log' containing compiler output (useful mainly for debugging `configure'). If you need to do unusual things to compile the package, please try to figure out how `configure' could check whether to do them, and mail diffs or instructions to the address given in the `README' so they can be considered for the next release. If at some point `config.cache' contains results you don't want to keep, you may remove or edit it. The file `configure.in' is used to create `configure' by a program called `autoconf'. You only need `configure.in' if you want to change it or regenerate `configure' using a newer version of `autoconf'. The simplest way to compile this package is: 1. `cd' to the directory containing the package's source code and type `./configure' to configure the package for your system. If you're using `csh' on an old version of System V, you might need to type `sh ./configure' instead to prevent `csh' from trying to execute `configure' itself. Running `configure' takes awhile. While running, it prints some messages telling which features it is checking for. 2. Type `make' to compile the package. 3. Optionally, type `make check' to run any self-tests that come with the package. 4. Type `make install' to install the programs and any data files and documentation. 5. You can remove the program binaries and object files from the source code directory by typing `make clean'. To also remove the files that `configure' created (so you can compile the package for a different kind of computer), type `make distclean'. There is also a `make maintainer-clean' target, but that is intended mainly for the package's developers. If you use it, you may have to get all sorts of other programs in order to regenerate files that came with the distribution. Compilers and Options ===================== Some systems require unusual options for compilation or linking that the `configure' script does not know about. You can give `configure' initial values for variables by setting them in the environment. Using a Bourne-compatible shell, you can do that on the command line like this: CC=c89 CFLAGS=-O2 LIBS=-lposix ./configure Or on systems that have the `env' program, you can do it like this: env CPPFLAGS=-I/usr/local/include LDFLAGS=-s ./configure Compiling For Multiple Architectures ==================================== You can compile the package for more than one kind of computer at the same time, by placing the object files for each architecture in their own directory. To do this, you must use a version of `make' that supports the `VPATH' variable, such as GNU `make'. `cd' to the directory where you want the object files and executables to go and run the `configure' script. `configure' automatically checks for the source code in the directory that `configure' is in and in `..'. If you have to use a `make' that does not supports the `VPATH' variable, you have to compile the package for one architecture at a time in the source code directory. After you have installed the package for one architecture, use `make distclean' before reconfiguring for another architecture. Installation Names ================== By default, `make install' will install the package's files in `/usr/local/bin', `/usr/local/man', etc. You can specify an installation prefix other than `/usr/local' by giving `configure' the option `--prefix=PATH'. You can specify separate installation prefixes for architecture-specific files and architecture-independent files. If you give `configure' the option `--exec-prefix=PATH', the package will use PATH as the prefix for installing programs and libraries. Documentation and other data files will still use the regular prefix. In addition, if you use an unusual directory layout you can give options like `--bindir=PATH' to specify different values for particular kinds of files. Run `configure --help' for a list of the directories you can set and what kinds of files go in them. If the package supports it, you can cause programs to be installed with an extra prefix or suffix on their names by giving `configure' the option `--program-prefix=PREFIX' or `--program-suffix=SUFFIX'. Optional Features ================= Some packages pay attention to `--enable-FEATURE' options to `configure', where FEATURE indicates an optional part of the package. They may also pay attention to `--with-PACKAGE' options, where PACKAGE is something like `gnu-as' or `x' (for the X Window System). The `README' should mention any `--enable-' and `--with-' options that the package recognizes. For packages that use the X Window System, `configure' can usually find the X include and library files automatically, but if it doesn't, you can use the `configure' options `--x-includes=DIR' and `--x-libraries=DIR' to specify their locations. Specifying the System Type ========================== There may be some features `configure' can not figure out automatically, but needs to determine by the type of host the package will run on. Usually `configure' can figure that out, but if it prints a message saying it can not guess the host type, give it the `--host=TYPE' option. TYPE can either be a short name for the system type, such as `sun4', or a canonical name with three fields: CPU-COMPANY-SYSTEM See the file `config.sub' for the possible values of each field. If `config.sub' isn't included in this package, then this package doesn't need to know the host type. If you are building compiler tools for cross-compiling, you can also use the `--target=TYPE' option to select the type of system they will produce code for and the `--build=TYPE' option to select the type of system on which you are compiling the package. Sharing Defaults ================ If you want to set default values for `configure' scripts to share, you can create a site shell script called `config.site' that gives default values for variables like `CC', `cache_file', and `prefix'. `configure' looks for `PREFIX/share/config.site' if it exists, then `PREFIX/etc/config.site' if it exists. Or, you can set the `CONFIG_SITE' environment variable to the location of the site script. A warning: not all `configure' scripts look for a site script. Operation Controls ================== `configure' recognizes the following options to control how it operates. `--cache-file=FILE' Use and save the results of the tests in FILE instead of `./config.cache'. Set FILE to `/dev/null' to disable caching, for debugging `configure'. `--help' Print a summary of the options to `configure', and exit. `--quiet' `--silent' `-q' Do not print messages saying which checks are being made. To suppress all normal output, redirect it to `/dev/null' (any error messages will still be shown). `--srcdir=DIR' Look for the package's source code in directory DIR. Usually `configure' can determine that directory automatically. `--version' Print the version of Autoconf used to generate the `configure' script, and exit. `configure' also accepts some other, not widely useful, options. cutils-1.6/Makefile.in0100644000076500001450000000053407323644552014305 0ustar sandrosandro# $Id: Makefile.in,v 1.6 2001/07/13 19:18:02 sandro Exp $ subdirs = doc lib src all install uninstall clean realclean mostyclean: @for f in $(subdirs); do \ (cd $$f && $(MAKE) $@); \ done distclean: @for f in $(subdirs); do \ (cd $$f && $(MAKE) $@); \ done -rm -f Makefile -rm -f config.cache config.status config.log -rm -f config.h cutils-1.6/NEWS0100644000076500001450000001016307324330274012730 0ustar sandrosandroChanges between cutils 1.5.2 - cutils 1.6 * Cleaned up long-standing bugs and package distribution. * chilight - added roff and tty formats, better handling of #xxx preprocessor directives and some minor changes. Contributed by Jukka A. Ukkonen . - added ANSI escape cleanup. - cleaned up HTML output. - added `-t' HTML title option. - removed useless `-d' option. - renamed `-s' "style" option to `-f' "format". * cobfusc - cleaned up. - added `-A' heavy obfuscation option. - added `-f' separate output option. - added `-x' exclusive mode option. - added `-z' identifiers pairs option. - removed useless `-h' option. - fixed bug with the `-e' option. - inverted `-p' and `-r' options behavior. * yyextract - cleaned up HTML output. - added `-t' HTML title option. * Removed cinfo, cinfoc, cinfodc, cweave, ctangle components. Changes between cutils 1.5.1 - cutils 1.5.2 * Bug fixes. * `cobfusc' - added the digraphize option (-b). - simplified the trigraphize option from `-t no|all|random' to `-t'. Changes between cutils 1.5 - cutils 1.5.1 * bug fixes Changes between cutils 1.4 - cutils 1.5 * bug fixes - `chilight' ANSI escapes work again. * added the `ctangle' utility. * added the `cweave' utility. * added a new Texinfo manual. Changes between cutils 1.3.3 - cutils 1.4 * bug fixes * added the `cunloop' utility. Changes between cutils 1.3.2 - cutils 1.3.3 * bug fixes. * made more portable with GNU configure. * now compiles again under Linux. * `cobfusc' - sort the dumped symbol table (-u) * removed scc and safealloc. Changes between cutils 1.3.1 - cutils 1.3.2 * bug fixes. Changes between cutils 1.3 - cutils 1.3.1 * added the `configure' script to simplify the installation stage (idea from Masafumi NAKANE ) * `chilight' - rewritten - multi style support (multiple output formats). - HTML support (font and color). Changes between cutils 1.2.1 - cutils 1.3 * the target OS is now expected to be FreeBSD. * bug fixes. - Thanks to Liviu Daia . * added the `yyref' utility. * added the experimental `scc' compiler. Changes between cutils 1.2 - cutils 1.2.1 * bug fixes. * fixed storage class bug in `cdecl'. * removed ugly spaces in function declaration in `cdecl' and `cundecl'. Changes between cutils 1.1 - cutils 1.2 * bug fixes. * added the `cdecl' utility. * added the `cundecl' utility. Changes between cutils 1.0 - cutils 1.1 * mostly bug fixes and cleanups. * FreeBSD compatibility fixes thanks to Tim Vanderhoek . * converted the man pages to Berkeley-style. * added the safealloc library (snapshot). * `yyextract' - added HTML format (-h) option. (nice!) - added width (-w) option. * `cobfusc' - added dump symbol table (-u) option. * cinfo - added some new stuff to the database. - `cinfo' - added HTML format (-h) option. - added gzipped databases support. - added support to references to standards. - `cinfodc' - added output headers (-h) option. * moved files from /lib to proper directories. * fixed syntax error messages format. Changes between c-tools 0.4 - cutils 1.0 * all the code has been rewritten. * covered under a BSD-like copyright. * splitted up the sources in a clean tree. * now is required a BSD environment to compile (BSD make, some BSD libc functions). * cleaned up parameter handling. * library: - cleaned up hash table functions, added more functions, added a better hashing function. * `chilight' - renamed from `highlight'. - made clean lexical analyzer `lexer.l'. * `cobfusc' - renamed from `obscure'. - made clean lexical analyzer `lexer.l'. - added more functions: - string octalizing. - identifier case. - macro compacting. - symbol table handling. - integer garbling. - trigraphizing. - comment striping. * cinfo stuff - added: - `cinfoc': cinfo database compiler. - `cinfodc': cinfo database de-compiler. - a cinfo database access library. - `cinfo' - new database syntax. - now reads the compiled database instead the database source. - `cinfoc' - new yacc parser `parser.y' and lexical analyzer `lexer.l'. * added `yyextract'. * removed `hsort'. cutils-1.6/README0100644000076500001450000000135707324024120013104 0ustar sandrosandroThis package is written in ANSI C and was tested only under SuSE Linux 7.2, but should compile with little or no change under any other UNIX-like OS. The cutils collection is composed by: cdecl and cundecl - decode and encode C type declarations cobfusc - make a C source file unreadable but compilable chilight - highlight C source files cunloop - unloop C loops yyextract - extract grammar rules from yacc grammar yyref - generate cross-reference for yacc input ------------------------------------------------------------------------------ Latest version can be found at my homepage: http://www.sigala.it/sandro/ Any questions, comments, or bug reports should be sent to the author at the Internet email address . cutils-1.6/README.compile0100644000076500001450000000140207323636735014546 0ustar sandrosandroUnder HP-UX 10.20, you may have problems with the flex utility; this is what Eric Backus said: 1. I had trouble using flex to process the ".l" files. If I just use "flex", the resulting executable always coredumps. If I instead use the system's "lex", it works fine. Also, "flex -l" works fine. My version of flex is flex-2.5.4, and it passes all of its self-tests on my system. I imagine there is something in the ".l" files which requires "flex -l", although I wouldn't know what. This is probably a bug in autoconf, since autoconf should probably provide a "lex" compatible program in response to AC_PROG_LEX. It seems like there might be some way to work around this in Makefile.in, but I'm not sure how. cutils-1.6/acconfig.h0100644000076500001450000000036506353461001014150 0ustar sandrosandro@BOTTOM@ #include "version.h" #include #ifndef HAVE_XMALLOC extern void *xmalloc(size_t); #endif #ifndef HAVE_XREALLOC extern void *xrealloc(void *, size_t); #endif #ifndef HAVE_XSTRDUP extern char *xstrdup(const char *); #endif cutils-1.6/config.h.in0100644000076500001450000000262006353461001014245 0ustar sandrosandro/* config.h.in. Generated automatically from configure.in by autoheader. */ /* Define to empty if the keyword does not work. */ #undef const /* Define if you don't have vprintf but do have _doprnt. */ #undef HAVE_DOPRNT /* Define if you have the vprintf function. */ #undef HAVE_VPRINTF /* Define if you have the ANSI C header files. */ #undef STDC_HEADERS /* Define if lex declares yytext as a char * by default, not a char[]. */ #undef YYTEXT_POINTER /* Define if you have the err function. */ #undef HAVE_ERR /* Define if you have the strerror function. */ #undef HAVE_STRERROR /* Define if you have the xmalloc function. */ #undef HAVE_XMALLOC /* Define if you have the xrealloc function. */ #undef HAVE_XREALLOC /* Define if you have the xstrdup function. */ #undef HAVE_XSTRDUP /* Define if you have the header file. */ #undef HAVE_DIRENT_H /* Define if you have the header file. */ #undef HAVE_NDIR_H /* Define if you have the header file. */ #undef HAVE_SYS_DIR_H /* Define if you have the header file. */ #undef HAVE_SYS_NDIR_H /* Define if you have the header file. */ #undef HAVE_UNISTD_H #include "version.h" #include #ifndef HAVE_XMALLOC extern void *xmalloc(size_t); #endif #ifndef HAVE_XREALLOC extern void *xrealloc(void *, size_t); #endif #ifndef HAVE_XSTRDUP extern char *xstrdup(const char *); #endif cutils-1.6/configure0100755000076500001450000017530407323636735014163 0ustar sandrosandro#! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated automatically using autoconf version 2.13 # Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc. # # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. # Defaults: ac_help= ac_default_prefix=/usr/local # Any additions from configure.in: # Initialize some variables set by options. # The variables have the same names as the options, with # dashes changed to underlines. build=NONE cache_file=./config.cache exec_prefix=NONE host=NONE no_create= nonopt=NONE no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= target=NONE verbose= x_includes=NONE x_libraries=NONE bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datadir='${prefix}/share' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' libdir='${exec_prefix}/lib' includedir='${prefix}/include' oldincludedir='/usr/include' infodir='${prefix}/info' mandir='${prefix}/man' # Initialize some other variables. subdirs= MFLAGS= MAKEFLAGS= SHELL=${CONFIG_SHELL-/bin/sh} # Maximum number of lines to put in a shell here document. ac_max_here_lines=12 ac_prev= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval "$ac_prev=\$ac_option" ac_prev= continue fi case "$ac_option" in -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;; *) ac_optarg= ;; esac # Accept the important Cygnus configure options, so we can diagnose typos. case "$ac_option" in -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir="$ac_optarg" ;; -build | --build | --buil | --bui | --bu) ac_prev=build ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build="$ac_optarg" ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file="$ac_optarg" ;; -datadir | --datadir | --datadi | --datad | --data | --dat | --da) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ | --da=*) datadir="$ac_optarg" ;; -disable-* | --disable-*) ac_feature=`echo $ac_option|sed -e 's/-*disable-//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } fi ac_feature=`echo $ac_feature| sed 's/-/_/g'` eval "enable_${ac_feature}=no" ;; -enable-* | --enable-*) ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } fi ac_feature=`echo $ac_feature| sed 's/-/_/g'` case "$ac_option" in *=*) ;; *) ac_optarg=yes ;; esac eval "enable_${ac_feature}='$ac_optarg'" ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix="$ac_optarg" ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he) # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat << EOF Usage: configure [options] [host] Options: [defaults in brackets after descriptions] Configuration: --cache-file=FILE cache test results in FILE --help print this message --no-create do not create output files --quiet, --silent do not print \`checking...' messages --version print the version of autoconf that created configure Directory and file names: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [same as prefix] --bindir=DIR user executables in DIR [EPREFIX/bin] --sbindir=DIR system admin executables in DIR [EPREFIX/sbin] --libexecdir=DIR program executables in DIR [EPREFIX/libexec] --datadir=DIR read-only architecture-independent data in DIR [PREFIX/share] --sysconfdir=DIR read-only single-machine data in DIR [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data in DIR [PREFIX/com] --localstatedir=DIR modifiable single-machine data in DIR [PREFIX/var] --libdir=DIR object code libraries in DIR [EPREFIX/lib] --includedir=DIR C header files in DIR [PREFIX/include] --oldincludedir=DIR C header files for non-gcc in DIR [/usr/include] --infodir=DIR info documentation in DIR [PREFIX/info] --mandir=DIR man documentation in DIR [PREFIX/man] --srcdir=DIR find the sources in DIR [configure dir or ..] --program-prefix=PREFIX prepend PREFIX to installed program names --program-suffix=SUFFIX append SUFFIX to installed program names --program-transform-name=PROGRAM run sed PROGRAM on installed program names EOF cat << EOF Host type: --build=BUILD configure for building on BUILD [BUILD=HOST] --host=HOST configure for HOST [guessed] --target=TARGET configure for TARGET [TARGET=HOST] Features and packages: --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) --enable-FEATURE[=ARG] include FEATURE [ARG=yes] --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --x-includes=DIR X include files are in DIR --x-libraries=DIR X library files are in DIR EOF if test -n "$ac_help"; then echo "--enable and --with options recognized:$ac_help" fi exit 0 ;; -host | --host | --hos | --ho) ac_prev=host ;; -host=* | --host=* | --hos=* | --ho=*) host="$ac_optarg" ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir="$ac_optarg" ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir="$ac_optarg" ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir="$ac_optarg" ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir="$ac_optarg" ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst \ | --locals | --local | --loca | --loc | --lo) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* \ | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) localstatedir="$ac_optarg" ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir="$ac_optarg" ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir="$ac_optarg" ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix="$ac_optarg" ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix="$ac_optarg" ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix="$ac_optarg" ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name="$ac_optarg" ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir="$ac_optarg" ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir="$ac_optarg" ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site="$ac_optarg" ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir="$ac_optarg" ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir="$ac_optarg" ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target="$ac_optarg" ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers) echo "configure generated by autoconf version 2.13" exit 0 ;; -with-* | --with-*) ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } fi ac_package=`echo $ac_package| sed 's/-/_/g'` case "$ac_option" in *=*) ;; *) ac_optarg=yes ;; esac eval "with_${ac_package}='$ac_optarg'" ;; -without-* | --without-*) ac_package=`echo $ac_option|sed -e 's/-*without-//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } fi ac_package=`echo $ac_package| sed 's/-/_/g'` eval "with_${ac_package}=no" ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes="$ac_optarg" ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries="$ac_optarg" ;; -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; } ;; *) if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then echo "configure: warning: $ac_option: invalid host type" 1>&2 fi if test "x$nonopt" != xNONE; then { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } fi nonopt="$ac_option" ;; esac done if test -n "$ac_prev"; then { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; } fi trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 # File descriptor usage: # 0 standard input # 1 file creation # 2 errors and warnings # 3 some systems may open it to /dev/tty # 4 used on the Kubota Titan # 6 checking for... messages and results # 5 compiler messages saved in config.log if test "$silent" = yes; then exec 6>/dev/null else exec 6>&1 fi exec 5>./config.log echo "\ This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. " 1>&5 # Strip out --no-create and --no-recursion so they do not pile up. # Also quote any args containing shell metacharacters. ac_configure_args= for ac_arg do case "$ac_arg" in -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c) ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*) ac_configure_args="$ac_configure_args '$ac_arg'" ;; *) ac_configure_args="$ac_configure_args $ac_arg" ;; esac done # NLS nuisances. # Only set these to C if already set. These must not be set unconditionally # because not all systems understand e.g. LANG=C (notably SCO). # Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'! # Non-C LC_CTYPE values break the ctype check. if test "${LANG+set}" = set; then LANG=C; export LANG; fi if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -rf conftest* confdefs.h # AIX cpp loses on an empty file, so make sure it contains at least a newline. echo > confdefs.h # A filename unique to this package, relative to the directory that # configure is in, which we can look for to find out if srcdir is correct. ac_unique_file=version.h # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then its parent. ac_prog=$0 ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'` test "x$ac_confdir" = "x$ac_prog" && ac_confdir=. srcdir=$ac_confdir if test ! -r $srcdir/$ac_unique_file; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r $srcdir/$ac_unique_file; then if test "$ac_srcdir_defaulted" = yes; then { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; } else { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; } fi fi srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'` # Prefer explicitly selected file to automatically selected ones. if test -z "$CONFIG_SITE"; then if test "x$prefix" != xNONE; then CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" else CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" fi fi for ac_site_file in $CONFIG_SITE; do if test -r "$ac_site_file"; then echo "loading site script $ac_site_file" . "$ac_site_file" fi done if test -r "$cache_file"; then echo "loading cache $cache_file" . $cache_file else echo "creating cache $cache_file" > $cache_file fi ac_ext=c # CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. ac_cpp='$CPP $CPPFLAGS' ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' cross_compiling=$ac_cv_prog_cc_cross ac_exeext= ac_objext=o if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then ac_n= ac_c=' ' ac_t=' ' else ac_n=-n ac_c= ac_t= fi else ac_n= ac_c='\c' ac_t= fi # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 echo "configure:530: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_CC="gcc" break fi done IFS="$ac_save_ifs" fi fi CC="$ac_cv_prog_CC" if test -n "$CC"; then echo "$ac_t""$CC" 1>&6 else echo "$ac_t""no" 1>&6 fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 echo "configure:560: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_prog_rejected=no ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then if test "$ac_dir/$ac_word" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" break fi done IFS="$ac_save_ifs" if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# -gt 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift set dummy "$ac_dir/$ac_word" "$@" shift ac_cv_prog_CC="$@" fi fi fi fi CC="$ac_cv_prog_CC" if test -n "$CC"; then echo "$ac_t""$CC" 1>&6 else echo "$ac_t""no" 1>&6 fi if test -z "$CC"; then case "`uname -s`" in *win32* | *WIN32*) # Extract the first word of "cl", so it can be a program name with args. set dummy cl; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 echo "configure:611: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_CC="cl" break fi done IFS="$ac_save_ifs" fi fi CC="$ac_cv_prog_CC" if test -n "$CC"; then echo "$ac_t""$CC" 1>&6 else echo "$ac_t""no" 1>&6 fi ;; esac fi test -z "$CC" && { echo "configure: error: no acceptable cc found in \$PATH" 1>&2; exit 1; } fi echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works""... $ac_c" 1>&6 echo "configure:643: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works" >&5 ac_ext=c # CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. ac_cpp='$CPP $CPPFLAGS' ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' cross_compiling=$ac_cv_prog_cc_cross cat > conftest.$ac_ext << EOF #line 654 "configure" #include "confdefs.h" main(){return(0);} EOF if { (eval echo configure:659: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then ac_cv_prog_cc_works=yes # If we can't run a trivial program, we are probably using a cross compiler. if (./conftest; exit) 2>/dev/null; then ac_cv_prog_cc_cross=no else ac_cv_prog_cc_cross=yes fi else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 ac_cv_prog_cc_works=no fi rm -fr conftest* ac_ext=c # CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. ac_cpp='$CPP $CPPFLAGS' ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' cross_compiling=$ac_cv_prog_cc_cross echo "$ac_t""$ac_cv_prog_cc_works" 1>&6 if test $ac_cv_prog_cc_works = no; then { echo "configure: error: installation or configuration problem: C compiler cannot create executables." 1>&2; exit 1; } fi echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler""... $ac_c" 1>&6 echo "configure:685: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler" >&5 echo "$ac_t""$ac_cv_prog_cc_cross" 1>&6 cross_compiling=$ac_cv_prog_cc_cross echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6 echo "configure:690: checking whether we are using GNU C" >&5 if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.c <&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then ac_cv_prog_gcc=yes else ac_cv_prog_gcc=no fi fi echo "$ac_t""$ac_cv_prog_gcc" 1>&6 if test $ac_cv_prog_gcc = yes; then GCC=yes else GCC= fi ac_test_CFLAGS="${CFLAGS+set}" ac_save_CFLAGS="$CFLAGS" CFLAGS= echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6 echo "configure:718: checking whether ${CC-cc} accepts -g" >&5 if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else echo 'void f(){}' > conftest.c if test -z "`${CC-cc} -g -c conftest.c 2>&1`"; then ac_cv_prog_cc_g=yes else ac_cv_prog_cc_g=no fi rm -f conftest* fi echo "$ac_t""$ac_cv_prog_cc_g" 1>&6 if test "$ac_test_CFLAGS" = set; then CFLAGS="$ac_save_CFLAGS" elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi ac_aux_dir= for ac_dir in $srcdir $srcdir/.. $srcdir/../..; do if test -f $ac_dir/install-sh; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install-sh -c" break elif test -f $ac_dir/install.sh; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install.sh -c" break fi done if test -z "$ac_aux_dir"; then { echo "configure: error: can not find install-sh or install.sh in $srcdir $srcdir/.. $srcdir/../.." 1>&2; exit 1; } fi ac_config_guess=$ac_aux_dir/config.guess ac_config_sub=$ac_aux_dir/config.sub ac_configure=$ac_aux_dir/configure # This should be Cygnus configure. # Find a good install program. We prefer a C program (faster), # so one script is as good as another. But avoid the broken or # incompatible versions: # SysV /etc/install, /usr/sbin/install # SunOS /usr/etc/install # IRIX /sbin/install # AIX /bin/install # AIX 4 /usr/bin/installbsd, which doesn't work without a -g flag # AFS /usr/afsws/bin/install, which mishandles nonexistent args # SVR4 /usr/ucb/install, which tries to use the nonexistent group "staff" # ./install, which can be erroneously created by make from ./install.sh. echo $ac_n "checking for a BSD compatible install""... $ac_c" 1>&6 echo "configure:780: checking for a BSD compatible install" >&5 if test -z "$INSTALL"; then if eval "test \"`echo '$''{'ac_cv_path_install'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else IFS="${IFS= }"; ac_save_IFS="$IFS"; IFS=":" for ac_dir in $PATH; do # Account for people who put trailing slashes in PATH elements. case "$ac_dir/" in /|./|.//|/etc/*|/usr/sbin/*|/usr/etc/*|/sbin/*|/usr/afsws/bin/*|/usr/ucb/*) ;; *) # OSF1 and SCO ODT 3.0 have their own names for install. # Don't use installbsd from OSF since it installs stuff as root # by default. for ac_prog in ginstall scoinst install; do if test -f $ac_dir/$ac_prog; then if test $ac_prog = install && grep dspmsg $ac_dir/$ac_prog >/dev/null 2>&1; then # AIX install. It has an incompatible calling convention. : else ac_cv_path_install="$ac_dir/$ac_prog -c" break 2 fi fi done ;; esac done IFS="$ac_save_IFS" fi if test "${ac_cv_path_install+set}" = set; then INSTALL="$ac_cv_path_install" else # As a last resort, use the slow shell script. We don't cache a # path for INSTALL within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the path is relative. INSTALL="$ac_install_sh" fi fi echo "$ac_t""$INSTALL" 1>&6 # Use test -z because SunOS4 sh mishandles braces in ${var-val}. # It thinks the first close brace ends the variable substitution. test -z "$INSTALL_PROGRAM" && INSTALL_PROGRAM='${INSTALL}' test -z "$INSTALL_SCRIPT" && INSTALL_SCRIPT='${INSTALL_PROGRAM}' test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 echo "configure:835: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_RANLIB'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_RANLIB="ranlib" break fi done IFS="$ac_save_ifs" test -z "$ac_cv_prog_RANLIB" && ac_cv_prog_RANLIB=":" fi fi RANLIB="$ac_cv_prog_RANLIB" if test -n "$RANLIB"; then echo "$ac_t""$RANLIB" 1>&6 else echo "$ac_t""no" 1>&6 fi # Extract the first word of "flex", so it can be a program name with args. set dummy flex; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 echo "configure:865: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_LEX'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$LEX"; then ac_cv_prog_LEX="$LEX" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_LEX="flex" break fi done IFS="$ac_save_ifs" test -z "$ac_cv_prog_LEX" && ac_cv_prog_LEX="lex" fi fi LEX="$ac_cv_prog_LEX" if test -n "$LEX"; then echo "$ac_t""$LEX" 1>&6 else echo "$ac_t""no" 1>&6 fi if test -z "$LEXLIB" then case "$LEX" in flex*) ac_lib=fl ;; *) ac_lib=l ;; esac echo $ac_n "checking for yywrap in -l$ac_lib""... $ac_c" 1>&6 echo "configure:899: checking for yywrap in -l$ac_lib" >&5 ac_lib_var=`echo $ac_lib'_'yywrap | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else ac_save_LIBS="$LIBS" LIBS="-l$ac_lib $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=no" fi rm -f conftest* LIBS="$ac_save_LIBS" fi if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then echo "$ac_t""yes" 1>&6 LEXLIB="-l$ac_lib" else echo "$ac_t""no" 1>&6 fi fi echo $ac_n "checking how to run the C preprocessor""... $ac_c" 1>&6 echo "configure:941: checking how to run the C preprocessor" >&5 # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= fi if test -z "$CPP"; then if eval "test \"`echo '$''{'ac_cv_prog_CPP'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else # This must be in double quotes, not single quotes, because CPP may get # substituted into the Makefile and "${CC-cc}" will confuse make. CPP="${CC-cc} -E" # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. cat > conftest.$ac_ext < Syntax Error EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" { (eval echo configure:962: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` if test -z "$ac_err"; then : else echo "$ac_err" >&5 echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* CPP="${CC-cc} -E -traditional-cpp" cat > conftest.$ac_ext < Syntax Error EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" { (eval echo configure:979: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` if test -z "$ac_err"; then : else echo "$ac_err" >&5 echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* CPP="${CC-cc} -nologo -E" cat > conftest.$ac_ext < Syntax Error EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" { (eval echo configure:996: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` if test -z "$ac_err"; then : else echo "$ac_err" >&5 echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* CPP=/lib/cpp fi rm -f conftest* fi rm -f conftest* fi rm -f conftest* ac_cv_prog_CPP="$CPP" fi CPP="$ac_cv_prog_CPP" else ac_cv_prog_CPP="$CPP" fi echo "$ac_t""$CPP" 1>&6 echo $ac_n "checking lex output file root""... $ac_c" 1>&6 echo "configure:1021: checking lex output file root" >&5 if eval "test \"`echo '$''{'ac_cv_prog_lex_root'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else # The minimal lex program is just a single line: %%. But some broken lexes # (Solaris, I think it was) want two %% lines, so accommodate them. echo '%% %%' | $LEX if test -f lex.yy.c; then ac_cv_prog_lex_root=lex.yy elif test -f lexyy.c; then ac_cv_prog_lex_root=lexyy else { echo "configure: error: cannot find output from $LEX; giving up" 1>&2; exit 1; } fi fi echo "$ac_t""$ac_cv_prog_lex_root" 1>&6 LEX_OUTPUT_ROOT=$ac_cv_prog_lex_root echo $ac_n "checking whether yytext is a pointer""... $ac_c" 1>&6 echo "configure:1042: checking whether yytext is a pointer" >&5 if eval "test \"`echo '$''{'ac_cv_prog_lex_yytext_pointer'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else # POSIX says lex can declare yytext either as a pointer or an array; the # default is implementation-dependent. Figure out which it is, since # not all implementations provide the %pointer and %array declarations. ac_cv_prog_lex_yytext_pointer=no echo 'extern char *yytext;' >>$LEX_OUTPUT_ROOT.c ac_save_LIBS="$LIBS" LIBS="$LIBS $LEXLIB" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* ac_cv_prog_lex_yytext_pointer=yes else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 fi rm -f conftest* LIBS="$ac_save_LIBS" rm -f "${LEX_OUTPUT_ROOT}.c" fi echo "$ac_t""$ac_cv_prog_lex_yytext_pointer" 1>&6 if test $ac_cv_prog_lex_yytext_pointer = yes; then cat >> confdefs.h <<\EOF #define YYTEXT_POINTER 1 EOF fi for ac_prog in 'bison -y' byacc do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 echo "configure:1087: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_YACC'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$YACC"; then ac_cv_prog_YACC="$YACC" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_YACC="$ac_prog" break fi done IFS="$ac_save_ifs" fi fi YACC="$ac_cv_prog_YACC" if test -n "$YACC"; then echo "$ac_t""$YACC" 1>&6 else echo "$ac_t""no" 1>&6 fi test -n "$YACC" && break done test -n "$YACC" || YACC="yacc" for ac_func in err xmalloc xrealloc xstrdup do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 echo "configure:1121: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char $ac_func(); int main() { /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_$ac_func) || defined (__stub___$ac_func) choke me #else $ac_func(); #endif ; return 0; } EOF if { (eval echo configure:1149: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* eval "ac_cv_func_$ac_func=no" fi rm -f conftest* fi if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then echo "$ac_t""yes" 1>&6 ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'` cat >> confdefs.h <&6 LIBOBJS="$LIBOBJS ${ac_func}.${ac_objext}" fi done ac_header_dirent=no for ac_hdr in dirent.h sys/ndir.h sys/dir.h ndir.h do ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` echo $ac_n "checking for $ac_hdr that defines DIR""... $ac_c" 1>&6 echo "configure:1181: checking for $ac_hdr that defines DIR" >&5 if eval "test \"`echo '$''{'ac_cv_header_dirent_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include <$ac_hdr> int main() { DIR *dirp = 0; ; return 0; } EOF if { (eval echo configure:1194: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* eval "ac_cv_header_dirent_$ac_safe=yes" else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* eval "ac_cv_header_dirent_$ac_safe=no" fi rm -f conftest* fi if eval "test \"`echo '$ac_cv_header_dirent_'$ac_safe`\" = yes"; then echo "$ac_t""yes" 1>&6 ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'` cat >> confdefs.h <&6 fi done # Two versions of opendir et al. are in -ldir and -lx on SCO Xenix. if test $ac_header_dirent = dirent.h; then echo $ac_n "checking for opendir in -ldir""... $ac_c" 1>&6 echo "configure:1219: checking for opendir in -ldir" >&5 ac_lib_var=`echo dir'_'opendir | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else ac_save_LIBS="$LIBS" LIBS="-ldir $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=no" fi rm -f conftest* LIBS="$ac_save_LIBS" fi if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then echo "$ac_t""yes" 1>&6 LIBS="$LIBS -ldir" else echo "$ac_t""no" 1>&6 fi else echo $ac_n "checking for opendir in -lx""... $ac_c" 1>&6 echo "configure:1260: checking for opendir in -lx" >&5 ac_lib_var=`echo x'_'opendir | sed 'y%./+-%__p_%'` if eval "test \"`echo '$''{'ac_cv_lib_$ac_lib_var'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else ac_save_LIBS="$LIBS" LIBS="-lx $LIBS" cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=yes" else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* eval "ac_cv_lib_$ac_lib_var=no" fi rm -f conftest* LIBS="$ac_save_LIBS" fi if eval "test \"`echo '$ac_cv_lib_'$ac_lib_var`\" = yes"; then echo "$ac_t""yes" 1>&6 LIBS="$LIBS -lx" else echo "$ac_t""no" 1>&6 fi fi echo $ac_n "checking for ANSI C header files""... $ac_c" 1>&6 echo "configure:1302: checking for ANSI C header files" >&5 if eval "test \"`echo '$''{'ac_cv_header_stdc'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < #include #include #include EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" { (eval echo configure:1315: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` if test -z "$ac_err"; then rm -rf conftest* ac_cv_header_stdc=yes else echo "$ac_err" >&5 echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* ac_cv_header_stdc=no fi rm -f conftest* if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat > conftest.$ac_ext < EOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | egrep "memchr" >/dev/null 2>&1; then : else rm -rf conftest* ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # ISC 2.0.2 stdlib.h does not declare free, contrary to ANSI. cat > conftest.$ac_ext < EOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | egrep "free" >/dev/null 2>&1; then : else rm -rf conftest* ac_cv_header_stdc=no fi rm -f conftest* fi if test $ac_cv_header_stdc = yes; then # /bin/cc in Irix-4.0.5 gets non-ANSI ctype macros unless using -ansi. if test "$cross_compiling" = yes; then : else cat > conftest.$ac_ext < #define ISLOWER(c) ('a' <= (c) && (c) <= 'z') #define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) #define XOR(e, f) (((e) && !(f)) || (!(e) && (f))) int main () { int i; for (i = 0; i < 256; i++) if (XOR (islower (i), ISLOWER (i)) || toupper (i) != TOUPPER (i)) exit(2); exit (0); } EOF if { (eval echo configure:1382: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null then : else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -fr conftest* ac_cv_header_stdc=no fi rm -fr conftest* fi fi fi echo "$ac_t""$ac_cv_header_stdc" 1>&6 if test $ac_cv_header_stdc = yes; then cat >> confdefs.h <<\EOF #define STDC_HEADERS 1 EOF fi for ac_hdr in unistd.h do ac_safe=`echo "$ac_hdr" | sed 'y%./+-%__p_%'` echo $ac_n "checking for $ac_hdr""... $ac_c" 1>&6 echo "configure:1409: checking for $ac_hdr" >&5 if eval "test \"`echo '$''{'ac_cv_header_$ac_safe'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < EOF ac_try="$ac_cpp conftest.$ac_ext >/dev/null 2>conftest.out" { (eval echo configure:1419: \"$ac_try\") 1>&5; (eval $ac_try) 2>&5; } ac_err=`grep -v '^ *+' conftest.out | grep -v "^conftest.${ac_ext}\$"` if test -z "$ac_err"; then rm -rf conftest* eval "ac_cv_header_$ac_safe=yes" else echo "$ac_err" >&5 echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* eval "ac_cv_header_$ac_safe=no" fi rm -f conftest* fi if eval "test \"`echo '$ac_cv_header_'$ac_safe`\" = yes"; then echo "$ac_t""yes" 1>&6 ac_tr_hdr=HAVE_`echo $ac_hdr | sed 'y%abcdefghijklmnopqrstuvwxyz./-%ABCDEFGHIJKLMNOPQRSTUVWXYZ___%'` cat >> confdefs.h <&6 fi done echo $ac_n "checking for working const""... $ac_c" 1>&6 echo "configure:1447: checking for working const" >&5 if eval "test \"`echo '$''{'ac_cv_c_const'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext <j = 5; } { /* ULTRIX-32 V3.1 (Rev 9) vcc rejects this */ const int foo = 10; } ; return 0; } EOF if { (eval echo configure:1501: \"$ac_compile\") 1>&5; (eval $ac_compile) 2>&5; }; then rm -rf conftest* ac_cv_c_const=yes else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* ac_cv_c_const=no fi rm -f conftest* fi echo "$ac_t""$ac_cv_c_const" 1>&6 if test $ac_cv_c_const = no; then cat >> confdefs.h <<\EOF #define const EOF fi echo $ac_n "checking for 8-bit clean memcmp""... $ac_c" 1>&6 echo "configure:1523: checking for 8-bit clean memcmp" >&5 if eval "test \"`echo '$''{'ac_cv_func_memcmp_clean'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test "$cross_compiling" = yes; then ac_cv_func_memcmp_clean=no else cat > conftest.$ac_ext <&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext} && (./conftest; exit) 2>/dev/null then ac_cv_func_memcmp_clean=yes else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -fr conftest* ac_cv_func_memcmp_clean=no fi rm -fr conftest* fi fi echo "$ac_t""$ac_cv_func_memcmp_clean" 1>&6 test $ac_cv_func_memcmp_clean = no && LIBOBJS="$LIBOBJS memcmp.${ac_objext}" echo $ac_n "checking for vprintf""... $ac_c" 1>&6 echo "configure:1559: checking for vprintf" >&5 if eval "test \"`echo '$''{'ac_cv_func_vprintf'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char vprintf(); int main() { /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_vprintf) || defined (__stub___vprintf) choke me #else vprintf(); #endif ; return 0; } EOF if { (eval echo configure:1587: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* eval "ac_cv_func_vprintf=yes" else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* eval "ac_cv_func_vprintf=no" fi rm -f conftest* fi if eval "test \"`echo '$ac_cv_func_'vprintf`\" = yes"; then echo "$ac_t""yes" 1>&6 cat >> confdefs.h <<\EOF #define HAVE_VPRINTF 1 EOF else echo "$ac_t""no" 1>&6 fi if test "$ac_cv_func_vprintf" != yes; then echo $ac_n "checking for _doprnt""... $ac_c" 1>&6 echo "configure:1611: checking for _doprnt" >&5 if eval "test \"`echo '$''{'ac_cv_func__doprnt'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char _doprnt(); int main() { /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub__doprnt) || defined (__stub____doprnt) choke me #else _doprnt(); #endif ; return 0; } EOF if { (eval echo configure:1639: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* eval "ac_cv_func__doprnt=yes" else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* eval "ac_cv_func__doprnt=no" fi rm -f conftest* fi if eval "test \"`echo '$ac_cv_func_'_doprnt`\" = yes"; then echo "$ac_t""yes" 1>&6 cat >> confdefs.h <<\EOF #define HAVE_DOPRNT 1 EOF else echo "$ac_t""no" 1>&6 fi fi for ac_func in strerror do echo $ac_n "checking for $ac_func""... $ac_c" 1>&6 echo "configure:1666: checking for $ac_func" >&5 if eval "test \"`echo '$''{'ac_cv_func_$ac_func'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.$ac_ext < /* Override any gcc2 internal prototype to avoid an error. */ /* We use char because int might match the return type of a gcc2 builtin and then its argument prototype would still apply. */ char $ac_func(); int main() { /* The GNU C library defines this for functions which it implements to always fail with ENOSYS. Some functions are actually named something starting with __ and the normal name is an alias. */ #if defined (__stub_$ac_func) || defined (__stub___$ac_func) choke me #else $ac_func(); #endif ; return 0; } EOF if { (eval echo configure:1694: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then rm -rf conftest* eval "ac_cv_func_$ac_func=yes" else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 rm -rf conftest* eval "ac_cv_func_$ac_func=no" fi rm -f conftest* fi if eval "test \"`echo '$ac_cv_func_'$ac_func`\" = yes"; then echo "$ac_t""yes" 1>&6 ac_tr_func=HAVE_`echo $ac_func | tr 'abcdefghijklmnopqrstuvwxyz' 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'` cat >> confdefs.h <&6 fi done trap '' 1 2 15 cat > confcache <<\EOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs. It is not useful on other systems. # If it contains results you don't want to keep, you may remove or edit it. # # By default, configure uses ./config.cache as the cache file, # creating it if it does not exist already. You can give configure # the --cache-file=FILE option to use a different cache file; that is # what configure does when it calls configure scripts in # subdirectories, so they share the cache. # Giving --cache-file=/dev/null disables caching, for debugging configure. # config.status only pays attention to the cache file if you give it the # --recheck option to rerun configure. # EOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, don't put newlines in cache variables' values. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. (set) 2>&1 | case `(ac_space=' '; set | grep ac_space) 2>&1` in *ac_space=\ *) # `set' does not quote correctly, so add quotes (double-quote substitution # turns \\\\ into \\, and sed turns \\ into \). sed -n \ -e "s/'/'\\\\''/g" \ -e "s/^\\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\\)=\\(.*\\)/\\1=\${\\1='\\2'}/p" ;; *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n -e 's/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=${\1=\2}/p' ;; esac >> confcache if cmp -s $cache_file confcache; then : else if test -w $cache_file; then echo "updating cache $cache_file" cat confcache > $cache_file else echo "not updating unwritable cache $cache_file" fi fi rm -f confcache trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' # Any assignment to VPATH causes Sun make to only execute # the first set of double-colon rules, so remove it if not needed. # If there is a colon in the path, we need to keep it. if test "x$srcdir" = x.; then ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d' fi trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15 DEFS=-DHAVE_CONFIG_H # Without the "./", some shells look in PATH for config.status. : ${CONFIG_STATUS=./config.status} echo creating $CONFIG_STATUS rm -f $CONFIG_STATUS cat > $CONFIG_STATUS </dev/null | sed 1q`: # # $0 $ac_configure_args # # Compiler output produced by configure, useful for debugging # configure, is in ./config.log if it exists. ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]" for ac_option do case "\$ac_option" in -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion" exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;; -version | --version | --versio | --versi | --vers | --ver | --ve | --v) echo "$CONFIG_STATUS generated by autoconf version 2.13" exit 0 ;; -help | --help | --hel | --he | --h) echo "\$ac_cs_usage"; exit 0 ;; *) echo "\$ac_cs_usage"; exit 1 ;; esac done ac_given_srcdir=$srcdir ac_given_INSTALL="$INSTALL" trap 'rm -fr `echo "Makefile doc/Makefile lib/Makefile \ src/Makefile src/cdecl/Makefile src/chilight/Makefile \ src/cobfusc/Makefile src/cundecl/Makefile src/cunloop/Makefile \ src/yyextract/Makefile src/yyref/Makefile config.h" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15 EOF cat >> $CONFIG_STATUS < conftest.subs <<\\CEOF $ac_vpsub $extrasub s%@SHELL@%$SHELL%g s%@CFLAGS@%$CFLAGS%g s%@CPPFLAGS@%$CPPFLAGS%g s%@CXXFLAGS@%$CXXFLAGS%g s%@FFLAGS@%$FFLAGS%g s%@DEFS@%$DEFS%g s%@LDFLAGS@%$LDFLAGS%g s%@LIBS@%$LIBS%g s%@exec_prefix@%$exec_prefix%g s%@prefix@%$prefix%g s%@program_transform_name@%$program_transform_name%g s%@bindir@%$bindir%g s%@sbindir@%$sbindir%g s%@libexecdir@%$libexecdir%g s%@datadir@%$datadir%g s%@sysconfdir@%$sysconfdir%g s%@sharedstatedir@%$sharedstatedir%g s%@localstatedir@%$localstatedir%g s%@libdir@%$libdir%g s%@includedir@%$includedir%g s%@oldincludedir@%$oldincludedir%g s%@infodir@%$infodir%g s%@mandir@%$mandir%g s%@CC@%$CC%g s%@INSTALL_PROGRAM@%$INSTALL_PROGRAM%g s%@INSTALL_SCRIPT@%$INSTALL_SCRIPT%g s%@INSTALL_DATA@%$INSTALL_DATA%g s%@RANLIB@%$RANLIB%g s%@LEX@%$LEX%g s%@LEXLIB@%$LEXLIB%g s%@CPP@%$CPP%g s%@LEX_OUTPUT_ROOT@%$LEX_OUTPUT_ROOT%g s%@YACC@%$YACC%g s%@LIBOBJS@%$LIBOBJS%g CEOF EOF cat >> $CONFIG_STATUS <<\EOF # Split the substitutions into bite-sized pieces for seds with # small command number limits, like on Digital OSF/1 and HP-UX. ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script. ac_file=1 # Number of current file. ac_beg=1 # First line for current file. ac_end=$ac_max_sed_cmds # Line after last line for current file. ac_more_lines=: ac_sed_cmds="" while $ac_more_lines; do if test $ac_beg -gt 1; then sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file else sed "${ac_end}q" conftest.subs > conftest.s$ac_file fi if test ! -s conftest.s$ac_file; then ac_more_lines=false rm -f conftest.s$ac_file else if test -z "$ac_sed_cmds"; then ac_sed_cmds="sed -f conftest.s$ac_file" else ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file" fi ac_file=`expr $ac_file + 1` ac_beg=$ac_end ac_end=`expr $ac_end + $ac_max_sed_cmds` fi done if test -z "$ac_sed_cmds"; then ac_sed_cmds=cat fi EOF cat >> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". case "$ac_file" in *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; *) ac_file_in="${ac_file}.in" ;; esac # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories. # Remove last slash and all that follows it. Not all systems have dirname. ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then # The file is in a subdirectory. test ! -d "$ac_dir" && mkdir "$ac_dir" ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`" # A "../" for each directory in $ac_dir_suffix. ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'` else ac_dir_suffix= ac_dots= fi case "$ac_given_srcdir" in .) srcdir=. if test -z "$ac_dots"; then top_srcdir=. else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;; /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;; *) # Relative path. srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix" top_srcdir="$ac_dots$ac_given_srcdir" ;; esac case "$ac_given_INSTALL" in [/$]*) INSTALL="$ac_given_INSTALL" ;; *) INSTALL="$ac_dots$ac_given_INSTALL" ;; esac echo creating "$ac_file" rm -f "$ac_file" configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure." case "$ac_file" in *Makefile*) ac_comsub="1i\\ # $configure_input" ;; *) ac_comsub= ;; esac ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` sed -e "$ac_comsub s%@configure_input@%$configure_input%g s%@srcdir@%$srcdir%g s%@top_srcdir@%$top_srcdir%g s%@INSTALL@%$INSTALL%g " $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file fi; done rm -f conftest.s* # These sed commands are passed to sed as "A NAME B NAME C VALUE D", where # NAME is the cpp macro being defined and VALUE is the value it is being given. # # ac_d sets the value in "#define NAME VALUE" lines. ac_dA='s%^\([ ]*\)#\([ ]*define[ ][ ]*\)' ac_dB='\([ ][ ]*\)[^ ]*%\1#\2' ac_dC='\3' ac_dD='%g' # ac_u turns "#undef NAME" with trailing blanks into "#define NAME VALUE". ac_uA='s%^\([ ]*\)#\([ ]*\)undef\([ ][ ]*\)' ac_uB='\([ ]\)%\1#\2define\3' ac_uC=' ' ac_uD='\4%g' # ac_e turns "#undef NAME" without trailing blanks into "#define NAME VALUE". ac_eA='s%^\([ ]*\)#\([ ]*\)undef\([ ][ ]*\)' ac_eB='$%\1#\2define\3' ac_eC=' ' ac_eD='%g' if test "${CONFIG_HEADERS+set}" != set; then EOF cat >> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF fi for ac_file in .. $CONFIG_HEADERS; do if test "x$ac_file" != x..; then # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". case "$ac_file" in *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; *) ac_file_in="${ac_file}.in" ;; esac echo creating $ac_file rm -f conftest.frag conftest.in conftest.out ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` cat $ac_file_inputs > conftest.in EOF # Transform confdefs.h into a sed script conftest.vals that substitutes # the proper values into config.h.in to produce config.h. And first: # Protect against being on the right side of a sed subst in config.status. # Protect against being in an unquoted here document in config.status. rm -f conftest.vals cat > conftest.hdr <<\EOF s/[\\&%]/\\&/g s%[\\$`]%\\&%g s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%${ac_dA}\1${ac_dB}\1${ac_dC}\2${ac_dD}%gp s%ac_d%ac_u%gp s%ac_u%ac_e%gp EOF sed -n -f conftest.hdr confdefs.h > conftest.vals rm -f conftest.hdr # This sed command replaces #undef with comments. This is necessary, for # example, in the case of _POSIX_SOURCE, which is predefined and required # on some systems where configure will not decide to define it. cat >> conftest.vals <<\EOF s%^[ ]*#[ ]*undef[ ][ ]*[a-zA-Z_][a-zA-Z_0-9]*%/* & */% EOF # Break up conftest.vals because some shells have a limit on # the size of here documents, and old seds have small limits too. rm -f conftest.tail while : do ac_lines=`grep -c . conftest.vals` # grep -c gives empty output for an empty file on some AIX systems. if test -z "$ac_lines" || test "$ac_lines" -eq 0; then break; fi # Write a limited-size here document to conftest.frag. echo ' cat > conftest.frag <> $CONFIG_STATUS sed ${ac_max_here_lines}q conftest.vals >> $CONFIG_STATUS echo 'CEOF sed -f conftest.frag conftest.in > conftest.out rm -f conftest.in mv conftest.out conftest.in ' >> $CONFIG_STATUS sed 1,${ac_max_here_lines}d conftest.vals > conftest.tail rm -f conftest.vals mv conftest.tail conftest.vals done rm -f conftest.vals cat >> $CONFIG_STATUS <<\EOF rm -f conftest.frag conftest.h echo "/* $ac_file. Generated automatically by configure. */" > conftest.h cat conftest.in >> conftest.h rm -f conftest.in if cmp -s $ac_file conftest.h 2>/dev/null; then echo "$ac_file is unchanged" rm -f conftest.h else # Remove last slash and all that follows it. Not all systems have dirname. ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then # The file is in a subdirectory. test ! -d "$ac_dir" && mkdir "$ac_dir" fi rm -f $ac_file mv conftest.h $ac_file fi fi; done EOF cat >> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF exit 0 EOF chmod +x $CONFIG_STATUS rm -fr confdefs* $ac_clean_files test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1 cutils-1.6/configure.in0100644000076500001450000000137607323636735014562 0ustar sandrosandrodnl Process this file with autoconf to produce a configure script. AC_INIT(version.h) AC_CONFIG_HEADER(config.h) dnl Checks for programs. AC_PROG_CC AC_PROG_INSTALL AC_PROG_RANLIB AC_PROG_LEX AC_DECL_YYTEXT AC_PROG_YACC dnl Checks for libraries. AC_REPLACE_FUNCS(err xmalloc xrealloc xstrdup) dnl Checks for header files. AC_HEADER_DIRENT AC_HEADER_STDC AC_CHECK_HEADERS(unistd.h) dnl Checks for typedefs, structures, and compiler characteristics. AC_C_CONST dnl Checks for library functions. AC_FUNC_MEMCMP AC_FUNC_VPRINTF AC_CHECK_FUNCS(strerror) AC_OUTPUT(Makefile doc/Makefile lib/Makefile \ src/Makefile src/cdecl/Makefile src/chilight/Makefile \ src/cobfusc/Makefile src/cundecl/Makefile src/cunloop/Makefile \ src/yyextract/Makefile src/yyref/Makefile) cutils-1.6/cutils.lsm0100644000076500001450000000072107324330274014250 0ustar sandrosandroBegin4 Title: cutils Version: 1.6 Entered-date: 15JUL01 Description: C language miscellaneous utilities Keywords: C obfusc shrouder highlight bnf ebnf grammar lex yacc Author: sandro@sigala.it (Sandro Sigala) Maintained-by: sandro@sigala.it (Sandro Sigala) Primary-site: sunsite.unc.edu /pub/Linux/devel/lang/c 130k cutils-1.6.tar.gz Alternate-site: http://www.sigala.it/sandro/files/ 130k cutils-1.6.tar.gz Platforms: ANSI C compiler Copying-policy: BSD End cutils-1.6/doc/0040755000076500001450000000000007324331442012776 5ustar sandrosandrocutils-1.6/doc/Makefile.in0100644000076500001450000000177007323643603015051 0ustar sandrosandro# $Id: Makefile.in,v 1.2 2001/07/13 19:09:55 sandro Exp $ srcdir = @srcdir@ VPATH = $(srcdir) DESTDIR = prefix = @prefix@ infodir = @infodir@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ INSTALL = @INSTALL@ FILES = $(srcdir)/cutils.info all: $(FILES) cutils.info: cutils.texi cd $(srcdir) && $(MAKEINFO) cutils.texi dvi: cutils.dvi cutils.dvi: cutils.texi $(TEXI2DVI) $(srcdir)/cutils.texi .PHONY: install uninstall clean realclean distclean mostlyclean install: all ${srcdir}/../mkinsdir.sh $(DESTDIR)$(infodir) for f in $(FILES); do \ $(INSTALL_DATA) $$f $(DESTDIR)$(infodir); \ done uninstall: for f in $(FILES); do \ rm -f $(DESTDIR)$(infodir)/`basename $$f`; \ done clean: -rm -f cutils.aux cutils.cp cutils.cps cutils.dvi cutils.fn cutils.ky cutils.log -rm -f cutils.pg cutils.toc cutils.tp cutils.vr -rm -f cutils.fns cutils.kys cutils.pgs cutils.tps cutils.vrs distclean: clean -rm -f Makefile realclean: distclean -rm -f cutils.info mostlyclean: clean cutils-1.6/doc/cutils.info0100644000076500001450000004053207324330274015161 0ustar sandrosandroThis is cutils.info, produced by makeinfo version 4.0 from cutils.texi.  File: cutils.info, Node: Top, Next: Overview, Prev: (dir), Up: (dir) This is the _cutils_ manual. The cutils package is a collection of utilities for "C" programmers. They are mostly parsers that convert an input file written in a particular format into another format. * Menu: * Overview:: An overview of the cutils package. * cdecl/cundecl:: Decode and encode C type declarations. * cobfusc:: Make a C source file unreadable but compilable. * chilight:: Highlight C source files. * cunloop:: Unloop C loops. * yyextract:: Extract grammar rules from Yacc grammars. * yyref:: Yacc grammar reference program. * Bug reports:: How to report a bug.  File: cutils.info, Node: Overview, Next: cdecl/cundecl, Prev: Top, Up: Top Overview ******** The utilities enclosed in the _cutils_ package are usually useful in some circumstances during the development in the "C" language. _cdecl_ _cundecl_ The _cdecl_ and _cundecl_ utilities can be used to decode or encode a complex type declaration like void (*signal(int sig, void (*func)(int)))(int); or declare funcvec as array[16] of pointer to function that expects (void) returning int; _cobfusc_ The _cobfusc_ utility can be used to obfuscate (i.e. render unreadable but perfectly compilable) some code. For example: int main(int argc, char **argv) { int i; printf("program name: %s\n", argv[0]); printf("arguments:"); for (i = 1; i < argc; i++) printf(" %s", argv[i]); printf("\n"); } can be converted to: int main(int q0,char**q1){int q2;printf( "\160\162\157\147\162\141\155\40\156\141\155\145\72\40\45\163\n", q1[0]);printf("\141\162\147\165\155\145\156\164\163\72");for(q2=1; q2  File: cutils.info, Node: Invoking cobfusc, Next: Digraphs and trigraphs, Prev: cobfusc, Up: cobfusc Invoking cobfusc ================ The options are as follows: `-A' Enable a heavy obfuscation for the source file. This is equivalent to the `-ademt -inumeric' options. The digraphize option is not enabled by default since the Amendement 1 (1994) changes to ISO C are supported only by few C compilers. `-a' Garble every string with octal escapes. `-b' Enable the digraphize mode. `-c no | lower | upper | screw | random' Set the identifier case obfuscation mode. `-d' Compact the macros removing backslashes and white-spaces when they are not required. `-e' Compact the white-spaces when they are not required. `-f suffix' Put the output of each processed file in a separate file with `suffix' appended to file name instead of standard output. This is useful when processing a lot of source files. For example, `cobfusc -f .obf.c foo.c bar.c' will create two files, `foo.c.obf.c' and `bar.c.obf.c'. `-g file' Add first the identifiers contained in `file' to the obfuscation table. Useful when those identifiers are shared between two or more source files. `-i numeric | word | random' Set the identifier obfuscation mode. `-m' Strip the comments. `-n' Garble integers with expressions. `-o file' Set the output destination to `file'. `-p prefix' Specify the prefix to use when generating the identifiers. `-r file' Tell _cobfusc_ that the identifiers contained in `file' must not be obfuscated. `-s seed' Specify the seed for generating the random numbers. `-t' Enable the trigraphize mode. `-u' Dump the symbol table to `file'. This option is useful for debugging. `-V' Print version information on standard output then exit. `-w cols' Set the width limit of the output. `-x' Exclusive mode; obfuscate only the identifiers specified by the `-g' and `-z' parameters. `-z file' Add the identifiers pairs contained in `file' to the obfuscation table. The file format is two identifier per line, separated by a space character, the first one is the original identifier, the second one is the obfuscated identifier. This option is useful when a list of obfuscated identifiers must be provided manually. For example, this is a valid input file: find_file ff1 find_buffer ff2 close_buffer ff3 save_buffer ff4  File: cutils.info, Node: Digraphs and trigraphs, Next: cobfusc examples, Prev: Invoking cobfusc, Up: cobfusc Digraphs and trigraphs ====================== The ISO C language includes a set of trigraphs so that C programs may be written using only the ISO 646-1083 Invariant Code Set, a subset of the ASCII code set. The trigraphs, introduced by two consecutive question mark characters, are listed in the table below. `??(' is replaced by `[' `??)' is replaced by `]' `??<' is replaced by `{' `??>' is replaced by `}' `??/' is replaced by `\' `??'' is replaced by `^' `??=' is replaced by `#' `??!' is replaced by `|' `??-' is replaced by `~' The Amendment 1 to ISO C provides six new tokens that are convenient when writing source programs in restricted character sets (such as the ISO 646-1083 Invariant Code Set). The following respellings are more readable than the equivalent form using trigraphs, and they may be used wherever the customary tokens are permitted. `<:' is replaced by `[' `:>' is replaced by `]' `<%' is replaced by `{' `%>' is replaced by `}' `%:' is replaced by `#' `%:%:' is replaced by `##'  File: cutils.info, Node: cobfusc examples, Prev: Digraphs and trigraphs, Up: cobfusc cobfusc examples ================ If you just want to compact the whitespaces, try: cobfusc -de outputfile To remove the comments, try: cobfusc -m outputfile If you want to convent all the identifiers to meaningless computer generated ones, try: cobfusc -inumeric outputfile Or, if instead of numbers you like silly words like "foo" and "bar", try: cobfusc -iword outputfile For a heavy obfuscation, try: cobfusc -A outputfile Or for a maximum obfuscation, try: cobfusc -Abn -irandom -crandom outputfile To obfuscate a program composed by two or more source files: cobfusc -A -f .obf.c first.c second.c third.c  File: cutils.info, Node: chilight, Next: cunloop, Prev: cobfusc, Up: Top chilight ******** The _chilight_ utility can be used to highlight (i.e. fontify) a C source file with color escapes or markups, depending of the selected output format (tty, ANSI, HTML or roff). * Menu: * Invoking chilight:: Command line options of chilight. * chilight examples:: Some examples of this utility.  File: cutils.info, Node: Invoking chilight, Next: chilight examples, Prev: chilight, Up: chilight Invoking chilight ================= The options are as follows: `-f format' Set the output format to `format'. The format can be one of `tty' (the default), `ansi_color', `ansi_bold', `html_color', `html_font' or `roff'. `-o file' Set the output destination to `file'. `-t title' Specify the page title for the generated HTML page. `-V' Print version information on standard output then exit.  File: cutils.info, Node: chilight examples, Prev: Invoking chilight, Up: chilight chilight examples ================= For highlighting a source file with ANSI color escapes, try: chilight -f ansi_color outputfile For unlooping a source file using `foo_' as the prefix for generating the labels, try: cunloop -p foo_ outputfile  File: cutils.info, Node: yyextract, Next: yyref, Prev: cunloop, Up: Top yyextract ********* The _yyextract_ utility can be used to extract the rules from a Yacc grammar (or produce another grammar in a different format, like HTML). * Menu: * Invoking yyextract:: Command line options of yyextract. * yyextract examples:: Some examples of this utility.  File: cutils.info, Node: Invoking yyextract, Next: yyextract examples, Prev: yyextract, Up: yyextract Invoking yyextract ================== The options are as follows: `-b' Select the Backus-Naur Form (BNF) for the output. `-e' Select the Extended Backus-Naur Form (EBNF) for the output. `-h' Output in HTML format. `-o file' Set the output destination to `file'. `-t title' Specify the page title for the generated HTML page. `-w cols' Set the width limit of the output (this sets only the width of the `%token' header). `-y' Select the yacc format for the output. This is the default format. `-V' Print version information on standard output then exit.  File: cutils.info, Node: yyextract examples, Prev: Invoking yyextract, Up: yyextract yyextract examples ================== For extracting the rules from a Yacc grammar, try: yyextract outputfile For extracting the rules from a Yacc grammar in BNF format, try: yyextract -b outputfile For extracting the rules from a Yacc grammar in EBNF/HTML format, try: yyextract -eh outputfile  File: cutils.info, Node: yyref, Next: Bug reports, Prev: yyextract, Up: Top yyref ***** The _yyref_ utility is a Yacc cross-reference generator. * Menu: * Invoking yyref:: Command line options of yyref. * yyref examples:: Some examples of this utility.  File: cutils.info, Node: Invoking yyref, Next: yyref examples, Prev: yyref, Up: yyref Invoking yyref ============== The options are as follows: `-o file' Set the output destination to `file'. `-V' Print version information on standard output then exit.  File: cutils.info, Node: yyref examples, Prev: Invoking yyref, Up: yyref yyref examples ============== For creating the cross-references from a Yacc grammar, try: yyref .  Tag Table: Node: Top73 Node: Overview883 Node: cdecl/cundecl2999 Node: Invoking cdecl3590 Node: Invoking cundecl3885 Node: cdecl/cundecl examples4193 Node: cobfusc4937 Ref: cobfusc-Footnote-15913 Node: Invoking cobfusc5974 Node: Digraphs and trigraphs8565 Node: cobfusc examples9789 Node: chilight10627 Node: Invoking chilight11046 Node: chilight examples11584 Node: cunloop12021 Node: Invoking cunloop12856 Node: cunloop examples13216 Node: yyextract13545 Node: Invoking yyextract13929 Node: yyextract examples14649 Node: yyref15099 Node: Invoking yyref15392 Node: yyref examples15669 Node: Bug reports15865  End Tag Table cutils-1.6/doc/cutils.texi0100644000076500001450000004304707324331426015203 0ustar sandrosandro\input texinfo @c -*-texinfo-*- @setfilename cutils.info @settitle The cutils Manual @c If "finalout" is commented out, the printed output will show @c black boxes that mark lines that are too long. Thus, it is @c unwise to comment it out when running a master in case there are @c overfulls which are deemed okay. @iftex @c @finalout @end iftex @setchapternewpage odd @titlepage @title The cutils Manual @subtitle Edition 1.6 for cutils version 1.6 @subtitle July 2001 @author Sandro Sigala @page @vskip 0pt plus 1filll Copyright @copyright{} 1997-2001 Sandro Sigala @email{sandro@@sigala.it}. @end titlepage @c --------------------------------------------------------------------------- @node Top, Overview, (dir), (dir) This is the @emph{cutils} manual. The cutils package is a collection of utilities for ``C'' programmers. They are mostly parsers that convert an input file written in a particular format into another format. @menu * Overview:: An overview of the cutils package. * cdecl/cundecl:: Decode and encode C type declarations. * cobfusc:: Make a C source file unreadable but compilable. * chilight:: Highlight C source files. * cunloop:: Unloop C loops. * yyextract:: Extract grammar rules from Yacc grammars. * yyref:: Yacc grammar reference program. * Bug reports:: How to report a bug. @end menu @c --------------------------------------------------------------------------- @node Overview, cdecl/cundecl, Top, Top @chapter Overview The utilities enclosed in the @emph{cutils} package are usually useful in some circumstances during the development in the ``C'' language. @table @emph @item cdecl @itemx cundecl The @emph{cdecl} and @emph{cundecl} utilities can be used to decode or encode a complex type declaration like @example void (*signal(int sig, void (*func)(int)))(int); @end example or @example declare funcvec as array[16] of pointer to function that expects (void) returning int; @end example @item cobfusc The @emph{cobfusc} utility can be used to obfuscate (i.e. render unreadable but perfectly compilable) some code. For example: @example int main(int argc, char **argv) @{ int i; printf("program name: %s\n", argv[0]); printf("arguments:"); for (i = 1; i < argc; i++) printf(" %s", argv[i]); printf("\n"); @} @end example can be converted to: @example int main(int q0,char**q1)@{int q2;printf( "\160\162\157\147\162\141\155\40\156\141\155\145\72\40\45\163\n", q1[0]);printf("\141\162\147\165\155\145\156\164\163\72");for(q2=1; q2 is replaced by @samp{@}} @item ??/ is replaced by @samp{\} @item ??' is replaced by @samp{^} @item ??= is replaced by @samp{#} @item ??! is replaced by @samp{|} @item ??- is replaced by @samp{~} @end table The Amendment 1 to ISO C provides six new tokens that are convenient when writing source programs in restricted character sets (such as the ISO 646-1083 Invariant Code Set). The following respellings are more readable than the equivalent form using trigraphs, and they may be used wherever the customary tokens are permitted. @table @samp @item <: is replaced by @samp{[} @item :> is replaced by @samp{]} @item <% is replaced by @samp{@{} @item %> is replaced by @samp{@}} @item %: is replaced by @samp{#} @item %:%: is replaced by @samp{##} @end table @c --------------------------------------------------------------------------- @node cobfusc examples, , Digraphs and trigraphs, cobfusc @section cobfusc examples If you just want to compact the whitespaces, try: @example cobfusc -de outputfile @end example To remove the comments, try: @example cobfusc -m outputfile @end example If you want to convent all the identifiers to meaningless computer generated ones, try: @example cobfusc -inumeric outputfile @end example Or, if instead of numbers you like silly words like ``foo'' and ``bar'', try: @example cobfusc -iword outputfile @end example For a heavy obfuscation, try: @example cobfusc -A outputfile @end example Or for a maximum obfuscation, try: @example cobfusc -Abn -irandom -crandom outputfile @end example To obfuscate a program composed by two or more source files: @example cobfusc -A -f .obf.c first.c second.c third.c @end example @c --------------------------------------------------------------------------- @node chilight, cunloop, cobfusc, Top @chapter chilight The @emph{chilight} utility can be used to highlight (i.e. fontify) a C source file with color escapes or markups, depending of the selected output format (tty, ANSI, HTML or roff). @menu * Invoking chilight:: Command line options of chilight. * chilight examples:: Some examples of this utility. @end menu @c --------------------------------------------------------------------------- @node Invoking chilight, chilight examples, chilight, chilight @section Invoking chilight The options are as follows: @table @samp @item -f format Set the output format to @samp{format}. The format can be one of @samp{tty} (the default), @samp{ansi_color}, @samp{ansi_bold}, @samp{html_color}, @samp{html_font} or @samp{roff}. @item -o file Set the output destination to @file{file}. @item -t title Specify the page title for the generated HTML page. @item -V Print version information on standard output then exit. @end table @c --------------------------------------------------------------------------- @node chilight examples, , Invoking chilight, chilight @section chilight examples For highlighting a source file with ANSI color escapes, try: @example chilight -f ansi_color outputfile @end example For unlooping a source file using @code{foo_} as the prefix for generating the labels, try: @example cunloop -p foo_ outputfile @end example @c --------------------------------------------------------------------------- @node yyextract, yyref, cunloop, Top @chapter yyextract The @emph{yyextract} utility can be used to extract the rules from a Yacc grammar (or produce another grammar in a different format, like HTML). @menu * Invoking yyextract:: Command line options of yyextract. * yyextract examples:: Some examples of this utility. @end menu @c --------------------------------------------------------------------------- @node Invoking yyextract, yyextract examples, yyextract, yyextract @section Invoking yyextract The options are as follows: @table @samp @item -b Select the Backus-Naur Form (BNF) for the output. @item -e Select the Extended Backus-Naur Form (EBNF) for the output. @item -h Output in HTML format. @item -o file Set the output destination to @file{file}. @item -t title Specify the page title for the generated HTML page. @item -w cols Set the width limit of the output (this sets only the width of the @samp{%token} header). @item -y Select the yacc format for the output. This is the default format. @item -V Print version information on standard output then exit. @end table @c --------------------------------------------------------------------------- @node yyextract examples, , Invoking yyextract, yyextract @section yyextract examples For extracting the rules from a Yacc grammar, try: @example yyextract outputfile @end example For extracting the rules from a Yacc grammar in BNF format, try: @example yyextract -b outputfile @end example For extracting the rules from a Yacc grammar in EBNF/HTML format, try: @example yyextract -eh outputfile @end example @c --------------------------------------------------------------------------- @node yyref, Bug reports, yyextract, Top @chapter yyref The @emph{yyref} utility is a Yacc cross-reference generator. @menu * Invoking yyref:: Command line options of yyref. * yyref examples:: Some examples of this utility. @end menu @c --------------------------------------------------------------------------- @node Invoking yyref, yyref examples, yyref, yyref @section Invoking yyref The options are as follows: @table @samp @item -o file Set the output destination to @file{file}. @item -V Print version information on standard output then exit. @end table @c --------------------------------------------------------------------------- @node yyref examples, , Invoking yyref, yyref @section yyref examples For creating the cross-references from a Yacc grammar, try: @example yyref 0pt % Only leave this space if the footline is nonempty. % (We lessened \vsize for it in \oddfootingxxx.) % The \baselineskip=24pt in plain's \makefootline has no effect. \vskip 2\baselineskip \unvbox\footlinebox \fi % \ifpdfmakepagedest \pdfmkdest{\the\pageno} \fi % \ifcropmarks \egroup % end of \vbox\bgroup \hfil\egroup % end of (centering) \line\bgroup \vskip\topandbottommargin plus1fill minus1fill \boxmaxdepth = \cornerthick \vbox to0pt{\vss \line{% \vbox{\moveleft\cornerthick\nsbot}% \hfill \vbox{\moveright\cornerthick\nsbot}% }% \nointerlineskip \line{\ewbot\hfil\ewbot}% }% \egroup % \vbox from first cropmarks clause \fi }% end of \shipout\vbox }% end of group with \turnoffactive \advancepageno \ifnum\outputpenalty>-20000 \else\dosupereject\fi } \newinsert\margin \dimen\margin=\maxdimen \def\pagebody#1{\vbox to\pageheight{\boxmaxdepth=\maxdepth #1}} {\catcode`\@ =11 \gdef\pagecontents#1{\ifvoid\topins\else\unvbox\topins\fi % marginal hacks, juha@viisa.uucp (Juha Takala) \ifvoid\margin\else % marginal info is present \rlap{\kern\hsize\vbox to\z@{\kern1pt\box\margin \vss}}\fi \dimen@=\dp#1 \unvbox#1 \ifvoid\footins\else\vskip\skip\footins\footnoterule \unvbox\footins\fi \ifr@ggedbottom \kern-\dimen@ \vfil \fi} } % Here are the rules for the cropmarks. Note that they are % offset so that the space between them is truly \outerhsize or \outervsize % (P. A. MacKay, 12 November, 1986) % \def\ewtop{\vrule height\cornerthick depth0pt width\cornerlong} \def\nstop{\vbox {\hrule height\cornerthick depth\cornerlong width\cornerthick}} \def\ewbot{\vrule height0pt depth\cornerthick width\cornerlong} \def\nsbot{\vbox {\hrule height\cornerlong depth\cornerthick width\cornerthick}} % Parse an argument, then pass it to #1. The argument is the rest of % the input line (except we remove a trailing comment). #1 should be a % macro which expects an ordinary undelimited TeX argument. % \def\parsearg#1{% \let\next = #1% \begingroup \obeylines \futurelet\temp\parseargx } % If the next token is an obeyed space (from an @example environment or % the like), remove it and recurse. Otherwise, we're done. \def\parseargx{% % \obeyedspace is defined far below, after the definition of \sepspaces. \ifx\obeyedspace\temp \expandafter\parseargdiscardspace \else \expandafter\parseargline \fi } % Remove a single space (as the delimiter token to the macro call). {\obeyspaces % \gdef\parseargdiscardspace {\futurelet\temp\parseargx}} {\obeylines % \gdef\parseargline#1^^M{% \endgroup % End of the group started in \parsearg. % % First remove any @c comment, then any @comment. % Result of each macro is put in \toks0. \argremovec #1\c\relax % \expandafter\argremovecomment \the\toks0 \comment\relax % % % Call the caller's macro, saved as \next in \parsearg. \expandafter\next\expandafter{\the\toks0}% }% } % Since all \c{,omment} does is throw away the argument, we can let TeX % do that for us. The \relax here is matched by the \relax in the call % in \parseargline; it could be more or less anything, its purpose is % just to delimit the argument to the \c. \def\argremovec#1\c#2\relax{\toks0 = {#1}} \def\argremovecomment#1\comment#2\relax{\toks0 = {#1}} % \argremovec{,omment} might leave us with trailing spaces, though; e.g., % @end itemize @c foo % will have two active spaces as part of the argument with the % `itemize'. Here we remove all active spaces from #1, and assign the % result to \toks0. % % This loses if there are any *other* active characters besides spaces % in the argument -- _ ^ +, for example -- since they get expanded. % Fortunately, Texinfo does not define any such commands. (If it ever % does, the catcode of the characters in questionwill have to be changed % here.) But this means we cannot call \removeactivespaces as part of % \argremovec{,omment}, since @c uses \parsearg, and thus the argument % that \parsearg gets might well have any character at all in it. % \def\removeactivespaces#1{% \begingroup \ignoreactivespaces \edef\temp{#1}% \global\toks0 = \expandafter{\temp}% \endgroup } % Change the active space to expand to nothing. % \begingroup \obeyspaces \gdef\ignoreactivespaces{\obeyspaces\let =\empty} \endgroup \def\flushcr{\ifx\par\lisppar \def\next##1{}\else \let\next=\relax \fi \next} %% These are used to keep @begin/@end levels from running away %% Call \inENV within environments (after a \begingroup) \newif\ifENV \ENVfalse \def\inENV{\ifENV\relax\else\ENVtrue\fi} \def\ENVcheck{% \ifENV\errmessage{Still within an environment; press RETURN to continue} \endgroup\fi} % This is not perfect, but it should reduce lossage % @begin foo is the same as @foo, for now. \newhelp\EMsimple{Press RETURN to continue.} \outer\def\begin{\parsearg\beginxxx} \def\beginxxx #1{% \expandafter\ifx\csname #1\endcsname\relax {\errhelp=\EMsimple \errmessage{Undefined command @begin #1}}\else \csname #1\endcsname\fi} % @end foo executes the definition of \Efoo. % \def\end{\parsearg\endxxx} \def\endxxx #1{% \removeactivespaces{#1}% \edef\endthing{\the\toks0}% % \expandafter\ifx\csname E\endthing\endcsname\relax \expandafter\ifx\csname \endthing\endcsname\relax % There's no \foo, i.e., no ``environment'' foo. \errhelp = \EMsimple \errmessage{Undefined command `@end \endthing'}% \else \unmatchedenderror\endthing \fi \else % Everything's ok; the right environment has been started. \csname E\endthing\endcsname \fi } % There is an environment #1, but it hasn't been started. Give an error. % \def\unmatchedenderror#1{% \errhelp = \EMsimple \errmessage{This `@end #1' doesn't have a matching `@#1'}% } % Define the control sequence \E#1 to give an unmatched @end error. % \def\defineunmatchedend#1{% \expandafter\def\csname E#1\endcsname{\unmatchedenderror{#1}}% } % Single-spacing is done by various environments (specifically, in % \nonfillstart and \quotations). \newskip\singlespaceskip \singlespaceskip = 12.5pt \def\singlespace{% % Why was this kern here? It messes up equalizing space above and below % environments. --karl, 6may93 %{\advance \baselineskip by -\singlespaceskip %\kern \baselineskip}% \setleading \singlespaceskip } %% Simple single-character @ commands % @@ prints an @ % Kludge this until the fonts are right (grr). \def\@{{\tt\char64}} % This is turned off because it was never documented % and you can use @w{...} around a quote to suppress ligatures. %% Define @` and @' to be the same as ` and ' %% but suppressing ligatures. %\def\`{{`}} %\def\'{{'}} % Used to generate quoted braces. \def\mylbrace {{\tt\char123}} \def\myrbrace {{\tt\char125}} \let\{=\mylbrace \let\}=\myrbrace \begingroup % Definitions to produce actual \{ & \} command in an index. \catcode`\{ = 12 \catcode`\} = 12 \catcode`\[ = 1 \catcode`\] = 2 \catcode`\@ = 0 \catcode`\\ = 12 @gdef@lbracecmd[\{]% @gdef@rbracecmd[\}]% @endgroup % Accents: @, @dotaccent @ringaccent @ubaraccent @udotaccent % Others are defined by plain TeX: @` @' @" @^ @~ @= @v @H. \let\, = \c \let\dotaccent = \. \def\ringaccent#1{{\accent23 #1}} \let\tieaccent = \t \let\ubaraccent = \b \let\udotaccent = \d % Other special characters: @questiondown @exclamdown % Plain TeX defines: @AA @AE @O @OE @L (and lowercase versions) @ss. \def\questiondown{?`} \def\exclamdown{!`} % Dotless i and dotless j, used for accents. \def\imacro{i} \def\jmacro{j} \def\dotless#1{% \def\temp{#1}% \ifx\temp\imacro \ptexi \else\ifx\temp\jmacro \j \else \errmessage{@dotless can be used only with i or j}% \fi\fi } % Be sure we're in horizontal mode when doing a tie, since we make space % equivalent to this in @example-like environments. Otherwise, a space % at the beginning of a line will start with \penalty -- and % since \penalty is valid in vertical mode, we'd end up putting the % penalty on the vertical list instead of in the new paragraph. {\catcode`@ = 11 % Avoid using \@M directly, because that causes trouble % if the definition is written into an index file. \global\let\tiepenalty = \@M \gdef\tie{\leavevmode\penalty\tiepenalty\ } } % @: forces normal size whitespace following. \def\:{\spacefactor=1000 } % @* forces a line break. \def\*{\hfil\break\hbox{}\ignorespaces} % @. is an end-of-sentence period. \def\.{.\spacefactor=3000 } % @! is an end-of-sentence bang. \def\!{!\spacefactor=3000 } % @? is an end-of-sentence query. \def\?{?\spacefactor=3000 } % @w prevents a word break. Without the \leavevmode, @w at the % beginning of a paragraph, when TeX is still in vertical mode, would % produce a whole line of output instead of starting the paragraph. \def\w#1{\leavevmode\hbox{#1}} % @group ... @end group forces ... to be all on one page, by enclosing % it in a TeX vbox. We use \vtop instead of \vbox to construct the box % to keep its height that of a normal line. According to the rules for % \topskip (p.114 of the TeXbook), the glue inserted is % max (\topskip - \ht (first item), 0). If that height is large, % therefore, no glue is inserted, and the space between the headline and % the text is small, which looks bad. % \def\group{\begingroup \ifnum\catcode13=\active \else \errhelp = \groupinvalidhelp \errmessage{@group invalid in context where filling is enabled}% \fi % % The \vtop we start below produces a box with normal height and large % depth; thus, TeX puts \baselineskip glue before it, and (when the % next line of text is done) \lineskip glue after it. (See p.82 of % the TeXbook.) Thus, space below is not quite equal to space % above. But it's pretty close. \def\Egroup{% \egroup % End the \vtop. \endgroup % End the \group. }% % \vtop\bgroup % We have to put a strut on the last line in case the @group is in % the midst of an example, rather than completely enclosing it. % Otherwise, the interline space between the last line of the group % and the first line afterwards is too small. But we can't put the % strut in \Egroup, since there it would be on a line by itself. % Hence this just inserts a strut at the beginning of each line. \everypar = {\strut}% % % Since we have a strut on every line, we don't need any of TeX's % normal interline spacing. \offinterlineskip % % OK, but now we have to do something about blank % lines in the input in @example-like environments, which normally % just turn into \lisppar, which will insert no space now that we've % turned off the interline space. Simplest is to make them be an % empty paragraph. \ifx\par\lisppar \edef\par{\leavevmode \par}% % % Reset ^^M's definition to new definition of \par. \obeylines \fi % % Do @comment since we are called inside an environment such as % @example, where each end-of-line in the input causes an % end-of-line in the output. We don't want the end-of-line after % the `@group' to put extra space in the output. Since @group % should appear on a line by itself (according to the Texinfo % manual), we don't worry about eating any user text. \comment } % % TeX puts in an \escapechar (i.e., `@') at the beginning of the help % message, so this ends up printing `@group can only ...'. % \newhelp\groupinvalidhelp{% group can only be used in environments such as @example,^^J% where each line of input produces a line of output.} % @need space-in-mils % forces a page break if there is not space-in-mils remaining. \newdimen\mil \mil=0.001in \def\need{\parsearg\needx} % Old definition--didn't work. %\def\needx #1{\par % %% This method tries to make TeX break the page naturally %% if the depth of the box does not fit. %{\baselineskip=0pt% %\vtop to #1\mil{\vfil}\kern -#1\mil\nobreak %\prevdepth=-1000pt %}} \def\needx#1{% % Ensure vertical mode, so we don't make a big box in the middle of a % paragraph. \par % % If the @need value is less than one line space, it's useless. \dimen0 = #1\mil \dimen2 = \ht\strutbox \advance\dimen2 by \dp\strutbox \ifdim\dimen0 > \dimen2 % % Do a \strut just to make the height of this box be normal, so the % normal leading is inserted relative to the preceding line. % And a page break here is fine. \vtop to #1\mil{\strut\vfil}% % % TeX does not even consider page breaks if a penalty added to the % main vertical list is 10000 or more. But in order to see if the % empty box we just added fits on the page, we must make it consider % page breaks. On the other hand, we don't want to actually break the % page after the empty box. So we use a penalty of 9999. % % There is an extremely small chance that TeX will actually break the % page at this \penalty, if there are no other feasible breakpoints in % sight. (If the user is using lots of big @group commands, which % almost-but-not-quite fill up a page, TeX will have a hard time doing % good page breaking, for example.) However, I could not construct an % example where a page broke at this \penalty; if it happens in a real % document, then we can reconsider our strategy. \penalty9999 % % Back up by the size of the box, whether we did a page break or not. \kern -#1\mil % % Do not allow a page break right after this kern. \nobreak \fi } % @br forces paragraph break \let\br = \par % @dots{} output an ellipsis using the current font. % We do .5em per period so that it has the same spacing in a typewriter % font as three actual period characters. % \def\dots{% \leavevmode \hbox to 1.5em{% \hskip 0pt plus 0.25fil minus 0.25fil .\hss.\hss.% \hskip 0pt plus 0.5fil minus 0.5fil }% } % @enddots{} is an end-of-sentence ellipsis. % \def\enddots{% \leavevmode \hbox to 2em{% \hskip 0pt plus 0.25fil minus 0.25fil .\hss.\hss.\hss.% \hskip 0pt plus 0.5fil minus 0.5fil }% \spacefactor=3000 } % @page forces the start of a new page % \def\page{\par\vfill\supereject} % @exdent text.... % outputs text on separate line in roman font, starting at standard page margin % This records the amount of indent in the innermost environment. % That's how much \exdent should take out. \newskip\exdentamount % This defn is used inside fill environments such as @defun. \def\exdent{\parsearg\exdentyyy} \def\exdentyyy #1{{\hfil\break\hbox{\kern -\exdentamount{\rm#1}}\hfil\break}} % This defn is used inside nofill environments such as @example. \def\nofillexdent{\parsearg\nofillexdentyyy} \def\nofillexdentyyy #1{{\advance \leftskip by -\exdentamount \leftline{\hskip\leftskip{\rm#1}}}} % @inmargin{TEXT} puts TEXT in the margin next to the current paragraph. \def\inmargin#1{% \strut\vadjust{\nobreak\kern-\strutdepth \vtop to \strutdepth{\baselineskip\strutdepth\vss \llap{\rightskip=\inmarginspacing \vbox{\noindent #1}}\null}}} \newskip\inmarginspacing \inmarginspacing=1cm \def\strutdepth{\dp\strutbox} %\hbox{{\rm#1}}\hfil\break}} % @include file insert text of that file as input. % Allow normal characters that we make active in the argument (a file name). \def\include{\begingroup \catcode`\\=12 \catcode`~=12 \catcode`^=12 \catcode`_=12 \catcode`|=12 \catcode`<=12 \catcode`>=12 \catcode`+=12 \parsearg\includezzz} % Restore active chars for included file. \def\includezzz#1{\endgroup\begingroup % Read the included file in a group so nested @include's work. \def\thisfile{#1}% \input\thisfile \endgroup} \def\thisfile{} % @center line outputs that line, centered \def\center{\parsearg\centerzzz} \def\centerzzz #1{{\advance\hsize by -\leftskip \advance\hsize by -\rightskip \centerline{#1}}} % @sp n outputs n lines of vertical space \def\sp{\parsearg\spxxx} \def\spxxx #1{\vskip #1\baselineskip} % @comment ...line which is ignored... % @c is the same as @comment % @ignore ... @end ignore is another way to write a comment \def\comment{\begingroup \catcode`\^^M=\other% \catcode`\@=\other \catcode`\{=\other \catcode`\}=\other% \commentxxx} {\catcode`\^^M=\other \gdef\commentxxx#1^^M{\endgroup}} \let\c=\comment % @paragraphindent NCHARS % We'll use ems for NCHARS, close enough. % We cannot implement @paragraphindent asis, though. % \def\asisword{asis} % no translation, these are keywords \def\noneword{none} % \def\paragraphindent{\parsearg\doparagraphindent} \def\doparagraphindent#1{% \def\temp{#1}% \ifx\temp\asisword \else \ifx\temp\noneword \defaultparindent = 0pt \else \defaultparindent = #1em \fi \fi \parindent = \defaultparindent } % @exampleindent NCHARS % We'll use ems for NCHARS like @paragraphindent. % It seems @exampleindent asis isn't necessary, but % I preserve it to make it similar to @paragraphindent. \def\exampleindent{\parsearg\doexampleindent} \def\doexampleindent#1{% \def\temp{#1}% \ifx\temp\asisword \else \ifx\temp\noneword \lispnarrowing = 0pt \else \lispnarrowing = #1em \fi \fi } % @asis just yields its argument. Used with @table, for example. % \def\asis#1{#1} % @math means output in math mode. % We don't use $'s directly in the definition of \math because control % sequences like \math are expanded when the toc file is written. Then, % we read the toc file back, the $'s will be normal characters (as they % should be, according to the definition of Texinfo). So we must use a % control sequence to switch into and out of math mode. % % This isn't quite enough for @math to work properly in indices, but it % seems unlikely it will ever be needed there. % \let\implicitmath = $ \def\math#1{\implicitmath #1\implicitmath} % @bullet and @minus need the same treatment as @math, just above. \def\bullet{\implicitmath\ptexbullet\implicitmath} \def\minus{\implicitmath-\implicitmath} % @refill is a no-op. \let\refill=\relax % If working on a large document in chapters, it is convenient to % be able to disable indexing, cross-referencing, and contents, for test runs. % This is done with @novalidate (before @setfilename). % \newif\iflinks \linkstrue % by default we want the aux files. \let\novalidate = \linksfalse % @setfilename is done at the beginning of every texinfo file. % So open here the files we need to have open while reading the input. % This makes it possible to make a .fmt file for texinfo. \def\setfilename{% \iflinks \readauxfile \fi % \openindices needs to do some work in any case. \openindices \fixbackslash % Turn off hack to swallow `\input texinfo'. \global\let\setfilename=\comment % Ignore extra @setfilename cmds. % % If texinfo.cnf is present on the system, read it. % Useful for site-wide @afourpaper, etc. % Just to be on the safe side, close the input stream before the \input. \openin 1 texinfo.cnf \ifeof1 \let\temp=\relax \else \def\temp{\input texinfo.cnf }\fi \closein1 \temp % \comment % Ignore the actual filename. } % Called from \setfilename. % \def\openindices{% \newindex{cp}% \newcodeindex{fn}% \newcodeindex{vr}% \newcodeindex{tp}% \newcodeindex{ky}% \newcodeindex{pg}% } % @bye. \outer\def\bye{\pagealignmacro\tracingstats=1\ptexend} \message{pdf,} % adobe `portable' document format \newcount\tempnum \newcount\lnkcount \newtoks\filename \newcount\filenamelength \newcount\pgn \newtoks\toksA \newtoks\toksB \newtoks\toksC \newtoks\toksD \newbox\boxA \newcount\countA \newif\ifpdf \newif\ifpdfmakepagedest \ifx\pdfoutput\undefined \pdffalse \let\pdfmkdest = \gobble \let\pdfurl = \gobble \let\endlink = \relax \let\linkcolor = \relax \let\pdfmakeoutlines = \relax \else \pdftrue \pdfoutput = 1 \input pdfcolor \def\dopdfimage#1#2#3{% \def\imagewidth{#2}% \def\imageheight{#3}% \ifnum\pdftexversion < 14 \pdfimage \else \pdfximage \fi \ifx\empty\imagewidth\else width \imagewidth \fi \ifx\empty\imageheight\else height \imageheight \fi {#1.pdf}% \ifnum\pdftexversion < 14 \else \pdfrefximage \pdflastximage \fi} \def\pdfmkdest#1{\pdfdest name{#1@} xyz} \def\pdfmkpgn#1{#1@} \let\linkcolor = \Cyan \def\endlink{\Black\pdfendlink} % Adding outlines to PDF; macros for calculating structure of outlines % come from Petr Olsak \def\expnumber#1{\expandafter\ifx\csname#1\endcsname\relax 0% \else \csname#1\endcsname \fi} \def\advancenumber#1{\tempnum=\expnumber{#1}\relax \advance\tempnum by1 \expandafter\xdef\csname#1\endcsname{\the\tempnum}} \def\pdfmakeoutlines{{% \openin 1 \jobname.toc \ifeof 1\else\bgroup \closein 1 \indexnofonts \def\tt{} % thanh's hack / proper braces in bookmarks \edef\mylbrace{\iftrue \string{\else}\fi}\let\{=\mylbrace \edef\myrbrace{\iffalse{\else\string}\fi}\let\}=\myrbrace % \def\chapentry ##1##2##3{} \def\unnumbchapentry ##1##2{} \def\secentry ##1##2##3##4{\advancenumber{chap##2}} \def\unnumbsecentry ##1##2{} \def\subsecentry ##1##2##3##4##5{\advancenumber{sec##2.##3}} \def\unnumbsubsecentry ##1##2{} \def\subsubsecentry ##1##2##3##4##5##6{\advancenumber{subsec##2.##3.##4}} \def\unnumbsubsubsecentry ##1##2{} \input \jobname.toc \def\chapentry ##1##2##3{% \pdfoutline goto name{\pdfmkpgn{##3}}count-\expnumber{chap##2}{##1}} \def\unnumbchapentry ##1##2{% \pdfoutline goto name{\pdfmkpgn{##2}}{##1}} \def\secentry ##1##2##3##4{% \pdfoutline goto name{\pdfmkpgn{##4}}count-\expnumber{sec##2.##3}{##1}} \def\unnumbsecentry ##1##2{% \pdfoutline goto name{\pdfmkpgn{##2}}{##1}} \def\subsecentry ##1##2##3##4##5{% \pdfoutline goto name{\pdfmkpgn{##5}}count-\expnumber{subsec##2.##3.##4}{##1}} \def\unnumbsubsecentry ##1##2{% \pdfoutline goto name{\pdfmkpgn{##2}}{##1}} \def\subsubsecentry ##1##2##3##4##5##6{% \pdfoutline goto name{\pdfmkpgn{##6}}{##1}} \def\unnumbsubsubsecentry ##1##2{% \pdfoutline goto name{\pdfmkpgn{##2}}{##1}} \input \jobname.toc \egroup\fi }} \def\makelinks #1,{% \def\params{#1}\def\E{END}% \ifx\params\E \let\nextmakelinks=\relax \else \let\nextmakelinks=\makelinks \ifnum\lnkcount>0,\fi \picknum{#1}% \startlink attr{/Border [0 0 0]} goto name{\pdfmkpgn{\the\pgn}}% \linkcolor #1% \advance\lnkcount by 1% \endlink \fi \nextmakelinks } \def\picknum#1{\expandafter\pn#1} \def\pn#1{% \def\p{#1}% \ifx\p\lbrace \let\nextpn=\ppn \else \let\nextpn=\ppnn \def\first{#1} \fi \nextpn } \def\ppn#1{\pgn=#1\gobble} \def\ppnn{\pgn=\first} \def\pdfmklnk#1{\lnkcount=0\makelinks #1,END,} \def\addtokens#1#2{\edef\addtoks{\noexpand#1={\the#1#2}}\addtoks} \def\skipspaces#1{\def\PP{#1}\def\D{|}% \ifx\PP\D\let\nextsp\relax \else\let\nextsp\skipspaces \ifx\p\space\else\addtokens{\filename}{\PP}% \advance\filenamelength by 1 \fi \fi \nextsp} \def\getfilename#1{\filenamelength=0\expandafter\skipspaces#1|\relax} \ifnum\pdftexversion < 14 \let \startlink \pdfannotlink \else \let \startlink \pdfstartlink \fi \def\pdfurl#1{% \begingroup \normalturnoffactive\def\@{@}% \leavevmode\Red \startlink attr{/Border [0 0 0]}% user{/Subtype /Link /A << /S /URI /URI (#1) >>}% % #1 \endgroup} \def\pdfgettoks#1.{\setbox\boxA=\hbox{\toksA={#1.}\toksB={}\maketoks}} \def\addtokens#1#2{\edef\addtoks{\noexpand#1={\the#1#2}}\addtoks} \def\adn#1{\addtokens{\toksC}{#1}\global\countA=1\let\next=\maketoks} \def\poptoks#1#2|ENDTOKS|{\let\first=#1\toksD={#1}\toksA={#2}} \def\maketoks{% \expandafter\poptoks\the\toksA|ENDTOKS| \ifx\first0\adn0 \else\ifx\first1\adn1 \else\ifx\first2\adn2 \else\ifx\first3\adn3 \else\ifx\first4\adn4 \else\ifx\first5\adn5 \else\ifx\first6\adn6 \else\ifx\first7\adn7 \else\ifx\first8\adn8 \else\ifx\first9\adn9 \else \ifnum0=\countA\else\makelink\fi \ifx\first.\let\next=\done\else \let\next=\maketoks \addtokens{\toksB}{\the\toksD} \ifx\first,\addtokens{\toksB}{\space}\fi \fi \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi \next} \def\makelink{\addtokens{\toksB}% {\noexpand\pdflink{\the\toksC}}\toksC={}\global\countA=0} \def\pdflink#1{% \startlink attr{/Border [0 0 0]} goto name{\mkpgn{#1}} \linkcolor #1\endlink} \def\mkpgn#1{#1@} \def\done{\edef\st{\global\noexpand\toksA={\the\toksB}}\st} \fi % \ifx\pdfoutput \message{fonts,} % Font-change commands. % Texinfo sort of supports the sans serif font style, which plain TeX does not. % So we set up a \sf analogous to plain's \rm, etc. \newfam\sffam \def\sf{\fam=\sffam \tensf} \let\li = \sf % Sometimes we call it \li, not \sf. % We don't need math for this one. \def\ttsl{\tenttsl} % Use Computer Modern fonts at \magstephalf (11pt). \newcount\mainmagstep \mainmagstep=\magstephalf % Set the font macro #1 to the font named #2, adding on the % specified font prefix (normally `cm'). % #3 is the font's design size, #4 is a scale factor \def\setfont#1#2#3#4{\font#1=\fontprefix#2#3 scaled #4} % Use cm as the default font prefix. % To specify the font prefix, you must define \fontprefix % before you read in texinfo.tex. \ifx\fontprefix\undefined \def\fontprefix{cm} \fi % Support font families that don't use the same naming scheme as CM. \def\rmshape{r} \def\rmbshape{bx} %where the normal face is bold \def\bfshape{b} \def\bxshape{bx} \def\ttshape{tt} \def\ttbshape{tt} \def\ttslshape{sltt} \def\itshape{ti} \def\itbshape{bxti} \def\slshape{sl} \def\slbshape{bxsl} \def\sfshape{ss} \def\sfbshape{ss} \def\scshape{csc} \def\scbshape{csc} \ifx\bigger\relax \let\mainmagstep=\magstep1 \setfont\textrm\rmshape{12}{1000} \setfont\texttt\ttshape{12}{1000} \else \setfont\textrm\rmshape{10}{\mainmagstep} \setfont\texttt\ttshape{10}{\mainmagstep} \fi % Instead of cmb10, you many want to use cmbx10. % cmbx10 is a prettier font on its own, but cmb10 % looks better when embedded in a line with cmr10. \setfont\textbf\bfshape{10}{\mainmagstep} \setfont\textit\itshape{10}{\mainmagstep} \setfont\textsl\slshape{10}{\mainmagstep} \setfont\textsf\sfshape{10}{\mainmagstep} \setfont\textsc\scshape{10}{\mainmagstep} \setfont\textttsl\ttslshape{10}{\mainmagstep} \font\texti=cmmi10 scaled \mainmagstep \font\textsy=cmsy10 scaled \mainmagstep % A few fonts for @defun, etc. \setfont\defbf\bxshape{10}{\magstep1} %was 1314 \setfont\deftt\ttshape{10}{\magstep1} \def\df{\let\tentt=\deftt \let\tenbf = \defbf \bf} % Fonts for indices, footnotes, small examples (9pt). \setfont\smallrm\rmshape{9}{1000} \setfont\smalltt\ttshape{9}{1000} \setfont\smallbf\bfshape{10}{900} \setfont\smallit\itshape{9}{1000} \setfont\smallsl\slshape{9}{1000} \setfont\smallsf\sfshape{9}{1000} \setfont\smallsc\scshape{10}{900} \setfont\smallttsl\ttslshape{10}{900} \font\smalli=cmmi9 \font\smallsy=cmsy9 % Fonts for title page: \setfont\titlerm\rmbshape{12}{\magstep3} \setfont\titleit\itbshape{10}{\magstep4} \setfont\titlesl\slbshape{10}{\magstep4} \setfont\titlett\ttbshape{12}{\magstep3} \setfont\titlettsl\ttslshape{10}{\magstep4} \setfont\titlesf\sfbshape{17}{\magstep1} \let\titlebf=\titlerm \setfont\titlesc\scbshape{10}{\magstep4} \font\titlei=cmmi12 scaled \magstep3 \font\titlesy=cmsy10 scaled \magstep4 \def\authorrm{\secrm} % Chapter (and unnumbered) fonts (17.28pt). \setfont\chaprm\rmbshape{12}{\magstep2} \setfont\chapit\itbshape{10}{\magstep3} \setfont\chapsl\slbshape{10}{\magstep3} \setfont\chaptt\ttbshape{12}{\magstep2} \setfont\chapttsl\ttslshape{10}{\magstep3} \setfont\chapsf\sfbshape{17}{1000} \let\chapbf=\chaprm \setfont\chapsc\scbshape{10}{\magstep3} \font\chapi=cmmi12 scaled \magstep2 \font\chapsy=cmsy10 scaled \magstep3 % Section fonts (14.4pt). \setfont\secrm\rmbshape{12}{\magstep1} \setfont\secit\itbshape{10}{\magstep2} \setfont\secsl\slbshape{10}{\magstep2} \setfont\sectt\ttbshape{12}{\magstep1} \setfont\secttsl\ttslshape{10}{\magstep2} \setfont\secsf\sfbshape{12}{\magstep1} \let\secbf\secrm \setfont\secsc\scbshape{10}{\magstep2} \font\seci=cmmi12 scaled \magstep1 \font\secsy=cmsy10 scaled \magstep2 % \setfont\ssecrm\bxshape{10}{\magstep1} % This size an font looked bad. % \setfont\ssecit\itshape{10}{\magstep1} % The letters were too crowded. % \setfont\ssecsl\slshape{10}{\magstep1} % \setfont\ssectt\ttshape{10}{\magstep1} % \setfont\ssecsf\sfshape{10}{\magstep1} %\setfont\ssecrm\bfshape{10}{1315} % Note the use of cmb rather than cmbx. %\setfont\ssecit\itshape{10}{1315} % Also, the size is a little larger than %\setfont\ssecsl\slshape{10}{1315} % being scaled magstep1. %\setfont\ssectt\ttshape{10}{1315} %\setfont\ssecsf\sfshape{10}{1315} %\let\ssecbf=\ssecrm % Subsection fonts (13.15pt). \setfont\ssecrm\rmbshape{12}{\magstephalf} \setfont\ssecit\itbshape{10}{1315} \setfont\ssecsl\slbshape{10}{1315} \setfont\ssectt\ttbshape{12}{\magstephalf} \setfont\ssecttsl\ttslshape{10}{1315} \setfont\ssecsf\sfbshape{12}{\magstephalf} \let\ssecbf\ssecrm \setfont\ssecsc\scbshape{10}{\magstep1} \font\sseci=cmmi12 scaled \magstephalf \font\ssecsy=cmsy10 scaled 1315 % The smallcaps and symbol fonts should actually be scaled \magstep1.5, % but that is not a standard magnification. % In order for the font changes to affect most math symbols and letters, % we have to define the \textfont of the standard families. Since % texinfo doesn't allow for producing subscripts and superscripts, we % don't bother to reset \scriptfont and \scriptscriptfont (which would % also require loading a lot more fonts). % \def\resetmathfonts{% \textfont0 = \tenrm \textfont1 = \teni \textfont2 = \tensy \textfont\itfam = \tenit \textfont\slfam = \tensl \textfont\bffam = \tenbf \textfont\ttfam = \tentt \textfont\sffam = \tensf } % The font-changing commands redefine the meanings of \tenSTYLE, instead % of just \STYLE. We do this so that font changes will continue to work % in math mode, where it is the current \fam that is relevant in most % cases, not the current font. Plain TeX does \def\bf{\fam=\bffam % \tenbf}, for example. By redefining \tenbf, we obviate the need to % redefine \bf itself. \def\textfonts{% \let\tenrm=\textrm \let\tenit=\textit \let\tensl=\textsl \let\tenbf=\textbf \let\tentt=\texttt \let\smallcaps=\textsc \let\tensf=\textsf \let\teni=\texti \let\tensy=\textsy \let\tenttsl=\textttsl \resetmathfonts} \def\titlefonts{% \let\tenrm=\titlerm \let\tenit=\titleit \let\tensl=\titlesl \let\tenbf=\titlebf \let\tentt=\titlett \let\smallcaps=\titlesc \let\tensf=\titlesf \let\teni=\titlei \let\tensy=\titlesy \let\tenttsl=\titlettsl \resetmathfonts \setleading{25pt}} \def\titlefont#1{{\titlefonts\rm #1}} \def\chapfonts{% \let\tenrm=\chaprm \let\tenit=\chapit \let\tensl=\chapsl \let\tenbf=\chapbf \let\tentt=\chaptt \let\smallcaps=\chapsc \let\tensf=\chapsf \let\teni=\chapi \let\tensy=\chapsy \let\tenttsl=\chapttsl \resetmathfonts \setleading{19pt}} \def\secfonts{% \let\tenrm=\secrm \let\tenit=\secit \let\tensl=\secsl \let\tenbf=\secbf \let\tentt=\sectt \let\smallcaps=\secsc \let\tensf=\secsf \let\teni=\seci \let\tensy=\secsy \let\tenttsl=\secttsl \resetmathfonts \setleading{16pt}} \def\subsecfonts{% \let\tenrm=\ssecrm \let\tenit=\ssecit \let\tensl=\ssecsl \let\tenbf=\ssecbf \let\tentt=\ssectt \let\smallcaps=\ssecsc \let\tensf=\ssecsf \let\teni=\sseci \let\tensy=\ssecsy \let\tenttsl=\ssecttsl \resetmathfonts \setleading{15pt}} \let\subsubsecfonts = \subsecfonts % Maybe make sssec fonts scaled magstephalf? \def\smallfonts{% \let\tenrm=\smallrm \let\tenit=\smallit \let\tensl=\smallsl \let\tenbf=\smallbf \let\tentt=\smalltt \let\smallcaps=\smallsc \let\tensf=\smallsf \let\teni=\smalli \let\tensy=\smallsy \let\tenttsl=\smallttsl \resetmathfonts \setleading{11pt}} % Set up the default fonts, so we can use them for creating boxes. % \textfonts % Define these so they can be easily changed for other fonts. \def\angleleft{$\langle$} \def\angleright{$\rangle$} % Count depth in font-changes, for error checks \newcount\fontdepth \fontdepth=0 % Fonts for short table of contents. \setfont\shortcontrm\rmshape{12}{1000} \setfont\shortcontbf\bxshape{12}{1000} \setfont\shortcontsl\slshape{12}{1000} %% Add scribe-like font environments, plus @l for inline lisp (usually sans %% serif) and @ii for TeX italic % \smartitalic{ARG} outputs arg in italics, followed by an italic correction % unless the following character is such as not to need one. \def\smartitalicx{\ifx\next,\else\ifx\next-\else\ifx\next.\else\/\fi\fi\fi} \def\smartslanted#1{{\sl #1}\futurelet\next\smartitalicx} \def\smartitalic#1{{\it #1}\futurelet\next\smartitalicx} \let\i=\smartitalic \let\var=\smartslanted \let\dfn=\smartslanted \let\emph=\smartitalic \let\cite=\smartslanted \def\b#1{{\bf #1}} \let\strong=\b % We can't just use \exhyphenpenalty, because that only has effect at % the end of a paragraph. Restore normal hyphenation at the end of the % group within which \nohyphenation is presumably called. % \def\nohyphenation{\hyphenchar\font = -1 \aftergroup\restorehyphenation} \def\restorehyphenation{\hyphenchar\font = `- } \def\t#1{% {\tt \rawbackslash \frenchspacing #1}% \null } \let\ttfont=\t \def\samp#1{`\tclose{#1}'\null} \setfont\keyrm\rmshape{8}{1000} \font\keysy=cmsy9 \def\key#1{{\keyrm\textfont2=\keysy \leavevmode\hbox{% \raise0.4pt\hbox{\angleleft}\kern-.08em\vtop{% \vbox{\hrule\kern-0.4pt \hbox{\raise0.4pt\hbox{\vphantom{\angleleft}}#1}}% \kern-0.4pt\hrule}% \kern-.06em\raise0.4pt\hbox{\angleright}}}} % The old definition, with no lozenge: %\def\key #1{{\ttsl \nohyphenation \uppercase{#1}}\null} \def\ctrl #1{{\tt \rawbackslash \hat}#1} % @file, @option are the same as @samp. \let\file=\samp \let\option=\samp % @code is a modification of @t, % which makes spaces the same size as normal in the surrounding text. \def\tclose#1{% {% % Change normal interword space to be same as for the current font. \spaceskip = \fontdimen2\font % % Switch to typewriter. \tt % % But `\ ' produces the large typewriter interword space. \def\ {{\spaceskip = 0pt{} }}% % % Turn off hyphenation. \nohyphenation % \rawbackslash \frenchspacing #1% }% \null } % We *must* turn on hyphenation at `-' and `_' in \code. % Otherwise, it is too hard to avoid overfull hboxes % in the Emacs manual, the Library manual, etc. % Unfortunately, TeX uses one parameter (\hyphenchar) to control % both hyphenation at - and hyphenation within words. % We must therefore turn them both off (\tclose does that) % and arrange explicitly to hyphenate at a dash. % -- rms. { \catcode`\-=\active \catcode`\_=\active % \global\def\code{\begingroup \catcode`\-=\active \let-\codedash \catcode`\_=\active \let_\codeunder \codex } % % If we end up with any active - characters when handling the index, % just treat them as a normal -. \global\def\indexbreaks{\catcode`\-=\active \let-\realdash} } \def\realdash{-} \def\codedash{-\discretionary{}{}{}} \def\codeunder{\ifusingtt{\normalunderscore\discretionary{}{}{}}{\_}} \def\codex #1{\tclose{#1}\endgroup} %\let\exp=\tclose %Was temporary % @kbd is like @code, except that if the argument is just one @key command, % then @kbd has no effect. % @kbdinputstyle -- arg is `distinct' (@kbd uses slanted tty font always), % `example' (@kbd uses ttsl only inside of @example and friends), % or `code' (@kbd uses normal tty font always). \def\kbdinputstyle{\parsearg\kbdinputstylexxx} \def\kbdinputstylexxx#1{% \def\arg{#1}% \ifx\arg\worddistinct \gdef\kbdexamplefont{\ttsl}\gdef\kbdfont{\ttsl}% \else\ifx\arg\wordexample \gdef\kbdexamplefont{\ttsl}\gdef\kbdfont{\tt}% \else\ifx\arg\wordcode \gdef\kbdexamplefont{\tt}\gdef\kbdfont{\tt}% \fi\fi\fi } \def\worddistinct{distinct} \def\wordexample{example} \def\wordcode{code} % Default is kbdinputdistinct. (Too much of a hassle to call the macro, % the catcodes are wrong for parsearg to work.) \gdef\kbdexamplefont{\ttsl}\gdef\kbdfont{\ttsl} \def\xkey{\key} \def\kbdfoo#1#2#3\par{\def\one{#1}\def\three{#3}\def\threex{??}% \ifx\one\xkey\ifx\threex\three \key{#2}% \else{\tclose{\kbdfont\look}}\fi \else{\tclose{\kbdfont\look}}\fi} % For @url, @env, @command quotes seem unnecessary, so use \code. \let\url=\code \let\env=\code \let\command=\code % @uref (abbreviation for `urlref') takes an optional (comma-separated) % second argument specifying the text to display and an optional third % arg as text to display instead of (rather than in addition to) the url % itself. First (mandatory) arg is the url. Perhaps eventually put in % a hypertex \special here. % \def\uref#1{\douref #1,,,\finish} \def\douref#1,#2,#3,#4\finish{\begingroup \unsepspaces \pdfurl{#1}% \setbox0 = \hbox{\ignorespaces #3}% \ifdim\wd0 > 0pt \unhbox0 % third arg given, show only that \else \setbox0 = \hbox{\ignorespaces #2}% \ifdim\wd0 > 0pt \ifpdf \unhbox0 % PDF: 2nd arg given, show only it \else \unhbox0\ (\code{#1})% DVI: 2nd arg given, show both it and url \fi \else \code{#1}% only url given, so show it \fi \fi \endlink \endgroup} % rms does not like angle brackets --karl, 17may97. % So now @email is just like @uref, unless we are pdf. % %\def\email#1{\angleleft{\tt #1}\angleright} \ifpdf \def\email#1{\doemail#1,,\finish} \def\doemail#1,#2,#3\finish{\begingroup \unsepspaces \pdfurl{mailto:#1}% \setbox0 = \hbox{\ignorespaces #2}% \ifdim\wd0>0pt\unhbox0\else\code{#1}\fi \endlink \endgroup} \else \let\email=\uref \fi % Check if we are currently using a typewriter font. Since all the % Computer Modern typewriter fonts have zero interword stretch (and % shrink), and it is reasonable to expect all typewriter fonts to have % this property, we can check that font parameter. % \def\ifmonospace{\ifdim\fontdimen3\font=0pt } % Typeset a dimension, e.g., `in' or `pt'. The only reason for the % argument is to make the input look right: @dmn{pt} instead of @dmn{}pt. % \def\dmn#1{\thinspace #1} \def\kbd#1{\def\look{#1}\expandafter\kbdfoo\look??\par} % @l was never documented to mean ``switch to the Lisp font'', % and it is not used as such in any manual I can find. We need it for % Polish suppressed-l. --karl, 22sep96. %\def\l#1{{\li #1}\null} % Explicit font changes: @r, @sc, undocumented @ii. \def\r#1{{\rm #1}} % roman font \def\sc#1{{\smallcaps#1}} % smallcaps font \def\ii#1{{\it #1}} % italic font % @acronym downcases the argument and prints in smallcaps. \def\acronym#1{{\smallcaps \lowercase{#1}}} % @pounds{} is a sterling sign. \def\pounds{{\it\$}} \message{page headings,} \newskip\titlepagetopglue \titlepagetopglue = 1.5in \newskip\titlepagebottomglue \titlepagebottomglue = 2pc % First the title page. Must do @settitle before @titlepage. \newif\ifseenauthor \newif\iffinishedtitlepage % Do an implicit @contents or @shortcontents after @end titlepage if the % user says @setcontentsaftertitlepage or @setshortcontentsaftertitlepage. % \newif\ifsetcontentsaftertitlepage \let\setcontentsaftertitlepage = \setcontentsaftertitlepagetrue \newif\ifsetshortcontentsaftertitlepage \let\setshortcontentsaftertitlepage = \setshortcontentsaftertitlepagetrue \def\shorttitlepage{\parsearg\shorttitlepagezzz} \def\shorttitlepagezzz #1{\begingroup\hbox{}\vskip 1.5in \chaprm \centerline{#1}% \endgroup\page\hbox{}\page} \def\titlepage{\begingroup \parindent=0pt \textfonts \let\subtitlerm=\tenrm \def\subtitlefont{\subtitlerm \normalbaselineskip = 13pt \normalbaselines}% % \def\authorfont{\authorrm \normalbaselineskip = 16pt \normalbaselines}% % % Leave some space at the very top of the page. \vglue\titlepagetopglue % % Now you can print the title using @title. \def\title{\parsearg\titlezzz}% \def\titlezzz##1{\leftline{\titlefonts\rm ##1} % print a rule at the page bottom also. \finishedtitlepagefalse \vskip4pt \hrule height 4pt width \hsize \vskip4pt}% % No rule at page bottom unless we print one at the top with @title. \finishedtitlepagetrue % % Now you can put text using @subtitle. \def\subtitle{\parsearg\subtitlezzz}% \def\subtitlezzz##1{{\subtitlefont \rightline{##1}}}% % % @author should come last, but may come many times. \def\author{\parsearg\authorzzz}% \def\authorzzz##1{\ifseenauthor\else\vskip 0pt plus 1filll\seenauthortrue\fi {\authorfont \leftline{##1}}}% % % Most title ``pages'' are actually two pages long, with space % at the top of the second. We don't want the ragged left on the second. \let\oldpage = \page \def\page{% \iffinishedtitlepage\else \finishtitlepage \fi \oldpage \let\page = \oldpage \hbox{}}% % \def\page{\oldpage \hbox{}} } \def\Etitlepage{% \iffinishedtitlepage\else \finishtitlepage \fi % It is important to do the page break before ending the group, % because the headline and footline are only empty inside the group. % If we use the new definition of \page, we always get a blank page % after the title page, which we certainly don't want. \oldpage \endgroup % % If they want short, they certainly want long too. \ifsetshortcontentsaftertitlepage \shortcontents \contents \global\let\shortcontents = \relax \global\let\contents = \relax \fi % \ifsetcontentsaftertitlepage \contents \global\let\contents = \relax \global\let\shortcontents = \relax \fi % \ifpdf \pdfmakepagedesttrue \fi % \HEADINGSon } \def\finishtitlepage{% \vskip4pt \hrule height 2pt width \hsize \vskip\titlepagebottomglue \finishedtitlepagetrue } %%% Set up page headings and footings. \let\thispage=\folio \newtoks\evenheadline % headline on even pages \newtoks\oddheadline % headline on odd pages \newtoks\evenfootline % footline on even pages \newtoks\oddfootline % footline on odd pages % Now make Tex use those variables \headline={{\textfonts\rm \ifodd\pageno \the\oddheadline \else \the\evenheadline \fi}} \footline={{\textfonts\rm \ifodd\pageno \the\oddfootline \else \the\evenfootline \fi}\HEADINGShook} \let\HEADINGShook=\relax % Commands to set those variables. % For example, this is what @headings on does % @evenheading @thistitle|@thispage|@thischapter % @oddheading @thischapter|@thispage|@thistitle % @evenfooting @thisfile|| % @oddfooting ||@thisfile \def\evenheading{\parsearg\evenheadingxxx} \def\oddheading{\parsearg\oddheadingxxx} \def\everyheading{\parsearg\everyheadingxxx} \def\evenfooting{\parsearg\evenfootingxxx} \def\oddfooting{\parsearg\oddfootingxxx} \def\everyfooting{\parsearg\everyfootingxxx} {\catcode`\@=0 % \gdef\evenheadingxxx #1{\evenheadingyyy #1@|@|@|@|\finish} \gdef\evenheadingyyy #1@|#2@|#3@|#4\finish{% \global\evenheadline={\rlap{\centerline{#2}}\line{#1\hfil#3}}} \gdef\oddheadingxxx #1{\oddheadingyyy #1@|@|@|@|\finish} \gdef\oddheadingyyy #1@|#2@|#3@|#4\finish{% \global\oddheadline={\rlap{\centerline{#2}}\line{#1\hfil#3}}} \gdef\everyheadingxxx#1{\oddheadingxxx{#1}\evenheadingxxx{#1}}% \gdef\evenfootingxxx #1{\evenfootingyyy #1@|@|@|@|\finish} \gdef\evenfootingyyy #1@|#2@|#3@|#4\finish{% \global\evenfootline={\rlap{\centerline{#2}}\line{#1\hfil#3}}} \gdef\oddfootingxxx #1{\oddfootingyyy #1@|@|@|@|\finish} \gdef\oddfootingyyy #1@|#2@|#3@|#4\finish{% \global\oddfootline = {\rlap{\centerline{#2}}\line{#1\hfil#3}}% % % Leave some space for the footline. Hopefully ok to assume % @evenfooting will not be used by itself. \global\advance\pageheight by -\baselineskip \global\advance\vsize by -\baselineskip } \gdef\everyfootingxxx#1{\oddfootingxxx{#1}\evenfootingxxx{#1}} % }% unbind the catcode of @. % @headings double turns headings on for double-sided printing. % @headings single turns headings on for single-sided printing. % @headings off turns them off. % @headings on same as @headings double, retained for compatibility. % @headings after turns on double-sided headings after this page. % @headings doubleafter turns on double-sided headings after this page. % @headings singleafter turns on single-sided headings after this page. % By default, they are off at the start of a document, % and turned `on' after @end titlepage. \def\headings #1 {\csname HEADINGS#1\endcsname} \def\HEADINGSoff{ \global\evenheadline={\hfil} \global\evenfootline={\hfil} \global\oddheadline={\hfil} \global\oddfootline={\hfil}} \HEADINGSoff % When we turn headings on, set the page number to 1. % For double-sided printing, put current file name in lower left corner, % chapter name on inside top of right hand pages, document % title on inside top of left hand pages, and page numbers on outside top % edge of all pages. \def\HEADINGSdouble{ \global\pageno=1 \global\evenfootline={\hfil} \global\oddfootline={\hfil} \global\evenheadline={\line{\folio\hfil\thistitle}} \global\oddheadline={\line{\thischapter\hfil\folio}} \global\let\contentsalignmacro = \chapoddpage } \let\contentsalignmacro = \chappager % For single-sided printing, chapter title goes across top left of page, % page number on top right. \def\HEADINGSsingle{ \global\pageno=1 \global\evenfootline={\hfil} \global\oddfootline={\hfil} \global\evenheadline={\line{\thischapter\hfil\folio}} \global\oddheadline={\line{\thischapter\hfil\folio}} \global\let\contentsalignmacro = \chappager } \def\HEADINGSon{\HEADINGSdouble} \def\HEADINGSafter{\let\HEADINGShook=\HEADINGSdoublex} \let\HEADINGSdoubleafter=\HEADINGSafter \def\HEADINGSdoublex{% \global\evenfootline={\hfil} \global\oddfootline={\hfil} \global\evenheadline={\line{\folio\hfil\thistitle}} \global\oddheadline={\line{\thischapter\hfil\folio}} \global\let\contentsalignmacro = \chapoddpage } \def\HEADINGSsingleafter{\let\HEADINGShook=\HEADINGSsinglex} \def\HEADINGSsinglex{% \global\evenfootline={\hfil} \global\oddfootline={\hfil} \global\evenheadline={\line{\thischapter\hfil\folio}} \global\oddheadline={\line{\thischapter\hfil\folio}} \global\let\contentsalignmacro = \chappager } % Subroutines used in generating headings % Produces Day Month Year style of output. \def\today{% \number\day\space \ifcase\month \or\putwordMJan\or\putwordMFeb\or\putwordMMar\or\putwordMApr \or\putwordMMay\or\putwordMJun\or\putwordMJul\or\putwordMAug \or\putwordMSep\or\putwordMOct\or\putwordMNov\or\putwordMDec \fi \space\number\year} % @settitle line... specifies the title of the document, for headings. % It generates no output of its own. \def\thistitle{\putwordNoTitle} \def\settitle{\parsearg\settitlezzz} \def\settitlezzz #1{\gdef\thistitle{#1}} \message{tables,} % Tables -- @table, @ftable, @vtable, @item(x), @kitem(x), @xitem(x). % default indentation of table text \newdimen\tableindent \tableindent=.8in % default indentation of @itemize and @enumerate text \newdimen\itemindent \itemindent=.3in % margin between end of table item and start of table text. \newdimen\itemmargin \itemmargin=.1in % used internally for \itemindent minus \itemmargin \newdimen\itemmax % Note @table, @vtable, and @vtable define @item, @itemx, etc., with % these defs. % They also define \itemindex % to index the item name in whatever manner is desired (perhaps none). \newif\ifitemxneedsnegativevskip \def\itemxpar{\par\ifitemxneedsnegativevskip\nobreak\vskip-\parskip\nobreak\fi} \def\internalBitem{\smallbreak \parsearg\itemzzz} \def\internalBitemx{\itemxpar \parsearg\itemzzz} \def\internalBxitem "#1"{\def\xitemsubtopix{#1} \smallbreak \parsearg\xitemzzz} \def\internalBxitemx "#1"{\def\xitemsubtopix{#1} \itemxpar \parsearg\xitemzzz} \def\internalBkitem{\smallbreak \parsearg\kitemzzz} \def\internalBkitemx{\itemxpar \parsearg\kitemzzz} \def\kitemzzz #1{\dosubind {kw}{\code{#1}}{for {\bf \lastfunction}}% \itemzzz {#1}} \def\xitemzzz #1{\dosubind {kw}{\code{#1}}{for {\bf \xitemsubtopic}}% \itemzzz {#1}} \def\itemzzz #1{\begingroup % \advance\hsize by -\rightskip \advance\hsize by -\tableindent \setbox0=\hbox{\itemfont{#1}}% \itemindex{#1}% \nobreak % This prevents a break before @itemx. % % If the item text does not fit in the space we have, put it on a line % by itself, and do not allow a page break either before or after that % line. We do not start a paragraph here because then if the next % command is, e.g., @kindex, the whatsit would get put into the % horizontal list on a line by itself, resulting in extra blank space. \ifdim \wd0>\itemmax % % Make this a paragraph so we get the \parskip glue and wrapping, % but leave it ragged-right. \begingroup \advance\leftskip by-\tableindent \advance\hsize by\tableindent \advance\rightskip by0pt plus1fil \leavevmode\unhbox0\par \endgroup % % We're going to be starting a paragraph, but we don't want the % \parskip glue -- logically it's part of the @item we just started. \nobreak \vskip-\parskip % % Stop a page break at the \parskip glue coming up. Unfortunately % we can't prevent a possible page break at the following % \baselineskip glue. \nobreak \endgroup \itemxneedsnegativevskipfalse \else % The item text fits into the space. Start a paragraph, so that the % following text (if any) will end up on the same line. \noindent % Do this with kerns and \unhbox so that if there is a footnote in % the item text, it can migrate to the main vertical list and % eventually be printed. \nobreak\kern-\tableindent \dimen0 = \itemmax \advance\dimen0 by \itemmargin \advance\dimen0 by -\wd0 \unhbox0 \nobreak\kern\dimen0 \endgroup \itemxneedsnegativevskiptrue \fi } \def\item{\errmessage{@item while not in a table}} \def\itemx{\errmessage{@itemx while not in a table}} \def\kitem{\errmessage{@kitem while not in a table}} \def\kitemx{\errmessage{@kitemx while not in a table}} \def\xitem{\errmessage{@xitem while not in a table}} \def\xitemx{\errmessage{@xitemx while not in a table}} % Contains a kludge to get @end[description] to work. \def\description{\tablez{\dontindex}{1}{}{}{}{}} % @table, @ftable, @vtable. \def\table{\begingroup\inENV\obeylines\obeyspaces\tablex} {\obeylines\obeyspaces% \gdef\tablex #1^^M{% \tabley\dontindex#1 \endtabley}} \def\ftable{\begingroup\inENV\obeylines\obeyspaces\ftablex} {\obeylines\obeyspaces% \gdef\ftablex #1^^M{% \tabley\fnitemindex#1 \endtabley \def\Eftable{\endgraf\afterenvbreak\endgroup}% \let\Etable=\relax}} \def\vtable{\begingroup\inENV\obeylines\obeyspaces\vtablex} {\obeylines\obeyspaces% \gdef\vtablex #1^^M{% \tabley\vritemindex#1 \endtabley \def\Evtable{\endgraf\afterenvbreak\endgroup}% \let\Etable=\relax}} \def\dontindex #1{} \def\fnitemindex #1{\doind {fn}{\code{#1}}}% \def\vritemindex #1{\doind {vr}{\code{#1}}}% {\obeyspaces % \gdef\tabley#1#2 #3 #4 #5 #6 #7\endtabley{\endgroup% \tablez{#1}{#2}{#3}{#4}{#5}{#6}}} \def\tablez #1#2#3#4#5#6{% \aboveenvbreak % \begingroup % \def\Edescription{\Etable}% Necessary kludge. \let\itemindex=#1% \ifnum 0#3>0 \advance \leftskip by #3\mil \fi % \ifnum 0#4>0 \tableindent=#4\mil \fi % \ifnum 0#5>0 \advance \rightskip by #5\mil \fi % \def\itemfont{#2}% \itemmax=\tableindent % \advance \itemmax by -\itemmargin % \advance \leftskip by \tableindent % \exdentamount=\tableindent \parindent = 0pt \parskip = \smallskipamount \ifdim \parskip=0pt \parskip=2pt \fi% \def\Etable{\endgraf\afterenvbreak\endgroup}% \let\item = \internalBitem % \let\itemx = \internalBitemx % \let\kitem = \internalBkitem % \let\kitemx = \internalBkitemx % \let\xitem = \internalBxitem % \let\xitemx = \internalBxitemx % } % This is the counter used by @enumerate, which is really @itemize \newcount \itemno \def\itemize{\parsearg\itemizezzz} \def\itemizezzz #1{% \begingroup % ended by the @end itemize \itemizey {#1}{\Eitemize} } \def\itemizey #1#2{% \aboveenvbreak % \itemmax=\itemindent % \advance \itemmax by -\itemmargin % \advance \leftskip by \itemindent % \exdentamount=\itemindent \parindent = 0pt % \parskip = \smallskipamount % \ifdim \parskip=0pt \parskip=2pt \fi% \def#2{\endgraf\afterenvbreak\endgroup}% \def\itemcontents{#1}% \let\item=\itemizeitem} % Set sfcode to normal for the chars that usually have another value. % These are `.?!:;,' \def\frenchspacing{\sfcode46=1000 \sfcode63=1000 \sfcode33=1000 \sfcode58=1000 \sfcode59=1000 \sfcode44=1000 } % \splitoff TOKENS\endmark defines \first to be the first token in % TOKENS, and \rest to be the remainder. % \def\splitoff#1#2\endmark{\def\first{#1}\def\rest{#2}}% % Allow an optional argument of an uppercase letter, lowercase letter, % or number, to specify the first label in the enumerated list. No % argument is the same as `1'. % \def\enumerate{\parsearg\enumeratezzz} \def\enumeratezzz #1{\enumeratey #1 \endenumeratey} \def\enumeratey #1 #2\endenumeratey{% \begingroup % ended by the @end enumerate % % If we were given no argument, pretend we were given `1'. \def\thearg{#1}% \ifx\thearg\empty \def\thearg{1}\fi % % Detect if the argument is a single token. If so, it might be a % letter. Otherwise, the only valid thing it can be is a number. % (We will always have one token, because of the test we just made. % This is a good thing, since \splitoff doesn't work given nothing at % all -- the first parameter is undelimited.) \expandafter\splitoff\thearg\endmark \ifx\rest\empty % Only one token in the argument. It could still be anything. % A ``lowercase letter'' is one whose \lccode is nonzero. % An ``uppercase letter'' is one whose \lccode is both nonzero, and % not equal to itself. % Otherwise, we assume it's a number. % % We need the \relax at the end of the \ifnum lines to stop TeX from % continuing to look for a . % \ifnum\lccode\expandafter`\thearg=0\relax \numericenumerate % a number (we hope) \else % It's a letter. \ifnum\lccode\expandafter`\thearg=\expandafter`\thearg\relax \lowercaseenumerate % lowercase letter \else \uppercaseenumerate % uppercase letter \fi \fi \else % Multiple tokens in the argument. We hope it's a number. \numericenumerate \fi } % An @enumerate whose labels are integers. The starting integer is % given in \thearg. % \def\numericenumerate{% \itemno = \thearg \startenumeration{\the\itemno}% } % The starting (lowercase) letter is in \thearg. \def\lowercaseenumerate{% \itemno = \expandafter`\thearg \startenumeration{% % Be sure we're not beyond the end of the alphabet. \ifnum\itemno=0 \errmessage{No more lowercase letters in @enumerate; get a bigger alphabet}% \fi \char\lccode\itemno }% } % The starting (uppercase) letter is in \thearg. \def\uppercaseenumerate{% \itemno = \expandafter`\thearg \startenumeration{% % Be sure we're not beyond the end of the alphabet. \ifnum\itemno=0 \errmessage{No more uppercase letters in @enumerate; get a bigger alphabet} \fi \char\uccode\itemno }% } % Call itemizey, adding a period to the first argument and supplying the % common last two arguments. Also subtract one from the initial value in % \itemno, since @item increments \itemno. % \def\startenumeration#1{% \advance\itemno by -1 \itemizey{#1.}\Eenumerate\flushcr } % @alphaenumerate and @capsenumerate are abbreviations for giving an arg % to @enumerate. % \def\alphaenumerate{\enumerate{a}} \def\capsenumerate{\enumerate{A}} \def\Ealphaenumerate{\Eenumerate} \def\Ecapsenumerate{\Eenumerate} % Definition of @item while inside @itemize. \def\itemizeitem{% \advance\itemno by 1 {\let\par=\endgraf \smallbreak}% \ifhmode \errmessage{In hmode at itemizeitem}\fi {\parskip=0in \hskip 0pt \hbox to 0pt{\hss \itemcontents\hskip \itemmargin}% \vadjust{\penalty 1200}}% \flushcr} % @multitable macros % Amy Hendrickson, 8/18/94, 3/6/96 % % @multitable ... @end multitable will make as many columns as desired. % Contents of each column will wrap at width given in preamble. Width % can be specified either with sample text given in a template line, % or in percent of \hsize, the current width of text on page. % Table can continue over pages but will only break between lines. % To make preamble: % % Either define widths of columns in terms of percent of \hsize: % @multitable @columnfractions .25 .3 .45 % @item ... % % Numbers following @columnfractions are the percent of the total % current hsize to be used for each column. You may use as many % columns as desired. % Or use a template: % @multitable {Column 1 template} {Column 2 template} {Column 3 template} % @item ... % using the widest term desired in each column. % % For those who want to use more than one line's worth of words in % the preamble, break the line within one argument and it % will parse correctly, i.e., % % @multitable {Column 1 template} {Column 2 template} {Column 3 % template} % Not: % @multitable {Column 1 template} {Column 2 template} % {Column 3 template} % Each new table line starts with @item, each subsequent new column % starts with @tab. Empty columns may be produced by supplying @tab's % with nothing between them for as many times as empty columns are needed, % ie, @tab@tab@tab will produce two empty columns. % @item, @tab, @multitable or @end multitable do not need to be on their % own lines, but it will not hurt if they are. % Sample multitable: % @multitable {Column 1 template} {Column 2 template} {Column 3 template} % @item first col stuff @tab second col stuff @tab third col % @item % first col stuff % @tab % second col stuff % @tab % third col % @item first col stuff @tab second col stuff % @tab Many paragraphs of text may be used in any column. % % They will wrap at the width determined by the template. % @item@tab@tab This will be in third column. % @end multitable % Default dimensions may be reset by user. % @multitableparskip is vertical space between paragraphs in table. % @multitableparindent is paragraph indent in table. % @multitablecolmargin is horizontal space to be left between columns. % @multitablelinespace is space to leave between table items, baseline % to baseline. % 0pt means it depends on current normal line spacing. % \newskip\multitableparskip \newskip\multitableparindent \newdimen\multitablecolspace \newskip\multitablelinespace \multitableparskip=0pt \multitableparindent=6pt \multitablecolspace=12pt \multitablelinespace=0pt % Macros used to set up halign preamble: % \let\endsetuptable\relax \def\xendsetuptable{\endsetuptable} \let\columnfractions\relax \def\xcolumnfractions{\columnfractions} \newif\ifsetpercent % #1 is the part of the @columnfraction before the decimal point, which % is presumably either 0 or the empty string (but we don't check, we % just throw it away). #2 is the decimal part, which we use as the % percent of \hsize for this column. \def\pickupwholefraction#1.#2 {% \global\advance\colcount by 1 \expandafter\xdef\csname col\the\colcount\endcsname{.#2\hsize}% \setuptable } \newcount\colcount \def\setuptable#1{% \def\firstarg{#1}% \ifx\firstarg\xendsetuptable \let\go = \relax \else \ifx\firstarg\xcolumnfractions \global\setpercenttrue \else \ifsetpercent \let\go\pickupwholefraction \else \global\advance\colcount by 1 \setbox0=\hbox{#1\unskip }% Add a normal word space as a separator; % typically that is always in the input, anyway. \expandafter\xdef\csname col\the\colcount\endcsname{\the\wd0}% \fi \fi \ifx\go\pickupwholefraction % Put the argument back for the \pickupwholefraction call, so % we'll always have a period there to be parsed. \def\go{\pickupwholefraction#1}% \else \let\go = \setuptable \fi% \fi \go } % This used to have \hskip1sp. But then the space in a template line is % not enough. That is bad. So let's go back to just & until we % encounter the problem it was intended to solve again. % --karl, nathan@acm.org, 20apr99. \def\tab{&} % @multitable ... @end multitable definitions: % \def\multitable{\parsearg\dotable} \def\dotable#1{\bgroup \vskip\parskip \let\item\crcr \tolerance=9500 \hbadness=9500 \setmultitablespacing \parskip=\multitableparskip \parindent=\multitableparindent \overfullrule=0pt \global\colcount=0 \def\Emultitable{\global\setpercentfalse\cr\egroup\egroup}% % % To parse everything between @multitable and @item: \setuptable#1 \endsetuptable % % \everycr will reset column counter, \colcount, at the end of % each line. Every column entry will cause \colcount to advance by one. % The table preamble % looks at the current \colcount to find the correct column width. \everycr{\noalign{% % % \filbreak%% keeps underfull box messages off when table breaks over pages. % Maybe so, but it also creates really weird page breaks when the table % breaks over pages. Wouldn't \vfil be better? Wait until the problem % manifests itself, so it can be fixed for real --karl. \global\colcount=0\relax}}% % % This preamble sets up a generic column definition, which will % be used as many times as user calls for columns. % \vtop will set a single line and will also let text wrap and % continue for many paragraphs if desired. \halign\bgroup&\global\advance\colcount by 1\relax \multistrut\vtop{\hsize=\expandafter\csname col\the\colcount\endcsname % % In order to keep entries from bumping into each other % we will add a \leftskip of \multitablecolspace to all columns after % the first one. % % If a template has been used, we will add \multitablecolspace % to the width of each template entry. % % If the user has set preamble in terms of percent of \hsize we will % use that dimension as the width of the column, and the \leftskip % will keep entries from bumping into each other. Table will start at % left margin and final column will justify at right margin. % % Make sure we don't inherit \rightskip from the outer environment. \rightskip=0pt \ifnum\colcount=1 % The first column will be indented with the surrounding text. \advance\hsize by\leftskip \else \ifsetpercent \else % If user has not set preamble in terms of percent of \hsize % we will advance \hsize by \multitablecolspace. \advance\hsize by \multitablecolspace \fi % In either case we will make \leftskip=\multitablecolspace: \leftskip=\multitablecolspace \fi % Ignoring space at the beginning and end avoids an occasional spurious % blank line, when TeX decides to break the line at the space before the % box from the multistrut, so the strut ends up on a line by itself. % For example: % @multitable @columnfractions .11 .89 % @item @code{#} % @tab Legal holiday which is valid in major parts of the whole country. % Is automatically provided with highlighting sequences respectively marking % characters. \noindent\ignorespaces##\unskip\multistrut}\cr } \def\setmultitablespacing{% test to see if user has set \multitablelinespace. % If so, do nothing. If not, give it an appropriate dimension based on % current baselineskip. \ifdim\multitablelinespace=0pt \setbox0=\vbox{X}\global\multitablelinespace=\the\baselineskip \global\advance\multitablelinespace by-\ht0 %% strut to put in table in case some entry doesn't have descenders, %% to keep lines equally spaced \let\multistrut = \strut \else %% FIXME: what is \box0 supposed to be? \gdef\multistrut{\vrule height\multitablelinespace depth\dp0 width0pt\relax} \fi %% Test to see if parskip is larger than space between lines of %% table. If not, do nothing. %% If so, set to same dimension as multitablelinespace. \ifdim\multitableparskip>\multitablelinespace \global\multitableparskip=\multitablelinespace \global\advance\multitableparskip-7pt %% to keep parskip somewhat smaller %% than skip between lines in the table. \fi% \ifdim\multitableparskip=0pt \global\multitableparskip=\multitablelinespace \global\advance\multitableparskip-7pt %% to keep parskip somewhat smaller %% than skip between lines in the table. \fi} \message{conditionals,} % Prevent errors for section commands. % Used in @ignore and in failing conditionals. \def\ignoresections{% \let\chapter=\relax \let\unnumbered=\relax \let\top=\relax \let\unnumberedsec=\relax \let\unnumberedsection=\relax \let\unnumberedsubsec=\relax \let\unnumberedsubsection=\relax \let\unnumberedsubsubsec=\relax \let\unnumberedsubsubsection=\relax \let\section=\relax \let\subsec=\relax \let\subsubsec=\relax \let\subsection=\relax \let\subsubsection=\relax \let\appendix=\relax \let\appendixsec=\relax \let\appendixsection=\relax \let\appendixsubsec=\relax \let\appendixsubsection=\relax \let\appendixsubsubsec=\relax \let\appendixsubsubsection=\relax \let\contents=\relax \let\smallbook=\relax \let\titlepage=\relax } % Used in nested conditionals, where we have to parse the Texinfo source % and so want to turn off most commands, in case they are used % incorrectly. % \def\ignoremorecommands{% \let\defcodeindex = \relax \let\defcv = \relax \let\deffn = \relax \let\deffnx = \relax \let\defindex = \relax \let\defivar = \relax \let\defmac = \relax \let\defmethod = \relax \let\defop = \relax \let\defopt = \relax \let\defspec = \relax \let\deftp = \relax \let\deftypefn = \relax \let\deftypefun = \relax \let\deftypeivar = \relax \let\deftypeop = \relax \let\deftypevar = \relax \let\deftypevr = \relax \let\defun = \relax \let\defvar = \relax \let\defvr = \relax \let\ref = \relax \let\xref = \relax \let\printindex = \relax \let\pxref = \relax \let\settitle = \relax \let\setchapternewpage = \relax \let\setchapterstyle = \relax \let\everyheading = \relax \let\evenheading = \relax \let\oddheading = \relax \let\everyfooting = \relax \let\evenfooting = \relax \let\oddfooting = \relax \let\headings = \relax \let\include = \relax \let\lowersections = \relax \let\down = \relax \let\raisesections = \relax \let\up = \relax \let\set = \relax \let\clear = \relax \let\item = \relax } % Ignore @ignore ... @end ignore. % \def\ignore{\doignore{ignore}} % Ignore @ifinfo, @ifhtml, @ifnottex, @html, @menu, and @direntry text. % \def\ifinfo{\doignore{ifinfo}} \def\ifhtml{\doignore{ifhtml}} \def\ifnottex{\doignore{ifnottex}} \def\html{\doignore{html}} \def\menu{\doignore{menu}} \def\direntry{\doignore{direntry}} % @dircategory CATEGORY -- specify a category of the dir file % which this file should belong to. Ignore this in TeX. \let\dircategory = \comment % Ignore text until a line `@end #1'. % \def\doignore#1{\begingroup % Don't complain about control sequences we have declared \outer. \ignoresections % % Define a command to swallow text until we reach `@end #1'. % This @ is a catcode 12 token (that is the normal catcode of @ in % this texinfo.tex file). We change the catcode of @ below to match. \long\def\doignoretext##1@end #1{\enddoignore}% % % Make sure that spaces turn into tokens that match what \doignoretext wants. \catcode32 = 10 % % Ignore braces, too, so mismatched braces don't cause trouble. \catcode`\{ = 9 \catcode`\} = 9 % % We must not have @c interpreted as a control sequence. \catcode`\@ = 12 % % Make the letter c a comment character so that the rest of the line % will be ignored. This way, the document can have (for example) % @c @end ifinfo % and the @end ifinfo will be properly ignored. % (We've just changed @ to catcode 12.) \catcode`\c = 14 % % And now expand that command. \doignoretext } % What we do to finish off ignored text. % \def\enddoignore{\endgroup\ignorespaces}% \newif\ifwarnedobs\warnedobsfalse \def\obstexwarn{% \ifwarnedobs\relax\else % We need to warn folks that they may have trouble with TeX 3.0. % This uses \immediate\write16 rather than \message to get newlines. \immediate\write16{} \immediate\write16{WARNING: for users of Unix TeX 3.0!} \immediate\write16{This manual trips a bug in TeX version 3.0 (tex hangs).} \immediate\write16{If you are running another version of TeX, relax.} \immediate\write16{If you are running Unix TeX 3.0, kill this TeX process.} \immediate\write16{ Then upgrade your TeX installation if you can.} \immediate\write16{ (See ftp://ftp.gnu.org/pub/gnu/TeX.README.)} \immediate\write16{If you are stuck with version 3.0, run the} \immediate\write16{ script ``tex3patch'' from the Texinfo distribution} \immediate\write16{ to use a workaround.} \immediate\write16{} \global\warnedobstrue \fi } % **In TeX 3.0, setting text in \nullfont hangs tex. For a % workaround (which requires the file ``dummy.tfm'' to be installed), % uncomment the following line: %%%%%\font\nullfont=dummy\let\obstexwarn=\relax % Ignore text, except that we keep track of conditional commands for % purposes of nesting, up to an `@end #1' command. % \def\nestedignore#1{% \obstexwarn % We must actually expand the ignored text to look for the @end % command, so that nested ignore constructs work. Thus, we put the % text into a \vbox and then do nothing with the result. To minimize % the change of memory overflow, we follow the approach outlined on % page 401 of the TeXbook: make the current font be a dummy font. % \setbox0 = \vbox\bgroup % Don't complain about control sequences we have declared \outer. \ignoresections % % Define `@end #1' to end the box, which will in turn undefine the % @end command again. \expandafter\def\csname E#1\endcsname{\egroup\ignorespaces}% % % We are going to be parsing Texinfo commands. Most cause no % trouble when they are used incorrectly, but some commands do % complicated argument parsing or otherwise get confused, so we % undefine them. % % We can't do anything about stray @-signs, unfortunately; % they'll produce `undefined control sequence' errors. \ignoremorecommands % % Set the current font to be \nullfont, a TeX primitive, and define % all the font commands to also use \nullfont. We don't use % dummy.tfm, as suggested in the TeXbook, because not all sites % might have that installed. Therefore, math mode will still % produce output, but that should be an extremely small amount of % stuff compared to the main input. % \nullfont \let\tenrm=\nullfont \let\tenit=\nullfont \let\tensl=\nullfont \let\tenbf=\nullfont \let\tentt=\nullfont \let\smallcaps=\nullfont \let\tensf=\nullfont % Similarly for index fonts (mostly for their use in smallexample). \let\smallrm=\nullfont \let\smallit=\nullfont \let\smallsl=\nullfont \let\smallbf=\nullfont \let\smalltt=\nullfont \let\smallsc=\nullfont \let\smallsf=\nullfont % % Don't complain when characters are missing from the fonts. \tracinglostchars = 0 % % Don't bother to do space factor calculations. \frenchspacing % % Don't report underfull hboxes. \hbadness = 10000 % % Do minimal line-breaking. \pretolerance = 10000 % % Do not execute instructions in @tex \def\tex{\doignore{tex}}% % Do not execute macro definitions. % `c' is a comment character, so the word `macro' will get cut off. \def\macro{\doignore{ma}}% } % @set VAR sets the variable VAR to an empty value. % @set VAR REST-OF-LINE sets VAR to the value REST-OF-LINE. % % Since we want to separate VAR from REST-OF-LINE (which might be % empty), we can't just use \parsearg; we have to insert a space of our % own to delimit the rest of the line, and then take it out again if we % didn't need it. Make sure the catcode of space is correct to avoid % losing inside @example, for instance. % \def\set{\begingroup\catcode` =10 \catcode`\-=12 \catcode`\_=12 % Allow - and _ in VAR. \parsearg\setxxx} \def\setxxx#1{\setyyy#1 \endsetyyy} \def\setyyy#1 #2\endsetyyy{% \def\temp{#2}% \ifx\temp\empty \global\expandafter\let\csname SET#1\endcsname = \empty \else \setzzz{#1}#2\endsetzzz % Remove the trailing space \setxxx inserted. \fi \endgroup } % Can't use \xdef to pre-expand #2 and save some time, since \temp or % \next or other control sequences that we've defined might get us into % an infinite loop. Consider `@set foo @cite{bar}'. \def\setzzz#1#2 \endsetzzz{\expandafter\gdef\csname SET#1\endcsname{#2}} % @clear VAR clears (i.e., unsets) the variable VAR. % \def\clear{\parsearg\clearxxx} \def\clearxxx#1{\global\expandafter\let\csname SET#1\endcsname=\relax} % @value{foo} gets the text saved in variable foo. { \catcode`\_ = \active % % We might end up with active _ or - characters in the argument if % we're called from @code, as @code{@value{foo-bar_}}. So \let any % such active characters to their normal equivalents. \gdef\value{\begingroup \catcode`\-=12 \catcode`\_=12 \indexbreaks \let_\normalunderscore \valuexxx} } \def\valuexxx#1{\expandablevalue{#1}\endgroup} % We have this subroutine so that we can handle at least some @value's % properly in indexes (we \let\value to this in \indexdummies). Ones % whose names contain - or _ still won't work, but we can't do anything % about that. The command has to be fully expandable, since the result % winds up in the index file. This means that if the variable's value % contains other Texinfo commands, it's almost certain it will fail % (although perhaps we could fix that with sufficient work to do a % one-level expansion on the result, instead of complete). % \def\expandablevalue#1{% \expandafter\ifx\csname SET#1\endcsname\relax {[No value for ``#1'']}% \else \csname SET#1\endcsname \fi } % @ifset VAR ... @end ifset reads the `...' iff VAR has been defined % with @set. % \def\ifset{\parsearg\ifsetxxx} \def\ifsetxxx #1{% \expandafter\ifx\csname SET#1\endcsname\relax \expandafter\ifsetfail \else \expandafter\ifsetsucceed \fi } \def\ifsetsucceed{\conditionalsucceed{ifset}} \def\ifsetfail{\nestedignore{ifset}} \defineunmatchedend{ifset} % @ifclear VAR ... @end ifclear reads the `...' iff VAR has never been % defined with @set, or has been undefined with @clear. % \def\ifclear{\parsearg\ifclearxxx} \def\ifclearxxx #1{% \expandafter\ifx\csname SET#1\endcsname\relax \expandafter\ifclearsucceed \else \expandafter\ifclearfail \fi } \def\ifclearsucceed{\conditionalsucceed{ifclear}} \def\ifclearfail{\nestedignore{ifclear}} \defineunmatchedend{ifclear} % @iftex, @ifnothtml, @ifnotinfo always succeed; we read the text % following, through the first @end iftex (etc.). Make `@end iftex' % (etc.) valid only after an @iftex. % \def\iftex{\conditionalsucceed{iftex}} \def\ifnothtml{\conditionalsucceed{ifnothtml}} \def\ifnotinfo{\conditionalsucceed{ifnotinfo}} \defineunmatchedend{iftex} \defineunmatchedend{ifnothtml} \defineunmatchedend{ifnotinfo} % We can't just want to start a group at @iftex (for example) and end it % at @end iftex, since then @set commands inside the conditional have no % effect (they'd get reverted at the end of the group). So we must % define \Eiftex to redefine itself to be its previous value. (We can't % just define it to fail again with an ``unmatched end'' error, since % the @ifset might be nested.) % \def\conditionalsucceed#1{% \edef\temp{% % Remember the current value of \E#1. \let\nece{prevE#1} = \nece{E#1}% % % At the `@end #1', redefine \E#1 to be its previous value. \def\nece{E#1}{\let\nece{E#1} = \nece{prevE#1}}% }% \temp } % We need to expand lots of \csname's, but we don't want to expand the % control sequences after we've constructed them. % \def\nece#1{\expandafter\noexpand\csname#1\endcsname} % @defininfoenclose. \let\definfoenclose=\comment \message{indexing,} % Index generation facilities % Define \newwrite to be identical to plain tex's \newwrite % except not \outer, so it can be used within \newindex. {\catcode`\@=11 \gdef\newwrite{\alloc@7\write\chardef\sixt@@n}} % \newindex {foo} defines an index named foo. % It automatically defines \fooindex such that % \fooindex ...rest of line... puts an entry in the index foo. % It also defines \fooindfile to be the number of the output channel for % the file that accumulates this index. The file's extension is foo. % The name of an index should be no more than 2 characters long % for the sake of vms. % \def\newindex#1{% \iflinks \expandafter\newwrite \csname#1indfile\endcsname \openout \csname#1indfile\endcsname \jobname.#1 % Open the file \fi \expandafter\xdef\csname#1index\endcsname{% % Define @#1index \noexpand\doindex{#1}} } % @defindex foo == \newindex{foo} \def\defindex{\parsearg\newindex} % Define @defcodeindex, like @defindex except put all entries in @code. \def\newcodeindex#1{% \iflinks \expandafter\newwrite \csname#1indfile\endcsname \openout \csname#1indfile\endcsname \jobname.#1 \fi \expandafter\xdef\csname#1index\endcsname{% \noexpand\docodeindex{#1}} } \def\defcodeindex{\parsearg\newcodeindex} % @synindex foo bar makes index foo feed into index bar. % Do this instead of @defindex foo if you don't want it as a separate index. % The \closeout helps reduce unnecessary open files; the limit on the % Acorn RISC OS is a mere 16 files. \def\synindex#1 #2 {% \expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname \expandafter\closeout\csname#1indfile\endcsname \expandafter\let\csname#1indfile\endcsname=\synindexfoo \expandafter\xdef\csname#1index\endcsname{% define \xxxindex \noexpand\doindex{#2}}% } % @syncodeindex foo bar similar, but put all entries made for index foo % inside @code. \def\syncodeindex#1 #2 {% \expandafter\let\expandafter\synindexfoo\expandafter=\csname#2indfile\endcsname \expandafter\closeout\csname#1indfile\endcsname \expandafter\let\csname#1indfile\endcsname=\synindexfoo \expandafter\xdef\csname#1index\endcsname{% define \xxxindex \noexpand\docodeindex{#2}}% } % Define \doindex, the driver for all \fooindex macros. % Argument #1 is generated by the calling \fooindex macro, % and it is "foo", the name of the index. % \doindex just uses \parsearg; it calls \doind for the actual work. % This is because \doind is more useful to call from other macros. % There is also \dosubind {index}{topic}{subtopic} % which makes an entry in a two-level index such as the operation index. \def\doindex#1{\edef\indexname{#1}\parsearg\singleindexer} \def\singleindexer #1{\doind{\indexname}{#1}} % like the previous two, but they put @code around the argument. \def\docodeindex#1{\edef\indexname{#1}\parsearg\singlecodeindexer} \def\singlecodeindexer #1{\doind{\indexname}{\code{#1}}} \def\indexdummies{% \def\ { }% % Take care of the plain tex accent commands. \def\"{\realbackslash "}% \def\`{\realbackslash `}% \def\'{\realbackslash '}% \def\^{\realbackslash ^}% \def\~{\realbackslash ~}% \def\={\realbackslash =}% \def\b{\realbackslash b}% \def\c{\realbackslash c}% \def\d{\realbackslash d}% \def\u{\realbackslash u}% \def\v{\realbackslash v}% \def\H{\realbackslash H}% % Take care of the plain tex special European modified letters. \def\oe{\realbackslash oe}% \def\ae{\realbackslash ae}% \def\aa{\realbackslash aa}% \def\OE{\realbackslash OE}% \def\AE{\realbackslash AE}% \def\AA{\realbackslash AA}% \def\o{\realbackslash o}% \def\O{\realbackslash O}% \def\l{\realbackslash l}% \def\L{\realbackslash L}% \def\ss{\realbackslash ss}% % Take care of texinfo commands likely to appear in an index entry. % (Must be a way to avoid doing expansion at all, and thus not have to % laboriously list every single command here.) \def\@{@}% will be @@ when we switch to @ as escape char. % Need these in case \tex is in effect and \{ is a \delimiter again. % But can't use \lbracecmd and \rbracecmd because texindex assumes % braces and backslashes are used only as delimiters. \let\{ = \mylbrace \let\} = \myrbrace \def\_{{\realbackslash _}}% \def\w{\realbackslash w }% \def\bf{\realbackslash bf }% %\def\rm{\realbackslash rm }% \def\sl{\realbackslash sl }% \def\sf{\realbackslash sf}% \def\tt{\realbackslash tt}% \def\gtr{\realbackslash gtr}% \def\less{\realbackslash less}% \def\hat{\realbackslash hat}% \def\TeX{\realbackslash TeX}% \def\dots{\realbackslash dots }% \def\result{\realbackslash result}% \def\equiv{\realbackslash equiv}% \def\expansion{\realbackslash expansion}% \def\print{\realbackslash print}% \def\error{\realbackslash error}% \def\point{\realbackslash point}% \def\copyright{\realbackslash copyright}% \def\tclose##1{\realbackslash tclose {##1}}% \def\code##1{\realbackslash code {##1}}% \def\uref##1{\realbackslash uref {##1}}% \def\url##1{\realbackslash url {##1}}% \def\env##1{\realbackslash env {##1}}% \def\command##1{\realbackslash command {##1}}% \def\option##1{\realbackslash option {##1}}% \def\dotless##1{\realbackslash dotless {##1}}% \def\samp##1{\realbackslash samp {##1}}% \def\,##1{\realbackslash ,{##1}}% \def\t##1{\realbackslash t {##1}}% \def\r##1{\realbackslash r {##1}}% \def\i##1{\realbackslash i {##1}}% \def\b##1{\realbackslash b {##1}}% \def\sc##1{\realbackslash sc {##1}}% \def\cite##1{\realbackslash cite {##1}}% \def\key##1{\realbackslash key {##1}}% \def\file##1{\realbackslash file {##1}}% \def\var##1{\realbackslash var {##1}}% \def\kbd##1{\realbackslash kbd {##1}}% \def\dfn##1{\realbackslash dfn {##1}}% \def\emph##1{\realbackslash emph {##1}}% \def\acronym##1{\realbackslash acronym {##1}}% % % Handle some cases of @value -- where the variable name does not % contain - or _, and the value does not contain any % (non-fully-expandable) commands. \let\value = \expandablevalue % \unsepspaces % Turn off macro expansion \turnoffmacros } % If an index command is used in an @example environment, any spaces % therein should become regular spaces in the raw index file, not the % expansion of \tie (\\leavevmode \penalty \@M \ ). {\obeyspaces \gdef\unsepspaces{\obeyspaces\let =\space}} % \indexnofonts no-ops all font-change commands. % This is used when outputting the strings to sort the index by. \def\indexdummyfont#1{#1} \def\indexdummytex{TeX} \def\indexdummydots{...} \def\indexnofonts{% % Just ignore accents. \let\,=\indexdummyfont \let\"=\indexdummyfont \let\`=\indexdummyfont \let\'=\indexdummyfont \let\^=\indexdummyfont \let\~=\indexdummyfont \let\==\indexdummyfont \let\b=\indexdummyfont \let\c=\indexdummyfont \let\d=\indexdummyfont \let\u=\indexdummyfont \let\v=\indexdummyfont \let\H=\indexdummyfont \let\dotless=\indexdummyfont % Take care of the plain tex special European modified letters. \def\oe{oe}% \def\ae{ae}% \def\aa{aa}% \def\OE{OE}% \def\AE{AE}% \def\AA{AA}% \def\o{o}% \def\O{O}% \def\l{l}% \def\L{L}% \def\ss{ss}% \let\w=\indexdummyfont \let\t=\indexdummyfont \let\r=\indexdummyfont \let\i=\indexdummyfont \let\b=\indexdummyfont \let\emph=\indexdummyfont \let\strong=\indexdummyfont \let\cite=\indexdummyfont \let\sc=\indexdummyfont %Don't no-op \tt, since it isn't a user-level command % and is used in the definitions of the active chars like <, >, |... %\let\tt=\indexdummyfont \let\tclose=\indexdummyfont \let\code=\indexdummyfont \let\url=\indexdummyfont \let\uref=\indexdummyfont \let\env=\indexdummyfont \let\acronym=\indexdummyfont \let\command=\indexdummyfont \let\option=\indexdummyfont \let\file=\indexdummyfont \let\samp=\indexdummyfont \let\kbd=\indexdummyfont \let\key=\indexdummyfont \let\var=\indexdummyfont \let\TeX=\indexdummytex \let\dots=\indexdummydots \def\@{@}% } % To define \realbackslash, we must make \ not be an escape. % We must first make another character (@) an escape % so we do not become unable to do a definition. {\catcode`\@=0 \catcode`\\=\other @gdef@realbackslash{\}} \let\indexbackslash=0 %overridden during \printindex. \let\SETmarginindex=\relax % put index entries in margin (undocumented)? % For \ifx comparisons. \def\emptymacro{\empty} % Most index entries go through here, but \dosubind is the general case. % \def\doind#1#2{\dosubind{#1}{#2}\empty} % Workhorse for all \fooindexes. % #1 is name of index, #2 is stuff to put there, #3 is subentry -- % \empty if called from \doind, as we usually are. The main exception % is with defuns, which call us directly. % \def\dosubind#1#2#3{% % Put the index entry in the margin if desired. \ifx\SETmarginindex\relax\else \insert\margin{\hbox{\vrule height8pt depth3pt width0pt #2}}% \fi {% \count255=\lastpenalty {% \indexdummies % Must do this here, since \bf, etc expand at this stage \escapechar=`\\ {% \let\folio = 0% We will expand all macros now EXCEPT \folio. \def\rawbackslashxx{\indexbackslash}% \indexbackslash isn't defined now % so it will be output as is; and it will print as backslash. % \def\thirdarg{#3}% % % If third arg is present, precede it with space in sort key. \ifx\thirdarg\emptymacro \let\subentry = \empty \else \def\subentry{ #3}% \fi % % First process the index entry with all font commands turned % off to get the string to sort by. {\indexnofonts \xdef\indexsorttmp{#2\subentry}}% % % Now the real index entry with the fonts. \toks0 = {#2}% % % If third (subentry) arg is present, add it to the index % string. And include a space. \ifx\thirdarg\emptymacro \else \toks0 = \expandafter{\the\toks0 \space #3}% \fi % % Set up the complete index entry, with both the sort key % and the original text, including any font commands. We write % three arguments to \entry to the .?? file, texindex reduces to % two when writing the .??s sorted result. \edef\temp{% \write\csname#1indfile\endcsname{% \realbackslash entry{\indexsorttmp}{\folio}{\the\toks0}}% }% % % If a skip is the last thing on the list now, preserve it % by backing up by \lastskip, doing the \write, then inserting % the skip again. Otherwise, the whatsit generated by the % \write will make \lastskip zero. The result is that sequences % like this: % @end defun % @tindex whatever % @defun ... % will have extra space inserted, because the \medbreak in the % start of the @defun won't see the skip inserted by the @end of % the previous defun. % % But don't do any of this if we're not in vertical mode. We % don't want to do a \vskip and prematurely end a paragraph. % % Avoid page breaks due to these extra skips, too. % \iflinks \ifvmode \skip0 = \lastskip \ifdim\lastskip = 0pt \else \nobreak\vskip-\lastskip \fi \fi % \temp % do the write % % \ifvmode \ifdim\skip0 = 0pt \else \nobreak\vskip\skip0 \fi \fi \fi }% }% \penalty\count255 }% } % The index entry written in the file actually looks like % \entry {sortstring}{page}{topic} % or % \entry {sortstring}{page}{topic}{subtopic} % The texindex program reads in these files and writes files % containing these kinds of lines: % \initial {c} % before the first topic whose initial is c % \entry {topic}{pagelist} % for a topic that is used without subtopics % \primary {topic} % for the beginning of a topic that is used with subtopics % \secondary {subtopic}{pagelist} % for each subtopic. % Define the user-accessible indexing commands % @findex, @vindex, @kindex, @cindex. \def\findex {\fnindex} \def\kindex {\kyindex} \def\cindex {\cpindex} \def\vindex {\vrindex} \def\tindex {\tpindex} \def\pindex {\pgindex} \def\cindexsub {\begingroup\obeylines\cindexsub} {\obeylines % \gdef\cindexsub "#1" #2^^M{\endgroup % \dosubind{cp}{#2}{#1}}} % Define the macros used in formatting output of the sorted index material. % @printindex causes a particular index (the ??s file) to get printed. % It does not print any chapter heading (usually an @unnumbered). % \def\printindex{\parsearg\doprintindex} \def\doprintindex#1{\begingroup \dobreak \chapheadingskip{10000}% % \smallfonts \rm \tolerance = 9500 \indexbreaks % % See if the index file exists and is nonempty. % Change catcode of @ here so that if the index file contains % \initial {@} % as its first line, TeX doesn't complain about mismatched braces % (because it thinks @} is a control sequence). \catcode`\@ = 11 \openin 1 \jobname.#1s \ifeof 1 % \enddoublecolumns gets confused if there is no text in the index, % and it loses the chapter title and the aux file entries for the % index. The easiest way to prevent this problem is to make sure % there is some text. \putwordIndexNonexistent \else % % If the index file exists but is empty, then \openin leaves \ifeof % false. We have to make TeX try to read something from the file, so % it can discover if there is anything in it. \read 1 to \temp \ifeof 1 \putwordIndexIsEmpty \else % Index files are almost Texinfo source, but we use \ as the escape % character. It would be better to use @, but that's too big a change % to make right now. \def\indexbackslash{\rawbackslashxx}% \catcode`\\ = 0 \escapechar = `\\ \begindoublecolumns \input \jobname.#1s \enddoublecolumns \fi \fi \closein 1 \endgroup} % These macros are used by the sorted index file itself. % Change them to control the appearance of the index. \def\initial#1{{% % Some minor font changes for the special characters. \let\tentt=\sectt \let\tt=\sectt \let\sf=\sectt % % Remove any glue we may have, we'll be inserting our own. \removelastskip % % We like breaks before the index initials, so insert a bonus. \penalty -300 % % Typeset the initial. Making this add up to a whole number of % baselineskips increases the chance of the dots lining up from column % to column. It still won't often be perfect, because of the stretch % we need before each entry, but it's better. % % No shrink because it confuses \balancecolumns. \vskip 1.67\baselineskip plus .5\baselineskip \leftline{\secbf #1}% \vskip .33\baselineskip plus .1\baselineskip % % Do our best not to break after the initial. \nobreak }} % This typesets a paragraph consisting of #1, dot leaders, and then #2 % flush to the right margin. It is used for index and table of contents % entries. The paragraph is indented by \leftskip. % \def\entry#1#2{\begingroup % % Start a new paragraph if necessary, so our assignments below can't % affect previous text. \par % % Do not fill out the last line with white space. \parfillskip = 0in % % No extra space above this paragraph. \parskip = 0in % % Do not prefer a separate line ending with a hyphen to fewer lines. \finalhyphendemerits = 0 % % \hangindent is only relevant when the entry text and page number % don't both fit on one line. In that case, bob suggests starting the % dots pretty far over on the line. Unfortunately, a large % indentation looks wrong when the entry text itself is broken across % lines. So we use a small indentation and put up with long leaders. % % \hangafter is reset to 1 (which is the value we want) at the start % of each paragraph, so we need not do anything with that. \hangindent = 2em % % When the entry text needs to be broken, just fill out the first line % with blank space. \rightskip = 0pt plus1fil % % A bit of stretch before each entry for the benefit of balancing columns. \vskip 0pt plus1pt % % Start a ``paragraph'' for the index entry so the line breaking % parameters we've set above will have an effect. \noindent % % Insert the text of the index entry. TeX will do line-breaking on it. #1% % The following is kludged to not output a line of dots in the index if % there are no page numbers. The next person who breaks this will be % cursed by a Unix daemon. \def\tempa{{\rm }}% \def\tempb{#2}% \edef\tempc{\tempa}% \edef\tempd{\tempb}% \ifx\tempc\tempd\ \else% % % If we must, put the page number on a line of its own, and fill out % this line with blank space. (The \hfil is overwhelmed with the % fill leaders glue in \indexdotfill if the page number does fit.) \hfil\penalty50 \null\nobreak\indexdotfill % Have leaders before the page number. % % The `\ ' here is removed by the implicit \unskip that TeX does as % part of (the primitive) \par. Without it, a spurious underfull % \hbox ensues. \ifpdf \pdfgettoks#2.\ \the\toksA % The page number ends the paragraph. \else \ #2% The page number ends the paragraph. \fi \fi% \par \endgroup} % Like \dotfill except takes at least 1 em. \def\indexdotfill{\cleaders \hbox{$\mathsurround=0pt \mkern1.5mu ${\it .}$ \mkern1.5mu$}\hskip 1em plus 1fill} \def\primary #1{\line{#1\hfil}} \newskip\secondaryindent \secondaryindent=0.5cm \def\secondary #1#2{ {\parfillskip=0in \parskip=0in \hangindent =1in \hangafter=1 \noindent\hskip\secondaryindent\hbox{#1}\indexdotfill #2\par }} % Define two-column mode, which we use to typeset indexes. % Adapted from the TeXbook, page 416, which is to say, % the manmac.tex format used to print the TeXbook itself. \catcode`\@=11 \newbox\partialpage \newdimen\doublecolumnhsize \def\begindoublecolumns{\begingroup % ended by \enddoublecolumns % Grab any single-column material above us. \output = {% % % Here is a possibility not foreseen in manmac: if we accumulate a % whole lot of material, we might end up calling this \output % routine twice in a row (see the doublecol-lose test, which is % essentially a couple of indexes with @setchapternewpage off). In % that case we just ship out what is in \partialpage with the normal % output routine. Generally, \partialpage will be empty when this % runs and this will be a no-op. See the indexspread.tex test case. \ifvoid\partialpage \else \onepageout{\pagecontents\partialpage}% \fi % \global\setbox\partialpage = \vbox{% % Unvbox the main output page. \unvbox\PAGE \kern-\topskip \kern\baselineskip }% }% \eject % run that output routine to set \partialpage % % Use the double-column output routine for subsequent pages. \output = {\doublecolumnout}% % % Change the page size parameters. We could do this once outside this % routine, in each of @smallbook, @afourpaper, and the default 8.5x11 % format, but then we repeat the same computation. Repeating a couple % of assignments once per index is clearly meaningless for the % execution time, so we may as well do it in one place. % % First we halve the line length, less a little for the gutter between % the columns. We compute the gutter based on the line length, so it % changes automatically with the paper format. The magic constant % below is chosen so that the gutter has the same value (well, +-<1pt) % as it did when we hard-coded it. % % We put the result in a separate register, \doublecolumhsize, so we % can restore it in \pagesofar, after \hsize itself has (potentially) % been clobbered. % \doublecolumnhsize = \hsize \advance\doublecolumnhsize by -.04154\hsize \divide\doublecolumnhsize by 2 \hsize = \doublecolumnhsize % % Double the \vsize as well. (We don't need a separate register here, % since nobody clobbers \vsize.) \advance\vsize by -\ht\partialpage \vsize = 2\vsize } % The double-column output routine for all double-column pages except % the last. % \def\doublecolumnout{% \splittopskip=\topskip \splitmaxdepth=\maxdepth % Get the available space for the double columns -- the normal % (undoubled) page height minus any material left over from the % previous page. \dimen@ = \vsize \divide\dimen@ by 2 % % box0 will be the left-hand column, box2 the right. \setbox0=\vsplit255 to\dimen@ \setbox2=\vsplit255 to\dimen@ \onepageout\pagesofar \unvbox255 \penalty\outputpenalty } \def\pagesofar{% % Re-output the contents of the output page -- any previous material, % followed by the two boxes we just split, in box0 and box2. \unvbox\partialpage % \hsize = \doublecolumnhsize \wd0=\hsize \wd2=\hsize \hbox to\pagewidth{\box0\hfil\box2}% } \def\enddoublecolumns{% \output = {% % Split the last of the double-column material. Leave it on the % current page, no automatic page break. \balancecolumns % % If we end up splitting too much material for the current page, % though, there will be another page break right after this \output % invocation ends. Having called \balancecolumns once, we do not % want to call it again. Therefore, reset \output to its normal % definition right away. (We hope \balancecolumns will never be % called on to balance too much material, but if it is, this makes % the output somewhat more palatable.) \global\output = {\onepageout{\pagecontents\PAGE}}% }% \eject \endgroup % started in \begindoublecolumns % % \pagegoal was set to the doubled \vsize above, since we restarted % the current page. We're now back to normal single-column % typesetting, so reset \pagegoal to the normal \vsize (after the % \endgroup where \vsize got restored). \pagegoal = \vsize } \def\balancecolumns{% % Called at the end of the double column material. \setbox0 = \vbox{\unvbox255}% like \box255 but more efficient, see p.120. \dimen@ = \ht0 \advance\dimen@ by \topskip \advance\dimen@ by-\baselineskip \divide\dimen@ by 2 % target to split to %debug\message{final 2-column material height=\the\ht0, target=\the\dimen@.}% \splittopskip = \topskip % Loop until we get a decent breakpoint. {% \vbadness = 10000 \loop \global\setbox3 = \copy0 \global\setbox1 = \vsplit3 to \dimen@ \ifdim\ht3>\dimen@ \global\advance\dimen@ by 1pt \repeat }% %debug\message{split to \the\dimen@, column heights: \the\ht1, \the\ht3.}% \setbox0=\vbox to\dimen@{\unvbox1}% \setbox2=\vbox to\dimen@{\unvbox3}% % \pagesofar } \catcode`\@ = \other \message{sectioning,} % Chapters, sections, etc. \newcount\chapno \newcount\secno \secno=0 \newcount\subsecno \subsecno=0 \newcount\subsubsecno \subsubsecno=0 % This counter is funny since it counts through charcodes of letters A, B, ... \newcount\appendixno \appendixno = `\@ % \def\appendixletter{\char\the\appendixno} % We do the following for the sake of pdftex, which needs the actual % letter in the expansion, not just typeset. \def\appendixletter{% \ifnum\appendixno=`A A% \else\ifnum\appendixno=`B B% \else\ifnum\appendixno=`C C% \else\ifnum\appendixno=`D D% \else\ifnum\appendixno=`E E% \else\ifnum\appendixno=`F F% \else\ifnum\appendixno=`G G% \else\ifnum\appendixno=`H H% \else\ifnum\appendixno=`I I% \else\ifnum\appendixno=`J J% \else\ifnum\appendixno=`K K% \else\ifnum\appendixno=`L L% \else\ifnum\appendixno=`M M% \else\ifnum\appendixno=`N N% \else\ifnum\appendixno=`O O% \else\ifnum\appendixno=`P P% \else\ifnum\appendixno=`Q Q% \else\ifnum\appendixno=`R R% \else\ifnum\appendixno=`S S% \else\ifnum\appendixno=`T T% \else\ifnum\appendixno=`U U% \else\ifnum\appendixno=`V V% \else\ifnum\appendixno=`W W% \else\ifnum\appendixno=`X X% \else\ifnum\appendixno=`Y Y% \else\ifnum\appendixno=`Z Z% % The \the is necessary, despite appearances, because \appendixletter is % expanded while writing the .toc file. \char\appendixno is not % expandable, thus it is written literally, thus all appendixes come out % with the same letter (or @) in the toc without it. \else\char\the\appendixno \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi} % Each @chapter defines this as the name of the chapter. % page headings and footings can use it. @section does likewise. \def\thischapter{} \def\thissection{} \newcount\absseclevel % used to calculate proper heading level \newcount\secbase\secbase=0 % @raise/lowersections modify this count % @raisesections: treat @section as chapter, @subsection as section, etc. \def\raisesections{\global\advance\secbase by -1} \let\up=\raisesections % original BFox name % @lowersections: treat @chapter as section, @section as subsection, etc. \def\lowersections{\global\advance\secbase by 1} \let\down=\lowersections % original BFox name % Choose a numbered-heading macro % #1 is heading level if unmodified by @raisesections or @lowersections % #2 is text for heading \def\numhead#1#2{\absseclevel=\secbase\advance\absseclevel by #1 \ifcase\absseclevel \chapterzzz{#2} \or \seczzz{#2} \or \numberedsubseczzz{#2} \or \numberedsubsubseczzz{#2} \else \ifnum \absseclevel<0 \chapterzzz{#2} \else \numberedsubsubseczzz{#2} \fi \fi } % like \numhead, but chooses appendix heading levels \def\apphead#1#2{\absseclevel=\secbase\advance\absseclevel by #1 \ifcase\absseclevel \appendixzzz{#2} \or \appendixsectionzzz{#2} \or \appendixsubseczzz{#2} \or \appendixsubsubseczzz{#2} \else \ifnum \absseclevel<0 \appendixzzz{#2} \else \appendixsubsubseczzz{#2} \fi \fi } % like \numhead, but chooses numberless heading levels \def\unnmhead#1#2{\absseclevel=\secbase\advance\absseclevel by #1 \ifcase\absseclevel \unnumberedzzz{#2} \or \unnumberedseczzz{#2} \or \unnumberedsubseczzz{#2} \or \unnumberedsubsubseczzz{#2} \else \ifnum \absseclevel<0 \unnumberedzzz{#2} \else \unnumberedsubsubseczzz{#2} \fi \fi } % @chapter, @appendix, @unnumbered. \def\thischaptername{No Chapter Title} \outer\def\chapter{\parsearg\chapteryyy} \def\chapteryyy #1{\numhead0{#1}} % normally numhead0 calls chapterzzz \def\chapterzzz #1{% \secno=0 \subsecno=0 \subsubsecno=0 \global\advance \chapno by 1 \message{\putwordChapter\space \the\chapno}% \chapmacro {#1}{\the\chapno}% \gdef\thissection{#1}% \gdef\thischaptername{#1}% % We don't substitute the actual chapter name into \thischapter % because we don't want its macros evaluated now. \xdef\thischapter{\putwordChapter{} \the\chapno: \noexpand\thischaptername}% \toks0 = {#1}% \edef\temp{\noexpand\writetocentry{\realbackslash chapentry{\the\toks0}% {\the\chapno}}}% \temp \donoderef \global\let\section = \numberedsec \global\let\subsection = \numberedsubsec \global\let\subsubsection = \numberedsubsubsec } \outer\def\appendix{\parsearg\appendixyyy} \def\appendixyyy #1{\apphead0{#1}} % normally apphead0 calls appendixzzz \def\appendixzzz #1{% \secno=0 \subsecno=0 \subsubsecno=0 \global\advance \appendixno by 1 \message{\putwordAppendix\space \appendixletter}% \chapmacro {#1}{\putwordAppendix{} \appendixletter}% \gdef\thissection{#1}% \gdef\thischaptername{#1}% \xdef\thischapter{\putwordAppendix{} \appendixletter: \noexpand\thischaptername}% \toks0 = {#1}% \edef\temp{\noexpand\writetocentry{\realbackslash chapentry{\the\toks0}% {\putwordAppendix{} \appendixletter}}}% \temp \appendixnoderef \global\let\section = \appendixsec \global\let\subsection = \appendixsubsec \global\let\subsubsection = \appendixsubsubsec } % @centerchap is like @unnumbered, but the heading is centered. \outer\def\centerchap{\parsearg\centerchapyyy} \def\centerchapyyy #1{{\let\unnumbchapmacro=\centerchapmacro \unnumberedyyy{#1}}} % @top is like @unnumbered. \outer\def\top{\parsearg\unnumberedyyy} \outer\def\unnumbered{\parsearg\unnumberedyyy} \def\unnumberedyyy #1{\unnmhead0{#1}} % normally unnmhead0 calls unnumberedzzz \def\unnumberedzzz #1{% \secno=0 \subsecno=0 \subsubsecno=0 % % This used to be simply \message{#1}, but TeX fully expands the % argument to \message. Therefore, if #1 contained @-commands, TeX % expanded them. For example, in `@unnumbered The @cite{Book}', TeX % expanded @cite (which turns out to cause errors because \cite is meant % to be executed, not expanded). % % Anyway, we don't want the fully-expanded definition of @cite to appear % as a result of the \message, we just want `@cite' itself. We use % \the to achieve this: TeX expands \the only once, % simply yielding the contents of . (We also do this for % the toc entries.) \toks0 = {#1}\message{(\the\toks0)}% % \unnumbchapmacro {#1}% \gdef\thischapter{#1}\gdef\thissection{#1}% \toks0 = {#1}% \edef\temp{\noexpand\writetocentry{\realbackslash unnumbchapentry{\the\toks0}}}% \temp \unnumbnoderef \global\let\section = \unnumberedsec \global\let\subsection = \unnumberedsubsec \global\let\subsubsection = \unnumberedsubsubsec } % Sections. \outer\def\numberedsec{\parsearg\secyyy} \def\secyyy #1{\numhead1{#1}} % normally calls seczzz \def\seczzz #1{% \subsecno=0 \subsubsecno=0 \global\advance \secno by 1 % \gdef\thissection{#1}\secheading {#1}{\the\chapno}{\the\secno}% \toks0 = {#1}% \edef\temp{\noexpand\writetocentry{\realbackslash secentry{\the\toks0}% {\the\chapno}{\the\secno}}}% \temp \donoderef \nobreak } \outer\def\appendixsection{\parsearg\appendixsecyyy} \outer\def\appendixsec{\parsearg\appendixsecyyy} \def\appendixsecyyy #1{\apphead1{#1}} % normally calls appendixsectionzzz \def\appendixsectionzzz #1{% \subsecno=0 \subsubsecno=0 \global\advance \secno by 1 % \gdef\thissection{#1}\secheading {#1}{\appendixletter}{\the\secno}% \toks0 = {#1}% \edef\temp{\noexpand\writetocentry{\realbackslash secentry{\the\toks0}% {\appendixletter}{\the\secno}}}% \temp \appendixnoderef \nobreak } \outer\def\unnumberedsec{\parsearg\unnumberedsecyyy} \def\unnumberedsecyyy #1{\unnmhead1{#1}} % normally calls unnumberedseczzz \def\unnumberedseczzz #1{% \plainsecheading {#1}\gdef\thissection{#1}% \toks0 = {#1}% \edef\temp{\noexpand\writetocentry{\realbackslash unnumbsecentry{\the\toks0}}}% \temp \unnumbnoderef \nobreak } % Subsections. \outer\def\numberedsubsec{\parsearg\numberedsubsecyyy} \def\numberedsubsecyyy #1{\numhead2{#1}} % normally calls numberedsubseczzz \def\numberedsubseczzz #1{% \gdef\thissection{#1}\subsubsecno=0 \global\advance \subsecno by 1 % \subsecheading {#1}{\the\chapno}{\the\secno}{\the\subsecno}% \toks0 = {#1}% \edef\temp{\noexpand\writetocentry{\realbackslash subsecentry{\the\toks0}% {\the\chapno}{\the\secno}{\the\subsecno}}}% \temp \donoderef \nobreak } \outer\def\appendixsubsec{\parsearg\appendixsubsecyyy} \def\appendixsubsecyyy #1{\apphead2{#1}} % normally calls appendixsubseczzz \def\appendixsubseczzz #1{% \gdef\thissection{#1}\subsubsecno=0 \global\advance \subsecno by 1 % \subsecheading {#1}{\appendixletter}{\the\secno}{\the\subsecno}% \toks0 = {#1}% \edef\temp{\noexpand\writetocentry{\realbackslash subsecentry{\the\toks0}% {\appendixletter}{\the\secno}{\the\subsecno}}}% \temp \appendixnoderef \nobreak } \outer\def\unnumberedsubsec{\parsearg\unnumberedsubsecyyy} \def\unnumberedsubsecyyy #1{\unnmhead2{#1}} %normally calls unnumberedsubseczzz \def\unnumberedsubseczzz #1{% \plainsubsecheading {#1}\gdef\thissection{#1}% \toks0 = {#1}% \edef\temp{\noexpand\writetocentry{\realbackslash unnumbsubsecentry% {\the\toks0}}}% \temp \unnumbnoderef \nobreak } % Subsubsections. \outer\def\numberedsubsubsec{\parsearg\numberedsubsubsecyyy} \def\numberedsubsubsecyyy #1{\numhead3{#1}} % normally numberedsubsubseczzz \def\numberedsubsubseczzz #1{% \gdef\thissection{#1}\global\advance \subsubsecno by 1 % \subsubsecheading {#1} {\the\chapno}{\the\secno}{\the\subsecno}{\the\subsubsecno}% \toks0 = {#1}% \edef\temp{\noexpand\writetocentry{\realbackslash subsubsecentry{\the\toks0}% {\the\chapno}{\the\secno}{\the\subsecno}{\the\subsubsecno}}}% \temp \donoderef \nobreak } \outer\def\appendixsubsubsec{\parsearg\appendixsubsubsecyyy} \def\appendixsubsubsecyyy #1{\apphead3{#1}} % normally appendixsubsubseczzz \def\appendixsubsubseczzz #1{% \gdef\thissection{#1}\global\advance \subsubsecno by 1 % \subsubsecheading {#1} {\appendixletter}{\the\secno}{\the\subsecno}{\the\subsubsecno}% \toks0 = {#1}% \edef\temp{\noexpand\writetocentry{\realbackslash subsubsecentry{\the\toks0}% {\appendixletter}{\the\secno}{\the\subsecno}{\the\subsubsecno}}}% \temp \appendixnoderef \nobreak } \outer\def\unnumberedsubsubsec{\parsearg\unnumberedsubsubsecyyy} \def\unnumberedsubsubsecyyy #1{\unnmhead3{#1}} %normally unnumberedsubsubseczzz \def\unnumberedsubsubseczzz #1{% \plainsubsubsecheading {#1}\gdef\thissection{#1}% \toks0 = {#1}% \edef\temp{\noexpand\writetocentry{\realbackslash unnumbsubsubsecentry% {\the\toks0}}}% \temp \unnumbnoderef \nobreak } % These are variants which are not "outer", so they can appear in @ifinfo. % Actually, they should now be obsolete; ordinary section commands should work. \def\infotop{\parsearg\unnumberedzzz} \def\infounnumbered{\parsearg\unnumberedzzz} \def\infounnumberedsec{\parsearg\unnumberedseczzz} \def\infounnumberedsubsec{\parsearg\unnumberedsubseczzz} \def\infounnumberedsubsubsec{\parsearg\unnumberedsubsubseczzz} \def\infoappendix{\parsearg\appendixzzz} \def\infoappendixsec{\parsearg\appendixseczzz} \def\infoappendixsubsec{\parsearg\appendixsubseczzz} \def\infoappendixsubsubsec{\parsearg\appendixsubsubseczzz} \def\infochapter{\parsearg\chapterzzz} \def\infosection{\parsearg\sectionzzz} \def\infosubsection{\parsearg\subsectionzzz} \def\infosubsubsection{\parsearg\subsubsectionzzz} % These macros control what the section commands do, according % to what kind of chapter we are in (ordinary, appendix, or unnumbered). % Define them by default for a numbered chapter. \global\let\section = \numberedsec \global\let\subsection = \numberedsubsec \global\let\subsubsection = \numberedsubsubsec % Define @majorheading, @heading and @subheading % NOTE on use of \vbox for chapter headings, section headings, and such: % 1) We use \vbox rather than the earlier \line to permit % overlong headings to fold. % 2) \hyphenpenalty is set to 10000 because hyphenation in a % heading is obnoxious; this forbids it. % 3) Likewise, headings look best if no \parindent is used, and % if justification is not attempted. Hence \raggedright. \def\majorheading{\parsearg\majorheadingzzz} \def\majorheadingzzz #1{% {\advance\chapheadingskip by 10pt \chapbreak }% {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt\raggedright \rm #1\hfill}}\bigskip \par\penalty 200} \def\chapheading{\parsearg\chapheadingzzz} \def\chapheadingzzz #1{\chapbreak % {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt\raggedright \rm #1\hfill}}\bigskip \par\penalty 200} % @heading, @subheading, @subsubheading. \def\heading{\parsearg\plainsecheading} \def\subheading{\parsearg\plainsubsecheading} \def\subsubheading{\parsearg\plainsubsubsecheading} % These macros generate a chapter, section, etc. heading only % (including whitespace, linebreaking, etc. around it), % given all the information in convenient, parsed form. %%% Args are the skip and penalty (usually negative) \def\dobreak#1#2{\par\ifdim\lastskip<#1\removelastskip\penalty#2\vskip#1\fi} \def\setchapterstyle #1 {\csname CHAPF#1\endcsname} %%% Define plain chapter starts, and page on/off switching for it % Parameter controlling skip before chapter headings (if needed) \newskip\chapheadingskip \def\chapbreak{\dobreak \chapheadingskip {-4000}} \def\chappager{\par\vfill\supereject} \def\chapoddpage{\chappager \ifodd\pageno \else \hbox to 0pt{} \chappager\fi} \def\setchapternewpage #1 {\csname CHAPPAG#1\endcsname} \def\CHAPPAGoff{% \global\let\contentsalignmacro = \chappager \global\let\pchapsepmacro=\chapbreak \global\let\pagealignmacro=\chappager} \def\CHAPPAGon{% \global\let\contentsalignmacro = \chappager \global\let\pchapsepmacro=\chappager \global\let\pagealignmacro=\chappager \global\def\HEADINGSon{\HEADINGSsingle}} \def\CHAPPAGodd{ \global\let\contentsalignmacro = \chapoddpage \global\let\pchapsepmacro=\chapoddpage \global\let\pagealignmacro=\chapoddpage \global\def\HEADINGSon{\HEADINGSdouble}} \CHAPPAGon \def\CHAPFplain{ \global\let\chapmacro=\chfplain \global\let\unnumbchapmacro=\unnchfplain \global\let\centerchapmacro=\centerchfplain} % Plain chapter opening. % #1 is the text, #2 the chapter number or empty if unnumbered. \def\chfplain#1#2{% \pchapsepmacro {% \chapfonts \rm \def\chapnum{#2}% \setbox0 = \hbox{#2\ifx\chapnum\empty\else\enspace\fi}% \vbox{\hyphenpenalty=10000 \tolerance=5000 \parindent=0pt \raggedright \hangindent = \wd0 \centerparametersmaybe \unhbox0 #1\par}% }% \nobreak\bigskip % no page break after a chapter title \nobreak } % Plain opening for unnumbered. \def\unnchfplain#1{\chfplain{#1}{}} % @centerchap -- centered and unnumbered. \let\centerparametersmaybe = \relax \def\centerchfplain#1{{% \def\centerparametersmaybe{% \advance\rightskip by 3\rightskip \leftskip = \rightskip \parfillskip = 0pt }% \chfplain{#1}{}% }} \CHAPFplain % The default \def\unnchfopen #1{% \chapoddpage {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt\raggedright \rm #1\hfill}}\bigskip \par\nobreak } \def\chfopen #1#2{\chapoddpage {\chapfonts \vbox to 3in{\vfil \hbox to\hsize{\hfil #2} \hbox to\hsize{\hfil #1} \vfil}}% \par\penalty 5000 % } \def\centerchfopen #1{% \chapoddpage {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt \hfill {\rm #1}\hfill}}\bigskip \par\nobreak } \def\CHAPFopen{ \global\let\chapmacro=\chfopen \global\let\unnumbchapmacro=\unnchfopen \global\let\centerchapmacro=\centerchfopen} % Section titles. \newskip\secheadingskip \def\secheadingbreak{\dobreak \secheadingskip {-1000}} \def\secheading#1#2#3{\sectionheading{sec}{#2.#3}{#1}} \def\plainsecheading#1{\sectionheading{sec}{}{#1}} % Subsection titles. \newskip \subsecheadingskip \def\subsecheadingbreak{\dobreak \subsecheadingskip {-500}} \def\subsecheading#1#2#3#4{\sectionheading{subsec}{#2.#3.#4}{#1}} \def\plainsubsecheading#1{\sectionheading{subsec}{}{#1}} % Subsubsection titles. \let\subsubsecheadingskip = \subsecheadingskip \let\subsubsecheadingbreak = \subsecheadingbreak \def\subsubsecheading#1#2#3#4#5{\sectionheading{subsubsec}{#2.#3.#4.#5}{#1}} \def\plainsubsubsecheading#1{\sectionheading{subsubsec}{}{#1}} % Print any size section title. % % #1 is the section type (sec/subsec/subsubsec), #2 is the section % number (maybe empty), #3 the text. \def\sectionheading#1#2#3{% {% \expandafter\advance\csname #1headingskip\endcsname by \parskip \csname #1headingbreak\endcsname }% {% % Switch to the right set of fonts. \csname #1fonts\endcsname \rm % % Only insert the separating space if we have a section number. \def\secnum{#2}% \setbox0 = \hbox{#2\ifx\secnum\empty\else\enspace\fi}% % \vbox{\hyphenpenalty=10000 \tolerance=5000 \parindent=0pt \raggedright \hangindent = \wd0 % zero if no section number \unhbox0 #3}% }% \ifdim\parskip<10pt \nobreak\kern10pt\nobreak\kern-\parskip\fi \nobreak } \message{toc,} % Table of contents. \newwrite\tocfile % Write an entry to the toc file, opening it if necessary. % Called from @chapter, etc. We supply {\folio} at the end of the % argument, which will end up as the last argument to the \...entry macro. % % We open the .toc file here instead of at @setfilename or any other % given time so that @contents can be put in the document anywhere. % \newif\iftocfileopened \def\writetocentry#1{% \iftocfileopened\else \immediate\openout\tocfile = \jobname.toc \global\tocfileopenedtrue \fi \iflinks \write\tocfile{#1{\folio}}\fi } \newskip\contentsrightmargin \contentsrightmargin=1in \newcount\savepageno \newcount\lastnegativepageno \lastnegativepageno = -1 % Finish up the main text and prepare to read what we've written % to \tocfile. % \def\startcontents#1{% % If @setchapternewpage on, and @headings double, the contents should % start on an odd page, unlike chapters. Thus, we maintain % \contentsalignmacro in parallel with \pagealignmacro. % From: Torbjorn Granlund \contentsalignmacro \immediate\closeout\tocfile % % Don't need to put `Contents' or `Short Contents' in the headline. % It is abundantly clear what they are. \unnumbchapmacro{#1}\def\thischapter{}% \savepageno = \pageno \begingroup % Set up to handle contents files properly. \catcode`\\=0 \catcode`\{=1 \catcode`\}=2 \catcode`\@=11 % We can't do this, because then an actual ^ in a section % title fails, e.g., @chapter ^ -- exponentiation. --karl, 9jul97. %\catcode`\^=7 % to see ^^e4 as \"a etc. juha@piuha.ydi.vtt.fi \raggedbottom % Worry more about breakpoints than the bottom. \advance\hsize by -\contentsrightmargin % Don't use the full line length. % % Roman numerals for page numbers. \ifnum \pageno>0 \pageno = \lastnegativepageno \fi } % Normal (long) toc. \def\contents{% \startcontents{\putwordTOC}% \openin 1 \jobname.toc \ifeof 1 \else \closein 1 \input \jobname.toc \fi \vfill \eject \contentsalignmacro % in case @setchapternewpage odd is in effect \pdfmakeoutlines \endgroup \lastnegativepageno = \pageno \pageno = \savepageno } % And just the chapters. \def\summarycontents{% \startcontents{\putwordShortTOC}% % \let\chapentry = \shortchapentry \let\unnumbchapentry = \shortunnumberedentry % We want a true roman here for the page numbers. \secfonts \let\rm=\shortcontrm \let\bf=\shortcontbf \let\sl=\shortcontsl \rm \hyphenpenalty = 10000 \advance\baselineskip by 1pt % Open it up a little. \def\secentry ##1##2##3##4{} \def\unnumbsecentry ##1##2{} \def\subsecentry ##1##2##3##4##5{} \def\unnumbsubsecentry ##1##2{} \def\subsubsecentry ##1##2##3##4##5##6{} \def\unnumbsubsubsecentry ##1##2{} \openin 1 \jobname.toc \ifeof 1 \else \closein 1 \input \jobname.toc \fi \vfill \eject \contentsalignmacro % in case @setchapternewpage odd is in effect \endgroup \lastnegativepageno = \pageno \pageno = \savepageno } \let\shortcontents = \summarycontents \ifpdf \pdfcatalog{/PageMode /UseOutlines}% \fi % These macros generate individual entries in the table of contents. % The first argument is the chapter or section name. % The last argument is the page number. % The arguments in between are the chapter number, section number, ... % Chapter-level things, for both the long and short contents. \def\chapentry#1#2#3{\dochapentry{#2\labelspace#1}{#3}} % See comments in \dochapentry re vbox and related settings \def\shortchapentry#1#2#3{% \tocentry{\shortchaplabel{#2}\labelspace #1}{\doshortpageno\bgroup#3\egroup}% } % Typeset the label for a chapter or appendix for the short contents. % The arg is, e.g. `Appendix A' for an appendix, or `3' for a chapter. % We could simplify the code here by writing out an \appendixentry % command in the toc file for appendices, instead of using \chapentry % for both, but it doesn't seem worth it. % \newdimen\shortappendixwidth % \def\shortchaplabel#1{% % Compute width of word "Appendix", may change with language. \setbox0 = \hbox{\shortcontrm \putwordAppendix}% \shortappendixwidth = \wd0 % % We typeset #1 in a box of constant width, regardless of the text of % #1, so the chapter titles will come out aligned. \setbox0 = \hbox{#1}% \dimen0 = \ifdim\wd0 > \shortappendixwidth \shortappendixwidth \else 0pt \fi % % This space should be plenty, since a single number is .5em, and the % widest letter (M) is 1em, at least in the Computer Modern fonts. % (This space doesn't include the extra space that gets added after % the label; that gets put in by \shortchapentry above.) \advance\dimen0 by 1.1em \hbox to \dimen0{#1\hfil}% } \def\unnumbchapentry#1#2{\dochapentry{#1}{#2}} \def\shortunnumberedentry#1#2{\tocentry{#1}{\doshortpageno\bgroup#2\egroup}} % Sections. \def\secentry#1#2#3#4{\dosecentry{#2.#3\labelspace#1}{#4}} \def\unnumbsecentry#1#2{\dosecentry{#1}{#2}} % Subsections. \def\subsecentry#1#2#3#4#5{\dosubsecentry{#2.#3.#4\labelspace#1}{#5}} \def\unnumbsubsecentry#1#2{\dosubsecentry{#1}{#2}} % And subsubsections. \def\subsubsecentry#1#2#3#4#5#6{% \dosubsubsecentry{#2.#3.#4.#5\labelspace#1}{#6}} \def\unnumbsubsubsecentry#1#2{\dosubsubsecentry{#1}{#2}} % This parameter controls the indentation of the various levels. \newdimen\tocindent \tocindent = 3pc % Now for the actual typesetting. In all these, #1 is the text and #2 is the % page number. % % If the toc has to be broken over pages, we want it to be at chapters % if at all possible; hence the \penalty. \def\dochapentry#1#2{% \penalty-300 \vskip1\baselineskip plus.33\baselineskip minus.25\baselineskip \begingroup \chapentryfonts \tocentry{#1}{\dopageno\bgroup#2\egroup}% \endgroup \nobreak\vskip .25\baselineskip plus.1\baselineskip } \def\dosecentry#1#2{\begingroup \secentryfonts \leftskip=\tocindent \tocentry{#1}{\dopageno\bgroup#2\egroup}% \endgroup} \def\dosubsecentry#1#2{\begingroup \subsecentryfonts \leftskip=2\tocindent \tocentry{#1}{\dopageno\bgroup#2\egroup}% \endgroup} \def\dosubsubsecentry#1#2{\begingroup \subsubsecentryfonts \leftskip=3\tocindent \tocentry{#1}{\dopageno\bgroup#2\egroup}% \endgroup} % Final typesetting of a toc entry; we use the same \entry macro as for % the index entries, but we want to suppress hyphenation here. (We % can't do that in the \entry macro, since index entries might consist % of hyphenated-identifiers-that-do-not-fit-on-a-line-and-nothing-else.) \def\tocentry#1#2{\begingroup \vskip 0pt plus1pt % allow a little stretch for the sake of nice page breaks % Do not use \turnoffactive in these arguments. Since the toc is % typeset in cmr, so characters such as _ would come out wrong; we % have to do the usual translation tricks. \entry{#1}{#2}% \endgroup} % Space between chapter (or whatever) number and the title. \def\labelspace{\hskip1em \relax} \def\dopageno#1{{\rm #1}} \def\doshortpageno#1{{\rm #1}} \def\chapentryfonts{\secfonts \rm} \def\secentryfonts{\textfonts} \let\subsecentryfonts = \textfonts \let\subsubsecentryfonts = \textfonts \message{environments,} % @foo ... @end foo. % Since these characters are used in examples, it should be an even number of % \tt widths. Each \tt character is 1en, so two makes it 1em. % Furthermore, these definitions must come after we define our fonts. \newbox\dblarrowbox \newbox\longdblarrowbox \newbox\pushcharbox \newbox\bullbox \newbox\equivbox \newbox\errorbox %{\tentt %\global\setbox\dblarrowbox = \hbox to 1em{\hfil$\Rightarrow$\hfil} %\global\setbox\longdblarrowbox = \hbox to 1em{\hfil$\mapsto$\hfil} %\global\setbox\pushcharbox = \hbox to 1em{\hfil$\dashv$\hfil} %\global\setbox\equivbox = \hbox to 1em{\hfil$\ptexequiv$\hfil} % Adapted from the manmac format (p.420 of TeXbook) %\global\setbox\bullbox = \hbox to 1em{\kern.15em\vrule height .75ex width .85ex % depth .1ex\hfil} %} % @point{}, @result{}, @expansion{}, @print{}, @equiv{}. \def\point{$\star$} \def\result{\leavevmode\raise.15ex\hbox to 1em{\hfil$\Rightarrow$\hfil}} \def\expansion{\leavevmode\raise.1ex\hbox to 1em{\hfil$\mapsto$\hfil}} \def\print{\leavevmode\lower.1ex\hbox to 1em{\hfil$\dashv$\hfil}} \def\equiv{\leavevmode\lower.1ex\hbox to 1em{\hfil$\ptexequiv$\hfil}} % Adapted from the TeXbook's \boxit. {\tentt \global\dimen0 = 3em}% Width of the box. \dimen2 = .55pt % Thickness of rules % The text. (`r' is open on the right, `e' somewhat less so on the left.) \setbox0 = \hbox{\kern-.75pt \tensf error\kern-1.5pt} \global\setbox\errorbox=\hbox to \dimen0{\hfil \hsize = \dimen0 \advance\hsize by -5.8pt % Space to left+right. \advance\hsize by -2\dimen2 % Rules. \vbox{ \hrule height\dimen2 \hbox{\vrule width\dimen2 \kern3pt % Space to left of text. \vtop{\kern2.4pt \box0 \kern2.4pt}% Space above/below. \kern3pt\vrule width\dimen2}% Space to right. \hrule height\dimen2} \hfil} % The @error{} command. \def\error{\leavevmode\lower.7ex\copy\errorbox} % @tex ... @end tex escapes into raw Tex temporarily. % One exception: @ is still an escape character, so that @end tex works. % But \@ or @@ will get a plain tex @ character. \def\tex{\begingroup \catcode `\\=0 \catcode `\{=1 \catcode `\}=2 \catcode `\$=3 \catcode `\&=4 \catcode `\#=6 \catcode `\^=7 \catcode `\_=8 \catcode `\~=13 \let~=\tie \catcode `\%=14 \catcode 43=12 % plus \catcode`\"=12 \catcode`\==12 \catcode`\|=12 \catcode`\<=12 \catcode`\>=12 \escapechar=`\\ % \let\b=\ptexb \let\bullet=\ptexbullet \let\c=\ptexc \let\,=\ptexcomma \let\.=\ptexdot \let\dots=\ptexdots \let\equiv=\ptexequiv \let\!=\ptexexclam \let\i=\ptexi \let\{=\ptexlbrace \let\+=\tabalign \let\}=\ptexrbrace \let\*=\ptexstar \let\t=\ptext % \def\endldots{\mathinner{\ldots\ldots\ldots\ldots}}% \def\enddots{\relax\ifmmode\endldots\else$\mathsurround=0pt \endldots\,$\fi}% \def\@{@}% \let\Etex=\endgroup} % Define @lisp ... @endlisp. % @lisp does a \begingroup so it can rebind things, % including the definition of @endlisp (which normally is erroneous). % Amount to narrow the margins by for @lisp. \newskip\lispnarrowing \lispnarrowing=0.4in % This is the definition that ^^M gets inside @lisp, @example, and other % such environments. \null is better than a space, since it doesn't % have any width. \def\lisppar{\null\endgraf} % Make each space character in the input produce a normal interword % space in the output. Don't allow a line break at this space, as this % is used only in environments like @example, where each line of input % should produce a line of output anyway. % {\obeyspaces % \gdef\sepspaces{\obeyspaces\let =\tie}} % Define \obeyedspace to be our active space, whatever it is. This is % for use in \parsearg. {\sepspaces% \global\let\obeyedspace= } % This space is always present above and below environments. \newskip\envskipamount \envskipamount = 0pt % Make spacing and below environment symmetrical. We use \parskip here % to help in doing that, since in @example-like environments \parskip % is reset to zero; thus the \afterenvbreak inserts no space -- but the % start of the next paragraph will insert \parskip % \def\aboveenvbreak{{\advance\envskipamount by \parskip \endgraf \ifdim\lastskip<\envskipamount \removelastskip \penalty-50 \vskip\envskipamount \fi}} \let\afterenvbreak = \aboveenvbreak % \nonarrowing is a flag. If "set", @lisp etc don't narrow margins. \let\nonarrowing=\relax % @cartouche ... @end cartouche: draw rectangle w/rounded corners around % environment contents. \font\circle=lcircle10 \newdimen\circthick \newdimen\cartouter\newdimen\cartinner \newskip\normbskip\newskip\normpskip\newskip\normlskip \circthick=\fontdimen8\circle % \def\ctl{{\circle\char'013\hskip -6pt}}% 6pt from pl file: 1/2charwidth \def\ctr{{\hskip 6pt\circle\char'010}} \def\cbl{{\circle\char'012\hskip -6pt}} \def\cbr{{\hskip 6pt\circle\char'011}} \def\carttop{\hbox to \cartouter{\hskip\lskip \ctl\leaders\hrule height\circthick\hfil\ctr \hskip\rskip}} \def\cartbot{\hbox to \cartouter{\hskip\lskip \cbl\leaders\hrule height\circthick\hfil\cbr \hskip\rskip}} % \newskip\lskip\newskip\rskip \long\def\cartouche{% \begingroup \lskip=\leftskip \rskip=\rightskip \leftskip=0pt\rightskip=0pt %we want these *outside*. \cartinner=\hsize \advance\cartinner by-\lskip \advance\cartinner by-\rskip \cartouter=\hsize \advance\cartouter by 18.4pt % allow for 3pt kerns on either % side, and for 6pt waste from % each corner char, and rule thickness \normbskip=\baselineskip \normpskip=\parskip \normlskip=\lineskip % Flag to tell @lisp, etc., not to narrow margin. \let\nonarrowing=\comment \vbox\bgroup \baselineskip=0pt\parskip=0pt\lineskip=0pt \carttop \hbox\bgroup \hskip\lskip \vrule\kern3pt \vbox\bgroup \hsize=\cartinner \kern3pt \begingroup \baselineskip=\normbskip \lineskip=\normlskip \parskip=\normpskip \vskip -\parskip \def\Ecartouche{% \endgroup \kern3pt \egroup \kern3pt\vrule \hskip\rskip \egroup \cartbot \egroup \endgroup }} % This macro is called at the beginning of all the @example variants, % inside a group. \def\nonfillstart{% \aboveenvbreak \inENV % This group ends at the end of the body \hfuzz = 12pt % Don't be fussy \sepspaces % Make spaces be word-separators rather than space tokens. \singlespace \let\par = \lisppar % don't ignore blank lines \obeylines % each line of input is a line of output \parskip = 0pt \parindent = 0pt \emergencystretch = 0pt % don't try to avoid overfull boxes % @cartouche defines \nonarrowing to inhibit narrowing % at next level down. \ifx\nonarrowing\relax \advance \leftskip by \lispnarrowing \exdentamount=\lispnarrowing \let\exdent=\nofillexdent \let\nonarrowing=\relax \fi } % Define the \E... control sequence only if we are inside the particular % environment, so the error checking in \end will work. % % To end an @example-like environment, we first end the paragraph (via % \afterenvbreak's vertical glue), and then the group. That way we keep % the zero \parskip that the environments set -- \parskip glue will be % inserted at the beginning of the next paragraph in the document, after % the environment. % \def\nonfillfinish{\afterenvbreak\endgroup} % @lisp: indented, narrowed, typewriter font. \def\lisp{\begingroup \nonfillstart \let\Elisp = \nonfillfinish \tt \let\kbdfont = \kbdexamplefont % Allow @kbd to do something special. \gobble % eat return } % @example: Same as @lisp. \def\example{\begingroup \def\Eexample{\nonfillfinish\endgroup}\lisp} % @small... is usually equivalent to the non-small (@smallbook % redefines). We must call \example (or whatever) last in the % definition, since it reads the return following the @example (or % whatever) command. % % This actually allows (for example) @end display inside an % @smalldisplay. Too bad, but makeinfo will catch the error anyway. % \def\smalldisplay{\begingroup\def\Esmalldisplay{\nonfillfinish\endgroup}\display} \def\smallexample{\begingroup\def\Esmallexample{\nonfillfinish\endgroup}\lisp} \def\smallformat{\begingroup\def\Esmallformat{\nonfillfinish\endgroup}\format} \def\smalllisp{\begingroup\def\Esmalllisp{\nonfillfinish\endgroup}\lisp} % Real @smallexample and @smalllisp (when @smallbook): use smaller fonts. % Originally contributed by Pavel@xerox. \def\smalllispx{\begingroup \def\Esmalllisp{\nonfillfinish\endgroup}% \def\Esmallexample{\nonfillfinish\endgroup}% \smallfonts \lisp } % @display: same as @lisp except keep current font. % \def\display{\begingroup \nonfillstart \let\Edisplay = \nonfillfinish \gobble } % @smalldisplay (when @smallbook): @display plus smaller fonts. % \def\smalldisplayx{\begingroup \def\Esmalldisplay{\nonfillfinish\endgroup}% \smallfonts \rm \display } % @format: same as @display except don't narrow margins. % \def\format{\begingroup \let\nonarrowing = t \nonfillstart \let\Eformat = \nonfillfinish \gobble } % @smallformat (when @smallbook): @format plus smaller fonts. % \def\smallformatx{\begingroup \def\Esmallformat{\nonfillfinish\endgroup}% \smallfonts \rm \format } % @flushleft (same as @format). % \def\flushleft{\begingroup \def\Eflushleft{\nonfillfinish\endgroup}\format} % @flushright. % \def\flushright{\begingroup \let\nonarrowing = t \nonfillstart \let\Eflushright = \nonfillfinish \advance\leftskip by 0pt plus 1fill \gobble } % @quotation does normal linebreaking (hence we can't use \nonfillstart) % and narrows the margins. % \def\quotation{% \begingroup\inENV %This group ends at the end of the @quotation body {\parskip=0pt \aboveenvbreak}% because \aboveenvbreak inserts \parskip \singlespace \parindent=0pt % We have retained a nonzero parskip for the environment, since we're % doing normal filling. So to avoid extra space below the environment... \def\Equotation{\parskip = 0pt \nonfillfinish}% % % @cartouche defines \nonarrowing to inhibit narrowing at next level down. \ifx\nonarrowing\relax \advance\leftskip by \lispnarrowing \advance\rightskip by \lispnarrowing \exdentamount = \lispnarrowing \let\nonarrowing = \relax \fi } \message{defuns,} % @defun etc. % Allow user to change definition object font (\df) internally \def\setdeffont #1 {\csname DEF#1\endcsname} \newskip\defbodyindent \defbodyindent=.4in \newskip\defargsindent \defargsindent=50pt \newskip\deftypemargin \deftypemargin=12pt \newskip\deflastargmargin \deflastargmargin=18pt \newcount\parencount % define \functionparens, which makes ( and ) and & do special things. % \functionparens affects the group it is contained in. \def\activeparens{% \catcode`\(=\active \catcode`\)=\active \catcode`\&=\active \catcode`\[=\active \catcode`\]=\active} % Make control sequences which act like normal parenthesis chars. \let\lparen = ( \let\rparen = ) {\activeparens % Now, smart parens don't turn on until &foo (see \amprm) % Be sure that we always have a definition for `(', etc. For example, % if the fn name has parens in it, \boldbrax will not be in effect yet, % so TeX would otherwise complain about undefined control sequence. \global\let(=\lparen \global\let)=\rparen \global\let[=\lbrack \global\let]=\rbrack \gdef\functionparens{\boldbrax\let&=\amprm\parencount=0 } \gdef\boldbrax{\let(=\opnr\let)=\clnr\let[=\lbrb\let]=\rbrb} % This is used to turn on special parens % but make & act ordinary (given that it's active). \gdef\boldbraxnoamp{\let(=\opnr\let)=\clnr\let[=\lbrb\let]=\rbrb\let&=\ampnr} % Definitions of (, ) and & used in args for functions. % This is the definition of ( outside of all parentheses. \gdef\oprm#1 {{\rm\char`\(}#1 \bf \let(=\opnested \global\advance\parencount by 1 } % % This is the definition of ( when already inside a level of parens. \gdef\opnested{\char`\(\global\advance\parencount by 1 } % \gdef\clrm{% Print a paren in roman if it is taking us back to depth of 0. % also in that case restore the outer-level definition of (. \ifnum \parencount=1 {\rm \char `\)}\sl \let(=\oprm \else \char `\) \fi \global\advance \parencount by -1 } % If we encounter &foo, then turn on ()-hacking afterwards \gdef\amprm#1 {{\rm\}\let(=\oprm \let)=\clrm\ } % \gdef\normalparens{\boldbrax\let&=\ampnr} } % End of definition inside \activeparens %% These parens (in \boldbrax) actually are a little bolder than the %% contained text. This is especially needed for [ and ] \def\opnr{{\sf\char`\(}\global\advance\parencount by 1 } \def\clnr{{\sf\char`\)}\global\advance\parencount by -1 } \let\ampnr = \& \def\lbrb{{\bf\char`\[}} \def\rbrb{{\bf\char`\]}} % Active &'s sneak into the index arguments, so make sure it's defined. { \catcode`& = 13 \global\let& = \ampnr } % First, defname, which formats the header line itself. % #1 should be the function name. % #2 should be the type of definition, such as "Function". \def\defname #1#2{% % Get the values of \leftskip and \rightskip as they were % outside the @def... \dimen2=\leftskip \advance\dimen2 by -\defbodyindent \noindent \setbox0=\hbox{\hskip \deflastargmargin{\rm #2}\hskip \deftypemargin}% \dimen0=\hsize \advance \dimen0 by -\wd0 % compute size for first line \dimen1=\hsize \advance \dimen1 by -\defargsindent %size for continuations \parshape 2 0in \dimen0 \defargsindent \dimen1 % Now output arg 2 ("Function" or some such) % ending at \deftypemargin from the right margin, % but stuck inside a box of width 0 so it does not interfere with linebreaking {% Adjust \hsize to exclude the ambient margins, % so that \rightline will obey them. \advance \hsize by -\dimen2 \rlap{\rightline{{\rm #2}\hskip -1.25pc }}}% % Make all lines underfull and no complaints: \tolerance=10000 \hbadness=10000 \advance\leftskip by -\defbodyindent \exdentamount=\defbodyindent {\df #1}\enskip % Generate function name } % Actually process the body of a definition % #1 should be the terminating control sequence, such as \Edefun. % #2 should be the "another name" control sequence, such as \defunx. % #3 should be the control sequence that actually processes the header, % such as \defunheader. \def\defparsebody #1#2#3{\begingroup\inENV% Environment for definitionbody \medbreak % % Define the end token that this defining construct specifies % so that it will exit this group. \def#1{\endgraf\endgroup\medbreak}% \def#2{\begingroup\obeylines\activeparens\spacesplit#3}% \parindent=0in \advance\leftskip by \defbodyindent \exdentamount=\defbodyindent \begingroup % \catcode 61=\active % 61 is `=' \obeylines\activeparens\spacesplit#3} % #1 is the \E... control sequence to end the definition (which we define). % #2 is the \...x control sequence for consecutive fns (which we define). % #3 is the control sequence to call to resume processing. % #4, delimited by the space, is the class name. % \def\defmethparsebody#1#2#3#4 {\begingroup\inENV % \medbreak % % Define the end token that this defining construct specifies % so that it will exit this group. \def#1{\endgraf\endgroup\medbreak}% \def#2##1 {\begingroup\obeylines\activeparens\spacesplit{#3{##1}}}% \parindent=0in \advance\leftskip by \defbodyindent \exdentamount=\defbodyindent \begingroup\obeylines\activeparens\spacesplit{#3{#4}}} % Used for @deftypemethod and @deftypeivar. % #1 is the \E... control sequence to end the definition (which we define). % #2 is the \...x control sequence for consecutive fns (which we define). % #3 is the control sequence to call to resume processing. % #4, delimited by a space, is the class name. % #5 is the method's return type. % \def\deftypemethparsebody#1#2#3#4 #5 {\begingroup\inENV \medbreak \def#1{\endgraf\endgroup\medbreak}% \def#2##1 ##2 {\begingroup\obeylines\activeparens\spacesplit{#3{##1}{##2}}}% \parindent=0in \advance\leftskip by \defbodyindent \exdentamount=\defbodyindent \begingroup\obeylines\activeparens\spacesplit{#3{#4}{#5}}} % Used for @deftypeop. The change from \deftypemethparsebody is an % extra argument at the beginning which is the `category', instead of it % being the hardwired string `Method' or `Instance Variable'. We have % to account for this both in the \...x definition and in parsing the % input at hand. Thus also need a control sequence (passed as #5) for % the \E... definition to assign the category name to. % \def\deftypeopparsebody#1#2#3#4#5 #6 {\begingroup\inENV \medbreak \def#1{\endgraf\endgroup\medbreak}% \def#2##1 ##2 ##3 {% \def#4{##1}% \begingroup\obeylines\activeparens\spacesplit{#3{##2}{##3}}}% \parindent=0in \advance\leftskip by \defbodyindent \exdentamount=\defbodyindent \begingroup\obeylines\activeparens\spacesplit{#3{#5}{#6}}} \def\defopparsebody #1#2#3#4#5 {\begingroup\inENV % \medbreak % % Define the end token that this defining construct specifies % so that it will exit this group. \def#1{\endgraf\endgroup\medbreak}% \def#2##1 ##2 {\def#4{##1}% \begingroup\obeylines\activeparens\spacesplit{#3{##2}}}% \parindent=0in \advance\leftskip by \defbodyindent \exdentamount=\defbodyindent \begingroup\obeylines\activeparens\spacesplit{#3{#5}}} % These parsing functions are similar to the preceding ones % except that they do not make parens into active characters. % These are used for "variables" since they have no arguments. \def\defvarparsebody #1#2#3{\begingroup\inENV% Environment for definitionbody \medbreak % % Define the end token that this defining construct specifies % so that it will exit this group. \def#1{\endgraf\endgroup\medbreak}% \def#2{\begingroup\obeylines\spacesplit#3}% \parindent=0in \advance\leftskip by \defbodyindent \exdentamount=\defbodyindent \begingroup % \catcode 61=\active % \obeylines\spacesplit#3} % This is used for \def{tp,vr}parsebody. It could probably be used for % some of the others, too, with some judicious conditionals. % \def\parsebodycommon#1#2#3{% \begingroup\inENV % \medbreak % % Define the end token that this defining construct specifies % so that it will exit this group. \def#1{\endgraf\endgroup\medbreak}% \def#2##1 {\begingroup\obeylines\spacesplit{#3{##1}}}% \parindent=0in \advance\leftskip by \defbodyindent \exdentamount=\defbodyindent \begingroup\obeylines } \def\defvrparsebody#1#2#3#4 {% \parsebodycommon{#1}{#2}{#3}% \spacesplit{#3{#4}}% } % This loses on `@deftp {Data Type} {struct termios}' -- it thinks the % type is just `struct', because we lose the braces in `{struct % termios}' when \spacesplit reads its undelimited argument. Sigh. % \let\deftpparsebody=\defvrparsebody % % So, to get around this, we put \empty in with the type name. That % way, TeX won't find exactly `{...}' as an undelimited argument, and % won't strip off the braces. % \def\deftpparsebody #1#2#3#4 {% \parsebodycommon{#1}{#2}{#3}% \spacesplit{\parsetpheaderline{#3{#4}}}\empty } % Fine, but then we have to eventually remove the \empty *and* the % braces (if any). That's what this does. % \def\removeemptybraces\empty#1\relax{#1} % After \spacesplit has done its work, this is called -- #1 is the final % thing to call, #2 the type name (which starts with \empty), and #3 % (which might be empty) the arguments. % \def\parsetpheaderline#1#2#3{% #1{\removeemptybraces#2\relax}{#3}% }% \def\defopvarparsebody #1#2#3#4#5 {\begingroup\inENV % \medbreak % % Define the end token that this defining construct specifies % so that it will exit this group. \def#1{\endgraf\endgroup\medbreak}% \def#2##1 ##2 {\def#4{##1}% \begingroup\obeylines\spacesplit{#3{##2}}}% \parindent=0in \advance\leftskip by \defbodyindent \exdentamount=\defbodyindent \begingroup\obeylines\spacesplit{#3{#5}}} % Split up #2 at the first space token. % call #1 with two arguments: % the first is all of #2 before the space token, % the second is all of #2 after that space token. % If #2 contains no space token, all of it is passed as the first arg % and the second is passed as empty. {\obeylines \gdef\spacesplit#1#2^^M{\endgroup\spacesplitfoo{#1}#2 \relax\spacesplitfoo}% \long\gdef\spacesplitfoo#1#2 #3#4\spacesplitfoo{% \ifx\relax #3% #1{#2}{}\else #1{#2}{#3#4}\fi}} % So much for the things common to all kinds of definitions. % Define @defun. % First, define the processing that is wanted for arguments of \defun % Use this to expand the args and terminate the paragraph they make up \def\defunargs#1{\functionparens \sl % Expand, preventing hyphenation at `-' chars. % Note that groups don't affect changes in \hyphenchar. % Set the font temporarily and use \font in case \setfont made \tensl a macro. {\tensl\hyphenchar\font=0}% #1% {\tensl\hyphenchar\font=45}% \ifnum\parencount=0 \else \errmessage{Unbalanced parentheses in @def}\fi% \interlinepenalty=10000 \advance\rightskip by 0pt plus 1fil \endgraf\nobreak\vskip -\parskip\nobreak } \def\deftypefunargs #1{% % Expand, preventing hyphenation at `-' chars. % Note that groups don't affect changes in \hyphenchar. % Use \boldbraxnoamp, not \functionparens, so that & is not special. \boldbraxnoamp \tclose{#1}% avoid \code because of side effects on active chars \interlinepenalty=10000 \advance\rightskip by 0pt plus 1fil \endgraf\nobreak\vskip -\parskip\nobreak } % Do complete processing of one @defun or @defunx line already parsed. % @deffn Command forward-char nchars \def\deffn{\defmethparsebody\Edeffn\deffnx\deffnheader} \def\deffnheader #1#2#3{\doind {fn}{\code{#2}}% \begingroup\defname {#2}{#1}\defunargs{#3}\endgroup % \catcode 61=\other % Turn off change made in \defparsebody } % @defun == @deffn Function \def\defun{\defparsebody\Edefun\defunx\defunheader} \def\defunheader #1#2{\doind {fn}{\code{#1}}% Make entry in function index \begingroup\defname {#1}{\putwordDeffunc}% \defunargs {#2}\endgroup % \catcode 61=\other % Turn off change made in \defparsebody } % @deftypefun int foobar (int @var{foo}, float @var{bar}) \def\deftypefun{\defparsebody\Edeftypefun\deftypefunx\deftypefunheader} % #1 is the data type. #2 is the name and args. \def\deftypefunheader #1#2{\deftypefunheaderx{#1}#2 \relax} % #1 is the data type, #2 the name, #3 the args. \def\deftypefunheaderx #1#2 #3\relax{% \doind {fn}{\code{#2}}% Make entry in function index \begingroup\defname {\defheaderxcond#1\relax$$$#2}{\putwordDeftypefun}% \deftypefunargs {#3}\endgroup % \catcode 61=\other % Turn off change made in \defparsebody } % @deftypefn {Library Function} int foobar (int @var{foo}, float @var{bar}) \def\deftypefn{\defmethparsebody\Edeftypefn\deftypefnx\deftypefnheader} % \defheaderxcond#1\relax$$$ % puts #1 in @code, followed by a space, but does nothing if #1 is null. \def\defheaderxcond#1#2$$${\ifx#1\relax\else\code{#1#2} \fi} % #1 is the classification. #2 is the data type. #3 is the name and args. \def\deftypefnheader #1#2#3{\deftypefnheaderx{#1}{#2}#3 \relax} % #1 is the classification, #2 the data type, #3 the name, #4 the args. \def\deftypefnheaderx #1#2#3 #4\relax{% \doind {fn}{\code{#3}}% Make entry in function index \begingroup \normalparens % notably, turn off `&' magic, which prevents % at least some C++ text from working \defname {\defheaderxcond#2\relax$$$#3}{#1}% \deftypefunargs {#4}\endgroup % \catcode 61=\other % Turn off change made in \defparsebody } % @defmac == @deffn Macro \def\defmac{\defparsebody\Edefmac\defmacx\defmacheader} \def\defmacheader #1#2{\doind {fn}{\code{#1}}% Make entry in function index \begingroup\defname {#1}{\putwordDefmac}% \defunargs {#2}\endgroup % \catcode 61=\other % Turn off change made in \defparsebody } % @defspec == @deffn Special Form \def\defspec{\defparsebody\Edefspec\defspecx\defspecheader} \def\defspecheader #1#2{\doind {fn}{\code{#1}}% Make entry in function index \begingroup\defname {#1}{\putwordDefspec}% \defunargs {#2}\endgroup % \catcode 61=\other % Turn off change made in \defparsebody } % @defop CATEGORY CLASS OPERATION ARG... % \def\defop #1 {\def\defoptype{#1}% \defopparsebody\Edefop\defopx\defopheader\defoptype} % \def\defopheader#1#2#3{% \dosubind {fn}{\code{#2}}{\putwordon\ #1}% Make entry in function index \begingroup\defname {#2}{\defoptype\ \putwordon\ #1}% \defunargs {#3}\endgroup % } % @deftypeop CATEGORY CLASS TYPE OPERATION ARG... % \def\deftypeop #1 {\def\deftypeopcategory{#1}% \deftypeopparsebody\Edeftypeop\deftypeopx\deftypeopheader \deftypeopcategory} % % #1 is the class name, #2 the data type, #3 the operation name, #4 the args. \def\deftypeopheader#1#2#3#4{% \dosubind{fn}{\code{#3}}{\putwordon\ \code{#1}}% entry in function index \begingroup \defname{\defheaderxcond#2\relax$$$#3} {\deftypeopcategory\ \putwordon\ \code{#1}}% \deftypefunargs{#4}% \endgroup } % @deftypemethod CLASS TYPE METHOD ARG... % \def\deftypemethod{% \deftypemethparsebody\Edeftypemethod\deftypemethodx\deftypemethodheader} % % #1 is the class name, #2 the data type, #3 the method name, #4 the args. \def\deftypemethodheader#1#2#3#4{% \dosubind{fn}{\code{#3}}{\putwordon\ \code{#1}}% entry in function index \begingroup \defname{\defheaderxcond#2\relax$$$#3}{\putwordMethodon\ \code{#1}}% \deftypefunargs{#4}% \endgroup } % @deftypeivar CLASS TYPE VARNAME % \def\deftypeivar{% \deftypemethparsebody\Edeftypeivar\deftypeivarx\deftypeivarheader} % % #1 is the class name, #2 the data type, #3 the variable name. \def\deftypeivarheader#1#2#3{% \dosubind{vr}{\code{#3}}{\putwordof\ \code{#1}}% entry in variable index \begingroup \defname{#3}{\putwordInstanceVariableof\ \code{#1}}% \defvarargs{#3}% \endgroup } % @defmethod == @defop Method % \def\defmethod{\defmethparsebody\Edefmethod\defmethodx\defmethodheader} % % #1 is the class name, #2 the method name, #3 the args. \def\defmethodheader#1#2#3{% \dosubind{fn}{\code{#2}}{\putwordon\ \code{#1}}% entry in function index \begingroup \defname{#2}{\putwordMethodon\ \code{#1}}% \defunargs{#3}% \endgroup } % @defcv {Class Option} foo-class foo-flag \def\defcv #1 {\def\defcvtype{#1}% \defopvarparsebody\Edefcv\defcvx\defcvarheader\defcvtype} \def\defcvarheader #1#2#3{% \dosubind {vr}{\code{#2}}{\putwordof\ #1}% Make entry in var index \begingroup\defname {#2}{\defcvtype\ \putwordof\ #1}% \defvarargs {#3}\endgroup % } % @defivar CLASS VARNAME == @defcv {Instance Variable} CLASS VARNAME % \def\defivar{\defvrparsebody\Edefivar\defivarx\defivarheader} % \def\defivarheader#1#2#3{% \dosubind {vr}{\code{#2}}{\putwordof\ #1}% entry in var index \begingroup \defname{#2}{\putwordInstanceVariableof\ #1}% \defvarargs{#3}% \endgroup } % @defvar % First, define the processing that is wanted for arguments of @defvar. % This is actually simple: just print them in roman. % This must expand the args and terminate the paragraph they make up \def\defvarargs #1{\normalparens #1% \interlinepenalty=10000 \endgraf\nobreak\vskip -\parskip\nobreak} % @defvr Counter foo-count \def\defvr{\defvrparsebody\Edefvr\defvrx\defvrheader} \def\defvrheader #1#2#3{\doind {vr}{\code{#2}}% \begingroup\defname {#2}{#1}\defvarargs{#3}\endgroup} % @defvar == @defvr Variable \def\defvar{\defvarparsebody\Edefvar\defvarx\defvarheader} \def\defvarheader #1#2{\doind {vr}{\code{#1}}% Make entry in var index \begingroup\defname {#1}{\putwordDefvar}% \defvarargs {#2}\endgroup % } % @defopt == @defvr {User Option} \def\defopt{\defvarparsebody\Edefopt\defoptx\defoptheader} \def\defoptheader #1#2{\doind {vr}{\code{#1}}% Make entry in var index \begingroup\defname {#1}{\putwordDefopt}% \defvarargs {#2}\endgroup % } % @deftypevar int foobar \def\deftypevar{\defvarparsebody\Edeftypevar\deftypevarx\deftypevarheader} % #1 is the data type. #2 is the name, perhaps followed by text that % is actually part of the data type, which should not be put into the index. \def\deftypevarheader #1#2{% \dovarind#2 \relax% Make entry in variables index \begingroup\defname {\defheaderxcond#1\relax$$$#2}{\putwordDeftypevar}% \interlinepenalty=10000 \endgraf\nobreak\vskip -\parskip\nobreak \endgroup} \def\dovarind#1 #2\relax{\doind{vr}{\code{#1}}} % @deftypevr {Global Flag} int enable \def\deftypevr{\defvrparsebody\Edeftypevr\deftypevrx\deftypevrheader} \def\deftypevrheader #1#2#3{\dovarind#3 \relax% \begingroup\defname {\defheaderxcond#2\relax$$$#3}{#1} \interlinepenalty=10000 \endgraf\nobreak\vskip -\parskip\nobreak \endgroup} % Now define @deftp % Args are printed in bold, a slight difference from @defvar. \def\deftpargs #1{\bf \defvarargs{#1}} % @deftp Class window height width ... \def\deftp{\deftpparsebody\Edeftp\deftpx\deftpheader} \def\deftpheader #1#2#3{\doind {tp}{\code{#2}}% \begingroup\defname {#2}{#1}\deftpargs{#3}\endgroup} % These definitions are used if you use @defunx (etc.) % anywhere other than immediately after a @defun or @defunx. % \def\defcvx#1 {\errmessage{@defcvx in invalid context}} \def\deffnx#1 {\errmessage{@deffnx in invalid context}} \def\defivarx#1 {\errmessage{@defivarx in invalid context}} \def\defmacx#1 {\errmessage{@defmacx in invalid context}} \def\defmethodx#1 {\errmessage{@defmethodx in invalid context}} \def\defoptx #1 {\errmessage{@defoptx in invalid context}} \def\defopx#1 {\errmessage{@defopx in invalid context}} \def\defspecx#1 {\errmessage{@defspecx in invalid context}} \def\deftpx#1 {\errmessage{@deftpx in invalid context}} \def\deftypefnx#1 {\errmessage{@deftypefnx in invalid context}} \def\deftypefunx#1 {\errmessage{@deftypefunx in invalid context}} \def\deftypeivarx#1 {\errmessage{@deftypeivarx in invalid context}} \def\deftypemethodx#1 {\errmessage{@deftypemethodx in invalid context}} \def\deftypeopx#1 {\errmessage{@deftypeopx in invalid context}} \def\deftypevarx#1 {\errmessage{@deftypevarx in invalid context}} \def\deftypevrx#1 {\errmessage{@deftypevrx in invalid context}} \def\defunx#1 {\errmessage{@defunx in invalid context}} \def\defvarx#1 {\errmessage{@defvarx in invalid context}} \def\defvrx#1 {\errmessage{@defvrx in invalid context}} \message{macros,} % @macro. % To do this right we need a feature of e-TeX, \scantokens, % which we arrange to emulate with a temporary file in ordinary TeX. \ifx\eTeXversion\undefined \newwrite\macscribble \def\scanmacro#1{% \begingroup \newlinechar`\^^M % Undo catcode changes of \startcontents and \doprintindex \catcode`\@=0 \catcode`\\=12 \escapechar=`\@ % Append \endinput to make sure that TeX does not see the ending newline. \toks0={#1\endinput}% \immediate\openout\macscribble=\jobname.tmp \immediate\write\macscribble{\the\toks0}% \immediate\closeout\macscribble \let\xeatspaces\eatspaces \input \jobname.tmp \endgroup } \else \def\scanmacro#1{% \begingroup \newlinechar`\^^M % Undo catcode changes of \startcontents and \doprintindex \catcode`\@=0 \catcode`\\=12 \escapechar=`\@ \let\xeatspaces\eatspaces\scantokens{#1\endinput}\endgroup} \fi \newcount\paramno % Count of parameters \newtoks\macname % Macro name \newif\ifrecursive % Is it recursive? \def\macrolist{} % List of all defined macros in the form % \do\macro1\do\macro2... % Utility routines. % Thisdoes \let #1 = #2, except with \csnames. \def\cslet#1#2{% \expandafter\expandafter \expandafter\let \expandafter\expandafter \csname#1\endcsname \csname#2\endcsname} % Trim leading and trailing spaces off a string. % Concepts from aro-bend problem 15 (see CTAN). {\catcode`\@=11 \gdef\eatspaces #1{\expandafter\trim@\expandafter{#1 }} \gdef\trim@ #1{\trim@@ @#1 @ #1 @ @@} \gdef\trim@@ #1@ #2@ #3@@{\trim@@@\empty #2 @} \def\unbrace#1{#1} \unbrace{\gdef\trim@@@ #1 } #2@{#1} } % Trim a single trailing ^^M off a string. {\catcode`\^^M=12\catcode`\Q=3% \gdef\eatcr #1{\eatcra #1Q^^MQ}% \gdef\eatcra#1^^MQ{\eatcrb#1Q}% \gdef\eatcrb#1Q#2Q{#1}% } % Macro bodies are absorbed as an argument in a context where % all characters are catcode 10, 11 or 12, except \ which is active % (as in normal texinfo). It is necessary to change the definition of \. % It's necessary to have hard CRs when the macro is executed. This is % done by making ^^M (\endlinechar) catcode 12 when reading the macro % body, and then making it the \newlinechar in \scanmacro. \def\macrobodyctxt{% \catcode`\~=12 \catcode`\^=12 \catcode`\_=12 \catcode`\|=12 \catcode`\<=12 \catcode`\>=12 \catcode`\+=12 \catcode`\{=12 \catcode`\}=12 \catcode`\@=12 \catcode`\^^M=12 \usembodybackslash} \def\macroargctxt{% \catcode`\~=12 \catcode`\^=12 \catcode`\_=12 \catcode`\|=12 \catcode`\<=12 \catcode`\>=12 \catcode`\+=12 \catcode`\@=12 \catcode`\\=12} % \mbodybackslash is the definition of \ in @macro bodies. % It maps \foo\ => \csname macarg.foo\endcsname => #N % where N is the macro parameter number. % We define \csname macarg.\endcsname to be \realbackslash, so % \\ in macro replacement text gets you a backslash. {\catcode`@=0 @catcode`@\=@active @gdef@usembodybackslash{@let\=@mbodybackslash} @gdef@mbodybackslash#1\{@csname macarg.#1@endcsname} } \expandafter\def\csname macarg.\endcsname{\realbackslash} \def\macro{\recursivefalse\parsearg\macroxxx} \def\rmacro{\recursivetrue\parsearg\macroxxx} \def\macroxxx#1{% \getargs{#1}% now \macname is the macname and \argl the arglist \ifx\argl\empty % no arguments \paramno=0% \else \expandafter\parsemargdef \argl;% \fi \if1\csname ismacro.\the\macname\endcsname \message{Warning: redefining \the\macname}% \else \expandafter\ifx\csname \the\macname\endcsname \relax \else \errmessage{The name \the\macname\space is reserved}\fi \global\cslet{macsave.\the\macname}{\the\macname}% \global\expandafter\let\csname ismacro.\the\macname\endcsname=1% % Add the macroname to \macrolist \toks0 = \expandafter{\macrolist\do}% \xdef\macrolist{\the\toks0 \expandafter\noexpand\csname\the\macname\endcsname}% \fi \begingroup \macrobodyctxt \ifrecursive \expandafter\parsermacbody \else \expandafter\parsemacbody \fi} \def\unmacro{\parsearg\unmacroxxx} \def\unmacroxxx#1{% \if1\csname ismacro.#1\endcsname \global\cslet{#1}{macsave.#1}% \global\expandafter\let \csname ismacro.#1\endcsname=0% % Remove the macro name from \macrolist \begingroup \edef\tempa{\expandafter\noexpand\csname#1\endcsname}% \def\do##1{% \def\tempb{##1}% \ifx\tempa\tempb % remove this \else \toks0 = \expandafter{\newmacrolist\do}% \edef\newmacrolist{\the\toks0\expandafter\noexpand\tempa}% \fi}% \def\newmacrolist{}% % Execute macro list to define \newmacrolist \macrolist \global\let\macrolist\newmacrolist \endgroup \else \errmessage{Macro #1 not defined}% \fi } % This makes use of the obscure feature that if the last token of a % is #, then the preceding argument is delimited by % an opening brace, and that opening brace is not consumed. \def\getargs#1{\getargsxxx#1{}} \def\getargsxxx#1#{\getmacname #1 \relax\getmacargs} \def\getmacname #1 #2\relax{\macname={#1}} \def\getmacargs#1{\def\argl{#1}} % Parse the optional {params} list. Set up \paramno and \paramlist % so \defmacro knows what to do. Define \macarg.blah for each blah % in the params list, to be ##N where N is the position in that list. % That gets used by \mbodybackslash (above). % We need to get `macro parameter char #' into several definitions. % The technique used is stolen from LaTeX: let \hash be something % unexpandable, insert that wherever you need a #, and then redefine % it to # just before using the token list produced. % % The same technique is used to protect \eatspaces till just before % the macro is used. \def\parsemargdef#1;{\paramno=0\def\paramlist{}% \let\hash\relax\let\xeatspaces\relax\parsemargdefxxx#1,;,} \def\parsemargdefxxx#1,{% \if#1;\let\next=\relax \else \let\next=\parsemargdefxxx \advance\paramno by 1% \expandafter\edef\csname macarg.\eatspaces{#1}\endcsname {\xeatspaces{\hash\the\paramno}}% \edef\paramlist{\paramlist\hash\the\paramno,}% \fi\next} % These two commands read recursive and nonrecursive macro bodies. % (They're different since rec and nonrec macros end differently.) \long\def\parsemacbody#1@end macro% {\xdef\temp{\eatcr{#1}}\endgroup\defmacro}% \long\def\parsermacbody#1@end rmacro% {\xdef\temp{\eatcr{#1}}\endgroup\defmacro}% % This defines the macro itself. There are six cases: recursive and % nonrecursive macros of zero, one, and many arguments. % Much magic with \expandafter here. % \xdef is used so that macro definitions will survive the file % they're defined in; @include reads the file inside a group. \def\defmacro{% \let\hash=##% convert placeholders to macro parameter chars \ifrecursive \ifcase\paramno % 0 \expandafter\xdef\csname\the\macname\endcsname{% \noexpand\scanmacro{\temp}}% \or % 1 \expandafter\xdef\csname\the\macname\endcsname{% \bgroup\noexpand\macroargctxt \noexpand\braceorline \expandafter\noexpand\csname\the\macname xxx\endcsname}% \expandafter\xdef\csname\the\macname xxx\endcsname##1{% \egroup\noexpand\scanmacro{\temp}}% \else % many \expandafter\xdef\csname\the\macname\endcsname{% \bgroup\noexpand\macroargctxt \noexpand\csname\the\macname xx\endcsname}% \expandafter\xdef\csname\the\macname xx\endcsname##1{% \expandafter\noexpand\csname\the\macname xxx\endcsname ##1,}% \expandafter\expandafter \expandafter\xdef \expandafter\expandafter \csname\the\macname xxx\endcsname \paramlist{\egroup\noexpand\scanmacro{\temp}}% \fi \else \ifcase\paramno % 0 \expandafter\xdef\csname\the\macname\endcsname{% \noexpand\norecurse{\the\macname}% \noexpand\scanmacro{\temp}\egroup}% \or % 1 \expandafter\xdef\csname\the\macname\endcsname{% \bgroup\noexpand\macroargctxt \noexpand\braceorline \expandafter\noexpand\csname\the\macname xxx\endcsname}% \expandafter\xdef\csname\the\macname xxx\endcsname##1{% \egroup \noexpand\norecurse{\the\macname}% \noexpand\scanmacro{\temp}\egroup}% \else % many \expandafter\xdef\csname\the\macname\endcsname{% \bgroup\noexpand\macroargctxt \expandafter\noexpand\csname\the\macname xx\endcsname}% \expandafter\xdef\csname\the\macname xx\endcsname##1{% \expandafter\noexpand\csname\the\macname xxx\endcsname ##1,}% \expandafter\expandafter \expandafter\xdef \expandafter\expandafter \csname\the\macname xxx\endcsname \paramlist{% \egroup \noexpand\norecurse{\the\macname}% \noexpand\scanmacro{\temp}\egroup}% \fi \fi} \def\norecurse#1{\bgroup\cslet{#1}{macsave.#1}} % \braceorline decides whether the next nonwhitespace character is a % {. If so it reads up to the closing }, if not, it reads the whole % line. Whatever was read is then fed to the next control sequence % as an argument (by \parsebrace or \parsearg) \def\braceorline#1{\let\next=#1\futurelet\nchar\braceorlinexxx} \def\braceorlinexxx{% \ifx\nchar\bgroup\else \expandafter\parsearg \fi \next} % We mant to disable all macros during \shipout so that they are not % expanded by \write. \def\turnoffmacros{\begingroup \def\do##1{\let\noexpand##1=\relax}% \edef\next{\macrolist}\expandafter\endgroup\next} % @alias. % We need some trickery to remove the optional spaces around the equal % sign. Just make them active and then expand them all to nothing. \def\alias{\begingroup\obeyspaces\parsearg\aliasxxx} \def\aliasxxx #1{\aliasyyy#1\relax} \def\aliasyyy #1=#2\relax{\ignoreactivespaces \edef\next{\global\let\expandafter\noexpand\csname#1\endcsname=% \expandafter\noexpand\csname#2\endcsname}% \expandafter\endgroup\next} \message{cross references,} % @xref etc. \newwrite\auxfile \newif\ifhavexrefs % True if xref values are known. \newif\ifwarnedxrefs % True if we warned once that they aren't known. % @inforef is relatively simple. \def\inforef #1{\inforefzzz #1,,,,**} \def\inforefzzz #1,#2,#3,#4**{\putwordSee{} \putwordInfo{} \putwordfile{} \file{\ignorespaces #3{}}, node \samp{\ignorespaces#1{}}} % @node's job is to define \lastnode. \def\node{\ENVcheck\parsearg\nodezzz} \def\nodezzz#1{\nodexxx [#1,]} \def\nodexxx[#1,#2]{\gdef\lastnode{#1}} \let\nwnode=\node \let\lastnode=\relax % The sectioning commands (@chapter, etc.) call these. \def\donoderef{% \ifx\lastnode\relax\else \expandafter\expandafter\expandafter\setref{\lastnode}% {Ysectionnumberandtype}% \global\let\lastnode=\relax \fi } \def\unnumbnoderef{% \ifx\lastnode\relax\else \expandafter\expandafter\expandafter\setref{\lastnode}{Ynothing}% \global\let\lastnode=\relax \fi } \def\appendixnoderef{% \ifx\lastnode\relax\else \expandafter\expandafter\expandafter\setref{\lastnode}% {Yappendixletterandtype}% \global\let\lastnode=\relax \fi } % @anchor{NAME} -- define xref target at arbitrary point. % \newcount\savesfregister \gdef\savesf{\relax \ifhmode \savesfregister=\spacefactor \fi} \gdef\restoresf{\relax \ifhmode \spacefactor=\savesfregister \fi} \gdef\anchor#1{\savesf \setref{#1}{Ynothing}\restoresf \ignorespaces} % \setref{NAME}{SNT} defines a cross-reference point NAME, namely % NAME-title, NAME-pg, and NAME-SNT. Called from \foonoderef. We have % to set \indexdummies so commands such as @code in a section title % aren't expanded. It would be nicer not to expand the titles in the % first place, but there's so many layers that that is hard to do. % \def\setref#1#2{{% \indexdummies \pdfmkdest{#1}% \dosetq{#1-title}{Ytitle}% \dosetq{#1-pg}{Ypagenumber}% \dosetq{#1-snt}{#2}% }} % @xref, @pxref, and @ref generate cross-references. For \xrefX, #1 is % the node name, #2 the name of the Info cross-reference, #3 the printed % node name, #4 the name of the Info file, #5 the name of the printed % manual. All but the node name can be omitted. % \def\pxref#1{\putwordsee{} \xrefX[#1,,,,,,,]} \def\xref#1{\putwordSee{} \xrefX[#1,,,,,,,]} \def\ref#1{\xrefX[#1,,,,,,,]} \def\xrefX[#1,#2,#3,#4,#5,#6]{\begingroup \unsepspaces \def\printedmanual{\ignorespaces #5}% \def\printednodename{\ignorespaces #3}% \setbox1=\hbox{\printedmanual}% \setbox0=\hbox{\printednodename}% \ifdim \wd0 = 0pt % No printed node name was explicitly given. \expandafter\ifx\csname SETxref-automatic-section-title\endcsname\relax % Use the node name inside the square brackets. \def\printednodename{\ignorespaces #1}% \else % Use the actual chapter/section title appear inside % the square brackets. Use the real section title if we have it. \ifdim \wd1 > 0pt % It is in another manual, so we don't have it. \def\printednodename{\ignorespaces #1}% \else \ifhavexrefs % We know the real title if we have the xref values. \def\printednodename{\refx{#1-title}{}}% \else % Otherwise just copy the Info node name. \def\printednodename{\ignorespaces #1}% \fi% \fi \fi \fi % % If we use \unhbox0 and \unhbox1 to print the node names, TeX does not % insert empty discretionaries after hyphens, which means that it will % not find a line break at a hyphen in a node names. Since some manuals % are best written with fairly long node names, containing hyphens, this % is a loss. Therefore, we give the text of the node name again, so it % is as if TeX is seeing it for the first time. \ifpdf \leavevmode \getfilename{#4}% \ifnum\filenamelength>0 \startlink attr{/Border [0 0 0]}% goto file{\the\filename.pdf} name{#1@}% \else \startlink attr{/Border [0 0 0]}% goto name{#1@}% \fi \linkcolor \fi % \ifdim \wd1 > 0pt \putwordsection{} ``\printednodename'' \putwordin{} \cite{\printedmanual}% \else % _ (for example) has to be the character _ for the purposes of the % control sequence corresponding to the node, but it has to expand % into the usual \leavevmode...\vrule stuff for purposes of % printing. So we \turnoffactive for the \refx-snt, back on for the % printing, back off for the \refx-pg. {\normalturnoffactive % Only output a following space if the -snt ref is nonempty; for % @unnumbered and @anchor, it won't be. \setbox2 = \hbox{\ignorespaces \refx{#1-snt}{}}% \ifdim \wd2 > 0pt \refx{#1-snt}\space\fi }% % [mynode], [\printednodename],\space % page 3 \turnoffactive \putwordpage\tie\refx{#1-pg}{}% \fi \endlink \endgroup} % \dosetq is the interface for calls from other macros % Use \normalturnoffactive so that punctuation chars such as underscore % and backslash work in node names. (\turnoffactive doesn't do \.) \def\dosetq#1#2{% {\let\folio=0% \normalturnoffactive \edef\next{\write\auxfile{\internalsetq{#1}{#2}}}% \iflinks \next \fi }% } % \internalsetq {foo}{page} expands into % CHARACTERS 'xrdef {foo}{...expansion of \Ypage...} % When the aux file is read, ' is the escape character \def\internalsetq #1#2{'xrdef {#1}{\csname #2\endcsname}} % Things to be expanded by \internalsetq \def\Ypagenumber{\folio} \def\Ytitle{\thissection} \def\Ynothing{} \def\Ysectionnumberandtype{% \ifnum\secno=0 \putwordChapter\xreftie\the\chapno % \else \ifnum \subsecno=0 \putwordSection\xreftie\the\chapno.\the\secno % \else \ifnum \subsubsecno=0 % \putwordSection\xreftie\the\chapno.\the\secno.\the\subsecno % \else % \putwordSection\xreftie\the\chapno.\the\secno.\the\subsecno.\the\subsubsecno % \fi \fi \fi } \def\Yappendixletterandtype{% \ifnum\secno=0 \putwordAppendix\xreftie'char\the\appendixno{}% \else \ifnum \subsecno=0 \putwordSection\xreftie'char\the\appendixno.\the\secno % \else \ifnum \subsubsecno=0 % \putwordSection\xreftie'char\the\appendixno.\the\secno.\the\subsecno % \else % \putwordSection\xreftie'char\the\appendixno.\the\secno.\the\subsecno.\the\subsubsecno % \fi \fi \fi } \gdef\xreftie{'tie} % Use TeX 3.0's \inputlineno to get the line number, for better error % messages, but if we're using an old version of TeX, don't do anything. % \ifx\inputlineno\thisisundefined \let\linenumber = \empty % Non-3.0. \else \def\linenumber{\the\inputlineno:\space} \fi % Define \refx{NAME}{SUFFIX} to reference a cross-reference string named NAME. % If its value is nonempty, SUFFIX is output afterward. \def\refx#1#2{% \expandafter\ifx\csname X#1\endcsname\relax % If not defined, say something at least. \angleleft un\-de\-fined\angleright \iflinks \ifhavexrefs \message{\linenumber Undefined cross reference `#1'.}% \else \ifwarnedxrefs\else \global\warnedxrefstrue \message{Cross reference values unknown; you must run TeX again.}% \fi \fi \fi \else % It's defined, so just use it. \csname X#1\endcsname \fi #2% Output the suffix in any case. } % This is the macro invoked by entries in the aux file. % \def\xrdef#1{\begingroup % Reenable \ as an escape while reading the second argument. \catcode`\\ = 0 \afterassignment\endgroup \expandafter\gdef\csname X#1\endcsname } % Read the last existing aux file, if any. No error if none exists. \def\readauxfile{\begingroup \catcode`\^^@=\other \catcode`\^^A=\other \catcode`\^^B=\other \catcode`\^^C=\other \catcode`\^^D=\other \catcode`\^^E=\other \catcode`\^^F=\other \catcode`\^^G=\other \catcode`\^^H=\other \catcode`\^^K=\other \catcode`\^^L=\other \catcode`\^^N=\other \catcode`\^^P=\other \catcode`\^^Q=\other \catcode`\^^R=\other \catcode`\^^S=\other \catcode`\^^T=\other \catcode`\^^U=\other \catcode`\^^V=\other \catcode`\^^W=\other \catcode`\^^X=\other \catcode`\^^Z=\other \catcode`\^^[=\other \catcode`\^^\=\other \catcode`\^^]=\other \catcode`\^^^=\other \catcode`\^^_=\other \catcode`\@=\other \catcode`\^=\other % It was suggested to define this as 7, which would allow ^^e4 etc. % in xref tags, i.e., node names. But since ^^e4 notation isn't % supported in the main text, it doesn't seem desirable. Furthermore, % that is not enough: for node names that actually contain a ^ % character, we would end up writing a line like this: 'xrdef {'hat % b-title}{'hat b} and \xrdef does a \csname...\endcsname on the first % argument, and \hat is not an expandable control sequence. It could % all be worked out, but why? Either we support ^^ or we don't. % % The other change necessary for this was to define \auxhat: % \def\auxhat{\def^{'hat }}% extra space so ok if followed by letter % and then to call \auxhat in \setq. % \catcode`\~=\other \catcode`\[=\other \catcode`\]=\other \catcode`\"=\other \catcode`\_=\other \catcode`\|=\other \catcode`\<=\other \catcode`\>=\other \catcode`\$=\other \catcode`\#=\other \catcode`\&=\other \catcode`+=\other % avoid \+ for paranoia even though we've turned it off % Make the characters 128-255 be printing characters {% \count 1=128 \def\loop{% \catcode\count 1=\other \advance\count 1 by 1 \ifnum \count 1<256 \loop \fi }% }% % The aux file uses ' as the escape (for now). % Turn off \ as an escape so we do not lose on % entries which were dumped with control sequences in their names. % For example, 'xrdef {$\leq $-fun}{page ...} made by @defun ^^ % Reference to such entries still does not work the way one would wish, % but at least they do not bomb out when the aux file is read in. \catcode`\{=1 \catcode`\}=2 \catcode`\%=\other \catcode`\'=0 \catcode`\\=\other % \openin 1 \jobname.aux \ifeof 1 \else \closein 1 \input \jobname.aux \global\havexrefstrue \global\warnedobstrue \fi % Open the new aux file. TeX will close it automatically at exit. \openout\auxfile=\jobname.aux \endgroup} % Footnotes. \newcount \footnoteno % The trailing space in the following definition for supereject is % vital for proper filling; pages come out unaligned when you do a % pagealignmacro call if that space before the closing brace is % removed. (Generally, numeric constants should always be followed by a % space to prevent strange expansion errors.) \def\supereject{\par\penalty -20000\footnoteno =0 } % @footnotestyle is meaningful for info output only. \let\footnotestyle=\comment \let\ptexfootnote=\footnote {\catcode `\@=11 % % Auto-number footnotes. Otherwise like plain. \gdef\footnote{% \global\advance\footnoteno by \@ne \edef\thisfootno{$^{\the\footnoteno}$}% % % In case the footnote comes at the end of a sentence, preserve the % extra spacing after we do the footnote number. \let\@sf\empty \ifhmode\edef\@sf{\spacefactor\the\spacefactor}\/\fi % % Remove inadvertent blank space before typesetting the footnote number. \unskip \thisfootno\@sf \footnotezzz }% % Don't bother with the trickery in plain.tex to not require the % footnote text as a parameter. Our footnotes don't need to be so general. % % Oh yes, they do; otherwise, @ifset and anything else that uses % \parseargline fail inside footnotes because the tokens are fixed when % the footnote is read. --karl, 16nov96. % \long\gdef\footnotezzz{\insert\footins\bgroup % We want to typeset this text as a normal paragraph, even if the % footnote reference occurs in (for example) a display environment. % So reset some parameters. \interlinepenalty\interfootnotelinepenalty \splittopskip\ht\strutbox % top baseline for broken footnotes \splitmaxdepth\dp\strutbox \floatingpenalty\@MM \leftskip\z@skip \rightskip\z@skip \spaceskip\z@skip \xspaceskip\z@skip \parindent\defaultparindent % \smallfonts \rm % % Hang the footnote text off the number. \hang \textindent{\thisfootno}% % % Don't crash into the line above the footnote text. Since this % expands into a box, it must come within the paragraph, lest it % provide a place where TeX can split the footnote. \footstrut \futurelet\next\fo@t } \def\fo@t{\ifcat\bgroup\noexpand\next \let\next\f@@t \else\let\next\f@t\fi \next} \def\f@@t{\bgroup\aftergroup\@foot\let\next} \def\f@t#1{#1\@foot} \def\@foot{\strut\par\egroup} }%end \catcode `\@=11 % Set the baselineskip to #1, and the lineskip and strut size % correspondingly. There is no deep meaning behind these magic numbers % used as factors; they just match (closely enough) what Knuth defined. % \def\lineskipfactor{.08333} \def\strutheightpercent{.70833} \def\strutdepthpercent {.29167} % \def\setleading#1{% \normalbaselineskip = #1\relax \normallineskip = \lineskipfactor\normalbaselineskip \normalbaselines \setbox\strutbox =\hbox{% \vrule width0pt height\strutheightpercent\baselineskip depth \strutdepthpercent \baselineskip }% } % @| inserts a changebar to the left of the current line. It should % surround any changed text. This approach does *not* work if the % change spans more than two lines of output. To handle that, we would % have adopt a much more difficult approach (putting marks into the main % vertical list for the beginning and end of each change). % \def\|{% % \vadjust can only be used in horizontal mode. \leavevmode % % Append this vertical mode material after the current line in the output. \vadjust{% % We want to insert a rule with the height and depth of the current % leading; that is exactly what \strutbox is supposed to record. \vskip-\baselineskip % % \vadjust-items are inserted at the left edge of the type. So % the \llap here moves out into the left-hand margin. \llap{% % % For a thicker or thinner bar, change the `1pt'. \vrule height\baselineskip width1pt % % This is the space between the bar and the text. \hskip 12pt }% }% } % For a final copy, take out the rectangles % that mark overfull boxes (in case you have decided % that the text looks ok even though it passes the margin). % \def\finalout{\overfullrule=0pt} % @image. We use the macros from epsf.tex to support this. % If epsf.tex is not installed and @image is used, we complain. % % Check for and read epsf.tex up front. If we read it only at @image % time, we might be inside a group, and then its definitions would get % undone and the next image would fail. \openin 1 = epsf.tex \ifeof 1 \else \closein 1 % Do not bother showing banner with post-v2.7 epsf.tex (available in % doc/epsf.tex until it shows up on ctan). \def\epsfannounce{\toks0 = }% \input epsf.tex \fi % % We will only complain once about lack of epsf.tex. \newif\ifwarnednoepsf \newhelp\noepsfhelp{epsf.tex must be installed for images to work. It is also included in the Texinfo distribution, or you can get it from ftp://tug.org/tex/epsf.tex.} % \def\image#1{% \ifx\epsfbox\undefined \ifwarnednoepsf \else \errhelp = \noepsfhelp \errmessage{epsf.tex not found, images will be ignored}% \global\warnednoepsftrue \fi \else \imagexxx #1,,,\finish \fi } % % Arguments to @image: % #1 is (mandatory) image filename; we tack on .eps extension. % #2 is (optional) width, #3 is (optional) height. % #4 is just the usual extra ignored arg for parsing this stuff. \def\imagexxx#1,#2,#3,#4\finish{% \ifpdf \centerline{\dopdfimage{#1}{#2}{#3}}% \else % \epsfbox itself resets \epsf?size at each figure. \setbox0 = \hbox{\ignorespaces #2}\ifdim\wd0 > 0pt \epsfxsize=#2\relax \fi \setbox0 = \hbox{\ignorespaces #3}\ifdim\wd0 > 0pt \epsfysize=#3\relax \fi \begingroup \catcode`\^^M = 5 % in case we're inside an example % If the image is by itself, center it. \ifvmode \nobreak\bigskip % Usually we'll have text after the image which will insert % \parskip glue, so insert it here too to equalize the space % above and below. \nobreak\vskip\parskip \nobreak \centerline{\epsfbox{#1.eps}}% \bigbreak \else % In the middle of a paragraph, no extra space. \epsfbox{#1.eps}% \fi \endgroup \fi } \message{localization,} % and i18n. % @documentlanguage is usually given very early, just after % @setfilename. If done too late, it may not override everything % properly. Single argument is the language abbreviation. % It would be nice if we could set up a hyphenation file here. % \def\documentlanguage{\parsearg\dodocumentlanguage} \def\dodocumentlanguage#1{% \tex % read txi-??.tex file in plain TeX. % Read the file if it exists. \openin 1 txi-#1.tex \ifeof1 \errhelp = \nolanghelp \errmessage{Cannot read language file txi-#1.tex}% \let\temp = \relax \else \def\temp{\input txi-#1.tex }% \fi \temp \endgroup } \newhelp\nolanghelp{The given language definition file cannot be found or is empty. Maybe you need to install it? In the current directory should work if nowhere else does.} % @documentencoding should change something in TeX eventually, most % likely, but for now just recognize it. \let\documentencoding = \comment % Page size parameters. % \newdimen\defaultparindent \defaultparindent = 15pt \chapheadingskip = 15pt plus 4pt minus 2pt \secheadingskip = 12pt plus 3pt minus 2pt \subsecheadingskip = 9pt plus 2pt minus 2pt % Prevent underfull vbox error messages. \vbadness = 10000 % Don't be so finicky about underfull hboxes, either. \hbadness = 2000 % Following George Bush, just get rid of widows and orphans. \widowpenalty=10000 \clubpenalty=10000 % Use TeX 3.0's \emergencystretch to help line breaking, but if we're % using an old version of TeX, don't do anything. We want the amount of % stretch added to depend on the line length, hence the dependence on % \hsize. We call this whenever the paper size is set. % \def\setemergencystretch{% \ifx\emergencystretch\thisisundefined % Allow us to assign to \emergencystretch anyway. \def\emergencystretch{\dimen0}% \else \emergencystretch = .15\hsize \fi } % Parameters in order: 1) textheight; 2) textwidth; 3) voffset; % 4) hoffset; 5) binding offset; 6) topskip. Then whoever calls us can % set \parskip and call \setleading for \baselineskip. % \def\internalpagesizes#1#2#3#4#5#6{% \voffset = #3\relax \topskip = #6\relax \splittopskip = \topskip % \vsize = #1\relax \advance\vsize by \topskip \outervsize = \vsize \advance\outervsize by 2\topandbottommargin \pageheight = \vsize % \hsize = #2\relax \outerhsize = \hsize \advance\outerhsize by 0.5in \pagewidth = \hsize % \normaloffset = #4\relax \bindingoffset = #5\relax % \parindent = \defaultparindent \setemergencystretch } % @letterpaper (the default). \def\letterpaper{{\globaldefs = 1 \parskip = 3pt plus 2pt minus 1pt \setleading{13.2pt}% % % If page is nothing but text, make it come out even. \internalpagesizes{46\baselineskip}{6in}{\voffset}{.25in}{\bindingoffset}{36pt}% }} % Use @smallbook to reset parameters for 7x9.5 (or so) format. \def\smallbook{{\globaldefs = 1 \parskip = 2pt plus 1pt \setleading{12pt}% % \internalpagesizes{7.5in}{5.in}{\voffset}{.25in}{\bindingoffset}{16pt}% % \lispnarrowing = 0.3in \tolerance = 700 \hfuzz = 1pt \contentsrightmargin = 0pt \deftypemargin = 0pt \defbodyindent = .5cm % \let\smalldisplay = \smalldisplayx \let\smallexample = \smalllispx \let\smallformat = \smallformatx \let\smalllisp = \smalllispx }} % Use @afourpaper to print on European A4 paper. \def\afourpaper{{\globaldefs = 1 \setleading{12pt}% \parskip = 3pt plus 2pt minus 1pt % \internalpagesizes{53\baselineskip}{160mm}{\voffset}{4mm}{\bindingoffset}{44pt}% % \tolerance = 700 \hfuzz = 1pt }} % A specific text layout, 24x15cm overall, intended for A4 paper. Top margin % 29mm, hence bottom margin 28mm, nominal side margin 3cm. \def\afourlatex{{\globaldefs = 1 \setleading{13.6pt}% % \afourpaper \internalpagesizes{237mm}{150mm}{3.6mm}{3.6mm}{3mm}{7mm}% % \globaldefs = 0 }} % Use @afourwide to print on European A4 paper in wide format. \def\afourwide{% \afourpaper \internalpagesizes{9.5in}{6.5in}{\hoffset}{\normaloffset}{\bindingoffset}{7mm}% % \globaldefs = 0 } % @pagesizes TEXTHEIGHT[,TEXTWIDTH] % Perhaps we should allow setting the margins, \topskip, \parskip, % and/or leading, also. Or perhaps we should compute them somehow. % \def\pagesizes{\parsearg\pagesizesxxx} \def\pagesizesxxx#1{\pagesizesyyy #1,,\finish} \def\pagesizesyyy#1,#2,#3\finish{{% \setbox0 = \hbox{\ignorespaces #2}\ifdim\wd0 > 0pt \hsize=#2\relax \fi \globaldefs = 1 % \parskip = 3pt plus 2pt minus 1pt \setleading{13.2pt}% % \internalpagesizes{#1}{\hsize}{\voffset}{\normaloffset}{\bindingoffset}{44pt}% }} % Set default to letter. % \letterpaper \message{and turning on texinfo input format.} % Define macros to output various characters with catcode for normal text. \catcode`\"=\other \catcode`\~=\other \catcode`\^=\other \catcode`\_=\other \catcode`\|=\other \catcode`\<=\other \catcode`\>=\other \catcode`\+=\other \catcode`\$=\other \def\normaldoublequote{"} \def\normaltilde{~} \def\normalcaret{^} \def\normalunderscore{_} \def\normalverticalbar{|} \def\normalless{<} \def\normalgreater{>} \def\normalplus{+} \def\normaldollar{$} % This macro is used to make a character print one way in ttfont % where it can probably just be output, and another way in other fonts, % where something hairier probably needs to be done. % % #1 is what to print if we are indeed using \tt; #2 is what to print % otherwise. Since all the Computer Modern typewriter fonts have zero % interword stretch (and shrink), and it is reasonable to expect all % typewriter fonts to have this, we can check that font parameter. % \def\ifusingtt#1#2{\ifdim \fontdimen3\font=0pt #1\else #2\fi} % Same as above, but check for italic font. Actually this also catches % non-italic slanted fonts since it is impossible to distinguish them from % italic fonts. But since this is only used by $ and it uses \sl anyway % this is not a problem. \def\ifusingit#1#2{\ifdim \fontdimen1\font>0pt #1\else #2\fi} % Turn off all special characters except @ % (and those which the user can use as if they were ordinary). % Most of these we simply print from the \tt font, but for some, we can % use math or other variants that look better in normal text. \catcode`\"=\active \def\activedoublequote{{\tt\char34}} \let"=\activedoublequote \catcode`\~=\active \def~{{\tt\char126}} \chardef\hat=`\^ \catcode`\^=\active \def^{{\tt \hat}} \catcode`\_=\active \def_{\ifusingtt\normalunderscore\_} % Subroutine for the previous macro. \def\_{\leavevmode \kern.06em \vbox{\hrule width.3em height.1ex}} \catcode`\|=\active \def|{{\tt\char124}} \chardef \less=`\< \catcode`\<=\active \def<{{\tt \less}} \chardef \gtr=`\> \catcode`\>=\active \def>{{\tt \gtr}} \catcode`\+=\active \def+{{\tt \char 43}} \catcode`\$=\active \def${\ifusingit{{\sl\$}}\normaldollar} %\catcode 27=\active %\def^^[{$\diamondsuit$} % Set up an active definition for =, but don't enable it most of the time. {\catcode`\==\active \global\def={{\tt \char 61}}} \catcode`+=\active \catcode`\_=\active % If a .fmt file is being used, characters that might appear in a file % name cannot be active until we have parsed the command line. % So turn them off again, and have \everyjob (or @setfilename) turn them on. % \otherifyactive is called near the end of this file. \def\otherifyactive{\catcode`+=\other \catcode`\_=\other} \catcode`\@=0 % \rawbackslashxx output one backslash character in current font \global\chardef\rawbackslashxx=`\\ %{\catcode`\\=\other %@gdef@rawbackslashxx{\}} % \rawbackslash redefines \ as input to do \rawbackslashxx. {\catcode`\\=\active @gdef@rawbackslash{@let\=@rawbackslashxx }} % \normalbackslash outputs one backslash in fixed width font. \def\normalbackslash{{\tt\rawbackslashxx}} % \catcode 17=0 % Define control-q \catcode`\\=\active % Used sometimes to turn off (effectively) the active characters % even after parsing them. @def@turnoffactive{@let"=@normaldoublequote @let\=@realbackslash @let~=@normaltilde @let^=@normalcaret @let_=@normalunderscore @let|=@normalverticalbar @let<=@normalless @let>=@normalgreater @let+=@normalplus @let$=@normaldollar} @def@normalturnoffactive{@let"=@normaldoublequote @let\=@normalbackslash @let~=@normaltilde @let^=@normalcaret @let_=@normalunderscore @let|=@normalverticalbar @let<=@normalless @let>=@normalgreater @let+=@normalplus @let$=@normaldollar} % Make _ and + \other characters, temporarily. % This is canceled by @fixbackslash. @otherifyactive % If a .fmt file is being used, we don't want the `\input texinfo' to show up. % That is what \eatinput is for; after that, the `\' should revert to printing % a backslash. % @gdef@eatinput input texinfo{@fixbackslash} @global@let\ = @eatinput % On the other hand, perhaps the file did not have a `\input texinfo'. Then % the first `\{ in the file would cause an error. This macro tries to fix % that, assuming it is called before the first `\' could plausibly occur. % Also back turn on active characters that might appear in the input % file name, in case not using a pre-dumped format. % @gdef@fixbackslash{% @ifx\@eatinput @let\ = @normalbackslash @fi @catcode`+=@active @catcode`@_=@active } % Say @foo, not \foo, in error messages. @escapechar = `@@ % These look ok in all fonts, so just make them not special. @catcode`@& = @other @catcode`@# = @other @catcode`@% = @other @c Set initial fonts. @textfonts @rm @c Local variables: @c eval: (add-hook 'write-file-hooks 'time-stamp) @c page-delimiter: "^\\\\message" @c time-stamp-start: "def\\\\texinfoversion{" @c time-stamp-format: "%:y-%02m-%02d.%02H" @c time-stamp-end: "}" @c End: cutils-1.6/install.sh0100755000076500001450000000421206313302160014222 0ustar sandrosandro#!/bin/sh # # install - install a program, script, or datafile # This comes from X11R5; it is not part of GNU. # # $XConsortium: install.sh,v 1.2 89/12/18 14:47:22 jim Exp $ # # This script is compatible with the BSD install script, but was written # from scratch. # # set DOITPROG to echo to test this script # Don't use :- since 4.3BSD and earlier shells don't like it. doit="${DOITPROG-}" # put in absolute paths if you don't have them in your path; or use env. vars. mvprog="${MVPROG-mv}" cpprog="${CPPROG-cp}" chmodprog="${CHMODPROG-chmod}" chownprog="${CHOWNPROG-chown}" chgrpprog="${CHGRPPROG-chgrp}" stripprog="${STRIPPROG-strip}" rmprog="${RMPROG-rm}" instcmd="$mvprog" chmodcmd="" chowncmd="" chgrpcmd="" stripcmd="" rmcmd="$rmprog -f" mvcmd="$mvprog" src="" dst="" while [ x"$1" != x ]; do case $1 in -c) instcmd="$cpprog" shift continue;; -m) chmodcmd="$chmodprog $2" shift shift continue;; -o) chowncmd="$chownprog $2" shift shift continue;; -g) chgrpcmd="$chgrpprog $2" shift shift continue;; -s) stripcmd="$stripprog" shift continue;; *) if [ x"$src" = x ] then src=$1 else dst=$1 fi shift continue;; esac done if [ x"$src" = x ] then echo "install: no input file specified" exit 1 fi if [ x"$dst" = x ] then echo "install: no destination specified" exit 1 fi # If destination is a directory, append the input filename; if your system # does not like double slashes in filenames, you may need to add some logic if [ -d $dst ] then dst="$dst"/`basename $src` fi # Make a temp file name in the proper directory. dstdir=`dirname $dst` dsttmp=$dstdir/#inst.$$# # Move or copy the file name to the temp name $doit $instcmd $src $dsttmp # and set any options; do chmod last to preserve setuid bits if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; fi if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; fi if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; fi if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; fi # Now rename the file to the real destination. $doit $rmcmd $dst $doit $mvcmd $dsttmp $dst exit 0 cutils-1.6/lib/0040755000076500001450000000000007324331442012777 5ustar sandrosandrocutils-1.6/lib/Makefile.in0100644000076500001450000000107407323645170015050 0ustar sandrosandro# $Id: Makefile.in,v 1.8 2001/07/13 19:22:32 sandro Exp $ srcdir = @srcdir@ VPATH = $(srcdir) CC = @CC@ CFLAGS = -I.. @CFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = @LIBS@ RANLIB = @RANLIB@ LIB = libcutils.a OBJS = alist.o htable.o @LIBOBJS@ .c.o: $(CC) -c -I. -I$(srcdir) -I$(srcdir)/.. $(CFLAGS) $< all: $(LIB) $(LIB): $(OBJS) rm -f $(LIB) ar rc $(LIB) $(OBJS) $(RANLIB) $(LIB) .PHONY: install uninstall clean realclean distclean mostlyclean install: uninstall: clean: -rm -f $(LIB) *.o distclean: clean -rm -f Makefile realclean: distclean mostlyclean: clean cutils-1.6/lib/alist.30100644000076500001450000001600607324315542014202 0ustar sandrosandro.\" -*- nroff -*- .\" $Id: alist.3,v 1.2 2001/07/15 13:32:18 sandro Exp $ .Dd February 12, 2001 .Os .Dt ALIST 3 .Sh NAME .Nm alist .Nd Doubly-linked lists .Sh SYNOPSIS .Fd #include .Bd -literal typedef /* ... */ alist; alist alist_new(void); alist alist_copy(alist al); void alist_delete(alist al); void alist_clear(alist al); int alist_count(alist al); int alist_isempty(alist al); void * alist_first(alist al); void * alist_last(alist al); void * alist_prev(alist al); void * alist_next(alist al); void * alist_current(alist al); int alist_current_idx(alist al); void alist_insert(alist al, unsigned int i, void *p); void alist_prepend(alist al, void *p); void alist_append(alist al, void *p); int alist_remove(alist al); int alist_remove_ptr(alist al, void *p); int alist_remove_idx(alist al, unsigned int i); void * alist_take(alist al); void * alist_take_idx(alist al, unsigned int i); void alist_sort(alist al, int (*cmp)(const void *p1, const void *p2)); void * alist_at(alist al, unsigned int i); int alist_find(alist al, void *p); .Ed .Sh DESCRIPTION The .Nm library provides a high-level interface to doubly-linked lists. .Pp The library provides one type: .Fa alist . .Pp The .Fn alist_new function allocates a new empty list. .Pp The .Fn alist_copy function allocates a new list and fills it with the items of the argument list .Fa al . .Pp The .Fn alist_delete function deallocates the argument list .Fa al . .Pp The .Fn alist_clear function removes all the items from the argument list .Fa al . .Pp The .Fn alist_count function returns the number of items contained in the argument list .Fa al . .Pp The .Fn alist_isempty function returns a zero value if the argument list .Fa al is empty, non-zero otherwise. .Pp The .Fn alist_first function returns the first item of the argument list .Fa al . .Pp The .Fn alist_last function returns the last item of the argument list .Fa al . .Pp The .Fn alist_prev function returns the previous item of the argument list .Fa al . .Pp The .Fn alist_next function returns the next item of the argument list .Fa al . .Pp The .Fn alist_current function returns the current item of the argument list .Fa al . .Pp The .Fn alist_current_idx function returns the current item index of the argument list .Fa al . The first item has a zero index, while the latest item has .Fa alist_count(al)-1 index. .Pp The .Fn alist_insert function inserts the .Fa p item at position .Fa i . Previously existing items at position .Fa i will be moved after the inserted item. .Pp The .Fn alist_append function appends the .Fa p item to the argument list .Fa al . .Pp The .Fn alist_prepend function prepends the .Fa p item to the argument list .Fa al . .Pp The .Fn alist_remove function removes the current item from the argument list .Fa al . The function will return a zero value if the operation was successful, -1 otherwise. .Pp The .Fn alist_remove_ptr function removes the argument item .Fa p from the argument list .Fa al . The function will return a zero value if the operation was successful, -1 otherwise. .Pp The .Fn alist_remove_idx function removes the item at index .Fa i from the argument list .Fa al . The function will return a zero value if the operation was successful, -1 otherwise. .Pp The .Fn alist_take function removes the current item from the argument list .Fa al . The function will return the removed item. .Pp The .Fn alist_take_idx function removes the item at index .Fa i from the argument list .Fa al . The function will return the removed item. .Pp The .Fn alist_sort functions sorts the argument list .Fa al using the comparison function pointed by the argument .Fa cmp . .Pp The contents of the list are sorted in ascending order according to a comparison function pointed to by .Fa cmp , which is called with two arguments that point to the objects being compared. The comparison function must return an integer less than, equal to, or greater than zero if the first argument is considered to be respectively less than, equal to, or greater than the second. If two members compare as equal, their order in the sorted list is undefined. .Pp The .Fn alist_at function returns the item at index .Fa i contained in the argument list .Fa al . .Pp The .Fn alist_find function finds the first occurrence of the argument item .Fa p into the argument list .Fa al . .Sh DEBUGGING If you would like to debug your program, you should define the macro .Fa ALIST_NO_MACRO_DEFS before including the header of this library, i.e. .Bd -literal -offset indent #define ALIST_NO_MACRO_DEFS #include .Ed .Pp This prevents defining at least the following function macros that makes code faster but debugging harder: .Fn alist_isempty , .Fn alist_count , .Fn alist_first , .Fn alist_last , .Fn alist_prev , .Fn alist_next , .Fn alist_current , .Fn alist_current_idx . Side effects (like incrementing the argument) in parameters of these macros should be avoided. .Sh EXAMPLES Sorting and printing a list of words: .Bd -literal -offset indent int sorter(const void *p1, const void *p2) { return strcmp(*(char **)p1, *(char **)p2); } int main(void) { alist al; char *s; al = alist_new(); alist_append(al, "long"); alist_append(al, "int"); alist_append(al, "double"); alist_append(al, "char"); alist_append(al, "float"); alist_sort(al, sorter); for (s = alist_first(al); s != NULL; s = alist_next(al)) printf("Item #%d: %s\\n", alist_current_idx(al) + 1, s); alist_delete(al); return 0; } .Ed .Pp An address book: .Bd -literal -offset indent typedef struct person { char *first_name; char *last_name; char *phone; } person; int sorter(const void *p1, const void *p2) { person *pe1 = *(person **)p1, *pe2 = *(person **)p2; int v; if ((v = strcmp(pe1->last_name, pe2->last_name)) == 0) v = strcmp(pe1->first_name, pe2->first_name); return v; } int main(void) { alist al; person *p, p1, p2, p3, p4; al = alist_new(); p1.first_name = "Joe"; p1.last_name = "Green"; p1.phone = "555-123456"; p2.first_name = "Joe"; p2.last_name = "Doe"; p2.phone = "555-654321"; p3.first_name = "Dennis"; p3.last_name = "Ritchie"; p3.phone = "555-314159"; p4.first_name = "Brian"; p4.last_name = "Kernighan"; p4.phone = "555-271828"; alist_append(al, &p1); alist_append(al, &p2); alist_append(al, &p3); alist_append(al, &p4); alist_sort(al, sorter); for (p = alist_first(al); p != NULL; p = alist_next(al)) printf("Person #%d: %10s, %-10s Tel.: %s\\n", alist_current_idx(al) + 1, p->first_name, p->last_name, p->phone); alist_delete(al); return 0; } .Ed .Pp A list of lists: .Bd -literal -offset indent alist al1, al2, al3, al; char *s; al1 = alist_new(); al2 = alist_new(); al3 = alist_new(); alist_append(al2, "obj1"); alist_append(al2, "obj2"); alist_append(al2, "obj3"); alist_append(al3, "obja"); alist_append(al3, "objb"); alist_append(al3, "objc"); alist_append(al1, al2); alist_append(al1, al3); for (al = alist_first(al1); al != NULL; al = alist_next(al1)) for (s = alist_first(al); s != NULL; s = alist_next(al)) printf("String: %s\\n"); alist_delete(al1); alist_delete(al2); alist_delete(al3); .Ed .Sh AUTHORS Sandro Sigala cutils-1.6/lib/alist.c0100644000076500001450000002155107323643603014264 0ustar sandrosandro/* $Id: alist.c,v 1.1 2001/07/13 19:09:55 sandro Exp $ */ /* * Copyright (c) 2001 Sandro Sigala. 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 ``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 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. */ #ifdef TEST #undef NDEBUG #endif #include #include #include #include #include "config.h" #include "alist.h" static aentry aentry_new(void *p) { aentry ae; ae = (aentry)xmalloc(sizeof *ae); ae->p = p; ae->prev = ae->next = NULL; return ae; } static void aentry_delete(aentry ae) { ae->p = NULL; /* Useful for debugging. */ ae->prev = ae->next = NULL; free(ae); } static aentry find_aentry(alist al, unsigned int i) { aentry ae; unsigned int count; for (ae = al->head, count = 0; ae != NULL; ae = ae->next, ++count) if (count == i) return ae; return NULL; } static aentry find_aentry_ptr(alist al, void *p) { aentry ae; for (ae = al->head; ae != NULL; ae = ae->next) if (ae->p == p) return ae; return NULL; } alist alist_new(void) { alist al; al = (alist)xmalloc(sizeof *al); al->head = al->tail = al->current = NULL; al->idx = 0; al->size = 0; return al; } alist alist_copy(alist src) { alist al; aentry ae; assert(src != NULL); al = alist_new(); for (ae = src->head; ae != NULL; ae = ae->next) alist_append(al, ae->p); return al; } void alist_delete(alist al) { assert(al != NULL); alist_clear(al); free(al); } void alist_clear(alist al) { aentry ae, next; assert(al != NULL); for (ae = al->head; ae != NULL; ae = next) { next = ae->next; aentry_delete(ae); } al->head = al->tail = al->current = NULL; al->idx = 0; al->size = 0; } int (alist_count)(alist al) { return al->size; } int (alist_isempty)(alist al) { return al->size == 0; } void *(alist_first)(alist al) { assert(al != NULL); al->current = al->head; al->idx = 0; if (al->current != NULL) return al->current->p; return NULL; } void *(alist_last)(alist al) { assert(al != NULL); al->current = al->tail; if (al->current != NULL) { al->idx = al->size - 1; return al->current->p; } return NULL; } void *(alist_prev)(alist al) { assert(al != NULL); if (al->current != NULL) { al->current = al->current->prev; if (al->current != NULL) { --al->idx; return al->current->p; } else return NULL; } return NULL; } void *(alist_next)(alist al) { assert(al != NULL); if (al->current != NULL) { al->current = al->current->next; if (al->current != NULL) { ++al->idx; return al->current->p; } else return NULL; } return NULL; } void *(alist_current)(alist al) { assert(al != NULL); if (al->current != NULL) return al->current->p; return NULL; } int (alist_current_idx)(alist al) { if (al->current != NULL) return al->idx; return -1; } void alist_insert(alist al, unsigned int i, void *p) { if (i >= al->size) { i = al->size; alist_append(al, p); } else if (i == 0) alist_prepend(al, p); else { aentry oldae = find_aentry(al, i); aentry ae = aentry_new(p); ae->next = oldae; if (oldae->prev != NULL) { ae->prev = oldae->prev; ae->prev->next = ae; } oldae->prev = ae; al->current = ae; al->idx = i; ++al->size; } } void alist_prepend(alist al, void *p) { aentry ae; assert(al != NULL); ae = aentry_new(p); if (al->head != NULL) { al->head->prev = ae; ae->next = al->head; al->head = ae; } else al->head = al->tail = ae; al->current = ae; al->idx = 0; ++al->size; } void alist_append(alist al, void *p) { aentry ae; assert(al != NULL); ae = aentry_new(p); if (al->tail != NULL) { al->tail->next = ae; ae->prev = al->tail; al->tail = ae; } else al->head = al->tail = ae; al->current = ae; ++al->size; al->idx = al->size - 1; } static void take_off(alist al, aentry ae) { if (ae->prev != NULL) ae->prev->next = ae->next; if (ae->next != NULL) ae->next->prev = ae->prev; if (al->head == ae) al->head = ae->next; if (al->tail == ae) al->tail = ae->prev; al->current = NULL; al->idx = 0; --al->size; } int alist_remove(alist al) { aentry ae; assert(al != NULL); if ((ae = al->current) == NULL) return -1; take_off(al, ae); aentry_delete(ae); return 0; } int alist_remove_ptr(alist al, void *p) { aentry ae; assert(al != NULL); if ((ae = find_aentry_ptr(al, p)) != NULL) { take_off(al, ae); aentry_delete(ae); return 0; } return -1; } int alist_remove_idx(alist al, unsigned int i) { aentry ae; assert(al != NULL); if (i >= al->size) return -1; ae = find_aentry(al, i); take_off(al, ae); aentry_delete(ae); return 0; } void *alist_take(alist al) { aentry ae; void *p; assert(al != NULL); if ((ae = al->current) == NULL) return NULL; take_off(al, ae); p = ae->p; aentry_delete(ae); return p; } void *alist_take_idx(alist al, unsigned int i) { aentry ae; void *p; assert(al != NULL); if (i >= al->size) return NULL; ae = find_aentry(al, i); take_off(al, ae); p = ae->p; aentry_delete(ae); return p; } void alist_sort(alist al, int (*cmp)(const void *p1, const void *p2)) { void **vec; aentry ae; int i; assert(al != NULL && cmp != NULL); if (al->size == 0) return; vec = (void **)xmalloc(sizeof(void *) * al->size); for (ae = al->head, i = 0; ae != NULL; ae = ae->next, ++i) vec[i] = ae->p; qsort(vec, al->size, sizeof(void *), cmp); for (ae = al->head, i = 0; ae != NULL; ae = ae->next, ++i) ae->p = vec[i]; free(vec); } void *alist_at(alist al, unsigned int i) { aentry ae; assert(al != NULL); if (i >= al->size) return NULL; ae = find_aentry(al, i); return ae->p; } int alist_find(alist al, void *p) { aentry ae; unsigned int count; assert(al != NULL); for (ae = al->head, count = 0; ae != NULL; ae = ae->next, ++count) if (ae->p == p) return count; return -1; } #ifdef TEST int sorter(const void *p1, const void *p2) { return strcmp(*(char **)p1, *(char **)p2); } int main(void) { alist al; char *t1 = "def", *t2 = "abc", *t3 = "xyz"; char *s; al = alist_new(); assert(alist_count(al) == 0); assert(alist_current(al) == NULL); assert(alist_current_idx(al) == -1); alist_append(al, t1); assert(alist_count(al) == 1); assert(alist_current(al) == t1); assert(alist_current_idx(al) == 0); alist_append(al, t2); assert(alist_count(al) == 2); assert(alist_current(al) == t2); assert(alist_current_idx(al) == 1); s = alist_first(al); assert(s == t1); assert(alist_current(al) == t1); assert(alist_current_idx(al) == 0); s = alist_next(al); assert(s == t2); assert(alist_current(al) == t2); assert(alist_current_idx(al) == 1); s = alist_next(al); assert(s == NULL); assert(alist_current(al) == NULL); assert(alist_current_idx(al) == -1); alist_prepend(al, t3); assert(alist_count(al) == 3); assert(alist_current(al) == t3); assert(alist_current_idx(al) == 0); printf("elements:\n"); for (s = alist_first(al); s != NULL; s = alist_next(al)) printf("element %d: %s\n", alist_current_idx(al), s); alist_sort(al, sorter); printf("sorted elements:\n"); for (s = alist_first(al); s != NULL; s = alist_next(al)) printf("element %d: %s\n", alist_current_idx(al), s) ; assert(alist_at(al, 0) == t2); assert(alist_at(al, 1) == t1); assert(alist_at(al, 2) == t3); alist_clear(al); assert(alist_count(al) == 0); assert(alist_current(al) == NULL); assert(alist_current_idx(al) == -1); alist_insert(al, 5, t1); assert(alist_count(al) == 1); assert(alist_current(al) == t1); assert(alist_current_idx(al) == 0); alist_insert(al, 0, t2); assert(alist_count(al) == 2); assert(alist_current(al) == t2); assert(alist_current_idx(al) == 0); alist_insert(al, 1, t3); assert(alist_count(al) == 3); assert(alist_at(al, 0) == t2); assert(alist_at(al, 1) == t3); assert(alist_at(al, 2) == t1); assert(alist_current(al) == t3); assert(alist_current_idx(al) == 1); alist_delete(al); printf("alist test successful.\n"); return 0; } #endif /* TEST */ cutils-1.6/lib/alist.h0100644000076500001450000000676607323643603014304 0ustar sandrosandro/* $Id: alist.h,v 1.1 2001/07/13 19:09:55 sandro Exp $ */ /* * Copyright (c) 2001 Sandro Sigala. 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 ``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 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. */ #ifndef ALIST_H #define ALIST_H #include typedef struct alist_s *alist; extern alist alist_new(void); extern alist alist_copy(alist al); extern void alist_delete(alist al); extern void alist_clear(alist al); extern int alist_count(alist al); extern int alist_isempty(alist al); extern void * alist_first(alist al); extern void * alist_last(alist al); extern void * alist_prev(alist al); extern void * alist_next(alist al); extern void * alist_current(alist al); extern int alist_current_idx(alist al); extern void alist_insert(alist al, unsigned int i, void *p); extern void alist_prepend(alist al, void *p); extern void alist_append(alist al, void *p); extern int alist_remove(alist al); extern int alist_remove_ptr(alist al, void *p); extern int alist_remove_idx(alist al, unsigned int i); extern void * alist_take(alist al); extern void * alist_take_idx(alist al, unsigned int i); extern void alist_sort(alist al, int (*cmp)(const void *p1, const void *p2)); extern void * alist_at(alist al, unsigned int i); extern int alist_find(alist al, void *p); /* * Internal data structures * * You should never access directly to the following data. */ typedef struct aentry_s *aentry; struct aentry_s { void * p; aentry prev; aentry next; }; struct alist_s { aentry head; aentry tail; aentry current; int idx; size_t size; }; #ifndef ALIST_NO_MACRO_DEFS /* * Fast macro definitions. */ #define alist_isempty(al) (al->size == 0) #define alist_count(al) (al->size) #define alist_first(al) (al->idx = 0, (al->current = al->head) != NULL ? al->current->p : NULL) #define alist_last(al) ((al->current = al->tail) != NULL ? (al->idx = al->size - 1, a->current->p) : NULL) #define alist_prev(al) ((al->current != NULL) ? (al->current = al->current->prev, (al->current != NULL) ? --al->idx, al->current->p : NULL) : NULL) #define alist_next(al) ((al->current != NULL) ? (al->current = al->current->next, (al->current != NULL) ? ++al->idx, al->current->p : NULL) : NULL) #define alist_current(al) ((al->current != NULL) ? al->current->p : NULL) #define alist_current_idx(al) ((al->current != NULL) ? al->idx : -1) #endif /* !ALIST_NO_MACRO_DEFS */ #endif /* !ALIST_H */ cutils-1.6/lib/err.c0100644000076500001450000000547207324076171013745 0ustar sandrosandro/* $Id: err.c,v 1.5 2001/07/14 17:08:09 sandro Exp $ */ /* * Copyright (c) 1997-2001 Sandro Sigala. 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 ``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 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. */ /* * 4.4BSD err(), warn() functions reimplementation. */ #include #include #include #include #include #include "err.h" /* The name of the running program. */ extern char *progname; void err(int status, const char *fmt, ...) { va_list ap; va_start(ap, fmt); verr(status, fmt, ap); va_end(ap); } void verr(int status, const char *fmt, va_list ap) { int olderrno = errno; fprintf(stderr, "%s: ", progname); if (fmt != NULL) { vfprintf(stderr, fmt, ap); fprintf(stderr, ": "); } fprintf(stderr, "%s\n", strerror(olderrno)); exit(status); } void errx(int status, const char *fmt, ...) { va_list ap; va_start(ap, fmt); verrx(status, fmt, ap); va_end(ap); } void verrx(int status, const char *fmt, va_list ap) { fprintf(stderr, "%s: ", progname); if (fmt != NULL) vfprintf(stderr, fmt, ap); fputc('\n', stderr); exit(status); } void warn(const char *fmt, ...) { va_list ap; va_start(ap, fmt); vwarn(fmt, ap); va_end(ap); } void vwarn(const char *fmt, va_list ap) { int olderrno = errno; fprintf(stderr, "%s: ", progname); if (fmt != NULL) { vfprintf(stderr, fmt, ap); fprintf(stderr, ": "); } fprintf(stderr, "%s\n", strerror(olderrno)); } void warnx(const char *fmt, ...) { va_list ap; va_start(ap, fmt); vwarnx(fmt, ap); va_end(ap); } void vwarnx(const char *fmt, va_list ap) { fprintf(stderr, "%s: ", progname); if (fmt != NULL) vfprintf(stderr, fmt, ap); fputc('\n', stderr); } cutils-1.6/lib/err.h0100644000076500001450000000347207324076171013750 0ustar sandrosandro/* $Id: err.h,v 1.4 2001/07/14 17:08:09 sandro Exp $ */ /* * Copyright (c) 1997-2001 Sandro Sigala. 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 ``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 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. */ #ifndef ERR_H #define ERR_H #include extern void err(int status, const char *fmt, ...); extern void verr(int status, const char *fmt, va_list ap); extern void errx(int status, const char *fmt, ...); extern void verrx(int status, const char *fmt, va_list ap); extern void warn(const char *fmt, ...); extern void vwarn(const char *fmt, va_list ap); extern void warnx(const char *fmt, ...); extern void vwarnx(const char *fmt, va_list ap); #endif /* !ERR_H */ cutils-1.6/lib/htable.30100644000076500001450000001015307324315542014322 0ustar sandrosandro.\" -*- nroff -*- .\" $Id: htable.3,v 1.2 2001/07/15 13:32:18 sandro Exp $ .Dd February 12, 2001 .Os .Dt HTABLE 3 .Sh NAME .Nm htable .Nd Hash table library .Sh SYNOPSIS .Fd #include .Bd -literal typedef /* ... */ htable; typedef struct { char *key; void *data; } hpair; typedef unsigned long (*hfunc_t)(const char *data, unsigned long table_size); htable htable_new(void); htable htable_new_custom(unsigned long size); void htable_delete(htable ht); void htable_set_hash_func(htable ht, hfunc_t func); int htable_store_key(htable ht, const char *key); int htable_store_data(htable ht, const char *key, void *data); int htable_store(htable ht, const char *key, void *data); int htable_exists(htable ht, const char *key); void * htable_fetch(htable ht, const char *key); int htable_remove(htable ht, const char *key); void htable_dump(htable ht, FILE *fout); alist htable_list(htable ht); .Ed .Sh DESCRIPTION The .Nm hash table library provides a generic-purpose hash table interface. .Pp The library provides three types: .Fa htable , .Fa hpair , and .Fa hfunc_t . The .Fa htable type stores all the data contained into a hash table. The .Fa hpair type is used by the .Fn htable_list function to store the hash table pairs. The .Fa hfunc_t type is used by the .Fn htable_set_hash_func function to specify a new hashing function. .Pp The .Fn htable_new function allocates a new hash table with default size. .Pp The .Fn htable_new_custom function allocates a new hash table, with the specified size .Fa size . .Pp The .Fn htable_delete function deallocates the previously allocated hash table .Fa ht . .Pp The .Fn htable_set_hash_func function specifies a new hashing fuction for the hash table .Fa ht . .Pp The .Fn htable_store_key function stores the key .Fa key into the hash table .Fa ht , with an associated data set to .Fa NULL . If the key is already existing, the .Fn htable_store_key function will return the value -1, otherwise 0. .Pp The .Fn htable_store_data function associates the data .Fa data with the key .Fa key . If the key does not existing into the hash table, the key/data pair will not be stored and the .Fn htable_store_data function will return the value -1, otherwise 0. .Pp The .Fn htable_store function stores a key/data pair into the hash table .Fa ht . Existing key/data pair will be overwritten. .Pp The .Fn htable_exists function returns 1 if the specified key .Fa key exists in the hash table .Fa ht , 0 otherwise. .Pp The .Fn htable_fetch function returns the data associated to the specified key .Fa key . If the key does not exist or no data was associated with the key, a .Fa NULL value will be returned. .Pp The .Fn htable_remove function removes the specified key .Fa key from the hash table .Fa ht . The .Fn htable_remove function returns 1 if the specified key .Fa key exists in the hash table .Fa ht , 0 otherwise. .Pp The .Fn htable_dump function dumps a user readable description of the hash table .Fa ht to the specified file .Fa fout . This is useful for debugging purposes. .Pp The .Fn htable_list function returns a new allocated (unsorted) list filled with all the pairs (of type .Fa hpair ) defined in the hash table. After use, the list should be deallocated (but not the elements, because they belong to the hash table). .Sh EXAMPLES Creating a hash table with some keys: .Bd -literal -offset indent htable ht = htable_new(); htable_store_key(ht, "key1"); htable_store_key(ht, "key2"); htable_store(ht, "key3", "key with data"); htable_store_key(ht, "key4"); htable_remove(ht, "key4"); printf("key1: %d\\n", htable_exists(ht, "key1")); printf("key2: %d\\n", htable_exists(ht, "key2")); printf("key3: %d\\n", htable_exists(ht, "key3")); printf("key4: %d\\n", htable_exists(ht, "key4")); printf("key5: %d\\n", htable_exists(ht, "key5")); printf("key3 data: %s\\n", htable_fetch(ht, "key3")); htable_delete(ht); .Ed .Pp Dumping a hash table: .Bd -literal -offset indent htable ht = htable_new(); htable_store_key(ht, "key1"); htable_store_key(ht, "key2"); /* ... */ htable_dump(ht, stdout); htable_delete(ht); .Ed .Sh SEE ALSO .Xr alist 3 .Sh AUTHORS Sandro Sigala cutils-1.6/lib/htable.c0100644000076500001450000001530607323636735014420 0ustar sandrosandro/* $Id: htable.c,v 1.1 2001/07/13 18:28:45 sandro Exp $ */ /* * Copyright (c) 1997-2001 Sandro Sigala. 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 ``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 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. */ #ifdef TEST #undef NDEBUG #endif #include #include #include #include "config.h" #include "htable.h" #define HTABLE_DEFAULT_SIZE 127 typedef struct hbucket_s *hbucket; struct hbucket_s { hpair pair; hbucket next; }; struct htable_s { unsigned long size; hbucket *table; hfunc_t hfunc; }; /* * Default hashing function. */ static unsigned long htable_hash(const char *p, unsigned long size) { unsigned long hash = 0, g; while (*p != '\0') { hash = (hash << 4) + *p++; if ((g = hash & 0xF0000000) != 0) hash ^= g >> 24; hash &= ~g; } return hash % size; } static hbucket build_bucket(const char *key) { hbucket ptr; ptr = (hbucket)xmalloc(sizeof(*ptr)); memset(ptr, 0, sizeof(*ptr)); ptr->pair.key = xstrdup(key); return ptr; } static void free_bucket(hbucket ptr) { if (ptr->pair.key != NULL) free(ptr->pair.key); free(ptr); } htable htable_new(void) { return htable_new_custom(HTABLE_DEFAULT_SIZE); } htable htable_new_custom(unsigned long size) { htable ptr; ptr = (htable)xmalloc(sizeof(*ptr)); ptr->size = size; ptr->table = (hbucket *)xmalloc(ptr->size * sizeof(hbucket)); memset(ptr->table, 0, ptr->size * sizeof(hbucket)); ptr->hfunc = htable_hash; return ptr; } void htable_delete(htable ht) { hbucket bucket, next; unsigned int i; for (i = 0; i < ht->size; i++) { bucket = ht->table[i]; while (bucket != NULL) { next = bucket->next; free_bucket(bucket); bucket = next; } } free(ht->table); free(ht); } void htable_set_hash_func(htable ht, hfunc_t hfunc) { ht->hfunc = hfunc; } int htable_store_key(htable ht, const char *key) { unsigned long hash; if (htable_exists(ht, key)) return -1; hash = ht->hfunc(key, ht->size); if (ht->table[hash] == NULL) ht->table[hash] = build_bucket(key); else { hbucket bucket = build_bucket(key); bucket->next = ht->table[hash]; ht->table[hash] = bucket; } return 0; } int htable_store_data(htable ht, const char *key, void *data) { hbucket bucket; unsigned long hash; hash = ht->hfunc(key, ht->size); for (bucket = ht->table[hash]; bucket != NULL; bucket = bucket->next) if (!strcmp(bucket->pair.key, key)) { bucket->pair.data = data; return 0; } return -1; } int htable_store(htable ht, const char *key, void *data) { if (htable_exists(ht, key)) htable_remove(ht, key); htable_store_key(ht, key); htable_store_data(ht, key, data); return 0; } int htable_exists(htable ht, const char *key) { hbucket bucket; unsigned long hash; hash = ht->hfunc(key, ht->size); for (bucket = ht->table[hash]; bucket != NULL; bucket = bucket->next) if (!strcmp(bucket->pair.key, key)) return 1; return 0; } void *htable_fetch(htable ht, const char *key) { hbucket bucket; unsigned long hash; hash = ht->hfunc(key, ht->size); for (bucket = ht->table[hash]; bucket != NULL; bucket = bucket->next) if (!strcmp(bucket->pair.key, key)) return bucket->pair.data; return NULL; } int htable_remove(htable ht, const char *key) { hbucket bucket, last = NULL; unsigned long hash; hash = ht->hfunc(key, ht->size); for (bucket = ht->table[hash]; bucket != NULL; bucket = bucket->next) { if (!strcmp(bucket->pair.key, key)) { if (bucket == ht->table[hash]) ht->table[hash] = bucket->next; else last->next = bucket->next; free_bucket(bucket); return 0; } last = bucket; } return -1; } void htable_dump(htable ht, FILE *fout) { hbucket bucket; unsigned int i; int nelements = 0, dups = 0; fprintf(fout, "Hash table dump:\n"); for (i = 0; i < ht->size; ++i) { bucket = ht->table[i]; if (bucket != NULL) { fprintf(fout, "table[%d] = {\n", i); for (; bucket != NULL; bucket = bucket->next) { ++nelements; if (bucket != ht->table[i]) ++dups; fprintf(fout, "\ttable[\"%s\"] = %p\n", bucket->pair.key, bucket->pair.data); } fprintf(fout, "}\n"); } } fprintf(fout, "Table size: %ld\n", ht->size); fprintf(fout, "Number of elements: %d\n", nelements); fprintf(fout, "Duplicated hash values: %d\n", dups); fprintf(fout, "Performance: %.2f%%\n", (1-(float)dups/nelements)*100); } alist htable_list(htable ht) { alist al; hbucket bucket; unsigned int i; al = alist_new(); for (i = 0; i < ht->size; ++i) if ((bucket = ht->table[i]) != NULL) for (; bucket != NULL; bucket = bucket->next) alist_append(al, &bucket->pair); return al; } #ifdef TEST int main(void) { htable ht = htable_new(); assert(htable_store_key(ht, "hello") == 0); assert(htable_store_key(ht, "world") == 0); assert(htable_store_key(ht, "bar") == 0); assert(htable_store_key(ht, "hello") != 0); assert(htable_exists(ht, "hello")); assert(htable_exists(ht, "world")); assert(htable_remove(ht, "world") == 0); assert(!htable_exists(ht, "world")); assert(htable_store_key(ht, "world") == 0); assert(htable_store_data(ht, "hello", "hello data") == 0); assert(htable_store_data(ht, "baz", "baz data") != 0); assert(!htable_exists(ht, "baz")); assert(htable_store(ht, "foo", "foo data") == 0); assert(htable_store_key(ht, "var1") == 0); assert(htable_store_key(ht, "var2") == 0); assert(htable_fetch(ht, "foo") != NULL && !strcmp(htable_fetch(ht, "foo"), "foo data")); assert(htable_fetch(ht, "hello") != NULL && !strcmp(htable_fetch(ht, "hello"), "hello data")); htable_dump(ht, stdout); htable_delete(ht); printf("htable test successful.\n"); return 0; } #endif /* TEST */ cutils-1.6/lib/htable.h0100644000076500001450000000437407323636735014430 0ustar sandrosandro/* $Id: htable.h,v 1.1 2001/07/13 18:28:45 sandro Exp $ */ /* * Copyright (c) 1997-2001 Sandro Sigala. 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 ``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 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. */ #ifndef HTABLE_H #define HTABLE_H #include #include "alist.h" typedef unsigned long (*hfunc_t)(const char *data, unsigned long table_size); typedef struct hpair_s { char *key; void *data; } hpair; typedef struct htable_s *htable; extern htable htable_new(void); extern htable htable_new_custom(unsigned long size); extern void htable_delete(htable ht); extern void htable_set_hash_func(htable ht, hfunc_t hfunc); extern int htable_store_key(htable ht, const char *key); extern int htable_store_data(htable ht, const char *key, void *data); extern int htable_store(htable ht, const char *key, void *data); extern int htable_exists(htable ht, const char *key); extern void * htable_fetch(htable ht, const char *key); extern int htable_remove(htable ht, const char *key); extern void htable_dump(htable ht, FILE *fout); extern alist htable_list(htable ht); #endif /* !HTABLE_H */ cutils-1.6/lib/xmalloc.c0100644000076500001450000000056107323636735014615 0ustar sandrosandro/* $Id: xmalloc.c,v 1.5 2001/07/13 18:28:45 sandro Exp $ */ #include #include #include #include "config.h" /* * Return an allocated memory area. */ void *(xmalloc)(size_t size) { void *ptr; assert(size > 0); if ((ptr = malloc(size)) == NULL) { fprintf(stderr, "zile: cannot allocate memory\n"); exit(1); } return ptr; } cutils-1.6/lib/xrealloc.c0100644000076500001450000000064307323636735014770 0ustar sandrosandro/* $Id: xrealloc.c,v 1.5 2001/07/13 18:28:45 sandro Exp $ */ #include #include #include #include "config.h" /* * Resize an allocated memory area. */ void *(xrealloc)(void *ptr, size_t size) { void *newptr; assert(ptr != NULL); assert(size > 0); if ((newptr = realloc(ptr, size)) == NULL) { fprintf(stderr, "zile: cannot allocate memory\n"); exit(1); } return newptr; } cutils-1.6/lib/xstrdup.c0100644000076500001450000000032307323636735014663 0ustar sandrosandro/* $Id: xstrdup.c,v 1.4 2001/07/13 18:28:45 sandro Exp $ */ #include #include "config.h" /* * Duplicate a string. */ char *(xstrdup)(const char *s) { return strcpy(xmalloc(strlen(s) + 1), s); } cutils-1.6/mkinsdir.sh0100755000076500001450000000113606313302161014377 0ustar sandrosandro#! /bin/sh # mkinstalldirs --- make directory hierarchy # Author: Noah Friedman # Created: 1993-05-16 # Public domain errstatus=0 for file do set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` shift pathcomp= for d in ${1+"$@"} ; do pathcomp="$pathcomp$d" case "$pathcomp" in -* ) pathcomp=./$pathcomp ;; esac if test ! -d "$pathcomp"; then echo "mkdir $pathcomp" 1>&2 mkdir "$pathcomp" || errstatus=$? fi pathcomp="$pathcomp/" done done exit $errstatus # mkinstalldirs ends here cutils-1.6/src/0040755000076500001450000000000007324331443013021 5ustar sandrosandrocutils-1.6/src/Makefile.in0100644000076500001450000000051107323644552015067 0ustar sandrosandro# $Id: Makefile.in,v 1.9 2001/07/13 19:18:02 sandro Exp $ subdirs = cdecl chilight cobfusc cundecl cunloop yyextract yyref all install uninstall clean realclean mostlyclean: @for f in $(subdirs); do \ (cd $$f && $(MAKE) $@); \ done distclean: @for f in $(subdirs); do \ (cd $$f && $(MAKE) $@); \ done -rm -f Makefile cutils-1.6/src/cdecl/0040755000076500001450000000000007324331443014073 5ustar sandrosandrocutils-1.6/src/cdecl/Makefile.in0100644000076500001450000000241707323646544016153 0ustar sandrosandro# $Id: Makefile.in,v 1.9 2001/07/13 19:35:00 sandro Exp $ srcdir = @srcdir@ VPATH = $(srcdir) DESTDIR = prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ mandir = @mandir@/man1 INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ INSTALL = @INSTALL@ CC = @CC@ CFLAGS = -I../.. -I$(srcdir)/../.. -I$(srcdir)/../../lib @CFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = ../../lib/libcutils.a @LIBS@ LEX = @LEX@ YACC = @YACC@ PROG = cdecl OBJS = cdecl.o parser.o lexer.o .c.o: $(CC) -c -I. -I$(srcdir) $(CFLAGS) $< all: $(PROG) $(PROG): $(OBJS) $(CC) $(LDFLAGS) -o $(PROG) $(OBJS) $(LIBS) parser.c parser.h: parser.y $(YACC) -d $(srcdir)/parser.y mv y.tab.c parser.c mv y.tab.h parser.h parser.o lexer.o: parser.h lexer.c: lexer.l $(LEX) $(srcdir)/lexer.l mv lex.yy.c lexer.c .PHONY: install uninstall clean realclean distclean mostlyclean install: $(PROG) $(srcdir)/../../mkinsdir.sh $(DESTDIR)$(bindir) $(DESTDIR)$(mandir) $(INSTALL_PROGRAM) $(PROG) $(DESTDIR)$(bindir) $(INSTALL_DATA) $(srcdir)/$(PROG).1 $(DESTDIR)$(mandir)/$(PROG).1 uninstall: rm -f $(DESTDIR)$(bindir)/$(PROG) rm -f $(DESTDIR)$(mandir)/$(PROG).1 clean: -rm -f $(PROG) *.o -rm -f parser.c parser.h lexer.c distclean: clean -rm -f Makefile realclean: distclean mostlyclean: clean cutils-1.6/src/cdecl/cdecl.10100644000076500001450000000142307324330274015225 0ustar sandrosandro.\" $Id: cdecl.1,v 1.15 2001/07/15 15:03:24 ncvs Exp $ .Dd July 15, 2001 .Os .Dt CDECL 1 .Sh NAME .Nm cdecl .Nd decode C type declarations .Sh SYNOPSIS .Nm cdecl .Op Fl V .Op Fl o Ar file .Op Ar .Sh DESCRIPTION The .Nm cdecl utility decodes C type declarations producing a verbose description. Casts are accepted as well. .Pp The options are as follows: .Bl -tag -width indent .It Fl o Ar file Set the output destination to .Ar file . .It Fl V Print version information on standard output then exit. .El .Sh EXAMPLES .Bd -literal char *s; void (*signal(int sig, void (*func)(int)))(int); (const char *)s; (void (*)(int))signal_function; .Ed .Sh SEE ALSO .Xr cundecl 1 .Sh STANDARDS The .Nm utility is expected to be .St -ansiC-89 compatible. .Sh AUTHORS Sandro Sigala cutils-1.6/src/cdecl/cdecl.c0100644000076500001450000000506607323643603015320 0ustar sandrosandro/* $Id: cdecl.c,v 1.18 2001/07/13 19:09:55 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ #include #include #include #include #include #include "config.h" extern int lineno; extern FILE *yyin; extern int yyparse(void); FILE *output_file; static void process_file(char *filename) { if (filename != NULL && strcmp(filename, "-") != 0) { if ((yyin = fopen(filename, "r")) == NULL) err(1, "%s", filename); } else yyin = stdin; lineno = 1; yyparse(); if (yyin != stdin) fclose(yyin); } /* * Output the program syntax then exit. */ static void usage(void) { fprintf(stderr, "usage: cdecl [-V] [-o file] [file ...]\n"); exit(1); } /* * Used by the err() functions. */ char *progname; int main(int argc, char **argv) { int c; progname = argv[0]; output_file = stdout; while ((c = getopt(argc, argv, "o:V")) != -1) switch (c) { case 'o': if (output_file != stdout) fclose(output_file); if ((output_file = fopen(optarg, "w")) == NULL) err(1, "%s", optarg); break; case 'V': fprintf(stderr, "%s\n", CUTILS_VERSION); exit(0); case '?': default: usage(); /* NOTREACHED */ } argc -= optind; argv += optind; if (argc < 1) process_file(NULL); else while (*argv) process_file(*argv++); return 0; } cutils-1.6/src/cdecl/lexer.l0100644000076500001450000000456207323643603015376 0ustar sandrosandro/* $Id: lexer.l,v 1.14 2001/07/13 19:09:55 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ %{ #include #include "parser.h" int lineno = 1; static int yywrap(void) { return 1; } %} %% "\n" { lineno++; } [ \t\v\f\r] /* eat whitespaces */ "auto" { return AUTO; } "char" { return CHAR; } "const" { return CONST; } "double" { return DOUBLE; } "enum" { return ENUM; } "extern" { return EXTERN; } "float" { return FLOAT; } "int" { return INT; } "long" { return LONG; } "register" { return REGISTER; } "short" { return SHORT; } "signed" { return SIGNED; } "static" { return STATIC; } "struct" { return STRUCT; } "typedef" { return TYPEDEF; } "union" { return UNION; } "unsigned" { return UNSIGNED; } "void" { return VOID; } "volatile" { return VOLATILE; } [a-zA-Z_][a-zA-Z_0-9]* { return IDENTIFIER; } [0-9]+ { return NUMBER; } "," { return ','; } ";" { return ';'; } "*" { return '*'; } "(" { return '('; } ")" { return ')'; } "[" { return '['; } "]" { return ']'; } "..." { return ELLIPSIS; } . { errx(1, "%d: unexpected character `%c'", lineno, yytext[0]); } %% cutils-1.6/src/cdecl/parser.y0100644000076500001450000002031507323643603015562 0ustar sandrosandro/* $Id: parser.y,v 1.27 2001/07/13 19:09:55 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ /* * This grammar should be full ANSI C compilant. */ %{ #include #include #include #include #include #include "config.h" extern int lineno; #ifdef YYTEXT_POINTER extern char *yytext; #else extern char yytext[]; #endif extern FILE *output_file; static void yyerror(char *); static char *cat(char *, ...); static int cast; static char *ident; #define dup(s) xstrdup(s) %} %union { char *string; } %token TYPEDEF EXTERN STATIC AUTO REGISTER %token VOID CHAR SHORT INT LONG FLOAT DOUBLE SIGNED UNSIGNED %token CONST VOLATILE STRUCT UNION ENUM %token ELLIPSIS IDENTIFIER NUMBER %type declaration_specifiers storage_class_specifier type_specifier %type tag_specifier struct_or_union_or_enum specifier_qualifier_list %type type_qualifier identifier declarator direct_declarator %type pointer type_qualifier_list parameter_type_list parameter_list %type parameter_declaration identifier_list type_name %type abstract_declarator direct_abstract_declarator %type constant_expression storage_class_specifier_opt %% file: /* empty */ | declaration_or_cast_list ; declaration_or_cast_list: declaration_or_cast | declaration_or_cast_list declaration_or_cast ; declaration_or_cast: no_cast declaration | init_cast cast ; init_cast: { cast = 1; } ; no_cast: { cast = 0; } ; cast: '(' type_name ')' identifier ';' { char *s = cat(dup("cast"), $4, dup(" into"), $2, NULL); fprintf(output_file, "%s;\n", s); free(s); } ; declaration: storage_class_specifier_opt declaration_specifiers declarator ';' { char *s = cat(dup("declare"), ident, dup(" as"), $1, $3, $2, NULL); fprintf(output_file, "%s;\n", s); free(s); ident = NULL; } ; storage_class_specifier_opt: /* empty */ { $$ = dup(""); } | storage_class_specifier { $$ = $1; } ; declaration_specifiers: type_specifier { $$ = $1; } | type_specifier declaration_specifiers { $$ = cat($1, $2, NULL); } | type_qualifier { $$ = $1; } | type_qualifier declaration_specifiers { $$ = cat($1, $2, NULL); } ; storage_class_specifier: TYPEDEF { $$ = dup(" typedef"); } | EXTERN { $$ = dup(" extern"); } | STATIC { $$ = dup(" static"); } | AUTO { $$ = dup(" auto"); } | REGISTER { $$ = dup(" register"); } ; type_specifier: VOID { $$ = dup(" void"); } | CHAR { $$ = dup(" char"); } | SHORT { $$ = dup(" short"); } | INT { $$ = dup(" int"); } | LONG { $$ = dup(" long"); } | FLOAT { $$ = dup(" float"); } | DOUBLE { $$ = dup(" double"); } | SIGNED { $$ = dup(" signed"); } | UNSIGNED { $$ = dup(" unsigned"); } | tag_specifier { $$ = $1; } ; tag_specifier: struct_or_union_or_enum identifier { $$ = cat($1, $2, NULL); } ; struct_or_union_or_enum: STRUCT { $$ = dup(" struct"); } | UNION { $$ = dup(" union"); } | ENUM { $$ = dup(" enum"); } ; specifier_qualifier_list: type_specifier specifier_qualifier_list { $$ = cat($1, $2, NULL); } | type_specifier { $$ = $1; } | type_qualifier specifier_qualifier_list { $$ = cat($1, $2, NULL); } | type_qualifier { $$ = $1; } ; type_qualifier: CONST { $$ = dup(" const"); } | VOLATILE { $$ = dup(" volatile"); } ; identifier: IDENTIFIER { $$ = cat(dup(" "), dup(yytext), NULL); } ; declarator: pointer direct_declarator { $$ = cat($2, $1, NULL); } | direct_declarator { $$ = $1; } ; direct_declarator: identifier { if (ident == NULL && !cast) { ident = $1; $$ = dup(""); } else $$ = cat($1, dup(" as"), NULL); } | '(' declarator ')' { $$ = $2; } | direct_declarator '[' constant_expression ']' { $$ = cat($1, dup(" array["), $3, dup("] of"), NULL); } | direct_declarator '[' ']' { $$ = cat($1, dup(" array of"), NULL); } | direct_declarator '(' parameter_type_list ')' { $$ = cat($1, dup(" function that expects ("), dup($3+1), dup(") returning"), NULL); free($3); } | direct_declarator '(' identifier_list ')' { $$ = cat($1, dup(" function that expects ("), dup($3+1), dup(") returning"), NULL); free($3); } | direct_declarator '(' ')' { $$ = cat($1, dup(" function returning"), NULL); } ; pointer: '*' { $$ = dup(" pointer to"); } | '*' type_qualifier_list { $$ = cat($2, dup(" pointer to"), NULL); } | '*' pointer { $$ = cat($2, dup(" pointer to"), NULL); } | '*' type_qualifier_list pointer { $$ = cat($3, $2, dup(" pointer to"), NULL); } ; type_qualifier_list: type_qualifier { $$ = $1; } | type_qualifier_list type_qualifier { $$ = cat($1, $2, NULL); } ; parameter_type_list: parameter_list { $$ = $1; } | parameter_list ',' ELLIPSIS { $$ = cat($1, dup(", ..."), NULL); } ; parameter_list: parameter_declaration { $$ = $1; } | parameter_list ',' parameter_declaration { $$ = cat($1, dup(","), $3, NULL); } ; parameter_declaration: declaration_specifiers declarator { $$ = cat($2, $1, NULL); } | declaration_specifiers abstract_declarator { $$ = cat($2, $1, NULL); } | declaration_specifiers { $$ = $1; } ; identifier_list: identifier { $$ = $1; } | identifier_list ',' identifier { $$ = cat($1, dup(","), $3, NULL); } ; type_name: specifier_qualifier_list { $$ = $1; } | specifier_qualifier_list abstract_declarator { $$ = cat($2, $1, NULL); } ; abstract_declarator: pointer { $$ = $1; } | direct_abstract_declarator { $$ = $1; } | pointer direct_abstract_declarator { $$ = cat($2, $1, NULL); } ; direct_abstract_declarator: '(' abstract_declarator ')' { $$ = $2; } | '[' ']' { $$ = dup(" array of"); } | '[' constant_expression ']' { $$ = cat(dup(" array["), $2, dup("] of"), NULL); } | direct_abstract_declarator '[' ']' { $$ = cat($1, dup(" array of"), NULL); } | direct_abstract_declarator '[' constant_expression ']' { $$ = cat($1, dup(" array["), $3, dup("] of"), NULL); } | '(' ')' { $$ = dup(" function returning"); } | '(' parameter_type_list ')' { $$ = cat(dup(" function that expectes ("), dup($2+1), dup(") returning"), NULL); free($2); } | direct_abstract_declarator '(' ')' { $$ = cat($1, dup(" function returning"), NULL); } | direct_abstract_declarator '(' parameter_type_list ')' { $$ = cat($1, dup(" function that expects ("), dup($3+1), dup(") returning"), NULL); free($3); } ; constant_expression: NUMBER { $$ = dup(yytext); } ; %% static void yyerror(char *s) { errx(1, "%d: %s", lineno, s); } /* * Catenate the null-terminated strings into a newly allocated string. * The parameter list is terminated by a NULL pointer. * The parameters are deallocated after copy. */ static char *cat(char *s, ...) { va_list ap; int size; char *p, *newstr; size = strlen(s) + 1; va_start(ap, s); while ((p = va_arg(ap, char *)) != NULL) size += strlen(p) + 1; va_end(ap); newstr = (char *)xmalloc(size); va_start(ap, s); strcpy(newstr, s); free(s); while ((p = va_arg(ap, char *)) != NULL) { strcat(newstr, p); free(p); } va_end(ap); return newstr; } cutils-1.6/src/chilight/0040755000076500001450000000000007324331443014614 5ustar sandrosandrocutils-1.6/src/chilight/Makefile.in0100644000076500001450000000217007323646544016670 0ustar sandrosandro# $Id: Makefile.in,v 1.8 2001/07/13 19:35:00 sandro Exp $ srcdir = @srcdir@ VPATH = $(srcdir) DESTDIR = prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ mandir = @mandir@/man1 INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ INSTALL = @INSTALL@ CC = @CC@ CFLAGS = -I../.. -I$(srcdir)/../.. -I$(srcdir)/../../lib @CFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = ../../lib/libcutils.a @LIBS@ LEX = @LEX@ YACC = @YACC@ PROG = chilight OBJS = chilight.o lexer.o .c.o: $(CC) -c -I. -I$(srcdir) $(CFLAGS) $< all: $(PROG) $(PROG): $(OBJS) $(CC) $(LDFLAGS) -o $(PROG) $(OBJS) $(LIBS) lexer.c: lexer.l $(LEX) $(srcdir)/lexer.l mv lex.yy.c lexer.c .PHONY: install uninstall clean realclean distclean mostlyclean install: $(PROG) $(srcdir)/../../mkinsdir.sh $(DESTDIR)$(bindir) $(DESTDIR)$(mandir) $(INSTALL_PROGRAM) $(PROG) $(DESTDIR)$(bindir) $(INSTALL_DATA) $(srcdir)/$(PROG).1 $(DESTDIR)$(mandir)/$(PROG).1 uninstall: rm -f $(DESTDIR)$(bindir)/$(PROG) rm -f $(DESTDIR)$(mandir)/$(PROG).1 clean: -rm -f $(PROG) *.o -rm -f lexer.c distclean: clean -rm -f Makefile realclean: distclean mostlyclean: clean cutils-1.6/src/chilight/chilight.10100644000076500001450000000242707324330275016475 0ustar sandrosandro.\" $Id: chilight.1,v 1.23 2001/07/15 15:03:25 ncvs Exp $ .Dd July 15, 2001 .Os .Dt CHILIGHT 1 .Sh NAME .Nm chilight .Nd highlight a C source file .Sh SYNOPSIS .Nm chilight .Op Fl V .Op Fl f Ar format .Op Fl o Ar file .Op Fl t Ar title .Op Fl w Ar width .Op Ar .Sh DESCRIPTION The .Nm chilight utility colorizes the input file, expected to be written in the C language, with text attributes or markups. .Pp The options are as follows: .Bl -tag -width Ds .It Fl f Ar format Set the output format to .Ar format . .br The format can be one of: .Ar ansi_color , .Ar ansi_bold , .Ar html_color , .Ar html_font , .Ar roff or .Ar tty (the default). .It Fl o Ar file Set the output destination to .Ar file . .It Fl t Ar title Specify the page title for the generated HTML page. .It Fl V Print version information on standard output then exit. .It Fl w Ar width Set the tab width for the roff style. .br Tabulator characters are converted to suitable amounts of space characters to gain better typographic quality on roff output. Acceptable values are in the range 1..16 which should be ample for most situations. .El .Sh AUTHORS Sandro Sigala - original version .sp Jukka A. Ukkonen - roff and tty formats, better handling of #xxx preprocessor directives and some minor changes. cutils-1.6/src/chilight/chilight.c0100644000076500001450000002551007324330275016555 0ustar sandrosandro/* $Id: chilight.c,v 1.41 2001/07/15 15:03:25 ncvs Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. All rights reserved. * Copyright (c) 2001 Jukka A. Ukkonen . 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 ``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 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. */ #include #include #include #include #include #include #include #include "config.h" #include "tokens.h" enum { OPT_FORMAT_ANSI_COLOR, OPT_FORMAT_ANSI_BOLD, OPT_FORMAT_HTML_COLOR, OPT_FORMAT_HTML_FONT, OPT_FORMAT_ROFF, OPT_FORMAT_TTY }; static int opt_format = OPT_FORMAT_TTY; static char *opt_title = NULL; static unsigned long line_col = 0; static unsigned long opt_tab_width = 8; /* From lexer.c */ #ifdef YYTEXT_POINTER extern char *yytext; #else extern char yytext[]; #endif extern char *token_buffer; extern FILE *yyin; extern int yylex(void); extern void init_lex(void); extern void done_lex(void); static FILE *output_file; static struct { int defined; char *before_text; char *after_text; char *text; } format[MAX_TOKENS]; #define MAKE_ANSI_ATTR(color) "\033[" #color "m" #define ANSI_ATTR_NORMAL MAKE_ANSI_ATTR(0) #define ANSI_ATTR_BOLD MAKE_ANSI_ATTR(1) #define ANSI_ATTR_BLACK MAKE_ANSI_ATTR(30) #define ANSI_ATTR_RED MAKE_ANSI_ATTR(31) #define ANSI_ATTR_GREEN MAKE_ANSI_ATTR(32) #define ANSI_ATTR_BROWN MAKE_ANSI_ATTR(33) #define ANSI_ATTR_BLUE MAKE_ANSI_ATTR(34) #define ANSI_ATTR_MAGENTA MAKE_ANSI_ATTR(35) #define ANSI_ATTR_CYAN MAKE_ANSI_ATTR(36) #define ANSI_ATTR_WHITE MAKE_ANSI_ATTR(37) #define ENTRY(tk, b, t, a) \ format[tk].defined = 1; \ format[tk].before_text = b; \ format[tk].after_text = a; \ format[tk].text = t static int new_line = 0; static void register_format(void) { switch (opt_format) { case OPT_FORMAT_ANSI_COLOR: ENTRY(ALL, ANSI_ATTR_NORMAL, NULL, NULL); ENTRY(IDENTIFIER, ANSI_ATTR_NORMAL, NULL, NULL); ENTRY(CONSTANT, ANSI_ATTR_CYAN, NULL, NULL); ENTRY(KEYWORD, ANSI_ATTR_MAGENTA, NULL, NULL); ENTRY(TYPE, ANSI_ATTR_MAGENTA, NULL, NULL); ENTRY(COMMENT, ANSI_ATTR_RED, NULL, NULL); ENTRY(DIRECTIVE, ANSI_ATTR_BLUE, NULL, NULL); ENTRY(STRING, ANSI_ATTR_GREEN, NULL, NULL); ENTRY(CHARACTER, ANSI_ATTR_GREEN, NULL, NULL); break; case OPT_FORMAT_ANSI_BOLD: ENTRY(ALL, ANSI_ATTR_NORMAL, NULL, NULL); ENTRY(KEYWORD, ANSI_ATTR_BOLD, NULL, NULL); ENTRY(TYPE, ANSI_ATTR_BOLD, NULL, NULL); break; case OPT_FORMAT_HTML_COLOR: ENTRY(KEYWORD, "", NULL, ""); ENTRY(TYPE, "", NULL, ""); ENTRY(COMMENT, "", NULL, ""); ENTRY(DIRECTIVE, "", NULL, ""); ENTRY(STRING, "", NULL, ""); ENTRY(CHARACTER, "", NULL, ""); break; case OPT_FORMAT_HTML_FONT: ENTRY(KEYWORD, "", NULL, ""); ENTRY(TYPE, "", NULL, ""); ENTRY(COMMENT, "", NULL, ""); ENTRY(DIRECTIVE, "", NULL, ""); break; case OPT_FORMAT_ROFF: ENTRY(STRING, "\\fI", NULL, "\\fP"); ENTRY(CHARACTER, "\\fI", NULL, "\\fP"); ENTRY(KEYWORD, "\\fB", NULL, "\\fP"); ENTRY(TYPE, "\\fB", NULL, "\\fP"); ENTRY(COMMENT, "\\f(NR", NULL, "\\fP"); ENTRY(DIRECTIVE, "\\fB", NULL, "\\fP"); break; case OPT_FORMAT_TTY: ENTRY(STRING, "I", NULL, NULL); ENTRY(CHARACTER, "I", NULL, NULL); ENTRY(KEYWORD, "B", NULL, NULL); ENTRY(TYPE, "B", NULL, NULL); ENTRY(COMMENT, "I", NULL, NULL); ENTRY(DIRECTIVE, "B", NULL, NULL); break; } } static char *filter_buf; static int max_buf; static unsigned long next_tab(unsigned long col) { return col + (opt_tab_width - col % opt_tab_width); } static void fputs_backtick(const char *s, FILE *stream) { unsigned i; unsigned long tab_pos; unsigned long tab_len; for (; *s != '\0'; ++s) switch (*s) { case '\t': tab_pos = next_tab(line_col); tab_len = tab_pos - line_col; for (i = 0; i < tab_len; ++i) fputc(' ', stream); line_col = tab_pos; break; case '\\': fputs("\\\\", stream); ++line_col; break; case '\n': case '\r': case '\f': fputc(*s, stream); line_col = 0; break; default: fputc(*s, stream); ++line_col; } } static void fputs_bold(const char *s, FILE *stream) { for (; *s != '\0'; ++s) { if (!isspace(*s)) { fputc(*s, stream); fputc('\b', stream); } fputc(*s, stream); } } static void fputs_emphasis(const char *s, FILE *stream) { for (; *s != '\0'; ++s) { if (!isspace(*s)) { fputc('_', stream); fputc('\b', stream); } fputc(*s, stream); } } static char *extend_filter_buf(char *p) { int offset = p - filter_buf; max_buf = max_buf * 2 + 10; filter_buf = (char *)xrealloc(filter_buf, max_buf + 2); return filter_buf + offset; } static char *filter_html_markups(char *s) { char *p; if (filter_buf == NULL) { max_buf = strlen(s) + 10; filter_buf = (char *)xmalloc(max_buf); } p = filter_buf; for (; *s != '\0'; ++s) { if (p >= filter_buf + max_buf) p = extend_filter_buf(p); switch (*s) { case '<': *p++ = '&'; *p++ = 'l'; *p++ = 't'; *p++ = ';'; break; case '>': *p++ = '&'; *p++ = 'g'; *p++ = 't'; *p++ = ';'; break; default: *p++ = *s; } } *p = '\0'; return filter_buf; } static void process_token(int token, char *buf) { static int last_token = -1; if ((opt_format == OPT_FORMAT_HTML_COLOR || opt_format == OPT_FORMAT_HTML_FONT) && token != ALL) buf = filter_html_markups(buf); if (opt_format == OPT_FORMAT_ROFF && new_line) { fputs("\\&", output_file); new_line = 0; } if (opt_format == OPT_FORMAT_TTY) { if (!format[token].defined) fputs(format[token].text != NULL ? format[token].text : buf, output_file); else if (format[token].before_text) { if (format[token].before_text[0] == 'I') fputs_emphasis(format[token].text != NULL ? format[token].text : buf, output_file); else if (format[token].before_text[0] == 'B') fputs_bold(format[token].text != NULL ? format[token].text : buf, output_file); else fputs(format[token].text != NULL ? format[token].text : buf, output_file); } } else if (format[token].defined || token == ALL) { if (last_token != -1 && last_token != token && format[last_token].after_text != NULL) fputs(format[last_token].after_text, output_file); if (last_token != token && format[token].before_text != NULL) fputs(format[token].before_text, output_file); if (opt_format == OPT_FORMAT_ROFF) fputs_backtick(format[token].text != NULL ? format[token].text : buf, output_file); else fputs(format[token].text != NULL ? format[token].text : buf, output_file); last_token = token; } else process_token(ALL, buf); new_line = (token == '\n') ? 1 : 0; } static void parse(void) { int tk; while ((tk = yylex()) != 0) switch (tk) { case COMMENT: case DIRECTIVE: case STRING: process_token(tk, token_buffer); break; default: process_token(tk, yytext); break; } } static void process_file(char *filename) { if (filename != NULL && strcmp(filename, "-") != 0) { if ((yyin = fopen(filename, "r")) == NULL) err(1, "%s", filename); } else yyin = stdin; new_line = 1; line_col = 0; init_lex(); parse(); done_lex(); if (yyin != stdin) fclose(yyin); } /* * Output the program syntax then exit. */ static void usage(void) { fprintf(stderr, "\ usage: chilight [-V] [-f format] [-o file] [-t title] [-w width] [file ...]\n\ \n\ Format can be one of:\n\ ansi_color, ansi_bold, html_color, html_font, roff, tty.\n"); exit(1); } /* * Used by the err() functions. */ char *progname; int main(int argc, char **argv) { int c; progname = argv[0]; output_file = stdout; while ((c = getopt(argc, argv, "f:o:t:w:V")) != -1) switch (c) { case 'f': if (!strcmp(optarg, "ansi_color")) opt_format = OPT_FORMAT_ANSI_COLOR; else if (!strcmp(optarg, "ansi_bold")) opt_format = OPT_FORMAT_ANSI_BOLD; else if (!strcmp(optarg, "html_color")) opt_format = OPT_FORMAT_HTML_COLOR; else if (!strcmp(optarg, "html_font")) opt_format = OPT_FORMAT_HTML_FONT; else if (!strcmp(optarg, "roff")) opt_format = OPT_FORMAT_ROFF; else if (!strcmp(optarg, "tty")) opt_format = OPT_FORMAT_TTY; else errx(1, "invalid format `%s'", optarg); break; case 'o': if (output_file != stdout) fclose(output_file); if ((output_file = fopen(optarg, "w")) == NULL) err(1, "%s", optarg); break; case 't': opt_title = optarg; break; case 'w': opt_tab_width = atoi(optarg); if (opt_tab_width < 2 || opt_tab_width > 16) errx(1, "invalid tab width `%s'", optarg); break; case 'V': fprintf(stderr, "%s\n", CUTILS_VERSION); exit(0); case '?': default: usage(); /* NOTREACHED */ } argc -= optind; argv += optind; register_format(); switch (opt_format) { case OPT_FORMAT_HTML_COLOR: case OPT_FORMAT_HTML_FONT: fprintf(output_file, "\n" "%s\n" "\n" "
\n", opt_title != NULL ? opt_title : "");
		break;
	case OPT_FORMAT_ROFF:
		fprintf(output_file, ".ft C\n.nf\n");
		break;
	}

	if (argc < 1)
		process_file(NULL);
	else
		while (*argv)
			process_file(*argv++);

	switch (opt_format) {
	case OPT_FORMAT_HTML_COLOR:
	case OPT_FORMAT_HTML_FONT: {
		time_t t = time(NULL);
		fprintf(output_file, "
\n" "
\n" "Generated by " CUTILS_VERSION " chilight - %s" "\n", ctime(&t)); break; } case OPT_FORMAT_ANSI_COLOR: fprintf(output_file, "\033[0m"); break; case OPT_FORMAT_ROFF: fprintf(output_file, ".fi\n"); break; } if (output_file != stdout) fclose(output_file); return 0; } cutils-1.6/src/chilight/lexer.l0100644000076500001450000001447407324330275016121 0ustar sandrosandro/* $Id: lexer.l,v 1.24 2001/07/15 15:03:25 ncvs Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. All rights reserved. * Copyright (c) 2001 Jukka A. Ukkonen . 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 ``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 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. */ Digit [0-9] Literal [a-zA-Z_] Hex [a-fA-F0-9] Exp [Ee][+-]?{Digit}+ FS (f|F|l|L) IS (u|U|l|L)+ %{ #include #include #include #include #include #include "config.h" #include "tokens.h" static void string(void); static void comment(void); static int directive(const char *prefix); static int yywrap(void) { return 1; } %} %% "/*" { comment(); return COMMENT; } ^[ \t]*"#" { return directive(yytext); } "char" { return TYPE; } "double" { return TYPE; } "float" { return TYPE; } "int" { return TYPE; } "long" { return TYPE; } "short" { return TYPE; } "signed" { return TYPE; } "unsigned" { return TYPE; } "void" { return TYPE; } "auto" { return KEYWORD; } "break" { return KEYWORD; } "case" { return KEYWORD; } "const" { return KEYWORD; } "continue" { return KEYWORD; } "default" { return KEYWORD; } "do" { return KEYWORD; } "else" { return KEYWORD; } "enum" { return KEYWORD; } "extern" { return KEYWORD; } "for" { return KEYWORD; } "goto" { return KEYWORD; } "if" { return KEYWORD; } "register" { return KEYWORD; } "return" { return KEYWORD; } "sizeof" { return KEYWORD; } "static" { return KEYWORD; } "struct" { return KEYWORD; } "switch" { return KEYWORD; } "typedef" { return KEYWORD; } "union" { return KEYWORD; } "volatile" { return KEYWORD; } "while" { return KEYWORD; } {Literal}({Literal}|{Digit})* { return IDENTIFIER; } 0[xX]{Hex}+{IS}? { return CONSTANT; } 0{Digit}+{IS}? { return CONSTANT; } {Digit}+{IS} { return CONSTANT; } {Digit}+ { return CONSTANT; } '(\\.|[^\\'])+' { return CHARACTER; } {Digit}+{Exp}{FS}? { return CONSTANT; } {Digit}*"."{Digit}+({Exp})?{FS}? { return CONSTANT; } {Digit}+"."{Digit}*({Exp})?{FS}? { return CONSTANT; } "\"" { string(); return STRING; } ">>=" { return OPERATOR; } "<<=" { return OPERATOR; } "+=" { return OPERATOR; } "-=" { return OPERATOR; } "*=" { return OPERATOR; } "/=" { return OPERATOR; } "%=" { return OPERATOR; } "&=" { return OPERATOR; } "^=" { return OPERATOR; } "|=" { return OPERATOR; } ">>" { return OPERATOR; } "<<" { return OPERATOR; } "++" { return OPERATOR; } "--" { return OPERATOR; } "->" { return OPERATOR; } "&&" { return OPERATOR; } "||" { return OPERATOR; } "<=" { return OPERATOR; } ">=" { return OPERATOR; } "==" { return OPERATOR; } "!=" { return OPERATOR; } "..." { return ELLIPSIS; } ";" { return ';'; } "{" { return '{'; } "}" { return '}'; } "," { return ','; } ":" { return ':'; } "=" { return '='; } "(" { return '('; } ")" { return ')'; } "[" { return '['; } "]" { return ']'; } "." { return '.'; } "&" { return '&'; } "!" { return '!'; } "~" { return '~'; } "-" { return '-'; } "+" { return '+'; } "*" { return '*'; } "/" { return '/'; } "%" { return '%'; } "<" { return '<'; } ">" { return '>'; } "^" { return '^'; } "|" { return '|'; } "?" { return '?'; } [ \t\v\n\f] { return yytext[0]; } . { return yytext[0]; } %% char *token_buffer; static int maxtoken; void init_lex(void) { maxtoken = 40; token_buffer = (char *)xmalloc(maxtoken + 1); } void done_lex(void) { free(token_buffer); } static char *extend_token_buffer(char *p) { int offset = p - token_buffer; maxtoken = maxtoken * 2 + 10; token_buffer = (char *)xrealloc(token_buffer, maxtoken + 2); return token_buffer + offset; } static void string(void) { char *p; int c; p = token_buffer; *p++ = '"'; while ((c = input()) != EOF && c != '"') { if (p >= token_buffer + maxtoken) p = extend_token_buffer(p); *p++ = c; if (c == '\\') *p++ = input(); } if (c == EOF) errx(1, "unexpected end of file in string"); *p++ = '"'; *p = '\0'; } static void comment(void) { char *p; int c; p = token_buffer; *p++ = '/'; *p++ = '*'; while ((c = input()) != EOF) { resync: if (p >= token_buffer + maxtoken) p = extend_token_buffer(p); *p++ = c; if (c == '*') { if ((c = input()) == '/') { *p++ = c; *p = '\0'; return; } else goto resync; } } *p = '\0'; } static int isnamechar(int c) { return c == '_' || isalnum(c); } static int directive(const char *prefix) { char *p; int c; int quoted = 0; p = token_buffer; for (; *prefix != '\0'; ++prefix) { if (p >= token_buffer + maxtoken) p = extend_token_buffer(p); *p++ = *prefix; } while ((c = input()) != EOF && isspace(c) && (quoted || c != '\n')) { if (p >= token_buffer + maxtoken) p = extend_token_buffer(p); *p++ = c; if (c == '\\') quoted ^= 0x1; } while (c != EOF && isnamechar(c) && (quoted || c != '\n')) { if (p >= token_buffer + maxtoken) p = extend_token_buffer(p); *p++ = c; if (c == '\\') quoted ^= 0x1; c = input(); } if (c != EOF) unput(c); *p = '\0'; return DIRECTIVE; } cutils-1.6/src/chilight/tokens.h0100644000076500001450000000307707324315542016276 0ustar sandrosandro/* $Id: tokens.h,v 1.13 2001/07/15 13:32:18 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ enum { IDENTIFIER=256, CHARACTER, STRING, COMMENT, DIRECTIVE, CONSTANT, TYPE, KEYWORD, OPERATOR, ELLIPSIS, ALL /* Not a real token, put here for convenience. */ }; #define MAX_TOKENS ((unsigned)ALL + 1) cutils-1.6/src/cobfusc/0040755000076500001450000000000007324331443014445 5ustar sandrosandrocutils-1.6/src/cobfusc/Makefile.in0100644000076500001450000000217007323645353016516 0ustar sandrosandro# $Id: Makefile.in,v 1.7 2001/07/13 19:24:27 sandro Exp $ srcdir = @srcdir@ VPATH = $(srcdir) DESTDIR = prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ mandir = @mandir@/man1 INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ INSTALL = @INSTALL@ CC = @CC@ CFLAGS = -I../.. -I$(srcdir)/../.. -I$(srcdir)/../../lib @CFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = ../../lib/libcutils.a @LIBS@ LEX = @LEX@ YACC = @YACC@ PROG = cobfusc OBJS = cobfusc.o lexer.o .c.o: $(CC) -c -I. -I$(srcdir) $(CFLAGS) $< all: $(PROG) $(PROG): $(OBJS) $(CC) $(LDFLAGS) -o $(PROG) $(OBJS) $(LIBS) lexer.c: lexer.l $(LEX) $(srcdir)/lexer.l mv lex.yy.c lexer.c .PHONY: install uninstall clean realclean distclean mostlyclean install: $(PROG) $(srcdir)/../../mkinsdir.sh $(DESTDIR)$(bindir) $(DESTDIR)$(mandir) $(INSTALL_PROGRAM) $(PROG) $(DESTDIR)$(bindir) $(INSTALL_DATA) $(srcdir)/$(PROG).1 $(DESTDIR)$(mandir)/$(PROG).1 uninstall: rm -f $(DESTDIR)$(bindir)/$(PROG) rm -f $(DESTDIR)$(mandir)/$(PROG).1 clean: -rm -f $(PROG) *.o -rm -f lexer.c distclean: clean -rm -f Makefile realclean: distclean mostlyclean: clean cutils-1.6/src/cobfusc/cobfusc.10100644000076500001450000000545307324315542016161 0ustar sandrosandro.\" $Id: cobfusc.1,v 1.38 2001/07/15 13:32:18 sandro Exp $ .Dd July 1, 2001 .Os .Dt COBFUSC 1 .Sh NAME .Nm cobfusc .Nd make a C source file unreadable but compilable .Sh SYNOPSIS .Nm cobfusc .Op Fl AabdemntxV .Op Fl c Ar case .Op Fl f Ar suffix .Op Fl g Ar file .Op Fl i Ar idobf .br .Op Fl o Ar file .Op Fl p Ar prefix .Op Fl r Ar file .Op Fl s Ar seed .Op Fl u Ar file .Op Fl w Ar cols .br .Op Fl z Ar file .Op Ar .Sh DESCRIPTION This document contains only a brief description of .Nm cobfusc . For a more complete documentation, please read the Info file or the Texinfo manual. .Pp The .Nm cobfusc utility converts the input file, written in the C language, into a human unreadable one, but compilable. The main work is converting every identifier into a meaningless one, removing any comment and compacting all the white\-spaces when they are not required. .Pp The options are as follows: .Bl -tag -width indent .It Fl A Enable a heavy obfuscation for the source file. This is equivalent to the .Fl ademt Fl i Ar numeric options. The digraphize option is not enabled by default since the Amendement 1 (1994) changes to .St -ansiC-89 are supported only by few C compilers. .It Fl a Garble every string with octal escapes. .It Fl b Enable the digraphize mode. .It Fl c Ar "no \\*(Ba lower \\*(Ba upper \\*(Ba screw \\*(Ba random" Set the identifier case obfuscation mode. .It Fl d Compact the macros removing backslashes and white\-spaces when they are not required. .It Fl e Compact the white\-spaces when they are not required. .It Fl f Ar suffix Put the output of each processed file in a separate file with .Ar suffix appended to file name instead of standard output. This is useful when processing a package with a lot of source files. .It Fl g Ar file Add first the identifiers contained in .Ar file to the obfuscation table. Useful when those identifiers are shared between two or more source files. .It Fl i Ar "no \\*(Ba numeric \\*(Ba word \\*(Ba random" Set the identifier obfuscation mode. .It Fl m Strip the comments. .It Fl n Garble integers with expressions. .It Fl o Ar file Set the output destination to .Ar file . .It Fl p Ar prefix Specify the prefix to use when generating the identifiers. .It Fl r Ar file Tell .Nm cobfusc that the identifiers contained in .Ar file must not be obfuscated. .It Fl s Ar seed Specify the seed for generating the random numbers. .It Fl t Enable the trigraphize mode. .It Fl u Dump the symbol table to .Ar file . .It Fl V Print version information on standard output then exit. .It Fl w Set the width limit of the output. .It Fl x Exclusive mode; obfuscate only the identifiers specified by the .Fl g and .Fl z parameters. .It Fl z Ar file Add the identifiers pairs contained in .Ar file to the obfuscation table. .El .Sh SEE ALSO .Xr cunloop 1 , .Xr indent 1 .Sh AUTHORS Sandro Sigala cutils-1.6/src/cobfusc/cobfusc.c0100644000076500001450000005100507324070310016224 0ustar sandrosandro/* $Id: cobfusc.c,v 1.74 2001/07/14 16:18:16 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ #include #include #include #include #include #include #include #include "config.h" #include "htable.h" #include "tokens.h" #include "keywords.h" #define DEFAULT_PREFIX "q" #define DEFAULT_WIDTH 78 /* Return an integer where 1 <= integer <= max. */ #define RANDOM(_max) (rand()%_max+1) enum { OPT_IDENTIFIER_GARBLING_NO = 0, OPT_IDENTIFIER_GARBLING_NUMERIC, OPT_IDENTIFIER_GARBLING_WORD, OPT_IDENTIFIER_GARBLING_RANDOM, OPT_IDENTIFIER_CASE_NO = 0, OPT_IDENTIFIER_CASE_UPPER, OPT_IDENTIFIER_CASE_LOWER, OPT_IDENTIFIER_CASE_SCREW, OPT_IDENTIFIER_CASE_RANDOM, }; /* From lexer.c */ #ifdef YYTEXT_POINTER extern char *yytext; #else extern char yytext[]; #endif extern char *token_buffer; extern FILE *yyin; extern int yylex(void); extern void init_lex(void); extern void done_lex(void); static FILE *output_file; /* * The variables where are stored the options flags. */ static char *opt_separate_output = NULL;/* An output file per input file. */ static int opt_exclusive; /* Excl-replace for the identifier. */ static int opt_compact_white_spaces; /* Compact whitespaces option. */ static int opt_compact_macros; /* Compact macros option. */ static int opt_strip_comments; /* Strip comments option. */ static int opt_identifier_garbling; /* Identifier garbling option. */ static int opt_integer_garbling; /* Integer garbling option. */ static int opt_identifier_case; /* Identifier case option. */ static int opt_trigraphize; /* Trigraphize option. */ int opt_digraphize; /* Digraphize option. */ static int opt_string_garbling; /* String garbling option. */ static char *opt_prefix = DEFAULT_PREFIX;/* Identifier prefix option. */ static int opt_width = DEFAULT_WIDTH; /* Output width option. */ static int opt_random_seed; /* Random seed option. */ static int opt_dump; /* Dump symbol table option. */ static FILE *dump_file; /* The width counter. */ static int column; /* Set to true when we are in a directive. */ static int in_directive; static int directive_ws; /* * Output a backslash if we are in a macro then a newline. */ static void outnl(void) { if ((opt_compact_white_spaces || opt_compact_macros) && in_directive) putc('\\', output_file); putc('\n', output_file); } /* * Output a character and update the width counter. Output a newline * only if it is required. */ static void outch(char c) { if (c == '\n') column = 0; else if (++column > opt_width) { outnl(); column = 1; } putc(c, output_file); } /* * Output a string and update the width counter. */ static void outstr(char *s) { int len = (int)strlen(s); if (column + len > opt_width && len < opt_width) { outnl(); column = 0; } for (; *s != '\0'; ++s) { if (*s == '\n') column = 0; else ++column; putc(*s, output_file); } } /* This variable contains the last written character. */ static int last_ws = '\n'; /* Output a newline only if it is required. */ #define nl_req() \ do { \ if (opt_compact_white_spaces && last_ws != '\n') \ outch('\n'); \ } while (0) /* Output a whitespace only if it is required. */ #define ws_req() \ do { \ if (opt_compact_white_spaces && !last_ws) \ outch(' '); \ } while (0) /* Output a string that is not a whitespace delimiter. */ #define out_string(s) \ do { \ outstr(s); \ last_ws = 0; \ } while (0) /* Output a character that is not a whitespace delimiter. */ #define out_char(c) \ do { \ outch(c); \ last_ws = 0; \ } while (0) /* Output a string as a whitespace delimiter. */ #define out_ws_string(s) \ do { \ outstr(s); \ last_ws = 1; \ } while (0) /* Output a character as a whitespace delimiter. */ #define out_ws_char(c) \ do { \ outch(c); \ last_ws = 1; \ } while (0) /* Output a character as a whitespace delimiter if it is required. */ #define out_ws(c) \ do { \ if (opt_compact_white_spaces) { \ if (!last_ws) { \ outch(c); \ last_ws = c; \ } \ } else \ outch(c); \ } while (0) /* Output an operator. */ #define out_op(s) \ do { \ char *sp = s; \ if (opt_compact_white_spaces \ && *sp == lasttk && last_ws < 2) \ outch(' '); \ out_ws_string(sp); \ } while (0) /* Hash table for read-only identifiers. */ static htable ro_table; /* Hash table for garbled identifiers. */ static htable id_table; /* Index used for generating the numeric identifiers. */ static int idnum = 0; /* Index used for generating the identifier from words. */ static int wordnum = 0; static int wordrenum = 0; #define CASE_RANDOM 0 #define CASE_UPPER 1 #define CASE_LOWER 2 static void allocate_tables(void) { ro_table = htable_new(); id_table = htable_new(); } static void free_tables(void) { alist a; hpair *hp; a = htable_list(id_table); for (hp = alist_first(a); hp != NULL; hp = alist_next(a)) free(hp->data); alist_delete(a); htable_delete(ro_table); htable_delete(id_table); } /* * Convert the string case. */ static char *convert_case(char *buf, int c) { char *p; switch (c) { case CASE_UPPER: /* * Convert the string to uppercase. */ for (p = buf; *p != '\0'; ++p) *p = toupper(*p); break; case CASE_LOWER: /* * Convert the string to lowercase. */ for (p = buf; *p != '\0'; ++p) *p = tolower(*p); break; default: /* * Convert the string to random case. */ for (p = buf; *p != '\0'; ++p) if (RANDOM(2) == 1) *p = toupper(*p); else *p = tolower(*p); } return buf; } /* * Add an identifier to the hash table. The identifier * is garbled if the garbling option is enabled. The identifier * case is changed if the case option is enabled. */ static char *add_identifier(char *s) { char buf[128]; int identifier_garbling, identifier_case; /* * If the identifier is already in the hash table, return it. */ if (htable_exists(id_table, s)) return (char *)htable_fetch(id_table, s); strcpy(buf, s); /* * If the user has specified the random integer garbling option, * then select a random option. */ if (opt_identifier_garbling == OPT_IDENTIFIER_GARBLING_RANDOM) identifier_garbling = RANDOM(2); else identifier_garbling = opt_identifier_garbling; /* * If the user has specified the random identifier case option, * then select a random option. */ if (opt_identifier_case == OPT_IDENTIFIER_CASE_RANDOM) identifier_case = RANDOM(3); else identifier_case = opt_identifier_case; /* * If the identifier garbling option is enabled, then * change the identifier. */ switch (identifier_garbling) { case OPT_IDENTIFIER_GARBLING_WORD: /* * Change the identifier with a word. */ if (!words_table[wordnum]) { wordnum = 0; wordrenum++; } strcpy(buf, opt_prefix); if (wordrenum) { strcat(buf, words_table[wordrenum]); strcat(buf, "_"); } strcat(buf, words_table[wordnum++]); break; case OPT_IDENTIFIER_GARBLING_NUMERIC: /* * Change the identifier with a number generated word. */ sprintf(buf, "%s%d", opt_prefix, idnum++); } /* * If the identifier case option is enabled, then * change the identifier case. */ switch (identifier_case) { case OPT_IDENTIFIER_CASE_UPPER: /* * Change the identifier case to upper. */ convert_case(buf, CASE_UPPER); break; case OPT_IDENTIFIER_CASE_LOWER: /* * Change the identifier case to lower. */ convert_case(buf, CASE_LOWER); break; case OPT_IDENTIFIER_CASE_SCREW: /* * Change the identifier case to random. */ convert_case(buf, CASE_RANDOM); } /* * Store the new identifier into the hash table. */ htable_store(id_table, s, xstrdup(buf)); return htable_fetch(id_table, s); } /* * Add a file of identifiers to replace to the identifiers hash table. */ static void add_replace_file(char *fname) { FILE *f; char buf[255], buf1[255], buf2[255]; if ((f = fopen(fname, "r")) == NULL) err(1, "%s", fname); while (fgets(buf, 255, f) != NULL) { if (strlen(buf) <= 1) continue; buf1[0] = '\0'; buf2[0] = '\0'; sscanf(buf,"%s %s", buf1, buf2); if (strlen(buf2) < 1) add_identifier(buf1); else { /* If the identifier is already in the hash table, * print eror message. */ if (htable_exists(id_table, buf1)) printf("Identifier %s already defined", buf1); else htable_store(id_table, buf1, xstrdup(buf2)); } } fclose(f); } /* * Add an identifier to the unmodifiable identifiers hash table. */ static void add_ro_identifier(char *s) { htable_store_key(ro_table, s); } /* * Add a file of identifiers to an hash table. */ static void add_file_to_table(char *fname, int readonly) { FILE *f; char buf[255]; if ((f = fopen(fname, "r")) == NULL) err(1, "%s", fname); while (fgets(buf, 255, f) != NULL) { if (strlen(buf) > 1) { buf[strlen(buf) - 1] = '\0'; if (readonly) add_ro_identifier(buf); else add_identifier(buf); } } fclose(f); } /* * Make a less readable integer expression from an integer. */ static char *make_expression(char *buf, int n) { int i1, i2, i3, i4, i5, i6; switch (RANDOM(3)) { case 1: i1 = RANDOM(n); i2 = n / i1; i3 = n % i1; sprintf(buf, "(%d*%d+%d)", i1, i2, i3); break; case 2: i1 = RANDOM(n); i2 = n / i1; i3 = n % i1; i4 = RANDOM(i2); i5 = i2 / i4; i6 = i2 % i4; sprintf(buf, "(%d*(%d*%d+%d)+%d)", i1, i4, i5, i6, i3); break; case 3: i1 = n / 2; i2 = n % 2; if (RANDOM(2) == 1) sprintf(buf, "(%d+%d)", i1, i1 + i2); else sprintf(buf, "(%d+%d)", i1 + i2, i1); break; } return buf; } /* * Make an octalized string from a literal one. The already existent * escapes are not clobbered. */ static char *octalize_string(char *buf, char *s) { char *sp = s, *dp = buf; char buf1[12]; int i; while (*sp) switch (*sp) { case '\n': case '\t': case '\v': case '\f': case '\r': /* * The white spaces are just echoed. */ *dp++ = *sp++; break; case '\\': /* * We must not clobber the existent string escapes. */ *dp++ = *sp++; switch (*sp) { case '\0': break; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': /* * An octal escape. */ while (isdigit(*sp)) *dp++ = *sp++; break; case 'x': /* * An hexadecimal escape. */ *dp++ = *sp++; i = 0; while (isxdigit(*sp) && i++ < 2) *dp++ = *sp++; break; default: /* * If it is not an octal or hexadecimal escape, * it is a single character one. */ *dp++ = *sp++; } break; default: /* * Output the octal escape. */ sprintf(buf1, "\\%o", *sp++); for (i = 0; i < (int)strlen(buf1); ++i) *dp++ = buf1[i]; } *dp = '\0'; return buf; } /* * Make a digraph respelling for a character. */ static char *digraphize_char(char c) { char *p; switch (c) { case '[': p = "<:"; break; case ']': p = ":>"; break; case '{': p = "<%"; break; case '}': p = "%>"; break; default: p = yytext; } return p; } /* * Make a trigraph sequence from a character. */ static char *trigraphize_char(char c) { char *p; switch (c) { case '[': p = "\?\?("; break; case ']': p = "\?\?)"; break; case '{': p = "\?\?<"; break; case '}': p = "\?\?>"; break; case '^': p = "\?\?'"; break; case '|': p = "\?\?!"; break; case '~': p = "\?\?-"; break; default: p = yytext; } return p; } /* * The main parsing function. */ static void parse(void) { int tk, lasttk = 0; char *p; while ((tk = yylex()) != 0) { switch (tk) { case '\n': /* * The directives are finished by a newline * and if the compact white spaces option is * enabled, the newlines are outputted. */ if (in_directive) { outch('\n'); last_ws = '\n'; in_directive = 0; } else if (!opt_compact_white_spaces) outch(tk); break; case ' ': case '\t': case '\v': case '\f': case '\r': if (opt_compact_macros && in_directive) { if (directive_ws < 2) { ++directive_ws; if (tk == '\t') out_ws_char(' '); else out_ws_char(tk); } } else if (!opt_compact_white_spaces) outch(tk); break; case '[': case ']': case '{': case '}': if (opt_digraphize) { out_ws_string(digraphize_char(tk)); break; } /* FALLTRHU */ case '^': case '|': case '~': if (opt_trigraphize) out_ws_string(trigraphize_char(tk)); else out_ws_char(tk); break; case COMMENT: /* * The comments are stripped if the strip comments * option is enabled. */ if (!opt_strip_comments) { lasttk = tk; out_ws_string(token_buffer); } break; case IDENTIFIER: if ((p = htable_fetch(id_table, yytext)) == NULL) { if (htable_exists(ro_table, yytext) || opt_exclusive) p = yytext; else p = add_identifier(yytext); } ws_req(); out_string(p); break; case CONSTANT: /* * The constants are simply outputted literally. */ ws_req(); out_string(yytext); break; case INTEGER: ws_req(); if (opt_integer_garbling) { int toint; char buf[256]; if ((toint = atoi(yytext)) > 0 && toint < 50) out_string(make_expression(buf, toint)); else out_string(yytext); } else out_string(yytext); break; case CHARACTER: out_ws_string(yytext); break; case STRING: if (opt_string_garbling) { char *buf, *buf1; buf = (char *)xmalloc(strlen(token_buffer) * 4 + 1); buf1 = (char *)xmalloc(strlen(token_buffer) * 4 + 1); strcpy(buf1, token_buffer); buf1[strlen(buf1) - 1] = '\0'; octalize_string(buf, buf1 + 1); strcpy(buf1, "\""); strcat(buf1, buf); strcat(buf1, "\""); out_ws_string(buf1); free(buf); free(buf1); } else out_ws_string(token_buffer); break; case INCLUDE_DIRECTIVE: nl_req(); outstr(token_buffer); if (opt_compact_white_spaces) { outch('\n'); last_ws = '\n'; } break; case DIRECTIVE: nl_req(); out_string(token_buffer); in_directive = 1; directive_ws = 0; break; case KEYWORD: ws_req(); out_string(yytext); break; case OPERATOR: out_op(yytext); break; case '\\': if (in_directive && opt_compact_macros) { yylex(); if (directive_ws < 2) outch(' '); } else if (opt_compact_white_spaces) { if (in_directive && !last_ws) outch(' '); out_char('\\'); out_ws(yylex()); } else out_ws_char(tk); break; case HASHHASH: if (opt_digraphize) out_ws_string("%:%:"); else out_ws_string("##"); break; default: out_ws_char(tk); } if (tk != COMMENT && tk != '\n' && tk != ' ' && tk != '\t' && tk != '\v' && tk != '\f' && tk != '\r') lasttk = tk; } } static void process_file(char *filename) { if (filename != NULL && strcmp(filename, "-") != 0) { if ((yyin = fopen(filename, "r")) == NULL) err(1, "%s", filename); if (opt_separate_output != NULL) { char oname[255]; sprintf(oname, "%s%s", filename, opt_separate_output); if (output_file != stdout) fclose(output_file); if ((output_file = fopen(oname, "w")) == NULL) err(1, "%s", oname); } } else yyin = stdin; init_lex(); parse(); done_lex(); if (opt_compact_white_spaces) outch('\n'); if (yyin != stdin) fclose(yyin); } /* * Output the program syntax then exit. */ static void usage(void) { fprintf(stderr, "\ usage: cobfusc [-AabdemntxV] [-c no | lower | upper | screw | random]\n\ [-f suffix] [-g file] [-i no | numeric | word | random]\n\ [-o file] [-p prefix] [-r file] [-s seed] [-u file] [-w cols]\n\ [-z file] [file ...]\n"); exit(1); } /* * Used by the err() functions. */ char *progname; int main(int argc, char **argv) { int i, c; progname = argv[0]; output_file = stdout; allocate_tables(); for (i = 0; reserved_identifiers[i] != NULL; i++) add_ro_identifier((char *)reserved_identifiers[i]); while ((c = getopt(argc, argv, "Aabc:def:g:i:mno:p:r:s:tu:Vw:xz:")) != -1) switch (c) { case 'A': /* * Enable the -ademt -inumeric options. */ opt_string_garbling = 1; opt_compact_macros = 1; opt_compact_white_spaces = 1; opt_strip_comments = 1; opt_trigraphize = 1; opt_identifier_garbling = OPT_IDENTIFIER_GARBLING_NUMERIC; break; case 'a': opt_string_garbling = 1; break; case 'b': opt_digraphize = 1; break; case 'c': if (!strcmp(optarg, "no")) opt_identifier_case = OPT_IDENTIFIER_CASE_NO; else if (!strcmp(optarg, "screw")) opt_identifier_case = OPT_IDENTIFIER_CASE_SCREW; else if (!strcmp(optarg, "random")) opt_identifier_case = OPT_IDENTIFIER_CASE_RANDOM; else if (!strcmp(optarg, "lower")) opt_identifier_case = OPT_IDENTIFIER_CASE_LOWER; else if (!strcmp(optarg, "upper")) opt_identifier_case = OPT_IDENTIFIER_CASE_UPPER; else { errx(1, "invalid conversion case `%s'", optarg); exit(1); } break; case 'd': opt_compact_macros = 1; break; case 'e': opt_compact_white_spaces = 1; break; case 'f': opt_separate_output = optarg; break; case 'g': add_file_to_table(optarg, 0); break; case 'i': if (!strcmp(optarg, "no")) opt_identifier_garbling = OPT_IDENTIFIER_GARBLING_NO; else if (!strcmp(optarg, "numeric")) opt_identifier_garbling = OPT_IDENTIFIER_GARBLING_NUMERIC; else if (!strcmp(optarg, "word")) opt_identifier_garbling = OPT_IDENTIFIER_GARBLING_WORD; else if (!strcmp(optarg, "random")) opt_identifier_garbling = OPT_IDENTIFIER_GARBLING_RANDOM; else errx(1, "invalid identifier garbling mode `%s'", optarg); break; case 'm': opt_strip_comments = 1; break; case 'n': opt_integer_garbling = 1; break; case 'o': if (output_file != stdout) fclose(output_file); if ((output_file = fopen(optarg, "w")) == NULL) err(1, "%s", optarg); break; case 'p': opt_prefix = optarg; break; case 'r': add_file_to_table(optarg, 1); break; case 's': opt_random_seed = atoi(optarg); srand(opt_random_seed); break; case 't': opt_trigraphize = 1; break; case 'u': opt_dump = 1; if (dump_file != NULL) fclose(dump_file); if ((dump_file = fopen(optarg, "w")) == NULL) err(1, "%s", optarg); break; case 'V': fprintf(stderr, "%s\n", CUTILS_VERSION); exit(0); case 'w': if ((opt_width = atoi(optarg)) < 2) opt_width = 2; break; case 'x': opt_exclusive = 1; break; case 'z': add_replace_file(optarg); break; case '?': default: usage(); /* NOTREACHED */ } argc -= optind; argv += optind; if (argc < 1) process_file(NULL); else while (*argv) process_file(*argv++); if (opt_dump) { alist a; hpair *hp; fprintf(dump_file, "### scrambled symbols ###\n"); a = htable_list(id_table); for (hp = alist_first(a); hp != NULL; hp = alist_next(a)) fprintf(dump_file, "%s %s\n", hp->key, (char *)hp->data); alist_delete(a); fprintf(dump_file, "\n### unmodifiable symbols ###\n"); a = htable_list(ro_table); for (hp = alist_first(a); hp != NULL; hp = alist_next(a)) fprintf(dump_file, "%s\n", hp->key); alist_delete(a); fclose(dump_file); } if (output_file != stdout) fclose(output_file); free_tables(); return 0; } cutils-1.6/src/cobfusc/keywords.h0100644000076500001450000001165107324030632016462 0ustar sandrosandro/* $Id: keywords.h,v 1.19 2001/07/14 11:48:42 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ static const char *reserved_identifiers[] = { "main", /* assert.h */ "assert", /* ctype.h */ "isalnum", "isalpha", "iscntrl", "isdigit", "isgraph", "islower", "isprint", "ispunct", "isspace", "isupper", "isxdigit", "tolower", "toupper", /* errno.h */ "errno", "EDOM", "ERANGE", /* float.h */ "DBL_DIG", "DBL_EPSLON", "DBL_MANT_DIG", "DBL_MAX", "DBL_MAX_10_EXP", "DBL_MAX_EXP", "DBL_MIN", "DBL_MIN_10_EXP", "DBL_MIN_EXP", "FLT_DIG", "FLT_EPSLON", "FLT_MANT_DIG", "FLT_MAX", "FLT_MAX_10_EXP", "FLT_MAX_EXP", "FLT_MIN", "FLT_MIN_10_EXP", "FLT_MIN_EXP", "FLT_RADIX", "FLT_ROUNDS", "LDBL_DIG", "LDBL_EPSLON", "LDBL_MANT_DIG", "LDBL_MAX", "LDBL_MAX_10_EXP", "LDBL_MAX_EXP", "LDBL_MIN", "LDBL_MIN_10_EXP", "LDBL_MIN_EXP", /* limits.h */ "CHAR_BIT", "SCHAR_MIN", "SCHAR_MAX", "UCHAR_MAX", "CHAR_MIN", "CHAR_MAX", "MB_LEN_MAX", "SHRT_MIN", "SHRT_MAX", "USHRT_MAX", "INT_MIN", "INT_MAX", "UINT_MAX", "LONG_MIN", "LONG_MAX", "ULONG_MAX", /* locale.h */ "lconv", "setlocale", "LC_ALL", "LC_COLLATE", "LC_CTYPE", "LC_MONETARY", "LC_NUMERIC", "LC_TIME", "localeconv", /* math.h */ "acos", "asin", "atan", "atan2", "ceil", "cos", "cosh", "exp", "fabs", "floor", "frexp", "ldexp", "fmod", "log", "log10", "modf", "pow", "sin", "sinh", "sqrt", "tan", "tanh", "HUGE_VAL", /* setjmp.h */ "longjmp", "setjmp", "jmp_buf", /* signal.h */ "raise", "signal", "sig_atomic_t", "SIGABRT", "SIGFPE", "SIGILL", "SIGINT", "SIGSEGV", "SIGTERM", "SIG_DFL", "SIG_ERR", "SIG_IGN", /* stdarg.h */ "va_arg", "va_end", "va_start", "va_list", /* stddef.h */ "offsetof", "NULL", "ptrdiff_t", "size_t", "wchar_t", /* stdio.h */ "clearerr", "close", "create", "open", "fclose", "feof", "ferror", "fflush", "fgetc", "fgetpos", "fgets", "fopen", "fprintf", "fputc", "fputs", "fread", "freopen", "fscanf", "fseek", "fsetpos", "ftell", "fwrite", "getc", "getchar", "gets", "perror", "printf", "putc", "putchar", "puts", "remove", "rename", "rewind", "scanf", "setbuf", "setvbuf", "sprintf", "sscanf", "tmpfile", "tmpnam", "ungetc", "vfprintf", "vprintf", "vsprintf", "FILE", "fpos_t", "_IOFBF", "_IOLBF", "_IONBF", "BUFSIZ", "EOF", "FILENAME_MAX", "FOPEN_MAX", "L_tmpnam", "SEEK_CUR", "SEEK_END", "SEEK_SET", "stderr", "stdin", "stdout", "TMP_MAX", /* stdlib.h */ "abort", "abs", "atof", "atoi", "atol", "atexit", "bsearch", "calloc", "div", "exit", "free", "getenv", "labs", "ldiv", "malloc", "mblen", "mbstowcs", "mbtowc", "qsort", "rand", "realloc", "system", "srand", "strtod", "strtol", "strolul", "wcstombs", "wctomb", "div_t", "ldiv_t", "EXIT_FAILURE", "EXIT_SUCCESS", "MB_CUR_MAX", "MB_LEN_MAX", "RAND_MAX", /* string.h */ "memchr", "memcmp", "memcpy", "memmove", "memset", "strcat", "strchr", "strcmp", "strcoll", "strcpy", "strcspn", "strerror", "strlen", "strncat", "strncmp", "strncpy", "strpbrk", "strrchr", "strspn", "strstr", "strtok", "strxfrn", /* time.h */ "asctime", "clock", "ctime", "difftime", "gmtime", "localtime", "mktime", "strftime", "time", "clock_t", "time_t", "tm", "CLOCKS_PER_SEC", /* getopt.h */ "opterr", "optopt", "optind", "optarg", "getopt", NULL }; static const char *words_table[] = { "foo", "bar", "baz", "fobar", "foobar", "fobaz", "foobaz", "quux", "fred", "dog", "cat", "fish", "gasp", "bad", "bug", "silly", "buggy", "mum", "dad", "disk", "empty", "full", "fast", "small", "big", "ok", "hello", "bye", "magic", "obscure", "speed", "index", "bill", "joe", "emacs", "vi", "rms", "fbi", "cia", "nasa", "err", "google", "yahoo", "trick", "hint", "black", "red", "green", "yellow", "blue", "magenta", "cyan", "white", "clinton", "bush", "jfk", "sex", NULL }; cutils-1.6/src/cobfusc/lexer.l0100644000076500001450000001440707324030632015740 0ustar sandrosandro/* $Id: lexer.l,v 1.30 2001/07/14 11:48:42 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ Digit [0-9] Literal [a-zA-Z_] Hex [a-fA-F0-9] Exp [Ee][+-]?{Digit}+ FS (f|F|l|L) IS (u|U|l|L)+ %{ #include #include #include #include #include #include "config.h" #include "tokens.h" static void string(void); static void comment(void); static int directive(void); static int yywrap(void) { return 1; } extern int opt_digraphize; %} %% "/*" { comment(); return COMMENT; } "#" { return directive(); } "##" { return HASHHASH; } "auto" { return KEYWORD; } "break" { return KEYWORD; } "case" { return KEYWORD; } "char" { return KEYWORD; } "const" { return KEYWORD; } "continue" { return KEYWORD; } "default" { return KEYWORD; } "do" { return KEYWORD; } "double" { return KEYWORD; } "else" { return KEYWORD; } "enum" { return KEYWORD; } "extern" { return KEYWORD; } "float" { return KEYWORD; } "for" { return KEYWORD; } "goto" { return KEYWORD; } "if" { return KEYWORD; } "int" { return KEYWORD; } "long" { return KEYWORD; } "register" { return KEYWORD; } "return" { return KEYWORD; } "short" { return KEYWORD; } "signed" { return KEYWORD; } "sizeof" { return KEYWORD; } "static" { return KEYWORD; } "struct" { return KEYWORD; } "switch" { return KEYWORD; } "typedef" { return KEYWORD; } "union" { return KEYWORD; } "unsigned" { return KEYWORD; } "void" { return KEYWORD; } "volatile" { return KEYWORD; } "while" { return KEYWORD; } {Literal}({Literal}|{Digit})* { return IDENTIFIER; } 0[xX]{Hex}+{IS}? { return CONSTANT; } 0{Digit}+{IS}? { return CONSTANT; } {Digit}+{IS} { return CONSTANT; } {Digit}+ { return INTEGER; } '(\\.|[^\\'])+' { return CHARACTER; } {Digit}+{Exp}{FS}? { return CONSTANT; } {Digit}*"."{Digit}+({Exp})?{FS}? { return CONSTANT; } {Digit}+"."{Digit}*({Exp})?{FS}? { return CONSTANT; } "\"" { string(); return STRING; } ">>=" { return OPERATOR; } "<<=" { return OPERATOR; } "+=" { return OPERATOR; } "-=" { return OPERATOR; } "*=" { return OPERATOR; } "/=" { return OPERATOR; } "%=" { return OPERATOR; } "&=" { return OPERATOR; } "^=" { return OPERATOR; } "|=" { return OPERATOR; } ">>" { return OPERATOR; } "<<" { return OPERATOR; } "++" { return OPERATOR; } "--" { return OPERATOR; } "->" { return OPERATOR; } "&&" { return OPERATOR; } "||" { return OPERATOR; } "<=" { return OPERATOR; } ">=" { return OPERATOR; } "==" { return OPERATOR; } "!=" { return OPERATOR; } "..." { return OPERATOR; } ";" { return ';'; } "{" { return '{'; } "}" { return '}'; } "," { return ','; } ":" { return ':'; } "=" { return '='; } "(" { return '('; } ")" { return ')'; } "[" { return '['; } "]" { return ']'; } "." { return '.'; } "&" { return '&'; } "!" { return '!'; } "~" { return '~'; } "-" { return '-'; } "+" { return '+'; } "*" { return '*'; } "/" { return '/'; } "%" { return '%'; } "<" { return '<'; } ">" { return '>'; } "^" { return '^'; } "|" { return '|'; } "?" { return '?'; } [ \t\v\n\f] { return yytext[0]; } . { return yytext[0]; } %% char *token_buffer; static int maxtoken; void init_lex(void) { maxtoken = 40; token_buffer = (char *)xmalloc(maxtoken + 1); } void done_lex(void) { free(token_buffer); } static char *extend_token_buffer(char *p) { int offset = p - token_buffer; maxtoken = maxtoken * 2 + 10; token_buffer = (char *)xrealloc(token_buffer, maxtoken + 2); return token_buffer + offset; } static void string(void) { char *p; int c; p = token_buffer; *p++ = '"'; while ((c = input()) != EOF && c != '"') { if (p >= token_buffer + maxtoken) p = extend_token_buffer(p); *p++ = c; if (c == '\\') *p++ = input(); } if (c == EOF) errx(1, "unexpected end of file in string"); *p++ = '"'; *p = '\0'; } static void comment(void) { char *p; int c; p = token_buffer; *p++ = '/'; *p++ = '*'; while ((c = input()) != EOF) { resync: if (p >= token_buffer + maxtoken) p = extend_token_buffer(p); *p++ = c; if (c == '*') { if ((c = input()) == '/') { *p++ = c; *p = '\0'; return; } else goto resync; } } *p = '\0'; } static int directive(void) { char *defname; char *p; int c; p = token_buffer; if (opt_digraphize) { *p++ = '%'; *p++ = ':'; } else *p++ = '#'; while (((c = input()) != EOF && c != '\n') && (c == ' ' || c == '\t')) *p++ = c; defname = p; while (isalnum(c) || c == '_') { if (p >= token_buffer + maxtoken) p = extend_token_buffer(p); *p++ = c; c = input(); } unput(c); if (strncmp(defname, "include", 7) != 0) { *p = '\0'; return DIRECTIVE; } while ((c = input()) != EOF && c != '\n') { if (p >= token_buffer + maxtoken) p = extend_token_buffer(p); *p++ = c; if (c == '\\') *p++ = input(); } unput(c); *p = '\0'; return INCLUDE_DIRECTIVE; } cutils-1.6/src/cobfusc/tokens.h0100644000076500001450000000276507323643604016134 0ustar sandrosandro/* $Id: tokens.h,v 1.11 2001/07/13 19:09:56 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ enum { IDENTIFIER=256, CHARACTER, STRING, COMMENT, DIRECTIVE, INCLUDE_DIRECTIVE, INTEGER, CONSTANT, KEYWORD, OPERATOR, HASHHASH }; cutils-1.6/src/cundecl/0040755000076500001450000000000007324331443014436 5ustar sandrosandrocutils-1.6/src/cundecl/Makefile.in0100644000076500001450000000242307323646544016513 0ustar sandrosandro# $Id: Makefile.in,v 1.8 2001/07/13 19:35:00 sandro Exp $ srcdir = @srcdir@ VPATH = $(srcdir) DESTDIR = prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ mandir = @mandir@/man1 INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ INSTALL = @INSTALL@ CC = @CC@ CFLAGS = -I../.. -I$(srcdir)/../.. -I$(srcdir)/../../lib @CFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = ../../lib/libcutils.a @LIBS@ LEX = @LEX@ YACC = @YACC@ PROG = cundecl OBJS = cundecl.o parser.o lexer.o .c.o: $(CC) -c -I. -I$(srcdir) $(CFLAGS) $< all: $(PROG) $(PROG): $(OBJS) $(CC) $(LDFLAGS) -o $(PROG) $(OBJS) $(LIBS) parser.c parser.h: parser.y $(YACC) -d $(srcdir)/parser.y mv y.tab.c parser.c mv y.tab.h parser.h parser.o lexer.o: parser.h lexer.c: lexer.l $(LEX) $(srcdir)/lexer.l mv lex.yy.c lexer.c .PHONY: install uninstall clean realclean distclean mostlyclean install: $(PROG) $(srcdir)/../../mkinsdir.sh $(DESTDIR)$(bindir) $(DESTDIR)$(mandir) $(INSTALL_PROGRAM) $(PROG) $(DESTDIR)$(bindir) $(INSTALL_DATA) $(srcdir)/$(PROG).1 $(DESTDIR)$(mandir)/$(PROG).1 uninstall: rm -f $(DESTDIR)$(bindir)/$(PROG) rm -f $(DESTDIR)$(mandir)/$(PROG).1 clean: -rm -f $(PROG) *.o -rm -f parser.c parser.h lexer.c distclean: clean -rm -f Makefile realclean: distclean mostlyclean: clean cutils-1.6/src/cundecl/cundecl.10100644000076500001450000000170107324330275016133 0ustar sandrosandro.\" $Id: cundecl.1,v 1.14 2001/07/15 15:03:25 ncvs Exp $ .Dd July 15, 2001 .Os .Dt CDECL 1 .Sh NAME .Nm cundecl .Nd encode C type declarations .Sh SYNOPSIS .Nm cundecl .Op Fl V .Op Fl o Ar file .Op Ar .Sh DESCRIPTION The .Nm cundecl utility reads a verbose english description and produces a C type declaration. Casts are accepted as well. .Pp The options are as follows: .Bl -tag -width indent .It Fl o Ar file Set the output destination to .Ar file . .It Fl V Print version information on standard output then exit. .El .Sh EXAMPLES .Bd -literal declare s as pointer to char; declare x as function (fmt as pointer to const char, ...) returning int; cast s into pointer to const char; cast f into pointer to function (int) returning void; .Ed .Sh SEE ALSO .Xr cdecl 1 .Sh STANDARDS The .Nm utility is expected to be .St -ansiC-89 compatible. .Sh AUTHORS Sandro Sigala . Based on .Nm cdecl written and put in the public domain by Graham Ross. cutils-1.6/src/cundecl/cundecl.c0100644000076500001450000000507207323643604016224 0ustar sandrosandro/* $Id: cundecl.c,v 1.15 2001/07/13 19:09:56 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ #include #include #include #include #include #include "config.h" extern int lineno; extern FILE *yyin; extern int yyparse(void); FILE *output_file; static void process_file(char *filename) { if (filename != NULL && strcmp(filename, "-") != 0) { if ((yyin = fopen(filename, "r")) == NULL) err(1, "%s", filename); } else yyin = stdin; lineno = 1; yyparse(); if (yyin != stdin) fclose(yyin); } /* * Output the program syntax then exit. */ static void usage(void) { fprintf(stderr, "usage: cundecl [-V] [-o file] [file ...]\n"); exit(1); } /* * Used by the err() functions. */ char *progname; int main(int argc, char **argv) { int c; progname = argv[0]; output_file = stdout; while ((c = getopt(argc, argv, "o:V")) != -1) switch (c) { case 'o': if (output_file != stdout) fclose(output_file); if ((output_file = fopen(optarg, "w")) == NULL) err(1, "%s", optarg); break; case 'V': fprintf(stderr, "%s\n", CUTILS_VERSION); exit(0); case '?': default: usage(); /* NOTREACHED */ } argc -= optind; argv += optind; if (argc < 1) process_file(NULL); else while (*argv) process_file(*argv++); return 0; } cutils-1.6/src/cundecl/lexer.l0100644000076500001450000000526607323643604015744 0ustar sandrosandro/* $Id: lexer.l,v 1.13 2001/07/13 19:09:56 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ %{ #include #include "parser.h" int lineno = 1; static int yywrap(void) { return 1; } %} %% "\n" { lineno++; } [ \t\v\f\r] /* eat whitespaces */ "array" { return ARRAY; } "as" { return AS; } "cast" { return CAST; } "declare"|"decl" { return DECLARE; } "expects" /* ignore */ "function"|"func" { return FUNCTION; } "into" { return INTO; } "of" { return OF; } "pointer"|"ptr" { return POINTER; } "returning"|"ret" { return RETURNING; } "to" { return TO; } "that" /* ignore */ "auto" { return AUTO; } "char" { return CHAR; } "const" { return CONST; } "double" { return DOUBLE; } "enum" { return ENUM; } "extern" { return EXTERN; } "float" { return FLOAT; } "int" { return INT; } "long" { return LONG; } "register" { return REGISTER; } "short" { return SHORT; } "signed" { return SIGNED; } "static" { return STATIC; } "struct" { return STRUCT; } "typedef" { return TYPEDEF; } "union" { return UNION; } "unsigned" { return UNSIGNED; } "void" { return VOID; } "volatile" { return VOLATILE; } [a-zA-Z_][a-zA-Z_0-9]* { return IDENTIFIER; } [0-9]+ { return NUMBER; } "," { return ','; } ";" { return ';'; } "(" { return '('; } ")" { return ')'; } "[" { return '['; } "]" { return ']'; } "..." { return ELLIPSIS; } . { errx(1, "%d: unexpected character `%c'", lineno, yytext[0]); } %% cutils-1.6/src/cundecl/parser.y0100644000076500001450000002170307323643604016130 0ustar sandrosandro/* $Id: parser.y,v 1.14 2001/07/13 19:09:56 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ /* * This grammar is based on `cdecl' written and put in the public * domain by Graham Ross and enhanced by other guys. */ %{ #include #include #include #include #include #include "config.h" extern int lineno; #ifdef YYTEXT_POINTER extern char *yytext; #else extern char yytext[]; #endif extern FILE *output_file; static void yyerror(char *); static char *cat(char *, ...); static void unsupp(char *, char *); static void docast(char *, char *, char *, char *); static void dodeclare(char *, char *, char *, char *, char *); static char prev; static int arbdims = 1; #define dup(s) xstrdup(s) %} %union { char *string; struct { char *left; char *right; char *type; } halves; } %token IDENTIFIER NUMBER ELLIPSIS %token ARRAY AS CAST DECLARE FUNCTION %token INTO OF POINTER RETURNING TO %token CHAR CONST VOLATILE DOUBLE ENUM FLOAT INT LONG %token SHORT SIGNED STRUCT UNION UNSIGNED VOID %token TYPEDEF AUTO EXTERN REGISTER STATIC %type identifier number %type declaration_list declaration_list2 dimension %type type_qualifier_list type_modifier_list type_modifier_list2 %type type_modifier type_qualifier_list_opt storage_class_opt %type storage_class type_tag type_name type type_qualifier %type declaration %% file: /* empty */ | command_list ; command_list: command | command_list command ; command: DECLARE identifier AS storage_class_opt declaration ';' { dodeclare($2, $4, $5.left, $5.right, $5.type); } | CAST identifier INTO declaration ';' { docast($2, $4.left, $4.right, $4.type); } ; declaration_list: /* empty */ { $$ = dup(""); } | declaration_list2 { $$ = $1; } | declaration_list ',' declaration_list2 { $$ = cat($1, dup(", "), $3, NULL); } ; declaration_list2: identifier { $$ = $1; } | declaration { char *p = cat($1.left, $1.right, NULL); $$ = cat($1.type, dup(strlen(p) > 0 ? " " : ""), p, NULL); } | identifier AS declaration { $$ = cat($3.type, dup(" "), $3.left, $1, $3.right, NULL); } | ELLIPSIS { $$ = dup("..."); } ; declaration: FUNCTION RETURNING declaration { if (prev == 'f') unsupp("function returning function", "function returning pointer to function"); else if (prev == 'A' || prev == 'a') unsupp("function returning array", "function returning pointer"); $$.left = $3.left; $$.right = cat(dup("()"), $3.right, NULL); $$.type = $3.type; prev = 'f'; } | FUNCTION '(' declaration_list ')' RETURNING declaration { if (prev == 'f') unsupp("function returning function", "function returning pointer to function"); else if (prev == 'A' || prev == 'a') unsupp("function returning array", "function returning pointer"); $$.left = $6.left; $$.right = cat(dup("("), $3, dup(")"), $6.right, NULL); $$.type = $6.type; prev = 'f'; } | ARRAY dimension OF declaration { if (prev == 'f') unsupp("array of function", "array of pointer to function"); else if (prev == 'a') unsupp("inner array of unspecified size", "array of pointer"); else if (prev == 'v') unsupp("array of void", "pointer to void"); if (arbdims) prev = 'a'; else prev = 'A'; $$.left = $4.left; $$.right = cat($2, $4.right, NULL); $$.type = $4.type; } | type_qualifier_list_opt POINTER TO declaration { char *op = "", *cp = "", *sp = ""; if (prev == 'a') unsupp("pointer to array of unspecified dimension", "pointer to object"); if (prev == 'a' || prev == 'A' || prev == 'f') { op = "("; cp = ")"; } if (strlen($1) > 0) sp = " "; $$.left = cat($4.left, dup(op), dup("*"), dup(sp), $1, dup(sp), NULL); $$.right = cat(dup(cp), $4.right, NULL); $$.type = $4.type; prev = 'p'; } | type_qualifier_list_opt type { $$.left = dup(""); $$.right = dup(""); $$.type = cat($1, dup(strlen($1) > 0 ? " " : ""), $2, NULL); if (!strcmp($2, "void")) prev = 'v'; else if (!strcmp($2, "struct")) prev = 's'; else prev = 't'; } ; dimension: /* empty */ { arbdims = 1; $$ = dup("[]"); } | number { arbdims = 0; $$ = cat(dup("["), $1, dup("]"), NULL); } | '[' number ']' { arbdims = 0; $$ = cat(dup("["), $2, dup("]"), NULL); } ; type: type_modifier_list { $$ = $1; } | type_name { $$ = $1; } | type_modifier_list type_name { $$ = cat($1, dup(" "), $2, NULL); } | type_tag { $$ = $1; } ; type_tag: STRUCT identifier { $$ = cat(dup("struct"), dup(" "), $2, NULL); } | ENUM identifier { $$ = cat(dup("enum"), dup(" "), $2, NULL); } | UNION identifier { $$ = cat(dup("union"), dup(" "), $2, NULL); } ; type_name: INT { $$ = dup("int"); } | CHAR { $$ = dup("char"); } | FLOAT { $$ = dup("float"); } | DOUBLE { $$ = dup("double"); } | VOID { $$ = dup("void"); } ; type_modifier_list: type_modifier type_modifier_list2 { $$ = cat($1, dup(" "), $2, NULL); } | type_modifier { $$ = $1; } ; type_modifier_list2: type_modifier_list { $$ = $1; } | type_qualifier { $$ = $1; } ; type_modifier: UNSIGNED { $$ = dup("unsigned"); } | SIGNED { $$ = dup("signed"); } | LONG { $$ = dup("long"); } | SHORT { $$ = dup("short"); } ; type_qualifier_list_opt: /* empty */ { $$ = dup(""); } | type_qualifier_list { $$ = $1; } ; type_qualifier_list: type_qualifier type_qualifier_list_opt { $$ = cat($1, dup(strlen($2) > 0 ? " " : ""), $2, NULL); } ; storage_class: TYPEDEF { $$ = dup("typedef"); } | AUTO { $$ = dup("auto"); } | EXTERN { $$ = dup("extern"); } | REGISTER { $$ = dup("register"); } | STATIC { $$ = dup("static"); } ; storage_class_opt: storage_class { $$ = $1; } | /* empty */ { $$ = dup(""); } ; type_qualifier: CONST { $$ = dup("const"); } | VOLATILE { $$ = dup("volatile"); } ; identifier: IDENTIFIER { $$ = dup(yytext); } ; number: NUMBER { $$ = dup(yytext); } ; %% static void unsupp(char *s1, char *s2) { if (s2 != NULL) warnx("%d: unsupported \"%s\" (maybe you mean \"%s\")", lineno, s1, s2); else warnx("%d: unsupported \"%s\"", lineno, s1); } static void yyerror(char *s) { errx(1, "%d: %s", lineno, s); } /* * Catenate the null-terminated strings into a newly allocated string. * The parameter list is terminated by a NULL pointer. * The parameters are deallocated after copy. */ static char *cat(char *s, ...) { va_list ap; int size; char *p, *newstr; size = strlen(s) + 1; va_start(ap, s); while ((p = va_arg(ap, char *)) != NULL) size += strlen(p) + 1; va_end(ap); newstr = (char *)xmalloc(size); va_start(ap, s); strcpy(newstr, s); free(s); while ((p = va_arg(ap, char *)) != NULL) { strcat(newstr, p); free(p); } va_end(ap); return newstr; } static void docast(char *name, char *left, char *right, char *type) { int lenl = strlen(left), lenr = strlen(right); if (prev == 'f') unsupp("cast into function", "cast into pointer to function"); else if (prev == 'A' || prev == 'a') unsupp("cast into array", "cast into pointer"); printf("(%s%*s%s)%s;\n", type, lenl + lenr ? lenl + 1 : 0, left, right, name); free(left); free(right); free(type); free(name); } static void dodeclare(char *name, char *storage, char *left, char *right, char *type) { if (prev == 'v') unsupp("variable of type void", "variable of type pointer to void"); if (*storage == 'r') switch (prev) { case 'f': unsupp("register function", NULL); break; case 'A': case 'a': unsupp("register array", NULL); break; case 's': unsupp("register struct/class", NULL); break; } if (*storage) printf("%s ", storage); printf("%s %s%s%s;\n", type, left, name, right); free(storage); free(left); free(right); free(type); free(name); } cutils-1.6/src/cunloop/0040755000076500001450000000000007324331443014500 5ustar sandrosandrocutils-1.6/src/cunloop/METHODS0100644000076500001450000000167206336370411015531 0ustar sandrosandro-=-=-=-=-=-=-=-=-= Source =-=-=-=-=-=-=-=-=- while (expr) instr -=-=-=-=-=-=-=-=- Method 1 -=-=-=-=-=-=-=-=- l_continue: if (!(expr)) goto l_break; instr; goto l_continue; l_break: -=-=-=-=-=-=-=-=- Method 2 -=-=-=-=-=-=-=-=- goto l_continue: l_do_expr: instr; l_continue: if (expr) goto l_do_expr; l_break: -=-=-=-=-=-=-=-=-= Source =-=-=-=-=-=-=-=-=- do instr while (expr) -=-=-=-=-=-=-=-=- Method 1 -=-=-=-=-=-=-=-=- l_continue: instr; if (expr) goto l_continue; l_break: -=-=-=-=-=-=-=-=-= Source =-=-=-=-=-=-=-=-=- for (expr1; expr2; expr3) instr -=-=-=-=-=-=-=-=- Method 1 -=-=-=-=-=-=-=-=- expr1; l_loop: if (!(expr2)) goto l_break; goto l_instr; l_continue: expr3; goto l_loop; l_instr: instr; goto l_continue; l_break: -=-=-=-=-=-=-=-=-= Source =-=-=-=-=-=-=-=-=- if (expr) instr1 else instr2 -=-=-=-=-=-=-=-=- Method 1 -=-=-=-=-=-=-=-=- if (!(expr)) goto l_else; instr1; goto l_end; l_else: instr2; l_end: cutils-1.6/src/cunloop/Makefile.in0100644000076500001450000000216607323646544016561 0ustar sandrosandro# $Id: Makefile.in,v 1.6 2001/07/13 19:35:00 sandro Exp $ srcdir = @srcdir@ VPATH = $(srcdir) DESTDIR = prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ mandir = @mandir@/man1 INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ INSTALL = @INSTALL@ CC = @CC@ CFLAGS = -I../.. -I$(srcdir)/../.. -I$(srcdir)/../../lib @CFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = ../../lib/libcutils.a @LIBS@ LEX = @LEX@ YACC = @YACC@ PROG = cunloop OBJS = cunloop.o lexer.o .c.o: $(CC) -c -I. -I$(srcdir) $(CFLAGS) $< all: $(PROG) $(PROG): $(OBJS) $(CC) $(LDFLAGS) -o $(PROG) $(OBJS) $(LIBS) lexer.c: lexer.l $(LEX) $(srcdir)/lexer.l mv lex.yy.c lexer.c .PHONY: install uninstall clean realclean distclean mostlyclean install: $(PROG) $(srcdir)/../../mkinsdir.sh $(DESTDIR)$(bindir) $(DESTDIR)$(mandir) $(INSTALL_PROGRAM) $(PROG) $(DESTDIR)$(bindir) $(INSTALL_DATA) $(srcdir)/$(PROG).1 $(DESTDIR)$(mandir)/$(PROG).1 uninstall: rm -f $(DESTDIR)$(bindir)/$(PROG) rm -f $(DESTDIR)$(mandir)/$(PROG).1 clean: -rm -f $(PROG) *.o -rm -f lexer.c distclean: clean -rm -f Makefile realclean: distclean mostlyclean: clean cutils-1.6/src/cunloop/cunloop.10100644000076500001450000000135207324330275016241 0ustar sandrosandro.\" $Id: cunloop.1,v 1.7 2001/07/15 15:03:25 ncvs Exp $ .Dd July 15, 2001 .Os .Dt CUNLOOP 1 .Sh NAME .Nm cunloop .Nd unloop C loops .Sh SYNOPSIS .Nm cunloop .Op Fl V .Op Fl o Ar file .Op Fl p Ar prefix .Op Ar .Sh DESCRIPTION The .Nm cunloop utility unloops the C language loop and branch instructions .Nm while , do , for, if into a sequence of .Nm goto instuctions to render the source file unreadable. .Pp The options are as follows: .Bl -tag -width indent .It Fl o Ar file Set the output destination to .Ar file . .It Fl p Ar prefix Set the identifier prefix for generating the labels. .It Fl V Print version information on standard output then exit. .El .Sh SEE ALSO .Xr cobfusc 1 , .Xr indent 1 .Sh AUTHORS Sandro Sigala cutils-1.6/src/cunloop/cunloop.c0100644000076500001450000002235407323643604016332 0ustar sandrosandro/* $Id: cunloop.c,v 1.10 2001/07/13 19:09:56 sandro Exp $ */ /* * Copyright (c) 1997-2001 Sandro Sigala. 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 ``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 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. */ #include #include #include #include #include #include #include "config.h" #include "tokens.h" #define DEFAULT_PREFIX "l_" /* From lexer.c */ #ifdef YYTEXT_POINTER extern char *yytext; #else extern char yytext[]; #endif extern char *token_buffer; extern FILE *yyin; extern int yylex(void); extern void init_lex(void); extern void done_lex(void); static int lookahead; static FILE *output_file; static int opt_prefix; /* Indentifier prefix option. */ static char *opt_prefix_arg; /* Option argument. */ #define next_token() (lookahead = yylex()) #define outstr(s) fputs(s, output_file) #define outch(c) fputc(c, output_file) static void outtk(int tk) { switch (tk) { case COMMENT: case STRING: case DIRECTIVE: outstr(token_buffer); break; case KW_BREAK: case KW_CONTINUE: case KW_DO: case KW_ELSE: case KW_FOR: case KW_IF: case KW_SWITCH: case KW_WHILE: case KEYWORD: case IDENTIFIER: case CONSTANT: case CHARACTER: case OPERATOR: outstr(yytext); break; default: outch(tk); } } static int label_counter; static int label_continue; static int label_break; static int parse_until(int untiltk); static void do_while(void) { int label_c = ++label_counter; int label_b = ++label_counter; int save_label_c = label_continue; int save_label_b = label_break; label_continue = label_c; label_break = label_b; while (lookahead != '(') next_token(); next_token(); outstr("{\n"); fprintf(output_file, "%s%d:\n", opt_prefix_arg, label_c); outstr("if (!("); parse_until(UNTIL_CLOSEPAREN); outstr(")\n"); fprintf(output_file, "goto %s%d;\n", opt_prefix_arg, label_b); parse_until(UNTIL_ENDOFINSTR); fprintf(output_file, "goto %s%d;\n", opt_prefix_arg, label_c); fprintf(output_file, "%s%d:;\n", opt_prefix_arg, label_b); outstr("}\n"); label_continue = save_label_c; label_break = save_label_b; } static void do_do(void) { int label_c = ++label_counter; int label_b = ++label_counter; int save_label_c = label_continue; int save_label_b = label_break; label_continue = label_c; label_break = label_b; outstr("{\n"); fprintf(output_file, "%s%d:\n", opt_prefix_arg, label_c); parse_until(UNTIL_ENDOFINSTR); while (lookahead != '(') next_token(); next_token(); outstr("if ("); parse_until(UNTIL_CLOSEPAREN); fprintf(output_file, "\ngoto %s%d;\n", opt_prefix_arg, label_c); fprintf(output_file, "%s%d:;\n", opt_prefix_arg, label_b); outstr("}\n"); label_continue = save_label_c; label_break = save_label_b; } static void do_for(void) { int label_l = ++label_counter; int label_c = ++label_counter; int label_b = ++label_counter; int label_i = ++label_counter; int save_label_c = label_continue; int save_label_b = label_break; label_continue = label_c; label_break = label_b; outstr("{\n"); while (lookahead != '(') next_token(); next_token(); parse_until(UNTIL_ENDOFINSTR); fprintf(output_file, "%s%d:\n", opt_prefix_arg, label_l); outstr("if (!("); if (!parse_until(UNTIL_ENDOFINSTR_NOECHO)) fprintf(output_file, "1"); outstr("))\n"); fprintf(output_file, "goto %s%d;\n", opt_prefix_arg, label_b); fprintf(output_file, "goto %s%d;\n", opt_prefix_arg, label_i); fprintf(output_file, "%s%d:", opt_prefix_arg, label_c); parse_until(UNTIL_CLOSEPAREN_NOECHO); outstr(";\n"); fprintf(output_file, "goto %s%d;\n", opt_prefix_arg, label_l); fprintf(output_file, "%s%d:\n", opt_prefix_arg, label_i); parse_until(UNTIL_ENDOFINSTR); fprintf(output_file, "goto %s%d;\n", opt_prefix_arg, label_c); fprintf(output_file, "%s%d:;\n", opt_prefix_arg, label_b); outstr("}\n"); label_continue = save_label_c; label_break = save_label_b; } static void do_switch(void) { int save_label_b = label_break; label_break = 0; outstr("switch"); parse_until(UNTIL_ENDOFINSTR); label_break = save_label_b; } static void do_if(void) { int label_l = ++label_counter; int label_e; while (lookahead != '(') next_token(); next_token(); outstr("{\n"); outstr("if (!("); parse_until(UNTIL_CLOSEPAREN); outstr(")\n"); fprintf(output_file, "goto %s%d;\n", opt_prefix_arg, label_l); parse_until(UNTIL_ENDOFINSTR); while (isspace(lookahead)) next_token(); if (lookahead == KW_ELSE) { label_e = ++label_counter; fprintf(output_file, "goto %s%d;\n", opt_prefix_arg, label_e); } fprintf(output_file, "%s%d:;\n", opt_prefix_arg, label_l); if (lookahead == KW_ELSE) { next_token(); parse_until(UNTIL_ENDOFINSTR); fprintf(output_file, "%s%d:;\n", opt_prefix_arg, label_e); } outstr("}\n"); } /* * The main parsing function. */ static int parse_until(int untiltk) { int nparens = 0, nblocks = 0; int isexpr = 0; if (untiltk == UNTIL_CLOSEPAREN || untiltk == UNTIL_CLOSEPAREN_NOECHO) nparens++; while (lookahead != 0) switch (lookahead) { case '(': next_token(); isexpr = 1; if (nblocks == 0) nparens++; outch('('); break; case ')': next_token(); isexpr = 1; if (nblocks == 0) nparens--; if (untiltk == UNTIL_CLOSEPAREN_NOECHO && nparens == 0) return isexpr; outch(')'); if (untiltk == UNTIL_CLOSEPAREN && nparens == 0) return isexpr; break; case '{': next_token(); isexpr = 1; nblocks++; outch('{'); break; case '}': next_token(); isexpr = 1; nblocks--; outch('}'); if (untiltk == UNTIL_ENDOFINSTR && nblocks == 0) return isexpr; break; case ';': next_token(); if (untiltk == UNTIL_ENDOFINSTR_NOECHO && nblocks == 0) return isexpr; outch(';'); if (untiltk == UNTIL_ENDOFINSTR && nblocks == 0) return isexpr; break; case KW_DO: next_token(); do_do(); if (untiltk == UNTIL_ENDOFINSTR && nblocks == 0) return isexpr; break; case KW_WHILE: next_token(); do_while(); if (untiltk == UNTIL_ENDOFINSTR && nblocks == 0) return isexpr; break; case KW_FOR: next_token(); do_for(); if (untiltk == UNTIL_ENDOFINSTR && nblocks == 0) return isexpr; break; case KW_SWITCH: next_token(); do_switch(); if (untiltk == UNTIL_ENDOFINSTR && nblocks == 0) return isexpr; break; case KW_IF: next_token(); do_if(); if (untiltk == UNTIL_ENDOFINSTR && nblocks == 0) return isexpr; break; case KW_BREAK: next_token(); if (label_break > 0) fprintf(output_file, "goto %s%d", opt_prefix_arg, label_break); else outstr("break"); break; case KW_CONTINUE: next_token(); if (label_continue > 0) fprintf(output_file, "goto %s%d", opt_prefix_arg, label_continue); else outstr("continue"); break; default: if (!isspace(lookahead)) isexpr = 1; outtk(lookahead); next_token(); } return isexpr; } static void parse(void) { next_token(); parse_until(0); } static void process_file(char *filename) { if (filename != NULL && strcmp(filename, "-") != 0) { if ((yyin = fopen(filename, "r")) == NULL) err(1, "%s", filename); } else yyin = stdin; init_lex(); label_continue = label_break = label_counter = 0; parse(); done_lex(); if (yyin != stdin) fclose(yyin); } /* * Output the program syntax then exit. */ static void usage(void) { fprintf(stderr, "usage: cunroll [-V] [-o file] [-p prefix] [file ...]\n"); exit(1); } /* * Used by the err() functions. */ char *progname; int main(int argc, char **argv) { int c; progname = argv[0]; output_file = stdout; while ((c = getopt(argc, argv, "Vo:p:")) != -1) switch (c) { case 'o': if (output_file != stdout) fclose(output_file); if ((output_file = fopen(optarg, "w")) == NULL) err(1, "%s", optarg); break; case 'p': opt_prefix = 1; opt_prefix_arg = optarg; break; case 'V': fprintf(stderr, "%s\n", CUTILS_VERSION); exit(0); case '?': default: usage(); /* NOTREACHED */ } argc -= optind; argv += optind; if (!opt_prefix) opt_prefix_arg = DEFAULT_PREFIX; if (argc < 1) process_file(NULL); else while (*argv) process_file(*argv++); if (output_file != stdout) fclose(output_file); return 0; } cutils-1.6/src/cunloop/lexer.l0100644000076500001450000001345107323643604016001 0ustar sandrosandro/* $Id: lexer.l,v 1.9 2001/07/13 19:09:56 sandro Exp $ */ /* * Copyright (c) 1997-2001 Sandro Sigala. 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 ``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 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. */ Digit [0-9] Literal [a-zA-Z_] Hex [a-fA-F0-9] Exp [Ee][+-]?{Digit}+ FS (f|F|l|L) IS (u|U|l|L)+ %{ #include #include #include #include #include #include "config.h" #include "tokens.h" static void string(void); static void comment(void); static void directive(void); static int yywrap(void) { return 1; } %} %% "/*" { comment(); return COMMENT; } "#" { directive(); return DIRECTIVE; } "auto" { return KEYWORD; } "break" { return KW_BREAK; } "case" { return KEYWORD; } "char" { return KEYWORD; } "const" { return KEYWORD; } "continue" { return KW_CONTINUE; } "default" { return KEYWORD; } "do" { return KW_DO; } "double" { return KEYWORD; } "else" { return KW_ELSE; } "enum" { return KEYWORD; } "extern" { return KEYWORD; } "float" { return KEYWORD; } "for" { return KW_FOR; } "goto" { return KEYWORD; } "if" { return KW_IF; } "int" { return KEYWORD; } "long" { return KEYWORD; } "register" { return KEYWORD; } "return" { return KEYWORD; } "short" { return KEYWORD; } "signed" { return KEYWORD; } "sizeof" { return KEYWORD; } "static" { return KEYWORD; } "struct" { return KEYWORD; } "switch" { return KW_SWITCH; } "typedef" { return KEYWORD; } "union" { return KEYWORD; } "unsigned" { return KEYWORD; } "void" { return KEYWORD; } "volatile" { return KEYWORD; } "while" { return KW_WHILE; } {Literal}({Literal}|{Digit})* { return IDENTIFIER; } 0[xX]{Hex}+{IS}? { return CONSTANT; } 0{Digit}+{IS}? { return CONSTANT; } {Digit}+{IS} { return CONSTANT; } {Digit}+ { return CONSTANT; } '(\\.|[^\\'])+' { return CHARACTER; } {Digit}+{Exp}{FS}? { return CONSTANT; } {Digit}*"."{Digit}+({Exp})?{FS}? { return CONSTANT; } {Digit}+"."{Digit}*({Exp})?{FS}? { return CONSTANT; } "\"" { string(); return STRING; } ">>=" { return OPERATOR; } "<<=" { return OPERATOR; } "+=" { return OPERATOR; } "-=" { return OPERATOR; } "*=" { return OPERATOR; } "/=" { return OPERATOR; } "%=" { return OPERATOR; } "&=" { return OPERATOR; } "^=" { return OPERATOR; } "|=" { return OPERATOR; } ">>" { return OPERATOR; } "<<" { return OPERATOR; } "++" { return OPERATOR; } "--" { return OPERATOR; } "->" { return OPERATOR; } "&&" { return OPERATOR; } "||" { return OPERATOR; } "<=" { return OPERATOR; } ">=" { return OPERATOR; } "==" { return OPERATOR; } "!=" { return OPERATOR; } "..." { return OPERATOR; } ";" { return ';'; } "{" { return '{'; } "}" { return '}'; } "," { return ','; } ":" { return ':'; } "=" { return '='; } "(" { return '('; } ")" { return ')'; } "[" { return '['; } "]" { return ']'; } "." { return '.'; } "&" { return '&'; } "!" { return '!'; } "~" { return '~'; } "-" { return '-'; } "+" { return '+'; } "*" { return '*'; } "/" { return '/'; } "%" { return '%'; } "<" { return '<'; } ">" { return '>'; } "^" { return '^'; } "|" { return '|'; } "?" { return '?'; } [ \t\v\n\f] { return yytext[0]; } . { return yytext[0]; } %% char *token_buffer; static int maxtoken; void init_lex(void) { maxtoken = 40; token_buffer = (char *)xmalloc(maxtoken + 1); } void done_lex(void) { free(token_buffer); } static char * extend_token_buffer(char *p) { int offset = p - token_buffer; maxtoken = maxtoken * 2 + 10; token_buffer = (char *)xrealloc(token_buffer, maxtoken + 2); return token_buffer + offset; } static void string(void) { char *p; int c; p = token_buffer; *p++ = '"'; while ((c = input()) != EOF && c != '"') { if (p >= token_buffer + maxtoken) p = extend_token_buffer(p); *p++ = c; if (c == '\\') *p++ = input(); } if (c == EOF) errx(1, "unexpected end of file in string"); *p++ = '"'; *p = '\0'; } static void comment(void) { char *p; int c; p = token_buffer; *p++ = '/'; *p++ = '*'; while ((c = input()) != EOF) { resync: if (p >= token_buffer + maxtoken) p = extend_token_buffer(p); *p++ = c; if (c == '*') if ((c = input()) == '/') { *p++ = c; *p = '\0'; return; } else goto resync; } *p = '\0'; } static void directive(void) { char *p; int c; p = token_buffer; *p++ = '#'; while ((c = input()) != EOF && c != '\n') { if (p >= token_buffer + maxtoken) p = extend_token_buffer(p); *p++ = c; if (c == '\\') *p++ = input(); } *p++ = c; *p = '\0'; } cutils-1.6/src/cunloop/tokens.h0100644000076500001450000000317107323643604016157 0ustar sandrosandro/* $Id: tokens.h,v 1.5 2001/07/13 19:09:56 sandro Exp $ */ /* * Copyright (c) 1997-2001 Sandro Sigala. 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 ``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 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. */ enum { IDENTIFIER=256, CHARACTER, STRING, COMMENT, CONSTANT, DIRECTIVE, KEYWORD, KW_BREAK, KW_CONTINUE, KW_DO, KW_ELSE, KW_FOR, KW_IF, KW_SWITCH, KW_WHILE, OPERATOR, UNTIL_CLOSEPAREN, UNTIL_CLOSEPAREN_NOECHO, UNTIL_ENDOFINSTR, UNTIL_ENDOFINSTR_NOECHO }; cutils-1.6/src/yyextract/0040755000076500001450000000000007324331443015055 5ustar sandrosandrocutils-1.6/src/yyextract/Makefile.in0100644000076500001450000000245307323645354017133 0ustar sandrosandro# $Id: Makefile.in,v 1.7 2001/07/13 19:24:28 sandro Exp $ srcdir = @srcdir@ VPATH = $(srcdir) DESTDIR = prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ mandir = @mandir@/man1 INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ INSTALL = @INSTALL@ CC = @CC@ CFLAGS = -I../.. -I$(srcdir)/../.. -I$(srcdir)/../../lib @CFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = ../../lib/libcutils.a @LIBS@ LEX = @LEX@ YACC = @YACC@ PROG = yyextract OBJS = yyextract.o parser.o lexer.o tree.o .c.o: $(CC) -c -I. -I$(srcdir) $(CFLAGS) $< all: $(PROG) $(PROG): $(OBJS) $(CC) $(LDFLAGS) -o $(PROG) $(OBJS) $(LIBS) parser.c parser.h: parser.y $(YACC) -d $(srcdir)/parser.y mv y.tab.c parser.c mv y.tab.h parser.h yyextract.o parser.o lexer.o: parser.h lexer.c: lexer.l $(LEX) $(srcdir)/lexer.l mv lex.yy.c lexer.c .PHONY: install uninstall clean realclean distclean mostlyclean install: $(PROG) $(srcdir)/../../mkinsdir.sh $(DESTDIR)$(bindir) $(DESTDIR)$(mandir) $(INSTALL_PROGRAM) $(PROG) $(DESTDIR)$(bindir) $(INSTALL_DATA) $(srcdir)/$(PROG).1 $(DESTDIR)$(mandir)/$(PROG).1 uninstall: rm -f $(DESTDIR)$(bindir)/$(PROG) rm -f $(DESTDIR)$(mandir)/$(PROG).1 clean: -rm -f $(PROG) *.o -rm -f parser.c parser.h lexer.c distclean: clean -rm -f Makefile realclean: distclean mostlyclean: clean cutils-1.6/src/yyextract/lexer.l0100644000076500001450000000702607323643604016357 0ustar sandrosandro/* $Id: lexer.l,v 1.20 2001/07/13 19:09:56 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ %{ #include #include #include #include #include #include "parser.h" extern int parser_run; extern void add_token(char *); int lineno = 1; static void comment(void); static void directive(void); static void token(void); static int yywrap(void) { return 1; } %} %% "\n" { lineno++; } [ \t\v\f\r] /* eat whitespaces */ "/*" { comment(); } "#" { directive(); } [a-zA-Z_\.][a-zA-Z_\.0-9]* { return IDENTIFIER; } '(\\.|[^\\'])+' { return CHARACTER; } \"(\\.|\\\n|[^\\"])*\" { return STRING; } "%%" { if (!parser_run) return SECTIONSEP; else return 0; } "%"[ ]*"token" { token(); return TOKEN; } "%"[a-zA-Z_]+ { directive(); } . { return yytext[0]; } %% static void comment(void) { int c; while ((c = input()) != EOF) { resync: if (c == '\n') lineno++; else if (c == '*') if ((c = input()) == '/') return; else if (c == '\n') lineno++; else goto resync; } } static void directive(void) { int c; while ((c = input()) != EOF && c != '\n') if (c == '\\' && input() == '\n') lineno++; lineno++; } static void token(void) { char buf[128]; int c, i; while ((c = input()) != EOF && c != '\n') { if (c == '\'') { i = 0; buf[i++] = '\''; while ((c = input()) != EOF && c != '\n') buf[i++] = c; if (c == EOF) errx(1, "%d: unexpected end of file", lineno); else if (c == '\n') errx(1, "%d: unexpected newline", lineno); buf[i++] = '\''; buf[i++] = '\0'; add_token(buf); } else if (c == '<') { /* * Skip the type definition. */ while ((c = input()) != '>' && c != EOF && c != '\n') ; if (c == EOF) errx(1, "%d: unexpected end of file", lineno); else if (c == '\n') errx(1, "%d: unexpected newline", lineno); } else if (isalpha(c)) { i = 0; buf[i++] = c; while (isalnum(c = input()) || c == '_') buf[i++] = c; if (c == EOF) errx(1, "%d: unexpected end of file", lineno); unput(c); buf[i++] = '\0'; add_token(buf); } else if (c != ' ' && c != '\t') errx(1, "%d: unexpected character `%c'", lineno, c); } if (c == EOF) errx(1, "%d: unexpected end of file", lineno); lineno++; } cutils-1.6/src/yyextract/parser.y0100644000076500001450000000653507323643604016555 0ustar sandrosandro/* $Id: parser.y,v 1.19 2001/07/13 19:09:56 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ %{ #include #include #include "config.h" #include "tree.h" #ifdef YYTEXT_POINTER extern char *yytext; #else extern char yytext[]; #endif extern int yylex(void); struct object_s *parsing_tree; static void yyerror(char *s); static void skip_action(void); %} %union { struct object_s *object; } %type rule rule_list %type or identifier string character %type component component_list component_list_opt %token IDENTIFIER STRING CHARACTER %token TOKEN SECTIONSEP %token RULE %% grammar: /* empty */ { parsing_tree = NULL; } | rule_list { parsing_tree = $1; } ; rule_list: rule_list rule { link_object(last_object($1), $2); $$ = $1; } | rule { $$ = $1; } ; rule: identifier ':' component_list_opt ';' { $$ = new_object(RULE, $1->value); free_object($1); assoc_object($$, $3); } ; component_list_opt: /* empty */ { $$ = NULL; } | component_list { $$ = $1; } ; component_list: component_list component { if ($2 != NULL) { if ($1 != NULL) { link_object(last_object($1), $2); $$ = $1; } else $$ = $2; } else $$ = $1; } | component { $$ = $1; } ; component: action { $$ = NULL; } | or { $$ = $1; } | identifier { $$ = $1; } | string { $$ = $1; } | character { $$ = $1; } ; action: '{' { skip_action(); } | '=' '{' { skip_action(); } ; or: '|' { $$ = new_object('|', yytext); } ; identifier: IDENTIFIER { $$ = new_object(IDENTIFIER, yytext); } ; string: STRING { $$ = new_object(STRING, yytext); } ; character: CHARACTER { $$ = new_object(CHARACTER, yytext); } ; %% extern int lineno; static void yyerror(char *s) { errx(1, "%d:%s", lineno, s); } static void skip_action(void) { int tk, brace = 1; while (brace > 0 && (tk = yylex()) != 0 && tk != SECTIONSEP) if (tk == '{') brace++; else if (tk == '}') brace--; if (tk == 0) errx(1, "unexpected end of file in action"); else if (tk == SECTIONSEP) errx(1, "section separator found in action"); } cutils-1.6/src/yyextract/tree.c0100644000076500001450000000551507323643604016167 0ustar sandrosandro/* $Id: tree.c,v 1.12 2001/07/13 19:09:56 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ #include #include #include #include #include #include "config.h" #include "tree.h" /* * Build a new object allocating a memory area. */ struct object_s *new_object(int type, char *value) { struct object_s *p; p = (struct object_s *)xmalloc(sizeof(struct object_s)); p->value = xstrdup(value); p->type = type; p->next = NULL; p->assoc = NULL; return p; } /* * Return the last object of an object list. * This function assumes that p != NULL. */ struct object_s *last_object(struct object_s *p) { while (p->next != NULL) p = p->next; return p; } /* * Count the number of objects that are in an object list. */ int count_objects(struct object_s *p) { int count = 0; for (; p != NULL; p = p->next) count++; return count; } /* * Link an object to an object list. */ struct object_s *link_object(struct object_s *dest, struct object_s *next) { dest->next = next; return dest; } /* * Associate an object to an object list. */ struct object_s *assoc_object(struct object_s *dest, struct object_s *assoc) { dest->assoc = assoc; return dest; } /* * Deallocate the memory area used by an object. */ void free_object(struct object_s *p) { if (p->value != NULL) free(p->value); free(p); } /* * Deallocate an object list. */ void free_object_list(struct object_s *p) { struct object_s *next; while (p != NULL) { next = p->next; if (p->assoc != NULL) free_object_list(p->assoc); free_object(p); p = next; } } cutils-1.6/src/yyextract/tree.h0100644000076500001450000000364307323643604016174 0ustar sandrosandro/* $Id: tree.h,v 1.12 2001/07/13 19:09:56 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ #ifndef TREE_H #define TREE_H struct object_s { int type; char *value; struct object_s *next; struct object_s *assoc; }; extern struct object_s *new_object(int type, char *value); extern struct object_s *last_object(struct object_s *p); extern int count_objects(struct object_s *p); extern struct object_s *link_object(struct object_s *dest, struct object_s *next); extern struct object_s *assoc_object(struct object_s *dest, struct object_s *assoc); extern void free_object(struct object_s *p); extern void free_object_list(struct object_s *p); #endif /* !TREE_H */ cutils-1.6/src/yyextract/yyextract.10100644000076500001450000000222307324330275017171 0ustar sandrosandro.\" $Id: yyextract.1,v 1.17 2001/07/15 15:03:25 ncvs Exp $ .Dd July 15, 2001 .Os .Dt YYEXTRACT 1 .Sh NAME .Nm yyextract .Nd extract grammar rules from a yacc grammar .Sh SYNOPSIS .Nm yyextract .Op Fl behyV .Op Fl o Ar file .Op Fl t Ar title .Op Fl w Ar cols .Op Ar .Sh DESCRIPTION The .Nm yyextract utility extracts the grammar rules from a yacc grammar. .Pp The options are as follows: .Bl -tag -width indent .It Fl b Select the Backus-Naur Form (BNF) for the output. .It Fl e Select the Extended Backus-Naur Form (EBNF) for the output. .It Fl h Output in HTML format. .It Fl o Ar file Set the output destination to .Ar file . .It Fl t Ar title Specify the page title for the generated HTML page. .It Fl w Ar cols Set the width limit of the output (this sets only the width of the %token header). .It Fl y Select the yacc format for the output. This is the default format. .It Fl V Print version information on standard output then exit. .El .Sh NOTES The Extended Backus-Naur Form (EBNF) is like the Backus-Naur Form (BNF) but with the empty rules translated with the zero-or-one operator (within the brackets '[' and ']'). .Sh AUTHORS Sandro Sigala cutils-1.6/src/yyextract/yyextract.c0100644000076500001450000002477307324315543017272 0ustar sandrosandro/* $Id: yyextract.c,v 1.39 2001/07/15 13:32:19 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ #include #include #include #include #include #include #include "config.h" #include "parser.h" #include "tree.h" extern struct object_s *parsing_tree; /* From lexer.c */ extern int lineno; #ifdef YYTEXT_POINTER extern char *yytext; #else extern char yytext[]; #endif extern char *token_buffer; extern FILE *yyin; extern int yylex(void); extern int yyparse(void); int parser_run; enum { OPT_FORMAT_YACC = 0, OPT_FORMAT_BNF, OPT_FORMAT_EBNF }; static int opt_format; static int opt_html; static int opt_width; static int opt_width_arg = 78; static char *opt_title = NULL; FILE *output_file; struct token_s { char *token; struct token_s *next; }; /* * This should be redone using hash tables. */ static struct token_s *token_list_head = NULL; static struct token_s *token_list_tail = NULL; void add_token(char *token) { struct token_s *new; new = (struct token_s *)xmalloc(sizeof(struct token_s)); new->token = xstrdup(token); new->next = NULL; if (token_list_head == NULL) token_list_head = token_list_tail = new; else { token_list_tail->next = new; token_list_tail = new; } } static int is_token(char *token) { struct token_s *ptr; for (ptr = token_list_head; ptr != NULL; ptr = ptr->next) if (!strcmp(ptr->token, token)) return 1; return 0; } static void free_token_list(void) { struct token_s *ptr = token_list_head, *next; while (ptr != NULL) { next = ptr->next; free(ptr->token); free(ptr); ptr = next; } token_list_head = token_list_tail = NULL; } static void output_tokens(void) { struct token_s *ptr; int col = 8, first = 1; if (token_list_head == NULL) return; fprintf(output_file, "%%token "); for (ptr = token_list_head; ptr != NULL; ptr = ptr->next) { if (strlen(ptr->token) + 1 + col >= opt_width_arg) { fprintf(output_file, "\n%%token "); col = 8; first = 1; } if (!first) fprintf(output_file, " "); if (opt_html) fprintf(output_file, "%s", ptr->token, ptr->token); else fprintf(output_file, "%s", ptr->token); col += strlen(ptr->token) + 1; first = 0; } fprintf(output_file, "\n\n"); } static void bnf_output_tokens(void) { struct token_s *ptr; int col = 1, first = 1; if (token_list_head == NULL) return; fprintf(output_file, "The terminal tokens defined in the grammar:\n"); for (ptr = token_list_head; ptr != NULL; ptr = ptr->next) { if (strlen(ptr->token) + 1 + col >= opt_width_arg) { if (ptr != token_list_head) fprintf(output_file, ","); fprintf(output_file, "\n"); col = 1; first = 1; } if (!first) fprintf(output_file, ", "); if (opt_html) fprintf(output_file, "%s", ptr->token); else fprintf(output_file, "%s", ptr->token); col += strlen(ptr->token) + 2; first = 0; } fprintf(output_file, "\n\n"); } static void skip_section(void) { int tk; parser_run = 0; while ((tk = yylex()) != 0 && tk != SECTIONSEP) ; if (tk == 0) errx(1, "unexpected end of file in the declaration section"); } static void output_components(struct object_s *p) { struct object_s *last = NULL; int num = 0; fprintf(output_file, "\t\t"); for (; p != NULL; p = p->next) { if (p->type == '|') { if (num == 0) fprintf(output_file, "/* empty */"); fprintf(output_file, "\n\t\t| "); num = 0; } else { if (opt_html && *p->value != '\'') { if (is_token(p->value)) fprintf(output_file, "%s ", p->value, p->value); else fprintf(output_file, "%s ", p->value, p->value); } else fprintf(output_file, "%s ", p->value); num++; } last = p; } if (last != NULL && last->type == '|' && num == 0) fprintf(output_file, "/* empty */"); } static void output_tree(struct object_s *p) { int num = 0; for (; p != NULL; p = p->next) { if (num > 0) fprintf(output_file, "\n"); if (opt_html) fprintf(output_file, "%s:\n", p->value, p->value); else fprintf(output_file, "%s:\n", p->value); if (p->assoc != NULL) { output_components(p->assoc); fprintf(output_file, "\n"); } fprintf(output_file, "\t\t;\n"); num++; } } static void pspaces(int n) { int i; for (i = 0; i < n; i++) fprintf(output_file, " "); } static void bnf_output_components(struct object_s *p, int spaces) { struct object_s *last = NULL; int num = 0; for (; p != NULL; p = p->next) { if (p->type == '|') { if (num == 0) fprintf(output_file, "/* empty */"); fprintf(output_file, "\n"); pspaces(spaces); /* fprintf(output_file, "| "); */ num = 0; } else { if (p->type == CHARACTER || p->type == STRING) fprintf(output_file, "%s ", p->value); else if (opt_html && *p->value != '\'') { if (is_token(p->value)) fprintf(output_file, "<%s> ", p->value, p->value); else fprintf(output_file, "<%s> ", p->value, p->value); } else fprintf(output_file, "<%s> ", p->value); num++; } last = p; } if (last != NULL && last->type == '|' && num == 0) fprintf(output_file, "/* empty */"); } static void bnf_output_tree(struct object_s *p) { int num = 0; for (; p != NULL; p = p->next) { if (num > 0) fprintf(output_file, "\n"); if (opt_html) fprintf(output_file, "<%s> ::= ", p->value, p->value); else fprintf(output_file, "<%s> ::= ", p->value); if (p->assoc != NULL) bnf_output_components(p->assoc, strlen(p->value) + 7); fprintf(output_file, "\n"); num++; } } static int bnf_find_empty(struct object_s *p) { int num = 0; for (; p != NULL; p = p->next) if (p->type == '|') { if (num == 0) return 1; num = 0; } else num++; return (num == 0); } static void ebnf_output_components(struct object_s *p, int spaces) { int empty, num = 0; if ((empty = bnf_find_empty(p))) fprintf(output_file, "[ "); for (; p != NULL; p = p->next) { if (p->type == '|') { if (num > 0 && p->next != NULL) { fprintf(output_file, "\n"); pspaces(spaces); /* fprintf(output_file, "| "); */ } num = 0; } else { if (p->type == CHARACTER || p->type == STRING) fprintf(output_file, "%s ", p->value); else if (opt_html && *p->value != '\'') { if (is_token(p->value)) fprintf(output_file, "<%s> ", p->value, p->value); else fprintf(output_file, "<%s> ", p->value, p->value); } else fprintf(output_file, "<%s> ", p->value); num++; } } if (empty) fprintf(output_file, "]"); } static void ebnf_output_tree(struct object_s *p) { int num = 0; for (; p != NULL; p = p->next) { if (num > 0) fprintf(output_file, "\n"); if (opt_html) fprintf(output_file, "<%s> ::= ", p->value, p->value); else fprintf(output_file, "<%s> ::= ", p->value); if (p->assoc != NULL) ebnf_output_components(p->assoc, strlen(p->value) + 7); fprintf(output_file, "\n"); num++; } } static void process_file(char *filename) { if (filename != NULL && strcmp(filename, "-") != 0) { if ((yyin = fopen(filename, "r")) == NULL) err(1, "%s", filename); } else yyin = stdin; lineno = 1; skip_section(); parser_run = 1; yyparse(); if (yyin != stdin) fclose(yyin); if (parsing_tree != NULL) { static int html_head = 0; if (opt_html && !html_head) { fprintf(output_file, "\n" "%s\n" "\n" "
\n", opt_title != NULL ? opt_title : "");
			html_head = 1;
		}
		if (opt_format == OPT_FORMAT_YACC) {
			output_tokens();
			output_tree(parsing_tree);
		} else {
			bnf_output_tokens();
			if (opt_format == OPT_FORMAT_BNF)
				bnf_output_tree(parsing_tree);
			else
				ebnf_output_tree(parsing_tree);
		}
		free_object_list(parsing_tree);
		free_token_list();
	} else
		errx(1, "no grammar found");
}

/*
 * Output the program syntax then exit.
 */
static void usage(void)
{
	fprintf(stderr, "usage: yyextract [-behyV] [-o file] [-t title] [-w cols] [file ...]\n");
	exit(1);
}

/*
 * Used by the err() functions.
 */
char *progname;

int main(int argc, char **argv)
{
	int c;

	progname = argv[0];
	output_file = stdout;

	while ((c = getopt(argc, argv, "beho:t:yw:V")) != -1)
		switch (c) {
		case 'b':
			opt_format = OPT_FORMAT_BNF;
			break;
		case 'e':
			opt_format = OPT_FORMAT_EBNF;
			break;
		case 'h':
			opt_html = 1;
			break;
		case 'o':
			if (output_file != stdout)
				fclose(output_file);
			if ((output_file = fopen(optarg, "w")) == NULL)
				err(1, "%s", optarg);
			break;
		case 't':
			opt_title = optarg;
			break;
		case 'w':
			opt_width = 1;
			if ((opt_width_arg = atoi(optarg)) < 10)
				opt_width_arg = 10;
			break;
		case 'y':
			opt_format = OPT_FORMAT_YACC;
			break;
		case 'V':
			fprintf(stderr, "%s\n", CUTILS_VERSION);
			exit(0);
		case '?':
		default:
			usage();
			/* NOTREACHED */
		}
	argc -= optind;
	argv += optind;

	if (argc < 1)
		process_file(NULL);
	else
	       while (*argv)
			process_file(*argv++);

	if (opt_html) {
		time_t t = time(NULL);
		fprintf(output_file, "
\n" "
\n" "Generated by " CUTILS_VERSION " yyextract - %s" "\n", ctime(&t)); } return 0; } cutils-1.6/src/yyref/0040755000076500001450000000000007324331443014157 5ustar sandrosandrocutils-1.6/src/yyref/Makefile.in0100644000076500001450000000242007323646544016231 0ustar sandrosandro# $Id: Makefile.in,v 1.8 2001/07/13 19:35:00 sandro Exp $ srcdir = @srcdir@ VPATH = $(srcdir) DESTDIR = prefix = @prefix@ exec_prefix = @exec_prefix@ bindir = @bindir@ mandir = @mandir@/man1 INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_DATA = @INSTALL_DATA@ INSTALL = @INSTALL@ CC = @CC@ CFLAGS = -I../.. -I$(srcdir)/../.. -I$(srcdir)/../../lib @CFLAGS@ LDFLAGS = @LDFLAGS@ LIBS = ../../lib/libcutils.a @LIBS@ LEX = @LEX@ YACC = @YACC@ PROG = yyref OBJS = yyref.o parser.o lexer.o .c.o: $(CC) -c -I. -I$(srcdir) $(CFLAGS) $< all: $(PROG) $(PROG): $(OBJS) $(CC) $(LDFLAGS) -o $(PROG) $(OBJS) $(LIBS) parser.c parser.h: parser.y $(YACC) -d $(srcdir)/parser.y mv y.tab.c parser.c mv y.tab.h parser.h parser.o lexer.o: parser.h lexer.c: lexer.l $(LEX) $(srcdir)/lexer.l mv lex.yy.c lexer.c .PHONY: install uninstall clean realclean distclean mostlyclean install: $(PROG) $(srcdir)/../../mkinsdir.sh $(DESTDIR)$(bindir) $(DESTDIR)$(mandir) $(INSTALL_PROGRAM) $(PROG) $(DESTDIR)$(bindir) $(INSTALL_DATA) $(srcdir)/$(PROG).1 $(DESTDIR)$(mandir)/$(PROG).1 uninstall: rm -f $(DESTDIR)$(bindir)/$(PROG) rm -f $(DESTDIR)$(mandir)/$(PROG).1 clean: -rm -f $(PROG) *.o -rm -f parser.c parser.h lexer.c distclean: clean -rm -f Makefile realclean: distclean mostlyclean: clean cutils-1.6/src/yyref/lexer.l0100644000076500001450000000705107323643604015457 0ustar sandrosandro/* $Id: lexer.l,v 1.9 2001/07/13 19:09:56 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ /* * Based on the original work done by Cathy Taylor and put * in the public domain. */ %{ #include #include #include #include "parser.h" extern void nline(int ln); extern FILE *output_file; int lineno; static void action(void); static void comment(void); static void code_block(void); static int yywrap(void) { return 1; } %} digit [0-9] u_case [A-Z] l_case [a-z] id_char [A-Za-z0-9_\.] letter [A-Za-z\._] white [\t ] %% "/*" { comment(); } "%{" { code_block(); return CODE_BLOCK; } "{" { action(); return ACTION; } {letter}{id_char}* { ECHO; return IDENTIFIER; } "'"(\\.|[^'])+"'" { ECHO; return CHARACTER; } {white}+ { ECHO; } {digit}+ { ECHO; return NUMBER; } "%"{white}*"left" { ECHO; return LEFT; } "%"{white}*"right" { ECHO; return RIGHT; } "%"{white}*"nonassoc" { ECHO; return NONASSOC; } "%"{white}*"token" { ECHO; return TOKEN; } "%"{white}*"prec" { ECHO; return PREC; } "%"{white}*"type" { ECHO; return TYPE; } "%"{white}*"start" { ECHO; return START; } "%"{white}*"union" { ECHO; return UNION; } "%%" { ECHO; return DOUBLE_PERCENT; } ":" { ECHO; return ':'; } ";" { ECHO; return ';'; } "," { ECHO; return ','; } "|" { ECHO; return '|'; } "<" { ECHO; return '<'; } ">" { ECHO; return '>'; } "\n" { ECHO; nline(++lineno); } %% static char lastchar, thischar; static int nextchar(void) { char c; c = input(); putc(c, output_file); if (c == '\n') nline(++lineno); lastchar = thischar; thischar = c; return c; } static void comment(void) { int c; ECHO; c = nextchar(); do { while (c != '*') c = nextchar(); c = nextchar(); } while (c != '/'); } static void code_block(void) { int c; ECHO; c = nextchar(); do { while (c != '%') c = nextchar(); c = nextchar(); } while (c != '}'); } static void action(void) { char c; int scope; ECHO; c = nextchar(); scope = 1; while (scope > 0) switch (c = nextchar()) { case '*': if (lastchar == '/') do c = nextchar(); while (lastchar != '*' || c != '/'); break; case '"': do c = nextchar(); while (lastchar == '\\' || c != '"'); break; case '{': scope++; break; case '}': scope--; break; default: break; } } cutils-1.6/src/yyref/parser.y0100644000076500001450000000625707323643604015660 0ustar sandrosandro/* $Id: parser.y,v 1.9 2001/07/13 19:09:56 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ /* * Based on the original work done by Cathy Taylor and put * in the public domain. */ %{ #include #include #include #include #include #include "config.h" extern void on_left(char *, int); extern void on_right(char *, int); extern FILE *output_file; #ifdef YYTEXT_POINTER extern char *yytext; #else extern char yytext[]; #endif extern int lineno; static void yyerror(char *); %} %token IDENTIFIER CHARACTER NUMBER %token LEFT RIGHT NONASSOC TOKEN PREC TYPE START UNION %token DOUBLE_PERCENT CODE_BLOCK ACTION %% file: definition_list_opt DOUBLE_PERCENT rule_list tail { fprintf(output_file, "\n\n"); yyclearin; return 0; } ; tail: /* empty */ | DOUBLE_PERCENT | error ; definition_list_opt: /* empty */ | definition_list ; definition_list: definition | definition_list definition ; definition: START IDENTIFIER | UNION | CODE_BLOCK | rword tag nlist | tokendef | error ; rword: LEFT | RIGHT | NONASSOC | TYPE ; tokendef: TOKEN tokenlist ; tokenlist: IDENTIFIER { on_left(yytext, lineno); } | tokenlist comma_opt IDENTIFIER { on_left(yytext, lineno); } ; tag: /* empty */ | '<' IDENTIFIER '>' ; nlist: IDENTIFIER number_opt | nlist comma_opt IDENTIFIER number_opt ; comma_opt: /* empty */ | ',' ; number_opt: /* empty */ | NUMBER ; rule_list: rule | rule_list rule ; rule: IDENTIFIER { on_left(yytext, lineno); } ':' body ';' | error ';' ; body: body_block | body '|' body_block ; body_block: /* empty */ | body_block body_entity ; body_entity: prec_opt id_entity | ACTION ; id_entity: IDENTIFIER { on_right(yytext, lineno); } | CHARACTER ; prec_opt: /* empty */ | PREC ; %% static void yyerror(char *s) { errx(1, "%d: %s", lineno, s); } void nline(int ln) { fprintf(output_file, "%4d:\t", ln); } cutils-1.6/src/yyref/yyref.10100644000076500001450000000142707324315543015403 0ustar sandrosandro.\" $Id: yyref.1,v 1.12 2001/07/15 13:32:19 sandro Exp $ .Dd July 1, 2001 .Os .Dt YYREF 1 .Sh NAME .Nm yyref .Nd generate cross\-reference for yacc input .Sh SYNOPSIS .Nm yyref .Op Fl V .Op Fl o Ar file .Op Ar .Sh DESCRIPTION .Nm yyref generates cross\-references for .Nm yacc input files. The output consists of a number listing of the header and rules part, followed by the cross\-reference. .Pp The options are as follows: .Bl -tag -width indent .It Fl o Set the output destination to .Ar file . .It Fl V Print version information on standard output then exit. .El .Sh BUGS This utility requires a complete rewrite because of fixed static memory allocation usage. .Sh AUTHORS Sandro Sigala . .Pp Based on .Nm yyxref written and put in the public domain by Cathy Taylor. cutils-1.6/src/yyref/yyref.c0100644000076500001450000001006607323643604015465 0ustar sandrosandro/* $Id: yyref.c,v 1.13 2001/07/13 19:09:56 sandro Exp $ */ /* * Copyright (c) 1995-2001 Sandro Sigala. 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 ``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 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. */ #include #include #include #include #include #include "config.h" extern int lineno; extern FILE *yyin, *yyout; extern int yyparse(void); extern void nline(int ln); FILE *output_file; #define MAXIDENTS 1000 #define MAXCHARS 100 #define MAXDEFS 20 #define MAXOCCS 1000 struct { char ident[MAXCHARS]; int desc[MAXDEFS]; int nextdesc; int occ[MAXOCCS]; int nextocc; } table[MAXIDENTS]; static int yyaction(char *s) { int i; for (i = 0; strcmp(table[i].ident, s) != 0 && strcmp(table[i].ident, "") != 0; i++) ; if (strcmp(table[i].ident, s) != 0) { strcpy(table[i].ident, s); table[i].nextdesc = 0; table[i].nextocc = 0; } return i; } void on_left(char *s, int lineno) { int i; i = yyaction(s); table[i].desc[table[i].nextdesc++] = lineno; } void on_right(char *s, int lineno) { int i; i = yyaction(s); table[i].occ[table[i].nextocc++] = lineno; } static void print_refs(void) { int i, ind; for (i = 0; strcmp(table[i].ident, "") != 0; i++) { fprintf(output_file, "\n%-20s ", table[i].ident); if (table[i].nextdesc == 0) { if (!strcmp(table[i].ident, "error")) fprintf(output_file, " :"); else fprintf(output_file, " : never declared"); } else { ind = 0; fprintf(output_file, "%4d:", table[i].desc[ind++]); for (ind = 1; ind < table[i].nextdesc; ind++) fprintf(output_file, " *%4d", table[i].desc[ind]); } if (table[i].occ[0] == 0) fprintf(output_file, " never occurs on rhs of rule - start rule?"); else for (ind = 0; ind < table[i].nextocc; ind++) fprintf(output_file, " %4d", table[i].occ[ind]); } } static void process_file(char *filename) { if (filename != NULL && strcmp(filename, "-") != 0) { if ((yyin = fopen(filename, "r")) == NULL) err(1, "%s", filename); } else yyin = stdin; strcpy(table[0].ident, ""); lineno = 1; nline(lineno); yyparse(); if (yyin != stdin) fclose(yyin); print_refs(); } /* * Output the program syntax then exit. */ static void usage(void) { fprintf(stderr, "usage: yyref [-V] [-o file] [file ...]\n"); exit(1); } /* * Used by the err() functions. */ char *progname; int main(int argc, char **argv) { int c; progname = argv[0]; output_file = stdout; while ((c = getopt(argc, argv, "o:V")) != -1) switch (c) { case 'o': if (output_file != stdout) fclose(output_file); if ((output_file = fopen(optarg, "w")) == NULL) err(1, "%s", optarg); yyout = output_file; break; case 'V': fprintf(stderr, "%s\n", CUTILS_VERSION); exit(0); case '?': default: usage(); /* NOTREACHED */ } argc -= optind; argv += optind; if (argc < 1) process_file(NULL); else while (*argv) process_file(*argv++); return 0; } cutils-1.6/version.h0100644000076500001450000000004407323636735014076 0ustar sandrosandro#define CUTILS_VERSION "cutils 1.6"