trueprint-5.4/0000755000175000017500000000000012117403106010412 500000000000000trueprint-5.4/replace/0000755000175000017500000000000012117403105012024 500000000000000trueprint-5.4/replace/Makefile.in0000644000175000017500000003221712117066431014025 00000000000000# Makefile.in generated by automake 1.11.6 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = replace DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = LIBRARIES = $(noinst_LIBRARIES) ARFLAGS = cru libreplace_a_AR = $(AR) $(ARFLAGS) libreplace_a_LIBADD = am_libreplace_a_OBJECTS = libreplace_a_OBJECTS = $(am_libreplace_a_OBJECTS) DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(libreplace_a_SOURCES) DIST_SOURCES = $(libreplace_a_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GREP = @GREP@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ INCLUDES = -I$(top_builddir) -I$(top_srcdir) noinst_LIBRARIES = libreplace.a libreplace_a_SOURCES = replace.h all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign replace/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign replace/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): clean-noinstLIBRARIES: -test -z "$(noinst_LIBRARIES)" || rm -f $(noinst_LIBRARIES) libreplace.a: $(libreplace_a_OBJECTS) $(libreplace_a_DEPENDENCIES) $(EXTRA_libreplace_a_DEPENDENCIES) -rm -f libreplace.a $(libreplace_a_AR) libreplace.a $(libreplace_a_OBJECTS) $(libreplace_a_LIBADD) $(RANLIB) libreplace.a mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(LIBRARIES) installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-generic clean-libtool clean-noinstLIBRARIES \ mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-generic \ clean-libtool clean-noinstLIBRARIES ctags distclean \ distclean-compile distclean-generic distclean-libtool \ distclean-tags distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \ pdf pdf-am ps ps-am tags uninstall uninstall-am #libreplace_a_LIBADD = @LIBOBJS@ # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: trueprint-5.4/replace/replace.h0000644000175000017500000000046507625761737013567 00000000000000#ifdef HAVE_LIBINTL_H #include #else char *gettext(const char *); #endif #ifndef HAVE_STRDUP extern char *strdup(const char *); #endif #ifndef HAVE_STRERROR extern char *strerror(int errnum); #endif #ifndef HAVE_STRTOL extern long int strtol(const char *nptr, char **endptr, int base); #endif trueprint-5.4/replace/Makefile.am0000644000175000017500000000033412116421436014006 00000000000000## Makefile.am -- Process this file with automake to produce Makefile.in INCLUDES = -I$(top_builddir) -I$(top_srcdir) noinst_LIBRARIES = libreplace.a libreplace_a_SOURCES = replace.h #libreplace_a_LIBADD = @LIBOBJS@ trueprint-5.4/bootstrap0000755000175000017500000000012607625761335012317 00000000000000#!/bin/sh set -x aclocal -I config autoheader automake --add-missing --copy autoconf trueprint-5.4/aclocal.m40000644000175000017500000010441712117066427012214 00000000000000# generated automatically by aclocal 1.11.6 -*- Autoconf -*- # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, # 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, # Inc. # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. m4_ifndef([AC_AUTOCONF_VERSION], [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl m4_if(m4_defn([AC_AUTOCONF_VERSION]), [2.69],, [m4_warning([this file was generated for autoconf 2.69. You have another version of autoconf. It may work, but is not guaranteed to. If you have problems, you may need to regenerate the build system entirely. To do so, use the procedure documented by the package, typically `autoreconf'.])]) # Copyright (C) 2002, 2003, 2005, 2006, 2007, 2008, 2011 Free Software # Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 1 # AM_AUTOMAKE_VERSION(VERSION) # ---------------------------- # Automake X.Y traces this macro to ensure aclocal.m4 has been # generated from the m4 files accompanying Automake X.Y. # (This private macro should not be called outside this file.) AC_DEFUN([AM_AUTOMAKE_VERSION], [am__api_version='1.11' dnl Some users find AM_AUTOMAKE_VERSION and mistake it for a way to dnl require some minimum version. Point them to the right macro. m4_if([$1], [1.11.6], [], [AC_FATAL([Do not call $0, use AM_INIT_AUTOMAKE([$1]).])])dnl ]) # _AM_AUTOCONF_VERSION(VERSION) # ----------------------------- # aclocal traces this macro to find the Autoconf version. # This is a private macro too. Using m4_define simplifies # the logic in aclocal, which can simply ignore this definition. m4_define([_AM_AUTOCONF_VERSION], []) # AM_SET_CURRENT_AUTOMAKE_VERSION # ------------------------------- # Call AM_AUTOMAKE_VERSION and AM_AUTOMAKE_VERSION so they can be traced. # This function is AC_REQUIREd by AM_INIT_AUTOMAKE. AC_DEFUN([AM_SET_CURRENT_AUTOMAKE_VERSION], [AM_AUTOMAKE_VERSION([1.11.6])dnl m4_ifndef([AC_AUTOCONF_VERSION], [m4_copy([m4_PACKAGE_VERSION], [AC_AUTOCONF_VERSION])])dnl _AM_AUTOCONF_VERSION(m4_defn([AC_AUTOCONF_VERSION]))]) # AM_AUX_DIR_EXPAND -*- Autoconf -*- # Copyright (C) 2001, 2003, 2005, 2011 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 1 # For projects using AC_CONFIG_AUX_DIR([foo]), Autoconf sets # $ac_aux_dir to `$srcdir/foo'. In other projects, it is set to # `$srcdir', `$srcdir/..', or `$srcdir/../..'. # # Of course, Automake must honor this variable whenever it calls a # tool from the auxiliary directory. The problem is that $srcdir (and # therefore $ac_aux_dir as well) can be either absolute or relative, # depending on how configure is run. This is pretty annoying, since # it makes $ac_aux_dir quite unusable in subdirectories: in the top # source directory, any form will work fine, but in subdirectories a # relative path needs to be adjusted first. # # $ac_aux_dir/missing # fails when called from a subdirectory if $ac_aux_dir is relative # $top_srcdir/$ac_aux_dir/missing # fails if $ac_aux_dir is absolute, # fails when called from a subdirectory in a VPATH build with # a relative $ac_aux_dir # # The reason of the latter failure is that $top_srcdir and $ac_aux_dir # are both prefixed by $srcdir. In an in-source build this is usually # harmless because $srcdir is `.', but things will broke when you # start a VPATH build or use an absolute $srcdir. # # So we could use something similar to $top_srcdir/$ac_aux_dir/missing, # iff we strip the leading $srcdir from $ac_aux_dir. That would be: # am_aux_dir='\$(top_srcdir)/'`expr "$ac_aux_dir" : "$srcdir//*\(.*\)"` # and then we would define $MISSING as # MISSING="\${SHELL} $am_aux_dir/missing" # This will work as long as MISSING is not called from configure, because # unfortunately $(top_srcdir) has no meaning in configure. # However there are other variables, like CC, which are often used in # configure, and could therefore not use this "fixed" $ac_aux_dir. # # Another solution, used here, is to always expand $ac_aux_dir to an # absolute PATH. The drawback is that using absolute paths prevent a # configured tree to be moved without reconfiguration. AC_DEFUN([AM_AUX_DIR_EXPAND], [dnl Rely on autoconf to set up CDPATH properly. AC_PREREQ([2.50])dnl # expand $ac_aux_dir to an absolute path am_aux_dir=`cd $ac_aux_dir && pwd` ]) # AM_CONDITIONAL -*- Autoconf -*- # Copyright (C) 1997, 2000, 2001, 2003, 2004, 2005, 2006, 2008 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 9 # AM_CONDITIONAL(NAME, SHELL-CONDITION) # ------------------------------------- # Define a conditional. AC_DEFUN([AM_CONDITIONAL], [AC_PREREQ(2.52)dnl ifelse([$1], [TRUE], [AC_FATAL([$0: invalid condition: $1])], [$1], [FALSE], [AC_FATAL([$0: invalid condition: $1])])dnl AC_SUBST([$1_TRUE])dnl AC_SUBST([$1_FALSE])dnl _AM_SUBST_NOTMAKE([$1_TRUE])dnl _AM_SUBST_NOTMAKE([$1_FALSE])dnl m4_define([_AM_COND_VALUE_$1], [$2])dnl if $2; then $1_TRUE= $1_FALSE='#' else $1_TRUE='#' $1_FALSE= fi AC_CONFIG_COMMANDS_PRE( [if test -z "${$1_TRUE}" && test -z "${$1_FALSE}"; then AC_MSG_ERROR([[conditional "$1" was never defined. Usually this means the macro was only invoked conditionally.]]) fi])]) # Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2009, # 2010, 2011 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 12 # There are a few dirty hacks below to avoid letting `AC_PROG_CC' be # written in clear, in which case automake, when reading aclocal.m4, # will think it sees a *use*, and therefore will trigger all it's # C support machinery. Also note that it means that autoscan, seeing # CC etc. in the Makefile, will ask for an AC_PROG_CC use... # _AM_DEPENDENCIES(NAME) # ---------------------- # See how the compiler implements dependency checking. # NAME is "CC", "CXX", "GCJ", or "OBJC". # We try a few techniques and use that to set a single cache variable. # # We don't AC_REQUIRE the corresponding AC_PROG_CC since the latter was # modified to invoke _AM_DEPENDENCIES(CC); we would have a circular # dependency, and given that the user is not expected to run this macro, # just rely on AC_PROG_CC. AC_DEFUN([_AM_DEPENDENCIES], [AC_REQUIRE([AM_SET_DEPDIR])dnl AC_REQUIRE([AM_OUTPUT_DEPENDENCY_COMMANDS])dnl AC_REQUIRE([AM_MAKE_INCLUDE])dnl AC_REQUIRE([AM_DEP_TRACK])dnl ifelse([$1], CC, [depcc="$CC" am_compiler_list=], [$1], CXX, [depcc="$CXX" am_compiler_list=], [$1], OBJC, [depcc="$OBJC" am_compiler_list='gcc3 gcc'], [$1], UPC, [depcc="$UPC" am_compiler_list=], [$1], GCJ, [depcc="$GCJ" am_compiler_list='gcc3 gcc'], [depcc="$$1" am_compiler_list=]) AC_CACHE_CHECK([dependency style of $depcc], [am_cv_$1_dependencies_compiler_type], [if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named `D' -- because `-MD' means `put the output # in D'. rm -rf conftest.dir mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_$1_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n ['s/^#*\([a-zA-Z0-9]*\))$/\1/p'] < ./depcomp` fi am__universal=false m4_case([$1], [CC], [case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac], [CXX], [case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac]) for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with # Solaris 8's {/usr,}/bin/sh. touch sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf # We check with `-c' and `-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle `-M -o', and we need to detect this. Also, some Intel # versions had trouble with output in subdirs am__obj=sub/conftest.${OBJEXT-o} am__minus_obj="-o $am__obj" case $depmode in gcc) # This depmode causes a compiler race in universal mode. test "$am__universal" = false || continue ;; nosideeffect) # after this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; msvc7 | msvc7msys | msvisualcpp | msvcmsys) # This compiler won't grok `-c -o', but also, the minuso test has # not run yet. These depmodes are late enough in the game, and # so weak that their functioning should not be impacted. am__obj=conftest.${OBJEXT-o} am__minus_obj= ;; none) break ;; esac if depmode=$depmode \ source=sub/conftest.c object=$am__obj \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep $am__obj sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_$1_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_$1_dependencies_compiler_type=none fi ]) AC_SUBST([$1DEPMODE], [depmode=$am_cv_$1_dependencies_compiler_type]) AM_CONDITIONAL([am__fastdep$1], [ test "x$enable_dependency_tracking" != xno \ && test "$am_cv_$1_dependencies_compiler_type" = gcc3]) ]) # AM_SET_DEPDIR # ------------- # Choose a directory name for dependency files. # This macro is AC_REQUIREd in _AM_DEPENDENCIES AC_DEFUN([AM_SET_DEPDIR], [AC_REQUIRE([AM_SET_LEADING_DOT])dnl AC_SUBST([DEPDIR], ["${am__leading_dot}deps"])dnl ]) # AM_DEP_TRACK # ------------ AC_DEFUN([AM_DEP_TRACK], [AC_ARG_ENABLE(dependency-tracking, [ --disable-dependency-tracking speeds up one-time build --enable-dependency-tracking do not reject slow dependency extractors]) if test "x$enable_dependency_tracking" != xno; then am_depcomp="$ac_aux_dir/depcomp" AMDEPBACKSLASH='\' am__nodep='_no' fi AM_CONDITIONAL([AMDEP], [test "x$enable_dependency_tracking" != xno]) AC_SUBST([AMDEPBACKSLASH])dnl _AM_SUBST_NOTMAKE([AMDEPBACKSLASH])dnl AC_SUBST([am__nodep])dnl _AM_SUBST_NOTMAKE([am__nodep])dnl ]) # Generate code to set up dependency tracking. -*- Autoconf -*- # Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2008 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. #serial 5 # _AM_OUTPUT_DEPENDENCY_COMMANDS # ------------------------------ AC_DEFUN([_AM_OUTPUT_DEPENDENCY_COMMANDS], [{ # Autoconf 2.62 quotes --file arguments for eval, but not when files # are listed without --file. Let's play safe and only enable the eval # if we detect the quoting. case $CONFIG_FILES in *\'*) eval set x "$CONFIG_FILES" ;; *) set x $CONFIG_FILES ;; esac shift for mf do # Strip MF so we end up with the name of the file. mf=`echo "$mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile or not. # We used to match only the files named `Makefile.in', but # some people rename them; so instead we look at the file content. # Grep'ing the first line is not enough: some people post-process # each Makefile.in and add a new line on top of each file to say so. # Grep'ing the whole file is not good either: AIX grep has a line # limit of 2048, but all sed's we know have understand at least 4000. if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then dirpart=`AS_DIRNAME("$mf")` else continue fi # Extract the definition of DEPDIR, am__include, and am__quote # from the Makefile without running `make'. DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` test -z "$DEPDIR" && continue am__include=`sed -n 's/^am__include = //p' < "$mf"` test -z "am__include" && continue am__quote=`sed -n 's/^am__quote = //p' < "$mf"` # When using ansi2knr, U may be empty or an underscore; expand it U=`sed -n 's/^U = //p' < "$mf"` # Find all dependency output files, they are included files with # $(DEPDIR) in their names. We invoke sed twice because it is the # simplest approach to changing $(DEPDIR) to its actual value in the # expansion. for file in `sed -n " s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do # Make sure the directory exists. test -f "$dirpart/$file" && continue fdir=`AS_DIRNAME(["$file"])` AS_MKDIR_P([$dirpart/$fdir]) # echo "creating $dirpart/$file" echo '# dummy' > "$dirpart/$file" done done } ])# _AM_OUTPUT_DEPENDENCY_COMMANDS # AM_OUTPUT_DEPENDENCY_COMMANDS # ----------------------------- # This macro should only be invoked once -- use via AC_REQUIRE. # # This code is only required when automatic dependency tracking # is enabled. FIXME. This creates each `.P' file that we will # need in order to bootstrap the dependency handling code. AC_DEFUN([AM_OUTPUT_DEPENDENCY_COMMANDS], [AC_CONFIG_COMMANDS([depfiles], [test x"$AMDEP_TRUE" != x"" || _AM_OUTPUT_DEPENDENCY_COMMANDS], [AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir"]) ]) # Do all the work for Automake. -*- Autoconf -*- # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, # 2005, 2006, 2008, 2009 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 16 # This macro actually does too much. Some checks are only needed if # your package does certain things. But this isn't really a big deal. # AM_INIT_AUTOMAKE(PACKAGE, VERSION, [NO-DEFINE]) # AM_INIT_AUTOMAKE([OPTIONS]) # ----------------------------------------------- # The call with PACKAGE and VERSION arguments is the old style # call (pre autoconf-2.50), which is being phased out. PACKAGE # and VERSION should now be passed to AC_INIT and removed from # the call to AM_INIT_AUTOMAKE. # We support both call styles for the transition. After # the next Automake release, Autoconf can make the AC_INIT # arguments mandatory, and then we can depend on a new Autoconf # release and drop the old call support. AC_DEFUN([AM_INIT_AUTOMAKE], [AC_PREREQ([2.62])dnl dnl Autoconf wants to disallow AM_ names. We explicitly allow dnl the ones we care about. m4_pattern_allow([^AM_[A-Z]+FLAGS$])dnl AC_REQUIRE([AM_SET_CURRENT_AUTOMAKE_VERSION])dnl AC_REQUIRE([AC_PROG_INSTALL])dnl if test "`cd $srcdir && pwd`" != "`pwd`"; then # Use -I$(srcdir) only when $(srcdir) != ., so that make's output # is not polluted with repeated "-I." AC_SUBST([am__isrc], [' -I$(srcdir)'])_AM_SUBST_NOTMAKE([am__isrc])dnl # test to see if srcdir already configured if test -f $srcdir/config.status; then AC_MSG_ERROR([source directory already configured; run "make distclean" there first]) fi fi # test whether we have cygpath if test -z "$CYGPATH_W"; then if (cygpath --version) >/dev/null 2>/dev/null; then CYGPATH_W='cygpath -w' else CYGPATH_W=echo fi fi AC_SUBST([CYGPATH_W]) # Define the identity of the package. dnl Distinguish between old-style and new-style calls. m4_ifval([$2], [m4_ifval([$3], [_AM_SET_OPTION([no-define])])dnl AC_SUBST([PACKAGE], [$1])dnl AC_SUBST([VERSION], [$2])], [_AM_SET_OPTIONS([$1])dnl dnl Diagnose old-style AC_INIT with new-style AM_AUTOMAKE_INIT. m4_if(m4_ifdef([AC_PACKAGE_NAME], 1)m4_ifdef([AC_PACKAGE_VERSION], 1), 11,, [m4_fatal([AC_INIT should be called with package and version arguments])])dnl AC_SUBST([PACKAGE], ['AC_PACKAGE_TARNAME'])dnl AC_SUBST([VERSION], ['AC_PACKAGE_VERSION'])])dnl _AM_IF_OPTION([no-define],, [AC_DEFINE_UNQUOTED(PACKAGE, "$PACKAGE", [Name of package]) AC_DEFINE_UNQUOTED(VERSION, "$VERSION", [Version number of package])])dnl # Some tools Automake needs. AC_REQUIRE([AM_SANITY_CHECK])dnl AC_REQUIRE([AC_ARG_PROGRAM])dnl AM_MISSING_PROG(ACLOCAL, aclocal-${am__api_version}) AM_MISSING_PROG(AUTOCONF, autoconf) AM_MISSING_PROG(AUTOMAKE, automake-${am__api_version}) AM_MISSING_PROG(AUTOHEADER, autoheader) AM_MISSING_PROG(MAKEINFO, makeinfo) AC_REQUIRE([AM_PROG_INSTALL_SH])dnl AC_REQUIRE([AM_PROG_INSTALL_STRIP])dnl AC_REQUIRE([AM_PROG_MKDIR_P])dnl # We need awk for the "check" target. The system "awk" is bad on # some platforms. AC_REQUIRE([AC_PROG_AWK])dnl AC_REQUIRE([AC_PROG_MAKE_SET])dnl AC_REQUIRE([AM_SET_LEADING_DOT])dnl _AM_IF_OPTION([tar-ustar], [_AM_PROG_TAR([ustar])], [_AM_IF_OPTION([tar-pax], [_AM_PROG_TAR([pax])], [_AM_PROG_TAR([v7])])]) _AM_IF_OPTION([no-dependencies],, [AC_PROVIDE_IFELSE([AC_PROG_CC], [_AM_DEPENDENCIES(CC)], [define([AC_PROG_CC], defn([AC_PROG_CC])[_AM_DEPENDENCIES(CC)])])dnl AC_PROVIDE_IFELSE([AC_PROG_CXX], [_AM_DEPENDENCIES(CXX)], [define([AC_PROG_CXX], defn([AC_PROG_CXX])[_AM_DEPENDENCIES(CXX)])])dnl AC_PROVIDE_IFELSE([AC_PROG_OBJC], [_AM_DEPENDENCIES(OBJC)], [define([AC_PROG_OBJC], defn([AC_PROG_OBJC])[_AM_DEPENDENCIES(OBJC)])])dnl ]) _AM_IF_OPTION([silent-rules], [AC_REQUIRE([AM_SILENT_RULES])])dnl dnl The `parallel-tests' driver may need to know about EXEEXT, so add the dnl `am__EXEEXT' conditional if _AM_COMPILER_EXEEXT was seen. This macro dnl is hooked onto _AC_COMPILER_EXEEXT early, see below. AC_CONFIG_COMMANDS_PRE(dnl [m4_provide_if([_AM_COMPILER_EXEEXT], [AM_CONDITIONAL([am__EXEEXT], [test -n "$EXEEXT"])])])dnl ]) dnl Hook into `_AC_COMPILER_EXEEXT' early to learn its expansion. Do not dnl add the conditional right here, as _AC_COMPILER_EXEEXT may be further dnl mangled by Autoconf and run in a shell conditional statement. m4_define([_AC_COMPILER_EXEEXT], m4_defn([_AC_COMPILER_EXEEXT])[m4_provide([_AM_COMPILER_EXEEXT])]) # When config.status generates a header, we must update the stamp-h file. # This file resides in the same directory as the config header # that is generated. The stamp files are numbered to have different names. # Autoconf calls _AC_AM_CONFIG_HEADER_HOOK (when defined) in the # loop where config.status creates the headers, so we can generate # our stamp files there. AC_DEFUN([_AC_AM_CONFIG_HEADER_HOOK], [# Compute $1's index in $config_headers. _am_arg=$1 _am_stamp_count=1 for _am_header in $config_headers :; do case $_am_header in $_am_arg | $_am_arg:* ) break ;; * ) _am_stamp_count=`expr $_am_stamp_count + 1` ;; esac done echo "timestamp for $_am_arg" >`AS_DIRNAME(["$_am_arg"])`/stamp-h[]$_am_stamp_count]) # Copyright (C) 2001, 2003, 2005, 2008, 2011 Free Software Foundation, # Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 1 # AM_PROG_INSTALL_SH # ------------------ # Define $install_sh. AC_DEFUN([AM_PROG_INSTALL_SH], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl if test x"${install_sh}" != xset; then case $am_aux_dir in *\ * | *\ *) install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;; *) install_sh="\${SHELL} $am_aux_dir/install-sh" esac fi AC_SUBST(install_sh)]) # Copyright (C) 2003, 2005 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 2 # Check whether the underlying file-system supports filenames # with a leading dot. For instance MS-DOS doesn't. AC_DEFUN([AM_SET_LEADING_DOT], [rm -rf .tst 2>/dev/null mkdir .tst 2>/dev/null if test -d .tst; then am__leading_dot=. else am__leading_dot=_ fi rmdir .tst 2>/dev/null AC_SUBST([am__leading_dot])]) # Check to see how 'make' treats includes. -*- Autoconf -*- # Copyright (C) 2001, 2002, 2003, 2005, 2009 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 4 # AM_MAKE_INCLUDE() # ----------------- # Check to see how make treats includes. AC_DEFUN([AM_MAKE_INCLUDE], [am_make=${MAKE-make} cat > confinc << 'END' am__doit: @echo this is the am__doit target .PHONY: am__doit END # If we don't find an include directive, just comment out the code. AC_MSG_CHECKING([for style of include used by $am_make]) am__include="#" am__quote= _am_result=none # First try GNU make style include. echo "include confinc" > confmf # Ignore all kinds of additional output from `make'. case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=include am__quote= _am_result=GNU ;; esac # Now try BSD make style include. if test "$am__include" = "#"; then echo '.include "confinc"' > confmf case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=.include am__quote="\"" _am_result=BSD ;; esac fi AC_SUBST([am__include]) AC_SUBST([am__quote]) AC_MSG_RESULT([$_am_result]) rm -f confinc confmf ]) # Fake the existence of programs that GNU maintainers use. -*- Autoconf -*- # Copyright (C) 1997, 1999, 2000, 2001, 2003, 2004, 2005, 2008 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 6 # AM_MISSING_PROG(NAME, PROGRAM) # ------------------------------ AC_DEFUN([AM_MISSING_PROG], [AC_REQUIRE([AM_MISSING_HAS_RUN]) $1=${$1-"${am_missing_run}$2"} AC_SUBST($1)]) # AM_MISSING_HAS_RUN # ------------------ # Define MISSING if not defined so far and test if it supports --run. # If it does, set am_missing_run to use it, otherwise, to nothing. AC_DEFUN([AM_MISSING_HAS_RUN], [AC_REQUIRE([AM_AUX_DIR_EXPAND])dnl AC_REQUIRE_AUX_FILE([missing])dnl if test x"${MISSING+set}" != xset; then case $am_aux_dir in *\ * | *\ *) MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; *) MISSING="\${SHELL} $am_aux_dir/missing" ;; esac fi # Use eval to expand $SHELL if eval "$MISSING --run true"; then am_missing_run="$MISSING --run " else am_missing_run= AC_MSG_WARN([`missing' script is too old or missing]) fi ]) # Copyright (C) 2003, 2004, 2005, 2006, 2011 Free Software Foundation, # Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 1 # AM_PROG_MKDIR_P # --------------- # Check for `mkdir -p'. AC_DEFUN([AM_PROG_MKDIR_P], [AC_PREREQ([2.60])dnl AC_REQUIRE([AC_PROG_MKDIR_P])dnl dnl Automake 1.8 to 1.9.6 used to define mkdir_p. We now use MKDIR_P, dnl while keeping a definition of mkdir_p for backward compatibility. dnl @MKDIR_P@ is magic: AC_OUTPUT adjusts its value for each Makefile. dnl However we cannot define mkdir_p as $(MKDIR_P) for the sake of dnl Makefile.ins that do not define MKDIR_P, so we do our own dnl adjustment using top_builddir (which is defined more often than dnl MKDIR_P). AC_SUBST([mkdir_p], ["$MKDIR_P"])dnl case $mkdir_p in [[\\/$]]* | ?:[[\\/]]*) ;; */*) mkdir_p="\$(top_builddir)/$mkdir_p" ;; esac ]) # Helper functions for option handling. -*- Autoconf -*- # Copyright (C) 2001, 2002, 2003, 2005, 2008, 2010 Free Software # Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 5 # _AM_MANGLE_OPTION(NAME) # ----------------------- AC_DEFUN([_AM_MANGLE_OPTION], [[_AM_OPTION_]m4_bpatsubst($1, [[^a-zA-Z0-9_]], [_])]) # _AM_SET_OPTION(NAME) # -------------------- # Set option NAME. Presently that only means defining a flag for this option. AC_DEFUN([_AM_SET_OPTION], [m4_define(_AM_MANGLE_OPTION([$1]), 1)]) # _AM_SET_OPTIONS(OPTIONS) # ------------------------ # OPTIONS is a space-separated list of Automake options. AC_DEFUN([_AM_SET_OPTIONS], [m4_foreach_w([_AM_Option], [$1], [_AM_SET_OPTION(_AM_Option)])]) # _AM_IF_OPTION(OPTION, IF-SET, [IF-NOT-SET]) # ------------------------------------------- # Execute IF-SET if OPTION is set, IF-NOT-SET otherwise. AC_DEFUN([_AM_IF_OPTION], [m4_ifset(_AM_MANGLE_OPTION([$1]), [$2], [$3])]) # Check to make sure that the build environment is sane. -*- Autoconf -*- # Copyright (C) 1996, 1997, 2000, 2001, 2003, 2005, 2008 # Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 5 # AM_SANITY_CHECK # --------------- AC_DEFUN([AM_SANITY_CHECK], [AC_MSG_CHECKING([whether build environment is sane]) # Just in case sleep 1 echo timestamp > conftest.file # Reject unsafe characters in $srcdir or the absolute working directory # name. Accept space and tab only in the latter. am_lf=' ' case `pwd` in *[[\\\"\#\$\&\'\`$am_lf]]*) AC_MSG_ERROR([unsafe absolute working directory name]);; esac case $srcdir in *[[\\\"\#\$\&\'\`$am_lf\ \ ]]*) AC_MSG_ERROR([unsafe srcdir value: `$srcdir']);; esac # Do `set' in a subshell so we don't clobber the current shell's # arguments. Must try -L first in case configure is actually a # symlink; some systems play weird games with the mod time of symlinks # (eg FreeBSD returns the mod time of the symlink's containing # directory). if ( set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null` if test "$[*]" = "X"; then # -L didn't work. set X `ls -t "$srcdir/configure" conftest.file` fi rm -f conftest.file if test "$[*]" != "X $srcdir/configure conftest.file" \ && test "$[*]" != "X conftest.file $srcdir/configure"; then # If neither matched, then we have a broken ls. This can happen # if, for instance, CONFIG_SHELL is bash and it inherits a # broken ls alias from the environment. This has actually # happened. Such a system could not be considered "sane". AC_MSG_ERROR([ls -t appears to fail. Make sure there is not a broken alias in your environment]) fi test "$[2]" = conftest.file ) then # Ok. : else AC_MSG_ERROR([newly created file is older than distributed files! Check your system clock]) fi AC_MSG_RESULT(yes)]) # Copyright (C) 2001, 2003, 2005, 2011 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 1 # AM_PROG_INSTALL_STRIP # --------------------- # One issue with vendor `install' (even GNU) is that you can't # specify the program used to strip binaries. This is especially # annoying in cross-compiling environments, where the build's strip # is unlikely to handle the host's binaries. # Fortunately install-sh will honor a STRIPPROG variable, so we # always use install-sh in `make install-strip', and initialize # STRIPPROG with the value of the STRIP variable (set by the user). AC_DEFUN([AM_PROG_INSTALL_STRIP], [AC_REQUIRE([AM_PROG_INSTALL_SH])dnl # Installed binaries are usually stripped using `strip' when the user # run `make install-strip'. However `strip' might not be the right # tool to use in cross-compilation environments, therefore Automake # will honor the `STRIP' environment variable to overrule this program. dnl Don't test for $cross_compiling = yes, because it might be `maybe'. if test "$cross_compiling" != no; then AC_CHECK_TOOL([STRIP], [strip], :) fi INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s" AC_SUBST([INSTALL_STRIP_PROGRAM])]) # Copyright (C) 2006, 2008, 2010 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 3 # _AM_SUBST_NOTMAKE(VARIABLE) # --------------------------- # Prevent Automake from outputting VARIABLE = @VARIABLE@ in Makefile.in. # This macro is traced by Automake. AC_DEFUN([_AM_SUBST_NOTMAKE]) # AM_SUBST_NOTMAKE(VARIABLE) # -------------------------- # Public sister of _AM_SUBST_NOTMAKE. AC_DEFUN([AM_SUBST_NOTMAKE], [_AM_SUBST_NOTMAKE($@)]) # Check how to create a tarball. -*- Autoconf -*- # Copyright (C) 2004, 2005, 2012 Free Software Foundation, Inc. # # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # serial 2 # _AM_PROG_TAR(FORMAT) # -------------------- # Check how to create a tarball in format FORMAT. # FORMAT should be one of `v7', `ustar', or `pax'. # # Substitute a variable $(am__tar) that is a command # writing to stdout a FORMAT-tarball containing the directory # $tardir. # tardir=directory && $(am__tar) > result.tar # # Substitute a variable $(am__untar) that extract such # a tarball read from stdin. # $(am__untar) < result.tar AC_DEFUN([_AM_PROG_TAR], [# Always define AMTAR for backward compatibility. Yes, it's still used # in the wild :-( We should find a proper way to deprecate it ... AC_SUBST([AMTAR], ['$${TAR-tar}']) m4_if([$1], [v7], [am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -'], [m4_case([$1], [ustar],, [pax],, [m4_fatal([Unknown tar format])]) AC_MSG_CHECKING([how to create a $1 tar archive]) # Loop over all known methods to create a tar archive until one works. _am_tools='gnutar m4_if([$1], [ustar], [plaintar]) pax cpio none' _am_tools=${am_cv_prog_tar_$1-$_am_tools} # Do not fold the above two line into one, because Tru64 sh and # Solaris sh will not grok spaces in the rhs of `-'. for _am_tool in $_am_tools do case $_am_tool in gnutar) for _am_tar in tar gnutar gtar; do AM_RUN_LOG([$_am_tar --version]) && break done am__tar="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$$tardir"' am__tar_="$_am_tar --format=m4_if([$1], [pax], [posix], [$1]) -chf - "'"$tardir"' am__untar="$_am_tar -xf -" ;; plaintar) # Must skip GNU tar: if it does not support --format= it doesn't create # ustar tarball either. (tar --version) >/dev/null 2>&1 && continue am__tar='tar chf - "$$tardir"' am__tar_='tar chf - "$tardir"' am__untar='tar xf -' ;; pax) am__tar='pax -L -x $1 -w "$$tardir"' am__tar_='pax -L -x $1 -w "$tardir"' am__untar='pax -r' ;; cpio) am__tar='find "$$tardir" -print | cpio -o -H $1 -L' am__tar_='find "$tardir" -print | cpio -o -H $1 -L' am__untar='cpio -i -H $1 -d' ;; none) am__tar=false am__tar_=false am__untar=false ;; esac # If the value was cached, stop now. We just wanted to have am__tar # and am__untar set. test -n "${am_cv_prog_tar_$1}" && break # tar/untar a dummy directory, and stop if the command works rm -rf conftest.dir mkdir conftest.dir echo GrepMe > conftest.dir/file AM_RUN_LOG([tardir=conftest.dir && eval $am__tar_ >conftest.tar]) rm -rf conftest.dir if test -s conftest.tar; then AM_RUN_LOG([$am__untar /dev/null 2>&1 && break fi done rm -rf conftest.dir AC_CACHE_VAL([am_cv_prog_tar_$1], [am_cv_prog_tar_$1=$_am_tool]) AC_MSG_RESULT([$am_cv_prog_tar_$1])]) AC_SUBST([am__tar]) AC_SUBST([am__untar]) ]) # _AM_PROG_TAR m4_include([m4/libtool.m4]) m4_include([m4/ltoptions.m4]) m4_include([m4/ltsugar.m4]) m4_include([m4/ltversion.m4]) m4_include([m4/lt~obsolete.m4]) trueprint-5.4/NEWS0000644000175000017500000002720207625761335011057 00000000000000Reverse history of Trueprint. Changes are also logged in ChangeLog which is generated in emacs with C-x v a (the only reason I'm putting the emacs keystrokes in here is to remind myself in the future!). Version 5.3.1: Now builds for cygwin 1.3.2 (fix to bug reported by David Karr). Put files printers and testprint back in - they were lost by automake :-( Unfortunately I've lost the definitions added in version 5.3 - I can't find the original mails anywhere and since I wasn't storing trueprint in CVS until after I'd released that version.... a mistake I won't make again :-) There's a totally rewritten lang_perl.c from Steve Fink. Version 5.3: Trueprint now uses autoconf and automake (Paul Smith, and the book GNU Autoconf, Automake and Libtool by Gary V. Vaughan et al, published by New Riders). Mention of trueprint.uu removed from README (Othmar Pasteka). Suffix .pike added for pike programs (Othmar Pasteka). Added include of sys/types.h before sys/stat.h to support FreeBSD (Dmitry Sivachenko). README.mswin removed (John Morey). If there isn't an lp or lpr command on your system when you run configure, trueprint will now be built to send postscript output to stdout by default (Othmar Pasteka). Choice options like --landscape and --option were broken due to a serious bug in options.c (Paul Smith). Added Canon LBP 3260 (Bjorn Wingman). Added HP Laserjet 1100 (Peter Green). Fix for handling arithmetic << in Perl (Peter Green). Added --new-sheet-after-file and --no-new-sheet-after-file, from a suggestion by David Karr. Version 5.2.1: Fixed bug that ignored the double-sided/single-sided setting for printers in the printers file. Version 5.2: As of this release I'm going to include the contributors name in every change description. Sorry I didn't do that for version 5.1. + Added NEC SuperScript 870 printer details (Craig Pinfold). + Added A4 settings for HP Laserjet 4 Si MX (Ian Brown). + Use configure to find the proper install tool (George Lindholm). + Use mandir and man1dir vars in Makefile properly (Michael Somos). + Added missing colon to printers file (Michael Somos). + Handle unknown language with a message instead of a core dump (Craig Pinfold). + Added -R to specify postscript level (Ian Brown). + Initialize use_environment in main() (Ian Brown and others). + Added to lang_java.c to get abort() (Ian Brown). + C++ comments are now recognized in C code. OK, this isn't ANSI but GCC is a better standard than ANSI any day... :-) This solves a problem reported by Bruce Tenison. + Changes made to support compiling for Microsoft Windows platforms are added (Ian Brown). + Option -u added: --u will suppress even minimal headers, footers and left margin line (suggested by... ) + When using the perl5 "use subs" pragma, trueprint incorrectly identifies "s" as a subroutine. This is fixed in lang_perl.c with a fix submitted by Jim Eshleman. + Added printer HP Laserjet 8100N (Kris Berbeeck). + Added printer CalComp (sorry, I lost the name of the contributor - send me a mail and I'll add it in the next release) + Added support for language pike (see pike.idonex.se) (Martin Bahr). + Rewritten man page (see author in the man page itself). Version 5.1: Many thanks to everyxbody who gave me feedback and reported problems in version 5.0! I've found the best advantage of making Trueprint a GNU program is the users! The changes in 5.1 are all relatively minor - there are no major rewrites. + make check now uses gmtime instead of localtime, so you don't need to live in Boston to have the tests succeed. + make check now ignores any DEFAULT_OPTS that might be set in trueprint.h. + If the output is sent to a postscript file then it is no longer created with the execute bits set. + In version 5.0 the documentation stated that the default behaviour was to NOT have page breaks after functions; however the code disagreed with the documentation. The code has been changed to fit. If you want to change this back, set DEFAULT_OPTS in trueprint.h to "--page-break-after-function" + .pm is now recognized as a suffix for a perl file. + Minor tweaks were made to the Makefile to make it easier to generate a RPM package. + Postscript comments generated correctly with page information. + With no line numbers or braces depth, a thin line is still printed on the lhs of each page. + In headers, footers and other strings, %c and %C can be used to get the modification time of the file in short or long format. + When using stdin, the "filename" in headers and footers appears as "-" instead of "stdin" as it did in earlier versions. + -r/--redirect-output sends output to .ps file named after 1st arg + -L/--minimum-line-length sets the minimum line length for lines produced using intelligent line wrap. + A dummy gettext() is now included in case gettext() doesn't exist on the system. + The standard GNU files getopt.c, getopt1.c and getopt.h are included in case the system doesn't have getopt_long. + A bug in shell language handling which caused a coredump is fixed. + Perl should print POD documentation as comments. + I had many people suggest that the printers file should move; I'm not moving it yet though. My plan is to change the format of the printers file to include (among other things) options to be used for each queue, the possibility of multiple virtual printers for one queue, passing options through to lp or lpr (so you can e.g. select paper from different trays), and (most important) a version id so that all future versions of trueprint will be able to read older printer files. When I make this change I'll move the printers file so that older versions of trueprint will still be able to find a printers file they understand in /etc. + Various other minor changes were also made. Version 5.0: Trueprint GNU Changed code to adhere to GNU coding standards. Added long options. Short options that used to start with '+' now start with '--', e.g. +I is now --I. Default is "off" for page breaks after function calls. Added texinfo documentation. 020299 4.1.2 Fixed waiting for child pid so lpr message appears before trueprint returns. Fixed bad interaction between turning off linewrap and turning off linecount. Fixed get_function_name() so it can be called many times for the same page (by removing static qualifier to current_function). Included changes from James Card: added .H & .C as valid C++. Fixed tab expansion (tab character was included in output). 072298 4.1.1 Added C++ & Verilog support and updated the man page. Fixed crash when $USER not set. Map lf/cr (MS-DOS line end) to cr, and cr/ff to ff. Added -J for holepunch gap at top of page. Improved message for an unknown option. Empty input -> no print job. Added file COPYING, which contains the GPL. ------ 4.1 Fixed header problem in utils.h, removed trueprint.ps from makefile 082095 4.0 Added stdin handling, fixed one-char fn name bug, fixed filename on blank page bug, added backspace handling for underline & bold, added bold-italic for added comments, can suppress headers & footers, totally new option handling, totally new file printing. 021795 3.6.5 Fixed -G bug 021795 3.6.4 Added -G, fixed some small bugs in manpage. 021794 3.6.3 Fixed 'showpage' printing 122893 3.6.2 Fixed logging 120793 3.6.1 Added -3, significantly improved page size handling, added -I. 101393 3.6 General header, footer & message string processing; Better -D options 091493 3.5.4 Various minor bugs, and added strike-out for deleted text in diff-ed output. 090993 3.5.3 Removed limits on various string options; added closepipe and fclosepipe to avoid zombies! 081993 3.5.2 Removed MAX_FUNCTIONS and MAX_FILES from index.c - should be able to cope with unlimited number of functions/files 080593 3.5.1 added -A 080493 3.5 added -a and -treport 080393 3.4.2 made it POSIX - now compiles on Sun & Ultrix 063093 3.4.1 made it ANSI 020393 3.4 added printers file, config.h 180392 3.3 added perl 012292 3.2 added -W option, -E option 120391 3.1.1 fixed clash between -nn -xn -w0. 112091 3.1 added -B option 111091 3.0 added -n option, integrated with scm_help. 060591 2.9.8 fixed minor bug with -c; added -L and -M options. 280391 2.9.7.3 Added call to lezzlog 250391 2.9.7.2 Blanked out function name from headers when no function present, altered headers for -S2. 220391 2.9.7.1 Changed option handling to functions 210391 2.9.7 Add -T 140391 2.9.6 Initialize braces_depth at end of first pass (finally!) 110391 2.9.5 Added cflow pages 060391 2.9.4 Added language type pseudoc 010391 2.9.3 Added -C and -U 250291 2.9.2 Fixed C parsing to cope with function ptr argument. 220291 2.9.1 Changed definition of line indent in postscript.c to get line at right position. 070291 2.9 Changed meanings of -F, -f, -b and -x to align with users' manual 110191 2.8.1 Added -F -f to suppress File and function indices and added -b to suppress page breaks at function end 030191 2.8 Got -l and -w options working properly, added -c, altered language dynamically according to filename extension. 311290 2.7 Merged 2-on-1 and 4-on-1 with landscape and portrait modes, added $TP_OPTS, made defaults neater. 261290 2.6.1 Stripped out the last remnants of APT and Xerox printers 131290 2.6 Added 2-on-1 and 4-on-1 modes 151190 2.5.1 Fixed minor bug with comment immediately after function name. added variable old_state to lang_c.c. 310790 2.5 Tested diffs, fixed minor bug with fontsize of + in added blank lines, released. Next step version 3.... 300790 2.4.3 Removed -i (standard input) option. stdin doesn't work! 260790 2.4.2 Split print.list.c into main.c input.c output.c, tidied up printing lines for postscript. Line and brace depth numbers in smaller font. Blank lines have no line or brace depth numbers. Landscape working. -m, -p and -g working. Added plain text "language". 180790 2.4.1 Fixed up postscript headers and footers properly. 170790 2.4 Added -P x|p option for postscript printers. Very little tested, but it works. 110790 2.3 Added -S option, suppressed function index if no functions, suppressed file index if only one file. 100790 2.2.5a Ported to DECstations, without aptmac.h or lezzlog.c Fixed uninitialised pointer bug in index.c Changed opr to lpr and changed escape strings via #ifdef APT... 140390 2.2.5 changed coding standards - { put on same line as while, if, etc. to reduce number of lines. 280290 2.2.4 static char_usage retval in printnextline() was set to INPUT_END at beginning of second pass (value inherited from first pass). This had the effect that if deleted lines were printed before source then the INPUT_END was taken to be the true retval and only the deleted lines were printed. So a line initialising retval at beginning of second pass was added. 270290 2.2.3 a few pascal bugs in lang_pascal.c fixed after trying it out on a decent pascal program for the first time. Also no_of_functions in index.c initialised explicitly. 130290 2.2.2 init_diffs() was called too early in getnextchar, and getnextline() was getting confused right at the end of a file about which file the diffs were for. So init_diffs call was moved to getnextline(). 060290 2.2.1 Newpage was treated like newline - so line were wrong. This showed up with -O and -P options in files with newpage characters. Fixed by not treating newpage like newline in getnextline(). 240190 2.2 goes through lint (more or less), index functions expected short, got long as param - potential bug. 230190 2.1 with -P option (multiple files diffs) released. bug with param ending ...[]; fixed. function names in headers starting too early fixed. 220190 2.0 with -O option (single file differences) released 261089 First public version released! trueprint-5.4/configure0000755000175000017500000146771412117066432012274 00000000000000#! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.69 for GNU Trueprint 5.4. # # Report bugs to . # # # Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc. # # # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. ## -------------------- ## ## M4sh Initialization. ## ## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi as_nl=' ' export as_nl # Printing a long string crashes Solaris 7 /usr/bin/printf. as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo # Prefer a ksh shell builtin over an external printf program on Solaris, # but without wasting forks for bash or zsh. if test -z "$BASH_VERSION$ZSH_VERSION" \ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='print -r --' as_echo_n='print -rn --' elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='printf %s\n' as_echo_n='printf %s' else if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' as_echo_n='/usr/ucb/echo -n' else as_echo_body='eval expr "X$1" : "X\\(.*\\)"' as_echo_n_body='eval arg=$1; case $arg in #( *"$as_nl"*) expr "X$arg" : "X\\(.*\\)$as_nl"; arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; esac; expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" ' export as_echo_n_body as_echo_n='sh -c $as_echo_n_body as_echo' fi export as_echo_body as_echo='sh -c $as_echo_body as_echo' fi # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. as_myself= case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # Unset variables that we do not need and which cause bugs (e.g. in # pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" # suppresses any "Segmentation fault" message there. '((' could # trigger a bug in pdksh 5.2.14. for as_var in BASH_ENV ENV MAIL MAILPATH do eval test x\${$as_var+set} = xset \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # CDPATH. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH # Use a proper internal environment variable to ensure we don't fall # into an infinite loop, continuously re-executing ourselves. if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then _as_can_reexec=no; export _as_can_reexec; # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also # works around shells that cannot unset nonexistent variables. # Preserve -v and -x to the replacement shell. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV case $- in # (((( *v*x* | *x*v* ) as_opts=-vx ;; *v* ) as_opts=-v ;; *x* ) as_opts=-x ;; * ) as_opts= ;; esac exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} # Admittedly, this is quite paranoid, since all the known shells bail # out after a failed `exec'. $as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 as_fn_exit 255 fi # We don't want this to propagate to other subprocesses. { _as_can_reexec=; unset _as_can_reexec;} if test "x$CONFIG_SHELL" = x; then as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which # is contrary to our usage. Disable this feature. alias -g '\${1+\"\$@\"}'='\"\$@\"' setopt NO_GLOB_SUBST else case \`(set -o) 2>/dev/null\` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi " as_required="as_fn_return () { (exit \$1); } as_fn_success () { as_fn_return 0; } as_fn_failure () { as_fn_return 1; } as_fn_ret_success () { return 0; } as_fn_ret_failure () { return 1; } exitcode=0 as_fn_success || { exitcode=1; echo as_fn_success failed.; } as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : else exitcode=1; echo positional parameters were not saved. fi test x\$exitcode = x0 || exit 1 test -x / || exit 1" as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 test -n \"\${ZSH_VERSION+set}\${BASH_VERSION+set}\" || ( ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO ECHO=\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO\$ECHO PATH=/empty FPATH=/empty; export PATH FPATH test \"X\`printf %s \$ECHO\`\" = \"X\$ECHO\" \\ || test \"X\`print -r -- \$ECHO\`\" = \"X\$ECHO\" ) || exit 1 test \$(( 1 + 1 )) = 2 || exit 1" if (eval "$as_required") 2>/dev/null; then : as_have_required=yes else as_have_required=no fi if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR as_found=false for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. as_found=: case $as_dir in #( /*) for as_base in sh bash ksh sh5; do # Try only shells that exist, to save several forks. as_shell=$as_dir/$as_base if { test -f "$as_shell" || test -f "$as_shell.exe"; } && { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : CONFIG_SHELL=$as_shell as_have_required=yes if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : break 2 fi fi done;; esac as_found=false done $as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : CONFIG_SHELL=$SHELL as_have_required=yes fi; } IFS=$as_save_IFS if test "x$CONFIG_SHELL" != x; then : export CONFIG_SHELL # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also # works around shells that cannot unset nonexistent variables. # Preserve -v and -x to the replacement shell. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV case $- in # (((( *v*x* | *x*v* ) as_opts=-vx ;; *v* ) as_opts=-v ;; *x* ) as_opts=-x ;; * ) as_opts= ;; esac exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"} # Admittedly, this is quite paranoid, since all the known shells bail # out after a failed `exec'. $as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2 exit 255 fi if test x$as_have_required = xno; then : $as_echo "$0: This script requires a shell more modern than all" $as_echo "$0: the shells that I found on your system." if test x${ZSH_VERSION+set} = xset ; then $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" $as_echo "$0: be upgraded to zsh 4.3.4 or later." else $as_echo "$0: Please tell bug-autoconf@gnu.org and $0: bug-trueprint@gnu.org about your system, including any $0: error possibly output before this message. Then install $0: a modern shell, or manually run the script under such a $0: shell if you do have one." fi exit 1 fi fi fi SHELL=${CONFIG_SHELL-/bin/sh} export SHELL # Unset more variables known to interfere with behavior of common tools. CLICOLOR_FORCE= GREP_OPTIONS= unset CLICOLOR_FORCE GREP_OPTIONS ## --------------------- ## ## M4sh Shell Functions. ## ## --------------------- ## # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p # as_fn_executable_p FILE # ----------------------- # Test if FILE is an executable regular file. as_fn_executable_p () { test -f "$1" && test -x "$1" } # as_fn_executable_p # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : eval 'as_fn_append () { eval $1+=\$2 }' else as_fn_append () { eval $1=\$$1\$2 } fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : eval 'as_fn_arith () { as_val=$(( $* )) }' else as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi $as_echo "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || $as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits as_lineno_1=$LINENO as_lineno_1a=$LINENO as_lineno_2=$LINENO as_lineno_2a=$LINENO eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) sed -n ' p /[$]LINENO/= ' <$as_myself | sed ' s/[$]LINENO.*/&-/ t lineno b :lineno N :loop s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ t loop s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } # If we had to re-execute with $CONFIG_SHELL, we're ensured to have # already done that, so ensure we don't try to do so again and fall # in an infinite loop. This has already happened in practice. _as_can_reexec=no; export _as_can_reexec # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensitive to this). . "./$as_me.lineno" # Exit status is that of the last command. exit } ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -pR'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -pR' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -pR' fi else as_ln_s='cp -pR' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi as_test_x='test -x' as_executable_p=as_fn_executable_p # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" SHELL=${CONFIG_SHELL-/bin/sh} test -n "$DJDIR" || exec 7<&0 &1 # Name of the host. # hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status, # so uname gets run too. ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` # # Initializations. # ac_default_prefix=/usr/local ac_clean_files= ac_config_libobj_dir=. LIBOBJS= cross_compiling=no subdirs= MFLAGS= MAKEFLAGS= # Identity of this package. PACKAGE_NAME='GNU Trueprint' PACKAGE_TARNAME='trueprint' PACKAGE_VERSION='5.4' PACKAGE_STRING='GNU Trueprint 5.4' PACKAGE_BUGREPORT='bug-trueprint@gnu.org' PACKAGE_URL='http://www.gnu.org/software/trueprint/' # Factoring default headers for most tests. ac_includes_default="\ #include #ifdef HAVE_SYS_TYPES_H # include #endif #ifdef HAVE_SYS_STAT_H # include #endif #ifdef STDC_HEADERS # include # include #else # ifdef HAVE_STDLIB_H # include # endif #endif #ifdef HAVE_STRING_H # if !defined STDC_HEADERS && defined HAVE_MEMORY_H # include # endif # include #endif #ifdef HAVE_STRINGS_H # include #endif #ifdef HAVE_INTTYPES_H # include #endif #ifdef HAVE_STDINT_H # include #endif #ifdef HAVE_UNISTD_H # include #endif" ac_subst_vars='am__EXEEXT_FALSE am__EXEEXT_TRUE LTLIBOBJS LIBOBJS CPP OTOOL64 OTOOL LIPO NMEDIT DSYMUTIL MANIFEST_TOOL RANLIB ac_ct_AR AR DLLTOOL OBJDUMP LN_S NM ac_ct_DUMPBIN DUMPBIN LD FGREP EGREP GREP SED host_os host_vendor host_cpu host build_os build_vendor build_cpu build LIBTOOL am__fastdepCC_FALSE am__fastdepCC_TRUE CCDEPMODE am__nodep AMDEPBACKSLASH AMDEP_FALSE AMDEP_TRUE am__quote am__include DEPDIR OBJEXT EXEEXT ac_ct_CC CPPFLAGS LDFLAGS CFLAGS CC am__untar am__tar AMTAR am__leading_dot SET_MAKE AWK mkdir_p MKDIR_P INSTALL_STRIP_PROGRAM STRIP install_sh MAKEINFO AUTOHEADER AUTOMAKE AUTOCONF ACLOCAL VERSION PACKAGE CYGPATH_W am__isrc INSTALL_DATA INSTALL_SCRIPT INSTALL_PROGRAM target_alias host_alias build_alias LIBS ECHO_T ECHO_N ECHO_C DEFS mandir localedir libdir psdir pdfdir dvidir htmldir infodir docdir oldincludedir includedir localstatedir sharedstatedir sysconfdir datadir datarootdir libexecdir sbindir bindir program_transform_name prefix exec_prefix PACKAGE_URL PACKAGE_BUGREPORT PACKAGE_STRING PACKAGE_VERSION PACKAGE_TARNAME PACKAGE_NAME PATH_SEPARATOR SHELL' ac_subst_files='' ac_user_opts=' enable_option_checking enable_dependency_tracking enable_shared enable_static with_pic enable_fast_install with_gnu_ld with_sysroot enable_libtool_lock ' ac_precious_vars='build_alias host_alias target_alias CC CFLAGS LDFLAGS LIBS CPPFLAGS CPP' # Initialize some variables set by options. ac_init_help= ac_init_version=false ac_unrecognized_opts= ac_unrecognized_sep= # The variables have the same names as the options, with # dashes changed to underlines. cache_file=/dev/null exec_prefix=NONE no_create= no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= verbose= x_includes=NONE x_libraries=NONE # Installation directory options. # These are left unexpanded so users can "make install exec_prefix=/foo" # and all the variables that are supposed to be based on exec_prefix # by default will actually change. # Use braces instead of parens because sh, perl, etc. also accept them. # (The list follows the same order as the GNU Coding Standards.) bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datarootdir='${prefix}/share' datadir='${datarootdir}' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' includedir='${prefix}/include' oldincludedir='/usr/include' docdir='${datarootdir}/doc/${PACKAGE_TARNAME}' infodir='${datarootdir}/info' htmldir='${docdir}' dvidir='${docdir}' pdfdir='${docdir}' psdir='${docdir}' libdir='${exec_prefix}/lib' localedir='${datarootdir}/locale' mandir='${datarootdir}/man' ac_prev= ac_dashdash= 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=`expr "X$ac_option" : '[^=]*=\(.*\)'` ;; *=) ac_optarg= ;; *) ac_optarg=yes ;; esac # Accept the important Cygnus configure options, so we can diagnose typos. case $ac_dashdash$ac_option in --) ac_dashdash=yes ;; -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_alias ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build_alias=$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 ;; --config-cache | -C) cache_file=config.cache ;; -datadir | --datadir | --datadi | --datad) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=*) datadir=$ac_optarg ;; -datarootdir | --datarootdir | --datarootdi | --datarootd | --dataroot \ | --dataroo | --dataro | --datar) ac_prev=datarootdir ;; -datarootdir=* | --datarootdir=* | --datarootdi=* | --datarootd=* \ | --dataroot=* | --dataroo=* | --dataro=* | --datar=*) datarootdir=$ac_optarg ;; -disable-* | --disable-*) ac_useropt=`expr "x$ac_option" : 'x-*disable-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid feature name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--disable-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval enable_$ac_useropt=no ;; -docdir | --docdir | --docdi | --doc | --do) ac_prev=docdir ;; -docdir=* | --docdir=* | --docdi=* | --doc=* | --do=*) docdir=$ac_optarg ;; -dvidir | --dvidir | --dvidi | --dvid | --dvi | --dv) ac_prev=dvidir ;; -dvidir=* | --dvidir=* | --dvidi=* | --dvid=* | --dvi=* | --dv=*) dvidir=$ac_optarg ;; -enable-* | --enable-*) ac_useropt=`expr "x$ac_option" : 'x-*enable-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid feature name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "enable_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--enable-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval enable_$ac_useropt=\$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 | -h) ac_init_help=long ;; -help=r* | --help=r* | --hel=r* | --he=r* | -hr*) ac_init_help=recursive ;; -help=s* | --help=s* | --hel=s* | --he=s* | -hs*) ac_init_help=short ;; -host | --host | --hos | --ho) ac_prev=host_alias ;; -host=* | --host=* | --hos=* | --ho=*) host_alias=$ac_optarg ;; -htmldir | --htmldir | --htmldi | --htmld | --html | --htm | --ht) ac_prev=htmldir ;; -htmldir=* | --htmldir=* | --htmldi=* | --htmld=* | --html=* | --htm=* \ | --ht=*) htmldir=$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 ;; -localedir | --localedir | --localedi | --localed | --locale) ac_prev=localedir ;; -localedir=* | --localedir=* | --localedi=* | --localed=* | --locale=*) localedir=$ac_optarg ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst | --locals) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* | --locals=*) 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 | -n) 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 ;; -pdfdir | --pdfdir | --pdfdi | --pdfd | --pdf | --pd) ac_prev=pdfdir ;; -pdfdir=* | --pdfdir=* | --pdfdi=* | --pdfd=* | --pdf=* | --pd=*) pdfdir=$ac_optarg ;; -psdir | --psdir | --psdi | --psd | --ps) ac_prev=psdir ;; -psdir=* | --psdir=* | --psdi=* | --psd=* | --ps=*) psdir=$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_alias ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target_alias=$ac_optarg ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers | -V) ac_init_version=: ;; -with-* | --with-*) ac_useropt=`expr "x$ac_option" : 'x-*with-\([^=]*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid package name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--with-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval with_$ac_useropt=\$ac_optarg ;; -without-* | --without-*) ac_useropt=`expr "x$ac_option" : 'x-*without-\(.*\)'` # Reject names that are not valid shell variable names. expr "x$ac_useropt" : ".*[^-+._$as_cr_alnum]" >/dev/null && as_fn_error $? "invalid package name: $ac_useropt" ac_useropt_orig=$ac_useropt ac_useropt=`$as_echo "$ac_useropt" | sed 's/[-+.]/_/g'` case $ac_user_opts in *" "with_$ac_useropt" "*) ;; *) ac_unrecognized_opts="$ac_unrecognized_opts$ac_unrecognized_sep--without-$ac_useropt_orig" ac_unrecognized_sep=', ';; esac eval with_$ac_useropt=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 ;; -*) as_fn_error $? "unrecognized option: \`$ac_option' Try \`$0 --help' for more information" ;; *=*) ac_envvar=`expr "x$ac_option" : 'x\([^=]*\)='` # Reject names that are not valid shell variable names. case $ac_envvar in #( '' | [0-9]* | *[!_$as_cr_alnum]* ) as_fn_error $? "invalid variable name: \`$ac_envvar'" ;; esac eval $ac_envvar=\$ac_optarg export $ac_envvar ;; *) # FIXME: should be removed in autoconf 3.0. $as_echo "$as_me: WARNING: you should use --build, --host, --target" >&2 expr "x$ac_option" : ".*[^-._$as_cr_alnum]" >/dev/null && $as_echo "$as_me: WARNING: invalid host type: $ac_option" >&2 : "${build_alias=$ac_option} ${host_alias=$ac_option} ${target_alias=$ac_option}" ;; esac done if test -n "$ac_prev"; then ac_option=--`echo $ac_prev | sed 's/_/-/g'` as_fn_error $? "missing argument to $ac_option" fi if test -n "$ac_unrecognized_opts"; then case $enable_option_checking in no) ;; fatal) as_fn_error $? "unrecognized options: $ac_unrecognized_opts" ;; *) $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2 ;; esac fi # Check all directory arguments for consistency. for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ datadir sysconfdir sharedstatedir localstatedir includedir \ oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ libdir localedir mandir do eval ac_val=\$$ac_var # Remove trailing slashes. case $ac_val in */ ) ac_val=`expr "X$ac_val" : 'X\(.*[^/]\)' \| "X$ac_val" : 'X\(.*\)'` eval $ac_var=\$ac_val;; esac # Be sure to have absolute directory names. case $ac_val in [\\/$]* | ?:[\\/]* ) continue;; NONE | '' ) case $ac_var in *prefix ) continue;; esac;; esac as_fn_error $? "expected an absolute directory name for --$ac_var: $ac_val" done # There might be people who depend on the old broken behavior: `$host' # used to hold the argument of --host etc. # FIXME: To remove some day. build=$build_alias host=$host_alias target=$target_alias # FIXME: To remove some day. if test "x$host_alias" != x; then if test "x$build_alias" = x; then cross_compiling=maybe elif test "x$build_alias" != "x$host_alias"; then cross_compiling=yes fi fi ac_tool_prefix= test -n "$host_alias" && ac_tool_prefix=$host_alias- test "$silent" = yes && exec 6>/dev/null ac_pwd=`pwd` && test -n "$ac_pwd" && ac_ls_di=`ls -di .` && ac_pwd_ls_di=`cd "$ac_pwd" && ls -di .` || as_fn_error $? "working directory cannot be determined" test "X$ac_ls_di" = "X$ac_pwd_ls_di" || as_fn_error $? "pwd does not report name of working directory" # 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 the parent directory. ac_confdir=`$as_dirname -- "$as_myself" || $as_expr X"$as_myself" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_myself" : 'X\(//\)[^/]' \| \ X"$as_myself" : 'X\(//\)$' \| \ X"$as_myself" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_myself" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` 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 test "$ac_srcdir_defaulted" = yes && srcdir="$ac_confdir or .." as_fn_error $? "cannot find sources ($ac_unique_file) in $srcdir" fi ac_msg="sources are in $srcdir, but \`cd $srcdir' does not work" ac_abs_confdir=`( cd "$srcdir" && test -r "./$ac_unique_file" || as_fn_error $? "$ac_msg" pwd)` # When building in place, set srcdir=. if test "$ac_abs_confdir" = "$ac_pwd"; then srcdir=. fi # Remove unnecessary trailing slashes from srcdir. # Double slashes in file names in object file debugging info # mess up M-x gdb in Emacs. case $srcdir in */) srcdir=`expr "X$srcdir" : 'X\(.*[^/]\)' \| "X$srcdir" : 'X\(.*\)'`;; esac for ac_var in $ac_precious_vars; do eval ac_env_${ac_var}_set=\${${ac_var}+set} eval ac_env_${ac_var}_value=\$${ac_var} eval ac_cv_env_${ac_var}_set=\${${ac_var}+set} eval ac_cv_env_${ac_var}_value=\$${ac_var} done # # Report the --help message. # if test "$ac_init_help" = "long"; then # 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 <<_ACEOF \`configure' configures GNU Trueprint 5.4 to adapt to many kinds of systems. Usage: $0 [OPTION]... [VAR=VALUE]... To assign environment variables (e.g., CC, CFLAGS...), specify them as VAR=VALUE. See below for descriptions of some of the useful variables. Defaults for the options are specified in brackets. Configuration: -h, --help display this help and exit --help=short display options specific to this package --help=recursive display the short help of all the included packages -V, --version display version information and exit -q, --quiet, --silent do not print \`checking ...' messages --cache-file=FILE cache test results in FILE [disabled] -C, --config-cache alias for \`--cache-file=config.cache' -n, --no-create do not create output files --srcdir=DIR find the sources in DIR [configure dir or \`..'] Installation directories: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [PREFIX] By default, \`make install' will install all the files in \`$ac_default_prefix/bin', \`$ac_default_prefix/lib' etc. You can specify an installation prefix other than \`$ac_default_prefix' using \`--prefix', for instance \`--prefix=\$HOME'. For better control, use the options below. Fine tuning of the installation directories: --bindir=DIR user executables [EPREFIX/bin] --sbindir=DIR system admin executables [EPREFIX/sbin] --libexecdir=DIR program executables [EPREFIX/libexec] --sysconfdir=DIR read-only single-machine data [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] --localstatedir=DIR modifiable single-machine data [PREFIX/var] --libdir=DIR object code libraries [EPREFIX/lib] --includedir=DIR C header files [PREFIX/include] --oldincludedir=DIR C header files for non-gcc [/usr/include] --datarootdir=DIR read-only arch.-independent data root [PREFIX/share] --datadir=DIR read-only architecture-independent data [DATAROOTDIR] --infodir=DIR info documentation [DATAROOTDIR/info] --localedir=DIR locale-dependent data [DATAROOTDIR/locale] --mandir=DIR man documentation [DATAROOTDIR/man] --docdir=DIR documentation root [DATAROOTDIR/doc/trueprint] --htmldir=DIR html documentation [DOCDIR] --dvidir=DIR dvi documentation [DOCDIR] --pdfdir=DIR pdf documentation [DOCDIR] --psdir=DIR ps documentation [DOCDIR] _ACEOF cat <<\_ACEOF Program names: --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 System types: --build=BUILD configure for building on BUILD [guessed] --host=HOST cross-compile to build programs to run on HOST [BUILD] _ACEOF fi if test -n "$ac_init_help"; then case $ac_init_help in short | recursive ) echo "Configuration of GNU Trueprint 5.4:";; esac cat <<\_ACEOF Optional Features: --disable-option-checking ignore unrecognized --enable/--with options --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) --enable-FEATURE[=ARG] include FEATURE [ARG=yes] --disable-dependency-tracking speeds up one-time build --enable-dependency-tracking do not reject slow dependency extractors --enable-shared[=PKGS] build shared libraries [default=yes] --enable-static[=PKGS] build static libraries [default=yes] --enable-fast-install[=PKGS] optimize for fast installation [default=yes] --disable-libtool-lock avoid locking (might break parallel builds) Optional Packages: --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --with-pic[=PKGS] try to use only PIC/non-PIC objects [default=use both] --with-gnu-ld assume the C compiler uses GNU ld [default=no] --with-sysroot=DIR Search for dependent libraries within DIR (or the compiler's sysroot if not specified). Some influential environment variables: CC C compiler command CFLAGS C compiler flags LDFLAGS linker flags, e.g. -L if you have libraries in a nonstandard directory LIBS libraries to pass to the linker, e.g. -l CPPFLAGS (Objective) C/C++ preprocessor flags, e.g. -I if you have headers in a nonstandard directory CPP C preprocessor Use these variables to override the choices made by `configure' or to help it to find libraries and programs with nonstandard names/locations. Report bugs to . GNU Trueprint home page: . General help using GNU software: . _ACEOF ac_status=$? fi if test "$ac_init_help" = "recursive"; then # If there are subdirs, report their specific --help. for ac_dir in : $ac_subdirs_all; do test "x$ac_dir" = x: && continue test -d "$ac_dir" || { cd "$srcdir" && ac_pwd=`pwd` && srcdir=. && test -d "$ac_dir"; } || continue ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix cd "$ac_dir" || { ac_status=$?; continue; } # Check for guested configure. if test -f "$ac_srcdir/configure.gnu"; then echo && $SHELL "$ac_srcdir/configure.gnu" --help=recursive elif test -f "$ac_srcdir/configure"; then echo && $SHELL "$ac_srcdir/configure" --help=recursive else $as_echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2 fi || ac_status=$? cd "$ac_pwd" || { ac_status=$?; break; } done fi test -n "$ac_init_help" && exit $ac_status if $ac_init_version; then cat <<\_ACEOF GNU Trueprint configure 5.4 generated by GNU Autoconf 2.69 Copyright (C) 2012 Free Software Foundation, Inc. This configure script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it. _ACEOF exit fi ## ------------------------ ## ## Autoconf initialization. ## ## ------------------------ ## # ac_fn_c_try_compile LINENO # -------------------------- # Try to compile conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest.$ac_objext; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_compile # ac_fn_c_try_link LINENO # ----------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_link () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack rm -f conftest.$ac_objext conftest$ac_exeext if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { test -z "$ac_c_werror_flag" || test ! -s conftest.err } && test -s conftest$ac_exeext && { test "$cross_compiling" = yes || test -x conftest$ac_exeext }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi # Delete the IPA/IPO (Inter Procedural Analysis/Optimization) information # created by the PGI compiler (conftest_ipa8_conftest.oo), as it would # interfere with the next link command; also delete a directory that is # left behind by Apple's compiler. We do this before executing the actions. rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_link # ac_fn_c_check_header_compile LINENO HEADER VAR INCLUDES # ------------------------------------------------------- # Tests whether HEADER exists and can be compiled using the include files in # INCLUDES, setting the cache variable VAR accordingly. ac_fn_c_check_header_compile () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF if ac_fn_c_try_compile "$LINENO"; then : eval "$3=yes" else eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_header_compile # ac_fn_c_try_cpp LINENO # ---------------------- # Try to preprocess conftest.$ac_ext, and return whether this succeeded. ac_fn_c_try_cpp () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_cpp conftest.$ac_ext" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_cpp conftest.$ac_ext") 2>conftest.err ac_status=$? if test -s conftest.err; then grep -v '^ *+' conftest.err >conftest.er1 cat conftest.er1 >&5 mv -f conftest.er1 conftest.err fi $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } > conftest.i && { test -z "$ac_c_preproc_warn_flag$ac_c_werror_flag" || test ! -s conftest.err }; then : ac_retval=0 else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=1 fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_cpp # ac_fn_c_try_run LINENO # ---------------------- # Try to link conftest.$ac_ext, and return whether this succeeded. Assumes # that executables *can* be run. ac_fn_c_try_run () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && { ac_try='./conftest$ac_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then : ac_retval=0 else $as_echo "$as_me: program exited with status $ac_status" >&5 $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 ac_retval=$ac_status fi rm -rf conftest.dSYM conftest_ipa8_conftest.oo eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno as_fn_set_status $ac_retval } # ac_fn_c_try_run # ac_fn_c_check_func LINENO FUNC VAR # ---------------------------------- # Tests whether FUNC exists, setting the cache variable VAR accordingly ac_fn_c_check_func () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Define $2 to an innocuous variant, in case declares $2. For example, HP-UX 11i declares gettimeofday. */ #define $2 innocuous_$2 /* System header to define __stub macros and hopefully few prototypes, which can conflict with char $2 (); below. Prefer to if __STDC__ is defined, since exists even on freestanding compilers. */ #ifdef __STDC__ # include #else # include #endif #undef $2 /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char $2 (); /* 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_$2 || defined __stub___$2 choke me #endif int main () { return $2 (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : eval "$3=yes" else eval "$3=no" fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_func # ac_fn_c_check_header_mongrel LINENO HEADER VAR INCLUDES # ------------------------------------------------------- # Tests whether HEADER exists, giving a warning if it cannot be compiled using # the include files in INCLUDES and setting the cache variable VAR # accordingly. ac_fn_c_check_header_mongrel () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack if eval \${$3+:} false; then : { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } else # Is the header compilable? { $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 usability" >&5 $as_echo_n "checking $2 usability... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 #include <$2> _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_header_compiler=yes else ac_header_compiler=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_compiler" >&5 $as_echo "$ac_header_compiler" >&6; } # Is the header present? { $as_echo "$as_me:${as_lineno-$LINENO}: checking $2 presence" >&5 $as_echo_n "checking $2 presence... " >&6; } cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include <$2> _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : ac_header_preproc=yes else ac_header_preproc=no fi rm -f conftest.err conftest.i conftest.$ac_ext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_header_preproc" >&5 $as_echo "$ac_header_preproc" >&6; } # So? What about this header? case $ac_header_compiler:$ac_header_preproc:$ac_c_preproc_warn_flag in #(( yes:no: ) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&5 $as_echo "$as_me: WARNING: $2: accepted by the compiler, rejected by the preprocessor!" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} ;; no:yes:* ) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: present but cannot be compiled" >&5 $as_echo "$as_me: WARNING: $2: present but cannot be compiled" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: check for missing prerequisite headers?" >&5 $as_echo "$as_me: WARNING: $2: check for missing prerequisite headers?" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: see the Autoconf documentation" >&5 $as_echo "$as_me: WARNING: $2: see the Autoconf documentation" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&5 $as_echo "$as_me: WARNING: $2: section \"Present But Cannot Be Compiled\"" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5 $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;} ( $as_echo "## ------------------------------------ ## ## Report this to bug-trueprint@gnu.org ## ## ------------------------------------ ##" ) | sed "s/^/$as_me: WARNING: /" >&2 ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else eval "$3=\$ac_header_compiler" fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } fi eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_header_mongrel # ac_fn_c_check_type LINENO TYPE VAR INCLUDES # ------------------------------------------- # Tests whether TYPE exists after having included INCLUDES, setting cache # variable VAR accordingly. ac_fn_c_check_type () { as_lineno=${as_lineno-"$1"} as_lineno_stack=as_lineno_stack=$as_lineno_stack { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $2" >&5 $as_echo_n "checking for $2... " >&6; } if eval \${$3+:} false; then : $as_echo_n "(cached) " >&6 else eval "$3=no" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { if (sizeof ($2)) return 0; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $4 int main () { if (sizeof (($2))) return 0; ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else eval "$3=yes" fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi eval ac_res=\$$3 { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_res" >&5 $as_echo "$ac_res" >&6; } eval $as_lineno_stack; ${as_lineno_stack:+:} unset as_lineno } # ac_fn_c_check_type cat >config.log <<_ACEOF This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. It was created by GNU Trueprint $as_me 5.4, which was generated by GNU Autoconf 2.69. Invocation command line was $ $0 $@ _ACEOF exec 5>>config.log { cat <<_ASUNAME ## --------- ## ## Platform. ## ## --------- ## hostname = `(hostname || uname -n) 2>/dev/null | sed 1q` uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null || echo unknown` /bin/uname -X = `(/bin/uname -X) 2>/dev/null || echo unknown` /bin/arch = `(/bin/arch) 2>/dev/null || echo unknown` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null || echo unknown` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null || echo unknown` /usr/bin/hostinfo = `(/usr/bin/hostinfo) 2>/dev/null || echo unknown` /bin/machine = `(/bin/machine) 2>/dev/null || echo unknown` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null || echo unknown` /bin/universe = `(/bin/universe) 2>/dev/null || echo unknown` _ASUNAME as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. $as_echo "PATH: $as_dir" done IFS=$as_save_IFS } >&5 cat >&5 <<_ACEOF ## ----------- ## ## Core tests. ## ## ----------- ## _ACEOF # Keep a trace of the command line. # Strip out --no-create and --no-recursion so they do not pile up. # Strip out --silent because we don't want to record it for future runs. # Also quote any args containing shell meta-characters. # Make two passes to allow for proper duplicate-argument suppression. ac_configure_args= ac_configure_args0= ac_configure_args1= ac_must_keep_next=false for ac_pass in 1 2 do for ac_arg do case $ac_arg in -no-create | --no-c* | -n | -no-recursion | --no-r*) continue ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) continue ;; *\'*) ac_arg=`$as_echo "$ac_arg" | sed "s/'/'\\\\\\\\''/g"` ;; esac case $ac_pass in 1) as_fn_append ac_configure_args0 " '$ac_arg'" ;; 2) as_fn_append ac_configure_args1 " '$ac_arg'" if test $ac_must_keep_next = true; then ac_must_keep_next=false # Got value, back to normal. else case $ac_arg in *=* | --config-cache | -C | -disable-* | --disable-* \ | -enable-* | --enable-* | -gas | --g* | -nfp | --nf* \ | -q | -quiet | --q* | -silent | --sil* | -v | -verb* \ | -with-* | --with-* | -without-* | --without-* | --x) case "$ac_configure_args0 " in "$ac_configure_args1"*" '$ac_arg' "* ) continue ;; esac ;; -* ) ac_must_keep_next=true ;; esac fi as_fn_append ac_configure_args " '$ac_arg'" ;; esac done done { ac_configure_args0=; unset ac_configure_args0;} { ac_configure_args1=; unset ac_configure_args1;} # When interrupted or exit'd, cleanup temporary files, and complete # config.log. We remove comments because anyway the quotes in there # would cause problems or look ugly. # WARNING: Use '\'' to represent an apostrophe within the trap. # WARNING: Do not start the trap code with a newline, due to a FreeBSD 4.0 bug. trap 'exit_status=$? # Save into config.log some information that might help in debugging. { echo $as_echo "## ---------------- ## ## Cache variables. ## ## ---------------- ##" echo # The following way of writing the cache mishandles newlines in values, ( for ac_var in `(set) 2>&1 | sed -n '\''s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'\''`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space='\'' '\''; set) 2>&1` in #( *${as_nl}ac_space=\ *) sed -n \ "s/'\''/'\''\\\\'\'''\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\''\\2'\''/p" ;; #( *) sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) echo $as_echo "## ----------------- ## ## Output variables. ## ## ----------------- ##" echo for ac_var in $ac_subst_vars do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac $as_echo "$ac_var='\''$ac_val'\''" done | sort echo if test -n "$ac_subst_files"; then $as_echo "## ------------------- ## ## File substitutions. ## ## ------------------- ##" echo for ac_var in $ac_subst_files do eval ac_val=\$$ac_var case $ac_val in *\'\''*) ac_val=`$as_echo "$ac_val" | sed "s/'\''/'\''\\\\\\\\'\'''\''/g"`;; esac $as_echo "$ac_var='\''$ac_val'\''" done | sort echo fi if test -s confdefs.h; then $as_echo "## ----------- ## ## confdefs.h. ## ## ----------- ##" echo cat confdefs.h echo fi test "$ac_signal" != 0 && $as_echo "$as_me: caught signal $ac_signal" $as_echo "$as_me: exit $exit_status" } >&5 rm -f core *.core core.conftest.* && rm -f -r conftest* confdefs* conf$$* $ac_clean_files && exit $exit_status ' 0 for ac_signal in 1 2 13 15; do trap 'ac_signal='$ac_signal'; as_fn_exit 1' $ac_signal done ac_signal=0 # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -f -r conftest* confdefs.h $as_echo "/* confdefs.h */" > confdefs.h # Predefined preprocessor variables. cat >>confdefs.h <<_ACEOF #define PACKAGE_NAME "$PACKAGE_NAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_TARNAME "$PACKAGE_TARNAME" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_VERSION "$PACKAGE_VERSION" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_STRING "$PACKAGE_STRING" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_BUGREPORT "$PACKAGE_BUGREPORT" _ACEOF cat >>confdefs.h <<_ACEOF #define PACKAGE_URL "$PACKAGE_URL" _ACEOF # Let the site file select an alternate cache file if it wants to. # Prefer an explicitly selected file to automatically selected ones. ac_site_file1=NONE ac_site_file2=NONE if test -n "$CONFIG_SITE"; then # We do not want a PATH search for config.site. case $CONFIG_SITE in #(( -*) ac_site_file1=./$CONFIG_SITE;; */*) ac_site_file1=$CONFIG_SITE;; *) ac_site_file1=./$CONFIG_SITE;; esac elif test "x$prefix" != xNONE; then ac_site_file1=$prefix/share/config.site ac_site_file2=$prefix/etc/config.site else ac_site_file1=$ac_default_prefix/share/config.site ac_site_file2=$ac_default_prefix/etc/config.site fi for ac_site_file in "$ac_site_file1" "$ac_site_file2" do test "x$ac_site_file" = xNONE && continue if test /dev/null != "$ac_site_file" && test -r "$ac_site_file"; then { $as_echo "$as_me:${as_lineno-$LINENO}: loading site script $ac_site_file" >&5 $as_echo "$as_me: loading site script $ac_site_file" >&6;} sed 's/^/| /' "$ac_site_file" >&5 . "$ac_site_file" \ || { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "failed to load site script $ac_site_file See \`config.log' for more details" "$LINENO" 5; } fi done if test -r "$cache_file"; then # Some versions of bash will fail to source /dev/null (special files # actually), so we avoid doing that. DJGPP emulates it as a regular file. if test /dev/null != "$cache_file" && test -f "$cache_file"; then { $as_echo "$as_me:${as_lineno-$LINENO}: loading cache $cache_file" >&5 $as_echo "$as_me: loading cache $cache_file" >&6;} case $cache_file in [\\/]* | ?:[\\/]* ) . "$cache_file";; *) . "./$cache_file";; esac fi else { $as_echo "$as_me:${as_lineno-$LINENO}: creating cache $cache_file" >&5 $as_echo "$as_me: creating cache $cache_file" >&6;} >$cache_file fi # Check that the precious variables saved in the cache have kept the same # value. ac_cache_corrupted=false for ac_var in $ac_precious_vars; do eval ac_old_set=\$ac_cv_env_${ac_var}_set eval ac_new_set=\$ac_env_${ac_var}_set eval ac_old_val=\$ac_cv_env_${ac_var}_value eval ac_new_val=\$ac_env_${ac_var}_value case $ac_old_set,$ac_new_set in set,) { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&5 $as_echo "$as_me: error: \`$ac_var' was set to \`$ac_old_val' in the previous run" >&2;} ac_cache_corrupted=: ;; ,set) { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' was not set in the previous run" >&5 $as_echo "$as_me: error: \`$ac_var' was not set in the previous run" >&2;} ac_cache_corrupted=: ;; ,);; *) if test "x$ac_old_val" != "x$ac_new_val"; then # differences in whitespace do not lead to failure. ac_old_val_w=`echo x $ac_old_val` ac_new_val_w=`echo x $ac_new_val` if test "$ac_old_val_w" != "$ac_new_val_w"; then { $as_echo "$as_me:${as_lineno-$LINENO}: error: \`$ac_var' has changed since the previous run:" >&5 $as_echo "$as_me: error: \`$ac_var' has changed since the previous run:" >&2;} ac_cache_corrupted=: else { $as_echo "$as_me:${as_lineno-$LINENO}: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&5 $as_echo "$as_me: warning: ignoring whitespace changes in \`$ac_var' since the previous run:" >&2;} eval $ac_var=\$ac_old_val fi { $as_echo "$as_me:${as_lineno-$LINENO}: former value: \`$ac_old_val'" >&5 $as_echo "$as_me: former value: \`$ac_old_val'" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: current value: \`$ac_new_val'" >&5 $as_echo "$as_me: current value: \`$ac_new_val'" >&2;} fi;; esac # Pass precious variables to config.status. if test "$ac_new_set" = set; then case $ac_new_val in *\'*) ac_arg=$ac_var=`$as_echo "$ac_new_val" | sed "s/'/'\\\\\\\\''/g"` ;; *) ac_arg=$ac_var=$ac_new_val ;; esac case " $ac_configure_args " in *" '$ac_arg' "*) ;; # Avoid dups. Use of quotes ensures accuracy. *) as_fn_append ac_configure_args " '$ac_arg'" ;; esac fi done if $ac_cache_corrupted; then { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} { $as_echo "$as_me:${as_lineno-$LINENO}: error: changes in the environment can compromise the build" >&5 $as_echo "$as_me: error: changes in the environment can compromise the build" >&2;} as_fn_error $? "run \`make distclean' and/or \`rm $cache_file' and start over" "$LINENO" 5 fi ## -------------------- ## ## Main body of script. ## ## -------------------- ## ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu #AC_CONFIG_SRCDIR([acconfig.h]) ac_config_headers="$ac_config_headers config.h" am__api_version='1.11' 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 elif test -f "$ac_dir/shtool"; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/shtool install -c" break fi done if test -z "$ac_aux_dir"; then as_fn_error $? "cannot find install-sh, install.sh, or shtool in \"$srcdir\" \"$srcdir/..\" \"$srcdir/../..\"" "$LINENO" 5 fi # These three variables are undocumented and unsupported, # and are intended to be withdrawn in a future Autoconf release. # They can cause serious problems if a builder's source tree is in a directory # whose full name contains unusual characters. ac_config_guess="$SHELL $ac_aux_dir/config.guess" # Please don't use this var. ac_config_sub="$SHELL $ac_aux_dir/config.sub" # Please don't use this var. ac_configure="$SHELL $ac_aux_dir/configure" # Please don't use this var. # 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 # AmigaOS /C/install, which installs bootblocks on floppy discs # 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" # OS/2's system install, which has a completely different semantic # ./install, which can be erroneously created by make from ./install.sh. # Reject install programs that cannot install multiple files. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a BSD-compatible install" >&5 $as_echo_n "checking for a BSD-compatible install... " >&6; } if test -z "$INSTALL"; then if ${ac_cv_path_install+:} false; then : $as_echo_n "(cached) " >&6 else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. # Account for people who put trailing slashes in PATH elements. case $as_dir/ in #(( ./ | .// | /[cC]/* | \ /etc/* | /usr/sbin/* | /usr/etc/* | /sbin/* | /usr/afsws/bin/* | \ ?:[\\/]os2[\\/]install[\\/]* | ?:[\\/]OS2[\\/]INSTALL[\\/]* | \ /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 for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext"; then if test $ac_prog = install && grep dspmsg "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # AIX install. It has an incompatible calling convention. : elif test $ac_prog = install && grep pwplus "$as_dir/$ac_prog$ac_exec_ext" >/dev/null 2>&1; then # program-specific install script used by HP pwplus--don't use. : else rm -rf conftest.one conftest.two conftest.dir echo one > conftest.one echo two > conftest.two mkdir conftest.dir if "$as_dir/$ac_prog$ac_exec_ext" -c conftest.one conftest.two "`pwd`/conftest.dir" && test -s conftest.one && test -s conftest.two && test -s conftest.dir/conftest.one && test -s conftest.dir/conftest.two then ac_cv_path_install="$as_dir/$ac_prog$ac_exec_ext -c" break 3 fi fi fi done done ;; esac done IFS=$as_save_IFS rm -rf conftest.one conftest.two conftest.dir 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. Don't cache a # value for INSTALL within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the value is a relative name. INSTALL=$ac_install_sh fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $INSTALL" >&5 $as_echo "$INSTALL" >&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}' test -z "$INSTALL_DATA" && INSTALL_DATA='${INSTALL} -m 644' { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether build environment is sane" >&5 $as_echo_n "checking whether build environment is sane... " >&6; } # Just in case sleep 1 echo timestamp > conftest.file # Reject unsafe characters in $srcdir or the absolute working directory # name. Accept space and tab only in the latter. am_lf=' ' case `pwd` in *[\\\"\#\$\&\'\`$am_lf]*) as_fn_error $? "unsafe absolute working directory name" "$LINENO" 5;; esac case $srcdir in *[\\\"\#\$\&\'\`$am_lf\ \ ]*) as_fn_error $? "unsafe srcdir value: \`$srcdir'" "$LINENO" 5;; esac # Do `set' in a subshell so we don't clobber the current shell's # arguments. Must try -L first in case configure is actually a # symlink; some systems play weird games with the mod time of symlinks # (eg FreeBSD returns the mod time of the symlink's containing # directory). if ( set X `ls -Lt "$srcdir/configure" conftest.file 2> /dev/null` if test "$*" = "X"; then # -L didn't work. set X `ls -t "$srcdir/configure" conftest.file` fi rm -f conftest.file if test "$*" != "X $srcdir/configure conftest.file" \ && test "$*" != "X conftest.file $srcdir/configure"; then # If neither matched, then we have a broken ls. This can happen # if, for instance, CONFIG_SHELL is bash and it inherits a # broken ls alias from the environment. This has actually # happened. Such a system could not be considered "sane". as_fn_error $? "ls -t appears to fail. Make sure there is not a broken alias in your environment" "$LINENO" 5 fi test "$2" = conftest.file ) then # Ok. : else as_fn_error $? "newly created file is older than distributed files! Check your system clock" "$LINENO" 5 fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } test "$program_prefix" != NONE && program_transform_name="s&^&$program_prefix&;$program_transform_name" # Use a double $ so make ignores it. test "$program_suffix" != NONE && program_transform_name="s&\$&$program_suffix&;$program_transform_name" # Double any \ or $. # By default was `s,x,x', remove it if useless. ac_script='s/[\\$]/&&/g;s/;s,x,x,$//' program_transform_name=`$as_echo "$program_transform_name" | sed "$ac_script"` # expand $ac_aux_dir to an absolute path am_aux_dir=`cd $ac_aux_dir && pwd` if test x"${MISSING+set}" != xset; then case $am_aux_dir in *\ * | *\ *) MISSING="\${SHELL} \"$am_aux_dir/missing\"" ;; *) MISSING="\${SHELL} $am_aux_dir/missing" ;; esac fi # Use eval to expand $SHELL if eval "$MISSING --run true"; then am_missing_run="$MISSING --run " else am_missing_run= { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`missing' script is too old or missing" >&5 $as_echo "$as_me: WARNING: \`missing' script is too old or missing" >&2;} fi if test x"${install_sh}" != xset; then case $am_aux_dir in *\ * | *\ *) install_sh="\${SHELL} '$am_aux_dir/install-sh'" ;; *) install_sh="\${SHELL} $am_aux_dir/install-sh" esac fi # Installed binaries are usually stripped using `strip' when the user # run `make install-strip'. However `strip' might not be the right # tool to use in cross-compilation environments, therefore Automake # will honor the `STRIP' environment variable to overrule this program. if test "$cross_compiling" != no; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_STRIP="${ac_tool_prefix}strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 $as_echo "$STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_STRIP="strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 $as_echo "$ac_ct_STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_STRIP" = x; then STRIP=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac STRIP=$ac_ct_STRIP fi else STRIP="$ac_cv_prog_STRIP" fi fi INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a thread-safe mkdir -p" >&5 $as_echo_n "checking for a thread-safe mkdir -p... " >&6; } if test -z "$MKDIR_P"; then if ${ac_cv_path_mkdir+:} false; then : $as_echo_n "(cached) " >&6 else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/opt/sfw/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in mkdir gmkdir; do for ac_exec_ext in '' $ac_executable_extensions; do as_fn_executable_p "$as_dir/$ac_prog$ac_exec_ext" || continue case `"$as_dir/$ac_prog$ac_exec_ext" --version 2>&1` in #( 'mkdir (GNU coreutils) '* | \ 'mkdir (coreutils) '* | \ 'mkdir (fileutils) '4.1*) ac_cv_path_mkdir=$as_dir/$ac_prog$ac_exec_ext break 3;; esac done done done IFS=$as_save_IFS fi test -d ./--version && rmdir ./--version if test "${ac_cv_path_mkdir+set}" = set; then MKDIR_P="$ac_cv_path_mkdir -p" else # As a last resort, use the slow shell script. Don't cache a # value for MKDIR_P within a source directory, because that will # break other packages using the cache if that directory is # removed, or if the value is a relative name. MKDIR_P="$ac_install_sh -d" fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MKDIR_P" >&5 $as_echo "$MKDIR_P" >&6; } mkdir_p="$MKDIR_P" case $mkdir_p in [\\/$]* | ?:[\\/]*) ;; */*) mkdir_p="\$(top_builddir)/$mkdir_p" ;; esac for ac_prog in gawk mawk nawk awk do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_AWK+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$AWK"; then ac_cv_prog_AWK="$AWK" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_AWK="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi AWK=$ac_cv_prog_AWK if test -n "$AWK"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AWK" >&5 $as_echo "$AWK" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$AWK" && break done { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ${MAKE-make} sets \$(MAKE)" >&5 $as_echo_n "checking whether ${MAKE-make} sets \$(MAKE)... " >&6; } set x ${MAKE-make} ac_make=`$as_echo "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` if eval \${ac_cv_prog_make_${ac_make}_set+:} false; then : $as_echo_n "(cached) " >&6 else cat >conftest.make <<\_ACEOF SHELL = /bin/sh all: @echo '@@@%%%=$(MAKE)=@@@%%%' _ACEOF # GNU make sometimes prints "make[1]: Entering ...", which would confuse us. case `${MAKE-make} -f conftest.make 2>/dev/null` in *@@@%%%=?*=@@@%%%*) eval ac_cv_prog_make_${ac_make}_set=yes;; *) eval ac_cv_prog_make_${ac_make}_set=no;; esac rm -f conftest.make fi if eval test \$ac_cv_prog_make_${ac_make}_set = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } SET_MAKE= else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } SET_MAKE="MAKE=${MAKE-make}" fi rm -rf .tst 2>/dev/null mkdir .tst 2>/dev/null if test -d .tst; then am__leading_dot=. else am__leading_dot=_ fi rmdir .tst 2>/dev/null if test "`cd $srcdir && pwd`" != "`pwd`"; then # Use -I$(srcdir) only when $(srcdir) != ., so that make's output # is not polluted with repeated "-I." am__isrc=' -I$(srcdir)' # test to see if srcdir already configured if test -f $srcdir/config.status; then as_fn_error $? "source directory already configured; run \"make distclean\" there first" "$LINENO" 5 fi fi # test whether we have cygpath if test -z "$CYGPATH_W"; then if (cygpath --version) >/dev/null 2>/dev/null; then CYGPATH_W='cygpath -w' else CYGPATH_W=echo fi fi # Define the identity of the package. PACKAGE='trueprint' VERSION='5.4' # Some tools Automake needs. ACLOCAL=${ACLOCAL-"${am_missing_run}aclocal-${am__api_version}"} AUTOCONF=${AUTOCONF-"${am_missing_run}autoconf"} AUTOMAKE=${AUTOMAKE-"${am_missing_run}automake-${am__api_version}"} AUTOHEADER=${AUTOHEADER-"${am_missing_run}autoheader"} MAKEINFO=${MAKEINFO-"${am_missing_run}makeinfo"} # We need awk for the "check" target. The system "awk" is bad on # some platforms. # Always define AMTAR for backward compatibility. Yes, it's still used # in the wild :-( We should find a proper way to deprecate it ... AMTAR='$${TAR-tar}' am__tar='$${TAR-tar} chof - "$$tardir"' am__untar='$${TAR-tar} xf -' # Checks for programs. ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}gcc", so it can be a program name with args. set dummy ${ac_tool_prefix}gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_CC"; then ac_ct_CC=$CC # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="gcc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi else CC="$ac_cv_prog_CC" fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}cc", so it can be a program name with args. set dummy ${ac_tool_prefix}cc; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="${ac_tool_prefix}cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi 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 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else ac_prog_rejected=no as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then if test "$as_dir/$ac_word$ac_exec_ext" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_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 $# != 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 ac_cv_prog_CC="$as_dir/$ac_word${1+' '}$@" fi fi fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$CC"; then if test -n "$ac_tool_prefix"; then for ac_prog in cl.exe do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_CC="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi CC=$ac_cv_prog_CC if test -n "$CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CC" >&5 $as_echo "$CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$CC" && break done fi if test -z "$CC"; then ac_ct_CC=$CC for ac_prog in cl.exe do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_CC+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_CC"; then ac_cv_prog_ac_ct_CC="$ac_ct_CC" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_CC="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_CC=$ac_cv_prog_ac_ct_CC if test -n "$ac_ct_CC"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_CC" >&5 $as_echo "$ac_ct_CC" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_CC" && break done if test "x$ac_ct_CC" = x; then CC="" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac CC=$ac_ct_CC fi fi fi test -z "$CC" && { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "no acceptable C compiler found in \$PATH See \`config.log' for more details" "$LINENO" 5; } # Provide some information about the compiler. $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler version" >&5 set X $ac_compile ac_compiler=$2 for ac_option in --version -v -V -qversion; do { { ac_try="$ac_compiler $ac_option >&5" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compiler $ac_option >&5") 2>conftest.err ac_status=$? if test -s conftest.err; then sed '10a\ ... rest of stderr output deleted ... 10q' conftest.err >conftest.er1 cat conftest.er1 >&5 fi rm -f conftest.er1 conftest.err $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } done cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files a.out a.out.dSYM a.exe b.out" # Try to create an executable without -o first, disregard a.out. # It will help us diagnose broken compilers, and finding out an intuition # of exeext. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler works" >&5 $as_echo_n "checking whether the C compiler works... " >&6; } ac_link_default=`$as_echo "$ac_link" | sed 's/ -o *conftest[^ ]*//'` # The possible output files: ac_files="a.out conftest.exe conftest a.exe a_out.exe b.out conftest.*" ac_rmfiles= for ac_file in $ac_files do case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; * ) ac_rmfiles="$ac_rmfiles $ac_file";; esac done rm -f $ac_rmfiles if { { ac_try="$ac_link_default" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link_default") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : # Autoconf-2.13 could set the ac_cv_exeext variable to `no'. # So ignore a value of `no', otherwise this would lead to `EXEEXT = no' # in a Makefile. We should not override ac_cv_exeext if it was cached, # so that the user can short-circuit this test for compilers unknown to # Autoconf. for ac_file in $ac_files '' do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; [ab].out ) # We found the default executable, but exeext='' is most # certainly right. break;; *.* ) if test "${ac_cv_exeext+set}" = set && test "$ac_cv_exeext" != no; then :; else ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` fi # We set ac_cv_exeext here because the later test for it is not # safe: cross compilers may not add the suffix if given an `-o' # argument, so we may need to know it at that point already. # Even if this section looks crufty: it has the advantage of # actually working. break;; * ) break;; esac done test "$ac_cv_exeext" = no && ac_cv_exeext= else ac_file='' fi if test -z "$ac_file"; then : { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error 77 "C compiler cannot create executables See \`config.log' for more details" "$LINENO" 5; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for C compiler default output file name" >&5 $as_echo_n "checking for C compiler default output file name... " >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_file" >&5 $as_echo "$ac_file" >&6; } ac_exeext=$ac_cv_exeext rm -f -r a.out a.out.dSYM a.exe conftest$ac_cv_exeext b.out ac_clean_files=$ac_clean_files_save { $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of executables" >&5 $as_echo_n "checking for suffix of executables... " >&6; } if { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : # If both `conftest.exe' and `conftest' are `present' (well, observable) # catch `conftest.exe'. For instance with Cygwin, `ls conftest' will # work properly (i.e., refer to `conftest.exe'), while it won't with # `rm'. for ac_file in conftest.exe conftest conftest.*; do test -f "$ac_file" || continue case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM | *.o | *.obj ) ;; *.* ) ac_cv_exeext=`expr "$ac_file" : '[^.]*\(\..*\)'` break;; * ) break;; esac done else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of executables: cannot compile and link See \`config.log' for more details" "$LINENO" 5; } fi rm -f conftest conftest$ac_cv_exeext { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_exeext" >&5 $as_echo "$ac_cv_exeext" >&6; } rm -f conftest.$ac_ext EXEEXT=$ac_cv_exeext ac_exeext=$EXEEXT cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include int main () { FILE *f = fopen ("conftest.out", "w"); return ferror (f) || fclose (f) != 0; ; return 0; } _ACEOF ac_clean_files="$ac_clean_files conftest.out" # Check that the compiler produces executables we can run. If not, either # the compiler is broken, or we cross compile. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are cross compiling" >&5 $as_echo_n "checking whether we are cross compiling... " >&6; } if test "$cross_compiling" != yes; then { { ac_try="$ac_link" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_link") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if { ac_try='./conftest$ac_cv_exeext' { { case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_try") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; }; then cross_compiling=no else if test "$cross_compiling" = maybe; then cross_compiling=yes else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot run C compiled programs. If you meant to cross compile, use \`--host'. See \`config.log' for more details" "$LINENO" 5; } fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $cross_compiling" >&5 $as_echo "$cross_compiling" >&6; } rm -f conftest.$ac_ext conftest$ac_cv_exeext conftest.out ac_clean_files=$ac_clean_files_save { $as_echo "$as_me:${as_lineno-$LINENO}: checking for suffix of object files" >&5 $as_echo_n "checking for suffix of object files... " >&6; } if ${ac_cv_objext+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF rm -f conftest.o conftest.obj if { { ac_try="$ac_compile" case "(($ac_try" in *\"* | *\`* | *\\*) ac_try_echo=\$ac_try;; *) ac_try_echo=$ac_try;; esac eval ac_try_echo="\"\$as_me:${as_lineno-$LINENO}: $ac_try_echo\"" $as_echo "$ac_try_echo"; } >&5 (eval "$ac_compile") 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then : for ac_file in conftest.o conftest.obj conftest.*; do test -f "$ac_file" || continue; case $ac_file in *.$ac_ext | *.xcoff | *.tds | *.d | *.pdb | *.xSYM | *.bb | *.bbg | *.map | *.inf | *.dSYM ) ;; *) ac_cv_objext=`expr "$ac_file" : '.*\.\(.*\)'` break;; esac done else $as_echo "$as_me: failed program was:" >&5 sed 's/^/| /' conftest.$ac_ext >&5 { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "cannot compute suffix of object files: cannot compile See \`config.log' for more details" "$LINENO" 5; } fi rm -f conftest.$ac_cv_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_objext" >&5 $as_echo "$ac_cv_objext" >&6; } OBJEXT=$ac_cv_objext ac_objext=$OBJEXT { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether we are using the GNU C compiler" >&5 $as_echo_n "checking whether we are using the GNU C compiler... " >&6; } if ${ac_cv_c_compiler_gnu+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { #ifndef __GNUC__ choke me #endif ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_compiler_gnu=yes else ac_compiler_gnu=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_cv_c_compiler_gnu=$ac_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_c_compiler_gnu" >&5 $as_echo "$ac_cv_c_compiler_gnu" >&6; } if test $ac_compiler_gnu = yes; then GCC=yes else GCC= fi ac_test_CFLAGS=${CFLAGS+set} ac_save_CFLAGS=$CFLAGS { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether $CC accepts -g" >&5 $as_echo_n "checking whether $CC accepts -g... " >&6; } if ${ac_cv_prog_cc_g+:} false; then : $as_echo_n "(cached) " >&6 else ac_save_c_werror_flag=$ac_c_werror_flag ac_c_werror_flag=yes ac_cv_prog_cc_g=no CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes else CFLAGS="" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : else ac_c_werror_flag=$ac_save_c_werror_flag CFLAGS="-g" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_g=yes fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext ac_c_werror_flag=$ac_save_c_werror_flag fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_g" >&5 $as_echo "$ac_cv_prog_cc_g" >&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 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $CC option to accept ISO C89" >&5 $as_echo_n "checking for $CC option to accept ISO C89... " >&6; } if ${ac_cv_prog_cc_c89+:} false; then : $as_echo_n "(cached) " >&6 else ac_cv_prog_cc_c89=no ac_save_CC=$CC cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include struct stat; /* Most of the following tests are stolen from RCS 5.7's src/conf.sh. */ struct buf { int x; }; FILE * (*rcsopen) (struct buf *, struct stat *, int); static char *e (p, i) char **p; int i; { return p[i]; } static char *f (char * (*g) (char **, int), char **p, ...) { char *s; va_list v; va_start (v,p); s = g (p, va_arg (v,int)); va_end (v); return s; } /* OSF 4.0 Compaq cc is some sort of almost-ANSI by default. It has function prototypes and stuff, but not '\xHH' hex character constants. These don't provoke an error unfortunately, instead are silently treated as 'x'. The following induces an error, until -std is added to get proper ANSI mode. Curiously '\x00'!='x' always comes out true, for an array size at least. It's necessary to write '\x00'==0 to get something that's true only with -std. */ int osf4_cc_array ['\x00' == 0 ? 1 : -1]; /* IBM C 6 for AIX is almost-ANSI by default, but it replaces macro parameters inside strings and character constants. */ #define FOO(x) 'x' int xlc6_cc_array[FOO(a) == 'x' ? 1 : -1]; int test (int i, double x); struct s1 {int (*f) (int a);}; struct s2 {int (*f) (double a);}; int pairnames (int, char **, FILE *(*)(struct buf *, struct stat *, int), int, int); int argc; char **argv; int main () { return f (e, argv, 0) != argv[0] || f (e, argv, 1) != argv[1]; ; return 0; } _ACEOF for ac_arg in '' -qlanglvl=extc89 -qlanglvl=ansi -std \ -Ae "-Aa -D_HPUX_SOURCE" "-Xc -D__EXTENSIONS__" do CC="$ac_save_CC $ac_arg" if ac_fn_c_try_compile "$LINENO"; then : ac_cv_prog_cc_c89=$ac_arg fi rm -f core conftest.err conftest.$ac_objext test "x$ac_cv_prog_cc_c89" != "xno" && break done rm -f conftest.$ac_ext CC=$ac_save_CC fi # AC_CACHE_VAL case "x$ac_cv_prog_cc_c89" in x) { $as_echo "$as_me:${as_lineno-$LINENO}: result: none needed" >&5 $as_echo "none needed" >&6; } ;; xno) { $as_echo "$as_me:${as_lineno-$LINENO}: result: unsupported" >&5 $as_echo "unsupported" >&6; } ;; *) CC="$CC $ac_cv_prog_cc_c89" { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_prog_cc_c89" >&5 $as_echo "$ac_cv_prog_cc_c89" >&6; } ;; esac if test "x$ac_cv_prog_cc_c89" != xno; then : fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu DEPDIR="${am__leading_dot}deps" ac_config_commands="$ac_config_commands depfiles" am_make=${MAKE-make} cat > confinc << 'END' am__doit: @echo this is the am__doit target .PHONY: am__doit END # If we don't find an include directive, just comment out the code. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for style of include used by $am_make" >&5 $as_echo_n "checking for style of include used by $am_make... " >&6; } am__include="#" am__quote= _am_result=none # First try GNU make style include. echo "include confinc" > confmf # Ignore all kinds of additional output from `make'. case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=include am__quote= _am_result=GNU ;; esac # Now try BSD make style include. if test "$am__include" = "#"; then echo '.include "confinc"' > confmf case `$am_make -s -f confmf 2> /dev/null` in #( *the\ am__doit\ target*) am__include=.include am__quote="\"" _am_result=BSD ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $_am_result" >&5 $as_echo "$_am_result" >&6; } rm -f confinc confmf # Check whether --enable-dependency-tracking was given. if test "${enable_dependency_tracking+set}" = set; then : enableval=$enable_dependency_tracking; fi if test "x$enable_dependency_tracking" != xno; then am_depcomp="$ac_aux_dir/depcomp" AMDEPBACKSLASH='\' am__nodep='_no' fi if test "x$enable_dependency_tracking" != xno; then AMDEP_TRUE= AMDEP_FALSE='#' else AMDEP_TRUE='#' AMDEP_FALSE= fi depcc="$CC" am_compiler_list= { $as_echo "$as_me:${as_lineno-$LINENO}: checking dependency style of $depcc" >&5 $as_echo_n "checking dependency style of $depcc... " >&6; } if ${am_cv_CC_dependencies_compiler_type+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$AMDEP_TRUE" && test -f "$am_depcomp"; then # We make a subdir and do the tests there. Otherwise we can end up # making bogus files that we don't know about and never remove. For # instance it was reported that on HP-UX the gcc test will end up # making a dummy file named `D' -- because `-MD' means `put the output # in D'. rm -rf conftest.dir mkdir conftest.dir # Copy depcomp to subdir because otherwise we won't find it if we're # using a relative directory. cp "$am_depcomp" conftest.dir cd conftest.dir # We will build objects and dependencies in a subdirectory because # it helps to detect inapplicable dependency modes. For instance # both Tru64's cc and ICC support -MD to output dependencies as a # side effect of compilation, but ICC will put the dependencies in # the current directory while Tru64 will put them in the object # directory. mkdir sub am_cv_CC_dependencies_compiler_type=none if test "$am_compiler_list" = ""; then am_compiler_list=`sed -n 's/^#*\([a-zA-Z0-9]*\))$/\1/p' < ./depcomp` fi am__universal=false case " $depcc " in #( *\ -arch\ *\ -arch\ *) am__universal=true ;; esac for depmode in $am_compiler_list; do # Setup a source with many dependencies, because some compilers # like to wrap large dependency lists on column 80 (with \), and # we should not choose a depcomp mode which is confused by this. # # We need to recreate these files for each test, as the compiler may # overwrite some of them when testing with obscure command lines. # This happens at least with the AIX C compiler. : > sub/conftest.c for i in 1 2 3 4 5 6; do echo '#include "conftst'$i'.h"' >> sub/conftest.c # Using `: > sub/conftst$i.h' creates only sub/conftst1.h with # Solaris 8's {/usr,}/bin/sh. touch sub/conftst$i.h done echo "${am__include} ${am__quote}sub/conftest.Po${am__quote}" > confmf # We check with `-c' and `-o' for the sake of the "dashmstdout" # mode. It turns out that the SunPro C++ compiler does not properly # handle `-M -o', and we need to detect this. Also, some Intel # versions had trouble with output in subdirs am__obj=sub/conftest.${OBJEXT-o} am__minus_obj="-o $am__obj" case $depmode in gcc) # This depmode causes a compiler race in universal mode. test "$am__universal" = false || continue ;; nosideeffect) # after this tag, mechanisms are not by side-effect, so they'll # only be used when explicitly requested if test "x$enable_dependency_tracking" = xyes; then continue else break fi ;; msvc7 | msvc7msys | msvisualcpp | msvcmsys) # This compiler won't grok `-c -o', but also, the minuso test has # not run yet. These depmodes are late enough in the game, and # so weak that their functioning should not be impacted. am__obj=conftest.${OBJEXT-o} am__minus_obj= ;; none) break ;; esac if depmode=$depmode \ source=sub/conftest.c object=$am__obj \ depfile=sub/conftest.Po tmpdepfile=sub/conftest.TPo \ $SHELL ./depcomp $depcc -c $am__minus_obj sub/conftest.c \ >/dev/null 2>conftest.err && grep sub/conftst1.h sub/conftest.Po > /dev/null 2>&1 && grep sub/conftst6.h sub/conftest.Po > /dev/null 2>&1 && grep $am__obj sub/conftest.Po > /dev/null 2>&1 && ${MAKE-make} -s -f confmf > /dev/null 2>&1; then # icc doesn't choke on unknown options, it will just issue warnings # or remarks (even with -Werror). So we grep stderr for any message # that says an option was ignored or not supported. # When given -MP, icc 7.0 and 7.1 complain thusly: # icc: Command line warning: ignoring option '-M'; no argument required # The diagnosis changed in icc 8.0: # icc: Command line remark: option '-MP' not supported if (grep 'ignoring option' conftest.err || grep 'not supported' conftest.err) >/dev/null 2>&1; then :; else am_cv_CC_dependencies_compiler_type=$depmode break fi fi done cd .. rm -rf conftest.dir else am_cv_CC_dependencies_compiler_type=none fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $am_cv_CC_dependencies_compiler_type" >&5 $as_echo "$am_cv_CC_dependencies_compiler_type" >&6; } CCDEPMODE=depmode=$am_cv_CC_dependencies_compiler_type if test "x$enable_dependency_tracking" != xno \ && test "$am_cv_CC_dependencies_compiler_type" = gcc3; then am__fastdepCC_TRUE= am__fastdepCC_FALSE='#' else am__fastdepCC_TRUE='#' am__fastdepCC_FALSE= fi case `pwd` in *\ * | *\ *) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&5 $as_echo "$as_me: WARNING: Libtool does not cope well with whitespace in \`pwd\`" >&2;} ;; esac macro_version='2.4.2' macro_revision='1.3337' ltmain="$ac_aux_dir/ltmain.sh" # Make sure we can run config.sub. $SHELL "$ac_aux_dir/config.sub" sun4 >/dev/null 2>&1 || as_fn_error $? "cannot run $SHELL $ac_aux_dir/config.sub" "$LINENO" 5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking build system type" >&5 $as_echo_n "checking build system type... " >&6; } if ${ac_cv_build+:} false; then : $as_echo_n "(cached) " >&6 else ac_build_alias=$build_alias test "x$ac_build_alias" = x && ac_build_alias=`$SHELL "$ac_aux_dir/config.guess"` test "x$ac_build_alias" = x && as_fn_error $? "cannot guess build type; you must specify one" "$LINENO" 5 ac_cv_build=`$SHELL "$ac_aux_dir/config.sub" $ac_build_alias` || as_fn_error $? "$SHELL $ac_aux_dir/config.sub $ac_build_alias failed" "$LINENO" 5 fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_build" >&5 $as_echo "$ac_cv_build" >&6; } case $ac_cv_build in *-*-*) ;; *) as_fn_error $? "invalid value of canonical build" "$LINENO" 5;; esac build=$ac_cv_build ac_save_IFS=$IFS; IFS='-' set x $ac_cv_build shift build_cpu=$1 build_vendor=$2 shift; shift # Remember, the first character of IFS is used to create $*, # except with old shells: build_os=$* IFS=$ac_save_IFS case $build_os in *\ *) build_os=`echo "$build_os" | sed 's/ /-/g'`;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking host system type" >&5 $as_echo_n "checking host system type... " >&6; } if ${ac_cv_host+:} false; then : $as_echo_n "(cached) " >&6 else if test "x$host_alias" = x; then ac_cv_host=$ac_cv_build else ac_cv_host=`$SHELL "$ac_aux_dir/config.sub" $host_alias` || as_fn_error $? "$SHELL $ac_aux_dir/config.sub $host_alias failed" "$LINENO" 5 fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_host" >&5 $as_echo "$ac_cv_host" >&6; } case $ac_cv_host in *-*-*) ;; *) as_fn_error $? "invalid value of canonical host" "$LINENO" 5;; esac host=$ac_cv_host ac_save_IFS=$IFS; IFS='-' set x $ac_cv_host shift host_cpu=$1 host_vendor=$2 shift; shift # Remember, the first character of IFS is used to create $*, # except with old shells: host_os=$* IFS=$ac_save_IFS case $host_os in *\ *) host_os=`echo "$host_os" | sed 's/ /-/g'`;; esac # Backslashify metacharacters that are still active within # double-quoted strings. sed_quote_subst='s/\(["`$\\]\)/\\\1/g' # Same as above, but do not quote variable references. double_quote_subst='s/\(["`\\]\)/\\\1/g' # Sed substitution to delay expansion of an escaped shell variable in a # double_quote_subst'ed string. delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' # Sed substitution to delay expansion of an escaped single quote. delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g' # Sed substitution to avoid accidental globbing in evaled expressions no_glob_subst='s/\*/\\\*/g' ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to print strings" >&5 $as_echo_n "checking how to print strings... " >&6; } # Test print first, because it will be a builtin if present. if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \ test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='print -r --' elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='printf %s\n' else # Use this function as a fallback that always works. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $1 _LTECHO_EOF' } ECHO='func_fallback_echo' fi # func_echo_all arg... # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "" } case "$ECHO" in printf*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: printf" >&5 $as_echo "printf" >&6; } ;; print*) { $as_echo "$as_me:${as_lineno-$LINENO}: result: print -r" >&5 $as_echo "print -r" >&6; } ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: cat" >&5 $as_echo "cat" >&6; } ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for a sed that does not truncate output" >&5 $as_echo_n "checking for a sed that does not truncate output... " >&6; } if ${ac_cv_path_SED+:} false; then : $as_echo_n "(cached) " >&6 else ac_script=s/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa/bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb/ for ac_i in 1 2 3 4 5 6 7; do ac_script="$ac_script$as_nl$ac_script" done echo "$ac_script" 2>/dev/null | sed 99q >conftest.sed { ac_script=; unset ac_script;} if test -z "$SED"; then ac_path_SED_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in sed gsed; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_SED="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_SED" || continue # Check for GNU ac_path_SED and select it if it is found. # Check for GNU $ac_path_SED case `"$ac_path_SED" --version 2>&1` in *GNU*) ac_cv_path_SED="$ac_path_SED" ac_path_SED_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo '' >> "conftest.nl" "$ac_path_SED" -f conftest.sed < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_SED_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_SED="$ac_path_SED" ac_path_SED_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_SED_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_SED"; then as_fn_error $? "no acceptable sed could be found in \$PATH" "$LINENO" 5 fi else ac_cv_path_SED=$SED fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_SED" >&5 $as_echo "$ac_cv_path_SED" >&6; } SED="$ac_cv_path_SED" rm -f conftest.sed test -z "$SED" && SED=sed Xsed="$SED -e 1s/^X//" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5 $as_echo_n "checking for grep that handles long lines and -e... " >&6; } if ${ac_cv_path_GREP+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$GREP"; then ac_path_GREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in grep ggrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_GREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_GREP" || continue # Check for GNU ac_path_GREP and select it if it is found. # Check for GNU $ac_path_GREP case `"$ac_path_GREP" --version 2>&1` in *GNU*) ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'GREP' >> "conftest.nl" "$ac_path_GREP" -e 'GREP$' -e '-(cannot match)-' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_GREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_GREP="$ac_path_GREP" ac_path_GREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_GREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_GREP"; then as_fn_error $? "no acceptable grep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_GREP=$GREP fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_GREP" >&5 $as_echo "$ac_cv_path_GREP" >&6; } GREP="$ac_cv_path_GREP" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for egrep" >&5 $as_echo_n "checking for egrep... " >&6; } if ${ac_cv_path_EGREP+:} false; then : $as_echo_n "(cached) " >&6 else if echo a | $GREP -E '(a|b)' >/dev/null 2>&1 then ac_cv_path_EGREP="$GREP -E" else if test -z "$EGREP"; then ac_path_EGREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in egrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_EGREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_EGREP" || continue # Check for GNU ac_path_EGREP and select it if it is found. # Check for GNU $ac_path_EGREP case `"$ac_path_EGREP" --version 2>&1` in *GNU*) ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'EGREP' >> "conftest.nl" "$ac_path_EGREP" 'EGREP$' < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_EGREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_EGREP="$ac_path_EGREP" ac_path_EGREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_EGREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_EGREP"; then as_fn_error $? "no acceptable egrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_EGREP=$EGREP fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_EGREP" >&5 $as_echo "$ac_cv_path_EGREP" >&6; } EGREP="$ac_cv_path_EGREP" { $as_echo "$as_me:${as_lineno-$LINENO}: checking for fgrep" >&5 $as_echo_n "checking for fgrep... " >&6; } if ${ac_cv_path_FGREP+:} false; then : $as_echo_n "(cached) " >&6 else if echo 'ab*c' | $GREP -F 'ab*c' >/dev/null 2>&1 then ac_cv_path_FGREP="$GREP -F" else if test -z "$FGREP"; then ac_path_FGREP_found=false # Loop through the user's path and test for each of PROGNAME-LIST as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH$PATH_SEPARATOR/usr/xpg4/bin do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_prog in fgrep; do for ac_exec_ext in '' $ac_executable_extensions; do ac_path_FGREP="$as_dir/$ac_prog$ac_exec_ext" as_fn_executable_p "$ac_path_FGREP" || continue # Check for GNU ac_path_FGREP and select it if it is found. # Check for GNU $ac_path_FGREP case `"$ac_path_FGREP" --version 2>&1` in *GNU*) ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_found=:;; *) ac_count=0 $as_echo_n 0123456789 >"conftest.in" while : do cat "conftest.in" "conftest.in" >"conftest.tmp" mv "conftest.tmp" "conftest.in" cp "conftest.in" "conftest.nl" $as_echo 'FGREP' >> "conftest.nl" "$ac_path_FGREP" FGREP < "conftest.nl" >"conftest.out" 2>/dev/null || break diff "conftest.out" "conftest.nl" >/dev/null 2>&1 || break as_fn_arith $ac_count + 1 && ac_count=$as_val if test $ac_count -gt ${ac_path_FGREP_max-0}; then # Best one so far, save it but keep looking for a better one ac_cv_path_FGREP="$ac_path_FGREP" ac_path_FGREP_max=$ac_count fi # 10*(2^10) chars as input seems more than enough test $ac_count -gt 10 && break done rm -f conftest.in conftest.tmp conftest.nl conftest.out;; esac $ac_path_FGREP_found && break 3 done done done IFS=$as_save_IFS if test -z "$ac_cv_path_FGREP"; then as_fn_error $? "no acceptable fgrep could be found in $PATH$PATH_SEPARATOR/usr/xpg4/bin" "$LINENO" 5 fi else ac_cv_path_FGREP=$FGREP fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_path_FGREP" >&5 $as_echo "$ac_cv_path_FGREP" >&6; } FGREP="$ac_cv_path_FGREP" test -z "$GREP" && GREP=grep # Check whether --with-gnu-ld was given. if test "${with_gnu_ld+set}" = set; then : withval=$with_gnu_ld; test "$withval" = no || with_gnu_ld=yes else with_gnu_ld=no fi ac_prog=ld if test "$GCC" = yes; then # Check if gcc -print-prog-name=ld gives a path. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ld used by $CC" >&5 $as_echo_n "checking for ld used by $CC... " >&6; } case $host in *-*-mingw*) # gcc leaves a trailing carriage return which upsets mingw ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; *) ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; esac case $ac_prog in # Accept absolute paths. [\\/]* | ?:[\\/]*) re_direlt='/[^/][^/]*/\.\./' # Canonicalize the pathname of ld ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'` while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"` done test -z "$LD" && LD="$ac_prog" ;; "") # If it fails, then pretend we aren't using GCC. ac_prog=ld ;; *) # If it is relative, then search for the first ld in PATH. with_gnu_ld=unknown ;; esac elif test "$with_gnu_ld" = yes; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU ld" >&5 $as_echo_n "checking for GNU ld... " >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for non-GNU ld" >&5 $as_echo_n "checking for non-GNU ld... " >&6; } fi if ${lt_cv_path_LD+:} false; then : $as_echo_n "(cached) " >&6 else if test -z "$LD"; then lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then lt_cv_path_LD="$ac_dir/$ac_prog" # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some variants of GNU ld only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. case `"$lt_cv_path_LD" -v 2>&1 &5 $as_echo "$LD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -z "$LD" && as_fn_error $? "no acceptable ld found in \$PATH" "$LINENO" 5 { $as_echo "$as_me:${as_lineno-$LINENO}: checking if the linker ($LD) is GNU ld" >&5 $as_echo_n "checking if the linker ($LD) is GNU ld... " >&6; } if ${lt_cv_prog_gnu_ld+:} false; then : $as_echo_n "(cached) " >&6 else # I'd rather use --version here, but apparently some GNU lds only accept -v. case `$LD -v 2>&1 &5 $as_echo "$lt_cv_prog_gnu_ld" >&6; } with_gnu_ld=$lt_cv_prog_gnu_ld { $as_echo "$as_me:${as_lineno-$LINENO}: checking for BSD- or MS-compatible name lister (nm)" >&5 $as_echo_n "checking for BSD- or MS-compatible name lister (nm)... " >&6; } if ${lt_cv_path_NM+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$NM"; then # Let the user override the test. lt_cv_path_NM="$NM" else lt_nm_to_check="${ac_tool_prefix}nm" if test -n "$ac_tool_prefix" && test "$build" = "$host"; then lt_nm_to_check="$lt_nm_to_check nm" fi for lt_tmp_nm in $lt_nm_to_check; do lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. tmp_nm="$ac_dir/$lt_tmp_nm" if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext" ; then # Check to see if the nm accepts a BSD-compat flag. # Adding the `sed 1q' prevents false positives on HP-UX, which says: # nm: unknown option "B" ignored # Tru64's nm complains that /dev/null is an invalid object file case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in */dev/null* | *'Invalid file or object type'*) lt_cv_path_NM="$tmp_nm -B" break ;; *) case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in */dev/null*) lt_cv_path_NM="$tmp_nm -p" break ;; *) lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but continue # so that we can try to find one that supports BSD flags ;; esac ;; esac fi done IFS="$lt_save_ifs" done : ${lt_cv_path_NM=no} fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_NM" >&5 $as_echo "$lt_cv_path_NM" >&6; } if test "$lt_cv_path_NM" != "no"; then NM="$lt_cv_path_NM" else # Didn't find any BSD compatible name lister, look for dumpbin. if test -n "$DUMPBIN"; then : # Let the user override the test. else if test -n "$ac_tool_prefix"; then for ac_prog in dumpbin "link -dump" do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DUMPBIN+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DUMPBIN"; then ac_cv_prog_DUMPBIN="$DUMPBIN" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DUMPBIN="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi DUMPBIN=$ac_cv_prog_DUMPBIN if test -n "$DUMPBIN"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DUMPBIN" >&5 $as_echo "$DUMPBIN" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$DUMPBIN" && break done fi if test -z "$DUMPBIN"; then ac_ct_DUMPBIN=$DUMPBIN for ac_prog in dumpbin "link -dump" do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DUMPBIN+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DUMPBIN"; then ac_cv_prog_ac_ct_DUMPBIN="$ac_ct_DUMPBIN" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DUMPBIN="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_DUMPBIN=$ac_cv_prog_ac_ct_DUMPBIN if test -n "$ac_ct_DUMPBIN"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DUMPBIN" >&5 $as_echo "$ac_ct_DUMPBIN" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_DUMPBIN" && break done if test "x$ac_ct_DUMPBIN" = x; then DUMPBIN=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac DUMPBIN=$ac_ct_DUMPBIN fi fi case `$DUMPBIN -symbols /dev/null 2>&1 | sed '1q'` in *COFF*) DUMPBIN="$DUMPBIN -symbols" ;; *) DUMPBIN=: ;; esac fi if test "$DUMPBIN" != ":"; then NM="$DUMPBIN" fi fi test -z "$NM" && NM=nm { $as_echo "$as_me:${as_lineno-$LINENO}: checking the name lister ($NM) interface" >&5 $as_echo_n "checking the name lister ($NM) interface... " >&6; } if ${lt_cv_nm_interface+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_nm_interface="BSD nm" echo "int some_variable = 0;" > conftest.$ac_ext (eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&5) (eval "$ac_compile" 2>conftest.err) cat conftest.err >&5 (eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&5) (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out) cat conftest.err >&5 (eval echo "\"\$as_me:$LINENO: output\"" >&5) cat conftest.out >&5 if $GREP 'External.*some_variable' conftest.out > /dev/null; then lt_cv_nm_interface="MS dumpbin" fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_nm_interface" >&5 $as_echo "$lt_cv_nm_interface" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether ln -s works" >&5 $as_echo_n "checking whether ln -s works... " >&6; } LN_S=$as_ln_s if test "$LN_S" = "ln -s"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no, using $LN_S" >&5 $as_echo "no, using $LN_S" >&6; } fi # find the maximum length of command line arguments { $as_echo "$as_me:${as_lineno-$LINENO}: checking the maximum length of command line arguments" >&5 $as_echo_n "checking the maximum length of command line arguments... " >&6; } if ${lt_cv_sys_max_cmd_len+:} false; then : $as_echo_n "(cached) " >&6 else i=0 teststring="ABCD" case $build_os in msdosdjgpp*) # On DJGPP, this test can blow up pretty badly due to problems in libc # (any single argument exceeding 2000 bytes causes a buffer overrun # during glob expansion). Even if it were fixed, the result of this # check would be larger than it should be. lt_cv_sys_max_cmd_len=12288; # 12K is about right ;; gnu*) # Under GNU Hurd, this test is not required because there is # no limit to the length of command line arguments. # Libtool will interpret -1 as no limit whatsoever lt_cv_sys_max_cmd_len=-1; ;; cygwin* | mingw* | cegcc*) # On Win9x/ME, this test blows up -- it succeeds, but takes # about 5 minutes as the teststring grows exponentially. # Worse, since 9x/ME are not pre-emptively multitasking, # you end up with a "frozen" computer, even though with patience # the test eventually succeeds (with a max line length of 256k). # Instead, let's just punt: use the minimum linelength reported by # all of the supported platforms: 8192 (on NT/2K/XP). lt_cv_sys_max_cmd_len=8192; ;; mint*) # On MiNT this can take a long time and run out of memory. lt_cv_sys_max_cmd_len=8192; ;; amigaos*) # On AmigaOS with pdksh, this test takes hours, literally. # So we just punt and use a minimum line length of 8192. lt_cv_sys_max_cmd_len=8192; ;; netbsd* | freebsd* | openbsd* | darwin* | dragonfly*) # This has been around since 386BSD, at least. Likely further. if test -x /sbin/sysctl; then lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax` elif test -x /usr/sbin/sysctl; then lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax` else lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs fi # And add a safety zone lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` ;; interix*) # We know the value 262144 and hardcode it with a safety zone (like BSD) lt_cv_sys_max_cmd_len=196608 ;; os2*) # The test takes a long time on OS/2. lt_cv_sys_max_cmd_len=8192 ;; osf*) # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not # nice to cause kernel panics so lets avoid the loop below. # First set a reasonable default. lt_cv_sys_max_cmd_len=16384 # if test -x /sbin/sysconfig; then case `/sbin/sysconfig -q proc exec_disable_arg_limit` in *1*) lt_cv_sys_max_cmd_len=-1 ;; esac fi ;; sco3.2v5*) lt_cv_sys_max_cmd_len=102400 ;; sysv5* | sco5v6* | sysv4.2uw2*) kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null` if test -n "$kargmax"; then lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[ ]//'` else lt_cv_sys_max_cmd_len=32768 fi ;; *) lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null` if test -n "$lt_cv_sys_max_cmd_len" && \ test undefined != "$lt_cv_sys_max_cmd_len"; then lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` else # Make teststring a little bigger before we do anything with it. # a 1K string should be a reasonable start. for i in 1 2 3 4 5 6 7 8 ; do teststring=$teststring$teststring done SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} # If test is not a shell built-in, we'll probably end up computing a # maximum length that is only half of the actual maximum length, but # we can't tell. while { test "X"`env echo "$teststring$teststring" 2>/dev/null` \ = "X$teststring$teststring"; } >/dev/null 2>&1 && test $i != 17 # 1/2 MB should be enough do i=`expr $i + 1` teststring=$teststring$teststring done # Only check the string length outside the loop. lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1` teststring= # Add a significant safety factor because C++ compilers can tack on # massive amounts of additional arguments before passing them to the # linker. It appears as though 1/2 is a usable value. lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2` fi ;; esac fi if test -n $lt_cv_sys_max_cmd_len ; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sys_max_cmd_len" >&5 $as_echo "$lt_cv_sys_max_cmd_len" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: none" >&5 $as_echo "none" >&6; } fi max_cmd_len=$lt_cv_sys_max_cmd_len : ${CP="cp -f"} : ${MV="mv -f"} : ${RM="rm -f"} { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the shell understands some XSI constructs" >&5 $as_echo_n "checking whether the shell understands some XSI constructs... " >&6; } # Try some XSI features xsi_shell=no ( _lt_dummy="a/b/c" test "${_lt_dummy##*/},${_lt_dummy%/*},${_lt_dummy#??}"${_lt_dummy%"$_lt_dummy"}, \ = c,a/b,b/c, \ && eval 'test $(( 1 + 1 )) -eq 2 \ && test "${#_lt_dummy}" -eq 5' ) >/dev/null 2>&1 \ && xsi_shell=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $xsi_shell" >&5 $as_echo "$xsi_shell" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the shell understands \"+=\"" >&5 $as_echo_n "checking whether the shell understands \"+=\"... " >&6; } lt_shell_append=no ( foo=bar; set foo baz; eval "$1+=\$2" && test "$foo" = barbaz ) \ >/dev/null 2>&1 \ && lt_shell_append=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_shell_append" >&5 $as_echo "$lt_shell_append" >&6; } if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then lt_unset=unset else lt_unset=false fi # test EBCDIC or ASCII case `echo X|tr X '\101'` in A) # ASCII based system # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr lt_SP2NL='tr \040 \012' lt_NL2SP='tr \015\012 \040\040' ;; *) # EBCDIC based system lt_SP2NL='tr \100 \n' lt_NL2SP='tr \r\n \100\100' ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to $host format" >&5 $as_echo_n "checking how to convert $build file names to $host format... " >&6; } if ${lt_cv_to_host_file_cmd+:} false; then : $as_echo_n "(cached) " >&6 else case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32 ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32 ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32 ;; esac ;; *-*-cygwin* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_noop ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin ;; esac ;; * ) # unhandled hosts (and "normal" native builds) lt_cv_to_host_file_cmd=func_convert_file_noop ;; esac fi to_host_file_cmd=$lt_cv_to_host_file_cmd { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_host_file_cmd" >&5 $as_echo "$lt_cv_to_host_file_cmd" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to convert $build file names to toolchain format" >&5 $as_echo_n "checking how to convert $build file names to toolchain format... " >&6; } if ${lt_cv_to_tool_file_cmd+:} false; then : $as_echo_n "(cached) " >&6 else #assume ordinary cross tools, or native build. lt_cv_to_tool_file_cmd=func_convert_file_noop case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32 ;; esac ;; esac fi to_tool_file_cmd=$lt_cv_to_tool_file_cmd { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_to_tool_file_cmd" >&5 $as_echo "$lt_cv_to_tool_file_cmd" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $LD option to reload object files" >&5 $as_echo_n "checking for $LD option to reload object files... " >&6; } if ${lt_cv_ld_reload_flag+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_reload_flag='-r' fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_reload_flag" >&5 $as_echo "$lt_cv_ld_reload_flag" >&6; } reload_flag=$lt_cv_ld_reload_flag case $reload_flag in "" | " "*) ;; *) reload_flag=" $reload_flag" ;; esac reload_cmds='$LD$reload_flag -o $output$reload_objs' case $host_os in cygwin* | mingw* | pw32* | cegcc*) if test "$GCC" != yes; then reload_cmds=false fi ;; darwin*) if test "$GCC" = yes; then reload_cmds='$LTCC $LTCFLAGS -nostdlib ${wl}-r -o $output$reload_objs' else reload_cmds='$LD$reload_flag -o $output$reload_objs' fi ;; esac if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}objdump", so it can be a program name with args. set dummy ${ac_tool_prefix}objdump; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OBJDUMP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OBJDUMP"; then ac_cv_prog_OBJDUMP="$OBJDUMP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_OBJDUMP="${ac_tool_prefix}objdump" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi OBJDUMP=$ac_cv_prog_OBJDUMP if test -n "$OBJDUMP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OBJDUMP" >&5 $as_echo "$OBJDUMP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OBJDUMP"; then ac_ct_OBJDUMP=$OBJDUMP # Extract the first word of "objdump", so it can be a program name with args. set dummy objdump; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OBJDUMP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OBJDUMP"; then ac_cv_prog_ac_ct_OBJDUMP="$ac_ct_OBJDUMP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_OBJDUMP="objdump" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_OBJDUMP=$ac_cv_prog_ac_ct_OBJDUMP if test -n "$ac_ct_OBJDUMP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OBJDUMP" >&5 $as_echo "$ac_ct_OBJDUMP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OBJDUMP" = x; then OBJDUMP="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac OBJDUMP=$ac_ct_OBJDUMP fi else OBJDUMP="$ac_cv_prog_OBJDUMP" fi test -z "$OBJDUMP" && OBJDUMP=objdump { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to recognize dependent libraries" >&5 $as_echo_n "checking how to recognize dependent libraries... " >&6; } if ${lt_cv_deplibs_check_method+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_file_magic_cmd='$MAGIC_CMD' lt_cv_file_magic_test_file= lt_cv_deplibs_check_method='unknown' # Need to set the preceding variable on all platforms that support # interlibrary dependencies. # 'none' -- dependencies not supported. # `unknown' -- same as none, but documents that we really don't know. # 'pass_all' -- all dependencies passed with no checks. # 'test_compile' -- check by making test program. # 'file_magic [[regex]]' -- check by looking for files in library path # which responds to the $file_magic_cmd with a given extended regex. # If you have `file' or equivalent on your system and you're not sure # whether `pass_all' will *always* work, you probably want this one. case $host_os in aix[4-9]*) lt_cv_deplibs_check_method=pass_all ;; beos*) lt_cv_deplibs_check_method=pass_all ;; bsdi[45]*) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib)' lt_cv_file_magic_cmd='/usr/bin/file -L' lt_cv_file_magic_test_file=/shlib/libc.so ;; cygwin*) # func_win32_libid is a shell function defined in ltmain.sh lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' ;; mingw* | pw32*) # Base MSYS/MinGW do not provide the 'file' command needed by # func_win32_libid shell function, so use a weaker test based on 'objdump', # unless we find 'file', for example because we are cross-compiling. # func_win32_libid assumes BSD nm, so disallow it if using MS dumpbin. if ( test "$lt_cv_nm_interface" = "BSD nm" && file / ) >/dev/null 2>&1; then lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' else # Keep this pattern in sync with the one in func_win32_libid. lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' lt_cv_file_magic_cmd='$OBJDUMP -f' fi ;; cegcc*) # use the weaker test based on 'objdump'. See mingw*. lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?' lt_cv_file_magic_cmd='$OBJDUMP -f' ;; darwin* | rhapsody*) lt_cv_deplibs_check_method=pass_all ;; freebsd* | dragonfly*) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then case $host_cpu in i*86 ) # Not sure whether the presence of OpenBSD here was a mistake. # Let's accept both of them until this is cleared up. lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[3-9]86 (compact )?demand paged shared library' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` ;; esac else lt_cv_deplibs_check_method=pass_all fi ;; haiku*) lt_cv_deplibs_check_method=pass_all ;; hpux10.20* | hpux11*) lt_cv_file_magic_cmd=/usr/bin/file case $host_cpu in ia64*) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF-[0-9][0-9]) shared object file - IA64' lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so ;; hppa*64*) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]' lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl ;; *) lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|PA-RISC[0-9]\.[0-9]) shared library' lt_cv_file_magic_test_file=/usr/lib/libc.sl ;; esac ;; interix[3-9]*) # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|\.a)$' ;; irix5* | irix6* | nonstopux*) case $LD in *-32|*"-32 ") libmagic=32-bit;; *-n32|*"-n32 ") libmagic=N32;; *-64|*"-64 ") libmagic=64-bit;; *) libmagic=never-match;; esac lt_cv_deplibs_check_method=pass_all ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) lt_cv_deplibs_check_method=pass_all ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so|_pic\.a)$' fi ;; newos6*) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (executable|dynamic lib)' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=/usr/lib/libnls.so ;; *nto* | *qnx*) lt_cv_deplibs_check_method=pass_all ;; openbsd*) if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|\.so|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[^/]+(\.so\.[0-9]+\.[0-9]+|_pic\.a)$' fi ;; osf3* | osf4* | osf5*) lt_cv_deplibs_check_method=pass_all ;; rdos*) lt_cv_deplibs_check_method=pass_all ;; solaris*) lt_cv_deplibs_check_method=pass_all ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) lt_cv_deplibs_check_method=pass_all ;; sysv4 | sysv4.3*) case $host_vendor in motorola) lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [ML]SB (shared object|dynamic lib) M[0-9][0-9]* Version [0-9]' lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` ;; ncr) lt_cv_deplibs_check_method=pass_all ;; sequent) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method='file_magic ELF [0-9][0-9]*-bit [LM]SB (shared object|dynamic lib )' ;; sni) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method="file_magic ELF [0-9][0-9]*-bit [LM]SB dynamic lib" lt_cv_file_magic_test_file=/lib/libc.so ;; siemens) lt_cv_deplibs_check_method=pass_all ;; pc) lt_cv_deplibs_check_method=pass_all ;; esac ;; tpf*) lt_cv_deplibs_check_method=pass_all ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_deplibs_check_method" >&5 $as_echo "$lt_cv_deplibs_check_method" >&6; } file_magic_glob= want_nocaseglob=no if test "$build" = "$host"; then case $host_os in mingw* | pw32*) if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then want_nocaseglob=yes else file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[\1]\/[\1]\/g;/g"` fi ;; esac fi file_magic_cmd=$lt_cv_file_magic_cmd deplibs_check_method=$lt_cv_deplibs_check_method test -z "$deplibs_check_method" && deplibs_check_method=unknown if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}dlltool", so it can be a program name with args. set dummy ${ac_tool_prefix}dlltool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DLLTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DLLTOOL"; then ac_cv_prog_DLLTOOL="$DLLTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DLLTOOL="${ac_tool_prefix}dlltool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi DLLTOOL=$ac_cv_prog_DLLTOOL if test -n "$DLLTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DLLTOOL" >&5 $as_echo "$DLLTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_DLLTOOL"; then ac_ct_DLLTOOL=$DLLTOOL # Extract the first word of "dlltool", so it can be a program name with args. set dummy dlltool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DLLTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DLLTOOL"; then ac_cv_prog_ac_ct_DLLTOOL="$ac_ct_DLLTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DLLTOOL="dlltool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_DLLTOOL=$ac_cv_prog_ac_ct_DLLTOOL if test -n "$ac_ct_DLLTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DLLTOOL" >&5 $as_echo "$ac_ct_DLLTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_DLLTOOL" = x; then DLLTOOL="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac DLLTOOL=$ac_ct_DLLTOOL fi else DLLTOOL="$ac_cv_prog_DLLTOOL" fi test -z "$DLLTOOL" && DLLTOOL=dlltool { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to associate runtime and link libraries" >&5 $as_echo_n "checking how to associate runtime and link libraries... " >&6; } if ${lt_cv_sharedlib_from_linklib_cmd+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_sharedlib_from_linklib_cmd='unknown' case $host_os in cygwin* | mingw* | pw32* | cegcc*) # two different shell functions defined in ltmain.sh # decide which to use based on capabilities of $DLLTOOL case `$DLLTOOL --help 2>&1` in *--identify-strict*) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib ;; *) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback ;; esac ;; *) # fallback: assume linklib IS sharedlib lt_cv_sharedlib_from_linklib_cmd="$ECHO" ;; esac fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_sharedlib_from_linklib_cmd" >&5 $as_echo "$lt_cv_sharedlib_from_linklib_cmd" >&6; } sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO if test -n "$ac_tool_prefix"; then for ac_prog in ar do # Extract the first word of "$ac_tool_prefix$ac_prog", so it can be a program name with args. set dummy $ac_tool_prefix$ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_AR+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$AR"; then ac_cv_prog_AR="$AR" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_AR="$ac_tool_prefix$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi AR=$ac_cv_prog_AR if test -n "$AR"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $AR" >&5 $as_echo "$AR" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$AR" && break done fi if test -z "$AR"; then ac_ct_AR=$AR for ac_prog in ar do # Extract the first word of "$ac_prog", so it can be a program name with args. set dummy $ac_prog; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_AR+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_AR"; then ac_cv_prog_ac_ct_AR="$ac_ct_AR" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_AR="$ac_prog" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_AR=$ac_cv_prog_ac_ct_AR if test -n "$ac_ct_AR"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_AR" >&5 $as_echo "$ac_ct_AR" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi test -n "$ac_ct_AR" && break done if test "x$ac_ct_AR" = x; then AR="false" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac AR=$ac_ct_AR fi fi : ${AR=ar} : ${AR_FLAGS=cru} { $as_echo "$as_me:${as_lineno-$LINENO}: checking for archiver @FILE support" >&5 $as_echo_n "checking for archiver @FILE support... " >&6; } if ${lt_cv_ar_at_file+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ar_at_file=no cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : echo conftest.$ac_objext > conftest.lst lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&5' { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5 (eval $lt_ar_try) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if test "$ac_status" -eq 0; then # Ensure the archiver fails upon bogus file names. rm -f conftest.$ac_objext libconftest.a { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$lt_ar_try\""; } >&5 (eval $lt_ar_try) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } if test "$ac_status" -ne 0; then lt_cv_ar_at_file=@ fi fi rm -f conftest.* libconftest.a fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ar_at_file" >&5 $as_echo "$lt_cv_ar_at_file" >&6; } if test "x$lt_cv_ar_at_file" = xno; then archiver_list_spec= else archiver_list_spec=$lt_cv_ar_at_file fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}strip", so it can be a program name with args. set dummy ${ac_tool_prefix}strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$STRIP"; then ac_cv_prog_STRIP="$STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_STRIP="${ac_tool_prefix}strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi STRIP=$ac_cv_prog_STRIP if test -n "$STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $STRIP" >&5 $as_echo "$STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_STRIP"; then ac_ct_STRIP=$STRIP # Extract the first word of "strip", so it can be a program name with args. set dummy strip; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_STRIP+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_STRIP"; then ac_cv_prog_ac_ct_STRIP="$ac_ct_STRIP" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_STRIP="strip" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_STRIP=$ac_cv_prog_ac_ct_STRIP if test -n "$ac_ct_STRIP"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_STRIP" >&5 $as_echo "$ac_ct_STRIP" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_STRIP" = x; then STRIP=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac STRIP=$ac_ct_STRIP fi else STRIP="$ac_cv_prog_STRIP" fi test -z "$STRIP" && STRIP=: if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}ranlib", so it can be a program name with args. set dummy ${ac_tool_prefix}ranlib; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_RANLIB+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$RANLIB"; then ac_cv_prog_RANLIB="$RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_RANLIB="${ac_tool_prefix}ranlib" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi RANLIB=$ac_cv_prog_RANLIB if test -n "$RANLIB"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $RANLIB" >&5 $as_echo "$RANLIB" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_RANLIB"; then ac_ct_RANLIB=$RANLIB # Extract the first word of "ranlib", so it can be a program name with args. set dummy ranlib; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_RANLIB+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_RANLIB"; then ac_cv_prog_ac_ct_RANLIB="$ac_ct_RANLIB" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_RANLIB="ranlib" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_RANLIB=$ac_cv_prog_ac_ct_RANLIB if test -n "$ac_ct_RANLIB"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_RANLIB" >&5 $as_echo "$ac_ct_RANLIB" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_RANLIB" = x; then RANLIB=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac RANLIB=$ac_ct_RANLIB fi else RANLIB="$ac_cv_prog_RANLIB" fi test -z "$RANLIB" && RANLIB=: # Determine commands to create old-style static archives. old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs' old_postinstall_cmds='chmod 644 $oldlib' old_postuninstall_cmds= if test -n "$RANLIB"; then case $host_os in openbsd*) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib" ;; *) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib" ;; esac old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib" fi case $host_os in darwin*) lock_old_archive_extraction=yes ;; *) lock_old_archive_extraction=no ;; esac # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # Check for command to grab the raw symbol name followed by C symbol from nm. { $as_echo "$as_me:${as_lineno-$LINENO}: checking command to parse $NM output from $compiler object" >&5 $as_echo_n "checking command to parse $NM output from $compiler object... " >&6; } if ${lt_cv_sys_global_symbol_pipe+:} false; then : $as_echo_n "(cached) " >&6 else # These are sane defaults that work on at least a few old systems. # [They come from Ultrix. What could be older than Ultrix?!! ;)] # Character class describing NM global symbol codes. symcode='[BCDEGRST]' # Regexp to match symbols that can be accessed directly from C. sympat='\([_A-Za-z][_A-Za-z0-9]*\)' # Define system-specific variables. case $host_os in aix*) symcode='[BCDT]' ;; cygwin* | mingw* | pw32* | cegcc*) symcode='[ABCDGISTW]' ;; hpux*) if test "$host_cpu" = ia64; then symcode='[ABCDEGRST]' fi ;; irix* | nonstopux*) symcode='[BCDEGRST]' ;; osf*) symcode='[BCDEGQRST]' ;; solaris*) symcode='[BDRT]' ;; sco3.2v5*) symcode='[DT]' ;; sysv4.2uw2*) symcode='[DT]' ;; sysv5* | sco5v6* | unixware* | OpenUNIX*) symcode='[ABDT]' ;; sysv4) symcode='[DFNSTU]' ;; esac # If we're using GNU nm, then use its standard symbol codes. case `$NM -V 2>&1` in *GNU* | *'with BFD'*) symcode='[ABCDGIRSTW]' ;; esac # Transform an extracted symbol line into a proper C declaration. # Some systems (esp. on ia64) link data and code symbols differently, # so use this general approach. lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" # Transform an extracted symbol line into symbol name and symbol address lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([^ ]*\)[ ]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"\2\", (void *) \&\2},/p'" lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n -e 's/^: \([^ ]*\)[ ]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([^ ]*\) \(lib[^ ]*\)$/ {\"\2\", (void *) \&\2},/p' -e 's/^$symcode* \([^ ]*\) \([^ ]*\)$/ {\"lib\2\", (void *) \&\2},/p'" # Handle CRLF in mingw tool chain opt_cr= case $build_os in mingw*) opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp ;; esac # Try without a prefix underscore, then with it. for ac_symprfx in "" "_"; do # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol. symxfrm="\\1 $ac_symprfx\\2 \\2" # Write the raw and C identifiers. if test "$lt_cv_nm_interface" = "MS dumpbin"; then # Fake it for dumpbin and say T for any non-static function # and D for any global variable. # Also find C++ and __fastcall symbols from MSVC++, # which start with @ or ?. lt_cv_sys_global_symbol_pipe="$AWK '"\ " {last_section=section; section=\$ 3};"\ " /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\ " /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\ " \$ 0!~/External *\|/{next};"\ " / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\ " {if(hide[section]) next};"\ " {f=0}; \$ 0~/\(\).*\|/{f=1}; {printf f ? \"T \" : \"D \"};"\ " {split(\$ 0, a, /\||\r/); split(a[2], s)};"\ " s[1]~/^[@?]/{print s[1], s[1]; next};"\ " s[1]~prfx {split(s[1],t,\"@\"); print t[1], substr(t[1],length(prfx))}"\ " ' prfx=^$ac_symprfx" else lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[ ]\($symcode$symcode*\)[ ][ ]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" fi lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'" # Check to see that the pipe works correctly. pipe_works=no rm -f conftest* cat > conftest.$ac_ext <<_LT_EOF #ifdef __cplusplus extern "C" { #endif char nm_test_var; void nm_test_func(void); void nm_test_func(void){} #ifdef __cplusplus } #endif int main(){nm_test_var='a';nm_test_func();return(0);} _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then # Now try to grab the symbols. nlist=conftest.nm if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist\""; } >&5 (eval $NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s "$nlist"; then # Try sorting and uniquifying the output. if sort "$nlist" | uniq > "$nlist"T; then mv -f "$nlist"T "$nlist" else rm -f "$nlist"T fi # Make sure that we snagged all the symbols we need. if $GREP ' nm_test_var$' "$nlist" >/dev/null; then if $GREP ' nm_test_func$' "$nlist" >/dev/null; then cat <<_LT_EOF > conftest.$ac_ext /* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ #if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE) /* DATA imports from DLLs on WIN32 con't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs. */ # define LT_DLSYM_CONST #elif defined(__osf__) /* This system does not cope well with relocations in const data. */ # define LT_DLSYM_CONST #else # define LT_DLSYM_CONST const #endif #ifdef __cplusplus extern "C" { #endif _LT_EOF # Now generate the symbol file. eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext' cat <<_LT_EOF >> conftest.$ac_ext /* The mapping between symbol names and symbols. */ LT_DLSYM_CONST struct { const char *name; void *address; } lt__PROGRAM__LTX_preloaded_symbols[] = { { "@PROGRAM@", (void *) 0 }, _LT_EOF $SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (void *) \&\2},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext cat <<\_LT_EOF >> conftest.$ac_ext {0, (void *) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt__PROGRAM__LTX_preloaded_symbols; } #endif #ifdef __cplusplus } #endif _LT_EOF # Now try linking the two files. mv conftest.$ac_objext conftstm.$ac_objext lt_globsym_save_LIBS=$LIBS lt_globsym_save_CFLAGS=$CFLAGS LIBS="conftstm.$ac_objext" CFLAGS="$CFLAGS$lt_prog_compiler_no_builtin_flag" if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest${ac_exeext}; then pipe_works=yes fi LIBS=$lt_globsym_save_LIBS CFLAGS=$lt_globsym_save_CFLAGS else echo "cannot find nm_test_func in $nlist" >&5 fi else echo "cannot find nm_test_var in $nlist" >&5 fi else echo "cannot run $lt_cv_sys_global_symbol_pipe" >&5 fi else echo "$progname: failed program was:" >&5 cat conftest.$ac_ext >&5 fi rm -rf conftest* conftst* # Do not use the global_symbol_pipe unless it works. if test "$pipe_works" = yes; then break else lt_cv_sys_global_symbol_pipe= fi done fi if test -z "$lt_cv_sys_global_symbol_pipe"; then lt_cv_sys_global_symbol_to_cdecl= fi if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: failed" >&5 $as_echo "failed" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: ok" >&5 $as_echo "ok" >&6; } fi # Response file support. if test "$lt_cv_nm_interface" = "MS dumpbin"; then nm_file_list_spec='@' elif $NM --help 2>/dev/null | grep '[@]FILE' >/dev/null; then nm_file_list_spec='@' fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for sysroot" >&5 $as_echo_n "checking for sysroot... " >&6; } # Check whether --with-sysroot was given. if test "${with_sysroot+set}" = set; then : withval=$with_sysroot; else with_sysroot=no fi lt_sysroot= case ${with_sysroot} in #( yes) if test "$GCC" = yes; then lt_sysroot=`$CC --print-sysroot 2>/dev/null` fi ;; #( /*) lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"` ;; #( no|'') ;; #( *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${with_sysroot}" >&5 $as_echo "${with_sysroot}" >&6; } as_fn_error $? "The sysroot must be an absolute path." "$LINENO" 5 ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: ${lt_sysroot:-no}" >&5 $as_echo "${lt_sysroot:-no}" >&6; } # Check whether --enable-libtool-lock was given. if test "${enable_libtool_lock+set}" = set; then : enableval=$enable_libtool_lock; fi test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes # Some flags need to be propagated to the compiler or linker for good # libtool support. case $host in ia64-*-hpux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.$ac_objext` in *ELF-32*) HPUX_IA64_MODE="32" ;; *ELF-64*) HPUX_IA64_MODE="64" ;; esac fi rm -rf conftest* ;; *-*-irix6*) # Find out which ABI we are using. echo '#line '$LINENO' "configure"' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then if test "$lt_cv_prog_gnu_ld" = yes; then case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -melf32bsmip" ;; *N32*) LD="${LD-ld} -melf32bmipn32" ;; *64-bit*) LD="${LD-ld} -melf64bmip" ;; esac else case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -32" ;; *N32*) LD="${LD-ld} -n32" ;; *64-bit*) LD="${LD-ld} -64" ;; esac fi fi rm -rf conftest* ;; x86_64-*kfreebsd*-gnu|x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*| \ s390*-*linux*|s390*-*tpf*|sparc*-*linux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.o` in *32-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_i386_fbsd" ;; x86_64-*linux*) case `/usr/bin/file conftest.o` in *x86-64*) LD="${LD-ld} -m elf32_x86_64" ;; *) LD="${LD-ld} -m elf_i386" ;; esac ;; ppc64-*linux*|powerpc64-*linux*) LD="${LD-ld} -m elf32ppclinux" ;; s390x-*linux*) LD="${LD-ld} -m elf_s390" ;; sparc64-*linux*) LD="${LD-ld} -m elf32_sparc" ;; esac ;; *64-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_x86_64_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_x86_64" ;; ppc*-*linux*|powerpc*-*linux*) LD="${LD-ld} -m elf64ppc" ;; s390*-*linux*|s390*-*tpf*) LD="${LD-ld} -m elf64_s390" ;; sparc*-*linux*) LD="${LD-ld} -m elf64_sparc" ;; esac ;; esac fi rm -rf conftest* ;; *-*-sco3.2v5*) # On SCO OpenServer 5, we need -belf to get full-featured binaries. SAVE_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS -belf" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the C compiler needs -belf" >&5 $as_echo_n "checking whether the C compiler needs -belf... " >&6; } if ${lt_cv_cc_needs_belf+:} false; then : $as_echo_n "(cached) " >&6 else ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_cc_needs_belf=yes else lt_cv_cc_needs_belf=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_cc_needs_belf" >&5 $as_echo "$lt_cv_cc_needs_belf" >&6; } if test x"$lt_cv_cc_needs_belf" != x"yes"; then # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf CFLAGS="$SAVE_CFLAGS" fi ;; *-*solaris*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; }; then case `/usr/bin/file conftest.o` in *64-bit*) case $lt_cv_prog_gnu_ld in yes*) case $host in i?86-*-solaris*) LD="${LD-ld} -m elf_x86_64" ;; sparc*-*-solaris*) LD="${LD-ld} -m elf64_sparc" ;; esac # GNU ld 2.21 introduced _sol2 emulations. Use them if available. if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then LD="${LD-ld}_sol2" fi ;; *) if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then LD="${LD-ld} -64" fi ;; esac ;; esac fi rm -rf conftest* ;; esac need_locks="$enable_libtool_lock" if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}mt", so it can be a program name with args. set dummy ${ac_tool_prefix}mt; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_MANIFEST_TOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$MANIFEST_TOOL"; then ac_cv_prog_MANIFEST_TOOL="$MANIFEST_TOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_MANIFEST_TOOL="${ac_tool_prefix}mt" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi MANIFEST_TOOL=$ac_cv_prog_MANIFEST_TOOL if test -n "$MANIFEST_TOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MANIFEST_TOOL" >&5 $as_echo "$MANIFEST_TOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_MANIFEST_TOOL"; then ac_ct_MANIFEST_TOOL=$MANIFEST_TOOL # Extract the first word of "mt", so it can be a program name with args. set dummy mt; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_MANIFEST_TOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_MANIFEST_TOOL"; then ac_cv_prog_ac_ct_MANIFEST_TOOL="$ac_ct_MANIFEST_TOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_MANIFEST_TOOL="mt" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_MANIFEST_TOOL=$ac_cv_prog_ac_ct_MANIFEST_TOOL if test -n "$ac_ct_MANIFEST_TOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_MANIFEST_TOOL" >&5 $as_echo "$ac_ct_MANIFEST_TOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_MANIFEST_TOOL" = x; then MANIFEST_TOOL=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac MANIFEST_TOOL=$ac_ct_MANIFEST_TOOL fi else MANIFEST_TOOL="$ac_cv_prog_MANIFEST_TOOL" fi test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $MANIFEST_TOOL is a manifest tool" >&5 $as_echo_n "checking if $MANIFEST_TOOL is a manifest tool... " >&6; } if ${lt_cv_path_mainfest_tool+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_path_mainfest_tool=no echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&5 $MANIFEST_TOOL '-?' 2>conftest.err > conftest.out cat conftest.err >&5 if $GREP 'Manifest Tool' conftest.out > /dev/null; then lt_cv_path_mainfest_tool=yes fi rm -f conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_path_mainfest_tool" >&5 $as_echo "$lt_cv_path_mainfest_tool" >&6; } if test "x$lt_cv_path_mainfest_tool" != xyes; then MANIFEST_TOOL=: fi case $host_os in rhapsody* | darwin*) if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}dsymutil", so it can be a program name with args. set dummy ${ac_tool_prefix}dsymutil; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_DSYMUTIL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$DSYMUTIL"; then ac_cv_prog_DSYMUTIL="$DSYMUTIL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_DSYMUTIL="${ac_tool_prefix}dsymutil" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi DSYMUTIL=$ac_cv_prog_DSYMUTIL if test -n "$DSYMUTIL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $DSYMUTIL" >&5 $as_echo "$DSYMUTIL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_DSYMUTIL"; then ac_ct_DSYMUTIL=$DSYMUTIL # Extract the first word of "dsymutil", so it can be a program name with args. set dummy dsymutil; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_DSYMUTIL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_DSYMUTIL"; then ac_cv_prog_ac_ct_DSYMUTIL="$ac_ct_DSYMUTIL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_DSYMUTIL="dsymutil" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_DSYMUTIL=$ac_cv_prog_ac_ct_DSYMUTIL if test -n "$ac_ct_DSYMUTIL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_DSYMUTIL" >&5 $as_echo "$ac_ct_DSYMUTIL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_DSYMUTIL" = x; then DSYMUTIL=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac DSYMUTIL=$ac_ct_DSYMUTIL fi else DSYMUTIL="$ac_cv_prog_DSYMUTIL" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}nmedit", so it can be a program name with args. set dummy ${ac_tool_prefix}nmedit; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_NMEDIT+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$NMEDIT"; then ac_cv_prog_NMEDIT="$NMEDIT" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_NMEDIT="${ac_tool_prefix}nmedit" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi NMEDIT=$ac_cv_prog_NMEDIT if test -n "$NMEDIT"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $NMEDIT" >&5 $as_echo "$NMEDIT" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_NMEDIT"; then ac_ct_NMEDIT=$NMEDIT # Extract the first word of "nmedit", so it can be a program name with args. set dummy nmedit; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_NMEDIT+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_NMEDIT"; then ac_cv_prog_ac_ct_NMEDIT="$ac_ct_NMEDIT" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_NMEDIT="nmedit" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_NMEDIT=$ac_cv_prog_ac_ct_NMEDIT if test -n "$ac_ct_NMEDIT"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_NMEDIT" >&5 $as_echo "$ac_ct_NMEDIT" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_NMEDIT" = x; then NMEDIT=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac NMEDIT=$ac_ct_NMEDIT fi else NMEDIT="$ac_cv_prog_NMEDIT" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}lipo", so it can be a program name with args. set dummy ${ac_tool_prefix}lipo; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_LIPO+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$LIPO"; then ac_cv_prog_LIPO="$LIPO" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_LIPO="${ac_tool_prefix}lipo" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi LIPO=$ac_cv_prog_LIPO if test -n "$LIPO"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $LIPO" >&5 $as_echo "$LIPO" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_LIPO"; then ac_ct_LIPO=$LIPO # Extract the first word of "lipo", so it can be a program name with args. set dummy lipo; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_LIPO+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_LIPO"; then ac_cv_prog_ac_ct_LIPO="$ac_ct_LIPO" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_LIPO="lipo" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_LIPO=$ac_cv_prog_ac_ct_LIPO if test -n "$ac_ct_LIPO"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_LIPO" >&5 $as_echo "$ac_ct_LIPO" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_LIPO" = x; then LIPO=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac LIPO=$ac_ct_LIPO fi else LIPO="$ac_cv_prog_LIPO" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}otool", so it can be a program name with args. set dummy ${ac_tool_prefix}otool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OTOOL"; then ac_cv_prog_OTOOL="$OTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_OTOOL="${ac_tool_prefix}otool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi OTOOL=$ac_cv_prog_OTOOL if test -n "$OTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL" >&5 $as_echo "$OTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OTOOL"; then ac_ct_OTOOL=$OTOOL # Extract the first word of "otool", so it can be a program name with args. set dummy otool; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OTOOL+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OTOOL"; then ac_cv_prog_ac_ct_OTOOL="$ac_ct_OTOOL" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_OTOOL="otool" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_OTOOL=$ac_cv_prog_ac_ct_OTOOL if test -n "$ac_ct_OTOOL"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL" >&5 $as_echo "$ac_ct_OTOOL" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OTOOL" = x; then OTOOL=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac OTOOL=$ac_ct_OTOOL fi else OTOOL="$ac_cv_prog_OTOOL" fi if test -n "$ac_tool_prefix"; then # Extract the first word of "${ac_tool_prefix}otool64", so it can be a program name with args. set dummy ${ac_tool_prefix}otool64; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_OTOOL64+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$OTOOL64"; then ac_cv_prog_OTOOL64="$OTOOL64" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_OTOOL64="${ac_tool_prefix}otool64" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi OTOOL64=$ac_cv_prog_OTOOL64 if test -n "$OTOOL64"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $OTOOL64" >&5 $as_echo "$OTOOL64" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi fi if test -z "$ac_cv_prog_OTOOL64"; then ac_ct_OTOOL64=$OTOOL64 # Extract the first word of "otool64", so it can be a program name with args. set dummy otool64; ac_word=$2 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5 $as_echo_n "checking for $ac_word... " >&6; } if ${ac_cv_prog_ac_ct_OTOOL64+:} false; then : $as_echo_n "(cached) " >&6 else if test -n "$ac_ct_OTOOL64"; then ac_cv_prog_ac_ct_OTOOL64="$ac_ct_OTOOL64" # Let the user override the test. else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for ac_exec_ext in '' $ac_executable_extensions; do if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then ac_cv_prog_ac_ct_OTOOL64="otool64" $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5 break 2 fi done done IFS=$as_save_IFS fi fi ac_ct_OTOOL64=$ac_cv_prog_ac_ct_OTOOL64 if test -n "$ac_ct_OTOOL64"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_ct_OTOOL64" >&5 $as_echo "$ac_ct_OTOOL64" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test "x$ac_ct_OTOOL64" = x; then OTOOL64=":" else case $cross_compiling:$ac_tool_warned in yes:) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: using cross tools not prefixed with host triplet" >&5 $as_echo "$as_me: WARNING: using cross tools not prefixed with host triplet" >&2;} ac_tool_warned=yes ;; esac OTOOL64=$ac_ct_OTOOL64 fi else OTOOL64="$ac_cv_prog_OTOOL64" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -single_module linker flag" >&5 $as_echo_n "checking for -single_module linker flag... " >&6; } if ${lt_cv_apple_cc_single_mod+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_apple_cc_single_mod=no if test -z "${LT_MULTI_MODULE}"; then # By default we will add the -single_module flag. You can override # by either setting the environment variable LT_MULTI_MODULE # non-empty at configure time, or by adding -multi_module to the # link flags. rm -rf libconftest.dylib* echo "int foo(void){return 1;}" > conftest.c echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c" >&5 $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c 2>conftest.err _lt_result=$? # If there is a non-empty error log, and "single_module" # appears in it, assume the flag caused a linker warning if test -s conftest.err && $GREP single_module conftest.err; then cat conftest.err >&5 # Otherwise, if the output was created with a 0 exit code from # the compiler, it worked. elif test -f libconftest.dylib && test $_lt_result -eq 0; then lt_cv_apple_cc_single_mod=yes else cat conftest.err >&5 fi rm -rf libconftest.dylib* rm -f conftest.* fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_apple_cc_single_mod" >&5 $as_echo "$lt_cv_apple_cc_single_mod" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -exported_symbols_list linker flag" >&5 $as_echo_n "checking for -exported_symbols_list linker flag... " >&6; } if ${lt_cv_ld_exported_symbols_list+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_exported_symbols_list=no save_LDFLAGS=$LDFLAGS echo "_main" > conftest.sym LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_ld_exported_symbols_list=yes else lt_cv_ld_exported_symbols_list=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_exported_symbols_list" >&5 $as_echo "$lt_cv_ld_exported_symbols_list" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking for -force_load linker flag" >&5 $as_echo_n "checking for -force_load linker flag... " >&6; } if ${lt_cv_ld_force_load+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_ld_force_load=no cat > conftest.c << _LT_EOF int forced_loaded() { return 2;} _LT_EOF echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&5 $LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&5 echo "$AR cru libconftest.a conftest.o" >&5 $AR cru libconftest.a conftest.o 2>&5 echo "$RANLIB libconftest.a" >&5 $RANLIB libconftest.a 2>&5 cat > conftest.c << _LT_EOF int main() { return 0;} _LT_EOF echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&5 $LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err _lt_result=$? if test -s conftest.err && $GREP force_load conftest.err; then cat conftest.err >&5 elif test -f conftest && test $_lt_result -eq 0 && $GREP forced_load conftest >/dev/null 2>&1 ; then lt_cv_ld_force_load=yes else cat conftest.err >&5 fi rm -f conftest.err libconftest.a conftest conftest.c rm -rf conftest.dSYM fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_ld_force_load" >&5 $as_echo "$lt_cv_ld_force_load" >&6; } case $host_os in rhapsody* | darwin1.[012]) _lt_dar_allow_undefined='${wl}-undefined ${wl}suppress' ;; darwin1.*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; darwin*) # darwin 5.x on # if running on 10.5 or later, the deployment target defaults # to the OS version, if on x86, and 10.4, the deployment # target defaults to 10.4. Don't you love it? case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in 10.0,*86*-darwin8*|10.0,*-darwin[91]*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; 10.[012]*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; 10.*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; esac ;; esac if test "$lt_cv_apple_cc_single_mod" = "yes"; then _lt_dar_single_mod='$single_module' fi if test "$lt_cv_ld_exported_symbols_list" = "yes"; then _lt_dar_export_syms=' ${wl}-exported_symbols_list,$output_objdir/${libname}-symbols.expsym' else _lt_dar_export_syms='~$NMEDIT -s $output_objdir/${libname}-symbols.expsym ${lib}' fi if test "$DSYMUTIL" != ":" && test "$lt_cv_ld_force_load" = "no"; then _lt_dsymutil='~$DSYMUTIL $lib || :' else _lt_dsymutil= fi ;; esac ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to run the C preprocessor" >&5 $as_echo_n "checking how to run the C preprocessor... " >&6; } # On Suns, sometimes $CPP names a directory. if test -n "$CPP" && test -d "$CPP"; then CPP= fi if test -z "$CPP"; then if ${ac_cv_prog_CPP+:} false; then : $as_echo_n "(cached) " >&6 else # Double quotes because CPP needs to be expanded for CPP in "$CC -E" "$CC -E -traditional-cpp" "/lib/cpp" do ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : break fi done ac_cv_prog_CPP=$CPP fi CPP=$ac_cv_prog_CPP else ac_cv_prog_CPP=$CPP fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $CPP" >&5 $as_echo "$CPP" >&6; } ac_preproc_ok=false for ac_c_preproc_warn_flag in '' yes do # Use a header file that comes with gcc, so configuring glibc # with a fresh cross-compiler works. # Prefer to if __STDC__ is defined, since # exists even on freestanding compilers. # On the NeXT, cc -E runs the code through the compiler's parser, # not just through cpp. "Syntax error" is here to catch this case. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #ifdef __STDC__ # include #else # include #endif Syntax error _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : else # Broken: fails on valid input. continue fi rm -f conftest.err conftest.i conftest.$ac_ext # OK, works on sane cases. Now check whether nonexistent headers # can be detected and how. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : # Broken: success on invalid input. continue else # Passes both tests. ac_preproc_ok=: break fi rm -f conftest.err conftest.i conftest.$ac_ext done # Because of `break', _AC_PREPROC_IFELSE's cleaning code was skipped. rm -f conftest.i conftest.err conftest.$ac_ext if $ac_preproc_ok; then : else { { $as_echo "$as_me:${as_lineno-$LINENO}: error: in \`$ac_pwd':" >&5 $as_echo "$as_me: error: in \`$ac_pwd':" >&2;} as_fn_error $? "C preprocessor \"$CPP\" fails sanity check See \`config.log' for more details" "$LINENO" 5; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ANSI C header files" >&5 $as_echo_n "checking for ANSI C header files... " >&6; } if ${ac_cv_header_stdc+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #include #include int main () { ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_header_stdc=yes else ac_cv_header_stdc=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext if test $ac_cv_header_stdc = yes; then # SunOS 4.x string.h does not declare mem*, contrary to ANSI. cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "memchr" >/dev/null 2>&1; then : else 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 confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include _ACEOF if (eval "$ac_cpp conftest.$ac_ext") 2>&5 | $EGREP "free" >/dev/null 2>&1; then : else 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 confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #include #if ((' ' & 0x0FF) == 0x020) # define ISLOWER(c) ('a' <= (c) && (c) <= 'z') # define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) #else # define ISLOWER(c) \ (('a' <= (c) && (c) <= 'i') \ || ('j' <= (c) && (c) <= 'r') \ || ('s' <= (c) && (c) <= 'z')) # define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c)) #endif #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)) return 2; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : else ac_cv_header_stdc=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdc" >&5 $as_echo "$ac_cv_header_stdc" >&6; } if test $ac_cv_header_stdc = yes; then $as_echo "#define STDC_HEADERS 1" >>confdefs.h fi # On IRIX 5.3, sys/types and inttypes.h are conflicting. for ac_header in sys/types.h sys/stat.h stdlib.h string.h memory.h strings.h \ inttypes.h stdint.h unistd.h do : as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` ac_fn_c_check_header_compile "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default " if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done for ac_header in dlfcn.h do : ac_fn_c_check_header_compile "$LINENO" "dlfcn.h" "ac_cv_header_dlfcn_h" "$ac_includes_default " if test "x$ac_cv_header_dlfcn_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_DLFCN_H 1 _ACEOF fi done # Set options enable_dlopen=no enable_win32_dll=no # Check whether --enable-shared was given. if test "${enable_shared+set}" = set; then : enableval=$enable_shared; p=${PACKAGE-default} case $enableval in yes) enable_shared=yes ;; no) enable_shared=no ;; *) enable_shared=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_shared=yes fi done IFS="$lt_save_ifs" ;; esac else enable_shared=yes fi # Check whether --enable-static was given. if test "${enable_static+set}" = set; then : enableval=$enable_static; p=${PACKAGE-default} case $enableval in yes) enable_static=yes ;; no) enable_static=no ;; *) enable_static=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_static=yes fi done IFS="$lt_save_ifs" ;; esac else enable_static=yes fi # Check whether --with-pic was given. if test "${with_pic+set}" = set; then : withval=$with_pic; lt_p=${PACKAGE-default} case $withval in yes|no) pic_mode=$withval ;; *) pic_mode=default # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for lt_pkg in $withval; do IFS="$lt_save_ifs" if test "X$lt_pkg" = "X$lt_p"; then pic_mode=yes fi done IFS="$lt_save_ifs" ;; esac else pic_mode=default fi test -z "$pic_mode" && pic_mode=default # Check whether --enable-fast-install was given. if test "${enable_fast_install+set}" = set; then : enableval=$enable_fast_install; p=${PACKAGE-default} case $enableval in yes) enable_fast_install=yes ;; no) enable_fast_install=no ;; *) enable_fast_install=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_fast_install=yes fi done IFS="$lt_save_ifs" ;; esac else enable_fast_install=yes fi # This can be used to rebuild libtool when needed LIBTOOL_DEPS="$ltmain" # Always use our own libtool. LIBTOOL='$(SHELL) $(top_builddir)/libtool' test -z "$LN_S" && LN_S="ln -s" if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking for objdir" >&5 $as_echo_n "checking for objdir... " >&6; } if ${lt_cv_objdir+:} false; then : $as_echo_n "(cached) " >&6 else rm -f .libs 2>/dev/null mkdir .libs 2>/dev/null if test -d .libs; then lt_cv_objdir=.libs else # MS-DOS does not allow filenames that begin with a dot. lt_cv_objdir=_libs fi rmdir .libs 2>/dev/null fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_objdir" >&5 $as_echo "$lt_cv_objdir" >&6; } objdir=$lt_cv_objdir cat >>confdefs.h <<_ACEOF #define LT_OBJDIR "$lt_cv_objdir/" _ACEOF case $host_os in aix3*) # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi ;; esac # Global variables: ofile=libtool can_build_shared=yes # All known linkers require a `.a' archive for static linking (except MSVC, # which needs '.lib'). libext=a with_gnu_ld="$lt_cv_prog_gnu_ld" old_CC="$CC" old_CFLAGS="$CFLAGS" # Set sane defaults for various variables test -z "$CC" && CC=cc test -z "$LTCC" && LTCC=$CC test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS test -z "$LD" && LD=ld test -z "$ac_objext" && ac_objext=o for cc_temp in $compiler""; do case $cc_temp in compile | *[\\/]compile | ccache | *[\\/]ccache ) ;; distcc | *[\\/]distcc | purify | *[\\/]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` # Only perform the check for file, if the check method requires it test -z "$MAGIC_CMD" && MAGIC_CMD=file case $deplibs_check_method in file_magic*) if test "$file_magic_cmd" = '$MAGIC_CMD'; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for ${ac_tool_prefix}file" >&5 $as_echo_n "checking for ${ac_tool_prefix}file... " >&6; } if ${lt_cv_path_MAGIC_CMD+:} false; then : $as_echo_n "(cached) " >&6 else case $MAGIC_CMD in [\\/*] | ?:[\\/]*) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD="$MAGIC_CMD" lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" for ac_dir in $ac_dummy; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/${ac_tool_prefix}file; then lt_cv_path_MAGIC_CMD="$ac_dir/${ac_tool_prefix}file" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS="$lt_save_ifs" MAGIC_CMD="$lt_save_MAGIC_CMD" ;; esac fi MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if test -n "$MAGIC_CMD"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5 $as_echo "$MAGIC_CMD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi if test -z "$lt_cv_path_MAGIC_CMD"; then if test -n "$ac_tool_prefix"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for file" >&5 $as_echo_n "checking for file... " >&6; } if ${lt_cv_path_MAGIC_CMD+:} false; then : $as_echo_n "(cached) " >&6 else case $MAGIC_CMD in [\\/*] | ?:[\\/]*) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD="$MAGIC_CMD" lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR ac_dummy="/usr/bin$PATH_SEPARATOR$PATH" for ac_dir in $ac_dummy; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/file; then lt_cv_path_MAGIC_CMD="$ac_dir/file" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS="$lt_save_ifs" MAGIC_CMD="$lt_save_MAGIC_CMD" ;; esac fi MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if test -n "$MAGIC_CMD"; then { $as_echo "$as_me:${as_lineno-$LINENO}: result: $MAGIC_CMD" >&5 $as_echo "$MAGIC_CMD" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi else MAGIC_CMD=: fi fi fi ;; esac # Use C for the default configuration in the libtool script lt_save_CC="$CC" ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu # Source file extension for C test sources. ac_ext=c # Object file extension for compiled C test sources. objext=o objext=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(){return(0);}' # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC # Save the default compiler, since it gets overwritten when the other # tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP. compiler_DEFAULT=$CC # save warnings/boilerplate of simple test code ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $RM conftest* ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $RM -r conftest* ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then lt_prog_compiler_no_builtin_flag= if test "$GCC" = yes; then case $cc_basename in nvcc*) lt_prog_compiler_no_builtin_flag=' -Xcompiler -fno-builtin' ;; *) lt_prog_compiler_no_builtin_flag=' -fno-builtin' ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -fno-rtti -fno-exceptions" >&5 $as_echo_n "checking if $compiler supports -fno-rtti -fno-exceptions... " >&6; } if ${lt_cv_prog_compiler_rtti_exceptions+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_rtti_exceptions=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-fno-rtti -fno-exceptions" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_rtti_exceptions=yes fi fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_rtti_exceptions" >&5 $as_echo "$lt_cv_prog_compiler_rtti_exceptions" >&6; } if test x"$lt_cv_prog_compiler_rtti_exceptions" = xyes; then lt_prog_compiler_no_builtin_flag="$lt_prog_compiler_no_builtin_flag -fno-rtti -fno-exceptions" else : fi fi lt_prog_compiler_wl= lt_prog_compiler_pic= lt_prog_compiler_static= if test "$GCC" = yes; then lt_prog_compiler_wl='-Wl,' lt_prog_compiler_static='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static='-Bstatic' fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support lt_prog_compiler_pic='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. lt_prog_compiler_pic='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries lt_prog_compiler_pic='-DDLL_EXPORT' ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files lt_prog_compiler_pic='-fno-common' ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. lt_prog_compiler_static= ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) # +Z the default ;; *) lt_prog_compiler_pic='-fPIC' ;; esac ;; interix[3-9]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; msdosdjgpp*) # Just because we use GCC doesn't mean we suddenly get shared libraries # on systems that don't support them. lt_prog_compiler_can_build_shared=no enable_shared=no ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. lt_prog_compiler_pic='-fPIC -shared' ;; sysv4*MP*) if test -d /usr/nec; then lt_prog_compiler_pic=-Kconform_pic fi ;; *) lt_prog_compiler_pic='-fPIC' ;; esac case $cc_basename in nvcc*) # Cuda Compiler Driver 2.2 lt_prog_compiler_wl='-Xlinker ' if test -n "$lt_prog_compiler_pic"; then lt_prog_compiler_pic="-Xcompiler $lt_prog_compiler_pic" fi ;; esac else # PORTME Check for flag to pass linker flags through the system compiler. case $host_os in aix*) lt_prog_compiler_wl='-Wl,' if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor lt_prog_compiler_static='-Bstatic' else lt_prog_compiler_static='-bnso -bI:/lib/syscalls.exp' fi ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). lt_prog_compiler_pic='-DDLL_EXPORT' ;; hpux9* | hpux10* | hpux11*) lt_prog_compiler_wl='-Wl,' # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) lt_prog_compiler_pic='+Z' ;; esac # Is there a better lt_prog_compiler_static that works with the bundled CC? lt_prog_compiler_static='${wl}-a ${wl}archive' ;; irix5* | irix6* | nonstopux*) lt_prog_compiler_wl='-Wl,' # PIC (with -KPIC) is the default. lt_prog_compiler_static='-non_shared' ;; linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) case $cc_basename in # old Intel for x86_64 which still supported -KPIC. ecc*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-static' ;; # icc used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. icc* | ifort*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fPIC' lt_prog_compiler_static='-static' ;; # Lahey Fortran 8.1. lf95*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='--shared' lt_prog_compiler_static='--static' ;; nagfor*) # NAG Fortran compiler lt_prog_compiler_wl='-Wl,-Wl,,' lt_prog_compiler_pic='-PIC' lt_prog_compiler_static='-Bstatic' ;; pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group compilers (*not* the Pentium gcc compiler, # which looks to be a dead project) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fpic' lt_prog_compiler_static='-Bstatic' ;; ccc*) lt_prog_compiler_wl='-Wl,' # All Alpha code is PIC. lt_prog_compiler_static='-non_shared' ;; xl* | bgxl* | bgf* | mpixl*) # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-qpic' lt_prog_compiler_static='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [1-7].* | *Sun*Fortran*\ 8.[0-3]*) # Sun Fortran 8.3 passes all unrecognized flags to the linker lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='' ;; *Sun\ F* | *Sun*Fortran*) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='-Qoption ld ' ;; *Sun\ C*) # Sun C 5.9 lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' lt_prog_compiler_wl='-Wl,' ;; *Intel*\ [CF]*Compiler*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fPIC' lt_prog_compiler_static='-static' ;; *Portland\ Group*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-fpic' lt_prog_compiler_static='-Bstatic' ;; esac ;; esac ;; newsos6) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. lt_prog_compiler_pic='-fPIC -shared' ;; osf3* | osf4* | osf5*) lt_prog_compiler_wl='-Wl,' # All OSF/1 code is PIC. lt_prog_compiler_static='-non_shared' ;; rdos*) lt_prog_compiler_static='-non_shared' ;; solaris*) lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' case $cc_basename in f77* | f90* | f95* | sunf77* | sunf90* | sunf95*) lt_prog_compiler_wl='-Qoption ld ';; *) lt_prog_compiler_wl='-Wl,';; esac ;; sunos4*) lt_prog_compiler_wl='-Qoption ld ' lt_prog_compiler_pic='-PIC' lt_prog_compiler_static='-Bstatic' ;; sysv4 | sysv4.2uw2* | sysv4.3*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; sysv4*MP*) if test -d /usr/nec ;then lt_prog_compiler_pic='-Kconform_pic' lt_prog_compiler_static='-Bstatic' fi ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_pic='-KPIC' lt_prog_compiler_static='-Bstatic' ;; unicos*) lt_prog_compiler_wl='-Wl,' lt_prog_compiler_can_build_shared=no ;; uts4*) lt_prog_compiler_pic='-pic' lt_prog_compiler_static='-Bstatic' ;; *) lt_prog_compiler_can_build_shared=no ;; esac fi case $host_os in # For platforms which do not support PIC, -DPIC is meaningless: *djgpp*) lt_prog_compiler_pic= ;; *) lt_prog_compiler_pic="$lt_prog_compiler_pic -DPIC" ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking for $compiler option to produce PIC" >&5 $as_echo_n "checking for $compiler option to produce PIC... " >&6; } if ${lt_cv_prog_compiler_pic+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_pic=$lt_prog_compiler_pic fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic" >&5 $as_echo "$lt_cv_prog_compiler_pic" >&6; } lt_prog_compiler_pic=$lt_cv_prog_compiler_pic # # Check to make sure the PIC flag actually works. # if test -n "$lt_prog_compiler_pic"; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler PIC flag $lt_prog_compiler_pic works" >&5 $as_echo_n "checking if $compiler PIC flag $lt_prog_compiler_pic works... " >&6; } if ${lt_cv_prog_compiler_pic_works+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_pic_works=no ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$lt_prog_compiler_pic -DPIC" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_pic_works=yes fi fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_pic_works" >&5 $as_echo "$lt_cv_prog_compiler_pic_works" >&6; } if test x"$lt_cv_prog_compiler_pic_works" = xyes; then case $lt_prog_compiler_pic in "" | " "*) ;; *) lt_prog_compiler_pic=" $lt_prog_compiler_pic" ;; esac else lt_prog_compiler_pic= lt_prog_compiler_can_build_shared=no fi fi # # Check to make sure the static flag actually works. # wl=$lt_prog_compiler_wl eval lt_tmp_static_flag=\"$lt_prog_compiler_static\" { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler static flag $lt_tmp_static_flag works" >&5 $as_echo_n "checking if $compiler static flag $lt_tmp_static_flag works... " >&6; } if ${lt_cv_prog_compiler_static_works+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_static_works=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS $lt_tmp_static_flag" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler_static_works=yes fi else lt_cv_prog_compiler_static_works=yes fi fi $RM -r conftest* LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_static_works" >&5 $as_echo "$lt_cv_prog_compiler_static_works" >&6; } if test x"$lt_cv_prog_compiler_static_works" = xyes; then : else lt_prog_compiler_static= fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 $as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if ${lt_cv_prog_compiler_c_o+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_c_o=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o=yes fi fi chmod u+w . 2>&5 $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5 $as_echo "$lt_cv_prog_compiler_c_o" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $compiler supports -c -o file.$ac_objext" >&5 $as_echo_n "checking if $compiler supports -c -o file.$ac_objext... " >&6; } if ${lt_cv_prog_compiler_c_o+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler_c_o=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [^ ]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&5) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&5 echo "$as_me:$LINENO: \$? = $ac_status" >&5 if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then lt_cv_prog_compiler_c_o=yes fi fi chmod u+w . 2>&5 $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler_c_o" >&5 $as_echo "$lt_cv_prog_compiler_c_o" >&6; } hard_links="nottested" if test "$lt_cv_prog_compiler_c_o" = no && test "$need_locks" != no; then # do not overwrite the value of need_locks provided by the user { $as_echo "$as_me:${as_lineno-$LINENO}: checking if we can lock with hard links" >&5 $as_echo_n "checking if we can lock with hard links... " >&6; } hard_links=yes $RM conftest* ln conftest.a conftest.b 2>/dev/null && hard_links=no touch conftest.a ln conftest.a conftest.b 2>&5 || hard_links=no ln conftest.a conftest.b 2>/dev/null && hard_links=no { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hard_links" >&5 $as_echo "$hard_links" >&6; } if test "$hard_links" = no; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&5 $as_echo "$as_me: WARNING: \`$CC' does not support \`-c -o', so \`make -j' may be unsafe" >&2;} need_locks=warn fi else need_locks=no fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $compiler linker ($LD) supports shared libraries" >&5 $as_echo_n "checking whether the $compiler linker ($LD) supports shared libraries... " >&6; } runpath_var= allow_undefined_flag= always_export_symbols=no archive_cmds= archive_expsym_cmds= compiler_needs_object=no enable_shared_with_static_runtimes=no export_dynamic_flag_spec= export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' hardcode_automatic=no hardcode_direct=no hardcode_direct_absolute=no hardcode_libdir_flag_spec= hardcode_libdir_separator= hardcode_minus_L=no hardcode_shlibpath_var=unsupported inherit_rpath=no link_all_deplibs=unknown module_cmds= module_expsym_cmds= old_archive_from_new_cmds= old_archive_from_expsyms_cmds= thread_safe_flag_spec= whole_archive_flag_spec= # include_expsyms should be a list of space-separated symbols to be *always* # included in the symbol list include_expsyms= # exclude_expsyms can be an extended regexp of symbols to exclude # it will be wrapped by ` (' and `)$', so one must not match beginning or # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc', # as well as any symbol that contains `d'. exclude_expsyms='_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*' # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out # platforms (ab)use it in PIC code, but their linkers get confused if # the symbol is explicitly referenced. Since portable code cannot # rely on this symbol name, it's probably fine to never include it in # preloaded symbol tables. # Exclude shared library initialization/finalization symbols. extract_expsyms_cmds= case $host_os in cygwin* | mingw* | pw32* | cegcc*) # FIXME: the MSVC++ port hasn't been tested in a loooong time # When not using gcc, we currently assume that we are using # Microsoft Visual C++. if test "$GCC" != yes; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd*) with_gnu_ld=no ;; linux* | k*bsd*-gnu | gnu*) link_all_deplibs=no ;; esac ld_shlibs=yes # On some targets, GNU ld is compatible enough with the native linker # that we're better off using the native interface for both. lt_use_gnu_ld_interface=no if test "$with_gnu_ld" = yes; then case $host_os in aix*) # The AIX port of GNU ld has always aspired to compatibility # with the native linker. However, as the warning in the GNU ld # block says, versions before 2.19.5* couldn't really create working # shared libraries, regardless of the interface used. case `$LD -v 2>&1` in *\ \(GNU\ Binutils\)\ 2.19.5*) ;; *\ \(GNU\ Binutils\)\ 2.[2-9]*) ;; *\ \(GNU\ Binutils\)\ [3-9]*) ;; *) lt_use_gnu_ld_interface=yes ;; esac ;; *) lt_use_gnu_ld_interface=yes ;; esac fi if test "$lt_use_gnu_ld_interface" = yes; then # If archive_cmds runs LD, not CC, wlarc should be empty wlarc='${wl}' # Set some defaults for GNU ld with shared library support. These # are reset later if shared libraries are not supported. Putting them # here allows them to be overridden if necessary. runpath_var=LD_RUN_PATH hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' export_dynamic_flag_spec='${wl}--export-dynamic' # ancient GNU ld didn't support --whole-archive et. al. if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then whole_archive_flag_spec="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else whole_archive_flag_spec= fi supports_anon_versioning=no case `$LD -v 2>&1` in *GNU\ gold*) supports_anon_versioning=yes ;; *\ [01].* | *\ 2.[0-9].* | *\ 2.10.*) ;; # catch versions < 2.11 *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... *\ 2.11.*) ;; # other 2.11 versions *) supports_anon_versioning=yes ;; esac # See if GNU ld supports shared libraries. case $host_os in aix[3-9]*) # On AIX/PPC, the GNU linker is very broken if test "$host_cpu" != ia64; then ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: the GNU linker, at least up to release 2.19, is reported *** to be unable to reliably create shared libraries on AIX. *** Therefore, libtool is disabling shared libraries support. If you *** really care for shared libraries, you may want to install binutils *** 2.20 or above, or modify your PATH so that a non-GNU linker is found. *** You will then need to restart the configuration process. _LT_EOF fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='' ;; m68k) archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes ;; esac ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then allow_undefined_flag=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME archive_cmds='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else ld_shlibs=no fi ;; cygwin* | mingw* | pw32* | cegcc*) # _LT_TAGVAR(hardcode_libdir_flag_spec, ) is actually meaningless, # as there is no search path for DLLs. hardcode_libdir_flag_spec='-L$libdir' export_dynamic_flag_spec='${wl}--export-all-symbols' allow_undefined_flag=unsupported always_export_symbols=no enable_shared_with_static_runtimes=yes export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1 DATA/;s/^.*[ ]__nm__\([^ ]*\)[ ][^ ]*/\1 DATA/;/^I[ ]/d;/^[AITW][ ]/s/.* //'\'' | sort | uniq > $export_symbols' exclude_expsyms='[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname' if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... archive_expsym_cmds='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else ld_shlibs=no fi ;; haiku*) archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' link_all_deplibs=yes ;; interix[3-9]*) hardcode_direct=no hardcode_shlibpath_var=no hardcode_libdir_flag_spec='${wl}-rpath,$libdir' export_dynamic_flag_spec='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' archive_expsym_cmds='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu) tmp_diet=no if test "$host_os" = linux-dietlibc; then case $cc_basename in diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn) esac fi if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \ && test "$tmp_diet" = no then tmp_addflag=' $pic_flag' tmp_sharedflag='-shared' case $cc_basename,$host_cpu in pgcc*) # Portland Group C compiler whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag' ;; pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group f77 and f90 compilers whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag -Mnomain' ;; ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 tmp_addflag=' -i_dynamic' ;; efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 tmp_addflag=' -i_dynamic -nofor_main' ;; ifc* | ifort*) # Intel Fortran compiler tmp_addflag=' -nofor_main' ;; lf95*) # Lahey Fortran 8.1 whole_archive_flag_spec= tmp_sharedflag='--shared' ;; xl[cC]* | bgxl[cC]* | mpixl[cC]*) # IBM XL C 8.0 on PPC (deal with xlf below) tmp_sharedflag='-qmkshrobj' tmp_addflag= ;; nvcc*) # Cuda Compiler Driver 2.2 whole_archive_flag_spec='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' compiler_needs_object=yes ;; esac case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C 5.9 whole_archive_flag_spec='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' compiler_needs_object=yes tmp_sharedflag='-G' ;; *Sun\ F*) # Sun Fortran 8.3 tmp_sharedflag='-G' ;; esac archive_cmds='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test "x$supports_anon_versioning" = xyes; then archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi case $cc_basename in xlf* | bgf* | bgxlf* | mpixlf*) # IBM XL Fortran 10.1 on PPC cannot create shared libs itself whole_archive_flag_spec='--whole-archive$convenience --no-whole-archive' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' archive_cmds='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib' if test "x$supports_anon_versioning" = xyes; then archive_expsym_cmds='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib' fi ;; esac else ld_shlibs=no fi ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then archive_cmds='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' wlarc= else archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' fi ;; solaris*) if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: The releases 2.8.* of the GNU linker cannot reliably *** create shared libraries on Solaris systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.9.1 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) case `$LD -v 2>&1` in *\ [01].* | *\ 2.[0-9].* | *\ 2.1[0-5].*) ld_shlibs=no cat <<_LT_EOF 1>&2 *** Warning: Releases of the GNU linker prior to 2.16.91.0.3 can not *** reliably create shared libraries on SCO systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.16.91.0.3 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF ;; *) # For security reasons, it is highly recommended that you always # use absolute paths for naming shared libraries, and exclude the # DT_RUNPATH tag from executables and libraries. But doing so # requires that you compile everything twice, which is a pain. if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; esac ;; sunos4*) archive_cmds='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' wlarc= hardcode_direct=yes hardcode_shlibpath_var=no ;; *) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else ld_shlibs=no fi ;; esac if test "$ld_shlibs" = no; then runpath_var= hardcode_libdir_flag_spec= export_dynamic_flag_spec= whole_archive_flag_spec= fi else # PORTME fill in a description of your system's linker (not GNU ld) case $host_os in aix3*) allow_undefined_flag=unsupported always_export_symbols=yes archive_expsym_cmds='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' # Note: this linker hardcodes the directories in LIBPATH if there # are no directories specified by -L. hardcode_minus_L=yes if test "$GCC" = yes && test -z "$lt_prog_compiler_static"; then # Neither direct hardcoding nor static linking is supported with a # broken collect2. hardcode_direct=unsupported fi ;; aix[4-9]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global # defined symbols, whereas GNU nm marks them as "W". if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then export_symbols_cmds='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else export_symbols_cmds='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && (substr(\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' fi aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[23]|aix4.[23].*|aix[5-9]*) for ld_flag in $LDFLAGS; do if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then aix_use_runtimelinking=yes break fi done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. archive_cmds='' hardcode_direct=yes hardcode_direct_absolute=yes hardcode_libdir_separator=':' link_all_deplibs=yes file_list_spec='${wl}-f,' if test "$GCC" = yes; then case $host_os in aix4.[012]|aix4.[012].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 hardcode_direct=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking hardcode_minus_L=yes hardcode_libdir_flag_spec='-L$libdir' hardcode_libdir_separator= fi ;; esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi link_all_deplibs=no else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi export_dynamic_flag_spec='${wl}-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to export. always_export_symbols=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. allow_undefined_flag='-berok' # Determine the default libpath from the value encoded in an # empty executable. if test "${lt_cv_aix_libpath+set}" = set; then aix_libpath=$lt_cv_aix_libpath else if ${lt_cv_aix_libpath_+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }' lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_="/usr/lib:/lib" fi fi aix_libpath=$lt_cv_aix_libpath_ fi hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath" archive_expsym_cmds='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then hardcode_libdir_flag_spec='${wl}-R $libdir:/usr/lib:/lib' allow_undefined_flag="-z nodefs" archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. if test "${lt_cv_aix_libpath+set}" = set; then aix_libpath=$lt_cv_aix_libpath else if ${lt_cv_aix_libpath_+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_aix_libpath_sed=' /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }' lt_cv_aix_libpath_=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext if test -z "$lt_cv_aix_libpath_"; then lt_cv_aix_libpath_="/usr/lib:/lib" fi fi aix_libpath=$lt_cv_aix_libpath_ fi hardcode_libdir_flag_spec='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. no_undefined_flag=' ${wl}-bernotok' allow_undefined_flag=' ${wl}-berok' if test "$with_gnu_ld" = yes; then # We only use this code for GNU lds that support --whole-archive. whole_archive_flag_spec='${wl}--whole-archive$convenience ${wl}--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives whole_archive_flag_spec='$convenience' fi archive_cmds_need_lc=yes # This is similar to how AIX traditionally builds its shared libraries. archive_expsym_cmds="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' archive_expsym_cmds='' ;; m68k) archive_cmds='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes ;; esac ;; bsdi[45]*) export_dynamic_flag_spec=-rdynamic ;; cygwin* | mingw* | pw32* | cegcc*) # When not using gcc, we currently assume that we are using # Microsoft Visual C++. # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. case $cc_basename in cl*) # Native MSVC hardcode_libdir_flag_spec=' ' allow_undefined_flag=unsupported always_export_symbols=yes file_list_spec='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. archive_cmds='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames=' archive_expsym_cmds='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then sed -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else sed -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, )='true' enable_shared_with_static_runtimes=yes exclude_expsyms='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' export_symbols_cmds='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[BCDGRS][ ]/s/.*[ ]\([^ ]*\)/\1,DATA/'\'' | $SED -e '\''/^[AITW][ ]/s/.*[ ]//'\'' | sort | uniq > $export_symbols' # Don't use ranlib old_postinstall_cmds='chmod 644 $oldlib' postlink_cmds='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile="$lt_outputfile.exe" lt_tool_outputfile="$lt_tool_outputfile.exe" ;; esac~ if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # Assume MSVC wrapper hardcode_libdir_flag_spec=' ' allow_undefined_flag=unsupported # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. archive_cmds='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames=' # The linker will automatically build a .lib file if we build a DLL. old_archive_from_new_cmds='true' # FIXME: Should let the user specify the lib program. old_archive_cmds='lib -OUT:$oldlib$oldobjs$old_deplibs' enable_shared_with_static_runtimes=yes ;; esac ;; darwin* | rhapsody*) archive_cmds_need_lc=no hardcode_direct=no hardcode_automatic=yes hardcode_shlibpath_var=unsupported if test "$lt_cv_ld_force_load" = "yes"; then whole_archive_flag_spec='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience ${wl}-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' else whole_archive_flag_spec='' fi link_all_deplibs=yes allow_undefined_flag="$_lt_dar_allow_undefined" case $cc_basename in ifort*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test "$_lt_dar_can_shared" = "yes"; then output_verbose_link_cmd=func_echo_all archive_cmds="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}" module_cmds="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}" archive_expsym_cmds="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}" module_expsym_cmds="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}" else ld_shlibs=no fi ;; dgux*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-L$libdir' hardcode_shlibpath_var=no ;; # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor # support. Future versions do this automatically, but an explicit c++rt0.o # does not break anything, and helps significantly (at the cost of a little # extra space). freebsd2.2*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; # Unfortunately, older versions of FreeBSD 2 do not have this feature. freebsd2.*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes hardcode_minus_L=yes hardcode_shlibpath_var=no ;; # FreeBSD 3 and greater uses gcc -shared to do shared libraries. freebsd* | dragonfly*) archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; hpux9*) if test "$GCC" = yes; then archive_cmds='$RM $output_objdir/$soname~$CC -shared $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else archive_cmds='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' fi hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: hardcode_direct=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes export_dynamic_flag_spec='${wl}-E' ;; hpux10*) if test "$GCC" = yes && test "$with_gnu_ld" = no; then archive_cmds='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi if test "$with_gnu_ld" = no; then hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: hardcode_direct=yes hardcode_direct_absolute=yes export_dynamic_flag_spec='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes fi ;; hpux11*) if test "$GCC" = yes && test "$with_gnu_ld" = no; then case $host_cpu in hppa*64*) archive_cmds='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) archive_cmds='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac else case $host_cpu in hppa*64*) archive_cmds='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) archive_cmds='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) # Older versions of the 11.00 compiler do not understand -b yet # (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does) { $as_echo "$as_me:${as_lineno-$LINENO}: checking if $CC understands -b" >&5 $as_echo_n "checking if $CC understands -b... " >&6; } if ${lt_cv_prog_compiler__b+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_prog_compiler__b=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS -b" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&5 $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then lt_cv_prog_compiler__b=yes fi else lt_cv_prog_compiler__b=yes fi fi $RM -r conftest* LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_prog_compiler__b" >&5 $as_echo "$lt_cv_prog_compiler__b" >&6; } if test x"$lt_cv_prog_compiler__b" = xyes; then archive_cmds='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi ;; esac fi if test "$with_gnu_ld" = no; then hardcode_libdir_flag_spec='${wl}+b ${wl}$libdir' hardcode_libdir_separator=: case $host_cpu in hppa*64*|ia64*) hardcode_direct=no hardcode_shlibpath_var=no ;; *) hardcode_direct=yes hardcode_direct_absolute=yes export_dynamic_flag_spec='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. hardcode_minus_L=yes ;; esac fi ;; irix5* | irix6* | nonstopux*) if test "$GCC" = yes; then archive_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' # Try to use the -exported_symbol ld option, if it does not # work, assume that -exports_file does not work either and # implicitly export all symbols. # This should be the same for all languages, so no per-tag cache variable. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether the $host_os linker accepts -exported_symbol" >&5 $as_echo_n "checking whether the $host_os linker accepts -exported_symbol... " >&6; } if ${lt_cv_irix_exported_symbol+:} false; then : $as_echo_n "(cached) " >&6 else save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS -shared ${wl}-exported_symbol ${wl}foo ${wl}-update_registry ${wl}/dev/null" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int foo (void) { return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : lt_cv_irix_exported_symbol=yes else lt_cv_irix_exported_symbol=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS="$save_LDFLAGS" fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_irix_exported_symbol" >&5 $as_echo "$lt_cv_irix_exported_symbol" >&6; } if test "$lt_cv_irix_exported_symbol" = yes; then archive_expsym_cmds='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations ${wl}-exports_file ${wl}$export_symbols -o $lib' fi else archive_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' archive_expsym_cmds='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -exports_file $export_symbols -o $lib' fi archive_cmds_need_lc='no' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: inherit_rpath=yes link_all_deplibs=yes ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out else archive_cmds='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF fi hardcode_libdir_flag_spec='-R$libdir' hardcode_direct=yes hardcode_shlibpath_var=no ;; newsos6) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: hardcode_shlibpath_var=no ;; *nto* | *qnx*) ;; openbsd*) if test -f /usr/libexec/ld.so; then hardcode_direct=yes hardcode_shlibpath_var=no hardcode_direct_absolute=yes if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' hardcode_libdir_flag_spec='${wl}-rpath,$libdir' export_dynamic_flag_spec='${wl}-E' else case $host_os in openbsd[01].* | openbsd2.[0-7] | openbsd2.[0-7].*) archive_cmds='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-R$libdir' ;; *) archive_cmds='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' hardcode_libdir_flag_spec='${wl}-rpath,$libdir' ;; esac fi else ld_shlibs=no fi ;; os2*) hardcode_libdir_flag_spec='-L$libdir' hardcode_minus_L=yes allow_undefined_flag=unsupported archive_cmds='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~echo DATA >> $output_objdir/$libname.def~echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' old_archive_from_new_cmds='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' ;; osf3*) if test "$GCC" = yes; then allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*' archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else allow_undefined_flag=' -expect_unresolved \*' archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' fi archive_cmds_need_lc='no' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' hardcode_libdir_separator=: ;; osf4* | osf5*) # as osf3* with the addition of -msym flag if test "$GCC" = yes; then allow_undefined_flag=' ${wl}-expect_unresolved ${wl}\*' archive_cmds='$CC -shared${allow_undefined_flag} $pic_flag $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' hardcode_libdir_flag_spec='${wl}-rpath ${wl}$libdir' else allow_undefined_flag=' -expect_unresolved \*' archive_cmds='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' archive_expsym_cmds='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~ $CC -shared${allow_undefined_flag} ${wl}-input ${wl}$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~$RM $lib.exp' # Both c and cxx compiler support -rpath directly hardcode_libdir_flag_spec='-rpath $libdir' fi archive_cmds_need_lc='no' hardcode_libdir_separator=: ;; solaris*) no_undefined_flag=' -z defs' if test "$GCC" = yes; then wlarc='${wl}' archive_cmds='$CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' else case `$CC -V 2>&1` in *"Compilers 5.0"*) wlarc='' archive_cmds='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp' ;; *) wlarc='${wl}' archive_cmds='$CC -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' ;; esac fi hardcode_libdir_flag_spec='-R$libdir' hardcode_shlibpath_var=no case $host_os in solaris2.[0-5] | solaris2.[0-5].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. GCC discards it without `$wl', # but is careful enough not to reorder. # Supported since Solaris 2.6 (maybe 2.5.1?) if test "$GCC" = yes; then whole_archive_flag_spec='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' else whole_archive_flag_spec='-z allextract$convenience -z defaultextract' fi ;; esac link_all_deplibs=yes ;; sunos4*) if test "x$host_vendor" = xsequent; then # Use $CC to link under sequent, because it throws in some extra .o # files that make .init and .fini sections work. archive_cmds='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' fi hardcode_libdir_flag_spec='-L$libdir' hardcode_direct=yes hardcode_minus_L=yes hardcode_shlibpath_var=no ;; sysv4) case $host_vendor in sni) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=yes # is this really true??? ;; siemens) ## LD is ld it makes a PLAMLIB ## CC just makes a GrossModule. archive_cmds='$LD -G -o $lib $libobjs $deplibs $linker_flags' reload_cmds='$CC -r -o $output$reload_objs' hardcode_direct=no ;; motorola) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_direct=no #Motorola manual says yes, but my tests say they lie ;; esac runpath_var='LD_RUN_PATH' hardcode_shlibpath_var=no ;; sysv4.3*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var=no export_dynamic_flag_spec='-Bexport' ;; sysv4*MP*) if test -d /usr/nec; then archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_shlibpath_var=no runpath_var=LD_RUN_PATH hardcode_runpath_var=yes ld_shlibs=yes fi ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[01].[10]* | unixware7* | sco3.2v5.0.[024]*) no_undefined_flag='${wl}-z,text' archive_cmds_need_lc=no hardcode_shlibpath_var=no runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then archive_cmds='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. no_undefined_flag='${wl}-z,text' allow_undefined_flag='${wl}-z,nodefs' archive_cmds_need_lc=no hardcode_shlibpath_var=no hardcode_libdir_flag_spec='${wl}-R,$libdir' hardcode_libdir_separator=':' link_all_deplibs=yes export_dynamic_flag_spec='${wl}-Bexport' runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then archive_cmds='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else archive_cmds='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' archive_expsym_cmds='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; uts4*) archive_cmds='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' hardcode_libdir_flag_spec='-L$libdir' hardcode_shlibpath_var=no ;; *) ld_shlibs=no ;; esac if test x$host_vendor = xsni; then case $host in sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) export_dynamic_flag_spec='${wl}-Blargedynsym' ;; esac fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ld_shlibs" >&5 $as_echo "$ld_shlibs" >&6; } test "$ld_shlibs" = no && can_build_shared=no with_gnu_ld=$with_gnu_ld # # Do we need to explicitly link libc? # case "x$archive_cmds_need_lc" in x|xyes) # Assume -lc should be added archive_cmds_need_lc=yes if test "$enable_shared" = yes && test "$GCC" = yes; then case $archive_cmds in *'~'*) # FIXME: we may have to deal with multi-command sequences. ;; '$CC '*) # Test whether the compiler implicitly links with -lc since on some # systems, -lgcc has to come before -lc. If gcc already passes -lc # to ld, don't add -lc before -lgcc. { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether -lc should be explicitly linked in" >&5 $as_echo_n "checking whether -lc should be explicitly linked in... " >&6; } if ${lt_cv_archive_cmds_need_lc+:} false; then : $as_echo_n "(cached) " >&6 else $RM conftest* echo "$lt_simple_compile_test_code" > conftest.$ac_ext if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_compile\""; } >&5 (eval $ac_compile) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } 2>conftest.err; then soname=conftest lib=conftest libobjs=conftest.$ac_objext deplibs= wl=$lt_prog_compiler_wl pic_flag=$lt_prog_compiler_pic compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$allow_undefined_flag allow_undefined_flag= if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1\""; } >&5 (eval $archive_cmds 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } then lt_cv_archive_cmds_need_lc=no else lt_cv_archive_cmds_need_lc=yes fi allow_undefined_flag=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $RM conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_archive_cmds_need_lc" >&5 $as_echo "$lt_cv_archive_cmds_need_lc" >&6; } archive_cmds_need_lc=$lt_cv_archive_cmds_need_lc ;; esac fi ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: checking dynamic linker characteristics" >&5 $as_echo_n "checking dynamic linker characteristics... " >&6; } if test "$GCC" = yes; then case $host_os in darwin*) lt_awk_arg="/^libraries:/,/LR/" ;; *) lt_awk_arg="/^libraries:/" ;; esac case $host_os in mingw* | cegcc*) lt_sed_strip_eq="s,=\([A-Za-z]:\),\1,g" ;; *) lt_sed_strip_eq="s,=/,/,g" ;; esac lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq` case $lt_search_path_spec in *\;*) # if the path contains ";" then we assume it to be the separator # otherwise default to the standard path separator (i.e. ":") - it is # assumed that no part of a normal pathname contains ";" but that should # okay in the real world where ";" in dirpaths is itself problematic. lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'` ;; *) lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"` ;; esac # Ok, now we have the path, separated by spaces, we can step through it # and add multilib dir if necessary. lt_tmp_lt_search_path_spec= lt_multi_os_dir=`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null` for lt_sys_path in $lt_search_path_spec; do if test -d "$lt_sys_path/$lt_multi_os_dir"; then lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path/$lt_multi_os_dir" else test -d "$lt_sys_path" && \ lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path" fi done lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk ' BEGIN {RS=" "; FS="/|\n";} { lt_foo=""; lt_count=0; for (lt_i = NF; lt_i > 0; lt_i--) { if ($lt_i != "" && $lt_i != ".") { if ($lt_i == "..") { lt_count++; } else { if (lt_count == 0) { lt_foo="/" $lt_i lt_foo; } else { lt_count--; } } } } if (lt_foo != "") { lt_freq[lt_foo]++; } if (lt_freq[lt_foo] == 1) { print lt_foo; } }'` # AWK program above erroneously prepends '/' to C:/dos/paths # for these hosts. case $host_os in mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\ $SED 's,/\([A-Za-z]:\),\1,g'` ;; esac sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP` else sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" fi library_names_spec= libname_spec='lib$name' soname_spec= shrext_cmds=".so" postinstall_cmds= postuninstall_cmds= finish_cmds= finish_eval= shlibpath_var= shlibpath_overrides_runpath=unknown version_type=none dynamic_linker="$host_os ld.so" sys_lib_dlsearch_path_spec="/lib /usr/lib" need_lib_prefix=unknown hardcode_into_libs=no # when you set need_version to no, make sure it does not cause -set_version # flags to be left without arguments need_version=unknown case $host_os in aix3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' shlibpath_var=LIBPATH # AIX 3 has no versioning support, so we append a major version to the name. soname_spec='${libname}${release}${shared_ext}$major' ;; aix[4-9]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no hardcode_into_libs=yes if test "$host_cpu" = ia64; then # AIX 5 supports IA64 library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH else # With GCC up to 2.95.x, collect2 would create an import file # for dependence libraries. The import file would start with # the line `#! .'. This would cause the generated library to # depend on `.', always an invalid library. This was fixed in # development snapshots of GCC prior to 3.0. case $host_os in aix4 | aix4.[01] | aix4.[01].*) if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' echo ' yes ' echo '#endif'; } | ${CC} -E - | $GREP yes > /dev/null; then : else can_build_shared=no fi ;; esac # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.a to let people know that these are not # typical AIX shared libraries. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' else # We preserve .a as extension for shared libraries through AIX4.2 # and later when we are not doing run time linking. library_names_spec='${libname}${release}.a $libname.a' soname_spec='${libname}${release}${shared_ext}$major' fi shlibpath_var=LIBPATH fi ;; amigaos*) case $host_cpu in powerpc) # Since July 2007 AmigaOS4 officially supports .so libraries. # When compiling the executable, add -use-dynld -Lsobjs: to the compileline. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' ;; m68k) library_names_spec='$libname.ixlibrary $libname.a' # Create ${libname}_ixlibrary.a entries in /sys/libs. finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([^/]*\)\.ixlibrary$%\1%'\''`; test $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' ;; esac ;; beos*) library_names_spec='${libname}${shared_ext}' dynamic_linker="$host_os ld.so" shlibpath_var=LIBRARY_PATH ;; bsdi[45]*) version_type=linux # correct to gnu/linux during the next big refactor need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" # the default ld.so.conf also contains /usr/contrib/lib and # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow # libtool to hard-code these into programs ;; cygwin* | mingw* | pw32* | cegcc*) version_type=windows shrext_cmds=".dll" need_version=no need_lib_prefix=no case $GCC,$cc_basename in yes,*) # gcc library_names_spec='$libname.dll.a' # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname~ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; fi' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes case $host_os in cygwin*) # Cygwin DLLs use 'cyg' prefix rather than 'lib' soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api" ;; mingw* | cegcc*) # MinGW DLLs use traditional 'lib' prefix soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' ;; pw32*) # pw32 DLLs use 'pw' prefix rather than 'lib' library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' ;; esac dynamic_linker='Win32 ld.exe' ;; *,cl*) # Native MSVC libname_spec='$name' soname_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext}' library_names_spec='${libname}.dll.lib' case $build_os in mingw*) sys_lib_search_path_spec= lt_save_ifs=$IFS IFS=';' for lt_path in $LIB do IFS=$lt_save_ifs # Let DOS variable expansion print the short 8.3 style file name. lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"` sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path" done IFS=$lt_save_ifs # Convert to MSYS style. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([a-zA-Z]\\):| /\\1|g' -e 's|^ ||'` ;; cygwin*) # Convert to unix form, then to dos form, then back to unix form # but this time dos style (no spaces!) so that the unix form looks # like /cygdrive/c/PROGRA~1:/cygdr... sys_lib_search_path_spec=`cygpath --path --unix "$LIB"` sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null` sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` ;; *) sys_lib_search_path_spec="$LIB" if $ECHO "$sys_lib_search_path_spec" | $GREP ';[c-zC-Z]:/' >/dev/null; then # It is most probably a Windows format PATH. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` else sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi # FIXME: find the short name or the path components, as spaces are # common. (e.g. "Program Files" -> "PROGRA~1") ;; esac # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes dynamic_linker='Win32 link.exe' ;; *) # Assume MSVC wrapper library_names_spec='${libname}`echo ${release} | $SED -e 's/[.]/-/g'`${versuffix}${shared_ext} $libname.lib' dynamic_linker='Win32 ld.exe' ;; esac # FIXME: first we should search . and the directory the executable is in shlibpath_var=PATH ;; darwin* | rhapsody*) dynamic_linker="$host_os dyld" version_type=darwin need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${major}$shared_ext ${libname}$shared_ext' soname_spec='${libname}${release}${major}$shared_ext' shlibpath_overrides_runpath=yes shlibpath_var=DYLD_LIBRARY_PATH shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib" sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' ;; dgux*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; freebsd* | dragonfly*) # DragonFly does not have aout. When/if they implement a new # versioning mechanism, adjust this. if test -x /usr/bin/objformat; then objformat=`/usr/bin/objformat` else case $host_os in freebsd[23].*) objformat=aout ;; *) objformat=elf ;; esac fi version_type=freebsd-$objformat case $version_type in freebsd-elf*) library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' need_version=no need_lib_prefix=no ;; freebsd-*) library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' need_version=yes ;; esac shlibpath_var=LD_LIBRARY_PATH case $host_os in freebsd2.*) shlibpath_overrides_runpath=yes ;; freebsd3.[01]* | freebsdelf3.[01]*) shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; freebsd3.[2-9]* | freebsdelf3.[2-9]* | \ freebsd4.[0-5] | freebsdelf4.[0-5] | freebsd4.1.1 | freebsdelf4.1.1) shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; *) # from 4.6 on, and DragonFly shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; esac ;; haiku*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no dynamic_linker="$host_os runtime_loader" library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LIBRARY_PATH shlibpath_overrides_runpath=yes sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib' hardcode_into_libs=yes ;; hpux9* | hpux10* | hpux11*) # Give a soname corresponding to the major version so that dld.sl refuses to # link against other versions. version_type=sunos need_lib_prefix=no need_version=no case $host_cpu in ia64*) shrext_cmds='.so' hardcode_into_libs=yes dynamic_linker="$host_os dld.so" shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' if test "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; hppa*64*) shrext_cmds='.sl' hardcode_into_libs=yes dynamic_linker="$host_os dld.sl" shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; *) shrext_cmds='.sl' dynamic_linker="$host_os dld.sl" shlibpath_var=SHLIB_PATH shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' ;; esac # HP-UX runs *really* slowly unless shared libraries are mode 555, ... postinstall_cmds='chmod 555 $lib' # or fails outright, so override atomically: install_override_mode=555 ;; interix[3-9]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; irix5* | irix6* | nonstopux*) case $host_os in nonstopux*) version_type=nonstopux ;; *) if test "$lt_cv_prog_gnu_ld" = yes; then version_type=linux # correct to gnu/linux during the next big refactor else version_type=irix fi ;; esac need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' case $host_os in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in # libtool.m4 will add one of these switches to LD *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= libmagic=32-bit;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 libmagic=64-bit;; *) libsuff= shlibsuff= libmagic=never-match;; esac ;; esac shlibpath_var=LD_LIBRARY${shlibsuff}_PATH shlibpath_overrides_runpath=no sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" hardcode_into_libs=yes ;; # No shared lib support for Linux oldld, aout, or coff. linux*oldld* | linux*aout* | linux*coff*) dynamic_linker=no ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no # Some binutils ld are patched to set DT_RUNPATH if ${lt_cv_shlibpath_overrides_runpath+:} false; then : $as_echo_n "(cached) " >&6 else lt_cv_shlibpath_overrides_runpath=no save_LDFLAGS=$LDFLAGS save_libdir=$libdir eval "libdir=/foo; wl=\"$lt_prog_compiler_wl\"; \ LDFLAGS=\"\$LDFLAGS $hardcode_libdir_flag_spec\"" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ int main () { ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : if ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null; then : lt_cv_shlibpath_overrides_runpath=yes fi fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LDFLAGS=$save_LDFLAGS libdir=$save_libdir fi shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes # Append ld.so.conf contents to the search path if test -f /etc/ld.so.conf; then lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '` sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra" fi # We used to test for /lib/ld.so.1 and disable shared libraries on # powerpc, because MkLinux only supported shared libraries with the # GNU dynamic linker. Since this was broken with cross compilers, # most powerpc-linux boxes support dynamic linking these days and # people can always --disable-shared, the test was removed, and we # assume the GNU/Linux dynamic linker is in use. dynamic_linker='GNU/Linux ld.so' ;; netbsdelf*-gnu) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='NetBSD ld.elf_so' ;; netbsd*) version_type=sunos need_lib_prefix=no need_version=no if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' dynamic_linker='NetBSD (a.out) ld.so' else library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='NetBSD ld.elf_so' fi shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; newsos6) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; *nto* | *qnx*) version_type=qnx need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='ldqnx.so' ;; openbsd*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' shlibpath_var=LD_LIBRARY_PATH if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[89] | openbsd2.[89].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; osf3* | osf4* | osf5*) version_type=osf need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" ;; rdos*) dynamic_linker=no ;; solaris*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes # ldd complains unless libraries are executable postinstall_cmds='chmod +x $lib' ;; sunos4*) version_type=sunos library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes if test "$with_gnu_ld" = yes; then need_lib_prefix=no fi need_version=yes ;; sysv4 | sysv4.3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH case $host_vendor in sni) shlibpath_overrides_runpath=no need_lib_prefix=no runpath_var=LD_RUN_PATH ;; siemens) need_lib_prefix=no ;; motorola) need_lib_prefix=no need_version=no shlibpath_overrides_runpath=no sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' ;; esac ;; sysv4*MP*) if test -d /usr/nec ;then version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' soname_spec='$libname${shared_ext}.$major' shlibpath_var=LD_LIBRARY_PATH fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) version_type=freebsd-elf need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes if test "$with_gnu_ld" = yes; then sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' else sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' case $host_os in sco3.2v5*) sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" ;; esac fi sys_lib_dlsearch_path_spec='/usr/lib' ;; tpf*) # TPF is a cross-target only. Preferred cross-host = GNU/Linux. version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; uts4*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; *) dynamic_linker=no ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $dynamic_linker" >&5 $as_echo "$dynamic_linker" >&6; } test "$dynamic_linker" = no && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" fi if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" fi { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to hardcode library paths into programs" >&5 $as_echo_n "checking how to hardcode library paths into programs... " >&6; } hardcode_action= if test -n "$hardcode_libdir_flag_spec" || test -n "$runpath_var" || test "X$hardcode_automatic" = "Xyes" ; then # We can hardcode non-existent directories. if test "$hardcode_direct" != no && # If the only mechanism to avoid hardcoding is shlibpath_var, we # have to relink, otherwise we might link with an installed library # when we should be linking with a yet-to-be-installed one ## test "$_LT_TAGVAR(hardcode_shlibpath_var, )" != no && test "$hardcode_minus_L" != no; then # Linking always hardcodes the temporary library directory. hardcode_action=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. hardcode_action=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. hardcode_action=unsupported fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $hardcode_action" >&5 $as_echo "$hardcode_action" >&6; } if test "$hardcode_action" = relink || test "$inherit_rpath" = yes; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; then # Fast installation is not necessary enable_fast_install=needless fi if test "x$enable_dlopen" != xyes; then enable_dlopen=unknown enable_dlopen_self=unknown enable_dlopen_self_static=unknown else lt_cv_dlopen=no lt_cv_dlopen_libs= case $host_os in beos*) lt_cv_dlopen="load_add_on" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ;; mingw* | pw32* | cegcc*) lt_cv_dlopen="LoadLibrary" lt_cv_dlopen_libs= ;; cygwin*) lt_cv_dlopen="dlopen" lt_cv_dlopen_libs= ;; darwin*) # if libdl is installed we need to link against it { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 $as_echo_n "checking for dlopen in -ldl... " >&6; } if ${ac_cv_lib_dl_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldl $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dl_dlopen=yes else ac_cv_lib_dl_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 $as_echo "$ac_cv_lib_dl_dlopen" >&6; } if test "x$ac_cv_lib_dl_dlopen" = xyes; then : lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" else lt_cv_dlopen="dyld" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes fi ;; *) ac_fn_c_check_func "$LINENO" "shl_load" "ac_cv_func_shl_load" if test "x$ac_cv_func_shl_load" = xyes; then : lt_cv_dlopen="shl_load" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for shl_load in -ldld" >&5 $as_echo_n "checking for shl_load in -ldld... " >&6; } if ${ac_cv_lib_dld_shl_load+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char shl_load (); int main () { return shl_load (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dld_shl_load=yes else ac_cv_lib_dld_shl_load=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_shl_load" >&5 $as_echo "$ac_cv_lib_dld_shl_load" >&6; } if test "x$ac_cv_lib_dld_shl_load" = xyes; then : lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-ldld" else ac_fn_c_check_func "$LINENO" "dlopen" "ac_cv_func_dlopen" if test "x$ac_cv_func_dlopen" = xyes; then : lt_cv_dlopen="dlopen" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -ldl" >&5 $as_echo_n "checking for dlopen in -ldl... " >&6; } if ${ac_cv_lib_dl_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldl $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dl_dlopen=yes else ac_cv_lib_dl_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dl_dlopen" >&5 $as_echo "$ac_cv_lib_dl_dlopen" >&6; } if test "x$ac_cv_lib_dl_dlopen" = xyes; then : lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dlopen in -lsvld" >&5 $as_echo_n "checking for dlopen in -lsvld... " >&6; } if ${ac_cv_lib_svld_dlopen+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-lsvld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dlopen (); int main () { return dlopen (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_svld_dlopen=yes else ac_cv_lib_svld_dlopen=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_svld_dlopen" >&5 $as_echo "$ac_cv_lib_svld_dlopen" >&6; } if test "x$ac_cv_lib_svld_dlopen" = xyes; then : lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld" else { $as_echo "$as_me:${as_lineno-$LINENO}: checking for dld_link in -ldld" >&5 $as_echo_n "checking for dld_link in -ldld... " >&6; } if ${ac_cv_lib_dld_dld_link+:} false; then : $as_echo_n "(cached) " >&6 else ac_check_lib_save_LIBS=$LIBS LIBS="-ldld $LIBS" cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Override any GCC internal prototype to avoid an error. Use char because int might match the return type of a GCC builtin and then its argument prototype would still apply. */ #ifdef __cplusplus extern "C" #endif char dld_link (); int main () { return dld_link (); ; return 0; } _ACEOF if ac_fn_c_try_link "$LINENO"; then : ac_cv_lib_dld_dld_link=yes else ac_cv_lib_dld_dld_link=no fi rm -f core conftest.err conftest.$ac_objext \ conftest$ac_exeext conftest.$ac_ext LIBS=$ac_check_lib_save_LIBS fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_lib_dld_dld_link" >&5 $as_echo "$ac_cv_lib_dld_dld_link" >&6; } if test "x$ac_cv_lib_dld_dld_link" = xyes; then : lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-ldld" fi fi fi fi fi fi ;; esac if test "x$lt_cv_dlopen" != xno; then enable_dlopen=yes else enable_dlopen=no fi case $lt_cv_dlopen in dlopen) save_CPPFLAGS="$CPPFLAGS" test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" save_LDFLAGS="$LDFLAGS" wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" save_LIBS="$LIBS" LIBS="$lt_cv_dlopen_libs $LIBS" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a program can dlopen itself" >&5 $as_echo_n "checking whether a program can dlopen itself... " >&6; } if ${lt_cv_dlopen_self+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : lt_cv_dlopen_self=cross else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF #line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif /* When -fvisbility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined(__GNUC__) && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; } _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest${ac_exeext} 2>/dev/null; then (./conftest; exit; ) >&5 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) lt_cv_dlopen_self=yes ;; x$lt_dlneed_uscore) lt_cv_dlopen_self=yes ;; x$lt_dlunknown|x*) lt_cv_dlopen_self=no ;; esac else : # compilation failed lt_cv_dlopen_self=no fi fi rm -fr conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self" >&5 $as_echo "$lt_cv_dlopen_self" >&6; } if test "x$lt_cv_dlopen_self" = xyes; then wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\" { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether a statically linked program can dlopen itself" >&5 $as_echo_n "checking whether a statically linked program can dlopen itself... " >&6; } if ${lt_cv_dlopen_self_static+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : lt_cv_dlopen_self_static=cross else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF #line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif /* When -fvisbility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined(__GNUC__) && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; } _LT_EOF if { { eval echo "\"\$as_me\":${as_lineno-$LINENO}: \"$ac_link\""; } >&5 (eval $ac_link) 2>&5 ac_status=$? $as_echo "$as_me:${as_lineno-$LINENO}: \$? = $ac_status" >&5 test $ac_status = 0; } && test -s conftest${ac_exeext} 2>/dev/null; then (./conftest; exit; ) >&5 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) lt_cv_dlopen_self_static=yes ;; x$lt_dlneed_uscore) lt_cv_dlopen_self_static=yes ;; x$lt_dlunknown|x*) lt_cv_dlopen_self_static=no ;; esac else : # compilation failed lt_cv_dlopen_self_static=no fi fi rm -fr conftest* fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $lt_cv_dlopen_self_static" >&5 $as_echo "$lt_cv_dlopen_self_static" >&6; } fi CPPFLAGS="$save_CPPFLAGS" LDFLAGS="$save_LDFLAGS" LIBS="$save_LIBS" ;; esac case $lt_cv_dlopen_self in yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; *) enable_dlopen_self=unknown ;; esac case $lt_cv_dlopen_self_static in yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; *) enable_dlopen_self_static=unknown ;; esac fi striplib= old_striplib= { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether stripping libraries is possible" >&5 $as_echo_n "checking whether stripping libraries is possible... " >&6; } if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" test -z "$striplib" && striplib="$STRIP --strip-unneeded" { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else # FIXME - insert some real tests, host_os isn't really good enough case $host_os in darwin*) if test -n "$STRIP" ; then striplib="$STRIP -x" old_striplib="$STRIP -S" { $as_echo "$as_me:${as_lineno-$LINENO}: result: yes" >&5 $as_echo "yes" >&6; } else { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } fi ;; *) { $as_echo "$as_me:${as_lineno-$LINENO}: result: no" >&5 $as_echo "no" >&6; } ;; esac fi # Report which library types will actually be built { $as_echo "$as_me:${as_lineno-$LINENO}: checking if libtool supports shared libraries" >&5 $as_echo_n "checking if libtool supports shared libraries... " >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: result: $can_build_shared" >&5 $as_echo "$can_build_shared" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build shared libraries" >&5 $as_echo_n "checking whether to build shared libraries... " >&6; } test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[4-9]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_shared" >&5 $as_echo "$enable_shared" >&6; } { $as_echo "$as_me:${as_lineno-$LINENO}: checking whether to build static libraries" >&5 $as_echo_n "checking whether to build static libraries... " >&6; } # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes { $as_echo "$as_me:${as_lineno-$LINENO}: result: $enable_static" >&5 $as_echo "$enable_static" >&6; } fi ac_ext=c ac_cpp='$CPP $CPPFLAGS' ac_compile='$CC -c $CFLAGS $CPPFLAGS conftest.$ac_ext >&5' ac_link='$CC -o conftest$ac_exeext $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS >&5' ac_compiler_gnu=$ac_cv_c_compiler_gnu CC="$lt_save_CC" ac_config_commands="$ac_config_commands libtool" # Only expand once: # Checks for libraries. # Checks for header files. for ac_header in fcntl.h libintl.h stddef.h stdlib.h string.h sys/time.h unistd.h do : as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh` ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default" if eval test \"x\$"$as_ac_Header"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_header" | $as_tr_cpp` 1 _ACEOF fi done # Checks for typedefs, structures, and compiler characteristics. { $as_echo "$as_me:${as_lineno-$LINENO}: checking for stdbool.h that conforms to C99" >&5 $as_echo_n "checking for stdbool.h that conforms to C99... " >&6; } if ${ac_cv_header_stdbool_h+:} false; then : $as_echo_n "(cached) " >&6 else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #include #ifndef bool "error: bool is not defined" #endif #ifndef false "error: false is not defined" #endif #if false "error: false is not 0" #endif #ifndef true "error: true is not defined" #endif #if true != 1 "error: true is not 1" #endif #ifndef __bool_true_false_are_defined "error: __bool_true_false_are_defined is not defined" #endif struct s { _Bool s: 1; _Bool t; } s; char a[true == 1 ? 1 : -1]; char b[false == 0 ? 1 : -1]; char c[__bool_true_false_are_defined == 1 ? 1 : -1]; char d[(bool) 0.5 == true ? 1 : -1]; /* See body of main program for 'e'. */ char f[(_Bool) 0.0 == false ? 1 : -1]; char g[true]; char h[sizeof (_Bool)]; char i[sizeof s.t]; enum { j = false, k = true, l = false * true, m = true * 256 }; /* The following fails for HP aC++/ANSI C B3910B A.05.55 [Dec 04 2003]. */ _Bool n[m]; char o[sizeof n == m * sizeof n[0] ? 1 : -1]; char p[-1 - (_Bool) 0 < 0 && -1 - (bool) 0 < 0 ? 1 : -1]; /* Catch a bug in an HP-UX C compiler. See http://gcc.gnu.org/ml/gcc-patches/2003-12/msg02303.html http://lists.gnu.org/archive/html/bug-coreutils/2005-11/msg00161.html */ _Bool q = true; _Bool *pq = &q; int main () { bool e = &s; *pq |= q; *pq |= ! q; /* Refer to every declared value, to avoid compiler optimizations. */ return (!a + !b + !c + !d + !e + !f + !g + !h + !i + !!j + !k + !!l + !m + !n + !o + !p + !q + !pq); ; return 0; } _ACEOF if ac_fn_c_try_compile "$LINENO"; then : ac_cv_header_stdbool_h=yes else ac_cv_header_stdbool_h=no fi rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_header_stdbool_h" >&5 $as_echo "$ac_cv_header_stdbool_h" >&6; } ac_fn_c_check_type "$LINENO" "_Bool" "ac_cv_type__Bool" "$ac_includes_default" if test "x$ac_cv_type__Bool" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE__BOOL 1 _ACEOF fi ac_fn_c_check_type "$LINENO" "off_t" "ac_cv_type_off_t" "$ac_includes_default" if test "x$ac_cv_type_off_t" = xyes; then : else cat >>confdefs.h <<_ACEOF #define off_t long int _ACEOF fi ac_fn_c_check_type "$LINENO" "pid_t" "ac_cv_type_pid_t" "$ac_includes_default" if test "x$ac_cv_type_pid_t" = xyes; then : else cat >>confdefs.h <<_ACEOF #define pid_t int _ACEOF fi ac_fn_c_check_type "$LINENO" "size_t" "ac_cv_type_size_t" "$ac_includes_default" if test "x$ac_cv_type_size_t" = xyes; then : else cat >>confdefs.h <<_ACEOF #define size_t unsigned int _ACEOF fi # Checks for library functions. for ac_header in vfork.h do : ac_fn_c_check_header_mongrel "$LINENO" "vfork.h" "ac_cv_header_vfork_h" "$ac_includes_default" if test "x$ac_cv_header_vfork_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_VFORK_H 1 _ACEOF fi done for ac_func in fork vfork do : as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" if eval test \"x\$"$as_ac_var"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done if test "x$ac_cv_func_fork" = xyes; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working fork" >&5 $as_echo_n "checking for working fork... " >&6; } if ${ac_cv_func_fork_works+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : ac_cv_func_fork_works=cross else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ $ac_includes_default int main () { /* By Ruediger Kuhlmann. */ return fork () < 0; ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : ac_cv_func_fork_works=yes else ac_cv_func_fork_works=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_fork_works" >&5 $as_echo "$ac_cv_func_fork_works" >&6; } else ac_cv_func_fork_works=$ac_cv_func_fork fi if test "x$ac_cv_func_fork_works" = xcross; then case $host in *-*-amigaos* | *-*-msdosdjgpp*) # Override, as these systems have only a dummy fork() stub ac_cv_func_fork_works=no ;; *) ac_cv_func_fork_works=yes ;; esac { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: result $ac_cv_func_fork_works guessed because of cross compilation" >&5 $as_echo "$as_me: WARNING: result $ac_cv_func_fork_works guessed because of cross compilation" >&2;} fi ac_cv_func_vfork_works=$ac_cv_func_vfork if test "x$ac_cv_func_vfork" = xyes; then { $as_echo "$as_me:${as_lineno-$LINENO}: checking for working vfork" >&5 $as_echo_n "checking for working vfork... " >&6; } if ${ac_cv_func_vfork_works+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : ac_cv_func_vfork_works=cross else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ /* Thanks to Paul Eggert for this test. */ $ac_includes_default #include #ifdef HAVE_VFORK_H # include #endif /* On some sparc systems, changes by the child to local and incoming argument registers are propagated back to the parent. The compiler is told about this with #include , but some compilers (e.g. gcc -O) don't grok . Test for this by using a static variable whose address is put into a register that is clobbered by the vfork. */ static void #ifdef __cplusplus sparc_address_test (int arg) # else sparc_address_test (arg) int arg; #endif { static pid_t child; if (!child) { child = vfork (); if (child < 0) { perror ("vfork"); _exit(2); } if (!child) { arg = getpid(); write(-1, "", 0); _exit (arg); } } } int main () { pid_t parent = getpid (); pid_t child; sparc_address_test (0); child = vfork (); if (child == 0) { /* Here is another test for sparc vfork register problems. This test uses lots of local variables, at least as many local variables as main has allocated so far including compiler temporaries. 4 locals are enough for gcc 1.40.3 on a Solaris 4.1.3 sparc, but we use 8 to be safe. A buggy compiler should reuse the register of parent for one of the local variables, since it will think that parent can't possibly be used any more in this routine. Assigning to the local variable will thus munge parent in the parent process. */ pid_t p = getpid(), p1 = getpid(), p2 = getpid(), p3 = getpid(), p4 = getpid(), p5 = getpid(), p6 = getpid(), p7 = getpid(); /* Convince the compiler that p..p7 are live; otherwise, it might use the same hardware register for all 8 local variables. */ if (p != p1 || p != p2 || p != p3 || p != p4 || p != p5 || p != p6 || p != p7) _exit(1); /* On some systems (e.g. IRIX 3.3), vfork doesn't separate parent from child file descriptors. If the child closes a descriptor before it execs or exits, this munges the parent's descriptor as well. Test for this by closing stdout in the child. */ _exit(close(fileno(stdout)) != 0); } else { int status; struct stat st; while (wait(&status) != child) ; return ( /* Was there some problem with vforking? */ child < 0 /* Did the child fail? (This shouldn't happen.) */ || status /* Did the vfork/compiler bug occur? */ || parent != getpid() /* Did the file descriptor bug occur? */ || fstat(fileno(stdout), &st) != 0 ); } } _ACEOF if ac_fn_c_try_run "$LINENO"; then : ac_cv_func_vfork_works=yes else ac_cv_func_vfork_works=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_vfork_works" >&5 $as_echo "$ac_cv_func_vfork_works" >&6; } fi; if test "x$ac_cv_func_fork_works" = xcross; then ac_cv_func_vfork_works=$ac_cv_func_vfork { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: result $ac_cv_func_vfork_works guessed because of cross compilation" >&5 $as_echo "$as_me: WARNING: result $ac_cv_func_vfork_works guessed because of cross compilation" >&2;} fi if test "x$ac_cv_func_vfork_works" = xyes; then $as_echo "#define HAVE_WORKING_VFORK 1" >>confdefs.h else $as_echo "#define vfork fork" >>confdefs.h fi if test "x$ac_cv_func_fork_works" = xyes; then $as_echo "#define HAVE_WORKING_FORK 1" >>confdefs.h fi for ac_header in stdlib.h do : ac_fn_c_check_header_mongrel "$LINENO" "stdlib.h" "ac_cv_header_stdlib_h" "$ac_includes_default" if test "x$ac_cv_header_stdlib_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_STDLIB_H 1 _ACEOF fi done { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU libc compatible malloc" >&5 $as_echo_n "checking for GNU libc compatible malloc... " >&6; } if ${ac_cv_func_malloc_0_nonnull+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : ac_cv_func_malloc_0_nonnull=no else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined STDC_HEADERS || defined HAVE_STDLIB_H # include #else char *malloc (); #endif int main () { return ! malloc (0); ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : ac_cv_func_malloc_0_nonnull=yes else ac_cv_func_malloc_0_nonnull=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_malloc_0_nonnull" >&5 $as_echo "$ac_cv_func_malloc_0_nonnull" >&6; } if test $ac_cv_func_malloc_0_nonnull = yes; then : $as_echo "#define HAVE_MALLOC 1" >>confdefs.h else $as_echo "#define HAVE_MALLOC 0" >>confdefs.h case " $LIBOBJS " in *" malloc.$ac_objext "* ) ;; *) LIBOBJS="$LIBOBJS malloc.$ac_objext" ;; esac $as_echo "#define malloc rpl_malloc" >>confdefs.h fi for ac_header in stdlib.h do : ac_fn_c_check_header_mongrel "$LINENO" "stdlib.h" "ac_cv_header_stdlib_h" "$ac_includes_default" if test "x$ac_cv_header_stdlib_h" = xyes; then : cat >>confdefs.h <<_ACEOF #define HAVE_STDLIB_H 1 _ACEOF fi done { $as_echo "$as_me:${as_lineno-$LINENO}: checking for GNU libc compatible realloc" >&5 $as_echo_n "checking for GNU libc compatible realloc... " >&6; } if ${ac_cv_func_realloc_0_nonnull+:} false; then : $as_echo_n "(cached) " >&6 else if test "$cross_compiling" = yes; then : ac_cv_func_realloc_0_nonnull=no else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ #if defined STDC_HEADERS || defined HAVE_STDLIB_H # include #else char *realloc (); #endif int main () { return ! realloc (0, 0); ; return 0; } _ACEOF if ac_fn_c_try_run "$LINENO"; then : ac_cv_func_realloc_0_nonnull=yes else ac_cv_func_realloc_0_nonnull=no fi rm -f core *.core core.conftest.* gmon.out bb.out conftest$ac_exeext \ conftest.$ac_objext conftest.beam conftest.$ac_ext fi fi { $as_echo "$as_me:${as_lineno-$LINENO}: result: $ac_cv_func_realloc_0_nonnull" >&5 $as_echo "$ac_cv_func_realloc_0_nonnull" >&6; } if test $ac_cv_func_realloc_0_nonnull = yes; then : $as_echo "#define HAVE_REALLOC 1" >>confdefs.h else $as_echo "#define HAVE_REALLOC 0" >>confdefs.h case " $LIBOBJS " in *" realloc.$ac_objext "* ) ;; *) LIBOBJS="$LIBOBJS realloc.$ac_objext" ;; esac $as_echo "#define realloc rpl_realloc" >>confdefs.h fi for ac_func in memset strchr strdup strerror strrchr strstr strtol do : as_ac_var=`$as_echo "ac_cv_func_$ac_func" | $as_tr_sh` ac_fn_c_check_func "$LINENO" "$ac_func" "$as_ac_var" if eval test \"x\$"$as_ac_var"\" = x"yes"; then : cat >>confdefs.h <<_ACEOF #define `$as_echo "HAVE_$ac_func" | $as_tr_cpp` 1 _ACEOF fi done ac_config_files="$ac_config_files Makefile doc/Makefile replace/Makefile src/Makefile tests/Makefile" cat >confcache <<\_ACEOF # 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, see configure's option --config-cache. # It is not useful on other systems. If it contains results you don't # want to keep, you may remove or edit it. # # config.status only pays attention to the cache file if you give it # the --recheck option to rerun configure. # # `ac_cv_env_foo' variables (set or unset) will be overridden when # loading this file, other *unset* `ac_cv_foo' will be assigned the # following values. _ACEOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, we kill variables containing newlines. # 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. ( for ac_var in `(set) 2>&1 | sed -n 's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`; do eval ac_val=\$$ac_var case $ac_val in #( *${as_nl}*) case $ac_var in #( *_cv_*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: cache variable $ac_var contains a newline" >&5 $as_echo "$as_me: WARNING: cache variable $ac_var contains a newline" >&2;} ;; esac case $ac_var in #( _ | IFS | as_nl) ;; #( BASH_ARGV | BASH_SOURCE) eval $ac_var= ;; #( *) { eval $ac_var=; unset $ac_var;} ;; esac ;; esac done (set) 2>&1 | case $as_nl`(ac_space=' '; set) 2>&1` in #( *${as_nl}ac_space=\ *) # `set' does not quote correctly, so add quotes: double-quote # substitution turns \\\\ into \\, and sed turns \\ into \. sed -n \ "s/'/'\\\\''/g; s/^\\([_$as_cr_alnum]*_cv_[_$as_cr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p" ;; #( *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n "/^[_$as_cr_alnum]*_cv_[_$as_cr_alnum]*=/p" ;; esac | sort ) | sed ' /^ac_cv_env_/b end t clear :clear s/^\([^=]*\)=\(.*[{}].*\)$/test "${\1+set}" = set || &/ t end s/^\([^=]*\)=\(.*\)$/\1=${\1=\2}/ :end' >>confcache if diff "$cache_file" confcache >/dev/null 2>&1; then :; else if test -w "$cache_file"; then if test "x$cache_file" != "x/dev/null"; then { $as_echo "$as_me:${as_lineno-$LINENO}: updating cache $cache_file" >&5 $as_echo "$as_me: updating cache $cache_file" >&6;} if test ! -f "$cache_file" || test -h "$cache_file"; then cat confcache >"$cache_file" else case $cache_file in #( */* | ?:*) mv -f confcache "$cache_file"$$ && mv -f "$cache_file"$$ "$cache_file" ;; #( *) mv -f confcache "$cache_file" ;; esac fi fi else { $as_echo "$as_me:${as_lineno-$LINENO}: not updating unwritable cache $cache_file" >&5 $as_echo "$as_me: not updating unwritable cache $cache_file" >&6;} fi fi rm -f confcache test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' DEFS=-DHAVE_CONFIG_H ac_libobjs= ac_ltlibobjs= U= for ac_i in : $LIBOBJS; do test "x$ac_i" = x: && continue # 1. Remove the extension, and $U if already installed. ac_script='s/\$U\././;s/\.o$//;s/\.obj$//' ac_i=`$as_echo "$ac_i" | sed "$ac_script"` # 2. Prepend LIBOBJDIR. When used with automake>=1.10 LIBOBJDIR # will be set to the directory where LIBOBJS objects are built. as_fn_append ac_libobjs " \${LIBOBJDIR}$ac_i\$U.$ac_objext" as_fn_append ac_ltlibobjs " \${LIBOBJDIR}$ac_i"'$U.lo' done LIBOBJS=$ac_libobjs LTLIBOBJS=$ac_ltlibobjs if test -n "$EXEEXT"; then am__EXEEXT_TRUE= am__EXEEXT_FALSE='#' else am__EXEEXT_TRUE='#' am__EXEEXT_FALSE= fi if test -z "${AMDEP_TRUE}" && test -z "${AMDEP_FALSE}"; then as_fn_error $? "conditional \"AMDEP\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi if test -z "${am__fastdepCC_TRUE}" && test -z "${am__fastdepCC_FALSE}"; then as_fn_error $? "conditional \"am__fastdepCC\" was never defined. Usually this means the macro was only invoked conditionally." "$LINENO" 5 fi : "${CONFIG_STATUS=./config.status}" ac_write_fail=0 ac_clean_files_save=$ac_clean_files ac_clean_files="$ac_clean_files $CONFIG_STATUS" { $as_echo "$as_me:${as_lineno-$LINENO}: creating $CONFIG_STATUS" >&5 $as_echo "$as_me: creating $CONFIG_STATUS" >&6;} as_write_fail=0 cat >$CONFIG_STATUS <<_ASEOF || as_write_fail=1 #! $SHELL # Generated by $as_me. # Run this file to recreate the current configuration. # Compiler output produced by configure, useful for debugging # configure, is in config.log if it exists. debug=false ac_cs_recheck=false ac_cs_silent=false SHELL=\${CONFIG_SHELL-$SHELL} export SHELL _ASEOF cat >>$CONFIG_STATUS <<\_ASEOF || as_write_fail=1 ## -------------------- ## ## M4sh Initialization. ## ## -------------------- ## # Be more Bourne compatible DUALCASE=1; export DUALCASE # for MKS sh if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then : emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in #( *posix*) : set -o posix ;; #( *) : ;; esac fi as_nl=' ' export as_nl # Printing a long string crashes Solaris 7 /usr/bin/printf. as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo # Prefer a ksh shell builtin over an external printf program on Solaris, # but without wasting forks for bash or zsh. if test -z "$BASH_VERSION$ZSH_VERSION" \ && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='print -r --' as_echo_n='print -rn --' elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then as_echo='printf %s\n' as_echo_n='printf %s' else if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"' as_echo_n='/usr/ucb/echo -n' else as_echo_body='eval expr "X$1" : "X\\(.*\\)"' as_echo_n_body='eval arg=$1; case $arg in #( *"$as_nl"*) expr "X$arg" : "X\\(.*\\)$as_nl"; arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;; esac; expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl" ' export as_echo_n_body as_echo_n='sh -c $as_echo_n_body as_echo' fi export as_echo_body as_echo='sh -c $as_echo_body as_echo' fi # The user is always right. if test "${PATH_SEPARATOR+set}" != set; then PATH_SEPARATOR=: (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && { (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 || PATH_SEPARATOR=';' } fi # IFS # We need space, tab and new line, in precisely that order. Quoting is # there to prevent editors from complaining about space-tab. # (If _AS_PATH_WALK were called with IFS unset, it would disable word # splitting by setting IFS to empty value.) IFS=" "" $as_nl" # Find who we are. Look in the path if we contain no directory separator. as_myself= case $0 in #(( *[\\/]* ) as_myself=$0 ;; *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break done IFS=$as_save_IFS ;; esac # We did not find ourselves, most probably we were run as `sh COMMAND' # in which case we are not to be found in the path. if test "x$as_myself" = x; then as_myself=$0 fi if test ! -f "$as_myself"; then $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2 exit 1 fi # Unset variables that we do not need and which cause bugs (e.g. in # pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1" # suppresses any "Segmentation fault" message there. '((' could # trigger a bug in pdksh 5.2.14. for as_var in BASH_ENV ENV MAIL MAILPATH do eval test x\${$as_var+set} = xset \ && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ' PS2='> ' PS4='+ ' # NLS nuisances. LC_ALL=C export LC_ALL LANGUAGE=C export LANGUAGE # CDPATH. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH # as_fn_error STATUS ERROR [LINENO LOG_FD] # ---------------------------------------- # Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are # provided, also output the error to LOG_FD, referencing LINENO. Then exit the # script with STATUS, using 1 if that was 0. as_fn_error () { as_status=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi $as_echo "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error # as_fn_set_status STATUS # ----------------------- # Set $? to STATUS, without forking. as_fn_set_status () { return $1 } # as_fn_set_status # as_fn_exit STATUS # ----------------- # Exit the shell with STATUS, even in a "trap 0" or "set -e" context. as_fn_exit () { set +e as_fn_set_status $1 exit $1 } # as_fn_exit # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # as_fn_append VAR VALUE # ---------------------- # Append the text in VALUE to the end of the definition contained in VAR. Take # advantage of any shell optimizations that allow amortized linear growth over # repeated appends, instead of the typical quadratic growth present in naive # implementations. if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then : eval 'as_fn_append () { eval $1+=\$2 }' else as_fn_append () { eval $1=\$$1\$2 } fi # as_fn_append # as_fn_arith ARG... # ------------------ # Perform arithmetic evaluation on the ARGs, and store the result in the # global $as_val. Take advantage of shells that can avoid forks. The arguments # must be portable across $(()) and expr. if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then : eval 'as_fn_arith () { as_val=$(( $* )) }' else as_fn_arith () { as_val=`expr "$@" || test $? -eq 1` } fi # as_fn_arith if expr a : '\(a\)' >/dev/null 2>&1 && test "X`expr 00001 : '.*\(...\)'`" = X001; then as_expr=expr else as_expr=false fi if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then as_basename=basename else as_basename=false fi if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then as_dirname=dirname else as_dirname=false fi as_me=`$as_basename -- "$0" || $as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \ X"$0" : 'X\(//\)$' \| \ X"$0" : 'X\(/\)' \| . 2>/dev/null || $as_echo X/"$0" | sed '/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` # Avoid depending upon Character Ranges. as_cr_letters='abcdefghijklmnopqrstuvwxyz' as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' as_cr_Letters=$as_cr_letters$as_cr_LETTERS as_cr_digits='0123456789' as_cr_alnum=$as_cr_Letters$as_cr_digits ECHO_C= ECHO_N= ECHO_T= case `echo -n x` in #((((( -n*) case `echo 'xy\c'` in *c*) ECHO_T=' ';; # ECHO_T is single tab character. xy) ECHO_C='\c';; *) echo `echo ksh88 bug on AIX 6.1` > /dev/null ECHO_T=' ';; esac;; *) ECHO_N='-n';; esac rm -f conf$$ conf$$.exe conf$$.file if test -d conf$$.dir; then rm -f conf$$.dir/conf$$.file else rm -f conf$$.dir mkdir conf$$.dir 2>/dev/null fi if (echo >conf$$.file) 2>/dev/null; then if ln -s conf$$.file conf$$ 2>/dev/null; then as_ln_s='ln -s' # ... but there are two gotchas: # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail. # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable. # In both cases, we have to default to `cp -pR'. ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe || as_ln_s='cp -pR' elif ln conf$$.file conf$$ 2>/dev/null; then as_ln_s=ln else as_ln_s='cp -pR' fi else as_ln_s='cp -pR' fi rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file rmdir conf$$.dir 2>/dev/null # as_fn_mkdir_p # ------------- # Create "$as_dir" as a directory, including parents if necessary. as_fn_mkdir_p () { case $as_dir in #( -*) as_dir=./$as_dir;; esac test -d "$as_dir" || eval $as_mkdir_p || { as_dirs= while :; do case $as_dir in #( *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'( *) as_qdir=$as_dir;; esac as_dirs="'$as_qdir' $as_dirs" as_dir=`$as_dirname -- "$as_dir" || $as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \| \ X"$as_dir" : 'X\(//\)$' \| \ X"$as_dir" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$as_dir" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" && break done test -z "$as_dirs" || eval "mkdir $as_dirs" } || test -d "$as_dir" || as_fn_error $? "cannot create directory $as_dir" } # as_fn_mkdir_p if mkdir -p . 2>/dev/null; then as_mkdir_p='mkdir -p "$as_dir"' else test -d ./-p && rmdir ./-p as_mkdir_p=false fi # as_fn_executable_p FILE # ----------------------- # Test if FILE is an executable regular file. as_fn_executable_p () { test -f "$1" && test -x "$1" } # as_fn_executable_p as_test_x='test -x' as_executable_p=as_fn_executable_p # Sed expression to map a string onto a valid CPP name. as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'" # Sed expression to map a string onto a valid variable name. as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'" exec 6>&1 ## ----------------------------------- ## ## Main body of $CONFIG_STATUS script. ## ## ----------------------------------- ## _ASEOF test $as_write_fail = 0 && chmod +x $CONFIG_STATUS || ac_write_fail=1 cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Save the log message, to keep $0 and so on meaningful, and to # report actual input values of CONFIG_FILES etc. instead of their # values after options handling. ac_log=" This file was extended by GNU Trueprint $as_me 5.4, which was generated by GNU Autoconf 2.69. Invocation command line was CONFIG_FILES = $CONFIG_FILES CONFIG_HEADERS = $CONFIG_HEADERS CONFIG_LINKS = $CONFIG_LINKS CONFIG_COMMANDS = $CONFIG_COMMANDS $ $0 $@ on `(hostname || uname -n) 2>/dev/null | sed 1q` " _ACEOF case $ac_config_files in *" "*) set x $ac_config_files; shift; ac_config_files=$*;; esac case $ac_config_headers in *" "*) set x $ac_config_headers; shift; ac_config_headers=$*;; esac cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # Files that config.status was made for. config_files="$ac_config_files" config_headers="$ac_config_headers" config_commands="$ac_config_commands" _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 ac_cs_usage="\ \`$as_me' instantiates files and other configuration actions from templates according to the current configuration. Unless the files and actions are specified as TAGs, all are instantiated by default. Usage: $0 [OPTION]... [TAG]... -h, --help print this help, then exit -V, --version print version number and configuration settings, then exit --config print configuration, then exit -q, --quiet, --silent do not print progress messages -d, --debug don't remove temporary files --recheck update $as_me by reconfiguring in the same conditions --file=FILE[:TEMPLATE] instantiate the configuration file FILE --header=FILE[:TEMPLATE] instantiate the configuration header FILE Configuration files: $config_files Configuration headers: $config_headers Configuration commands: $config_commands Report bugs to . GNU Trueprint home page: . General help using GNU software: ." _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_cs_config="`$as_echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`" ac_cs_version="\\ GNU Trueprint config.status 5.4 configured by $0, generated by GNU Autoconf 2.69, with options \\"\$ac_cs_config\\" Copyright (C) 2012 Free Software Foundation, Inc. This config.status script is free software; the Free Software Foundation gives unlimited permission to copy, distribute and modify it." ac_pwd='$ac_pwd' srcdir='$srcdir' INSTALL='$INSTALL' MKDIR_P='$MKDIR_P' AWK='$AWK' test -n "\$AWK" || AWK=awk _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # The default lists apply if the user does not specify any file. ac_need_defaults=: while test $# != 0 do case $1 in --*=?*) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'` ac_shift=: ;; --*=) ac_option=`expr "X$1" : 'X\([^=]*\)='` ac_optarg= ac_shift=: ;; *) ac_option=$1 ac_optarg=$2 ac_shift=shift ;; esac case $ac_option in # Handling of the options. -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) ac_cs_recheck=: ;; --version | --versio | --versi | --vers | --ver | --ve | --v | -V ) $as_echo "$ac_cs_version"; exit ;; --config | --confi | --conf | --con | --co | --c ) $as_echo "$ac_cs_config"; exit ;; --debug | --debu | --deb | --de | --d | -d ) debug=: ;; --file | --fil | --fi | --f ) $ac_shift case $ac_optarg in *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; '') as_fn_error $? "missing file argument" ;; esac as_fn_append CONFIG_FILES " '$ac_optarg'" ac_need_defaults=false;; --header | --heade | --head | --hea ) $ac_shift case $ac_optarg in *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;; esac as_fn_append CONFIG_HEADERS " '$ac_optarg'" ac_need_defaults=false;; --he | --h) # Conflict between --help and --header as_fn_error $? "ambiguous option: \`$1' Try \`$0 --help' for more information.";; --help | --hel | -h ) $as_echo "$ac_cs_usage"; exit ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil | --si | --s) ac_cs_silent=: ;; # This is an error. -*) as_fn_error $? "unrecognized option: \`$1' Try \`$0 --help' for more information." ;; *) as_fn_append ac_config_targets " $1" ac_need_defaults=false ;; esac shift done ac_configure_extra_args= if $ac_cs_silent; then exec 6>/dev/null ac_configure_extra_args="$ac_configure_extra_args --silent" fi _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 if \$ac_cs_recheck; then set X $SHELL '$0' $ac_configure_args \$ac_configure_extra_args --no-create --no-recursion shift \$as_echo "running CONFIG_SHELL=$SHELL \$*" >&6 CONFIG_SHELL='$SHELL' export CONFIG_SHELL exec "\$@" fi _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 exec 5>>config.log { echo sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX ## Running $as_me. ## _ASBOX $as_echo "$ac_log" } >&5 _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 # # INIT-COMMANDS # AMDEP_TRUE="$AMDEP_TRUE" ac_aux_dir="$ac_aux_dir" # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH sed_quote_subst='$sed_quote_subst' double_quote_subst='$double_quote_subst' delay_variable_subst='$delay_variable_subst' macro_version='`$ECHO "$macro_version" | $SED "$delay_single_quote_subst"`' macro_revision='`$ECHO "$macro_revision" | $SED "$delay_single_quote_subst"`' enable_shared='`$ECHO "$enable_shared" | $SED "$delay_single_quote_subst"`' enable_static='`$ECHO "$enable_static" | $SED "$delay_single_quote_subst"`' pic_mode='`$ECHO "$pic_mode" | $SED "$delay_single_quote_subst"`' enable_fast_install='`$ECHO "$enable_fast_install" | $SED "$delay_single_quote_subst"`' SHELL='`$ECHO "$SHELL" | $SED "$delay_single_quote_subst"`' ECHO='`$ECHO "$ECHO" | $SED "$delay_single_quote_subst"`' PATH_SEPARATOR='`$ECHO "$PATH_SEPARATOR" | $SED "$delay_single_quote_subst"`' host_alias='`$ECHO "$host_alias" | $SED "$delay_single_quote_subst"`' host='`$ECHO "$host" | $SED "$delay_single_quote_subst"`' host_os='`$ECHO "$host_os" | $SED "$delay_single_quote_subst"`' build_alias='`$ECHO "$build_alias" | $SED "$delay_single_quote_subst"`' build='`$ECHO "$build" | $SED "$delay_single_quote_subst"`' build_os='`$ECHO "$build_os" | $SED "$delay_single_quote_subst"`' SED='`$ECHO "$SED" | $SED "$delay_single_quote_subst"`' Xsed='`$ECHO "$Xsed" | $SED "$delay_single_quote_subst"`' GREP='`$ECHO "$GREP" | $SED "$delay_single_quote_subst"`' EGREP='`$ECHO "$EGREP" | $SED "$delay_single_quote_subst"`' FGREP='`$ECHO "$FGREP" | $SED "$delay_single_quote_subst"`' LD='`$ECHO "$LD" | $SED "$delay_single_quote_subst"`' NM='`$ECHO "$NM" | $SED "$delay_single_quote_subst"`' LN_S='`$ECHO "$LN_S" | $SED "$delay_single_quote_subst"`' max_cmd_len='`$ECHO "$max_cmd_len" | $SED "$delay_single_quote_subst"`' ac_objext='`$ECHO "$ac_objext" | $SED "$delay_single_quote_subst"`' exeext='`$ECHO "$exeext" | $SED "$delay_single_quote_subst"`' lt_unset='`$ECHO "$lt_unset" | $SED "$delay_single_quote_subst"`' lt_SP2NL='`$ECHO "$lt_SP2NL" | $SED "$delay_single_quote_subst"`' lt_NL2SP='`$ECHO "$lt_NL2SP" | $SED "$delay_single_quote_subst"`' lt_cv_to_host_file_cmd='`$ECHO "$lt_cv_to_host_file_cmd" | $SED "$delay_single_quote_subst"`' lt_cv_to_tool_file_cmd='`$ECHO "$lt_cv_to_tool_file_cmd" | $SED "$delay_single_quote_subst"`' reload_flag='`$ECHO "$reload_flag" | $SED "$delay_single_quote_subst"`' reload_cmds='`$ECHO "$reload_cmds" | $SED "$delay_single_quote_subst"`' OBJDUMP='`$ECHO "$OBJDUMP" | $SED "$delay_single_quote_subst"`' deplibs_check_method='`$ECHO "$deplibs_check_method" | $SED "$delay_single_quote_subst"`' file_magic_cmd='`$ECHO "$file_magic_cmd" | $SED "$delay_single_quote_subst"`' file_magic_glob='`$ECHO "$file_magic_glob" | $SED "$delay_single_quote_subst"`' want_nocaseglob='`$ECHO "$want_nocaseglob" | $SED "$delay_single_quote_subst"`' DLLTOOL='`$ECHO "$DLLTOOL" | $SED "$delay_single_quote_subst"`' sharedlib_from_linklib_cmd='`$ECHO "$sharedlib_from_linklib_cmd" | $SED "$delay_single_quote_subst"`' AR='`$ECHO "$AR" | $SED "$delay_single_quote_subst"`' AR_FLAGS='`$ECHO "$AR_FLAGS" | $SED "$delay_single_quote_subst"`' archiver_list_spec='`$ECHO "$archiver_list_spec" | $SED "$delay_single_quote_subst"`' STRIP='`$ECHO "$STRIP" | $SED "$delay_single_quote_subst"`' RANLIB='`$ECHO "$RANLIB" | $SED "$delay_single_quote_subst"`' old_postinstall_cmds='`$ECHO "$old_postinstall_cmds" | $SED "$delay_single_quote_subst"`' old_postuninstall_cmds='`$ECHO "$old_postuninstall_cmds" | $SED "$delay_single_quote_subst"`' old_archive_cmds='`$ECHO "$old_archive_cmds" | $SED "$delay_single_quote_subst"`' lock_old_archive_extraction='`$ECHO "$lock_old_archive_extraction" | $SED "$delay_single_quote_subst"`' CC='`$ECHO "$CC" | $SED "$delay_single_quote_subst"`' CFLAGS='`$ECHO "$CFLAGS" | $SED "$delay_single_quote_subst"`' compiler='`$ECHO "$compiler" | $SED "$delay_single_quote_subst"`' GCC='`$ECHO "$GCC" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_pipe='`$ECHO "$lt_cv_sys_global_symbol_pipe" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_cdecl='`$ECHO "$lt_cv_sys_global_symbol_to_cdecl" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_c_name_address='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address" | $SED "$delay_single_quote_subst"`' lt_cv_sys_global_symbol_to_c_name_address_lib_prefix='`$ECHO "$lt_cv_sys_global_symbol_to_c_name_address_lib_prefix" | $SED "$delay_single_quote_subst"`' nm_file_list_spec='`$ECHO "$nm_file_list_spec" | $SED "$delay_single_quote_subst"`' lt_sysroot='`$ECHO "$lt_sysroot" | $SED "$delay_single_quote_subst"`' objdir='`$ECHO "$objdir" | $SED "$delay_single_quote_subst"`' MAGIC_CMD='`$ECHO "$MAGIC_CMD" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_no_builtin_flag='`$ECHO "$lt_prog_compiler_no_builtin_flag" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_pic='`$ECHO "$lt_prog_compiler_pic" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_wl='`$ECHO "$lt_prog_compiler_wl" | $SED "$delay_single_quote_subst"`' lt_prog_compiler_static='`$ECHO "$lt_prog_compiler_static" | $SED "$delay_single_quote_subst"`' lt_cv_prog_compiler_c_o='`$ECHO "$lt_cv_prog_compiler_c_o" | $SED "$delay_single_quote_subst"`' need_locks='`$ECHO "$need_locks" | $SED "$delay_single_quote_subst"`' MANIFEST_TOOL='`$ECHO "$MANIFEST_TOOL" | $SED "$delay_single_quote_subst"`' DSYMUTIL='`$ECHO "$DSYMUTIL" | $SED "$delay_single_quote_subst"`' NMEDIT='`$ECHO "$NMEDIT" | $SED "$delay_single_quote_subst"`' LIPO='`$ECHO "$LIPO" | $SED "$delay_single_quote_subst"`' OTOOL='`$ECHO "$OTOOL" | $SED "$delay_single_quote_subst"`' OTOOL64='`$ECHO "$OTOOL64" | $SED "$delay_single_quote_subst"`' libext='`$ECHO "$libext" | $SED "$delay_single_quote_subst"`' shrext_cmds='`$ECHO "$shrext_cmds" | $SED "$delay_single_quote_subst"`' extract_expsyms_cmds='`$ECHO "$extract_expsyms_cmds" | $SED "$delay_single_quote_subst"`' archive_cmds_need_lc='`$ECHO "$archive_cmds_need_lc" | $SED "$delay_single_quote_subst"`' enable_shared_with_static_runtimes='`$ECHO "$enable_shared_with_static_runtimes" | $SED "$delay_single_quote_subst"`' export_dynamic_flag_spec='`$ECHO "$export_dynamic_flag_spec" | $SED "$delay_single_quote_subst"`' whole_archive_flag_spec='`$ECHO "$whole_archive_flag_spec" | $SED "$delay_single_quote_subst"`' compiler_needs_object='`$ECHO "$compiler_needs_object" | $SED "$delay_single_quote_subst"`' old_archive_from_new_cmds='`$ECHO "$old_archive_from_new_cmds" | $SED "$delay_single_quote_subst"`' old_archive_from_expsyms_cmds='`$ECHO "$old_archive_from_expsyms_cmds" | $SED "$delay_single_quote_subst"`' archive_cmds='`$ECHO "$archive_cmds" | $SED "$delay_single_quote_subst"`' archive_expsym_cmds='`$ECHO "$archive_expsym_cmds" | $SED "$delay_single_quote_subst"`' module_cmds='`$ECHO "$module_cmds" | $SED "$delay_single_quote_subst"`' module_expsym_cmds='`$ECHO "$module_expsym_cmds" | $SED "$delay_single_quote_subst"`' with_gnu_ld='`$ECHO "$with_gnu_ld" | $SED "$delay_single_quote_subst"`' allow_undefined_flag='`$ECHO "$allow_undefined_flag" | $SED "$delay_single_quote_subst"`' no_undefined_flag='`$ECHO "$no_undefined_flag" | $SED "$delay_single_quote_subst"`' hardcode_libdir_flag_spec='`$ECHO "$hardcode_libdir_flag_spec" | $SED "$delay_single_quote_subst"`' hardcode_libdir_separator='`$ECHO "$hardcode_libdir_separator" | $SED "$delay_single_quote_subst"`' hardcode_direct='`$ECHO "$hardcode_direct" | $SED "$delay_single_quote_subst"`' hardcode_direct_absolute='`$ECHO "$hardcode_direct_absolute" | $SED "$delay_single_quote_subst"`' hardcode_minus_L='`$ECHO "$hardcode_minus_L" | $SED "$delay_single_quote_subst"`' hardcode_shlibpath_var='`$ECHO "$hardcode_shlibpath_var" | $SED "$delay_single_quote_subst"`' hardcode_automatic='`$ECHO "$hardcode_automatic" | $SED "$delay_single_quote_subst"`' inherit_rpath='`$ECHO "$inherit_rpath" | $SED "$delay_single_quote_subst"`' link_all_deplibs='`$ECHO "$link_all_deplibs" | $SED "$delay_single_quote_subst"`' always_export_symbols='`$ECHO "$always_export_symbols" | $SED "$delay_single_quote_subst"`' export_symbols_cmds='`$ECHO "$export_symbols_cmds" | $SED "$delay_single_quote_subst"`' exclude_expsyms='`$ECHO "$exclude_expsyms" | $SED "$delay_single_quote_subst"`' include_expsyms='`$ECHO "$include_expsyms" | $SED "$delay_single_quote_subst"`' prelink_cmds='`$ECHO "$prelink_cmds" | $SED "$delay_single_quote_subst"`' postlink_cmds='`$ECHO "$postlink_cmds" | $SED "$delay_single_quote_subst"`' file_list_spec='`$ECHO "$file_list_spec" | $SED "$delay_single_quote_subst"`' variables_saved_for_relink='`$ECHO "$variables_saved_for_relink" | $SED "$delay_single_quote_subst"`' need_lib_prefix='`$ECHO "$need_lib_prefix" | $SED "$delay_single_quote_subst"`' need_version='`$ECHO "$need_version" | $SED "$delay_single_quote_subst"`' version_type='`$ECHO "$version_type" | $SED "$delay_single_quote_subst"`' runpath_var='`$ECHO "$runpath_var" | $SED "$delay_single_quote_subst"`' shlibpath_var='`$ECHO "$shlibpath_var" | $SED "$delay_single_quote_subst"`' shlibpath_overrides_runpath='`$ECHO "$shlibpath_overrides_runpath" | $SED "$delay_single_quote_subst"`' libname_spec='`$ECHO "$libname_spec" | $SED "$delay_single_quote_subst"`' library_names_spec='`$ECHO "$library_names_spec" | $SED "$delay_single_quote_subst"`' soname_spec='`$ECHO "$soname_spec" | $SED "$delay_single_quote_subst"`' install_override_mode='`$ECHO "$install_override_mode" | $SED "$delay_single_quote_subst"`' postinstall_cmds='`$ECHO "$postinstall_cmds" | $SED "$delay_single_quote_subst"`' postuninstall_cmds='`$ECHO "$postuninstall_cmds" | $SED "$delay_single_quote_subst"`' finish_cmds='`$ECHO "$finish_cmds" | $SED "$delay_single_quote_subst"`' finish_eval='`$ECHO "$finish_eval" | $SED "$delay_single_quote_subst"`' hardcode_into_libs='`$ECHO "$hardcode_into_libs" | $SED "$delay_single_quote_subst"`' sys_lib_search_path_spec='`$ECHO "$sys_lib_search_path_spec" | $SED "$delay_single_quote_subst"`' sys_lib_dlsearch_path_spec='`$ECHO "$sys_lib_dlsearch_path_spec" | $SED "$delay_single_quote_subst"`' hardcode_action='`$ECHO "$hardcode_action" | $SED "$delay_single_quote_subst"`' enable_dlopen='`$ECHO "$enable_dlopen" | $SED "$delay_single_quote_subst"`' enable_dlopen_self='`$ECHO "$enable_dlopen_self" | $SED "$delay_single_quote_subst"`' enable_dlopen_self_static='`$ECHO "$enable_dlopen_self_static" | $SED "$delay_single_quote_subst"`' old_striplib='`$ECHO "$old_striplib" | $SED "$delay_single_quote_subst"`' striplib='`$ECHO "$striplib" | $SED "$delay_single_quote_subst"`' LTCC='$LTCC' LTCFLAGS='$LTCFLAGS' compiler='$compiler_DEFAULT' # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF \$1 _LTECHO_EOF' } # Quote evaled strings. for var in SHELL \ ECHO \ PATH_SEPARATOR \ SED \ GREP \ EGREP \ FGREP \ LD \ NM \ LN_S \ lt_SP2NL \ lt_NL2SP \ reload_flag \ OBJDUMP \ deplibs_check_method \ file_magic_cmd \ file_magic_glob \ want_nocaseglob \ DLLTOOL \ sharedlib_from_linklib_cmd \ AR \ AR_FLAGS \ archiver_list_spec \ STRIP \ RANLIB \ CC \ CFLAGS \ compiler \ lt_cv_sys_global_symbol_pipe \ lt_cv_sys_global_symbol_to_cdecl \ lt_cv_sys_global_symbol_to_c_name_address \ lt_cv_sys_global_symbol_to_c_name_address_lib_prefix \ nm_file_list_spec \ lt_prog_compiler_no_builtin_flag \ lt_prog_compiler_pic \ lt_prog_compiler_wl \ lt_prog_compiler_static \ lt_cv_prog_compiler_c_o \ need_locks \ MANIFEST_TOOL \ DSYMUTIL \ NMEDIT \ LIPO \ OTOOL \ OTOOL64 \ shrext_cmds \ export_dynamic_flag_spec \ whole_archive_flag_spec \ compiler_needs_object \ with_gnu_ld \ allow_undefined_flag \ no_undefined_flag \ hardcode_libdir_flag_spec \ hardcode_libdir_separator \ exclude_expsyms \ include_expsyms \ file_list_spec \ variables_saved_for_relink \ libname_spec \ library_names_spec \ soname_spec \ install_override_mode \ finish_eval \ old_striplib \ striplib; do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[\\\\\\\`\\"\\\$]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done # Double-quote double-evaled strings. for var in reload_cmds \ old_postinstall_cmds \ old_postuninstall_cmds \ old_archive_cmds \ extract_expsyms_cmds \ old_archive_from_new_cmds \ old_archive_from_expsyms_cmds \ archive_cmds \ archive_expsym_cmds \ module_cmds \ module_expsym_cmds \ export_symbols_cmds \ prelink_cmds \ postlink_cmds \ postinstall_cmds \ postuninstall_cmds \ finish_cmds \ sys_lib_search_path_spec \ sys_lib_dlsearch_path_spec; do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[\\\\\\\`\\"\\\$]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done ac_aux_dir='$ac_aux_dir' xsi_shell='$xsi_shell' lt_shell_append='$lt_shell_append' # See if we are running on zsh, and set the options which allow our # commands through without removal of \ escapes INIT. if test -n "\${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi PACKAGE='$PACKAGE' VERSION='$VERSION' TIMESTAMP='$TIMESTAMP' RM='$RM' ofile='$ofile' _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # Handling of arguments. for ac_config_target in $ac_config_targets do case $ac_config_target in "config.h") CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;; "depfiles") CONFIG_COMMANDS="$CONFIG_COMMANDS depfiles" ;; "libtool") CONFIG_COMMANDS="$CONFIG_COMMANDS libtool" ;; "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;; "doc/Makefile") CONFIG_FILES="$CONFIG_FILES doc/Makefile" ;; "replace/Makefile") CONFIG_FILES="$CONFIG_FILES replace/Makefile" ;; "src/Makefile") CONFIG_FILES="$CONFIG_FILES src/Makefile" ;; "tests/Makefile") CONFIG_FILES="$CONFIG_FILES tests/Makefile" ;; *) as_fn_error $? "invalid argument: \`$ac_config_target'" "$LINENO" 5;; esac done # If the user did not use the arguments to specify the items to instantiate, # then the envvar interface is used. Set only those that are not. # We use the long form for the default assignment because of an extremely # bizarre bug on SunOS 4.1.3. if $ac_need_defaults; then test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers test "${CONFIG_COMMANDS+set}" = set || CONFIG_COMMANDS=$config_commands fi # Have a temporary directory for convenience. Make it in the build tree # simply because there is no reason against having it here, and in addition, # creating and moving files from /tmp can sometimes cause problems. # Hook for its removal unless debugging. # Note that there is a small window in which the directory will not be cleaned: # after its creation but before its name has been assigned to `$tmp'. $debug || { tmp= ac_tmp= trap 'exit_status=$? : "${ac_tmp:=$tmp}" { test ! -d "$ac_tmp" || rm -fr "$ac_tmp"; } && exit $exit_status ' 0 trap 'as_fn_exit 1' 1 2 13 15 } # Create a (secure) tmp directory for tmp files. { tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` && test -d "$tmp" } || { tmp=./conf$$-$RANDOM (umask 077 && mkdir "$tmp") } || as_fn_error $? "cannot create a temporary directory in ." "$LINENO" 5 ac_tmp=$tmp # Set up the scripts for CONFIG_FILES section. # No need to generate them if there are no CONFIG_FILES. # This happens for instance with `./config.status config.h'. if test -n "$CONFIG_FILES"; then ac_cr=`echo X | tr X '\015'` # On cygwin, bash can eat \r inside `` if the user requested igncr. # But we know of no other shell where ac_cr would be empty at this # point, so we can use a bashism as a fallback. if test "x$ac_cr" = x; then eval ac_cr=\$\'\\r\' fi ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' /dev/null` if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then ac_cs_awk_cr='\\r' else ac_cs_awk_cr=$ac_cr fi echo 'BEGIN {' >"$ac_tmp/subs1.awk" && _ACEOF { echo "cat >conf$$subs.awk <<_ACEOF" && echo "$ac_subst_vars" | sed 's/.*/&!$&$ac_delim/' && echo "_ACEOF" } >conf$$subs.sh || as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 ac_delim_num=`echo "$ac_subst_vars" | grep -c '^'` ac_delim='%!_!# ' for ac_last_try in false false false false false :; do . ./conf$$subs.sh || as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 ac_delim_n=`sed -n "s/.*$ac_delim\$/X/p" conf$$subs.awk | grep -c X` if test $ac_delim_n = $ac_delim_num; then break elif $ac_last_try; then as_fn_error $? "could not make $CONFIG_STATUS" "$LINENO" 5 else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done rm -f conf$$subs.sh cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 cat >>"\$ac_tmp/subs1.awk" <<\\_ACAWK && _ACEOF sed -n ' h s/^/S["/; s/!.*/"]=/ p g s/^[^!]*!// :repl t repl s/'"$ac_delim"'$// t delim :nl h s/\(.\{148\}\)..*/\1/ t more1 s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ p n b repl :more1 s/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g s/.\{148\}// t nl :delim h s/\(.\{148\}\)..*/\1/ t more2 s/["\\]/\\&/g; s/^/"/; s/$/"/ p b :more2 s/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g s/.\{148\}// t delim ' >$CONFIG_STATUS || ac_write_fail=1 rm -f conf$$subs.awk cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 _ACAWK cat >>"\$ac_tmp/subs1.awk" <<_ACAWK && for (key in S) S_is_set[key] = 1 FS = "" } { line = $ 0 nfields = split(line, field, "@") substed = 0 len = length(field[1]) for (i = 2; i < nfields; i++) { key = field[i] keylen = length(key) if (S_is_set[key]) { value = S[key] line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3) len += length(value) + length(field[++i]) substed = 1 } else len += 1 + keylen } print line } _ACAWK _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g" else cat fi < "$ac_tmp/subs1.awk" > "$ac_tmp/subs.awk" \ || as_fn_error $? "could not setup config files machinery" "$LINENO" 5 _ACEOF # VPATH may cause trouble with some makes, so we remove sole $(srcdir), # ${srcdir} and @srcdir@ entries from VPATH if srcdir is ".", strip leading and # trailing colons and then remove the whole line if VPATH becomes empty # (actually we leave an empty line to preserve line numbers). if test "x$srcdir" = x.; then ac_vpsub='/^[ ]*VPATH[ ]*=[ ]*/{ h s/// s/^/:/ s/[ ]*$/:/ s/:\$(srcdir):/:/g s/:\${srcdir}:/:/g s/:@srcdir@:/:/g s/^:*// s/:*$// x s/\(=[ ]*\).*/\1/ G s/\n// s/^[^=]*=[ ]*$// }' fi cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 fi # test -n "$CONFIG_FILES" # Set up the scripts for CONFIG_HEADERS section. # No need to generate them if there are no CONFIG_HEADERS. # This happens for instance with `./config.status Makefile'. if test -n "$CONFIG_HEADERS"; then cat >"$ac_tmp/defines.awk" <<\_ACAWK || BEGIN { _ACEOF # Transform confdefs.h into an awk script `defines.awk', embedded as # here-document in config.status, that substitutes the proper values into # config.h.in to produce config.h. # Create a delimiter string that does not exist in confdefs.h, to ease # handling of long lines. ac_delim='%!_!# ' for ac_last_try in false false :; do ac_tt=`sed -n "/$ac_delim/p" confdefs.h` if test -z "$ac_tt"; then break elif $ac_last_try; then as_fn_error $? "could not make $CONFIG_HEADERS" "$LINENO" 5 else ac_delim="$ac_delim!$ac_delim _$ac_delim!! " fi done # For the awk script, D is an array of macro values keyed by name, # likewise P contains macro parameters if any. Preserve backslash # newline sequences. ac_word_re=[_$as_cr_Letters][_$as_cr_alnum]* sed -n ' s/.\{148\}/&'"$ac_delim"'/g t rset :rset s/^[ ]*#[ ]*define[ ][ ]*/ / t def d :def s/\\$// t bsnl s/["\\]/\\&/g s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ D["\1"]=" \3"/p s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2"/p d :bsnl s/["\\]/\\&/g s/^ \('"$ac_word_re"'\)\(([^()]*)\)[ ]*\(.*\)/P["\1"]="\2"\ D["\1"]=" \3\\\\\\n"\\/p t cont s/^ \('"$ac_word_re"'\)[ ]*\(.*\)/D["\1"]=" \2\\\\\\n"\\/p t cont d :cont n s/.\{148\}/&'"$ac_delim"'/g t clear :clear s/\\$// t bsnlc s/["\\]/\\&/g; s/^/"/; s/$/"/p d :bsnlc s/["\\]/\\&/g; s/^/"/; s/$/\\\\\\n"\\/p b cont ' >$CONFIG_STATUS || ac_write_fail=1 cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 for (key in D) D_is_set[key] = 1 FS = "" } /^[\t ]*#[\t ]*(define|undef)[\t ]+$ac_word_re([\t (]|\$)/ { line = \$ 0 split(line, arg, " ") if (arg[1] == "#") { defundef = arg[2] mac1 = arg[3] } else { defundef = substr(arg[1], 2) mac1 = arg[2] } split(mac1, mac2, "(") #) macro = mac2[1] prefix = substr(line, 1, index(line, defundef) - 1) if (D_is_set[macro]) { # Preserve the white space surrounding the "#". print prefix "define", macro P[macro] D[macro] next } else { # Replace #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. if (defundef == "undef") { print "/*", prefix defundef, macro, "*/" next } } } { print } _ACAWK _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 as_fn_error $? "could not setup config headers machinery" "$LINENO" 5 fi # test -n "$CONFIG_HEADERS" eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS :C $CONFIG_COMMANDS" shift for ac_tag do case $ac_tag in :[FHLC]) ac_mode=$ac_tag; continue;; esac case $ac_mode$ac_tag in :[FHL]*:*);; :L* | :C*:*) as_fn_error $? "invalid tag \`$ac_tag'" "$LINENO" 5;; :[FH]-) ac_tag=-:-;; :[FH]*) ac_tag=$ac_tag:$ac_tag.in;; esac ac_save_IFS=$IFS IFS=: set x $ac_tag IFS=$ac_save_IFS shift ac_file=$1 shift case $ac_mode in :L) ac_source=$1;; :[FH]) ac_file_inputs= for ac_f do case $ac_f in -) ac_f="$ac_tmp/stdin";; *) # Look for the file first in the build tree, then in the source tree # (if the path is not absolute). The absolute path cannot be DOS-style, # because $ac_f cannot contain `:'. test -f "$ac_f" || case $ac_f in [\\/$]*) false;; *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";; esac || as_fn_error 1 "cannot find input file: \`$ac_f'" "$LINENO" 5;; esac case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac as_fn_append ac_file_inputs " '$ac_f'" done # Let's still pretend it is `configure' which instantiates (i.e., don't # use $as_me), people would be surprised to read: # /* config.h. Generated by config.status. */ configure_input='Generated from '` $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g' `' by configure.' if test x"$ac_file" != x-; then configure_input="$ac_file. $configure_input" { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5 $as_echo "$as_me: creating $ac_file" >&6;} fi # Neutralize special characters interpreted by sed in replacement strings. case $configure_input in #( *\&* | *\|* | *\\* ) ac_sed_conf_input=`$as_echo "$configure_input" | sed 's/[\\\\&|]/\\\\&/g'`;; #( *) ac_sed_conf_input=$configure_input;; esac case $ac_tag in *:-:* | *:-) cat >"$ac_tmp/stdin" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; esac ;; esac ac_dir=`$as_dirname -- "$ac_file" || $as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ac_file" : 'X\(//\)[^/]' \| \ X"$ac_file" : 'X\(//\)$' \| \ X"$ac_file" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$ac_file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` as_dir="$ac_dir"; as_fn_mkdir_p ac_builddir=. case "$ac_dir" in .) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'` # A ".." for each directory in $ac_dir_suffix. ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'` case $ac_top_builddir_sub in "") ac_top_builddir_sub=. ac_top_build_prefix= ;; *) ac_top_build_prefix=$ac_top_builddir_sub/ ;; esac ;; esac ac_abs_top_builddir=$ac_pwd ac_abs_builddir=$ac_pwd$ac_dir_suffix # for backward compatibility: ac_top_builddir=$ac_top_build_prefix case $srcdir in .) # We are building in place. ac_srcdir=. ac_top_srcdir=$ac_top_builddir_sub ac_abs_top_srcdir=$ac_pwd ;; [\\/]* | ?:[\\/]* ) # Absolute name. ac_srcdir=$srcdir$ac_dir_suffix; ac_top_srcdir=$srcdir ac_abs_top_srcdir=$srcdir ;; *) # Relative name. ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix ac_top_srcdir=$ac_top_build_prefix$srcdir ac_abs_top_srcdir=$ac_pwd/$srcdir ;; esac ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix case $ac_mode in :F) # # CONFIG_FILE # case $INSTALL in [\\/$]* | ?:[\\/]* ) ac_INSTALL=$INSTALL ;; *) ac_INSTALL=$ac_top_build_prefix$INSTALL ;; esac ac_MKDIR_P=$MKDIR_P case $MKDIR_P in [\\/$]* | ?:[\\/]* ) ;; */*) ac_MKDIR_P=$ac_top_build_prefix$MKDIR_P ;; esac _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 # If the template does not know about datarootdir, expand it. # FIXME: This hack should be removed a few years after 2.60. ac_datarootdir_hack=; ac_datarootdir_seen= ac_sed_dataroot=' /datarootdir/ { p q } /@datadir@/p /@docdir@/p /@infodir@/p /@localedir@/p /@mandir@/p' case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in *datarootdir*) ac_datarootdir_seen=yes;; *@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*) { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5 $as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;} _ACEOF cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_datarootdir_hack=' s&@datadir@&$datadir&g s&@docdir@&$docdir&g s&@infodir@&$infodir&g s&@localedir@&$localedir&g s&@mandir@&$mandir&g s&\\\${datarootdir}&$datarootdir&g' ;; esac _ACEOF # Neutralize VPATH when `$srcdir' = `.'. # Shell code in configure.ac might set extrasub. # FIXME: do we really want to maintain this feature? cat >>$CONFIG_STATUS <<_ACEOF || ac_write_fail=1 ac_sed_extra="$ac_vpsub $extrasub _ACEOF cat >>$CONFIG_STATUS <<\_ACEOF || ac_write_fail=1 :t /@[a-zA-Z_][a-zA-Z_0-9]*@/!b s|@configure_input@|$ac_sed_conf_input|;t t s&@top_builddir@&$ac_top_builddir_sub&;t t s&@top_build_prefix@&$ac_top_build_prefix&;t t s&@srcdir@&$ac_srcdir&;t t s&@abs_srcdir@&$ac_abs_srcdir&;t t s&@top_srcdir@&$ac_top_srcdir&;t t s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t s&@builddir@&$ac_builddir&;t t s&@abs_builddir@&$ac_abs_builddir&;t t s&@abs_top_builddir@&$ac_abs_top_builddir&;t t s&@INSTALL@&$ac_INSTALL&;t t s&@MKDIR_P@&$ac_MKDIR_P&;t t $ac_datarootdir_hack " eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$ac_tmp/subs.awk" \ >$ac_tmp/out || as_fn_error $? "could not create $ac_file" "$LINENO" 5 test -z "$ac_datarootdir_hack$ac_datarootdir_seen" && { ac_out=`sed -n '/\${datarootdir}/p' "$ac_tmp/out"`; test -n "$ac_out"; } && { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' \ "$ac_tmp/out"`; test -z "$ac_out"; } && { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined" >&5 $as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir' which seems to be undefined. Please make sure it is defined" >&2;} rm -f "$ac_tmp/stdin" case $ac_file in -) cat "$ac_tmp/out" && rm -f "$ac_tmp/out";; *) rm -f "$ac_file" && mv "$ac_tmp/out" "$ac_file";; esac \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 ;; :H) # # CONFIG_HEADER # if test x"$ac_file" != x-; then { $as_echo "/* $configure_input */" \ && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" } >"$ac_tmp/config.h" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 if diff "$ac_file" "$ac_tmp/config.h" >/dev/null 2>&1; then { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5 $as_echo "$as_me: $ac_file is unchanged" >&6;} else rm -f "$ac_file" mv "$ac_tmp/config.h" "$ac_file" \ || as_fn_error $? "could not create $ac_file" "$LINENO" 5 fi else $as_echo "/* $configure_input */" \ && eval '$AWK -f "$ac_tmp/defines.awk"' "$ac_file_inputs" \ || as_fn_error $? "could not create -" "$LINENO" 5 fi # Compute "$ac_file"'s index in $config_headers. _am_arg="$ac_file" _am_stamp_count=1 for _am_header in $config_headers :; do case $_am_header in $_am_arg | $_am_arg:* ) break ;; * ) _am_stamp_count=`expr $_am_stamp_count + 1` ;; esac done echo "timestamp for $_am_arg" >`$as_dirname -- "$_am_arg" || $as_expr X"$_am_arg" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$_am_arg" : 'X\(//\)[^/]' \| \ X"$_am_arg" : 'X\(//\)$' \| \ X"$_am_arg" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$_am_arg" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'`/stamp-h$_am_stamp_count ;; :C) { $as_echo "$as_me:${as_lineno-$LINENO}: executing $ac_file commands" >&5 $as_echo "$as_me: executing $ac_file commands" >&6;} ;; esac case $ac_file$ac_mode in "depfiles":C) test x"$AMDEP_TRUE" != x"" || { # Autoconf 2.62 quotes --file arguments for eval, but not when files # are listed without --file. Let's play safe and only enable the eval # if we detect the quoting. case $CONFIG_FILES in *\'*) eval set x "$CONFIG_FILES" ;; *) set x $CONFIG_FILES ;; esac shift for mf do # Strip MF so we end up with the name of the file. mf=`echo "$mf" | sed -e 's/:.*$//'` # Check whether this is an Automake generated Makefile or not. # We used to match only the files named `Makefile.in', but # some people rename them; so instead we look at the file content. # Grep'ing the first line is not enough: some people post-process # each Makefile.in and add a new line on top of each file to say so. # Grep'ing the whole file is not good either: AIX grep has a line # limit of 2048, but all sed's we know have understand at least 4000. if sed -n 's,^#.*generated by automake.*,X,p' "$mf" | grep X >/dev/null 2>&1; then dirpart=`$as_dirname -- "$mf" || $as_expr X"$mf" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$mf" : 'X\(//\)[^/]' \| \ X"$mf" : 'X\(//\)$' \| \ X"$mf" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$mf" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` else continue fi # Extract the definition of DEPDIR, am__include, and am__quote # from the Makefile without running `make'. DEPDIR=`sed -n 's/^DEPDIR = //p' < "$mf"` test -z "$DEPDIR" && continue am__include=`sed -n 's/^am__include = //p' < "$mf"` test -z "am__include" && continue am__quote=`sed -n 's/^am__quote = //p' < "$mf"` # When using ansi2knr, U may be empty or an underscore; expand it U=`sed -n 's/^U = //p' < "$mf"` # Find all dependency output files, they are included files with # $(DEPDIR) in their names. We invoke sed twice because it is the # simplest approach to changing $(DEPDIR) to its actual value in the # expansion. for file in `sed -n " s/^$am__include $am__quote\(.*(DEPDIR).*\)$am__quote"'$/\1/p' <"$mf" | \ sed -e 's/\$(DEPDIR)/'"$DEPDIR"'/g' -e 's/\$U/'"$U"'/g'`; do # Make sure the directory exists. test -f "$dirpart/$file" && continue fdir=`$as_dirname -- "$file" || $as_expr X"$file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$file" : 'X\(//\)[^/]' \| \ X"$file" : 'X\(//\)$' \| \ X"$file" : 'X\(/\)' \| . 2>/dev/null || $as_echo X"$file" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` as_dir=$dirpart/$fdir; as_fn_mkdir_p # echo "creating $dirpart/$file" echo '# dummy' > "$dirpart/$file" done done } ;; "libtool":C) # See if we are running on zsh, and set the options which allow our # commands through without removal of \ escapes. if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi cfgfile="${ofile}T" trap "$RM \"$cfgfile\"; exit 1" 1 2 15 $RM "$cfgfile" cat <<_LT_EOF >> "$cfgfile" #! $SHELL # `$ECHO "$ofile" | sed 's%^.*/%%'` - Provide generalized library-building support services. # Generated automatically by $as_me ($PACKAGE$TIMESTAMP) $VERSION # Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: # NOTE: Changes made to this file will be lost: look at ltmain.sh. # # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file is part of GNU Libtool. # # GNU Libtool is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # # As a special exception to the GNU General Public License, # if you distribute this file as part of a program or library that # is built using GNU Libtool, you may include this file under the # same distribution terms that you use for the rest of that program. # # GNU Libtool is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, or # obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. # The names of the tagged configurations supported by this script. available_tags="" # ### BEGIN LIBTOOL CONFIG # Which release of libtool.m4 was used? macro_version=$macro_version macro_revision=$macro_revision # Whether or not to build shared libraries. build_libtool_libs=$enable_shared # Whether or not to build static libraries. build_old_libs=$enable_static # What type of objects to build. pic_mode=$pic_mode # Whether or not to optimize for fast installation. fast_install=$enable_fast_install # Shell to use when invoking shell scripts. SHELL=$lt_SHELL # An echo program that protects backslashes. ECHO=$lt_ECHO # The PATH separator for the build system. PATH_SEPARATOR=$lt_PATH_SEPARATOR # The host system. host_alias=$host_alias host=$host host_os=$host_os # The build system. build_alias=$build_alias build=$build build_os=$build_os # A sed program that does not truncate output. SED=$lt_SED # Sed that helps us avoid accidentally triggering echo(1) options like -n. Xsed="\$SED -e 1s/^X//" # A grep program that handles long lines. GREP=$lt_GREP # An ERE matcher. EGREP=$lt_EGREP # A literal string matcher. FGREP=$lt_FGREP # A BSD- or MS-compatible name lister. NM=$lt_NM # Whether we need soft or hard links. LN_S=$lt_LN_S # What is the maximum length of a command? max_cmd_len=$max_cmd_len # Object file suffix (normally "o"). objext=$ac_objext # Executable file suffix (normally ""). exeext=$exeext # whether the shell understands "unset". lt_unset=$lt_unset # turn spaces into newlines. SP2NL=$lt_lt_SP2NL # turn newlines into spaces. NL2SP=$lt_lt_NL2SP # convert \$build file names to \$host format. to_host_file_cmd=$lt_cv_to_host_file_cmd # convert \$build files to toolchain format. to_tool_file_cmd=$lt_cv_to_tool_file_cmd # An object symbol dumper. OBJDUMP=$lt_OBJDUMP # Method to check whether dependent libraries are shared objects. deplibs_check_method=$lt_deplibs_check_method # Command to use when deplibs_check_method = "file_magic". file_magic_cmd=$lt_file_magic_cmd # How to find potential files when deplibs_check_method = "file_magic". file_magic_glob=$lt_file_magic_glob # Find potential files using nocaseglob when deplibs_check_method = "file_magic". want_nocaseglob=$lt_want_nocaseglob # DLL creation program. DLLTOOL=$lt_DLLTOOL # Command to associate shared and link libraries. sharedlib_from_linklib_cmd=$lt_sharedlib_from_linklib_cmd # The archiver. AR=$lt_AR # Flags to create an archive. AR_FLAGS=$lt_AR_FLAGS # How to feed a file listing to the archiver. archiver_list_spec=$lt_archiver_list_spec # A symbol stripping program. STRIP=$lt_STRIP # Commands used to install an old-style archive. RANLIB=$lt_RANLIB old_postinstall_cmds=$lt_old_postinstall_cmds old_postuninstall_cmds=$lt_old_postuninstall_cmds # Whether to use a lock for old archive extraction. lock_old_archive_extraction=$lock_old_archive_extraction # A C compiler. LTCC=$lt_CC # LTCC compiler flags. LTCFLAGS=$lt_CFLAGS # Take the output of nm and produce a listing of raw symbols and C names. global_symbol_pipe=$lt_lt_cv_sys_global_symbol_pipe # Transform the output of nm in a proper C declaration. global_symbol_to_cdecl=$lt_lt_cv_sys_global_symbol_to_cdecl # Transform the output of nm in a C name address pair. global_symbol_to_c_name_address=$lt_lt_cv_sys_global_symbol_to_c_name_address # Transform the output of nm in a C name address pair when lib prefix is needed. global_symbol_to_c_name_address_lib_prefix=$lt_lt_cv_sys_global_symbol_to_c_name_address_lib_prefix # Specify filename containing input files for \$NM. nm_file_list_spec=$lt_nm_file_list_spec # The root where to search for dependent libraries,and in which our libraries should be installed. lt_sysroot=$lt_sysroot # The name of the directory that contains temporary libtool files. objdir=$objdir # Used to examine libraries when file_magic_cmd begins with "file". MAGIC_CMD=$MAGIC_CMD # Must we lock files when doing compilation? need_locks=$lt_need_locks # Manifest tool. MANIFEST_TOOL=$lt_MANIFEST_TOOL # Tool to manipulate archived DWARF debug symbol files on Mac OS X. DSYMUTIL=$lt_DSYMUTIL # Tool to change global to local symbols on Mac OS X. NMEDIT=$lt_NMEDIT # Tool to manipulate fat objects and archives on Mac OS X. LIPO=$lt_LIPO # ldd/readelf like tool for Mach-O binaries on Mac OS X. OTOOL=$lt_OTOOL # ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4. OTOOL64=$lt_OTOOL64 # Old archive suffix (normally "a"). libext=$libext # Shared library suffix (normally ".so"). shrext_cmds=$lt_shrext_cmds # The commands to extract the exported symbol list from a shared archive. extract_expsyms_cmds=$lt_extract_expsyms_cmds # Variables whose values should be saved in libtool wrapper scripts and # restored at link time. variables_saved_for_relink=$lt_variables_saved_for_relink # Do we need the "lib" prefix for modules? need_lib_prefix=$need_lib_prefix # Do we need a version for libraries? need_version=$need_version # Library versioning type. version_type=$version_type # Shared library runtime path variable. runpath_var=$runpath_var # Shared library path variable. shlibpath_var=$shlibpath_var # Is shlibpath searched before the hard-coded library search path? shlibpath_overrides_runpath=$shlibpath_overrides_runpath # Format of library name prefix. libname_spec=$lt_libname_spec # List of archive names. First name is the real one, the rest are links. # The last name is the one that the linker finds with -lNAME library_names_spec=$lt_library_names_spec # The coded name of the library, if different from the real name. soname_spec=$lt_soname_spec # Permission mode override for installation of shared libraries. install_override_mode=$lt_install_override_mode # Command to use after installation of a shared archive. postinstall_cmds=$lt_postinstall_cmds # Command to use after uninstallation of a shared archive. postuninstall_cmds=$lt_postuninstall_cmds # Commands used to finish a libtool library installation in a directory. finish_cmds=$lt_finish_cmds # As "finish_cmds", except a single script fragment to be evaled but # not shown. finish_eval=$lt_finish_eval # Whether we should hardcode library paths into libraries. hardcode_into_libs=$hardcode_into_libs # Compile-time system search path for libraries. sys_lib_search_path_spec=$lt_sys_lib_search_path_spec # Run-time system search path for libraries. sys_lib_dlsearch_path_spec=$lt_sys_lib_dlsearch_path_spec # Whether dlopen is supported. dlopen_support=$enable_dlopen # Whether dlopen of programs is supported. dlopen_self=$enable_dlopen_self # Whether dlopen of statically linked programs is supported. dlopen_self_static=$enable_dlopen_self_static # Commands to strip libraries. old_striplib=$lt_old_striplib striplib=$lt_striplib # The linker used to build libraries. LD=$lt_LD # How to create reloadable object files. reload_flag=$lt_reload_flag reload_cmds=$lt_reload_cmds # Commands used to build an old-style archive. old_archive_cmds=$lt_old_archive_cmds # A language specific compiler. CC=$lt_compiler # Is the compiler the GNU compiler? with_gcc=$GCC # Compiler flag to turn off builtin functions. no_builtin_flag=$lt_lt_prog_compiler_no_builtin_flag # Additional compiler flags for building library objects. pic_flag=$lt_lt_prog_compiler_pic # How to pass a linker flag through the compiler. wl=$lt_lt_prog_compiler_wl # Compiler flag to prevent dynamic linking. link_static_flag=$lt_lt_prog_compiler_static # Does compiler simultaneously support -c and -o options? compiler_c_o=$lt_lt_cv_prog_compiler_c_o # Whether or not to add -lc for building shared libraries. build_libtool_need_lc=$archive_cmds_need_lc # Whether or not to disallow shared libs when runtime libs are static. allow_libtool_libs_with_static_runtimes=$enable_shared_with_static_runtimes # Compiler flag to allow reflexive dlopens. export_dynamic_flag_spec=$lt_export_dynamic_flag_spec # Compiler flag to generate shared objects directly from archives. whole_archive_flag_spec=$lt_whole_archive_flag_spec # Whether the compiler copes with passing no objects directly. compiler_needs_object=$lt_compiler_needs_object # Create an old-style archive from a shared archive. old_archive_from_new_cmds=$lt_old_archive_from_new_cmds # Create a temporary old-style archive to link instead of a shared archive. old_archive_from_expsyms_cmds=$lt_old_archive_from_expsyms_cmds # Commands used to build a shared archive. archive_cmds=$lt_archive_cmds archive_expsym_cmds=$lt_archive_expsym_cmds # Commands used to build a loadable module if different from building # a shared archive. module_cmds=$lt_module_cmds module_expsym_cmds=$lt_module_expsym_cmds # Whether we are building with GNU ld or not. with_gnu_ld=$lt_with_gnu_ld # Flag that allows shared libraries with undefined symbols to be built. allow_undefined_flag=$lt_allow_undefined_flag # Flag that enforces no undefined symbols. no_undefined_flag=$lt_no_undefined_flag # Flag to hardcode \$libdir into a binary during linking. # This must work even if \$libdir does not exist hardcode_libdir_flag_spec=$lt_hardcode_libdir_flag_spec # Whether we need a single "-rpath" flag with a separated argument. hardcode_libdir_separator=$lt_hardcode_libdir_separator # Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes # DIR into the resulting binary. hardcode_direct=$hardcode_direct # Set to "yes" if using DIR/libNAME\${shared_ext} during linking hardcodes # DIR into the resulting binary and the resulting library dependency is # "absolute",i.e impossible to change by setting \${shlibpath_var} if the # library is relocated. hardcode_direct_absolute=$hardcode_direct_absolute # Set to "yes" if using the -LDIR flag during linking hardcodes DIR # into the resulting binary. hardcode_minus_L=$hardcode_minus_L # Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR # into the resulting binary. hardcode_shlibpath_var=$hardcode_shlibpath_var # Set to "yes" if building a shared library automatically hardcodes DIR # into the library and all subsequent libraries and executables linked # against it. hardcode_automatic=$hardcode_automatic # Set to yes if linker adds runtime paths of dependent libraries # to runtime path list. inherit_rpath=$inherit_rpath # Whether libtool must link a program against all its dependency libraries. link_all_deplibs=$link_all_deplibs # Set to "yes" if exported symbols are required. always_export_symbols=$always_export_symbols # The commands to list exported symbols. export_symbols_cmds=$lt_export_symbols_cmds # Symbols that should not be listed in the preloaded symbols. exclude_expsyms=$lt_exclude_expsyms # Symbols that must always be exported. include_expsyms=$lt_include_expsyms # Commands necessary for linking programs (against libraries) with templates. prelink_cmds=$lt_prelink_cmds # Commands necessary for finishing linking programs. postlink_cmds=$lt_postlink_cmds # Specify filename containing input files. file_list_spec=$lt_file_list_spec # How to hardcode a shared library path into an executable. hardcode_action=$hardcode_action # ### END LIBTOOL CONFIG _LT_EOF case $host_os in aix3*) cat <<\_LT_EOF >> "$cfgfile" # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi _LT_EOF ;; esac ltmain="$ac_aux_dir/ltmain.sh" # We use sed instead of cat because bash on DJGPP gets confused if # if finds mixed CR/LF and LF-only lines. Since sed operates in # text mode, it properly converts lines to CR/LF. This bash problem # is reportedly fixed, but why not run on old versions too? sed '$q' "$ltmain" >> "$cfgfile" \ || (rm -f "$cfgfile"; exit 1) if test x"$xsi_shell" = xyes; then sed -e '/^func_dirname ()$/,/^} # func_dirname /c\ func_dirname ()\ {\ \ case ${1} in\ \ */*) func_dirname_result="${1%/*}${2}" ;;\ \ * ) func_dirname_result="${3}" ;;\ \ esac\ } # Extended-shell func_dirname implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_basename ()$/,/^} # func_basename /c\ func_basename ()\ {\ \ func_basename_result="${1##*/}"\ } # Extended-shell func_basename implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_dirname_and_basename ()$/,/^} # func_dirname_and_basename /c\ func_dirname_and_basename ()\ {\ \ case ${1} in\ \ */*) func_dirname_result="${1%/*}${2}" ;;\ \ * ) func_dirname_result="${3}" ;;\ \ esac\ \ func_basename_result="${1##*/}"\ } # Extended-shell func_dirname_and_basename implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_stripname ()$/,/^} # func_stripname /c\ func_stripname ()\ {\ \ # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are\ \ # positional parameters, so assign one to ordinary parameter first.\ \ func_stripname_result=${3}\ \ func_stripname_result=${func_stripname_result#"${1}"}\ \ func_stripname_result=${func_stripname_result%"${2}"}\ } # Extended-shell func_stripname implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_split_long_opt ()$/,/^} # func_split_long_opt /c\ func_split_long_opt ()\ {\ \ func_split_long_opt_name=${1%%=*}\ \ func_split_long_opt_arg=${1#*=}\ } # Extended-shell func_split_long_opt implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_split_short_opt ()$/,/^} # func_split_short_opt /c\ func_split_short_opt ()\ {\ \ func_split_short_opt_arg=${1#??}\ \ func_split_short_opt_name=${1%"$func_split_short_opt_arg"}\ } # Extended-shell func_split_short_opt implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_lo2o ()$/,/^} # func_lo2o /c\ func_lo2o ()\ {\ \ case ${1} in\ \ *.lo) func_lo2o_result=${1%.lo}.${objext} ;;\ \ *) func_lo2o_result=${1} ;;\ \ esac\ } # Extended-shell func_lo2o implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_xform ()$/,/^} # func_xform /c\ func_xform ()\ {\ func_xform_result=${1%.*}.lo\ } # Extended-shell func_xform implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_arith ()$/,/^} # func_arith /c\ func_arith ()\ {\ func_arith_result=$(( $* ))\ } # Extended-shell func_arith implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_len ()$/,/^} # func_len /c\ func_len ()\ {\ func_len_result=${#1}\ } # Extended-shell func_len implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$lt_shell_append" = xyes; then sed -e '/^func_append ()$/,/^} # func_append /c\ func_append ()\ {\ eval "${1}+=\\${2}"\ } # Extended-shell func_append implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: sed -e '/^func_append_quoted ()$/,/^} # func_append_quoted /c\ func_append_quoted ()\ {\ \ func_quote_for_eval "${2}"\ \ eval "${1}+=\\\\ \\$func_quote_for_eval_result"\ } # Extended-shell func_append_quoted implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: # Save a `func_append' function call where possible by direct use of '+=' sed -e 's%func_append \([a-zA-Z_]\{1,\}\) "%\1+="%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: else # Save a `func_append' function call even when '+=' is not available sed -e 's%func_append \([a-zA-Z_]\{1,\}\) "%\1="$\1%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$_lt_function_replace_fail" = x":"; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: Unable to substitute extended shell functions in $ofile" >&5 $as_echo "$as_me: WARNING: Unable to substitute extended shell functions in $ofile" >&2;} fi mv -f "$cfgfile" "$ofile" || (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") chmod +x "$ofile" ;; esac done # for ac_tag as_fn_exit 0 _ACEOF ac_clean_files=$ac_clean_files_save test $ac_write_fail = 0 || as_fn_error $? "write failure creating $CONFIG_STATUS" "$LINENO" 5 # configure is writing to config.log, and then calls config.status. # config.status does its own redirection, appending to config.log. # Unfortunately, on DOS this fails, as config.log is still kept open # by configure, so config.status won't be able to write to it; its # output is simply discarded. So we exec the FD to /dev/null, # effectively closing config.log, so it can be properly (re)opened and # appended to by config.status. When coming back to configure, we # need to make the FD available again. if test "$no_create" != yes; then ac_cs_success=: ac_config_status_args= test "$silent" = yes && ac_config_status_args="$ac_config_status_args --quiet" exec 5>/dev/null $SHELL $CONFIG_STATUS $ac_config_status_args || ac_cs_success=false exec 5>>config.log # Use ||, not &&, to avoid exiting from the if with $? = 1, which # would make configure fail if this is the last instruction. $ac_cs_success || as_fn_exit 1 fi if test -n "$ac_unrecognized_opts" && test "$enable_option_checking" != no; then { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: unrecognized options: $ac_unrecognized_opts" >&5 $as_echo "$as_me: WARNING: unrecognized options: $ac_unrecognized_opts" >&2;} fi trueprint-5.4/config.guess0000755000175000017500000012743211764422452012677 00000000000000#! /bin/sh # Attempt to guess a canonical system name. # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, # 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, # 2011, 2012 Free Software Foundation, Inc. timestamp='2012-02-10' # This file is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, see . # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Originally written by Per Bothner. Please send patches (context # diff format) to and include a ChangeLog # entry. # # This script attempts to guess a canonical system name similar to # config.sub. If it succeeds, it prints the system name on stdout, and # exits with 0. Otherwise, it exits with 1. # # You can get the latest version of this script from: # http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.guess;hb=HEAD me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] Output the configuration name of the system \`$me' is run on. Operation modes: -h, --help print this help, then exit -t, --time-stamp print date of last modification, then exit -v, --version print version number, then exit Report bugs and patches to ." version="\ GNU config.guess ($timestamp) Originally written by Per Bothner. Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." help=" Try \`$me --help' for more information." # Parse command line while test $# -gt 0 ; do case $1 in --time-stamp | --time* | -t ) echo "$timestamp" ; exit ;; --version | -v ) echo "$version" ; exit ;; --help | --h* | -h ) echo "$usage"; exit ;; -- ) # Stop option processing shift; break ;; - ) # Use stdin as input. break ;; -* ) echo "$me: invalid option $1$help" >&2 exit 1 ;; * ) break ;; esac done if test $# != 0; then echo "$me: too many arguments$help" >&2 exit 1 fi trap 'exit 1' 1 2 15 # CC_FOR_BUILD -- compiler used by this script. Note that the use of a # compiler to aid in system detection is discouraged as it requires # temporary files to be created and, as you can see below, it is a # headache to deal with in a portable fashion. # Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still # use `HOST_CC' if defined, but it is deprecated. # Portable tmp directory creation inspired by the Autoconf team. set_cc_for_build=' trap "exitcode=\$?; (rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null) && exit \$exitcode" 0 ; trap "rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null; exit 1" 1 2 13 15 ; : ${TMPDIR=/tmp} ; { tmp=`(umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } || { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir $tmp) ; } || { tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir $tmp) && echo "Warning: creating insecure temp directory" >&2 ; } || { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } ; dummy=$tmp/dummy ; tmpfiles="$dummy.c $dummy.o $dummy.rel $dummy" ; case $CC_FOR_BUILD,$HOST_CC,$CC in ,,) echo "int x;" > $dummy.c ; for c in cc gcc c89 c99 ; do if ($c -c -o $dummy.o $dummy.c) >/dev/null 2>&1 ; then CC_FOR_BUILD="$c"; break ; fi ; done ; if test x"$CC_FOR_BUILD" = x ; then CC_FOR_BUILD=no_compiler_found ; fi ;; ,,*) CC_FOR_BUILD=$CC ;; ,*,*) CC_FOR_BUILD=$HOST_CC ;; esac ; set_cc_for_build= ;' # This is needed to find uname on a Pyramid OSx when run in the BSD universe. # (ghazi@noc.rutgers.edu 1994-08-24) if (test -f /.attbin/uname) >/dev/null 2>&1 ; then PATH=$PATH:/.attbin ; export PATH fi UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown # Note: order is significant - the case branches are not exclusive. case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in *:NetBSD:*:*) # NetBSD (nbsd) targets should (where applicable) match one or # more of the tuples: *-*-netbsdelf*, *-*-netbsdaout*, # *-*-netbsdecoff* and *-*-netbsd*. For targets that recently # switched to ELF, *-*-netbsd* would select the old # object file format. This provides both forward # compatibility and a consistent mechanism for selecting the # object file format. # # Note: NetBSD doesn't particularly care about the vendor # portion of the name. We always set it to "unknown". sysctl="sysctl -n hw.machine_arch" UNAME_MACHINE_ARCH=`(/sbin/$sysctl 2>/dev/null || \ /usr/sbin/$sysctl 2>/dev/null || echo unknown)` case "${UNAME_MACHINE_ARCH}" in armeb) machine=armeb-unknown ;; arm*) machine=arm-unknown ;; sh3el) machine=shl-unknown ;; sh3eb) machine=sh-unknown ;; sh5el) machine=sh5le-unknown ;; *) machine=${UNAME_MACHINE_ARCH}-unknown ;; esac # The Operating System including object format, if it has switched # to ELF recently, or will in the future. case "${UNAME_MACHINE_ARCH}" in arm*|i386|m68k|ns32k|sh3*|sparc|vax) eval $set_cc_for_build if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ELF__ then # Once all utilities can be ECOFF (netbsdecoff) or a.out (netbsdaout). # Return netbsd for either. FIX? os=netbsd else os=netbsdelf fi ;; *) os=netbsd ;; esac # The OS release # Debian GNU/NetBSD machines have a different userland, and # thus, need a distinct triplet. However, they do not need # kernel version information, so it can be replaced with a # suitable tag, in the style of linux-gnu. case "${UNAME_VERSION}" in Debian*) release='-gnu' ;; *) release=`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` ;; esac # Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM: # contains redundant information, the shorter form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used. echo "${machine}-${os}${release}" exit ;; *:OpenBSD:*:*) UNAME_MACHINE_ARCH=`arch | sed 's/OpenBSD.//'` echo ${UNAME_MACHINE_ARCH}-unknown-openbsd${UNAME_RELEASE} exit ;; *:ekkoBSD:*:*) echo ${UNAME_MACHINE}-unknown-ekkobsd${UNAME_RELEASE} exit ;; *:SolidBSD:*:*) echo ${UNAME_MACHINE}-unknown-solidbsd${UNAME_RELEASE} exit ;; macppc:MirBSD:*:*) echo powerpc-unknown-mirbsd${UNAME_RELEASE} exit ;; *:MirBSD:*:*) echo ${UNAME_MACHINE}-unknown-mirbsd${UNAME_RELEASE} exit ;; alpha:OSF1:*:*) case $UNAME_RELEASE in *4.0) UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $3}'` ;; *5.*) UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print $4}'` ;; esac # According to Compaq, /usr/sbin/psrinfo has been available on # OSF/1 and Tru64 systems produced since 1995. I hope that # covers most systems running today. This code pipes the CPU # types through head -n 1, so we only detect the type of CPU 0. ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha \(.*\) processor.*$/\1/p' | head -n 1` case "$ALPHA_CPU_TYPE" in "EV4 (21064)") UNAME_MACHINE="alpha" ;; "EV4.5 (21064)") UNAME_MACHINE="alpha" ;; "LCA4 (21066/21068)") UNAME_MACHINE="alpha" ;; "EV5 (21164)") UNAME_MACHINE="alphaev5" ;; "EV5.6 (21164A)") UNAME_MACHINE="alphaev56" ;; "EV5.6 (21164PC)") UNAME_MACHINE="alphapca56" ;; "EV5.7 (21164PC)") UNAME_MACHINE="alphapca57" ;; "EV6 (21264)") UNAME_MACHINE="alphaev6" ;; "EV6.7 (21264A)") UNAME_MACHINE="alphaev67" ;; "EV6.8CB (21264C)") UNAME_MACHINE="alphaev68" ;; "EV6.8AL (21264B)") UNAME_MACHINE="alphaev68" ;; "EV6.8CX (21264D)") UNAME_MACHINE="alphaev68" ;; "EV6.9A (21264/EV69A)") UNAME_MACHINE="alphaev69" ;; "EV7 (21364)") UNAME_MACHINE="alphaev7" ;; "EV7.9 (21364A)") UNAME_MACHINE="alphaev79" ;; esac # A Pn.n version is a patched version. # A Vn.n version is a released version. # A Tn.n version is a released field test version. # A Xn.n version is an unreleased experimental baselevel. # 1.2 uses "1.2" for uname -r. echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[PVTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` # Reset EXIT trap before exiting to avoid spurious non-zero exit code. exitcode=$? trap '' 0 exit $exitcode ;; Alpha\ *:Windows_NT*:*) # How do we know it's Interix rather than the generic POSIX subsystem? # Should we change UNAME_MACHINE based on the output of uname instead # of the specific Alpha model? echo alpha-pc-interix exit ;; 21064:Windows_NT:50:3) echo alpha-dec-winnt3.5 exit ;; Amiga*:UNIX_System_V:4.0:*) echo m68k-unknown-sysv4 exit ;; *:[Aa]miga[Oo][Ss]:*:*) echo ${UNAME_MACHINE}-unknown-amigaos exit ;; *:[Mm]orph[Oo][Ss]:*:*) echo ${UNAME_MACHINE}-unknown-morphos exit ;; *:OS/390:*:*) echo i370-ibm-openedition exit ;; *:z/VM:*:*) echo s390-ibm-zvmoe exit ;; *:OS400:*:*) echo powerpc-ibm-os400 exit ;; arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) echo arm-acorn-riscix${UNAME_RELEASE} exit ;; arm:riscos:*:*|arm:RISCOS:*:*) echo arm-unknown-riscos exit ;; SR2?01:HI-UX/MPP:*:* | SR8000:HI-UX/MPP:*:*) echo hppa1.1-hitachi-hiuxmpp exit ;; Pyramid*:OSx*:*:* | MIS*:OSx*:*:* | MIS*:SMP_DC-OSx*:*:*) # akee@wpdis03.wpafb.af.mil (Earle F. Ake) contributed MIS and NILE. if test "`(/bin/universe) 2>/dev/null`" = att ; then echo pyramid-pyramid-sysv3 else echo pyramid-pyramid-bsd fi exit ;; NILE*:*:*:dcosx) echo pyramid-pyramid-svr4 exit ;; DRS?6000:unix:4.0:6*) echo sparc-icl-nx6 exit ;; DRS?6000:UNIX_SV:4.2*:7* | DRS?6000:isis:4.2*:7*) case `/usr/bin/uname -p` in sparc) echo sparc-icl-nx7; exit ;; esac ;; s390x:SunOS:*:*) echo ${UNAME_MACHINE}-ibm-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4H:SunOS:5.*:*) echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:5.*:* | tadpole*:SunOS:5.*:*) echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; i86pc:AuroraUX:5.*:* | i86xen:AuroraUX:5.*:*) echo i386-pc-auroraux${UNAME_RELEASE} exit ;; i86pc:SunOS:5.*:* | i86xen:SunOS:5.*:*) eval $set_cc_for_build SUN_ARCH="i386" # If there is a compiler, see if it is configured for 64-bit objects. # Note that the Sun cc does not turn __LP64__ into 1 like gcc does. # This test works for both compilers. if [ "$CC_FOR_BUILD" != 'no_compiler_found' ]; then if (echo '#ifdef __amd64'; echo IS_64BIT_ARCH; echo '#endif') | \ (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | \ grep IS_64BIT_ARCH >/dev/null then SUN_ARCH="x86_64" fi fi echo ${SUN_ARCH}-pc-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:6*:*) # According to config.sub, this is the proper way to canonicalize # SunOS6. Hard to guess exactly what SunOS6 will be like, but # it's likely to be more like Solaris than SunOS4. echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; sun4*:SunOS:*:*) case "`/usr/bin/arch -k`" in Series*|S4*) UNAME_RELEASE=`uname -v` ;; esac # Japanese Language versions have a version number like `4.1.3-JL'. echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` exit ;; sun3*:SunOS:*:*) echo m68k-sun-sunos${UNAME_RELEASE} exit ;; sun*:*:4.2BSD:*) UNAME_RELEASE=`(sed 1q /etc/motd | awk '{print substr($5,1,3)}') 2>/dev/null` test "x${UNAME_RELEASE}" = "x" && UNAME_RELEASE=3 case "`/bin/arch`" in sun3) echo m68k-sun-sunos${UNAME_RELEASE} ;; sun4) echo sparc-sun-sunos${UNAME_RELEASE} ;; esac exit ;; aushp:SunOS:*:*) echo sparc-auspex-sunos${UNAME_RELEASE} exit ;; # The situation for MiNT is a little confusing. The machine name # can be virtually everything (everything which is not # "atarist" or "atariste" at least should have a processor # > m68000). The system name ranges from "MiNT" over "FreeMiNT" # to the lowercase version "mint" (or "freemint"). Finally # the system name "TOS" denotes a system which is actually not # MiNT. But MiNT is downward compatible to TOS, so this should # be no problem. atarist[e]:*MiNT:*:* | atarist[e]:*mint:*:* | atarist[e]:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; atari*:*MiNT:*:* | atari*:*mint:*:* | atarist[e]:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; *falcon*:*MiNT:*:* | *falcon*:*mint:*:* | *falcon*:*TOS:*:*) echo m68k-atari-mint${UNAME_RELEASE} exit ;; milan*:*MiNT:*:* | milan*:*mint:*:* | *milan*:*TOS:*:*) echo m68k-milan-mint${UNAME_RELEASE} exit ;; hades*:*MiNT:*:* | hades*:*mint:*:* | *hades*:*TOS:*:*) echo m68k-hades-mint${UNAME_RELEASE} exit ;; *:*MiNT:*:* | *:*mint:*:* | *:*TOS:*:*) echo m68k-unknown-mint${UNAME_RELEASE} exit ;; m68k:machten:*:*) echo m68k-apple-machten${UNAME_RELEASE} exit ;; powerpc:machten:*:*) echo powerpc-apple-machten${UNAME_RELEASE} exit ;; RISC*:Mach:*:*) echo mips-dec-mach_bsd4.3 exit ;; RISC*:ULTRIX:*:*) echo mips-dec-ultrix${UNAME_RELEASE} exit ;; VAX*:ULTRIX*:*:*) echo vax-dec-ultrix${UNAME_RELEASE} exit ;; 2020:CLIX:*:* | 2430:CLIX:*:*) echo clipper-intergraph-clix${UNAME_RELEASE} exit ;; mips:*:*:UMIPS | mips:*:*:RISCos) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #ifdef __cplusplus #include /* for printf() prototype */ int main (int argc, char *argv[]) { #else int main (argc, argv) int argc; char *argv[]; { #endif #if defined (host_mips) && defined (MIPSEB) #if defined (SYSTYPE_SYSV) printf ("mips-mips-riscos%ssysv\n", argv[1]); exit (0); #endif #if defined (SYSTYPE_SVR4) printf ("mips-mips-riscos%ssvr4\n", argv[1]); exit (0); #endif #if defined (SYSTYPE_BSD43) || defined(SYSTYPE_BSD) printf ("mips-mips-riscos%sbsd\n", argv[1]); exit (0); #endif #endif exit (-1); } EOF $CC_FOR_BUILD -o $dummy $dummy.c && dummyarg=`echo "${UNAME_RELEASE}" | sed -n 's/\([0-9]*\).*/\1/p'` && SYSTEM_NAME=`$dummy $dummyarg` && { echo "$SYSTEM_NAME"; exit; } echo mips-mips-riscos${UNAME_RELEASE} exit ;; Motorola:PowerMAX_OS:*:*) echo powerpc-motorola-powermax exit ;; Motorola:*:4.3:PL8-*) echo powerpc-harris-powermax exit ;; Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*) echo powerpc-harris-powermax exit ;; Night_Hawk:Power_UNIX:*:*) echo powerpc-harris-powerunix exit ;; m88k:CX/UX:7*:*) echo m88k-harris-cxux7 exit ;; m88k:*:4*:R4*) echo m88k-motorola-sysv4 exit ;; m88k:*:3*:R3*) echo m88k-motorola-sysv3 exit ;; AViiON:dgux:*:*) # DG/UX returns AViiON for all architectures UNAME_PROCESSOR=`/usr/bin/uname -p` if [ $UNAME_PROCESSOR = mc88100 ] || [ $UNAME_PROCESSOR = mc88110 ] then if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx ] || \ [ ${TARGET_BINARY_INTERFACE}x = x ] then echo m88k-dg-dgux${UNAME_RELEASE} else echo m88k-dg-dguxbcs${UNAME_RELEASE} fi else echo i586-dg-dgux${UNAME_RELEASE} fi exit ;; M88*:DolphinOS:*:*) # DolphinOS (SVR3) echo m88k-dolphin-sysv3 exit ;; M88*:*:R3*:*) # Delta 88k system running SVR3 echo m88k-motorola-sysv3 exit ;; XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) echo m88k-tektronix-sysv3 exit ;; Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) echo m68k-tektronix-bsd exit ;; *:IRIX*:*:*) echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'` exit ;; ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX. echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id exit ;; # Note that: echo "'`uname -s`'" gives 'AIX ' i*86:AIX:*:*) echo i386-ibm-aix exit ;; ia64:AIX:*:*) if [ -x /usr/bin/oslevel ] ; then IBM_REV=`/usr/bin/oslevel` else IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} fi echo ${UNAME_MACHINE}-ibm-aix${IBM_REV} exit ;; *:AIX:2:3) if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #include main() { if (!__power_pc()) exit(1); puts("powerpc-ibm-aix3.2.5"); exit(0); } EOF if $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy` then echo "$SYSTEM_NAME" else echo rs6000-ibm-aix3.2.5 fi elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then echo rs6000-ibm-aix3.2.4 else echo rs6000-ibm-aix3.2 fi exit ;; *:AIX:*:[4567]) IBM_CPU_ID=`/usr/sbin/lsdev -C -c processor -S available | sed 1q | awk '{ print $1 }'` if /usr/sbin/lsattr -El ${IBM_CPU_ID} | grep ' POWER' >/dev/null 2>&1; then IBM_ARCH=rs6000 else IBM_ARCH=powerpc fi if [ -x /usr/bin/oslevel ] ; then IBM_REV=`/usr/bin/oslevel` else IBM_REV=${UNAME_VERSION}.${UNAME_RELEASE} fi echo ${IBM_ARCH}-ibm-aix${IBM_REV} exit ;; *:AIX:*:*) echo rs6000-ibm-aix exit ;; ibmrt:4.4BSD:*|romp-ibm:BSD:*) echo romp-ibm-bsd4.4 exit ;; ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC BSD and echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to exit ;; # report: romp-ibm BSD 4.3 *:BOSX:*:*) echo rs6000-bull-bosx exit ;; DPX/2?00:B.O.S.:*:*) echo m68k-bull-sysv3 exit ;; 9000/[34]??:4.3bsd:1.*:*) echo m68k-hp-bsd exit ;; hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) echo m68k-hp-bsd4.4 exit ;; 9000/[34678]??:HP-UX:*:*) HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` case "${UNAME_MACHINE}" in 9000/31? ) HP_ARCH=m68000 ;; 9000/[34]?? ) HP_ARCH=m68k ;; 9000/[678][0-9][0-9]) if [ -x /usr/bin/getconf ]; then sc_cpu_version=`/usr/bin/getconf SC_CPU_VERSION 2>/dev/null` sc_kernel_bits=`/usr/bin/getconf SC_KERNEL_BITS 2>/dev/null` case "${sc_cpu_version}" in 523) HP_ARCH="hppa1.0" ;; # CPU_PA_RISC1_0 528) HP_ARCH="hppa1.1" ;; # CPU_PA_RISC1_1 532) # CPU_PA_RISC2_0 case "${sc_kernel_bits}" in 32) HP_ARCH="hppa2.0n" ;; 64) HP_ARCH="hppa2.0w" ;; '') HP_ARCH="hppa2.0" ;; # HP-UX 10.20 esac ;; esac fi if [ "${HP_ARCH}" = "" ]; then eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #define _HPUX_SOURCE #include #include int main () { #if defined(_SC_KERNEL_BITS) long bits = sysconf(_SC_KERNEL_BITS); #endif long cpu = sysconf (_SC_CPU_VERSION); switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0"); break; case CPU_PA_RISC1_1: puts ("hppa1.1"); break; case CPU_PA_RISC2_0: #if defined(_SC_KERNEL_BITS) switch (bits) { case 64: puts ("hppa2.0w"); break; case 32: puts ("hppa2.0n"); break; default: puts ("hppa2.0"); break; } break; #else /* !defined(_SC_KERNEL_BITS) */ puts ("hppa2.0"); break; #endif default: puts ("hppa1.0"); break; } exit (0); } EOF (CCOPTS= $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null) && HP_ARCH=`$dummy` test -z "$HP_ARCH" && HP_ARCH=hppa fi ;; esac if [ ${HP_ARCH} = "hppa2.0w" ] then eval $set_cc_for_build # hppa2.0w-hp-hpux* has a 64-bit kernel and a compiler generating # 32-bit code. hppa64-hp-hpux* has the same kernel and a compiler # generating 64-bit code. GNU and HP use different nomenclature: # # $ CC_FOR_BUILD=cc ./config.guess # => hppa2.0w-hp-hpux11.23 # $ CC_FOR_BUILD="cc +DA2.0w" ./config.guess # => hppa64-hp-hpux11.23 if echo __LP64__ | (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | grep -q __LP64__ then HP_ARCH="hppa2.0w" else HP_ARCH="hppa64" fi fi echo ${HP_ARCH}-hp-hpux${HPUX_REV} exit ;; ia64:HP-UX:*:*) HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` echo ia64-hp-hpux${HPUX_REV} exit ;; 3050*:HI-UX:*:*) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #include int main () { long cpu = sysconf (_SC_CPU_VERSION); /* The order matters, because CPU_IS_HP_MC68K erroneously returns true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct results, however. */ if (CPU_IS_PA_RISC (cpu)) { switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; default: puts ("hppa-hitachi-hiuxwe2"); break; } } else if (CPU_IS_HP_MC68K (cpu)) puts ("m68k-hitachi-hiuxwe2"); else puts ("unknown-hitachi-hiuxwe2"); exit (0); } EOF $CC_FOR_BUILD -o $dummy $dummy.c && SYSTEM_NAME=`$dummy` && { echo "$SYSTEM_NAME"; exit; } echo unknown-hitachi-hiuxwe2 exit ;; 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* ) echo hppa1.1-hp-bsd exit ;; 9000/8??:4.3bsd:*:*) echo hppa1.0-hp-bsd exit ;; *9??*:MPE/iX:*:* | *3000*:MPE/iX:*:*) echo hppa1.0-hp-mpeix exit ;; hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* ) echo hppa1.1-hp-osf exit ;; hp8??:OSF1:*:*) echo hppa1.0-hp-osf exit ;; i*86:OSF1:*:*) if [ -x /usr/sbin/sysversion ] ; then echo ${UNAME_MACHINE}-unknown-osf1mk else echo ${UNAME_MACHINE}-unknown-osf1 fi exit ;; parisc*:Lites*:*:*) echo hppa1.1-hp-lites exit ;; C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) echo c1-convex-bsd exit ;; C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit ;; C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) echo c34-convex-bsd exit ;; C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) echo c38-convex-bsd exit ;; C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) echo c4-convex-bsd exit ;; CRAY*Y-MP:*:*:*) echo ymp-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*[A-Z]90:*:*:*) echo ${UNAME_MACHINE}-cray-unicos${UNAME_RELEASE} \ | sed -e 's/CRAY.*\([A-Z]90\)/\1/' \ -e y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/ \ -e 's/\.[^.]*$/.X/' exit ;; CRAY*TS:*:*:*) echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*T3E:*:*:*) echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; CRAY*SV1:*:*:*) echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; *:UNICOS/mp:*:*) echo craynv-cray-unicosmp${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/' exit ;; F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*) FUJITSU_PROC=`uname -m | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'` FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` FUJITSU_REL=`echo ${UNAME_RELEASE} | sed -e 's/ /_/'` echo "${FUJITSU_PROC}-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; 5000:UNIX_System_V:4.*:*) FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'` FUJITSU_REL=`echo ${UNAME_RELEASE} | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/ /_/'` echo "sparc-fujitsu-${FUJITSU_SYS}${FUJITSU_REL}" exit ;; i*86:BSD/386:*:* | i*86:BSD/OS:*:* | *:Ascend\ Embedded/OS:*:*) echo ${UNAME_MACHINE}-pc-bsdi${UNAME_RELEASE} exit ;; sparc*:BSD/OS:*:*) echo sparc-unknown-bsdi${UNAME_RELEASE} exit ;; *:BSD/OS:*:*) echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} exit ;; *:FreeBSD:*:*) UNAME_PROCESSOR=`/usr/bin/uname -p` case ${UNAME_PROCESSOR} in amd64) echo x86_64-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; *) echo ${UNAME_PROCESSOR}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` ;; esac exit ;; i*:CYGWIN*:*) echo ${UNAME_MACHINE}-pc-cygwin exit ;; *:MINGW*:*) echo ${UNAME_MACHINE}-pc-mingw32 exit ;; i*:MSYS*:*) echo ${UNAME_MACHINE}-pc-msys exit ;; i*:windows32*:*) # uname -m includes "-pc" on this system. echo ${UNAME_MACHINE}-mingw32 exit ;; i*:PW*:*) echo ${UNAME_MACHINE}-pc-pw32 exit ;; *:Interix*:*) case ${UNAME_MACHINE} in x86) echo i586-pc-interix${UNAME_RELEASE} exit ;; authenticamd | genuineintel | EM64T) echo x86_64-unknown-interix${UNAME_RELEASE} exit ;; IA64) echo ia64-unknown-interix${UNAME_RELEASE} exit ;; esac ;; [345]86:Windows_95:* | [345]86:Windows_98:* | [345]86:Windows_NT:*) echo i${UNAME_MACHINE}-pc-mks exit ;; 8664:Windows_NT:*) echo x86_64-pc-mks exit ;; i*:Windows_NT*:* | Pentium*:Windows_NT*:*) # How do we know it's Interix rather than the generic POSIX subsystem? # It also conflicts with pre-2.0 versions of AT&T UWIN. Should we # UNAME_MACHINE based on the output of uname instead of i386? echo i586-pc-interix exit ;; i*:UWIN*:*) echo ${UNAME_MACHINE}-pc-uwin exit ;; amd64:CYGWIN*:*:* | x86_64:CYGWIN*:*:*) echo x86_64-unknown-cygwin exit ;; p*:CYGWIN*:*) echo powerpcle-unknown-cygwin exit ;; prep*:SunOS:5.*:*) echo powerpcle-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit ;; *:GNU:*:*) # the GNU system echo `echo ${UNAME_MACHINE}|sed -e 's,[-/].*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'` exit ;; *:GNU/*:*:*) # other systems with GNU libc and userland echo ${UNAME_MACHINE}-unknown-`echo ${UNAME_SYSTEM} | sed 's,^[^/]*/,,' | tr '[A-Z]' '[a-z]'``echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`-gnu exit ;; i*86:Minix:*:*) echo ${UNAME_MACHINE}-pc-minix exit ;; aarch64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; aarch64_be:Linux:*:*) UNAME_MACHINE=aarch64_be echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; alpha:Linux:*:*) case `sed -n '/^cpu model/s/^.*: \(.*\)/\1/p' < /proc/cpuinfo` in EV5) UNAME_MACHINE=alphaev5 ;; EV56) UNAME_MACHINE=alphaev56 ;; PCA56) UNAME_MACHINE=alphapca56 ;; PCA57) UNAME_MACHINE=alphapca56 ;; EV6) UNAME_MACHINE=alphaev6 ;; EV67) UNAME_MACHINE=alphaev67 ;; EV68*) UNAME_MACHINE=alphaev68 ;; esac objdump --private-headers /bin/sh | grep -q ld.so.1 if test "$?" = 0 ; then LIBC="libc1" ; else LIBC="" ; fi echo ${UNAME_MACHINE}-unknown-linux-gnu${LIBC} exit ;; arm*:Linux:*:*) eval $set_cc_for_build if echo __ARM_EABI__ | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ARM_EABI__ then echo ${UNAME_MACHINE}-unknown-linux-gnu else if echo __ARM_PCS_VFP | $CC_FOR_BUILD -E - 2>/dev/null \ | grep -q __ARM_PCS_VFP then echo ${UNAME_MACHINE}-unknown-linux-gnueabi else echo ${UNAME_MACHINE}-unknown-linux-gnueabihf fi fi exit ;; avr32*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; cris:Linux:*:*) echo ${UNAME_MACHINE}-axis-linux-gnu exit ;; crisv32:Linux:*:*) echo ${UNAME_MACHINE}-axis-linux-gnu exit ;; frv:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; hexagon:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; i*86:Linux:*:*) LIBC=gnu eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #ifdef __dietlibc__ LIBC=dietlibc #endif EOF eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^LIBC'` echo "${UNAME_MACHINE}-pc-linux-${LIBC}" exit ;; ia64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; m32r*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; m68*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; mips:Linux:*:* | mips64:Linux:*:*) eval $set_cc_for_build sed 's/^ //' << EOF >$dummy.c #undef CPU #undef ${UNAME_MACHINE} #undef ${UNAME_MACHINE}el #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL) CPU=${UNAME_MACHINE}el #else #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB) CPU=${UNAME_MACHINE} #else CPU= #endif #endif EOF eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep '^CPU'` test x"${CPU}" != x && { echo "${CPU}-unknown-linux-gnu"; exit; } ;; or32:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; padre:Linux:*:*) echo sparc-unknown-linux-gnu exit ;; parisc64:Linux:*:* | hppa64:Linux:*:*) echo hppa64-unknown-linux-gnu exit ;; parisc:Linux:*:* | hppa:Linux:*:*) # Look for CPU level case `grep '^cpu[^a-z]*:' /proc/cpuinfo 2>/dev/null | cut -d' ' -f2` in PA7*) echo hppa1.1-unknown-linux-gnu ;; PA8*) echo hppa2.0-unknown-linux-gnu ;; *) echo hppa-unknown-linux-gnu ;; esac exit ;; ppc64:Linux:*:*) echo powerpc64-unknown-linux-gnu exit ;; ppc:Linux:*:*) echo powerpc-unknown-linux-gnu exit ;; s390:Linux:*:* | s390x:Linux:*:*) echo ${UNAME_MACHINE}-ibm-linux exit ;; sh64*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; sh*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; sparc:Linux:*:* | sparc64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; tile*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; vax:Linux:*:*) echo ${UNAME_MACHINE}-dec-linux-gnu exit ;; x86_64:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; xtensa*:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux-gnu exit ;; i*86:DYNIX/ptx:4*:*) # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. # earlier versions are messed up and put the nodename in both # sysname and nodename. echo i386-sequent-sysv4 exit ;; i*86:UNIX_SV:4.2MP:2.*) # Unixware is an offshoot of SVR4, but it has its own version # number series starting with 2... # I am not positive that other SVR4 systems won't match this, # I just have to hope. -- rms. # Use sysv4.2uw... so that sysv4* matches it. echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION} exit ;; i*86:OS/2:*:*) # If we were able to find `uname', then EMX Unix compatibility # is probably installed. echo ${UNAME_MACHINE}-pc-os2-emx exit ;; i*86:XTS-300:*:STOP) echo ${UNAME_MACHINE}-unknown-stop exit ;; i*86:atheos:*:*) echo ${UNAME_MACHINE}-unknown-atheos exit ;; i*86:syllable:*:*) echo ${UNAME_MACHINE}-pc-syllable exit ;; i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.[02]*:*) echo i386-unknown-lynxos${UNAME_RELEASE} exit ;; i*86:*DOS:*:*) echo ${UNAME_MACHINE}-pc-msdosdjgpp exit ;; i*86:*:4.*:* | i*86:SYSTEM_V:4.*:*) UNAME_REL=`echo ${UNAME_RELEASE} | sed 's/\/MP$//'` if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then echo ${UNAME_MACHINE}-univel-sysv${UNAME_REL} else echo ${UNAME_MACHINE}-pc-sysv${UNAME_REL} fi exit ;; i*86:*:5:[678]*) # UnixWare 7.x, OpenUNIX and OpenServer 6. case `/bin/uname -X | grep "^Machine"` in *486*) UNAME_MACHINE=i486 ;; *Pentium) UNAME_MACHINE=i586 ;; *Pent*|*Celeron) UNAME_MACHINE=i686 ;; esac echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE}${UNAME_SYSTEM}${UNAME_VERSION} exit ;; i*86:*:3.2:*) if test -f /usr/options/cb.name; then UNAME_REL=`sed -n 's/.*Version //p' /dev/null >/dev/null ; then UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')` (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486 (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \ && UNAME_MACHINE=i586 (/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \ && UNAME_MACHINE=i686 (/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \ && UNAME_MACHINE=i686 echo ${UNAME_MACHINE}-pc-sco$UNAME_REL else echo ${UNAME_MACHINE}-pc-sysv32 fi exit ;; pc:*:*:*) # Left here for compatibility: # uname -m prints for DJGPP always 'pc', but it prints nothing about # the processor, so we play safe by assuming i586. # Note: whatever this is, it MUST be the same as what config.sub # prints for the "djgpp" host, or else GDB configury will decide that # this is a cross-build. echo i586-pc-msdosdjgpp exit ;; Intel:Mach:3*:*) echo i386-pc-mach3 exit ;; paragon:*:*:*) echo i860-intel-osf1 exit ;; i860:*:4.*:*) # i860-SVR4 if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4 else # Add other i860-SVR4 vendors below as they are discovered. echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4 fi exit ;; mini*:CTIX:SYS*5:*) # "miniframe" echo m68010-convergent-sysv exit ;; mc68k:UNIX:SYSTEM5:3.51m) echo m68k-convergent-sysv exit ;; M680?0:D-NIX:5.3:*) echo m68k-diab-dnix exit ;; M68*:*:R3V[5678]*:*) test -r /sysV68 && { echo 'm68k-motorola-sysv'; exit; } ;; 3[345]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0 | S7501*:*:4.0:3.0) OS_REL='' test -r /etc/.relid \ && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4.3${OS_REL}; exit; } /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ && { echo i586-ncr-sysv4.3${OS_REL}; exit; } ;; 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*) /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4; exit; } ;; NCR*:*:4.2:* | MPRAS*:*:4.2:*) OS_REL='.3' test -r /etc/.relid \ && OS_REL=.`sed -n 's/[^ ]* [^ ]* \([0-9][0-9]\).*/\1/p' < /etc/.relid` /bin/uname -p 2>/dev/null | grep 86 >/dev/null \ && { echo i486-ncr-sysv4.3${OS_REL}; exit; } /bin/uname -p 2>/dev/null | /bin/grep entium >/dev/null \ && { echo i586-ncr-sysv4.3${OS_REL}; exit; } /bin/uname -p 2>/dev/null | /bin/grep pteron >/dev/null \ && { echo i586-ncr-sysv4.3${OS_REL}; exit; } ;; m68*:LynxOS:2.*:* | m68*:LynxOS:3.0*:*) echo m68k-unknown-lynxos${UNAME_RELEASE} exit ;; mc68030:UNIX_System_V:4.*:*) echo m68k-atari-sysv4 exit ;; TSUNAMI:LynxOS:2.*:*) echo sparc-unknown-lynxos${UNAME_RELEASE} exit ;; rs6000:LynxOS:2.*:*) echo rs6000-unknown-lynxos${UNAME_RELEASE} exit ;; PowerPC:LynxOS:2.*:* | PowerPC:LynxOS:3.[01]*:* | PowerPC:LynxOS:4.[02]*:*) echo powerpc-unknown-lynxos${UNAME_RELEASE} exit ;; SM[BE]S:UNIX_SV:*:*) echo mips-dde-sysv${UNAME_RELEASE} exit ;; RM*:ReliantUNIX-*:*:*) echo mips-sni-sysv4 exit ;; RM*:SINIX-*:*:*) echo mips-sni-sysv4 exit ;; *:SINIX-*:*:*) if uname -p 2>/dev/null >/dev/null ; then UNAME_MACHINE=`(uname -p) 2>/dev/null` echo ${UNAME_MACHINE}-sni-sysv4 else echo ns32k-sni-sysv fi exit ;; PENTIUM:*:4.0*:*) # Unisys `ClearPath HMP IX 4000' SVR4/MP effort # says echo i586-unisys-sysv4 exit ;; *:UNIX_System_V:4*:FTX*) # From Gerald Hewes . # How about differentiating between stratus architectures? -djm echo hppa1.1-stratus-sysv4 exit ;; *:*:*:FTX*) # From seanf@swdc.stratus.com. echo i860-stratus-sysv4 exit ;; i*86:VOS:*:*) # From Paul.Green@stratus.com. echo ${UNAME_MACHINE}-stratus-vos exit ;; *:VOS:*:*) # From Paul.Green@stratus.com. echo hppa1.1-stratus-vos exit ;; mc68*:A/UX:*:*) echo m68k-apple-aux${UNAME_RELEASE} exit ;; news*:NEWS-OS:6*:*) echo mips-sony-newsos6 exit ;; R[34]000:*System_V*:*:* | R4000:UNIX_SYSV:*:* | R*000:UNIX_SV:*:*) if [ -d /usr/nec ]; then echo mips-nec-sysv${UNAME_RELEASE} else echo mips-unknown-sysv${UNAME_RELEASE} fi exit ;; BeBox:BeOS:*:*) # BeOS running on hardware made by Be, PPC only. echo powerpc-be-beos exit ;; BeMac:BeOS:*:*) # BeOS running on Mac or Mac clone, PPC only. echo powerpc-apple-beos exit ;; BePC:BeOS:*:*) # BeOS running on Intel PC compatible. echo i586-pc-beos exit ;; BePC:Haiku:*:*) # Haiku running on Intel PC compatible. echo i586-pc-haiku exit ;; SX-4:SUPER-UX:*:*) echo sx4-nec-superux${UNAME_RELEASE} exit ;; SX-5:SUPER-UX:*:*) echo sx5-nec-superux${UNAME_RELEASE} exit ;; SX-6:SUPER-UX:*:*) echo sx6-nec-superux${UNAME_RELEASE} exit ;; SX-7:SUPER-UX:*:*) echo sx7-nec-superux${UNAME_RELEASE} exit ;; SX-8:SUPER-UX:*:*) echo sx8-nec-superux${UNAME_RELEASE} exit ;; SX-8R:SUPER-UX:*:*) echo sx8r-nec-superux${UNAME_RELEASE} exit ;; Power*:Rhapsody:*:*) echo powerpc-apple-rhapsody${UNAME_RELEASE} exit ;; *:Rhapsody:*:*) echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE} exit ;; *:Darwin:*:*) UNAME_PROCESSOR=`uname -p` || UNAME_PROCESSOR=unknown case $UNAME_PROCESSOR in i386) eval $set_cc_for_build if [ "$CC_FOR_BUILD" != 'no_compiler_found' ]; then if (echo '#ifdef __LP64__'; echo IS_64BIT_ARCH; echo '#endif') | \ (CCOPTS= $CC_FOR_BUILD -E - 2>/dev/null) | \ grep IS_64BIT_ARCH >/dev/null then UNAME_PROCESSOR="x86_64" fi fi ;; unknown) UNAME_PROCESSOR=powerpc ;; esac echo ${UNAME_PROCESSOR}-apple-darwin${UNAME_RELEASE} exit ;; *:procnto*:*:* | *:QNX:[0123456789]*:*) UNAME_PROCESSOR=`uname -p` if test "$UNAME_PROCESSOR" = "x86"; then UNAME_PROCESSOR=i386 UNAME_MACHINE=pc fi echo ${UNAME_PROCESSOR}-${UNAME_MACHINE}-nto-qnx${UNAME_RELEASE} exit ;; *:QNX:*:4*) echo i386-pc-qnx exit ;; NEO-?:NONSTOP_KERNEL:*:*) echo neo-tandem-nsk${UNAME_RELEASE} exit ;; NSE-?:NONSTOP_KERNEL:*:*) echo nse-tandem-nsk${UNAME_RELEASE} exit ;; NSR-?:NONSTOP_KERNEL:*:*) echo nsr-tandem-nsk${UNAME_RELEASE} exit ;; *:NonStop-UX:*:*) echo mips-compaq-nonstopux exit ;; BS2000:POSIX*:*:*) echo bs2000-siemens-sysv exit ;; DS/*:UNIX_System_V:*:*) echo ${UNAME_MACHINE}-${UNAME_SYSTEM}-${UNAME_RELEASE} exit ;; *:Plan9:*:*) # "uname -m" is not consistent, so use $cputype instead. 386 # is converted to i386 for consistency with other x86 # operating systems. if test "$cputype" = "386"; then UNAME_MACHINE=i386 else UNAME_MACHINE="$cputype" fi echo ${UNAME_MACHINE}-unknown-plan9 exit ;; *:TOPS-10:*:*) echo pdp10-unknown-tops10 exit ;; *:TENEX:*:*) echo pdp10-unknown-tenex exit ;; KS10:TOPS-20:*:* | KL10:TOPS-20:*:* | TYPE4:TOPS-20:*:*) echo pdp10-dec-tops20 exit ;; XKL-1:TOPS-20:*:* | TYPE5:TOPS-20:*:*) echo pdp10-xkl-tops20 exit ;; *:TOPS-20:*:*) echo pdp10-unknown-tops20 exit ;; *:ITS:*:*) echo pdp10-unknown-its exit ;; SEI:*:*:SEIUX) echo mips-sei-seiux${UNAME_RELEASE} exit ;; *:DragonFly:*:*) echo ${UNAME_MACHINE}-unknown-dragonfly`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` exit ;; *:*VMS:*:*) UNAME_MACHINE=`(uname -p) 2>/dev/null` case "${UNAME_MACHINE}" in A*) echo alpha-dec-vms ; exit ;; I*) echo ia64-dec-vms ; exit ;; V*) echo vax-dec-vms ; exit ;; esac ;; *:XENIX:*:SysV) echo i386-pc-xenix exit ;; i*86:skyos:*:*) echo ${UNAME_MACHINE}-pc-skyos`echo ${UNAME_RELEASE}` | sed -e 's/ .*$//' exit ;; i*86:rdos:*:*) echo ${UNAME_MACHINE}-pc-rdos exit ;; i*86:AROS:*:*) echo ${UNAME_MACHINE}-pc-aros exit ;; x86_64:VMkernel:*:*) echo ${UNAME_MACHINE}-unknown-esx exit ;; esac #echo '(No uname command or uname output not recognized.)' 1>&2 #echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2 eval $set_cc_for_build cat >$dummy.c < # include #endif main () { #if defined (sony) #if defined (MIPSEB) /* BFD wants "bsd" instead of "newsos". Perhaps BFD should be changed, I don't know.... */ printf ("mips-sony-bsd\n"); exit (0); #else #include printf ("m68k-sony-newsos%s\n", #ifdef NEWSOS4 "4" #else "" #endif ); exit (0); #endif #endif #if defined (__arm) && defined (__acorn) && defined (__unix) printf ("arm-acorn-riscix\n"); exit (0); #endif #if defined (hp300) && !defined (hpux) printf ("m68k-hp-bsd\n"); exit (0); #endif #if defined (NeXT) #if !defined (__ARCHITECTURE__) #define __ARCHITECTURE__ "m68k" #endif int version; version=`(hostinfo | sed -n 's/.*NeXT Mach \([0-9]*\).*/\1/p') 2>/dev/null`; if (version < 4) printf ("%s-next-nextstep%d\n", __ARCHITECTURE__, version); else printf ("%s-next-openstep%d\n", __ARCHITECTURE__, version); exit (0); #endif #if defined (MULTIMAX) || defined (n16) #if defined (UMAXV) printf ("ns32k-encore-sysv\n"); exit (0); #else #if defined (CMU) printf ("ns32k-encore-mach\n"); exit (0); #else printf ("ns32k-encore-bsd\n"); exit (0); #endif #endif #endif #if defined (__386BSD__) printf ("i386-pc-bsd\n"); exit (0); #endif #if defined (sequent) #if defined (i386) printf ("i386-sequent-dynix\n"); exit (0); #endif #if defined (ns32000) printf ("ns32k-sequent-dynix\n"); exit (0); #endif #endif #if defined (_SEQUENT_) struct utsname un; uname(&un); if (strncmp(un.version, "V2", 2) == 0) { printf ("i386-sequent-ptx2\n"); exit (0); } if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */ printf ("i386-sequent-ptx1\n"); exit (0); } printf ("i386-sequent-ptx\n"); exit (0); #endif #if defined (vax) # if !defined (ultrix) # include # if defined (BSD) # if BSD == 43 printf ("vax-dec-bsd4.3\n"); exit (0); # else # if BSD == 199006 printf ("vax-dec-bsd4.3reno\n"); exit (0); # else printf ("vax-dec-bsd\n"); exit (0); # endif # endif # else printf ("vax-dec-bsd\n"); exit (0); # endif # else printf ("vax-dec-ultrix\n"); exit (0); # endif #endif #if defined (alliant) && defined (i860) printf ("i860-alliant-bsd\n"); exit (0); #endif exit (1); } EOF $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null && SYSTEM_NAME=`$dummy` && { echo "$SYSTEM_NAME"; exit; } # Apollos put the system type in the environment. test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit; } # Convex versions that predate uname can use getsysinfo(1) if [ -x /usr/convex/getsysinfo ] then case `getsysinfo -f cpu_type` in c1*) echo c1-convex-bsd exit ;; c2*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit ;; c34*) echo c34-convex-bsd exit ;; c38*) echo c38-convex-bsd exit ;; c4*) echo c4-convex-bsd exit ;; esac fi cat >&2 < in order to provide the needed information to handle your system. config.guess timestamp = $timestamp uname -m = `(uname -m) 2>/dev/null || echo unknown` uname -r = `(uname -r) 2>/dev/null || echo unknown` uname -s = `(uname -s) 2>/dev/null || echo unknown` uname -v = `(uname -v) 2>/dev/null || echo unknown` /usr/bin/uname -p = `(/usr/bin/uname -p) 2>/dev/null` /bin/uname -X = `(/bin/uname -X) 2>/dev/null` hostinfo = `(hostinfo) 2>/dev/null` /bin/universe = `(/bin/universe) 2>/dev/null` /usr/bin/arch -k = `(/usr/bin/arch -k) 2>/dev/null` /bin/arch = `(/bin/arch) 2>/dev/null` /usr/bin/oslevel = `(/usr/bin/oslevel) 2>/dev/null` /usr/convex/getsysinfo = `(/usr/convex/getsysinfo) 2>/dev/null` UNAME_MACHINE = ${UNAME_MACHINE} UNAME_RELEASE = ${UNAME_RELEASE} UNAME_SYSTEM = ${UNAME_SYSTEM} UNAME_VERSION = ${UNAME_VERSION} EOF exit 1 # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: trueprint-5.4/config.h.in0000644000175000017500000000664512117066451012400 00000000000000/* config.h.in. Generated from configure.ac by autoheader. */ /* Define to 1 if you have the header file. */ #undef HAVE_DLFCN_H /* Define to 1 if you have the header file. */ #undef HAVE_FCNTL_H /* Define to 1 if you have the `fork' function. */ #undef HAVE_FORK /* Define to 1 if you have the header file. */ #undef HAVE_INTTYPES_H /* Define to 1 if you have the header file. */ #undef HAVE_LIBINTL_H /* Define to 1 if your system has a GNU libc compatible `malloc' function, and to 0 otherwise. */ #undef HAVE_MALLOC /* Define to 1 if you have the header file. */ #undef HAVE_MEMORY_H /* Define to 1 if you have the `memset' function. */ #undef HAVE_MEMSET /* Define to 1 if your system has a GNU libc compatible `realloc' function, and to 0 otherwise. */ #undef HAVE_REALLOC /* Define to 1 if you have the header file. */ #undef HAVE_STDDEF_H /* Define to 1 if you have the header file. */ #undef HAVE_STDINT_H /* Define to 1 if you have the header file. */ #undef HAVE_STDLIB_H /* Define to 1 if you have the `strchr' function. */ #undef HAVE_STRCHR /* Define to 1 if you have the `strdup' function. */ #undef HAVE_STRDUP /* Define to 1 if you have the `strerror' function. */ #undef HAVE_STRERROR /* Define to 1 if you have the header file. */ #undef HAVE_STRINGS_H /* Define to 1 if you have the header file. */ #undef HAVE_STRING_H /* Define to 1 if you have the `strrchr' function. */ #undef HAVE_STRRCHR /* Define to 1 if you have the `strstr' function. */ #undef HAVE_STRSTR /* Define to 1 if you have the `strtol' function. */ #undef HAVE_STRTOL /* Define to 1 if you have the header file. */ #undef HAVE_SYS_STAT_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_TIME_H /* Define to 1 if you have the header file. */ #undef HAVE_SYS_TYPES_H /* Define to 1 if you have the header file. */ #undef HAVE_UNISTD_H /* Define to 1 if you have the `vfork' function. */ #undef HAVE_VFORK /* Define to 1 if you have the header file. */ #undef HAVE_VFORK_H /* Define to 1 if `fork' works. */ #undef HAVE_WORKING_FORK /* Define to 1 if `vfork' works. */ #undef HAVE_WORKING_VFORK /* Define to 1 if the system has the type `_Bool'. */ #undef HAVE__BOOL /* Define to the sub-directory in which libtool stores uninstalled libraries. */ #undef LT_OBJDIR /* Define to the address where bug reports for this package should be sent. */ #undef PACKAGE_BUGREPORT /* Define to the full name of this package. */ #undef PACKAGE_NAME /* Define to the full name and version of this package. */ #undef PACKAGE_STRING /* Define to the one symbol short name of this package. */ #undef PACKAGE_TARNAME /* Define to the home page for this package. */ #undef PACKAGE_URL /* Define to the version of this package. */ #undef PACKAGE_VERSION /* Define to 1 if you have the ANSI C header files. */ #undef STDC_HEADERS /* Define to rpl_malloc if the replacement function should be used. */ #undef malloc /* Define to `long int' if does not define. */ #undef off_t /* Define to `int' if does not define. */ #undef pid_t /* Define to rpl_realloc if the replacement function should be used. */ #undef realloc /* Define to `unsigned int' if does not define. */ #undef size_t /* Define as `fork' if `vfork' does not work. */ #undef vfork trueprint-5.4/configure.ac0000644000175000017500000000171512116637574012645 00000000000000# -*- Autoconf -*- # Process this file with autoconf to produce a configure script. AC_PREREQ([2.69]) AC_INIT([GNU Trueprint],[5.4],[bug-trueprint@gnu.org]) #AC_CONFIG_SRCDIR([acconfig.h]) AC_CONFIG_HEADERS([config.h]) AC_CONFIG_MACRO_DIR([m4]) AM_INIT_AUTOMAKE([1.11.6 foreign no-define]) # Checks for programs. AC_PROG_CC AC_PROG_LIBTOOL # Checks for libraries. # Checks for header files. AC_CHECK_HEADERS([fcntl.h libintl.h stddef.h stdlib.h string.h sys/time.h unistd.h]) # Checks for typedefs, structures, and compiler characteristics. AC_CHECK_HEADER_STDBOOL AC_TYPE_OFF_T AC_TYPE_PID_T AC_TYPE_SIZE_T # Checks for library functions. AC_FUNC_FORK AC_FUNC_MALLOC AC_FUNC_REALLOC AC_CHECK_FUNCS([memset strchr strdup strerror strrchr strstr strtol]) AC_CONFIG_FILES([Makefile doc/Makefile replace/Makefile src/Makefile tests/Makefile]) AC_OUTPUT trueprint-5.4/install-sh0000755000175000017500000003325612116415062012352 00000000000000#!/bin/sh # install - install a program, script, or datafile scriptversion=2011-01-19.21; # UTC # This originates from X11R5 (mit/util/scripts/install.sh), which was # later released in X11R6 (xc/config/util/install.sh) with the # following copyright and license. # # Copyright (C) 1994 X Consortium # # Permission is hereby granted, free of charge, to any person obtaining a copy # of this software and associated documentation files (the "Software"), to # deal in the Software without restriction, including without limitation the # rights to use, copy, modify, merge, publish, distribute, sublicense, and/or # sell copies of the Software, and to permit persons to whom the Software is # furnished to do so, subject to the following conditions: # # The above copyright notice and this permission notice shall be included in # all copies or substantial portions of the Software. # # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE # X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN # AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNEC- # TION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. # # Except as contained in this notice, the name of the X Consortium shall not # be used in advertising or otherwise to promote the sale, use or other deal- # ings in this Software without prior written authorization from the X Consor- # tium. # # # FSF changes to this file are in the public domain. # # Calling this script install-sh is preferred over install.sh, to prevent # `make' implicit rules from creating a file called install from it # when there is no Makefile. # # This script is compatible with the BSD install script, but was written # from scratch. nl=' ' IFS=" "" $nl" # set DOITPROG to echo to test this script # Don't use :- since 4.3BSD and earlier shells don't like it. doit=${DOITPROG-} if test -z "$doit"; then doit_exec=exec else doit_exec=$doit fi # Put in absolute file names if you don't have them in your path; # or use environment vars. chgrpprog=${CHGRPPROG-chgrp} chmodprog=${CHMODPROG-chmod} chownprog=${CHOWNPROG-chown} cmpprog=${CMPPROG-cmp} cpprog=${CPPROG-cp} mkdirprog=${MKDIRPROG-mkdir} mvprog=${MVPROG-mv} rmprog=${RMPROG-rm} stripprog=${STRIPPROG-strip} posix_glob='?' initialize_posix_glob=' test "$posix_glob" != "?" || { if (set -f) 2>/dev/null; then posix_glob= else posix_glob=: fi } ' posix_mkdir= # Desired mode of installed file. mode=0755 chgrpcmd= chmodcmd=$chmodprog chowncmd= mvcmd=$mvprog rmcmd="$rmprog -f" stripcmd= src= dst= dir_arg= dst_arg= copy_on_change=false no_target_directory= usage="\ Usage: $0 [OPTION]... [-T] SRCFILE DSTFILE or: $0 [OPTION]... SRCFILES... DIRECTORY or: $0 [OPTION]... -t DIRECTORY SRCFILES... or: $0 [OPTION]... -d DIRECTORIES... In the 1st form, copy SRCFILE to DSTFILE. In the 2nd and 3rd, copy all SRCFILES to DIRECTORY. In the 4th, create DIRECTORIES. Options: --help display this help and exit. --version display version info and exit. -c (ignored) -C install only if different (preserve the last data modification time) -d create directories instead of installing files. -g GROUP $chgrpprog installed files to GROUP. -m MODE $chmodprog installed files to MODE. -o USER $chownprog installed files to USER. -s $stripprog installed files. -t DIRECTORY install into DIRECTORY. -T report an error if DSTFILE is a directory. Environment variables override the default commands: CHGRPPROG CHMODPROG CHOWNPROG CMPPROG CPPROG MKDIRPROG MVPROG RMPROG STRIPPROG " while test $# -ne 0; do case $1 in -c) ;; -C) copy_on_change=true;; -d) dir_arg=true;; -g) chgrpcmd="$chgrpprog $2" shift;; --help) echo "$usage"; exit $?;; -m) mode=$2 case $mode in *' '* | *' '* | *' '* | *'*'* | *'?'* | *'['*) echo "$0: invalid mode: $mode" >&2 exit 1;; esac shift;; -o) chowncmd="$chownprog $2" shift;; -s) stripcmd=$stripprog;; -t) dst_arg=$2 # Protect names problematic for `test' and other utilities. case $dst_arg in -* | [=\(\)!]) dst_arg=./$dst_arg;; esac shift;; -T) no_target_directory=true;; --version) echo "$0 $scriptversion"; exit $?;; --) shift break;; -*) echo "$0: invalid option: $1" >&2 exit 1;; *) break;; esac shift done if test $# -ne 0 && test -z "$dir_arg$dst_arg"; then # When -d is used, all remaining arguments are directories to create. # When -t is used, the destination is already specified. # Otherwise, the last argument is the destination. Remove it from $@. for arg do if test -n "$dst_arg"; then # $@ is not empty: it contains at least $arg. set fnord "$@" "$dst_arg" shift # fnord fi shift # arg dst_arg=$arg # Protect names problematic for `test' and other utilities. case $dst_arg in -* | [=\(\)!]) dst_arg=./$dst_arg;; esac done fi if test $# -eq 0; then if test -z "$dir_arg"; then echo "$0: no input file specified." >&2 exit 1 fi # It's OK to call `install-sh -d' without argument. # This can happen when creating conditional directories. exit 0 fi if test -z "$dir_arg"; then do_exit='(exit $ret); exit $ret' trap "ret=129; $do_exit" 1 trap "ret=130; $do_exit" 2 trap "ret=141; $do_exit" 13 trap "ret=143; $do_exit" 15 # Set umask so as not to create temps with too-generous modes. # However, 'strip' requires both read and write access to temps. case $mode in # Optimize common cases. *644) cp_umask=133;; *755) cp_umask=22;; *[0-7]) if test -z "$stripcmd"; then u_plus_rw= else u_plus_rw='% 200' fi cp_umask=`expr '(' 777 - $mode % 1000 ')' $u_plus_rw`;; *) if test -z "$stripcmd"; then u_plus_rw= else u_plus_rw=,u+rw fi cp_umask=$mode$u_plus_rw;; esac fi for src do # Protect names problematic for `test' and other utilities. case $src in -* | [=\(\)!]) src=./$src;; esac if test -n "$dir_arg"; then dst=$src dstdir=$dst test -d "$dstdir" dstdir_status=$? else # Waiting for this to be detected by the "$cpprog $src $dsttmp" command # might cause directories to be created, which would be especially bad # if $src (and thus $dsttmp) contains '*'. if test ! -f "$src" && test ! -d "$src"; then echo "$0: $src does not exist." >&2 exit 1 fi if test -z "$dst_arg"; then echo "$0: no destination specified." >&2 exit 1 fi dst=$dst_arg # If destination is a directory, append the input filename; won't work # if double slashes aren't ignored. if test -d "$dst"; then if test -n "$no_target_directory"; then echo "$0: $dst_arg: Is a directory" >&2 exit 1 fi dstdir=$dst dst=$dstdir/`basename "$src"` dstdir_status=0 else # Prefer dirname, but fall back on a substitute if dirname fails. dstdir=` (dirname "$dst") 2>/dev/null || expr X"$dst" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$dst" : 'X\(//\)[^/]' \| \ X"$dst" : 'X\(//\)$' \| \ X"$dst" : 'X\(/\)' \| . 2>/dev/null || echo X"$dst" | sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q' ` test -d "$dstdir" dstdir_status=$? fi fi obsolete_mkdir_used=false if test $dstdir_status != 0; then case $posix_mkdir in '') # Create intermediate dirs using mode 755 as modified by the umask. # This is like FreeBSD 'install' as of 1997-10-28. umask=`umask` case $stripcmd.$umask in # Optimize common cases. *[2367][2367]) mkdir_umask=$umask;; .*0[02][02] | .[02][02] | .[02]) mkdir_umask=22;; *[0-7]) mkdir_umask=`expr $umask + 22 \ - $umask % 100 % 40 + $umask % 20 \ - $umask % 10 % 4 + $umask % 2 `;; *) mkdir_umask=$umask,go-w;; esac # With -d, create the new directory with the user-specified mode. # Otherwise, rely on $mkdir_umask. if test -n "$dir_arg"; then mkdir_mode=-m$mode else mkdir_mode= fi posix_mkdir=false case $umask in *[123567][0-7][0-7]) # POSIX mkdir -p sets u+wx bits regardless of umask, which # is incompatible with FreeBSD 'install' when (umask & 300) != 0. ;; *) tmpdir=${TMPDIR-/tmp}/ins$RANDOM-$$ trap 'ret=$?; rmdir "$tmpdir/d" "$tmpdir" 2>/dev/null; exit $ret' 0 if (umask $mkdir_umask && exec $mkdirprog $mkdir_mode -p -- "$tmpdir/d") >/dev/null 2>&1 then if test -z "$dir_arg" || { # Check for POSIX incompatibilities with -m. # HP-UX 11.23 and IRIX 6.5 mkdir -m -p sets group- or # other-writeable bit of parent directory when it shouldn't. # FreeBSD 6.1 mkdir -m -p sets mode of existing directory. ls_ld_tmpdir=`ls -ld "$tmpdir"` case $ls_ld_tmpdir in d????-?r-*) different_mode=700;; d????-?--*) different_mode=755;; *) false;; esac && $mkdirprog -m$different_mode -p -- "$tmpdir" && { ls_ld_tmpdir_1=`ls -ld "$tmpdir"` test "$ls_ld_tmpdir" = "$ls_ld_tmpdir_1" } } then posix_mkdir=: fi rmdir "$tmpdir/d" "$tmpdir" else # Remove any dirs left behind by ancient mkdir implementations. rmdir ./$mkdir_mode ./-p ./-- 2>/dev/null fi trap '' 0;; esac;; esac if $posix_mkdir && ( umask $mkdir_umask && $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir" ) then : else # The umask is ridiculous, or mkdir does not conform to POSIX, # or it failed possibly due to a race condition. Create the # directory the slow way, step by step, checking for races as we go. case $dstdir in /*) prefix='/';; [-=\(\)!]*) prefix='./';; *) prefix='';; esac eval "$initialize_posix_glob" oIFS=$IFS IFS=/ $posix_glob set -f set fnord $dstdir shift $posix_glob set +f IFS=$oIFS prefixes= for d do test X"$d" = X && continue prefix=$prefix$d if test -d "$prefix"; then prefixes= else if $posix_mkdir; then (umask=$mkdir_umask && $doit_exec $mkdirprog $mkdir_mode -p -- "$dstdir") && break # Don't fail if two instances are running concurrently. test -d "$prefix" || exit 1 else case $prefix in *\'*) qprefix=`echo "$prefix" | sed "s/'/'\\\\\\\\''/g"`;; *) qprefix=$prefix;; esac prefixes="$prefixes '$qprefix'" fi fi prefix=$prefix/ done if test -n "$prefixes"; then # Don't fail if two instances are running concurrently. (umask $mkdir_umask && eval "\$doit_exec \$mkdirprog $prefixes") || test -d "$dstdir" || exit 1 obsolete_mkdir_used=true fi fi fi if test -n "$dir_arg"; then { test -z "$chowncmd" || $doit $chowncmd "$dst"; } && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dst"; } && { test "$obsolete_mkdir_used$chowncmd$chgrpcmd" = false || test -z "$chmodcmd" || $doit $chmodcmd $mode "$dst"; } || exit 1 else # Make a couple of temp file names in the proper directory. dsttmp=$dstdir/_inst.$$_ rmtmp=$dstdir/_rm.$$_ # Trap to clean up those temp files at exit. trap 'ret=$?; rm -f "$dsttmp" "$rmtmp" && exit $ret' 0 # Copy the file name to the temp name. (umask $cp_umask && $doit_exec $cpprog "$src" "$dsttmp") && # and set any options; do chmod last to preserve setuid bits. # # If any of these fail, we abort the whole thing. If we want to # ignore errors from any of these, just make sure not to ignore # errors from the above "$doit $cpprog $src $dsttmp" command. # { test -z "$chowncmd" || $doit $chowncmd "$dsttmp"; } && { test -z "$chgrpcmd" || $doit $chgrpcmd "$dsttmp"; } && { test -z "$stripcmd" || $doit $stripcmd "$dsttmp"; } && { test -z "$chmodcmd" || $doit $chmodcmd $mode "$dsttmp"; } && # If -C, don't bother to copy if it wouldn't change the file. if $copy_on_change && old=`LC_ALL=C ls -dlL "$dst" 2>/dev/null` && new=`LC_ALL=C ls -dlL "$dsttmp" 2>/dev/null` && eval "$initialize_posix_glob" && $posix_glob set -f && set X $old && old=:$2:$4:$5:$6 && set X $new && new=:$2:$4:$5:$6 && $posix_glob set +f && test "$old" = "$new" && $cmpprog "$dst" "$dsttmp" >/dev/null 2>&1 then rm -f "$dsttmp" else # Rename the file to the real destination. $doit $mvcmd -f "$dsttmp" "$dst" 2>/dev/null || # The rename failed, perhaps because mv can't rename something else # to itself, or perhaps because mv is so ancient that it does not # support -f. { # Now remove or move aside any old file at destination location. # We try this two ways since rm can't unlink itself on some # systems and the destination file might be busy for other # reasons. In this case, the final cleanup might fail but the new # file should still install successfully. { test ! -f "$dst" || $doit $rmcmd -f "$dst" 2>/dev/null || { $doit $mvcmd -f "$dst" "$rmtmp" 2>/dev/null && { $doit $rmcmd -f "$rmtmp" 2>/dev/null; :; } } || { echo "$0: cannot unlink or rename $dst" >&2 (exit 1); exit 1 } } && # Now rename the file to the real destination. $doit $mvcmd "$dsttmp" "$dst" } fi || exit 1 trap '' 0 fi done # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-time-zone: "UTC" # time-stamp-end: "; # UTC" # End: trueprint-5.4/data/0000755000175000017500000000000012117403105011322 500000000000000trueprint-5.4/data/testprint0000644000175000017500000000060407625761737013253 00000000000000%! /str 10 string def /Helvetica findfont 20 scalefont setfont clippath flattenpath pathbbox 100 500 moveto (The last four fields in the printers) show 100 480 moveto (file for this printer should be:) show 100 450 moveto exch 4 3 roll ceiling cvi 10 str cvrs show (:) show floor cvi 10 str cvrs show (:) show floor cvi 10 str cvrs show (:) show ceiling cvi 10 str cvrs show showpage trueprint-5.4/data/printers0000644000175000017500000000256607625761737013076 00000000000000# Trueprint printers file. # A comment is any line starting with a '#' or a blank line. # Spaces are significant except in numeric fields (be especially careful # of trailing spaces at the end of a line...). # # Two types of line: # # type line has fields: # "type" # type of printer # number of sides (1 = single-sided, 2 = double-sided) # left margin # right margin # top margin # bottom margin # # printer line has fields: # "printer" # comma-seperated list of printer names, name used by lpr is first name # printer type # # To get the figures for a particular printer type, print the file # "testprint" on the printer # type:Apple Laserwriter II:1: 15:597:784:8 type:DEC LNO3: 1: 18:593:775:8 type:DEC Printserver 32: 2: 7:605:783:9 type:HP Laserjet IIISi: 2: 18:593:774:19 type:HP Laserjet 8000: 2: 12:599:779:12 type:HP Laserjet 5 Si MX: 2: 12:600:780:13 type:HP Laserjet 5 Si MX A4: 2: 12:583:831:10 type:HP Laserjet 4000N: 1: 18:576:841:15 type:HP Laserjet 5MP: 1: 12:588:829:12 type:HP Color Laserjet 4500DN: 2: 12:599:779:12 type:HP Laserjet 4MV: 1: 12:583:831:10 type:HP Laserjet 8100N: 1: 12:582:829:12 type:HP Laserjet 1100: 1: 12:600:780:12 type:Imagen 3320: 1: 3:612:792:0 type:NEC SuperScript 870: 1: 12:600:780:12 type:QMS 860: 1: 11:580:829:11 type:CalComp: 1: 8:583:829:8 printer:pr1:HP Laserjet 4000N printer:pr2:HP Laserjet 8000 trueprint-5.4/Makefile.in0000644000175000017500000005710012117066431012410 00000000000000# Makefile.in generated by automake 1.11.6 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = . DIST_COMMON = README $(am__configure_deps) $(srcdir)/Makefile.am \ $(srcdir)/Makefile.in $(srcdir)/config.h.in \ $(top_srcdir)/configure AUTHORS COPYING ChangeLog INSTALL NEWS \ config.guess config.sub depcomp install-sh ltmain.sh missing ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) am__CONFIG_DISTCLEAN_FILES = config.status config.cache config.log \ configure.lineno config.status.lineno mkinstalldirs = $(install_sh) -d CONFIG_HEADER = config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = RECURSIVE_TARGETS = all-recursive check-recursive dvi-recursive \ html-recursive info-recursive install-data-recursive \ install-dvi-recursive install-exec-recursive \ install-html-recursive install-info-recursive \ install-pdf-recursive install-ps-recursive install-recursive \ installcheck-recursive installdirs-recursive pdf-recursive \ ps-recursive uninstall-recursive am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac RECURSIVE_CLEAN_TARGETS = mostlyclean-recursive clean-recursive \ distclean-recursive maintainer-clean-recursive AM_RECURSIVE_TARGETS = $(RECURSIVE_TARGETS:-recursive=) \ $(RECURSIVE_CLEAN_TARGETS:-recursive=) tags TAGS ctags CTAGS \ distdir dist dist-all distcheck ETAGS = etags CTAGS = ctags DIST_SUBDIRS = $(SUBDIRS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) distdir = $(PACKAGE)-$(VERSION) top_distdir = $(distdir) am__remove_distdir = \ if test -d "$(distdir)"; then \ find "$(distdir)" -type d ! -perm -200 -exec chmod u+w {} ';' \ && rm -rf "$(distdir)" \ || { sleep 5 && rm -rf "$(distdir)"; }; \ else :; fi am__relativize = \ dir0=`pwd`; \ sed_first='s,^\([^/]*\)/.*$$,\1,'; \ sed_rest='s,^[^/]*/*,,'; \ sed_last='s,^.*/\([^/]*\)$$,\1,'; \ sed_butlast='s,/*[^/]*$$,,'; \ while test -n "$$dir1"; do \ first=`echo "$$dir1" | sed -e "$$sed_first"`; \ if test "$$first" != "."; then \ if test "$$first" = ".."; then \ dir2=`echo "$$dir0" | sed -e "$$sed_last"`/"$$dir2"; \ dir0=`echo "$$dir0" | sed -e "$$sed_butlast"`; \ else \ first2=`echo "$$dir2" | sed -e "$$sed_first"`; \ if test "$$first2" = "$$first"; then \ dir2=`echo "$$dir2" | sed -e "$$sed_rest"`; \ else \ dir2="../$$dir2"; \ fi; \ dir0="$$dir0"/"$$first"; \ fi; \ fi; \ dir1=`echo "$$dir1" | sed -e "$$sed_rest"`; \ done; \ reldir="$$dir2" DIST_ARCHIVES = $(distdir).tar.gz GZIP_ENV = --best distuninstallcheck_listfiles = find . -type f -print am__distuninstallcheck_listfiles = $(distuninstallcheck_listfiles) \ | sed 's|^\./|$(prefix)/|' | grep -v '$(infodir)/dir$$' distcleancheck_listfiles = find . -type f -print ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GREP = @GREP@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ SUBDIRS = replace src doc tests EXTRA_DIST = config/install-sh \ config/mdate-sh \ config/missing \ config/mkinstalldirs \ config/sys_errlist.m4 \ doc/trueprint.1 \ doc/trueprint.spec \ data/printers \ data/testprint \ BUGS \ bootstrap ACLOCAL_AMFLAGS = -I m4 all: config.h $(MAKE) $(AM_MAKEFLAGS) all-recursive .SUFFIXES: am--refresh: Makefile @: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ echo ' cd $(srcdir) && $(AUTOMAKE) --foreign'; \ $(am__cd) $(srcdir) && $(AUTOMAKE) --foreign \ && exit 0; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ echo ' $(SHELL) ./config.status'; \ $(SHELL) ./config.status;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) $(SHELL) ./config.status --recheck $(top_srcdir)/configure: $(am__configure_deps) $(am__cd) $(srcdir) && $(AUTOCONF) $(ACLOCAL_M4): $(am__aclocal_m4_deps) $(am__cd) $(srcdir) && $(ACLOCAL) $(ACLOCAL_AMFLAGS) $(am__aclocal_m4_deps): config.h: stamp-h1 @if test ! -f $@; then rm -f stamp-h1; else :; fi @if test ! -f $@; then $(MAKE) $(AM_MAKEFLAGS) stamp-h1; else :; fi stamp-h1: $(srcdir)/config.h.in $(top_builddir)/config.status @rm -f stamp-h1 cd $(top_builddir) && $(SHELL) ./config.status config.h $(srcdir)/config.h.in: $(am__configure_deps) ($(am__cd) $(top_srcdir) && $(AUTOHEADER)) rm -f stamp-h1 touch $@ distclean-hdr: -rm -f config.h stamp-h1 mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs distclean-libtool: -rm -f libtool config.lt # This directory's subdirectories are mostly independent; you can cd # into them and run `make' without going through this Makefile. # To change the values of `make' variables: instead of editing Makefiles, # (1) if the variable is set in `config.status', edit `config.status' # (which will cause the Makefiles to be regenerated when you run `make'); # (2) otherwise, pass the desired values on the `make' command line. $(RECURSIVE_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ target=`echo $@ | sed s/-recursive//`; \ list='$(SUBDIRS)'; for subdir in $$list; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ dot_seen=yes; \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done; \ if test "$$dot_seen" = "no"; then \ $(MAKE) $(AM_MAKEFLAGS) "$$target-am" || exit 1; \ fi; test -z "$$fail" $(RECURSIVE_CLEAN_TARGETS): @fail= failcom='exit 1'; \ for f in x $$MAKEFLAGS; do \ case $$f in \ *=* | --[!k]*);; \ *k*) failcom='fail=yes';; \ esac; \ done; \ dot_seen=no; \ case "$@" in \ distclean-* | maintainer-clean-*) list='$(DIST_SUBDIRS)' ;; \ *) list='$(SUBDIRS)' ;; \ esac; \ rev=''; for subdir in $$list; do \ if test "$$subdir" = "."; then :; else \ rev="$$subdir $$rev"; \ fi; \ done; \ rev="$$rev ."; \ target=`echo $@ | sed s/-recursive//`; \ for subdir in $$rev; do \ echo "Making $$target in $$subdir"; \ if test "$$subdir" = "."; then \ local_target="$$target-am"; \ else \ local_target="$$target"; \ fi; \ ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) $$local_target) \ || eval $$failcom; \ done && test -z "$$fail" tags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) tags); \ done ctags-recursive: list='$(SUBDIRS)'; for subdir in $$list; do \ test "$$subdir" = . || ($(am__cd) $$subdir && $(MAKE) $(AM_MAKEFLAGS) ctags); \ done ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: tags-recursive $(HEADERS) $(SOURCES) config.h.in $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ if ($(ETAGS) --etags-include --version) >/dev/null 2>&1; then \ include_option=--etags-include; \ empty_fix=.; \ else \ include_option=--include; \ empty_fix=; \ fi; \ list='$(SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ test ! -f $$subdir/TAGS || \ set "$$@" "$$include_option=$$here/$$subdir/TAGS"; \ fi; \ done; \ list='$(SOURCES) $(HEADERS) config.h.in $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: ctags-recursive $(HEADERS) $(SOURCES) config.h.in $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) config.h.in $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) $(am__remove_distdir) test -d "$(distdir)" || mkdir "$(distdir)" @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done @list='$(DIST_SUBDIRS)'; for subdir in $$list; do \ if test "$$subdir" = .; then :; else \ $(am__make_dryrun) \ || test -d "$(distdir)/$$subdir" \ || $(MKDIR_P) "$(distdir)/$$subdir" \ || exit 1; \ dir1=$$subdir; dir2="$(distdir)/$$subdir"; \ $(am__relativize); \ new_distdir=$$reldir; \ dir1=$$subdir; dir2="$(top_distdir)"; \ $(am__relativize); \ new_top_distdir=$$reldir; \ echo " (cd $$subdir && $(MAKE) $(AM_MAKEFLAGS) top_distdir="$$new_top_distdir" distdir="$$new_distdir" \\"; \ echo " am__remove_distdir=: am__skip_length_check=: am__skip_mode_fix=: distdir)"; \ ($(am__cd) $$subdir && \ $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$$new_top_distdir" \ distdir="$$new_distdir" \ am__remove_distdir=: \ am__skip_length_check=: \ am__skip_mode_fix=: \ distdir) \ || exit 1; \ fi; \ done -test -n "$(am__skip_mode_fix)" \ || find "$(distdir)" -type d ! -perm -755 \ -exec chmod u+rwx,go+rx {} \; -o \ ! -type d ! -perm -444 -links 1 -exec chmod a+r {} \; -o \ ! -type d ! -perm -400 -exec chmod a+r {} \; -o \ ! -type d ! -perm -444 -exec $(install_sh) -c -m a+r {} {} \; \ || chmod -R a+r "$(distdir)" dist-gzip: distdir tardir=$(distdir) && $(am__tar) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz $(am__remove_distdir) dist-bzip2: distdir tardir=$(distdir) && $(am__tar) | BZIP2=$${BZIP2--9} bzip2 -c >$(distdir).tar.bz2 $(am__remove_distdir) dist-lzip: distdir tardir=$(distdir) && $(am__tar) | lzip -c $${LZIP_OPT--9} >$(distdir).tar.lz $(am__remove_distdir) dist-lzma: distdir tardir=$(distdir) && $(am__tar) | lzma -9 -c >$(distdir).tar.lzma $(am__remove_distdir) dist-xz: distdir tardir=$(distdir) && $(am__tar) | XZ_OPT=$${XZ_OPT--e} xz -c >$(distdir).tar.xz $(am__remove_distdir) dist-tarZ: distdir tardir=$(distdir) && $(am__tar) | compress -c >$(distdir).tar.Z $(am__remove_distdir) dist-shar: distdir shar $(distdir) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).shar.gz $(am__remove_distdir) dist-zip: distdir -rm -f $(distdir).zip zip -rq $(distdir).zip $(distdir) $(am__remove_distdir) dist dist-all: distdir tardir=$(distdir) && $(am__tar) | GZIP=$(GZIP_ENV) gzip -c >$(distdir).tar.gz $(am__remove_distdir) # This target untars the dist file and tries a VPATH configuration. Then # it guarantees that the distribution is self-contained by making another # tarfile. distcheck: dist case '$(DIST_ARCHIVES)' in \ *.tar.gz*) \ GZIP=$(GZIP_ENV) gzip -dc $(distdir).tar.gz | $(am__untar) ;;\ *.tar.bz2*) \ bzip2 -dc $(distdir).tar.bz2 | $(am__untar) ;;\ *.tar.lzma*) \ lzma -dc $(distdir).tar.lzma | $(am__untar) ;;\ *.tar.lz*) \ lzip -dc $(distdir).tar.lz | $(am__untar) ;;\ *.tar.xz*) \ xz -dc $(distdir).tar.xz | $(am__untar) ;;\ *.tar.Z*) \ uncompress -c $(distdir).tar.Z | $(am__untar) ;;\ *.shar.gz*) \ GZIP=$(GZIP_ENV) gzip -dc $(distdir).shar.gz | unshar ;;\ *.zip*) \ unzip $(distdir).zip ;;\ esac chmod -R a-w $(distdir); chmod u+w $(distdir) mkdir $(distdir)/_build mkdir $(distdir)/_inst chmod a-w $(distdir) test -d $(distdir)/_build || exit 0; \ dc_install_base=`$(am__cd) $(distdir)/_inst && pwd | sed -e 's,^[^:\\/]:[\\/],/,'` \ && dc_destdir="$${TMPDIR-/tmp}/am-dc-$$$$/" \ && am__cwd=`pwd` \ && $(am__cd) $(distdir)/_build \ && ../configure --srcdir=.. --prefix="$$dc_install_base" \ $(AM_DISTCHECK_CONFIGURE_FLAGS) \ $(DISTCHECK_CONFIGURE_FLAGS) \ && $(MAKE) $(AM_MAKEFLAGS) \ && $(MAKE) $(AM_MAKEFLAGS) dvi \ && $(MAKE) $(AM_MAKEFLAGS) check \ && $(MAKE) $(AM_MAKEFLAGS) install \ && $(MAKE) $(AM_MAKEFLAGS) installcheck \ && $(MAKE) $(AM_MAKEFLAGS) uninstall \ && $(MAKE) $(AM_MAKEFLAGS) distuninstallcheck_dir="$$dc_install_base" \ distuninstallcheck \ && chmod -R a-w "$$dc_install_base" \ && ({ \ (cd ../.. && umask 077 && mkdir "$$dc_destdir") \ && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" install \ && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" uninstall \ && $(MAKE) $(AM_MAKEFLAGS) DESTDIR="$$dc_destdir" \ distuninstallcheck_dir="$$dc_destdir" distuninstallcheck; \ } || { rm -rf "$$dc_destdir"; exit 1; }) \ && rm -rf "$$dc_destdir" \ && $(MAKE) $(AM_MAKEFLAGS) dist \ && rm -rf $(DIST_ARCHIVES) \ && $(MAKE) $(AM_MAKEFLAGS) distcleancheck \ && cd "$$am__cwd" \ || exit 1 $(am__remove_distdir) @(echo "$(distdir) archives ready for distribution: "; \ list='$(DIST_ARCHIVES)'; for i in $$list; do echo $$i; done) | \ sed -e 1h -e 1s/./=/g -e 1p -e 1x -e '$$p' -e '$$x' distuninstallcheck: @test -n '$(distuninstallcheck_dir)' || { \ echo 'ERROR: trying to run $@ with an empty' \ '$$(distuninstallcheck_dir)' >&2; \ exit 1; \ }; \ $(am__cd) '$(distuninstallcheck_dir)' || { \ echo 'ERROR: cannot chdir into $(distuninstallcheck_dir)' >&2; \ exit 1; \ }; \ test `$(am__distuninstallcheck_listfiles) | wc -l` -eq 0 \ || { echo "ERROR: files left after uninstall:" ; \ if test -n "$(DESTDIR)"; then \ echo " (check DESTDIR support)"; \ fi ; \ $(distuninstallcheck_listfiles) ; \ exit 1; } >&2 distcleancheck: distclean @if test '$(srcdir)' = . ; then \ echo "ERROR: distcleancheck can only run from a VPATH build" ; \ exit 1 ; \ fi @test `$(distcleancheck_listfiles) | wc -l` -eq 0 \ || { echo "ERROR: files left in build directory after distclean:" ; \ $(distcleancheck_listfiles) ; \ exit 1; } >&2 check-am: all-am check: check-recursive all-am: Makefile config.h installdirs: installdirs-recursive installdirs-am: install: install-recursive install-exec: install-exec-recursive install-data: install-data-recursive uninstall: uninstall-recursive install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-recursive install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-recursive clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-recursive -rm -f $(am__CONFIG_DISTCLEAN_FILES) -rm -f Makefile distclean-am: clean-am distclean-generic distclean-hdr \ distclean-libtool distclean-tags dvi: dvi-recursive dvi-am: html: html-recursive html-am: info: info-recursive info-am: install-data-am: install-dvi: install-dvi-recursive install-dvi-am: install-exec-am: install-html: install-html-recursive install-html-am: install-info: install-info-recursive install-info-am: install-man: install-pdf: install-pdf-recursive install-pdf-am: install-ps: install-ps-recursive install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-recursive -rm -f $(am__CONFIG_DISTCLEAN_FILES) -rm -rf $(top_srcdir)/autom4te.cache -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-recursive mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-recursive pdf-am: ps: ps-recursive ps-am: uninstall-am: .MAKE: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) all \ ctags-recursive install-am install-strip tags-recursive .PHONY: $(RECURSIVE_CLEAN_TARGETS) $(RECURSIVE_TARGETS) CTAGS GTAGS \ all all-am am--refresh check check-am clean clean-generic \ clean-libtool ctags ctags-recursive dist dist-all dist-bzip2 \ dist-gzip dist-lzip dist-lzma dist-shar dist-tarZ dist-xz \ dist-zip distcheck distclean distclean-generic distclean-hdr \ distclean-libtool distclean-tags distcleancheck distdir \ distuninstallcheck dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ installdirs-am maintainer-clean maintainer-clean-generic \ mostlyclean mostlyclean-generic mostlyclean-libtool pdf pdf-am \ ps ps-am tags tags-recursive uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: trueprint-5.4/tests/0000755000175000017500000000000012117403107011555 500000000000000trueprint-5.4/tests/test16.out0000644000175000017500000006316407625761740013410 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 4) show 70 650 moveto (File: test6.c) show 70 625 moveto (File: test1.c) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test6.c) ) show Nl Lpt( closepipe...................4 (test1.c)) show Nl Lpt( fclosepipe 2 (test6.c) ) show Nl Lpt( fclosepipe..................4 (test1.c)) show Nl Lpt( fopenpipe 2 (test6.c) ) show Nl Lpt( fopenpipe...................4 (test1.c)) show Nl Lpt( openpipe 1 (test6.c) ) show Nl Lpt( openpipe....................3 (test1.c)) show Nl showpage %%Page: 2 3 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test6.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test1.c 3) BF setfont show CF setfont Nl Lpt( closepipe 4) show Nl Lpt( fclosepipe..................4) show Nl Lpt( fopenpipe 4) show Nl Lpt( openpipe....................3) show Nl showpage %%Page: 3 4 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (testuser) show currentpoint pop dup Rm Ps sub (Page 1 of 4) stringwidth pop sub dup Ypos moveto (Page 1 of 4) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 4) stringwidth pop sub dup Ypos moveto (Page 1 of 4) show exch sub 2 div add (test6.c 1) stringwidth pop 2 div sub Ypos moveto (test6.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl showpage %%Page: 4 5 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (testuser) show currentpoint pop dup Rm Ps sub (Page 2 of 4) stringwidth pop sub dup Ypos moveto (Page 2 of 4) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 4) stringwidth pop sub dup Ypos moveto (Page 2 of 4) show exch sub 2 div add (test6.c 2) stringwidth pop 2 div sub Ypos moveto (test6.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 5 6 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (testuser) show currentpoint pop dup Rm Ps sub (Page 3 of 4) stringwidth pop sub dup Ypos moveto (Page 3 of 4) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 4) stringwidth pop sub dup Ypos moveto (Page 3 of 4) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl showpage %%Page: 6 7 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (testuser) show currentpoint pop dup Rm Ps sub (Page 4 of 4) stringwidth pop sub dup Ypos moveto (Page 4 of 4) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 4) stringwidth pop sub dup Ypos moveto (Page 4 of 4) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test11.out0000644000175000017500000006321007625761740013373 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 8 def /SPs 6 def /Lh 15 def /Rm 575 def /Tm 746 def /Bh 13 def /Bf 13 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 6) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test3) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 3 (test1.c) ) show Nl Lpt( fclosepipe..................3 (test1.c)) show Nl Lpt( fopenpipe 3 (test1.c) ) show Nl Lpt( openpipe....................1 (test1.c)) show Nl showpage %%Page: 2 3 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................3) show Nl Lpt( fclosepipe 3) show Nl Lpt( fopenpipe...................3) show Nl Lpt( openpipe 1) show Nl Lpt( test3 4) BF setfont show CF setfont Nl showpage %%Page: 3 4 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 6) stringwidth pop sub dup Ypos moveto (Page 1 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 6) stringwidth pop sub dup Ypos moveto (Page 1 of 6) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl showpage %%Page: 4 5 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 6) stringwidth pop sub dup Ypos moveto (Page 2 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 6) stringwidth pop sub dup Ypos moveto (Page 2 of 6) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\(\) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl showpage %%Page: 5 6 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 6) stringwidth pop sub dup Ypos moveto (Page 3 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 6) stringwidth pop sub dup Ypos moveto (Page 3 of 6) show exch sub 2 div add (test1.c 3) stringwidth pop 2 div sub Ypos moveto (test1.c 3) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 6 7 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 6) stringwidth pop sub dup Ypos moveto (Page 4 of 6) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 6) stringwidth pop sub dup Ypos moveto (Page 4 of 6) show exch sub 2 div add (test3 1) stringwidth pop 2 div sub Ypos moveto (test3 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) CF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) CF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) CF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) CF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) CF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) CF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) CF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 35 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl showpage %%Page: 7 8 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 6) stringwidth pop sub dup Ypos moveto (Page 5 of 6) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 6) stringwidth pop sub dup Ypos moveto (Page 5 of 6) show exch sub 2 div add (test3 2) stringwidth pop 2 div sub Ypos moveto (test3 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 46 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\(\) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 ) show ( /* Error */) CF setfont show Nl Lpt CFs setfont ( 60 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 ) show ( /*NOTREACHED*/) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 ) show ( /* Child process */) CF setfont show Nl Lpt CFs setfont ( 66 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 ) show ( \(void\)fprintf\(stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 ) show ( /*NOTREACHED*/) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 ) show ( /* Parent process */) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 ) show ( }) CF setfont show Nl showpage %%Page: 8 9 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 6) stringwidth pop sub dup Ypos moveto (Page 6 of 6) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 6) stringwidth pop sub dup Ypos moveto (Page 6 of 6) show exch sub 2 div add (test3 3) stringwidth pop 2 div sub Ypos moveto (test3 3) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 94 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 105 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 115 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test4.new0000644000175000017500000000005407625761740013274 00000000000000These two lines remain Last two lines added trueprint-5.4/tests/test27.out0000644000175000017500000000550707625761740013407 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 1) show 70 650 moveto (File: test7) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add (test7 1) stringwidth pop 2 div sub Ypos moveto (test7 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (This is a short line) CF setfont show Nl Lpt CFs setfont ( ) show (1234567890123456789012345678901234567890) CF setfont show Nl Lpt CFs setfont ( ) show (1234567890123456789012345678901234567890) CF setfont show Nl Lpt CFs setfont ( ) show ( 1234567890) CF setfont show Nl Lpt CFs setfont ( ) show (This is a very long line that extends ) CF setfont show Nl Lpt CFs setfont ( ) show (way beyond the normal width of a normal ) CF setfont show Nl Lpt CFs setfont ( ) show ( line and goes on until at least the ) CF setfont show Nl Lpt CFs setfont ( ) show ( hundredth column.) CF setfont show Nl Lpt CFs setfont ( ) show (This is another short line.) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test37.out0000644000175000017500000000462307625761740013406 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 1) show 70 650 moveto (File: test21) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add (test21 1) stringwidth pop 2 div sub Ypos moveto (test21 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show ( This is a file) CF setfont show Nl Lpt CFs setfont ( ) show ( with a lot of) CF setfont show Nl Lpt CFs setfont ( ) show (tabs in it mixed with various other) CF setfont show Nl Lpt CFs setfont ( ) show ( things like spaces and so on.) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test23.out0000644000175000017500000007210107625761740013375 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 578 def /Tm 897 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 6) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test7) show 70 600 moveto (File: test6.c) show showpage %%Page: 1 2 gsave 590 30 translate .64 .64 scale 90 rotate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test1.c) ) show Nl Lpt( closepipe...................6 (test6.c)) show Nl Lpt( fclosepipe 2 (test1.c) ) show Nl Lpt( fclosepipe..................6 (test6.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( fopenpipe...................6 (test6.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl Lpt( openpipe....................5 (test6.c)) show Nl grestore 590 405 translate .64 .64 scale 90 rotate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 3 3 gsave 590 30 translate .64 .64 scale 90 rotate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test7 3) BF setfont show CF setfont Nl Lpt( test6.c 5) BF setfont show CF setfont Nl Lpt( closepipe...................6) show Nl Lpt( fclosepipe 6) show Nl Lpt( fopenpipe...................6) show Nl Lpt( openpipe 5) show Nl grestore 590 405 translate .64 .64 scale 90 rotate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 5 4 gsave 590 30 translate .64 .64 scale 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 6) stringwidth pop sub dup Ypos moveto (Page 1 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 6) stringwidth pop sub dup Ypos moveto (Page 1 of 6) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl grestore 590 405 translate .64 .64 scale 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 6) stringwidth pop sub dup Ypos moveto (Page 2 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 6) stringwidth pop sub dup Ypos moveto (Page 2 of 6) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 7 5 gsave 590 30 translate .64 .64 scale 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 6) stringwidth pop sub dup Ypos moveto (Page 3 of 6) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 6) stringwidth pop sub dup Ypos moveto (Page 3 of 6) show exch sub 2 div add (test7 1) stringwidth pop 2 div sub Ypos moveto (test7 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (This is a short line) CF setfont show Nl Lpt CFs setfont ( 2 ) show (123456789012345678901234567890123456789012345678901234567890123456789012345678901234567) CF setfont show Nl Lpt CFs setfont ( ) show ( 890) CF setfont show Nl Lpt CFs setfont ( 3 ) show (This is a very long line that extends way beyond the normal width of a normal line and ) CF setfont show Nl Lpt CFs setfont ( ) show ( goes on until at least the hundredth column.) CF setfont show Nl Lpt CFs setfont ( 4 ) show (This is another short line.) CF setfont show Nl grestore 590 405 translate .64 .64 scale 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 6) stringwidth pop sub dup Ypos moveto (Page 4 of 6) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 6) stringwidth pop sub dup Ypos moveto (Page 4 of 6) show exch sub 2 div add (test7 2) stringwidth pop 2 div sub Ypos moveto (test7 2) show /Vpos Tm Bh sub Ps sub def showpage %%Page: 9 6 gsave 590 30 translate .64 .64 scale 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 6) stringwidth pop sub dup Ypos moveto (Page 5 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 6) stringwidth pop sub dup Ypos moveto (Page 5 of 6) show exch sub 2 div add (test6.c 1) stringwidth pop 2 div sub Ypos moveto (test6.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl grestore 590 405 translate .64 .64 scale 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 6) stringwidth pop sub dup Ypos moveto (Page 6 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 6) stringwidth pop sub dup Ypos moveto (Page 6 of 6) show exch sub 2 div add (test6.c 2) stringwidth pop 2 div sub Ypos moveto (test6.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test7.out0000644000175000017500000000472407625761740013325 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 1) show 70 650 moveto (File: test4.previous) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add (test4.previous 1) stringwidth pop 2 div sub Ypos moveto (test4.previous 1) show /Vpos Tm Bh sub Ps sub def Lpt BFs setfont (+) show (First two lines) BF setfont show Nl Lpt BFs setfont (+) show (deleted) BF setfont show Nl Lpt CFs setfont ( ) show (These two lines) CF setfont show Nl Lpt CFs setfont ( ) show (remain) CF setfont show Nl Lpt (-) CFs setfont show (Last two lines) CF setfont So show Nl Lpt (-) CFs setfont show (added) CF setfont So show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test33.out0000644000175000017500000005520307625761740013402 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { true statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 4) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test2.c) show showpage %%Page: Coverback 2 showpage %%Page: 1 3 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test1.c) ) show Nl Lpt( fclosepipe..................2 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( getopt......................3 (test2.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl showpage %%Page: 2 4 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Page 2) show currentpoint pop dup Rm Ps sub (Fri Apr 16 03:00:00 1982) stringwidth pop sub dup Ypos moveto (Fri Apr 16 03:00:00 1982) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Page 2) show currentpoint pop dup Rm Ps sub (Fri Apr 16 03:00:00 1982) stringwidth pop sub dup Ypos moveto (Fri Apr 16 03:00:00 1982) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 3 5 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test2.c 3) BF setfont show CF setfont Nl Lpt( getopt 3) show Nl showpage %%Page: 4 6 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Page 2) show currentpoint pop dup Rm Ps sub (Fri Apr 16 03:00:00 1982) stringwidth pop sub dup Ypos moveto (Fri Apr 16 03:00:00 1982) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Page 2) show currentpoint pop dup Rm Ps sub (Fri Apr 16 03:00:00 1982) stringwidth pop sub dup Ypos moveto (Fri Apr 16 03:00:00 1982) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 5 7 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 4) stringwidth pop sub dup Ypos moveto (Page 1 of 4) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 4) stringwidth pop sub dup Ypos moveto (Page 1 of 4) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl showpage %%Page: 6 8 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Page 2 of 4) show currentpoint pop dup Rm Ps sub (Fri Apr 16 03:00:00 1982) stringwidth pop sub dup Ypos moveto (Fri Apr 16 03:00:00 1982) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Page 2 of 4) show currentpoint pop dup Rm Ps sub (Fri Apr 16 03:00:00 1982) stringwidth pop sub dup Ypos moveto (Fri Apr 16 03:00:00 1982) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 7 9 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 4) stringwidth pop sub dup Ypos moveto (Page 3 of 4) show exch sub 2 div add (getopt) stringwidth pop 2 div sub Ypos moveto (getopt) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 4) stringwidth pop sub dup Ypos moveto (Page 3 of 4) show exch sub 2 div add (test2.c 1) stringwidth pop 2 div sub Ypos moveto (test2.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/* @\(#\)getopt.c */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 3 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 5 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 6 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 8 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 9 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 11 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 12 ) show ( * get option letter from argument vector) IF setfont show Nl Lpt CFs setfont ( 13 ) show ( */) IF setfont show Nl Lpt CFs setfont ( 14 ) show (int optind = 1; ) CF setfont show (/* index into parent argv vector */) IF setfont show Nl Lpt CFs setfont ( 15 ) show (char *optarg; ) CF setfont show (/* argument associated with option */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 17 ) show (static int optopt; ) CF setfont show (/* character checked for validity */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (int) CF setfont show Nl Lpt CFs setfont ( 20 ) show (getopt) BF setfont show (\(int nargc, char **nargv, char *ostr\)) CF setfont show Nl Lpt CFs setfont ( 21 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 22 1 ) show ( register char *oli; ) CF setfont show (/* option letter list index */) IF setfont show Nl Lpt CFs setfont ( 23 1 ) show ( static char *place = ""; ) CF setfont show (/* option letter processing */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 25 2 ) show ( if\(!*place\) { ) CF setfont show (/* update scanning pointer */) IF setfont show Nl Lpt CFs setfont ( 26 3 ) show ( if\(optind >= nargc || *\(place = nargv[optind]\) != '-' || !*++place\) {) CF setfont show Nl Lpt CFs setfont ( 27 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 28 3 ) show ( return\(EOF\);) CF setfont show Nl Lpt CFs setfont ( 29 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 30 3 ) show ( if \(*place == '-'\) { ) CF setfont show (/* found "--" */) IF setfont show Nl Lpt CFs setfont ( 31 3 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 32 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 33 3 ) show ( return EOF;) CF setfont show Nl Lpt CFs setfont ( 34 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 35 1 ) show ( } ) CF setfont show (/* option letter okay? */) IF setfont show Nl Lpt CFs setfont ( 36 2 ) show ( if \(\(optopt = \(int\)*place++\) == \(int\)':' || !\(oli = strchr\(ostr,optopt\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 37 2 ) show ( if\(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 38 2 ) show ( \(void\)fprintf\(stderr, "%s: illegal option -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 39 2 ) show ( return '?';) CF setfont show Nl Lpt CFs setfont ( 40 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(*++oli != ':'\) { ) CF setfont show (/* don't need argument */) IF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( optarg = NULL;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( if \(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else { ) CF setfont show (/* need an argument */) IF setfont show Nl Lpt CFs setfont ( 45 3 ) show ( if \(*place\) { ) CF setfont show (/* no white space */) IF setfont show Nl Lpt CFs setfont ( 46 3 ) show ( optarg = place;) CF setfont show Nl Lpt CFs setfont ( 47 3 ) show ( } else if \(nargc <= ++optind\) { ) CF setfont show (/* no arg */) IF setfont show Nl Lpt CFs setfont ( 48 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 49 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr, "%s: option requires an argument -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 50 3 ) show ( optopt = '?';) CF setfont show Nl Lpt CFs setfont ( 51 3 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 52 3 ) show ( optarg = nargv[optind]; ) CF setfont show (/* white space */) IF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 55 2 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 56 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 57 1 ) show ( return optopt; ) CF setfont show (/* dump back option letter */) IF setfont show Nl Lpt CFs setfont ( 58 ) show (}) CF setfont show Nl showpage %%Page: 8 10 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Page 4 of 4) show currentpoint pop dup Rm Ps sub (Fri Apr 16 03:00:00 1982) stringwidth pop sub dup Ypos moveto (Fri Apr 16 03:00:00 1982) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Page 4 of 4) show currentpoint pop dup Rm Ps sub (Fri Apr 16 03:00:00 1982) stringwidth pop sub dup Ypos moveto (Fri Apr 16 03:00:00 1982) show exch sub 2 div add (test2.c 2) stringwidth pop 2 div sub Ypos moveto (test2.c 2) show /Vpos Tm Bh sub Ps sub def showpage %%Trailer %%EOF trueprint-5.4/tests/test20.out0000644000175000017500000001033007625761740013366 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 2) show 70 650 moveto (File: test4.new) show 70 625 moveto (File: test4.previous) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test4.new 1) BF setfont show CF setfont Nl Lpt( test4.previous 2) BF setfont show CF setfont Nl showpage %%Page: 2 3 15 30 translate Ip gsave .9 setgray Rm 2 div Tm 2 div translate 60 rotate /Courier-Bold findfont 63 scalefont setfont -216 0 moveto (test4.new) show grestore HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 2) stringwidth pop sub dup Ypos moveto (Page 1 of 2) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 2) stringwidth pop sub dup Ypos moveto (Page 1 of 2) show exch sub 2 div add (test4.new 1) stringwidth pop 2 div sub Ypos moveto (test4.new 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (These two lines) CF setfont show Nl Lpt CFs setfont ( ) show (remain) CF setfont show Nl Lpt CFs setfont ( ) show (Last two lines) CF setfont show Nl Lpt CFs setfont ( ) show (added) CF setfont show Nl showpage %%Page: 3 4 15 30 translate Ip gsave .9 setgray Rm 2 div Tm 2 div translate 60 rotate /Courier-Bold findfont 41 scalefont setfont -216 0 moveto (test4.previous) show grestore HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 2) stringwidth pop sub dup Ypos moveto (Page 2 of 2) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 2) stringwidth pop sub dup Ypos moveto (Page 2 of 2) show exch sub 2 div add (test4.previous 1) stringwidth pop 2 div sub Ypos moveto (test4.previous 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (First two lines) CF setfont show Nl Lpt CFs setfont ( ) show (deleted) CF setfont show Nl Lpt CFs setfont ( ) show (These two lines) CF setfont show Nl Lpt CFs setfont ( ) show (remain) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test9.out0000644000175000017500000003624107625761740013326 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 3) show 70 650 moveto (File: test6.c) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test6.c) ) show Nl Lpt( fclosepipe..................3 (test6.c)) show Nl Lpt( fopenpipe 2 (test6.c) ) show Nl Lpt( openpipe....................1 (test6.c)) show Nl showpage %%Page: 2 3 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 3) stringwidth pop sub dup Ypos moveto (Page 1 of 3) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 3) stringwidth pop sub dup Ypos moveto (Page 1 of 3) show exch sub 2 div add (test6.c 1) stringwidth pop 2 div sub Ypos moveto (test6.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt (- ) CFs setfont show ( * This returns an int rather than a FILE * to make it general purpose.) CF setfont So show Nl Lpt (- ) CFs setfont show ( * NOTE THAT THE VARIABLE cmd_name IS NOT DEFINED IN THIS FILE) CF setfont So show Nl Lpt BFs setfont (+ 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont Bs Nl Lpt BFs setfont (+ 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont Bs Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt BFs setfont (+ ) show () BF setfont show Nl Lpt BFs setfont (+ 19 ) show (#ifdef _ultrix) BF setfont show Nl Lpt BFs setfont (+ 20 ) show (extern int close\(int fildes\);) BF setfont show Nl Lpt BFs setfont (+ 21 ) show (extern int dup\(int fildes\);) BF setfont show Nl Lpt BFs setfont (+ 22 ) show (extern pid_t fork\(void\);) BF setfont show Nl Lpt BFs setfont (+ 23 ) show (extern int pipe\(int fildes[2]\);) BF setfont show Nl Lpt BFs setfont (+ 24 ) show (#else) BF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt BFs setfont (+ 26 ) show (#endif) BF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt (- ) CFs setfont show (/****************************************************************************) CF setfont So show Nl Lpt (- ) CFs setfont show ( * Function:) CF setfont So show Nl Lpt (- ) CFs setfont show ( * openpipe) CF setfont So show Nl Lpt (- ) CFs setfont show ( *) CF setfont So show Nl Lpt (- ) CFs setfont show ( * Opens a pipe to or from a command. This is _not_ a direct replacement for) CF setfont So show Nl Lpt (- ) CFs setfont show ( * popen because:) CF setfont So show Nl Lpt (- ) CFs setfont show ( * - in the case of failure it prints an error message and calls exit,) CF setfont So show Nl Lpt (- ) CFs setfont show ( * instead of just returning NULL;) CF setfont So show Nl Lpt (- ) CFs setfont show ( * - it returns an int instead of a FILE *;) CF setfont So show Nl Lpt (- ) CFs setfont show ( * - it is called openpipe instead of popen) CF setfont So show Nl Lpt (- ) CFs setfont show ( */) CF setfont So show Nl Lpt BFs setfont (+ 28 ) show (#include "trueprint.h") BF setfont show Nl Lpt BFs setfont (+ 29 ) show (#include "main.h") BF setfont show Nl Lpt BFs setfont (+ 30 ) show (#include "openpipe.h") BF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl showpage %%Page: 3 4 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 3) stringwidth pop sub dup Ypos moveto (Page 2 of 3) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 3) stringwidth pop sub dup Ypos moveto (Page 2 of 3) show exch sub 2 div add (test6.c 2) stringwidth pop 2 div sub Ypos moveto (test6.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl showpage %%Page: 4 5 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 3) stringwidth pop sub dup Ypos moveto (Page 3 of 3) show exch sub 2 div add (fclosepipe) stringwidth pop 2 div sub Ypos moveto (fclosepipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 3) stringwidth pop sub dup Ypos moveto (Page 3 of 3) show exch sub 2 div add (test6.c 3) stringwidth pop 2 div sub Ypos moveto (test6.c 3) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test210000644000175000017500000000014407625761740012563 00000000000000 This is a file with a lot of tabs in it mixed with various other things like spaces and so on. trueprint-5.4/tests/test10.out0000644000175000017500000000521307625761740013371 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 1) show 70 650 moveto (File: test7) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add (test7 1) stringwidth pop 2 div sub Ypos moveto (test7 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (This is a short line) CF setfont show Nl Lpt CFs setfont ( ) show (123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890) CF setfont show Nl Lpt CFs setfont ( ) show (This is a very long line that extends way beyond the normal width of a normal line and goes on ) CF setfont show Nl Lpt CFs setfont ( ) show ( until at least the hundredth column.) CF setfont show Nl Lpt CFs setfont ( ) show (This is another short line.) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test38.out0000644000175000017500000000462307625761740013407 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 1) show 70 650 moveto (File: test21) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add (test21 1) stringwidth pop 2 div sub Ypos moveto (test21 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show ( This is a file) CF setfont show Nl Lpt CFs setfont ( ) show ( with a lot of) CF setfont show Nl Lpt CFs setfont ( ) show (tabs in it mixed with various other) CF setfont show Nl Lpt CFs setfont ( ) show ( things like spaces and so on.) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test14.out0000644000175000017500000000764307625761740013406 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 2) show 70 650 moveto (File: test4.new) show 70 625 moveto (File: test4.previous) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test4.new 1) BF setfont show CF setfont Nl Lpt( test4.previous 2) BF setfont show CF setfont Nl showpage %%Page: 2 3 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Header-test) show currentpoint pop dup Rm Ps sub (Page 1 of 2) stringwidth pop sub dup Ypos moveto (Page 1 of 2) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 2) stringwidth pop sub dup Ypos moveto (Page 1 of 2) show exch sub 2 div add (test4.new 1) stringwidth pop 2 div sub Ypos moveto (test4.new 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (These two lines) CF setfont show Nl Lpt CFs setfont ( ) show (remain) CF setfont show Nl Lpt CFs setfont ( ) show (Last two lines) CF setfont show Nl Lpt CFs setfont ( ) show (added) CF setfont show Nl showpage %%Page: 3 4 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Header-test) show currentpoint pop dup Rm Ps sub (Page 2 of 2) stringwidth pop sub dup Ypos moveto (Page 2 of 2) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 2) stringwidth pop sub dup Ypos moveto (Page 2 of 2) show exch sub 2 div add (test4.previous 1) stringwidth pop 2 div sub Ypos moveto (test4.previous 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (First two lines) CF setfont show Nl Lpt CFs setfont ( ) show (deleted) CF setfont show Nl Lpt CFs setfont ( ) show (These two lines) CF setfont show Nl Lpt CFs setfont ( ) show (remain) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test6.c0000644000175000017500000000462407625761740012736 00000000000000/* * Source file: * openpipe.c * * Contains openpipe - a replacement for the non-POSIX function popen. * This returns an int rather than a FILE * to make it general purpose - * fdopen can be used outside to convert this to a FILE * */ #define _POSIX_SOURCE #include #include #include #include #include #include #ifdef _ultrix extern int close(int fildes); extern int dup(int fildes); extern pid_t fork(void); extern int pipe(int fildes[2]); #else #include #endif #include "trueprint.h" #include "main.h" #include "openpipe.h" int openpipe(const char *command, char *mode) { int fildes[2]; int parent_pipe_end; int child_pipe_end; char *child_pipe_mode; if (strcmp(mode, "w") == 0) { parent_pipe_end = 1; child_pipe_end = 0; child_pipe_mode = "read"; } else if (strcmp(mode, "r") == 0) { parent_pipe_end = 0; child_pipe_end = 1; child_pipe_mode = "write"; } else { (void)fprintf(stderr, "%s: Internal error: popen() called with bad mode %s", cmd_name, mode); exit(2); } if (pipe(fildes) != 0) { (void)fprintf(stderr, "%s: Cannot create pipe, %s\n", cmd_name, strerror(errno)); exit(2); } switch (fork()) { case -1: /* Error */ (void)fprintf(stderr, "%s: Cannot fork, %s\n", cmd_name, strerror(errno)); exit(2); /*NOTREACHED*/ case 0: /* Child process */ if (!((close(fildes[parent_pipe_end]) == 0) && (close(child_pipe_end) == 0) && (dup(fildes[child_pipe_end]) == child_pipe_end))) { (void)fprintf(stderr,"%s: Cannot redirect %s for child, %s\n", cmd_name, child_pipe_mode, strerror(errno)); exit(2); } if (system(command) < 0) { (void)fprintf(stderr,"%s: Cannot start pipe, %s\n",cmd_name, strerror(errno)); exit(2); } else exit(0); /*NOTREACHED*/ default: /* Parent process */ if (close(fildes[child_pipe_end]) != 0) { (void)fprintf(stderr,"%s: Cannot close %s end of pipe for parent, %s\n",cmd_name, child_pipe_mode, strerror(errno)); exit(2); } return fildes[parent_pipe_end]; } } FILE * fopenpipe(const char *command, char *mode) { int handle; handle = openpipe(command, mode); return fdopen(handle, mode); } void closepipe(int handle) { int statloc; (void)close(handle); (void)waitpid(-1, &statloc, WNOHANG); } void fclosepipe(FILE *fp) { closepipe(fileno(fp)); } trueprint-5.4/tests/test43.out0000644000175000017500000004653107625761740013407 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 0 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto Rm 0 rlineto gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 3) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test2.c) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test1.c) ) show Nl Lpt( fclosepipe..................2 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( getopt......................3 (test2.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl showpage %%Page: 2 3 15 30 translate Ip HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test2.c 3) BF setfont show CF setfont Nl Lpt( getopt 3) show Nl showpage %%Page: 3 4 15 30 translate Cp HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 3) stringwidth pop sub dup Ypos moveto (Page 1 of 3) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl showpage %%Page: 4 5 15 30 translate Cp HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 3) stringwidth pop sub dup Ypos moveto (Page 2 of 3) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 5 6 15 30 translate Cp HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 3) stringwidth pop sub dup Ypos moveto (Page 3 of 3) show exch sub 2 div add (test2.c 1) stringwidth pop 2 div sub Ypos moveto (test2.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/* @\(#\)getopt.c */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 3 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 5 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 6 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 8 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 9 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 11 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 12 ) show ( * get option letter from argument vector) IF setfont show Nl Lpt CFs setfont ( 13 ) show ( */) IF setfont show Nl Lpt CFs setfont ( 14 ) show (int optind = 1; ) CF setfont show (/* index into parent argv vector */) IF setfont show Nl Lpt CFs setfont ( 15 ) show (char *optarg; ) CF setfont show (/* argument associated with option */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 17 ) show (static int optopt; ) CF setfont show (/* character checked for validity */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (int) CF setfont show Nl Lpt CFs setfont ( 20 ) show (getopt) BF setfont show (\(int nargc, char **nargv, char *ostr\)) CF setfont show Nl Lpt CFs setfont ( 21 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 22 1 ) show ( register char *oli; ) CF setfont show (/* option letter list index */) IF setfont show Nl Lpt CFs setfont ( 23 1 ) show ( static char *place = ""; ) CF setfont show (/* option letter processing */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 25 2 ) show ( if\(!*place\) { ) CF setfont show (/* update scanning pointer */) IF setfont show Nl Lpt CFs setfont ( 26 3 ) show ( if\(optind >= nargc || *\(place = nargv[optind]\) != '-' || !*++place\) {) CF setfont show Nl Lpt CFs setfont ( 27 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 28 3 ) show ( return\(EOF\);) CF setfont show Nl Lpt CFs setfont ( 29 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 30 3 ) show ( if \(*place == '-'\) { ) CF setfont show (/* found "--" */) IF setfont show Nl Lpt CFs setfont ( 31 3 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 32 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 33 3 ) show ( return EOF;) CF setfont show Nl Lpt CFs setfont ( 34 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 35 1 ) show ( } ) CF setfont show (/* option letter okay? */) IF setfont show Nl Lpt CFs setfont ( 36 2 ) show ( if \(\(optopt = \(int\)*place++\) == \(int\)':' || !\(oli = strchr\(ostr,optopt\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 37 2 ) show ( if\(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 38 2 ) show ( \(void\)fprintf\(stderr, "%s: illegal option -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 39 2 ) show ( return '?';) CF setfont show Nl Lpt CFs setfont ( 40 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(*++oli != ':'\) { ) CF setfont show (/* don't need argument */) IF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( optarg = NULL;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( if \(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else { ) CF setfont show (/* need an argument */) IF setfont show Nl Lpt CFs setfont ( 45 3 ) show ( if \(*place\) { ) CF setfont show (/* no white space */) IF setfont show Nl Lpt CFs setfont ( 46 3 ) show ( optarg = place;) CF setfont show Nl Lpt CFs setfont ( 47 3 ) show ( } else if \(nargc <= ++optind\) { ) CF setfont show (/* no arg */) IF setfont show Nl Lpt CFs setfont ( 48 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 49 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr, "%s: option requires an argument -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 50 3 ) show ( optopt = '?';) CF setfont show Nl Lpt CFs setfont ( 51 3 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 52 3 ) show ( optarg = nargv[optind]; ) CF setfont show (/* white space */) IF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 55 2 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 56 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 57 1 ) show ( return optopt; ) CF setfont show (/* dump back option letter */) IF setfont show Nl Lpt CFs setfont ( 58 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test44.out0000644000175000017500000004653107625761740013410 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 0 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto Rm 0 rlineto gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 3) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test2.c) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test1.c) ) show Nl Lpt( fclosepipe..................2 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( getopt......................3 (test2.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl showpage %%Page: 2 3 15 30 translate Ip HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test2.c 3) BF setfont show CF setfont Nl Lpt( getopt 3) show Nl showpage %%Page: 3 4 15 30 translate Cp HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 3) stringwidth pop sub dup Ypos moveto (Page 1 of 3) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl showpage %%Page: 4 5 15 30 translate Cp HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 3) stringwidth pop sub dup Ypos moveto (Page 2 of 3) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 5 6 15 30 translate Cp HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 3) stringwidth pop sub dup Ypos moveto (Page 3 of 3) show exch sub 2 div add (test2.c 1) stringwidth pop 2 div sub Ypos moveto (test2.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/* @\(#\)getopt.c */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 3 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 5 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 6 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 8 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 9 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 11 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 12 ) show ( * get option letter from argument vector) IF setfont show Nl Lpt CFs setfont ( 13 ) show ( */) IF setfont show Nl Lpt CFs setfont ( 14 ) show (int optind = 1; ) CF setfont show (/* index into parent argv vector */) IF setfont show Nl Lpt CFs setfont ( 15 ) show (char *optarg; ) CF setfont show (/* argument associated with option */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 17 ) show (static int optopt; ) CF setfont show (/* character checked for validity */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (int) CF setfont show Nl Lpt CFs setfont ( 20 ) show (getopt) BF setfont show (\(int nargc, char **nargv, char *ostr\)) CF setfont show Nl Lpt CFs setfont ( 21 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 22 1 ) show ( register char *oli; ) CF setfont show (/* option letter list index */) IF setfont show Nl Lpt CFs setfont ( 23 1 ) show ( static char *place = ""; ) CF setfont show (/* option letter processing */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 25 2 ) show ( if\(!*place\) { ) CF setfont show (/* update scanning pointer */) IF setfont show Nl Lpt CFs setfont ( 26 3 ) show ( if\(optind >= nargc || *\(place = nargv[optind]\) != '-' || !*++place\) {) CF setfont show Nl Lpt CFs setfont ( 27 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 28 3 ) show ( return\(EOF\);) CF setfont show Nl Lpt CFs setfont ( 29 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 30 3 ) show ( if \(*place == '-'\) { ) CF setfont show (/* found "--" */) IF setfont show Nl Lpt CFs setfont ( 31 3 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 32 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 33 3 ) show ( return EOF;) CF setfont show Nl Lpt CFs setfont ( 34 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 35 1 ) show ( } ) CF setfont show (/* option letter okay? */) IF setfont show Nl Lpt CFs setfont ( 36 2 ) show ( if \(\(optopt = \(int\)*place++\) == \(int\)':' || !\(oli = strchr\(ostr,optopt\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 37 2 ) show ( if\(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 38 2 ) show ( \(void\)fprintf\(stderr, "%s: illegal option -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 39 2 ) show ( return '?';) CF setfont show Nl Lpt CFs setfont ( 40 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(*++oli != ':'\) { ) CF setfont show (/* don't need argument */) IF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( optarg = NULL;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( if \(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else { ) CF setfont show (/* need an argument */) IF setfont show Nl Lpt CFs setfont ( 45 3 ) show ( if \(*place\) { ) CF setfont show (/* no white space */) IF setfont show Nl Lpt CFs setfont ( 46 3 ) show ( optarg = place;) CF setfont show Nl Lpt CFs setfont ( 47 3 ) show ( } else if \(nargc <= ++optind\) { ) CF setfont show (/* no arg */) IF setfont show Nl Lpt CFs setfont ( 48 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 49 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr, "%s: option requires an argument -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 50 3 ) show ( optopt = '?';) CF setfont show Nl Lpt CFs setfont ( 51 3 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 52 3 ) show ( optarg = nargv[optind]; ) CF setfont show (/* white space */) IF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 55 2 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 56 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 57 1 ) show ( return optopt; ) CF setfont show (/* dump back option letter */) IF setfont show Nl Lpt CFs setfont ( 58 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test45.out0000644000175000017500000005121207625761740013401 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 897 def /Tm 578 def /Bh 15 def /Bf 0 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto Rm 0 rlineto gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 6) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test2.c) show showpage %%Page: 1 2 gsave 15 405 translate .64 .64 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 3 (test1.c) ) show Nl Lpt( fclosepipe..................3 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( getopt......................5 (test2.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl grestore 15 30 translate .64 .64 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 3 3 gsave 15 405 translate .64 .64 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................3) show Nl Lpt( fclosepipe 3) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test2.c 5) BF setfont show CF setfont Nl Lpt( getopt 5) show Nl grestore 15 30 translate .64 .64 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 5 4 gsave 15 405 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 6) stringwidth pop sub dup Ypos moveto (Page 1 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\(\) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl grestore 15 30 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 6) stringwidth pop sub dup Ypos moveto (Page 2 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl showpage %%Page: 7 5 gsave 15 405 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 6) stringwidth pop sub dup Ypos moveto (Page 3 of 6) show exch sub 2 div add (closepipe) stringwidth pop 2 div sub Ypos moveto (closepipe) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl grestore 15 30 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 6) stringwidth pop sub dup Ypos moveto (Page 4 of 6) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show /Vpos Tm Bh sub Ps sub def showpage %%Page: 9 6 gsave 15 405 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 6) stringwidth pop sub dup Ypos moveto (Page 5 of 6) show exch sub 2 div add (getopt) stringwidth pop 2 div sub Ypos moveto (getopt) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/* @\(#\)getopt.c */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 3 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 5 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 6 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 8 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 9 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 11 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 12 ) show ( * get option letter from argument vector) IF setfont show Nl Lpt CFs setfont ( 13 ) show ( */) IF setfont show Nl Lpt CFs setfont ( 14 ) show (int optind = 1; ) CF setfont show (/* index into parent argv vector */) IF setfont show Nl Lpt CFs setfont ( 15 ) show (char *optarg; ) CF setfont show (/* argument associated with option */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 17 ) show (static int optopt; ) CF setfont show (/* character checked for validity */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (int) CF setfont show Nl Lpt CFs setfont ( 20 ) show (getopt) BF setfont show (\(int nargc, char **nargv, char *ostr\)) CF setfont show Nl Lpt CFs setfont ( 21 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 22 1 ) show ( register char *oli; ) CF setfont show (/* option letter list index */) IF setfont show Nl Lpt CFs setfont ( 23 1 ) show ( static char *place = ""; ) CF setfont show (/* option letter processing */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 25 2 ) show ( if\(!*place\) { ) CF setfont show (/* update scanning pointer */) IF setfont show Nl Lpt CFs setfont ( 26 3 ) show ( if\(optind >= nargc || *\(place = nargv[optind]\) != '-' || !*++place\) {) CF setfont show Nl Lpt CFs setfont ( 27 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 28 3 ) show ( return\(EOF\);) CF setfont show Nl Lpt CFs setfont ( 29 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 30 3 ) show ( if \(*place == '-'\) { ) CF setfont show (/* found "--" */) IF setfont show Nl Lpt CFs setfont ( 31 3 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 32 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 33 3 ) show ( return EOF;) CF setfont show Nl Lpt CFs setfont ( 34 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 35 1 ) show ( } ) CF setfont show (/* option letter okay? */) IF setfont show Nl Lpt CFs setfont ( 36 2 ) show ( if \(\(optopt = \(int\)*place++\) == \(int\)':' || !\(oli = strchr\(ostr,optopt\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 37 2 ) show ( if\(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 38 2 ) show ( \(void\)fprintf\(stderr, "%s: illegal option -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 39 2 ) show ( return '?';) CF setfont show Nl Lpt CFs setfont ( 40 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(*++oli != ':'\) { ) CF setfont show (/* don't need argument */) IF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( optarg = NULL;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( if \(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else { ) CF setfont show (/* need an argument */) IF setfont show Nl Lpt CFs setfont ( 45 3 ) show ( if \(*place\) { ) CF setfont show (/* no white space */) IF setfont show Nl Lpt CFs setfont ( 46 3 ) show ( optarg = place;) CF setfont show Nl Lpt CFs setfont ( 47 3 ) show ( } else if \(nargc <= ++optind\) { ) CF setfont show (/* no arg */) IF setfont show Nl Lpt CFs setfont ( 48 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 49 3 ) show ( \(void\)fprintf\(stderr, "%s: option requires an argument -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 50 3 ) show ( optopt = '?';) CF setfont show Nl Lpt CFs setfont ( 51 3 ) show ( } else {) CF setfont show Nl grestore 15 30 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 6) stringwidth pop sub dup Ypos moveto (Page 6 of 6) show exch sub 2 div add (getopt) stringwidth pop 2 div sub Ypos moveto (getopt) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 52 3 ) show ( optarg = nargv[optind]; ) CF setfont show (/* white space */) IF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 55 2 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 56 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 57 1 ) show ( return optopt; ) CF setfont show (/* dump back option letter */) IF setfont show Nl Lpt CFs setfont ( 58 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test19.out0000644000175000017500000001033007625761740013376 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 2) show 70 650 moveto (File: test4.new) show 70 625 moveto (File: test4.previous) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test4.new 1) BF setfont show CF setfont Nl Lpt( test4.previous 2) BF setfont show CF setfont Nl showpage %%Page: 2 3 15 30 translate Ip gsave .9 setgray Rm 2 div Tm 2 div translate 60 rotate /Courier-Bold findfont 63 scalefont setfont -216 0 moveto (test4.new) show grestore HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 2) stringwidth pop sub dup Ypos moveto (Page 1 of 2) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 2) stringwidth pop sub dup Ypos moveto (Page 1 of 2) show exch sub 2 div add (test4.new 1) stringwidth pop 2 div sub Ypos moveto (test4.new 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (These two lines) CF setfont show Nl Lpt CFs setfont ( ) show (remain) CF setfont show Nl Lpt CFs setfont ( ) show (Last two lines) CF setfont show Nl Lpt CFs setfont ( ) show (added) CF setfont show Nl showpage %%Page: 3 4 15 30 translate Ip gsave .9 setgray Rm 2 div Tm 2 div translate 60 rotate /Courier-Bold findfont 41 scalefont setfont -216 0 moveto (test4.previous) show grestore HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 2) stringwidth pop sub dup Ypos moveto (Page 2 of 2) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 2) stringwidth pop sub dup Ypos moveto (Page 2 of 2) show exch sub 2 div add (test4.previous 1) stringwidth pop 2 div sub Ypos moveto (test4.previous 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (First two lines) CF setfont show Nl Lpt CFs setfont ( ) show (deleted) CF setfont show Nl Lpt CFs setfont ( ) show (These two lines) CF setfont show Nl Lpt CFs setfont ( ) show (remain) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test25.out0000644000175000017500000010560607625761740013406 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 571 def /Tm 742 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 12) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test7) show 70 600 moveto (File: test6.c) show showpage %%Page: 1 2 gsave 15 405 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test1.c) ) show Nl Lpt( closepipe..................10 (test6.c)) show Nl Lpt( fclosepipe 2 (test1.c) ) show Nl Lpt( fclosepipe.................10 (test6.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( fopenpipe..................10 (test6.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl Lpt( openpipe....................9 (test6.c)) show Nl grestore gsave 15 30 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def grestore gsave 304 405 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3) stringwidth pop sub dup Ypos moveto (Page 3) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3) stringwidth pop sub dup Ypos moveto (Page 3) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def grestore 304 30 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4) stringwidth pop sub dup Ypos moveto (Page 4) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4) stringwidth pop sub dup Ypos moveto (Page 4) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 5 3 gsave 15 405 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test7 5) BF setfont show CF setfont Nl Lpt( test6.c 9) BF setfont show CF setfont Nl Lpt( closepipe..................10) show Nl Lpt( fclosepipe 10) show Nl Lpt( fopenpipe..................10) show Nl Lpt( openpipe 9) show Nl grestore gsave 15 30 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def grestore gsave 304 405 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3) stringwidth pop sub dup Ypos moveto (Page 3) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3) stringwidth pop sub dup Ypos moveto (Page 3) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def grestore 304 30 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4) stringwidth pop sub dup Ypos moveto (Page 4) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4) stringwidth pop sub dup Ypos moveto (Page 4) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 9 4 gsave 15 405 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 12) stringwidth pop sub dup Ypos moveto (Page 1 of 12) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 12) stringwidth pop sub dup Ypos moveto (Page 1 of 12) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl grestore gsave 15 30 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 12) stringwidth pop sub dup Ypos moveto (Page 2 of 12) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 12) stringwidth pop sub dup Ypos moveto (Page 2 of 12) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show (stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl grestore gsave 304 405 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 12) stringwidth pop sub dup Ypos moveto (Page 3 of 12) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 12) stringwidth pop sub dup Ypos moveto (Page 3 of 12) show exch sub 2 div add (test1.c 3) stringwidth pop 2 div sub Ypos moveto (test1.c 3) show /Vpos Tm Bh sub Ps sub def grestore 304 30 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 12) stringwidth pop sub dup Ypos moveto (Page 4 of 12) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 12) stringwidth pop sub dup Ypos moveto (Page 4 of 12) show exch sub 2 div add (test1.c 4) stringwidth pop 2 div sub Ypos moveto (test1.c 4) show /Vpos Tm Bh sub Ps sub def showpage %%Page: 13 5 gsave 15 405 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 12) stringwidth pop sub dup Ypos moveto (Page 5 of 12) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 12) stringwidth pop sub dup Ypos moveto (Page 5 of 12) show exch sub 2 div add (test7 1) stringwidth pop 2 div sub Ypos moveto (test7 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (This is a short line) CF setfont show Nl Lpt CFs setfont ( 2 ) show (12345678901234567890123456789012345678901234567890123456789012345678901234567890123456) CF setfont show Nl Lpt CFs setfont ( ) show ( 7890) CF setfont show Nl Lpt CFs setfont ( 3 ) show (This is a very long line that extends way beyond the normal width of a normal line ) CF setfont show Nl Lpt CFs setfont ( ) show ( and goes on until at least the hundredth column.) CF setfont show Nl Lpt CFs setfont ( 4 ) show (This is another short line.) CF setfont show Nl grestore gsave 15 30 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 12) stringwidth pop sub dup Ypos moveto (Page 6 of 12) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 12) stringwidth pop sub dup Ypos moveto (Page 6 of 12) show exch sub 2 div add (test7 2) stringwidth pop 2 div sub Ypos moveto (test7 2) show /Vpos Tm Bh sub Ps sub def grestore gsave 304 405 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 7 of 12) stringwidth pop sub dup Ypos moveto (Page 7 of 12) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 7 of 12) stringwidth pop sub dup Ypos moveto (Page 7 of 12) show exch sub 2 div add (test7 3) stringwidth pop 2 div sub Ypos moveto (test7 3) show /Vpos Tm Bh sub Ps sub def grestore 304 30 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 8 of 12) stringwidth pop sub dup Ypos moveto (Page 8 of 12) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 8 of 12) stringwidth pop sub dup Ypos moveto (Page 8 of 12) show exch sub 2 div add (test7 4) stringwidth pop 2 div sub Ypos moveto (test7 4) show /Vpos Tm Bh sub Ps sub def showpage %%Page: 17 6 gsave 15 405 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 9 of 12) stringwidth pop sub dup Ypos moveto (Page 9 of 12) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 9 of 12) stringwidth pop sub dup Ypos moveto (Page 9 of 12) show exch sub 2 div add (test6.c 1) stringwidth pop 2 div sub Ypos moveto (test6.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl grestore gsave 15 30 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 10 of 12) stringwidth pop sub dup Ypos moveto (Page 10 of 12) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 10 of 12) stringwidth pop sub dup Ypos moveto (Page 10 of 12) show exch sub 2 div add (test6.c 2) stringwidth pop 2 div sub Ypos moveto (test6.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show (stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl grestore gsave 304 405 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 11 of 12) stringwidth pop sub dup Ypos moveto (Page 11 of 12) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 11 of 12) stringwidth pop sub dup Ypos moveto (Page 11 of 12) show exch sub 2 div add (test6.c 3) stringwidth pop 2 div sub Ypos moveto (test6.c 3) show /Vpos Tm Bh sub Ps sub def grestore 304 30 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 12 of 12) stringwidth pop sub dup Ypos moveto (Page 12 of 12) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 12 of 12) stringwidth pop sub dup Ypos moveto (Page 12 of 12) show exch sub 2 div add (test6.c 4) stringwidth pop 2 div sub Ypos moveto (test6.c 4) show /Vpos Tm Bh sub Ps sub def showpage %%Trailer %%EOF trueprint-5.4/tests/Makefile.in0000644000175000017500000003350112117066431013551 00000000000000# Makefile.in generated by automake 1.11.6 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = tests DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__tty_colors = \ red=; grn=; lgn=; blu=; std= DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GREP = @GREP@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ EXTRA_DIST = \ Run \ OLDtest6.c \ test1.c \ test1.out \ test10.out \ test11.out \ test12.out \ test13.out \ test14.out \ test15.out \ test16.out \ test17.out \ test18.out \ test19.out \ test2.c \ test2.out \ test20.out \ test21 \ test21.out \ test22.out \ test23.out \ test24.out \ test25.out \ test26.out \ test27.out \ test28.out \ test29.out \ test3 \ test3.out \ test30.out \ test31.out \ test32.out \ test33.out \ test34.out \ test35.out \ test36.out \ test37.out \ test38.out \ test39.out \ test4.new \ test4.previous \ test4.out \ test40.out \ test41.out \ test42.out \ test43.out \ test44.out \ test45.out \ test46.out \ test47.out \ test48.out \ test49.out \ test5.out \ test6.c \ test6.out \ test7 \ test7.out \ test8.out \ test9.out MAINTAINERCLEANFILES = Makefile.in TESTS_ENVIRONMENT = top_builddir=$(top_builddir) TESTS = Run all: all-am .SUFFIXES: $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign tests/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign tests/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs tags: TAGS TAGS: ctags: CTAGS CTAGS: check-TESTS: $(TESTS) @failed=0; all=0; xfail=0; xpass=0; skip=0; \ srcdir=$(srcdir); export srcdir; \ list=' $(TESTS) '; \ $(am__tty_colors); \ if test -n "$$list"; then \ for tst in $$list; do \ if test -f ./$$tst; then dir=./; \ elif test -f $$tst; then dir=; \ else dir="$(srcdir)/"; fi; \ if $(TESTS_ENVIRONMENT) $${dir}$$tst; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xpass=`expr $$xpass + 1`; \ failed=`expr $$failed + 1`; \ col=$$red; res=XPASS; \ ;; \ *) \ col=$$grn; res=PASS; \ ;; \ esac; \ elif test $$? -ne 77; then \ all=`expr $$all + 1`; \ case " $(XFAIL_TESTS) " in \ *[\ \ ]$$tst[\ \ ]*) \ xfail=`expr $$xfail + 1`; \ col=$$lgn; res=XFAIL; \ ;; \ *) \ failed=`expr $$failed + 1`; \ col=$$red; res=FAIL; \ ;; \ esac; \ else \ skip=`expr $$skip + 1`; \ col=$$blu; res=SKIP; \ fi; \ echo "$${col}$$res$${std}: $$tst"; \ done; \ if test "$$all" -eq 1; then \ tests="test"; \ All=""; \ else \ tests="tests"; \ All="All "; \ fi; \ if test "$$failed" -eq 0; then \ if test "$$xfail" -eq 0; then \ banner="$$All$$all $$tests passed"; \ else \ if test "$$xfail" -eq 1; then failures=failure; else failures=failures; fi; \ banner="$$All$$all $$tests behaved as expected ($$xfail expected $$failures)"; \ fi; \ else \ if test "$$xpass" -eq 0; then \ banner="$$failed of $$all $$tests failed"; \ else \ if test "$$xpass" -eq 1; then passes=pass; else passes=passes; fi; \ banner="$$failed of $$all $$tests did not behave as expected ($$xpass unexpected $$passes)"; \ fi; \ fi; \ dashes="$$banner"; \ skipped=""; \ if test "$$skip" -ne 0; then \ if test "$$skip" -eq 1; then \ skipped="($$skip test was not run)"; \ else \ skipped="($$skip tests were not run)"; \ fi; \ test `echo "$$skipped" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$skipped"; \ fi; \ report=""; \ if test "$$failed" -ne 0 && test -n "$(PACKAGE_BUGREPORT)"; then \ report="Please report to $(PACKAGE_BUGREPORT)"; \ test `echo "$$report" | wc -c` -le `echo "$$banner" | wc -c` || \ dashes="$$report"; \ fi; \ dashes=`echo "$$dashes" | sed s/./=/g`; \ if test "$$failed" -eq 0; then \ col="$$grn"; \ else \ col="$$red"; \ fi; \ echo "$${col}$$dashes$${std}"; \ echo "$${col}$$banner$${std}"; \ test -z "$$skipped" || echo "$${col}$$skipped$${std}"; \ test -z "$$report" || echo "$${col}$$report$${std}"; \ echo "$${col}$$dashes$${std}"; \ test "$$failed" -eq 0; \ else :; fi distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am $(MAKE) $(AM_MAKEFLAGS) check-TESTS check: check-am all-am: Makefile installdirs: install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) clean: clean-am clean-am: clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-generic mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: .MAKE: check-am install-am install-strip .PHONY: all all-am check check-TESTS check-am clean clean-generic \ clean-libtool distclean distclean-generic distclean-libtool \ distdir dvi dvi-am html html-am info info-am install \ install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \ uninstall uninstall-am # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: trueprint-5.4/tests/test42.out0000644000175000017500000005635107625761740013407 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 836 def /Tm 578 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 6) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test2.c) show showpage %%Page: 1 2 gsave 54 405 translate .64 .64 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 3 (test1.c) ) show Nl Lpt( fclosepipe..................3 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( getopt......................5 (test2.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl grestore 54 30 translate .64 .64 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 3 3 gsave 54 405 translate .64 .64 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................3) show Nl Lpt( fclosepipe 3) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test2.c 5) BF setfont show CF setfont Nl Lpt( getopt 5) show Nl grestore 54 30 translate .64 .64 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 5 4 gsave 54 405 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 6) stringwidth pop sub dup Ypos moveto (Page 1 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 6) stringwidth pop sub dup Ypos moveto (Page 1 of 6) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\(\) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl grestore 54 30 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 6) stringwidth pop sub dup Ypos moveto (Page 2 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 6) stringwidth pop sub dup Ypos moveto (Page 2 of 6) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl showpage %%Page: 7 5 gsave 54 405 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 6) stringwidth pop sub dup Ypos moveto (Page 3 of 6) show exch sub 2 div add (fopenpipe) stringwidth pop 2 div sub Ypos moveto (fopenpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 6) stringwidth pop sub dup Ypos moveto (Page 3 of 6) show exch sub 2 div add (test1.c 3) stringwidth pop 2 div sub Ypos moveto (test1.c 3) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl grestore 54 30 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 6) stringwidth pop sub dup Ypos moveto (Page 4 of 6) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 6) stringwidth pop sub dup Ypos moveto (Page 4 of 6) show exch sub 2 div add (test1.c 4) stringwidth pop 2 div sub Ypos moveto (test1.c 4) show /Vpos Tm Bh sub Ps sub def showpage %%Page: 9 6 gsave 54 405 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 6) stringwidth pop sub dup Ypos moveto (Page 5 of 6) show exch sub 2 div add (getopt) stringwidth pop 2 div sub Ypos moveto (getopt) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 6) stringwidth pop sub dup Ypos moveto (Page 5 of 6) show exch sub 2 div add (test2.c 1) stringwidth pop 2 div sub Ypos moveto (test2.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/* @\(#\)getopt.c */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 3 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 5 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 6 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 8 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 9 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 11 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 12 ) show ( * get option letter from argument vector) IF setfont show Nl Lpt CFs setfont ( 13 ) show ( */) IF setfont show Nl Lpt CFs setfont ( 14 ) show (int optind = 1; ) CF setfont show (/* index into parent argv vector */) IF setfont show Nl Lpt CFs setfont ( 15 ) show (char *optarg; ) CF setfont show (/* argument associated with option */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 17 ) show (static int optopt; ) CF setfont show (/* character checked for validity */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (int) CF setfont show Nl Lpt CFs setfont ( 20 ) show (getopt) BF setfont show (\(int nargc, char **nargv, char *ostr\)) CF setfont show Nl Lpt CFs setfont ( 21 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 22 1 ) show ( register char *oli; ) CF setfont show (/* option letter list index */) IF setfont show Nl Lpt CFs setfont ( 23 1 ) show ( static char *place = ""; ) CF setfont show (/* option letter processing */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 25 2 ) show ( if\(!*place\) { ) CF setfont show (/* update scanning pointer */) IF setfont show Nl Lpt CFs setfont ( 26 3 ) show ( if\(optind >= nargc || *\(place = nargv[optind]\) != '-' || !*++place\) {) CF setfont show Nl Lpt CFs setfont ( 27 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 28 3 ) show ( return\(EOF\);) CF setfont show Nl Lpt CFs setfont ( 29 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 30 3 ) show ( if \(*place == '-'\) { ) CF setfont show (/* found "--" */) IF setfont show Nl Lpt CFs setfont ( 31 3 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 32 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 33 3 ) show ( return EOF;) CF setfont show Nl Lpt CFs setfont ( 34 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 35 1 ) show ( } ) CF setfont show (/* option letter okay? */) IF setfont show Nl Lpt CFs setfont ( 36 2 ) show ( if \(\(optopt = \(int\)*place++\) == \(int\)':' || !\(oli = strchr\(ostr,optopt\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 37 2 ) show ( if\(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 38 2 ) show ( \(void\)fprintf\(stderr, "%s: illegal option -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 39 2 ) show ( return '?';) CF setfont show Nl Lpt CFs setfont ( 40 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(*++oli != ':'\) { ) CF setfont show (/* don't need argument */) IF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( optarg = NULL;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( if \(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else { ) CF setfont show (/* need an argument */) IF setfont show Nl Lpt CFs setfont ( 45 3 ) show ( if \(*place\) { ) CF setfont show (/* no white space */) IF setfont show Nl Lpt CFs setfont ( 46 3 ) show ( optarg = place;) CF setfont show Nl Lpt CFs setfont ( 47 3 ) show ( } else if \(nargc <= ++optind\) { ) CF setfont show (/* no arg */) IF setfont show Nl Lpt CFs setfont ( 48 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 49 3 ) show ( \(void\)fprintf\(stderr, "%s: option requires an argument -- %c\\n", cmd_name, optopt\);) CF setfont show Nl grestore 54 30 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 6) stringwidth pop sub dup Ypos moveto (Page 6 of 6) show exch sub 2 div add (getopt) stringwidth pop 2 div sub Ypos moveto (getopt) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 6) stringwidth pop sub dup Ypos moveto (Page 6 of 6) show exch sub 2 div add (test2.c 2) stringwidth pop 2 div sub Ypos moveto (test2.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 50 3 ) show ( optopt = '?';) CF setfont show Nl Lpt CFs setfont ( 51 3 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 52 3 ) show ( optarg = nargv[optind]; ) CF setfont show (/* white space */) IF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 55 2 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 56 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 57 1 ) show ( return optopt; ) CF setfont show (/* dump back option letter */) IF setfont show Nl Lpt CFs setfont ( 58 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test18.out0000644000175000017500000000543307625761740013405 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 1) show 70 650 moveto (File: test7) show showpage %%Page: 1 2 15 30 translate Ip gsave .9 setgray Rm 2 div Tm 2 div translate 60 rotate /Courier-Bold findfont 41 scalefont setfont -216 0 moveto (Overprint-test) show grestore HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add (test7 1) stringwidth pop 2 div sub Ypos moveto (test7 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (This is a short line) CF setfont show Nl Lpt CFs setfont ( ) show (123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890) CF setfont show Nl Lpt CFs setfont ( ) show (This is a very long line that extends way beyond the normal width of a normal line and goes on ) CF setfont show Nl Lpt CFs setfont ( ) show ( until at least the hundredth column.) CF setfont show Nl Lpt CFs setfont ( ) show (This is another short line.) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test1.out0000644000175000017500000003243207625761740013314 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 2) show 70 650 moveto (File: test1.c) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test1.c) ) show Nl Lpt( fclosepipe..................2 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( openpipe....................1 (test1.c)) show Nl showpage %%Page: 2 3 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 2) stringwidth pop sub dup Ypos moveto (Page 1 of 2) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 2) stringwidth pop sub dup Ypos moveto (Page 1 of 2) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl showpage %%Page: 3 4 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 2) stringwidth pop sub dup Ypos moveto (Page 2 of 2) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 2) stringwidth pop sub dup Ypos moveto (Page 2 of 2) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/Run0000755000175000017500000004630607625761740012222 00000000000000#!/bin/sh # To run the tests, run "make check" from the parent directory. # To regenerate the outputs, run: # top_builddir= srcdir= ./Run generate passed=0 echo top_builddir = $top_builddir echo srcdir = $srcdir top_builddir=`cd $top_builddir && pwd` TRUEPRINT=$top_builddir/src/trueprint TP_OPTS="--N" TP_PRINT_CMD=cat export TP_PRINT_CMD TP_OPTS test=1 echo -n "$test Single C source file... " args="test1.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=2 echo -n "$test Two C source files... " args="test1.c test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=3 echo -n "$test Text file followed by C source file... " args="test3 test1.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=4 echo -n "$test Diff of two files... " args="-O test4.previous test4.new" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=5 echo -n "$test Diff of two files with long options... " args="--diff=test4.previous test4.new" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=6 echo -n "$test Another diff of two files... " args="-O test4.new test4.previous" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=7 echo -n "$test Another diff of two files with long options... " args="--diff=test4.new test4.previous" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=8 echo -n "$test Diffs using a prefix... " args="-O OLD test6.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=9 echo -n "$test Diffs using a prefix with long options... " args="--diff=OLD test6.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=10 echo -n "$test Very long source line... " args="test7" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=11 echo -n "$test Set interline gap & pointsize & page length -g -p -l... " args="-g7 -p9 -l45 test1.c test3" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=12 echo -n "$test Set interline gap & pointsize & page length with long options... " args="--leading=7 --point-size=9 --page-length=45 test1.c test3" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=13 echo -n "$test Change date & time in headers -X... " args="-X Header-test test4.new test4.previous" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=14 echo -n "$test Change date & time in headers with long options... " args="--left-header=Header-test test4.new test4.previous" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=15 echo -n "$test Use login name in headers -X %l... " args="-X %l test6.c test1.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=16 echo -n "$test Use login name in headers --left-header=%l... " args="--left-header=%l test6.c test1.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=17 echo -n "$test Print message over page -m... " args="-m Overprint-test test7" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=18 echo -n "$test Print message over page --message... " args="--message=Overprint-test test7" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=19 echo -n "$test Use current filename for message string -m %n... " args="-m %n test4.new test4.previous" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=20 echo -n "$test Use current filename for message string --message %n... " args="--message=%n test4.new test4.previous" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=21 echo -n "$test Use landscape mode -ol... " args="-ol test1.c test7" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=22 echo -n "$test Use landscape mode with long option... " args="--landscape test1.c test7" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=23 echo -n "$test Print 2-on-1 -2... " args="-2 test1.c test7 test6.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=24 echo -n "$test Print 2-on-1 --two-up... " args="--two-up test1.c test7 test6.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=25 echo -n "$test Print 4-on-1 -4... " args="-4 test1.c test7 test6.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=26 echo -n "$test Print 4-on-1 --four-up... " args="--four-up test1.c test7 test6.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=27 echo -n "$test Long lines & page width -w... " args="-w 40 test7" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=28 echo -n "$test Long lines & page width --line-wrap... " args="--line-wrap=40 test7" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=29 echo -n "$test Turn off intelligent linewrap -Wn... " args="-W -w 40 test7" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=30 echo -n "$test Turn off intelligent linewrap with long options... " args="--no-intelligent-line-wrap --line-wrap=40 test7" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=31 echo -n "$test Exclude braces depth count for C, line number count -in -nn... " args="-i -n test1.c test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=32 echo -n "$test Exclude braces depth count for C, line number count with long options... " args="--no-braces-depth --no-line-numbers test1.c test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=33 echo -n "$test Print double-sided -S2... " args="-S2 test1.c test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=34 echo -n "$test Print double-sided --double-sided... " args="--double-sided test1.c test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=35 echo -n "$test Suppress everything -C -F -f -B... " args="-C -F -f -B test1.c test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=36 echo -n "$test Suppress everything using long options... " args="--no-cover-sheet --no-file-index --no-function-index --no-print-body test1.c test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=37 echo -n "$test Set tabsize wierdly -T5... " args="-T5 test21" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=38 echo -n "$test Set tabsize wierdly using long option... " args="--tabsize=5 test21" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=39 echo -n "$test Set headers/footers... " args="-x Test-%%-%m-%d-%y -y %D-%L-%H-%M -z %S-%T-%j-%w -X %a-%h-%r-%p -Y %h-%r-%p-%P -Z %f-%F-%n-%N -m Login-%l test1.c test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=40 echo -n "$test Set headers/footers using long options... " args="--left-footer=Test-%%-%m-%d-%y --center-footer=%D-%L-%H-%M --right-footer=%S-%T-%j-%w --left-header=%a-%h-%r-%p --center-header=%h-%r-%p-%P --right-header=%f-%F-%n-%N --message=Login-%l test1.c test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=41 echo -n "$test Indent for holepunch --I... " args="--I -ol -2 test1.c test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=42 echo -n "$test Indent for holepunch using long options... " args="--holepunch --landscape --two-up test1.c test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=43 echo -n "$test Suppress headers --K... " args="--K test1.c test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=44 echo -n "$test Suppress headers using long options... " args="--no-headers test1.c test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=45 echo -n "$test Suppress footers --k... " args="--k -ol -2 test1.c test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=46 echo -n "$test Suppress footers using long options... " args="--no-footers --landscape --two-up test1.c test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out else ( cd $srcdir; $TRUEPRINT $args ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=47 echo -n "$test Stdin for default... " args="" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out < test1.c else ( cd $srcdir; $TRUEPRINT $args < test1.c ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=48 echo -n "$test - for stdin... " args="test1.c - test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out < test6.c else ( cd $srcdir; $TRUEPRINT $args < test6.c ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi test=49 echo -n "$test No new sheet for new file... " args="--no-new-sheet-after-file --four-up test1.c test2.c" if [ "$1" = "generate" ] ; then ( cd $srcdir; $TRUEPRINT $args ) > test$test.out < test6.c else ( cd $srcdir; $TRUEPRINT $args < test6.c ) | diff - $srcdir/test$test.out > test$test.dif if [ $? -ne "0" ] ; then echo "failed" else echo "passed" ; rm test$test.dif passed=`expr $passed + 1` fi fi echo "$passed out of 49 tests passed" echo "To complete the test, print a file using trueprint" if test $passed -eq 49; then exit 0; else exit 1; fi trueprint-5.4/tests/test48.out0000644000175000017500000007673407625761740013424 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 5) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: -) show 70 600 moveto (File: test2.c) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test1.c) ) show Nl Lpt( fclosepipe..................2 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( getopt......................5 (test2.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl showpage %%Page: 2 3 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( - 3) BF setfont show CF setfont Nl Lpt( test2.c 5) BF setfont show CF setfont Nl Lpt( getopt......................5) show Nl showpage %%Page: 3 4 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 5) stringwidth pop sub dup Ypos moveto (Page 1 of 5) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 5) stringwidth pop sub dup Ypos moveto (Page 1 of 5) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl showpage %%Page: 4 5 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 5) stringwidth pop sub dup Ypos moveto (Page 2 of 5) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 5) stringwidth pop sub dup Ypos moveto (Page 2 of 5) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 5 6 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 5) stringwidth pop sub dup Ypos moveto (Page 3 of 5) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 5) stringwidth pop sub dup Ypos moveto (Page 3 of 5) show exch sub 2 div add (- 1) stringwidth pop 2 div sub Ypos moveto (- 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) CF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) CF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) CF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) CF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) CF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) CF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) CF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 35 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 ) show ( /* Error */) CF setfont show Nl Lpt CFs setfont ( 60 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 ) show ( /*NOTREACHED*/) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 ) show ( case 0:) CF setfont show Nl showpage %%Page: 6 7 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 5) stringwidth pop sub dup Ypos moveto (Page 4 of 5) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 5) stringwidth pop sub dup Ypos moveto (Page 4 of 5) show exch sub 2 div add (- 2) stringwidth pop 2 div sub Ypos moveto (- 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 65 ) show ( /* Child process */) CF setfont show Nl Lpt CFs setfont ( 66 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 ) show ( /*NOTREACHED*/) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 ) show ( /* Parent process */) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 94 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 105 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 115 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 7 8 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 5) stringwidth pop sub dup Ypos moveto (Page 5 of 5) show exch sub 2 div add (getopt) stringwidth pop 2 div sub Ypos moveto (getopt) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 5) stringwidth pop sub dup Ypos moveto (Page 5 of 5) show exch sub 2 div add (test2.c 1) stringwidth pop 2 div sub Ypos moveto (test2.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/* @\(#\)getopt.c */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 3 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 5 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 6 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 8 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 9 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 11 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 12 ) show ( * get option letter from argument vector) IF setfont show Nl Lpt CFs setfont ( 13 ) show ( */) IF setfont show Nl Lpt CFs setfont ( 14 ) show (int optind = 1; ) CF setfont show (/* index into parent argv vector */) IF setfont show Nl Lpt CFs setfont ( 15 ) show (char *optarg; ) CF setfont show (/* argument associated with option */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 17 ) show (static int optopt; ) CF setfont show (/* character checked for validity */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (int) CF setfont show Nl Lpt CFs setfont ( 20 ) show (getopt) BF setfont show (\(int nargc, char **nargv, char *ostr\)) CF setfont show Nl Lpt CFs setfont ( 21 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 22 1 ) show ( register char *oli; ) CF setfont show (/* option letter list index */) IF setfont show Nl Lpt CFs setfont ( 23 1 ) show ( static char *place = ""; ) CF setfont show (/* option letter processing */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 25 2 ) show ( if\(!*place\) { ) CF setfont show (/* update scanning pointer */) IF setfont show Nl Lpt CFs setfont ( 26 3 ) show ( if\(optind >= nargc || *\(place = nargv[optind]\) != '-' || !*++place\) {) CF setfont show Nl Lpt CFs setfont ( 27 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 28 3 ) show ( return\(EOF\);) CF setfont show Nl Lpt CFs setfont ( 29 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 30 3 ) show ( if \(*place == '-'\) { ) CF setfont show (/* found "--" */) IF setfont show Nl Lpt CFs setfont ( 31 3 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 32 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 33 3 ) show ( return EOF;) CF setfont show Nl Lpt CFs setfont ( 34 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 35 1 ) show ( } ) CF setfont show (/* option letter okay? */) IF setfont show Nl Lpt CFs setfont ( 36 2 ) show ( if \(\(optopt = \(int\)*place++\) == \(int\)':' || !\(oli = strchr\(ostr,optopt\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 37 2 ) show ( if\(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 38 2 ) show ( \(void\)fprintf\(stderr, "%s: illegal option -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 39 2 ) show ( return '?';) CF setfont show Nl Lpt CFs setfont ( 40 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(*++oli != ':'\) { ) CF setfont show (/* don't need argument */) IF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( optarg = NULL;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( if \(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else { ) CF setfont show (/* need an argument */) IF setfont show Nl Lpt CFs setfont ( 45 3 ) show ( if \(*place\) { ) CF setfont show (/* no white space */) IF setfont show Nl Lpt CFs setfont ( 46 3 ) show ( optarg = place;) CF setfont show Nl Lpt CFs setfont ( 47 3 ) show ( } else if \(nargc <= ++optind\) { ) CF setfont show (/* no arg */) IF setfont show Nl Lpt CFs setfont ( 48 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 49 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr, "%s: option requires an argument -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 50 3 ) show ( optopt = '?';) CF setfont show Nl Lpt CFs setfont ( 51 3 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 52 3 ) show ( optarg = nargv[optind]; ) CF setfont show (/* white space */) IF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 55 2 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 56 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 57 1 ) show ( return optopt; ) CF setfont show (/* dump back option letter */) IF setfont show Nl Lpt CFs setfont ( 58 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test13.out0000644000175000017500000000764307625761740013405 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 2) show 70 650 moveto (File: test4.new) show 70 625 moveto (File: test4.previous) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test4.new 1) BF setfont show CF setfont Nl Lpt( test4.previous 2) BF setfont show CF setfont Nl showpage %%Page: 2 3 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Header-test) show currentpoint pop dup Rm Ps sub (Page 1 of 2) stringwidth pop sub dup Ypos moveto (Page 1 of 2) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 2) stringwidth pop sub dup Ypos moveto (Page 1 of 2) show exch sub 2 div add (test4.new 1) stringwidth pop 2 div sub Ypos moveto (test4.new 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (These two lines) CF setfont show Nl Lpt CFs setfont ( ) show (remain) CF setfont show Nl Lpt CFs setfont ( ) show (Last two lines) CF setfont show Nl Lpt CFs setfont ( ) show (added) CF setfont show Nl showpage %%Page: 3 4 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Header-test) show currentpoint pop dup Rm Ps sub (Page 2 of 2) stringwidth pop sub dup Ypos moveto (Page 2 of 2) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 2) stringwidth pop sub dup Ypos moveto (Page 2 of 2) show exch sub 2 div add (test4.previous 1) stringwidth pop 2 div sub Ypos moveto (test4.previous 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (First two lines) CF setfont show Nl Lpt CFs setfont ( ) show (deleted) CF setfont show Nl Lpt CFs setfont ( ) show (These two lines) CF setfont show Nl Lpt CFs setfont ( ) show (remain) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test31.out0000644000175000017500000004615607625761740013407 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 3) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test2.c) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test1.c) ) show Nl Lpt( fclosepipe..................2 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( getopt......................3 (test2.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl showpage %%Page: 2 3 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test2.c 3) BF setfont show CF setfont Nl Lpt( getopt 3) show Nl showpage %%Page: 3 4 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 3) stringwidth pop sub dup Ypos moveto (Page 1 of 3) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 3) stringwidth pop sub dup Ypos moveto (Page 1 of 3) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (/*) IF setfont show Nl Lpt CFs setfont ( ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( ) show ( *) IF setfont show Nl Lpt CFs setfont ( ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( ) show (#else) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (int) CF setfont show Nl Lpt CFs setfont ( ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( case 0:) CF setfont show Nl showpage %%Page: 4 5 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 3) stringwidth pop sub dup Ypos moveto (Page 2 of 3) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 3) stringwidth pop sub dup Ypos moveto (Page 2 of 3) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( default:) CF setfont show Nl Lpt CFs setfont ( ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show (stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (void) CF setfont show Nl Lpt CFs setfont ( ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (void) CF setfont show Nl Lpt CFs setfont ( ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl showpage %%Page: 5 6 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 3) stringwidth pop sub dup Ypos moveto (Page 3 of 3) show exch sub 2 div add (getopt) stringwidth pop 2 div sub Ypos moveto (getopt) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 3) stringwidth pop sub dup Ypos moveto (Page 3 of 3) show exch sub 2 div add (test2.c 1) stringwidth pop 2 div sub Ypos moveto (test2.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (/* @\(#\)getopt.c */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (/*) IF setfont show Nl Lpt CFs setfont ( ) show ( * get option letter from argument vector) IF setfont show Nl Lpt CFs setfont ( ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show (int optind = 1; ) CF setfont show (/* index into parent argv vector */) IF setfont show Nl Lpt CFs setfont ( ) show (char *optarg; ) CF setfont show (/* argument associated with option */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (static int optopt; ) CF setfont show (/* character checked for validity */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (int) CF setfont show Nl Lpt CFs setfont ( ) show (getopt) BF setfont show (\(int nargc, char **nargv, char *ostr\)) CF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( register char *oli; ) CF setfont show (/* option letter list index */) IF setfont show Nl Lpt CFs setfont ( ) show ( static char *place = ""; ) CF setfont show (/* option letter processing */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if\(!*place\) { ) CF setfont show (/* update scanning pointer */) IF setfont show Nl Lpt CFs setfont ( ) show ( if\(optind >= nargc || *\(place = nargv[optind]\) != '-' || !*++place\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( ) show ( return\(EOF\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show ( if \(*place == '-'\) { ) CF setfont show (/* found "--" */) IF setfont show Nl Lpt CFs setfont ( ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( ) show ( return EOF;) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show ( } ) CF setfont show (/* option letter okay? */) IF setfont show Nl Lpt CFs setfont ( ) show ( if \(\(optopt = \(int\)*place++\) == \(int\)':' || !\(oli = strchr\(ostr,optopt\)\)\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( if\(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: illegal option -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( ) show ( return '?';) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show ( if \(*++oli != ':'\) { ) CF setfont show (/* don't need argument */) IF setfont show Nl Lpt CFs setfont ( ) show ( optarg = NULL;) CF setfont show Nl Lpt CFs setfont ( ) show ( if \(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( ) show ( } else { ) CF setfont show (/* need an argument */) IF setfont show Nl Lpt CFs setfont ( ) show ( if \(*place\) { ) CF setfont show (/* no white space */) IF setfont show Nl Lpt CFs setfont ( ) show ( optarg = place;) CF setfont show Nl Lpt CFs setfont ( ) show ( } else if \(nargc <= ++optind\) { ) CF setfont show (/* no arg */) IF setfont show Nl Lpt CFs setfont ( ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr, "%s: option requires an argument -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( ) show ( optopt = '?';) CF setfont show Nl Lpt CFs setfont ( ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( ) show ( optarg = nargv[optind]; ) CF setfont show (/* white space */) IF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show ( return optopt; ) CF setfont show (/* dump back option letter */) IF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test24.out0000644000175000017500000007210107625761740013376 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 578 def /Tm 897 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 6) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test7) show 70 600 moveto (File: test6.c) show showpage %%Page: 1 2 gsave 590 30 translate .64 .64 scale 90 rotate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test1.c) ) show Nl Lpt( closepipe...................6 (test6.c)) show Nl Lpt( fclosepipe 2 (test1.c) ) show Nl Lpt( fclosepipe..................6 (test6.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( fopenpipe...................6 (test6.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl Lpt( openpipe....................5 (test6.c)) show Nl grestore 590 405 translate .64 .64 scale 90 rotate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 3 3 gsave 590 30 translate .64 .64 scale 90 rotate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test7 3) BF setfont show CF setfont Nl Lpt( test6.c 5) BF setfont show CF setfont Nl Lpt( closepipe...................6) show Nl Lpt( fclosepipe 6) show Nl Lpt( fopenpipe...................6) show Nl Lpt( openpipe 5) show Nl grestore 590 405 translate .64 .64 scale 90 rotate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 5 4 gsave 590 30 translate .64 .64 scale 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 6) stringwidth pop sub dup Ypos moveto (Page 1 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 6) stringwidth pop sub dup Ypos moveto (Page 1 of 6) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl grestore 590 405 translate .64 .64 scale 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 6) stringwidth pop sub dup Ypos moveto (Page 2 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 6) stringwidth pop sub dup Ypos moveto (Page 2 of 6) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 7 5 gsave 590 30 translate .64 .64 scale 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 6) stringwidth pop sub dup Ypos moveto (Page 3 of 6) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 6) stringwidth pop sub dup Ypos moveto (Page 3 of 6) show exch sub 2 div add (test7 1) stringwidth pop 2 div sub Ypos moveto (test7 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (This is a short line) CF setfont show Nl Lpt CFs setfont ( 2 ) show (123456789012345678901234567890123456789012345678901234567890123456789012345678901234567) CF setfont show Nl Lpt CFs setfont ( ) show ( 890) CF setfont show Nl Lpt CFs setfont ( 3 ) show (This is a very long line that extends way beyond the normal width of a normal line and ) CF setfont show Nl Lpt CFs setfont ( ) show ( goes on until at least the hundredth column.) CF setfont show Nl Lpt CFs setfont ( 4 ) show (This is another short line.) CF setfont show Nl grestore 590 405 translate .64 .64 scale 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 6) stringwidth pop sub dup Ypos moveto (Page 4 of 6) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 6) stringwidth pop sub dup Ypos moveto (Page 4 of 6) show exch sub 2 div add (test7 2) stringwidth pop 2 div sub Ypos moveto (test7 2) show /Vpos Tm Bh sub Ps sub def showpage %%Page: 9 6 gsave 590 30 translate .64 .64 scale 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 6) stringwidth pop sub dup Ypos moveto (Page 5 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 6) stringwidth pop sub dup Ypos moveto (Page 5 of 6) show exch sub 2 div add (test6.c 1) stringwidth pop 2 div sub Ypos moveto (test6.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl grestore 590 405 translate .64 .64 scale 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 6) stringwidth pop sub dup Ypos moveto (Page 6 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 6) stringwidth pop sub dup Ypos moveto (Page 6 of 6) show exch sub 2 div add (test6.c 2) stringwidth pop 2 div sub Ypos moveto (test6.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test15.out0000644000175000017500000006316407625761740013407 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 4) show 70 650 moveto (File: test6.c) show 70 625 moveto (File: test1.c) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test6.c) ) show Nl Lpt( closepipe...................4 (test1.c)) show Nl Lpt( fclosepipe 2 (test6.c) ) show Nl Lpt( fclosepipe..................4 (test1.c)) show Nl Lpt( fopenpipe 2 (test6.c) ) show Nl Lpt( fopenpipe...................4 (test1.c)) show Nl Lpt( openpipe 1 (test6.c) ) show Nl Lpt( openpipe....................3 (test1.c)) show Nl showpage %%Page: 2 3 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test6.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test1.c 3) BF setfont show CF setfont Nl Lpt( closepipe 4) show Nl Lpt( fclosepipe..................4) show Nl Lpt( fopenpipe 4) show Nl Lpt( openpipe....................3) show Nl showpage %%Page: 3 4 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (testuser) show currentpoint pop dup Rm Ps sub (Page 1 of 4) stringwidth pop sub dup Ypos moveto (Page 1 of 4) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 4) stringwidth pop sub dup Ypos moveto (Page 1 of 4) show exch sub 2 div add (test6.c 1) stringwidth pop 2 div sub Ypos moveto (test6.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl showpage %%Page: 4 5 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (testuser) show currentpoint pop dup Rm Ps sub (Page 2 of 4) stringwidth pop sub dup Ypos moveto (Page 2 of 4) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 4) stringwidth pop sub dup Ypos moveto (Page 2 of 4) show exch sub 2 div add (test6.c 2) stringwidth pop 2 div sub Ypos moveto (test6.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 5 6 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (testuser) show currentpoint pop dup Rm Ps sub (Page 3 of 4) stringwidth pop sub dup Ypos moveto (Page 3 of 4) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 4) stringwidth pop sub dup Ypos moveto (Page 3 of 4) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl showpage %%Page: 6 7 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (testuser) show currentpoint pop dup Rm Ps sub (Page 4 of 4) stringwidth pop sub dup Ypos moveto (Page 4 of 4) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 4) stringwidth pop sub dup Ypos moveto (Page 4 of 4) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test2.out0000644000175000017500000005133107625761740013314 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 3) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test2.c) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test1.c) ) show Nl Lpt( fclosepipe..................2 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( getopt......................3 (test2.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl showpage %%Page: 2 3 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test2.c 3) BF setfont show CF setfont Nl Lpt( getopt 3) show Nl showpage %%Page: 3 4 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 3) stringwidth pop sub dup Ypos moveto (Page 1 of 3) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 3) stringwidth pop sub dup Ypos moveto (Page 1 of 3) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl showpage %%Page: 4 5 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 3) stringwidth pop sub dup Ypos moveto (Page 2 of 3) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 3) stringwidth pop sub dup Ypos moveto (Page 2 of 3) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 5 6 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 3) stringwidth pop sub dup Ypos moveto (Page 3 of 3) show exch sub 2 div add (getopt) stringwidth pop 2 div sub Ypos moveto (getopt) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 3) stringwidth pop sub dup Ypos moveto (Page 3 of 3) show exch sub 2 div add (test2.c 1) stringwidth pop 2 div sub Ypos moveto (test2.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/* @\(#\)getopt.c */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 3 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 5 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 6 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 8 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 9 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 11 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 12 ) show ( * get option letter from argument vector) IF setfont show Nl Lpt CFs setfont ( 13 ) show ( */) IF setfont show Nl Lpt CFs setfont ( 14 ) show (int optind = 1; ) CF setfont show (/* index into parent argv vector */) IF setfont show Nl Lpt CFs setfont ( 15 ) show (char *optarg; ) CF setfont show (/* argument associated with option */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 17 ) show (static int optopt; ) CF setfont show (/* character checked for validity */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (int) CF setfont show Nl Lpt CFs setfont ( 20 ) show (getopt) BF setfont show (\(int nargc, char **nargv, char *ostr\)) CF setfont show Nl Lpt CFs setfont ( 21 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 22 1 ) show ( register char *oli; ) CF setfont show (/* option letter list index */) IF setfont show Nl Lpt CFs setfont ( 23 1 ) show ( static char *place = ""; ) CF setfont show (/* option letter processing */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 25 2 ) show ( if\(!*place\) { ) CF setfont show (/* update scanning pointer */) IF setfont show Nl Lpt CFs setfont ( 26 3 ) show ( if\(optind >= nargc || *\(place = nargv[optind]\) != '-' || !*++place\) {) CF setfont show Nl Lpt CFs setfont ( 27 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 28 3 ) show ( return\(EOF\);) CF setfont show Nl Lpt CFs setfont ( 29 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 30 3 ) show ( if \(*place == '-'\) { ) CF setfont show (/* found "--" */) IF setfont show Nl Lpt CFs setfont ( 31 3 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 32 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 33 3 ) show ( return EOF;) CF setfont show Nl Lpt CFs setfont ( 34 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 35 1 ) show ( } ) CF setfont show (/* option letter okay? */) IF setfont show Nl Lpt CFs setfont ( 36 2 ) show ( if \(\(optopt = \(int\)*place++\) == \(int\)':' || !\(oli = strchr\(ostr,optopt\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 37 2 ) show ( if\(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 38 2 ) show ( \(void\)fprintf\(stderr, "%s: illegal option -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 39 2 ) show ( return '?';) CF setfont show Nl Lpt CFs setfont ( 40 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(*++oli != ':'\) { ) CF setfont show (/* don't need argument */) IF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( optarg = NULL;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( if \(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else { ) CF setfont show (/* need an argument */) IF setfont show Nl Lpt CFs setfont ( 45 3 ) show ( if \(*place\) { ) CF setfont show (/* no white space */) IF setfont show Nl Lpt CFs setfont ( 46 3 ) show ( optarg = place;) CF setfont show Nl Lpt CFs setfont ( 47 3 ) show ( } else if \(nargc <= ++optind\) { ) CF setfont show (/* no arg */) IF setfont show Nl Lpt CFs setfont ( 48 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 49 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr, "%s: option requires an argument -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 50 3 ) show ( optopt = '?';) CF setfont show Nl Lpt CFs setfont ( 51 3 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 52 3 ) show ( optarg = nargv[optind]; ) CF setfont show (/* white space */) IF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 55 2 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 56 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 57 1 ) show ( return optopt; ) CF setfont show (/* dump back option letter */) IF setfont show Nl Lpt CFs setfont ( 58 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test3.out0000644000175000017500000005370607625761740013325 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 4) show 70 650 moveto (File: test3) show 70 625 moveto (File: test1.c) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test3 1) BF setfont show CF setfont Nl Lpt( test1.c 3) BF setfont show CF setfont Nl Lpt( closepipe 4) show Nl Lpt( fclosepipe..................4) show Nl Lpt( fopenpipe 4) show Nl Lpt( openpipe....................3) show Nl showpage %%Page: 2 3 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 4) stringwidth pop sub dup Ypos moveto (Page 1 of 4) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 4) stringwidth pop sub dup Ypos moveto (Page 1 of 4) show exch sub 2 div add (test3 1) stringwidth pop 2 div sub Ypos moveto (test3 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (/*) CF setfont show Nl Lpt CFs setfont ( ) show ( * Source file:) CF setfont show Nl Lpt CFs setfont ( ) show ( * openpipe.c) CF setfont show Nl Lpt CFs setfont ( ) show ( *) CF setfont show Nl Lpt CFs setfont ( ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) CF setfont show Nl Lpt CFs setfont ( ) show ( * This returns an int rather than a FILE * to make it general purpose -) CF setfont show Nl Lpt CFs setfont ( ) show ( * fdopen can be used outside to convert this to a FILE *) CF setfont show Nl Lpt CFs setfont ( ) show ( */) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( ) show (#else) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (int) CF setfont show Nl Lpt CFs setfont ( ) show (openpipe\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( ) show ( /* Error */) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( /*NOTREACHED*/) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( case 0:) CF setfont show Nl showpage %%Page: 3 4 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 4) stringwidth pop sub dup Ypos moveto (Page 2 of 4) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 4) stringwidth pop sub dup Ypos moveto (Page 2 of 4) show exch sub 2 div add (test3 2) stringwidth pop 2 div sub Ypos moveto (test3 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show ( /* Child process */) CF setfont show Nl Lpt CFs setfont ( ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( ) show ( /*NOTREACHED*/) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( default:) CF setfont show Nl Lpt CFs setfont ( ) show ( /* Parent process */) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show (stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( ) show (fopenpipe\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (void) CF setfont show Nl Lpt CFs setfont ( ) show (closepipe\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (void) CF setfont show Nl Lpt CFs setfont ( ) show (fclosepipe\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl showpage %%Page: 4 5 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 4) stringwidth pop sub dup Ypos moveto (Page 3 of 4) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 4) stringwidth pop sub dup Ypos moveto (Page 3 of 4) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (/*) IF setfont show Nl Lpt CFs setfont ( ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( ) show ( *) IF setfont show Nl Lpt CFs setfont ( ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( ) show (#else) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (int) CF setfont show Nl Lpt CFs setfont ( ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( case 0:) CF setfont show Nl showpage %%Page: 5 6 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 4) stringwidth pop sub dup Ypos moveto (Page 4 of 4) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 4) stringwidth pop sub dup Ypos moveto (Page 4 of 4) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( default:) CF setfont show Nl Lpt CFs setfont ( ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show (stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (void) CF setfont show Nl Lpt CFs setfont ( ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (void) CF setfont show Nl Lpt CFs setfont ( ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test28.out0000644000175000017500000000550707625761740013410 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 1) show 70 650 moveto (File: test7) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add (test7 1) stringwidth pop 2 div sub Ypos moveto (test7 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (This is a short line) CF setfont show Nl Lpt CFs setfont ( ) show (1234567890123456789012345678901234567890) CF setfont show Nl Lpt CFs setfont ( ) show (1234567890123456789012345678901234567890) CF setfont show Nl Lpt CFs setfont ( ) show ( 1234567890) CF setfont show Nl Lpt CFs setfont ( ) show (This is a very long line that extends ) CF setfont show Nl Lpt CFs setfont ( ) show (way beyond the normal width of a normal ) CF setfont show Nl Lpt CFs setfont ( ) show ( line and goes on until at least the ) CF setfont show Nl Lpt CFs setfont ( ) show ( hundredth column.) CF setfont show Nl Lpt CFs setfont ( ) show (This is another short line.) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test6.out0000644000175000017500000000472407625761740013324 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 1) show 70 650 moveto (File: test4.previous) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add (test4.previous 1) stringwidth pop 2 div sub Ypos moveto (test4.previous 1) show /Vpos Tm Bh sub Ps sub def Lpt BFs setfont (+) show (First two lines) BF setfont show Nl Lpt BFs setfont (+) show (deleted) BF setfont show Nl Lpt CFs setfont ( ) show (These two lines) CF setfont show Nl Lpt CFs setfont ( ) show (remain) CF setfont show Nl Lpt (-) CFs setfont show (Last two lines) CF setfont So show Nl Lpt (-) CFs setfont show (added) CF setfont So show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test26.out0000644000175000017500000010560607625761740013407 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 571 def /Tm 742 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 12) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test7) show 70 600 moveto (File: test6.c) show showpage %%Page: 1 2 gsave 15 405 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test1.c) ) show Nl Lpt( closepipe..................10 (test6.c)) show Nl Lpt( fclosepipe 2 (test1.c) ) show Nl Lpt( fclosepipe.................10 (test6.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( fopenpipe..................10 (test6.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl Lpt( openpipe....................9 (test6.c)) show Nl grestore gsave 15 30 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def grestore gsave 304 405 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3) stringwidth pop sub dup Ypos moveto (Page 3) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3) stringwidth pop sub dup Ypos moveto (Page 3) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def grestore 304 30 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4) stringwidth pop sub dup Ypos moveto (Page 4) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4) stringwidth pop sub dup Ypos moveto (Page 4) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 5 3 gsave 15 405 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test7 5) BF setfont show CF setfont Nl Lpt( test6.c 9) BF setfont show CF setfont Nl Lpt( closepipe..................10) show Nl Lpt( fclosepipe 10) show Nl Lpt( fopenpipe..................10) show Nl Lpt( openpipe 9) show Nl grestore gsave 15 30 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def grestore gsave 304 405 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3) stringwidth pop sub dup Ypos moveto (Page 3) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3) stringwidth pop sub dup Ypos moveto (Page 3) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def grestore 304 30 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4) stringwidth pop sub dup Ypos moveto (Page 4) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4) stringwidth pop sub dup Ypos moveto (Page 4) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 9 4 gsave 15 405 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 12) stringwidth pop sub dup Ypos moveto (Page 1 of 12) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 12) stringwidth pop sub dup Ypos moveto (Page 1 of 12) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl grestore gsave 15 30 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 12) stringwidth pop sub dup Ypos moveto (Page 2 of 12) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 12) stringwidth pop sub dup Ypos moveto (Page 2 of 12) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show (stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl grestore gsave 304 405 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 12) stringwidth pop sub dup Ypos moveto (Page 3 of 12) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 12) stringwidth pop sub dup Ypos moveto (Page 3 of 12) show exch sub 2 div add (test1.c 3) stringwidth pop 2 div sub Ypos moveto (test1.c 3) show /Vpos Tm Bh sub Ps sub def grestore 304 30 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 12) stringwidth pop sub dup Ypos moveto (Page 4 of 12) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 12) stringwidth pop sub dup Ypos moveto (Page 4 of 12) show exch sub 2 div add (test1.c 4) stringwidth pop 2 div sub Ypos moveto (test1.c 4) show /Vpos Tm Bh sub Ps sub def showpage %%Page: 13 5 gsave 15 405 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 12) stringwidth pop sub dup Ypos moveto (Page 5 of 12) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 12) stringwidth pop sub dup Ypos moveto (Page 5 of 12) show exch sub 2 div add (test7 1) stringwidth pop 2 div sub Ypos moveto (test7 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (This is a short line) CF setfont show Nl Lpt CFs setfont ( 2 ) show (12345678901234567890123456789012345678901234567890123456789012345678901234567890123456) CF setfont show Nl Lpt CFs setfont ( ) show ( 7890) CF setfont show Nl Lpt CFs setfont ( 3 ) show (This is a very long line that extends way beyond the normal width of a normal line ) CF setfont show Nl Lpt CFs setfont ( ) show ( and goes on until at least the hundredth column.) CF setfont show Nl Lpt CFs setfont ( 4 ) show (This is another short line.) CF setfont show Nl grestore gsave 15 30 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 12) stringwidth pop sub dup Ypos moveto (Page 6 of 12) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 12) stringwidth pop sub dup Ypos moveto (Page 6 of 12) show exch sub 2 div add (test7 2) stringwidth pop 2 div sub Ypos moveto (test7 2) show /Vpos Tm Bh sub Ps sub def grestore gsave 304 405 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 7 of 12) stringwidth pop sub dup Ypos moveto (Page 7 of 12) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 7 of 12) stringwidth pop sub dup Ypos moveto (Page 7 of 12) show exch sub 2 div add (test7 3) stringwidth pop 2 div sub Ypos moveto (test7 3) show /Vpos Tm Bh sub Ps sub def grestore 304 30 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 8 of 12) stringwidth pop sub dup Ypos moveto (Page 8 of 12) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 8 of 12) stringwidth pop sub dup Ypos moveto (Page 8 of 12) show exch sub 2 div add (test7 4) stringwidth pop 2 div sub Ypos moveto (test7 4) show /Vpos Tm Bh sub Ps sub def showpage %%Page: 17 6 gsave 15 405 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 9 of 12) stringwidth pop sub dup Ypos moveto (Page 9 of 12) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 9 of 12) stringwidth pop sub dup Ypos moveto (Page 9 of 12) show exch sub 2 div add (test6.c 1) stringwidth pop 2 div sub Ypos moveto (test6.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl grestore gsave 15 30 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 10 of 12) stringwidth pop sub dup Ypos moveto (Page 10 of 12) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 10 of 12) stringwidth pop sub dup Ypos moveto (Page 10 of 12) show exch sub 2 div add (test6.c 2) stringwidth pop 2 div sub Ypos moveto (test6.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show (stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl grestore gsave 304 405 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 11 of 12) stringwidth pop sub dup Ypos moveto (Page 11 of 12) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 11 of 12) stringwidth pop sub dup Ypos moveto (Page 11 of 12) show exch sub 2 div add (test6.c 3) stringwidth pop 2 div sub Ypos moveto (test6.c 3) show /Vpos Tm Bh sub Ps sub def grestore 304 30 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 12 of 12) stringwidth pop sub dup Ypos moveto (Page 12 of 12) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 12 of 12) stringwidth pop sub dup Ypos moveto (Page 12 of 12) show exch sub 2 div add (test6.c 4) stringwidth pop 2 div sub Ypos moveto (test6.c 4) show /Vpos Tm Bh sub Ps sub def showpage %%Trailer %%EOF trueprint-5.4/tests/test30000644000175000017500000000462407625761740012512 00000000000000/* * Source file: * openpipe.c * * Contains openpipe - a replacement for the non-POSIX function popen. * This returns an int rather than a FILE * to make it general purpose - * fdopen can be used outside to convert this to a FILE * */ #define _POSIX_SOURCE #include #include #include #include #include #include #ifdef _ultrix extern int close(int fildes); extern int dup(int fildes); extern pid_t fork(void); extern int pipe(int fildes[2]); #else #include #endif #include "trueprint.h" #include "main.h" #include "openpipe.h" int openpipe(const char *command, char *mode) { int fildes[2]; int parent_pipe_end; int child_pipe_end; char *child_pipe_mode; if (strcmp(mode, "w") == 0) { parent_pipe_end = 1; child_pipe_end = 0; child_pipe_mode = "read"; } else if (strcmp(mode, "r") == 0) { parent_pipe_end = 0; child_pipe_end = 1; child_pipe_mode = "write"; } else { (void)fprintf(stderr, "%s: Internal error: popen() called with bad mode %s", cmd_name, mode); exit(2); } if (pipe(fildes) != 0) { (void)fprintf(stderr, "%s: Cannot create pipe, %s\n", cmd_name, strerror(errno)); exit(2); } switch (fork()) { case -1: /* Error */ (void)fprintf(stderr, "%s: Cannot fork, %s\n", cmd_name, strerror(errno)); exit(2); /*NOTREACHED*/ case 0: /* Child process */ if (!((close(fildes[parent_pipe_end]) == 0) && (close(child_pipe_end) == 0) && (dup(fildes[child_pipe_end]) == child_pipe_end))) { (void)fprintf(stderr,"%s: Cannot redirect %s for child, %s\n", cmd_name, child_pipe_mode, strerror(errno)); exit(2); } if (system(command) < 0) { (void)fprintf(stderr,"%s: Cannot start pipe, %s\n",cmd_name, strerror(errno)); exit(2); } else exit(0); /*NOTREACHED*/ default: /* Parent process */ if (close(fildes[child_pipe_end]) != 0) { (void)fprintf(stderr,"%s: Cannot close %s end of pipe for parent, %s\n",cmd_name, child_pipe_mode, strerror(errno)); exit(2); } return fildes[parent_pipe_end]; } } FILE * fopenpipe(const char *command, char *mode) { int handle; handle = openpipe(command, mode); return fdopen(handle, mode); } void closepipe(int handle) { int statloc; (void)close(handle); (void)waitpid(-1, &statloc, WNOHANG); } void fclosepipe(FILE *fp) { closepipe(fileno(fp)); } trueprint-5.4/tests/test40.out0000644000175000017500000005326707625761740013410 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 3) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test2.c) show showpage %%Page: 1 2 15 30 translate Ip gsave .9 setgray Rm 2 div Tm 2 div translate 60 rotate /Courier-Bold findfont 41 scalefont setfont -216 0 moveto (Login-testuser) show grestore HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test1.c) ) show Nl Lpt( fclosepipe..................2 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( getopt......................3 (test2.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl showpage %%Page: 2 3 15 30 translate Ip gsave .9 setgray Rm 2 div Tm 2 div translate 60 rotate /Courier-Bold findfont 41 scalefont setfont -216 0 moveto (Login-testuser) show grestore HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test2.c 3) BF setfont show CF setfont Nl Lpt( getopt 3) show Nl showpage %%Page: 3 4 15 30 translate Cp gsave .9 setgray Rm 2 div Tm 2 div translate 60 rotate /Courier-Bold findfont 41 scalefont setfont -216 0 moveto (Login-testuser) show grestore HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri-Apr-03:00am-1) show currentpoint pop dup Rm Ps sub (2-3-test1.c-openpipe) stringwidth pop sub dup Ypos moveto (2-3-test1.c-openpipe) show exch sub 2 div add (Apr-03:00am-1-1) stringwidth pop 2 div sub Ypos moveto (Apr-03:00am-1-1) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Test-%-04-16-1982) show currentpoint pop dup Rm Ps sub (00-03:00:00-105-5) stringwidth pop sub dup Ypos moveto (00-03:00:00-105-5) show exch sub 2 div add (04/16/82-Fri Apr 16 03:00:00 1982-03-00) stringwidth pop 2 div sub Ypos moveto (04/16/82-Fri Apr 16 03:00:00 1982-03-00) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl showpage %%Page: 4 5 15 30 translate Cp gsave .9 setgray Rm 2 div Tm 2 div translate 60 rotate /Courier-Bold findfont 41 scalefont setfont -216 0 moveto (Login-testuser) show grestore HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri-Apr-03:00am-2) show currentpoint pop dup Rm Ps sub (2-3-test1.c-openpipe) stringwidth pop sub dup Ypos moveto (2-3-test1.c-openpipe) show exch sub 2 div add (Apr-03:00am-2-2) stringwidth pop 2 div sub Ypos moveto (Apr-03:00am-2-2) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Test-%-04-16-1982) show currentpoint pop dup Rm Ps sub (00-03:00:00-105-5) stringwidth pop sub dup Ypos moveto (00-03:00:00-105-5) show exch sub 2 div add (04/16/82-Fri Apr 16 03:00:00 1982-03-00) stringwidth pop 2 div sub Ypos moveto (04/16/82-Fri Apr 16 03:00:00 1982-03-00) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 5 6 15 30 translate Cp gsave .9 setgray Rm 2 div Tm 2 div translate 60 rotate /Courier-Bold findfont 41 scalefont setfont -216 0 moveto (Login-testuser) show grestore HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri-Apr-03:00am-1) show currentpoint pop dup Rm Ps sub (1-3-test2.c-getopt) stringwidth pop sub dup Ypos moveto (1-3-test2.c-getopt) show exch sub 2 div add (Apr-03:00am-1-3) stringwidth pop 2 div sub Ypos moveto (Apr-03:00am-1-3) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Test-%-04-16-1982) show currentpoint pop dup Rm Ps sub (00-03:00:00-105-5) stringwidth pop sub dup Ypos moveto (00-03:00:00-105-5) show exch sub 2 div add (04/16/82-Fri Apr 16 03:00:00 1982-03-00) stringwidth pop 2 div sub Ypos moveto (04/16/82-Fri Apr 16 03:00:00 1982-03-00) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/* @\(#\)getopt.c */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 3 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 5 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 6 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 8 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 9 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 11 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 12 ) show ( * get option letter from argument vector) IF setfont show Nl Lpt CFs setfont ( 13 ) show ( */) IF setfont show Nl Lpt CFs setfont ( 14 ) show (int optind = 1; ) CF setfont show (/* index into parent argv vector */) IF setfont show Nl Lpt CFs setfont ( 15 ) show (char *optarg; ) CF setfont show (/* argument associated with option */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 17 ) show (static int optopt; ) CF setfont show (/* character checked for validity */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (int) CF setfont show Nl Lpt CFs setfont ( 20 ) show (getopt) BF setfont show (\(int nargc, char **nargv, char *ostr\)) CF setfont show Nl Lpt CFs setfont ( 21 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 22 1 ) show ( register char *oli; ) CF setfont show (/* option letter list index */) IF setfont show Nl Lpt CFs setfont ( 23 1 ) show ( static char *place = ""; ) CF setfont show (/* option letter processing */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 25 2 ) show ( if\(!*place\) { ) CF setfont show (/* update scanning pointer */) IF setfont show Nl Lpt CFs setfont ( 26 3 ) show ( if\(optind >= nargc || *\(place = nargv[optind]\) != '-' || !*++place\) {) CF setfont show Nl Lpt CFs setfont ( 27 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 28 3 ) show ( return\(EOF\);) CF setfont show Nl Lpt CFs setfont ( 29 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 30 3 ) show ( if \(*place == '-'\) { ) CF setfont show (/* found "--" */) IF setfont show Nl Lpt CFs setfont ( 31 3 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 32 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 33 3 ) show ( return EOF;) CF setfont show Nl Lpt CFs setfont ( 34 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 35 1 ) show ( } ) CF setfont show (/* option letter okay? */) IF setfont show Nl Lpt CFs setfont ( 36 2 ) show ( if \(\(optopt = \(int\)*place++\) == \(int\)':' || !\(oli = strchr\(ostr,optopt\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 37 2 ) show ( if\(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 38 2 ) show ( \(void\)fprintf\(stderr, "%s: illegal option -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 39 2 ) show ( return '?';) CF setfont show Nl Lpt CFs setfont ( 40 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(*++oli != ':'\) { ) CF setfont show (/* don't need argument */) IF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( optarg = NULL;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( if \(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else { ) CF setfont show (/* need an argument */) IF setfont show Nl Lpt CFs setfont ( 45 3 ) show ( if \(*place\) { ) CF setfont show (/* no white space */) IF setfont show Nl Lpt CFs setfont ( 46 3 ) show ( optarg = place;) CF setfont show Nl Lpt CFs setfont ( 47 3 ) show ( } else if \(nargc <= ++optind\) { ) CF setfont show (/* no arg */) IF setfont show Nl Lpt CFs setfont ( 48 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 49 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr, "%s: option requires an argument -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 50 3 ) show ( optopt = '?';) CF setfont show Nl Lpt CFs setfont ( 51 3 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 52 3 ) show ( optarg = nargv[optind]; ) CF setfont show (/* white space */) IF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 55 2 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 56 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 57 1 ) show ( return optopt; ) CF setfont show (/* dump back option letter */) IF setfont show Nl Lpt CFs setfont ( 58 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test49.out0000644000175000017500000006172207625761740013414 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 571 def /Tm 742 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 3) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test2.c) show showpage %%Page: 1 2 gsave 15 405 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test1.c) ) show Nl Lpt( fclosepipe..................2 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( getopt......................3 (test2.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl grestore gsave 15 30 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def grestore gsave 304 405 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3) stringwidth pop sub dup Ypos moveto (Page 3) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3) stringwidth pop sub dup Ypos moveto (Page 3) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def grestore 304 30 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4) stringwidth pop sub dup Ypos moveto (Page 4) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4) stringwidth pop sub dup Ypos moveto (Page 4) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 5 3 gsave 15 405 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test2.c 3) BF setfont show CF setfont Nl Lpt( getopt 3) show Nl grestore gsave 15 30 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def grestore gsave 304 405 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3) stringwidth pop sub dup Ypos moveto (Page 3) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3) stringwidth pop sub dup Ypos moveto (Page 3) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def grestore 304 30 translate .5 .5 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4) stringwidth pop sub dup Ypos moveto (Page 4) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4) stringwidth pop sub dup Ypos moveto (Page 4) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 9 4 gsave 15 405 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 3) stringwidth pop sub dup Ypos moveto (Page 1 of 3) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 3) stringwidth pop sub dup Ypos moveto (Page 1 of 3) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl grestore gsave 15 30 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 3) stringwidth pop sub dup Ypos moveto (Page 2 of 3) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 3) stringwidth pop sub dup Ypos moveto (Page 2 of 3) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show (stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl grestore gsave 304 405 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 3) stringwidth pop sub dup Ypos moveto (Page 3 of 3) show exch sub 2 div add (getopt) stringwidth pop 2 div sub Ypos moveto (getopt) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 3) stringwidth pop sub dup Ypos moveto (Page 3 of 3) show exch sub 2 div add (test2.c 1) stringwidth pop 2 div sub Ypos moveto (test2.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/* @\(#\)getopt.c */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 3 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 5 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 6 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 8 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 9 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 11 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 12 ) show ( * get option letter from argument vector) IF setfont show Nl Lpt CFs setfont ( 13 ) show ( */) IF setfont show Nl Lpt CFs setfont ( 14 ) show (int optind = 1; ) CF setfont show (/* index into parent argv vector */) IF setfont show Nl Lpt CFs setfont ( 15 ) show (char *optarg; ) CF setfont show (/* argument associated with option */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 17 ) show (static int optopt; ) CF setfont show (/* character checked for validity */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (int) CF setfont show Nl Lpt CFs setfont ( 20 ) show (getopt) BF setfont show (\(int nargc, char **nargv, char *ostr\)) CF setfont show Nl Lpt CFs setfont ( 21 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 22 1 ) show ( register char *oli; ) CF setfont show (/* option letter list index */) IF setfont show Nl Lpt CFs setfont ( 23 1 ) show ( static char *place = ""; ) CF setfont show (/* option letter processing */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 25 2 ) show ( if\(!*place\) { ) CF setfont show (/* update scanning pointer */) IF setfont show Nl Lpt CFs setfont ( 26 3 ) show ( if\(optind >= nargc || *\(place = nargv[optind]\) != '-' || !*++place\) {) CF setfont show Nl Lpt CFs setfont ( 27 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 28 3 ) show ( return\(EOF\);) CF setfont show Nl Lpt CFs setfont ( 29 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 30 3 ) show ( if \(*place == '-'\) { ) CF setfont show (/* found "--" */) IF setfont show Nl Lpt CFs setfont ( 31 3 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 32 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 33 3 ) show ( return EOF;) CF setfont show Nl Lpt CFs setfont ( 34 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 35 1 ) show ( } ) CF setfont show (/* option letter okay? */) IF setfont show Nl Lpt CFs setfont ( 36 2 ) show ( if \(\(optopt = \(int\)*place++\) == \(int\)':' || !\(oli = strchr\(ostr,optopt\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 37 2 ) show ( if\(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 38 2 ) show ( \(void\)fprintf\(stderr, "%s: illegal option -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 39 2 ) show ( return '?';) CF setfont show Nl Lpt CFs setfont ( 40 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(*++oli != ':'\) { ) CF setfont show (/* don't need argument */) IF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( optarg = NULL;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( if \(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else { ) CF setfont show (/* need an argument */) IF setfont show Nl Lpt CFs setfont ( 45 3 ) show ( if \(*place\) { ) CF setfont show (/* no white space */) IF setfont show Nl Lpt CFs setfont ( 46 3 ) show ( optarg = place;) CF setfont show Nl Lpt CFs setfont ( 47 3 ) show ( } else if \(nargc <= ++optind\) { ) CF setfont show (/* no arg */) IF setfont show Nl Lpt CFs setfont ( 48 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 49 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr, "%s: option requires an argument -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 50 3 ) show ( optopt = '?';) CF setfont show Nl Lpt CFs setfont ( 51 3 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 52 3 ) show ( optarg = nargv[optind]; ) CF setfont show (/* white space */) IF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 55 2 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 56 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 57 1 ) show ( return optopt; ) CF setfont show (/* dump back option letter */) IF setfont show Nl Lpt CFs setfont ( 58 ) show (}) CF setfont show Nl grestore 304 30 translate .5 .5 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 3) stringwidth pop sub dup Ypos moveto (Page 4 of 3) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 3) stringwidth pop sub dup Ypos moveto (Page 4 of 3) show exch sub 2 div add (test2.c 2) stringwidth pop 2 div sub Ypos moveto (test2.c 2) show /Vpos Tm Bh sub Ps sub def showpage %%Trailer %%EOF trueprint-5.4/tests/test29.out0000644000175000017500000000542107625761740013404 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 1) show 70 650 moveto (File: test7) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add (test7 1) stringwidth pop 2 div sub Ypos moveto (test7 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (This is a short line) CF setfont show Nl Lpt CFs setfont ( ) show (1234567890123456789012345678901234567890) CF setfont show Nl Lpt CFs setfont ( ) show (1234567890123456789012345678901234567890) CF setfont show Nl Lpt CFs setfont ( ) show (1234567890) CF setfont show Nl Lpt CFs setfont ( ) show (This is a very long line that extends wa) CF setfont show Nl Lpt CFs setfont ( ) show (y beyond the normal width of a normal li) CF setfont show Nl Lpt CFs setfont ( ) show (ne and goes on until at least the hundre) CF setfont show Nl Lpt CFs setfont ( ) show (dth column.) CF setfont show Nl Lpt CFs setfont ( ) show (This is another short line.) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test32.out0000644000175000017500000004615607625761740013410 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 3) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test2.c) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test1.c) ) show Nl Lpt( fclosepipe..................2 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( getopt......................3 (test2.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl showpage %%Page: 2 3 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test2.c 3) BF setfont show CF setfont Nl Lpt( getopt 3) show Nl showpage %%Page: 3 4 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 3) stringwidth pop sub dup Ypos moveto (Page 1 of 3) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 3) stringwidth pop sub dup Ypos moveto (Page 1 of 3) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (/*) IF setfont show Nl Lpt CFs setfont ( ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( ) show ( *) IF setfont show Nl Lpt CFs setfont ( ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( ) show (#else) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (int) CF setfont show Nl Lpt CFs setfont ( ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( case 0:) CF setfont show Nl showpage %%Page: 4 5 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 3) stringwidth pop sub dup Ypos moveto (Page 2 of 3) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 3) stringwidth pop sub dup Ypos moveto (Page 2 of 3) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( default:) CF setfont show Nl Lpt CFs setfont ( ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show (stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (void) CF setfont show Nl Lpt CFs setfont ( ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (void) CF setfont show Nl Lpt CFs setfont ( ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl showpage %%Page: 5 6 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 3) stringwidth pop sub dup Ypos moveto (Page 3 of 3) show exch sub 2 div add (getopt) stringwidth pop 2 div sub Ypos moveto (getopt) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 3) stringwidth pop sub dup Ypos moveto (Page 3 of 3) show exch sub 2 div add (test2.c 1) stringwidth pop 2 div sub Ypos moveto (test2.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (/* @\(#\)getopt.c */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (/*) IF setfont show Nl Lpt CFs setfont ( ) show ( * get option letter from argument vector) IF setfont show Nl Lpt CFs setfont ( ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show (int optind = 1; ) CF setfont show (/* index into parent argv vector */) IF setfont show Nl Lpt CFs setfont ( ) show (char *optarg; ) CF setfont show (/* argument associated with option */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (static int optopt; ) CF setfont show (/* character checked for validity */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (int) CF setfont show Nl Lpt CFs setfont ( ) show (getopt) BF setfont show (\(int nargc, char **nargv, char *ostr\)) CF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( register char *oli; ) CF setfont show (/* option letter list index */) IF setfont show Nl Lpt CFs setfont ( ) show ( static char *place = ""; ) CF setfont show (/* option letter processing */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if\(!*place\) { ) CF setfont show (/* update scanning pointer */) IF setfont show Nl Lpt CFs setfont ( ) show ( if\(optind >= nargc || *\(place = nargv[optind]\) != '-' || !*++place\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( ) show ( return\(EOF\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show ( if \(*place == '-'\) { ) CF setfont show (/* found "--" */) IF setfont show Nl Lpt CFs setfont ( ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( ) show ( return EOF;) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show ( } ) CF setfont show (/* option letter okay? */) IF setfont show Nl Lpt CFs setfont ( ) show ( if \(\(optopt = \(int\)*place++\) == \(int\)':' || !\(oli = strchr\(ostr,optopt\)\)\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( if\(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: illegal option -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( ) show ( return '?';) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show ( if \(*++oli != ':'\) { ) CF setfont show (/* don't need argument */) IF setfont show Nl Lpt CFs setfont ( ) show ( optarg = NULL;) CF setfont show Nl Lpt CFs setfont ( ) show ( if \(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( ) show ( } else { ) CF setfont show (/* need an argument */) IF setfont show Nl Lpt CFs setfont ( ) show ( if \(*place\) { ) CF setfont show (/* no white space */) IF setfont show Nl Lpt CFs setfont ( ) show ( optarg = place;) CF setfont show Nl Lpt CFs setfont ( ) show ( } else if \(nargc <= ++optind\) { ) CF setfont show (/* no arg */) IF setfont show Nl Lpt CFs setfont ( ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr, "%s: option requires an argument -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( ) show ( optopt = '?';) CF setfont show Nl Lpt CFs setfont ( ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( ) show ( optarg = nargv[optind]; ) CF setfont show (/* white space */) IF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show ( return optopt; ) CF setfont show (/* dump back option letter */) IF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test17.out0000644000175000017500000000543307625761740013404 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 1) show 70 650 moveto (File: test7) show showpage %%Page: 1 2 15 30 translate Ip gsave .9 setgray Rm 2 div Tm 2 div translate 60 rotate /Courier-Bold findfont 41 scalefont setfont -216 0 moveto (Overprint-test) show grestore HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add (test7 1) stringwidth pop 2 div sub Ypos moveto (test7 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (This is a short line) CF setfont show Nl Lpt CFs setfont ( ) show (123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890) CF setfont show Nl Lpt CFs setfont ( ) show (This is a very long line that extends way beyond the normal width of a normal line and goes on ) CF setfont show Nl Lpt CFs setfont ( ) show ( until at least the hundredth column.) CF setfont show Nl Lpt CFs setfont ( ) show (This is another short line.) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test39.out0000644000175000017500000005326707625761740013420 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 3) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test2.c) show showpage %%Page: 1 2 15 30 translate Ip gsave .9 setgray Rm 2 div Tm 2 div translate 60 rotate /Courier-Bold findfont 41 scalefont setfont -216 0 moveto (Login-testuser) show grestore HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test1.c) ) show Nl Lpt( fclosepipe..................2 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( getopt......................3 (test2.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl showpage %%Page: 2 3 15 30 translate Ip gsave .9 setgray Rm 2 div Tm 2 div translate 60 rotate /Courier-Bold findfont 41 scalefont setfont -216 0 moveto (Login-testuser) show grestore HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test2.c 3) BF setfont show CF setfont Nl Lpt( getopt 3) show Nl showpage %%Page: 3 4 15 30 translate Cp gsave .9 setgray Rm 2 div Tm 2 div translate 60 rotate /Courier-Bold findfont 41 scalefont setfont -216 0 moveto (Login-testuser) show grestore HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri-Apr-03:00am-1) show currentpoint pop dup Rm Ps sub (2-3-test1.c-openpipe) stringwidth pop sub dup Ypos moveto (2-3-test1.c-openpipe) show exch sub 2 div add (Apr-03:00am-1-1) stringwidth pop 2 div sub Ypos moveto (Apr-03:00am-1-1) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Test-%-04-16-1982) show currentpoint pop dup Rm Ps sub (00-03:00:00-105-5) stringwidth pop sub dup Ypos moveto (00-03:00:00-105-5) show exch sub 2 div add (04/16/82-Fri Apr 16 03:00:00 1982-03-00) stringwidth pop 2 div sub Ypos moveto (04/16/82-Fri Apr 16 03:00:00 1982-03-00) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl showpage %%Page: 4 5 15 30 translate Cp gsave .9 setgray Rm 2 div Tm 2 div translate 60 rotate /Courier-Bold findfont 41 scalefont setfont -216 0 moveto (Login-testuser) show grestore HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri-Apr-03:00am-2) show currentpoint pop dup Rm Ps sub (2-3-test1.c-openpipe) stringwidth pop sub dup Ypos moveto (2-3-test1.c-openpipe) show exch sub 2 div add (Apr-03:00am-2-2) stringwidth pop 2 div sub Ypos moveto (Apr-03:00am-2-2) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Test-%-04-16-1982) show currentpoint pop dup Rm Ps sub (00-03:00:00-105-5) stringwidth pop sub dup Ypos moveto (00-03:00:00-105-5) show exch sub 2 div add (04/16/82-Fri Apr 16 03:00:00 1982-03-00) stringwidth pop 2 div sub Ypos moveto (04/16/82-Fri Apr 16 03:00:00 1982-03-00) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 5 6 15 30 translate Cp gsave .9 setgray Rm 2 div Tm 2 div translate 60 rotate /Courier-Bold findfont 41 scalefont setfont -216 0 moveto (Login-testuser) show grestore HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri-Apr-03:00am-1) show currentpoint pop dup Rm Ps sub (1-3-test2.c-getopt) stringwidth pop sub dup Ypos moveto (1-3-test2.c-getopt) show exch sub 2 div add (Apr-03:00am-1-3) stringwidth pop 2 div sub Ypos moveto (Apr-03:00am-1-3) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Test-%-04-16-1982) show currentpoint pop dup Rm Ps sub (00-03:00:00-105-5) stringwidth pop sub dup Ypos moveto (00-03:00:00-105-5) show exch sub 2 div add (04/16/82-Fri Apr 16 03:00:00 1982-03-00) stringwidth pop 2 div sub Ypos moveto (04/16/82-Fri Apr 16 03:00:00 1982-03-00) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/* @\(#\)getopt.c */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 3 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 5 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 6 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 8 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 9 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 11 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 12 ) show ( * get option letter from argument vector) IF setfont show Nl Lpt CFs setfont ( 13 ) show ( */) IF setfont show Nl Lpt CFs setfont ( 14 ) show (int optind = 1; ) CF setfont show (/* index into parent argv vector */) IF setfont show Nl Lpt CFs setfont ( 15 ) show (char *optarg; ) CF setfont show (/* argument associated with option */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 17 ) show (static int optopt; ) CF setfont show (/* character checked for validity */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (int) CF setfont show Nl Lpt CFs setfont ( 20 ) show (getopt) BF setfont show (\(int nargc, char **nargv, char *ostr\)) CF setfont show Nl Lpt CFs setfont ( 21 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 22 1 ) show ( register char *oli; ) CF setfont show (/* option letter list index */) IF setfont show Nl Lpt CFs setfont ( 23 1 ) show ( static char *place = ""; ) CF setfont show (/* option letter processing */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 25 2 ) show ( if\(!*place\) { ) CF setfont show (/* update scanning pointer */) IF setfont show Nl Lpt CFs setfont ( 26 3 ) show ( if\(optind >= nargc || *\(place = nargv[optind]\) != '-' || !*++place\) {) CF setfont show Nl Lpt CFs setfont ( 27 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 28 3 ) show ( return\(EOF\);) CF setfont show Nl Lpt CFs setfont ( 29 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 30 3 ) show ( if \(*place == '-'\) { ) CF setfont show (/* found "--" */) IF setfont show Nl Lpt CFs setfont ( 31 3 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 32 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 33 3 ) show ( return EOF;) CF setfont show Nl Lpt CFs setfont ( 34 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 35 1 ) show ( } ) CF setfont show (/* option letter okay? */) IF setfont show Nl Lpt CFs setfont ( 36 2 ) show ( if \(\(optopt = \(int\)*place++\) == \(int\)':' || !\(oli = strchr\(ostr,optopt\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 37 2 ) show ( if\(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 38 2 ) show ( \(void\)fprintf\(stderr, "%s: illegal option -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 39 2 ) show ( return '?';) CF setfont show Nl Lpt CFs setfont ( 40 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(*++oli != ':'\) { ) CF setfont show (/* don't need argument */) IF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( optarg = NULL;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( if \(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else { ) CF setfont show (/* need an argument */) IF setfont show Nl Lpt CFs setfont ( 45 3 ) show ( if \(*place\) { ) CF setfont show (/* no white space */) IF setfont show Nl Lpt CFs setfont ( 46 3 ) show ( optarg = place;) CF setfont show Nl Lpt CFs setfont ( 47 3 ) show ( } else if \(nargc <= ++optind\) { ) CF setfont show (/* no arg */) IF setfont show Nl Lpt CFs setfont ( 48 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 49 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr, "%s: option requires an argument -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 50 3 ) show ( optopt = '?';) CF setfont show Nl Lpt CFs setfont ( 51 3 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 52 3 ) show ( optarg = nargv[optind]; ) CF setfont show (/* white space */) IF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 55 2 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 56 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 57 1 ) show ( return optopt; ) CF setfont show (/* dump back option letter */) IF setfont show Nl Lpt CFs setfont ( 58 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test41.out0000644000175000017500000005635107625761740013406 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 836 def /Tm 578 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 6) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test2.c) show showpage %%Page: 1 2 gsave 54 405 translate .64 .64 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 3 (test1.c) ) show Nl Lpt( fclosepipe..................3 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( getopt......................5 (test2.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl grestore 54 30 translate .64 .64 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 3 3 gsave 54 405 translate .64 .64 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................3) show Nl Lpt( fclosepipe 3) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test2.c 5) BF setfont show CF setfont Nl Lpt( getopt 5) show Nl grestore 54 30 translate .64 .64 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 5 4 gsave 54 405 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 6) stringwidth pop sub dup Ypos moveto (Page 1 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 6) stringwidth pop sub dup Ypos moveto (Page 1 of 6) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\(\) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl grestore 54 30 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 6) stringwidth pop sub dup Ypos moveto (Page 2 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 6) stringwidth pop sub dup Ypos moveto (Page 2 of 6) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl showpage %%Page: 7 5 gsave 54 405 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 6) stringwidth pop sub dup Ypos moveto (Page 3 of 6) show exch sub 2 div add (fopenpipe) stringwidth pop 2 div sub Ypos moveto (fopenpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 6) stringwidth pop sub dup Ypos moveto (Page 3 of 6) show exch sub 2 div add (test1.c 3) stringwidth pop 2 div sub Ypos moveto (test1.c 3) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl grestore 54 30 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 6) stringwidth pop sub dup Ypos moveto (Page 4 of 6) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 6) stringwidth pop sub dup Ypos moveto (Page 4 of 6) show exch sub 2 div add (test1.c 4) stringwidth pop 2 div sub Ypos moveto (test1.c 4) show /Vpos Tm Bh sub Ps sub def showpage %%Page: 9 6 gsave 54 405 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 6) stringwidth pop sub dup Ypos moveto (Page 5 of 6) show exch sub 2 div add (getopt) stringwidth pop 2 div sub Ypos moveto (getopt) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 6) stringwidth pop sub dup Ypos moveto (Page 5 of 6) show exch sub 2 div add (test2.c 1) stringwidth pop 2 div sub Ypos moveto (test2.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/* @\(#\)getopt.c */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 3 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 5 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 6 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 8 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 9 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 11 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 12 ) show ( * get option letter from argument vector) IF setfont show Nl Lpt CFs setfont ( 13 ) show ( */) IF setfont show Nl Lpt CFs setfont ( 14 ) show (int optind = 1; ) CF setfont show (/* index into parent argv vector */) IF setfont show Nl Lpt CFs setfont ( 15 ) show (char *optarg; ) CF setfont show (/* argument associated with option */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 17 ) show (static int optopt; ) CF setfont show (/* character checked for validity */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (int) CF setfont show Nl Lpt CFs setfont ( 20 ) show (getopt) BF setfont show (\(int nargc, char **nargv, char *ostr\)) CF setfont show Nl Lpt CFs setfont ( 21 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 22 1 ) show ( register char *oli; ) CF setfont show (/* option letter list index */) IF setfont show Nl Lpt CFs setfont ( 23 1 ) show ( static char *place = ""; ) CF setfont show (/* option letter processing */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 25 2 ) show ( if\(!*place\) { ) CF setfont show (/* update scanning pointer */) IF setfont show Nl Lpt CFs setfont ( 26 3 ) show ( if\(optind >= nargc || *\(place = nargv[optind]\) != '-' || !*++place\) {) CF setfont show Nl Lpt CFs setfont ( 27 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 28 3 ) show ( return\(EOF\);) CF setfont show Nl Lpt CFs setfont ( 29 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 30 3 ) show ( if \(*place == '-'\) { ) CF setfont show (/* found "--" */) IF setfont show Nl Lpt CFs setfont ( 31 3 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 32 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 33 3 ) show ( return EOF;) CF setfont show Nl Lpt CFs setfont ( 34 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 35 1 ) show ( } ) CF setfont show (/* option letter okay? */) IF setfont show Nl Lpt CFs setfont ( 36 2 ) show ( if \(\(optopt = \(int\)*place++\) == \(int\)':' || !\(oli = strchr\(ostr,optopt\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 37 2 ) show ( if\(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 38 2 ) show ( \(void\)fprintf\(stderr, "%s: illegal option -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 39 2 ) show ( return '?';) CF setfont show Nl Lpt CFs setfont ( 40 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(*++oli != ':'\) { ) CF setfont show (/* don't need argument */) IF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( optarg = NULL;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( if \(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else { ) CF setfont show (/* need an argument */) IF setfont show Nl Lpt CFs setfont ( 45 3 ) show ( if \(*place\) { ) CF setfont show (/* no white space */) IF setfont show Nl Lpt CFs setfont ( 46 3 ) show ( optarg = place;) CF setfont show Nl Lpt CFs setfont ( 47 3 ) show ( } else if \(nargc <= ++optind\) { ) CF setfont show (/* no arg */) IF setfont show Nl Lpt CFs setfont ( 48 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 49 3 ) show ( \(void\)fprintf\(stderr, "%s: option requires an argument -- %c\\n", cmd_name, optopt\);) CF setfont show Nl grestore 54 30 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 6) stringwidth pop sub dup Ypos moveto (Page 6 of 6) show exch sub 2 div add (getopt) stringwidth pop 2 div sub Ypos moveto (getopt) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 6) stringwidth pop sub dup Ypos moveto (Page 6 of 6) show exch sub 2 div add (test2.c 2) stringwidth pop 2 div sub Ypos moveto (test2.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 50 3 ) show ( optopt = '?';) CF setfont show Nl Lpt CFs setfont ( 51 3 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 52 3 ) show ( optarg = nargv[optind]; ) CF setfont show (/* white space */) IF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 55 2 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 56 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 57 1 ) show ( return optopt; ) CF setfont show (/* dump back option letter */) IF setfont show Nl Lpt CFs setfont ( 58 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test21.out0000644000175000017500000003756707625761740013414 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 746 def /Tm 575 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 4) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test7) show showpage %%Page: 1 2 590 30 translate 90 rotate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 3 (test1.c) ) show Nl Lpt( fclosepipe..................3 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( openpipe....................1 (test1.c)) show Nl showpage %%Page: 2 3 590 30 translate 90 rotate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................3) show Nl Lpt( fclosepipe 3) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test7 4) BF setfont show CF setfont Nl showpage %%Page: 3 4 590 30 translate 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 4) stringwidth pop sub dup Ypos moveto (Page 1 of 4) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 4) stringwidth pop sub dup Ypos moveto (Page 1 of 4) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\(\) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl showpage %%Page: 4 5 590 30 translate 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 4) stringwidth pop sub dup Ypos moveto (Page 2 of 4) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 4) stringwidth pop sub dup Ypos moveto (Page 2 of 4) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl showpage %%Page: 5 6 590 30 translate 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 4) stringwidth pop sub dup Ypos moveto (Page 3 of 4) show exch sub 2 div add (fopenpipe) stringwidth pop 2 div sub Ypos moveto (fopenpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 4) stringwidth pop sub dup Ypos moveto (Page 3 of 4) show exch sub 2 div add (test1.c 3) stringwidth pop 2 div sub Ypos moveto (test1.c 3) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 6 7 590 30 translate 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 4) stringwidth pop sub dup Ypos moveto (Page 4 of 4) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 4) stringwidth pop sub dup Ypos moveto (Page 4 of 4) show exch sub 2 div add (test7 1) stringwidth pop 2 div sub Ypos moveto (test7 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (This is a short line) CF setfont show Nl Lpt CFs setfont ( 2 ) show (123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890) CF setfont show Nl Lpt CFs setfont ( 3 ) show (This is a very long line that extends way beyond the normal width of a normal line and goes on until at least the ) CF setfont show Nl Lpt CFs setfont ( ) show ( hundredth column.) CF setfont show Nl Lpt CFs setfont ( 4 ) show (This is another short line.) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test34.out0000644000175000017500000005520307625761740013403 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { true statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 4) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test2.c) show showpage %%Page: Coverback 2 showpage %%Page: 1 3 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test1.c) ) show Nl Lpt( fclosepipe..................2 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( getopt......................3 (test2.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl showpage %%Page: 2 4 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Page 2) show currentpoint pop dup Rm Ps sub (Fri Apr 16 03:00:00 1982) stringwidth pop sub dup Ypos moveto (Fri Apr 16 03:00:00 1982) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Page 2) show currentpoint pop dup Rm Ps sub (Fri Apr 16 03:00:00 1982) stringwidth pop sub dup Ypos moveto (Fri Apr 16 03:00:00 1982) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 3 5 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................2) show Nl Lpt( fclosepipe 2) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test2.c 3) BF setfont show CF setfont Nl Lpt( getopt 3) show Nl showpage %%Page: 4 6 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Page 2) show currentpoint pop dup Rm Ps sub (Fri Apr 16 03:00:00 1982) stringwidth pop sub dup Ypos moveto (Fri Apr 16 03:00:00 1982) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Page 2) show currentpoint pop dup Rm Ps sub (Fri Apr 16 03:00:00 1982) stringwidth pop sub dup Ypos moveto (Fri Apr 16 03:00:00 1982) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 5 7 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 4) stringwidth pop sub dup Ypos moveto (Page 1 of 4) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 4) stringwidth pop sub dup Ypos moveto (Page 1 of 4) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl showpage %%Page: 6 8 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Page 2 of 4) show currentpoint pop dup Rm Ps sub (Fri Apr 16 03:00:00 1982) stringwidth pop sub dup Ypos moveto (Fri Apr 16 03:00:00 1982) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Page 2 of 4) show currentpoint pop dup Rm Ps sub (Fri Apr 16 03:00:00 1982) stringwidth pop sub dup Ypos moveto (Fri Apr 16 03:00:00 1982) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 7 9 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 4) stringwidth pop sub dup Ypos moveto (Page 3 of 4) show exch sub 2 div add (getopt) stringwidth pop 2 div sub Ypos moveto (getopt) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 4) stringwidth pop sub dup Ypos moveto (Page 3 of 4) show exch sub 2 div add (test2.c 1) stringwidth pop 2 div sub Ypos moveto (test2.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/* @\(#\)getopt.c */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 3 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 5 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 6 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 8 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 9 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 11 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 12 ) show ( * get option letter from argument vector) IF setfont show Nl Lpt CFs setfont ( 13 ) show ( */) IF setfont show Nl Lpt CFs setfont ( 14 ) show (int optind = 1; ) CF setfont show (/* index into parent argv vector */) IF setfont show Nl Lpt CFs setfont ( 15 ) show (char *optarg; ) CF setfont show (/* argument associated with option */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 17 ) show (static int optopt; ) CF setfont show (/* character checked for validity */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (int) CF setfont show Nl Lpt CFs setfont ( 20 ) show (getopt) BF setfont show (\(int nargc, char **nargv, char *ostr\)) CF setfont show Nl Lpt CFs setfont ( 21 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 22 1 ) show ( register char *oli; ) CF setfont show (/* option letter list index */) IF setfont show Nl Lpt CFs setfont ( 23 1 ) show ( static char *place = ""; ) CF setfont show (/* option letter processing */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 25 2 ) show ( if\(!*place\) { ) CF setfont show (/* update scanning pointer */) IF setfont show Nl Lpt CFs setfont ( 26 3 ) show ( if\(optind >= nargc || *\(place = nargv[optind]\) != '-' || !*++place\) {) CF setfont show Nl Lpt CFs setfont ( 27 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 28 3 ) show ( return\(EOF\);) CF setfont show Nl Lpt CFs setfont ( 29 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 30 3 ) show ( if \(*place == '-'\) { ) CF setfont show (/* found "--" */) IF setfont show Nl Lpt CFs setfont ( 31 3 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 32 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 33 3 ) show ( return EOF;) CF setfont show Nl Lpt CFs setfont ( 34 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 35 1 ) show ( } ) CF setfont show (/* option letter okay? */) IF setfont show Nl Lpt CFs setfont ( 36 2 ) show ( if \(\(optopt = \(int\)*place++\) == \(int\)':' || !\(oli = strchr\(ostr,optopt\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 37 2 ) show ( if\(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 38 2 ) show ( \(void\)fprintf\(stderr, "%s: illegal option -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 39 2 ) show ( return '?';) CF setfont show Nl Lpt CFs setfont ( 40 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(*++oli != ':'\) { ) CF setfont show (/* don't need argument */) IF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( optarg = NULL;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( if \(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else { ) CF setfont show (/* need an argument */) IF setfont show Nl Lpt CFs setfont ( 45 3 ) show ( if \(*place\) { ) CF setfont show (/* no white space */) IF setfont show Nl Lpt CFs setfont ( 46 3 ) show ( optarg = place;) CF setfont show Nl Lpt CFs setfont ( 47 3 ) show ( } else if \(nargc <= ++optind\) { ) CF setfont show (/* no arg */) IF setfont show Nl Lpt CFs setfont ( 48 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 49 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr, "%s: option requires an argument -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 50 3 ) show ( optopt = '?';) CF setfont show Nl Lpt CFs setfont ( 51 3 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 52 3 ) show ( optarg = nargv[optind]; ) CF setfont show (/* white space */) IF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 55 2 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 56 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 57 1 ) show ( return optopt; ) CF setfont show (/* dump back option letter */) IF setfont show Nl Lpt CFs setfont ( 58 ) show (}) CF setfont show Nl showpage %%Page: 8 10 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Page 4 of 4) show currentpoint pop dup Rm Ps sub (Fri Apr 16 03:00:00 1982) stringwidth pop sub dup Ypos moveto (Fri Apr 16 03:00:00 1982) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Page 4 of 4) show currentpoint pop dup Rm Ps sub (Fri Apr 16 03:00:00 1982) stringwidth pop sub dup Ypos moveto (Fri Apr 16 03:00:00 1982) show exch sub 2 div add (test2.c 2) stringwidth pop 2 div sub Ypos moveto (test2.c 2) show /Vpos Tm Bh sub Ps sub def showpage %%Trailer %%EOF trueprint-5.4/tests/test12.out0000644000175000017500000006321007625761740013374 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 8 def /SPs 6 def /Lh 15 def /Rm 575 def /Tm 746 def /Bh 13 def /Bf 13 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 6) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test3) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 3 (test1.c) ) show Nl Lpt( fclosepipe..................3 (test1.c)) show Nl Lpt( fopenpipe 3 (test1.c) ) show Nl Lpt( openpipe....................1 (test1.c)) show Nl showpage %%Page: 2 3 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................3) show Nl Lpt( fclosepipe 3) show Nl Lpt( fopenpipe...................3) show Nl Lpt( openpipe 1) show Nl Lpt( test3 4) BF setfont show CF setfont Nl showpage %%Page: 3 4 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 6) stringwidth pop sub dup Ypos moveto (Page 1 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 6) stringwidth pop sub dup Ypos moveto (Page 1 of 6) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl showpage %%Page: 4 5 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 6) stringwidth pop sub dup Ypos moveto (Page 2 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 6) stringwidth pop sub dup Ypos moveto (Page 2 of 6) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\(\) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl showpage %%Page: 5 6 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 6) stringwidth pop sub dup Ypos moveto (Page 3 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 6) stringwidth pop sub dup Ypos moveto (Page 3 of 6) show exch sub 2 div add (test1.c 3) stringwidth pop 2 div sub Ypos moveto (test1.c 3) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 6 7 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 6) stringwidth pop sub dup Ypos moveto (Page 4 of 6) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 6) stringwidth pop sub dup Ypos moveto (Page 4 of 6) show exch sub 2 div add (test3 1) stringwidth pop 2 div sub Ypos moveto (test3 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) CF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) CF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) CF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) CF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) CF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) CF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) CF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 35 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl showpage %%Page: 7 8 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 6) stringwidth pop sub dup Ypos moveto (Page 5 of 6) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 6) stringwidth pop sub dup Ypos moveto (Page 5 of 6) show exch sub 2 div add (test3 2) stringwidth pop 2 div sub Ypos moveto (test3 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 46 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\(\) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 ) show ( /* Error */) CF setfont show Nl Lpt CFs setfont ( 60 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 ) show ( /*NOTREACHED*/) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 ) show ( /* Child process */) CF setfont show Nl Lpt CFs setfont ( 66 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 ) show ( \(void\)fprintf\(stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 ) show ( /*NOTREACHED*/) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 ) show ( /* Parent process */) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 ) show ( }) CF setfont show Nl showpage %%Page: 8 9 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 6) stringwidth pop sub dup Ypos moveto (Page 6 of 6) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 6) stringwidth pop sub dup Ypos moveto (Page 6 of 6) show exch sub 2 div add (test3 3) stringwidth pop 2 div sub Ypos moveto (test3 3) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 94 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 105 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 115 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test46.out0000644000175000017500000005121207625761740013402 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 897 def /Tm 578 def /Bh 15 def /Bf 0 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto Rm 0 rlineto gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 6) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test2.c) show showpage %%Page: 1 2 gsave 15 405 translate .64 .64 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 3 (test1.c) ) show Nl Lpt( fclosepipe..................3 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( getopt......................5 (test2.c)) show Nl Lpt( openpipe 1 (test1.c) ) show Nl grestore 15 30 translate .64 .64 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 3 3 gsave 15 405 translate .64 .64 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................3) show Nl Lpt( fclosepipe 3) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test2.c 5) BF setfont show CF setfont Nl Lpt( getopt 5) show Nl grestore 15 30 translate .64 .64 scale Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2) stringwidth pop sub dup Ypos moveto (Page 2) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def showpage %%Page: 5 4 gsave 15 405 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 6) stringwidth pop sub dup Ypos moveto (Page 1 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\(\) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl grestore 15 30 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 6) stringwidth pop sub dup Ypos moveto (Page 2 of 6) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl showpage %%Page: 7 5 gsave 15 405 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 6) stringwidth pop sub dup Ypos moveto (Page 3 of 6) show exch sub 2 div add (closepipe) stringwidth pop 2 div sub Ypos moveto (closepipe) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl grestore 15 30 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 6) stringwidth pop sub dup Ypos moveto (Page 4 of 6) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show /Vpos Tm Bh sub Ps sub def showpage %%Page: 9 6 gsave 15 405 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 5 of 6) stringwidth pop sub dup Ypos moveto (Page 5 of 6) show exch sub 2 div add (getopt) stringwidth pop 2 div sub Ypos moveto (getopt) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/* @\(#\)getopt.c */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 3 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 5 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 6 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 8 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 9 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 11 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 12 ) show ( * get option letter from argument vector) IF setfont show Nl Lpt CFs setfont ( 13 ) show ( */) IF setfont show Nl Lpt CFs setfont ( 14 ) show (int optind = 1; ) CF setfont show (/* index into parent argv vector */) IF setfont show Nl Lpt CFs setfont ( 15 ) show (char *optarg; ) CF setfont show (/* argument associated with option */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 17 ) show (static int optopt; ) CF setfont show (/* character checked for validity */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (int) CF setfont show Nl Lpt CFs setfont ( 20 ) show (getopt) BF setfont show (\(int nargc, char **nargv, char *ostr\)) CF setfont show Nl Lpt CFs setfont ( 21 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 22 1 ) show ( register char *oli; ) CF setfont show (/* option letter list index */) IF setfont show Nl Lpt CFs setfont ( 23 1 ) show ( static char *place = ""; ) CF setfont show (/* option letter processing */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 25 2 ) show ( if\(!*place\) { ) CF setfont show (/* update scanning pointer */) IF setfont show Nl Lpt CFs setfont ( 26 3 ) show ( if\(optind >= nargc || *\(place = nargv[optind]\) != '-' || !*++place\) {) CF setfont show Nl Lpt CFs setfont ( 27 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 28 3 ) show ( return\(EOF\);) CF setfont show Nl Lpt CFs setfont ( 29 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 30 3 ) show ( if \(*place == '-'\) { ) CF setfont show (/* found "--" */) IF setfont show Nl Lpt CFs setfont ( 31 3 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 32 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 33 3 ) show ( return EOF;) CF setfont show Nl Lpt CFs setfont ( 34 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 35 1 ) show ( } ) CF setfont show (/* option letter okay? */) IF setfont show Nl Lpt CFs setfont ( 36 2 ) show ( if \(\(optopt = \(int\)*place++\) == \(int\)':' || !\(oli = strchr\(ostr,optopt\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 37 2 ) show ( if\(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 38 2 ) show ( \(void\)fprintf\(stderr, "%s: illegal option -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 39 2 ) show ( return '?';) CF setfont show Nl Lpt CFs setfont ( 40 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(*++oli != ':'\) { ) CF setfont show (/* don't need argument */) IF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( optarg = NULL;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( if \(!*place\) ++optind;) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else { ) CF setfont show (/* need an argument */) IF setfont show Nl Lpt CFs setfont ( 45 3 ) show ( if \(*place\) { ) CF setfont show (/* no white space */) IF setfont show Nl Lpt CFs setfont ( 46 3 ) show ( optarg = place;) CF setfont show Nl Lpt CFs setfont ( 47 3 ) show ( } else if \(nargc <= ++optind\) { ) CF setfont show (/* no arg */) IF setfont show Nl Lpt CFs setfont ( 48 3 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 49 3 ) show ( \(void\)fprintf\(stderr, "%s: option requires an argument -- %c\\n", cmd_name, optopt\);) CF setfont show Nl Lpt CFs setfont ( 50 3 ) show ( optopt = '?';) CF setfont show Nl Lpt CFs setfont ( 51 3 ) show ( } else {) CF setfont show Nl grestore 15 30 translate .64 .64 scale Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 6 of 6) stringwidth pop sub dup Ypos moveto (Page 6 of 6) show exch sub 2 div add (getopt) stringwidth pop 2 div sub Ypos moveto (getopt) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 52 3 ) show ( optarg = nargv[optind]; ) CF setfont show (/* white space */) IF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( place = "";) CF setfont show Nl Lpt CFs setfont ( 55 2 ) show ( ++optind;) CF setfont show Nl Lpt CFs setfont ( 56 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 57 1 ) show ( return optopt; ) CF setfont show (/* dump back option letter */) IF setfont show Nl Lpt CFs setfont ( 58 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test4.previous0000644000175000017500000000005707625761740014362 00000000000000First two lines deleted These two lines remain trueprint-5.4/tests/Makefile.am0000644000175000017500000000172407625761740013557 00000000000000## Makefile.am -- Process this file with automake to produce Makefile.in EXTRA_DIST = \ Run \ OLDtest6.c \ test1.c \ test1.out \ test10.out \ test11.out \ test12.out \ test13.out \ test14.out \ test15.out \ test16.out \ test17.out \ test18.out \ test19.out \ test2.c \ test2.out \ test20.out \ test21 \ test21.out \ test22.out \ test23.out \ test24.out \ test25.out \ test26.out \ test27.out \ test28.out \ test29.out \ test3 \ test3.out \ test30.out \ test31.out \ test32.out \ test33.out \ test34.out \ test35.out \ test36.out \ test37.out \ test38.out \ test39.out \ test4.new \ test4.previous \ test4.out \ test40.out \ test41.out \ test42.out \ test43.out \ test44.out \ test45.out \ test46.out \ test47.out \ test48.out \ test49.out \ test5.out \ test6.c \ test6.out \ test7 \ test7.out \ test8.out \ test9.out MAINTAINERCLEANFILES = Makefile.in TESTS_ENVIRONMENT = top_builddir=$(top_builddir) TESTS = Run trueprint-5.4/tests/test30.out0000644000175000017500000000542107625761740013374 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 1) show 70 650 moveto (File: test7) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add (test7 1) stringwidth pop 2 div sub Ypos moveto (test7 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (This is a short line) CF setfont show Nl Lpt CFs setfont ( ) show (1234567890123456789012345678901234567890) CF setfont show Nl Lpt CFs setfont ( ) show (1234567890123456789012345678901234567890) CF setfont show Nl Lpt CFs setfont ( ) show (1234567890) CF setfont show Nl Lpt CFs setfont ( ) show (This is a very long line that extends wa) CF setfont show Nl Lpt CFs setfont ( ) show (y beyond the normal width of a normal li) CF setfont show Nl Lpt CFs setfont ( ) show (ne and goes on until at least the hundre) CF setfont show Nl Lpt CFs setfont ( ) show (dth column.) CF setfont show Nl Lpt CFs setfont ( ) show (This is another short line.) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test47.out0000644000175000017500000002613207625761740013406 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 2) show 70 650 moveto (File: -) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 2) stringwidth pop sub dup Ypos moveto (Page 1 of 2) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 2) stringwidth pop sub dup Ypos moveto (Page 1 of 2) show exch sub 2 div add (- 1) stringwidth pop 2 div sub Ypos moveto (- 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show (/*) CF setfont show Nl Lpt CFs setfont ( ) show ( * Source file:) CF setfont show Nl Lpt CFs setfont ( ) show ( * openpipe.c) CF setfont show Nl Lpt CFs setfont ( ) show ( *) CF setfont show Nl Lpt CFs setfont ( ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) CF setfont show Nl Lpt CFs setfont ( ) show ( * This returns an int rather than a FILE * to make it general purpose -) CF setfont show Nl Lpt CFs setfont ( ) show ( * fdopen can be used outside to convert this to a FILE *) CF setfont show Nl Lpt CFs setfont ( ) show ( */) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( ) show (#else) CF setfont show Nl Lpt CFs setfont ( ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (int) CF setfont show Nl Lpt CFs setfont ( ) show (openpipe\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( ) show ( /* Error */) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( /*NOTREACHED*/) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( case 0:) CF setfont show Nl showpage %%Page: 2 3 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 2) stringwidth pop sub dup Ypos moveto (Page 2 of 2) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 2) stringwidth pop sub dup Ypos moveto (Page 2 of 2) show exch sub 2 div add (- 2) stringwidth pop 2 div sub Ypos moveto (- 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show ( /* Child process */) CF setfont show Nl Lpt CFs setfont ( ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( ) show ( /*NOTREACHED*/) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( default:) CF setfont show Nl Lpt CFs setfont ( ) show ( /* Parent process */) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show (stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( ) show (fopenpipe\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (void) CF setfont show Nl Lpt CFs setfont ( ) show (closepipe\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show (void) CF setfont show Nl Lpt CFs setfont ( ) show (fclosepipe\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( ) show ({) CF setfont show Nl Lpt CFs setfont ( ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test35.out0000644000175000017500000000237007625761740013401 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Trailer %%EOF trueprint-5.4/tests/test1.c0000644000175000017500000000462407625761740012731 00000000000000/* * Source file: * openpipe.c * * Contains openpipe - a replacement for the non-POSIX function popen. * This returns an int rather than a FILE * to make it general purpose - * fdopen can be used outside to convert this to a FILE * */ #define _POSIX_SOURCE #include #include #include #include #include #include #ifdef _ultrix extern int close(int fildes); extern int dup(int fildes); extern pid_t fork(void); extern int pipe(int fildes[2]); #else #include #endif #include "trueprint.h" #include "main.h" #include "openpipe.h" int openpipe(const char *command, char *mode) { int fildes[2]; int parent_pipe_end; int child_pipe_end; char *child_pipe_mode; if (strcmp(mode, "w") == 0) { parent_pipe_end = 1; child_pipe_end = 0; child_pipe_mode = "read"; } else if (strcmp(mode, "r") == 0) { parent_pipe_end = 0; child_pipe_end = 1; child_pipe_mode = "write"; } else { (void)fprintf(stderr, "%s: Internal error: popen() called with bad mode %s", cmd_name, mode); exit(2); } if (pipe(fildes) != 0) { (void)fprintf(stderr, "%s: Cannot create pipe, %s\n", cmd_name, strerror(errno)); exit(2); } switch (fork()) { case -1: /* Error */ (void)fprintf(stderr, "%s: Cannot fork, %s\n", cmd_name, strerror(errno)); exit(2); /*NOTREACHED*/ case 0: /* Child process */ if (!((close(fildes[parent_pipe_end]) == 0) && (close(child_pipe_end) == 0) && (dup(fildes[child_pipe_end]) == child_pipe_end))) { (void)fprintf(stderr,"%s: Cannot redirect %s for child, %s\n", cmd_name, child_pipe_mode, strerror(errno)); exit(2); } if (system(command) < 0) { (void)fprintf(stderr,"%s: Cannot start pipe, %s\n",cmd_name, strerror(errno)); exit(2); } else exit(0); /*NOTREACHED*/ default: /* Parent process */ if (close(fildes[child_pipe_end]) != 0) { (void)fprintf(stderr,"%s: Cannot close %s end of pipe for parent, %s\n",cmd_name, child_pipe_mode, strerror(errno)); exit(2); } return fildes[parent_pipe_end]; } } FILE * fopenpipe(const char *command, char *mode) { int handle; handle = openpipe(command, mode); return fdopen(handle, mode); } void closepipe(int handle) { int statloc; (void)close(handle); (void)waitpid(-1, &statloc, WNOHANG); } void fclosepipe(FILE *fp) { closepipe(fileno(fp)); } trueprint-5.4/tests/test22.out0000644000175000017500000003756707625761740013415 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 746 def /Tm 575 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 4) show 70 650 moveto (File: test1.c) show 70 625 moveto (File: test7) show showpage %%Page: 1 2 590 30 translate 90 rotate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 3 (test1.c) ) show Nl Lpt( fclosepipe..................3 (test1.c)) show Nl Lpt( fopenpipe 2 (test1.c) ) show Nl Lpt( openpipe....................1 (test1.c)) show Nl showpage %%Page: 2 3 590 30 translate 90 rotate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (File Index) stringwidth pop 2 div sub Ypos moveto (File Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( test1.c 1) BF setfont show CF setfont Nl Lpt( closepipe...................3) show Nl Lpt( fclosepipe 3) show Nl Lpt( fopenpipe...................2) show Nl Lpt( openpipe 1) show Nl Lpt( test7 4) BF setfont show CF setfont Nl showpage %%Page: 3 4 590 30 translate 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 4) stringwidth pop sub dup Ypos moveto (Page 1 of 4) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 4) stringwidth pop sub dup Ypos moveto (Page 1 of 4) show exch sub 2 div add (test1.c 1) stringwidth pop 2 div sub Ypos moveto (test1.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt CFs setfont ( 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont show Nl Lpt CFs setfont ( 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont show Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 19 ) show (#ifdef _ultrix) CF setfont show Nl Lpt CFs setfont ( 20 ) show (extern int close\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 21 ) show (extern int dup\(int fildes\);) CF setfont show Nl Lpt CFs setfont ( 22 ) show (extern pid_t fork\(void\);) CF setfont show Nl Lpt CFs setfont ( 23 ) show (extern int pipe\(int fildes[2]\);) CF setfont show Nl Lpt CFs setfont ( 24 ) show (#else) CF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 26 ) show (#endif) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 28 ) show (#include "trueprint.h") CF setfont show Nl Lpt CFs setfont ( 29 ) show (#include "main.h") CF setfont show Nl Lpt CFs setfont ( 30 ) show (#include "openpipe.h") CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\(\) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl showpage %%Page: 4 5 590 30 translate 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 4) stringwidth pop sub dup Ypos moveto (Page 2 of 4) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 4) stringwidth pop sub dup Ypos moveto (Page 2 of 4) show exch sub 2 div add (test1.c 2) stringwidth pop 2 div sub Ypos moveto (test1.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl showpage %%Page: 5 6 590 30 translate 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 4) stringwidth pop sub dup Ypos moveto (Page 3 of 4) show exch sub 2 div add (fopenpipe) stringwidth pop 2 div sub Ypos moveto (fopenpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 4) stringwidth pop sub dup Ypos moveto (Page 3 of 4) show exch sub 2 div add (test1.c 3) stringwidth pop 2 div sub Ypos moveto (test1.c 3) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Page: 6 7 590 30 translate 90 rotate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 4) stringwidth pop sub dup Ypos moveto (Page 4 of 4) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 4 of 4) stringwidth pop sub dup Ypos moveto (Page 4 of 4) show exch sub 2 div add (test7 1) stringwidth pop 2 div sub Ypos moveto (test7 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (This is a short line) CF setfont show Nl Lpt CFs setfont ( 2 ) show (123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890) CF setfont show Nl Lpt CFs setfont ( 3 ) show (This is a very long line that extends way beyond the normal width of a normal line and goes on until at least the ) CF setfont show Nl Lpt CFs setfont ( ) show ( hundredth column.) CF setfont show Nl Lpt CFs setfont ( 4 ) show (This is another short line.) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/OLDtest6.c0000644000175000017500000000513307625761740013271 00000000000000/* * Source file: * openpipe.c * * Contains openpipe - a replacement for the non-POSIX function popen. * This returns an int rather than a FILE * to make it general purpose. * NOTE THAT THE VARIABLE cmd_name IS NOT DEFINED IN THIS FILE */ #define _POSIX_SOURCE #include #include #include #include #include #include #include /**************************************************************************** * Function: * openpipe * * Opens a pipe to or from a command. This is _not_ a direct replacement for * popen because: * - in the case of failure it prints an error message and calls exit, * instead of just returning NULL; * - it returns an int instead of a FILE *; * - it is called openpipe instead of popen */ int openpipe(const char *command, char *mode) { int fildes[2]; int parent_pipe_end; int child_pipe_end; char *child_pipe_mode; if (strcmp(mode, "w") == 0) { parent_pipe_end = 1; child_pipe_end = 0; child_pipe_mode = "read"; } else if (strcmp(mode, "r") == 0) { parent_pipe_end = 0; child_pipe_end = 1; child_pipe_mode = "write"; } else { (void)fprintf(stderr, "%s: Internal error: popen() called with bad mode %s", cmd_name, mode); exit(2); } if (pipe(fildes) != 0) { (void)fprintf(stderr, "%s: Cannot create pipe, %s\n", cmd_name, strerror(errno)); exit(2); } switch (fork()) { case -1: /* Error */ (void)fprintf(stderr, "%s: Cannot fork, %s\n", cmd_name, strerror(errno)); exit(2); /*NOTREACHED*/ case 0: /* Child process */ if (!((close(fildes[parent_pipe_end]) == 0) && (close(child_pipe_end) == 0) && (dup(fildes[child_pipe_end]) == child_pipe_end))) { (void)fprintf(stderr,"%s: Cannot redirect %s for child, %s\n", cmd_name, child_pipe_mode, strerror(errno)); exit(2); } if (system(command) < 0) { (void)fprintf(stderr,"%s: Cannot start pipe, %s\n",cmd_name, strerror(errno)); exit(2); } else exit(0); /*NOTREACHED*/ default: /* Parent process */ if (close(fildes[child_pipe_end]) != 0) { (void)fprintf(stderr,"%s: Cannot close %s end of pipe for parent, %s\n",cmd_name, child_pipe_mode, strerror(errno)); exit(2); } return fildes[parent_pipe_end]; } } FILE * fopenpipe(const char *command, char *mode) { int handle; handle = openpipe(command, mode); return fdopen(handle, mode); } void closepipe(int handle) { int statloc; (void)close(handle); (void)waitpid(-1, &statloc, WNOHANG); } void fclosepipe(FILE *fp) { closepipe(fileno(fp)); } trueprint-5.4/tests/test8.out0000644000175000017500000003624107625761740013325 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 3) show 70 650 moveto (File: test6.c) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1) stringwidth pop sub dup Ypos moveto (Page 1) show exch sub 2 div add (Function Index) stringwidth pop 2 div sub Ypos moveto (Function Index) show CF setfont /Vpos Tm Bh sub Ps sub def Lpt( closepipe 2 (test6.c) ) show Nl Lpt( fclosepipe..................3 (test6.c)) show Nl Lpt( fopenpipe 2 (test6.c) ) show Nl Lpt( openpipe....................1 (test6.c)) show Nl showpage %%Page: 2 3 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 3) stringwidth pop sub dup Ypos moveto (Page 1 of 3) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 3) stringwidth pop sub dup Ypos moveto (Page 1 of 3) show exch sub 2 div add (test6.c 1) stringwidth pop 2 div sub Ypos moveto (test6.c 1) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 1 ) show (/*) IF setfont show Nl Lpt CFs setfont ( 2 ) show ( * Source file:) IF setfont show Nl Lpt CFs setfont ( 3 ) show ( * openpipe.c) IF setfont show Nl Lpt CFs setfont ( 4 ) show ( *) IF setfont show Nl Lpt CFs setfont ( 5 ) show ( * Contains openpipe - a replacement for the non-POSIX function popen.) IF setfont show Nl Lpt (- ) CFs setfont show ( * This returns an int rather than a FILE * to make it general purpose.) CF setfont So show Nl Lpt (- ) CFs setfont show ( * NOTE THAT THE VARIABLE cmd_name IS NOT DEFINED IN THIS FILE) CF setfont So show Nl Lpt BFs setfont (+ 6 ) show ( * This returns an int rather than a FILE * to make it general purpose -) IF setfont Bs Nl Lpt BFs setfont (+ 7 ) show ( * fdopen can be used outside to convert this to a FILE *) IF setfont Bs Nl Lpt CFs setfont ( 8 ) show ( */) IF setfont show Nl Lpt CFs setfont ( ) show () IF setfont show Nl Lpt CFs setfont ( 10 ) show (#define _POSIX_SOURCE) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 12 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 13 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 14 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 15 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 16 ) show (#include ) CF setfont show Nl Lpt CFs setfont ( 17 ) show (#include ) CF setfont show Nl Lpt BFs setfont (+ ) show () BF setfont show Nl Lpt BFs setfont (+ 19 ) show (#ifdef _ultrix) BF setfont show Nl Lpt BFs setfont (+ 20 ) show (extern int close\(int fildes\);) BF setfont show Nl Lpt BFs setfont (+ 21 ) show (extern int dup\(int fildes\);) BF setfont show Nl Lpt BFs setfont (+ 22 ) show (extern pid_t fork\(void\);) BF setfont show Nl Lpt BFs setfont (+ 23 ) show (extern int pipe\(int fildes[2]\);) BF setfont show Nl Lpt BFs setfont (+ 24 ) show (#else) BF setfont show Nl Lpt CFs setfont ( 25 ) show (#include ) CF setfont show Nl Lpt BFs setfont (+ 26 ) show (#endif) BF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt (- ) CFs setfont show (/****************************************************************************) CF setfont So show Nl Lpt (- ) CFs setfont show ( * Function:) CF setfont So show Nl Lpt (- ) CFs setfont show ( * openpipe) CF setfont So show Nl Lpt (- ) CFs setfont show ( *) CF setfont So show Nl Lpt (- ) CFs setfont show ( * Opens a pipe to or from a command. This is _not_ a direct replacement for) CF setfont So show Nl Lpt (- ) CFs setfont show ( * popen because:) CF setfont So show Nl Lpt (- ) CFs setfont show ( * - in the case of failure it prints an error message and calls exit,) CF setfont So show Nl Lpt (- ) CFs setfont show ( * instead of just returning NULL;) CF setfont So show Nl Lpt (- ) CFs setfont show ( * - it returns an int instead of a FILE *;) CF setfont So show Nl Lpt (- ) CFs setfont show ( * - it is called openpipe instead of popen) CF setfont So show Nl Lpt (- ) CFs setfont show ( */) CF setfont So show Nl Lpt BFs setfont (+ 28 ) show (#include "trueprint.h") BF setfont show Nl Lpt BFs setfont (+ 29 ) show (#include "main.h") BF setfont show Nl Lpt BFs setfont (+ 30 ) show (#include "openpipe.h") BF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 32 ) show (int) CF setfont show Nl Lpt CFs setfont ( 33 ) show (openpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 35 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 36 1 ) show ( int fildes[2];) CF setfont show Nl Lpt CFs setfont ( 37 1 ) show ( int parent_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 38 1 ) show ( int child_pipe_end;) CF setfont show Nl Lpt CFs setfont ( 39 1 ) show ( char *child_pipe_mode;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 41 2 ) show ( if \(strcmp\(mode, "w"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 42 2 ) show ( parent_pipe_end = 1; child_pipe_end = 0;) CF setfont show Nl Lpt CFs setfont ( 43 2 ) show ( child_pipe_mode = "read";) CF setfont show Nl Lpt CFs setfont ( 44 2 ) show ( } else if \(strcmp\(mode, "r"\) == 0\) {) CF setfont show Nl Lpt CFs setfont ( 45 2 ) show ( parent_pipe_end = 0; child_pipe_end = 1;) CF setfont show Nl Lpt CFs setfont ( 46 2 ) show ( child_pipe_mode = "write";) CF setfont show Nl Lpt CFs setfont ( 47 2 ) show ( } else {) CF setfont show Nl Lpt CFs setfont ( 48 2 ) show ( \(void\)fprintf\(stderr, "%s: Internal error: popen\() CF setfont show Nl Lpt CFs setfont ( ) show ( \) called with bad mode %s", cmd_name, mode\);) CF setfont show Nl Lpt CFs setfont ( 49 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 50 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl showpage %%Page: 3 4 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 3) stringwidth pop sub dup Ypos moveto (Page 2 of 3) show exch sub 2 div add (openpipe) stringwidth pop 2 div sub Ypos moveto (openpipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 2 of 3) stringwidth pop sub dup Ypos moveto (Page 2 of 3) show exch sub 2 div add (test6.c 2) stringwidth pop 2 div sub Ypos moveto (test6.c 2) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 52 2 ) show ( if \(pipe\(fildes\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 53 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot create pipe, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 54 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 55 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 57 2 ) show ( switch \(fork\(\)\) {) CF setfont show Nl Lpt CFs setfont ( 58 2 ) show ( case -1:) CF setfont show Nl Lpt CFs setfont ( 59 2 ) show ( ) CF setfont show (/* Error */) IF setfont show Nl Lpt CFs setfont ( 60 2 ) show ( \(void\)fprintf\(stderr, "%s: Cannot fork, %s\\n", cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 61 2 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 62 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 64 2 ) show ( case 0:) CF setfont show Nl Lpt CFs setfont ( 65 2 ) show ( ) CF setfont show (/* Child process */) IF setfont show Nl Lpt CFs setfont ( 66 2 ) show ( if \(!\(\(close\(fildes[parent_pipe_end]\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 67 2 ) show ( \(close\(child_pipe_end\) == 0\) &&) CF setfont show Nl Lpt CFs setfont ( 68 3 ) show ( \(dup\(fildes[child_pipe_end]\) == child_pipe_end\)\)\) {) CF setfont show Nl Lpt CFs setfont ( 69 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot redirect %s for child, %s\\n", cmd_name, child_pipe_mode, strerror\() CF setfont show Nl Lpt CFs setfont ( ) show ( errno\)\);) CF setfont show Nl Lpt CFs setfont ( 70 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 71 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 73 3 ) show ( if \(system\(command\) < 0\) {) CF setfont show Nl Lpt CFs setfont ( 74 3 ) show ( \(void\)fprintf\(stderr,"%s: Cannot start pipe, %s\\n",cmd_name, strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 75 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 76 2 ) show ( } else exit\(0\);) CF setfont show Nl Lpt CFs setfont ( 77 2 ) show ( ) CF setfont show (/*NOTREACHED*/) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 79 2 ) show ( default:) CF setfont show Nl Lpt CFs setfont ( 80 2 ) show ( ) CF setfont show (/* Parent process */) IF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 82 3 ) show ( if \(close\(fildes[child_pipe_end]\) != 0\) {) CF setfont show Nl Lpt CFs setfont ( 83 3 ) show ( \(void\)fprintf\() CF setfont show Nl Lpt CFs setfont ( ) show ( stderr,"%s: Cannot close %s end of pipe for parent, %s\\n",cmd_name, child_pipe_mode,) CF setfont show Nl Lpt CFs setfont ( ) show ( strerror\(errno\)\);) CF setfont show Nl Lpt CFs setfont ( 84 3 ) show ( exit\(2\);) CF setfont show Nl Lpt CFs setfont ( 85 2 ) show ( }) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 87 2 ) show ( return fildes[parent_pipe_end];) CF setfont show Nl Lpt CFs setfont ( 88 1 ) show ( }) CF setfont show Nl Lpt CFs setfont ( 89 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 91 ) show (FILE *) CF setfont show Nl Lpt CFs setfont ( 92 ) show (fopenpipe) BF setfont show (\(const char *command, char *mode\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 94 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 95 1 ) show ( int handle;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 97 1 ) show ( handle = openpipe\(command, mode\);) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 99 1 ) show ( return fdopen\(handle, mode\);) CF setfont show Nl Lpt CFs setfont ( 100 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 102 ) show (void) CF setfont show Nl Lpt CFs setfont ( 103 ) show (closepipe) BF setfont show (\(int handle\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 105 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 106 1 ) show ( int statloc;) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 108 1 ) show ( \(void\)close\(handle\);) CF setfont show Nl Lpt CFs setfont ( 109 1 ) show ( \(void\)waitpid\(-1, &statloc, WNOHANG\);) CF setfont show Nl Lpt CFs setfont ( 110 ) show (}) CF setfont show Nl Lpt CFs setfont ( ) show () CF setfont show Nl Lpt CFs setfont ( 112 ) show (void) CF setfont show Nl showpage %%Page: 4 5 15 30 translate Cp HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 3) stringwidth pop sub dup Ypos moveto (Page 3 of 3) show exch sub 2 div add (fclosepipe) stringwidth pop 2 div sub Ypos moveto (fclosepipe) show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 3 of 3) stringwidth pop sub dup Ypos moveto (Page 3 of 3) show exch sub 2 div add (test6.c 3) stringwidth pop 2 div sub Ypos moveto (test6.c 3) show /Vpos Tm Bh sub Ps sub def Lpt CFs setfont ( 113 ) show (fclosepipe) BF setfont show (\(FILE *fp\)) CF setfont show Nl Lpt CFs setfont ( ) show () BF setfont show Nl Lpt CFs setfont ( 115 1 ) show ({) CF setfont show Nl Lpt CFs setfont ( 116 1 ) show ( closepipe\(fileno\(fp\)\);) CF setfont show Nl Lpt CFs setfont ( 117 ) show (}) CF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test2.c0000644000175000017500000000266607625761740012736 00000000000000/* @(#)getopt.c */ #define _POSIX_SOURCE #include #include #include "trueprint.h" #include "main.h" /* * get option letter from argument vector */ int optind = 1; /* index into parent argv vector */ char *optarg; /* argument associated with option */ static int optopt; /* character checked for validity */ int getopt(int nargc, char **nargv, char *ostr) { register char *oli; /* option letter list index */ static char *place = ""; /* option letter processing */ if(!*place) { /* update scanning pointer */ if(optind >= nargc || *(place = nargv[optind]) != '-' || !*++place) { place = ""; return(EOF); } if (*place == '-') { /* found "--" */ ++optind; place = ""; return EOF; } } /* option letter okay? */ if ((optopt = (int)*place++) == (int)':' || !(oli = strchr(ostr,optopt))) { if(!*place) ++optind; (void)fprintf(stderr, "%s: illegal option -- %c\n", cmd_name, optopt); return '?'; } if (*++oli != ':') { /* don't need argument */ optarg = NULL; if (!*place) ++optind; } else { /* need an argument */ if (*place) { /* no white space */ optarg = place; } else if (nargc <= ++optind) { /* no arg */ place = ""; (void)fprintf(stderr, "%s: option requires an argument -- %c\n", cmd_name, optopt); optopt = '?'; } else { optarg = nargv[optind]; /* white space */ } place = ""; ++optind; } return optopt; /* dump back option letter */ } trueprint-5.4/tests/test36.out0000644000175000017500000000237007625761740013402 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li CFs setfont (1234567890) stringwidth pop def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Trailer %%EOF trueprint-5.4/tests/test5.out0000644000175000017500000000470507625761740013322 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 1) show 70 650 moveto (File: test4.new) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add (test4.new 1) stringwidth pop 2 div sub Ypos moveto (test4.new 1) show /Vpos Tm Bh sub Ps sub def Lpt (-) CFs setfont show (First two lines) CF setfont So show Nl Lpt (-) CFs setfont show (deleted) CF setfont So show Nl Lpt CFs setfont ( ) show (These two lines) CF setfont show Nl Lpt CFs setfont ( ) show (remain) CF setfont show Nl Lpt BFs setfont (+) show (Last two lines) BF setfont show Nl Lpt BFs setfont (+) show (added) BF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/tests/test70000644000175000017500000000042007625761740012504 00000000000000This is a short line 123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890 This is a very long line that extends way beyond the normal width of a normal line and goes on until at least the hundredth column. This is another short line. trueprint-5.4/tests/test4.out0000644000175000017500000000470507625761740013321 00000000000000%!PS-Adobe-2.0 statusdict /setduplexmode known { false statusdict /setduplexmode get exec } if /Ps 10 def /SPs 7 def /Lh 11 def /Rm 575 def /Tm 746 def /Bh 15 def /Bf 15 def /CF /Courier findfont Ps scalefont def /IF /Courier-Oblique findfont Ps scalefont def /BF /Courier-Bold findfont Ps scalefont def /CFs /Courier findfont SPs scalefont def /IFs /Courier-Oblique findfont SPs scalefont def /BFs /Courier-Bold findfont SPs scalefont def /HF /Helvetica findfont Ps scalefont def /Li 0 def /Nl { /Vpos Vpos Lh sub def } def /Lpt { 0 Vpos moveto } def /Gb { } def /Ip { Gb .5 setlinewidth 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath gsave .98 setgray fill grestore stroke 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath gsave .98 setgray fill grestore stroke 0 Bf moveto 0 Tm Bh sub lineto stroke newpath } def /Cp { Ip .3 setlinewidth newpath Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath } def /So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def /Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def /Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def <> setpagedevice %%Page: Cover 1 70 70 moveto /Helvetica findfont 10 scalefont setfont (Trueprint 3.6.5) show 70 725 moveto /Helvetica-Bold findfont 20 scalefont setfont (For: testuser) show 70 700 moveto (Printed on: Fri Apr 16 03:00:00 1982) show 70 675 moveto (Last page number: 1) show 70 650 moveto (File: test4.new) show showpage %%Page: 1 2 15 30 translate Ip HF setfont /Ypos Tm Bh sub Ps 2 div add def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add () stringwidth pop 2 div sub Ypos moveto () show HF setfont /Ypos Ps 2 div def Ps Ypos moveto (Fri Apr 16 03:00:00 1982) show currentpoint pop dup Rm Ps sub (Page 1 of 1) stringwidth pop sub dup Ypos moveto (Page 1 of 1) show exch sub 2 div add (test4.new 1) stringwidth pop 2 div sub Ypos moveto (test4.new 1) show /Vpos Tm Bh sub Ps sub def Lpt (-) CFs setfont show (First two lines) CF setfont So show Nl Lpt (-) CFs setfont show (deleted) CF setfont So show Nl Lpt CFs setfont ( ) show (These two lines) CF setfont show Nl Lpt CFs setfont ( ) show (remain) CF setfont show Nl Lpt BFs setfont (+) show (Last two lines) BF setfont show Nl Lpt BFs setfont (+) show (added) BF setfont show Nl showpage %%Trailer %%EOF trueprint-5.4/config/0000755000175000017500000000000012117403105011656 500000000000000trueprint-5.4/config/mdate-sh0000755000175000017500000000516707625761737013271 00000000000000#!/bin/sh # Get modification time of a file or directory and pretty-print it. # Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc. # written by Ulrich Drepper , June 1995 # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software Foundation, # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # Prevent date giving response in another language. LANG=C export LANG LC_ALL=C export LC_ALL LC_TIME=C export LC_TIME # Get the extended ls output of the file or directory. # On HPUX /bin/sh, "set" interprets "-rw-r--r--" as options, so the "x" below. if ls -L /dev/null 1>/dev/null 2>&1; then set - x`ls -L -l -d $1` else set - x`ls -l -d $1` fi # The month is at least the fourth argument # (3 shifts here, the next inside the loop). shift shift shift # Find the month. Next argument is day, followed by the year or time. month= until test $month do shift case $1 in Jan) month=January; nummonth=1;; Feb) month=February; nummonth=2;; Mar) month=March; nummonth=3;; Apr) month=April; nummonth=4;; May) month=May; nummonth=5;; Jun) month=June; nummonth=6;; Jul) month=July; nummonth=7;; Aug) month=August; nummonth=8;; Sep) month=September; nummonth=9;; Oct) month=October; nummonth=10;; Nov) month=November; nummonth=11;; Dec) month=December; nummonth=12;; esac done day=$2 # Here we have to deal with the problem that the ls output gives either # the time of day or the year. case $3 in *:*) set `date`; eval year=\$$# case $2 in Jan) nummonthtod=1;; Feb) nummonthtod=2;; Mar) nummonthtod=3;; Apr) nummonthtod=4;; May) nummonthtod=5;; Jun) nummonthtod=6;; Jul) nummonthtod=7;; Aug) nummonthtod=8;; Sep) nummonthtod=9;; Oct) nummonthtod=10;; Nov) nummonthtod=11;; Dec) nummonthtod=12;; esac # For the first six month of the year the time notation can also # be used for files modified in the last year. if (expr $nummonth \> $nummonthtod) > /dev/null; then year=`expr $year - 1` fi;; *) year=$3;; esac # The result. echo $day $month $year trueprint-5.4/config/install-sh0000755000175000017500000001273607625761737013645 00000000000000#!/bin/sh # # install - install a program, script, or datafile # This comes from X11R5 (mit/util/scripts/install.sh). # # Copyright 1991 by the Massachusetts Institute of Technology # # Permission to use, copy, modify, distribute, and sell this software and its # documentation for any purpose is hereby granted without fee, provided that # the above copyright notice appear in all copies and that both that # copyright notice and this permission notice appear in supporting # documentation, and that the name of M.I.T. not be used in advertising or # publicity pertaining to distribution of the software without specific, # written prior permission. M.I.T. makes no representations about the # suitability of this software for any purpose. It is provided "as is" # without express or implied warranty. # # Calling this script install-sh is preferred over install.sh, to prevent # `make' implicit rules from creating a file called install from it # when there is no Makefile. # # This script is compatible with the BSD install script, but was written # from scratch. It can only install one file at a time, a restriction # shared with many OS's install programs. # 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}" mkdirprog="${MKDIRPROG-mkdir}" transformbasename="" transform_arg="" instcmd="$mvprog" chmodcmd="$chmodprog 0755" chowncmd="" chgrpcmd="" stripcmd="" rmcmd="$rmprog -f" mvcmd="$mvprog" src="" dst="" dir_arg="" while [ x"$1" != x ]; do case $1 in -c) instcmd="$cpprog" shift continue;; -d) dir_arg=true 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;; -t=*) transformarg=`echo $1 | sed 's/-t=//'` shift continue;; -b=*) transformbasename=`echo $1 | sed 's/-b=//'` shift continue;; *) if [ x"$src" = x ] then src=$1 else # this colon is to work around a 386BSD /bin/sh bug : dst=$1 fi shift continue;; esac done if [ x"$src" = x ] then echo "install: no input file specified" exit 1 else true fi if [ x"$dir_arg" != x ]; then dst=$src src="" if [ -d $dst ]; then instcmd=: chmodcmd="" else instcmd=mkdir fi else # Waiting for this to be detected by the "$instcmd $src $dsttmp" command # might cause directories to be created, which would be especially bad # if $src (and thus $dsttmp) contains '*'. if [ -f $src -o -d $src ] then true else echo "install: $src does not exist" exit 1 fi if [ x"$dst" = x ] then echo "install: no destination specified" exit 1 else true 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` else true fi fi ## this sed command emulates the dirname command dstdir=`echo $dst | sed -e 's,[^/]*$,,;s,/$,,;s,^$,.,'` # Make sure that the destination directory exists. # this part is taken from Noah Friedman's mkinstalldirs script # Skip lots of stat calls in the usual case. if [ ! -d "$dstdir" ]; then defaultIFS=' ' IFS="${IFS-${defaultIFS}}" oIFS="${IFS}" # Some sh's can't handle IFS=/ for some reason. IFS='%' set - `echo ${dstdir} | sed -e 's@/@%@g' -e 's@^%@/@'` IFS="${oIFS}" pathcomp='' while [ $# -ne 0 ] ; do pathcomp="${pathcomp}${1}" shift if [ ! -d "${pathcomp}" ] ; then $mkdirprog "${pathcomp}" else true fi pathcomp="${pathcomp}/" done fi if [ x"$dir_arg" != x ] then $doit $instcmd $dst && if [ x"$chowncmd" != x ]; then $doit $chowncmd $dst; else true ; fi && if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dst; else true ; fi && if [ x"$stripcmd" != x ]; then $doit $stripcmd $dst; else true ; fi && if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dst; else true ; fi else # If we're going to rename the final executable, determine the name now. if [ x"$transformarg" = x ] then dstfile=`basename $dst` else dstfile=`basename $dst $transformbasename | sed $transformarg`$transformbasename fi # don't allow the sed command to completely eliminate the filename if [ x"$dstfile" = x ] then dstfile=`basename $dst` else true fi # Make a temp file name in the proper directory. dsttmp=$dstdir/#inst.$$# # Move or copy the file name to the temp name $doit $instcmd $src $dsttmp && trap "rm -f ${dsttmp}" 0 && # and set any options; do chmod last to preserve setuid bits # If any of these fail, we abort the whole thing. If we want to # ignore errors from any of these, just make sure not to ignore # errors from the above "$doit $instcmd $src $dsttmp" command. if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; else true;fi && if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; else true;fi && if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; else true;fi && if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; else true;fi && # Now rename the file to the real destination. $doit $rmcmd -f $dstdir/$dstfile && $doit $mvcmd $dsttmp $dstdir/$dstfile fi && exit 0 trueprint-5.4/config/sys_errlist.m40000644000175000017500000000061707625761737014460 00000000000000AC_DEFUN(TRUEPRINT_VAR_SYS_ERRLIST, [AC_CACHE_CHECK([for sys_errlist], trueprint_cv_var_sys_errlist, [AC_TRY_LINK([int *p;], [extern in sys_errlist; p = &sys_errlist;], trueprint_cv_var_sys_errlist=yes, trueprint_cv_var_sys_errlist=no)]) if test x"$trueprint_cv_var_sys_errlist" = xyes; then AC_DEFINE(HAVE_SYS_ERRLIST, 1, [Define if your system libraries have a sys_errlist variable.]) fi]) trueprint-5.4/config/mkinstalldirs0000755000175000017500000000132407625761737014436 00000000000000#! /bin/sh # mkinstalldirs --- make directory hierarchy # Author: Noah Friedman # Created: 1993-05-16 # Public domain # $Id: mkinstalldirs,v 1.1 2003/02/22 20:55:59 lgiles Exp $ errstatus=0 for file do set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` shift pathcomp= for d do pathcomp="$pathcomp$d" case "$pathcomp" in -* ) pathcomp=./$pathcomp ;; esac if test ! -d "$pathcomp"; then echo "mkdir $pathcomp" mkdir "$pathcomp" || lasterr=$? if test ! -d "$pathcomp"; then errstatus=$lasterr fi fi pathcomp="$pathcomp/" done done exit $errstatus # mkinstalldirs ends here trueprint-5.4/config/missing0000755000175000017500000001421307625761737013230 00000000000000#! /bin/sh # Common stub for a few missing GNU programs while installing. # Copyright (C) 1996, 1997 Free Software Foundation, Inc. # Franc,ois Pinard , 1996. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA # 02111-1307, USA. if test $# -eq 0; then echo 1>&2 "Try \`$0 --help' for more information" exit 1 fi case "$1" in -h|--h|--he|--hel|--help) echo "\ $0 [OPTION]... PROGRAM [ARGUMENT]... Handle \`PROGRAM [ARGUMENT]...' for when PROGRAM is missing, or return an error status if there is no known handling for PROGRAM. Options: -h, --help display this help and exit -v, --version output version information and exit Supported PROGRAM values: aclocal touch file \`aclocal.m4' autoconf touch file \`configure' autoheader touch file \`config.h.in' automake touch all \`Makefile.in' files bison create \`y.tab.[ch]', if possible, from existing .[ch] flex create \`lex.yy.c', if possible, from existing .c lex create \`lex.yy.c', if possible, from existing .c makeinfo touch the output file yacc create \`y.tab.[ch]', if possible, from existing .[ch]" ;; -v|--v|--ve|--ver|--vers|--versi|--versio|--version) echo "missing - GNU libit 0.0" ;; -*) echo 1>&2 "$0: Unknown \`$1' option" echo 1>&2 "Try \`$0 --help' for more information" exit 1 ;; aclocal) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`acinclude.m4' or \`configure.in'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." touch aclocal.m4 ;; autoconf) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`configure.in'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." touch configure ;; autoheader) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`acconfig.h' or \`configure.in'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." files=`sed -n 's/^[ ]*A[CM]_CONFIG_HEADER(\([^)]*\)).*/\1/p' configure.in` test -z "$files" && files="config.h" touch_files= for f in $files; do case "$f" in *:*) touch_files="$touch_files "`echo "$f" | sed -e 's/^[^:]*://' -e 's/:.*//'`;; *) touch_files="$touch_files $f.in";; esac done touch $touch_files ;; automake) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified \`Makefile.am', \`acinclude.m4' or \`configure.in'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." find . -type f -name Makefile.am -print | sed 's/\.am$/.in/' | while read f; do touch "$f"; done ;; bison|yacc) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a \`.y' file. You may need the \`Bison' package in order for those modifications to take effect. You can get \`Bison' from any GNU archive site." rm -f y.tab.c y.tab.h if [ $# -ne 1 ]; then eval LASTARG="\${$#}" case "$LASTARG" in *.y) SRCFILE=`echo "$LASTARG" | sed 's/y$/c/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" y.tab.c fi SRCFILE=`echo "$LASTARG" | sed 's/y$/h/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" y.tab.h fi ;; esac fi if [ ! -f y.tab.h ]; then echo >y.tab.h fi if [ ! -f y.tab.c ]; then echo 'main() { return 0; }' >y.tab.c fi ;; lex|flex) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a \`.l' file. You may need the \`Flex' package in order for those modifications to take effect. You can get \`Flex' from any GNU archive site." rm -f lex.yy.c if [ $# -ne 1 ]; then eval LASTARG="\${$#}" case "$LASTARG" in *.l) SRCFILE=`echo "$LASTARG" | sed 's/l$/c/'` if [ -f "$SRCFILE" ]; then cp "$SRCFILE" lex.yy.c fi ;; esac fi if [ ! -f lex.yy.c ]; then echo 'main() { return 0; }' >lex.yy.c fi ;; makeinfo) echo 1>&2 "\ WARNING: \`$1' is missing on your system. You should only need it if you modified a \`.texi' or \`.texinfo' file, or any other file indirectly affecting the aspect of the manual. The spurious call might also be the consequence of using a buggy \`make' (AIX, DU, IRIX). You might want to install the \`Texinfo' package or the \`GNU make' package. Grab either from any GNU archive site." file=`echo "$*" | sed -n 's/.*-o \([^ ]*\).*/\1/p'` if test -z "$file"; then file=`echo "$*" | sed 's/.* \([^ ]*\) *$/\1/'` file=`sed -n '/^@setfilename/ { s/.* \([^ ]*\) *$/\1/; p; q; }' $file` fi touch $file ;; *) echo 1>&2 "\ WARNING: \`$1' is needed, and you do not seem to have it handy on your system. You might have modified some files without having the proper tools for further handling them. Check the \`README' file, it often tells you about the needed prerequirements for installing this package. You may also peek at any GNU archive site, in case some other package would contain this missing \`$1' program." exit 1 ;; esac exit 0 trueprint-5.4/config.sub0000755000175000017500000010532711764422452012341 00000000000000#! /bin/sh # Configuration validation subroutine script. # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, # 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, # 2011, 2012 Free Software Foundation, Inc. timestamp='2012-04-18' # This file is (in principle) common to ALL GNU software. # The presence of a machine in this file suggests that SOME GNU software # can handle that machine. It does not imply ALL GNU software can. # # This file is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, see . # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Please send patches to . Submit a context # diff and a properly formatted GNU ChangeLog entry. # # Configuration subroutine to validate and canonicalize a configuration type. # Supply the specified configuration type as an argument. # If it is invalid, we print an error message on stderr and exit with code 1. # Otherwise, we print the canonical config type on stdout and succeed. # You can get the latest version of this script from: # http://git.savannah.gnu.org/gitweb/?p=config.git;a=blob_plain;f=config.sub;hb=HEAD # This file is supposed to be the same for all GNU packages # and recognize all the CPU types, system types and aliases # that are meaningful with *any* GNU software. # Each package is responsible for reporting which valid configurations # it does not support. The user should be able to distinguish # a failure to support a valid configuration from a meaningless # configuration. # The goal of this file is to map all the various variations of a given # machine specification into a single specification in the form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM # or in some cases, the newer four-part form: # CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM # It is wrong to echo any other type of specification. me=`echo "$0" | sed -e 's,.*/,,'` usage="\ Usage: $0 [OPTION] CPU-MFR-OPSYS $0 [OPTION] ALIAS Canonicalize a configuration name. Operation modes: -h, --help print this help, then exit -t, --time-stamp print date of last modification, then exit -v, --version print version number, then exit Report bugs and patches to ." version="\ GNU config.sub ($timestamp) Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. This is free software; see the source for copying conditions. There is NO warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." help=" Try \`$me --help' for more information." # Parse command line while test $# -gt 0 ; do case $1 in --time-stamp | --time* | -t ) echo "$timestamp" ; exit ;; --version | -v ) echo "$version" ; exit ;; --help | --h* | -h ) echo "$usage"; exit ;; -- ) # Stop option processing shift; break ;; - ) # Use stdin as input. break ;; -* ) echo "$me: invalid option $1$help" exit 1 ;; *local*) # First pass through any local machine types. echo $1 exit ;; * ) break ;; esac done case $# in 0) echo "$me: missing argument$help" >&2 exit 1;; 1) ;; *) echo "$me: too many arguments$help" >&2 exit 1;; esac # Separate what the user gave into CPU-COMPANY and OS or KERNEL-OS (if any). # Here we must recognize all the valid KERNEL-OS combinations. maybe_os=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\2/'` case $maybe_os in nto-qnx* | linux-gnu* | linux-android* | linux-dietlibc | linux-newlib* | \ linux-uclibc* | uclinux-uclibc* | uclinux-gnu* | kfreebsd*-gnu* | \ knetbsd*-gnu* | netbsd*-gnu* | \ kopensolaris*-gnu* | \ storm-chaos* | os2-emx* | rtmk-nova*) os=-$maybe_os basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'` ;; android-linux) os=-linux-android basic_machine=`echo $1 | sed 's/^\(.*\)-\([^-]*-[^-]*\)$/\1/'`-unknown ;; *) basic_machine=`echo $1 | sed 's/-[^-]*$//'` if [ $basic_machine != $1 ] then os=`echo $1 | sed 's/.*-/-/'` else os=; fi ;; esac ### Let's recognize common machines as not being operating systems so ### that things like config.sub decstation-3100 work. We also ### recognize some manufacturers as not being operating systems, so we ### can provide default operating systems below. case $os in -sun*os*) # Prevent following clause from handling this invalid input. ;; -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \ -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \ -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \ -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\ -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \ -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp | \ -apple | -axis | -knuth | -cray | -microblaze) os= basic_machine=$1 ;; -bluegene*) os=-cnk ;; -sim | -cisco | -oki | -wec | -winbond) os= basic_machine=$1 ;; -scout) ;; -wrs) os=-vxworks basic_machine=$1 ;; -chorusos*) os=-chorusos basic_machine=$1 ;; -chorusrdb) os=-chorusrdb basic_machine=$1 ;; -hiux*) os=-hiuxwe2 ;; -sco6) os=-sco5v6 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco5) os=-sco3.2v5 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco4) os=-sco3.2v4 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco3.2.[4-9]*) os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco3.2v[4-9]*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco5v6*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -sco*) os=-sco3.2v2 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -udk*) basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -isc) os=-isc2.2 basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -clix*) basic_machine=clipper-intergraph ;; -isc*) basic_machine=`echo $1 | sed -e 's/86-.*/86-pc/'` ;; -lynx*178) os=-lynxos178 ;; -lynx*5) os=-lynxos5 ;; -lynx*) os=-lynxos ;; -ptx*) basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'` ;; -windowsnt*) os=`echo $os | sed -e 's/windowsnt/winnt/'` ;; -psos*) os=-psos ;; -mint | -mint[0-9]*) basic_machine=m68k-atari os=-mint ;; esac # Decode aliases for certain CPU-COMPANY combinations. case $basic_machine in # Recognize the basic CPU types without company name. # Some are omitted here because they have special meanings below. 1750a | 580 \ | a29k \ | aarch64 | aarch64_be \ | alpha | alphaev[4-8] | alphaev56 | alphaev6[78] | alphapca5[67] \ | alpha64 | alpha64ev[4-8] | alpha64ev56 | alpha64ev6[78] | alpha64pca5[67] \ | am33_2.0 \ | arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] | avr | avr32 \ | be32 | be64 \ | bfin \ | c4x | clipper \ | d10v | d30v | dlx | dsp16xx \ | epiphany \ | fido | fr30 | frv \ | h8300 | h8500 | hppa | hppa1.[01] | hppa2.0 | hppa2.0[nw] | hppa64 \ | hexagon \ | i370 | i860 | i960 | ia64 \ | ip2k | iq2000 \ | le32 | le64 \ | lm32 \ | m32c | m32r | m32rle | m68000 | m68k | m88k \ | maxq | mb | microblaze | mcore | mep | metag \ | mips | mipsbe | mipseb | mipsel | mipsle \ | mips16 \ | mips64 | mips64el \ | mips64octeon | mips64octeonel \ | mips64orion | mips64orionel \ | mips64r5900 | mips64r5900el \ | mips64vr | mips64vrel \ | mips64vr4100 | mips64vr4100el \ | mips64vr4300 | mips64vr4300el \ | mips64vr5000 | mips64vr5000el \ | mips64vr5900 | mips64vr5900el \ | mipsisa32 | mipsisa32el \ | mipsisa32r2 | mipsisa32r2el \ | mipsisa64 | mipsisa64el \ | mipsisa64r2 | mipsisa64r2el \ | mipsisa64sb1 | mipsisa64sb1el \ | mipsisa64sr71k | mipsisa64sr71kel \ | mipstx39 | mipstx39el \ | mn10200 | mn10300 \ | moxie \ | mt \ | msp430 \ | nds32 | nds32le | nds32be \ | nios | nios2 \ | ns16k | ns32k \ | open8 \ | or32 \ | pdp10 | pdp11 | pj | pjl \ | powerpc | powerpc64 | powerpc64le | powerpcle \ | pyramid \ | rl78 | rx \ | score \ | sh | sh[1234] | sh[24]a | sh[24]aeb | sh[23]e | sh[34]eb | sheb | shbe | shle | sh[1234]le | sh3ele \ | sh64 | sh64le \ | sparc | sparc64 | sparc64b | sparc64v | sparc86x | sparclet | sparclite \ | sparcv8 | sparcv9 | sparcv9b | sparcv9v \ | spu \ | tahoe | tic4x | tic54x | tic55x | tic6x | tic80 | tron \ | ubicom32 \ | v850 | v850e | v850e1 | v850e2 | v850es | v850e2v3 \ | we32k \ | x86 | xc16x | xstormy16 | xtensa \ | z8k | z80) basic_machine=$basic_machine-unknown ;; c54x) basic_machine=tic54x-unknown ;; c55x) basic_machine=tic55x-unknown ;; c6x) basic_machine=tic6x-unknown ;; m6811 | m68hc11 | m6812 | m68hc12 | m68hcs12x | picochip) basic_machine=$basic_machine-unknown os=-none ;; m88110 | m680[12346]0 | m683?2 | m68360 | m5200 | v70 | w65 | z8k) ;; ms1) basic_machine=mt-unknown ;; strongarm | thumb | xscale) basic_machine=arm-unknown ;; xgate) basic_machine=$basic_machine-unknown os=-none ;; xscaleeb) basic_machine=armeb-unknown ;; xscaleel) basic_machine=armel-unknown ;; # We use `pc' rather than `unknown' # because (1) that's what they normally are, and # (2) the word "unknown" tends to confuse beginning users. i*86 | x86_64) basic_machine=$basic_machine-pc ;; # Object if more than one company name word. *-*-*) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; # Recognize the basic CPU types with company name. 580-* \ | a29k-* \ | aarch64-* | aarch64_be-* \ | alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \ | alpha64-* | alpha64ev[4-8]-* | alpha64ev56-* | alpha64ev6[78]-* \ | alphapca5[67]-* | alpha64pca5[67]-* | arc-* \ | arm-* | armbe-* | armle-* | armeb-* | armv*-* \ | avr-* | avr32-* \ | be32-* | be64-* \ | bfin-* | bs2000-* \ | c[123]* | c30-* | [cjt]90-* | c4x-* \ | clipper-* | craynv-* | cydra-* \ | d10v-* | d30v-* | dlx-* \ | elxsi-* \ | f30[01]-* | f700-* | fido-* | fr30-* | frv-* | fx80-* \ | h8300-* | h8500-* \ | hppa-* | hppa1.[01]-* | hppa2.0-* | hppa2.0[nw]-* | hppa64-* \ | hexagon-* \ | i*86-* | i860-* | i960-* | ia64-* \ | ip2k-* | iq2000-* \ | le32-* | le64-* \ | lm32-* \ | m32c-* | m32r-* | m32rle-* \ | m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \ | m88110-* | m88k-* | maxq-* | mcore-* | metag-* | microblaze-* \ | mips-* | mipsbe-* | mipseb-* | mipsel-* | mipsle-* \ | mips16-* \ | mips64-* | mips64el-* \ | mips64octeon-* | mips64octeonel-* \ | mips64orion-* | mips64orionel-* \ | mips64r5900-* | mips64r5900el-* \ | mips64vr-* | mips64vrel-* \ | mips64vr4100-* | mips64vr4100el-* \ | mips64vr4300-* | mips64vr4300el-* \ | mips64vr5000-* | mips64vr5000el-* \ | mips64vr5900-* | mips64vr5900el-* \ | mipsisa32-* | mipsisa32el-* \ | mipsisa32r2-* | mipsisa32r2el-* \ | mipsisa64-* | mipsisa64el-* \ | mipsisa64r2-* | mipsisa64r2el-* \ | mipsisa64sb1-* | mipsisa64sb1el-* \ | mipsisa64sr71k-* | mipsisa64sr71kel-* \ | mipstx39-* | mipstx39el-* \ | mmix-* \ | mt-* \ | msp430-* \ | nds32-* | nds32le-* | nds32be-* \ | nios-* | nios2-* \ | none-* | np1-* | ns16k-* | ns32k-* \ | open8-* \ | orion-* \ | pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \ | powerpc-* | powerpc64-* | powerpc64le-* | powerpcle-* \ | pyramid-* \ | rl78-* | romp-* | rs6000-* | rx-* \ | sh-* | sh[1234]-* | sh[24]a-* | sh[24]aeb-* | sh[23]e-* | sh[34]eb-* | sheb-* | shbe-* \ | shle-* | sh[1234]le-* | sh3ele-* | sh64-* | sh64le-* \ | sparc-* | sparc64-* | sparc64b-* | sparc64v-* | sparc86x-* | sparclet-* \ | sparclite-* \ | sparcv8-* | sparcv9-* | sparcv9b-* | sparcv9v-* | sv1-* | sx?-* \ | tahoe-* \ | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \ | tile*-* \ | tron-* \ | ubicom32-* \ | v850-* | v850e-* | v850e1-* | v850es-* | v850e2-* | v850e2v3-* \ | vax-* \ | we32k-* \ | x86-* | x86_64-* | xc16x-* | xps100-* \ | xstormy16-* | xtensa*-* \ | ymp-* \ | z8k-* | z80-*) ;; # Recognize the basic CPU types without company name, with glob match. xtensa*) basic_machine=$basic_machine-unknown ;; # Recognize the various machine names and aliases which stand # for a CPU type and a company and sometimes even an OS. 386bsd) basic_machine=i386-unknown os=-bsd ;; 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) basic_machine=m68000-att ;; 3b*) basic_machine=we32k-att ;; a29khif) basic_machine=a29k-amd os=-udi ;; abacus) basic_machine=abacus-unknown ;; adobe68k) basic_machine=m68010-adobe os=-scout ;; alliant | fx80) basic_machine=fx80-alliant ;; altos | altos3068) basic_machine=m68k-altos ;; am29k) basic_machine=a29k-none os=-bsd ;; amd64) basic_machine=x86_64-pc ;; amd64-*) basic_machine=x86_64-`echo $basic_machine | sed 's/^[^-]*-//'` ;; amdahl) basic_machine=580-amdahl os=-sysv ;; amiga | amiga-*) basic_machine=m68k-unknown ;; amigaos | amigados) basic_machine=m68k-unknown os=-amigaos ;; amigaunix | amix) basic_machine=m68k-unknown os=-sysv4 ;; apollo68) basic_machine=m68k-apollo os=-sysv ;; apollo68bsd) basic_machine=m68k-apollo os=-bsd ;; aros) basic_machine=i386-pc os=-aros ;; aux) basic_machine=m68k-apple os=-aux ;; balance) basic_machine=ns32k-sequent os=-dynix ;; blackfin) basic_machine=bfin-unknown os=-linux ;; blackfin-*) basic_machine=bfin-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; bluegene*) basic_machine=powerpc-ibm os=-cnk ;; c54x-*) basic_machine=tic54x-`echo $basic_machine | sed 's/^[^-]*-//'` ;; c55x-*) basic_machine=tic55x-`echo $basic_machine | sed 's/^[^-]*-//'` ;; c6x-*) basic_machine=tic6x-`echo $basic_machine | sed 's/^[^-]*-//'` ;; c90) basic_machine=c90-cray os=-unicos ;; cegcc) basic_machine=arm-unknown os=-cegcc ;; convex-c1) basic_machine=c1-convex os=-bsd ;; convex-c2) basic_machine=c2-convex os=-bsd ;; convex-c32) basic_machine=c32-convex os=-bsd ;; convex-c34) basic_machine=c34-convex os=-bsd ;; convex-c38) basic_machine=c38-convex os=-bsd ;; cray | j90) basic_machine=j90-cray os=-unicos ;; craynv) basic_machine=craynv-cray os=-unicosmp ;; cr16 | cr16-*) basic_machine=cr16-unknown os=-elf ;; crds | unos) basic_machine=m68k-crds ;; crisv32 | crisv32-* | etraxfs*) basic_machine=crisv32-axis ;; cris | cris-* | etrax*) basic_machine=cris-axis ;; crx) basic_machine=crx-unknown os=-elf ;; da30 | da30-*) basic_machine=m68k-da30 ;; decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) basic_machine=mips-dec ;; decsystem10* | dec10*) basic_machine=pdp10-dec os=-tops10 ;; decsystem20* | dec20*) basic_machine=pdp10-dec os=-tops20 ;; delta | 3300 | motorola-3300 | motorola-delta \ | 3300-motorola | delta-motorola) basic_machine=m68k-motorola ;; delta88) basic_machine=m88k-motorola os=-sysv3 ;; dicos) basic_machine=i686-pc os=-dicos ;; djgpp) basic_machine=i586-pc os=-msdosdjgpp ;; dpx20 | dpx20-*) basic_machine=rs6000-bull os=-bosx ;; dpx2* | dpx2*-bull) basic_machine=m68k-bull os=-sysv3 ;; ebmon29k) basic_machine=a29k-amd os=-ebmon ;; elxsi) basic_machine=elxsi-elxsi os=-bsd ;; encore | umax | mmax) basic_machine=ns32k-encore ;; es1800 | OSE68k | ose68k | ose | OSE) basic_machine=m68k-ericsson os=-ose ;; fx2800) basic_machine=i860-alliant ;; genix) basic_machine=ns32k-ns ;; gmicro) basic_machine=tron-gmicro os=-sysv ;; go32) basic_machine=i386-pc os=-go32 ;; h3050r* | hiux*) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; h8300hms) basic_machine=h8300-hitachi os=-hms ;; h8300xray) basic_machine=h8300-hitachi os=-xray ;; h8500hms) basic_machine=h8500-hitachi os=-hms ;; harris) basic_machine=m88k-harris os=-sysv3 ;; hp300-*) basic_machine=m68k-hp ;; hp300bsd) basic_machine=m68k-hp os=-bsd ;; hp300hpux) basic_machine=m68k-hp os=-hpux ;; hp3k9[0-9][0-9] | hp9[0-9][0-9]) basic_machine=hppa1.0-hp ;; hp9k2[0-9][0-9] | hp9k31[0-9]) basic_machine=m68000-hp ;; hp9k3[2-9][0-9]) basic_machine=m68k-hp ;; hp9k6[0-9][0-9] | hp6[0-9][0-9]) basic_machine=hppa1.0-hp ;; hp9k7[0-79][0-9] | hp7[0-79][0-9]) basic_machine=hppa1.1-hp ;; hp9k78[0-9] | hp78[0-9]) # FIXME: really hppa2.0-hp basic_machine=hppa1.1-hp ;; hp9k8[67]1 | hp8[67]1 | hp9k80[24] | hp80[24] | hp9k8[78]9 | hp8[78]9 | hp9k893 | hp893) # FIXME: really hppa2.0-hp basic_machine=hppa1.1-hp ;; hp9k8[0-9][13679] | hp8[0-9][13679]) basic_machine=hppa1.1-hp ;; hp9k8[0-9][0-9] | hp8[0-9][0-9]) basic_machine=hppa1.0-hp ;; hppa-next) os=-nextstep3 ;; hppaosf) basic_machine=hppa1.1-hp os=-osf ;; hppro) basic_machine=hppa1.1-hp os=-proelf ;; i370-ibm* | ibm*) basic_machine=i370-ibm ;; i*86v32) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv32 ;; i*86v4*) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv4 ;; i*86v) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-sysv ;; i*86sol2) basic_machine=`echo $1 | sed -e 's/86.*/86-pc/'` os=-solaris2 ;; i386mach) basic_machine=i386-mach os=-mach ;; i386-vsta | vsta) basic_machine=i386-unknown os=-vsta ;; iris | iris4d) basic_machine=mips-sgi case $os in -irix*) ;; *) os=-irix4 ;; esac ;; isi68 | isi) basic_machine=m68k-isi os=-sysv ;; m68knommu) basic_machine=m68k-unknown os=-linux ;; m68knommu-*) basic_machine=m68k-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; m88k-omron*) basic_machine=m88k-omron ;; magnum | m3230) basic_machine=mips-mips os=-sysv ;; merlin) basic_machine=ns32k-utek os=-sysv ;; microblaze) basic_machine=microblaze-xilinx ;; mingw32) basic_machine=i386-pc os=-mingw32 ;; mingw32ce) basic_machine=arm-unknown os=-mingw32ce ;; miniframe) basic_machine=m68000-convergent ;; *mint | -mint[0-9]* | *MiNT | *MiNT[0-9]*) basic_machine=m68k-atari os=-mint ;; mips3*-*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` ;; mips3*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown ;; monitor) basic_machine=m68k-rom68k os=-coff ;; morphos) basic_machine=powerpc-unknown os=-morphos ;; msdos) basic_machine=i386-pc os=-msdos ;; ms1-*) basic_machine=`echo $basic_machine | sed -e 's/ms1-/mt-/'` ;; msys) basic_machine=i386-pc os=-msys ;; mvs) basic_machine=i370-ibm os=-mvs ;; nacl) basic_machine=le32-unknown os=-nacl ;; ncr3000) basic_machine=i486-ncr os=-sysv4 ;; netbsd386) basic_machine=i386-unknown os=-netbsd ;; netwinder) basic_machine=armv4l-rebel os=-linux ;; news | news700 | news800 | news900) basic_machine=m68k-sony os=-newsos ;; news1000) basic_machine=m68030-sony os=-newsos ;; news-3600 | risc-news) basic_machine=mips-sony os=-newsos ;; necv70) basic_machine=v70-nec os=-sysv ;; next | m*-next ) basic_machine=m68k-next case $os in -nextstep* ) ;; -ns2*) os=-nextstep2 ;; *) os=-nextstep3 ;; esac ;; nh3000) basic_machine=m68k-harris os=-cxux ;; nh[45]000) basic_machine=m88k-harris os=-cxux ;; nindy960) basic_machine=i960-intel os=-nindy ;; mon960) basic_machine=i960-intel os=-mon960 ;; nonstopux) basic_machine=mips-compaq os=-nonstopux ;; np1) basic_machine=np1-gould ;; neo-tandem) basic_machine=neo-tandem ;; nse-tandem) basic_machine=nse-tandem ;; nsr-tandem) basic_machine=nsr-tandem ;; op50n-* | op60c-*) basic_machine=hppa1.1-oki os=-proelf ;; openrisc | openrisc-*) basic_machine=or32-unknown ;; os400) basic_machine=powerpc-ibm os=-os400 ;; OSE68000 | ose68000) basic_machine=m68000-ericsson os=-ose ;; os68k) basic_machine=m68k-none os=-os68k ;; pa-hitachi) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; paragon) basic_machine=i860-intel os=-osf ;; parisc) basic_machine=hppa-unknown os=-linux ;; parisc-*) basic_machine=hppa-`echo $basic_machine | sed 's/^[^-]*-//'` os=-linux ;; pbd) basic_machine=sparc-tti ;; pbb) basic_machine=m68k-tti ;; pc532 | pc532-*) basic_machine=ns32k-pc532 ;; pc98) basic_machine=i386-pc ;; pc98-*) basic_machine=i386-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentium | p5 | k5 | k6 | nexgen | viac3) basic_machine=i586-pc ;; pentiumpro | p6 | 6x86 | athlon | athlon_*) basic_machine=i686-pc ;; pentiumii | pentium2 | pentiumiii | pentium3) basic_machine=i686-pc ;; pentium4) basic_machine=i786-pc ;; pentium-* | p5-* | k5-* | k6-* | nexgen-* | viac3-*) basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumpro-* | p6-* | 6x86-* | athlon-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentiumii-* | pentium2-* | pentiumiii-* | pentium3-*) basic_machine=i686-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pentium4-*) basic_machine=i786-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pn) basic_machine=pn-gould ;; power) basic_machine=power-ibm ;; ppc | ppcbe) basic_machine=powerpc-unknown ;; ppc-* | ppcbe-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppcle | powerpclittle | ppc-le | powerpc-little) basic_machine=powerpcle-unknown ;; ppcle-* | powerpclittle-*) basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppc64) basic_machine=powerpc64-unknown ;; ppc64-*) basic_machine=powerpc64-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ppc64le | powerpc64little | ppc64-le | powerpc64-little) basic_machine=powerpc64le-unknown ;; ppc64le-* | powerpc64little-*) basic_machine=powerpc64le-`echo $basic_machine | sed 's/^[^-]*-//'` ;; ps2) basic_machine=i386-ibm ;; pw32) basic_machine=i586-unknown os=-pw32 ;; rdos) basic_machine=i386-pc os=-rdos ;; rom68k) basic_machine=m68k-rom68k os=-coff ;; rm[46]00) basic_machine=mips-siemens ;; rtpc | rtpc-*) basic_machine=romp-ibm ;; s390 | s390-*) basic_machine=s390-ibm ;; s390x | s390x-*) basic_machine=s390x-ibm ;; sa29200) basic_machine=a29k-amd os=-udi ;; sb1) basic_machine=mipsisa64sb1-unknown ;; sb1el) basic_machine=mipsisa64sb1el-unknown ;; sde) basic_machine=mipsisa32-sde os=-elf ;; sei) basic_machine=mips-sei os=-seiux ;; sequent) basic_machine=i386-sequent ;; sh) basic_machine=sh-hitachi os=-hms ;; sh5el) basic_machine=sh5le-unknown ;; sh64) basic_machine=sh64-unknown ;; sparclite-wrs | simso-wrs) basic_machine=sparclite-wrs os=-vxworks ;; sps7) basic_machine=m68k-bull os=-sysv2 ;; spur) basic_machine=spur-unknown ;; st2000) basic_machine=m68k-tandem ;; stratus) basic_machine=i860-stratus os=-sysv4 ;; strongarm-* | thumb-*) basic_machine=arm-`echo $basic_machine | sed 's/^[^-]*-//'` ;; sun2) basic_machine=m68000-sun ;; sun2os3) basic_machine=m68000-sun os=-sunos3 ;; sun2os4) basic_machine=m68000-sun os=-sunos4 ;; sun3os3) basic_machine=m68k-sun os=-sunos3 ;; sun3os4) basic_machine=m68k-sun os=-sunos4 ;; sun4os3) basic_machine=sparc-sun os=-sunos3 ;; sun4os4) basic_machine=sparc-sun os=-sunos4 ;; sun4sol2) basic_machine=sparc-sun os=-solaris2 ;; sun3 | sun3-*) basic_machine=m68k-sun ;; sun4) basic_machine=sparc-sun ;; sun386 | sun386i | roadrunner) basic_machine=i386-sun ;; sv1) basic_machine=sv1-cray os=-unicos ;; symmetry) basic_machine=i386-sequent os=-dynix ;; t3e) basic_machine=alphaev5-cray os=-unicos ;; t90) basic_machine=t90-cray os=-unicos ;; tile*) basic_machine=$basic_machine-unknown os=-linux-gnu ;; tx39) basic_machine=mipstx39-unknown ;; tx39el) basic_machine=mipstx39el-unknown ;; toad1) basic_machine=pdp10-xkl os=-tops20 ;; tower | tower-32) basic_machine=m68k-ncr ;; tpf) basic_machine=s390x-ibm os=-tpf ;; udi29k) basic_machine=a29k-amd os=-udi ;; ultra3) basic_machine=a29k-nyu os=-sym1 ;; v810 | necv810) basic_machine=v810-nec os=-none ;; vaxv) basic_machine=vax-dec os=-sysv ;; vms) basic_machine=vax-dec os=-vms ;; vpp*|vx|vx-*) basic_machine=f301-fujitsu ;; vxworks960) basic_machine=i960-wrs os=-vxworks ;; vxworks68) basic_machine=m68k-wrs os=-vxworks ;; vxworks29k) basic_machine=a29k-wrs os=-vxworks ;; w65*) basic_machine=w65-wdc os=-none ;; w89k-*) basic_machine=hppa1.1-winbond os=-proelf ;; xbox) basic_machine=i686-pc os=-mingw32 ;; xps | xps100) basic_machine=xps100-honeywell ;; xscale-* | xscalee[bl]-*) basic_machine=`echo $basic_machine | sed 's/^xscale/arm/'` ;; ymp) basic_machine=ymp-cray os=-unicos ;; z8k-*-coff) basic_machine=z8k-unknown os=-sim ;; z80-*-coff) basic_machine=z80-unknown os=-sim ;; none) basic_machine=none-none os=-none ;; # Here we handle the default manufacturer of certain CPU types. It is in # some cases the only manufacturer, in others, it is the most popular. w89k) basic_machine=hppa1.1-winbond ;; op50n) basic_machine=hppa1.1-oki ;; op60c) basic_machine=hppa1.1-oki ;; romp) basic_machine=romp-ibm ;; mmix) basic_machine=mmix-knuth ;; rs6000) basic_machine=rs6000-ibm ;; vax) basic_machine=vax-dec ;; pdp10) # there are many clones, so DEC is not a safe bet basic_machine=pdp10-unknown ;; pdp11) basic_machine=pdp11-dec ;; we32k) basic_machine=we32k-att ;; sh[1234] | sh[24]a | sh[24]aeb | sh[34]eb | sh[1234]le | sh[23]ele) basic_machine=sh-unknown ;; sparc | sparcv8 | sparcv9 | sparcv9b | sparcv9v) basic_machine=sparc-sun ;; cydra) basic_machine=cydra-cydrome ;; orion) basic_machine=orion-highlevel ;; orion105) basic_machine=clipper-highlevel ;; mac | mpw | mac-mpw) basic_machine=m68k-apple ;; pmac | pmac-mpw) basic_machine=powerpc-apple ;; *-unknown) # Make sure to match an already-canonicalized machine name. ;; *) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; esac # Here we canonicalize certain aliases for manufacturers. case $basic_machine in *-digital*) basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` ;; *-commodore*) basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` ;; *) ;; esac # Decode manufacturer-specific aliases for certain operating systems. if [ x"$os" != x"" ] then case $os in # First match some system type aliases # that might get confused with valid system types. # -solaris* is a basic system type, with this one exception. -auroraux) os=-auroraux ;; -solaris1 | -solaris1.*) os=`echo $os | sed -e 's|solaris1|sunos4|'` ;; -solaris) os=-solaris2 ;; -svr4*) os=-sysv4 ;; -unixware*) os=-sysv4.2uw ;; -gnu/linux*) os=`echo $os | sed -e 's|gnu/linux|linux-gnu|'` ;; # First accept the basic system types. # The portable systems comes first. # Each alternative MUST END IN A *, to match a version number. # -sysv* is not here because it comes later, after sysvr4. -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ | -*vms* | -sco* | -esix* | -isc* | -aix* | -cnk* | -sunos | -sunos[34]*\ | -hpux* | -unos* | -osf* | -luna* | -dgux* | -auroraux* | -solaris* \ | -sym* | -kopensolaris* \ | -amigaos* | -amigados* | -msdos* | -newsos* | -unicos* | -aof* \ | -aos* | -aros* \ | -nindy* | -vxsim* | -vxworks* | -ebmon* | -hms* | -mvs* \ | -clix* | -riscos* | -uniplus* | -iris* | -rtu* | -xenix* \ | -hiux* | -386bsd* | -knetbsd* | -mirbsd* | -netbsd* \ | -openbsd* | -solidbsd* \ | -ekkobsd* | -kfreebsd* | -freebsd* | -riscix* | -lynxos* \ | -bosx* | -nextstep* | -cxux* | -aout* | -elf* | -oabi* \ | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \ | -udi* | -eabi* | -lites* | -ieee* | -go32* | -aux* \ | -chorusos* | -chorusrdb* | -cegcc* \ | -cygwin* | -msys* | -pe* | -psos* | -moss* | -proelf* | -rtems* \ | -mingw32* | -linux-gnu* | -linux-android* \ | -linux-newlib* | -linux-uclibc* \ | -uxpv* | -beos* | -mpeix* | -udk* \ | -interix* | -uwin* | -mks* | -rhapsody* | -darwin* | -opened* \ | -openstep* | -oskit* | -conix* | -pw32* | -nonstopux* \ | -storm-chaos* | -tops10* | -tenex* | -tops20* | -its* \ | -os2* | -vos* | -palmos* | -uclinux* | -nucleus* \ | -morphos* | -superux* | -rtmk* | -rtmk-nova* | -windiss* \ | -powermax* | -dnix* | -nx6 | -nx7 | -sei* | -dragonfly* \ | -skyos* | -haiku* | -rdos* | -toppers* | -drops* | -es*) # Remember, each alternative MUST END IN *, to match a version number. ;; -qnx*) case $basic_machine in x86-* | i*86-*) ;; *) os=-nto$os ;; esac ;; -nto-qnx*) ;; -nto*) os=`echo $os | sed -e 's|nto|nto-qnx|'` ;; -sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \ | -windows* | -osx | -abug | -netware* | -os9* | -beos* | -haiku* \ | -macos* | -mpw* | -magic* | -mmixware* | -mon960* | -lnews*) ;; -mac*) os=`echo $os | sed -e 's|mac|macos|'` ;; -linux-dietlibc) os=-linux-dietlibc ;; -linux*) os=`echo $os | sed -e 's|linux|linux-gnu|'` ;; -sunos5*) os=`echo $os | sed -e 's|sunos5|solaris2|'` ;; -sunos6*) os=`echo $os | sed -e 's|sunos6|solaris3|'` ;; -opened*) os=-openedition ;; -os400*) os=-os400 ;; -wince*) os=-wince ;; -osfrose*) os=-osfrose ;; -osf*) os=-osf ;; -utek*) os=-bsd ;; -dynix*) os=-bsd ;; -acis*) os=-aos ;; -atheos*) os=-atheos ;; -syllable*) os=-syllable ;; -386bsd) os=-bsd ;; -ctix* | -uts*) os=-sysv ;; -nova*) os=-rtmk-nova ;; -ns2 ) os=-nextstep2 ;; -nsk*) os=-nsk ;; # Preserve the version number of sinix5. -sinix5.*) os=`echo $os | sed -e 's|sinix|sysv|'` ;; -sinix*) os=-sysv4 ;; -tpf*) os=-tpf ;; -triton*) os=-sysv3 ;; -oss*) os=-sysv3 ;; -svr4) os=-sysv4 ;; -svr3) os=-sysv3 ;; -sysvr4) os=-sysv4 ;; # This must come after -sysvr4. -sysv*) ;; -ose*) os=-ose ;; -es1800*) os=-ose ;; -xenix) os=-xenix ;; -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) os=-mint ;; -aros*) os=-aros ;; -kaos*) os=-kaos ;; -zvmoe) os=-zvmoe ;; -dicos*) os=-dicos ;; -nacl*) ;; -none) ;; *) # Get rid of the `-' at the beginning of $os. os=`echo $os | sed 's/[^-]*-//'` echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 exit 1 ;; esac else # Here we handle the default operating systems that come with various machines. # The value should be what the vendor currently ships out the door with their # machine or put another way, the most popular os provided with the machine. # Note that if you're going to try to match "-MANUFACTURER" here (say, # "-sun"), then you have to tell the case statement up towards the top # that MANUFACTURER isn't an operating system. Otherwise, code above # will signal an error saying that MANUFACTURER isn't an operating # system, and we'll never get to this point. case $basic_machine in score-*) os=-elf ;; spu-*) os=-elf ;; *-acorn) os=-riscix1.2 ;; arm*-rebel) os=-linux ;; arm*-semi) os=-aout ;; c4x-* | tic4x-*) os=-coff ;; hexagon-*) os=-elf ;; tic54x-*) os=-coff ;; tic55x-*) os=-coff ;; tic6x-*) os=-coff ;; # This must come before the *-dec entry. pdp10-*) os=-tops20 ;; pdp11-*) os=-none ;; *-dec | vax-*) os=-ultrix4.2 ;; m68*-apollo) os=-domain ;; i386-sun) os=-sunos4.0.2 ;; m68000-sun) os=-sunos3 ;; m68*-cisco) os=-aout ;; mep-*) os=-elf ;; mips*-cisco) os=-elf ;; mips*-*) os=-elf ;; or32-*) os=-coff ;; *-tti) # must be before sparc entry or we get the wrong os. os=-sysv3 ;; sparc-* | *-sun) os=-sunos4.1.1 ;; *-be) os=-beos ;; *-haiku) os=-haiku ;; *-ibm) os=-aix ;; *-knuth) os=-mmixware ;; *-wec) os=-proelf ;; *-winbond) os=-proelf ;; *-oki) os=-proelf ;; *-hp) os=-hpux ;; *-hitachi) os=-hiux ;; i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) os=-sysv ;; *-cbm) os=-amigaos ;; *-dg) os=-dgux ;; *-dolphin) os=-sysv3 ;; m68k-ccur) os=-rtu ;; m88k-omron*) os=-luna ;; *-next ) os=-nextstep ;; *-sequent) os=-ptx ;; *-crds) os=-unos ;; *-ns) os=-genix ;; i370-*) os=-mvs ;; *-next) os=-nextstep3 ;; *-gould) os=-sysv ;; *-highlevel) os=-bsd ;; *-encore) os=-bsd ;; *-sgi) os=-irix ;; *-siemens) os=-sysv4 ;; *-masscomp) os=-rtu ;; f30[01]-fujitsu | f700-fujitsu) os=-uxpv ;; *-rom68k) os=-coff ;; *-*bug) os=-coff ;; *-apple) os=-macos ;; *-atari*) os=-mint ;; *) os=-none ;; esac fi # Here we handle the case where we know the os, and the CPU type, but not the # manufacturer. We pick the logical manufacturer. vendor=unknown case $basic_machine in *-unknown) case $os in -riscix*) vendor=acorn ;; -sunos*) vendor=sun ;; -cnk*|-aix*) vendor=ibm ;; -beos*) vendor=be ;; -hpux*) vendor=hp ;; -mpeix*) vendor=hp ;; -hiux*) vendor=hitachi ;; -unos*) vendor=crds ;; -dgux*) vendor=dg ;; -luna*) vendor=omron ;; -genix*) vendor=ns ;; -mvs* | -opened*) vendor=ibm ;; -os400*) vendor=ibm ;; -ptx*) vendor=sequent ;; -tpf*) vendor=ibm ;; -vxsim* | -vxworks* | -windiss*) vendor=wrs ;; -aux*) vendor=apple ;; -hms*) vendor=hitachi ;; -mpw* | -macos*) vendor=apple ;; -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*) vendor=atari ;; -vos*) vendor=stratus ;; esac basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` ;; esac echo $basic_machine$os exit # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "timestamp='" # time-stamp-format: "%:y-%02m-%02d" # time-stamp-end: "'" # End: trueprint-5.4/m4/0000755000175000017500000000000012117403105010731 500000000000000trueprint-5.4/m4/ltversion.m40000644000175000017500000000126212116662146013154 00000000000000# ltversion.m4 -- version numbers -*- Autoconf -*- # # Copyright (C) 2004 Free Software Foundation, Inc. # Written by Scott James Remnant, 2004 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # @configure_input@ # serial 3337 ltversion.m4 # This file is part of GNU Libtool m4_define([LT_PACKAGE_VERSION], [2.4.2]) m4_define([LT_PACKAGE_REVISION], [1.3337]) AC_DEFUN([LTVERSION_VERSION], [macro_version='2.4.2' macro_revision='1.3337' _LT_DECL(, macro_version, 0, [Which release of libtool.m4 was used?]) _LT_DECL(, macro_revision, 0) ]) trueprint-5.4/m4/ltoptions.m40000644000175000017500000003007312116662115013160 00000000000000# Helper functions for option handling. -*- Autoconf -*- # # Copyright (C) 2004, 2005, 2007, 2008, 2009 Free Software Foundation, # Inc. # Written by Gary V. Vaughan, 2004 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # serial 7 ltoptions.m4 # This is to help aclocal find these macros, as it can't see m4_define. AC_DEFUN([LTOPTIONS_VERSION], [m4_if([1])]) # _LT_MANGLE_OPTION(MACRO-NAME, OPTION-NAME) # ------------------------------------------ m4_define([_LT_MANGLE_OPTION], [[_LT_OPTION_]m4_bpatsubst($1__$2, [[^a-zA-Z0-9_]], [_])]) # _LT_SET_OPTION(MACRO-NAME, OPTION-NAME) # --------------------------------------- # Set option OPTION-NAME for macro MACRO-NAME, and if there is a # matching handler defined, dispatch to it. Other OPTION-NAMEs are # saved as a flag. m4_define([_LT_SET_OPTION], [m4_define(_LT_MANGLE_OPTION([$1], [$2]))dnl m4_ifdef(_LT_MANGLE_DEFUN([$1], [$2]), _LT_MANGLE_DEFUN([$1], [$2]), [m4_warning([Unknown $1 option `$2'])])[]dnl ]) # _LT_IF_OPTION(MACRO-NAME, OPTION-NAME, IF-SET, [IF-NOT-SET]) # ------------------------------------------------------------ # Execute IF-SET if OPTION is set, IF-NOT-SET otherwise. m4_define([_LT_IF_OPTION], [m4_ifdef(_LT_MANGLE_OPTION([$1], [$2]), [$3], [$4])]) # _LT_UNLESS_OPTIONS(MACRO-NAME, OPTION-LIST, IF-NOT-SET) # ------------------------------------------------------- # Execute IF-NOT-SET unless all options in OPTION-LIST for MACRO-NAME # are set. m4_define([_LT_UNLESS_OPTIONS], [m4_foreach([_LT_Option], m4_split(m4_normalize([$2])), [m4_ifdef(_LT_MANGLE_OPTION([$1], _LT_Option), [m4_define([$0_found])])])[]dnl m4_ifdef([$0_found], [m4_undefine([$0_found])], [$3 ])[]dnl ]) # _LT_SET_OPTIONS(MACRO-NAME, OPTION-LIST) # ---------------------------------------- # OPTION-LIST is a space-separated list of Libtool options associated # with MACRO-NAME. If any OPTION has a matching handler declared with # LT_OPTION_DEFINE, dispatch to that macro; otherwise complain about # the unknown option and exit. m4_defun([_LT_SET_OPTIONS], [# Set options m4_foreach([_LT_Option], m4_split(m4_normalize([$2])), [_LT_SET_OPTION([$1], _LT_Option)]) m4_if([$1],[LT_INIT],[ dnl dnl Simply set some default values (i.e off) if boolean options were not dnl specified: _LT_UNLESS_OPTIONS([LT_INIT], [dlopen], [enable_dlopen=no ]) _LT_UNLESS_OPTIONS([LT_INIT], [win32-dll], [enable_win32_dll=no ]) dnl dnl If no reference was made to various pairs of opposing options, then dnl we run the default mode handler for the pair. For example, if neither dnl `shared' nor `disable-shared' was passed, we enable building of shared dnl archives by default: _LT_UNLESS_OPTIONS([LT_INIT], [shared disable-shared], [_LT_ENABLE_SHARED]) _LT_UNLESS_OPTIONS([LT_INIT], [static disable-static], [_LT_ENABLE_STATIC]) _LT_UNLESS_OPTIONS([LT_INIT], [pic-only no-pic], [_LT_WITH_PIC]) _LT_UNLESS_OPTIONS([LT_INIT], [fast-install disable-fast-install], [_LT_ENABLE_FAST_INSTALL]) ]) ])# _LT_SET_OPTIONS ## --------------------------------- ## ## Macros to handle LT_INIT options. ## ## --------------------------------- ## # _LT_MANGLE_DEFUN(MACRO-NAME, OPTION-NAME) # ----------------------------------------- m4_define([_LT_MANGLE_DEFUN], [[_LT_OPTION_DEFUN_]m4_bpatsubst(m4_toupper([$1__$2]), [[^A-Z0-9_]], [_])]) # LT_OPTION_DEFINE(MACRO-NAME, OPTION-NAME, CODE) # ----------------------------------------------- m4_define([LT_OPTION_DEFINE], [m4_define(_LT_MANGLE_DEFUN([$1], [$2]), [$3])[]dnl ])# LT_OPTION_DEFINE # dlopen # ------ LT_OPTION_DEFINE([LT_INIT], [dlopen], [enable_dlopen=yes ]) AU_DEFUN([AC_LIBTOOL_DLOPEN], [_LT_SET_OPTION([LT_INIT], [dlopen]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `dlopen' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_DLOPEN], []) # win32-dll # --------- # Declare package support for building win32 dll's. LT_OPTION_DEFINE([LT_INIT], [win32-dll], [enable_win32_dll=yes case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-cegcc*) AC_CHECK_TOOL(AS, as, false) AC_CHECK_TOOL(DLLTOOL, dlltool, false) AC_CHECK_TOOL(OBJDUMP, objdump, false) ;; esac test -z "$AS" && AS=as _LT_DECL([], [AS], [1], [Assembler program])dnl test -z "$DLLTOOL" && DLLTOOL=dlltool _LT_DECL([], [DLLTOOL], [1], [DLL creation program])dnl test -z "$OBJDUMP" && OBJDUMP=objdump _LT_DECL([], [OBJDUMP], [1], [Object dumper program])dnl ])# win32-dll AU_DEFUN([AC_LIBTOOL_WIN32_DLL], [AC_REQUIRE([AC_CANONICAL_HOST])dnl _LT_SET_OPTION([LT_INIT], [win32-dll]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `win32-dll' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_WIN32_DLL], []) # _LT_ENABLE_SHARED([DEFAULT]) # ---------------------------- # implement the --enable-shared flag, and supports the `shared' and # `disable-shared' LT_INIT options. # DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. m4_define([_LT_ENABLE_SHARED], [m4_define([_LT_ENABLE_SHARED_DEFAULT], [m4_if($1, no, no, yes)])dnl AC_ARG_ENABLE([shared], [AS_HELP_STRING([--enable-shared@<:@=PKGS@:>@], [build shared libraries @<:@default=]_LT_ENABLE_SHARED_DEFAULT[@:>@])], [p=${PACKAGE-default} case $enableval in yes) enable_shared=yes ;; no) enable_shared=no ;; *) enable_shared=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_shared=yes fi done IFS="$lt_save_ifs" ;; esac], [enable_shared=]_LT_ENABLE_SHARED_DEFAULT) _LT_DECL([build_libtool_libs], [enable_shared], [0], [Whether or not to build shared libraries]) ])# _LT_ENABLE_SHARED LT_OPTION_DEFINE([LT_INIT], [shared], [_LT_ENABLE_SHARED([yes])]) LT_OPTION_DEFINE([LT_INIT], [disable-shared], [_LT_ENABLE_SHARED([no])]) # Old names: AC_DEFUN([AC_ENABLE_SHARED], [_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[shared]) ]) AC_DEFUN([AC_DISABLE_SHARED], [_LT_SET_OPTION([LT_INIT], [disable-shared]) ]) AU_DEFUN([AM_ENABLE_SHARED], [AC_ENABLE_SHARED($@)]) AU_DEFUN([AM_DISABLE_SHARED], [AC_DISABLE_SHARED($@)]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AM_ENABLE_SHARED], []) dnl AC_DEFUN([AM_DISABLE_SHARED], []) # _LT_ENABLE_STATIC([DEFAULT]) # ---------------------------- # implement the --enable-static flag, and support the `static' and # `disable-static' LT_INIT options. # DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. m4_define([_LT_ENABLE_STATIC], [m4_define([_LT_ENABLE_STATIC_DEFAULT], [m4_if($1, no, no, yes)])dnl AC_ARG_ENABLE([static], [AS_HELP_STRING([--enable-static@<:@=PKGS@:>@], [build static libraries @<:@default=]_LT_ENABLE_STATIC_DEFAULT[@:>@])], [p=${PACKAGE-default} case $enableval in yes) enable_static=yes ;; no) enable_static=no ;; *) enable_static=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_static=yes fi done IFS="$lt_save_ifs" ;; esac], [enable_static=]_LT_ENABLE_STATIC_DEFAULT) _LT_DECL([build_old_libs], [enable_static], [0], [Whether or not to build static libraries]) ])# _LT_ENABLE_STATIC LT_OPTION_DEFINE([LT_INIT], [static], [_LT_ENABLE_STATIC([yes])]) LT_OPTION_DEFINE([LT_INIT], [disable-static], [_LT_ENABLE_STATIC([no])]) # Old names: AC_DEFUN([AC_ENABLE_STATIC], [_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[static]) ]) AC_DEFUN([AC_DISABLE_STATIC], [_LT_SET_OPTION([LT_INIT], [disable-static]) ]) AU_DEFUN([AM_ENABLE_STATIC], [AC_ENABLE_STATIC($@)]) AU_DEFUN([AM_DISABLE_STATIC], [AC_DISABLE_STATIC($@)]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AM_ENABLE_STATIC], []) dnl AC_DEFUN([AM_DISABLE_STATIC], []) # _LT_ENABLE_FAST_INSTALL([DEFAULT]) # ---------------------------------- # implement the --enable-fast-install flag, and support the `fast-install' # and `disable-fast-install' LT_INIT options. # DEFAULT is either `yes' or `no'. If omitted, it defaults to `yes'. m4_define([_LT_ENABLE_FAST_INSTALL], [m4_define([_LT_ENABLE_FAST_INSTALL_DEFAULT], [m4_if($1, no, no, yes)])dnl AC_ARG_ENABLE([fast-install], [AS_HELP_STRING([--enable-fast-install@<:@=PKGS@:>@], [optimize for fast installation @<:@default=]_LT_ENABLE_FAST_INSTALL_DEFAULT[@:>@])], [p=${PACKAGE-default} case $enableval in yes) enable_fast_install=yes ;; no) enable_fast_install=no ;; *) enable_fast_install=no # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for pkg in $enableval; do IFS="$lt_save_ifs" if test "X$pkg" = "X$p"; then enable_fast_install=yes fi done IFS="$lt_save_ifs" ;; esac], [enable_fast_install=]_LT_ENABLE_FAST_INSTALL_DEFAULT) _LT_DECL([fast_install], [enable_fast_install], [0], [Whether or not to optimize for fast installation])dnl ])# _LT_ENABLE_FAST_INSTALL LT_OPTION_DEFINE([LT_INIT], [fast-install], [_LT_ENABLE_FAST_INSTALL([yes])]) LT_OPTION_DEFINE([LT_INIT], [disable-fast-install], [_LT_ENABLE_FAST_INSTALL([no])]) # Old names: AU_DEFUN([AC_ENABLE_FAST_INSTALL], [_LT_SET_OPTION([LT_INIT], m4_if([$1], [no], [disable-])[fast-install]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `fast-install' option into LT_INIT's first parameter.]) ]) AU_DEFUN([AC_DISABLE_FAST_INSTALL], [_LT_SET_OPTION([LT_INIT], [disable-fast-install]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `disable-fast-install' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_ENABLE_FAST_INSTALL], []) dnl AC_DEFUN([AM_DISABLE_FAST_INSTALL], []) # _LT_WITH_PIC([MODE]) # -------------------- # implement the --with-pic flag, and support the `pic-only' and `no-pic' # LT_INIT options. # MODE is either `yes' or `no'. If omitted, it defaults to `both'. m4_define([_LT_WITH_PIC], [AC_ARG_WITH([pic], [AS_HELP_STRING([--with-pic@<:@=PKGS@:>@], [try to use only PIC/non-PIC objects @<:@default=use both@:>@])], [lt_p=${PACKAGE-default} case $withval in yes|no) pic_mode=$withval ;; *) pic_mode=default # Look at the argument we got. We use all the common list separators. lt_save_ifs="$IFS"; IFS="${IFS}$PATH_SEPARATOR," for lt_pkg in $withval; do IFS="$lt_save_ifs" if test "X$lt_pkg" = "X$lt_p"; then pic_mode=yes fi done IFS="$lt_save_ifs" ;; esac], [pic_mode=default]) test -z "$pic_mode" && pic_mode=m4_default([$1], [default]) _LT_DECL([], [pic_mode], [0], [What type of objects to build])dnl ])# _LT_WITH_PIC LT_OPTION_DEFINE([LT_INIT], [pic-only], [_LT_WITH_PIC([yes])]) LT_OPTION_DEFINE([LT_INIT], [no-pic], [_LT_WITH_PIC([no])]) # Old name: AU_DEFUN([AC_LIBTOOL_PICMODE], [_LT_SET_OPTION([LT_INIT], [pic-only]) AC_DIAGNOSE([obsolete], [$0: Remove this warning and the call to _LT_SET_OPTION when you put the `pic-only' option into LT_INIT's first parameter.]) ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_PICMODE], []) ## ----------------- ## ## LTDL_INIT Options ## ## ----------------- ## m4_define([_LTDL_MODE], []) LT_OPTION_DEFINE([LTDL_INIT], [nonrecursive], [m4_define([_LTDL_MODE], [nonrecursive])]) LT_OPTION_DEFINE([LTDL_INIT], [recursive], [m4_define([_LTDL_MODE], [recursive])]) LT_OPTION_DEFINE([LTDL_INIT], [subproject], [m4_define([_LTDL_MODE], [subproject])]) m4_define([_LTDL_TYPE], []) LT_OPTION_DEFINE([LTDL_INIT], [installable], [m4_define([_LTDL_TYPE], [installable])]) LT_OPTION_DEFINE([LTDL_INIT], [convenience], [m4_define([_LTDL_TYPE], [convenience])]) trueprint-5.4/m4/ltsugar.m40000644000175000017500000001042412116662130012601 00000000000000# ltsugar.m4 -- libtool m4 base layer. -*-Autoconf-*- # # Copyright (C) 2004, 2005, 2007, 2008 Free Software Foundation, Inc. # Written by Gary V. Vaughan, 2004 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # serial 6 ltsugar.m4 # This is to help aclocal find these macros, as it can't see m4_define. AC_DEFUN([LTSUGAR_VERSION], [m4_if([0.1])]) # lt_join(SEP, ARG1, [ARG2...]) # ----------------------------- # Produce ARG1SEPARG2...SEPARGn, omitting [] arguments and their # associated separator. # Needed until we can rely on m4_join from Autoconf 2.62, since all earlier # versions in m4sugar had bugs. m4_define([lt_join], [m4_if([$#], [1], [], [$#], [2], [[$2]], [m4_if([$2], [], [], [[$2]_])$0([$1], m4_shift(m4_shift($@)))])]) m4_define([_lt_join], [m4_if([$#$2], [2], [], [m4_if([$2], [], [], [[$1$2]])$0([$1], m4_shift(m4_shift($@)))])]) # lt_car(LIST) # lt_cdr(LIST) # ------------ # Manipulate m4 lists. # These macros are necessary as long as will still need to support # Autoconf-2.59 which quotes differently. m4_define([lt_car], [[$1]]) m4_define([lt_cdr], [m4_if([$#], 0, [m4_fatal([$0: cannot be called without arguments])], [$#], 1, [], [m4_dquote(m4_shift($@))])]) m4_define([lt_unquote], $1) # lt_append(MACRO-NAME, STRING, [SEPARATOR]) # ------------------------------------------ # Redefine MACRO-NAME to hold its former content plus `SEPARATOR'`STRING'. # Note that neither SEPARATOR nor STRING are expanded; they are appended # to MACRO-NAME as is (leaving the expansion for when MACRO-NAME is invoked). # No SEPARATOR is output if MACRO-NAME was previously undefined (different # than defined and empty). # # This macro is needed until we can rely on Autoconf 2.62, since earlier # versions of m4sugar mistakenly expanded SEPARATOR but not STRING. m4_define([lt_append], [m4_define([$1], m4_ifdef([$1], [m4_defn([$1])[$3]])[$2])]) # lt_combine(SEP, PREFIX-LIST, INFIX, SUFFIX1, [SUFFIX2...]) # ---------------------------------------------------------- # Produce a SEP delimited list of all paired combinations of elements of # PREFIX-LIST with SUFFIX1 through SUFFIXn. Each element of the list # has the form PREFIXmINFIXSUFFIXn. # Needed until we can rely on m4_combine added in Autoconf 2.62. m4_define([lt_combine], [m4_if(m4_eval([$# > 3]), [1], [m4_pushdef([_Lt_sep], [m4_define([_Lt_sep], m4_defn([lt_car]))])]]dnl [[m4_foreach([_Lt_prefix], [$2], [m4_foreach([_Lt_suffix], ]m4_dquote(m4_dquote(m4_shift(m4_shift(m4_shift($@)))))[, [_Lt_sep([$1])[]m4_defn([_Lt_prefix])[$3]m4_defn([_Lt_suffix])])])])]) # lt_if_append_uniq(MACRO-NAME, VARNAME, [SEPARATOR], [UNIQ], [NOT-UNIQ]) # ----------------------------------------------------------------------- # Iff MACRO-NAME does not yet contain VARNAME, then append it (delimited # by SEPARATOR if supplied) and expand UNIQ, else NOT-UNIQ. m4_define([lt_if_append_uniq], [m4_ifdef([$1], [m4_if(m4_index([$3]m4_defn([$1])[$3], [$3$2$3]), [-1], [lt_append([$1], [$2], [$3])$4], [$5])], [lt_append([$1], [$2], [$3])$4])]) # lt_dict_add(DICT, KEY, VALUE) # ----------------------------- m4_define([lt_dict_add], [m4_define([$1($2)], [$3])]) # lt_dict_add_subkey(DICT, KEY, SUBKEY, VALUE) # -------------------------------------------- m4_define([lt_dict_add_subkey], [m4_define([$1($2:$3)], [$4])]) # lt_dict_fetch(DICT, KEY, [SUBKEY]) # ---------------------------------- m4_define([lt_dict_fetch], [m4_ifval([$3], m4_ifdef([$1($2:$3)], [m4_defn([$1($2:$3)])]), m4_ifdef([$1($2)], [m4_defn([$1($2)])]))]) # lt_if_dict_fetch(DICT, KEY, [SUBKEY], VALUE, IF-TRUE, [IF-FALSE]) # ----------------------------------------------------------------- m4_define([lt_if_dict_fetch], [m4_if(lt_dict_fetch([$1], [$2], [$3]), [$4], [$5], [$6])]) # lt_dict_filter(DICT, [SUBKEY], VALUE, [SEPARATOR], KEY, [...]) # -------------------------------------------------------------- m4_define([lt_dict_filter], [m4_if([$5], [], [], [lt_join(m4_quote(m4_default([$4], [[, ]])), lt_unquote(m4_split(m4_normalize(m4_foreach(_Lt_key, lt_car([m4_shiftn(4, $@)]), [lt_if_dict_fetch([$1], _Lt_key, [$2], [$3], [_Lt_key ])])))))])[]dnl ]) trueprint-5.4/m4/libtool.m40000644000175000017500000106000712116662060012571 00000000000000# libtool.m4 - Configure libtool for the host system. -*-Autoconf-*- # # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. m4_define([_LT_COPYING], [dnl # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, # 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # Written by Gordon Matzigkeit, 1996 # # This file is part of GNU Libtool. # # GNU Libtool is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public License as # published by the Free Software Foundation; either version 2 of # the License, or (at your option) any later version. # # As a special exception to the GNU General Public License, # if you distribute this file as part of a program or library that # is built using GNU Libtool, you may include this file under the # same distribution terms that you use for the rest of that program. # # GNU Libtool is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, or # obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. ]) # serial 57 LT_INIT # LT_PREREQ(VERSION) # ------------------ # Complain and exit if this libtool version is less that VERSION. m4_defun([LT_PREREQ], [m4_if(m4_version_compare(m4_defn([LT_PACKAGE_VERSION]), [$1]), -1, [m4_default([$3], [m4_fatal([Libtool version $1 or higher is required], 63)])], [$2])]) # _LT_CHECK_BUILDDIR # ------------------ # Complain if the absolute build directory name contains unusual characters m4_defun([_LT_CHECK_BUILDDIR], [case `pwd` in *\ * | *\ *) AC_MSG_WARN([Libtool does not cope well with whitespace in `pwd`]) ;; esac ]) # LT_INIT([OPTIONS]) # ------------------ AC_DEFUN([LT_INIT], [AC_PREREQ([2.58])dnl We use AC_INCLUDES_DEFAULT AC_REQUIRE([AC_CONFIG_AUX_DIR_DEFAULT])dnl AC_BEFORE([$0], [LT_LANG])dnl AC_BEFORE([$0], [LT_OUTPUT])dnl AC_BEFORE([$0], [LTDL_INIT])dnl m4_require([_LT_CHECK_BUILDDIR])dnl dnl Autoconf doesn't catch unexpanded LT_ macros by default: m4_pattern_forbid([^_?LT_[A-Z_]+$])dnl m4_pattern_allow([^(_LT_EOF|LT_DLGLOBAL|LT_DLLAZY_OR_NOW|LT_MULTI_MODULE)$])dnl dnl aclocal doesn't pull ltoptions.m4, ltsugar.m4, or ltversion.m4 dnl unless we require an AC_DEFUNed macro: AC_REQUIRE([LTOPTIONS_VERSION])dnl AC_REQUIRE([LTSUGAR_VERSION])dnl AC_REQUIRE([LTVERSION_VERSION])dnl AC_REQUIRE([LTOBSOLETE_VERSION])dnl m4_require([_LT_PROG_LTMAIN])dnl _LT_SHELL_INIT([SHELL=${CONFIG_SHELL-/bin/sh}]) dnl Parse OPTIONS _LT_SET_OPTIONS([$0], [$1]) # This can be used to rebuild libtool when needed LIBTOOL_DEPS="$ltmain" # Always use our own libtool. LIBTOOL='$(SHELL) $(top_builddir)/libtool' AC_SUBST(LIBTOOL)dnl _LT_SETUP # Only expand once: m4_define([LT_INIT]) ])# LT_INIT # Old names: AU_ALIAS([AC_PROG_LIBTOOL], [LT_INIT]) AU_ALIAS([AM_PROG_LIBTOOL], [LT_INIT]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_PROG_LIBTOOL], []) dnl AC_DEFUN([AM_PROG_LIBTOOL], []) # _LT_CC_BASENAME(CC) # ------------------- # Calculate cc_basename. Skip known compiler wrappers and cross-prefix. m4_defun([_LT_CC_BASENAME], [for cc_temp in $1""; do case $cc_temp in compile | *[[\\/]]compile | ccache | *[[\\/]]ccache ) ;; distcc | *[[\\/]]distcc | purify | *[[\\/]]purify ) ;; \-*) ;; *) break;; esac done cc_basename=`$ECHO "$cc_temp" | $SED "s%.*/%%; s%^$host_alias-%%"` ]) # _LT_FILEUTILS_DEFAULTS # ---------------------- # It is okay to use these file commands and assume they have been set # sensibly after `m4_require([_LT_FILEUTILS_DEFAULTS])'. m4_defun([_LT_FILEUTILS_DEFAULTS], [: ${CP="cp -f"} : ${MV="mv -f"} : ${RM="rm -f"} ])# _LT_FILEUTILS_DEFAULTS # _LT_SETUP # --------- m4_defun([_LT_SETUP], [AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_CANONICAL_BUILD])dnl AC_REQUIRE([_LT_PREPARE_SED_QUOTE_VARS])dnl AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH])dnl _LT_DECL([], [PATH_SEPARATOR], [1], [The PATH separator for the build system])dnl dnl _LT_DECL([], [host_alias], [0], [The host system])dnl _LT_DECL([], [host], [0])dnl _LT_DECL([], [host_os], [0])dnl dnl _LT_DECL([], [build_alias], [0], [The build system])dnl _LT_DECL([], [build], [0])dnl _LT_DECL([], [build_os], [0])dnl dnl AC_REQUIRE([AC_PROG_CC])dnl AC_REQUIRE([LT_PATH_LD])dnl AC_REQUIRE([LT_PATH_NM])dnl dnl AC_REQUIRE([AC_PROG_LN_S])dnl test -z "$LN_S" && LN_S="ln -s" _LT_DECL([], [LN_S], [1], [Whether we need soft or hard links])dnl dnl AC_REQUIRE([LT_CMD_MAX_LEN])dnl _LT_DECL([objext], [ac_objext], [0], [Object file suffix (normally "o")])dnl _LT_DECL([], [exeext], [0], [Executable file suffix (normally "")])dnl dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_CHECK_SHELL_FEATURES])dnl m4_require([_LT_PATH_CONVERSION_FUNCTIONS])dnl m4_require([_LT_CMD_RELOAD])dnl m4_require([_LT_CHECK_MAGIC_METHOD])dnl m4_require([_LT_CHECK_SHAREDLIB_FROM_LINKLIB])dnl m4_require([_LT_CMD_OLD_ARCHIVE])dnl m4_require([_LT_CMD_GLOBAL_SYMBOLS])dnl m4_require([_LT_WITH_SYSROOT])dnl _LT_CONFIG_LIBTOOL_INIT([ # See if we are running on zsh, and set the options which allow our # commands through without removal of \ escapes INIT. if test -n "\${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi ]) if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi _LT_CHECK_OBJDIR m4_require([_LT_TAG_COMPILER])dnl case $host_os in aix3*) # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi ;; esac # Global variables: ofile=libtool can_build_shared=yes # All known linkers require a `.a' archive for static linking (except MSVC, # which needs '.lib'). libext=a with_gnu_ld="$lt_cv_prog_gnu_ld" old_CC="$CC" old_CFLAGS="$CFLAGS" # Set sane defaults for various variables test -z "$CC" && CC=cc test -z "$LTCC" && LTCC=$CC test -z "$LTCFLAGS" && LTCFLAGS=$CFLAGS test -z "$LD" && LD=ld test -z "$ac_objext" && ac_objext=o _LT_CC_BASENAME([$compiler]) # Only perform the check for file, if the check method requires it test -z "$MAGIC_CMD" && MAGIC_CMD=file case $deplibs_check_method in file_magic*) if test "$file_magic_cmd" = '$MAGIC_CMD'; then _LT_PATH_MAGIC fi ;; esac # Use C for the default configuration in the libtool script LT_SUPPORTED_TAG([CC]) _LT_LANG_C_CONFIG _LT_LANG_DEFAULT_CONFIG _LT_CONFIG_COMMANDS ])# _LT_SETUP # _LT_PREPARE_SED_QUOTE_VARS # -------------------------- # Define a few sed substitution that help us do robust quoting. m4_defun([_LT_PREPARE_SED_QUOTE_VARS], [# Backslashify metacharacters that are still active within # double-quoted strings. sed_quote_subst='s/\([["`$\\]]\)/\\\1/g' # Same as above, but do not quote variable references. double_quote_subst='s/\([["`\\]]\)/\\\1/g' # Sed substitution to delay expansion of an escaped shell variable in a # double_quote_subst'ed string. delay_variable_subst='s/\\\\\\\\\\\$/\\\\\\$/g' # Sed substitution to delay expansion of an escaped single quote. delay_single_quote_subst='s/'\''/'\'\\\\\\\'\''/g' # Sed substitution to avoid accidental globbing in evaled expressions no_glob_subst='s/\*/\\\*/g' ]) # _LT_PROG_LTMAIN # --------------- # Note that this code is called both from `configure', and `config.status' # now that we use AC_CONFIG_COMMANDS to generate libtool. Notably, # `config.status' has no value for ac_aux_dir unless we are using Automake, # so we pass a copy along to make sure it has a sensible value anyway. m4_defun([_LT_PROG_LTMAIN], [m4_ifdef([AC_REQUIRE_AUX_FILE], [AC_REQUIRE_AUX_FILE([ltmain.sh])])dnl _LT_CONFIG_LIBTOOL_INIT([ac_aux_dir='$ac_aux_dir']) ltmain="$ac_aux_dir/ltmain.sh" ])# _LT_PROG_LTMAIN ## ------------------------------------- ## ## Accumulate code for creating libtool. ## ## ------------------------------------- ## # So that we can recreate a full libtool script including additional # tags, we accumulate the chunks of code to send to AC_CONFIG_COMMANDS # in macros and then make a single call at the end using the `libtool' # label. # _LT_CONFIG_LIBTOOL_INIT([INIT-COMMANDS]) # ---------------------------------------- # Register INIT-COMMANDS to be passed to AC_CONFIG_COMMANDS later. m4_define([_LT_CONFIG_LIBTOOL_INIT], [m4_ifval([$1], [m4_append([_LT_OUTPUT_LIBTOOL_INIT], [$1 ])])]) # Initialize. m4_define([_LT_OUTPUT_LIBTOOL_INIT]) # _LT_CONFIG_LIBTOOL([COMMANDS]) # ------------------------------ # Register COMMANDS to be passed to AC_CONFIG_COMMANDS later. m4_define([_LT_CONFIG_LIBTOOL], [m4_ifval([$1], [m4_append([_LT_OUTPUT_LIBTOOL_COMMANDS], [$1 ])])]) # Initialize. m4_define([_LT_OUTPUT_LIBTOOL_COMMANDS]) # _LT_CONFIG_SAVE_COMMANDS([COMMANDS], [INIT_COMMANDS]) # ----------------------------------------------------- m4_defun([_LT_CONFIG_SAVE_COMMANDS], [_LT_CONFIG_LIBTOOL([$1]) _LT_CONFIG_LIBTOOL_INIT([$2]) ]) # _LT_FORMAT_COMMENT([COMMENT]) # ----------------------------- # Add leading comment marks to the start of each line, and a trailing # full-stop to the whole comment if one is not present already. m4_define([_LT_FORMAT_COMMENT], [m4_ifval([$1], [ m4_bpatsubst([m4_bpatsubst([$1], [^ *], [# ])], [['`$\]], [\\\&])]m4_bmatch([$1], [[!?.]$], [], [.]) )]) ## ------------------------ ## ## FIXME: Eliminate VARNAME ## ## ------------------------ ## # _LT_DECL([CONFIGNAME], VARNAME, VALUE, [DESCRIPTION], [IS-TAGGED?]) # ------------------------------------------------------------------- # CONFIGNAME is the name given to the value in the libtool script. # VARNAME is the (base) name used in the configure script. # VALUE may be 0, 1 or 2 for a computed quote escaped value based on # VARNAME. Any other value will be used directly. m4_define([_LT_DECL], [lt_if_append_uniq([lt_decl_varnames], [$2], [, ], [lt_dict_add_subkey([lt_decl_dict], [$2], [libtool_name], [m4_ifval([$1], [$1], [$2])]) lt_dict_add_subkey([lt_decl_dict], [$2], [value], [$3]) m4_ifval([$4], [lt_dict_add_subkey([lt_decl_dict], [$2], [description], [$4])]) lt_dict_add_subkey([lt_decl_dict], [$2], [tagged?], [m4_ifval([$5], [yes], [no])])]) ]) # _LT_TAGDECL([CONFIGNAME], VARNAME, VALUE, [DESCRIPTION]) # -------------------------------------------------------- m4_define([_LT_TAGDECL], [_LT_DECL([$1], [$2], [$3], [$4], [yes])]) # lt_decl_tag_varnames([SEPARATOR], [VARNAME1...]) # ------------------------------------------------ m4_define([lt_decl_tag_varnames], [_lt_decl_filter([tagged?], [yes], $@)]) # _lt_decl_filter(SUBKEY, VALUE, [SEPARATOR], [VARNAME1..]) # --------------------------------------------------------- m4_define([_lt_decl_filter], [m4_case([$#], [0], [m4_fatal([$0: too few arguments: $#])], [1], [m4_fatal([$0: too few arguments: $#: $1])], [2], [lt_dict_filter([lt_decl_dict], [$1], [$2], [], lt_decl_varnames)], [3], [lt_dict_filter([lt_decl_dict], [$1], [$2], [$3], lt_decl_varnames)], [lt_dict_filter([lt_decl_dict], $@)])[]dnl ]) # lt_decl_quote_varnames([SEPARATOR], [VARNAME1...]) # -------------------------------------------------- m4_define([lt_decl_quote_varnames], [_lt_decl_filter([value], [1], $@)]) # lt_decl_dquote_varnames([SEPARATOR], [VARNAME1...]) # --------------------------------------------------- m4_define([lt_decl_dquote_varnames], [_lt_decl_filter([value], [2], $@)]) # lt_decl_varnames_tagged([SEPARATOR], [VARNAME1...]) # --------------------------------------------------- m4_define([lt_decl_varnames_tagged], [m4_assert([$# <= 2])dnl _$0(m4_quote(m4_default([$1], [[, ]])), m4_ifval([$2], [[$2]], [m4_dquote(lt_decl_tag_varnames)]), m4_split(m4_normalize(m4_quote(_LT_TAGS)), [ ]))]) m4_define([_lt_decl_varnames_tagged], [m4_ifval([$3], [lt_combine([$1], [$2], [_], $3)])]) # lt_decl_all_varnames([SEPARATOR], [VARNAME1...]) # ------------------------------------------------ m4_define([lt_decl_all_varnames], [_$0(m4_quote(m4_default([$1], [[, ]])), m4_if([$2], [], m4_quote(lt_decl_varnames), m4_quote(m4_shift($@))))[]dnl ]) m4_define([_lt_decl_all_varnames], [lt_join($@, lt_decl_varnames_tagged([$1], lt_decl_tag_varnames([[, ]], m4_shift($@))))dnl ]) # _LT_CONFIG_STATUS_DECLARE([VARNAME]) # ------------------------------------ # Quote a variable value, and forward it to `config.status' so that its # declaration there will have the same value as in `configure'. VARNAME # must have a single quote delimited value for this to work. m4_define([_LT_CONFIG_STATUS_DECLARE], [$1='`$ECHO "$][$1" | $SED "$delay_single_quote_subst"`']) # _LT_CONFIG_STATUS_DECLARATIONS # ------------------------------ # We delimit libtool config variables with single quotes, so when # we write them to config.status, we have to be sure to quote all # embedded single quotes properly. In configure, this macro expands # each variable declared with _LT_DECL (and _LT_TAGDECL) into: # # ='`$ECHO "$" | $SED "$delay_single_quote_subst"`' m4_defun([_LT_CONFIG_STATUS_DECLARATIONS], [m4_foreach([_lt_var], m4_quote(lt_decl_all_varnames), [m4_n([_LT_CONFIG_STATUS_DECLARE(_lt_var)])])]) # _LT_LIBTOOL_TAGS # ---------------- # Output comment and list of tags supported by the script m4_defun([_LT_LIBTOOL_TAGS], [_LT_FORMAT_COMMENT([The names of the tagged configurations supported by this script])dnl available_tags="_LT_TAGS"dnl ]) # _LT_LIBTOOL_DECLARE(VARNAME, [TAG]) # ----------------------------------- # Extract the dictionary values for VARNAME (optionally with TAG) and # expand to a commented shell variable setting: # # # Some comment about what VAR is for. # visible_name=$lt_internal_name m4_define([_LT_LIBTOOL_DECLARE], [_LT_FORMAT_COMMENT(m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [description])))[]dnl m4_pushdef([_libtool_name], m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [libtool_name])))[]dnl m4_case(m4_quote(lt_dict_fetch([lt_decl_dict], [$1], [value])), [0], [_libtool_name=[$]$1], [1], [_libtool_name=$lt_[]$1], [2], [_libtool_name=$lt_[]$1], [_libtool_name=lt_dict_fetch([lt_decl_dict], [$1], [value])])[]dnl m4_ifval([$2], [_$2])[]m4_popdef([_libtool_name])[]dnl ]) # _LT_LIBTOOL_CONFIG_VARS # ----------------------- # Produce commented declarations of non-tagged libtool config variables # suitable for insertion in the LIBTOOL CONFIG section of the `libtool' # script. Tagged libtool config variables (even for the LIBTOOL CONFIG # section) are produced by _LT_LIBTOOL_TAG_VARS. m4_defun([_LT_LIBTOOL_CONFIG_VARS], [m4_foreach([_lt_var], m4_quote(_lt_decl_filter([tagged?], [no], [], lt_decl_varnames)), [m4_n([_LT_LIBTOOL_DECLARE(_lt_var)])])]) # _LT_LIBTOOL_TAG_VARS(TAG) # ------------------------- m4_define([_LT_LIBTOOL_TAG_VARS], [m4_foreach([_lt_var], m4_quote(lt_decl_tag_varnames), [m4_n([_LT_LIBTOOL_DECLARE(_lt_var, [$1])])])]) # _LT_TAGVAR(VARNAME, [TAGNAME]) # ------------------------------ m4_define([_LT_TAGVAR], [m4_ifval([$2], [$1_$2], [$1])]) # _LT_CONFIG_COMMANDS # ------------------- # Send accumulated output to $CONFIG_STATUS. Thanks to the lists of # variables for single and double quote escaping we saved from calls # to _LT_DECL, we can put quote escaped variables declarations # into `config.status', and then the shell code to quote escape them in # for loops in `config.status'. Finally, any additional code accumulated # from calls to _LT_CONFIG_LIBTOOL_INIT is expanded. m4_defun([_LT_CONFIG_COMMANDS], [AC_PROVIDE_IFELSE([LT_OUTPUT], dnl If the libtool generation code has been placed in $CONFIG_LT, dnl instead of duplicating it all over again into config.status, dnl then we will have config.status run $CONFIG_LT later, so it dnl needs to know what name is stored there: [AC_CONFIG_COMMANDS([libtool], [$SHELL $CONFIG_LT || AS_EXIT(1)], [CONFIG_LT='$CONFIG_LT'])], dnl If the libtool generation code is destined for config.status, dnl expand the accumulated commands and init code now: [AC_CONFIG_COMMANDS([libtool], [_LT_OUTPUT_LIBTOOL_COMMANDS], [_LT_OUTPUT_LIBTOOL_COMMANDS_INIT])]) ])#_LT_CONFIG_COMMANDS # Initialize. m4_define([_LT_OUTPUT_LIBTOOL_COMMANDS_INIT], [ # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH sed_quote_subst='$sed_quote_subst' double_quote_subst='$double_quote_subst' delay_variable_subst='$delay_variable_subst' _LT_CONFIG_STATUS_DECLARATIONS LTCC='$LTCC' LTCFLAGS='$LTCFLAGS' compiler='$compiler_DEFAULT' # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF \$[]1 _LTECHO_EOF' } # Quote evaled strings. for var in lt_decl_all_varnames([[ \ ]], lt_decl_quote_varnames); do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[[\\\\\\\`\\"\\\$]]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED \\"\\\$sed_quote_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done # Double-quote double-evaled strings. for var in lt_decl_all_varnames([[ \ ]], lt_decl_dquote_varnames); do case \`eval \\\\\$ECHO \\\\""\\\\\$\$var"\\\\"\` in *[[\\\\\\\`\\"\\\$]]*) eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"\\\$\$var\\" | \\\$SED -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\"" ;; *) eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\"" ;; esac done _LT_OUTPUT_LIBTOOL_INIT ]) # _LT_GENERATED_FILE_INIT(FILE, [COMMENT]) # ------------------------------------ # Generate a child script FILE with all initialization necessary to # reuse the environment learned by the parent script, and make the # file executable. If COMMENT is supplied, it is inserted after the # `#!' sequence but before initialization text begins. After this # macro, additional text can be appended to FILE to form the body of # the child script. The macro ends with non-zero status if the # file could not be fully written (such as if the disk is full). m4_ifdef([AS_INIT_GENERATED], [m4_defun([_LT_GENERATED_FILE_INIT],[AS_INIT_GENERATED($@)])], [m4_defun([_LT_GENERATED_FILE_INIT], [m4_require([AS_PREPARE])]dnl [m4_pushdef([AS_MESSAGE_LOG_FD])]dnl [lt_write_fail=0 cat >$1 <<_ASEOF || lt_write_fail=1 #! $SHELL # Generated by $as_me. $2 SHELL=\${CONFIG_SHELL-$SHELL} export SHELL _ASEOF cat >>$1 <<\_ASEOF || lt_write_fail=1 AS_SHELL_SANITIZE _AS_PREPARE exec AS_MESSAGE_FD>&1 _ASEOF test $lt_write_fail = 0 && chmod +x $1[]dnl m4_popdef([AS_MESSAGE_LOG_FD])])])# _LT_GENERATED_FILE_INIT # LT_OUTPUT # --------- # This macro allows early generation of the libtool script (before # AC_OUTPUT is called), incase it is used in configure for compilation # tests. AC_DEFUN([LT_OUTPUT], [: ${CONFIG_LT=./config.lt} AC_MSG_NOTICE([creating $CONFIG_LT]) _LT_GENERATED_FILE_INIT(["$CONFIG_LT"], [# Run this file to recreate a libtool stub with the current configuration.]) cat >>"$CONFIG_LT" <<\_LTEOF lt_cl_silent=false exec AS_MESSAGE_LOG_FD>>config.log { echo AS_BOX([Running $as_me.]) } >&AS_MESSAGE_LOG_FD lt_cl_help="\ \`$as_me' creates a local libtool stub from the current configuration, for use in further configure time tests before the real libtool is generated. Usage: $[0] [[OPTIONS]] -h, --help print this help, then exit -V, --version print version number, then exit -q, --quiet do not print progress messages -d, --debug don't remove temporary files Report bugs to ." lt_cl_version="\ m4_ifset([AC_PACKAGE_NAME], [AC_PACKAGE_NAME ])config.lt[]dnl m4_ifset([AC_PACKAGE_VERSION], [ AC_PACKAGE_VERSION]) configured by $[0], generated by m4_PACKAGE_STRING. Copyright (C) 2011 Free Software Foundation, Inc. This config.lt script is free software; the Free Software Foundation gives unlimited permision to copy, distribute and modify it." while test $[#] != 0 do case $[1] in --version | --v* | -V ) echo "$lt_cl_version"; exit 0 ;; --help | --h* | -h ) echo "$lt_cl_help"; exit 0 ;; --debug | --d* | -d ) debug=: ;; --quiet | --q* | --silent | --s* | -q ) lt_cl_silent=: ;; -*) AC_MSG_ERROR([unrecognized option: $[1] Try \`$[0] --help' for more information.]) ;; *) AC_MSG_ERROR([unrecognized argument: $[1] Try \`$[0] --help' for more information.]) ;; esac shift done if $lt_cl_silent; then exec AS_MESSAGE_FD>/dev/null fi _LTEOF cat >>"$CONFIG_LT" <<_LTEOF _LT_OUTPUT_LIBTOOL_COMMANDS_INIT _LTEOF cat >>"$CONFIG_LT" <<\_LTEOF AC_MSG_NOTICE([creating $ofile]) _LT_OUTPUT_LIBTOOL_COMMANDS AS_EXIT(0) _LTEOF chmod +x "$CONFIG_LT" # configure is writing to config.log, but config.lt does its own redirection, # appending to config.log, which fails on DOS, as config.log is still kept # open by configure. Here we exec the FD to /dev/null, effectively closing # config.log, so it can be properly (re)opened and appended to by config.lt. lt_cl_success=: test "$silent" = yes && lt_config_lt_args="$lt_config_lt_args --quiet" exec AS_MESSAGE_LOG_FD>/dev/null $SHELL "$CONFIG_LT" $lt_config_lt_args || lt_cl_success=false exec AS_MESSAGE_LOG_FD>>config.log $lt_cl_success || AS_EXIT(1) ])# LT_OUTPUT # _LT_CONFIG(TAG) # --------------- # If TAG is the built-in tag, create an initial libtool script with a # default configuration from the untagged config vars. Otherwise add code # to config.status for appending the configuration named by TAG from the # matching tagged config vars. m4_defun([_LT_CONFIG], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl _LT_CONFIG_SAVE_COMMANDS([ m4_define([_LT_TAG], m4_if([$1], [], [C], [$1]))dnl m4_if(_LT_TAG, [C], [ # See if we are running on zsh, and set the options which allow our # commands through without removal of \ escapes. if test -n "${ZSH_VERSION+set}" ; then setopt NO_GLOB_SUBST fi cfgfile="${ofile}T" trap "$RM \"$cfgfile\"; exit 1" 1 2 15 $RM "$cfgfile" cat <<_LT_EOF >> "$cfgfile" #! $SHELL # `$ECHO "$ofile" | sed 's%^.*/%%'` - Provide generalized library-building support services. # Generated automatically by $as_me ($PACKAGE$TIMESTAMP) $VERSION # Libtool was configured on host `(hostname || uname -n) 2>/dev/null | sed 1q`: # NOTE: Changes made to this file will be lost: look at ltmain.sh. # _LT_COPYING _LT_LIBTOOL_TAGS # ### BEGIN LIBTOOL CONFIG _LT_LIBTOOL_CONFIG_VARS _LT_LIBTOOL_TAG_VARS # ### END LIBTOOL CONFIG _LT_EOF case $host_os in aix3*) cat <<\_LT_EOF >> "$cfgfile" # AIX sometimes has problems with the GCC collect2 program. For some # reason, if we set the COLLECT_NAMES environment variable, the problems # vanish in a puff of smoke. if test "X${COLLECT_NAMES+set}" != Xset; then COLLECT_NAMES= export COLLECT_NAMES fi _LT_EOF ;; esac _LT_PROG_LTMAIN # We use sed instead of cat because bash on DJGPP gets confused if # if finds mixed CR/LF and LF-only lines. Since sed operates in # text mode, it properly converts lines to CR/LF. This bash problem # is reportedly fixed, but why not run on old versions too? sed '$q' "$ltmain" >> "$cfgfile" \ || (rm -f "$cfgfile"; exit 1) _LT_PROG_REPLACE_SHELLFNS mv -f "$cfgfile" "$ofile" || (rm -f "$ofile" && cp "$cfgfile" "$ofile" && rm -f "$cfgfile") chmod +x "$ofile" ], [cat <<_LT_EOF >> "$ofile" dnl Unfortunately we have to use $1 here, since _LT_TAG is not expanded dnl in a comment (ie after a #). # ### BEGIN LIBTOOL TAG CONFIG: $1 _LT_LIBTOOL_TAG_VARS(_LT_TAG) # ### END LIBTOOL TAG CONFIG: $1 _LT_EOF ])dnl /m4_if ], [m4_if([$1], [], [ PACKAGE='$PACKAGE' VERSION='$VERSION' TIMESTAMP='$TIMESTAMP' RM='$RM' ofile='$ofile'], []) ])dnl /_LT_CONFIG_SAVE_COMMANDS ])# _LT_CONFIG # LT_SUPPORTED_TAG(TAG) # --------------------- # Trace this macro to discover what tags are supported by the libtool # --tag option, using: # autoconf --trace 'LT_SUPPORTED_TAG:$1' AC_DEFUN([LT_SUPPORTED_TAG], []) # C support is built-in for now m4_define([_LT_LANG_C_enabled], []) m4_define([_LT_TAGS], []) # LT_LANG(LANG) # ------------- # Enable libtool support for the given language if not already enabled. AC_DEFUN([LT_LANG], [AC_BEFORE([$0], [LT_OUTPUT])dnl m4_case([$1], [C], [_LT_LANG(C)], [C++], [_LT_LANG(CXX)], [Go], [_LT_LANG(GO)], [Java], [_LT_LANG(GCJ)], [Fortran 77], [_LT_LANG(F77)], [Fortran], [_LT_LANG(FC)], [Windows Resource], [_LT_LANG(RC)], [m4_ifdef([_LT_LANG_]$1[_CONFIG], [_LT_LANG($1)], [m4_fatal([$0: unsupported language: "$1"])])])dnl ])# LT_LANG # _LT_LANG(LANGNAME) # ------------------ m4_defun([_LT_LANG], [m4_ifdef([_LT_LANG_]$1[_enabled], [], [LT_SUPPORTED_TAG([$1])dnl m4_append([_LT_TAGS], [$1 ])dnl m4_define([_LT_LANG_]$1[_enabled], [])dnl _LT_LANG_$1_CONFIG($1)])dnl ])# _LT_LANG m4_ifndef([AC_PROG_GO], [ ############################################################ # NOTE: This macro has been submitted for inclusion into # # GNU Autoconf as AC_PROG_GO. When it is available in # # a released version of Autoconf we should remove this # # macro and use it instead. # ############################################################ m4_defun([AC_PROG_GO], [AC_LANG_PUSH(Go)dnl AC_ARG_VAR([GOC], [Go compiler command])dnl AC_ARG_VAR([GOFLAGS], [Go compiler flags])dnl _AC_ARG_VAR_LDFLAGS()dnl AC_CHECK_TOOL(GOC, gccgo) if test -z "$GOC"; then if test -n "$ac_tool_prefix"; then AC_CHECK_PROG(GOC, [${ac_tool_prefix}gccgo], [${ac_tool_prefix}gccgo]) fi fi if test -z "$GOC"; then AC_CHECK_PROG(GOC, gccgo, gccgo, false) fi ])#m4_defun ])#m4_ifndef # _LT_LANG_DEFAULT_CONFIG # ----------------------- m4_defun([_LT_LANG_DEFAULT_CONFIG], [AC_PROVIDE_IFELSE([AC_PROG_CXX], [LT_LANG(CXX)], [m4_define([AC_PROG_CXX], defn([AC_PROG_CXX])[LT_LANG(CXX)])]) AC_PROVIDE_IFELSE([AC_PROG_F77], [LT_LANG(F77)], [m4_define([AC_PROG_F77], defn([AC_PROG_F77])[LT_LANG(F77)])]) AC_PROVIDE_IFELSE([AC_PROG_FC], [LT_LANG(FC)], [m4_define([AC_PROG_FC], defn([AC_PROG_FC])[LT_LANG(FC)])]) dnl The call to [A][M_PROG_GCJ] is quoted like that to stop aclocal dnl pulling things in needlessly. AC_PROVIDE_IFELSE([AC_PROG_GCJ], [LT_LANG(GCJ)], [AC_PROVIDE_IFELSE([A][M_PROG_GCJ], [LT_LANG(GCJ)], [AC_PROVIDE_IFELSE([LT_PROG_GCJ], [LT_LANG(GCJ)], [m4_ifdef([AC_PROG_GCJ], [m4_define([AC_PROG_GCJ], defn([AC_PROG_GCJ])[LT_LANG(GCJ)])]) m4_ifdef([A][M_PROG_GCJ], [m4_define([A][M_PROG_GCJ], defn([A][M_PROG_GCJ])[LT_LANG(GCJ)])]) m4_ifdef([LT_PROG_GCJ], [m4_define([LT_PROG_GCJ], defn([LT_PROG_GCJ])[LT_LANG(GCJ)])])])])]) AC_PROVIDE_IFELSE([AC_PROG_GO], [LT_LANG(GO)], [m4_define([AC_PROG_GO], defn([AC_PROG_GO])[LT_LANG(GO)])]) AC_PROVIDE_IFELSE([LT_PROG_RC], [LT_LANG(RC)], [m4_define([LT_PROG_RC], defn([LT_PROG_RC])[LT_LANG(RC)])]) ])# _LT_LANG_DEFAULT_CONFIG # Obsolete macros: AU_DEFUN([AC_LIBTOOL_CXX], [LT_LANG(C++)]) AU_DEFUN([AC_LIBTOOL_F77], [LT_LANG(Fortran 77)]) AU_DEFUN([AC_LIBTOOL_FC], [LT_LANG(Fortran)]) AU_DEFUN([AC_LIBTOOL_GCJ], [LT_LANG(Java)]) AU_DEFUN([AC_LIBTOOL_RC], [LT_LANG(Windows Resource)]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_CXX], []) dnl AC_DEFUN([AC_LIBTOOL_F77], []) dnl AC_DEFUN([AC_LIBTOOL_FC], []) dnl AC_DEFUN([AC_LIBTOOL_GCJ], []) dnl AC_DEFUN([AC_LIBTOOL_RC], []) # _LT_TAG_COMPILER # ---------------- m4_defun([_LT_TAG_COMPILER], [AC_REQUIRE([AC_PROG_CC])dnl _LT_DECL([LTCC], [CC], [1], [A C compiler])dnl _LT_DECL([LTCFLAGS], [CFLAGS], [1], [LTCC compiler flags])dnl _LT_TAGDECL([CC], [compiler], [1], [A language specific compiler])dnl _LT_TAGDECL([with_gcc], [GCC], [0], [Is the compiler the GNU compiler?])dnl # If no C compiler was specified, use CC. LTCC=${LTCC-"$CC"} # If no C compiler flags were specified, use CFLAGS. LTCFLAGS=${LTCFLAGS-"$CFLAGS"} # Allow CC to be a program name with arguments. compiler=$CC ])# _LT_TAG_COMPILER # _LT_COMPILER_BOILERPLATE # ------------------------ # Check for compiler boilerplate output or warnings with # the simple compiler test code. m4_defun([_LT_COMPILER_BOILERPLATE], [m4_require([_LT_DECL_SED])dnl ac_outfile=conftest.$ac_objext echo "$lt_simple_compile_test_code" >conftest.$ac_ext eval "$ac_compile" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_compiler_boilerplate=`cat conftest.err` $RM conftest* ])# _LT_COMPILER_BOILERPLATE # _LT_LINKER_BOILERPLATE # ---------------------- # Check for linker boilerplate output or warnings with # the simple link test code. m4_defun([_LT_LINKER_BOILERPLATE], [m4_require([_LT_DECL_SED])dnl ac_outfile=conftest.$ac_objext echo "$lt_simple_link_test_code" >conftest.$ac_ext eval "$ac_link" 2>&1 >/dev/null | $SED '/^$/d; /^ *+/d' >conftest.err _lt_linker_boilerplate=`cat conftest.err` $RM -r conftest* ])# _LT_LINKER_BOILERPLATE # _LT_REQUIRED_DARWIN_CHECKS # ------------------------- m4_defun_once([_LT_REQUIRED_DARWIN_CHECKS],[ case $host_os in rhapsody* | darwin*) AC_CHECK_TOOL([DSYMUTIL], [dsymutil], [:]) AC_CHECK_TOOL([NMEDIT], [nmedit], [:]) AC_CHECK_TOOL([LIPO], [lipo], [:]) AC_CHECK_TOOL([OTOOL], [otool], [:]) AC_CHECK_TOOL([OTOOL64], [otool64], [:]) _LT_DECL([], [DSYMUTIL], [1], [Tool to manipulate archived DWARF debug symbol files on Mac OS X]) _LT_DECL([], [NMEDIT], [1], [Tool to change global to local symbols on Mac OS X]) _LT_DECL([], [LIPO], [1], [Tool to manipulate fat objects and archives on Mac OS X]) _LT_DECL([], [OTOOL], [1], [ldd/readelf like tool for Mach-O binaries on Mac OS X]) _LT_DECL([], [OTOOL64], [1], [ldd/readelf like tool for 64 bit Mach-O binaries on Mac OS X 10.4]) AC_CACHE_CHECK([for -single_module linker flag],[lt_cv_apple_cc_single_mod], [lt_cv_apple_cc_single_mod=no if test -z "${LT_MULTI_MODULE}"; then # By default we will add the -single_module flag. You can override # by either setting the environment variable LT_MULTI_MODULE # non-empty at configure time, or by adding -multi_module to the # link flags. rm -rf libconftest.dylib* echo "int foo(void){return 1;}" > conftest.c echo "$LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c" >&AS_MESSAGE_LOG_FD $LTCC $LTCFLAGS $LDFLAGS -o libconftest.dylib \ -dynamiclib -Wl,-single_module conftest.c 2>conftest.err _lt_result=$? # If there is a non-empty error log, and "single_module" # appears in it, assume the flag caused a linker warning if test -s conftest.err && $GREP single_module conftest.err; then cat conftest.err >&AS_MESSAGE_LOG_FD # Otherwise, if the output was created with a 0 exit code from # the compiler, it worked. elif test -f libconftest.dylib && test $_lt_result -eq 0; then lt_cv_apple_cc_single_mod=yes else cat conftest.err >&AS_MESSAGE_LOG_FD fi rm -rf libconftest.dylib* rm -f conftest.* fi]) AC_CACHE_CHECK([for -exported_symbols_list linker flag], [lt_cv_ld_exported_symbols_list], [lt_cv_ld_exported_symbols_list=no save_LDFLAGS=$LDFLAGS echo "_main" > conftest.sym LDFLAGS="$LDFLAGS -Wl,-exported_symbols_list,conftest.sym" AC_LINK_IFELSE([AC_LANG_PROGRAM([],[])], [lt_cv_ld_exported_symbols_list=yes], [lt_cv_ld_exported_symbols_list=no]) LDFLAGS="$save_LDFLAGS" ]) AC_CACHE_CHECK([for -force_load linker flag],[lt_cv_ld_force_load], [lt_cv_ld_force_load=no cat > conftest.c << _LT_EOF int forced_loaded() { return 2;} _LT_EOF echo "$LTCC $LTCFLAGS -c -o conftest.o conftest.c" >&AS_MESSAGE_LOG_FD $LTCC $LTCFLAGS -c -o conftest.o conftest.c 2>&AS_MESSAGE_LOG_FD echo "$AR cru libconftest.a conftest.o" >&AS_MESSAGE_LOG_FD $AR cru libconftest.a conftest.o 2>&AS_MESSAGE_LOG_FD echo "$RANLIB libconftest.a" >&AS_MESSAGE_LOG_FD $RANLIB libconftest.a 2>&AS_MESSAGE_LOG_FD cat > conftest.c << _LT_EOF int main() { return 0;} _LT_EOF echo "$LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a" >&AS_MESSAGE_LOG_FD $LTCC $LTCFLAGS $LDFLAGS -o conftest conftest.c -Wl,-force_load,./libconftest.a 2>conftest.err _lt_result=$? if test -s conftest.err && $GREP force_load conftest.err; then cat conftest.err >&AS_MESSAGE_LOG_FD elif test -f conftest && test $_lt_result -eq 0 && $GREP forced_load conftest >/dev/null 2>&1 ; then lt_cv_ld_force_load=yes else cat conftest.err >&AS_MESSAGE_LOG_FD fi rm -f conftest.err libconftest.a conftest conftest.c rm -rf conftest.dSYM ]) case $host_os in rhapsody* | darwin1.[[012]]) _lt_dar_allow_undefined='${wl}-undefined ${wl}suppress' ;; darwin1.*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; darwin*) # darwin 5.x on # if running on 10.5 or later, the deployment target defaults # to the OS version, if on x86, and 10.4, the deployment # target defaults to 10.4. Don't you love it? case ${MACOSX_DEPLOYMENT_TARGET-10.0},$host in 10.0,*86*-darwin8*|10.0,*-darwin[[91]]*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; 10.[[012]]*) _lt_dar_allow_undefined='${wl}-flat_namespace ${wl}-undefined ${wl}suppress' ;; 10.*) _lt_dar_allow_undefined='${wl}-undefined ${wl}dynamic_lookup' ;; esac ;; esac if test "$lt_cv_apple_cc_single_mod" = "yes"; then _lt_dar_single_mod='$single_module' fi if test "$lt_cv_ld_exported_symbols_list" = "yes"; then _lt_dar_export_syms=' ${wl}-exported_symbols_list,$output_objdir/${libname}-symbols.expsym' else _lt_dar_export_syms='~$NMEDIT -s $output_objdir/${libname}-symbols.expsym ${lib}' fi if test "$DSYMUTIL" != ":" && test "$lt_cv_ld_force_load" = "no"; then _lt_dsymutil='~$DSYMUTIL $lib || :' else _lt_dsymutil= fi ;; esac ]) # _LT_DARWIN_LINKER_FEATURES([TAG]) # --------------------------------- # Checks for linker and compiler features on darwin m4_defun([_LT_DARWIN_LINKER_FEATURES], [ m4_require([_LT_REQUIRED_DARWIN_CHECKS]) _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_automatic, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported if test "$lt_cv_ld_force_load" = "yes"; then _LT_TAGVAR(whole_archive_flag_spec, $1)='`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience ${wl}-force_load,$conv\"; done; func_echo_all \"$new_convenience\"`' m4_case([$1], [F77], [_LT_TAGVAR(compiler_needs_object, $1)=yes], [FC], [_LT_TAGVAR(compiler_needs_object, $1)=yes]) else _LT_TAGVAR(whole_archive_flag_spec, $1)='' fi _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(allow_undefined_flag, $1)="$_lt_dar_allow_undefined" case $cc_basename in ifort*) _lt_dar_can_shared=yes ;; *) _lt_dar_can_shared=$GCC ;; esac if test "$_lt_dar_can_shared" = "yes"; then output_verbose_link_cmd=func_echo_all _LT_TAGVAR(archive_cmds, $1)="\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring $_lt_dar_single_mod${_lt_dsymutil}" _LT_TAGVAR(module_cmds, $1)="\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dsymutil}" _LT_TAGVAR(archive_expsym_cmds, $1)="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \$libobjs \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring ${_lt_dar_single_mod}${_lt_dar_export_syms}${_lt_dsymutil}" _LT_TAGVAR(module_expsym_cmds, $1)="sed -e 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC \$allow_undefined_flag -o \$lib -bundle \$libobjs \$deplibs \$compiler_flags${_lt_dar_export_syms}${_lt_dsymutil}" m4_if([$1], [CXX], [ if test "$lt_cv_apple_cc_single_mod" != "yes"; then _LT_TAGVAR(archive_cmds, $1)="\$CC -r -keep_private_externs -nostdlib -o \${lib}-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \${lib}-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring${_lt_dsymutil}" _LT_TAGVAR(archive_expsym_cmds, $1)="sed 's,^,_,' < \$export_symbols > \$output_objdir/\${libname}-symbols.expsym~\$CC -r -keep_private_externs -nostdlib -o \${lib}-master.o \$libobjs~\$CC -dynamiclib \$allow_undefined_flag -o \$lib \${lib}-master.o \$deplibs \$compiler_flags -install_name \$rpath/\$soname \$verstring${_lt_dar_export_syms}${_lt_dsymutil}" fi ],[]) else _LT_TAGVAR(ld_shlibs, $1)=no fi ]) # _LT_SYS_MODULE_PATH_AIX([TAGNAME]) # ---------------------------------- # Links a minimal program and checks the executable # for the system default hardcoded library path. In most cases, # this is /usr/lib:/lib, but when the MPI compilers are used # the location of the communication and MPI libs are included too. # If we don't find anything, use the default library path according # to the aix ld manual. # Store the results from the different compilers for each TAGNAME. # Allow to override them for all tags through lt_cv_aix_libpath. m4_defun([_LT_SYS_MODULE_PATH_AIX], [m4_require([_LT_DECL_SED])dnl if test "${lt_cv_aix_libpath+set}" = set; then aix_libpath=$lt_cv_aix_libpath else AC_CACHE_VAL([_LT_TAGVAR([lt_cv_aix_libpath_], [$1])], [AC_LINK_IFELSE([AC_LANG_PROGRAM],[ lt_aix_libpath_sed='[ /Import File Strings/,/^$/ { /^0/ { s/^0 *\([^ ]*\) *$/\1/ p } }]' _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=`dump -H conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` # Check for a 64-bit object if we didn't find anything. if test -z "$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])"; then _LT_TAGVAR([lt_cv_aix_libpath_], [$1])=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"` fi],[]) if test -z "$_LT_TAGVAR([lt_cv_aix_libpath_], [$1])"; then _LT_TAGVAR([lt_cv_aix_libpath_], [$1])="/usr/lib:/lib" fi ]) aix_libpath=$_LT_TAGVAR([lt_cv_aix_libpath_], [$1]) fi ])# _LT_SYS_MODULE_PATH_AIX # _LT_SHELL_INIT(ARG) # ------------------- m4_define([_LT_SHELL_INIT], [m4_divert_text([M4SH-INIT], [$1 ])])# _LT_SHELL_INIT # _LT_PROG_ECHO_BACKSLASH # ----------------------- # Find how we can fake an echo command that does not interpret backslash. # In particular, with Autoconf 2.60 or later we add some code to the start # of the generated configure script which will find a shell with a builtin # printf (which we can use as an echo command). m4_defun([_LT_PROG_ECHO_BACKSLASH], [ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO AC_MSG_CHECKING([how to print strings]) # Test print first, because it will be a builtin if present. if test "X`( print -r -- -n ) 2>/dev/null`" = X-n && \ test "X`print -r -- $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='print -r --' elif test "X`printf %s $ECHO 2>/dev/null`" = "X$ECHO"; then ECHO='printf %s\n' else # Use this function as a fallback that always works. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $[]1 _LTECHO_EOF' } ECHO='func_fallback_echo' fi # func_echo_all arg... # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "$*" } case "$ECHO" in printf*) AC_MSG_RESULT([printf]) ;; print*) AC_MSG_RESULT([print -r]) ;; *) AC_MSG_RESULT([cat]) ;; esac m4_ifdef([_AS_DETECT_SUGGESTED], [_AS_DETECT_SUGGESTED([ test -n "${ZSH_VERSION+set}${BASH_VERSION+set}" || ( ECHO='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO ECHO=$ECHO$ECHO$ECHO$ECHO$ECHO$ECHO PATH=/empty FPATH=/empty; export PATH FPATH test "X`printf %s $ECHO`" = "X$ECHO" \ || test "X`print -r -- $ECHO`" = "X$ECHO" )])]) _LT_DECL([], [SHELL], [1], [Shell to use when invoking shell scripts]) _LT_DECL([], [ECHO], [1], [An echo program that protects backslashes]) ])# _LT_PROG_ECHO_BACKSLASH # _LT_WITH_SYSROOT # ---------------- AC_DEFUN([_LT_WITH_SYSROOT], [AC_MSG_CHECKING([for sysroot]) AC_ARG_WITH([sysroot], [ --with-sysroot[=DIR] Search for dependent libraries within DIR (or the compiler's sysroot if not specified).], [], [with_sysroot=no]) dnl lt_sysroot will always be passed unquoted. We quote it here dnl in case the user passed a directory name. lt_sysroot= case ${with_sysroot} in #( yes) if test "$GCC" = yes; then lt_sysroot=`$CC --print-sysroot 2>/dev/null` fi ;; #( /*) lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"` ;; #( no|'') ;; #( *) AC_MSG_RESULT([${with_sysroot}]) AC_MSG_ERROR([The sysroot must be an absolute path.]) ;; esac AC_MSG_RESULT([${lt_sysroot:-no}]) _LT_DECL([], [lt_sysroot], [0], [The root where to search for ]dnl [dependent libraries, and in which our libraries should be installed.])]) # _LT_ENABLE_LOCK # --------------- m4_defun([_LT_ENABLE_LOCK], [AC_ARG_ENABLE([libtool-lock], [AS_HELP_STRING([--disable-libtool-lock], [avoid locking (might break parallel builds)])]) test "x$enable_libtool_lock" != xno && enable_libtool_lock=yes # Some flags need to be propagated to the compiler or linker for good # libtool support. case $host in ia64-*-hpux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then case `/usr/bin/file conftest.$ac_objext` in *ELF-32*) HPUX_IA64_MODE="32" ;; *ELF-64*) HPUX_IA64_MODE="64" ;; esac fi rm -rf conftest* ;; *-*-irix6*) # Find out which ABI we are using. echo '[#]line '$LINENO' "configure"' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then if test "$lt_cv_prog_gnu_ld" = yes; then case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -melf32bsmip" ;; *N32*) LD="${LD-ld} -melf32bmipn32" ;; *64-bit*) LD="${LD-ld} -melf64bmip" ;; esac else case `/usr/bin/file conftest.$ac_objext` in *32-bit*) LD="${LD-ld} -32" ;; *N32*) LD="${LD-ld} -n32" ;; *64-bit*) LD="${LD-ld} -64" ;; esac fi fi rm -rf conftest* ;; x86_64-*kfreebsd*-gnu|x86_64-*linux*|ppc*-*linux*|powerpc*-*linux*| \ s390*-*linux*|s390*-*tpf*|sparc*-*linux*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then case `/usr/bin/file conftest.o` in *32-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_i386_fbsd" ;; x86_64-*linux*) case `/usr/bin/file conftest.o` in *x86-64*) LD="${LD-ld} -m elf32_x86_64" ;; *) LD="${LD-ld} -m elf_i386" ;; esac ;; ppc64-*linux*|powerpc64-*linux*) LD="${LD-ld} -m elf32ppclinux" ;; s390x-*linux*) LD="${LD-ld} -m elf_s390" ;; sparc64-*linux*) LD="${LD-ld} -m elf32_sparc" ;; esac ;; *64-bit*) case $host in x86_64-*kfreebsd*-gnu) LD="${LD-ld} -m elf_x86_64_fbsd" ;; x86_64-*linux*) LD="${LD-ld} -m elf_x86_64" ;; ppc*-*linux*|powerpc*-*linux*) LD="${LD-ld} -m elf64ppc" ;; s390*-*linux*|s390*-*tpf*) LD="${LD-ld} -m elf64_s390" ;; sparc*-*linux*) LD="${LD-ld} -m elf64_sparc" ;; esac ;; esac fi rm -rf conftest* ;; *-*-sco3.2v5*) # On SCO OpenServer 5, we need -belf to get full-featured binaries. SAVE_CFLAGS="$CFLAGS" CFLAGS="$CFLAGS -belf" AC_CACHE_CHECK([whether the C compiler needs -belf], lt_cv_cc_needs_belf, [AC_LANG_PUSH(C) AC_LINK_IFELSE([AC_LANG_PROGRAM([[]],[[]])],[lt_cv_cc_needs_belf=yes],[lt_cv_cc_needs_belf=no]) AC_LANG_POP]) if test x"$lt_cv_cc_needs_belf" != x"yes"; then # this is probably gcc 2.8.0, egcs 1.0 or newer; no need for -belf CFLAGS="$SAVE_CFLAGS" fi ;; *-*solaris*) # Find out which ABI we are using. echo 'int i;' > conftest.$ac_ext if AC_TRY_EVAL(ac_compile); then case `/usr/bin/file conftest.o` in *64-bit*) case $lt_cv_prog_gnu_ld in yes*) case $host in i?86-*-solaris*) LD="${LD-ld} -m elf_x86_64" ;; sparc*-*-solaris*) LD="${LD-ld} -m elf64_sparc" ;; esac # GNU ld 2.21 introduced _sol2 emulations. Use them if available. if ${LD-ld} -V | grep _sol2 >/dev/null 2>&1; then LD="${LD-ld}_sol2" fi ;; *) if ${LD-ld} -64 -r -o conftest2.o conftest.o >/dev/null 2>&1; then LD="${LD-ld} -64" fi ;; esac ;; esac fi rm -rf conftest* ;; esac need_locks="$enable_libtool_lock" ])# _LT_ENABLE_LOCK # _LT_PROG_AR # ----------- m4_defun([_LT_PROG_AR], [AC_CHECK_TOOLS(AR, [ar], false) : ${AR=ar} : ${AR_FLAGS=cru} _LT_DECL([], [AR], [1], [The archiver]) _LT_DECL([], [AR_FLAGS], [1], [Flags to create an archive]) AC_CACHE_CHECK([for archiver @FILE support], [lt_cv_ar_at_file], [lt_cv_ar_at_file=no AC_COMPILE_IFELSE([AC_LANG_PROGRAM], [echo conftest.$ac_objext > conftest.lst lt_ar_try='$AR $AR_FLAGS libconftest.a @conftest.lst >&AS_MESSAGE_LOG_FD' AC_TRY_EVAL([lt_ar_try]) if test "$ac_status" -eq 0; then # Ensure the archiver fails upon bogus file names. rm -f conftest.$ac_objext libconftest.a AC_TRY_EVAL([lt_ar_try]) if test "$ac_status" -ne 0; then lt_cv_ar_at_file=@ fi fi rm -f conftest.* libconftest.a ]) ]) if test "x$lt_cv_ar_at_file" = xno; then archiver_list_spec= else archiver_list_spec=$lt_cv_ar_at_file fi _LT_DECL([], [archiver_list_spec], [1], [How to feed a file listing to the archiver]) ])# _LT_PROG_AR # _LT_CMD_OLD_ARCHIVE # ------------------- m4_defun([_LT_CMD_OLD_ARCHIVE], [_LT_PROG_AR AC_CHECK_TOOL(STRIP, strip, :) test -z "$STRIP" && STRIP=: _LT_DECL([], [STRIP], [1], [A symbol stripping program]) AC_CHECK_TOOL(RANLIB, ranlib, :) test -z "$RANLIB" && RANLIB=: _LT_DECL([], [RANLIB], [1], [Commands used to install an old-style archive]) # Determine commands to create old-style static archives. old_archive_cmds='$AR $AR_FLAGS $oldlib$oldobjs' old_postinstall_cmds='chmod 644 $oldlib' old_postuninstall_cmds= if test -n "$RANLIB"; then case $host_os in openbsd*) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB -t \$tool_oldlib" ;; *) old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$tool_oldlib" ;; esac old_archive_cmds="$old_archive_cmds~\$RANLIB \$tool_oldlib" fi case $host_os in darwin*) lock_old_archive_extraction=yes ;; *) lock_old_archive_extraction=no ;; esac _LT_DECL([], [old_postinstall_cmds], [2]) _LT_DECL([], [old_postuninstall_cmds], [2]) _LT_TAGDECL([], [old_archive_cmds], [2], [Commands used to build an old-style archive]) _LT_DECL([], [lock_old_archive_extraction], [0], [Whether to use a lock for old archive extraction]) ])# _LT_CMD_OLD_ARCHIVE # _LT_COMPILER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS, # [OUTPUT-FILE], [ACTION-SUCCESS], [ACTION-FAILURE]) # ---------------------------------------------------------------- # Check whether the given compiler option works AC_DEFUN([_LT_COMPILER_OPTION], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_SED])dnl AC_CACHE_CHECK([$1], [$2], [$2=no m4_if([$4], , [ac_outfile=conftest.$ac_objext], [ac_outfile=$4]) echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="$3" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. # The option is referenced via a variable to avoid confusing sed. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&AS_MESSAGE_LOG_FD) (eval "$lt_compile" 2>conftest.err) ac_status=$? cat conftest.err >&AS_MESSAGE_LOG_FD echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD if (exit $ac_status) && test -s "$ac_outfile"; then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings other than the usual output. $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' >conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if test ! -s conftest.er2 || diff conftest.exp conftest.er2 >/dev/null; then $2=yes fi fi $RM conftest* ]) if test x"[$]$2" = xyes; then m4_if([$5], , :, [$5]) else m4_if([$6], , :, [$6]) fi ])# _LT_COMPILER_OPTION # Old name: AU_ALIAS([AC_LIBTOOL_COMPILER_OPTION], [_LT_COMPILER_OPTION]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_COMPILER_OPTION], []) # _LT_LINKER_OPTION(MESSAGE, VARIABLE-NAME, FLAGS, # [ACTION-SUCCESS], [ACTION-FAILURE]) # ---------------------------------------------------- # Check whether the given linker option works AC_DEFUN([_LT_LINKER_OPTION], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_SED])dnl AC_CACHE_CHECK([$1], [$2], [$2=no save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS $3" echo "$lt_simple_link_test_code" > conftest.$ac_ext if (eval $ac_link 2>conftest.err) && test -s conftest$ac_exeext; then # The linker can only warn and ignore the option if not recognized # So say no if there are warnings if test -s conftest.err; then # Append any errors to the config.log. cat conftest.err 1>&AS_MESSAGE_LOG_FD $ECHO "$_lt_linker_boilerplate" | $SED '/^$/d' > conftest.exp $SED '/^$/d; /^ *+/d' conftest.err >conftest.er2 if diff conftest.exp conftest.er2 >/dev/null; then $2=yes fi else $2=yes fi fi $RM -r conftest* LDFLAGS="$save_LDFLAGS" ]) if test x"[$]$2" = xyes; then m4_if([$4], , :, [$4]) else m4_if([$5], , :, [$5]) fi ])# _LT_LINKER_OPTION # Old name: AU_ALIAS([AC_LIBTOOL_LINKER_OPTION], [_LT_LINKER_OPTION]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_LINKER_OPTION], []) # LT_CMD_MAX_LEN #--------------- AC_DEFUN([LT_CMD_MAX_LEN], [AC_REQUIRE([AC_CANONICAL_HOST])dnl # find the maximum length of command line arguments AC_MSG_CHECKING([the maximum length of command line arguments]) AC_CACHE_VAL([lt_cv_sys_max_cmd_len], [dnl i=0 teststring="ABCD" case $build_os in msdosdjgpp*) # On DJGPP, this test can blow up pretty badly due to problems in libc # (any single argument exceeding 2000 bytes causes a buffer overrun # during glob expansion). Even if it were fixed, the result of this # check would be larger than it should be. lt_cv_sys_max_cmd_len=12288; # 12K is about right ;; gnu*) # Under GNU Hurd, this test is not required because there is # no limit to the length of command line arguments. # Libtool will interpret -1 as no limit whatsoever lt_cv_sys_max_cmd_len=-1; ;; cygwin* | mingw* | cegcc*) # On Win9x/ME, this test blows up -- it succeeds, but takes # about 5 minutes as the teststring grows exponentially. # Worse, since 9x/ME are not pre-emptively multitasking, # you end up with a "frozen" computer, even though with patience # the test eventually succeeds (with a max line length of 256k). # Instead, let's just punt: use the minimum linelength reported by # all of the supported platforms: 8192 (on NT/2K/XP). lt_cv_sys_max_cmd_len=8192; ;; mint*) # On MiNT this can take a long time and run out of memory. lt_cv_sys_max_cmd_len=8192; ;; amigaos*) # On AmigaOS with pdksh, this test takes hours, literally. # So we just punt and use a minimum line length of 8192. lt_cv_sys_max_cmd_len=8192; ;; netbsd* | freebsd* | openbsd* | darwin* | dragonfly*) # This has been around since 386BSD, at least. Likely further. if test -x /sbin/sysctl; then lt_cv_sys_max_cmd_len=`/sbin/sysctl -n kern.argmax` elif test -x /usr/sbin/sysctl; then lt_cv_sys_max_cmd_len=`/usr/sbin/sysctl -n kern.argmax` else lt_cv_sys_max_cmd_len=65536 # usable default for all BSDs fi # And add a safety zone lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` ;; interix*) # We know the value 262144 and hardcode it with a safety zone (like BSD) lt_cv_sys_max_cmd_len=196608 ;; os2*) # The test takes a long time on OS/2. lt_cv_sys_max_cmd_len=8192 ;; osf*) # Dr. Hans Ekkehard Plesser reports seeing a kernel panic running configure # due to this test when exec_disable_arg_limit is 1 on Tru64. It is not # nice to cause kernel panics so lets avoid the loop below. # First set a reasonable default. lt_cv_sys_max_cmd_len=16384 # if test -x /sbin/sysconfig; then case `/sbin/sysconfig -q proc exec_disable_arg_limit` in *1*) lt_cv_sys_max_cmd_len=-1 ;; esac fi ;; sco3.2v5*) lt_cv_sys_max_cmd_len=102400 ;; sysv5* | sco5v6* | sysv4.2uw2*) kargmax=`grep ARG_MAX /etc/conf/cf.d/stune 2>/dev/null` if test -n "$kargmax"; then lt_cv_sys_max_cmd_len=`echo $kargmax | sed 's/.*[[ ]]//'` else lt_cv_sys_max_cmd_len=32768 fi ;; *) lt_cv_sys_max_cmd_len=`(getconf ARG_MAX) 2> /dev/null` if test -n "$lt_cv_sys_max_cmd_len" && \ test undefined != "$lt_cv_sys_max_cmd_len"; then lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 4` lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \* 3` else # Make teststring a little bigger before we do anything with it. # a 1K string should be a reasonable start. for i in 1 2 3 4 5 6 7 8 ; do teststring=$teststring$teststring done SHELL=${SHELL-${CONFIG_SHELL-/bin/sh}} # If test is not a shell built-in, we'll probably end up computing a # maximum length that is only half of the actual maximum length, but # we can't tell. while { test "X"`env echo "$teststring$teststring" 2>/dev/null` \ = "X$teststring$teststring"; } >/dev/null 2>&1 && test $i != 17 # 1/2 MB should be enough do i=`expr $i + 1` teststring=$teststring$teststring done # Only check the string length outside the loop. lt_cv_sys_max_cmd_len=`expr "X$teststring" : ".*" 2>&1` teststring= # Add a significant safety factor because C++ compilers can tack on # massive amounts of additional arguments before passing them to the # linker. It appears as though 1/2 is a usable value. lt_cv_sys_max_cmd_len=`expr $lt_cv_sys_max_cmd_len \/ 2` fi ;; esac ]) if test -n $lt_cv_sys_max_cmd_len ; then AC_MSG_RESULT($lt_cv_sys_max_cmd_len) else AC_MSG_RESULT(none) fi max_cmd_len=$lt_cv_sys_max_cmd_len _LT_DECL([], [max_cmd_len], [0], [What is the maximum length of a command?]) ])# LT_CMD_MAX_LEN # Old name: AU_ALIAS([AC_LIBTOOL_SYS_MAX_CMD_LEN], [LT_CMD_MAX_LEN]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_SYS_MAX_CMD_LEN], []) # _LT_HEADER_DLFCN # ---------------- m4_defun([_LT_HEADER_DLFCN], [AC_CHECK_HEADERS([dlfcn.h], [], [], [AC_INCLUDES_DEFAULT])dnl ])# _LT_HEADER_DLFCN # _LT_TRY_DLOPEN_SELF (ACTION-IF-TRUE, ACTION-IF-TRUE-W-USCORE, # ACTION-IF-FALSE, ACTION-IF-CROSS-COMPILING) # ---------------------------------------------------------------- m4_defun([_LT_TRY_DLOPEN_SELF], [m4_require([_LT_HEADER_DLFCN])dnl if test "$cross_compiling" = yes; then : [$4] else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF [#line $LINENO "configure" #include "confdefs.h" #if HAVE_DLFCN_H #include #endif #include #ifdef RTLD_GLOBAL # define LT_DLGLOBAL RTLD_GLOBAL #else # ifdef DL_GLOBAL # define LT_DLGLOBAL DL_GLOBAL # else # define LT_DLGLOBAL 0 # endif #endif /* We may have to define LT_DLLAZY_OR_NOW in the command line if we find out it does not work in some platform. */ #ifndef LT_DLLAZY_OR_NOW # ifdef RTLD_LAZY # define LT_DLLAZY_OR_NOW RTLD_LAZY # else # ifdef DL_LAZY # define LT_DLLAZY_OR_NOW DL_LAZY # else # ifdef RTLD_NOW # define LT_DLLAZY_OR_NOW RTLD_NOW # else # ifdef DL_NOW # define LT_DLLAZY_OR_NOW DL_NOW # else # define LT_DLLAZY_OR_NOW 0 # endif # endif # endif # endif #endif /* When -fvisbility=hidden is used, assume the code has been annotated correspondingly for the symbols needed. */ #if defined(__GNUC__) && (((__GNUC__ == 3) && (__GNUC_MINOR__ >= 3)) || (__GNUC__ > 3)) int fnord () __attribute__((visibility("default"))); #endif int fnord () { return 42; } int main () { void *self = dlopen (0, LT_DLGLOBAL|LT_DLLAZY_OR_NOW); int status = $lt_dlunknown; if (self) { if (dlsym (self,"fnord")) status = $lt_dlno_uscore; else { if (dlsym( self,"_fnord")) status = $lt_dlneed_uscore; else puts (dlerror ()); } /* dlclose (self); */ } else puts (dlerror ()); return status; }] _LT_EOF if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext} 2>/dev/null; then (./conftest; exit; ) >&AS_MESSAGE_LOG_FD 2>/dev/null lt_status=$? case x$lt_status in x$lt_dlno_uscore) $1 ;; x$lt_dlneed_uscore) $2 ;; x$lt_dlunknown|x*) $3 ;; esac else : # compilation failed $3 fi fi rm -fr conftest* ])# _LT_TRY_DLOPEN_SELF # LT_SYS_DLOPEN_SELF # ------------------ AC_DEFUN([LT_SYS_DLOPEN_SELF], [m4_require([_LT_HEADER_DLFCN])dnl if test "x$enable_dlopen" != xyes; then enable_dlopen=unknown enable_dlopen_self=unknown enable_dlopen_self_static=unknown else lt_cv_dlopen=no lt_cv_dlopen_libs= case $host_os in beos*) lt_cv_dlopen="load_add_on" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ;; mingw* | pw32* | cegcc*) lt_cv_dlopen="LoadLibrary" lt_cv_dlopen_libs= ;; cygwin*) lt_cv_dlopen="dlopen" lt_cv_dlopen_libs= ;; darwin*) # if libdl is installed we need to link against it AC_CHECK_LIB([dl], [dlopen], [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"],[ lt_cv_dlopen="dyld" lt_cv_dlopen_libs= lt_cv_dlopen_self=yes ]) ;; *) AC_CHECK_FUNC([shl_load], [lt_cv_dlopen="shl_load"], [AC_CHECK_LIB([dld], [shl_load], [lt_cv_dlopen="shl_load" lt_cv_dlopen_libs="-ldld"], [AC_CHECK_FUNC([dlopen], [lt_cv_dlopen="dlopen"], [AC_CHECK_LIB([dl], [dlopen], [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-ldl"], [AC_CHECK_LIB([svld], [dlopen], [lt_cv_dlopen="dlopen" lt_cv_dlopen_libs="-lsvld"], [AC_CHECK_LIB([dld], [dld_link], [lt_cv_dlopen="dld_link" lt_cv_dlopen_libs="-ldld"]) ]) ]) ]) ]) ]) ;; esac if test "x$lt_cv_dlopen" != xno; then enable_dlopen=yes else enable_dlopen=no fi case $lt_cv_dlopen in dlopen) save_CPPFLAGS="$CPPFLAGS" test "x$ac_cv_header_dlfcn_h" = xyes && CPPFLAGS="$CPPFLAGS -DHAVE_DLFCN_H" save_LDFLAGS="$LDFLAGS" wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $export_dynamic_flag_spec\" save_LIBS="$LIBS" LIBS="$lt_cv_dlopen_libs $LIBS" AC_CACHE_CHECK([whether a program can dlopen itself], lt_cv_dlopen_self, [dnl _LT_TRY_DLOPEN_SELF( lt_cv_dlopen_self=yes, lt_cv_dlopen_self=yes, lt_cv_dlopen_self=no, lt_cv_dlopen_self=cross) ]) if test "x$lt_cv_dlopen_self" = xyes; then wl=$lt_prog_compiler_wl eval LDFLAGS=\"\$LDFLAGS $lt_prog_compiler_static\" AC_CACHE_CHECK([whether a statically linked program can dlopen itself], lt_cv_dlopen_self_static, [dnl _LT_TRY_DLOPEN_SELF( lt_cv_dlopen_self_static=yes, lt_cv_dlopen_self_static=yes, lt_cv_dlopen_self_static=no, lt_cv_dlopen_self_static=cross) ]) fi CPPFLAGS="$save_CPPFLAGS" LDFLAGS="$save_LDFLAGS" LIBS="$save_LIBS" ;; esac case $lt_cv_dlopen_self in yes|no) enable_dlopen_self=$lt_cv_dlopen_self ;; *) enable_dlopen_self=unknown ;; esac case $lt_cv_dlopen_self_static in yes|no) enable_dlopen_self_static=$lt_cv_dlopen_self_static ;; *) enable_dlopen_self_static=unknown ;; esac fi _LT_DECL([dlopen_support], [enable_dlopen], [0], [Whether dlopen is supported]) _LT_DECL([dlopen_self], [enable_dlopen_self], [0], [Whether dlopen of programs is supported]) _LT_DECL([dlopen_self_static], [enable_dlopen_self_static], [0], [Whether dlopen of statically linked programs is supported]) ])# LT_SYS_DLOPEN_SELF # Old name: AU_ALIAS([AC_LIBTOOL_DLOPEN_SELF], [LT_SYS_DLOPEN_SELF]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_LIBTOOL_DLOPEN_SELF], []) # _LT_COMPILER_C_O([TAGNAME]) # --------------------------- # Check to see if options -c and -o are simultaneously supported by compiler. # This macro does not hard code the compiler like AC_PROG_CC_C_O. m4_defun([_LT_COMPILER_C_O], [m4_require([_LT_DECL_SED])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_TAG_COMPILER])dnl AC_CACHE_CHECK([if $compiler supports -c -o file.$ac_objext], [_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)], [_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=no $RM -r conftest 2>/dev/null mkdir conftest cd conftest mkdir out echo "$lt_simple_compile_test_code" > conftest.$ac_ext lt_compiler_flag="-o out/conftest2.$ac_objext" # Insert the option either (1) after the last *FLAGS variable, or # (2) before a word containing "conftest.", or (3) at the end. # Note that $ac_compile itself does not contain backslashes and begins # with a dollar sign (not a hyphen), so the echo should work correctly. lt_compile=`echo "$ac_compile" | $SED \ -e 's:.*FLAGS}\{0,1\} :&$lt_compiler_flag :; t' \ -e 's: [[^ ]]*conftest\.: $lt_compiler_flag&:; t' \ -e 's:$: $lt_compiler_flag:'` (eval echo "\"\$as_me:$LINENO: $lt_compile\"" >&AS_MESSAGE_LOG_FD) (eval "$lt_compile" 2>out/conftest.err) ac_status=$? cat out/conftest.err >&AS_MESSAGE_LOG_FD echo "$as_me:$LINENO: \$? = $ac_status" >&AS_MESSAGE_LOG_FD if (exit $ac_status) && test -s out/conftest2.$ac_objext then # The compiler can only warn and ignore the option if not recognized # So say no if there are warnings $ECHO "$_lt_compiler_boilerplate" | $SED '/^$/d' > out/conftest.exp $SED '/^$/d; /^ *+/d' out/conftest.err >out/conftest.er2 if test ! -s out/conftest.er2 || diff out/conftest.exp out/conftest.er2 >/dev/null; then _LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes fi fi chmod u+w . 2>&AS_MESSAGE_LOG_FD $RM conftest* # SGI C++ compiler will create directory out/ii_files/ for # template instantiation test -d out/ii_files && $RM out/ii_files/* && rmdir out/ii_files $RM out/* && rmdir out cd .. $RM -r conftest $RM conftest* ]) _LT_TAGDECL([compiler_c_o], [lt_cv_prog_compiler_c_o], [1], [Does compiler simultaneously support -c and -o options?]) ])# _LT_COMPILER_C_O # _LT_COMPILER_FILE_LOCKS([TAGNAME]) # ---------------------------------- # Check to see if we can do hard links to lock some files if needed m4_defun([_LT_COMPILER_FILE_LOCKS], [m4_require([_LT_ENABLE_LOCK])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl _LT_COMPILER_C_O([$1]) hard_links="nottested" if test "$_LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)" = no && test "$need_locks" != no; then # do not overwrite the value of need_locks provided by the user AC_MSG_CHECKING([if we can lock with hard links]) hard_links=yes $RM conftest* ln conftest.a conftest.b 2>/dev/null && hard_links=no touch conftest.a ln conftest.a conftest.b 2>&5 || hard_links=no ln conftest.a conftest.b 2>/dev/null && hard_links=no AC_MSG_RESULT([$hard_links]) if test "$hard_links" = no; then AC_MSG_WARN([`$CC' does not support `-c -o', so `make -j' may be unsafe]) need_locks=warn fi else need_locks=no fi _LT_DECL([], [need_locks], [1], [Must we lock files when doing compilation?]) ])# _LT_COMPILER_FILE_LOCKS # _LT_CHECK_OBJDIR # ---------------- m4_defun([_LT_CHECK_OBJDIR], [AC_CACHE_CHECK([for objdir], [lt_cv_objdir], [rm -f .libs 2>/dev/null mkdir .libs 2>/dev/null if test -d .libs; then lt_cv_objdir=.libs else # MS-DOS does not allow filenames that begin with a dot. lt_cv_objdir=_libs fi rmdir .libs 2>/dev/null]) objdir=$lt_cv_objdir _LT_DECL([], [objdir], [0], [The name of the directory that contains temporary libtool files])dnl m4_pattern_allow([LT_OBJDIR])dnl AC_DEFINE_UNQUOTED(LT_OBJDIR, "$lt_cv_objdir/", [Define to the sub-directory in which libtool stores uninstalled libraries.]) ])# _LT_CHECK_OBJDIR # _LT_LINKER_HARDCODE_LIBPATH([TAGNAME]) # -------------------------------------- # Check hardcoding attributes. m4_defun([_LT_LINKER_HARDCODE_LIBPATH], [AC_MSG_CHECKING([how to hardcode library paths into programs]) _LT_TAGVAR(hardcode_action, $1)= if test -n "$_LT_TAGVAR(hardcode_libdir_flag_spec, $1)" || test -n "$_LT_TAGVAR(runpath_var, $1)" || test "X$_LT_TAGVAR(hardcode_automatic, $1)" = "Xyes" ; then # We can hardcode non-existent directories. if test "$_LT_TAGVAR(hardcode_direct, $1)" != no && # If the only mechanism to avoid hardcoding is shlibpath_var, we # have to relink, otherwise we might link with an installed library # when we should be linking with a yet-to-be-installed one ## test "$_LT_TAGVAR(hardcode_shlibpath_var, $1)" != no && test "$_LT_TAGVAR(hardcode_minus_L, $1)" != no; then # Linking always hardcodes the temporary library directory. _LT_TAGVAR(hardcode_action, $1)=relink else # We can link without hardcoding, and we can hardcode nonexisting dirs. _LT_TAGVAR(hardcode_action, $1)=immediate fi else # We cannot hardcode anything, or else we can only hardcode existing # directories. _LT_TAGVAR(hardcode_action, $1)=unsupported fi AC_MSG_RESULT([$_LT_TAGVAR(hardcode_action, $1)]) if test "$_LT_TAGVAR(hardcode_action, $1)" = relink || test "$_LT_TAGVAR(inherit_rpath, $1)" = yes; then # Fast installation is not supported enable_fast_install=no elif test "$shlibpath_overrides_runpath" = yes || test "$enable_shared" = no; then # Fast installation is not necessary enable_fast_install=needless fi _LT_TAGDECL([], [hardcode_action], [0], [How to hardcode a shared library path into an executable]) ])# _LT_LINKER_HARDCODE_LIBPATH # _LT_CMD_STRIPLIB # ---------------- m4_defun([_LT_CMD_STRIPLIB], [m4_require([_LT_DECL_EGREP]) striplib= old_striplib= AC_MSG_CHECKING([whether stripping libraries is possible]) if test -n "$STRIP" && $STRIP -V 2>&1 | $GREP "GNU strip" >/dev/null; then test -z "$old_striplib" && old_striplib="$STRIP --strip-debug" test -z "$striplib" && striplib="$STRIP --strip-unneeded" AC_MSG_RESULT([yes]) else # FIXME - insert some real tests, host_os isn't really good enough case $host_os in darwin*) if test -n "$STRIP" ; then striplib="$STRIP -x" old_striplib="$STRIP -S" AC_MSG_RESULT([yes]) else AC_MSG_RESULT([no]) fi ;; *) AC_MSG_RESULT([no]) ;; esac fi _LT_DECL([], [old_striplib], [1], [Commands to strip libraries]) _LT_DECL([], [striplib], [1]) ])# _LT_CMD_STRIPLIB # _LT_SYS_DYNAMIC_LINKER([TAG]) # ----------------------------- # PORTME Fill in your ld.so characteristics m4_defun([_LT_SYS_DYNAMIC_LINKER], [AC_REQUIRE([AC_CANONICAL_HOST])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_OBJDUMP])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_CHECK_SHELL_FEATURES])dnl AC_MSG_CHECKING([dynamic linker characteristics]) m4_if([$1], [], [ if test "$GCC" = yes; then case $host_os in darwin*) lt_awk_arg="/^libraries:/,/LR/" ;; *) lt_awk_arg="/^libraries:/" ;; esac case $host_os in mingw* | cegcc*) lt_sed_strip_eq="s,=\([[A-Za-z]]:\),\1,g" ;; *) lt_sed_strip_eq="s,=/,/,g" ;; esac lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e $lt_sed_strip_eq` case $lt_search_path_spec in *\;*) # if the path contains ";" then we assume it to be the separator # otherwise default to the standard path separator (i.e. ":") - it is # assumed that no part of a normal pathname contains ";" but that should # okay in the real world where ";" in dirpaths is itself problematic. lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED 's/;/ /g'` ;; *) lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED "s/$PATH_SEPARATOR/ /g"` ;; esac # Ok, now we have the path, separated by spaces, we can step through it # and add multilib dir if necessary. lt_tmp_lt_search_path_spec= lt_multi_os_dir=`$CC $CPPFLAGS $CFLAGS $LDFLAGS -print-multi-os-directory 2>/dev/null` for lt_sys_path in $lt_search_path_spec; do if test -d "$lt_sys_path/$lt_multi_os_dir"; then lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path/$lt_multi_os_dir" else test -d "$lt_sys_path" && \ lt_tmp_lt_search_path_spec="$lt_tmp_lt_search_path_spec $lt_sys_path" fi done lt_search_path_spec=`$ECHO "$lt_tmp_lt_search_path_spec" | awk ' BEGIN {RS=" "; FS="/|\n";} { lt_foo=""; lt_count=0; for (lt_i = NF; lt_i > 0; lt_i--) { if ($lt_i != "" && $lt_i != ".") { if ($lt_i == "..") { lt_count++; } else { if (lt_count == 0) { lt_foo="/" $lt_i lt_foo; } else { lt_count--; } } } } if (lt_foo != "") { lt_freq[[lt_foo]]++; } if (lt_freq[[lt_foo]] == 1) { print lt_foo; } }'` # AWK program above erroneously prepends '/' to C:/dos/paths # for these hosts. case $host_os in mingw* | cegcc*) lt_search_path_spec=`$ECHO "$lt_search_path_spec" |\ $SED 's,/\([[A-Za-z]]:\),\1,g'` ;; esac sys_lib_search_path_spec=`$ECHO "$lt_search_path_spec" | $lt_NL2SP` else sys_lib_search_path_spec="/lib /usr/lib /usr/local/lib" fi]) library_names_spec= libname_spec='lib$name' soname_spec= shrext_cmds=".so" postinstall_cmds= postuninstall_cmds= finish_cmds= finish_eval= shlibpath_var= shlibpath_overrides_runpath=unknown version_type=none dynamic_linker="$host_os ld.so" sys_lib_dlsearch_path_spec="/lib /usr/lib" need_lib_prefix=unknown hardcode_into_libs=no # when you set need_version to no, make sure it does not cause -set_version # flags to be left without arguments need_version=unknown case $host_os in aix3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix $libname.a' shlibpath_var=LIBPATH # AIX 3 has no versioning support, so we append a major version to the name. soname_spec='${libname}${release}${shared_ext}$major' ;; aix[[4-9]]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no hardcode_into_libs=yes if test "$host_cpu" = ia64; then # AIX 5 supports IA64 library_names_spec='${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext}$versuffix $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH else # With GCC up to 2.95.x, collect2 would create an import file # for dependence libraries. The import file would start with # the line `#! .'. This would cause the generated library to # depend on `.', always an invalid library. This was fixed in # development snapshots of GCC prior to 3.0. case $host_os in aix4 | aix4.[[01]] | aix4.[[01]].*) if { echo '#if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 97)' echo ' yes ' echo '#endif'; } | ${CC} -E - | $GREP yes > /dev/null; then : else can_build_shared=no fi ;; esac # AIX (on Power*) has no versioning support, so currently we can not hardcode correct # soname into executable. Probably we can add versioning support to # collect2, so additional links can be useful in future. if test "$aix_use_runtimelinking" = yes; then # If using run time linking (on AIX 4.2 or later) use lib.so # instead of lib.a to let people know that these are not # typical AIX shared libraries. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' else # We preserve .a as extension for shared libraries through AIX4.2 # and later when we are not doing run time linking. library_names_spec='${libname}${release}.a $libname.a' soname_spec='${libname}${release}${shared_ext}$major' fi shlibpath_var=LIBPATH fi ;; amigaos*) case $host_cpu in powerpc) # Since July 2007 AmigaOS4 officially supports .so libraries. # When compiling the executable, add -use-dynld -Lsobjs: to the compileline. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' ;; m68k) library_names_spec='$libname.ixlibrary $libname.a' # Create ${libname}_ixlibrary.a entries in /sys/libs. finish_eval='for lib in `ls $libdir/*.ixlibrary 2>/dev/null`; do libname=`func_echo_all "$lib" | $SED '\''s%^.*/\([[^/]]*\)\.ixlibrary$%\1%'\''`; test $RM /sys/libs/${libname}_ixlibrary.a; $show "cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a"; cd /sys/libs && $LN_S $lib ${libname}_ixlibrary.a || exit 1; done' ;; esac ;; beos*) library_names_spec='${libname}${shared_ext}' dynamic_linker="$host_os ld.so" shlibpath_var=LIBRARY_PATH ;; bsdi[[45]]*) version_type=linux # correct to gnu/linux during the next big refactor need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/shlib /usr/lib /usr/X11/lib /usr/contrib/lib /lib /usr/local/lib" sys_lib_dlsearch_path_spec="/shlib /usr/lib /usr/local/lib" # the default ld.so.conf also contains /usr/contrib/lib and # /usr/X11R6/lib (/usr/X11 is a link to /usr/X11R6), but let us allow # libtool to hard-code these into programs ;; cygwin* | mingw* | pw32* | cegcc*) version_type=windows shrext_cmds=".dll" need_version=no need_lib_prefix=no case $GCC,$cc_basename in yes,*) # gcc library_names_spec='$libname.dll.a' # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname~ chmod a+x \$dldir/$dlname~ if test -n '\''$stripme'\'' && test -n '\''$striplib'\''; then eval '\''$striplib \$dldir/$dlname'\'' || exit \$?; fi' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes case $host_os in cygwin*) # Cygwin DLLs use 'cyg' prefix rather than 'lib' soname_spec='`echo ${libname} | sed -e 's/^lib/cyg/'``echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' m4_if([$1], [],[ sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/lib/w32api"]) ;; mingw* | cegcc*) # MinGW DLLs use traditional 'lib' prefix soname_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' ;; pw32*) # pw32 DLLs use 'pw' prefix rather than 'lib' library_names_spec='`echo ${libname} | sed -e 's/^lib/pw/'``echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' ;; esac dynamic_linker='Win32 ld.exe' ;; *,cl*) # Native MSVC libname_spec='$name' soname_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}' library_names_spec='${libname}.dll.lib' case $build_os in mingw*) sys_lib_search_path_spec= lt_save_ifs=$IFS IFS=';' for lt_path in $LIB do IFS=$lt_save_ifs # Let DOS variable expansion print the short 8.3 style file name. lt_path=`cd "$lt_path" 2>/dev/null && cmd //C "for %i in (".") do @echo %~si"` sys_lib_search_path_spec="$sys_lib_search_path_spec $lt_path" done IFS=$lt_save_ifs # Convert to MSYS style. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | sed -e 's|\\\\|/|g' -e 's| \\([[a-zA-Z]]\\):| /\\1|g' -e 's|^ ||'` ;; cygwin*) # Convert to unix form, then to dos form, then back to unix form # but this time dos style (no spaces!) so that the unix form looks # like /cygdrive/c/PROGRA~1:/cygdr... sys_lib_search_path_spec=`cygpath --path --unix "$LIB"` sys_lib_search_path_spec=`cygpath --path --dos "$sys_lib_search_path_spec" 2>/dev/null` sys_lib_search_path_spec=`cygpath --path --unix "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` ;; *) sys_lib_search_path_spec="$LIB" if $ECHO "$sys_lib_search_path_spec" | [$GREP ';[c-zC-Z]:/' >/dev/null]; then # It is most probably a Windows format PATH. sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e 's/;/ /g'` else sys_lib_search_path_spec=`$ECHO "$sys_lib_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"` fi # FIXME: find the short name or the path components, as spaces are # common. (e.g. "Program Files" -> "PROGRA~1") ;; esac # DLL is installed to $(libdir)/../bin by postinstall_cmds postinstall_cmds='base_file=`basename \${file}`~ dlpath=`$SHELL 2>&1 -c '\''. $dir/'\''\${base_file}'\''i; echo \$dlname'\''`~ dldir=$destdir/`dirname \$dlpath`~ test -d \$dldir || mkdir -p \$dldir~ $install_prog $dir/$dlname \$dldir/$dlname' postuninstall_cmds='dldll=`$SHELL 2>&1 -c '\''. $file; echo \$dlname'\''`~ dlpath=$dir/\$dldll~ $RM \$dlpath' shlibpath_overrides_runpath=yes dynamic_linker='Win32 link.exe' ;; *) # Assume MSVC wrapper library_names_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext} $libname.lib' dynamic_linker='Win32 ld.exe' ;; esac # FIXME: first we should search . and the directory the executable is in shlibpath_var=PATH ;; darwin* | rhapsody*) dynamic_linker="$host_os dyld" version_type=darwin need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${major}$shared_ext ${libname}$shared_ext' soname_spec='${libname}${release}${major}$shared_ext' shlibpath_overrides_runpath=yes shlibpath_var=DYLD_LIBRARY_PATH shrext_cmds='`test .$module = .yes && echo .so || echo .dylib`' m4_if([$1], [],[ sys_lib_search_path_spec="$sys_lib_search_path_spec /usr/local/lib"]) sys_lib_dlsearch_path_spec='/usr/local/lib /lib /usr/lib' ;; dgux*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname$shared_ext' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; freebsd* | dragonfly*) # DragonFly does not have aout. When/if they implement a new # versioning mechanism, adjust this. if test -x /usr/bin/objformat; then objformat=`/usr/bin/objformat` else case $host_os in freebsd[[23]].*) objformat=aout ;; *) objformat=elf ;; esac fi version_type=freebsd-$objformat case $version_type in freebsd-elf*) library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' need_version=no need_lib_prefix=no ;; freebsd-*) library_names_spec='${libname}${release}${shared_ext}$versuffix $libname${shared_ext}$versuffix' need_version=yes ;; esac shlibpath_var=LD_LIBRARY_PATH case $host_os in freebsd2.*) shlibpath_overrides_runpath=yes ;; freebsd3.[[01]]* | freebsdelf3.[[01]]*) shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; freebsd3.[[2-9]]* | freebsdelf3.[[2-9]]* | \ freebsd4.[[0-5]] | freebsdelf4.[[0-5]] | freebsd4.1.1 | freebsdelf4.1.1) shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; *) # from 4.6 on, and DragonFly shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; esac ;; haiku*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no dynamic_linker="$host_os runtime_loader" library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}${major} ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LIBRARY_PATH shlibpath_overrides_runpath=yes sys_lib_dlsearch_path_spec='/boot/home/config/lib /boot/common/lib /boot/system/lib' hardcode_into_libs=yes ;; hpux9* | hpux10* | hpux11*) # Give a soname corresponding to the major version so that dld.sl refuses to # link against other versions. version_type=sunos need_lib_prefix=no need_version=no case $host_cpu in ia64*) shrext_cmds='.so' hardcode_into_libs=yes dynamic_linker="$host_os dld.so" shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' if test "X$HPUX_IA64_MODE" = X32; then sys_lib_search_path_spec="/usr/lib/hpux32 /usr/local/lib/hpux32 /usr/local/lib" else sys_lib_search_path_spec="/usr/lib/hpux64 /usr/local/lib/hpux64" fi sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; hppa*64*) shrext_cmds='.sl' hardcode_into_libs=yes dynamic_linker="$host_os dld.sl" shlibpath_var=LD_LIBRARY_PATH # How should we handle SHLIB_PATH shlibpath_overrides_runpath=yes # Unless +noenvvar is specified. library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' sys_lib_search_path_spec="/usr/lib/pa20_64 /usr/ccs/lib/pa20_64" sys_lib_dlsearch_path_spec=$sys_lib_search_path_spec ;; *) shrext_cmds='.sl' dynamic_linker="$host_os dld.sl" shlibpath_var=SHLIB_PATH shlibpath_overrides_runpath=no # +s is required to enable SHLIB_PATH library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' ;; esac # HP-UX runs *really* slowly unless shared libraries are mode 555, ... postinstall_cmds='chmod 555 $lib' # or fails outright, so override atomically: install_override_mode=555 ;; interix[[3-9]]*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='Interix 3.x ld.so.1 (PE, like ELF)' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; irix5* | irix6* | nonstopux*) case $host_os in nonstopux*) version_type=nonstopux ;; *) if test "$lt_cv_prog_gnu_ld" = yes; then version_type=linux # correct to gnu/linux during the next big refactor else version_type=irix fi ;; esac need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${release}${shared_ext} $libname${shared_ext}' case $host_os in irix5* | nonstopux*) libsuff= shlibsuff= ;; *) case $LD in # libtool.m4 will add one of these switches to LD *-32|*"-32 "|*-melf32bsmip|*"-melf32bsmip ") libsuff= shlibsuff= libmagic=32-bit;; *-n32|*"-n32 "|*-melf32bmipn32|*"-melf32bmipn32 ") libsuff=32 shlibsuff=N32 libmagic=N32;; *-64|*"-64 "|*-melf64bmip|*"-melf64bmip ") libsuff=64 shlibsuff=64 libmagic=64-bit;; *) libsuff= shlibsuff= libmagic=never-match;; esac ;; esac shlibpath_var=LD_LIBRARY${shlibsuff}_PATH shlibpath_overrides_runpath=no sys_lib_search_path_spec="/usr/lib${libsuff} /lib${libsuff} /usr/local/lib${libsuff}" sys_lib_dlsearch_path_spec="/usr/lib${libsuff} /lib${libsuff}" hardcode_into_libs=yes ;; # No shared lib support for Linux oldld, aout, or coff. linux*oldld* | linux*aout* | linux*coff*) dynamic_linker=no ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' finish_cmds='PATH="\$PATH:/sbin" ldconfig -n $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no # Some binutils ld are patched to set DT_RUNPATH AC_CACHE_VAL([lt_cv_shlibpath_overrides_runpath], [lt_cv_shlibpath_overrides_runpath=no save_LDFLAGS=$LDFLAGS save_libdir=$libdir eval "libdir=/foo; wl=\"$_LT_TAGVAR(lt_prog_compiler_wl, $1)\"; \ LDFLAGS=\"\$LDFLAGS $_LT_TAGVAR(hardcode_libdir_flag_spec, $1)\"" AC_LINK_IFELSE([AC_LANG_PROGRAM([],[])], [AS_IF([ ($OBJDUMP -p conftest$ac_exeext) 2>/dev/null | grep "RUNPATH.*$libdir" >/dev/null], [lt_cv_shlibpath_overrides_runpath=yes])]) LDFLAGS=$save_LDFLAGS libdir=$save_libdir ]) shlibpath_overrides_runpath=$lt_cv_shlibpath_overrides_runpath # This implies no fast_install, which is unacceptable. # Some rework will be needed to allow for fast_install # before this can be enabled. hardcode_into_libs=yes # Append ld.so.conf contents to the search path if test -f /etc/ld.so.conf; then lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \[$]2)); skip = 1; } { if (!skip) print \[$]0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^[ ]*hwcap[ ]/d;s/[:, ]/ /g;s/=[^=]*$//;s/=[^= ]* / /g;s/"//g;/^$/d' | tr '\n' ' '` sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra" fi # We used to test for /lib/ld.so.1 and disable shared libraries on # powerpc, because MkLinux only supported shared libraries with the # GNU dynamic linker. Since this was broken with cross compilers, # most powerpc-linux boxes support dynamic linking these days and # people can always --disable-shared, the test was removed, and we # assume the GNU/Linux dynamic linker is in use. dynamic_linker='GNU/Linux ld.so' ;; netbsdelf*-gnu) version_type=linux need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='NetBSD ld.elf_so' ;; netbsd*) version_type=sunos need_lib_prefix=no need_version=no if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' dynamic_linker='NetBSD (a.out) ld.so' else library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major ${libname}${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' dynamic_linker='NetBSD ld.elf_so' fi shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes ;; newsos6) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes ;; *nto* | *qnx*) version_type=qnx need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes dynamic_linker='ldqnx.so' ;; openbsd*) version_type=sunos sys_lib_dlsearch_path_spec="/usr/lib" need_lib_prefix=no # Some older versions of OpenBSD (3.3 at least) *do* need versioned libs. case $host_os in openbsd3.3 | openbsd3.3.*) need_version=yes ;; *) need_version=no ;; esac library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/sbin" ldconfig -m $libdir' shlibpath_var=LD_LIBRARY_PATH if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then case $host_os in openbsd2.[[89]] | openbsd2.[[89]].*) shlibpath_overrides_runpath=no ;; *) shlibpath_overrides_runpath=yes ;; esac else shlibpath_overrides_runpath=yes fi ;; os2*) libname_spec='$name' shrext_cmds=".dll" need_lib_prefix=no library_names_spec='$libname${shared_ext} $libname.a' dynamic_linker='OS/2 ld.exe' shlibpath_var=LIBPATH ;; osf3* | osf4* | osf5*) version_type=osf need_lib_prefix=no need_version=no soname_spec='${libname}${release}${shared_ext}$major' library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH sys_lib_search_path_spec="/usr/shlib /usr/ccs/lib /usr/lib/cmplrs/cc /usr/lib /usr/local/lib /var/shlib" sys_lib_dlsearch_path_spec="$sys_lib_search_path_spec" ;; rdos*) dynamic_linker=no ;; solaris*) version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes # ldd complains unless libraries are executable postinstall_cmds='chmod +x $lib' ;; sunos4*) version_type=sunos library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${shared_ext}$versuffix' finish_cmds='PATH="\$PATH:/usr/etc" ldconfig $libdir' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes if test "$with_gnu_ld" = yes; then need_lib_prefix=no fi need_version=yes ;; sysv4 | sysv4.3*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH case $host_vendor in sni) shlibpath_overrides_runpath=no need_lib_prefix=no runpath_var=LD_RUN_PATH ;; siemens) need_lib_prefix=no ;; motorola) need_lib_prefix=no need_version=no shlibpath_overrides_runpath=no sys_lib_search_path_spec='/lib /usr/lib /usr/ccs/lib' ;; esac ;; sysv4*MP*) if test -d /usr/nec ;then version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='$libname${shared_ext}.$versuffix $libname${shared_ext}.$major $libname${shared_ext}' soname_spec='$libname${shared_ext}.$major' shlibpath_var=LD_LIBRARY_PATH fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) version_type=freebsd-elf need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext} $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=yes hardcode_into_libs=yes if test "$with_gnu_ld" = yes; then sys_lib_search_path_spec='/usr/local/lib /usr/gnu/lib /usr/ccs/lib /usr/lib /lib' else sys_lib_search_path_spec='/usr/ccs/lib /usr/lib' case $host_os in sco3.2v5*) sys_lib_search_path_spec="$sys_lib_search_path_spec /lib" ;; esac fi sys_lib_dlsearch_path_spec='/usr/lib' ;; tpf*) # TPF is a cross-target only. Preferred cross-host = GNU/Linux. version_type=linux # correct to gnu/linux during the next big refactor need_lib_prefix=no need_version=no library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' shlibpath_var=LD_LIBRARY_PATH shlibpath_overrides_runpath=no hardcode_into_libs=yes ;; uts4*) version_type=linux # correct to gnu/linux during the next big refactor library_names_spec='${libname}${release}${shared_ext}$versuffix ${libname}${release}${shared_ext}$major $libname${shared_ext}' soname_spec='${libname}${release}${shared_ext}$major' shlibpath_var=LD_LIBRARY_PATH ;; *) dynamic_linker=no ;; esac AC_MSG_RESULT([$dynamic_linker]) test "$dynamic_linker" = no && can_build_shared=no variables_saved_for_relink="PATH $shlibpath_var $runpath_var" if test "$GCC" = yes; then variables_saved_for_relink="$variables_saved_for_relink GCC_EXEC_PREFIX COMPILER_PATH LIBRARY_PATH" fi if test "${lt_cv_sys_lib_search_path_spec+set}" = set; then sys_lib_search_path_spec="$lt_cv_sys_lib_search_path_spec" fi if test "${lt_cv_sys_lib_dlsearch_path_spec+set}" = set; then sys_lib_dlsearch_path_spec="$lt_cv_sys_lib_dlsearch_path_spec" fi _LT_DECL([], [variables_saved_for_relink], [1], [Variables whose values should be saved in libtool wrapper scripts and restored at link time]) _LT_DECL([], [need_lib_prefix], [0], [Do we need the "lib" prefix for modules?]) _LT_DECL([], [need_version], [0], [Do we need a version for libraries?]) _LT_DECL([], [version_type], [0], [Library versioning type]) _LT_DECL([], [runpath_var], [0], [Shared library runtime path variable]) _LT_DECL([], [shlibpath_var], [0],[Shared library path variable]) _LT_DECL([], [shlibpath_overrides_runpath], [0], [Is shlibpath searched before the hard-coded library search path?]) _LT_DECL([], [libname_spec], [1], [Format of library name prefix]) _LT_DECL([], [library_names_spec], [1], [[List of archive names. First name is the real one, the rest are links. The last name is the one that the linker finds with -lNAME]]) _LT_DECL([], [soname_spec], [1], [[The coded name of the library, if different from the real name]]) _LT_DECL([], [install_override_mode], [1], [Permission mode override for installation of shared libraries]) _LT_DECL([], [postinstall_cmds], [2], [Command to use after installation of a shared archive]) _LT_DECL([], [postuninstall_cmds], [2], [Command to use after uninstallation of a shared archive]) _LT_DECL([], [finish_cmds], [2], [Commands used to finish a libtool library installation in a directory]) _LT_DECL([], [finish_eval], [1], [[As "finish_cmds", except a single script fragment to be evaled but not shown]]) _LT_DECL([], [hardcode_into_libs], [0], [Whether we should hardcode library paths into libraries]) _LT_DECL([], [sys_lib_search_path_spec], [2], [Compile-time system search path for libraries]) _LT_DECL([], [sys_lib_dlsearch_path_spec], [2], [Run-time system search path for libraries]) ])# _LT_SYS_DYNAMIC_LINKER # _LT_PATH_TOOL_PREFIX(TOOL) # -------------------------- # find a file program which can recognize shared library AC_DEFUN([_LT_PATH_TOOL_PREFIX], [m4_require([_LT_DECL_EGREP])dnl AC_MSG_CHECKING([for $1]) AC_CACHE_VAL(lt_cv_path_MAGIC_CMD, [case $MAGIC_CMD in [[\\/*] | ?:[\\/]*]) lt_cv_path_MAGIC_CMD="$MAGIC_CMD" # Let the user override the test with a path. ;; *) lt_save_MAGIC_CMD="$MAGIC_CMD" lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR dnl $ac_dummy forces splitting on constant user-supplied paths. dnl POSIX.2 word splitting is done only on the output of word expansions, dnl not every word. This closes a longstanding sh security hole. ac_dummy="m4_if([$2], , $PATH, [$2])" for ac_dir in $ac_dummy; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$1; then lt_cv_path_MAGIC_CMD="$ac_dir/$1" if test -n "$file_magic_test_file"; then case $deplibs_check_method in "file_magic "*) file_magic_regex=`expr "$deplibs_check_method" : "file_magic \(.*\)"` MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if eval $file_magic_cmd \$file_magic_test_file 2> /dev/null | $EGREP "$file_magic_regex" > /dev/null; then : else cat <<_LT_EOF 1>&2 *** Warning: the command libtool uses to detect shared libraries, *** $file_magic_cmd, produces output that libtool cannot recognize. *** The result is that libtool may fail to recognize shared libraries *** as such. This will affect the creation of libtool libraries that *** depend on shared libraries, but programs linked with such libtool *** libraries will work regardless of this problem. Nevertheless, you *** may want to report the problem to your system manager and/or to *** bug-libtool@gnu.org _LT_EOF fi ;; esac fi break fi done IFS="$lt_save_ifs" MAGIC_CMD="$lt_save_MAGIC_CMD" ;; esac]) MAGIC_CMD="$lt_cv_path_MAGIC_CMD" if test -n "$MAGIC_CMD"; then AC_MSG_RESULT($MAGIC_CMD) else AC_MSG_RESULT(no) fi _LT_DECL([], [MAGIC_CMD], [0], [Used to examine libraries when file_magic_cmd begins with "file"])dnl ])# _LT_PATH_TOOL_PREFIX # Old name: AU_ALIAS([AC_PATH_TOOL_PREFIX], [_LT_PATH_TOOL_PREFIX]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_PATH_TOOL_PREFIX], []) # _LT_PATH_MAGIC # -------------- # find a file program which can recognize a shared library m4_defun([_LT_PATH_MAGIC], [_LT_PATH_TOOL_PREFIX(${ac_tool_prefix}file, /usr/bin$PATH_SEPARATOR$PATH) if test -z "$lt_cv_path_MAGIC_CMD"; then if test -n "$ac_tool_prefix"; then _LT_PATH_TOOL_PREFIX(file, /usr/bin$PATH_SEPARATOR$PATH) else MAGIC_CMD=: fi fi ])# _LT_PATH_MAGIC # LT_PATH_LD # ---------- # find the pathname to the GNU or non-GNU linker AC_DEFUN([LT_PATH_LD], [AC_REQUIRE([AC_PROG_CC])dnl AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_CANONICAL_BUILD])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_PROG_ECHO_BACKSLASH])dnl AC_ARG_WITH([gnu-ld], [AS_HELP_STRING([--with-gnu-ld], [assume the C compiler uses GNU ld @<:@default=no@:>@])], [test "$withval" = no || with_gnu_ld=yes], [with_gnu_ld=no])dnl ac_prog=ld if test "$GCC" = yes; then # Check if gcc -print-prog-name=ld gives a path. AC_MSG_CHECKING([for ld used by $CC]) case $host in *-*-mingw*) # gcc leaves a trailing carriage return which upsets mingw ac_prog=`($CC -print-prog-name=ld) 2>&5 | tr -d '\015'` ;; *) ac_prog=`($CC -print-prog-name=ld) 2>&5` ;; esac case $ac_prog in # Accept absolute paths. [[\\/]]* | ?:[[\\/]]*) re_direlt='/[[^/]][[^/]]*/\.\./' # Canonicalize the pathname of ld ac_prog=`$ECHO "$ac_prog"| $SED 's%\\\\%/%g'` while $ECHO "$ac_prog" | $GREP "$re_direlt" > /dev/null 2>&1; do ac_prog=`$ECHO $ac_prog| $SED "s%$re_direlt%/%"` done test -z "$LD" && LD="$ac_prog" ;; "") # If it fails, then pretend we aren't using GCC. ac_prog=ld ;; *) # If it is relative, then search for the first ld in PATH. with_gnu_ld=unknown ;; esac elif test "$with_gnu_ld" = yes; then AC_MSG_CHECKING([for GNU ld]) else AC_MSG_CHECKING([for non-GNU ld]) fi AC_CACHE_VAL(lt_cv_path_LD, [if test -z "$LD"; then lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. if test -f "$ac_dir/$ac_prog" || test -f "$ac_dir/$ac_prog$ac_exeext"; then lt_cv_path_LD="$ac_dir/$ac_prog" # Check to see if the program is GNU ld. I'd rather use --version, # but apparently some variants of GNU ld only accept -v. # Break only if it was the GNU/non-GNU ld that we prefer. case `"$lt_cv_path_LD" -v 2>&1 &1 /dev/null 2>&1; then lt_cv_deplibs_check_method='file_magic ^x86 archive import|^x86 DLL' lt_cv_file_magic_cmd='func_win32_libid' else # Keep this pattern in sync with the one in func_win32_libid. lt_cv_deplibs_check_method='file_magic file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' lt_cv_file_magic_cmd='$OBJDUMP -f' fi ;; cegcc*) # use the weaker test based on 'objdump'. See mingw*. lt_cv_deplibs_check_method='file_magic file format pe-arm-.*little(.*architecture: arm)?' lt_cv_file_magic_cmd='$OBJDUMP -f' ;; darwin* | rhapsody*) lt_cv_deplibs_check_method=pass_all ;; freebsd* | dragonfly*) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then case $host_cpu in i*86 ) # Not sure whether the presence of OpenBSD here was a mistake. # Let's accept both of them until this is cleared up. lt_cv_deplibs_check_method='file_magic (FreeBSD|OpenBSD|DragonFly)/i[[3-9]]86 (compact )?demand paged shared library' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=`echo /usr/lib/libc.so.*` ;; esac else lt_cv_deplibs_check_method=pass_all fi ;; haiku*) lt_cv_deplibs_check_method=pass_all ;; hpux10.20* | hpux11*) lt_cv_file_magic_cmd=/usr/bin/file case $host_cpu in ia64*) lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|ELF-[[0-9]][[0-9]]) shared object file - IA64' lt_cv_file_magic_test_file=/usr/lib/hpux32/libc.so ;; hppa*64*) [lt_cv_deplibs_check_method='file_magic (s[0-9][0-9][0-9]|ELF[ -][0-9][0-9])(-bit)?( [LM]SB)? shared object( file)?[, -]* PA-RISC [0-9]\.[0-9]'] lt_cv_file_magic_test_file=/usr/lib/pa20_64/libc.sl ;; *) lt_cv_deplibs_check_method='file_magic (s[[0-9]][[0-9]][[0-9]]|PA-RISC[[0-9]]\.[[0-9]]) shared library' lt_cv_file_magic_test_file=/usr/lib/libc.sl ;; esac ;; interix[[3-9]]*) # PIC code is broken on Interix 3.x, that's why |\.a not |_pic\.a here lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|\.a)$' ;; irix5* | irix6* | nonstopux*) case $LD in *-32|*"-32 ") libmagic=32-bit;; *-n32|*"-n32 ") libmagic=N32;; *-64|*"-64 ") libmagic=64-bit;; *) libmagic=never-match;; esac lt_cv_deplibs_check_method=pass_all ;; # This must be glibc/ELF. linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) lt_cv_deplibs_check_method=pass_all ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ > /dev/null; then lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so|_pic\.a)$' fi ;; newos6*) lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (executable|dynamic lib)' lt_cv_file_magic_cmd=/usr/bin/file lt_cv_file_magic_test_file=/usr/lib/libnls.so ;; *nto* | *qnx*) lt_cv_deplibs_check_method=pass_all ;; openbsd*) if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|\.so|_pic\.a)$' else lt_cv_deplibs_check_method='match_pattern /lib[[^/]]+(\.so\.[[0-9]]+\.[[0-9]]+|_pic\.a)$' fi ;; osf3* | osf4* | osf5*) lt_cv_deplibs_check_method=pass_all ;; rdos*) lt_cv_deplibs_check_method=pass_all ;; solaris*) lt_cv_deplibs_check_method=pass_all ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX* | sysv4*uw2*) lt_cv_deplibs_check_method=pass_all ;; sysv4 | sysv4.3*) case $host_vendor in motorola) lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[ML]]SB (shared object|dynamic lib) M[[0-9]][[0-9]]* Version [[0-9]]' lt_cv_file_magic_test_file=`echo /usr/lib/libc.so*` ;; ncr) lt_cv_deplibs_check_method=pass_all ;; sequent) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method='file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB (shared object|dynamic lib )' ;; sni) lt_cv_file_magic_cmd='/bin/file' lt_cv_deplibs_check_method="file_magic ELF [[0-9]][[0-9]]*-bit [[LM]]SB dynamic lib" lt_cv_file_magic_test_file=/lib/libc.so ;; siemens) lt_cv_deplibs_check_method=pass_all ;; pc) lt_cv_deplibs_check_method=pass_all ;; esac ;; tpf*) lt_cv_deplibs_check_method=pass_all ;; esac ]) file_magic_glob= want_nocaseglob=no if test "$build" = "$host"; then case $host_os in mingw* | pw32*) if ( shopt | grep nocaseglob ) >/dev/null 2>&1; then want_nocaseglob=yes else file_magic_glob=`echo aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ | $SED -e "s/\(..\)/s\/[[\1]]\/[[\1]]\/g;/g"` fi ;; esac fi file_magic_cmd=$lt_cv_file_magic_cmd deplibs_check_method=$lt_cv_deplibs_check_method test -z "$deplibs_check_method" && deplibs_check_method=unknown _LT_DECL([], [deplibs_check_method], [1], [Method to check whether dependent libraries are shared objects]) _LT_DECL([], [file_magic_cmd], [1], [Command to use when deplibs_check_method = "file_magic"]) _LT_DECL([], [file_magic_glob], [1], [How to find potential files when deplibs_check_method = "file_magic"]) _LT_DECL([], [want_nocaseglob], [1], [Find potential files using nocaseglob when deplibs_check_method = "file_magic"]) ])# _LT_CHECK_MAGIC_METHOD # LT_PATH_NM # ---------- # find the pathname to a BSD- or MS-compatible name lister AC_DEFUN([LT_PATH_NM], [AC_REQUIRE([AC_PROG_CC])dnl AC_CACHE_CHECK([for BSD- or MS-compatible name lister (nm)], lt_cv_path_NM, [if test -n "$NM"; then # Let the user override the test. lt_cv_path_NM="$NM" else lt_nm_to_check="${ac_tool_prefix}nm" if test -n "$ac_tool_prefix" && test "$build" = "$host"; then lt_nm_to_check="$lt_nm_to_check nm" fi for lt_tmp_nm in $lt_nm_to_check; do lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR for ac_dir in $PATH /usr/ccs/bin/elf /usr/ccs/bin /usr/ucb /bin; do IFS="$lt_save_ifs" test -z "$ac_dir" && ac_dir=. tmp_nm="$ac_dir/$lt_tmp_nm" if test -f "$tmp_nm" || test -f "$tmp_nm$ac_exeext" ; then # Check to see if the nm accepts a BSD-compat flag. # Adding the `sed 1q' prevents false positives on HP-UX, which says: # nm: unknown option "B" ignored # Tru64's nm complains that /dev/null is an invalid object file case `"$tmp_nm" -B /dev/null 2>&1 | sed '1q'` in */dev/null* | *'Invalid file or object type'*) lt_cv_path_NM="$tmp_nm -B" break ;; *) case `"$tmp_nm" -p /dev/null 2>&1 | sed '1q'` in */dev/null*) lt_cv_path_NM="$tmp_nm -p" break ;; *) lt_cv_path_NM=${lt_cv_path_NM="$tmp_nm"} # keep the first match, but continue # so that we can try to find one that supports BSD flags ;; esac ;; esac fi done IFS="$lt_save_ifs" done : ${lt_cv_path_NM=no} fi]) if test "$lt_cv_path_NM" != "no"; then NM="$lt_cv_path_NM" else # Didn't find any BSD compatible name lister, look for dumpbin. if test -n "$DUMPBIN"; then : # Let the user override the test. else AC_CHECK_TOOLS(DUMPBIN, [dumpbin "link -dump"], :) case `$DUMPBIN -symbols /dev/null 2>&1 | sed '1q'` in *COFF*) DUMPBIN="$DUMPBIN -symbols" ;; *) DUMPBIN=: ;; esac fi AC_SUBST([DUMPBIN]) if test "$DUMPBIN" != ":"; then NM="$DUMPBIN" fi fi test -z "$NM" && NM=nm AC_SUBST([NM]) _LT_DECL([], [NM], [1], [A BSD- or MS-compatible name lister])dnl AC_CACHE_CHECK([the name lister ($NM) interface], [lt_cv_nm_interface], [lt_cv_nm_interface="BSD nm" echo "int some_variable = 0;" > conftest.$ac_ext (eval echo "\"\$as_me:$LINENO: $ac_compile\"" >&AS_MESSAGE_LOG_FD) (eval "$ac_compile" 2>conftest.err) cat conftest.err >&AS_MESSAGE_LOG_FD (eval echo "\"\$as_me:$LINENO: $NM \\\"conftest.$ac_objext\\\"\"" >&AS_MESSAGE_LOG_FD) (eval "$NM \"conftest.$ac_objext\"" 2>conftest.err > conftest.out) cat conftest.err >&AS_MESSAGE_LOG_FD (eval echo "\"\$as_me:$LINENO: output\"" >&AS_MESSAGE_LOG_FD) cat conftest.out >&AS_MESSAGE_LOG_FD if $GREP 'External.*some_variable' conftest.out > /dev/null; then lt_cv_nm_interface="MS dumpbin" fi rm -f conftest*]) ])# LT_PATH_NM # Old names: AU_ALIAS([AM_PROG_NM], [LT_PATH_NM]) AU_ALIAS([AC_PROG_NM], [LT_PATH_NM]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AM_PROG_NM], []) dnl AC_DEFUN([AC_PROG_NM], []) # _LT_CHECK_SHAREDLIB_FROM_LINKLIB # -------------------------------- # how to determine the name of the shared library # associated with a specific link library. # -- PORTME fill in with the dynamic library characteristics m4_defun([_LT_CHECK_SHAREDLIB_FROM_LINKLIB], [m4_require([_LT_DECL_EGREP]) m4_require([_LT_DECL_OBJDUMP]) m4_require([_LT_DECL_DLLTOOL]) AC_CACHE_CHECK([how to associate runtime and link libraries], lt_cv_sharedlib_from_linklib_cmd, [lt_cv_sharedlib_from_linklib_cmd='unknown' case $host_os in cygwin* | mingw* | pw32* | cegcc*) # two different shell functions defined in ltmain.sh # decide which to use based on capabilities of $DLLTOOL case `$DLLTOOL --help 2>&1` in *--identify-strict*) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib ;; *) lt_cv_sharedlib_from_linklib_cmd=func_cygming_dll_for_implib_fallback ;; esac ;; *) # fallback: assume linklib IS sharedlib lt_cv_sharedlib_from_linklib_cmd="$ECHO" ;; esac ]) sharedlib_from_linklib_cmd=$lt_cv_sharedlib_from_linklib_cmd test -z "$sharedlib_from_linklib_cmd" && sharedlib_from_linklib_cmd=$ECHO _LT_DECL([], [sharedlib_from_linklib_cmd], [1], [Command to associate shared and link libraries]) ])# _LT_CHECK_SHAREDLIB_FROM_LINKLIB # _LT_PATH_MANIFEST_TOOL # ---------------------- # locate the manifest tool m4_defun([_LT_PATH_MANIFEST_TOOL], [AC_CHECK_TOOL(MANIFEST_TOOL, mt, :) test -z "$MANIFEST_TOOL" && MANIFEST_TOOL=mt AC_CACHE_CHECK([if $MANIFEST_TOOL is a manifest tool], [lt_cv_path_mainfest_tool], [lt_cv_path_mainfest_tool=no echo "$as_me:$LINENO: $MANIFEST_TOOL '-?'" >&AS_MESSAGE_LOG_FD $MANIFEST_TOOL '-?' 2>conftest.err > conftest.out cat conftest.err >&AS_MESSAGE_LOG_FD if $GREP 'Manifest Tool' conftest.out > /dev/null; then lt_cv_path_mainfest_tool=yes fi rm -f conftest*]) if test "x$lt_cv_path_mainfest_tool" != xyes; then MANIFEST_TOOL=: fi _LT_DECL([], [MANIFEST_TOOL], [1], [Manifest tool])dnl ])# _LT_PATH_MANIFEST_TOOL # LT_LIB_M # -------- # check for math library AC_DEFUN([LT_LIB_M], [AC_REQUIRE([AC_CANONICAL_HOST])dnl LIBM= case $host in *-*-beos* | *-*-cegcc* | *-*-cygwin* | *-*-haiku* | *-*-pw32* | *-*-darwin*) # These system don't have libm, or don't need it ;; *-ncr-sysv4.3*) AC_CHECK_LIB(mw, _mwvalidcheckl, LIBM="-lmw") AC_CHECK_LIB(m, cos, LIBM="$LIBM -lm") ;; *) AC_CHECK_LIB(m, cos, LIBM="-lm") ;; esac AC_SUBST([LIBM]) ])# LT_LIB_M # Old name: AU_ALIAS([AC_CHECK_LIBM], [LT_LIB_M]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([AC_CHECK_LIBM], []) # _LT_COMPILER_NO_RTTI([TAGNAME]) # ------------------------------- m4_defun([_LT_COMPILER_NO_RTTI], [m4_require([_LT_TAG_COMPILER])dnl _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)= if test "$GCC" = yes; then case $cc_basename in nvcc*) _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -Xcompiler -fno-builtin' ;; *) _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' ;; esac _LT_COMPILER_OPTION([if $compiler supports -fno-rtti -fno-exceptions], lt_cv_prog_compiler_rtti_exceptions, [-fno-rtti -fno-exceptions], [], [_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)="$_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1) -fno-rtti -fno-exceptions"]) fi _LT_TAGDECL([no_builtin_flag], [lt_prog_compiler_no_builtin_flag], [1], [Compiler flag to turn off builtin functions]) ])# _LT_COMPILER_NO_RTTI # _LT_CMD_GLOBAL_SYMBOLS # ---------------------- m4_defun([_LT_CMD_GLOBAL_SYMBOLS], [AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_PROG_CC])dnl AC_REQUIRE([AC_PROG_AWK])dnl AC_REQUIRE([LT_PATH_NM])dnl AC_REQUIRE([LT_PATH_LD])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_TAG_COMPILER])dnl # Check for command to grab the raw symbol name followed by C symbol from nm. AC_MSG_CHECKING([command to parse $NM output from $compiler object]) AC_CACHE_VAL([lt_cv_sys_global_symbol_pipe], [ # These are sane defaults that work on at least a few old systems. # [They come from Ultrix. What could be older than Ultrix?!! ;)] # Character class describing NM global symbol codes. symcode='[[BCDEGRST]]' # Regexp to match symbols that can be accessed directly from C. sympat='\([[_A-Za-z]][[_A-Za-z0-9]]*\)' # Define system-specific variables. case $host_os in aix*) symcode='[[BCDT]]' ;; cygwin* | mingw* | pw32* | cegcc*) symcode='[[ABCDGISTW]]' ;; hpux*) if test "$host_cpu" = ia64; then symcode='[[ABCDEGRST]]' fi ;; irix* | nonstopux*) symcode='[[BCDEGRST]]' ;; osf*) symcode='[[BCDEGQRST]]' ;; solaris*) symcode='[[BDRT]]' ;; sco3.2v5*) symcode='[[DT]]' ;; sysv4.2uw2*) symcode='[[DT]]' ;; sysv5* | sco5v6* | unixware* | OpenUNIX*) symcode='[[ABDT]]' ;; sysv4) symcode='[[DFNSTU]]' ;; esac # If we're using GNU nm, then use its standard symbol codes. case `$NM -V 2>&1` in *GNU* | *'with BFD'*) symcode='[[ABCDGIRSTW]]' ;; esac # Transform an extracted symbol line into a proper C declaration. # Some systems (esp. on ia64) link data and code symbols differently, # so use this general approach. lt_cv_sys_global_symbol_to_cdecl="sed -n -e 's/^T .* \(.*\)$/extern int \1();/p' -e 's/^$symcode* .* \(.*\)$/extern char \1;/p'" # Transform an extracted symbol line into symbol name and symbol address lt_cv_sys_global_symbol_to_c_name_address="sed -n -e 's/^: \([[^ ]]*\)[[ ]]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"\2\", (void *) \&\2},/p'" lt_cv_sys_global_symbol_to_c_name_address_lib_prefix="sed -n -e 's/^: \([[^ ]]*\)[[ ]]*$/ {\\\"\1\\\", (void *) 0},/p' -e 's/^$symcode* \([[^ ]]*\) \(lib[[^ ]]*\)$/ {\"\2\", (void *) \&\2},/p' -e 's/^$symcode* \([[^ ]]*\) \([[^ ]]*\)$/ {\"lib\2\", (void *) \&\2},/p'" # Handle CRLF in mingw tool chain opt_cr= case $build_os in mingw*) opt_cr=`$ECHO 'x\{0,1\}' | tr x '\015'` # option cr in regexp ;; esac # Try without a prefix underscore, then with it. for ac_symprfx in "" "_"; do # Transform symcode, sympat, and symprfx into a raw symbol and a C symbol. symxfrm="\\1 $ac_symprfx\\2 \\2" # Write the raw and C identifiers. if test "$lt_cv_nm_interface" = "MS dumpbin"; then # Fake it for dumpbin and say T for any non-static function # and D for any global variable. # Also find C++ and __fastcall symbols from MSVC++, # which start with @ or ?. lt_cv_sys_global_symbol_pipe="$AWK ['"\ " {last_section=section; section=\$ 3};"\ " /^COFF SYMBOL TABLE/{for(i in hide) delete hide[i]};"\ " /Section length .*#relocs.*(pick any)/{hide[last_section]=1};"\ " \$ 0!~/External *\|/{next};"\ " / 0+ UNDEF /{next}; / UNDEF \([^|]\)*()/{next};"\ " {if(hide[section]) next};"\ " {f=0}; \$ 0~/\(\).*\|/{f=1}; {printf f ? \"T \" : \"D \"};"\ " {split(\$ 0, a, /\||\r/); split(a[2], s)};"\ " s[1]~/^[@?]/{print s[1], s[1]; next};"\ " s[1]~prfx {split(s[1],t,\"@\"); print t[1], substr(t[1],length(prfx))}"\ " ' prfx=^$ac_symprfx]" else lt_cv_sys_global_symbol_pipe="sed -n -e 's/^.*[[ ]]\($symcode$symcode*\)[[ ]][[ ]]*$ac_symprfx$sympat$opt_cr$/$symxfrm/p'" fi lt_cv_sys_global_symbol_pipe="$lt_cv_sys_global_symbol_pipe | sed '/ __gnu_lto/d'" # Check to see that the pipe works correctly. pipe_works=no rm -f conftest* cat > conftest.$ac_ext <<_LT_EOF #ifdef __cplusplus extern "C" { #endif char nm_test_var; void nm_test_func(void); void nm_test_func(void){} #ifdef __cplusplus } #endif int main(){nm_test_var='a';nm_test_func();return(0);} _LT_EOF if AC_TRY_EVAL(ac_compile); then # Now try to grab the symbols. nlist=conftest.nm if AC_TRY_EVAL(NM conftest.$ac_objext \| "$lt_cv_sys_global_symbol_pipe" \> $nlist) && test -s "$nlist"; then # Try sorting and uniquifying the output. if sort "$nlist" | uniq > "$nlist"T; then mv -f "$nlist"T "$nlist" else rm -f "$nlist"T fi # Make sure that we snagged all the symbols we need. if $GREP ' nm_test_var$' "$nlist" >/dev/null; then if $GREP ' nm_test_func$' "$nlist" >/dev/null; then cat <<_LT_EOF > conftest.$ac_ext /* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ #if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE) /* DATA imports from DLLs on WIN32 con't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs. */ # define LT@&t@_DLSYM_CONST #elif defined(__osf__) /* This system does not cope well with relocations in const data. */ # define LT@&t@_DLSYM_CONST #else # define LT@&t@_DLSYM_CONST const #endif #ifdef __cplusplus extern "C" { #endif _LT_EOF # Now generate the symbol file. eval "$lt_cv_sys_global_symbol_to_cdecl"' < "$nlist" | $GREP -v main >> conftest.$ac_ext' cat <<_LT_EOF >> conftest.$ac_ext /* The mapping between symbol names and symbols. */ LT@&t@_DLSYM_CONST struct { const char *name; void *address; } lt__PROGRAM__LTX_preloaded_symbols[[]] = { { "@PROGRAM@", (void *) 0 }, _LT_EOF $SED "s/^$symcode$symcode* \(.*\) \(.*\)$/ {\"\2\", (void *) \&\2},/" < "$nlist" | $GREP -v main >> conftest.$ac_ext cat <<\_LT_EOF >> conftest.$ac_ext {0, (void *) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt__PROGRAM__LTX_preloaded_symbols; } #endif #ifdef __cplusplus } #endif _LT_EOF # Now try linking the two files. mv conftest.$ac_objext conftstm.$ac_objext lt_globsym_save_LIBS=$LIBS lt_globsym_save_CFLAGS=$CFLAGS LIBS="conftstm.$ac_objext" CFLAGS="$CFLAGS$_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)" if AC_TRY_EVAL(ac_link) && test -s conftest${ac_exeext}; then pipe_works=yes fi LIBS=$lt_globsym_save_LIBS CFLAGS=$lt_globsym_save_CFLAGS else echo "cannot find nm_test_func in $nlist" >&AS_MESSAGE_LOG_FD fi else echo "cannot find nm_test_var in $nlist" >&AS_MESSAGE_LOG_FD fi else echo "cannot run $lt_cv_sys_global_symbol_pipe" >&AS_MESSAGE_LOG_FD fi else echo "$progname: failed program was:" >&AS_MESSAGE_LOG_FD cat conftest.$ac_ext >&5 fi rm -rf conftest* conftst* # Do not use the global_symbol_pipe unless it works. if test "$pipe_works" = yes; then break else lt_cv_sys_global_symbol_pipe= fi done ]) if test -z "$lt_cv_sys_global_symbol_pipe"; then lt_cv_sys_global_symbol_to_cdecl= fi if test -z "$lt_cv_sys_global_symbol_pipe$lt_cv_sys_global_symbol_to_cdecl"; then AC_MSG_RESULT(failed) else AC_MSG_RESULT(ok) fi # Response file support. if test "$lt_cv_nm_interface" = "MS dumpbin"; then nm_file_list_spec='@' elif $NM --help 2>/dev/null | grep '[[@]]FILE' >/dev/null; then nm_file_list_spec='@' fi _LT_DECL([global_symbol_pipe], [lt_cv_sys_global_symbol_pipe], [1], [Take the output of nm and produce a listing of raw symbols and C names]) _LT_DECL([global_symbol_to_cdecl], [lt_cv_sys_global_symbol_to_cdecl], [1], [Transform the output of nm in a proper C declaration]) _LT_DECL([global_symbol_to_c_name_address], [lt_cv_sys_global_symbol_to_c_name_address], [1], [Transform the output of nm in a C name address pair]) _LT_DECL([global_symbol_to_c_name_address_lib_prefix], [lt_cv_sys_global_symbol_to_c_name_address_lib_prefix], [1], [Transform the output of nm in a C name address pair when lib prefix is needed]) _LT_DECL([], [nm_file_list_spec], [1], [Specify filename containing input files for $NM]) ]) # _LT_CMD_GLOBAL_SYMBOLS # _LT_COMPILER_PIC([TAGNAME]) # --------------------------- m4_defun([_LT_COMPILER_PIC], [m4_require([_LT_TAG_COMPILER])dnl _LT_TAGVAR(lt_prog_compiler_wl, $1)= _LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_static, $1)= m4_if([$1], [CXX], [ # C++ specific cases for pic, static, wl, etc. if test "$GXX" = yes; then _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | os2* | pw32* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' ;; *djgpp*) # DJGPP does not support shared libraries at all _LT_TAGVAR(lt_prog_compiler_pic, $1)= ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. _LT_TAGVAR(lt_prog_compiler_static, $1)= ;; interix[[3-9]]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; sysv4*MP*) if test -d /usr/nec; then _LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic fi ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac ;; *qnx* | *nto*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac else case $host_os in aix[[4-9]]*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' else _LT_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp' fi ;; chorus*) case $cc_basename in cxch68*) # Green Hills C++ Compiler # _LT_TAGVAR(lt_prog_compiler_static, $1)="--no_auto_instantiation -u __main -u __premain -u _abort -r $COOL_DIR/lib/libOrb.a $MVME_DIR/lib/CC/libC.a $MVME_DIR/lib/classix/libcx.s.a" ;; esac ;; mingw* | cygwin* | os2* | pw32* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; dgux*) case $cc_basename in ec++*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' ;; ghcx*) # Green Hills C++ Compiler _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' ;; *) ;; esac ;; freebsd* | dragonfly*) # FreeBSD uses GNU C++ ;; hpux9* | hpux10* | hpux11*) case $cc_basename in CC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive' if test "$host_cpu" != ia64; then _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' fi ;; aCC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive' case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' ;; esac ;; *) ;; esac ;; interix*) # This is c89, which is MS Visual C++ (no shared libs) # Anyone wants to do a port? ;; irix5* | irix6* | nonstopux*) case $cc_basename in CC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' # CC pic flag -KPIC is the default. ;; *) ;; esac ;; linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) case $cc_basename in KCC*) # KAI C++ Compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; ecpc* ) # old Intel C++ for x86_64 which still supported -KPIC. _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; icpc* ) # Intel C++, used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; pgCC* | pgcpp*) # Portland Group C++ compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; cxx*) # Compaq C++ # Make sure the PIC flag is empty. It appears that all Alpha # Linux and Compaq Tru64 Unix objects are PIC. _LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; xlc* | xlC* | bgxl[[cC]]* | mpixl[[cC]]*) # IBM XL 8.0, 9.0 on PPC and BlueGene _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-qpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' ;; esac ;; esac ;; lynxos*) ;; m88k*) ;; mvs*) case $cc_basename in cxx*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-W c,exportall' ;; *) ;; esac ;; netbsd* | netbsdelf*-gnu) ;; *qnx* | *nto*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; osf3* | osf4* | osf5*) case $cc_basename in KCC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='--backend -Wl,' ;; RCC*) # Rational C++ 2.4.1 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' ;; cxx*) # Digital/Compaq C++ _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # Make sure the PIC flag is empty. It appears that all Alpha # Linux and Compaq Tru64 Unix objects are PIC. _LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; *) ;; esac ;; psos*) ;; solaris*) case $cc_basename in CC* | sunCC*) # Sun C++ 4.2, 5.x and Centerline C++ _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' ;; gcx*) # Green Hills C++ Compiler _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' ;; *) ;; esac ;; sunos4*) case $cc_basename in CC*) # Sun C++ 4.x _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; lcc*) # Lucid _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' ;; *) ;; esac ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) case $cc_basename in CC*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; esac ;; tandem*) case $cc_basename in NCC*) # NonStop-UX NCC 3.20 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' ;; *) ;; esac ;; vxworks*) ;; *) _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no ;; esac fi ], [ if test "$GCC" = yes; then _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' case $host_os in aix*) # All AIX code is PIC. if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; m68k) # FIXME: we need at least 68020 code to build shared libraries, but # adding the `-m68020' flag to GCC prevents building anything better, # like `-m68040'. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-m68020 -resident32 -malways-restore-a4' ;; esac ;; beos* | irix5* | irix6* | nonstopux* | osf3* | osf4* | osf5*) # PIC is the default for these OSes. ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). # Although the cygwin gcc ignores -fPIC, still need this for old-style # (--disable-auto-import) libraries m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; darwin* | rhapsody*) # PIC is the default on this platform # Common symbols not allowed in MH_DYLIB files _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fno-common' ;; haiku*) # PIC is the default for Haiku. # The "-static" flag exists, but is broken. _LT_TAGVAR(lt_prog_compiler_static, $1)= ;; hpux*) # PIC is the default for 64-bit PA HP-UX, but not for 32-bit # PA HP-UX. On IA64 HP-UX, PIC is the default but the pic flag # sets the default TLS model and affects inlining. case $host_cpu in hppa*64*) # +Z the default ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac ;; interix[[3-9]]*) # Interix 3.x gcc -fpic/-fPIC options generate broken code. # Instead, we relocate shared libraries at runtime. ;; msdosdjgpp*) # Just because we use GCC doesn't mean we suddenly get shared libraries # on systems that don't support them. _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no enable_shared=no ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; sysv4*MP*) if test -d /usr/nec; then _LT_TAGVAR(lt_prog_compiler_pic, $1)=-Kconform_pic fi ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' ;; esac case $cc_basename in nvcc*) # Cuda Compiler Driver 2.2 _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Xlinker ' if test -n "$_LT_TAGVAR(lt_prog_compiler_pic, $1)"; then _LT_TAGVAR(lt_prog_compiler_pic, $1)="-Xcompiler $_LT_TAGVAR(lt_prog_compiler_pic, $1)" fi ;; esac else # PORTME Check for flag to pass linker flags through the system compiler. case $host_os in aix*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' if test "$host_cpu" = ia64; then # AIX 5 now supports IA64 processor _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' else _LT_TAGVAR(lt_prog_compiler_static, $1)='-bnso -bI:/lib/syscalls.exp' fi ;; mingw* | cygwin* | pw32* | os2* | cegcc*) # This hack is so that the source file can tell whether it is being # built for inclusion in a dll (and should export symbols for example). m4_if([$1], [GCJ], [], [_LT_TAGVAR(lt_prog_compiler_pic, $1)='-DDLL_EXPORT']) ;; hpux9* | hpux10* | hpux11*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # PIC is the default for IA64 HP-UX and 64-bit HP-UX, but # not for PA HP-UX. case $host_cpu in hppa*64*|ia64*) # +Z the default ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)='+Z' ;; esac # Is there a better lt_prog_compiler_static that works with the bundled CC? _LT_TAGVAR(lt_prog_compiler_static, $1)='${wl}-a ${wl}archive' ;; irix5* | irix6* | nonstopux*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # PIC (with -KPIC) is the default. _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) case $cc_basename in # old Intel for x86_64 which still supported -KPIC. ecc*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; # icc used to be incompatible with GCC. # ICC 10 doesn't accept -KPIC any more. icc* | ifort*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; # Lahey Fortran 8.1. lf95*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='--shared' _LT_TAGVAR(lt_prog_compiler_static, $1)='--static' ;; nagfor*) # NAG Fortran compiler _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,-Wl,,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; pgcc* | pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group compilers (*not* the Pentium gcc compiler, # which looks to be a dead project) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; ccc*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # All Alpha code is PIC. _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; xl* | bgxl* | bgf* | mpixl*) # IBM XL C 8.0/Fortran 10.1, 11.1 on PPC and BlueGene _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-qpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-qstaticlink' ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ Ceres\ Fortran* | *Sun*Fortran*\ [[1-7]].* | *Sun*Fortran*\ 8.[[0-3]]*) # Sun Fortran 8.3 passes all unrecognized flags to the linker _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='' ;; *Sun\ F* | *Sun*Fortran*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' ;; *Sun\ C*) # Sun C 5.9 _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' ;; *Intel*\ [[CF]]*Compiler*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-static' ;; *Portland\ Group*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fpic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; esac ;; esac ;; newsos6) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; *nto* | *qnx*) # QNX uses GNU C++, but need to define -shared option too, otherwise # it will coredump. _LT_TAGVAR(lt_prog_compiler_pic, $1)='-fPIC -shared' ;; osf3* | osf4* | osf5*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' # All OSF/1 code is PIC. _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; rdos*) _LT_TAGVAR(lt_prog_compiler_static, $1)='-non_shared' ;; solaris*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' case $cc_basename in f77* | f90* | f95* | sunf77* | sunf90* | sunf95*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ';; *) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,';; esac ;; sunos4*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Qoption ld ' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-PIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; sysv4 | sysv4.2uw2* | sysv4.3*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; sysv4*MP*) if test -d /usr/nec ;then _LT_TAGVAR(lt_prog_compiler_pic, $1)='-Kconform_pic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' fi ;; sysv5* | unixware* | sco3.2v5* | sco5v6* | OpenUNIX*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; unicos*) _LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,' _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no ;; uts4*) _LT_TAGVAR(lt_prog_compiler_pic, $1)='-pic' _LT_TAGVAR(lt_prog_compiler_static, $1)='-Bstatic' ;; *) _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no ;; esac fi ]) case $host_os in # For platforms which do not support PIC, -DPIC is meaningless: *djgpp*) _LT_TAGVAR(lt_prog_compiler_pic, $1)= ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)="$_LT_TAGVAR(lt_prog_compiler_pic, $1)@&t@m4_if([$1],[],[ -DPIC],[m4_if([$1],[CXX],[ -DPIC],[])])" ;; esac AC_CACHE_CHECK([for $compiler option to produce PIC], [_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)], [_LT_TAGVAR(lt_cv_prog_compiler_pic, $1)=$_LT_TAGVAR(lt_prog_compiler_pic, $1)]) _LT_TAGVAR(lt_prog_compiler_pic, $1)=$_LT_TAGVAR(lt_cv_prog_compiler_pic, $1) # # Check to make sure the PIC flag actually works. # if test -n "$_LT_TAGVAR(lt_prog_compiler_pic, $1)"; then _LT_COMPILER_OPTION([if $compiler PIC flag $_LT_TAGVAR(lt_prog_compiler_pic, $1) works], [_LT_TAGVAR(lt_cv_prog_compiler_pic_works, $1)], [$_LT_TAGVAR(lt_prog_compiler_pic, $1)@&t@m4_if([$1],[],[ -DPIC],[m4_if([$1],[CXX],[ -DPIC],[])])], [], [case $_LT_TAGVAR(lt_prog_compiler_pic, $1) in "" | " "*) ;; *) _LT_TAGVAR(lt_prog_compiler_pic, $1)=" $_LT_TAGVAR(lt_prog_compiler_pic, $1)" ;; esac], [_LT_TAGVAR(lt_prog_compiler_pic, $1)= _LT_TAGVAR(lt_prog_compiler_can_build_shared, $1)=no]) fi _LT_TAGDECL([pic_flag], [lt_prog_compiler_pic], [1], [Additional compiler flags for building library objects]) _LT_TAGDECL([wl], [lt_prog_compiler_wl], [1], [How to pass a linker flag through the compiler]) # # Check to make sure the static flag actually works. # wl=$_LT_TAGVAR(lt_prog_compiler_wl, $1) eval lt_tmp_static_flag=\"$_LT_TAGVAR(lt_prog_compiler_static, $1)\" _LT_LINKER_OPTION([if $compiler static flag $lt_tmp_static_flag works], _LT_TAGVAR(lt_cv_prog_compiler_static_works, $1), $lt_tmp_static_flag, [], [_LT_TAGVAR(lt_prog_compiler_static, $1)=]) _LT_TAGDECL([link_static_flag], [lt_prog_compiler_static], [1], [Compiler flag to prevent dynamic linking]) ])# _LT_COMPILER_PIC # _LT_LINKER_SHLIBS([TAGNAME]) # ---------------------------- # See if the linker supports building shared libraries. m4_defun([_LT_LINKER_SHLIBS], [AC_REQUIRE([LT_PATH_LD])dnl AC_REQUIRE([LT_PATH_NM])dnl m4_require([_LT_PATH_MANIFEST_TOOL])dnl m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_DECL_SED])dnl m4_require([_LT_CMD_GLOBAL_SYMBOLS])dnl m4_require([_LT_TAG_COMPILER])dnl AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries]) m4_if([$1], [CXX], [ _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'] case $host_os in aix[[4-9]]*) # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global defined # symbols, whereas GNU nm marks them as "W". if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then _LT_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else _LT_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' fi ;; pw32*) _LT_TAGVAR(export_symbols_cmds, $1)="$ltdll_cmds" ;; cygwin* | mingw* | cegcc*) case $cc_basename in cl*) _LT_TAGVAR(exclude_expsyms, $1)='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' ;; *) _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(exclude_expsyms, $1)=['[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'] ;; esac ;; linux* | k*bsd*-gnu | gnu*) _LT_TAGVAR(link_all_deplibs, $1)=no ;; *) _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' ;; esac ], [ runpath_var= _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_cmds, $1)= _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(compiler_needs_object, $1)=no _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED '\''s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(old_archive_from_new_cmds, $1)= _LT_TAGVAR(old_archive_from_expsyms_cmds, $1)= _LT_TAGVAR(thread_safe_flag_spec, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= # include_expsyms should be a list of space-separated symbols to be *always* # included in the symbol list _LT_TAGVAR(include_expsyms, $1)= # exclude_expsyms can be an extended regexp of symbols to exclude # it will be wrapped by ` (' and `)$', so one must not match beginning or # end of line. Example: `a|bc|.*d.*' will exclude the symbols `a' and `bc', # as well as any symbol that contains `d'. _LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*'] # Although _GLOBAL_OFFSET_TABLE_ is a valid symbol C name, most a.out # platforms (ab)use it in PIC code, but their linkers get confused if # the symbol is explicitly referenced. Since portable code cannot # rely on this symbol name, it's probably fine to never include it in # preloaded symbol tables. # Exclude shared library initialization/finalization symbols. dnl Note also adjust exclude_expsyms for C++ above. extract_expsyms_cmds= case $host_os in cygwin* | mingw* | pw32* | cegcc*) # FIXME: the MSVC++ port hasn't been tested in a loooong time # When not using gcc, we currently assume that we are using # Microsoft Visual C++. if test "$GCC" != yes; then with_gnu_ld=no fi ;; interix*) # we just hope/assume this is gcc and not c89 (= MSVC++) with_gnu_ld=yes ;; openbsd*) with_gnu_ld=no ;; linux* | k*bsd*-gnu | gnu*) _LT_TAGVAR(link_all_deplibs, $1)=no ;; esac _LT_TAGVAR(ld_shlibs, $1)=yes # On some targets, GNU ld is compatible enough with the native linker # that we're better off using the native interface for both. lt_use_gnu_ld_interface=no if test "$with_gnu_ld" = yes; then case $host_os in aix*) # The AIX port of GNU ld has always aspired to compatibility # with the native linker. However, as the warning in the GNU ld # block says, versions before 2.19.5* couldn't really create working # shared libraries, regardless of the interface used. case `$LD -v 2>&1` in *\ \(GNU\ Binutils\)\ 2.19.5*) ;; *\ \(GNU\ Binutils\)\ 2.[[2-9]]*) ;; *\ \(GNU\ Binutils\)\ [[3-9]]*) ;; *) lt_use_gnu_ld_interface=yes ;; esac ;; *) lt_use_gnu_ld_interface=yes ;; esac fi if test "$lt_use_gnu_ld_interface" = yes; then # If archive_cmds runs LD, not CC, wlarc should be empty wlarc='${wl}' # Set some defaults for GNU ld with shared library support. These # are reset later if shared libraries are not supported. Putting them # here allows them to be overridden if necessary. runpath_var=LD_RUN_PATH _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' # ancient GNU ld didn't support --whole-archive et. al. if $LD --help 2>&1 | $GREP 'no-whole-archive' > /dev/null; then _LT_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else _LT_TAGVAR(whole_archive_flag_spec, $1)= fi supports_anon_versioning=no case `$LD -v 2>&1` in *GNU\ gold*) supports_anon_versioning=yes ;; *\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.10.*) ;; # catch versions < 2.11 *\ 2.11.93.0.2\ *) supports_anon_versioning=yes ;; # RH7.3 ... *\ 2.11.92.0.12\ *) supports_anon_versioning=yes ;; # Mandrake 8.2 ... *\ 2.11.*) ;; # other 2.11 versions *) supports_anon_versioning=yes ;; esac # See if GNU ld supports shared libraries. case $host_os in aix[[3-9]]*) # On AIX/PPC, the GNU linker is very broken if test "$host_cpu" != ia64; then _LT_TAGVAR(ld_shlibs, $1)=no cat <<_LT_EOF 1>&2 *** Warning: the GNU linker, at least up to release 2.19, is reported *** to be unable to reliably create shared libraries on AIX. *** Therefore, libtool is disabling shared libraries support. If you *** really care for shared libraries, you may want to install binutils *** 2.20 or above, or modify your PATH so that a non-GNU linker is found. *** You will then need to restart the configuration process. _LT_EOF fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='' ;; m68k) _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes ;; esac ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME _LT_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; cygwin* | mingw* | pw32* | cegcc*) # _LT_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless, # as there is no search path for DLLs. _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-all-symbols' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols' _LT_TAGVAR(exclude_expsyms, $1)=['[_]+GLOBAL_OFFSET_TABLE_|[_]+GLOBAL__[FID]_.*|[_]+head_[A-Za-z0-9_]+_dll|[A-Za-z0-9_]+_dll_iname'] if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared $output_objdir/$soname.def $libobjs $deplibs $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; haiku*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(link_all_deplibs, $1)=yes ;; interix[[3-9]]*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; gnu* | linux* | tpf* | k*bsd*-gnu | kopensolaris*-gnu) tmp_diet=no if test "$host_os" = linux-dietlibc; then case $cc_basename in diet\ *) tmp_diet=yes;; # linux-dietlibc with static linking (!diet-dyn) esac fi if $LD --help 2>&1 | $EGREP ': supported targets:.* elf' > /dev/null \ && test "$tmp_diet" = no then tmp_addflag=' $pic_flag' tmp_sharedflag='-shared' case $cc_basename,$host_cpu in pgcc*) # Portland Group C compiler _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag' ;; pgf77* | pgf90* | pgf95* | pgfortran*) # Portland Group f77 and f90 compilers _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' tmp_addflag=' $pic_flag -Mnomain' ;; ecc*,ia64* | icc*,ia64*) # Intel C compiler on ia64 tmp_addflag=' -i_dynamic' ;; efc*,ia64* | ifort*,ia64*) # Intel Fortran compiler on ia64 tmp_addflag=' -i_dynamic -nofor_main' ;; ifc* | ifort*) # Intel Fortran compiler tmp_addflag=' -nofor_main' ;; lf95*) # Lahey Fortran 8.1 _LT_TAGVAR(whole_archive_flag_spec, $1)= tmp_sharedflag='--shared' ;; xl[[cC]]* | bgxl[[cC]]* | mpixl[[cC]]*) # IBM XL C 8.0 on PPC (deal with xlf below) tmp_sharedflag='-qmkshrobj' tmp_addflag= ;; nvcc*) # Cuda Compiler Driver 2.2 _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' _LT_TAGVAR(compiler_needs_object, $1)=yes ;; esac case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C 5.9 _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' _LT_TAGVAR(compiler_needs_object, $1)=yes tmp_sharedflag='-G' ;; *Sun\ F*) # Sun Fortran 8.3 tmp_sharedflag='-G' ;; esac _LT_TAGVAR(archive_cmds, $1)='$CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test "x$supports_anon_versioning" = xyes; then _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC '"$tmp_sharedflag""$tmp_addflag"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi case $cc_basename in xlf* | bgf* | bgxlf* | mpixlf*) # IBM XL Fortran 10.1 on PPC cannot create shared libs itself _LT_TAGVAR(whole_archive_flag_spec, $1)='--whole-archive$convenience --no-whole-archive' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(archive_cmds, $1)='$LD -shared $libobjs $deplibs $linker_flags -soname $soname -o $lib' if test "x$supports_anon_versioning" = xyes; then _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $LD -shared $libobjs $deplibs $linker_flags -soname $soname -version-script $output_objdir/$libname.ver -o $lib' fi ;; esac else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable $libobjs $deplibs $linker_flags -o $lib' wlarc= else _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' fi ;; solaris*) if $LD -v 2>&1 | $GREP 'BFD 2\.8' > /dev/null; then _LT_TAGVAR(ld_shlibs, $1)=no cat <<_LT_EOF 1>&2 *** Warning: The releases 2.8.* of the GNU linker cannot reliably *** create shared libraries on Solaris systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.9.1 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF elif $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; sysv5* | sco3.2v5* | sco5v6* | unixware* | OpenUNIX*) case `$LD -v 2>&1` in *\ [[01]].* | *\ 2.[[0-9]].* | *\ 2.1[[0-5]].*) _LT_TAGVAR(ld_shlibs, $1)=no cat <<_LT_EOF 1>&2 *** Warning: Releases of the GNU linker prior to 2.16.91.0.3 can not *** reliably create shared libraries on SCO systems. Therefore, libtool *** is disabling shared libraries support. We urge you to upgrade GNU *** binutils to release 2.16.91.0.3 or newer. Another option is to modify *** your PATH or compiler configuration so that the native linker is *** used, and then restart. _LT_EOF ;; *) # For security reasons, it is highly recommended that you always # use absolute paths for naming shared libraries, and exclude the # DT_RUNPATH tag from executables and libraries. But doing so # requires that you compile everything twice, which is a pain. if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; sunos4*) _LT_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bshareable -o $lib $libobjs $deplibs $linker_flags' wlarc= _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac if test "$_LT_TAGVAR(ld_shlibs, $1)" = no; then runpath_var= _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= fi else # PORTME fill in a description of your system's linker (not GNU ld) case $host_os in aix3*) _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=yes _LT_TAGVAR(archive_expsym_cmds, $1)='$LD -o $output_objdir/$soname $libobjs $deplibs $linker_flags -bE:$export_symbols -T512 -H512 -bM:SRE~$AR $AR_FLAGS $lib $output_objdir/$soname' # Note: this linker hardcodes the directories in LIBPATH if there # are no directories specified by -L. _LT_TAGVAR(hardcode_minus_L, $1)=yes if test "$GCC" = yes && test -z "$lt_prog_compiler_static"; then # Neither direct hardcoding nor static linking is supported with a # broken collect2. _LT_TAGVAR(hardcode_direct, $1)=unsupported fi ;; aix[[4-9]]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else # If we're using GNU nm, then we don't want the "-C" option. # -C means demangle to AIX nm, but means don't demangle with GNU nm # Also, AIX nm treats weak defined symbols like other global # defined symbols, whereas GNU nm marks them as "W". if $NM -V 2>&1 | $GREP 'GNU' > /dev/null; then _LT_TAGVAR(export_symbols_cmds, $1)='$NM -Bpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B") || (\$ 2 == "W")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' else _LT_TAGVAR(export_symbols_cmds, $1)='$NM -BCpg $libobjs $convenience | awk '\''{ if (((\$ 2 == "T") || (\$ 2 == "D") || (\$ 2 == "B")) && ([substr](\$ 3,1,1) != ".")) { print \$ 3 } }'\'' | sort -u > $export_symbols' fi aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*) for ld_flag in $LDFLAGS; do if (test $ld_flag = "-brtl" || test $ld_flag = "-Wl,-brtl"); then aix_use_runtimelinking=yes break fi done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. _LT_TAGVAR(archive_cmds, $1)='' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(file_list_spec, $1)='${wl}-f,' if test "$GCC" = yes; then case $host_os in aix4.[[012]]|aix4.[[012]].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 _LT_TAGVAR(hardcode_direct, $1)=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)= fi ;; esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi _LT_TAGVAR(link_all_deplibs, $1)=no else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to export. _LT_TAGVAR(always_export_symbols, $1)=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. _LT_TAGVAR(allow_undefined_flag, $1)='-berok' # Determine the default libpath from the value encoded in an # empty executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $libdir:/usr/lib:/lib' _LT_TAGVAR(allow_undefined_flag, $1)="-z nodefs" _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. _LT_TAGVAR(no_undefined_flag, $1)=' ${wl}-bernotok' _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-berok' if test "$with_gnu_ld" = yes; then # We only use this code for GNU lds that support --whole-archive. _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives _LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience' fi _LT_TAGVAR(archive_cmds_need_lc, $1)=yes # This is similar to how AIX traditionally builds its shared libraries. _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; amigaos*) case $host_cpu in powerpc) # see comment about AmigaOS4 .so support _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='' ;; m68k) _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/a2ixlibrary.data~$ECHO "#define NAME $libname" > $output_objdir/a2ixlibrary.data~$ECHO "#define LIBRARY_ID 1" >> $output_objdir/a2ixlibrary.data~$ECHO "#define VERSION $major" >> $output_objdir/a2ixlibrary.data~$ECHO "#define REVISION $revision" >> $output_objdir/a2ixlibrary.data~$AR $AR_FLAGS $lib $libobjs~$RANLIB $lib~(cd $output_objdir && a2ixlibrary -32)' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes ;; esac ;; bsdi[[45]]*) _LT_TAGVAR(export_dynamic_flag_spec, $1)=-rdynamic ;; cygwin* | mingw* | pw32* | cegcc*) # When not using gcc, we currently assume that we are using # Microsoft Visual C++. # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. case $cc_basename in cl*) # Native MSVC _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=yes _LT_TAGVAR(file_list_spec, $1)='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. _LT_TAGVAR(archive_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames=' _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then sed -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else sed -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes _LT_TAGVAR(exclude_expsyms, $1)='_NULL_IMPORT_DESCRIPTOR|_IMPORT_DESCRIPTOR_.*' _LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1,DATA/'\'' | $SED -e '\''/^[[AITW]][[ ]]/s/.*[[ ]]//'\'' | sort | uniq > $export_symbols' # Don't use ranlib _LT_TAGVAR(old_postinstall_cmds, $1)='chmod 644 $oldlib' _LT_TAGVAR(postlink_cmds, $1)='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile="$lt_outputfile.exe" lt_tool_outputfile="$lt_tool_outputfile.exe" ;; esac~ if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # Assume MSVC wrapper _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. _LT_TAGVAR(archive_cmds, $1)='$CC -o $lib $libobjs $compiler_flags `func_echo_all "$deplibs" | $SED '\''s/ -lc$//'\''` -link -dll~linknames=' # The linker will automatically build a .lib file if we build a DLL. _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' # FIXME: Should let the user specify the lib program. _LT_TAGVAR(old_archive_cmds, $1)='lib -OUT:$oldlib$oldobjs$old_deplibs' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes ;; esac ;; darwin* | rhapsody*) _LT_DARWIN_LINKER_FEATURES($1) ;; dgux*) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; # FreeBSD 2.2.[012] allows us to include c++rt0.o to get C++ constructor # support. Future versions do this automatically, but an explicit c++rt0.o # does not break anything, and helps significantly (at the cost of a little # extra space). freebsd2.2*) _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags /usr/lib/c++rt0.o' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; # Unfortunately, older versions of FreeBSD 2 do not have this feature. freebsd2.*) _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; # FreeBSD 3 and greater uses gcc -shared to do shared libraries. freebsd* | dragonfly*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; hpux9*) if test "$GCC" = yes; then _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $libobjs $deplibs $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$LD -b +b $install_libdir -o $output_objdir/$soname $libobjs $deplibs $linker_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(hardcode_direct, $1)=yes # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' ;; hpux10*) if test "$GCC" = yes && test "$with_gnu_ld" = no; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags' fi if test "$with_gnu_ld" = no; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. _LT_TAGVAR(hardcode_minus_L, $1)=yes fi ;; hpux11*) if test "$GCC" = yes && test "$with_gnu_ld" = no; then case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags' ;; esac else case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags' ;; *) m4_if($1, [], [ # Older versions of the 11.00 compiler do not understand -b yet # (HP92453-01 A.11.01.20 doesn't, HP92453-01 B.11.X.35175-35176.GP does) _LT_LINKER_OPTION([if $CC understands -b], _LT_TAGVAR(lt_cv_prog_compiler__b, $1), [-b], [_LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags'], [_LT_TAGVAR(archive_cmds, $1)='$LD -b +h $soname +b $install_libdir -o $lib $libobjs $deplibs $linker_flags'])], [_LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $libobjs $deplibs $compiler_flags']) ;; esac fi if test "$with_gnu_ld" = no; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: case $host_cpu in hppa*64*|ia64*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' # hardcode_minus_L: Not really in the search PATH, # but as the default location of the library. _LT_TAGVAR(hardcode_minus_L, $1)=yes ;; esac fi ;; irix5* | irix6* | nonstopux*) if test "$GCC" = yes; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' # Try to use the -exported_symbol ld option, if it does not # work, assume that -exports_file does not work either and # implicitly export all symbols. # This should be the same for all languages, so no per-tag cache variable. AC_CACHE_CHECK([whether the $host_os linker accepts -exported_symbol], [lt_cv_irix_exported_symbol], [save_LDFLAGS="$LDFLAGS" LDFLAGS="$LDFLAGS -shared ${wl}-exported_symbol ${wl}foo ${wl}-update_registry ${wl}/dev/null" AC_LINK_IFELSE( [AC_LANG_SOURCE( [AC_LANG_CASE([C], [[int foo (void) { return 0; }]], [C++], [[int foo (void) { return 0; }]], [Fortran 77], [[ subroutine foo end]], [Fortran], [[ subroutine foo end]])])], [lt_cv_irix_exported_symbol=yes], [lt_cv_irix_exported_symbol=no]) LDFLAGS="$save_LDFLAGS"]) if test "$lt_cv_irix_exported_symbol" = yes; then _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations ${wl}-exports_file ${wl}$export_symbols -o $lib' fi else _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -exports_file $export_symbols -o $lib' fi _LT_TAGVAR(archive_cmds_need_lc, $1)='no' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(inherit_rpath, $1)=yes _LT_TAGVAR(link_all_deplibs, $1)=yes ;; netbsd* | netbsdelf*-gnu) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' # a.out else _LT_TAGVAR(archive_cmds, $1)='$LD -shared -o $lib $libobjs $deplibs $linker_flags' # ELF fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; newsos6) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *nto* | *qnx*) ;; openbsd*) if test -f /usr/libexec/ld.so; then _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=yes if test -z "`echo __ELF__ | $CC -E - | $GREP __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags ${wl}-retain-symbols-file,$export_symbols' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' else case $host_os in openbsd[[01]].* | openbsd2.[[0-7]] | openbsd2.[[0-7]].*) _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' ;; esac fi else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; os2*) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(archive_cmds, $1)='$ECHO "LIBRARY $libname INITINSTANCE" > $output_objdir/$libname.def~$ECHO "DESCRIPTION \"$libname\"" >> $output_objdir/$libname.def~echo DATA >> $output_objdir/$libname.def~echo " SINGLE NONSHARED" >> $output_objdir/$libname.def~echo EXPORTS >> $output_objdir/$libname.def~emxexp $libobjs >> $output_objdir/$libname.def~$CC -Zdll -Zcrtdll -o $lib $libobjs $deplibs $compiler_flags $output_objdir/$libname.def' _LT_TAGVAR(old_archive_from_new_cmds, $1)='emximp -o $output_objdir/$libname.a $output_objdir/$libname.def' ;; osf3*) if test "$GCC" = yes; then _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' fi _LT_TAGVAR(archive_cmds_need_lc, $1)='no' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: ;; osf4* | osf5*) # as osf3* with the addition of -msym flag if test "$GCC" = yes; then _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $pic_flag $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' else _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $libobjs $deplibs $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done; printf "%s\\n" "-hidden">> $lib.exp~ $CC -shared${allow_undefined_flag} ${wl}-input ${wl}$lib.exp $compiler_flags $libobjs $deplibs -soname $soname `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~$RM $lib.exp' # Both c and cxx compiler support -rpath directly _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' fi _LT_TAGVAR(archive_cmds_need_lc, $1)='no' _LT_TAGVAR(hardcode_libdir_separator, $1)=: ;; solaris*) _LT_TAGVAR(no_undefined_flag, $1)=' -z defs' if test "$GCC" = yes; then wlarc='${wl}' _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag ${wl}-z ${wl}text ${wl}-M ${wl}$lib.exp ${wl}-h ${wl}$soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' else case `$CC -V 2>&1` in *"Compilers 5.0"*) wlarc='' _LT_TAGVAR(archive_cmds, $1)='$LD -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $LD -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $linker_flags~$RM $lib.exp' ;; *) wlarc='${wl}' _LT_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -h $soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G${allow_undefined_flag} -M $lib.exp -h $soname -o $lib $libobjs $deplibs $compiler_flags~$RM $lib.exp' ;; esac fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no case $host_os in solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. GCC discards it without `$wl', # but is careful enough not to reorder. # Supported since Solaris 2.6 (maybe 2.5.1?) if test "$GCC" = yes; then _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' else _LT_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract' fi ;; esac _LT_TAGVAR(link_all_deplibs, $1)=yes ;; sunos4*) if test "x$host_vendor" = xsequent; then # Use $CC to link under sequent, because it throws in some extra .o # files that make .init and .fini sections work. _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h $soname -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$LD -assert pure-text -Bstatic -o $lib $libobjs $deplibs $linker_flags' fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; sysv4) case $host_vendor in sni) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=yes # is this really true??? ;; siemens) ## LD is ld it makes a PLAMLIB ## CC just makes a GrossModule. _LT_TAGVAR(archive_cmds, $1)='$LD -G -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(reload_cmds, $1)='$CC -r -o $output$reload_objs' _LT_TAGVAR(hardcode_direct, $1)=no ;; motorola) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_direct, $1)=no #Motorola manual says yes, but my tests say they lie ;; esac runpath_var='LD_RUN_PATH' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; sysv4.3*) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(export_dynamic_flag_spec, $1)='-Bexport' ;; sysv4*MP*) if test -d /usr/nec; then _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no runpath_var=LD_RUN_PATH hardcode_runpath_var=yes _LT_TAGVAR(ld_shlibs, $1)=yes fi ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*) _LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. _LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' _LT_TAGVAR(allow_undefined_flag, $1)='${wl}-z,nodefs' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R,$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Bexport' runpath_var='LD_RUN_PATH' if test "$GCC" = yes; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' else _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' fi ;; uts4*) _LT_TAGVAR(archive_cmds, $1)='$LD -G -h $soname -o $lib $libobjs $deplibs $linker_flags' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) _LT_TAGVAR(ld_shlibs, $1)=no ;; esac if test x$host_vendor = xsni; then case $host in sysv4 | sysv4.2uw2* | sysv4.3* | sysv5*) _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Blargedynsym' ;; esac fi fi ]) AC_MSG_RESULT([$_LT_TAGVAR(ld_shlibs, $1)]) test "$_LT_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no _LT_TAGVAR(with_gnu_ld, $1)=$with_gnu_ld _LT_DECL([], [libext], [0], [Old archive suffix (normally "a")])dnl _LT_DECL([], [shrext_cmds], [1], [Shared library suffix (normally ".so")])dnl _LT_DECL([], [extract_expsyms_cmds], [2], [The commands to extract the exported symbol list from a shared archive]) # # Do we need to explicitly link libc? # case "x$_LT_TAGVAR(archive_cmds_need_lc, $1)" in x|xyes) # Assume -lc should be added _LT_TAGVAR(archive_cmds_need_lc, $1)=yes if test "$enable_shared" = yes && test "$GCC" = yes; then case $_LT_TAGVAR(archive_cmds, $1) in *'~'*) # FIXME: we may have to deal with multi-command sequences. ;; '$CC '*) # Test whether the compiler implicitly links with -lc since on some # systems, -lgcc has to come before -lc. If gcc already passes -lc # to ld, don't add -lc before -lgcc. AC_CACHE_CHECK([whether -lc should be explicitly linked in], [lt_cv_]_LT_TAGVAR(archive_cmds_need_lc, $1), [$RM conftest* echo "$lt_simple_compile_test_code" > conftest.$ac_ext if AC_TRY_EVAL(ac_compile) 2>conftest.err; then soname=conftest lib=conftest libobjs=conftest.$ac_objext deplibs= wl=$_LT_TAGVAR(lt_prog_compiler_wl, $1) pic_flag=$_LT_TAGVAR(lt_prog_compiler_pic, $1) compiler_flags=-v linker_flags=-v verstring= output_objdir=. libname=conftest lt_save_allow_undefined_flag=$_LT_TAGVAR(allow_undefined_flag, $1) _LT_TAGVAR(allow_undefined_flag, $1)= if AC_TRY_EVAL(_LT_TAGVAR(archive_cmds, $1) 2\>\&1 \| $GREP \" -lc \" \>/dev/null 2\>\&1) then lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)=no else lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1)=yes fi _LT_TAGVAR(allow_undefined_flag, $1)=$lt_save_allow_undefined_flag else cat conftest.err 1>&5 fi $RM conftest* ]) _LT_TAGVAR(archive_cmds_need_lc, $1)=$lt_cv_[]_LT_TAGVAR(archive_cmds_need_lc, $1) ;; esac fi ;; esac _LT_TAGDECL([build_libtool_need_lc], [archive_cmds_need_lc], [0], [Whether or not to add -lc for building shared libraries]) _LT_TAGDECL([allow_libtool_libs_with_static_runtimes], [enable_shared_with_static_runtimes], [0], [Whether or not to disallow shared libs when runtime libs are static]) _LT_TAGDECL([], [export_dynamic_flag_spec], [1], [Compiler flag to allow reflexive dlopens]) _LT_TAGDECL([], [whole_archive_flag_spec], [1], [Compiler flag to generate shared objects directly from archives]) _LT_TAGDECL([], [compiler_needs_object], [1], [Whether the compiler copes with passing no objects directly]) _LT_TAGDECL([], [old_archive_from_new_cmds], [2], [Create an old-style archive from a shared archive]) _LT_TAGDECL([], [old_archive_from_expsyms_cmds], [2], [Create a temporary old-style archive to link instead of a shared archive]) _LT_TAGDECL([], [archive_cmds], [2], [Commands used to build a shared archive]) _LT_TAGDECL([], [archive_expsym_cmds], [2]) _LT_TAGDECL([], [module_cmds], [2], [Commands used to build a loadable module if different from building a shared archive.]) _LT_TAGDECL([], [module_expsym_cmds], [2]) _LT_TAGDECL([], [with_gnu_ld], [1], [Whether we are building with GNU ld or not]) _LT_TAGDECL([], [allow_undefined_flag], [1], [Flag that allows shared libraries with undefined symbols to be built]) _LT_TAGDECL([], [no_undefined_flag], [1], [Flag that enforces no undefined symbols]) _LT_TAGDECL([], [hardcode_libdir_flag_spec], [1], [Flag to hardcode $libdir into a binary during linking. This must work even if $libdir does not exist]) _LT_TAGDECL([], [hardcode_libdir_separator], [1], [Whether we need a single "-rpath" flag with a separated argument]) _LT_TAGDECL([], [hardcode_direct], [0], [Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the resulting binary]) _LT_TAGDECL([], [hardcode_direct_absolute], [0], [Set to "yes" if using DIR/libNAME${shared_ext} during linking hardcodes DIR into the resulting binary and the resulting library dependency is "absolute", i.e impossible to change by setting ${shlibpath_var} if the library is relocated]) _LT_TAGDECL([], [hardcode_minus_L], [0], [Set to "yes" if using the -LDIR flag during linking hardcodes DIR into the resulting binary]) _LT_TAGDECL([], [hardcode_shlibpath_var], [0], [Set to "yes" if using SHLIBPATH_VAR=DIR during linking hardcodes DIR into the resulting binary]) _LT_TAGDECL([], [hardcode_automatic], [0], [Set to "yes" if building a shared library automatically hardcodes DIR into the library and all subsequent libraries and executables linked against it]) _LT_TAGDECL([], [inherit_rpath], [0], [Set to yes if linker adds runtime paths of dependent libraries to runtime path list]) _LT_TAGDECL([], [link_all_deplibs], [0], [Whether libtool must link a program against all its dependency libraries]) _LT_TAGDECL([], [always_export_symbols], [0], [Set to "yes" if exported symbols are required]) _LT_TAGDECL([], [export_symbols_cmds], [2], [The commands to list exported symbols]) _LT_TAGDECL([], [exclude_expsyms], [1], [Symbols that should not be listed in the preloaded symbols]) _LT_TAGDECL([], [include_expsyms], [1], [Symbols that must always be exported]) _LT_TAGDECL([], [prelink_cmds], [2], [Commands necessary for linking programs (against libraries) with templates]) _LT_TAGDECL([], [postlink_cmds], [2], [Commands necessary for finishing linking programs]) _LT_TAGDECL([], [file_list_spec], [1], [Specify filename containing input files]) dnl FIXME: Not yet implemented dnl _LT_TAGDECL([], [thread_safe_flag_spec], [1], dnl [Compiler flag to generate thread safe objects]) ])# _LT_LINKER_SHLIBS # _LT_LANG_C_CONFIG([TAG]) # ------------------------ # Ensure that the configuration variables for a C compiler are suitably # defined. These variables are subsequently used by _LT_CONFIG to write # the compiler configuration to `libtool'. m4_defun([_LT_LANG_C_CONFIG], [m4_require([_LT_DECL_EGREP])dnl lt_save_CC="$CC" AC_LANG_PUSH(C) # Source file extension for C test sources. ac_ext=c # Object file extension for compiled C test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(){return(0);}' _LT_TAG_COMPILER # Save the default compiler, since it gets overwritten when the other # tags are being tested, and _LT_TAGVAR(compiler, []) is a NOP. compiler_DEFAULT=$CC # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then _LT_COMPILER_NO_RTTI($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) LT_SYS_DLOPEN_SELF _LT_CMD_STRIPLIB # Report which library types will actually be built AC_MSG_CHECKING([if libtool supports shared libraries]) AC_MSG_RESULT([$can_build_shared]) AC_MSG_CHECKING([whether to build shared libraries]) test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac AC_MSG_RESULT([$enable_shared]) AC_MSG_CHECKING([whether to build static libraries]) # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes AC_MSG_RESULT([$enable_static]) _LT_CONFIG($1) fi AC_LANG_POP CC="$lt_save_CC" ])# _LT_LANG_C_CONFIG # _LT_LANG_CXX_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for a C++ compiler are suitably # defined. These variables are subsequently used by _LT_CONFIG to write # the compiler configuration to `libtool'. m4_defun([_LT_LANG_CXX_CONFIG], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl m4_require([_LT_DECL_EGREP])dnl m4_require([_LT_PATH_MANIFEST_TOOL])dnl if test -n "$CXX" && ( test "X$CXX" != "Xno" && ( (test "X$CXX" = "Xg++" && `g++ -v >/dev/null 2>&1` ) || (test "X$CXX" != "Xg++"))) ; then AC_PROG_CXXCPP else _lt_caught_CXX_error=yes fi AC_LANG_PUSH(C++) _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(compiler_needs_object, $1)=no _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=unsupported _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds _LT_TAGVAR(no_undefined_flag, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no # Source file extension for C++ test sources. ac_ext=cpp # Object file extension for compiled C++ test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # No sense in running all these tests if we already determined that # the CXX compiler isn't working. Some variables (like enable_shared) # are currently assumed to apply to all compilers on this platform, # and will be corrupted by setting them based on a non-working compiler. if test "$_lt_caught_CXX_error" != yes; then # Code to be used in simple compile tests lt_simple_compile_test_code="int some_variable = 0;" # Code to be used in simple link tests lt_simple_link_test_code='int main(int, char *[[]]) { return(0); }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_LD=$LD lt_save_GCC=$GCC GCC=$GXX lt_save_with_gnu_ld=$with_gnu_ld lt_save_path_LD=$lt_cv_path_LD if test -n "${lt_cv_prog_gnu_ldcxx+set}"; then lt_cv_prog_gnu_ld=$lt_cv_prog_gnu_ldcxx else $as_unset lt_cv_prog_gnu_ld fi if test -n "${lt_cv_path_LDCXX+set}"; then lt_cv_path_LD=$lt_cv_path_LDCXX else $as_unset lt_cv_path_LD fi test -z "${LDCXX+set}" || LD=$LDCXX CC=${CXX-"c++"} CFLAGS=$CXXFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) if test -n "$compiler"; then # We don't want -fno-exception when compiling C++ code, so set the # no_builtin_flag separately if test "$GXX" = yes; then _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin' else _LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)= fi if test "$GXX" = yes; then # Set up default GNU C++ configuration LT_PATH_LD # Check if GNU C++ uses GNU ld as the underlying linker, since the # archiving commands below assume that GNU ld is being used. if test "$with_gnu_ld" = yes; then _LT_TAGVAR(archive_cmds, $1)='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC $pic_flag -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' # If archive_cmds runs LD, not CC, wlarc should be empty # XXX I think wlarc can be eliminated in ltcf-cxx, but I need to # investigate it a little bit more. (MM) wlarc='${wl}' # ancient GNU ld didn't support --whole-archive et. al. if eval "`$CC -print-prog-name=ld` --help 2>&1" | $GREP 'no-whole-archive' > /dev/null; then _LT_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' else _LT_TAGVAR(whole_archive_flag_spec, $1)= fi else with_gnu_ld=no wlarc= # A generic and very simple default shared library creation # command for GNU C++ for the case where it uses the native # linker, instead of GNU ld. If possible, this setting should # overridden to take advantage of the native linker features on # the platform it is being used on. _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' fi # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else GXX=no with_gnu_ld=no wlarc= fi # PORTME: fill in a description of your system's C++ link characteristics AC_MSG_CHECKING([whether the $compiler linker ($LD) supports shared libraries]) _LT_TAGVAR(ld_shlibs, $1)=yes case $host_os in aix3*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; aix[[4-9]]*) if test "$host_cpu" = ia64; then # On IA64, the linker does run time linking by default, so we don't # have to do anything special. aix_use_runtimelinking=no exp_sym_flag='-Bexport' no_entry_flag="" else aix_use_runtimelinking=no # Test if we are trying to use run time linking or normal # AIX style linking. If -brtl is somewhere in LDFLAGS, we # need to do runtime linking. case $host_os in aix4.[[23]]|aix4.[[23]].*|aix[[5-9]]*) for ld_flag in $LDFLAGS; do case $ld_flag in *-brtl*) aix_use_runtimelinking=yes break ;; esac done ;; esac exp_sym_flag='-bexport' no_entry_flag='-bnoentry' fi # When large executables or shared objects are built, AIX ld can # have problems creating the table of contents. If linking a library # or program results in "error TOC overflow" add -mminimal-toc to # CXXFLAGS/CFLAGS for g++/gcc. In the cases where that is not # enough to fix the problem, add -Wl,-bbigtoc to LDFLAGS. _LT_TAGVAR(archive_cmds, $1)='' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(file_list_spec, $1)='${wl}-f,' if test "$GXX" = yes; then case $host_os in aix4.[[012]]|aix4.[[012]].*) # We only want to do this on AIX 4.2 and lower, the check # below for broken collect2 doesn't work under 4.3+ collect2name=`${CC} -print-prog-name=collect2` if test -f "$collect2name" && strings "$collect2name" | $GREP resolve_lib_name >/dev/null then # We have reworked collect2 : else # We have old collect2 _LT_TAGVAR(hardcode_direct, $1)=unsupported # It fails to find uninstalled libraries when the uninstalled # path is not listed in the libpath. Setting hardcode_minus_L # to unsupported forces relinking _LT_TAGVAR(hardcode_minus_L, $1)=yes _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)= fi esac shared_flag='-shared' if test "$aix_use_runtimelinking" = yes; then shared_flag="$shared_flag "'${wl}-G' fi else # not using gcc if test "$host_cpu" = ia64; then # VisualAge C++, Version 5.5 for AIX 5L for IA-64, Beta 3 Release # chokes on -Wl,-G. The following line is correct: shared_flag='-G' else if test "$aix_use_runtimelinking" = yes; then shared_flag='${wl}-G' else shared_flag='${wl}-bM:SRE' fi fi fi _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-bexpall' # It seems that -bexpall does not export symbols beginning with # underscore (_), so it is better to generate a list of symbols to # export. _LT_TAGVAR(always_export_symbols, $1)=yes if test "$aix_use_runtimelinking" = yes; then # Warning - without using the other runtime loading flags (-brtl), # -berok will link without error, but may produce a broken library. _LT_TAGVAR(allow_undefined_flag, $1)='-berok' # Determine the default libpath from the value encoded in an empty # executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags `if test "x${allow_undefined_flag}" != "x"; then func_echo_all "${wl}${allow_undefined_flag}"; else :; fi` '"\${wl}$exp_sym_flag:\$export_symbols $shared_flag" else if test "$host_cpu" = ia64; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $libdir:/usr/lib:/lib' _LT_TAGVAR(allow_undefined_flag, $1)="-z nodefs" _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs '"\${wl}$no_entry_flag"' $compiler_flags ${wl}${allow_undefined_flag} '"\${wl}$exp_sym_flag:\$export_symbols" else # Determine the default libpath from the value encoded in an # empty executable. _LT_SYS_MODULE_PATH_AIX([$1]) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-blibpath:$libdir:'"$aix_libpath" # Warning - without using the other run time loading flags, # -berok will link without error, but may produce a broken library. _LT_TAGVAR(no_undefined_flag, $1)=' ${wl}-bernotok' _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-berok' if test "$with_gnu_ld" = yes; then # We only use this code for GNU lds that support --whole-archive. _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive' else # Exported symbols can be pulled into shared objects from archives _LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience' fi _LT_TAGVAR(archive_cmds_need_lc, $1)=yes # This is similar to how AIX traditionally builds its shared # libraries. _LT_TAGVAR(archive_expsym_cmds, $1)="\$CC $shared_flag"' -o $output_objdir/$soname $libobjs $deplibs ${wl}-bnoentry $compiler_flags ${wl}-bE:$export_symbols${allow_undefined_flag}~$AR $AR_FLAGS $output_objdir/$libname$release.a $output_objdir/$soname' fi fi ;; beos*) if $LD --help 2>&1 | $GREP ': supported targets:.* elf' > /dev/null; then _LT_TAGVAR(allow_undefined_flag, $1)=unsupported # Joseph Beckenbach says some releases of gcc # support --undefined. This deserves some investigation. FIXME _LT_TAGVAR(archive_cmds, $1)='$CC -nostart $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; chorus*) case $cc_basename in *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; cygwin* | mingw* | pw32* | cegcc*) case $GXX,$cc_basename in ,cl* | no,cl*) # Native MSVC # hardcode_libdir_flag_spec is actually meaningless, as there is # no search path for DLLs. _LT_TAGVAR(hardcode_libdir_flag_spec, $1)=' ' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=yes _LT_TAGVAR(file_list_spec, $1)='@' # Tell ltmain to make .lib files, not .a files. libext=lib # Tell ltmain to make .dll files, not .so files. shrext_cmds=".dll" # FIXME: Setting linknames here is a bad hack. _LT_TAGVAR(archive_cmds, $1)='$CC -o $output_objdir/$soname $libobjs $compiler_flags $deplibs -Wl,-dll~linknames=' _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then $SED -n -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' -e '1\\\!p' < $export_symbols > $output_objdir/$soname.exp; else $SED -e 's/\\\\\\\(.*\\\\\\\)/-link\\\ -EXPORT:\\\\\\\1/' < $export_symbols > $output_objdir/$soname.exp; fi~ $CC -o $tool_output_objdir$soname $libobjs $compiler_flags $deplibs "@$tool_output_objdir$soname.exp" -Wl,-DLL,-IMPLIB:"$tool_output_objdir$libname.dll.lib"~ linknames=' # The linker will not automatically build a static lib if we build a DLL. # _LT_TAGVAR(old_archive_from_new_cmds, $1)='true' _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes # Don't use ranlib _LT_TAGVAR(old_postinstall_cmds, $1)='chmod 644 $oldlib' _LT_TAGVAR(postlink_cmds, $1)='lt_outputfile="@OUTPUT@"~ lt_tool_outputfile="@TOOL_OUTPUT@"~ case $lt_outputfile in *.exe|*.EXE) ;; *) lt_outputfile="$lt_outputfile.exe" lt_tool_outputfile="$lt_tool_outputfile.exe" ;; esac~ func_to_tool_file "$lt_outputfile"~ if test "$MANIFEST_TOOL" != ":" && test -f "$lt_outputfile.manifest"; then $MANIFEST_TOOL -manifest "$lt_tool_outputfile.manifest" -outputresource:"$lt_tool_outputfile" || exit 1; $RM "$lt_outputfile.manifest"; fi' ;; *) # g++ # _LT_TAGVAR(hardcode_libdir_flag_spec, $1) is actually meaningless, # as there is no search path for DLLs. _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-L$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-all-symbols' _LT_TAGVAR(allow_undefined_flag, $1)=unsupported _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes if $LD --help 2>&1 | $GREP 'auto-import' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' # If the export-symbols file already is a .def file (1st line # is EXPORTS), use it as is; otherwise, prepend... _LT_TAGVAR(archive_expsym_cmds, $1)='if test "x`$SED 1q $export_symbols`" = xEXPORTS; then cp $export_symbols $output_objdir/$soname.def; else echo EXPORTS > $output_objdir/$soname.def; cat $export_symbols >> $output_objdir/$soname.def; fi~ $CC -shared -nostdlib $output_objdir/$soname.def $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $output_objdir/$soname ${wl}--enable-auto-image-base -Xlinker --out-implib -Xlinker $lib' else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; darwin* | rhapsody*) _LT_DARWIN_LINKER_FEATURES($1) ;; dgux*) case $cc_basename in ec++*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; ghcx*) # Green Hills C++ Compiler # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; freebsd2.*) # C++ shared libraries reported to be fairly broken before # switch to ELF _LT_TAGVAR(ld_shlibs, $1)=no ;; freebsd-elf*) _LT_TAGVAR(archive_cmds_need_lc, $1)=no ;; freebsd* | dragonfly*) # FreeBSD 3 and later use GNU C++ and GNU ld with standard ELF # conventions _LT_TAGVAR(ld_shlibs, $1)=yes ;; haiku*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(link_all_deplibs, $1)=yes ;; hpux9*) _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH, # but as the default # location of the library. case $cc_basename in CC*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; aCC*) _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -b ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $EGREP "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test "$GXX" = yes; then _LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared -nostdlib $pic_flag ${wl}+b ${wl}$install_libdir -o $output_objdir/$soname $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~test $output_objdir/$soname = $lib || mv $output_objdir/$soname $lib' else # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; hpux10*|hpux11*) if test $with_gnu_ld = no; then _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}+b ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: case $host_cpu in hppa*64*|ia64*) ;; *) _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' ;; esac fi case $host_cpu in hppa*64*|ia64*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no ;; *) _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(hardcode_minus_L, $1)=yes # Not in the search PATH, # but as the default # location of the library. ;; esac case $cc_basename in CC*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; aCC*) case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -b ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; esac # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`($CC -b $CFLAGS -v conftest.$objext 2>&1) | $GREP "\-L"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test "$GXX" = yes; then if test $with_gnu_ld = no; then case $host_cpu in hppa*64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib -fPIC ${wl}+h ${wl}$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; ia64*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $pic_flag ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $pic_flag ${wl}+h ${wl}$soname ${wl}+b ${wl}$install_libdir -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' ;; esac fi else # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; interix[[3-9]]*) _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' # Hack: On Interix 3.x, we cannot compile PIC because of a broken gcc. # Instead, shared libraries are loaded at an image base (0x10000000 by # default) and relocated if they conflict, which is a slow very memory # consuming and fragmenting process. To avoid this, we pick a random, # 256 KiB-aligned image base between 0x50000000 and 0x6FFC0000 at link # time. Moving up from 0x10000000 also allows more sbrk(2) space. _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='sed "s,^,_," $export_symbols >$output_objdir/$soname.expsym~$CC -shared $pic_flag $libobjs $deplibs $compiler_flags ${wl}-h,$soname ${wl}--retain-symbols-file,$output_objdir/$soname.expsym ${wl}--image-base,`expr ${RANDOM-$$} % 4096 / 2 \* 262144 + 1342177280` -o $lib' ;; irix5* | irix6*) case $cc_basename in CC*) # SGI C++ _LT_TAGVAR(archive_cmds, $1)='$CC -shared -all -multigot $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' # Archives containing C++ object files must be created using # "CC -ar", where "CC" is the IRIX C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC -ar -WR,-u -o $oldlib $oldobjs' ;; *) if test "$GXX" = yes; then if test "$with_gnu_ld" = no; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' else _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` -o $lib' fi fi _LT_TAGVAR(link_all_deplibs, $1)=yes ;; esac _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: _LT_TAGVAR(inherit_rpath, $1)=yes ;; linux* | k*bsd*-gnu | kopensolaris*-gnu | gnu*) case $cc_basename in KCC*) # Kuck and Associates, Inc. (KAI) C++ Compiler # KCC will only create a shared library if the output file # ends with ".so" (or ".sl" for HP-UX), so rename the library # to its proper name (with version) after linking. _LT_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo $lib | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib ${wl}-retain-symbols-file,$export_symbols; mv \$templib $lib' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 | $GREP "ld"`; rm -f libconftest$shared_ext; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' # Archives containing C++ object files must be created using # "CC -Bstatic", where "CC" is the KAI C++ compiler. _LT_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' ;; icpc* | ecpc* ) # Intel C++ with_gnu_ld=yes # version 8.0 and above of icpc choke on multiply defined symbols # if we add $predep_objects and $postdep_objects, however 7.1 and # earlier do not add the objects themselves. case `$CC -V 2>&1` in *"Version 7."*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' ;; *) # Version 8.0 or newer tmp_idyn= case $host_cpu in ia64*) tmp_idyn=' -i_dynamic';; esac _LT_TAGVAR(archive_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared'"$tmp_idyn"' $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-retain-symbols-file $wl$export_symbols -o $lib' ;; esac _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive$convenience ${wl}--no-whole-archive' ;; pgCC* | pgcpp*) # Portland Group C++ compiler case `$CC -V` in *pgCC\ [[1-5]].* | *pgcpp\ [[1-5]].*) _LT_TAGVAR(prelink_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $objs $libobjs $compile_deplibs~ compile_command="$compile_command `find $tpldir -name \*.o | sort | $NL2SP`"' _LT_TAGVAR(old_archive_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $oldobjs$old_deplibs~ $AR $AR_FLAGS $oldlib$oldobjs$old_deplibs `find $tpldir -name \*.o | sort | $NL2SP`~ $RANLIB $oldlib' _LT_TAGVAR(archive_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~ $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='tpldir=Template.dir~ rm -rf $tpldir~ $CC --prelink_objects --instantiation_dir $tpldir $predep_objects $libobjs $deplibs $convenience $postdep_objects~ $CC -shared $pic_flag $predep_objects $libobjs $deplibs `find $tpldir -name \*.o | sort | $NL2SP` $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib' ;; *) # Version 6 and above use weak symbols _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib' ;; esac _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}--rpath ${wl}$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`for conv in $convenience\"\"; do test -n \"$conv\" && new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' ;; cxx*) # Compaq C++ _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib ${wl}-retain-symbols-file $wl$export_symbols' runpath_var=LD_RUN_PATH _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld .*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "X$list" | $Xsed' ;; xl* | mpixl* | bgxl*) # IBM XL 8.0 on PPC, with GNU ld _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}--export-dynamic' _LT_TAGVAR(archive_cmds, $1)='$CC -qmkshrobj $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname -o $lib' if test "x$supports_anon_versioning" = xyes; then _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $output_objdir/$libname.ver~ cat $export_symbols | sed -e "s/\(.*\)/\1;/" >> $output_objdir/$libname.ver~ echo "local: *; };" >> $output_objdir/$libname.ver~ $CC -qmkshrobj $libobjs $deplibs $compiler_flags ${wl}-soname $wl$soname ${wl}-version-script ${wl}$output_objdir/$libname.ver -o $lib' fi ;; *) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 _LT_TAGVAR(no_undefined_flag, $1)=' -zdefs' _LT_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file ${wl}$export_symbols' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}--whole-archive`new_convenience=; for conv in $convenience\"\"; do test -z \"$conv\" || new_convenience=\"$new_convenience,$conv\"; done; func_echo_all \"$new_convenience\"` ${wl}--no-whole-archive' _LT_TAGVAR(compiler_needs_object, $1)=yes # Not sure whether something based on # $CC $CFLAGS -v conftest.$objext -o libconftest$shared_ext 2>&1 # would be better. output_verbose_link_cmd='func_echo_all' # Archives containing C++ object files must be created using # "CC -xar", where "CC" is the Sun C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs' ;; esac ;; esac ;; lynxos*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; m88k*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; mvs*) case $cc_basename in cxx*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; netbsd*) if echo __ELF__ | $CC -E - | $GREP __ELF__ >/dev/null; then _LT_TAGVAR(archive_cmds, $1)='$LD -Bshareable -o $lib $predep_objects $libobjs $deplibs $postdep_objects $linker_flags' wlarc= _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no fi # Workaround some broken pre-1.5 toolchains output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP conftest.$objext | $SED -e "s:-lgcc -lc -lgcc::"' ;; *nto* | *qnx*) _LT_TAGVAR(ld_shlibs, $1)=yes ;; openbsd2*) # C++ shared libraries are fairly broken _LT_TAGVAR(ld_shlibs, $1)=no ;; openbsd*) if test -f /usr/libexec/ld.so; then _LT_TAGVAR(hardcode_direct, $1)=yes _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=yes _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' if test -z "`echo __ELF__ | $CC -E - | grep __ELF__`" || test "$host_os-$host_cpu" = "openbsd2.8-powerpc"; then _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $pic_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-retain-symbols-file,$export_symbols -o $lib' _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-E' _LT_TAGVAR(whole_archive_flag_spec, $1)="$wlarc"'--whole-archive$convenience '"$wlarc"'--no-whole-archive' fi output_verbose_link_cmd=func_echo_all else _LT_TAGVAR(ld_shlibs, $1)=no fi ;; osf3* | osf4* | osf5*) case $cc_basename in KCC*) # Kuck and Associates, Inc. (KAI) C++ Compiler # KCC will only create a shared library if the output file # ends with ".so" (or ".sl" for HP-UX), so rename the library # to its proper name (with version) after linking. _LT_TAGVAR(archive_cmds, $1)='tempext=`echo $shared_ext | $SED -e '\''s/\([[^()0-9A-Za-z{}]]\)/\\\\\1/g'\''`; templib=`echo "$lib" | $SED -e "s/\${tempext}\..*/.so/"`; $CC $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags --soname $soname -o \$templib; mv \$templib $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath,$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Archives containing C++ object files must be created using # the KAI C++ compiler. case $host in osf3*) _LT_TAGVAR(old_archive_cmds, $1)='$CC -Bstatic -o $oldlib $oldobjs' ;; *) _LT_TAGVAR(old_archive_cmds, $1)='$CC -o $oldlib $oldobjs' ;; esac ;; RCC*) # Rational C++ 2.4.1 # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; cxx*) case $host in osf3*) _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $soname `test -n "$verstring" && func_echo_all "${wl}-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' ;; *) _LT_TAGVAR(allow_undefined_flag, $1)=' -expect_unresolved \*' _LT_TAGVAR(archive_cmds, $1)='$CC -shared${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname `test -n "$verstring" && func_echo_all "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='for i in `cat $export_symbols`; do printf "%s %s\\n" -exported_symbol "\$i" >> $lib.exp; done~ echo "-hidden">> $lib.exp~ $CC -shared$allow_undefined_flag $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags -msym -soname $soname ${wl}-input ${wl}$lib.exp `test -n "$verstring" && $ECHO "-set_version $verstring"` -update_registry ${output_objdir}/so_locations -o $lib~ $RM $lib.exp' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-rpath $libdir' ;; esac _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. # # There doesn't appear to be a way to prevent this compiler from # explicitly linking system object files so we need to strip them # from the output so that they don't get included in the library # dependencies. output_verbose_link_cmd='templist=`$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP "ld" | $GREP -v "ld:"`; templist=`func_echo_all "$templist" | $SED "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; func_echo_all "$list"' ;; *) if test "$GXX" = yes && test "$with_gnu_ld" = no; then _LT_TAGVAR(allow_undefined_flag, $1)=' ${wl}-expect_unresolved ${wl}\*' case $host in osf3*) _LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && func_echo_all "${wl}-set_version ${wl}$verstring"` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib' ;; esac _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-rpath ${wl}$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=: # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no fi ;; esac ;; psos*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; sunos4*) case $cc_basename in CC*) # Sun C++ 4.x # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; lcc*) # Lucid # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; solaris*) case $cc_basename in CC* | sunCC*) # Sun C++ 4.2, 5.x and Centerline C++ _LT_TAGVAR(archive_cmds_need_lc,$1)=yes _LT_TAGVAR(no_undefined_flag, $1)=' -zdefs' _LT_TAGVAR(archive_cmds, $1)='$CC -G${allow_undefined_flag} -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G${allow_undefined_flag} ${wl}-M ${wl}$lib.exp -h$soname -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='-R$libdir' _LT_TAGVAR(hardcode_shlibpath_var, $1)=no case $host_os in solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; *) # The compiler driver will combine and reorder linker options, # but understands `-z linker_flag'. # Supported since Solaris 2.6 (maybe 2.5.1?) _LT_TAGVAR(whole_archive_flag_spec, $1)='-z allextract$convenience -z defaultextract' ;; esac _LT_TAGVAR(link_all_deplibs, $1)=yes output_verbose_link_cmd='func_echo_all' # Archives containing C++ object files must be created using # "CC -xar", where "CC" is the Sun C++ compiler. This is # necessary to make sure instantiated templates are included # in the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC -xar -o $oldlib $oldobjs' ;; gcx*) # Green Hills C++ Compiler _LT_TAGVAR(archive_cmds, $1)='$CC -shared $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' # The C++ compiler must be used to create the archive. _LT_TAGVAR(old_archive_cmds, $1)='$CC $LDFLAGS -archive -o $oldlib $oldobjs' ;; *) # GNU C++ compiler with Solaris linker if test "$GXX" = yes && test "$with_gnu_ld" = no; then _LT_TAGVAR(no_undefined_flag, $1)=' ${wl}-z ${wl}defs' if $CC --version | $GREP -v '^2\.7' > /dev/null; then _LT_TAGVAR(archive_cmds, $1)='$CC -shared $pic_flag -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -shared $pic_flag -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -shared $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' else # g++ 2.7 appears to require `-G' NOT `-shared' on this # platform. _LT_TAGVAR(archive_cmds, $1)='$CC -G -nostdlib $LDFLAGS $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-h $wl$soname -o $lib' _LT_TAGVAR(archive_expsym_cmds, $1)='echo "{ global:" > $lib.exp~cat $export_symbols | $SED -e "s/\(.*\)/\1;/" >> $lib.exp~echo "local: *; };" >> $lib.exp~ $CC -G -nostdlib ${wl}-M $wl$lib.exp -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags~$RM $lib.exp' # Commands to make compiler produce verbose output that lists # what "hidden" libraries, object files and flags are used when # linking a shared library. output_verbose_link_cmd='$CC -G $CFLAGS -v conftest.$objext 2>&1 | $GREP -v "^Configured with:" | $GREP "\-L"' fi _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R $wl$libdir' case $host_os in solaris2.[[0-5]] | solaris2.[[0-5]].*) ;; *) _LT_TAGVAR(whole_archive_flag_spec, $1)='${wl}-z ${wl}allextract$convenience ${wl}-z ${wl}defaultextract' ;; esac fi ;; esac ;; sysv4*uw2* | sysv5OpenUNIX* | sysv5UnixWare7.[[01]].[[10]]* | unixware7* | sco3.2v5.0.[[024]]*) _LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no runpath_var='LD_RUN_PATH' case $cc_basename in CC*) _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; sysv5* | sco3.2v5* | sco5v6*) # Note: We can NOT use -z defs as we might desire, because we do not # link with -lc, and that would cause any symbols used from libc to # always be unresolved, which means just about no library would # ever link correctly. If we're not using GNU ld we use -z text # though, which does catch some bad symbols but isn't as heavy-handed # as -z defs. _LT_TAGVAR(no_undefined_flag, $1)='${wl}-z,text' _LT_TAGVAR(allow_undefined_flag, $1)='${wl}-z,nodefs' _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(hardcode_shlibpath_var, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)='${wl}-R,$libdir' _LT_TAGVAR(hardcode_libdir_separator, $1)=':' _LT_TAGVAR(link_all_deplibs, $1)=yes _LT_TAGVAR(export_dynamic_flag_spec, $1)='${wl}-Bexport' runpath_var='LD_RUN_PATH' case $cc_basename in CC*) _LT_TAGVAR(archive_cmds, $1)='$CC -G ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -G ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(old_archive_cmds, $1)='$CC -Tprelink_objects $oldobjs~ '"$_LT_TAGVAR(old_archive_cmds, $1)" _LT_TAGVAR(reload_cmds, $1)='$CC -Tprelink_objects $reload_objs~ '"$_LT_TAGVAR(reload_cmds, $1)" ;; *) _LT_TAGVAR(archive_cmds, $1)='$CC -shared ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' _LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared ${wl}-Bexport:$export_symbols ${wl}-h,$soname -o $lib $libobjs $deplibs $compiler_flags' ;; esac ;; tandem*) case $cc_basename in NCC*) # NonStop-UX NCC 3.20 # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac ;; vxworks*) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; *) # FIXME: insert proper C++ library support _LT_TAGVAR(ld_shlibs, $1)=no ;; esac AC_MSG_RESULT([$_LT_TAGVAR(ld_shlibs, $1)]) test "$_LT_TAGVAR(ld_shlibs, $1)" = no && can_build_shared=no _LT_TAGVAR(GCC, $1)="$GXX" _LT_TAGVAR(LD, $1)="$LD" ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... _LT_SYS_HIDDEN_LIBDEPS($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi # test -n "$compiler" CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS LDCXX=$LD LD=$lt_save_LD GCC=$lt_save_GCC with_gnu_ld=$lt_save_with_gnu_ld lt_cv_path_LDCXX=$lt_cv_path_LD lt_cv_path_LD=$lt_save_path_LD lt_cv_prog_gnu_ldcxx=$lt_cv_prog_gnu_ld lt_cv_prog_gnu_ld=$lt_save_with_gnu_ld fi # test "$_lt_caught_CXX_error" != yes AC_LANG_POP ])# _LT_LANG_CXX_CONFIG # _LT_FUNC_STRIPNAME_CNF # ---------------------- # func_stripname_cnf prefix suffix name # strip PREFIX and SUFFIX off of NAME. # PREFIX and SUFFIX must not contain globbing or regex special # characters, hashes, percent signs, but SUFFIX may contain a leading # dot (in which case that matches only a dot). # # This function is identical to the (non-XSI) version of func_stripname, # except this one can be used by m4 code that may be executed by configure, # rather than the libtool script. m4_defun([_LT_FUNC_STRIPNAME_CNF],[dnl AC_REQUIRE([_LT_DECL_SED]) AC_REQUIRE([_LT_PROG_ECHO_BACKSLASH]) func_stripname_cnf () { case ${2} in .*) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%\\\\${2}\$%%"`;; *) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%${2}\$%%"`;; esac } # func_stripname_cnf ])# _LT_FUNC_STRIPNAME_CNF # _LT_SYS_HIDDEN_LIBDEPS([TAGNAME]) # --------------------------------- # Figure out "hidden" library dependencies from verbose # compiler output when linking a shared library. # Parse the compiler output and extract the necessary # objects, libraries and library flags. m4_defun([_LT_SYS_HIDDEN_LIBDEPS], [m4_require([_LT_FILEUTILS_DEFAULTS])dnl AC_REQUIRE([_LT_FUNC_STRIPNAME_CNF])dnl # Dependencies to place before and after the object being linked: _LT_TAGVAR(predep_objects, $1)= _LT_TAGVAR(postdep_objects, $1)= _LT_TAGVAR(predeps, $1)= _LT_TAGVAR(postdeps, $1)= _LT_TAGVAR(compiler_lib_search_path, $1)= dnl we can't use the lt_simple_compile_test_code here, dnl because it contains code intended for an executable, dnl not a library. It's possible we should let each dnl tag define a new lt_????_link_test_code variable, dnl but it's only used here... m4_if([$1], [], [cat > conftest.$ac_ext <<_LT_EOF int a; void foo (void) { a = 0; } _LT_EOF ], [$1], [CXX], [cat > conftest.$ac_ext <<_LT_EOF class Foo { public: Foo (void) { a = 0; } private: int a; }; _LT_EOF ], [$1], [F77], [cat > conftest.$ac_ext <<_LT_EOF subroutine foo implicit none integer*4 a a=0 return end _LT_EOF ], [$1], [FC], [cat > conftest.$ac_ext <<_LT_EOF subroutine foo implicit none integer a a=0 return end _LT_EOF ], [$1], [GCJ], [cat > conftest.$ac_ext <<_LT_EOF public class foo { private int a; public void bar (void) { a = 0; } }; _LT_EOF ], [$1], [GO], [cat > conftest.$ac_ext <<_LT_EOF package foo func foo() { } _LT_EOF ]) _lt_libdeps_save_CFLAGS=$CFLAGS case "$CC $CFLAGS " in #( *\ -flto*\ *) CFLAGS="$CFLAGS -fno-lto" ;; *\ -fwhopr*\ *) CFLAGS="$CFLAGS -fno-whopr" ;; *\ -fuse-linker-plugin*\ *) CFLAGS="$CFLAGS -fno-use-linker-plugin" ;; esac dnl Parse the compiler output and extract the necessary dnl objects, libraries and library flags. if AC_TRY_EVAL(ac_compile); then # Parse the compiler output and extract the necessary # objects, libraries and library flags. # Sentinel used to keep track of whether or not we are before # the conftest object file. pre_test_object_deps_done=no for p in `eval "$output_verbose_link_cmd"`; do case ${prev}${p} in -L* | -R* | -l*) # Some compilers place space between "-{L,R}" and the path. # Remove the space. if test $p = "-L" || test $p = "-R"; then prev=$p continue fi # Expand the sysroot to ease extracting the directories later. if test -z "$prev"; then case $p in -L*) func_stripname_cnf '-L' '' "$p"; prev=-L; p=$func_stripname_result ;; -R*) func_stripname_cnf '-R' '' "$p"; prev=-R; p=$func_stripname_result ;; -l*) func_stripname_cnf '-l' '' "$p"; prev=-l; p=$func_stripname_result ;; esac fi case $p in =*) func_stripname_cnf '=' '' "$p"; p=$lt_sysroot$func_stripname_result ;; esac if test "$pre_test_object_deps_done" = no; then case ${prev} in -L | -R) # Internal compiler library paths should come after those # provided the user. The postdeps already come after the # user supplied libs so there is no need to process them. if test -z "$_LT_TAGVAR(compiler_lib_search_path, $1)"; then _LT_TAGVAR(compiler_lib_search_path, $1)="${prev}${p}" else _LT_TAGVAR(compiler_lib_search_path, $1)="${_LT_TAGVAR(compiler_lib_search_path, $1)} ${prev}${p}" fi ;; # The "-l" case would never come before the object being # linked, so don't bother handling this case. esac else if test -z "$_LT_TAGVAR(postdeps, $1)"; then _LT_TAGVAR(postdeps, $1)="${prev}${p}" else _LT_TAGVAR(postdeps, $1)="${_LT_TAGVAR(postdeps, $1)} ${prev}${p}" fi fi prev= ;; *.lto.$objext) ;; # Ignore GCC LTO objects *.$objext) # This assumes that the test object file only shows up # once in the compiler output. if test "$p" = "conftest.$objext"; then pre_test_object_deps_done=yes continue fi if test "$pre_test_object_deps_done" = no; then if test -z "$_LT_TAGVAR(predep_objects, $1)"; then _LT_TAGVAR(predep_objects, $1)="$p" else _LT_TAGVAR(predep_objects, $1)="$_LT_TAGVAR(predep_objects, $1) $p" fi else if test -z "$_LT_TAGVAR(postdep_objects, $1)"; then _LT_TAGVAR(postdep_objects, $1)="$p" else _LT_TAGVAR(postdep_objects, $1)="$_LT_TAGVAR(postdep_objects, $1) $p" fi fi ;; *) ;; # Ignore the rest. esac done # Clean up. rm -f a.out a.exe else echo "libtool.m4: error: problem compiling $1 test program" fi $RM -f confest.$objext CFLAGS=$_lt_libdeps_save_CFLAGS # PORTME: override above test on systems where it is broken m4_if([$1], [CXX], [case $host_os in interix[[3-9]]*) # Interix 3.5 installs completely hosed .la files for C++, so rather than # hack all around it, let's just trust "g++" to DTRT. _LT_TAGVAR(predep_objects,$1)= _LT_TAGVAR(postdep_objects,$1)= _LT_TAGVAR(postdeps,$1)= ;; linux*) case `$CC -V 2>&1 | sed 5q` in *Sun\ C*) # Sun C++ 5.9 # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac if test "$solaris_use_stlport4" != yes; then _LT_TAGVAR(postdeps,$1)='-library=Cstd -library=Crun' fi ;; esac ;; solaris*) case $cc_basename in CC* | sunCC*) # The more standards-conforming stlport4 library is # incompatible with the Cstd library. Avoid specifying # it if it's in CXXFLAGS. Ignore libCrun as # -library=stlport4 depends on it. case " $CXX $CXXFLAGS " in *" -library=stlport4 "*) solaris_use_stlport4=yes ;; esac # Adding this requires a known-good setup of shared libraries for # Sun compiler versions before 5.6, else PIC objects from an old # archive will be linked into the output, leading to subtle bugs. if test "$solaris_use_stlport4" != yes; then _LT_TAGVAR(postdeps,$1)='-library=Cstd -library=Crun' fi ;; esac ;; esac ]) case " $_LT_TAGVAR(postdeps, $1) " in *" -lc "*) _LT_TAGVAR(archive_cmds_need_lc, $1)=no ;; esac _LT_TAGVAR(compiler_lib_search_dirs, $1)= if test -n "${_LT_TAGVAR(compiler_lib_search_path, $1)}"; then _LT_TAGVAR(compiler_lib_search_dirs, $1)=`echo " ${_LT_TAGVAR(compiler_lib_search_path, $1)}" | ${SED} -e 's! -L! !g' -e 's!^ !!'` fi _LT_TAGDECL([], [compiler_lib_search_dirs], [1], [The directories searched by this compiler when creating a shared library]) _LT_TAGDECL([], [predep_objects], [1], [Dependencies to place before and after the objects being linked to create a shared library]) _LT_TAGDECL([], [postdep_objects], [1]) _LT_TAGDECL([], [predeps], [1]) _LT_TAGDECL([], [postdeps], [1]) _LT_TAGDECL([], [compiler_lib_search_path], [1], [The library search path used internally by the compiler when linking a shared library]) ])# _LT_SYS_HIDDEN_LIBDEPS # _LT_LANG_F77_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for a Fortran 77 compiler are # suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_F77_CONFIG], [AC_LANG_PUSH(Fortran 77) if test -z "$F77" || test "X$F77" = "Xno"; then _lt_disable_F77=yes fi _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds _LT_TAGVAR(no_undefined_flag, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no # Source file extension for f77 test sources. ac_ext=f # Object file extension for compiled f77 test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # No sense in running all these tests if we already determined that # the F77 compiler isn't working. Some variables (like enable_shared) # are currently assumed to apply to all compilers on this platform, # and will be corrupted by setting them based on a non-working compiler. if test "$_lt_disable_F77" != yes; then # Code to be used in simple compile tests lt_simple_compile_test_code="\ subroutine t return end " # Code to be used in simple link tests lt_simple_link_test_code="\ program t end " # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC="$CC" lt_save_GCC=$GCC lt_save_CFLAGS=$CFLAGS CC=${F77-"f77"} CFLAGS=$FFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) GCC=$G77 if test -n "$compiler"; then AC_MSG_CHECKING([if libtool supports shared libraries]) AC_MSG_RESULT([$can_build_shared]) AC_MSG_CHECKING([whether to build shared libraries]) test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac AC_MSG_RESULT([$enable_shared]) AC_MSG_CHECKING([whether to build static libraries]) # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes AC_MSG_RESULT([$enable_static]) _LT_TAGVAR(GCC, $1)="$G77" _LT_TAGVAR(LD, $1)="$LD" ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi # test -n "$compiler" GCC=$lt_save_GCC CC="$lt_save_CC" CFLAGS="$lt_save_CFLAGS" fi # test "$_lt_disable_F77" != yes AC_LANG_POP ])# _LT_LANG_F77_CONFIG # _LT_LANG_FC_CONFIG([TAG]) # ------------------------- # Ensure that the configuration variables for a Fortran compiler are # suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_FC_CONFIG], [AC_LANG_PUSH(Fortran) if test -z "$FC" || test "X$FC" = "Xno"; then _lt_disable_FC=yes fi _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(allow_undefined_flag, $1)= _LT_TAGVAR(always_export_symbols, $1)=no _LT_TAGVAR(archive_expsym_cmds, $1)= _LT_TAGVAR(export_dynamic_flag_spec, $1)= _LT_TAGVAR(hardcode_direct, $1)=no _LT_TAGVAR(hardcode_direct_absolute, $1)=no _LT_TAGVAR(hardcode_libdir_flag_spec, $1)= _LT_TAGVAR(hardcode_libdir_separator, $1)= _LT_TAGVAR(hardcode_minus_L, $1)=no _LT_TAGVAR(hardcode_automatic, $1)=no _LT_TAGVAR(inherit_rpath, $1)=no _LT_TAGVAR(module_cmds, $1)= _LT_TAGVAR(module_expsym_cmds, $1)= _LT_TAGVAR(link_all_deplibs, $1)=unknown _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds _LT_TAGVAR(no_undefined_flag, $1)= _LT_TAGVAR(whole_archive_flag_spec, $1)= _LT_TAGVAR(enable_shared_with_static_runtimes, $1)=no # Source file extension for fc test sources. ac_ext=${ac_fc_srcext-f} # Object file extension for compiled fc test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # No sense in running all these tests if we already determined that # the FC compiler isn't working. Some variables (like enable_shared) # are currently assumed to apply to all compilers on this platform, # and will be corrupted by setting them based on a non-working compiler. if test "$_lt_disable_FC" != yes; then # Code to be used in simple compile tests lt_simple_compile_test_code="\ subroutine t return end " # Code to be used in simple link tests lt_simple_link_test_code="\ program t end " # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC="$CC" lt_save_GCC=$GCC lt_save_CFLAGS=$CFLAGS CC=${FC-"f95"} CFLAGS=$FCFLAGS compiler=$CC GCC=$ac_cv_fc_compiler_gnu _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) if test -n "$compiler"; then AC_MSG_CHECKING([if libtool supports shared libraries]) AC_MSG_RESULT([$can_build_shared]) AC_MSG_CHECKING([whether to build shared libraries]) test "$can_build_shared" = "no" && enable_shared=no # On AIX, shared libraries and static libraries use the same namespace, and # are all built from PIC. case $host_os in aix3*) test "$enable_shared" = yes && enable_static=no if test -n "$RANLIB"; then archive_cmds="$archive_cmds~\$RANLIB \$lib" postinstall_cmds='$RANLIB $lib' fi ;; aix[[4-9]]*) if test "$host_cpu" != ia64 && test "$aix_use_runtimelinking" = no ; then test "$enable_shared" = yes && enable_static=no fi ;; esac AC_MSG_RESULT([$enable_shared]) AC_MSG_CHECKING([whether to build static libraries]) # Make sure either enable_shared or enable_static is yes. test "$enable_shared" = yes || enable_static=yes AC_MSG_RESULT([$enable_static]) _LT_TAGVAR(GCC, $1)="$ac_cv_fc_compiler_gnu" _LT_TAGVAR(LD, $1)="$LD" ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... _LT_SYS_HIDDEN_LIBDEPS($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_SYS_DYNAMIC_LINKER($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi # test -n "$compiler" GCC=$lt_save_GCC CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS fi # test "$_lt_disable_FC" != yes AC_LANG_POP ])# _LT_LANG_FC_CONFIG # _LT_LANG_GCJ_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for the GNU Java Compiler compiler # are suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_GCJ_CONFIG], [AC_REQUIRE([LT_PROG_GCJ])dnl AC_LANG_SAVE # Source file extension for Java test sources. ac_ext=java # Object file extension for compiled Java test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="class foo {}" # Code to be used in simple link tests lt_simple_link_test_code='public class conftest { public static void main(String[[]] argv) {}; }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_GCC=$GCC GCC=yes CC=${GCJ-"gcj"} CFLAGS=$GCJFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_TAGVAR(LD, $1)="$LD" _LT_CC_BASENAME([$compiler]) # GCJ did not exist at the time GCC didn't implicitly link libc in. _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then _LT_COMPILER_NO_RTTI($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi AC_LANG_RESTORE GCC=$lt_save_GCC CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS ])# _LT_LANG_GCJ_CONFIG # _LT_LANG_GO_CONFIG([TAG]) # -------------------------- # Ensure that the configuration variables for the GNU Go compiler # are suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_GO_CONFIG], [AC_REQUIRE([LT_PROG_GO])dnl AC_LANG_SAVE # Source file extension for Go test sources. ac_ext=go # Object file extension for compiled Go test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code="package main; func main() { }" # Code to be used in simple link tests lt_simple_link_test_code='package main; func main() { }' # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC=$CC lt_save_CFLAGS=$CFLAGS lt_save_GCC=$GCC GCC=yes CC=${GOC-"gccgo"} CFLAGS=$GOFLAGS compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_TAGVAR(LD, $1)="$LD" _LT_CC_BASENAME([$compiler]) # Go did not exist at the time GCC didn't implicitly link libc in. _LT_TAGVAR(archive_cmds_need_lc, $1)=no _LT_TAGVAR(old_archive_cmds, $1)=$old_archive_cmds _LT_TAGVAR(reload_flag, $1)=$reload_flag _LT_TAGVAR(reload_cmds, $1)=$reload_cmds ## CAVEAT EMPTOR: ## There is no encapsulation within the following macros, do not change ## the running order or otherwise move them around unless you know exactly ## what you are doing... if test -n "$compiler"; then _LT_COMPILER_NO_RTTI($1) _LT_COMPILER_PIC($1) _LT_COMPILER_C_O($1) _LT_COMPILER_FILE_LOCKS($1) _LT_LINKER_SHLIBS($1) _LT_LINKER_HARDCODE_LIBPATH($1) _LT_CONFIG($1) fi AC_LANG_RESTORE GCC=$lt_save_GCC CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS ])# _LT_LANG_GO_CONFIG # _LT_LANG_RC_CONFIG([TAG]) # ------------------------- # Ensure that the configuration variables for the Windows resource compiler # are suitably defined. These variables are subsequently used by _LT_CONFIG # to write the compiler configuration to `libtool'. m4_defun([_LT_LANG_RC_CONFIG], [AC_REQUIRE([LT_PROG_RC])dnl AC_LANG_SAVE # Source file extension for RC test sources. ac_ext=rc # Object file extension for compiled RC test sources. objext=o _LT_TAGVAR(objext, $1)=$objext # Code to be used in simple compile tests lt_simple_compile_test_code='sample MENU { MENUITEM "&Soup", 100, CHECKED }' # Code to be used in simple link tests lt_simple_link_test_code="$lt_simple_compile_test_code" # ltmain only uses $CC for tagged configurations so make sure $CC is set. _LT_TAG_COMPILER # save warnings/boilerplate of simple test code _LT_COMPILER_BOILERPLATE _LT_LINKER_BOILERPLATE # Allow CC to be a program name with arguments. lt_save_CC="$CC" lt_save_CFLAGS=$CFLAGS lt_save_GCC=$GCC GCC= CC=${RC-"windres"} CFLAGS= compiler=$CC _LT_TAGVAR(compiler, $1)=$CC _LT_CC_BASENAME([$compiler]) _LT_TAGVAR(lt_cv_prog_compiler_c_o, $1)=yes if test -n "$compiler"; then : _LT_CONFIG($1) fi GCC=$lt_save_GCC AC_LANG_RESTORE CC=$lt_save_CC CFLAGS=$lt_save_CFLAGS ])# _LT_LANG_RC_CONFIG # LT_PROG_GCJ # ----------- AC_DEFUN([LT_PROG_GCJ], [m4_ifdef([AC_PROG_GCJ], [AC_PROG_GCJ], [m4_ifdef([A][M_PROG_GCJ], [A][M_PROG_GCJ], [AC_CHECK_TOOL(GCJ, gcj,) test "x${GCJFLAGS+set}" = xset || GCJFLAGS="-g -O2" AC_SUBST(GCJFLAGS)])])[]dnl ]) # Old name: AU_ALIAS([LT_AC_PROG_GCJ], [LT_PROG_GCJ]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([LT_AC_PROG_GCJ], []) # LT_PROG_GO # ---------- AC_DEFUN([LT_PROG_GO], [AC_CHECK_TOOL(GOC, gccgo,) ]) # LT_PROG_RC # ---------- AC_DEFUN([LT_PROG_RC], [AC_CHECK_TOOL(RC, windres,) ]) # Old name: AU_ALIAS([LT_AC_PROG_RC], [LT_PROG_RC]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([LT_AC_PROG_RC], []) # _LT_DECL_EGREP # -------------- # If we don't have a new enough Autoconf to choose the best grep # available, choose the one first in the user's PATH. m4_defun([_LT_DECL_EGREP], [AC_REQUIRE([AC_PROG_EGREP])dnl AC_REQUIRE([AC_PROG_FGREP])dnl test -z "$GREP" && GREP=grep _LT_DECL([], [GREP], [1], [A grep program that handles long lines]) _LT_DECL([], [EGREP], [1], [An ERE matcher]) _LT_DECL([], [FGREP], [1], [A literal string matcher]) dnl Non-bleeding-edge autoconf doesn't subst GREP, so do it here too AC_SUBST([GREP]) ]) # _LT_DECL_OBJDUMP # -------------- # If we don't have a new enough Autoconf to choose the best objdump # available, choose the one first in the user's PATH. m4_defun([_LT_DECL_OBJDUMP], [AC_CHECK_TOOL(OBJDUMP, objdump, false) test -z "$OBJDUMP" && OBJDUMP=objdump _LT_DECL([], [OBJDUMP], [1], [An object symbol dumper]) AC_SUBST([OBJDUMP]) ]) # _LT_DECL_DLLTOOL # ---------------- # Ensure DLLTOOL variable is set. m4_defun([_LT_DECL_DLLTOOL], [AC_CHECK_TOOL(DLLTOOL, dlltool, false) test -z "$DLLTOOL" && DLLTOOL=dlltool _LT_DECL([], [DLLTOOL], [1], [DLL creation program]) AC_SUBST([DLLTOOL]) ]) # _LT_DECL_SED # ------------ # Check for a fully-functional sed program, that truncates # as few characters as possible. Prefer GNU sed if found. m4_defun([_LT_DECL_SED], [AC_PROG_SED test -z "$SED" && SED=sed Xsed="$SED -e 1s/^X//" _LT_DECL([], [SED], [1], [A sed program that does not truncate output]) _LT_DECL([], [Xsed], ["\$SED -e 1s/^X//"], [Sed that helps us avoid accidentally triggering echo(1) options like -n]) ])# _LT_DECL_SED m4_ifndef([AC_PROG_SED], [ ############################################################ # NOTE: This macro has been submitted for inclusion into # # GNU Autoconf as AC_PROG_SED. When it is available in # # a released version of Autoconf we should remove this # # macro and use it instead. # ############################################################ m4_defun([AC_PROG_SED], [AC_MSG_CHECKING([for a sed that does not truncate output]) AC_CACHE_VAL(lt_cv_path_SED, [# Loop through the user's path and test for sed and gsed. # Then use that list of sed's as ones to test for truncation. as_save_IFS=$IFS; IFS=$PATH_SEPARATOR for as_dir in $PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. for lt_ac_prog in sed gsed; do for ac_exec_ext in '' $ac_executable_extensions; do if $as_executable_p "$as_dir/$lt_ac_prog$ac_exec_ext"; then lt_ac_sed_list="$lt_ac_sed_list $as_dir/$lt_ac_prog$ac_exec_ext" fi done done done IFS=$as_save_IFS lt_ac_max=0 lt_ac_count=0 # Add /usr/xpg4/bin/sed as it is typically found on Solaris # along with /bin/sed that truncates output. for lt_ac_sed in $lt_ac_sed_list /usr/xpg4/bin/sed; do test ! -f $lt_ac_sed && continue cat /dev/null > conftest.in lt_ac_count=0 echo $ECHO_N "0123456789$ECHO_C" >conftest.in # Check for GNU sed and select it if it is found. if "$lt_ac_sed" --version 2>&1 < /dev/null | grep 'GNU' > /dev/null; then lt_cv_path_SED=$lt_ac_sed break fi while true; do cat conftest.in conftest.in >conftest.tmp mv conftest.tmp conftest.in cp conftest.in conftest.nl echo >>conftest.nl $lt_ac_sed -e 's/a$//' < conftest.nl >conftest.out || break cmp -s conftest.out conftest.nl || break # 10000 chars as input seems more than enough test $lt_ac_count -gt 10 && break lt_ac_count=`expr $lt_ac_count + 1` if test $lt_ac_count -gt $lt_ac_max; then lt_ac_max=$lt_ac_count lt_cv_path_SED=$lt_ac_sed fi done done ]) SED=$lt_cv_path_SED AC_SUBST([SED]) AC_MSG_RESULT([$SED]) ])#AC_PROG_SED ])#m4_ifndef # Old name: AU_ALIAS([LT_AC_PROG_SED], [AC_PROG_SED]) dnl aclocal-1.4 backwards compatibility: dnl AC_DEFUN([LT_AC_PROG_SED], []) # _LT_CHECK_SHELL_FEATURES # ------------------------ # Find out whether the shell is Bourne or XSI compatible, # or has some other useful features. m4_defun([_LT_CHECK_SHELL_FEATURES], [AC_MSG_CHECKING([whether the shell understands some XSI constructs]) # Try some XSI features xsi_shell=no ( _lt_dummy="a/b/c" test "${_lt_dummy##*/},${_lt_dummy%/*},${_lt_dummy#??}"${_lt_dummy%"$_lt_dummy"}, \ = c,a/b,b/c, \ && eval 'test $(( 1 + 1 )) -eq 2 \ && test "${#_lt_dummy}" -eq 5' ) >/dev/null 2>&1 \ && xsi_shell=yes AC_MSG_RESULT([$xsi_shell]) _LT_CONFIG_LIBTOOL_INIT([xsi_shell='$xsi_shell']) AC_MSG_CHECKING([whether the shell understands "+="]) lt_shell_append=no ( foo=bar; set foo baz; eval "$[1]+=\$[2]" && test "$foo" = barbaz ) \ >/dev/null 2>&1 \ && lt_shell_append=yes AC_MSG_RESULT([$lt_shell_append]) _LT_CONFIG_LIBTOOL_INIT([lt_shell_append='$lt_shell_append']) if ( (MAIL=60; unset MAIL) || exit) >/dev/null 2>&1; then lt_unset=unset else lt_unset=false fi _LT_DECL([], [lt_unset], [0], [whether the shell understands "unset"])dnl # test EBCDIC or ASCII case `echo X|tr X '\101'` in A) # ASCII based system # \n is not interpreted correctly by Solaris 8 /usr/ucb/tr lt_SP2NL='tr \040 \012' lt_NL2SP='tr \015\012 \040\040' ;; *) # EBCDIC based system lt_SP2NL='tr \100 \n' lt_NL2SP='tr \r\n \100\100' ;; esac _LT_DECL([SP2NL], [lt_SP2NL], [1], [turn spaces into newlines])dnl _LT_DECL([NL2SP], [lt_NL2SP], [1], [turn newlines into spaces])dnl ])# _LT_CHECK_SHELL_FEATURES # _LT_PROG_FUNCTION_REPLACE (FUNCNAME, REPLACEMENT-BODY) # ------------------------------------------------------ # In `$cfgfile', look for function FUNCNAME delimited by `^FUNCNAME ()$' and # '^} FUNCNAME ', and replace its body with REPLACEMENT-BODY. m4_defun([_LT_PROG_FUNCTION_REPLACE], [dnl { sed -e '/^$1 ()$/,/^} # $1 /c\ $1 ()\ {\ m4_bpatsubsts([$2], [$], [\\], [^\([ ]\)], [\\\1]) } # Extended-shell $1 implementation' "$cfgfile" > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: ]) # _LT_PROG_REPLACE_SHELLFNS # ------------------------- # Replace existing portable implementations of several shell functions with # equivalent extended shell implementations where those features are available.. m4_defun([_LT_PROG_REPLACE_SHELLFNS], [if test x"$xsi_shell" = xyes; then _LT_PROG_FUNCTION_REPLACE([func_dirname], [dnl case ${1} in */*) func_dirname_result="${1%/*}${2}" ;; * ) func_dirname_result="${3}" ;; esac]) _LT_PROG_FUNCTION_REPLACE([func_basename], [dnl func_basename_result="${1##*/}"]) _LT_PROG_FUNCTION_REPLACE([func_dirname_and_basename], [dnl case ${1} in */*) func_dirname_result="${1%/*}${2}" ;; * ) func_dirname_result="${3}" ;; esac func_basename_result="${1##*/}"]) _LT_PROG_FUNCTION_REPLACE([func_stripname], [dnl # pdksh 5.2.14 does not do ${X%$Y} correctly if both X and Y are # positional parameters, so assign one to ordinary parameter first. func_stripname_result=${3} func_stripname_result=${func_stripname_result#"${1}"} func_stripname_result=${func_stripname_result%"${2}"}]) _LT_PROG_FUNCTION_REPLACE([func_split_long_opt], [dnl func_split_long_opt_name=${1%%=*} func_split_long_opt_arg=${1#*=}]) _LT_PROG_FUNCTION_REPLACE([func_split_short_opt], [dnl func_split_short_opt_arg=${1#??} func_split_short_opt_name=${1%"$func_split_short_opt_arg"}]) _LT_PROG_FUNCTION_REPLACE([func_lo2o], [dnl case ${1} in *.lo) func_lo2o_result=${1%.lo}.${objext} ;; *) func_lo2o_result=${1} ;; esac]) _LT_PROG_FUNCTION_REPLACE([func_xform], [ func_xform_result=${1%.*}.lo]) _LT_PROG_FUNCTION_REPLACE([func_arith], [ func_arith_result=$(( $[*] ))]) _LT_PROG_FUNCTION_REPLACE([func_len], [ func_len_result=${#1}]) fi if test x"$lt_shell_append" = xyes; then _LT_PROG_FUNCTION_REPLACE([func_append], [ eval "${1}+=\\${2}"]) _LT_PROG_FUNCTION_REPLACE([func_append_quoted], [dnl func_quote_for_eval "${2}" dnl m4 expansion turns \\\\ into \\, and then the shell eval turns that into \ eval "${1}+=\\\\ \\$func_quote_for_eval_result"]) # Save a `func_append' function call where possible by direct use of '+=' sed -e 's%func_append \([[a-zA-Z_]]\{1,\}\) "%\1+="%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: else # Save a `func_append' function call even when '+=' is not available sed -e 's%func_append \([[a-zA-Z_]]\{1,\}\) "%\1="$\1%g' $cfgfile > $cfgfile.tmp \ && mv -f "$cfgfile.tmp" "$cfgfile" \ || (rm -f "$cfgfile" && cp "$cfgfile.tmp" "$cfgfile" && rm -f "$cfgfile.tmp") test 0 -eq $? || _lt_function_replace_fail=: fi if test x"$_lt_function_replace_fail" = x":"; then AC_MSG_WARN([Unable to substitute extended shell functions in $ofile]) fi ]) # _LT_PATH_CONVERSION_FUNCTIONS # ----------------------------- # Determine which file name conversion functions should be used by # func_to_host_file (and, implicitly, by func_to_host_path). These are needed # for certain cross-compile configurations and native mingw. m4_defun([_LT_PATH_CONVERSION_FUNCTIONS], [AC_REQUIRE([AC_CANONICAL_HOST])dnl AC_REQUIRE([AC_CANONICAL_BUILD])dnl AC_MSG_CHECKING([how to convert $build file names to $host format]) AC_CACHE_VAL(lt_cv_to_host_file_cmd, [case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_w32 ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_cygwin_to_w32 ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_w32 ;; esac ;; *-*-cygwin* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_host_file_cmd=func_convert_file_msys_to_cygwin ;; *-*-cygwin* ) lt_cv_to_host_file_cmd=func_convert_file_noop ;; * ) # otherwise, assume *nix lt_cv_to_host_file_cmd=func_convert_file_nix_to_cygwin ;; esac ;; * ) # unhandled hosts (and "normal" native builds) lt_cv_to_host_file_cmd=func_convert_file_noop ;; esac ]) to_host_file_cmd=$lt_cv_to_host_file_cmd AC_MSG_RESULT([$lt_cv_to_host_file_cmd]) _LT_DECL([to_host_file_cmd], [lt_cv_to_host_file_cmd], [0], [convert $build file names to $host format])dnl AC_MSG_CHECKING([how to convert $build file names to toolchain format]) AC_CACHE_VAL(lt_cv_to_tool_file_cmd, [#assume ordinary cross tools, or native build. lt_cv_to_tool_file_cmd=func_convert_file_noop case $host in *-*-mingw* ) case $build in *-*-mingw* ) # actually msys lt_cv_to_tool_file_cmd=func_convert_file_msys_to_w32 ;; esac ;; esac ]) to_tool_file_cmd=$lt_cv_to_tool_file_cmd AC_MSG_RESULT([$lt_cv_to_tool_file_cmd]) _LT_DECL([to_tool_file_cmd], [lt_cv_to_tool_file_cmd], [0], [convert $build files to toolchain format])dnl ])# _LT_PATH_CONVERSION_FUNCTIONS trueprint-5.4/m4/lt~obsolete.m40000644000175000017500000001375612116662101013503 00000000000000# lt~obsolete.m4 -- aclocal satisfying obsolete definitions. -*-Autoconf-*- # # Copyright (C) 2004, 2005, 2007, 2009 Free Software Foundation, Inc. # Written by Scott James Remnant, 2004. # # This file is free software; the Free Software Foundation gives # unlimited permission to copy and/or distribute it, with or without # modifications, as long as this notice is preserved. # serial 5 lt~obsolete.m4 # These exist entirely to fool aclocal when bootstrapping libtool. # # In the past libtool.m4 has provided macros via AC_DEFUN (or AU_DEFUN) # which have later been changed to m4_define as they aren't part of the # exported API, or moved to Autoconf or Automake where they belong. # # The trouble is, aclocal is a bit thick. It'll see the old AC_DEFUN # in /usr/share/aclocal/libtool.m4 and remember it, then when it sees us # using a macro with the same name in our local m4/libtool.m4 it'll # pull the old libtool.m4 in (it doesn't see our shiny new m4_define # and doesn't know about Autoconf macros at all.) # # So we provide this file, which has a silly filename so it's always # included after everything else. This provides aclocal with the # AC_DEFUNs it wants, but when m4 processes it, it doesn't do anything # because those macros already exist, or will be overwritten later. # We use AC_DEFUN over AU_DEFUN for compatibility with aclocal-1.6. # # Anytime we withdraw an AC_DEFUN or AU_DEFUN, remember to add it here. # Yes, that means every name once taken will need to remain here until # we give up compatibility with versions before 1.7, at which point # we need to keep only those names which we still refer to. # This is to help aclocal find these macros, as it can't see m4_define. AC_DEFUN([LTOBSOLETE_VERSION], [m4_if([1])]) m4_ifndef([AC_LIBTOOL_LINKER_OPTION], [AC_DEFUN([AC_LIBTOOL_LINKER_OPTION])]) m4_ifndef([AC_PROG_EGREP], [AC_DEFUN([AC_PROG_EGREP])]) m4_ifndef([_LT_AC_PROG_ECHO_BACKSLASH], [AC_DEFUN([_LT_AC_PROG_ECHO_BACKSLASH])]) m4_ifndef([_LT_AC_SHELL_INIT], [AC_DEFUN([_LT_AC_SHELL_INIT])]) m4_ifndef([_LT_AC_SYS_LIBPATH_AIX], [AC_DEFUN([_LT_AC_SYS_LIBPATH_AIX])]) m4_ifndef([_LT_PROG_LTMAIN], [AC_DEFUN([_LT_PROG_LTMAIN])]) m4_ifndef([_LT_AC_TAGVAR], [AC_DEFUN([_LT_AC_TAGVAR])]) m4_ifndef([AC_LTDL_ENABLE_INSTALL], [AC_DEFUN([AC_LTDL_ENABLE_INSTALL])]) m4_ifndef([AC_LTDL_PREOPEN], [AC_DEFUN([AC_LTDL_PREOPEN])]) m4_ifndef([_LT_AC_SYS_COMPILER], [AC_DEFUN([_LT_AC_SYS_COMPILER])]) m4_ifndef([_LT_AC_LOCK], [AC_DEFUN([_LT_AC_LOCK])]) m4_ifndef([AC_LIBTOOL_SYS_OLD_ARCHIVE], [AC_DEFUN([AC_LIBTOOL_SYS_OLD_ARCHIVE])]) m4_ifndef([_LT_AC_TRY_DLOPEN_SELF], [AC_DEFUN([_LT_AC_TRY_DLOPEN_SELF])]) m4_ifndef([AC_LIBTOOL_PROG_CC_C_O], [AC_DEFUN([AC_LIBTOOL_PROG_CC_C_O])]) m4_ifndef([AC_LIBTOOL_SYS_HARD_LINK_LOCKS], [AC_DEFUN([AC_LIBTOOL_SYS_HARD_LINK_LOCKS])]) m4_ifndef([AC_LIBTOOL_OBJDIR], [AC_DEFUN([AC_LIBTOOL_OBJDIR])]) m4_ifndef([AC_LTDL_OBJDIR], [AC_DEFUN([AC_LTDL_OBJDIR])]) m4_ifndef([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH], [AC_DEFUN([AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH])]) m4_ifndef([AC_LIBTOOL_SYS_LIB_STRIP], [AC_DEFUN([AC_LIBTOOL_SYS_LIB_STRIP])]) m4_ifndef([AC_PATH_MAGIC], [AC_DEFUN([AC_PATH_MAGIC])]) m4_ifndef([AC_PROG_LD_GNU], [AC_DEFUN([AC_PROG_LD_GNU])]) m4_ifndef([AC_PROG_LD_RELOAD_FLAG], [AC_DEFUN([AC_PROG_LD_RELOAD_FLAG])]) m4_ifndef([AC_DEPLIBS_CHECK_METHOD], [AC_DEFUN([AC_DEPLIBS_CHECK_METHOD])]) m4_ifndef([AC_LIBTOOL_PROG_COMPILER_NO_RTTI], [AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_NO_RTTI])]) m4_ifndef([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE], [AC_DEFUN([AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE])]) m4_ifndef([AC_LIBTOOL_PROG_COMPILER_PIC], [AC_DEFUN([AC_LIBTOOL_PROG_COMPILER_PIC])]) m4_ifndef([AC_LIBTOOL_PROG_LD_SHLIBS], [AC_DEFUN([AC_LIBTOOL_PROG_LD_SHLIBS])]) m4_ifndef([AC_LIBTOOL_POSTDEP_PREDEP], [AC_DEFUN([AC_LIBTOOL_POSTDEP_PREDEP])]) m4_ifndef([LT_AC_PROG_EGREP], [AC_DEFUN([LT_AC_PROG_EGREP])]) m4_ifndef([LT_AC_PROG_SED], [AC_DEFUN([LT_AC_PROG_SED])]) m4_ifndef([_LT_CC_BASENAME], [AC_DEFUN([_LT_CC_BASENAME])]) m4_ifndef([_LT_COMPILER_BOILERPLATE], [AC_DEFUN([_LT_COMPILER_BOILERPLATE])]) m4_ifndef([_LT_LINKER_BOILERPLATE], [AC_DEFUN([_LT_LINKER_BOILERPLATE])]) m4_ifndef([_AC_PROG_LIBTOOL], [AC_DEFUN([_AC_PROG_LIBTOOL])]) m4_ifndef([AC_LIBTOOL_SETUP], [AC_DEFUN([AC_LIBTOOL_SETUP])]) m4_ifndef([_LT_AC_CHECK_DLFCN], [AC_DEFUN([_LT_AC_CHECK_DLFCN])]) m4_ifndef([AC_LIBTOOL_SYS_DYNAMIC_LINKER], [AC_DEFUN([AC_LIBTOOL_SYS_DYNAMIC_LINKER])]) m4_ifndef([_LT_AC_TAGCONFIG], [AC_DEFUN([_LT_AC_TAGCONFIG])]) m4_ifndef([AC_DISABLE_FAST_INSTALL], [AC_DEFUN([AC_DISABLE_FAST_INSTALL])]) m4_ifndef([_LT_AC_LANG_CXX], [AC_DEFUN([_LT_AC_LANG_CXX])]) m4_ifndef([_LT_AC_LANG_F77], [AC_DEFUN([_LT_AC_LANG_F77])]) m4_ifndef([_LT_AC_LANG_GCJ], [AC_DEFUN([_LT_AC_LANG_GCJ])]) m4_ifndef([AC_LIBTOOL_LANG_C_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_C_CONFIG])]) m4_ifndef([_LT_AC_LANG_C_CONFIG], [AC_DEFUN([_LT_AC_LANG_C_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_CXX_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_CXX_CONFIG])]) m4_ifndef([_LT_AC_LANG_CXX_CONFIG], [AC_DEFUN([_LT_AC_LANG_CXX_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_F77_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_F77_CONFIG])]) m4_ifndef([_LT_AC_LANG_F77_CONFIG], [AC_DEFUN([_LT_AC_LANG_F77_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_GCJ_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_GCJ_CONFIG])]) m4_ifndef([_LT_AC_LANG_GCJ_CONFIG], [AC_DEFUN([_LT_AC_LANG_GCJ_CONFIG])]) m4_ifndef([AC_LIBTOOL_LANG_RC_CONFIG], [AC_DEFUN([AC_LIBTOOL_LANG_RC_CONFIG])]) m4_ifndef([_LT_AC_LANG_RC_CONFIG], [AC_DEFUN([_LT_AC_LANG_RC_CONFIG])]) m4_ifndef([AC_LIBTOOL_CONFIG], [AC_DEFUN([AC_LIBTOOL_CONFIG])]) m4_ifndef([_LT_AC_FILE_LTDLL_C], [AC_DEFUN([_LT_AC_FILE_LTDLL_C])]) m4_ifndef([_LT_REQUIRED_DARWIN_CHECKS], [AC_DEFUN([_LT_REQUIRED_DARWIN_CHECKS])]) m4_ifndef([_LT_AC_PROG_CXXCPP], [AC_DEFUN([_LT_AC_PROG_CXXCPP])]) m4_ifndef([_LT_PREPARE_SED_QUOTE_VARS], [AC_DEFUN([_LT_PREPARE_SED_QUOTE_VARS])]) m4_ifndef([_LT_PROG_ECHO_BACKSLASH], [AC_DEFUN([_LT_PROG_ECHO_BACKSLASH])]) m4_ifndef([_LT_PROG_F77], [AC_DEFUN([_LT_PROG_F77])]) m4_ifndef([_LT_PROG_FC], [AC_DEFUN([_LT_PROG_FC])]) m4_ifndef([_LT_PROG_CXX], [AC_DEFUN([_LT_PROG_CXX])]) trueprint-5.4/depcomp0000755000175000017500000005064312116412202011713 00000000000000#! /bin/sh # depcomp - compile a program generating dependencies as side-effects scriptversion=2012-03-27.16; # UTC # Copyright (C) 1999, 2000, 2003, 2004, 2005, 2006, 2007, 2009, 2010, # 2011, 2012 Free Software Foundation, Inc. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program. If not, see . # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Originally written by Alexandre Oliva . case $1 in '') echo "$0: No command. Try '$0 --help' for more information." 1>&2 exit 1; ;; -h | --h*) cat <<\EOF Usage: depcomp [--help] [--version] PROGRAM [ARGS] Run PROGRAMS ARGS to compile a file, generating dependencies as side-effects. Environment variables: depmode Dependency tracking mode. source Source file read by 'PROGRAMS ARGS'. object Object file output by 'PROGRAMS ARGS'. DEPDIR directory where to store dependencies. depfile Dependency file to output. tmpdepfile Temporary file to use when outputting dependencies. libtool Whether libtool is used (yes/no). Report bugs to . EOF exit $? ;; -v | --v*) echo "depcomp $scriptversion" exit $? ;; esac # A tabulation character. tab=' ' # A newline character. nl=' ' if test -z "$depmode" || test -z "$source" || test -z "$object"; then echo "depcomp: Variables source, object and depmode must be set" 1>&2 exit 1 fi # Dependencies for sub/bar.o or sub/bar.obj go into sub/.deps/bar.Po. depfile=${depfile-`echo "$object" | sed 's|[^\\/]*$|'${DEPDIR-.deps}'/&|;s|\.\([^.]*\)$|.P\1|;s|Pobj$|Po|'`} tmpdepfile=${tmpdepfile-`echo "$depfile" | sed 's/\.\([^.]*\)$/.T\1/'`} rm -f "$tmpdepfile" # Some modes work just like other modes, but use different flags. We # parameterize here, but still list the modes in the big case below, # to make depend.m4 easier to write. Note that we *cannot* use a case # here, because this file can only contain one case statement. if test "$depmode" = hp; then # HP compiler uses -M and no extra arg. gccflag=-M depmode=gcc fi if test "$depmode" = dashXmstdout; then # This is just like dashmstdout with a different argument. dashmflag=-xM depmode=dashmstdout fi cygpath_u="cygpath -u -f -" if test "$depmode" = msvcmsys; then # This is just like msvisualcpp but w/o cygpath translation. # Just convert the backslash-escaped backslashes to single forward # slashes to satisfy depend.m4 cygpath_u='sed s,\\\\,/,g' depmode=msvisualcpp fi if test "$depmode" = msvc7msys; then # This is just like msvc7 but w/o cygpath translation. # Just convert the backslash-escaped backslashes to single forward # slashes to satisfy depend.m4 cygpath_u='sed s,\\\\,/,g' depmode=msvc7 fi if test "$depmode" = xlc; then # IBM C/C++ Compilers xlc/xlC can output gcc-like dependency informations. gccflag=-qmakedep=gcc,-MF depmode=gcc fi case "$depmode" in gcc3) ## gcc 3 implements dependency tracking that does exactly what ## we want. Yay! Note: for some reason libtool 1.4 doesn't like ## it if -MD -MP comes after the -MF stuff. Hmm. ## Unfortunately, FreeBSD c89 acceptance of flags depends upon ## the command line argument order; so add the flags where they ## appear in depend2.am. Note that the slowdown incurred here ## affects only configure: in makefiles, %FASTDEP% shortcuts this. for arg do case $arg in -c) set fnord "$@" -MT "$object" -MD -MP -MF "$tmpdepfile" "$arg" ;; *) set fnord "$@" "$arg" ;; esac shift # fnord shift # $arg done "$@" stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi mv "$tmpdepfile" "$depfile" ;; gcc) ## There are various ways to get dependency output from gcc. Here's ## why we pick this rather obscure method: ## - Don't want to use -MD because we'd like the dependencies to end ## up in a subdir. Having to rename by hand is ugly. ## (We might end up doing this anyway to support other compilers.) ## - The DEPENDENCIES_OUTPUT environment variable makes gcc act like ## -MM, not -M (despite what the docs say). ## - Using -M directly means running the compiler twice (even worse ## than renaming). if test -z "$gccflag"; then gccflag=-MD, fi "$@" -Wp,"$gccflag$tmpdepfile" stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" echo "$object : \\" > "$depfile" alpha=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz ## The second -e expression handles DOS-style file names with drive letters. sed -e 's/^[^:]*: / /' \ -e 's/^['$alpha']:\/[^:]*: / /' < "$tmpdepfile" >> "$depfile" ## This next piece of magic avoids the "deleted header file" problem. ## The problem is that when a header file which appears in a .P file ## is deleted, the dependency causes make to die (because there is ## typically no way to rebuild the header). We avoid this by adding ## dummy dependencies for each header file. Too bad gcc doesn't do ## this for us directly. tr ' ' "$nl" < "$tmpdepfile" | ## Some versions of gcc put a space before the ':'. On the theory ## that the space means something, we add a space to the output as ## well. hp depmode also adds that space, but also prefixes the VPATH ## to the object. Take care to not repeat it in the output. ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. sed -e 's/^\\$//' -e '/^$/d' -e "s|.*$object$||" -e '/:$/d' \ | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; hp) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; sgi) if test "$libtool" = yes; then "$@" "-Wp,-MDupdate,$tmpdepfile" else "$@" -MDupdate "$tmpdepfile" fi stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" if test -f "$tmpdepfile"; then # yes, the sourcefile depend on other files echo "$object : \\" > "$depfile" # Clip off the initial element (the dependent). Don't try to be # clever and replace this with sed code, as IRIX sed won't handle # lines with more than a fixed number of characters (4096 in # IRIX 6.2 sed, 8192 in IRIX 6.5). We also remove comment lines; # the IRIX cc adds comments like '#:fec' to the end of the # dependency line. tr ' ' "$nl" < "$tmpdepfile" \ | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' | \ tr "$nl" ' ' >> "$depfile" echo >> "$depfile" # The second pass generates a dummy entry for each header file. tr ' ' "$nl" < "$tmpdepfile" \ | sed -e 's/^.*\.o://' -e 's/#.*$//' -e '/^$/ d' -e 's/$/:/' \ >> "$depfile" else # The sourcefile does not contain any dependencies, so just # store a dummy comment line, to avoid errors with the Makefile # "include basename.Plo" scheme. echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" ;; xlc) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; aix) # The C for AIX Compiler uses -M and outputs the dependencies # in a .u file. In older versions, this file always lives in the # current directory. Also, the AIX compiler puts '$object:' at the # start of each line; $object doesn't have directory information. # Version 6 uses the directory in both cases. dir=`echo "$object" | sed -e 's|/[^/]*$|/|'` test "x$dir" = "x$object" && dir= base=`echo "$object" | sed -e 's|^.*/||' -e 's/\.o$//' -e 's/\.lo$//'` if test "$libtool" = yes; then tmpdepfile1=$dir$base.u tmpdepfile2=$base.u tmpdepfile3=$dir.libs/$base.u "$@" -Wc,-M else tmpdepfile1=$dir$base.u tmpdepfile2=$dir$base.u tmpdepfile3=$dir$base.u "$@" -M fi stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" exit $stat fi for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" do test -f "$tmpdepfile" && break done if test -f "$tmpdepfile"; then # Each line is of the form 'foo.o: dependent.h'. # Do two passes, one to just change these to # '$object: dependent.h' and one to simply 'dependent.h:'. sed -e "s,^.*\.[a-z]*:,$object:," < "$tmpdepfile" > "$depfile" sed -e 's,^.*\.[a-z]*:['"$tab"' ]*,,' -e 's,$,:,' < "$tmpdepfile" >> "$depfile" else # The sourcefile does not contain any dependencies, so just # store a dummy comment line, to avoid errors with the Makefile # "include basename.Plo" scheme. echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" ;; icc) # Intel's C compiler anf tcc (Tiny C Compiler) understand '-MD -MF file'. # However on # $CC -MD -MF foo.d -c -o sub/foo.o sub/foo.c # ICC 7.0 will fill foo.d with something like # foo.o: sub/foo.c # foo.o: sub/foo.h # which is wrong. We want # sub/foo.o: sub/foo.c # sub/foo.o: sub/foo.h # sub/foo.c: # sub/foo.h: # ICC 7.1 will output # foo.o: sub/foo.c sub/foo.h # and will wrap long lines using '\': # foo.o: sub/foo.c ... \ # sub/foo.h ... \ # ... # tcc 0.9.26 (FIXME still under development at the moment of writing) # will emit a similar output, but also prepend the continuation lines # with horizontal tabulation characters. "$@" -MD -MF "$tmpdepfile" stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" # Each line is of the form 'foo.o: dependent.h', # or 'foo.o: dep1.h dep2.h \', or ' dep3.h dep4.h \'. # Do two passes, one to just change these to # '$object: dependent.h' and one to simply 'dependent.h:'. sed -e "s/^[ $tab][ $tab]*/ /" -e "s,^[^:]*:,$object :," \ < "$tmpdepfile" > "$depfile" sed ' s/[ '"$tab"'][ '"$tab"']*/ /g s/^ *// s/ *\\*$// s/^[^:]*: *// /^$/d /:$/d s/$/ :/ ' < "$tmpdepfile" >> "$depfile" rm -f "$tmpdepfile" ;; hp2) # The "hp" stanza above does not work with aCC (C++) and HP's ia64 # compilers, which have integrated preprocessors. The correct option # to use with these is +Maked; it writes dependencies to a file named # 'foo.d', which lands next to the object file, wherever that # happens to be. # Much of this is similar to the tru64 case; see comments there. dir=`echo "$object" | sed -e 's|/[^/]*$|/|'` test "x$dir" = "x$object" && dir= base=`echo "$object" | sed -e 's|^.*/||' -e 's/\.o$//' -e 's/\.lo$//'` if test "$libtool" = yes; then tmpdepfile1=$dir$base.d tmpdepfile2=$dir.libs/$base.d "$@" -Wc,+Maked else tmpdepfile1=$dir$base.d tmpdepfile2=$dir$base.d "$@" +Maked fi stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile1" "$tmpdepfile2" exit $stat fi for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" do test -f "$tmpdepfile" && break done if test -f "$tmpdepfile"; then sed -e "s,^.*\.[a-z]*:,$object:," "$tmpdepfile" > "$depfile" # Add 'dependent.h:' lines. sed -ne '2,${ s/^ *// s/ \\*$// s/$/:/ p }' "$tmpdepfile" >> "$depfile" else echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" "$tmpdepfile2" ;; tru64) # The Tru64 compiler uses -MD to generate dependencies as a side # effect. 'cc -MD -o foo.o ...' puts the dependencies into 'foo.o.d'. # At least on Alpha/Redhat 6.1, Compaq CCC V6.2-504 seems to put # dependencies in 'foo.d' instead, so we check for that too. # Subdirectories are respected. dir=`echo "$object" | sed -e 's|/[^/]*$|/|'` test "x$dir" = "x$object" && dir= base=`echo "$object" | sed -e 's|^.*/||' -e 's/\.o$//' -e 's/\.lo$//'` if test "$libtool" = yes; then # With Tru64 cc, shared objects can also be used to make a # static library. This mechanism is used in libtool 1.4 series to # handle both shared and static libraries in a single compilation. # With libtool 1.4, dependencies were output in $dir.libs/$base.lo.d. # # With libtool 1.5 this exception was removed, and libtool now # generates 2 separate objects for the 2 libraries. These two # compilations output dependencies in $dir.libs/$base.o.d and # in $dir$base.o.d. We have to check for both files, because # one of the two compilations can be disabled. We should prefer # $dir$base.o.d over $dir.libs/$base.o.d because the latter is # automatically cleaned when .libs/ is deleted, while ignoring # the former would cause a distcleancheck panic. tmpdepfile1=$dir.libs/$base.lo.d # libtool 1.4 tmpdepfile2=$dir$base.o.d # libtool 1.5 tmpdepfile3=$dir.libs/$base.o.d # libtool 1.5 tmpdepfile4=$dir.libs/$base.d # Compaq CCC V6.2-504 "$@" -Wc,-MD else tmpdepfile1=$dir$base.o.d tmpdepfile2=$dir$base.d tmpdepfile3=$dir$base.d tmpdepfile4=$dir$base.d "$@" -MD fi stat=$? if test $stat -eq 0; then : else rm -f "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" "$tmpdepfile4" exit $stat fi for tmpdepfile in "$tmpdepfile1" "$tmpdepfile2" "$tmpdepfile3" "$tmpdepfile4" do test -f "$tmpdepfile" && break done if test -f "$tmpdepfile"; then sed -e "s,^.*\.[a-z]*:,$object:," < "$tmpdepfile" > "$depfile" sed -e 's,^.*\.[a-z]*:['"$tab"' ]*,,' -e 's,$,:,' < "$tmpdepfile" >> "$depfile" else echo "#dummy" > "$depfile" fi rm -f "$tmpdepfile" ;; msvc7) if test "$libtool" = yes; then showIncludes=-Wc,-showIncludes else showIncludes=-showIncludes fi "$@" $showIncludes > "$tmpdepfile" stat=$? grep -v '^Note: including file: ' "$tmpdepfile" if test "$stat" = 0; then : else rm -f "$tmpdepfile" exit $stat fi rm -f "$depfile" echo "$object : \\" > "$depfile" # The first sed program below extracts the file names and escapes # backslashes for cygpath. The second sed program outputs the file # name when reading, but also accumulates all include files in the # hold buffer in order to output them again at the end. This only # works with sed implementations that can handle large buffers. sed < "$tmpdepfile" -n ' /^Note: including file: *\(.*\)/ { s//\1/ s/\\/\\\\/g p }' | $cygpath_u | sort -u | sed -n ' s/ /\\ /g s/\(.*\)/'"$tab"'\1 \\/p s/.\(.*\) \\/\1:/ H $ { s/.*/'"$tab"'/ G p }' >> "$depfile" rm -f "$tmpdepfile" ;; msvc7msys) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; #nosideeffect) # This comment above is used by automake to tell side-effect # dependency tracking mechanisms from slower ones. dashmstdout) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout, regardless of -o. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi # Remove '-o $object'. IFS=" " for arg do case $arg in -o) shift ;; $object) shift ;; *) set fnord "$@" "$arg" shift # fnord shift # $arg ;; esac done test -z "$dashmflag" && dashmflag=-M # Require at least two characters before searching for ':' # in the target name. This is to cope with DOS-style filenames: # a dependency such as 'c:/foo/bar' could be seen as target 'c' otherwise. "$@" $dashmflag | sed 's:^['"$tab"' ]*[^:'"$tab"' ][^:][^:]*\:['"$tab"' ]*:'"$object"'\: :' > "$tmpdepfile" rm -f "$depfile" cat < "$tmpdepfile" > "$depfile" tr ' ' "$nl" < "$tmpdepfile" | \ ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; dashXmstdout) # This case only exists to satisfy depend.m4. It is never actually # run, as this mode is specially recognized in the preamble. exit 1 ;; makedepend) "$@" || exit $? # Remove any Libtool call if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi # X makedepend shift cleared=no eat=no for arg do case $cleared in no) set ""; shift cleared=yes ;; esac if test $eat = yes; then eat=no continue fi case "$arg" in -D*|-I*) set fnord "$@" "$arg"; shift ;; # Strip any option that makedepend may not understand. Remove # the object too, otherwise makedepend will parse it as a source file. -arch) eat=yes ;; -*|$object) ;; *) set fnord "$@" "$arg"; shift ;; esac done obj_suffix=`echo "$object" | sed 's/^.*\././'` touch "$tmpdepfile" ${MAKEDEPEND-makedepend} -o"$obj_suffix" -f"$tmpdepfile" "$@" rm -f "$depfile" # makedepend may prepend the VPATH from the source file name to the object. # No need to regex-escape $object, excess matching of '.' is harmless. sed "s|^.*\($object *:\)|\1|" "$tmpdepfile" > "$depfile" sed '1,2d' "$tmpdepfile" | tr ' ' "$nl" | \ ## Some versions of the HPUX 10.20 sed can't process this invocation ## correctly. Breaking it into two sed invocations is a workaround. sed -e 's/^\\$//' -e '/^$/d' -e '/:$/d' | sed -e 's/$/ :/' >> "$depfile" rm -f "$tmpdepfile" "$tmpdepfile".bak ;; cpp) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi # Remove '-o $object'. IFS=" " for arg do case $arg in -o) shift ;; $object) shift ;; *) set fnord "$@" "$arg" shift # fnord shift # $arg ;; esac done "$@" -E | sed -n -e '/^# [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' \ -e '/^#line [0-9][0-9]* "\([^"]*\)".*/ s:: \1 \\:p' | sed '$ s: \\$::' > "$tmpdepfile" rm -f "$depfile" echo "$object : \\" > "$depfile" cat < "$tmpdepfile" >> "$depfile" sed < "$tmpdepfile" '/^$/d;s/^ //;s/ \\$//;s/$/ :/' >> "$depfile" rm -f "$tmpdepfile" ;; msvisualcpp) # Important note: in order to support this mode, a compiler *must* # always write the preprocessed file to stdout. "$@" || exit $? # Remove the call to Libtool. if test "$libtool" = yes; then while test "X$1" != 'X--mode=compile'; do shift done shift fi IFS=" " for arg do case "$arg" in -o) shift ;; $object) shift ;; "-Gm"|"/Gm"|"-Gi"|"/Gi"|"-ZI"|"/ZI") set fnord "$@" shift shift ;; *) set fnord "$@" "$arg" shift shift ;; esac done "$@" -E 2>/dev/null | sed -n '/^#line [0-9][0-9]* "\([^"]*\)"/ s::\1:p' | $cygpath_u | sort -u > "$tmpdepfile" rm -f "$depfile" echo "$object : \\" > "$depfile" sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s::'"$tab"'\1 \\:p' >> "$depfile" echo "$tab" >> "$depfile" sed < "$tmpdepfile" -n -e 's% %\\ %g' -e '/^\(.*\)$/ s::\1\::p' >> "$depfile" rm -f "$tmpdepfile" ;; msvcmsys) # This case exists only to let depend.m4 do its work. It works by # looking at the text of this script. This case will never be run, # since it is checked for above. exit 1 ;; none) exec "$@" ;; *) echo "Unknown depmode $depmode" 1>&2 exit 1 ;; esac exit 0 # Local Variables: # mode: shell-script # sh-indentation: 2 # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-time-zone: "UTC" # time-stamp-end: "; # UTC" # End: trueprint-5.4/AUTHORS0000644000175000017500000000033512116650750011413 00000000000000GNU Trueprint development by: Lezz Giles Jeffrin Jose T MAINTAINER : Jeffrin Jose T Other contributors: a cast of hundreds.... trueprint-5.4/INSTALL0000644000175000017500000001722707625761335011417 00000000000000Basic 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. trueprint-5.4/Makefile.am0000644000175000017500000000053212116421174012372 00000000000000## Makefile.am -- Process this file with automake to produce Makefile.in SUBDIRS = replace src doc tests EXTRA_DIST = config/install-sh \ config/mdate-sh \ config/missing \ config/mkinstalldirs \ config/sys_errlist.m4 \ doc/trueprint.1 \ doc/trueprint.spec \ data/printers \ data/testprint \ BUGS \ bootstrap ACLOCAL_AMFLAGS = -I m4 trueprint-5.4/README0000644000175000017500000000007707625761335011241 00000000000000This is GNU Trueprint version 5.3.1b. This is a Beta version. trueprint-5.4/doc/0000755000175000017500000000000012117403106011157 500000000000000trueprint-5.4/doc/trueprint.10000644000175000017500000004121407625761737013250 00000000000000.\" Diese Anleitung ist unter der GPL veröffentlicht. .\" Alle Richtlinien der GPL sind in diesem Dokument zu beachten. .\" Um ein ASCII-Textfile zu bekommen, folgenden Befehl ausführen. .\" groff -man -Tascii pon.1 > pon.txt .\" .TH TRUEPRINT 1 "7. 1. 2000" GNU "User Manual" .SH NAME trueprint \- print program listings on postscript printer. .SH SYNOPSIS .B trueprint [ .B options ] [ .B files ] .SH DESCRIPTION .B trueprint is a general purpose program printing program. It tries to produce everything that anybody could need in a program printout without the need for large numbers of switches or pipelines. .B trueprint can currently handle C, C++, Java, Perl, Verilog, shell (including ksh), Pascal, pseudo C, report files (trueprint report file, see NOTES), listing files, text files. .PP Each page in the output has a default header consisting of the date or a user-defined string, the current function name, and the overall page number (which is used in the indexes); and a footer consisting of the date, the current file name and page number within file, and the overall page number. If the language contains the concept of braces then .B trueprint will include a braces depth count in the left-hand margin. .PP The printout has two function indexes at the front - one is an alphabetical list of all functions and the other is a list of files with functions in each file in alphabetical order. The first is suppressed if there are no functions and the second is suppressed if there is only one file. .PP If no language is specified on the command line then options are defaulted to be appropriate for the first file specified on the command line. The filetype is taken from the suffix - valid suffixes are .TP .B "Language Suffix language option" .TP C .c .h -language=c .TP C++ .cxx .cpp .cc -langauge=cxx .br .C .hpp .H .TP Java .java -language=java .TP Shell .sh -language=sh .TP Perl .pl -language=perl .TP Pascal .pas -language=pascal .TP Verilog .v -language=v .TP Pseudo C .pc .ph -language=pseudoc .TP Report format .rep -language=report .TP Listing .lst -language=list .TP Plain Text default -language=text .PP When Trueprint starts it uses four sets of options: .PP \(em Hard-coded defaults .br \(em Language-specific defaults .br \(em Options taken from the environment variable `$TP_OPTS' .br \(em Command-line options .PP Each set of options overrides the earlier sets, so command-line options override all other sets. .br If you want to set some personal default options, then simply set the environment variable `$TP_OPTS'. .SH OPTIONS .SS Miscellaneous Options .TP .B \-D , \-\-debug= set debug options to (see USAGE whatfor is). .TP .B \-O , \-\-diff= if is a file then print diffs between and input file otherwise use as a prefix and print diffs. See USAGE for more information on usage. .TP .B \-t , \-\-language= treat input as language. Use --help=language for list. .TP .B \-U , \-\-username= set username for coversheet .TP .B \-H, \-\-help[=] Type help information and given the option it lists options for the following topics: .IP .B all-options \- all options .br .B misc-options \- miscellaneous options .br .B page-furniture-options \- page furniture options .br .B text-format-options \- text formatting options .br .B print-options \- options that select what to print .br .B page-format-options \- page format options .br .B output-options \- options affecting output .br .B language \- languages .br .B prompt \- format for --print-pages string .br .B debug \- format for --debug string .br .B header \- format for header & footer strings .br .B report \- file format for --language=report input .br .B environment \- environment vars used .TP .B \-V, \-\-version Type version information .TP .B \-N, \-\-use\-environment use environment variables .TP .B \-\-N, \-\-ignore\-environment don't use values from environment, such as time, $USER, etc. This is for test purposes, to make test results more reproducible .TP .B \-R 1, \-\-ps\-level\-one Use level one postscript. .TP .B \-R 2, \-\-ps\-level\-two Use level two postscript. .SS Text Formatting .TP .B \-b, \-\-no\-page\-break\-after\-function don't print page breaks at the end of functions .TP .B \-\-b, \-\-page\-break\-after\-function print page breaks at the end of functions .TP .B \-W, \-\-no\-intelligent\-line\-wrap Wrap lines at exactly the line-wrap column .TP .B \-\-W, \-\-intelligent\-line\-wrap Wrap lines intelligently at significant characters, such as a space .TP .B \-L , \-\-minimum\-line\-length= minimum line length permitted by intelligent line wrap (default 10) .TP .B \-T , \-\-tabsize= set tabsize (default 8) .TP .B \-E, \-\-ignore\-form\-feeds don't expand form feed characters to new page .TP .B \-\-E, \-\-form\-feeds expand form feed characters to new page .TP .B \-p , \-\-point\-size= specify point size (default 10) .TP .B \-g , \-\-leading= specify interline gap in points (default 1) .TP .B \-w , \-\-line\-wrap= specify the line-wrap column. .TP .B \-\-no\-line\-wrap turn off line-wrap .TP .B \-l , \-\-page\-length= specify number of lines on a page, point size is calculated appropriately .SS Page Formatting .TP .B \-I, \-\-no\-holepunch don't leave space for holepunch at the side of each page .TP .B \-\-I, \-\-holepunch leave space for holepunch at the side of each page .TP .B \-J, \-\-no\-top\-holepunch don't leave space for holepunch at the top of each page .TP .B \-\-J, \-\-top\-holepunch leave space for holepunch at the top of each page .TP .B \-o p, \-\-portrait print using portrait orientation .TP .B \-o l, \-\-landscape print using landscape orientation .TP .B \-S 1, \-\-single-sided print single-sided .TP .B \-S 2, \-\-double\-sided print double-sided .TP .B \-1, \-\-one\-up print 1-on-1 (default) .TP .B \-2, \-\-two\-up print 2-on-1 .TP .B \-3, \-\-two\-tall\-up print 2-on-1 at 4-on-1 pointsize .TP .B \-4, \-\-four\-up print 4-on-1 .SS Page Furniture .TP .B \-X , \-\-left\-header= specify string for left side of header .TP .B \-x , \-\-left\-footer= specify string for left side of footer .TP .B \-Y , \-\-center\-header= specify string for center of header .TP .B \-y , \-\-center\-footer= specify string for center of footer .TP .B \-Z , \-\-right\-header= specify string for right side of header .TP .B \-z , \-\-right\-footer= specify string for right side of footer .TP .B \-m , \-\-message= message to be printed over page. Will be printed in a very large, light gray font. There are a few escapes as a replacement for ; see USAGE for more information. .TP .B \-G , \-\-gray\-bands= Emulate the old lineprinter paper with gray bands across each page. The value of gives the width of the bands and the gaps between them .TP .B \-K, \-\-headers include the header on each page .TP .B \-\-K, \-\-no\-headers suppress the header on each page .TP .B \-k, \-\-footers include the footer on each page .TP .B \-\-k, \-\-no\-footers suppress the footer on each page .TP .B \-u, \-\-page\-furniture\-lines Draw lines around header & footer boxes and down left side of page. .TP .B \-\-u, \-\-no\-page\-furniture\-lines Don't draw lines around header & footer boxes or down left side of page. .TP .B \-i, \-\-no\-braces-depth exclude the braces depth count .TP .B \-\-i, \-\-braces\-depth include the braces depth count .TP .B \-n, \-\-no\-line\-numbers exclude the line number count .TP .B \-\-n, \-\-line\-numbers include the line number count .SS Output Options Per .RB default " trueprint " will send the postscript output to `lp' or `lpr' and it will explicitly set the destination to the value of the environment variable `$PRINTER'. .TP .B \-d , \-\-printer= use printer .TP .B \-P , \-\-printer= use printer .TP .B \-s , \-\-output= send output to filename ; use - for stdout .TP .B \-r, \-\-redirect\-output redirect output to .ps file named after first filename .TP .B \-\-r, \-\-no\-redirect\-output don't redirect output .TP .B \-c , \-\-copies= specify number of copies to be printed .SS Print Selection .TP .B \-C, \-\-no\-cover\-sheet don't print cover sheet .TP .B \-\-C, \-\-cover\-sheet print cover sheet .TP .B \-A , \-\-print\-pages= specify list of pages to be printed (see USAGE whatfor is). .TP .B \-a, \-\-no\-prompt don't prompt for each page, whether it should be printed or not .TP .B \-\-a, \-\-prompt prompt for each page, whether it should be printed or not .TP .B \-F, \-\-no\-file\-index don't print file index .TP .B \-\-F, \-\-file\-index print file index .TP .B \-f, \-\-no\-function\-index don't print function index .TP .B \-\-f, \-\-function\-index print function index .TP .B \-B, \-\-no\-print\-body don't print body of text .TP .B \-\-B, \-\-print\-body print body of text .SH USAGE The usage of the .RB ` "\-D " ', .RB ` "\-\-debug=" ' is as follows: .br Each letter turns on a set of debugging messages, and the corresponding digit indicates the level of messages, with 1 indicating the least number of messags and 9 turning on all messages. The letter `@' can be used to turn on all areas, so `--debug=@9' will turn on all messages. Use `--help=debug' for details of what letters turn on what areas. .br Note that this feature is not uniformly implemented - messages were only typically added where they were needed. Also note that messages will not be generated in code prior to the code that sets the debug string! .PP The usage of the .RB ` "\-O " ', .RB ` "\-\-diff=" ' option looks as follows: .br You specify the old version of the file or files with `--diff='. If suffixed with the current filename is a valid file then the differences between / are displayed. Alternatively, if is a file and you're printing one file, then the differences between and the current file are displayed. Examples how to make it are shown below: .IP trueprint --diff=../old- this.c that.c .PP will print the differences between ../old-this.c and this.c, and ../old-that.c and that.c. .IP trueprint --diff=../old/ this.c that.c .PP will print the differences between ../old/this.c and this.c, and ../old/that.c and that.c. Note that the trailing / is important. .IP trueprint --diff=this.c that.c .PP will print the differences between this.c and that.c. .PP The usage of the .RB ` "\-A " ', .RB ` "\-\-print\-pages=" ' option looks as follows: .br consists of a comma-seperated list of page selections: .IP .B `' -- print the specific page .br .B `-' -- Print all pages between, and including, the specified pages .br .B `' -- Print all pages that include function-name. .br .B `d' -- Print all pages that have changed (this is only useful with the `--diff' (see above) option. .br .B `D' -- Print all pages containing functions that have changed (this is only useful with the `--diff' (see above) option. .br .B `f' -- Print the function index .br .B `F' -- Print the file index. .PP For example, .IP --print-pages=1-5,main,f .PP will print the function index, pages 1 to 5, and all the pages for the function `main'. .PP If you specify .RB ` "--prompt" ' then .B trueprint will prompt you for each page, whether or not it should print that page. It will give you information such as the current filename, current functionname, page number, and so on. The possible responses are: .IP .B `y' -- Print this page. .br .B `y' -- Print pages. .br .B `y*' -- Print all the remaining pages. .br .B `n' -- Skip this page .br .B `n' -- Skip pages. .br .B `n*' -- Skip all the remaining pages. .br .B `p' -- Print all remaining pages that match , where is in the format defined above. .br .B `?' -- Print a help message. .PP The .RB ` "--message=" ' option takes a few % escapes for which are listed below: .IP .B `%%' -- Print a simple %. .br .B `%m' -- Print the current month of the year as a number, e.g. 05. .br .B `%d' -- Print the current day of the month, e.g. 01. .br .B `%y' -- Print the current year, e.g. 1999 .br .B `%D' -- Print the date in the format mm/dd/yy. .br .B `%L' -- Print the date and time in long format, e.g. Fri Oct 8 11:49:51 1999 .br .B `%c' -- Print the last modified date of the current file in the format mm/dd/yy. .br .B `%C' -- Print the last modified date and time of the current file in long format, e.g. Fri Oct 8 11:49:51 1999 .br .B `%H' -- Print the current hour. .br .B `%M' -- Print the current minute. .br .B `%S' -- Print the current second. .br .B `%T' -- Print the time in the format HH:MM:SS. .br .B `%j' -- Print the day of the year, e.g. 095. .br .B `%w' -- Print the day of the week, e.g. Sunday. .br .B `%a' -- Print the abbreviated day of the week, e.g. Sun. .br .B `%h' -- Print the abbreviated month name, e.g. Mar. .br .B `%r' -- Print the time in am/pm notation, e.g. 10:45pm. .br .B `%p' -- Print the page number in the current file. .br .B `%P' -- Print the overall page number. .br .B `%f' -- Print the total number of pages of the current file. .br .B `%F' -- Print the total number of pages. .br .B `%n' -- Print the current filename. .br .B `%N' -- Print the current function name. .br .B `%l' -- Print the username of the current user. .PP Default Values are: .IP `left-header' `%L' .br `center-header' `%N' .br `right-header' `Page %P of %F' .br `left-footer' `%L' .br `center-footer' `%n %p' .br `right-footer' `Page %P of %F' .SH NOTES For most of the languages, .B trueprint uses the language to work out where comments are (so it can print them in italics) and where the function names are (so it can print them in bold and include them in the function index). However there are some special features for some of the languages: .PP Pseudo C is like C, except it has a more forgiving syntax. In particular it ignores strings, so if you leave off a closing quote then pseudo C will print out using a vaguely sensible format. Pseudo C is intended for printing code that doesn't yet compile. .PP Listing format assumes very wide lines and a fixed page length of sixty-six characters, so it turns off line-wrap and sets the page length appropriately. .PP Report format uses a few special characters: anything between ^A and ^E is printed in bold and included in the function index, and anything between a pair of ^Cs is printed in italics. .SH ENVIRONMENT By default Trueprint uses environment variables and the current username. .TP .B PRINTER Specify the printer to use when sending postscript output to the printer. .TP .B TP_OPTS Specify options. These options override any default options including language defaults, but are overridden by command line options. .TP .B TP_DIFF_CMD Specify the diff command to be used. The command must produce output in the same format as the classic Unix diff. This variable can be used to add flags to the diff command used, for example to make diff ignore whitespace. .TP .B TP_PRINT_CMD Specify the print command. The default is lpr. If this is set then it should be set to a command that takes standard input. If this is set then the destination and number of copies have no effect, i.e. there is no mechanism to pass these values to your print command. If you set this to /bin/cat then the postscript output will appear on stdout. .TP .B TP_PRINTERS_FILE Specify the printers file. The default is the printers file that was initially configured when trueprint was installed. This can be used to test out a new printers file. .SH AUTHOR The program was written by Lezz Giles. Please send bug reports to and ideas for enhancement or similar things to . The manpage was written by Othmar Pasteka . trueprint-5.4/doc/version.texi0000644000175000017500000000014112116637673013474 00000000000000@set UPDATED 23 February 2003 @set UPDATED-MONTH February 2003 @set EDITION 5.4 @set VERSION 5.4 trueprint-5.4/doc/mdate-sh0000755000175000017500000001371712116412202012534 00000000000000#!/bin/sh # Get modification time of a file or directory and pretty-print it. scriptversion=2010-08-21.06; # UTC # Copyright (C) 1995, 1996, 1997, 2003, 2004, 2005, 2007, 2009, 2010 # Free Software Foundation, Inc. # written by Ulrich Drepper , June 1995 # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # This file is maintained in Automake, please report # bugs to or send patches to # . if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST fi case $1 in '') echo "$0: No file. Try \`$0 --help' for more information." 1>&2 exit 1; ;; -h | --h*) cat <<\EOF Usage: mdate-sh [--help] [--version] FILE Pretty-print the modification day of FILE, in the format: 1 January 1970 Report bugs to . EOF exit $? ;; -v | --v*) echo "mdate-sh $scriptversion" exit $? ;; esac error () { echo "$0: $1" >&2 exit 1 } # Prevent date giving response in another language. LANG=C export LANG LC_ALL=C export LC_ALL LC_TIME=C export LC_TIME # GNU ls changes its time format in response to the TIME_STYLE # variable. Since we cannot assume `unset' works, revert this # variable to its documented default. if test "${TIME_STYLE+set}" = set; then TIME_STYLE=posix-long-iso export TIME_STYLE fi save_arg1=$1 # Find out how to get the extended ls output of a file or directory. if ls -L /dev/null 1>/dev/null 2>&1; then ls_command='ls -L -l -d' else ls_command='ls -l -d' fi # Avoid user/group names that might have spaces, when possible. if ls -n /dev/null 1>/dev/null 2>&1; then ls_command="$ls_command -n" fi # A `ls -l' line looks as follows on OS/2. # drwxrwx--- 0 Aug 11 2001 foo # This differs from Unix, which adds ownership information. # drwxrwx--- 2 root root 4096 Aug 11 2001 foo # # To find the date, we split the line on spaces and iterate on words # until we find a month. This cannot work with files whose owner is a # user named `Jan', or `Feb', etc. However, it's unlikely that `/' # will be owned by a user whose name is a month. So we first look at # the extended ls output of the root directory to decide how many # words should be skipped to get the date. # On HPUX /bin/sh, "set" interprets "-rw-r--r--" as options, so the "x" below. set x`$ls_command /` # Find which argument is the month. month= command= until test $month do test $# -gt 0 || error "failed parsing \`$ls_command /' output" shift # Add another shift to the command. command="$command shift;" case $1 in Jan) month=January; nummonth=1;; Feb) month=February; nummonth=2;; Mar) month=March; nummonth=3;; Apr) month=April; nummonth=4;; May) month=May; nummonth=5;; Jun) month=June; nummonth=6;; Jul) month=July; nummonth=7;; Aug) month=August; nummonth=8;; Sep) month=September; nummonth=9;; Oct) month=October; nummonth=10;; Nov) month=November; nummonth=11;; Dec) month=December; nummonth=12;; esac done test -n "$month" || error "failed parsing \`$ls_command /' output" # Get the extended ls output of the file or directory. set dummy x`eval "$ls_command \"\\\$save_arg1\""` # Remove all preceding arguments eval $command # Because of the dummy argument above, month is in $2. # # On a POSIX system, we should have # # $# = 5 # $1 = file size # $2 = month # $3 = day # $4 = year or time # $5 = filename # # On Darwin 7.7.0 and 7.6.0, we have # # $# = 4 # $1 = day # $2 = month # $3 = year or time # $4 = filename # Get the month. case $2 in Jan) month=January; nummonth=1;; Feb) month=February; nummonth=2;; Mar) month=March; nummonth=3;; Apr) month=April; nummonth=4;; May) month=May; nummonth=5;; Jun) month=June; nummonth=6;; Jul) month=July; nummonth=7;; Aug) month=August; nummonth=8;; Sep) month=September; nummonth=9;; Oct) month=October; nummonth=10;; Nov) month=November; nummonth=11;; Dec) month=December; nummonth=12;; esac case $3 in ???*) day=$1;; *) day=$3; shift;; esac # Here we have to deal with the problem that the ls output gives either # the time of day or the year. case $3 in *:*) set `date`; eval year=\$$# case $2 in Jan) nummonthtod=1;; Feb) nummonthtod=2;; Mar) nummonthtod=3;; Apr) nummonthtod=4;; May) nummonthtod=5;; Jun) nummonthtod=6;; Jul) nummonthtod=7;; Aug) nummonthtod=8;; Sep) nummonthtod=9;; Oct) nummonthtod=10;; Nov) nummonthtod=11;; Dec) nummonthtod=12;; esac # For the first six month of the year the time notation can also # be used for files modified in the last year. if (expr $nummonth \> $nummonthtod) > /dev/null; then year=`expr $year - 1` fi;; *) year=$3;; esac # The result. echo $day $month $year # Local Variables: # mode: shell-script # sh-indentation: 2 # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-time-zone: "UTC" # time-stamp-end: "; # UTC" # End: trueprint-5.4/doc/texinfo.tex0000644000175000017500000116130512116412202013300 00000000000000% texinfo.tex -- TeX macros to handle Texinfo files. % % Load plain if necessary, i.e., if running under initex. \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi % \def\texinfoversion{2012-03-11.15} % % Copyright 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995, % 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, % 2007, 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. % % This texinfo.tex file is free software: you can redistribute it and/or % modify it under the terms of the GNU General Public License as % published by the Free Software Foundation, either version 3 of the % License, or (at your option) any later version. % % This texinfo.tex file is distributed in the hope that it will be % useful, but WITHOUT ANY WARRANTY; without even the implied warranty % of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU % General Public License for more details. % % You should have received a copy of the GNU General Public License % along with this program. If not, see . % % As a special exception, when this file is read by TeX when processing % a Texinfo source document, you may use the result without % restriction. (This has been our intent since Texinfo was invented.) % % Please try the latest version of texinfo.tex before submitting bug % reports; you can get the latest version from: % http://www.gnu.org/software/texinfo/ (the Texinfo home page), or % ftp://tug.org/tex/texinfo.tex % (and all CTAN mirrors, see http://www.ctan.org). % The texinfo.tex in any given distribution could well be out % of date, so if that's what you're using, please check. % % Send bug reports to bug-texinfo@gnu.org. Please include including a % complete document in each bug report with which we can reproduce the % problem. Patches are, of course, greatly appreciated. % % To process a Texinfo manual with TeX, it's most reliable to use the % texi2dvi shell script that comes with the distribution. For a simple % manual foo.texi, however, you can get away with this: % tex foo.texi % texindex foo.?? % tex foo.texi % tex foo.texi % dvips foo.dvi -o # or whatever; this makes foo.ps. % The extra TeX runs get the cross-reference information correct. % Sometimes one run after texindex suffices, and sometimes you need more % than two; texi2dvi does it as many times as necessary. % % It is possible to adapt texinfo.tex for other languages, to some % extent. You can get the existing language-specific files from the % full Texinfo distribution. % % The GNU Texinfo home page is http://www.gnu.org/software/texinfo. \message{Loading texinfo [version \texinfoversion]:} % If in a .fmt file, print the version number % and turn on active characters that we couldn't do earlier because % they might have appeared in the input file name. \everyjob{\message{[Texinfo version \texinfoversion]}% \catcode`+=\active \catcode`\_=\active} \chardef\other=12 % We never want plain's \outer definition of \+ in Texinfo. % For @tex, we can use \tabalign. \let\+ = \relax % Save some plain tex macros whose names we will redefine. \let\ptexb=\b \let\ptexbullet=\bullet \let\ptexc=\c \let\ptexcomma=\, \let\ptexdot=\. \let\ptexdots=\dots \let\ptexend=\end \let\ptexequiv=\equiv \let\ptexexclam=\! \let\ptexfootnote=\footnote \let\ptexgtr=> \let\ptexhat=^ \let\ptexi=\i \let\ptexindent=\indent \let\ptexinsert=\insert \let\ptexlbrace=\{ \let\ptexless=< \let\ptexnewwrite\newwrite \let\ptexnoindent=\noindent \let\ptexplus=+ \let\ptexraggedright=\raggedright \let\ptexrbrace=\} \let\ptexslash=\/ \let\ptexstar=\* \let\ptext=\t \let\ptextop=\top {\catcode`\'=\active \global\let\ptexquoteright'}% active in plain's math mode % If this character appears in an error message or help string, it % starts a new line in the output. \newlinechar = `^^J % 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 % Pre-3.0. \else \def\linenumber{l.\the\inputlineno:\space} \fi % Set up fixed words for English if not already set. \ifx\putwordAppendix\undefined \gdef\putwordAppendix{Appendix}\fi \ifx\putwordChapter\undefined \gdef\putwordChapter{Chapter}\fi \ifx\putworderror\undefined \gdef\putworderror{error}\fi \ifx\putwordfile\undefined \gdef\putwordfile{file}\fi \ifx\putwordin\undefined \gdef\putwordin{in}\fi \ifx\putwordIndexIsEmpty\undefined \gdef\putwordIndexIsEmpty{(Index is empty)}\fi \ifx\putwordIndexNonexistent\undefined \gdef\putwordIndexNonexistent{(Index is nonexistent)}\fi \ifx\putwordInfo\undefined \gdef\putwordInfo{Info}\fi \ifx\putwordInstanceVariableof\undefined \gdef\putwordInstanceVariableof{Instance Variable of}\fi \ifx\putwordMethodon\undefined \gdef\putwordMethodon{Method on}\fi \ifx\putwordNoTitle\undefined \gdef\putwordNoTitle{No Title}\fi \ifx\putwordof\undefined \gdef\putwordof{of}\fi \ifx\putwordon\undefined \gdef\putwordon{on}\fi \ifx\putwordpage\undefined \gdef\putwordpage{page}\fi \ifx\putwordsection\undefined \gdef\putwordsection{section}\fi \ifx\putwordSection\undefined \gdef\putwordSection{Section}\fi \ifx\putwordsee\undefined \gdef\putwordsee{see}\fi \ifx\putwordSee\undefined \gdef\putwordSee{See}\fi \ifx\putwordShortTOC\undefined \gdef\putwordShortTOC{Short Contents}\fi \ifx\putwordTOC\undefined \gdef\putwordTOC{Table of Contents}\fi % \ifx\putwordMJan\undefined \gdef\putwordMJan{January}\fi \ifx\putwordMFeb\undefined \gdef\putwordMFeb{February}\fi \ifx\putwordMMar\undefined \gdef\putwordMMar{March}\fi \ifx\putwordMApr\undefined \gdef\putwordMApr{April}\fi \ifx\putwordMMay\undefined \gdef\putwordMMay{May}\fi \ifx\putwordMJun\undefined \gdef\putwordMJun{June}\fi \ifx\putwordMJul\undefined \gdef\putwordMJul{July}\fi \ifx\putwordMAug\undefined \gdef\putwordMAug{August}\fi \ifx\putwordMSep\undefined \gdef\putwordMSep{September}\fi \ifx\putwordMOct\undefined \gdef\putwordMOct{October}\fi \ifx\putwordMNov\undefined \gdef\putwordMNov{November}\fi \ifx\putwordMDec\undefined \gdef\putwordMDec{December}\fi % \ifx\putwordDefmac\undefined \gdef\putwordDefmac{Macro}\fi \ifx\putwordDefspec\undefined \gdef\putwordDefspec{Special Form}\fi \ifx\putwordDefvar\undefined \gdef\putwordDefvar{Variable}\fi \ifx\putwordDefopt\undefined \gdef\putwordDefopt{User Option}\fi \ifx\putwordDeffunc\undefined \gdef\putwordDeffunc{Function}\fi % Since the category of space is not known, we have to be careful. \chardef\spacecat = 10 \def\spaceisspace{\catcode`\ =\spacecat} % sometimes characters are active, so we need control sequences. \chardef\ampChar = `\& \chardef\colonChar = `\: \chardef\commaChar = `\, \chardef\dashChar = `\- \chardef\dotChar = `\. \chardef\exclamChar= `\! \chardef\hashChar = `\# \chardef\lquoteChar= `\` \chardef\questChar = `\? \chardef\rquoteChar= `\' \chardef\semiChar = `\; \chardef\slashChar = `\/ \chardef\underChar = `\_ % Ignore a token. % \def\gobble#1{} % The following is used inside several \edef's. \def\makecsname#1{\expandafter\noexpand\csname#1\endcsname} % Hyphenation fixes. \hyphenation{ Flor-i-da Ghost-script Ghost-view Mac-OS Post-Script ap-pen-dix bit-map bit-maps data-base data-bases eshell fall-ing half-way long-est man-u-script man-u-scripts mini-buf-fer mini-buf-fers over-view par-a-digm par-a-digms rath-er rec-tan-gu-lar ro-bot-ics se-vere-ly set-up spa-ces spell-ing spell-ings stand-alone strong-est time-stamp time-stamps which-ever white-space wide-spread wrap-around } % Margin to add to right of even pages, to left of odd pages. \newdimen\bindingoffset \newdimen\normaloffset \newdimen\pagewidth \newdimen\pageheight % 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 } % Sometimes it is convenient to have everything in the transcript file % and nothing on the terminal. We don't just call \tracingall here, % since that produces some useless output on the terminal. We also make % some effort to order the tracing commands to reduce output in the log % file; cf. trace.sty in LaTeX. % \def\gloggingall{\begingroup \globaldefs = 1 \loggingall \endgroup}% \def\loggingall{% \tracingstats2 \tracingpages1 \tracinglostchars2 % 2 gives us more in etex \tracingparagraphs1 \tracingoutput1 \tracingmacros2 \tracingrestores1 \showboxbreadth\maxdimen \showboxdepth\maxdimen \ifx\eTeXversion\thisisundefined\else % etex gives us more logging \tracingscantokens1 \tracingifs1 \tracinggroups1 \tracingnesting2 \tracingassigns1 \fi \tracingcommands3 % 3 gives us more in etex \errorcontextlines16 }% % @errormsg{MSG}. Do the index-like expansions on MSG, but if things % aren't perfect, it's not the end of the world, being an error message, % after all. % \def\errormsg{\begingroup \indexnofonts \doerrormsg} \def\doerrormsg#1{\errmessage{#1}} % add check for \lastpenalty to plain's definitions. If the last thing % we did was a \nobreak, we don't want to insert more space. % \def\smallbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\smallskipamount \removelastskip\penalty-50\smallskip\fi\fi} \def\medbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\medskipamount \removelastskip\penalty-100\medskip\fi\fi} \def\bigbreak{\ifnum\lastpenalty<10000\par\ifdim\lastskip<\bigskipamount \removelastskip\penalty-200\bigskip\fi\fi} % Do @cropmarks to get crop marks. % \newif\ifcropmarks \let\cropmarks = \cropmarkstrue % % Dimensions to add cropmarks at corners. % Added by P. A. MacKay, 12 Nov. 1986 % \newdimen\outerhsize \newdimen\outervsize % set by the paper size routines \newdimen\cornerlong \cornerlong=1pc \newdimen\cornerthick \cornerthick=.3pt \newdimen\topandbottommargin \topandbottommargin=.75in % Output a mark which sets \thischapter, \thissection and \thiscolor. % We dump everything together because we only have one kind of mark. % This works because we only use \botmark / \topmark, not \firstmark. % % A mark contains a subexpression of the \ifcase ... \fi construct. % \get*marks macros below extract the needed part using \ifcase. % % Another complication is to let the user choose whether \thischapter % (\thissection) refers to the chapter (section) in effect at the top % of a page, or that at the bottom of a page. The solution is % described on page 260 of The TeXbook. It involves outputting two % marks for the sectioning macros, one before the section break, and % one after. I won't pretend I can describe this better than DEK... \def\domark{% \toks0=\expandafter{\lastchapterdefs}% \toks2=\expandafter{\lastsectiondefs}% \toks4=\expandafter{\prevchapterdefs}% \toks6=\expandafter{\prevsectiondefs}% \toks8=\expandafter{\lastcolordefs}% \mark{% \the\toks0 \the\toks2 \noexpand\or \the\toks4 \the\toks6 \noexpand\else \the\toks8 }% } % \topmark doesn't work for the very first chapter (after the title % page or the contents), so we use \firstmark there -- this gets us % the mark with the chapter defs, unless the user sneaks in, e.g., % @setcolor (or @url, or @link, etc.) between @contents and the very % first @chapter. \def\gettopheadingmarks{% \ifcase0\topmark\fi \ifx\thischapter\empty \ifcase0\firstmark\fi \fi } \def\getbottomheadingmarks{\ifcase1\botmark\fi} \def\getcolormarks{\ifcase2\topmark\fi} % Avoid "undefined control sequence" errors. \def\lastchapterdefs{} \def\lastsectiondefs{} \def\prevchapterdefs{} \def\prevsectiondefs{} \def\lastcolordefs{} % Main output routine. \chardef\PAGE = 255 \output = {\onepageout{\pagecontents\PAGE}} \newbox\headlinebox \newbox\footlinebox % \onepageout takes a vbox as an argument. Note that \pagecontents % does insertions, but you have to call it yourself. \def\onepageout#1{% \ifcropmarks \hoffset=0pt \else \hoffset=\normaloffset \fi % \ifodd\pageno \advance\hoffset by \bindingoffset \else \advance\hoffset by -\bindingoffset\fi % % Do this outside of the \shipout so @code etc. will be expanded in % the headline as they should be, not taken literally (outputting ''code). \ifodd\pageno \getoddheadingmarks \else \getevenheadingmarks \fi \setbox\headlinebox = \vbox{\let\hsize=\pagewidth \makeheadline}% \ifodd\pageno \getoddfootingmarks \else \getevenfootingmarks \fi \setbox\footlinebox = \vbox{\let\hsize=\pagewidth \makefootline}% % {% % Have to do this stuff outside the \shipout because we want it to % take effect in \write's, yet the group defined by the \vbox ends % before the \shipout runs. % \indexdummies % don't expand commands in the output. \normalturnoffactive % \ in index entries must not stay \, e.g., if % the page break happens to be in the middle of an example. % We don't want .vr (or whatever) entries like this: % \entry{{\tt \indexbackslash }acronym}{32}{\code {\acronym}} % "\acronym" won't work when it's read back in; % it needs to be % {\code {{\tt \backslashcurfont }acronym} \shipout\vbox{% % Do this early so pdf references go to the beginning of the page. \ifpdfmakepagedest \pdfdest name{\the\pageno} xyz\fi % \ifcropmarks \vbox to \outervsize\bgroup \hsize = \outerhsize \vskip-\topandbottommargin \vtop to0pt{% \line{\ewtop\hfil\ewtop}% \nointerlineskip \line{% \vbox{\moveleft\cornerthick\nstop}% \hfill \vbox{\moveright\cornerthick\nstop}% }% \vss}% \vskip\topandbottommargin \line\bgroup \hfil % center the page within the outer (page) hsize. \ifodd\pageno\hskip\bindingoffset\fi \vbox\bgroup \fi % \unvbox\headlinebox \pagebody{#1}% \ifdim\ht\footlinebox > 0pt % Only leave this space if the footline is nonempty. % (We lessened \vsize for it in \oddfootingyyy.) % The \baselineskip=24pt in plain's \makefootline has no effect. \vskip 24pt \unvbox\footlinebox \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 \indexdummies \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\relax \unvbox#1\relax \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{\parseargusing{}} \def\parseargusing#1#2{% \def\argtorun{#2}% \begingroup \obeylines \spaceisspace #1% \parseargline\empty% Insert the \empty token, see \finishparsearg below. } {\obeylines % \gdef\parseargline#1^^M{% \endgroup % End of the group started in \parsearg. \argremovecomment #1\comment\ArgTerm% }% } % First remove any @comment, then any @c comment. \def\argremovecomment#1\comment#2\ArgTerm{\argremovec #1\c\ArgTerm} \def\argremovec#1\c#2\ArgTerm{\argcheckspaces#1\^^M\ArgTerm} % Each occurrence of `\^^M' or `\^^M' is replaced by a single space. % % \argremovec might leave us with trailing space, e.g., % @end itemize @c foo % This space token undergoes the same procedure and is eventually removed % by \finishparsearg. % \def\argcheckspaces#1\^^M{\argcheckspacesX#1\^^M \^^M} \def\argcheckspacesX#1 \^^M{\argcheckspacesY#1\^^M} \def\argcheckspacesY#1\^^M#2\^^M#3\ArgTerm{% \def\temp{#3}% \ifx\temp\empty % Do not use \next, perhaps the caller of \parsearg uses it; reuse \temp: \let\temp\finishparsearg \else \let\temp\argcheckspaces \fi % Put the space token in: \temp#1 #3\ArgTerm } % If a _delimited_ argument is enclosed in braces, they get stripped; so % to get _exactly_ the rest of the line, we had to prevent such situation. % We prepended an \empty token at the very beginning and we expand it now, % just before passing the control to \argtorun. % (Similarly, we have to think about #3 of \argcheckspacesY above: it is % either the null string, or it ends with \^^M---thus there is no danger % that a pair of braces would be stripped. % % But first, we have to remove the trailing space token. % \def\finishparsearg#1 \ArgTerm{\expandafter\argtorun\expandafter{#1}} % \parseargdef\foo{...} % is roughly equivalent to % \def\foo{\parsearg\Xfoo} % \def\Xfoo#1{...} % % Actually, I use \csname\string\foo\endcsname, ie. \\foo, as it is my % favourite TeX trick. --kasal, 16nov03 \def\parseargdef#1{% \expandafter \doparseargdef \csname\string#1\endcsname #1% } \def\doparseargdef#1#2{% \def#2{\parsearg#1}% \def#1##1% } % Several utility definitions with active space: { \obeyspaces \gdef\obeyedspace{ } % 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. % \gdef\sepspaces{\obeyspaces\let =\tie} % 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 \ ). \gdef\unsepspaces{\let =\space} } \def\flushcr{\ifx\par\lisppar \def\next##1{}\else \let\next=\relax \fi \next} % Define the framework for environments in texinfo.tex. It's used like this: % % \envdef\foo{...} % \def\Efoo{...} % % It's the responsibility of \envdef to insert \begingroup before the % actual body; @end closes the group after calling \Efoo. \envdef also % defines \thisenv, so the current environment is known; @end checks % whether the environment name matches. The \checkenv macro can also be % used to check whether the current environment is the one expected. % % Non-false conditionals (@iftex, @ifset) don't fit into this, so they % are not treated as environments; they don't open a group. (The % implementation of @end takes care not to call \endgroup in this % special case.) % At run-time, environments start with this: \def\startenvironment#1{\begingroup\def\thisenv{#1}} % initialize \let\thisenv\empty % ... but they get defined via ``\envdef\foo{...}'': \long\def\envdef#1#2{\def#1{\startenvironment#1#2}} \def\envparseargdef#1#2{\parseargdef#1{\startenvironment#1#2}} % Check whether we're in the right environment: \def\checkenv#1{% \def\temp{#1}% \ifx\thisenv\temp \else \badenverr \fi } % Environment mismatch, #1 expected: \def\badenverr{% \errhelp = \EMsimple \errmessage{This command can appear only \inenvironment\temp, not \inenvironment\thisenv}% } \def\inenvironment#1{% \ifx#1\empty outside of any environment% \else in environment \expandafter\string#1% \fi } % @end foo executes the definition of \Efoo. % But first, it executes a specialized version of \checkenv % \parseargdef\end{% \if 1\csname iscond.#1\endcsname \else % The general wording of \badenverr may not be ideal. \expandafter\checkenv\csname#1\endcsname \csname E#1\endcsname \endgroup \fi } \newhelp\EMsimple{Press RETURN to continue.} % 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} % @/ allows a line break. \let\/=\allowbreak % @. is an end-of-sentence period. \def\.{.\spacefactor=\endofsentencespacefactor\space} % @! is an end-of-sentence bang. \def\!{!\spacefactor=\endofsentencespacefactor\space} % @? is an end-of-sentence query. \def\?{?\spacefactor=\endofsentencespacefactor\space} % @frenchspacing on|off says whether to put extra space after punctuation. % \def\onword{on} \def\offword{off} % \parseargdef\frenchspacing{% \def\temp{#1}% \ifx\temp\onword \plainfrenchspacing \else\ifx\temp\offword \plainnonfrenchspacing \else \errhelp = \EMsimple \errmessage{Unknown @frenchspacing option `\temp', must be on|off}% \fi\fi } % @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. % % Another complication is that the group might be very large. This can % cause the glue on the previous page to be unduly stretched, because it % does not have much material. In this case, it's better to add an % explicit \vfill so that the extra space is at the bottom. The % threshold for doing this is if the group is more than \vfilllimit % percent of a page (\vfilllimit can be changed inside of @tex). % \newbox\groupbox \def\vfilllimit{0.7} % \envdef\group{% \ifnum\catcode`\^^M=\active \else \errhelp = \groupinvalidhelp \errmessage{@group invalid in context where filling is enabled}% \fi \startsavinginserts % \setbox\groupbox = \vtop\bgroup % 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 } % % The \vtop 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. Thus, space below is not quite equal to space % above. But it's pretty close. \def\Egroup{% % To get correct interline space between the last line of the group % and the first line afterwards, we have to propagate \prevdepth. \endgraf % Not \par, as it may have been set to \lisppar. \global\dimen1 = \prevdepth \egroup % End the \vtop. % \dimen0 is the vertical size of the group's box. \dimen0 = \ht\groupbox \advance\dimen0 by \dp\groupbox % \dimen2 is how much space is left on the page (more or less). \dimen2 = \pageheight \advance\dimen2 by -\pagetotal % if the group doesn't fit on the current page, and it's a big big % group, force a page break. \ifdim \dimen0 > \dimen2 \ifdim \pagetotal < \vfilllimit\pageheight \page \fi \fi \box\groupbox \prevdepth = \dimen1 \checkinserts } % % 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 \parseargdef\need{% % 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 (and is undocumented). \let\br = \par % @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. \parseargdef\exdent{\hfil\break\hbox{\kern -\exdentamount{\rm#1}}\hfil\break} % This defn is used inside nofill environments such as @example. \parseargdef\nofillexdent{{\advance \leftskip by -\exdentamount \leftline{\hskip\leftskip{\rm#1}}}} % @inmargin{WHICH}{TEXT} puts TEXT in the WHICH margin next to the current % paragraph. For more general purposes, use the \margin insertion % class. WHICH is `l' or `r'. Not documented, written for gawk manual. % \newskip\inmarginspacing \inmarginspacing=1cm \def\strutdepth{\dp\strutbox} % \def\doinmargin#1#2{\strut\vadjust{% \nobreak \kern-\strutdepth \vtop to \strutdepth{% \baselineskip=\strutdepth \vss % if you have multiple lines of stuff to put here, you'll need to % make the vbox yourself of the appropriate size. \ifx#1l% \llap{\ignorespaces #2\hskip\inmarginspacing}% \else \rlap{\hskip\hsize \hskip\inmarginspacing \ignorespaces #2}% \fi \null }% }} \def\inleftmargin{\doinmargin l} \def\inrightmargin{\doinmargin r} % % @inmargin{TEXT [, RIGHT-TEXT]} % (if RIGHT-TEXT is given, use TEXT for left page, RIGHT-TEXT for right; % else use TEXT for both). % \def\inmargin#1{\parseinmargin #1,,\finish} \def\parseinmargin#1,#2,#3\finish{% not perfect, but better than nothing. \setbox0 = \hbox{\ignorespaces #2}% \ifdim\wd0 > 0pt \def\lefttext{#1}% have both texts \def\righttext{#2}% \else \def\lefttext{#1}% have only one text \def\righttext{#1}% \fi % \ifodd\pageno \def\temp{\inrightmargin\righttext}% odd page -> outside is right margin \else \def\temp{\inleftmargin\lefttext}% \fi \temp } % @| 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). This command % is not documented, not supported, and doesn't work. % \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 }% }% } % @include FILE -- \input text of FILE. % \def\include{\parseargusing\filenamecatcodes\includezzz} \def\includezzz#1{% \pushthisfilestack \def\thisfile{#1}% {% \makevalueexpandable % we want to expand any @value in FILE. \turnoffactive % and allow special characters in the expansion \indexnofonts % Allow `@@' and other weird things in file names. \wlog{texinfo.tex: doing @include of #1^^J}% \edef\temp{\noexpand\input #1 }% % % This trickery is to read FILE outside of a group, in case it makes % definitions, etc. \expandafter }\temp \popthisfilestack } \def\filenamecatcodes{% \catcode`\\=\other \catcode`~=\other \catcode`^=\other \catcode`_=\other \catcode`|=\other \catcode`<=\other \catcode`>=\other \catcode`+=\other \catcode`-=\other \catcode`\`=\other \catcode`\'=\other } \def\pushthisfilestack{% \expandafter\pushthisfilestackX\popthisfilestack\StackTerm } \def\pushthisfilestackX{% \expandafter\pushthisfilestackY\thisfile\StackTerm } \def\pushthisfilestackY #1\StackTerm #2\StackTerm {% \gdef\popthisfilestack{\gdef\thisfile{#1}\gdef\popthisfilestack{#2}}% } \def\popthisfilestack{\errthisfilestackempty} \def\errthisfilestackempty{\errmessage{Internal error: the stack of filenames is empty.}} % \def\thisfile{} % @center line % outputs that line, centered. % \parseargdef\center{% \ifhmode \let\centersub\centerH \else \let\centersub\centerV \fi \centersub{\hfil \ignorespaces#1\unskip \hfil}% \let\centersub\relax % don't let the definition persist, just in case } \def\centerH#1{{% \hfil\break \advance\hsize by -\leftskip \advance\hsize by -\rightskip \line{#1}% \break }} % \newcount\centerpenalty \def\centerV#1{% % The idea here is the same as in \startdefun, \cartouche, etc.: if % @center is the first thing after a section heading, we need to wipe % out the negative parskip inserted by \sectionheading, but still % prevent a page break here. \centerpenalty = \lastpenalty \ifnum\centerpenalty>10000 \vskip\parskip \fi \ifnum\centerpenalty>9999 \penalty\centerpenalty \fi \line{\kern\leftskip #1\kern\rightskip}% } % @sp n outputs n lines of vertical space % \parseargdef\sp{\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. % NCHARS can also be the word `asis' or `none'. % We cannot feasibly implement @paragraphindent asis, though. % \def\asisword{asis} % no translation, these are keywords \def\noneword{none} % \parseargdef\paragraphindent{% \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. \parseargdef\exampleindent{% \def\temp{#1}% \ifx\temp\asisword \else \ifx\temp\noneword \lispnarrowing = 0pt \else \lispnarrowing = #1em \fi \fi } % @firstparagraphindent WORD % If WORD is `none', then suppress indentation of the first paragraph % after a section heading. If WORD is `insert', then do indent at such % paragraphs. % % The paragraph indentation is suppressed or not by calling % \suppressfirstparagraphindent, which the sectioning commands do. % We switch the definition of this back and forth according to WORD. % By default, we suppress indentation. % \def\suppressfirstparagraphindent{\dosuppressfirstparagraphindent} \def\insertword{insert} % \parseargdef\firstparagraphindent{% \def\temp{#1}% \ifx\temp\noneword \let\suppressfirstparagraphindent = \dosuppressfirstparagraphindent \else\ifx\temp\insertword \let\suppressfirstparagraphindent = \relax \else \errhelp = \EMsimple \errmessage{Unknown @firstparagraphindent option `\temp'}% \fi\fi } % Here is how we actually suppress indentation. Redefine \everypar to % \kern backwards by \parindent, and then reset itself to empty. % % We also make \indent itself not actually do anything until the next % paragraph. % \gdef\dosuppressfirstparagraphindent{% \gdef\indent{% \restorefirstparagraphindent \indent }% \gdef\noindent{% \restorefirstparagraphindent \noindent }% \global\everypar = {% \kern -\parindent \restorefirstparagraphindent }% } \gdef\restorefirstparagraphindent{% \global \let \indent = \ptexindent \global \let \noindent = \ptexnoindent \global \everypar = {}% } % @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{% \fixbackslash % Turn off hack to swallow `\input texinfo'. \iflinks \tryauxfile % Open the new aux file. TeX will close it automatically at exit. \immediate\openout\auxfile=\jobname.aux \fi % \openindices needs to do some work in any case. \openindices \let\setfilename=\comment % Ignore extra @setfilename cmds. % % If texinfo.cnf is present on the system, read it. % Useful for site-wide @afourpaper, etc. \openin 1 texinfo.cnf \ifeof 1 \else \input texinfo.cnf \fi \closein 1 % \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 % when pdftex is run in dvi mode, \pdfoutput is defined (so \pdfoutput=1 % can be set). So we test for \relax and 0 as well as being undefined. \ifx\pdfoutput\thisisundefined \else \ifx\pdfoutput\relax \else \ifcase\pdfoutput \else \pdftrue \fi \fi \fi % PDF uses PostScript string constants for the names of xref targets, % for display in the outlines, and in other places. Thus, we have to % double any backslashes. Otherwise, a name like "\node" will be % interpreted as a newline (\n), followed by o, d, e. Not good. % % See http://www.ntg.nl/pipermail/ntg-pdftex/2004-July/000654.html and % related messages. The final outcome is that it is up to the TeX user % to double the backslashes and otherwise make the string valid, so % that's what we do. pdftex 1.30.0 (ca.2005) introduced a primitive to % do this reliably, so we use it. % #1 is a control sequence in which to do the replacements, % which we \xdef. \def\txiescapepdf#1{% \ifx\pdfescapestring\relax % No primitive available; should we give a warning or log? % Many times it won't matter. \else % The expandable \pdfescapestring primitive escapes parentheses, % backslashes, and other special chars. \xdef#1{\pdfescapestring{#1}}% \fi } \newhelp\nopdfimagehelp{Texinfo supports .png, .jpg, .jpeg, and .pdf images with PDF output, and none of those formats could be found. (.eps cannot be supported due to the design of the PDF format; use regular TeX (DVI output) for that.)} \ifpdf % % Color manipulation macros based on pdfcolor.tex, % except using rgb instead of cmyk; the latter is said to render as a % very dark gray on-screen and a very dark halftone in print, instead % of actual black. \def\rgbDarkRed{0.50 0.09 0.12} \def\rgbBlack{0 0 0} % % k sets the color for filling (usual text, etc.); % K sets the color for stroking (thin rules, e.g., normal _'s). \def\pdfsetcolor#1{\pdfliteral{#1 rg #1 RG}} % % Set color, and create a mark which defines \thiscolor accordingly, % so that \makeheadline knows which color to restore. \def\setcolor#1{% \xdef\lastcolordefs{\gdef\noexpand\thiscolor{#1}}% \domark \pdfsetcolor{#1}% } % \def\maincolor{\rgbBlack} \pdfsetcolor{\maincolor} \edef\thiscolor{\maincolor} \def\lastcolordefs{} % \def\makefootline{% \baselineskip24pt \line{\pdfsetcolor{\maincolor}\the\footline}% } % \def\makeheadline{% \vbox to 0pt{% \vskip-22.5pt \line{% \vbox to8.5pt{}% % Extract \thiscolor definition from the marks. \getcolormarks % Typeset the headline with \maincolor, then restore the color. \pdfsetcolor{\maincolor}\the\headline\pdfsetcolor{\thiscolor}% }% \vss }% \nointerlineskip } % % \pdfcatalog{/PageMode /UseOutlines} % % #1 is image name, #2 width (might be empty/whitespace), #3 height (ditto). \def\dopdfimage#1#2#3{% \def\pdfimagewidth{#2}\setbox0 = \hbox{\ignorespaces #2}% \def\pdfimageheight{#3}\setbox2 = \hbox{\ignorespaces #3}% % % pdftex (and the PDF format) support .pdf, .png, .jpg (among % others). Let's try in that order, PDF first since if % someone has a scalable image, presumably better to use that than a % bitmap. \let\pdfimgext=\empty \begingroup \openin 1 #1.pdf \ifeof 1 \openin 1 #1.PDF \ifeof 1 \openin 1 #1.png \ifeof 1 \openin 1 #1.jpg \ifeof 1 \openin 1 #1.jpeg \ifeof 1 \openin 1 #1.JPG \ifeof 1 \errhelp = \nopdfimagehelp \errmessage{Could not find image file #1 for pdf}% \else \gdef\pdfimgext{JPG}% \fi \else \gdef\pdfimgext{jpeg}% \fi \else \gdef\pdfimgext{jpg}% \fi \else \gdef\pdfimgext{png}% \fi \else \gdef\pdfimgext{PDF}% \fi \else \gdef\pdfimgext{pdf}% \fi \closein 1 \endgroup % % without \immediate, ancient pdftex seg faults when the same image is % included twice. (Version 3.14159-pre-1.0-unofficial-20010704.) \ifnum\pdftexversion < 14 \immediate\pdfimage \else \immediate\pdfximage \fi \ifdim \wd0 >0pt width \pdfimagewidth \fi \ifdim \wd2 >0pt height \pdfimageheight \fi \ifnum\pdftexversion<13 #1.\pdfimgext \else {#1.\pdfimgext}% \fi \ifnum\pdftexversion < 14 \else \pdfrefximage \pdflastximage \fi} % \def\pdfmkdest#1{{% % We have to set dummies so commands such as @code, and characters % such as \, aren't expanded when present in a section title. \indexnofonts \turnoffactive \makevalueexpandable \def\pdfdestname{#1}% \txiescapepdf\pdfdestname \safewhatsit{\pdfdest name{\pdfdestname} xyz}% }} % % used to mark target names; must be expandable. \def\pdfmkpgn#1{#1} % % by default, use a color that is dark enough to print on paper as % nearly black, but still distinguishable for online viewing. \def\urlcolor{\rgbDarkRed} \def\linkcolor{\rgbDarkRed} \def\endlink{\setcolor{\maincolor}\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 by 1 \expandafter\xdef\csname#1\endcsname{\the\tempnum}} % % #1 is the section text, which is what will be displayed in the % outline by the pdf viewer. #2 is the pdf expression for the number % of subentries (or empty, for subsubsections). #3 is the node text, % which might be empty if this toc entry had no corresponding node. % #4 is the page number % \def\dopdfoutline#1#2#3#4{% % Generate a link to the node text if that exists; else, use the % page number. We could generate a destination for the section % text in the case where a section has no node, but it doesn't % seem worth the trouble, since most documents are normally structured. \edef\pdfoutlinedest{#3}% \ifx\pdfoutlinedest\empty \def\pdfoutlinedest{#4}% \else \txiescapepdf\pdfoutlinedest \fi % % Also escape PDF chars in the display string. \edef\pdfoutlinetext{#1}% \txiescapepdf\pdfoutlinetext % \pdfoutline goto name{\pdfmkpgn{\pdfoutlinedest}}#2{\pdfoutlinetext}% } % \def\pdfmakeoutlines{% \begingroup % Read toc silently, to get counts of subentries for \pdfoutline. \def\partentry##1##2##3##4{}% ignore parts in the outlines \def\numchapentry##1##2##3##4{% \def\thischapnum{##2}% \def\thissecnum{0}% \def\thissubsecnum{0}% }% \def\numsecentry##1##2##3##4{% \advancenumber{chap\thischapnum}% \def\thissecnum{##2}% \def\thissubsecnum{0}% }% \def\numsubsecentry##1##2##3##4{% \advancenumber{sec\thissecnum}% \def\thissubsecnum{##2}% }% \def\numsubsubsecentry##1##2##3##4{% \advancenumber{subsec\thissubsecnum}% }% \def\thischapnum{0}% \def\thissecnum{0}% \def\thissubsecnum{0}% % % use \def rather than \let here because we redefine \chapentry et % al. a second time, below. \def\appentry{\numchapentry}% \def\appsecentry{\numsecentry}% \def\appsubsecentry{\numsubsecentry}% \def\appsubsubsecentry{\numsubsubsecentry}% \def\unnchapentry{\numchapentry}% \def\unnsecentry{\numsecentry}% \def\unnsubsecentry{\numsubsecentry}% \def\unnsubsubsecentry{\numsubsubsecentry}% \readdatafile{toc}% % % Read toc second time, this time actually producing the outlines. % The `-' means take the \expnumber as the absolute number of % subentries, which we calculated on our first read of the .toc above. % % We use the node names as the destinations. \def\numchapentry##1##2##3##4{% \dopdfoutline{##1}{count-\expnumber{chap##2}}{##3}{##4}}% \def\numsecentry##1##2##3##4{% \dopdfoutline{##1}{count-\expnumber{sec##2}}{##3}{##4}}% \def\numsubsecentry##1##2##3##4{% \dopdfoutline{##1}{count-\expnumber{subsec##2}}{##3}{##4}}% \def\numsubsubsecentry##1##2##3##4{% count is always zero \dopdfoutline{##1}{}{##3}{##4}}% % % PDF outlines are displayed using system fonts, instead of % document fonts. Therefore we cannot use special characters, % since the encoding is unknown. For example, the eogonek from % Latin 2 (0xea) gets translated to a | character. Info from % Staszek Wawrykiewicz, 19 Jan 2004 04:09:24 +0100. % % TODO this right, we have to translate 8-bit characters to % their "best" equivalent, based on the @documentencoding. Too % much work for too little return. Just use the ASCII equivalents % we use for the index sort strings. % \indexnofonts \setupdatafile % We can have normal brace characters in the PDF outlines, unlike % Texinfo index files. So set that up. \def\{{\lbracecharliteral}% \def\}{\rbracecharliteral}% \catcode`\\=\active \otherbackslash \input \tocreadfilename \endgroup } {\catcode`[=1 \catcode`]=2 \catcode`{=\other \catcode`}=\other \gdef\lbracecharliteral[{]% \gdef\rbracecharliteral[}]% ] % \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 % If we don't expand the argument now, \skipspaces will get % snagged on things like "@value{foo}". \edef\temp{#1}% \expandafter\skipspaces\temp|\relax } \ifnum\pdftexversion < 14 \let \startlink \pdfannotlink \else \let \startlink \pdfstartlink \fi % make a live url in pdf output. \def\pdfurl#1{% \begingroup % it seems we really need yet another set of dummies; have not % tried to figure out what each command should do in the context % of @url. for now, just make @/ a no-op, that's the only one % people have actually reported a problem with. % \normalturnoffactive \def\@{@}% \let\/=\empty \makevalueexpandable % do we want to go so far as to use \indexnofonts instead of just % special-casing \var here? \def\var##1{##1}% % \leavevmode\setcolor{\urlcolor}% \startlink attr{/Border [0 0 0]}% user{/Subtype /Link /A << /S /URI /URI (#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|\relax \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{\pdfmkpgn{#1}} \setcolor{\linkcolor}#1\endlink} \def\done{\edef\st{\global\noexpand\toksA={\the\toksB}}\st} \else % non-pdf mode \let\pdfmkdest = \gobble \let\pdfurl = \gobble \let\endlink = \relax \let\setcolor = \gobble \let\pdfsetcolor = \gobble \let\pdfmakeoutlines = \relax \fi % \ifx\pdfoutput \message{fonts,} % Change the current font style to #1, remembering it in \curfontstyle. % For now, we do not accumulate font styles: @b{@i{foo}} prints foo in % italics, not bold italics. % \def\setfontstyle#1{% \def\curfontstyle{#1}% not as a control sequence, because we are \edef'd. \csname ten#1\endcsname % change the current font } % Select #1 fonts with the current style. % \def\selectfonts#1{\csname #1fonts\endcsname \csname\curfontstyle\endcsname} \def\rm{\fam=0 \setfontstyle{rm}} \def\it{\fam=\itfam \setfontstyle{it}} \def\sl{\fam=\slfam \setfontstyle{sl}} \def\bf{\fam=\bffam \setfontstyle{bf}}\def\bfstylename{bf} \def\tt{\fam=\ttfam \setfontstyle{tt}} % Unfortunately, we have to override this for titles and the like, since % in those cases "rm" is bold. Sigh. \def\rmisbold{\rm\def\curfontstyle{bf}} % Texinfo sort of supports the sans serif font style, which plain TeX does not. % So we set up a \sf. \newfam\sffam \def\sf{\fam=\sffam \setfontstyle{sf}} \let\li = \sf % Sometimes we call it \li, not \sf. % We don't need math for this font style. \def\ttsl{\setfontstyle{ttsl}} % Default leading. \newdimen\textleading \textleading = 13.2pt % 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} % % can get a sort of poor man's double spacing by redefining this. \def\baselinefactor{1} % \def\setleading#1{% \dimen0 = #1\relax \normalbaselineskip = \baselinefactor\dimen0 \normallineskip = \lineskipfactor\normalbaselineskip \normalbaselines \setbox\strutbox =\hbox{% \vrule width0pt height\strutheightpercent\baselineskip depth \strutdepthpercent \baselineskip }% } % PDF CMaps. See also LaTeX's t1.cmap. % % do nothing with this by default. \expandafter\let\csname cmapOT1\endcsname\gobble \expandafter\let\csname cmapOT1IT\endcsname\gobble \expandafter\let\csname cmapOT1TT\endcsname\gobble % if we are producing pdf, and we have \pdffontattr, then define cmaps. % (\pdffontattr was introduced many years ago, but people still run % older pdftex's; it's easy to conditionalize, so we do.) \ifpdf \ifx\pdffontattr\thisisundefined \else \begingroup \catcode`\^^M=\active \def^^M{^^J}% Output line endings as the ^^J char. \catcode`\%=12 \immediate\pdfobj stream {%!PS-Adobe-3.0 Resource-CMap %%DocumentNeededResources: ProcSet (CIDInit) %%IncludeResource: ProcSet (CIDInit) %%BeginResource: CMap (TeX-OT1-0) %%Title: (TeX-OT1-0 TeX OT1 0) %%Version: 1.000 %%EndComments /CIDInit /ProcSet findresource begin 12 dict begin begincmap /CIDSystemInfo << /Registry (TeX) /Ordering (OT1) /Supplement 0 >> def /CMapName /TeX-OT1-0 def /CMapType 2 def 1 begincodespacerange <00> <7F> endcodespacerange 8 beginbfrange <00> <01> <0393> <09> <0A> <03A8> <23> <26> <0023> <28> <3B> <0028> <3F> <5B> <003F> <5D> <5E> <005D> <61> <7A> <0061> <7B> <7C> <2013> endbfrange 40 beginbfchar <02> <0398> <03> <039B> <04> <039E> <05> <03A0> <06> <03A3> <07> <03D2> <08> <03A6> <0B> <00660066> <0C> <00660069> <0D> <0066006C> <0E> <006600660069> <0F> <00660066006C> <10> <0131> <11> <0237> <12> <0060> <13> <00B4> <14> <02C7> <15> <02D8> <16> <00AF> <17> <02DA> <18> <00B8> <19> <00DF> <1A> <00E6> <1B> <0153> <1C> <00F8> <1D> <00C6> <1E> <0152> <1F> <00D8> <21> <0021> <22> <201D> <27> <2019> <3C> <00A1> <3D> <003D> <3E> <00BF> <5C> <201C> <5F> <02D9> <60> <2018> <7D> <02DD> <7E> <007E> <7F> <00A8> endbfchar endcmap CMapName currentdict /CMap defineresource pop end end %%EndResource %%EOF }\endgroup \expandafter\edef\csname cmapOT1\endcsname#1{% \pdffontattr#1{/ToUnicode \the\pdflastobj\space 0 R}% }% % % \cmapOT1IT \begingroup \catcode`\^^M=\active \def^^M{^^J}% Output line endings as the ^^J char. \catcode`\%=12 \immediate\pdfobj stream {%!PS-Adobe-3.0 Resource-CMap %%DocumentNeededResources: ProcSet (CIDInit) %%IncludeResource: ProcSet (CIDInit) %%BeginResource: CMap (TeX-OT1IT-0) %%Title: (TeX-OT1IT-0 TeX OT1IT 0) %%Version: 1.000 %%EndComments /CIDInit /ProcSet findresource begin 12 dict begin begincmap /CIDSystemInfo << /Registry (TeX) /Ordering (OT1IT) /Supplement 0 >> def /CMapName /TeX-OT1IT-0 def /CMapType 2 def 1 begincodespacerange <00> <7F> endcodespacerange 8 beginbfrange <00> <01> <0393> <09> <0A> <03A8> <25> <26> <0025> <28> <3B> <0028> <3F> <5B> <003F> <5D> <5E> <005D> <61> <7A> <0061> <7B> <7C> <2013> endbfrange 42 beginbfchar <02> <0398> <03> <039B> <04> <039E> <05> <03A0> <06> <03A3> <07> <03D2> <08> <03A6> <0B> <00660066> <0C> <00660069> <0D> <0066006C> <0E> <006600660069> <0F> <00660066006C> <10> <0131> <11> <0237> <12> <0060> <13> <00B4> <14> <02C7> <15> <02D8> <16> <00AF> <17> <02DA> <18> <00B8> <19> <00DF> <1A> <00E6> <1B> <0153> <1C> <00F8> <1D> <00C6> <1E> <0152> <1F> <00D8> <21> <0021> <22> <201D> <23> <0023> <24> <00A3> <27> <2019> <3C> <00A1> <3D> <003D> <3E> <00BF> <5C> <201C> <5F> <02D9> <60> <2018> <7D> <02DD> <7E> <007E> <7F> <00A8> endbfchar endcmap CMapName currentdict /CMap defineresource pop end end %%EndResource %%EOF }\endgroup \expandafter\edef\csname cmapOT1IT\endcsname#1{% \pdffontattr#1{/ToUnicode \the\pdflastobj\space 0 R}% }% % % \cmapOT1TT \begingroup \catcode`\^^M=\active \def^^M{^^J}% Output line endings as the ^^J char. \catcode`\%=12 \immediate\pdfobj stream {%!PS-Adobe-3.0 Resource-CMap %%DocumentNeededResources: ProcSet (CIDInit) %%IncludeResource: ProcSet (CIDInit) %%BeginResource: CMap (TeX-OT1TT-0) %%Title: (TeX-OT1TT-0 TeX OT1TT 0) %%Version: 1.000 %%EndComments /CIDInit /ProcSet findresource begin 12 dict begin begincmap /CIDSystemInfo << /Registry (TeX) /Ordering (OT1TT) /Supplement 0 >> def /CMapName /TeX-OT1TT-0 def /CMapType 2 def 1 begincodespacerange <00> <7F> endcodespacerange 5 beginbfrange <00> <01> <0393> <09> <0A> <03A8> <21> <26> <0021> <28> <5F> <0028> <61> <7E> <0061> endbfrange 32 beginbfchar <02> <0398> <03> <039B> <04> <039E> <05> <03A0> <06> <03A3> <07> <03D2> <08> <03A6> <0B> <2191> <0C> <2193> <0D> <0027> <0E> <00A1> <0F> <00BF> <10> <0131> <11> <0237> <12> <0060> <13> <00B4> <14> <02C7> <15> <02D8> <16> <00AF> <17> <02DA> <18> <00B8> <19> <00DF> <1A> <00E6> <1B> <0153> <1C> <00F8> <1D> <00C6> <1E> <0152> <1F> <00D8> <20> <2423> <27> <2019> <60> <2018> <7F> <00A8> endbfchar endcmap CMapName currentdict /CMap defineresource pop end end %%EndResource %%EOF }\endgroup \expandafter\edef\csname cmapOT1TT\endcsname#1{% \pdffontattr#1{/ToUnicode \the\pdflastobj\space 0 R}% }% \fi\fi % 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, #5 is the CMap % encoding (currently only OT1, OT1IT and OT1TT are allowed, pass % empty to omit). \def\setfont#1#2#3#4#5{% \font#1=\fontprefix#2#3 scaled #4 \csname cmap#5\endcsname#1% } % This is what gets called when #5 of \setfont is empty. \let\cmap\gobble % emacs-page end of cmaps % Use cm as the default font prefix. % To specify the font prefix, you must define \fontprefix % before you read in texinfo.tex. \ifx\fontprefix\thisisundefined \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} % Definitions for a main text size of 11pt. This is the default in % Texinfo. % \def\definetextfontsizexi{% % Text fonts (11.2pt, magstep1). \def\textnominalsize{11pt} \edef\mainmagstep{\magstephalf} \setfont\textrm\rmshape{10}{\mainmagstep}{OT1} \setfont\texttt\ttshape{10}{\mainmagstep}{OT1TT} \setfont\textbf\bfshape{10}{\mainmagstep}{OT1} \setfont\textit\itshape{10}{\mainmagstep}{OT1IT} \setfont\textsl\slshape{10}{\mainmagstep}{OT1} \setfont\textsf\sfshape{10}{\mainmagstep}{OT1} \setfont\textsc\scshape{10}{\mainmagstep}{OT1} \setfont\textttsl\ttslshape{10}{\mainmagstep}{OT1TT} \font\texti=cmmi10 scaled \mainmagstep \font\textsy=cmsy10 scaled \mainmagstep \def\textecsize{1095} % A few fonts for @defun names and args. \setfont\defbf\bfshape{10}{\magstep1}{OT1} \setfont\deftt\ttshape{10}{\magstep1}{OT1TT} \setfont\defttsl\ttslshape{10}{\magstep1}{OT1TT} \def\df{\let\tentt=\deftt \let\tenbf = \defbf \let\tenttsl=\defttsl \bf} % Fonts for indices, footnotes, small examples (9pt). \def\smallnominalsize{9pt} \setfont\smallrm\rmshape{9}{1000}{OT1} \setfont\smalltt\ttshape{9}{1000}{OT1TT} \setfont\smallbf\bfshape{10}{900}{OT1} \setfont\smallit\itshape{9}{1000}{OT1IT} \setfont\smallsl\slshape{9}{1000}{OT1} \setfont\smallsf\sfshape{9}{1000}{OT1} \setfont\smallsc\scshape{10}{900}{OT1} \setfont\smallttsl\ttslshape{10}{900}{OT1TT} \font\smalli=cmmi9 \font\smallsy=cmsy9 \def\smallecsize{0900} % Fonts for small examples (8pt). \def\smallernominalsize{8pt} \setfont\smallerrm\rmshape{8}{1000}{OT1} \setfont\smallertt\ttshape{8}{1000}{OT1TT} \setfont\smallerbf\bfshape{10}{800}{OT1} \setfont\smallerit\itshape{8}{1000}{OT1IT} \setfont\smallersl\slshape{8}{1000}{OT1} \setfont\smallersf\sfshape{8}{1000}{OT1} \setfont\smallersc\scshape{10}{800}{OT1} \setfont\smallerttsl\ttslshape{10}{800}{OT1TT} \font\smalleri=cmmi8 \font\smallersy=cmsy8 \def\smallerecsize{0800} % Fonts for title page (20.4pt): \def\titlenominalsize{20pt} \setfont\titlerm\rmbshape{12}{\magstep3}{OT1} \setfont\titleit\itbshape{10}{\magstep4}{OT1IT} \setfont\titlesl\slbshape{10}{\magstep4}{OT1} \setfont\titlett\ttbshape{12}{\magstep3}{OT1TT} \setfont\titlettsl\ttslshape{10}{\magstep4}{OT1TT} \setfont\titlesf\sfbshape{17}{\magstep1}{OT1} \let\titlebf=\titlerm \setfont\titlesc\scbshape{10}{\magstep4}{OT1} \font\titlei=cmmi12 scaled \magstep3 \font\titlesy=cmsy10 scaled \magstep4 \def\titleecsize{2074} % Chapter (and unnumbered) fonts (17.28pt). \def\chapnominalsize{17pt} \setfont\chaprm\rmbshape{12}{\magstep2}{OT1} \setfont\chapit\itbshape{10}{\magstep3}{OT1IT} \setfont\chapsl\slbshape{10}{\magstep3}{OT1} \setfont\chaptt\ttbshape{12}{\magstep2}{OT1TT} \setfont\chapttsl\ttslshape{10}{\magstep3}{OT1TT} \setfont\chapsf\sfbshape{17}{1000}{OT1} \let\chapbf=\chaprm \setfont\chapsc\scbshape{10}{\magstep3}{OT1} \font\chapi=cmmi12 scaled \magstep2 \font\chapsy=cmsy10 scaled \magstep3 \def\chapecsize{1728} % Section fonts (14.4pt). \def\secnominalsize{14pt} \setfont\secrm\rmbshape{12}{\magstep1}{OT1} \setfont\secit\itbshape{10}{\magstep2}{OT1IT} \setfont\secsl\slbshape{10}{\magstep2}{OT1} \setfont\sectt\ttbshape{12}{\magstep1}{OT1TT} \setfont\secttsl\ttslshape{10}{\magstep2}{OT1TT} \setfont\secsf\sfbshape{12}{\magstep1}{OT1} \let\secbf\secrm \setfont\secsc\scbshape{10}{\magstep2}{OT1} \font\seci=cmmi12 scaled \magstep1 \font\secsy=cmsy10 scaled \magstep2 \def\sececsize{1440} % Subsection fonts (13.15pt). \def\ssecnominalsize{13pt} \setfont\ssecrm\rmbshape{12}{\magstephalf}{OT1} \setfont\ssecit\itbshape{10}{1315}{OT1IT} \setfont\ssecsl\slbshape{10}{1315}{OT1} \setfont\ssectt\ttbshape{12}{\magstephalf}{OT1TT} \setfont\ssecttsl\ttslshape{10}{1315}{OT1TT} \setfont\ssecsf\sfbshape{12}{\magstephalf}{OT1} \let\ssecbf\ssecrm \setfont\ssecsc\scbshape{10}{1315}{OT1} \font\sseci=cmmi12 scaled \magstephalf \font\ssecsy=cmsy10 scaled 1315 \def\ssececsize{1200} % Reduced fonts for @acro in text (10pt). \def\reducednominalsize{10pt} \setfont\reducedrm\rmshape{10}{1000}{OT1} \setfont\reducedtt\ttshape{10}{1000}{OT1TT} \setfont\reducedbf\bfshape{10}{1000}{OT1} \setfont\reducedit\itshape{10}{1000}{OT1IT} \setfont\reducedsl\slshape{10}{1000}{OT1} \setfont\reducedsf\sfshape{10}{1000}{OT1} \setfont\reducedsc\scshape{10}{1000}{OT1} \setfont\reducedttsl\ttslshape{10}{1000}{OT1TT} \font\reducedi=cmmi10 \font\reducedsy=cmsy10 \def\reducedecsize{1000} \textleading = 13.2pt % line spacing for 11pt CM \textfonts % reset the current fonts \rm } % end of 11pt text font size definitions % Definitions to make the main text be 10pt Computer Modern, with % section, chapter, etc., sizes following suit. This is for the GNU % Press printing of the Emacs 22 manual. Maybe other manuals in the % future. Used with @smallbook, which sets the leading to 12pt. % \def\definetextfontsizex{% % Text fonts (10pt). \def\textnominalsize{10pt} \edef\mainmagstep{1000} \setfont\textrm\rmshape{10}{\mainmagstep}{OT1} \setfont\texttt\ttshape{10}{\mainmagstep}{OT1TT} \setfont\textbf\bfshape{10}{\mainmagstep}{OT1} \setfont\textit\itshape{10}{\mainmagstep}{OT1IT} \setfont\textsl\slshape{10}{\mainmagstep}{OT1} \setfont\textsf\sfshape{10}{\mainmagstep}{OT1} \setfont\textsc\scshape{10}{\mainmagstep}{OT1} \setfont\textttsl\ttslshape{10}{\mainmagstep}{OT1TT} \font\texti=cmmi10 scaled \mainmagstep \font\textsy=cmsy10 scaled \mainmagstep \def\textecsize{1000} % A few fonts for @defun names and args. \setfont\defbf\bfshape{10}{\magstephalf}{OT1} \setfont\deftt\ttshape{10}{\magstephalf}{OT1TT} \setfont\defttsl\ttslshape{10}{\magstephalf}{OT1TT} \def\df{\let\tentt=\deftt \let\tenbf = \defbf \let\tenttsl=\defttsl \bf} % Fonts for indices, footnotes, small examples (9pt). \def\smallnominalsize{9pt} \setfont\smallrm\rmshape{9}{1000}{OT1} \setfont\smalltt\ttshape{9}{1000}{OT1TT} \setfont\smallbf\bfshape{10}{900}{OT1} \setfont\smallit\itshape{9}{1000}{OT1IT} \setfont\smallsl\slshape{9}{1000}{OT1} \setfont\smallsf\sfshape{9}{1000}{OT1} \setfont\smallsc\scshape{10}{900}{OT1} \setfont\smallttsl\ttslshape{10}{900}{OT1TT} \font\smalli=cmmi9 \font\smallsy=cmsy9 \def\smallecsize{0900} % Fonts for small examples (8pt). \def\smallernominalsize{8pt} \setfont\smallerrm\rmshape{8}{1000}{OT1} \setfont\smallertt\ttshape{8}{1000}{OT1TT} \setfont\smallerbf\bfshape{10}{800}{OT1} \setfont\smallerit\itshape{8}{1000}{OT1IT} \setfont\smallersl\slshape{8}{1000}{OT1} \setfont\smallersf\sfshape{8}{1000}{OT1} \setfont\smallersc\scshape{10}{800}{OT1} \setfont\smallerttsl\ttslshape{10}{800}{OT1TT} \font\smalleri=cmmi8 \font\smallersy=cmsy8 \def\smallerecsize{0800} % Fonts for title page (20.4pt): \def\titlenominalsize{20pt} \setfont\titlerm\rmbshape{12}{\magstep3}{OT1} \setfont\titleit\itbshape{10}{\magstep4}{OT1IT} \setfont\titlesl\slbshape{10}{\magstep4}{OT1} \setfont\titlett\ttbshape{12}{\magstep3}{OT1TT} \setfont\titlettsl\ttslshape{10}{\magstep4}{OT1TT} \setfont\titlesf\sfbshape{17}{\magstep1}{OT1} \let\titlebf=\titlerm \setfont\titlesc\scbshape{10}{\magstep4}{OT1} \font\titlei=cmmi12 scaled \magstep3 \font\titlesy=cmsy10 scaled \magstep4 \def\titleecsize{2074} % Chapter fonts (14.4pt). \def\chapnominalsize{14pt} \setfont\chaprm\rmbshape{12}{\magstep1}{OT1} \setfont\chapit\itbshape{10}{\magstep2}{OT1IT} \setfont\chapsl\slbshape{10}{\magstep2}{OT1} \setfont\chaptt\ttbshape{12}{\magstep1}{OT1TT} \setfont\chapttsl\ttslshape{10}{\magstep2}{OT1TT} \setfont\chapsf\sfbshape{12}{\magstep1}{OT1} \let\chapbf\chaprm \setfont\chapsc\scbshape{10}{\magstep2}{OT1} \font\chapi=cmmi12 scaled \magstep1 \font\chapsy=cmsy10 scaled \magstep2 \def\chapecsize{1440} % Section fonts (12pt). \def\secnominalsize{12pt} \setfont\secrm\rmbshape{12}{1000}{OT1} \setfont\secit\itbshape{10}{\magstep1}{OT1IT} \setfont\secsl\slbshape{10}{\magstep1}{OT1} \setfont\sectt\ttbshape{12}{1000}{OT1TT} \setfont\secttsl\ttslshape{10}{\magstep1}{OT1TT} \setfont\secsf\sfbshape{12}{1000}{OT1} \let\secbf\secrm \setfont\secsc\scbshape{10}{\magstep1}{OT1} \font\seci=cmmi12 \font\secsy=cmsy10 scaled \magstep1 \def\sececsize{1200} % Subsection fonts (10pt). \def\ssecnominalsize{10pt} \setfont\ssecrm\rmbshape{10}{1000}{OT1} \setfont\ssecit\itbshape{10}{1000}{OT1IT} \setfont\ssecsl\slbshape{10}{1000}{OT1} \setfont\ssectt\ttbshape{10}{1000}{OT1TT} \setfont\ssecttsl\ttslshape{10}{1000}{OT1TT} \setfont\ssecsf\sfbshape{10}{1000}{OT1} \let\ssecbf\ssecrm \setfont\ssecsc\scbshape{10}{1000}{OT1} \font\sseci=cmmi10 \font\ssecsy=cmsy10 \def\ssececsize{1000} % Reduced fonts for @acro in text (9pt). \def\reducednominalsize{9pt} \setfont\reducedrm\rmshape{9}{1000}{OT1} \setfont\reducedtt\ttshape{9}{1000}{OT1TT} \setfont\reducedbf\bfshape{10}{900}{OT1} \setfont\reducedit\itshape{9}{1000}{OT1IT} \setfont\reducedsl\slshape{9}{1000}{OT1} \setfont\reducedsf\sfshape{9}{1000}{OT1} \setfont\reducedsc\scshape{10}{900}{OT1} \setfont\reducedttsl\ttslshape{10}{900}{OT1TT} \font\reducedi=cmmi9 \font\reducedsy=cmsy9 \def\reducedecsize{0900} \divide\parskip by 2 % reduce space between paragraphs \textleading = 12pt % line spacing for 10pt CM \textfonts % reset the current fonts \rm } % end of 10pt text font size definitions % We provide the user-level command % @fonttextsize 10 % (or 11) to redefine the text font size. pt is assumed. % \def\xiword{11} \def\xword{10} \def\xwordpt{10pt} % \parseargdef\fonttextsize{% \def\textsizearg{#1}% %\wlog{doing @fonttextsize \textsizearg}% % % Set \globaldefs so that documents can use this inside @tex, since % makeinfo 4.8 does not support it, but we need it nonetheless. % \begingroup \globaldefs=1 \ifx\textsizearg\xword \definetextfontsizex \else \ifx\textsizearg\xiword \definetextfontsizexi \else \errhelp=\EMsimple \errmessage{@fonttextsize only supports `10' or `11', not `\textsizearg'} \fi\fi \endgroup } % 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 except % in the main text, 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 because \STYLE needs to also set the % current \fam for math mode. Our \STYLE (e.g., \rm) commands hardwire % \tenSTYLE to set the current font. % % Each font-changing command also sets the names \lsize (one size lower) % and \lllsize (three sizes lower). These relative commands are used in % the LaTeX logo and acronyms. % % This all needs generalizing, badly. % \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 \def\curfontsize{text}% \def\lsize{reduced}\def\lllsize{smaller}% \resetmathfonts \setleading{\textleading}} \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 \def\curfontsize{title}% \def\lsize{chap}\def\lllsize{subsec}% \resetmathfonts \setleading{27pt}} \def\titlefont#1{{\titlefonts\rmisbold #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 \def\curfontsize{chap}% \def\lsize{sec}\def\lllsize{text}% \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 \def\curfontsize{sec}% \def\lsize{subsec}\def\lllsize{reduced}% \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 \def\curfontsize{ssec}% \def\lsize{text}\def\lllsize{small}% \resetmathfonts \setleading{15pt}} \let\subsubsecfonts = \subsecfonts \def\reducedfonts{% \let\tenrm=\reducedrm \let\tenit=\reducedit \let\tensl=\reducedsl \let\tenbf=\reducedbf \let\tentt=\reducedtt \let\reducedcaps=\reducedsc \let\tensf=\reducedsf \let\teni=\reducedi \let\tensy=\reducedsy \let\tenttsl=\reducedttsl \def\curfontsize{reduced}% \def\lsize{small}\def\lllsize{smaller}% \resetmathfonts \setleading{10.5pt}} \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 \def\curfontsize{small}% \def\lsize{smaller}\def\lllsize{smaller}% \resetmathfonts \setleading{10.5pt}} \def\smallerfonts{% \let\tenrm=\smallerrm \let\tenit=\smallerit \let\tensl=\smallersl \let\tenbf=\smallerbf \let\tentt=\smallertt \let\smallcaps=\smallersc \let\tensf=\smallersf \let\teni=\smalleri \let\tensy=\smallersy \let\tenttsl=\smallerttsl \def\curfontsize{smaller}% \def\lsize{smaller}\def\lllsize{smaller}% \resetmathfonts \setleading{9.5pt}} % Fonts for short table of contents. \setfont\shortcontrm\rmshape{12}{1000}{OT1} \setfont\shortcontbf\bfshape{10}{\magstep1}{OT1} % no cmb12 \setfont\shortcontsl\slshape{12}{1000}{OT1} \setfont\shortconttt\ttshape{12}{1000}{OT1TT} % Define these just so they can be easily changed for other fonts. \def\angleleft{$\langle$} \def\angleright{$\rangle$} % Set the fonts to use with the @small... environments. \let\smallexamplefonts = \smallfonts % About \smallexamplefonts. If we use \smallfonts (9pt), @smallexample % can fit this many characters: % 8.5x11=86 smallbook=72 a4=90 a5=69 % If we use \scriptfonts (8pt), then we can fit this many characters: % 8.5x11=90+ smallbook=80 a4=90+ a5=77 % For me, subjectively, the few extra characters that fit aren't worth % the additional smallness of 8pt. So I'm making the default 9pt. % % By the way, for comparison, here's what fits with @example (10pt): % 8.5x11=71 smallbook=60 a4=75 a5=58 % --karl, 24jan03. % Set up the default fonts, so we can use them for creating boxes. % \definetextfontsizexi \message{markup,} % 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 } % Markup style infrastructure. \defmarkupstylesetup\INITMACRO will % define and register \INITMACRO to be called on markup style changes. % \INITMACRO can check \currentmarkupstyle for the innermost % style and the set of \ifmarkupSTYLE switches for all styles % currently in effect. \newif\ifmarkupvar \newif\ifmarkupsamp \newif\ifmarkupkey %\newif\ifmarkupfile % @file == @samp. %\newif\ifmarkupoption % @option == @samp. \newif\ifmarkupcode \newif\ifmarkupkbd %\newif\ifmarkupenv % @env == @code. %\newif\ifmarkupcommand % @command == @code. \newif\ifmarkuptex % @tex (and part of @math, for now). \newif\ifmarkupexample \newif\ifmarkupverb \newif\ifmarkupverbatim \let\currentmarkupstyle\empty \def\setupmarkupstyle#1{% \csname markup#1true\endcsname \def\currentmarkupstyle{#1}% \markupstylesetup } \let\markupstylesetup\empty \def\defmarkupstylesetup#1{% \expandafter\def\expandafter\markupstylesetup \expandafter{\markupstylesetup #1}% \def#1% } % Markup style setup for left and right quotes. \defmarkupstylesetup\markupsetuplq{% \expandafter\let\expandafter \temp \csname markupsetuplq\currentmarkupstyle\endcsname \ifx\temp\relax \markupsetuplqdefault \else \temp \fi } \defmarkupstylesetup\markupsetuprq{% \expandafter\let\expandafter \temp \csname markupsetuprq\currentmarkupstyle\endcsname \ifx\temp\relax \markupsetuprqdefault \else \temp \fi } { \catcode`\'=\active \catcode`\`=\active \gdef\markupsetuplqdefault{\let`\lq} \gdef\markupsetuprqdefault{\let'\rq} \gdef\markupsetcodequoteleft{\let`\codequoteleft} \gdef\markupsetcodequoteright{\let'\codequoteright} \gdef\markupsetnoligaturesquoteleft{\let`\noligaturesquoteleft} } \let\markupsetuplqcode \markupsetcodequoteleft \let\markupsetuprqcode \markupsetcodequoteright % \let\markupsetuplqexample \markupsetcodequoteleft \let\markupsetuprqexample \markupsetcodequoteright % \let\markupsetuplqsamp \markupsetcodequoteleft \let\markupsetuprqsamp \markupsetcodequoteright % \let\markupsetuplqverb \markupsetcodequoteleft \let\markupsetuprqverb \markupsetcodequoteright % \let\markupsetuplqverbatim \markupsetcodequoteleft \let\markupsetuprqverbatim \markupsetcodequoteright \let\markupsetuplqkbd \markupsetnoligaturesquoteleft % Allow an option to not use regular directed right quote/apostrophe % (char 0x27), but instead the undirected quote from cmtt (char 0x0d). % The undirected quote is ugly, so don't make it the default, but it % works for pasting with more pdf viewers (at least evince), the % lilypond developers report. xpdf does work with the regular 0x27. % \def\codequoteright{% \expandafter\ifx\csname SETtxicodequoteundirected\endcsname\relax \expandafter\ifx\csname SETcodequoteundirected\endcsname\relax '% \else \char'15 \fi \else \char'15 \fi } % % and a similar option for the left quote char vs. a grave accent. % Modern fonts display ASCII 0x60 as a grave accent, so some people like % the code environments to do likewise. % \def\codequoteleft{% \expandafter\ifx\csname SETtxicodequotebacktick\endcsname\relax \expandafter\ifx\csname SETcodequotebacktick\endcsname\relax % [Knuth] pp. 380,381,391 % \relax disables Spanish ligatures ?` and !` of \tt font. \relax`% \else \char'22 \fi \else \char'22 \fi } % Commands to set the quote options. % \parseargdef\codequoteundirected{% \def\temp{#1}% \ifx\temp\onword \expandafter\let\csname SETtxicodequoteundirected\endcsname = t% \else\ifx\temp\offword \expandafter\let\csname SETtxicodequoteundirected\endcsname = \relax \else \errhelp = \EMsimple \errmessage{Unknown @codequoteundirected value `\temp', must be on|off}% \fi\fi } % \parseargdef\codequotebacktick{% \def\temp{#1}% \ifx\temp\onword \expandafter\let\csname SETtxicodequotebacktick\endcsname = t% \else\ifx\temp\offword \expandafter\let\csname SETtxicodequotebacktick\endcsname = \relax \else \errhelp = \EMsimple \errmessage{Unknown @codequotebacktick value `\temp', must be on|off}% \fi\fi } % [Knuth] pp. 380,381,391, disable Spanish ligatures ?` and !` of \tt font. \def\noligaturesquoteleft{\relax\lq} % Count depth in font-changes, for error checks \newcount\fontdepth \fontdepth=0 % Font commands. % #1 is the font command (\sl or \it), #2 is the text to slant. % If we are in a monospaced environment, however, 1) always use \ttsl, % and 2) do not add an italic correction. \def\dosmartslant#1#2{% \ifusingtt {{\ttsl #2}\let\next=\relax}% {\def\next{{#1#2}\futurelet\next\smartitaliccorrection}}% \next } \def\smartslanted{\dosmartslant\sl} \def\smartitalic{\dosmartslant\it} % Output an italic correction unless \next (presumed to be the following % character) is such as not to need one. \def\smartitaliccorrection{% \ifx\next,% \else\ifx\next-% \else\ifx\next.% \else\ptexslash \fi\fi\fi \aftersmartic } % like \smartslanted except unconditionally uses \ttsl, and no ic. % @var is set to this for defun arguments. \def\ttslanted#1{{\ttsl #1}} % @cite is like \smartslanted except unconditionally use \sl. We never want % ttsl for book titles, do we? \def\cite#1{{\sl #1}\futurelet\next\smartitaliccorrection} \def\aftersmartic{} \def\var#1{% \let\saveaftersmartic = \aftersmartic \def\aftersmartic{\null\let\aftersmartic=\saveaftersmartic}% \smartslanted{#1}% } \let\i=\smartitalic \let\slanted=\smartslanted \let\dfn=\smartslanted \let\emph=\smartitalic % 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 % @b, explicit bold. Also @strong. \def\b#1{{\bf #1}} \let\strong=\b % @sansserif, explicit sans. \def\sansserif#1{{\sf #1}} % 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 = `- } % Set sfcode to normal for the chars that usually have another value. % Can't use plain's \frenchspacing because it uses the `\x notation, and % sometimes \x has an active definition that messes things up. % \catcode`@=11 \def\plainfrenchspacing{% \sfcode\dotChar =\@m \sfcode\questChar=\@m \sfcode\exclamChar=\@m \sfcode\colonChar=\@m \sfcode\semiChar =\@m \sfcode\commaChar =\@m \def\endofsentencespacefactor{1000}% for @. and friends } \def\plainnonfrenchspacing{% \sfcode`\.3000\sfcode`\?3000\sfcode`\!3000 \sfcode`\:2000\sfcode`\;1500\sfcode`\,1250 \def\endofsentencespacefactor{3000}% for @. and friends } \catcode`@=\other \def\endofsentencespacefactor{3000}% default % @t, explicit typewriter. \def\t#1{% {\tt \rawbackslash \plainfrenchspacing #1}% \null } % @samp. \def\samp#1{{\setupmarkupstyle{samp}\lq\tclose{#1}\rq\null}} % definition of @key that produces a lozenge. Doesn't adjust to text size. %\setfont\keyrm\rmshape{8}{1000}{OT1} %\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}}}} % definition of @key with no lozenge. If the current font is already % monospace, don't change it; that way, we respect @kbdinputstyle. But % if it isn't monospace, then use \tt. % \def\key#1{{\setupmarkupstyle{key}% \nohyphenation \ifmonospace\else\tt\fi #1}\null} % ctrl is no longer a Texinfo command. \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 \plainfrenchspacing #1% }% \null % reset spacefactor to 1000 } % 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 \catcode`\'=\active \catcode`\`=\active \global\let'=\rq \global\let`=\lq % default definitions % \global\def\code{\begingroup \setupmarkupstyle{code}% % The following should really be moved into \setupmarkupstyle handlers. \catcode\dashChar=\active \catcode\underChar=\active \ifallowcodebreaks \let-\codedash \let_\codeunder \else \let-\realdash \let_\realunder \fi \codex } } \def\codex #1{\tclose{#1}\endgroup} \def\realdash{-} \def\codedash{-\discretionary{}{}{}} \def\codeunder{% % this is all so @math{@code{var_name}+1} can work. In math mode, _ % is "active" (mathcode"8000) and \normalunderscore (or \char95, etc.) % will therefore expand the active definition of _, which is us % (inside @code that is), therefore an endless loop. \ifusingtt{\ifmmode \mathchar"075F % class 0=ordinary, family 7=ttfam, pos 0x5F=_. \else\normalunderscore \fi \discretionary{}{}{}}% {\_}% } % An additional complication: the above will allow breaks after, e.g., % each of the four underscores in __typeof__. This is undesirable in % some manuals, especially if they don't have long identifiers in % general. @allowcodebreaks provides a way to control this. % \newif\ifallowcodebreaks \allowcodebreakstrue \def\keywordtrue{true} \def\keywordfalse{false} \parseargdef\allowcodebreaks{% \def\txiarg{#1}% \ifx\txiarg\keywordtrue \allowcodebreakstrue \else\ifx\txiarg\keywordfalse \allowcodebreaksfalse \else \errhelp = \EMsimple \errmessage{Unknown @allowcodebreaks option `\txiarg', must be true|false}% \fi\fi } % @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. % (This \urefnobreak definition isn't used now, leaving it for a while % for comparison.) \def\urefnobreak#1{\dourefnobreak #1,,,\finish} \def\dourefnobreak#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} % This \urefbreak definition is the active one. \def\urefbreak{\begingroup \urefcatcodes \dourefbreak} \let\uref=\urefbreak \def\dourefbreak#1{\urefbreakfinish #1,,,\finish} \def\urefbreakfinish#1,#2,#3,#4\finish{% doesn't work in @example \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\ (\urefcode{#1})% DVI: 2nd arg given, show both it and url \fi \else \urefcode{#1}% only url given, so show it \fi \fi \endlink \endgroup} % Allow line breaks around only a few characters (only). \def\urefcatcodes{% \catcode\ampChar=\active \catcode\dotChar=\active \catcode\hashChar=\active \catcode\questChar=\active \catcode\slashChar=\active } { \urefcatcodes % \global\def\urefcode{\begingroup \setupmarkupstyle{code}% \urefcatcodes \let&\urefcodeamp \let.\urefcodedot \let#\urefcodehash \let?\urefcodequest \let/\urefcodeslash \codex } % % By default, they are just regular characters. \global\def&{\normalamp} \global\def.{\normaldot} \global\def#{\normalhash} \global\def?{\normalquest} \global\def/{\normalslash} } % we put a little stretch before and after the breakable chars, to help % line breaking of long url's. The unequal skips make look better in % cmtt at least, especially for dots. \def\urefprestretch{\urefprebreak \hskip0pt plus.13em } \def\urefpoststretch{\urefpostbreak \hskip0pt plus.1em } % \def\urefcodeamp{\urefprestretch \&\urefpoststretch} \def\urefcodedot{\urefprestretch .\urefpoststretch} \def\urefcodehash{\urefprestretch \#\urefpoststretch} \def\urefcodequest{\urefprestretch ?\urefpoststretch} \def\urefcodeslash{\futurelet\next\urefcodeslashfinish} { \catcode`\/=\active \global\def\urefcodeslashfinish{% \urefprestretch \slashChar % Allow line break only after the final / in a sequence of % slashes, to avoid line break between the slashes in http://. \ifx\next/\else \urefpoststretch \fi } } % One more complication: by default we'll break after the special % characters, but some people like to break before the special chars, so % allow that. Also allow no breaking at all, for manual control. % \parseargdef\urefbreakstyle{% \def\txiarg{#1}% \ifx\txiarg\wordnone \def\urefprebreak{\nobreak}\def\urefpostbreak{\nobreak} \else\ifx\txiarg\wordbefore \def\urefprebreak{\allowbreak}\def\urefpostbreak{\nobreak} \else\ifx\txiarg\wordafter \def\urefprebreak{\nobreak}\def\urefpostbreak{\allowbreak} \else \errhelp = \EMsimple \errmessage{Unknown @urefbreakstyle setting `\txiarg'}% \fi\fi\fi } \def\wordafter{after} \def\wordbefore{before} \def\wordnone{none} \urefbreakstyle after % @url synonym for @uref, since that's how everyone uses it. % \let\url=\uref % 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 % @kbd is like @code, except that if the argument is just one @key command, % then @kbd has no effect. \def\kbd#1{{\setupmarkupstyle{kbd}\def\look{#1}\expandafter\kbdfoo\look??\par}} % @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). \parseargdef\kbdinputstyle{% \def\txiarg{#1}% \ifx\txiarg\worddistinct \gdef\kbdexamplefont{\ttsl}\gdef\kbdfont{\ttsl}% \else\ifx\txiarg\wordexample \gdef\kbdexamplefont{\ttsl}\gdef\kbdfont{\tt}% \else\ifx\txiarg\wordcode \gdef\kbdexamplefont{\tt}\gdef\kbdfont{\tt}% \else \errhelp = \EMsimple \errmessage{Unknown @kbdinputstyle setting `\txiarg'}% \fi\fi\fi } \def\worddistinct{distinct} \def\wordexample{example} \def\wordcode{code} % Default is `distinct'. \kbdinputstyle distinct \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\setupmarkupstyle{kbd}\look}}\fi \else{\tclose{\kbdfont\setupmarkupstyle{kbd}\look}}\fi} % For @indicateurl, @env, @command quotes seem unnecessary, so use \code. \let\indicateurl=\code \let\env=\code \let\command=\code % @clicksequence{File @click{} Open ...} \def\clicksequence#1{\begingroup #1\endgroup} % @clickstyle @arrow (by default) \parseargdef\clickstyle{\def\click{#1}} \def\click{\arrow} % 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} % @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} % @acronym for "FBI", "NATO", and the like. % We print this one point size smaller, since it's intended for % all-uppercase. % \def\acronym#1{\doacronym #1,,\finish} \def\doacronym#1,#2,#3\finish{% {\selectfonts\lsize #1}% \def\temp{#2}% \ifx\temp\empty \else \space ({\unsepspaces \ignorespaces \temp \unskip})% \fi \null % reset \spacefactor=1000 } % @abbr for "Comput. J." and the like. % No font change, but don't do end-of-sentence spacing. % \def\abbr#1{\doabbr #1,,\finish} \def\doabbr#1,#2,#3\finish{% {\plainfrenchspacing #1}% \def\temp{#2}% \ifx\temp\empty \else \space ({\unsepspaces \ignorespaces \temp \unskip})% \fi \null % reset \spacefactor=1000 } % @asis just yields its argument. Used with @table, for example. % \def\asis#1{#1} % @math outputs its argument in math mode. % % One complication: _ usually means subscripts, but it could also mean % an actual _ character, as in @math{@var{some_variable} + 1}. So make % _ active, and distinguish by seeing if the current family is \slfam, % which is what @var uses. { \catcode`\_ = \active \gdef\mathunderscore{% \catcode`\_=\active \def_{\ifnum\fam=\slfam \_\else\sb\fi}% } } % Another complication: we want \\ (and @\) to output a math (or tt) \. % FYI, plain.tex uses \\ as a temporary control sequence (for no % particular reason), but this is not advertised and we don't care. % % The \mathchar is class=0=ordinary, family=7=ttfam, position=5C=\. \def\mathbackslash{\ifnum\fam=\ttfam \mathchar"075C \else\backslash \fi} % \def\math{% \tex \mathunderscore \let\\ = \mathbackslash \mathactive % make the texinfo accent commands work in math mode \let\"=\ddot \let\'=\acute \let\==\bar \let\^=\hat \let\`=\grave \let\u=\breve \let\v=\check \let\~=\tilde \let\dotaccent=\dot $\finishmath } \def\finishmath#1{#1$\endgroup} % Close the group opened by \tex. % Some active characters (such as <) are spaced differently in math. % We have to reset their definitions in case the @math was an argument % to a command which sets the catcodes (such as @item or @section). % { \catcode`^ = \active \catcode`< = \active \catcode`> = \active \catcode`+ = \active \catcode`' = \active \gdef\mathactive{% \let^ = \ptexhat \let< = \ptexless \let> = \ptexgtr \let+ = \ptexplus \let' = \ptexquoteright } } % @inlinefmt{FMTNAME,PROCESSED-TEXT} and @inlineraw{FMTNAME,RAW-TEXT}. % Ignore unless FMTNAME == tex; then it is like @iftex and @tex, % except specified as a normal braced arg, so no newlines to worry about. % \def\outfmtnametex{tex} % \long\def\inlinefmt#1{\doinlinefmt #1,\finish} \long\def\doinlinefmt#1,#2,\finish{% \def\inlinefmtname{#1}% \ifx\inlinefmtname\outfmtnametex \ignorespaces #2\fi } % For raw, must switch into @tex before parsing the argument, to avoid % setting catcodes prematurely. Doing it this way means that, for % example, @inlineraw{html, foo{bar} gets a parse error instead of being % ignored. But this isn't important because if people want a literal % *right* brace they would have to use a command anyway, so they may as % well use a command to get a left brace too. We could re-use the % delimiter character idea from \verb, but it seems like overkill. % \long\def\inlineraw{\tex \doinlineraw} \long\def\doinlineraw#1{\doinlinerawtwo #1,\finish} \def\doinlinerawtwo#1,#2,\finish{% \def\inlinerawname{#1}% \ifx\inlinerawname\outfmtnametex \ignorespaces #2\fi \endgroup % close group opened by \tex. } \message{glyphs,} % and logos. % @@ prints an @, as does @atchar{}. \def\@{\char64 } \let\atchar=\@ % @{ @} @lbracechar{} @rbracechar{} all generate brace characters. % Unless we're in typewriter, use \ecfont because the CM text fonts do % not have braces, and we don't want to switch into math. \def\mylbrace{{\ifmonospace\else\ecfont\fi \char123}} \def\myrbrace{{\ifmonospace\else\ecfont\fi \char125}} \let\{=\mylbrace \let\lbracechar=\{ \let\}=\myrbrace \let\rbracechar=\} \begingroup % Definitions to produce \{ and \} commands for indices, % and @{ and @} for the aux/toc files. \catcode`\{ = \other \catcode`\} = \other \catcode`\[ = 1 \catcode`\] = 2 \catcode`\! = 0 \catcode`\\ = \other !gdef!lbracecmd[\{]% !gdef!rbracecmd[\}]% !gdef!lbraceatcmd[@{]% !gdef!rbraceatcmd[@}]% !endgroup % @comma{} to avoid , parsing problems. \let\comma = , % Accents: @, @dotaccent @ringaccent @ubaraccent @udotaccent % Others are defined by plain TeX: @` @' @" @^ @~ @= @u @v @H. \let\, = \ptexc \let\dotaccent = \ptexdot \def\ringaccent#1{{\accent23 #1}} \let\tieaccent = \ptext \let\ubaraccent = \ptexb \let\udotaccent = \d % Other special characters: @questiondown @exclamdown @ordf @ordm % Plain TeX defines: @AA @AE @O @OE @L (plus lowercase versions) @ss. \def\questiondown{?`} \def\exclamdown{!`} \def\ordf{\leavevmode\raise1ex\hbox{\selectfonts\lllsize \underbar{a}}} \def\ordm{\leavevmode\raise1ex\hbox{\selectfonts\lllsize \underbar{o}}} % Dotless i and dotless j, used for accents. \def\imacro{i} \def\jmacro{j} \def\dotless#1{% \def\temp{#1}% \ifx\temp\imacro \ifmmode\imath \else\ptexi \fi \else\ifx\temp\jmacro \ifmmode\jmath \else\j \fi \else \errmessage{@dotless can be used only with i or j}% \fi\fi } % The \TeX{} logo, as in plain, but resetting the spacing so that a % period following counts as ending a sentence. (Idea found in latex.) % \edef\TeX{\TeX \spacefactor=1000 } % @LaTeX{} logo. Not quite the same results as the definition in % latex.ltx, since we use a different font for the raised A; it's most % convenient for us to use an explicitly smaller font, rather than using % the \scriptstyle font (since we don't reset \scriptstyle and % \scriptscriptstyle). % \def\LaTeX{% L\kern-.36em {\setbox0=\hbox{T}% \vbox to \ht0{\hbox{% \ifx\textnominalsize\xwordpt % for 10pt running text, \lllsize (8pt) is too small for the A in LaTeX. % Revert to plain's \scriptsize, which is 7pt. \count255=\the\fam $\fam\count255 \scriptstyle A$% \else % For 11pt, we can use our lllsize. \selectfonts\lllsize A% \fi }% \vss }}% \kern-.15em \TeX } % Some math mode symbols. \def\bullet{$\ptexbullet$} \def\geq{\ifmmode \ge\else $\ge$\fi} \def\leq{\ifmmode \le\else $\le$\fi} \def\minus{\ifmmode -\else $-$\fi} % @dots{} outputs an ellipsis using the current font. % We do .5em per period so that it has the same spacing in the cm % typewriter fonts as three actual period characters; on the other hand, % in other typewriter fonts three periods are wider than 1.5em. So do % whichever is larger. % \def\dots{% \leavevmode \setbox0=\hbox{...}% get width of three periods \ifdim\wd0 > 1.5em \dimen0 = \wd0 \else \dimen0 = 1.5em \fi \hbox to \dimen0{% \hskip 0pt plus.25fil .\hskip 0pt plus1fil .\hskip 0pt plus1fil .\hskip 0pt plus.5fil }% } % @enddots{} is an end-of-sentence ellipsis. % \def\enddots{% \dots \spacefactor=\endofsentencespacefactor } % @point{}, @result{}, @expansion{}, @print{}, @equiv{}. % % Since these characters are used in examples, they should be an even number of % \tt widths. Each \tt character is 1en, so two makes it 1em. % \def\point{$\star$} \def\arrow{\leavevmode\raise.05ex\hbox to 1em{\hfil$\rightarrow$\hfil}} \def\result{\leavevmode\raise.05ex\hbox to 1em{\hfil$\Rightarrow$\hfil}} \def\expansion{\leavevmode\hbox to 1em{\hfil$\mapsto$\hfil}} \def\print{\leavevmode\lower.1ex\hbox to 1em{\hfil$\dashv$\hfil}} \def\equiv{\leavevmode\hbox to 1em{\hfil$\ptexequiv$\hfil}} % The @error{} command. % Adapted from the TeXbook's \boxit. % \newbox\errorbox % {\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 \reducedsf \putworderror\kern-1.5pt} % \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} % \def\error{\leavevmode\lower.7ex\copy\errorbox} % @pounds{} is a sterling sign, which Knuth put in the CM italic font. % \def\pounds{{\it\$}} % @euro{} comes from a separate font, depending on the current style. % We use the free feym* fonts from the eurosym package by Henrik % Theiling, which support regular, slanted, bold and bold slanted (and % "outlined" (blackboard board, sort of) versions, which we don't need). % It is available from http://www.ctan.org/tex-archive/fonts/eurosym. % % Although only regular is the truly official Euro symbol, we ignore % that. The Euro is designed to be slightly taller than the regular % font height. % % feymr - regular % feymo - slanted % feybr - bold % feybo - bold slanted % % There is no good (free) typewriter version, to my knowledge. % A feymr10 euro is ~7.3pt wide, while a normal cmtt10 char is ~5.25pt wide. % Hmm. % % Also doesn't work in math. Do we need to do math with euro symbols? % Hope not. % % \def\euro{{\eurofont e}} \def\eurofont{% % We set the font at each command, rather than predefining it in % \textfonts and the other font-switching commands, so that % installations which never need the symbol don't have to have the % font installed. % % There is only one designed size (nominal 10pt), so we always scale % that to the current nominal size. % % By the way, simply using "at 1em" works for cmr10 and the like, but % does not work for cmbx10 and other extended/shrunken fonts. % \def\eurosize{\csname\curfontsize nominalsize\endcsname}% % \ifx\curfontstyle\bfstylename % bold: \font\thiseurofont = \ifusingit{feybo10}{feybr10} at \eurosize \else % regular: \font\thiseurofont = \ifusingit{feymo10}{feymr10} at \eurosize \fi \thiseurofont } % Glyphs from the EC fonts. We don't use \let for the aliases, because % sometimes we redefine the original macro, and the alias should reflect % the redefinition. % % Use LaTeX names for the Icelandic letters. \def\DH{{\ecfont \char"D0}} % Eth \def\dh{{\ecfont \char"F0}} % eth \def\TH{{\ecfont \char"DE}} % Thorn \def\th{{\ecfont \char"FE}} % thorn % \def\guillemetleft{{\ecfont \char"13}} \def\guillemotleft{\guillemetleft} \def\guillemetright{{\ecfont \char"14}} \def\guillemotright{\guillemetright} \def\guilsinglleft{{\ecfont \char"0E}} \def\guilsinglright{{\ecfont \char"0F}} \def\quotedblbase{{\ecfont \char"12}} \def\quotesinglbase{{\ecfont \char"0D}} % % This positioning is not perfect (see the ogonek LaTeX package), but % we have the precomposed glyphs for the most common cases. We put the % tests to use those glyphs in the single \ogonek macro so we have fewer % dummy definitions to worry about for index entries, etc. % % ogonek is also used with other letters in Lithuanian (IOU), but using % the precomposed glyphs for those is not so easy since they aren't in % the same EC font. \def\ogonek#1{{% \def\temp{#1}% \ifx\temp\macrocharA\Aogonek \else\ifx\temp\macrochara\aogonek \else\ifx\temp\macrocharE\Eogonek \else\ifx\temp\macrochare\eogonek \else \ecfont \setbox0=\hbox{#1}% \ifdim\ht0=1ex\accent"0C #1% \else\ooalign{\unhbox0\crcr\hidewidth\char"0C \hidewidth}% \fi \fi\fi\fi\fi }% } \def\Aogonek{{\ecfont \char"81}}\def\macrocharA{A} \def\aogonek{{\ecfont \char"A1}}\def\macrochara{a} \def\Eogonek{{\ecfont \char"86}}\def\macrocharE{E} \def\eogonek{{\ecfont \char"A6}}\def\macrochare{e} % % Use the ec* fonts (cm-super in outline format) for non-CM glyphs. \def\ecfont{% % We can't distinguish serif/sans and italic/slanted, but this % is used for crude hacks anyway (like adding French and German % quotes to documents typeset with CM, where we lose kerning), so % hopefully nobody will notice/care. \edef\ecsize{\csname\curfontsize ecsize\endcsname}% \edef\nominalsize{\csname\curfontsize nominalsize\endcsname}% \ifx\curfontstyle\bfstylename % bold: \font\thisecfont = ecb\ifusingit{i}{x}\ecsize \space at \nominalsize \else % regular: \font\thisecfont = ec\ifusingit{ti}{rm}\ecsize \space at \nominalsize \fi \thisecfont } % @registeredsymbol - R in a circle. The font for the R should really % be smaller yet, but lllsize is the best we can do for now. % Adapted from the plain.tex definition of \copyright. % \def\registeredsymbol{% $^{{\ooalign{\hfil\raise.07ex\hbox{\selectfonts\lllsize R}% \hfil\crcr\Orb}}% }$% } % @textdegree - the normal degrees sign. % \def\textdegree{$^\circ$} % Laurent Siebenmann reports \Orb undefined with: % Textures 1.7.7 (preloaded format=plain 93.10.14) (68K) 16 APR 2004 02:38 % so we'll define it if necessary. % \ifx\Orb\thisisundefined \def\Orb{\mathhexbox20D} \fi % Quotes. \chardef\quotedblleft="5C \chardef\quotedblright=`\" \chardef\quoteleft=`\` \chardef\quoteright=`\' \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 \parseargdef\shorttitlepage{% \begingroup \hbox{}\vskip 1.5in \chaprm \centerline{#1}% \endgroup\page\hbox{}\page} \envdef\titlepage{% % Open one extra group, as we want to close it in the middle of \Etitlepage. \begingroup \parindent=0pt \textfonts % Leave some space at the very top of the page. \vglue\titlepagetopglue % No rule at page bottom unless we print one at the top with @title. \finishedtitlepagetrue % % 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 \let\page = \oldpage \page \null }% } \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 % % Need this before the \...aftertitlepage checks so that if they are % in effect the toc pages will come out with page numbers. \HEADINGSon % % 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 } \def\finishtitlepage{% \vskip4pt \hrule height 2pt width \hsize \vskip\titlepagebottomglue \finishedtitlepagetrue } % Macros to be used within @titlepage: \let\subtitlerm=\tenrm \def\subtitlefont{\subtitlerm \normalbaselineskip = 13pt \normalbaselines} \parseargdef\title{% \checkenv\titlepage \leftline{\titlefonts\rmisbold #1} % print a rule at the page bottom also. \finishedtitlepagefalse \vskip4pt \hrule height 4pt width \hsize \vskip4pt } \parseargdef\subtitle{% \checkenv\titlepage {\subtitlefont \rightline{#1}}% } % @author should come last, but may come many times. % It can also be used inside @quotation. % \parseargdef\author{% \def\temp{\quotation}% \ifx\thisenv\temp \def\quotationauthor{#1}% printed in \Equotation. \else \checkenv\titlepage \ifseenauthor\else \vskip 0pt plus 1filll \seenauthortrue \fi {\secfonts\rmisbold \leftline{#1}}% \fi } % 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\evenheadingxxx #1{\evenheadingyyy #1\|\|\|\|\finish} \def\evenheadingyyy #1\|#2\|#3\|#4\finish{% \global\evenheadline={\rlap{\centerline{#2}}\line{#1\hfil#3}}} \def\oddheading{\parsearg\oddheadingxxx} \def\oddheadingxxx #1{\oddheadingyyy #1\|\|\|\|\finish} \def\oddheadingyyy #1\|#2\|#3\|#4\finish{% \global\oddheadline={\rlap{\centerline{#2}}\line{#1\hfil#3}}} \parseargdef\everyheading{\oddheadingxxx{#1}\evenheadingxxx{#1}}% \def\evenfooting{\parsearg\evenfootingxxx} \def\evenfootingxxx #1{\evenfootingyyy #1\|\|\|\|\finish} \def\evenfootingyyy #1\|#2\|#3\|#4\finish{% \global\evenfootline={\rlap{\centerline{#2}}\line{#1\hfil#3}}} \def\oddfooting{\parsearg\oddfootingxxx} \def\oddfootingxxx #1{\oddfootingyyy #1\|\|\|\|\finish} \def\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 -12pt \global\advance\vsize by -12pt } \parseargdef\everyfooting{\oddfootingxxx{#1}\evenfootingxxx{#1}} % @evenheadingmarks top \thischapter <- chapter at the top of a page % @evenheadingmarks bottom \thischapter <- chapter at the bottom of a page % % The same set of arguments for: % % @oddheadingmarks % @evenfootingmarks % @oddfootingmarks % @everyheadingmarks % @everyfootingmarks \def\evenheadingmarks{\headingmarks{even}{heading}} \def\oddheadingmarks{\headingmarks{odd}{heading}} \def\evenfootingmarks{\headingmarks{even}{footing}} \def\oddfootingmarks{\headingmarks{odd}{footing}} \def\everyheadingmarks#1 {\headingmarks{even}{heading}{#1} \headingmarks{odd}{heading}{#1} } \def\everyfootingmarks#1 {\headingmarks{even}{footing}{#1} \headingmarks{odd}{footing}{#1} } % #1 = even/odd, #2 = heading/footing, #3 = top/bottom. \def\headingmarks#1#2#3 {% \expandafter\let\expandafter\temp \csname get#3headingmarks\endcsname \global\expandafter\let\csname get#1#2marks\endcsname \temp } \everyheadingmarks bottom \everyfootingmarks bottom % @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{% non-global headings elimination \evenheadline={\hfil}\evenfootline={\hfil}% \oddheadline={\hfil}\oddfootline={\hfil}% } \def\HEADINGSoff{{\globaldefs=1 \headingsoff}} % global setting \HEADINGSoff % it's the default % 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 % This produces Day Month Year style of output. % Only define if not already defined, in case a txi-??.tex file has set % up a different format (e.g., txi-cs.tex does this). \ifx\today\thisisundefined \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} \fi % @settitle line... specifies the title of the document, for headings. % It generates no output of its own. \def\thistitle{\putwordNoTitle} \def\settitle{\parsearg{\gdef\thistitle}} \message{tables,} % Tables -- @table, @ftable, @vtable, @item(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, @ftable, 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\itemzzz #1{\begingroup % \advance\hsize by -\rightskip \advance\hsize by -\tableindent \setbox0=\hbox{\itemindicate{#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\relax \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. However, if % what follows is an environment such as @example, there will be no % \parskip glue; then the negative vskip we just inserted would % cause the example and the item to crash together. So we use this % bizarre value of 10001 as a signal to \aboveenvbreak to insert % \parskip glue after all. Section titles are handled this way also. % \penalty 10001 \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 list environment}} \def\itemx{\errmessage{@itemx while not in a list environment}} % @table, @ftable, @vtable. \envdef\table{% \let\itemindex\gobble \tablecheck{table}% } \envdef\ftable{% \def\itemindex ##1{\doind {fn}{\code{##1}}}% \tablecheck{ftable}% } \envdef\vtable{% \def\itemindex ##1{\doind {vr}{\code{##1}}}% \tablecheck{vtable}% } \def\tablecheck#1{% \ifnum \the\catcode`\^^M=\active \endgroup \errmessage{This command won't work in this context; perhaps the problem is that we are \inenvironment\thisenv}% \def\next{\doignore{#1}}% \else \let\next\tablex \fi \next } \def\tablex#1{% \def\itemindicate{#1}% \parsearg\tabley } \def\tabley#1{% {% \makevalueexpandable \edef\temp{\noexpand\tablez #1\space\space\space}% \expandafter }\temp \endtablez } \def\tablez #1 #2 #3 #4\endtablez{% \aboveenvbreak \ifnum 0#1>0 \advance \leftskip by #1\mil \fi \ifnum 0#2>0 \tableindent=#2\mil \fi \ifnum 0#3>0 \advance \rightskip by #3\mil \fi \itemmax=\tableindent \advance \itemmax by -\itemmargin \advance \leftskip by \tableindent \exdentamount=\tableindent \parindent = 0pt \parskip = \smallskipamount \ifdim \parskip=0pt \parskip=2pt \fi \let\item = \internalBitem \let\itemx = \internalBitemx } \def\Etable{\endgraf\afterenvbreak} \let\Eftable\Etable \let\Evtable\Etable \let\Eitemize\Etable \let\Eenumerate\Etable % This is the counter used by @enumerate, which is really @itemize \newcount \itemno \envdef\itemize{\parsearg\doitemize} \def\doitemize#1{% \aboveenvbreak \itemmax=\itemindent \advance\itemmax by -\itemmargin \advance\leftskip by \itemindent \exdentamount=\itemindent \parindent=0pt \parskip=\smallskipamount \ifdim\parskip=0pt \parskip=2pt \fi % % Try typesetting the item mark that if the document erroneously says % something like @itemize @samp (intending @table), there's an error % right away at the @itemize. It's not the best error message in the % world, but it's better than leaving it to the @item. This means if % the user wants an empty mark, they have to say @w{} not just @w. \def\itemcontents{#1}% \setbox0 = \hbox{\itemcontents}% % % @itemize with no arg is equivalent to @itemize @bullet. \ifx\itemcontents\empty\def\itemcontents{\bullet}\fi % \let\item=\itemizeitem } % Definition of @item while inside @itemize and @enumerate. % \def\itemizeitem{% \advance\itemno by 1 % for enumerations {\let\par=\endgraf \smallbreak}% reasonable place to break {% % If the document has an @itemize directly after a section title, a % \nobreak will be last on the list, and \sectionheading will have % done a \vskip-\parskip. In that case, we don't want to zero % parskip, or the item text will crash with the heading. On the % other hand, when there is normal text preceding the item (as there % usually is), we do want to zero parskip, or there would be too much % space. In that case, we won't have a \nobreak before. At least % that's the theory. \ifnum\lastpenalty<10000 \parskip=0in \fi \noindent \hbox to 0pt{\hss \itemcontents \kern\itemmargin}% % \vadjust{\penalty 1200}}% not good to break after first line of item. \flushcr } % \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'. % \envparseargdef\enumerate{\enumeratey #1 \endenumeratey} \def\enumeratey #1 #2\endenumeratey{% % 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 \doitemize, 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 \doitemize{#1.}\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} % @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. % 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 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 @columnfraction, usually a decimal number like .5, but might % be just 1. We just use it, whatever it is. % \def\pickupwholefraction#1 {% \global\advance\colcount by 1 \expandafter\xdef\csname col\the\colcount\endcsname{#1\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\space}% 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 } % multitable-only commands. % % @headitem starts a heading row, which we typeset in bold. % Assignments have to be global since we are inside the implicit group % of an alignment entry. \everycr resets \everytab so we don't have to % undo it ourselves. \def\headitemfont{\b}% for people to use in the template row; not changeable \def\headitem{% \checkenv\multitable \crcr \global\everytab={\bf}% can't use \headitemfont since the parsing differs \the\everytab % for the first item }% % % A \tab used to include \hskip1sp. But then the space in a template % line is not enough. That is bad. So let's go back to just `&' until % we again encounter the problem the 1sp was intended to solve. % --karl, nathan@acm.org, 20apr99. \def\tab{\checkenv\multitable &\the\everytab}% % @multitable ... @end multitable definitions: % \newtoks\everytab % insert after every tab. % \envdef\multitable{% \vskip\parskip \startsavinginserts % % @item within a multitable starts a normal row. % We use \def instead of \let so that if one of the multitable entries % contains an @itemize, we don't choke on the \item (seen as \crcr aka % \endtemplate) expanding \doitemize. \def\item{\crcr}% % \tolerance=9500 \hbadness=9500 \setmultitablespacing \parskip=\multitableparskip \parindent=\multitableparindent \overfullrule=0pt \global\colcount=0 % \everycr = {% \noalign{% \global\everytab={}% \global\colcount=0 % Reset the column counter. % Check for saved footnotes, etc. \checkinserts % Keeps underfull box messages off when table breaks over pages. %\filbreak % 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. }% }% % \parsearg\domultitable } \def\domultitable#1{% % To parse everything between @multitable and @item: \setuptable#1 \endsetuptable % % 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 \multistrut \vtop{% % Use the current \colcount to find the correct column width: \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\Emultitable{% \crcr \egroup % end the \halign \global\setpercentfalse } \def\setmultitablespacing{% \def\multistrut{\strut}% just use the standard line spacing % % Compute \multitablelinespace (if not defined by user) for use in % \multitableparskip calculation. We used define \multistrut based on % this, but (ironically) that caused the spacing to be off. % See bug-texinfo report from Werner Lemberg, 31 Oct 2004 12:52:20 +0100. \ifdim\multitablelinespace=0pt \setbox0=\vbox{X}\global\multitablelinespace=\the\baselineskip \global\advance\multitablelinespace by-\ht0 \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,} % @iftex, @ifnotdocbook, @ifnothtml, @ifnotinfo, @ifnotplaintext, % @ifnotxml always succeed. They currently do nothing; we don't % attempt to check whether the conditionals are properly nested. But we % have to remember that they are conditionals, so that @end doesn't % attempt to close an environment group. % \def\makecond#1{% \expandafter\let\csname #1\endcsname = \relax \expandafter\let\csname iscond.#1\endcsname = 1 } \makecond{iftex} \makecond{ifnotdocbook} \makecond{ifnothtml} \makecond{ifnotinfo} \makecond{ifnotplaintext} \makecond{ifnotxml} % Ignore @ignore, @ifhtml, @ifinfo, and the like. % \def\direntry{\doignore{direntry}} \def\documentdescription{\doignore{documentdescription}} \def\docbook{\doignore{docbook}} \def\html{\doignore{html}} \def\ifdocbook{\doignore{ifdocbook}} \def\ifhtml{\doignore{ifhtml}} \def\ifinfo{\doignore{ifinfo}} \def\ifnottex{\doignore{ifnottex}} \def\ifplaintext{\doignore{ifplaintext}} \def\ifxml{\doignore{ifxml}} \def\ignore{\doignore{ignore}} \def\menu{\doignore{menu}} \def\xml{\doignore{xml}} % Ignore text until a line `@end #1', keeping track of nested conditionals. % % A count to remember the depth of nesting. \newcount\doignorecount \def\doignore#1{\begingroup % Scan in ``verbatim'' mode: \obeylines \catcode`\@ = \other \catcode`\{ = \other \catcode`\} = \other % % Make sure that spaces turn into tokens that match what \doignoretext wants. \spaceisspace % % Count number of #1's that we've seen. \doignorecount = 0 % % Swallow text until we reach the matching `@end #1'. \dodoignore{#1}% } { \catcode`_=11 % We want to use \_STOP_ which cannot appear in texinfo source. \obeylines % % \gdef\dodoignore#1{% % #1 contains the command name as a string, e.g., `ifinfo'. % % Define a command to find the next `@end #1'. \long\def\doignoretext##1^^M@end #1{% \doignoretextyyy##1^^M@#1\_STOP_}% % % And this command to find another #1 command, at the beginning of a % line. (Otherwise, we would consider a line `@c @ifset', for % example, to count as an @ifset for nesting.) \long\def\doignoretextyyy##1^^M@#1##2\_STOP_{\doignoreyyy{##2}\_STOP_}% % % And now expand that command. \doignoretext ^^M% }% } \def\doignoreyyy#1{% \def\temp{#1}% \ifx\temp\empty % Nothing found. \let\next\doignoretextzzz \else % Found a nested condition, ... \advance\doignorecount by 1 \let\next\doignoretextyyy % ..., look for another. % If we're here, #1 ends with ^^M\ifinfo (for example). \fi \next #1% the token \_STOP_ is present just after this macro. } % We have to swallow the remaining "\_STOP_". % \def\doignoretextzzz#1{% \ifnum\doignorecount = 0 % We have just found the outermost @end. \let\next\enddoignore \else % Still inside a nested condition. \advance\doignorecount by -1 \let\next\doignoretext % Look for the next @end. \fi \next } % Finish off ignored text. { \obeylines% % Ignore anything after the last `@end #1'; this matters in verbatim % environments, where otherwise the newline after an ignored conditional % would result in a blank line in the output. \gdef\enddoignore#1^^M{\endgroup\ignorespaces}% } % @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. % We rely on the fact that \parsearg sets \catcode`\ =10. % \parseargdef\set{\setyyy#1 \endsetyyy} \def\setyyy#1 #2\endsetyyy{% {% \makevalueexpandable \def\temp{#2}% \edef\next{\gdef\makecsname{SET#1}}% \ifx\temp\empty \next{}% \else \setzzz#2\endsetzzz \fi }% } % Remove the trailing space \setxxx inserted. \def\setzzz#1 \endsetzzz{\next{#1}} % @clear VAR clears (i.e., unsets) the variable VAR. % \parseargdef\clear{% {% \makevalueexpandable \global\expandafter\let\csname SET#1\endcsname=\relax }% } % @value{foo} gets the text saved in variable foo. \def\value{\begingroup\makevalueexpandable\valuexxx} \def\valuexxx#1{\expandablevalue{#1}\endgroup} { \catcode`\- = \active \catcode`\_ = \active % \gdef\makevalueexpandable{% \let\value = \expandablevalue % We don't want these characters active, ... \catcode`\-=\other \catcode`\_=\other % ..., but we might end up with active ones in the argument if % we're called from @code, as @code{@value{foo-bar_}}, though. % So \let them to their normal equivalents. \let-\realdash \let_\normalunderscore } } % We have this subroutine so that we can handle at least some @value's % properly in indexes (we call \makevalueexpandable in \indexdummies). % The command has to be fully expandable (if the variable is set), 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'']}% \message{Variable `#1', used in @value, is not set.}% \else \csname SET#1\endcsname \fi } % @ifset VAR ... @end ifset reads the `...' iff VAR has been defined % with @set. % % To get special treatment of `@end ifset,' call \makeond and the redefine. % \makecond{ifset} \def\ifset{\parsearg{\doifset{\let\next=\ifsetfail}}} \def\doifset#1#2{% {% \makevalueexpandable \let\next=\empty \expandafter\ifx\csname SET#2\endcsname\relax #1% If not set, redefine \next. \fi \expandafter }\next } \def\ifsetfail{\doignore{ifset}} % @ifclear VAR ... @end ifclear reads the `...' iff VAR has never been % defined with @set, or has been undefined with @clear. % % The `\else' inside the `\doifset' parameter is a trick to reuse the % above code: if the variable is not set, do nothing, if it is set, % then redefine \next to \ifclearfail. % \makecond{ifclear} \def\ifclear{\parsearg{\doifset{\else \let\next=\ifclearfail}}} \def\ifclearfail{\doignore{ifclear}} % @dircategory CATEGORY -- specify a category of the dir file % which this file should belong to. Ignore this in TeX. \let\dircategory=\comment % @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 macros and \if's. \edef\newwrite{\makecsname{ptexnewwrite}} % \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\defcodeindex{\parsearg\newcodeindex} % \def\newcodeindex#1{% \iflinks \expandafter\newwrite \csname#1indfile\endcsname \openout \csname#1indfile\endcsname \jobname.#1 \fi \expandafter\xdef\csname#1index\endcsname{% \noexpand\docodeindex{#1}}% } % @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. % % @syncodeindex foo bar similar, but put all entries made for index foo % inside @code. % \def\synindex#1 #2 {\dosynindex\doindex{#1}{#2}} \def\syncodeindex#1 #2 {\dosynindex\docodeindex{#1}{#2}} % #1 is \doindex or \docodeindex, #2 the index getting redefined (foo), % #3 the target index (bar). \def\dosynindex#1#2#3{% % Only do \closeout if we haven't already done it, else we'll end up % closing the target index. \expandafter \ifx\csname donesynindex#2\endcsname \relax % The \closeout helps reduce unnecessary open files; the limit on the % Acorn RISC OS is a mere 16 files. \expandafter\closeout\csname#2indfile\endcsname \expandafter\let\csname donesynindex#2\endcsname = 1 \fi % redefine \fooindfile: \expandafter\let\expandafter\temp\expandafter=\csname#3indfile\endcsname \expandafter\let\csname#2indfile\endcsname=\temp % redefine \fooindex: \expandafter\xdef\csname#2index\endcsname{\noexpand#1{#3}}% } % 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}}} % Take care of Texinfo commands that can appear in an index entry. % Since there are some commands we want to expand, and others we don't, % we have to laboriously prevent expansion for those that we don't. % \def\indexdummies{% \escapechar = `\\ % use backslash in output files. \def\@{@}% change to @@ when we switch to @ as escape char in index files. \def\ {\realbackslash\space }% % % Need these unexpandable (because we define \tt as a dummy) % definitions when @{ or @} appear in index entry text. Also, more % complicated, when \tex is in effect and \{ is a \delimiter again. % We can't use \lbracecmd and \rbracecmd because texindex assumes % braces and backslashes are used only as delimiters. Perhaps we % should define @lbrace and @rbrace commands a la @comma. \def\{{{\tt\char123}}% \def\}{{\tt\char125}}% % % I don't entirely understand this, but when an index entry is % generated from a macro call, the \endinput which \scanmacro inserts % causes processing to be prematurely terminated. This is, % apparently, because \indexsorttmp is fully expanded, and \endinput % is an expandable command. The redefinition below makes \endinput % disappear altogether for that purpose -- although logging shows that % processing continues to some further point. On the other hand, it % seems \endinput does not hurt in the printed index arg, since that % is still getting written without apparent harm. % % Sample source (mac-idx3.tex, reported by Graham Percival to % help-texinfo, 22may06): % @macro funindex {WORD} % @findex xyz % @end macro % ... % @funindex commtest % % The above is not enough to reproduce the bug, but it gives the flavor. % % Sample whatsit resulting: % .@write3{\entry{xyz}{@folio }{@code {xyz@endinput }}} % % So: \let\endinput = \empty % % Do the redefinitions. \commondummies } % For the aux and toc files, @ is the escape character. So we want to % redefine everything using @ as the escape character (instead of % \realbackslash, still used for index files). When everything uses @, % this will be simpler. % \def\atdummies{% \def\@{@@}% \def\ {@ }% \let\{ = \lbraceatcmd \let\} = \rbraceatcmd % % Do the redefinitions. \commondummies \otherbackslash } % Called from \indexdummies and \atdummies. % \def\commondummies{% % % \definedummyword defines \#1 as \string\#1\space, thus effectively % preventing its expansion. This is used only for control words, % not control letters, because the \space would be incorrect for % control characters, but is needed to separate the control word % from whatever follows. % % For control letters, we have \definedummyletter, which omits the % space. % % These can be used both for control words that take an argument and % those that do not. If it is followed by {arg} in the input, then % that will dutifully get written to the index (or wherever). % \def\definedummyword ##1{\def##1{\string##1\space}}% \def\definedummyletter##1{\def##1{\string##1}}% \let\definedummyaccent\definedummyletter % \commondummiesnofonts % \definedummyletter\_% \definedummyletter\-% % % Non-English letters. \definedummyword\AA \definedummyword\AE \definedummyword\DH \definedummyword\L \definedummyword\O \definedummyword\OE \definedummyword\TH \definedummyword\aa \definedummyword\ae \definedummyword\dh \definedummyword\exclamdown \definedummyword\l \definedummyword\o \definedummyword\oe \definedummyword\ordf \definedummyword\ordm \definedummyword\questiondown \definedummyword\ss \definedummyword\th % % Although these internal commands shouldn't show up, sometimes they do. \definedummyword\bf \definedummyword\gtr \definedummyword\hat \definedummyword\less \definedummyword\sf \definedummyword\sl \definedummyword\tclose \definedummyword\tt % \definedummyword\LaTeX \definedummyword\TeX % % Assorted special characters. \definedummyword\arrow \definedummyword\bullet \definedummyword\comma \definedummyword\copyright \definedummyword\registeredsymbol \definedummyword\dots \definedummyword\enddots \definedummyword\entrybreak \definedummyword\equiv \definedummyword\error \definedummyword\euro \definedummyword\expansion \definedummyword\geq \definedummyword\guillemetleft \definedummyword\guillemetright \definedummyword\guilsinglleft \definedummyword\guilsinglright \definedummyword\leq \definedummyword\minus \definedummyword\ogonek \definedummyword\pounds \definedummyword\point \definedummyword\print \definedummyword\quotedblbase \definedummyword\quotedblleft \definedummyword\quotedblright \definedummyword\quoteleft \definedummyword\quoteright \definedummyword\quotesinglbase \definedummyword\result \definedummyword\textdegree % % We want to disable all macros so that they are not expanded by \write. \macrolist % \normalturnoffactive % % Handle some cases of @value -- where it does not contain any % (non-fully-expandable) commands. \makevalueexpandable } % \commondummiesnofonts: common to \commondummies and \indexnofonts. % \def\commondummiesnofonts{% % Control letters and accents. \definedummyletter\!% \definedummyaccent\"% \definedummyaccent\'% \definedummyletter\*% \definedummyaccent\,% \definedummyletter\.% \definedummyletter\/% \definedummyletter\:% \definedummyaccent\=% \definedummyletter\?% \definedummyaccent\^% \definedummyaccent\`% \definedummyaccent\~% \definedummyword\u \definedummyword\v \definedummyword\H \definedummyword\dotaccent \definedummyword\ogonek \definedummyword\ringaccent \definedummyword\tieaccent \definedummyword\ubaraccent \definedummyword\udotaccent \definedummyword\dotless % % Texinfo font commands. \definedummyword\b \definedummyword\i \definedummyword\r \definedummyword\sansserif \definedummyword\sc \definedummyword\slanted \definedummyword\t % % Commands that take arguments. \definedummyword\acronym \definedummyword\anchor \definedummyword\cite \definedummyword\code \definedummyword\command \definedummyword\dfn \definedummyword\dmn \definedummyword\email \definedummyword\emph \definedummyword\env \definedummyword\file \definedummyword\indicateurl \definedummyword\kbd \definedummyword\key \definedummyword\math \definedummyword\option \definedummyword\pxref \definedummyword\ref \definedummyword\samp \definedummyword\strong \definedummyword\tie \definedummyword\uref \definedummyword\url \definedummyword\var \definedummyword\verb \definedummyword\w \definedummyword\xref } % \indexnofonts is used when outputting the strings to sort the index % by, and when constructing control sequence names. It eliminates all % control sequences and just writes whatever the best ASCII sort string % would be for a given command (usually its argument). % \def\indexnofonts{% % Accent commands should become @asis. \def\definedummyaccent##1{\let##1\asis}% % We can just ignore other control letters. \def\definedummyletter##1{\let##1\empty}% % All control words become @asis by default; overrides below. \let\definedummyword\definedummyaccent % \commondummiesnofonts % % Don't no-op \tt, since it isn't a user-level command % and is used in the definitions of the active chars like <, >, |, etc. % Likewise with the other plain tex font commands. %\let\tt=\asis % \def\ { }% \def\@{@}% \def\_{\normalunderscore}% \def\-{}% @- shouldn't affect sorting % % Unfortunately, texindex is not prepared to handle braces in the % content at all. So for index sorting, we map @{ and @} to strings % starting with |, since that ASCII character is between ASCII { and }. \def\{{|a}% \def\}{|b}% % % Non-English letters. \def\AA{AA}% \def\AE{AE}% \def\DH{DZZ}% \def\L{L}% \def\OE{OE}% \def\O{O}% \def\TH{ZZZ}% \def\aa{aa}% \def\ae{ae}% \def\dh{dzz}% \def\exclamdown{!}% \def\l{l}% \def\oe{oe}% \def\ordf{a}% \def\ordm{o}% \def\o{o}% \def\questiondown{?}% \def\ss{ss}% \def\th{zzz}% % \def\LaTeX{LaTeX}% \def\TeX{TeX}% % % Assorted special characters. % (The following {} will end up in the sort string, but that's ok.) \def\arrow{->}% \def\bullet{bullet}% \def\comma{,}% \def\copyright{copyright}% \def\dots{...}% \def\enddots{...}% \def\equiv{==}% \def\error{error}% \def\euro{euro}% \def\expansion{==>}% \def\geq{>=}% \def\guillemetleft{<<}% \def\guillemetright{>>}% \def\guilsinglleft{<}% \def\guilsinglright{>}% \def\leq{<=}% \def\minus{-}% \def\point{.}% \def\pounds{pounds}% \def\print{-|}% \def\quotedblbase{"}% \def\quotedblleft{"}% \def\quotedblright{"}% \def\quoteleft{`}% \def\quoteright{'}% \def\quotesinglbase{,}% \def\registeredsymbol{R}% \def\result{=>}% \def\textdegree{o}% % \expandafter\ifx\csname SETtxiindexlquoteignore\endcsname\relax \else \indexlquoteignore \fi % % We need to get rid of all macros, leaving only the arguments (if present). % Of course this is not nearly correct, but it is the best we can do for now. % makeinfo does not expand macros in the argument to @deffn, which ends up % writing an index entry, and texindex isn't prepared for an index sort entry % that starts with \. % % Since macro invocations are followed by braces, we can just redefine them % to take a single TeX argument. The case of a macro invocation that % goes to end-of-line is not handled. % \macrolist } % Undocumented (for FSFS 2nd ed.): @set txiindexlquoteignore makes us % ignore left quotes in the sort term. {\catcode`\`=\active \gdef\indexlquoteignore{\let`=\empty}} \let\indexbackslash=0 %overridden during \printindex. \let\SETmarginindex=\relax % put index entries in margin (undocumented)? % Most index entries go through here, but \dosubind is the general case. % #1 is the index name, #2 is the entry text. \def\doind#1#2{\dosubind{#1}{#2}{}} % 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 most defuns, which call us directly). % \def\dosubind#1#2#3{% \iflinks {% % Store the main index entry text (including the third arg). \toks0 = {#2}% % If third arg is present, precede it with a space. \def\thirdarg{#3}% \ifx\thirdarg\empty \else \toks0 = \expandafter{\the\toks0 \space #3}% \fi % \edef\writeto{\csname#1indfile\endcsname}% % \safewhatsit\dosubindwrite }% \fi } % Write the entry in \toks0 to the index file: % \def\dosubindwrite{% % Put the index entry in the margin if desired. \ifx\SETmarginindex\relax\else \insert\margin{\hbox{\vrule height8pt depth3pt width0pt \the\toks0}}% \fi % % Remember, we are within a group. \indexdummies % Must do this here, since \bf, etc expand at this stage \def\backslashcurfont{\indexbackslash}% \indexbackslash isn't defined now % so it will be output as is; and it will print as backslash. % % Process the index entry with all font commands turned off, to % get the string to sort by. {\indexnofonts \edef\temp{\the\toks0}% need full expansion \xdef\indexsorttmp{\temp}% }% % % 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 (four in the % subentry case), texindex reduces to two when writing the .??s % sorted result. \edef\temp{% \write\writeto{% \string\entry{\indexsorttmp}{\noexpand\folio}{\the\toks0}}% }% \temp } % Take care of unwanted page breaks/skips around a whatsit: % % 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 or \pdfdest 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. % % But wait, there is a catch there: % We'll have to check whether \lastskip is zero skip. \ifdim is not % sufficient for this purpose, as it ignores stretch and shrink parts % of the skip. The only way seems to be to check the textual % representation of the skip. % % The following is almost like \def\zeroskipmacro{0.0pt} except that % the ``p'' and ``t'' characters have catcode \other, not 11 (letter). % \edef\zeroskipmacro{\expandafter\the\csname z@skip\endcsname} % \newskip\whatsitskip \newcount\whatsitpenalty % % ..., ready, GO: % \def\safewhatsit#1{\ifhmode #1% \else % \lastskip and \lastpenalty cannot both be nonzero simultaneously. \whatsitskip = \lastskip \edef\lastskipmacro{\the\lastskip}% \whatsitpenalty = \lastpenalty % % If \lastskip is nonzero, that means the last item was a % skip. And since a skip is discardable, that means this % -\whatsitskip glue we're inserting is preceded by a % non-discardable item, therefore it is not a potential % breakpoint, therefore no \nobreak needed. \ifx\lastskipmacro\zeroskipmacro \else \vskip-\whatsitskip \fi % #1% % \ifx\lastskipmacro\zeroskipmacro % If \lastskip was zero, perhaps the last item was a penalty, and % perhaps it was >=10000, e.g., a \nobreak. In that case, we want % to re-insert the same penalty (values >10000 are used for various % signals); since we just inserted a non-discardable item, any % following glue (such as a \parskip) would be a breakpoint. For example: % @deffn deffn-whatever % @vindex index-whatever % Description. % would allow a break between the index-whatever whatsit % and the "Description." paragraph. \ifnum\whatsitpenalty>9999 \penalty\whatsitpenalty \fi \else % On the other hand, if we had a nonzero \lastskip, % this make-up glue would be preceded by a non-discardable item % (the whatsit from the \write), so we must insert a \nobreak. \nobreak\vskip\whatsitskip \fi \fi} % 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). % \parseargdef\printindex{\begingroup \dobreak \chapheadingskip{10000}% % \smallfonts \rm \tolerance = 9500 \plainfrenchspacing \everypar = {}% don't want the \kern\-parindent from indentation suppression. % % 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{\backslashcurfont}% \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. \nobreak \vskip 0pt plus 3\baselineskip \penalty 0 \vskip 0pt plus -3\baselineskip % % 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}% % Do our best not to break after the initial. \nobreak \vskip .33\baselineskip plus .1\baselineskip }} % \entry typesets a paragraph consisting of the text (#1), dot leaders, and % then page number (#2) flushed to the right margin. It is used for index % and table of contents entries. The paragraph is indented by \leftskip. % % A straightforward implementation would start like this: % \def\entry#1#2{... % But this freezes the catcodes in the argument, and can cause problems to % @code, which sets - active. This problem was fixed by a kludge--- % ``-'' was active throughout whole index, but this isn't really right. % The right solution is to prevent \entry from swallowing the whole text. % --kasal, 21nov03 \def\entry{% \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 % % When reading the text of entry, convert explicit line breaks % from @* into spaces. The user might give these in long section % titles, for instance. \def\*{\unskip\space\ignorespaces}% \def\entrybreak{\hfil\break}% % % Swallow the left brace of the text (first parameter): \afterassignment\doentry \let\temp = } \def\entrybreak{\unskip\space\ignorespaces}% \def\doentry{% \bgroup % Instead of the swallowed brace. \noindent \aftergroup\finishentry % And now comes the text of the entry. } \def\finishentry#1{% % #1 is the page number. % % 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. \setbox\boxA = \hbox{#1}% \ifdim\wd\boxA = 0pt \ % \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#1.% \ \the\toksA \else \ #1% \fi \fi \par \endgroup } % Like plain.tex's \dotfill, except uses up at least 1 em. \def\indexdotfill{\cleaders \hbox{$\mathsurround=0pt \mkern1.5mu.\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 \ifpdf \pdfgettoks#2.\ \the\toksA % The page number ends the paragraph. \else #2 \fi \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.) \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 \advance\dimen@ by -\ht\partialpage % % box0 will be the left-hand column, box2 the right. \setbox0=\vsplit255 to\dimen@ \setbox2=\vsplit255 to\dimen@ \onepageout\pagesofar \unvbox255 \penalty\outputpenalty } % % Re-output the contents of the output page -- any previous material, % followed by the two boxes we just split, in box0 and box2. \def\pagesofar{% \unvbox\partialpage % \hsize = \doublecolumnhsize \wd0=\hsize \wd2=\hsize \hbox to\pagewidth{\box0\hfil\box2}% } % % All done with double columns. \def\enddoublecolumns{% % The following penalty ensures that the page builder is exercised % _before_ we change the output routine. This is necessary in the % following situation: % % The last section of the index consists only of a single entry. % Before this section, \pagetotal is less than \pagegoal, so no % break occurs before the last section starts. However, the last % section, consisting of \initial and the single \entry, does not % fit on the page and has to be broken off. Without the following % penalty the page builder will not be exercised until \eject % below, and by that time we'll already have changed the output % routine to the \balancecolumns version, so the next-to-last % double-column page will be processed with \balancecolumns, which % is wrong: The two columns will go to the main vertical list, with % the broken-off section in the recent contributions. As soon as % the output routine finishes, TeX starts reconsidering the page % break. The two columns and the broken-off section both fit on the % page, because the two columns now take up only half of the page % goal. When TeX sees \eject from below which follows the final % section, it invokes the new output routine that we've set after % \balancecolumns below; \onepageout will try to fit the two columns % and the final section into the vbox of \pageheight (see % \pagebody), causing an overfull box. % % Note that glue won't work here, because glue does not exercise the % page builder, unlike penalties (see The TeXbook, pp. 280-281). \penalty0 % \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 } % % Called at the end of the double column material. \def\balancecolumns{% \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. % Let's start with @part. \outer\parseargdef\part{\partzzz{#1}} \def\partzzz#1{% \chapoddpage \null \vskip.3\vsize % move it down on the page a bit \begingroup \noindent \titlefonts\rmisbold #1\par % the text \let\lastnode=\empty % no node to associate with \writetocentry{part}{#1}{}% but put it in the toc \headingsoff % no headline or footline on the part page \chapoddpage \endgroup } % \unnumberedno is an oxymoron. But we count the unnumbered % sections so that we can refer to them unambiguously in the pdf % outlines by their "section number". We avoid collisions with chapter % numbers by starting them at 10000. (If a document ever has 10000 % chapters, we're in trouble anyway, I'm sure.) \newcount\unnumberedno \unnumberedno = 10000 \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 ugly conditional instead of the above simple % construct 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 these (using marks) as the number+name, number % and name of the chapter. Page headings and footings can use % these. @section does likewise. \def\thischapter{} \def\thischapternum{} \def\thischaptername{} \def\thissection{} \def\thissectionnum{} \def\thissectionname{} \newcount\absseclevel % used to calculate proper heading level \newcount\secbase\secbase=0 % @raisesections/@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 % we only have subsub. \chardef\maxseclevel = 3 % % A numbered section within an unnumbered changes to unnumbered too. % To achieve this, remember the "biggest" unnum. sec. we are currently in: \chardef\unnlevel = \maxseclevel % % Trace whether the current chapter is an appendix or not: % \chapheadtype is "N" or "A", unnumbered chapters are ignored. \def\chapheadtype{N} % Choose a heading macro % #1 is heading type % #2 is heading level % #3 is text for heading \def\genhead#1#2#3{% % Compute the abs. sec. level: \absseclevel=#2 \advance\absseclevel by \secbase % Make sure \absseclevel doesn't fall outside the range: \ifnum \absseclevel < 0 \absseclevel = 0 \else \ifnum \absseclevel > 3 \absseclevel = 3 \fi \fi % The heading type: \def\headtype{#1}% \if \headtype U% \ifnum \absseclevel < \unnlevel \chardef\unnlevel = \absseclevel \fi \else % Check for appendix sections: \ifnum \absseclevel = 0 \edef\chapheadtype{\headtype}% \else \if \headtype A\if \chapheadtype N% \errmessage{@appendix... within a non-appendix chapter}% \fi\fi \fi % Check for numbered within unnumbered: \ifnum \absseclevel > \unnlevel \def\headtype{U}% \else \chardef\unnlevel = 3 \fi \fi % Now print the heading: \if \headtype U% \ifcase\absseclevel \unnumberedzzz{#3}% \or \unnumberedseczzz{#3}% \or \unnumberedsubseczzz{#3}% \or \unnumberedsubsubseczzz{#3}% \fi \else \if \headtype A% \ifcase\absseclevel \appendixzzz{#3}% \or \appendixsectionzzz{#3}% \or \appendixsubseczzz{#3}% \or \appendixsubsubseczzz{#3}% \fi \else \ifcase\absseclevel \chapterzzz{#3}% \or \seczzz{#3}% \or \numberedsubseczzz{#3}% \or \numberedsubsubseczzz{#3}% \fi \fi \fi \suppressfirstparagraphindent } % an interface: \def\numhead{\genhead N} \def\apphead{\genhead A} \def\unnmhead{\genhead U} % @chapter, @appendix, @unnumbered. Increment top-level counter, reset % all lower-level sectioning counters to zero. % % Also set \chaplevelprefix, which we prepend to @float sequence numbers % (e.g., figures), q.v. By default (before any chapter), that is empty. \let\chaplevelprefix = \empty % \outer\parseargdef\chapter{\numhead0{#1}} % normally numhead0 calls chapterzzz \def\chapterzzz#1{% % section resetting is \global in case the chapter is in a group, such % as an @include file. \global\secno=0 \global\subsecno=0 \global\subsubsecno=0 \global\advance\chapno by 1 % % Used for \float. \gdef\chaplevelprefix{\the\chapno.}% \resetallfloatnos % % \putwordChapter can contain complex things in translations. \toks0=\expandafter{\putwordChapter}% \message{\the\toks0 \space \the\chapno}% % % Write the actual heading. \chapmacro{#1}{Ynumbered}{\the\chapno}% % % So @section and the like are numbered underneath this chapter. \global\let\section = \numberedsec \global\let\subsection = \numberedsubsec \global\let\subsubsection = \numberedsubsubsec } \outer\parseargdef\appendix{\apphead0{#1}} % normally calls appendixzzz % \def\appendixzzz#1{% \global\secno=0 \global\subsecno=0 \global\subsubsecno=0 \global\advance\appendixno by 1 \gdef\chaplevelprefix{\appendixletter.}% \resetallfloatnos % % \putwordAppendix can contain complex things in translations. \toks0=\expandafter{\putwordAppendix}% \message{\the\toks0 \space \appendixletter}% % \chapmacro{#1}{Yappendix}{\appendixletter}% % \global\let\section = \appendixsec \global\let\subsection = \appendixsubsec \global\let\subsubsection = \appendixsubsubsec } % normally unnmhead0 calls unnumberedzzz: \outer\parseargdef\unnumbered{\unnmhead0{#1}} \def\unnumberedzzz#1{% \global\secno=0 \global\subsecno=0 \global\subsubsecno=0 \global\advance\unnumberedno by 1 % % Since an unnumbered has no number, no prefix for figures. \global\let\chaplevelprefix = \empty \resetallfloatnos % % 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)}% % \chapmacro{#1}{Ynothing}{\the\unnumberedno}% % \global\let\section = \unnumberedsec \global\let\subsection = \unnumberedsubsec \global\let\subsubsection = \unnumberedsubsubsec } % @centerchap is like @unnumbered, but the heading is centered. \outer\parseargdef\centerchap{% % Well, we could do the following in a group, but that would break % an assumption that \chapmacro is called at the outermost level. % Thus we are safer this way: --kasal, 24feb04 \let\centerparametersmaybe = \centerparameters \unnmhead0{#1}% \let\centerparametersmaybe = \relax } % @top is like @unnumbered. \let\top\unnumbered % Sections. % \outer\parseargdef\numberedsec{\numhead1{#1}} % normally calls seczzz \def\seczzz#1{% \global\subsecno=0 \global\subsubsecno=0 \global\advance\secno by 1 \sectionheading{#1}{sec}{Ynumbered}{\the\chapno.\the\secno}% } % normally calls appendixsectionzzz: \outer\parseargdef\appendixsection{\apphead1{#1}} \def\appendixsectionzzz#1{% \global\subsecno=0 \global\subsubsecno=0 \global\advance\secno by 1 \sectionheading{#1}{sec}{Yappendix}{\appendixletter.\the\secno}% } \let\appendixsec\appendixsection % normally calls unnumberedseczzz: \outer\parseargdef\unnumberedsec{\unnmhead1{#1}} \def\unnumberedseczzz#1{% \global\subsecno=0 \global\subsubsecno=0 \global\advance\secno by 1 \sectionheading{#1}{sec}{Ynothing}{\the\unnumberedno.\the\secno}% } % Subsections. % % normally calls numberedsubseczzz: \outer\parseargdef\numberedsubsec{\numhead2{#1}} \def\numberedsubseczzz#1{% \global\subsubsecno=0 \global\advance\subsecno by 1 \sectionheading{#1}{subsec}{Ynumbered}{\the\chapno.\the\secno.\the\subsecno}% } % normally calls appendixsubseczzz: \outer\parseargdef\appendixsubsec{\apphead2{#1}} \def\appendixsubseczzz#1{% \global\subsubsecno=0 \global\advance\subsecno by 1 \sectionheading{#1}{subsec}{Yappendix}% {\appendixletter.\the\secno.\the\subsecno}% } % normally calls unnumberedsubseczzz: \outer\parseargdef\unnumberedsubsec{\unnmhead2{#1}} \def\unnumberedsubseczzz#1{% \global\subsubsecno=0 \global\advance\subsecno by 1 \sectionheading{#1}{subsec}{Ynothing}% {\the\unnumberedno.\the\secno.\the\subsecno}% } % Subsubsections. % % normally numberedsubsubseczzz: \outer\parseargdef\numberedsubsubsec{\numhead3{#1}} \def\numberedsubsubseczzz#1{% \global\advance\subsubsecno by 1 \sectionheading{#1}{subsubsec}{Ynumbered}% {\the\chapno.\the\secno.\the\subsecno.\the\subsubsecno}% } % normally appendixsubsubseczzz: \outer\parseargdef\appendixsubsubsec{\apphead3{#1}} \def\appendixsubsubseczzz#1{% \global\advance\subsubsecno by 1 \sectionheading{#1}{subsubsec}{Yappendix}% {\appendixletter.\the\secno.\the\subsecno.\the\subsubsecno}% } % normally unnumberedsubsubseczzz: \outer\parseargdef\unnumberedsubsubsec{\unnmhead3{#1}} \def\unnumberedsubsubseczzz#1{% \global\advance\subsubsecno by 1 \sectionheading{#1}{subsubsec}{Ynothing}% {\the\unnumberedno.\the\secno.\the\subsecno.\the\subsubsecno}% } % 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. \let\section = \numberedsec \let\subsection = \numberedsubsec \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{% {\advance\chapheadingskip by 10pt \chapbreak }% \parsearg\chapheadingzzz } \def\chapheading{\chapbreak \parsearg\chapheadingzzz} \def\chapheadingzzz#1{% {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt\ptexraggedright \rmisbold #1\hfill}}% \bigskip \par\penalty 200\relax \suppressfirstparagraphindent } % @heading, @subheading, @subsubheading. \parseargdef\heading{\sectionheading{#1}{sec}{Yomitfromtoc}{} \suppressfirstparagraphindent} \parseargdef\subheading{\sectionheading{#1}{subsec}{Yomitfromtoc}{} \suppressfirstparagraphindent} \parseargdef\subsubheading{\sectionheading{#1}{subsubsec}{Yomitfromtoc}{} \suppressfirstparagraphindent} % 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} % Parameter controlling skip before chapter headings (if needed) \newskip\chapheadingskip % Define plain chapter starts, and page on/off switching for it. \def\chapbreak{\dobreak \chapheadingskip {-4000}} \def\chappager{\par\vfill\supereject} % Because \domark is called before \chapoddpage, the filler page will % get the headings for the next chapter, which is wrong. But we don't % care -- we just disable all headings on the filler page. \def\chapoddpage{% \chappager \ifodd\pageno \else \begingroup \headingsoff \null \chappager \endgroup \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 % Chapter opening. % % #1 is the text, #2 is the section type (Ynumbered, Ynothing, % Yappendix, Yomitfromtoc), #3 the chapter number. % % To test against our argument. \def\Ynothingkeyword{Ynothing} \def\Yomitfromtockeyword{Yomitfromtoc} \def\Yappendixkeyword{Yappendix} % \def\chapmacro#1#2#3{% % Insert the first mark before the heading break (see notes for \domark). \let\prevchapterdefs=\lastchapterdefs \let\prevsectiondefs=\lastsectiondefs \gdef\lastsectiondefs{\gdef\thissectionname{}\gdef\thissectionnum{}% \gdef\thissection{}}% % \def\temptype{#2}% \ifx\temptype\Ynothingkeyword \gdef\lastchapterdefs{\gdef\thischaptername{#1}\gdef\thischapternum{}% \gdef\thischapter{\thischaptername}}% \else\ifx\temptype\Yomitfromtockeyword \gdef\lastchapterdefs{\gdef\thischaptername{#1}\gdef\thischapternum{}% \gdef\thischapter{}}% \else\ifx\temptype\Yappendixkeyword \toks0={#1}% \xdef\lastchapterdefs{% \gdef\noexpand\thischaptername{\the\toks0}% \gdef\noexpand\thischapternum{\appendixletter}% % \noexpand\putwordAppendix avoids expanding indigestible % commands in some of the translations. \gdef\noexpand\thischapter{\noexpand\putwordAppendix{} \noexpand\thischapternum: \noexpand\thischaptername}% }% \else \toks0={#1}% \xdef\lastchapterdefs{% \gdef\noexpand\thischaptername{\the\toks0}% \gdef\noexpand\thischapternum{\the\chapno}% % \noexpand\putwordChapter avoids expanding indigestible % commands in some of the translations. \gdef\noexpand\thischapter{\noexpand\putwordChapter{} \noexpand\thischapternum: \noexpand\thischaptername}% }% \fi\fi\fi % % Output the mark. Pass it through \safewhatsit, to take care of % the preceding space. \safewhatsit\domark % % Insert the chapter heading break. \pchapsepmacro % % Now the second mark, after the heading break. No break points % between here and the heading. \let\prevchapterdefs=\lastchapterdefs \let\prevsectiondefs=\lastsectiondefs \domark % {% \chapfonts \rmisbold % % Have to define \lastsection before calling \donoderef, because the % xref code eventually uses it. On the other hand, it has to be called % after \pchapsepmacro, or the headline will change too soon. \gdef\lastsection{#1}% % % Only insert the separating space if we have a chapter/appendix % number, and don't print the unnumbered ``number''. \ifx\temptype\Ynothingkeyword \setbox0 = \hbox{}% \def\toctype{unnchap}% \else\ifx\temptype\Yomitfromtockeyword \setbox0 = \hbox{}% contents like unnumbered, but no toc entry \def\toctype{omit}% \else\ifx\temptype\Yappendixkeyword \setbox0 = \hbox{\putwordAppendix{} #3\enspace}% \def\toctype{app}% \else \setbox0 = \hbox{#3\enspace}% \def\toctype{numchap}% \fi\fi\fi % % Write the toc entry for this chapter. Must come before the % \donoderef, because we include the current node name in the toc % entry, and \donoderef resets it to empty. \writetocentry{\toctype}{#1}{#3}% % % For pdftex, we have to write out the node definition (aka, make % the pdfdest) after any page break, but before the actual text has % been typeset. If the destination for the pdf outline is after the % text, then jumping from the outline may wind up with the text not % being visible, for instance under high magnification. \donoderef{#2}% % % Typeset the actual heading. \nobreak % Avoid page breaks at the interline glue. \vbox{\hyphenpenalty=10000 \tolerance=5000 \parindent=0pt \ptexraggedright \hangindent=\wd0 \centerparametersmaybe \unhbox0 #1\par}% }% \nobreak\bigskip % no page break after a chapter title \nobreak } % @centerchap -- centered and unnumbered. \let\centerparametersmaybe = \relax \def\centerparameters{% \advance\rightskip by 3\rightskip \leftskip = \rightskip \parfillskip = 0pt } % I don't think this chapter style is supported any more, so I'm not % updating it with the new noderef stuff. We'll see. --karl, 11aug03. % \def\setchapterstyle #1 {\csname CHAPF#1\endcsname} % \def\unnchfopen #1{% \chapoddpage {\chapfonts \vbox{\hyphenpenalty=10000\tolerance=5000 \parindent=0pt\ptexraggedright \rmisbold #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 {\rmisbold #1}\hfill}}\bigskip \par\nobreak } \def\CHAPFopen{% \global\let\chapmacro=\chfopen \global\let\centerchapmacro=\centerchfopen} % Section titles. These macros combine the section number parts and % call the generic \sectionheading to do the printing. % \newskip\secheadingskip \def\secheadingbreak{\dobreak \secheadingskip{-1000}} % Subsection titles. \newskip\subsecheadingskip \def\subsecheadingbreak{\dobreak \subsecheadingskip{-500}} % Subsubsection titles. \def\subsubsecheadingskip{\subsecheadingskip} \def\subsubsecheadingbreak{\subsecheadingbreak} % Print any size, any type, section title. % % #1 is the text, #2 is the section level (sec/subsec/subsubsec), #3 is % the section type for xrefs (Ynumbered, Ynothing, Yappendix), #4 is the % section number. % \def\seckeyword{sec} % \def\sectionheading#1#2#3#4{% {% \checkenv{}% should not be in an environment. % % Switch to the right set of fonts. \csname #2fonts\endcsname \rmisbold % \def\sectionlevel{#2}% \def\temptype{#3}% % % Insert first mark before the heading break (see notes for \domark). \let\prevsectiondefs=\lastsectiondefs \ifx\temptype\Ynothingkeyword \ifx\sectionlevel\seckeyword \gdef\lastsectiondefs{\gdef\thissectionname{#1}\gdef\thissectionnum{}% \gdef\thissection{\thissectionname}}% \fi \else\ifx\temptype\Yomitfromtockeyword % Don't redefine \thissection. \else\ifx\temptype\Yappendixkeyword \ifx\sectionlevel\seckeyword \toks0={#1}% \xdef\lastsectiondefs{% \gdef\noexpand\thissectionname{\the\toks0}% \gdef\noexpand\thissectionnum{#4}% % \noexpand\putwordSection avoids expanding indigestible % commands in some of the translations. \gdef\noexpand\thissection{\noexpand\putwordSection{} \noexpand\thissectionnum: \noexpand\thissectionname}% }% \fi \else \ifx\sectionlevel\seckeyword \toks0={#1}% \xdef\lastsectiondefs{% \gdef\noexpand\thissectionname{\the\toks0}% \gdef\noexpand\thissectionnum{#4}% % \noexpand\putwordSection avoids expanding indigestible % commands in some of the translations. \gdef\noexpand\thissection{\noexpand\putwordSection{} \noexpand\thissectionnum: \noexpand\thissectionname}% }% \fi \fi\fi\fi % % Go into vertical mode. Usually we'll already be there, but we % don't want the following whatsit to end up in a preceding paragraph % if the document didn't happen to have a blank line. \par % % Output the mark. Pass it through \safewhatsit, to take care of % the preceding space. \safewhatsit\domark % % Insert space above the heading. \csname #2headingbreak\endcsname % % Now the second mark, after the heading break. No break points % between here and the heading. \let\prevsectiondefs=\lastsectiondefs \domark % % Only insert the space after the number if we have a section number. \ifx\temptype\Ynothingkeyword \setbox0 = \hbox{}% \def\toctype{unn}% \gdef\lastsection{#1}% \else\ifx\temptype\Yomitfromtockeyword % for @headings -- no section number, don't include in toc, % and don't redefine \lastsection. \setbox0 = \hbox{}% \def\toctype{omit}% \let\sectionlevel=\empty \else\ifx\temptype\Yappendixkeyword \setbox0 = \hbox{#4\enspace}% \def\toctype{app}% \gdef\lastsection{#1}% \else \setbox0 = \hbox{#4\enspace}% \def\toctype{num}% \gdef\lastsection{#1}% \fi\fi\fi % % Write the toc entry (before \donoderef). See comments in \chapmacro. \writetocentry{\toctype\sectionlevel}{#1}{#4}% % % Write the node reference (= pdf destination for pdftex). % Again, see comments in \chapmacro. \donoderef{#3}% % % Interline glue will be inserted when the vbox is completed. % That glue will be a valid breakpoint for the page, since it'll be % preceded by a whatsit (usually from the \donoderef, or from the % \writetocentry if there was no node). We don't want to allow that % break, since then the whatsits could end up on page n while the % section is on page n+1, thus toc/etc. are wrong. Debian bug 276000. \nobreak % % Output the actual section heading. \vbox{\hyphenpenalty=10000 \tolerance=5000 \parindent=0pt \ptexraggedright \hangindent=\wd0 % zero if no section number \unhbox0 #1}% }% % Add extra space after the heading -- half of whatever came above it. % Don't allow stretch, though. \kern .5 \csname #2headingskip\endcsname % % Do not let the kern be a potential breakpoint, as it would be if it % was followed by glue. \nobreak % % We'll almost certainly start a paragraph next, so don't let that % glue accumulate. (Not a breakpoint because it's preceded by a % discardable item.) However, when a paragraph is not started next % (\startdefun, \cartouche, \center, etc.), this needs to be wiped out % or the negative glue will cause weirdly wrong output, typically % obscuring the section heading with something else. \vskip-\parskip % % This is so the last item on the main vertical list is a known % \penalty > 10000, so \startdefun, etc., can recognize the situation % and do the needful. \penalty 10001 } \message{toc,} % Table of contents. \newwrite\tocfile % Write an entry to the toc file, opening it if necessary. % Called from @chapter, etc. % % Example usage: \writetocentry{sec}{Section Name}{\the\chapno.\the\secno} % We append the current node name (if any) and page number as additional % arguments for the \{chap,sec,...}entry macros which will eventually % read this. The node name is used in the pdf outlines as the % destination to jump to. % % We open the .toc file for writing here instead of at @setfilename (or % any other fixed time) so that @contents can be anywhere in the document. % But if #1 is `omit', then we don't do anything. This is used for the % table of contents chapter openings themselves. % \newif\iftocfileopened \def\omitkeyword{omit}% % \def\writetocentry#1#2#3{% \edef\writetoctype{#1}% \ifx\writetoctype\omitkeyword \else \iftocfileopened\else \immediate\openout\tocfile = \jobname.toc \global\tocfileopenedtrue \fi % \iflinks {\atdummies \edef\temp{% \write\tocfile{@#1entry{#2}{#3}{\lastnode}{\noexpand\folio}}}% \temp }% \fi \fi % % Tell \shipout to create a pdf destination on each page, if we're % writing pdf. These are used in the table of contents. We can't % just write one on every page because the title pages are numbered % 1 and 2 (the page numbers aren't printed), and so are the first % two pages of the document. Thus, we'd have two destinations named % `1', and two named `2'. \ifpdf \global\pdfmakepagedesttrue \fi } % These characters do not print properly in the Computer Modern roman % fonts, so we must take special care. This is more or less redundant % with the Texinfo input format setup at the end of this file. % \def\activecatcodes{% \catcode`\"=\active \catcode`\$=\active \catcode`\<=\active \catcode`\>=\active \catcode`\\=\active \catcode`\^=\active \catcode`\_=\active \catcode`\|=\active \catcode`\~=\active } % Read the toc file, which is essentially Texinfo input. \def\readtocfile{% \setupdatafile \activecatcodes \input \tocreadfilename } \newskip\contentsrightmargin \contentsrightmargin=1in \newcount\savepageno \newcount\lastnegativepageno \lastnegativepageno = -1 % 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. \chapmacro{#1}{Yomitfromtoc}{}% % \savepageno = \pageno \begingroup % Set up to handle contents files properly. \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 \global\pageno = \lastnegativepageno \fi } % redefined for the two-volume lispref. We always output on % \jobname.toc even if this is redefined. % \def\tocreadfilename{\jobname.toc} % Normal (long) toc. % \def\contents{% \startcontents{\putwordTOC}% \openin 1 \tocreadfilename\space \ifeof 1 \else \readtocfile \fi \vfill \eject \contentsalignmacro % in case @setchapternewpage odd is in effect \ifeof 1 \else \pdfmakeoutlines \fi \closein 1 \endgroup \lastnegativepageno = \pageno \global\pageno = \savepageno } % And just the chapters. \def\summarycontents{% \startcontents{\putwordShortTOC}% % \let\partentry = \shortpartentry \let\numchapentry = \shortchapentry \let\appentry = \shortchapentry \let\unnchapentry = \shortunnchapentry % We want a true roman here for the page numbers. \secfonts \let\rm=\shortcontrm \let\bf=\shortcontbf \let\sl=\shortcontsl \let\tt=\shortconttt \rm \hyphenpenalty = 10000 \advance\baselineskip by 1pt % Open it up a little. \def\numsecentry##1##2##3##4{} \let\appsecentry = \numsecentry \let\unnsecentry = \numsecentry \let\numsubsecentry = \numsecentry \let\appsubsecentry = \numsecentry \let\unnsubsecentry = \numsecentry \let\numsubsubsecentry = \numsecentry \let\appsubsubsecentry = \numsecentry \let\unnsubsubsecentry = \numsecentry \openin 1 \tocreadfilename\space \ifeof 1 \else \readtocfile \fi \closein 1 \vfill \eject \contentsalignmacro % in case @setchapternewpage odd is in effect \endgroup \lastnegativepageno = \pageno \global\pageno = \savepageno } \let\shortcontents = \summarycontents % Typeset the label for a chapter or appendix for the short contents. % The arg is, e.g., `A' for an appendix, or `3' for a chapter. % \def\shortchaplabel#1{% % This space should be enough, since a single number is .5em, and the % widest letter (M) is 1em, at least in the Computer Modern fonts. % But use \hss just in case. % (This space doesn't include the extra space that gets added after % the label; that gets put in by \shortchapentry above.) % % We'd like to right-justify chapter numbers, but that looks strange % with appendix letters. And right-justifying numbers and % left-justifying letters looks strange when there is less than 10 % chapters. Have to read the whole toc once to know how many chapters % there are before deciding ... \hbox to 1em{#1\hss}% } % 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, ... % Parts, in the main contents. Replace the part number, which doesn't % exist, with an empty box. Let's hope all the numbers have the same width. % Also ignore the page number, which is conventionally not printed. \def\numeralbox{\setbox0=\hbox{8}\hbox to \wd0{\hfil}} \def\partentry#1#2#3#4{\dochapentry{\numeralbox\labelspace#1}{}} % % Parts, in the short toc. \def\shortpartentry#1#2#3#4{% \penalty-300 \vskip.5\baselineskip plus.15\baselineskip minus.1\baselineskip \shortchapentry{{\bf #1}}{\numeralbox}{}{}% } % Chapters, in the main contents. \def\numchapentry#1#2#3#4{\dochapentry{#2\labelspace#1}{#4}} % % Chapters, in the short toc. % See comments in \dochapentry re vbox and related settings. \def\shortchapentry#1#2#3#4{% \tocentry{\shortchaplabel{#2}\labelspace #1}{\doshortpageno\bgroup#4\egroup}% } % Appendices, in the main contents. % Need the word Appendix, and a fixed-size box. % \def\appendixbox#1{% % We use M since it's probably the widest letter. \setbox0 = \hbox{\putwordAppendix{} M}% \hbox to \wd0{\putwordAppendix{} #1\hss}} % \def\appentry#1#2#3#4{\dochapentry{\appendixbox{#2}\labelspace#1}{#4}} % Unnumbered chapters. \def\unnchapentry#1#2#3#4{\dochapentry{#1}{#4}} \def\shortunnchapentry#1#2#3#4{\tocentry{#1}{\doshortpageno\bgroup#4\egroup}} % Sections. \def\numsecentry#1#2#3#4{\dosecentry{#2\labelspace#1}{#4}} \let\appsecentry=\numsecentry \def\unnsecentry#1#2#3#4{\dosecentry{#1}{#4}} % Subsections. \def\numsubsecentry#1#2#3#4{\dosubsecentry{#2\labelspace#1}{#4}} \let\appsubsecentry=\numsubsecentry \def\unnsubsecentry#1#2#3#4{\dosubsecentry{#1}{#4}} % And subsubsections. \def\numsubsubsecentry#1#2#3#4{\dosubsubsecentry{#2\labelspace#1}{#4}} \let\appsubsubsecentry=\numsubsubsecentry \def\unnsubsubsecentry#1#2#3#4{\dosubsubsecentry{#1}{#4}} % This parameter controls the indentation of the various levels. % Same as \defaultparindent. \newdimen\tocindent \tocindent = 15pt % 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} % We use the same \entry macro as for the index entries. \let\tocentry = \entry % 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} \def\subsecentryfonts{\textfonts} \def\subsubsecentryfonts{\textfonts} \message{environments,} % @foo ... @end foo. % @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 @ character. \envdef\tex{% \setupmarkupstyle{tex}% \catcode `\\=0 \catcode `\{=1 \catcode `\}=2 \catcode `\$=3 \catcode `\&=4 \catcode `\#=6 \catcode `\^=7 \catcode `\_=8 \catcode `\~=\active \let~=\tie \catcode `\%=14 \catcode `\+=\other \catcode `\"=\other \catcode `\|=\other \catcode `\<=\other \catcode `\>=\other \catcode`\`=\other \catcode`\'=\other \escapechar=`\\ % % ' is active in math mode (mathcode"8000). So reset it, and all our % other math active characters (just in case), to plain's definitions. \mathactive % \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\indent=\ptexindent \let\noindent=\ptexnoindent \let\{=\ptexlbrace \let\+=\tabalign \let\}=\ptexrbrace \let\/=\ptexslash \let\*=\ptexstar \let\t=\ptext \expandafter \let\csname top\endcsname=\ptextop % outer \let\frenchspacing=\plainfrenchspacing % \def\endldots{\mathinner{\ldots\ldots\ldots\ldots}}% \def\enddots{\relax\ifmmode\endldots\else$\mathsurround=0pt \endldots\,$\fi}% \def\@{@}% } % There is no need to define \Etex. % Define @lisp ... @end lisp. % @lisp environment forms a group so it can rebind things, % including the definition of @end lisp (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} % 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{{% % =10000 instead of <10000 because of a special case in \itemzzz and % \sectionheading, q.v. \ifnum \lastpenalty=10000 \else \advance\envskipamount by \parskip \endgraf \ifdim\lastskip<\envskipamount \removelastskip % it's not a good place to break if the last penalty was \nobreak % or better ... \ifnum\lastpenalty<10000 \penalty-50 \fi \vskip\envskipamount \fi \fi }} \let\afterenvbreak = \aboveenvbreak % \nonarrowing is a flag. If "set", @lisp etc don't narrow margins; it will % also clear it, so that its embedded environments do the narrowing again. \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 \envdef\cartouche{% \ifhmode\par\fi % can't be in the midst of a paragraph. \startsavinginserts \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 = t% % % If this cartouche directly follows a sectioning command, we need the % \parskip glue (backspaced over by default) or the cartouche can % collide with the section heading. \ifnum\lastpenalty>10000 \vskip\parskip \penalty\lastpenalty \fi % \vbox\bgroup \baselineskip=0pt\parskip=0pt\lineskip=0pt \carttop \hbox\bgroup \hskip\lskip \vrule\kern3pt \vbox\bgroup \kern3pt \hsize=\cartinner \baselineskip=\normbskip \lineskip=\normlskip \parskip=\normpskip \vskip -\parskip \comment % For explanation, see the end of def\group. } \def\Ecartouche{% \ifhmode\par\fi \kern3pt \egroup \kern3pt\vrule \hskip\rskip \egroup \cartbot \egroup \checkinserts } % This macro is called at the beginning of all the @example variants, % inside a group. \newdimen\nonfillparindent \def\nonfillstart{% \aboveenvbreak \hfuzz = 12pt % Don't be fussy \sepspaces % Make spaces be word-separators rather than space tokens. \let\par = \lisppar % don't ignore blank lines \obeylines % each line of input is a line of output \parskip = 0pt % Turn off paragraph indentation but redefine \indent to emulate % the normal \indent. \nonfillparindent=\parindent \parindent = 0pt \let\indent\nonfillindent % \emergencystretch = 0pt % don't try to avoid overfull boxes \ifx\nonarrowing\relax \advance \leftskip by \lispnarrowing \exdentamount=\lispnarrowing \else \let\nonarrowing = \relax \fi \let\exdent=\nofillexdent } \begingroup \obeyspaces % We want to swallow spaces (but not other tokens) after the fake % @indent in our nonfill-environments, where spaces are normally % active and set to @tie, resulting in them not being ignored after % @indent. \gdef\nonfillindent{\futurelet\temp\nonfillindentcheck}% \gdef\nonfillindentcheck{% \ifx\temp % \expandafter\nonfillindentgobble% \else% \leavevmode\nonfillindentbox% \fi% }% \endgroup \def\nonfillindentgobble#1{\nonfillindent} \def\nonfillindentbox{\hbox to \nonfillparindent{\hss}} % If you want all examples etc. small: @set dispenvsize small. % If you want even small examples the full size: @set dispenvsize nosmall. % This affects the following displayed environments: % @example, @display, @format, @lisp % \def\smallword{small} \def\nosmallword{nosmall} \let\SETdispenvsize\relax \def\setnormaldispenv{% \ifx\SETdispenvsize\smallword % end paragraph for sake of leading, in case document has no blank % line. This is redundant with what happens in \aboveenvbreak, but % we need to do it before changing the fonts, and it's inconvenient % to change the fonts afterward. \ifnum \lastpenalty=10000 \else \endgraf \fi \smallexamplefonts \rm \fi } \def\setsmalldispenv{% \ifx\SETdispenvsize\nosmallword \else \ifnum \lastpenalty=10000 \else \endgraf \fi \smallexamplefonts \rm \fi } % We often define two environments, @foo and @smallfoo. % Let's do it in one command. #1 is the env name, #2 the definition. \def\makedispenvdef#1#2{% \expandafter\envdef\csname#1\endcsname {\setnormaldispenv #2}% \expandafter\envdef\csname small#1\endcsname {\setsmalldispenv #2}% \expandafter\let\csname E#1\endcsname \afterenvbreak \expandafter\let\csname Esmall#1\endcsname \afterenvbreak } % Define two environment synonyms (#1 and #2) for an environment. \def\maketwodispenvdef#1#2#3{% \makedispenvdef{#1}{#3}% \makedispenvdef{#2}{#3}% } % % @lisp: indented, narrowed, typewriter font; % @example: same as @lisp. % % @smallexample and @smalllisp: use smaller fonts. % Originally contributed by Pavel@xerox. % \maketwodispenvdef{lisp}{example}{% \nonfillstart \tt\setupmarkupstyle{example}% \let\kbdfont = \kbdexamplefont % Allow @kbd to do something special. \gobble % eat return } % @display/@smalldisplay: same as @lisp except keep current font. % \makedispenvdef{display}{% \nonfillstart \gobble } % @format/@smallformat: same as @display except don't narrow margins. % \makedispenvdef{format}{% \let\nonarrowing = t% \nonfillstart \gobble } % @flushleft: same as @format, but doesn't obey \SETdispenvsize. \envdef\flushleft{% \let\nonarrowing = t% \nonfillstart \gobble } \let\Eflushleft = \afterenvbreak % @flushright. % \envdef\flushright{% \let\nonarrowing = t% \nonfillstart \advance\leftskip by 0pt plus 1fill\relax \gobble } \let\Eflushright = \afterenvbreak % @raggedright does more-or-less normal line breaking but no right % justification. From plain.tex. \envdef\raggedright{% \rightskip0pt plus2em \spaceskip.3333em \xspaceskip.5em\relax } \let\Eraggedright\par \envdef\raggedleft{% \parindent=0pt \leftskip0pt plus2em \spaceskip.3333em \xspaceskip.5em \parfillskip=0pt \hbadness=10000 % Last line will usually be underfull, so turn off % badness reporting. } \let\Eraggedleft\par \envdef\raggedcenter{% \parindent=0pt \rightskip0pt plus1em \leftskip0pt plus1em \spaceskip.3333em \xspaceskip.5em \parfillskip=0pt \hbadness=10000 % Last line will usually be underfull, so turn off % badness reporting. } \let\Eraggedcenter\par % @quotation does normal linebreaking (hence we can't use \nonfillstart) % and narrows the margins. We keep \parskip nonzero in general, since % we're doing normal filling. So, when using \aboveenvbreak and % \afterenvbreak, temporarily make \parskip 0. % \makedispenvdef{quotation}{\quotationstart} % \def\quotationstart{% {\parskip=0pt \aboveenvbreak}% because \aboveenvbreak inserts \parskip \parindent=0pt % % @cartouche defines \nonarrowing to inhibit narrowing at next level down. \ifx\nonarrowing\relax \advance\leftskip by \lispnarrowing \advance\rightskip by \lispnarrowing \exdentamount = \lispnarrowing \else \let\nonarrowing = \relax \fi \parsearg\quotationlabel } % We have retained a nonzero parskip for the environment, since we're % doing normal filling. % \def\Equotation{% \par \ifx\quotationauthor\thisisundefined\else % indent a bit. \leftline{\kern 2\leftskip \sl ---\quotationauthor}% \fi {\parskip=0pt \afterenvbreak}% } \def\Esmallquotation{\Equotation} % If we're given an argument, typeset it in bold with a colon after. \def\quotationlabel#1{% \def\temp{#1}% \ifx\temp\empty \else {\bf #1: }% \fi } % LaTeX-like @verbatim...@end verbatim and @verb{...} % If we want to allow any as delimiter, % we need the curly braces so that makeinfo sees the @verb command, eg: % `@verbx...x' would look like the '@verbx' command. --janneke@gnu.org % % [Knuth]: Donald Ervin Knuth, 1996. The TeXbook. % % [Knuth] p.344; only we need to do the other characters Texinfo sets % active too. Otherwise, they get lost as the first character on a % verbatim line. \def\dospecials{% \do\ \do\\\do\{\do\}\do\$\do\&% \do\#\do\^\do\^^K\do\_\do\^^A\do\%\do\~% \do\<\do\>\do\|\do\@\do+\do\"% % Don't do the quotes -- if we do, @set txicodequoteundirected and % @set txicodequotebacktick will not have effect on @verb and % @verbatim, and ?` and !` ligatures won't get disabled. %\do\`\do\'% } % % [Knuth] p. 380 \def\uncatcodespecials{% \def\do##1{\catcode`##1=\other}\dospecials} % % Setup for the @verb command. % % Eight spaces for a tab \begingroup \catcode`\^^I=\active \gdef\tabeightspaces{\catcode`\^^I=\active\def^^I{\ \ \ \ \ \ \ \ }} \endgroup % \def\setupverb{% \tt % easiest (and conventionally used) font for verbatim \def\par{\leavevmode\endgraf}% \setupmarkupstyle{verb}% \tabeightspaces % Respect line breaks, % print special symbols as themselves, and % make each space count % must do in this order: \obeylines \uncatcodespecials \sepspaces } % Setup for the @verbatim environment % % Real tab expansion. \newdimen\tabw \setbox0=\hbox{\tt\space} \tabw=8\wd0 % tab amount % % We typeset each line of the verbatim in an \hbox, so we can handle % tabs. The \global is in case the verbatim line starts with an accent, % or some other command that starts with a begin-group. Otherwise, the % entire \verbbox would disappear at the corresponding end-group, before % it is typeset. Meanwhile, we can't have nested verbatim commands % (can we?), so the \global won't be overwriting itself. \newbox\verbbox \def\starttabbox{\global\setbox\verbbox=\hbox\bgroup} % \begingroup \catcode`\^^I=\active \gdef\tabexpand{% \catcode`\^^I=\active \def^^I{\leavevmode\egroup \dimen\verbbox=\wd\verbbox % the width so far, or since the previous tab \divide\dimen\verbbox by\tabw \multiply\dimen\verbbox by\tabw % compute previous multiple of \tabw \advance\dimen\verbbox by\tabw % advance to next multiple of \tabw \wd\verbbox=\dimen\verbbox \box\verbbox \starttabbox }% } \endgroup % start the verbatim environment. \def\setupverbatim{% \let\nonarrowing = t% \nonfillstart \tt % easiest (and conventionally used) font for verbatim % The \leavevmode here is for blank lines. Otherwise, we would % never \starttabox and the \egroup would end verbatim mode. \def\par{\leavevmode\egroup\box\verbbox\endgraf}% \tabexpand \setupmarkupstyle{verbatim}% % Respect line breaks, % print special symbols as themselves, and % make each space count. % Must do in this order: \obeylines \uncatcodespecials \sepspaces \everypar{\starttabbox}% } % Do the @verb magic: verbatim text is quoted by unique % delimiter characters. Before first delimiter expect a % right brace, after last delimiter expect closing brace: % % \def\doverb'{'#1'}'{#1} % % [Knuth] p. 382; only eat outer {} \begingroup \catcode`[=1\catcode`]=2\catcode`\{=\other\catcode`\}=\other \gdef\doverb{#1[\def\next##1#1}[##1\endgroup]\next] \endgroup % \def\verb{\begingroup\setupverb\doverb} % % % Do the @verbatim magic: define the macro \doverbatim so that % the (first) argument ends when '@end verbatim' is reached, ie: % % \def\doverbatim#1@end verbatim{#1} % % For Texinfo it's a lot easier than for LaTeX, % because texinfo's \verbatim doesn't stop at '\end{verbatim}': % we need not redefine '\', '{' and '}'. % % Inspired by LaTeX's verbatim command set [latex.ltx] % \begingroup \catcode`\ =\active \obeylines % % ignore everything up to the first ^^M, that's the newline at the end % of the @verbatim input line itself. Otherwise we get an extra blank % line in the output. \xdef\doverbatim#1^^M#2@end verbatim{#2\noexpand\end\gobble verbatim}% % We really want {...\end verbatim} in the body of the macro, but % without the active space; thus we have to use \xdef and \gobble. \endgroup % \envdef\verbatim{% \setupverbatim\doverbatim } \let\Everbatim = \afterenvbreak % @verbatiminclude FILE - insert text of file in verbatim environment. % \def\verbatiminclude{\parseargusing\filenamecatcodes\doverbatiminclude} % \def\doverbatiminclude#1{% {% \makevalueexpandable \setupverbatim \indexnofonts % Allow `@@' and other weird things in file names. \wlog{texinfo.tex: doing @verbatiminclude of #1^^J}% \input #1 \afterenvbreak }% } % @copying ... @end copying. % Save the text away for @insertcopying later. % % We save the uninterpreted tokens, rather than creating a box. % Saving the text in a box would be much easier, but then all the % typesetting commands (@smallbook, font changes, etc.) have to be done % beforehand -- and a) we want @copying to be done first in the source % file; b) letting users define the frontmatter in as flexible order as % possible is very desirable. % \def\copying{\checkenv{}\begingroup\scanargctxt\docopying} \def\docopying#1@end copying{\endgroup\def\copyingtext{#1}} % \def\insertcopying{% \begingroup \parindent = 0pt % paragraph indentation looks wrong on title page \scanexp\copyingtext \endgroup } \message{defuns,} % @defun etc. \newskip\defbodyindent \defbodyindent=.4in \newskip\defargsindent \defargsindent=50pt \newskip\deflastargmargin \deflastargmargin=18pt \newcount\defunpenalty % Start the processing of @deffn: \def\startdefun{% \ifnum\lastpenalty<10000 \medbreak \defunpenalty=10003 % Will keep this @deffn together with the % following @def command, see below. \else % If there are two @def commands in a row, we'll have a \nobreak, % which is there to keep the function description together with its % header. But if there's nothing but headers, we need to allow a % break somewhere. Check specifically for penalty 10002, inserted % by \printdefunline, instead of 10000, since the sectioning % commands also insert a nobreak penalty, and we don't want to allow % a break between a section heading and a defun. % % As a further refinement, we avoid "club" headers by signalling % with penalty of 10003 after the very first @deffn in the % sequence (see above), and penalty of 10002 after any following % @def command. \ifnum\lastpenalty=10002 \penalty2000 \else \defunpenalty=10002 \fi % % Similarly, after a section heading, do not allow a break. % But do insert the glue. \medskip % preceded by discardable penalty, so not a breakpoint \fi % \parindent=0in \advance\leftskip by \defbodyindent \exdentamount=\defbodyindent } \def\dodefunx#1{% % First, check whether we are in the right environment: \checkenv#1% % % As above, allow line break if we have multiple x headers in a row. % It's not a great place, though. \ifnum\lastpenalty=10002 \penalty3000 \else \defunpenalty=10002 \fi % % And now, it's time to reuse the body of the original defun: \expandafter\gobbledefun#1% } \def\gobbledefun#1\startdefun{} % \printdefunline \deffnheader{text} % \def\printdefunline#1#2{% \begingroup % call \deffnheader: #1#2 \endheader % common ending: \interlinepenalty = 10000 \advance\rightskip by 0pt plus 1fil\relax \endgraf \nobreak\vskip -\parskip \penalty\defunpenalty % signal to \startdefun and \dodefunx % Some of the @defun-type tags do not enable magic parentheses, % rendering the following check redundant. But we don't optimize. \checkparencounts \endgroup } \def\Edefun{\endgraf\medbreak} % \makedefun{deffn} creates \deffn, \deffnx and \Edeffn; % the only thing remaining is to define \deffnheader. % \def\makedefun#1{% \expandafter\let\csname E#1\endcsname = \Edefun \edef\temp{\noexpand\domakedefun \makecsname{#1}\makecsname{#1x}\makecsname{#1header}}% \temp } % \domakedefun \deffn \deffnx \deffnheader % % Define \deffn and \deffnx, without parameters. % \deffnheader has to be defined explicitly. % \def\domakedefun#1#2#3{% \envdef#1{% \startdefun \doingtypefnfalse % distinguish typed functions from all else \parseargusing\activeparens{\printdefunline#3}% }% \def#2{\dodefunx#1}% \def#3% } \newif\ifdoingtypefn % doing typed function? \newif\ifrettypeownline % typeset return type on its own line? % @deftypefnnewline on|off says whether the return type of typed functions % are printed on their own line. This affects @deftypefn, @deftypefun, % @deftypeop, and @deftypemethod. % \parseargdef\deftypefnnewline{% \def\temp{#1}% \ifx\temp\onword \expandafter\let\csname SETtxideftypefnnl\endcsname = \empty \else\ifx\temp\offword \expandafter\let\csname SETtxideftypefnnl\endcsname = \relax \else \errhelp = \EMsimple \errmessage{Unknown @txideftypefnnl value `\temp', must be on|off}% \fi\fi } % Untyped functions: % @deffn category name args \makedefun{deffn}{\deffngeneral{}} % @deffn category class name args \makedefun{defop}#1 {\defopon{#1\ \putwordon}} % \defopon {category on}class name args \def\defopon#1#2 {\deffngeneral{\putwordon\ \code{#2}}{#1\ \code{#2}} } % \deffngeneral {subind}category name args % \def\deffngeneral#1#2 #3 #4\endheader{% % Remember that \dosubind{fn}{foo}{} is equivalent to \doind{fn}{foo}. \dosubind{fn}{\code{#3}}{#1}% \defname{#2}{}{#3}\magicamp\defunargs{#4\unskip}% } % Typed functions: % @deftypefn category type name args \makedefun{deftypefn}{\deftypefngeneral{}} % @deftypeop category class type name args \makedefun{deftypeop}#1 {\deftypeopon{#1\ \putwordon}} % \deftypeopon {category on}class type name args \def\deftypeopon#1#2 {\deftypefngeneral{\putwordon\ \code{#2}}{#1\ \code{#2}} } % \deftypefngeneral {subind}category type name args % \def\deftypefngeneral#1#2 #3 #4 #5\endheader{% \dosubind{fn}{\code{#4}}{#1}% \doingtypefntrue \defname{#2}{#3}{#4}\defunargs{#5\unskip}% } % Typed variables: % @deftypevr category type var args \makedefun{deftypevr}{\deftypecvgeneral{}} % @deftypecv category class type var args \makedefun{deftypecv}#1 {\deftypecvof{#1\ \putwordof}} % \deftypecvof {category of}class type var args \def\deftypecvof#1#2 {\deftypecvgeneral{\putwordof\ \code{#2}}{#1\ \code{#2}} } % \deftypecvgeneral {subind}category type var args % \def\deftypecvgeneral#1#2 #3 #4 #5\endheader{% \dosubind{vr}{\code{#4}}{#1}% \defname{#2}{#3}{#4}\defunargs{#5\unskip}% } % Untyped variables: % @defvr category var args \makedefun{defvr}#1 {\deftypevrheader{#1} {} } % @defcv category class var args \makedefun{defcv}#1 {\defcvof{#1\ \putwordof}} % \defcvof {category of}class var args \def\defcvof#1#2 {\deftypecvof{#1}#2 {} } % Types: % @deftp category name args \makedefun{deftp}#1 #2 #3\endheader{% \doind{tp}{\code{#2}}% \defname{#1}{}{#2}\defunargs{#3\unskip}% } % Remaining @defun-like shortcuts: \makedefun{defun}{\deffnheader{\putwordDeffunc} } \makedefun{defmac}{\deffnheader{\putwordDefmac} } \makedefun{defspec}{\deffnheader{\putwordDefspec} } \makedefun{deftypefun}{\deftypefnheader{\putwordDeffunc} } \makedefun{defvar}{\defvrheader{\putwordDefvar} } \makedefun{defopt}{\defvrheader{\putwordDefopt} } \makedefun{deftypevar}{\deftypevrheader{\putwordDefvar} } \makedefun{defmethod}{\defopon\putwordMethodon} \makedefun{deftypemethod}{\deftypeopon\putwordMethodon} \makedefun{defivar}{\defcvof\putwordInstanceVariableof} \makedefun{deftypeivar}{\deftypecvof\putwordInstanceVariableof} % \defname, which formats the name of the @def (not the args). % #1 is the category, such as "Function". % #2 is the return type, if any. % #3 is the function name. % % We are followed by (but not passed) the arguments, if any. % \def\defname#1#2#3{% \par % Get the values of \leftskip and \rightskip as they were outside the @def... \advance\leftskip by -\defbodyindent % % Determine if we are typesetting the return type of a typed function % on a line by itself. \rettypeownlinefalse \ifdoingtypefn % doing a typed function specifically? % then check user option for putting return type on its own line: \expandafter\ifx\csname SETtxideftypefnnl\endcsname\relax \else \rettypeownlinetrue \fi \fi % % How we'll format the category name. Putting it in brackets helps % distinguish it from the body text that may end up on the next line % just below it. \def\temp{#1}% \setbox0=\hbox{\kern\deflastargmargin \ifx\temp\empty\else [\rm\temp]\fi} % % Figure out line sizes for the paragraph shape. We'll always have at % least two. \tempnum = 2 % % The first line needs space for \box0; but if \rightskip is nonzero, % we need only space for the part of \box0 which exceeds it: \dimen0=\hsize \advance\dimen0 by -\wd0 \advance\dimen0 by \rightskip % % If doing a return type on its own line, we'll have another line. \ifrettypeownline \advance\tempnum by 1 \def\maybeshapeline{0in \hsize}% \else \def\maybeshapeline{}% \fi % % The continuations: \dimen2=\hsize \advance\dimen2 by -\defargsindent % % The final paragraph shape: \parshape \tempnum 0in \dimen0 \maybeshapeline \defargsindent \dimen2 % % Put the category name at the right margin. \noindent \hbox to 0pt{% \hfil\box0 \kern-\hsize % \hsize has to be shortened this way: \kern\leftskip % Intentionally do not respect \rightskip, since we need the space. }% % % Allow all lines to be underfull without complaint: \tolerance=10000 \hbadness=10000 \exdentamount=\defbodyindent {% % defun fonts. We use typewriter by default (used to be bold) because: % . we're printing identifiers, they should be in tt in principle. % . in languages with many accents, such as Czech or French, it's % common to leave accents off identifiers. The result looks ok in % tt, but exceedingly strange in rm. % . we don't want -- and --- to be treated as ligatures. % . this still does not fix the ?` and !` ligatures, but so far no % one has made identifiers using them :). \df \tt \def\temp{#2}% text of the return type \ifx\temp\empty\else \tclose{\temp}% typeset the return type \ifrettypeownline % put return type on its own line; prohibit line break following: \hfil\vadjust{\nobreak}\break \else \space % type on same line, so just followed by a space \fi \fi % no return type #3% output function name }% {\rm\enskip}% hskip 0.5 em of \tenrm % \boldbrax % arguments will be output next, if any. } % Print arguments in slanted roman (not ttsl), inconsistently with using % tt for the name. This is because literal text is sometimes needed in % the argument list (groff manual), and ttsl and tt are not very % distinguishable. Prevent hyphenation at `-' chars. % \def\defunargs#1{% % use sl by default (not ttsl), % tt for the names. \df \sl \hyphenchar\font=0 % % On the other hand, if an argument has two dashes (for instance), we % want a way to get ttsl. Let's try @var for that. \def\var##1{{\setupmarkupstyle{var}\ttslanted{##1}}}% #1% \sl\hyphenchar\font=45 } % We want ()&[] to print specially on the defun line. % \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 = ) % 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. { \activeparens \global\let(=\lparen \global\let)=\rparen \global\let[=\lbrack \global\let]=\rbrack \global\let& = \& \gdef\boldbrax{\let(=\opnr\let)=\clnr\let[=\lbrb\let]=\rbrb} \gdef\magicamp{\let&=\amprm} } \newcount\parencount % If we encounter &foo, then turn on ()-hacking afterwards \newif\ifampseen \def\amprm#1 {\ampseentrue{\bf\ }} \def\parenfont{% \ifampseen % At the first level, print parens in roman, % otherwise use the default font. \ifnum \parencount=1 \rm \fi \else % The \sf parens (in \boldbrax) actually are a little bolder than % the contained text. This is especially needed for [ and ] . \sf \fi } \def\infirstlevel#1{% \ifampseen \ifnum\parencount=1 #1% \fi \fi } \def\bfafterword#1 {#1 \bf} \def\opnr{% \global\advance\parencount by 1 {\parenfont(}% \infirstlevel \bfafterword } \def\clnr{% {\parenfont)}% \infirstlevel \sl \global\advance\parencount by -1 } \newcount\brackcount \def\lbrb{% \global\advance\brackcount by 1 {\bf[}% } \def\rbrb{% {\bf]}% \global\advance\brackcount by -1 } \def\checkparencounts{% \ifnum\parencount=0 \else \badparencount \fi \ifnum\brackcount=0 \else \badbrackcount \fi } % these should not use \errmessage; the glibc manual, at least, actually % has such constructs (when documenting function pointers). \def\badparencount{% \message{Warning: unbalanced parentheses in @def...}% \global\parencount=0 } \def\badbrackcount{% \message{Warning: unbalanced square brackets in @def...}% \global\brackcount=0 } \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\thisisundefined \newwrite\macscribble \def\scantokens#1{% \toks0={#1}% \immediate\openout\macscribble=\jobname.tmp \immediate\write\macscribble{\the\toks0}% \immediate\closeout\macscribble \input \jobname.tmp } \fi \def\scanmacro#1{\begingroup \newlinechar`\^^M \let\xeatspaces\eatspaces % % Undo catcode changes of \startcontents and \doprintindex % When called from @insertcopying or (short)caption, we need active % backslash to get it printed correctly. Previously, we had % \catcode`\\=\other instead. We'll see whether a problem appears % with macro expansion. --kasal, 19aug04 \catcode`\@=0 \catcode`\\=\active \escapechar=`\@ % % ... and for \example: \spaceisspace % % The \empty here causes a following catcode 5 newline to be eaten as % part of reading whitespace after a control sequence. It does not % eat a catcode 13 newline. There's no good way to handle the two % cases (untried: maybe e-TeX's \everyeof could help, though plain TeX % would then have different behavior). See the Macro Details node in % the manual for the workaround we recommend for macros and % line-oriented commands. % \scantokens{#1\empty}% \endgroup} \def\scanexp#1{% \edef\temp{\noexpand\scanmacro{#1}}% \temp } \newcount\paramno % Count of parameters \newtoks\macname % Macro name \newif\ifrecursive % Is it recursive? % List of all defined macros in the form % \definedummyword\macro1\definedummyword\macro2... % Currently is also contains all @aliases; the list can be split % if there is a need. \def\macrolist{} % Add the macro to \macrolist \def\addtomacrolist#1{\expandafter \addtomacrolistxxx \csname#1\endcsname} \def\addtomacrolistxxx#1{% \toks0 = \expandafter{\macrolist\definedummyword#1}% \xdef\macrolist{\the\toks0}% } % Utility routines. % This does \let #1 = #2, with \csnames; that is, % \let \csname#1\endcsname = \csname#2\endcsname % (except of course we have to play expansion games). % \def\cslet#1#2{% \expandafter\let \csname#1\expandafter\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=\other \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 \ % to recognize macro arguments; this is the job of \mbodybackslash. % % Non-ASCII encodings make 8-bit characters active, so un-activate % them to avoid their expansion. Must do this non-globally, to % confine the change to the current group. % % 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\scanctxt{% used as subroutine \catcode`\"=\other \catcode`\+=\other \catcode`\<=\other \catcode`\>=\other \catcode`\@=\other \catcode`\^=\other \catcode`\_=\other \catcode`\|=\other \catcode`\~=\other \ifx\declaredencoding\ascii \else \setnonasciicharscatcodenonglobal\other \fi } \def\scanargctxt{% used for copying and captions, not macros. \scanctxt \catcode`\\=\other \catcode`\^^M=\other } \def\macrobodyctxt{% used for @macro definitions \scanctxt \catcode`\{=\other \catcode`\}=\other \catcode`\^^M=\other \usembodybackslash } \def\macroargctxt{% used when scanning invocations \scanctxt \catcode`\\=0 } % why catcode 0 for \ in the above? To recognize \\ \{ \} as "escapes" % for the single characters \ { }. Thus, we end up with the "commands" % that would be written @\ @{ @} in a Texinfo document. % % We already have @{ and @}. For @\, we define it here, and only for % this purpose, to produce a typewriter backslash (so, the @\ that we % define for @math can't be used with @macro calls): % \def\\{\normalbackslash}% % % We would like to do this for \, too, since that is what makeinfo does. % But it is not possible, because Texinfo already has a command @, for a % cedilla accent. Documents must use @comma{} instead. % % \anythingelse will almost certainly be an error of some kind. % \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\margbackslash#1{\char`\#1 } \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\relax \else \expandafter\parsemargdef \argl;% \if\paramno>256\relax \ifx\eTeXversion\thisisundefined \errhelp = \EMsimple \errmessage{You need eTeX to compile a file with macros with more than 256 arguments} \fi \fi \fi \if1\csname ismacro.\the\macname\endcsname \message{Warning: redefining \the\macname}% \else \expandafter\ifx\csname \the\macname\endcsname \relax \else \errmessage{Macro name \the\macname\space already defined}\fi \global\cslet{macsave.\the\macname}{\the\macname}% \global\expandafter\let\csname ismacro.\the\macname\endcsname=1% \addtomacrolist{\the\macname}% \fi \begingroup \macrobodyctxt \ifrecursive \expandafter\parsermacbody \else \expandafter\parsemacbody \fi} \parseargdef\unmacro{% \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 \expandafter\let\csname#1\endcsname \relax \let\definedummyword\unmacrodo \xdef\macrolist{\macrolist}% \endgroup \else \errmessage{Macro #1 not defined}% \fi } % Called by \do from \dounmacro on each macro. The idea is to omit any % macro definitions that have been changed to \relax. % \def\unmacrodo#1{% \ifx #1\relax % remove this \else \noexpand\definedummyword \noexpand#1% \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}} % For macro processing make @ a letter so that we can make Texinfo private macro names. \edef\texiatcatcode{\the\catcode`\@} \catcode `@=11\relax % 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 some hook where the argument si to be expanded. If % there are less than 10 arguments that hook is to be replaced by ##N where N % is the position in that list, that is to say the macro arguments are to be % defined `a la TeX in the macro body. % % 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. % % If there are 10 or more arguments, a different technique is used, where the % hook remains in the body, and when macro is to be expanded the body is % processed again to replace the arguments. % % In that case, the hook is \the\toks N-1, and we simply set \toks N-1 to the % argument N value and then \edef the body (nothing else will expand because of % the catcode regime underwhich the body was input). % % If you compile with TeX (not eTeX), and you have macros with 10 or more % arguments, you need that no macro has more than 256 arguments, otherwise an % error is produced. \def\parsemargdef#1;{% \paramno=0\def\paramlist{}% \let\hash\relax \let\xeatspaces\relax \parsemargdefxxx#1,;,% % In case that there are 10 or more arguments we parse again the arguments % list to set new definitions for the \macarg.BLAH macros corresponding to % each BLAH argument. It was anyhow needed to parse already once this list % in order to count the arguments, and as macros with at most 9 arguments % are by far more frequent than macro with 10 or more arguments, defining % twice the \macarg.BLAH macros does not cost too much processing power. \ifnum\paramno<10\relax\else \paramno0\relax \parsemmanyargdef@@#1,;,% 10 or more arguments \fi } \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} \def\parsemmanyargdef@@#1,{% \if#1;\let\next=\relax \else \let\next=\parsemmanyargdef@@ \edef\tempb{\eatspaces{#1}}% \expandafter\def\expandafter\tempa \expandafter{\csname macarg.\tempb\endcsname}% % Note that we need some extra \noexpand\noexpand, this is because we % don't want \the to be expanded in the \parsermacbody as it uses an % \xdef . \expandafter\edef\tempa {\noexpand\noexpand\noexpand\the\toks\the\paramno}% \advance\paramno by 1\relax \fi\next} % These two commands read recursive and nonrecursive macro bodies. % (They're different since rec and nonrec macros end differently.) % \catcode `\@\texiatcatcode \long\def\parsemacbody#1@end macro% {\xdef\temp{\eatcr{#1}}\endgroup\defmacro}% \long\def\parsermacbody#1@end rmacro% {\xdef\temp{\eatcr{#1}}\endgroup\defmacro}% \catcode `\@=11\relax \let\endargs@\relax \let\nil@\relax \def\nilm@{\nil@}% \long\def\nillm@{\nil@}% % This macro is expanded during the Texinfo macro expansion, not during its % definition. It gets all the arguments values and assigns them to macros % macarg.ARGNAME % % #1 is the macro name % #2 is the list of argument names % #3 is the list of argument values \def\getargvals@#1#2#3{% \def\macargdeflist@{}% \def\saveparamlist@{#2}% Need to keep a copy for parameter expansion. \def\paramlist{#2,\nil@}% \def\macroname{#1}% \begingroup \macroargctxt \def\argvaluelist{#3,\nil@}% \def\@tempa{#3}% \ifx\@tempa\empty \setemptyargvalues@ \else \getargvals@@ \fi } % \def\getargvals@@{% \ifx\paramlist\nilm@ % Some sanity check needed here that \argvaluelist is also empty. \ifx\argvaluelist\nillm@ \else \errhelp = \EMsimple \errmessage{Too many arguments in macro `\macroname'!}% \fi \let\next\macargexpandinbody@ \else \ifx\argvaluelist\nillm@ % No more arguments values passed to macro. Set remaining named-arg % macros to empty. \let\next\setemptyargvalues@ \else % pop current arg name into \@tempb \def\@tempa##1{\pop@{\@tempb}{\paramlist}##1\endargs@}% \expandafter\@tempa\expandafter{\paramlist}% % pop current argument value into \@tempc \def\@tempa##1{\longpop@{\@tempc}{\argvaluelist}##1\endargs@}% \expandafter\@tempa\expandafter{\argvaluelist}% % Here \@tempb is the current arg name and \@tempc is the current arg value. % First place the new argument macro definition into \@tempd \expandafter\macname\expandafter{\@tempc}% \expandafter\let\csname macarg.\@tempb\endcsname\relax \expandafter\def\expandafter\@tempe\expandafter{% \csname macarg.\@tempb\endcsname}% \edef\@tempd{\long\def\@tempe{\the\macname}}% \push@\@tempd\macargdeflist@ \let\next\getargvals@@ \fi \fi \next } \def\push@#1#2{% \expandafter\expandafter\expandafter\def \expandafter\expandafter\expandafter#2% \expandafter\expandafter\expandafter{% \expandafter#1#2}% } % Replace arguments by their values in the macro body, and place the result % in macro \@tempa \def\macvalstoargs@{% % To do this we use the property that token registers that are \the'ed % within an \edef expand only once. So we are going to place all argument % values into respective token registers. % % First we save the token context, and initialize argument numbering. \begingroup \paramno0\relax % Then, for each argument number #N, we place the corresponding argument % value into a new token list register \toks#N \expandafter\putargsintokens@\saveparamlist@,;,% % Then, we expand the body so that argument are replaced by their % values. The trick for values not to be expanded themselves is that they % are within tokens and that tokens expand only once in an \edef . \edef\@tempc{\csname mac.\macroname .body\endcsname}% % Now we restore the token stack pointer to free the token list registers % which we have used, but we make sure that expanded body is saved after % group. \expandafter \endgroup \expandafter\def\expandafter\@tempa\expandafter{\@tempc}% } \def\macargexpandinbody@{% %% Define the named-macro outside of this group and then close this group. \expandafter \endgroup \macargdeflist@ % First the replace in body the macro arguments by their values, the result % is in \@tempa . \macvalstoargs@ % Then we point at the \norecurse or \gobble (for recursive) macro value % with \@tempb . \expandafter\let\expandafter\@tempb\csname mac.\macroname .recurse\endcsname % Depending on whether it is recursive or not, we need some tailing % \egroup . \ifx\@tempb\gobble \let\@tempc\relax \else \let\@tempc\egroup \fi % And now we do the real job: \edef\@tempd{\noexpand\@tempb{\macroname}\noexpand\scanmacro{\@tempa}\@tempc}% \@tempd } \def\putargsintokens@#1,{% \if#1;\let\next\relax \else \let\next\putargsintokens@ % First we allocate the new token list register, and give it a temporary % alias \@tempb . \toksdef\@tempb\the\paramno % Then we place the argument value into that token list register. \expandafter\let\expandafter\@tempa\csname macarg.#1\endcsname \expandafter\@tempb\expandafter{\@tempa}% \advance\paramno by 1\relax \fi \next } % Save the token stack pointer into macro #1 \def\texisavetoksstackpoint#1{\edef#1{\the\@cclvi}} % Restore the token stack pointer from number in macro #1 \def\texirestoretoksstackpoint#1{\expandafter\mathchardef\expandafter\@cclvi#1\relax} % newtoks that can be used non \outer . \def\texinonouternewtoks{\alloc@ 5\toks \toksdef \@cclvi} % Tailing missing arguments are set to empty \def\setemptyargvalues@{% \ifx\paramlist\nilm@ \let\next\macargexpandinbody@ \else \expandafter\setemptyargvaluesparser@\paramlist\endargs@ \let\next\setemptyargvalues@ \fi \next } \def\setemptyargvaluesparser@#1,#2\endargs@{% \expandafter\def\expandafter\@tempa\expandafter{% \expandafter\def\csname macarg.#1\endcsname{}}% \push@\@tempa\macargdeflist@ \def\paramlist{#2}% } % #1 is the element target macro % #2 is the list macro % #3,#4\endargs@ is the list value \def\pop@#1#2#3,#4\endargs@{% \def#1{#3}% \def#2{#4}% } \long\def\longpop@#1#2#3,#4\endargs@{% \long\def#1{#3}% \long\def#2{#4}% } % This defines a Texinfo @macro. There are eight cases: recursive and % nonrecursive macros of zero, one, up to nine, 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 \ifnum\paramno<10\relax % at most 9 \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}}% \else % 10 or more \expandafter\xdef\csname\the\macname\endcsname{% \noexpand\getargvals@{\the\macname}{\argl}% }% \global\expandafter\let\csname mac.\the\macname .body\endcsname\temp \global\expandafter\let\csname mac.\the\macname .recurse\endcsname\gobble \fi \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 % at most 9 \ifnum\paramno<10\relax \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}% \else % 10 or more: \expandafter\xdef\csname\the\macname\endcsname{% \noexpand\getargvals@{\the\macname}{\argl}% }% \global\expandafter\let\csname mac.\the\macname .body\endcsname\temp \global\expandafter\let\csname mac.\the\macname .recurse\endcsname\norecurse \fi \fi \fi} \catcode `\@\texiatcatcode\relax \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\macnamexxx=#1\futurelet\nchar\braceorlinexxx} \def\braceorlinexxx{% \ifx\nchar\bgroup\else \expandafter\parsearg \fi \macnamexxx} % @alias. % We need some trickery to remove the optional spaces around the equal % sign. Make them active and then expand them all to nothing. % \def\alias{\parseargusing\obeyspaces\aliasxxx} \def\aliasxxx #1{\aliasyyy#1\relax} \def\aliasyyy #1=#2\relax{% {% \expandafter\let\obeyedspace=\empty \addtomacrolist{#1}% \xdef\next{\global\let\makecsname{#1}=\makecsname{#2}}% }% \next } \message{cross references,} \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 only job in TeX is to define \lastnode, which is used in % cross-references. The @node line might or might not have commas, and % might or might not have spaces before the first comma, like: % @node foo , bar , ... % We don't want such trailing spaces in the node name. % \parseargdef\node{\checkenv{}\donode #1 ,\finishnodeparse} % % also remove a trailing comma, in case of something like this: % @node Help-Cross, , , Cross-refs \def\donode#1 ,#2\finishnodeparse{\dodonode #1,\finishnodeparse} \def\dodonode#1,#2\finishnodeparse{\gdef\lastnode{#1}} \let\nwnode=\node \let\lastnode=\empty % Write a cross-reference definition for the current node. #1 is the % type (Ynumbered, Yappendix, Ynothing). % \def\donoderef#1{% \ifx\lastnode\empty\else \setref{\lastnode}{#1}% \global\let\lastnode=\empty \fi } % @anchor{NAME} -- define xref target at arbitrary point. % \newcount\savesfregister % \def\savesf{\relax \ifhmode \savesfregister=\spacefactor \fi} \def\restoresf{\relax \ifhmode \spacefactor=\savesfregister \fi} \def\anchor#1{\savesf \setref{#1}{Ynothing}\restoresf \ignorespaces} % \setref{NAME}{SNT} defines a cross-reference point NAME (a node or an % anchor), which consists of three parts: % 1) NAME-title - the current sectioning name taken from \lastsection, % or the anchor name. % 2) NAME-snt - section number and type, passed as the SNT arg, or % empty for anchors. % 3) NAME-pg - the page number. % % This is called from \donoderef, \anchor, and \dofloat. In the case of % floats, there is an additional part, which is not written here: % 4) NAME-lof - the text as it should appear in a @listoffloats. % \def\setref#1#2{% \pdfmkdest{#1}% \iflinks {% \atdummies % preserve commands, but don't expand them \edef\writexrdef##1##2{% \write\auxfile{@xrdef{#1-% #1 of \setref, expanded by the \edef ##1}{##2}}% these are parameters of \writexrdef }% \toks0 = \expandafter{\lastsection}% \immediate \writexrdef{title}{\the\toks0 }% \immediate \writexrdef{snt}{\csname #2\endcsname}% \Ynumbered etc. \safewhatsit{\writexrdef{pg}{\folio}}% will be written later, at \shipout }% \fi } % @xrefautosectiontitle on|off says whether @section(ing) names are used % automatically in xrefs, if the third arg is not explicitly specified. % This was provided as a "secret" @set xref-automatic-section-title % variable, now it's official. % \parseargdef\xrefautomaticsectiontitle{% \def\temp{#1}% \ifx\temp\onword \expandafter\let\csname SETxref-automatic-section-title\endcsname = \empty \else\ifx\temp\offword \expandafter\let\csname SETxref-automatic-section-title\endcsname = \relax \else \errhelp = \EMsimple \errmessage{Unknown @xrefautomaticsectiontitle value `\temp', must be on|off}% \fi\fi } % @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,,,,,,,]} % \newbox\topbox \newbox\printedrefnamebox \newbox\printedmanualbox % \def\xrefX[#1,#2,#3,#4,#5,#6]{\begingroup \unsepspaces % \def\printedrefname{\ignorespaces #3}% \setbox\printedrefnamebox = \hbox{\printedrefname\unskip}% % \def\printedmanual{\ignorespaces #5}% \setbox\printedmanualbox = \hbox{\printedmanual\unskip}% % % If the printed reference name (arg #3) was not explicitly given in % the @xref, figure out what we want to use. \ifdim \wd\printedrefnamebox = 0pt % No printed node name was explicitly given. \expandafter\ifx\csname SETxref-automatic-section-title\endcsname \relax % Not auto section-title: use node name inside the square brackets. \def\printedrefname{\ignorespaces #1}% \else % Auto section-title: use chapter/section title inside % the square brackets if we have it. \ifdim \wd\printedmanualbox > 0pt % It is in another manual, so we don't have it; use node name. \def\printedrefname{\ignorespaces #1}% \else \ifhavexrefs % We (should) know the real title if we have the xref values. \def\printedrefname{\refx{#1-title}{}}% \else % Otherwise just copy the Info node name. \def\printedrefname{\ignorespaces #1}% \fi% \fi \fi \fi % % Make link in pdf output. \ifpdf {\indexnofonts \turnoffactive \makevalueexpandable % This expands tokens, so do it after making catcode changes, so _ % etc. don't get their TeX definitions. \getfilename{#4}% % \edef\pdfxrefdest{#1}% \txiescapepdf\pdfxrefdest % \leavevmode \startlink attr{/Border [0 0 0]}% \ifnum\filenamelength>0 goto file{\the\filename.pdf} name{\pdfxrefdest}% \else goto name{\pdfmkpgn{\pdfxrefdest}}% \fi }% \setcolor{\linkcolor}% \fi % % Float references are printed completely differently: "Figure 1.2" % instead of "[somenode], p.3". We distinguish them by the % LABEL-title being set to a magic string. {% % Have to otherify everything special to allow the \csname to % include an _ in the xref name, etc. \indexnofonts \turnoffactive \expandafter\global\expandafter\let\expandafter\Xthisreftitle \csname XR#1-title\endcsname }% \iffloat\Xthisreftitle % If the user specified the print name (third arg) to the ref, % print it instead of our usual "Figure 1.2". \ifdim\wd\printedrefnamebox = 0pt \refx{#1-snt}{}% \else \printedrefname \fi % % if the user also gave the printed manual name (fifth arg), append % "in MANUALNAME". \ifdim \wd\printedmanualbox > 0pt \space \putwordin{} \cite{\printedmanual}% \fi \else % node/anchor (non-float) references. % % If we use \unhbox 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. % % Cross-manual reference. Only include the "Section ``foo'' in" if % the foo is neither missing or Top. Thus, @xref{,,,foo,The Foo Manual} % outputs simply "see The Foo Manual". \ifdim \wd\printedmanualbox > 0pt % What is the 7sp about? The idea is that we also want to omit % the Section part if we would be printing "Top", since they are % clearly trying to refer to the whole manual. But, this being % TeX, we can't easily compare strings while ignoring the possible % spaces before and after in the input. By adding the arbitrary % 7sp, we make it much less likely that a real node name would % happen to have the same width as "Top" (e.g., in a monospaced font). % I hope it will never happen in practice. % % For the same basic reason, we retypeset the "Top" at every % reference, since the current font is indeterminate. % \setbox\topbox = \hbox{Top\kern7sp}% \setbox2 = \hbox{\ignorespaces \printedrefname \unskip \kern7sp}% \ifdim \wd2 > 7sp \ifdim \wd2 = \wd\topbox \else \putwordSection{} ``\printedrefname'' \putwordin{}\space \fi \fi \cite{\printedmanual}% \else % Reference in this manual. % % _ (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. {\turnoffactive % 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 }% % output the `[mynode]' via the macro below so it can be overridden. \xrefprintnodename\printedrefname % % But we always want a comma and a space: ,\space % % output the `page 3'. \turnoffactive \putwordpage\tie\refx{#1-pg}{}% \fi \fi \endlink \endgroup} % This macro is called from \xrefX for the `[nodename]' part of xref % output. It's a separate macro only so it can be changed more easily, % since square brackets don't work well in some documents. Particularly % one that Bob is working on :). % \def\xrefprintnodename#1{[#1]} % Things referred to by \setref. % \def\Ynothing{} \def\Yomitfromtoc{} \def\Ynumbered{% \ifnum\secno=0 \putwordChapter@tie \the\chapno \else \ifnum\subsecno=0 \putwordSection@tie \the\chapno.\the\secno \else \ifnum\subsubsecno=0 \putwordSection@tie \the\chapno.\the\secno.\the\subsecno \else \putwordSection@tie \the\chapno.\the\secno.\the\subsecno.\the\subsubsecno \fi\fi\fi } \def\Yappendix{% \ifnum\secno=0 \putwordAppendix@tie @char\the\appendixno{}% \else \ifnum\subsecno=0 \putwordSection@tie @char\the\appendixno.\the\secno \else \ifnum\subsubsecno=0 \putwordSection@tie @char\the\appendixno.\the\secno.\the\subsecno \else \putwordSection@tie @char\the\appendixno.\the\secno.\the\subsecno.\the\subsubsecno \fi\fi\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{% {% \indexnofonts \otherbackslash \expandafter\global\expandafter\let\expandafter\thisrefX \csname XR#1\endcsname }% \ifx\thisrefX\relax % If not defined, say something at least. \angleleft un\-de\-fined\angleright \iflinks \ifhavexrefs {\toks0 = {#1}% avoid expansion of possibly-complex value \message{\linenumber Undefined cross reference `\the\toks0'.}}% \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. \thisrefX \fi #2% Output the suffix in any case. } % This is the macro invoked by entries in the aux file. Usually it's % just a \def (we prepend XR to the control sequence name to avoid % collisions). But if this is a float type, we have more work to do. % \def\xrdef#1#2{% {% The node name might contain 8-bit characters, which in our current % implementation are changed to commands like @'e. Don't let these % mess up the control sequence name. \indexnofonts \turnoffactive \xdef\safexrefname{#1}% }% % \expandafter\gdef\csname XR\safexrefname\endcsname{#2}% remember this xref % % Was that xref control sequence that we just defined for a float? \expandafter\iffloat\csname XR\safexrefname\endcsname % it was a float, and we have the (safe) float type in \iffloattype. \expandafter\let\expandafter\floatlist \csname floatlist\iffloattype\endcsname % % Is this the first time we've seen this float type? \expandafter\ifx\floatlist\relax \toks0 = {\do}% yes, so just \do \else % had it before, so preserve previous elements in list. \toks0 = \expandafter{\floatlist\do}% \fi % % Remember this xref in the control sequence \floatlistFLOATTYPE, % for later use in \listoffloats. \expandafter\xdef\csname floatlist\iffloattype\endcsname{\the\toks0 {\safexrefname}}% \fi } % Read the last existing aux file, if any. No error if none exists. % \def\tryauxfile{% \openin 1 \jobname.aux \ifeof 1 \else \readdatafile{aux}% \global\havexrefstrue \fi \closein 1 } \def\setupdatafile{% \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 % It was suggested to set the catcode of ^ to 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 % % Special characters. Should be turned off anyway, but... \catcode`\~=\other \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 % % This is to support \ in node names and titles, since the \ % characters end up in a \csname. It's easier than % leaving it active and making its active definition an actual \ % character. What I don't understand is why it works in the *value* % of the xrdef. Seems like it should be a catcode12 \, and that % should not typeset properly. But it works, so I'm moving on for % now. --karl, 15jan04. \catcode`\\=\other % % Make the characters 128-255 be printing characters. {% \count1=128 \def\loop{% \catcode\count1=\other \advance\count1 by 1 \ifnum \count1<256 \loop \fi }% }% % % @ is our escape character in .aux files, and we need braces. \catcode`\{=1 \catcode`\}=2 \catcode`\@=0 } \def\readdatafile#1{% \begingroup \setupdatafile \input\jobname.#1 \endgroup} \message{insertions,} % including 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 {\catcode `\@=11 % % Auto-number footnotes. Otherwise like plain. \gdef\footnote{% \let\indent=\ptexindent \let\noindent=\ptexnoindent \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}\ptexslash\fi % % Remove inadvertent blank space before typesetting the footnote number. \unskip \thisfootno\@sf \dofootnote }% % 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) fails inside footnotes because the tokens are fixed when % the footnote is read. --karl, 16nov96. % \gdef\dofootnote{% \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. \hsize=\pagewidth \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 % % Because we use hanging indentation in footnotes, a @noindent appears % to exdent this text, so make it be a no-op. makeinfo does not use % hanging indentation so @noindent can still be needed within footnote % text after an @example or the like (not that this is good style). \let\noindent = \relax % % Hang the footnote text off the number. Use \everypar in case the % footnote extends for more than one paragraph. \everypar = {\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 % % Invoke rest of plain TeX footnote routine. \futurelet\next\fo@t } }%end \catcode `\@=11 % In case a @footnote appears in a vbox, save the footnote text and create % the real \insert just after the vbox finished. Otherwise, the insertion % would be lost. % Similarly, if a @footnote appears inside an alignment, save the footnote % text to a box and make the \insert when a row of the table is finished. % And the same can be done for other insert classes. --kasal, 16nov03. % Replace the \insert primitive by a cheating macro. % Deeper inside, just make sure that the saved insertions are not spilled % out prematurely. % \def\startsavinginserts{% \ifx \insert\ptexinsert \let\insert\saveinsert \else \let\checkinserts\relax \fi } % This \insert replacement works for both \insert\footins{foo} and % \insert\footins\bgroup foo\egroup, but it doesn't work for \insert27{foo}. % \def\saveinsert#1{% \edef\next{\noexpand\savetobox \makeSAVEname#1}% \afterassignment\next % swallow the left brace \let\temp = } \def\makeSAVEname#1{\makecsname{SAVE\expandafter\gobble\string#1}} \def\savetobox#1{\global\setbox#1 = \vbox\bgroup \unvbox#1} \def\checksaveins#1{\ifvoid#1\else \placesaveins#1\fi} \def\placesaveins#1{% \ptexinsert \csname\expandafter\gobblesave\string#1\endcsname {\box#1}% } % eat @SAVE -- beware, all of them have catcode \other: { \def\dospecials{\do S\do A\do V\do E} \uncatcodespecials % ;-) \gdef\gobblesave @SAVE{} } % initialization: \def\newsaveins #1{% \edef\next{\noexpand\newsaveinsX \makeSAVEname#1}% \next } \def\newsaveinsX #1{% \csname newbox\endcsname #1% \expandafter\def\expandafter\checkinserts\expandafter{\checkinserts \checksaveins #1}% } % initialize: \let\checkinserts\empty \newsaveins\footins \newsaveins\margin % @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 % Do not bother showing banner with epsf.tex v2.7k (available in % doc/epsf.tex and on ctan). \def\epsfannounce{\toks0 = }% \input epsf.tex \fi \closein 1 % % 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\thisisundefined \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 (ignored optional) html alt text. % #5 is (ignored optional) extension. % #6 is just the usual extra ignored arg for parsing stuff. \newif\ifimagevmode \def\imagexxx#1,#2,#3,#4,#5,#6\finish{\begingroup \catcode`\^^M = 5 % in case we're inside an example \normalturnoffactive % allow _ et al. in names % If the image is by itself, center it. \ifvmode \imagevmodetrue \else \ifx\centersub\centerV % for @center @image, we need a vbox so we can have our vertical space \imagevmodetrue \vbox\bgroup % vbox has better behavior than vtop herev \fi\fi % \ifimagevmode \nobreak\medskip % 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 \fi % % Leave vertical mode so that indentation from an enclosing % environment such as @quotation is respected. % However, if we're at the top level, we don't want the % normal paragraph indentation. % On the other hand, if we are in the case of @center @image, we don't % want to start a paragraph, which will create a hsize-width box and % eradicate the centering. \ifx\centersub\centerV\else \noindent \fi % % Output the image. \ifpdf \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 \epsfbox{#1.eps}% \fi % \ifimagevmode \medskip % space after a standalone image \fi \ifx\centersub\centerV \egroup \fi \endgroup} % @float FLOATTYPE,LABEL,LOC ... @end float for displayed figures, tables, % etc. We don't actually implement floating yet, we always include the % float "here". But it seemed the best name for the future. % \envparseargdef\float{\eatcommaspace\eatcommaspace\dofloat#1, , ,\finish} % There may be a space before second and/or third parameter; delete it. \def\eatcommaspace#1, {#1,} % #1 is the optional FLOATTYPE, the text label for this float, typically % "Figure", "Table", "Example", etc. Can't contain commas. If omitted, % this float will not be numbered and cannot be referred to. % % #2 is the optional xref label. Also must be present for the float to % be referable. % % #3 is the optional positioning argument; for now, it is ignored. It % will somehow specify the positions allowed to float to (here, top, bottom). % % We keep a separate counter for each FLOATTYPE, which we reset at each % chapter-level command. \let\resetallfloatnos=\empty % \def\dofloat#1,#2,#3,#4\finish{% \let\thiscaption=\empty \let\thisshortcaption=\empty % % don't lose footnotes inside @float. % % BEWARE: when the floats start float, we have to issue warning whenever an % insert appears inside a float which could possibly float. --kasal, 26may04 % \startsavinginserts % % We can't be used inside a paragraph. \par % \vtop\bgroup \def\floattype{#1}% \def\floatlabel{#2}% \def\floatloc{#3}% we do nothing with this yet. % \ifx\floattype\empty \let\safefloattype=\empty \else {% % the floattype might have accents or other special characters, % but we need to use it in a control sequence name. \indexnofonts \turnoffactive \xdef\safefloattype{\floattype}% }% \fi % % If label is given but no type, we handle that as the empty type. \ifx\floatlabel\empty \else % We want each FLOATTYPE to be numbered separately (Figure 1, % Table 1, Figure 2, ...). (And if no label, no number.) % \expandafter\getfloatno\csname\safefloattype floatno\endcsname \global\advance\floatno by 1 % {% % This magic value for \lastsection is output by \setref as the % XREFLABEL-title value. \xrefX uses it to distinguish float % labels (which have a completely different output format) from % node and anchor labels. And \xrdef uses it to construct the % lists of floats. % \edef\lastsection{\floatmagic=\safefloattype}% \setref{\floatlabel}{Yfloat}% }% \fi % % start with \parskip glue, I guess. \vskip\parskip % % Don't suppress indentation if a float happens to start a section. \restorefirstparagraphindent } % we have these possibilities: % @float Foo,lbl & @caption{Cap}: Foo 1.1: Cap % @float Foo,lbl & no caption: Foo 1.1 % @float Foo & @caption{Cap}: Foo: Cap % @float Foo & no caption: Foo % @float ,lbl & Caption{Cap}: 1.1: Cap % @float ,lbl & no caption: 1.1 % @float & @caption{Cap}: Cap % @float & no caption: % \def\Efloat{% \let\floatident = \empty % % In all cases, if we have a float type, it comes first. \ifx\floattype\empty \else \def\floatident{\floattype}\fi % % If we have an xref label, the number comes next. \ifx\floatlabel\empty \else \ifx\floattype\empty \else % if also had float type, need tie first. \appendtomacro\floatident{\tie}% \fi % the number. \appendtomacro\floatident{\chaplevelprefix\the\floatno}% \fi % % Start the printed caption with what we've constructed in % \floatident, but keep it separate; we need \floatident again. \let\captionline = \floatident % \ifx\thiscaption\empty \else \ifx\floatident\empty \else \appendtomacro\captionline{: }% had ident, so need a colon between \fi % % caption text. \appendtomacro\captionline{\scanexp\thiscaption}% \fi % % If we have anything to print, print it, with space before. % Eventually this needs to become an \insert. \ifx\captionline\empty \else \vskip.5\parskip \captionline % % Space below caption. \vskip\parskip \fi % % If have an xref label, write the list of floats info. Do this % after the caption, to avoid chance of it being a breakpoint. \ifx\floatlabel\empty \else % Write the text that goes in the lof to the aux file as % \floatlabel-lof. Besides \floatident, we include the short % caption if specified, else the full caption if specified, else nothing. {% \atdummies % % since we read the caption text in the macro world, where ^^M % is turned into a normal character, we have to scan it back, so % we don't write the literal three characters "^^M" into the aux file. \scanexp{% \xdef\noexpand\gtemp{% \ifx\thisshortcaption\empty \thiscaption \else \thisshortcaption \fi }% }% \immediate\write\auxfile{@xrdef{\floatlabel-lof}{\floatident \ifx\gtemp\empty \else : \gtemp \fi}}% }% \fi \egroup % end of \vtop % % place the captured inserts % % BEWARE: when the floats start floating, we have to issue warning % whenever an insert appears inside a float which could possibly % float. --kasal, 26may04 % \checkinserts } % Append the tokens #2 to the definition of macro #1, not expanding either. % \def\appendtomacro#1#2{% \expandafter\def\expandafter#1\expandafter{#1#2}% } % @caption, @shortcaption % \def\caption{\docaption\thiscaption} \def\shortcaption{\docaption\thisshortcaption} \def\docaption{\checkenv\float \bgroup\scanargctxt\defcaption} \def\defcaption#1#2{\egroup \def#1{#2}} % The parameter is the control sequence identifying the counter we are % going to use. Create it if it doesn't exist and assign it to \floatno. \def\getfloatno#1{% \ifx#1\relax % Haven't seen this figure type before. \csname newcount\endcsname #1% % % Remember to reset this floatno at the next chap. \expandafter\gdef\expandafter\resetallfloatnos \expandafter{\resetallfloatnos #1=0 }% \fi \let\floatno#1% } % \setref calls this to get the XREFLABEL-snt value. We want an @xref % to the FLOATLABEL to expand to "Figure 3.1". We call \setref when we % first read the @float command. % \def\Yfloat{\floattype@tie \chaplevelprefix\the\floatno}% % Magic string used for the XREFLABEL-title value, so \xrefX can % distinguish floats from other xref types. \def\floatmagic{!!float!!} % #1 is the control sequence we are passed; we expand into a conditional % which is true if #1 represents a float ref. That is, the magic % \lastsection value which we \setref above. % \def\iffloat#1{\expandafter\doiffloat#1==\finish} % % #1 is (maybe) the \floatmagic string. If so, #2 will be the % (safe) float type for this float. We set \iffloattype to #2. % \def\doiffloat#1=#2=#3\finish{% \def\temp{#1}% \def\iffloattype{#2}% \ifx\temp\floatmagic } % @listoffloats FLOATTYPE - print a list of floats like a table of contents. % \parseargdef\listoffloats{% \def\floattype{#1}% floattype {% % the floattype might have accents or other special characters, % but we need to use it in a control sequence name. \indexnofonts \turnoffactive \xdef\safefloattype{\floattype}% }% % % \xrdef saves the floats as a \do-list in \floatlistSAFEFLOATTYPE. \expandafter\ifx\csname floatlist\safefloattype\endcsname \relax \ifhavexrefs % if the user said @listoffloats foo but never @float foo. \message{\linenumber No `\safefloattype' floats to list.}% \fi \else \begingroup \leftskip=\tocindent % indent these entries like a toc \let\do=\listoffloatsdo \csname floatlist\safefloattype\endcsname \endgroup \fi } % This is called on each entry in a list of floats. We're passed the % xref label, in the form LABEL-title, which is how we save it in the % aux file. We strip off the -title and look up \XRLABEL-lof, which % has the text we're supposed to typeset here. % % Figures without xref labels will not be included in the list (since % they won't appear in the aux file). % \def\listoffloatsdo#1{\listoffloatsdoentry#1\finish} \def\listoffloatsdoentry#1-title\finish{{% % Can't fully expand XR#1-lof because it can contain anything. Just % pass the control sequence. On the other hand, XR#1-pg is just the % page number, and we want to fully expand that so we can get a link % in pdf output. \toksA = \expandafter{\csname XR#1-lof\endcsname}% % % use the same \entry macro we use to generate the TOC and index. \edef\writeentry{\noexpand\entry{\the\toksA}{\csname XR#1-pg\endcsname}}% \writeentry }} \message{localization,} % For single-language documents, @documentlanguage is usually given very % early, just after @documentencoding. Single argument is the language % (de) or locale (de_DE) abbreviation. % { \catcode`\_ = \active \globaldefs=1 \parseargdef\documentlanguage{\begingroup \let_=\normalunderscore % normal _ character for filenames \tex % read txi-??.tex file in plain TeX. % Read the file by the name they passed if it exists. \openin 1 txi-#1.tex \ifeof 1 \documentlanguagetrywithoutunderscore{#1_\finish}% \else \globaldefs = 1 % everything in the txi-LL files needs to persist \input txi-#1.tex \fi \closein 1 \endgroup % end raw TeX \endgroup} % % If they passed de_DE, and txi-de_DE.tex doesn't exist, % try txi-de.tex. % \gdef\documentlanguagetrywithoutunderscore#1_#2\finish{% \openin 1 txi-#1.tex \ifeof 1 \errhelp = \nolanghelp \errmessage{Cannot read language file txi-#1.tex}% \else \globaldefs = 1 % everything in the txi-LL files needs to persist \input txi-#1.tex \fi \closein 1 } }% end of special _ catcode % \newhelp\nolanghelp{The given language definition file cannot be found or is empty. Maybe you need to install it? Putting it in the current directory should work if nowhere else does.} % This macro is called from txi-??.tex files; the first argument is the % \language name to set (without the "\lang@" prefix), the second and % third args are \{left,right}hyphenmin. % % The language names to pass are determined when the format is built. % See the etex.log file created at that time, e.g., % /usr/local/texlive/2008/texmf-var/web2c/pdftex/etex.log. % % With TeX Live 2008, etex now includes hyphenation patterns for all % available languages. This means we can support hyphenation in % Texinfo, at least to some extent. (This still doesn't solve the % accented characters problem.) % \catcode`@=11 \def\txisetlanguage#1#2#3{% % do not set the language if the name is undefined in the current TeX. \expandafter\ifx\csname lang@#1\endcsname \relax \message{no patterns for #1}% \else \global\language = \csname lang@#1\endcsname \fi % but there is no harm in adjusting the hyphenmin values regardless. \global\lefthyphenmin = #2\relax \global\righthyphenmin = #3\relax } % Helpers for encodings. % Set the catcode of characters 128 through 255 to the specified number. % \def\setnonasciicharscatcode#1{% \count255=128 \loop\ifnum\count255<256 \global\catcode\count255=#1\relax \advance\count255 by 1 \repeat } \def\setnonasciicharscatcodenonglobal#1{% \count255=128 \loop\ifnum\count255<256 \catcode\count255=#1\relax \advance\count255 by 1 \repeat } % @documentencoding sets the definition of non-ASCII characters % according to the specified encoding. % \parseargdef\documentencoding{% % Encoding being declared for the document. \def\declaredencoding{\csname #1.enc\endcsname}% % % Supported encodings: names converted to tokens in order to be able % to compare them with \ifx. \def\ascii{\csname US-ASCII.enc\endcsname}% \def\latnine{\csname ISO-8859-15.enc\endcsname}% \def\latone{\csname ISO-8859-1.enc\endcsname}% \def\lattwo{\csname ISO-8859-2.enc\endcsname}% \def\utfeight{\csname UTF-8.enc\endcsname}% % \ifx \declaredencoding \ascii \asciichardefs % \else \ifx \declaredencoding \lattwo \setnonasciicharscatcode\active \lattwochardefs % \else \ifx \declaredencoding \latone \setnonasciicharscatcode\active \latonechardefs % \else \ifx \declaredencoding \latnine \setnonasciicharscatcode\active \latninechardefs % \else \ifx \declaredencoding \utfeight \setnonasciicharscatcode\active \utfeightchardefs % \else \message{Unknown document encoding #1, ignoring.}% % \fi % utfeight \fi % latnine \fi % latone \fi % lattwo \fi % ascii } % A message to be logged when using a character that isn't available % the default font encoding (OT1). % \def\missingcharmsg#1{\message{Character missing in OT1 encoding: #1.}} % Take account of \c (plain) vs. \, (Texinfo) difference. \def\cedilla#1{\ifx\c\ptexc\c{#1}\else\,{#1}\fi} % First, make active non-ASCII characters in order for them to be % correctly categorized when TeX reads the replacement text of % macros containing the character definitions. \setnonasciicharscatcode\active % % Latin1 (ISO-8859-1) character definitions. \def\latonechardefs{% \gdef^^a0{\tie} \gdef^^a1{\exclamdown} \gdef^^a2{\missingcharmsg{CENT SIGN}} \gdef^^a3{{\pounds}} \gdef^^a4{\missingcharmsg{CURRENCY SIGN}} \gdef^^a5{\missingcharmsg{YEN SIGN}} \gdef^^a6{\missingcharmsg{BROKEN BAR}} \gdef^^a7{\S} \gdef^^a8{\"{}} \gdef^^a9{\copyright} \gdef^^aa{\ordf} \gdef^^ab{\guillemetleft} \gdef^^ac{$\lnot$} \gdef^^ad{\-} \gdef^^ae{\registeredsymbol} \gdef^^af{\={}} % \gdef^^b0{\textdegree} \gdef^^b1{$\pm$} \gdef^^b2{$^2$} \gdef^^b3{$^3$} \gdef^^b4{\'{}} \gdef^^b5{$\mu$} \gdef^^b6{\P} % \gdef^^b7{$^.$} \gdef^^b8{\cedilla\ } \gdef^^b9{$^1$} \gdef^^ba{\ordm} % \gdef^^bb{\guillemetright} \gdef^^bc{$1\over4$} \gdef^^bd{$1\over2$} \gdef^^be{$3\over4$} \gdef^^bf{\questiondown} % \gdef^^c0{\`A} \gdef^^c1{\'A} \gdef^^c2{\^A} \gdef^^c3{\~A} \gdef^^c4{\"A} \gdef^^c5{\ringaccent A} \gdef^^c6{\AE} \gdef^^c7{\cedilla C} \gdef^^c8{\`E} \gdef^^c9{\'E} \gdef^^ca{\^E} \gdef^^cb{\"E} \gdef^^cc{\`I} \gdef^^cd{\'I} \gdef^^ce{\^I} \gdef^^cf{\"I} % \gdef^^d0{\DH} \gdef^^d1{\~N} \gdef^^d2{\`O} \gdef^^d3{\'O} \gdef^^d4{\^O} \gdef^^d5{\~O} \gdef^^d6{\"O} \gdef^^d7{$\times$} \gdef^^d8{\O} \gdef^^d9{\`U} \gdef^^da{\'U} \gdef^^db{\^U} \gdef^^dc{\"U} \gdef^^dd{\'Y} \gdef^^de{\TH} \gdef^^df{\ss} % \gdef^^e0{\`a} \gdef^^e1{\'a} \gdef^^e2{\^a} \gdef^^e3{\~a} \gdef^^e4{\"a} \gdef^^e5{\ringaccent a} \gdef^^e6{\ae} \gdef^^e7{\cedilla c} \gdef^^e8{\`e} \gdef^^e9{\'e} \gdef^^ea{\^e} \gdef^^eb{\"e} \gdef^^ec{\`{\dotless i}} \gdef^^ed{\'{\dotless i}} \gdef^^ee{\^{\dotless i}} \gdef^^ef{\"{\dotless i}} % \gdef^^f0{\dh} \gdef^^f1{\~n} \gdef^^f2{\`o} \gdef^^f3{\'o} \gdef^^f4{\^o} \gdef^^f5{\~o} \gdef^^f6{\"o} \gdef^^f7{$\div$} \gdef^^f8{\o} \gdef^^f9{\`u} \gdef^^fa{\'u} \gdef^^fb{\^u} \gdef^^fc{\"u} \gdef^^fd{\'y} \gdef^^fe{\th} \gdef^^ff{\"y} } % Latin9 (ISO-8859-15) encoding character definitions. \def\latninechardefs{% % Encoding is almost identical to Latin1. \latonechardefs % \gdef^^a4{\euro} \gdef^^a6{\v S} \gdef^^a8{\v s} \gdef^^b4{\v Z} \gdef^^b8{\v z} \gdef^^bc{\OE} \gdef^^bd{\oe} \gdef^^be{\"Y} } % Latin2 (ISO-8859-2) character definitions. \def\lattwochardefs{% \gdef^^a0{\tie} \gdef^^a1{\ogonek{A}} \gdef^^a2{\u{}} \gdef^^a3{\L} \gdef^^a4{\missingcharmsg{CURRENCY SIGN}} \gdef^^a5{\v L} \gdef^^a6{\'S} \gdef^^a7{\S} \gdef^^a8{\"{}} \gdef^^a9{\v S} \gdef^^aa{\cedilla S} \gdef^^ab{\v T} \gdef^^ac{\'Z} \gdef^^ad{\-} \gdef^^ae{\v Z} \gdef^^af{\dotaccent Z} % \gdef^^b0{\textdegree} \gdef^^b1{\ogonek{a}} \gdef^^b2{\ogonek{ }} \gdef^^b3{\l} \gdef^^b4{\'{}} \gdef^^b5{\v l} \gdef^^b6{\'s} \gdef^^b7{\v{}} \gdef^^b8{\cedilla\ } \gdef^^b9{\v s} \gdef^^ba{\cedilla s} \gdef^^bb{\v t} \gdef^^bc{\'z} \gdef^^bd{\H{}} \gdef^^be{\v z} \gdef^^bf{\dotaccent z} % \gdef^^c0{\'R} \gdef^^c1{\'A} \gdef^^c2{\^A} \gdef^^c3{\u A} \gdef^^c4{\"A} \gdef^^c5{\'L} \gdef^^c6{\'C} \gdef^^c7{\cedilla C} \gdef^^c8{\v C} \gdef^^c9{\'E} \gdef^^ca{\ogonek{E}} \gdef^^cb{\"E} \gdef^^cc{\v E} \gdef^^cd{\'I} \gdef^^ce{\^I} \gdef^^cf{\v D} % \gdef^^d0{\DH} \gdef^^d1{\'N} \gdef^^d2{\v N} \gdef^^d3{\'O} \gdef^^d4{\^O} \gdef^^d5{\H O} \gdef^^d6{\"O} \gdef^^d7{$\times$} \gdef^^d8{\v R} \gdef^^d9{\ringaccent U} \gdef^^da{\'U} \gdef^^db{\H U} \gdef^^dc{\"U} \gdef^^dd{\'Y} \gdef^^de{\cedilla T} \gdef^^df{\ss} % \gdef^^e0{\'r} \gdef^^e1{\'a} \gdef^^e2{\^a} \gdef^^e3{\u a} \gdef^^e4{\"a} \gdef^^e5{\'l} \gdef^^e6{\'c} \gdef^^e7{\cedilla c} \gdef^^e8{\v c} \gdef^^e9{\'e} \gdef^^ea{\ogonek{e}} \gdef^^eb{\"e} \gdef^^ec{\v e} \gdef^^ed{\'{\dotless{i}}} \gdef^^ee{\^{\dotless{i}}} \gdef^^ef{\v d} % \gdef^^f0{\dh} \gdef^^f1{\'n} \gdef^^f2{\v n} \gdef^^f3{\'o} \gdef^^f4{\^o} \gdef^^f5{\H o} \gdef^^f6{\"o} \gdef^^f7{$\div$} \gdef^^f8{\v r} \gdef^^f9{\ringaccent u} \gdef^^fa{\'u} \gdef^^fb{\H u} \gdef^^fc{\"u} \gdef^^fd{\'y} \gdef^^fe{\cedilla t} \gdef^^ff{\dotaccent{}} } % UTF-8 character definitions. % % This code to support UTF-8 is based on LaTeX's utf8.def, with some % changes for Texinfo conventions. It is included here under the GPL by % permission from Frank Mittelbach and the LaTeX team. % \newcount\countUTFx \newcount\countUTFy \newcount\countUTFz \gdef\UTFviiiTwoOctets#1#2{\expandafter \UTFviiiDefined\csname u8:#1\string #2\endcsname} % \gdef\UTFviiiThreeOctets#1#2#3{\expandafter \UTFviiiDefined\csname u8:#1\string #2\string #3\endcsname} % \gdef\UTFviiiFourOctets#1#2#3#4{\expandafter \UTFviiiDefined\csname u8:#1\string #2\string #3\string #4\endcsname} \gdef\UTFviiiDefined#1{% \ifx #1\relax \message{\linenumber Unicode char \string #1 not defined for Texinfo}% \else \expandafter #1% \fi } \begingroup \catcode`\~13 \catcode`\"12 \def\UTFviiiLoop{% \global\catcode\countUTFx\active \uccode`\~\countUTFx \uppercase\expandafter{\UTFviiiTmp}% \advance\countUTFx by 1 \ifnum\countUTFx < \countUTFy \expandafter\UTFviiiLoop \fi} \countUTFx = "C2 \countUTFy = "E0 \def\UTFviiiTmp{% \xdef~{\noexpand\UTFviiiTwoOctets\string~}} \UTFviiiLoop \countUTFx = "E0 \countUTFy = "F0 \def\UTFviiiTmp{% \xdef~{\noexpand\UTFviiiThreeOctets\string~}} \UTFviiiLoop \countUTFx = "F0 \countUTFy = "F4 \def\UTFviiiTmp{% \xdef~{\noexpand\UTFviiiFourOctets\string~}} \UTFviiiLoop \endgroup \begingroup \catcode`\"=12 \catcode`\<=12 \catcode`\.=12 \catcode`\,=12 \catcode`\;=12 \catcode`\!=12 \catcode`\~=13 \gdef\DeclareUnicodeCharacter#1#2{% \countUTFz = "#1\relax %\wlog{\space\space defining Unicode char U+#1 (decimal \the\countUTFz)}% \begingroup \parseXMLCharref \def\UTFviiiTwoOctets##1##2{% \csname u8:##1\string ##2\endcsname}% \def\UTFviiiThreeOctets##1##2##3{% \csname u8:##1\string ##2\string ##3\endcsname}% \def\UTFviiiFourOctets##1##2##3##4{% \csname u8:##1\string ##2\string ##3\string ##4\endcsname}% \expandafter\expandafter\expandafter\expandafter \expandafter\expandafter\expandafter \gdef\UTFviiiTmp{#2}% \endgroup} \gdef\parseXMLCharref{% \ifnum\countUTFz < "A0\relax \errhelp = \EMsimple \errmessage{Cannot define Unicode char value < 00A0}% \else\ifnum\countUTFz < "800\relax \parseUTFviiiA,% \parseUTFviiiB C\UTFviiiTwoOctets.,% \else\ifnum\countUTFz < "10000\relax \parseUTFviiiA;% \parseUTFviiiA,% \parseUTFviiiB E\UTFviiiThreeOctets.{,;}% \else \parseUTFviiiA;% \parseUTFviiiA,% \parseUTFviiiA!% \parseUTFviiiB F\UTFviiiFourOctets.{!,;}% \fi\fi\fi } \gdef\parseUTFviiiA#1{% \countUTFx = \countUTFz \divide\countUTFz by 64 \countUTFy = \countUTFz \multiply\countUTFz by 64 \advance\countUTFx by -\countUTFz \advance\countUTFx by 128 \uccode `#1\countUTFx \countUTFz = \countUTFy} \gdef\parseUTFviiiB#1#2#3#4{% \advance\countUTFz by "#10\relax \uccode `#3\countUTFz \uppercase{\gdef\UTFviiiTmp{#2#3#4}}} \endgroup \def\utfeightchardefs{% \DeclareUnicodeCharacter{00A0}{\tie} \DeclareUnicodeCharacter{00A1}{\exclamdown} \DeclareUnicodeCharacter{00A3}{\pounds} \DeclareUnicodeCharacter{00A8}{\"{ }} \DeclareUnicodeCharacter{00A9}{\copyright} \DeclareUnicodeCharacter{00AA}{\ordf} \DeclareUnicodeCharacter{00AB}{\guillemetleft} \DeclareUnicodeCharacter{00AD}{\-} \DeclareUnicodeCharacter{00AE}{\registeredsymbol} \DeclareUnicodeCharacter{00AF}{\={ }} \DeclareUnicodeCharacter{00B0}{\ringaccent{ }} \DeclareUnicodeCharacter{00B4}{\'{ }} \DeclareUnicodeCharacter{00B8}{\cedilla{ }} \DeclareUnicodeCharacter{00BA}{\ordm} \DeclareUnicodeCharacter{00BB}{\guillemetright} \DeclareUnicodeCharacter{00BF}{\questiondown} \DeclareUnicodeCharacter{00C0}{\`A} \DeclareUnicodeCharacter{00C1}{\'A} \DeclareUnicodeCharacter{00C2}{\^A} \DeclareUnicodeCharacter{00C3}{\~A} \DeclareUnicodeCharacter{00C4}{\"A} \DeclareUnicodeCharacter{00C5}{\AA} \DeclareUnicodeCharacter{00C6}{\AE} \DeclareUnicodeCharacter{00C7}{\cedilla{C}} \DeclareUnicodeCharacter{00C8}{\`E} \DeclareUnicodeCharacter{00C9}{\'E} \DeclareUnicodeCharacter{00CA}{\^E} \DeclareUnicodeCharacter{00CB}{\"E} \DeclareUnicodeCharacter{00CC}{\`I} \DeclareUnicodeCharacter{00CD}{\'I} \DeclareUnicodeCharacter{00CE}{\^I} \DeclareUnicodeCharacter{00CF}{\"I} \DeclareUnicodeCharacter{00D0}{\DH} \DeclareUnicodeCharacter{00D1}{\~N} \DeclareUnicodeCharacter{00D2}{\`O} \DeclareUnicodeCharacter{00D3}{\'O} \DeclareUnicodeCharacter{00D4}{\^O} \DeclareUnicodeCharacter{00D5}{\~O} \DeclareUnicodeCharacter{00D6}{\"O} \DeclareUnicodeCharacter{00D8}{\O} \DeclareUnicodeCharacter{00D9}{\`U} \DeclareUnicodeCharacter{00DA}{\'U} \DeclareUnicodeCharacter{00DB}{\^U} \DeclareUnicodeCharacter{00DC}{\"U} \DeclareUnicodeCharacter{00DD}{\'Y} \DeclareUnicodeCharacter{00DE}{\TH} \DeclareUnicodeCharacter{00DF}{\ss} \DeclareUnicodeCharacter{00E0}{\`a} \DeclareUnicodeCharacter{00E1}{\'a} \DeclareUnicodeCharacter{00E2}{\^a} \DeclareUnicodeCharacter{00E3}{\~a} \DeclareUnicodeCharacter{00E4}{\"a} \DeclareUnicodeCharacter{00E5}{\aa} \DeclareUnicodeCharacter{00E6}{\ae} \DeclareUnicodeCharacter{00E7}{\cedilla{c}} \DeclareUnicodeCharacter{00E8}{\`e} \DeclareUnicodeCharacter{00E9}{\'e} \DeclareUnicodeCharacter{00EA}{\^e} \DeclareUnicodeCharacter{00EB}{\"e} \DeclareUnicodeCharacter{00EC}{\`{\dotless{i}}} \DeclareUnicodeCharacter{00ED}{\'{\dotless{i}}} \DeclareUnicodeCharacter{00EE}{\^{\dotless{i}}} \DeclareUnicodeCharacter{00EF}{\"{\dotless{i}}} \DeclareUnicodeCharacter{00F0}{\dh} \DeclareUnicodeCharacter{00F1}{\~n} \DeclareUnicodeCharacter{00F2}{\`o} \DeclareUnicodeCharacter{00F3}{\'o} \DeclareUnicodeCharacter{00F4}{\^o} \DeclareUnicodeCharacter{00F5}{\~o} \DeclareUnicodeCharacter{00F6}{\"o} \DeclareUnicodeCharacter{00F8}{\o} \DeclareUnicodeCharacter{00F9}{\`u} \DeclareUnicodeCharacter{00FA}{\'u} \DeclareUnicodeCharacter{00FB}{\^u} \DeclareUnicodeCharacter{00FC}{\"u} \DeclareUnicodeCharacter{00FD}{\'y} \DeclareUnicodeCharacter{00FE}{\th} \DeclareUnicodeCharacter{00FF}{\"y} \DeclareUnicodeCharacter{0100}{\=A} \DeclareUnicodeCharacter{0101}{\=a} \DeclareUnicodeCharacter{0102}{\u{A}} \DeclareUnicodeCharacter{0103}{\u{a}} \DeclareUnicodeCharacter{0104}{\ogonek{A}} \DeclareUnicodeCharacter{0105}{\ogonek{a}} \DeclareUnicodeCharacter{0106}{\'C} \DeclareUnicodeCharacter{0107}{\'c} \DeclareUnicodeCharacter{0108}{\^C} \DeclareUnicodeCharacter{0109}{\^c} \DeclareUnicodeCharacter{0118}{\ogonek{E}} \DeclareUnicodeCharacter{0119}{\ogonek{e}} \DeclareUnicodeCharacter{010A}{\dotaccent{C}} \DeclareUnicodeCharacter{010B}{\dotaccent{c}} \DeclareUnicodeCharacter{010C}{\v{C}} \DeclareUnicodeCharacter{010D}{\v{c}} \DeclareUnicodeCharacter{010E}{\v{D}} \DeclareUnicodeCharacter{0112}{\=E} \DeclareUnicodeCharacter{0113}{\=e} \DeclareUnicodeCharacter{0114}{\u{E}} \DeclareUnicodeCharacter{0115}{\u{e}} \DeclareUnicodeCharacter{0116}{\dotaccent{E}} \DeclareUnicodeCharacter{0117}{\dotaccent{e}} \DeclareUnicodeCharacter{011A}{\v{E}} \DeclareUnicodeCharacter{011B}{\v{e}} \DeclareUnicodeCharacter{011C}{\^G} \DeclareUnicodeCharacter{011D}{\^g} \DeclareUnicodeCharacter{011E}{\u{G}} \DeclareUnicodeCharacter{011F}{\u{g}} \DeclareUnicodeCharacter{0120}{\dotaccent{G}} \DeclareUnicodeCharacter{0121}{\dotaccent{g}} \DeclareUnicodeCharacter{0124}{\^H} \DeclareUnicodeCharacter{0125}{\^h} \DeclareUnicodeCharacter{0128}{\~I} \DeclareUnicodeCharacter{0129}{\~{\dotless{i}}} \DeclareUnicodeCharacter{012A}{\=I} \DeclareUnicodeCharacter{012B}{\={\dotless{i}}} \DeclareUnicodeCharacter{012C}{\u{I}} \DeclareUnicodeCharacter{012D}{\u{\dotless{i}}} \DeclareUnicodeCharacter{0130}{\dotaccent{I}} \DeclareUnicodeCharacter{0131}{\dotless{i}} \DeclareUnicodeCharacter{0132}{IJ} \DeclareUnicodeCharacter{0133}{ij} \DeclareUnicodeCharacter{0134}{\^J} \DeclareUnicodeCharacter{0135}{\^{\dotless{j}}} \DeclareUnicodeCharacter{0139}{\'L} \DeclareUnicodeCharacter{013A}{\'l} \DeclareUnicodeCharacter{0141}{\L} \DeclareUnicodeCharacter{0142}{\l} \DeclareUnicodeCharacter{0143}{\'N} \DeclareUnicodeCharacter{0144}{\'n} \DeclareUnicodeCharacter{0147}{\v{N}} \DeclareUnicodeCharacter{0148}{\v{n}} \DeclareUnicodeCharacter{014C}{\=O} \DeclareUnicodeCharacter{014D}{\=o} \DeclareUnicodeCharacter{014E}{\u{O}} \DeclareUnicodeCharacter{014F}{\u{o}} \DeclareUnicodeCharacter{0150}{\H{O}} \DeclareUnicodeCharacter{0151}{\H{o}} \DeclareUnicodeCharacter{0152}{\OE} \DeclareUnicodeCharacter{0153}{\oe} \DeclareUnicodeCharacter{0154}{\'R} \DeclareUnicodeCharacter{0155}{\'r} \DeclareUnicodeCharacter{0158}{\v{R}} \DeclareUnicodeCharacter{0159}{\v{r}} \DeclareUnicodeCharacter{015A}{\'S} \DeclareUnicodeCharacter{015B}{\'s} \DeclareUnicodeCharacter{015C}{\^S} \DeclareUnicodeCharacter{015D}{\^s} \DeclareUnicodeCharacter{015E}{\cedilla{S}} \DeclareUnicodeCharacter{015F}{\cedilla{s}} \DeclareUnicodeCharacter{0160}{\v{S}} \DeclareUnicodeCharacter{0161}{\v{s}} \DeclareUnicodeCharacter{0162}{\cedilla{t}} \DeclareUnicodeCharacter{0163}{\cedilla{T}} \DeclareUnicodeCharacter{0164}{\v{T}} \DeclareUnicodeCharacter{0168}{\~U} \DeclareUnicodeCharacter{0169}{\~u} \DeclareUnicodeCharacter{016A}{\=U} \DeclareUnicodeCharacter{016B}{\=u} \DeclareUnicodeCharacter{016C}{\u{U}} \DeclareUnicodeCharacter{016D}{\u{u}} \DeclareUnicodeCharacter{016E}{\ringaccent{U}} \DeclareUnicodeCharacter{016F}{\ringaccent{u}} \DeclareUnicodeCharacter{0170}{\H{U}} \DeclareUnicodeCharacter{0171}{\H{u}} \DeclareUnicodeCharacter{0174}{\^W} \DeclareUnicodeCharacter{0175}{\^w} \DeclareUnicodeCharacter{0176}{\^Y} \DeclareUnicodeCharacter{0177}{\^y} \DeclareUnicodeCharacter{0178}{\"Y} \DeclareUnicodeCharacter{0179}{\'Z} \DeclareUnicodeCharacter{017A}{\'z} \DeclareUnicodeCharacter{017B}{\dotaccent{Z}} \DeclareUnicodeCharacter{017C}{\dotaccent{z}} \DeclareUnicodeCharacter{017D}{\v{Z}} \DeclareUnicodeCharacter{017E}{\v{z}} \DeclareUnicodeCharacter{01C4}{D\v{Z}} \DeclareUnicodeCharacter{01C5}{D\v{z}} \DeclareUnicodeCharacter{01C6}{d\v{z}} \DeclareUnicodeCharacter{01C7}{LJ} \DeclareUnicodeCharacter{01C8}{Lj} \DeclareUnicodeCharacter{01C9}{lj} \DeclareUnicodeCharacter{01CA}{NJ} \DeclareUnicodeCharacter{01CB}{Nj} \DeclareUnicodeCharacter{01CC}{nj} \DeclareUnicodeCharacter{01CD}{\v{A}} \DeclareUnicodeCharacter{01CE}{\v{a}} \DeclareUnicodeCharacter{01CF}{\v{I}} \DeclareUnicodeCharacter{01D0}{\v{\dotless{i}}} \DeclareUnicodeCharacter{01D1}{\v{O}} \DeclareUnicodeCharacter{01D2}{\v{o}} \DeclareUnicodeCharacter{01D3}{\v{U}} \DeclareUnicodeCharacter{01D4}{\v{u}} \DeclareUnicodeCharacter{01E2}{\={\AE}} \DeclareUnicodeCharacter{01E3}{\={\ae}} \DeclareUnicodeCharacter{01E6}{\v{G}} \DeclareUnicodeCharacter{01E7}{\v{g}} \DeclareUnicodeCharacter{01E8}{\v{K}} \DeclareUnicodeCharacter{01E9}{\v{k}} \DeclareUnicodeCharacter{01F0}{\v{\dotless{j}}} \DeclareUnicodeCharacter{01F1}{DZ} \DeclareUnicodeCharacter{01F2}{Dz} \DeclareUnicodeCharacter{01F3}{dz} \DeclareUnicodeCharacter{01F4}{\'G} \DeclareUnicodeCharacter{01F5}{\'g} \DeclareUnicodeCharacter{01F8}{\`N} \DeclareUnicodeCharacter{01F9}{\`n} \DeclareUnicodeCharacter{01FC}{\'{\AE}} \DeclareUnicodeCharacter{01FD}{\'{\ae}} \DeclareUnicodeCharacter{01FE}{\'{\O}} \DeclareUnicodeCharacter{01FF}{\'{\o}} \DeclareUnicodeCharacter{021E}{\v{H}} \DeclareUnicodeCharacter{021F}{\v{h}} \DeclareUnicodeCharacter{0226}{\dotaccent{A}} \DeclareUnicodeCharacter{0227}{\dotaccent{a}} \DeclareUnicodeCharacter{0228}{\cedilla{E}} \DeclareUnicodeCharacter{0229}{\cedilla{e}} \DeclareUnicodeCharacter{022E}{\dotaccent{O}} \DeclareUnicodeCharacter{022F}{\dotaccent{o}} \DeclareUnicodeCharacter{0232}{\=Y} \DeclareUnicodeCharacter{0233}{\=y} \DeclareUnicodeCharacter{0237}{\dotless{j}} \DeclareUnicodeCharacter{02DB}{\ogonek{ }} \DeclareUnicodeCharacter{1E02}{\dotaccent{B}} \DeclareUnicodeCharacter{1E03}{\dotaccent{b}} \DeclareUnicodeCharacter{1E04}{\udotaccent{B}} \DeclareUnicodeCharacter{1E05}{\udotaccent{b}} \DeclareUnicodeCharacter{1E06}{\ubaraccent{B}} \DeclareUnicodeCharacter{1E07}{\ubaraccent{b}} \DeclareUnicodeCharacter{1E0A}{\dotaccent{D}} \DeclareUnicodeCharacter{1E0B}{\dotaccent{d}} \DeclareUnicodeCharacter{1E0C}{\udotaccent{D}} \DeclareUnicodeCharacter{1E0D}{\udotaccent{d}} \DeclareUnicodeCharacter{1E0E}{\ubaraccent{D}} \DeclareUnicodeCharacter{1E0F}{\ubaraccent{d}} \DeclareUnicodeCharacter{1E1E}{\dotaccent{F}} \DeclareUnicodeCharacter{1E1F}{\dotaccent{f}} \DeclareUnicodeCharacter{1E20}{\=G} \DeclareUnicodeCharacter{1E21}{\=g} \DeclareUnicodeCharacter{1E22}{\dotaccent{H}} \DeclareUnicodeCharacter{1E23}{\dotaccent{h}} \DeclareUnicodeCharacter{1E24}{\udotaccent{H}} \DeclareUnicodeCharacter{1E25}{\udotaccent{h}} \DeclareUnicodeCharacter{1E26}{\"H} \DeclareUnicodeCharacter{1E27}{\"h} \DeclareUnicodeCharacter{1E30}{\'K} \DeclareUnicodeCharacter{1E31}{\'k} \DeclareUnicodeCharacter{1E32}{\udotaccent{K}} \DeclareUnicodeCharacter{1E33}{\udotaccent{k}} \DeclareUnicodeCharacter{1E34}{\ubaraccent{K}} \DeclareUnicodeCharacter{1E35}{\ubaraccent{k}} \DeclareUnicodeCharacter{1E36}{\udotaccent{L}} \DeclareUnicodeCharacter{1E37}{\udotaccent{l}} \DeclareUnicodeCharacter{1E3A}{\ubaraccent{L}} \DeclareUnicodeCharacter{1E3B}{\ubaraccent{l}} \DeclareUnicodeCharacter{1E3E}{\'M} \DeclareUnicodeCharacter{1E3F}{\'m} \DeclareUnicodeCharacter{1E40}{\dotaccent{M}} \DeclareUnicodeCharacter{1E41}{\dotaccent{m}} \DeclareUnicodeCharacter{1E42}{\udotaccent{M}} \DeclareUnicodeCharacter{1E43}{\udotaccent{m}} \DeclareUnicodeCharacter{1E44}{\dotaccent{N}} \DeclareUnicodeCharacter{1E45}{\dotaccent{n}} \DeclareUnicodeCharacter{1E46}{\udotaccent{N}} \DeclareUnicodeCharacter{1E47}{\udotaccent{n}} \DeclareUnicodeCharacter{1E48}{\ubaraccent{N}} \DeclareUnicodeCharacter{1E49}{\ubaraccent{n}} \DeclareUnicodeCharacter{1E54}{\'P} \DeclareUnicodeCharacter{1E55}{\'p} \DeclareUnicodeCharacter{1E56}{\dotaccent{P}} \DeclareUnicodeCharacter{1E57}{\dotaccent{p}} \DeclareUnicodeCharacter{1E58}{\dotaccent{R}} \DeclareUnicodeCharacter{1E59}{\dotaccent{r}} \DeclareUnicodeCharacter{1E5A}{\udotaccent{R}} \DeclareUnicodeCharacter{1E5B}{\udotaccent{r}} \DeclareUnicodeCharacter{1E5E}{\ubaraccent{R}} \DeclareUnicodeCharacter{1E5F}{\ubaraccent{r}} \DeclareUnicodeCharacter{1E60}{\dotaccent{S}} \DeclareUnicodeCharacter{1E61}{\dotaccent{s}} \DeclareUnicodeCharacter{1E62}{\udotaccent{S}} \DeclareUnicodeCharacter{1E63}{\udotaccent{s}} \DeclareUnicodeCharacter{1E6A}{\dotaccent{T}} \DeclareUnicodeCharacter{1E6B}{\dotaccent{t}} \DeclareUnicodeCharacter{1E6C}{\udotaccent{T}} \DeclareUnicodeCharacter{1E6D}{\udotaccent{t}} \DeclareUnicodeCharacter{1E6E}{\ubaraccent{T}} \DeclareUnicodeCharacter{1E6F}{\ubaraccent{t}} \DeclareUnicodeCharacter{1E7C}{\~V} \DeclareUnicodeCharacter{1E7D}{\~v} \DeclareUnicodeCharacter{1E7E}{\udotaccent{V}} \DeclareUnicodeCharacter{1E7F}{\udotaccent{v}} \DeclareUnicodeCharacter{1E80}{\`W} \DeclareUnicodeCharacter{1E81}{\`w} \DeclareUnicodeCharacter{1E82}{\'W} \DeclareUnicodeCharacter{1E83}{\'w} \DeclareUnicodeCharacter{1E84}{\"W} \DeclareUnicodeCharacter{1E85}{\"w} \DeclareUnicodeCharacter{1E86}{\dotaccent{W}} \DeclareUnicodeCharacter{1E87}{\dotaccent{w}} \DeclareUnicodeCharacter{1E88}{\udotaccent{W}} \DeclareUnicodeCharacter{1E89}{\udotaccent{w}} \DeclareUnicodeCharacter{1E8A}{\dotaccent{X}} \DeclareUnicodeCharacter{1E8B}{\dotaccent{x}} \DeclareUnicodeCharacter{1E8C}{\"X} \DeclareUnicodeCharacter{1E8D}{\"x} \DeclareUnicodeCharacter{1E8E}{\dotaccent{Y}} \DeclareUnicodeCharacter{1E8F}{\dotaccent{y}} \DeclareUnicodeCharacter{1E90}{\^Z} \DeclareUnicodeCharacter{1E91}{\^z} \DeclareUnicodeCharacter{1E92}{\udotaccent{Z}} \DeclareUnicodeCharacter{1E93}{\udotaccent{z}} \DeclareUnicodeCharacter{1E94}{\ubaraccent{Z}} \DeclareUnicodeCharacter{1E95}{\ubaraccent{z}} \DeclareUnicodeCharacter{1E96}{\ubaraccent{h}} \DeclareUnicodeCharacter{1E97}{\"t} \DeclareUnicodeCharacter{1E98}{\ringaccent{w}} \DeclareUnicodeCharacter{1E99}{\ringaccent{y}} \DeclareUnicodeCharacter{1EA0}{\udotaccent{A}} \DeclareUnicodeCharacter{1EA1}{\udotaccent{a}} \DeclareUnicodeCharacter{1EB8}{\udotaccent{E}} \DeclareUnicodeCharacter{1EB9}{\udotaccent{e}} \DeclareUnicodeCharacter{1EBC}{\~E} \DeclareUnicodeCharacter{1EBD}{\~e} \DeclareUnicodeCharacter{1ECA}{\udotaccent{I}} \DeclareUnicodeCharacter{1ECB}{\udotaccent{i}} \DeclareUnicodeCharacter{1ECC}{\udotaccent{O}} \DeclareUnicodeCharacter{1ECD}{\udotaccent{o}} \DeclareUnicodeCharacter{1EE4}{\udotaccent{U}} \DeclareUnicodeCharacter{1EE5}{\udotaccent{u}} \DeclareUnicodeCharacter{1EF2}{\`Y} \DeclareUnicodeCharacter{1EF3}{\`y} \DeclareUnicodeCharacter{1EF4}{\udotaccent{Y}} \DeclareUnicodeCharacter{1EF8}{\~Y} \DeclareUnicodeCharacter{1EF9}{\~y} \DeclareUnicodeCharacter{2013}{--} \DeclareUnicodeCharacter{2014}{---} \DeclareUnicodeCharacter{2018}{\quoteleft} \DeclareUnicodeCharacter{2019}{\quoteright} \DeclareUnicodeCharacter{201A}{\quotesinglbase} \DeclareUnicodeCharacter{201C}{\quotedblleft} \DeclareUnicodeCharacter{201D}{\quotedblright} \DeclareUnicodeCharacter{201E}{\quotedblbase} \DeclareUnicodeCharacter{2022}{\bullet} \DeclareUnicodeCharacter{2026}{\dots} \DeclareUnicodeCharacter{2039}{\guilsinglleft} \DeclareUnicodeCharacter{203A}{\guilsinglright} \DeclareUnicodeCharacter{20AC}{\euro} \DeclareUnicodeCharacter{2192}{\expansion} \DeclareUnicodeCharacter{21D2}{\result} \DeclareUnicodeCharacter{2212}{\minus} \DeclareUnicodeCharacter{2217}{\point} \DeclareUnicodeCharacter{2261}{\equiv} }% end of \utfeightchardefs % US-ASCII character definitions. \def\asciichardefs{% nothing need be done \relax } % Make non-ASCII characters printable again for compatibility with % existing Texinfo documents that may use them, even without declaring a % document encoding. % \setnonasciicharscatcode \other \message{formatting,} \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 very finicky about underfull hboxes, either. \hbadness = 6666 % Following George Bush, 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; % 7) physical page height; 8) physical page width. % % We also call \setleading{\textleading}, so the caller should define % \textleading. The caller should also set \parskip. % \def\internalpagesizes#1#2#3#4#5#6#7#8{% \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 % \ifpdf \pdfpageheight #7\relax \pdfpagewidth #8\relax % if we don't reset these, they will remain at "1 true in" of % whatever layout pdftex was dumped with. \pdfhorigin = 1 true in \pdfvorigin = 1 true in \fi % \setleading{\textleading} % \parindent = \defaultparindent \setemergencystretch } % @letterpaper (the default). \def\letterpaper{{\globaldefs = 1 \parskip = 3pt plus 2pt minus 1pt \textleading = 13.2pt % % If page is nothing but text, make it come out even. \internalpagesizes{607.2pt}{6in}% that's 46 lines {\voffset}{.25in}% {\bindingoffset}{36pt}% {11in}{8.5in}% }} % Use @smallbook to reset parameters for 7x9.25 trim size. \def\smallbook{{\globaldefs = 1 \parskip = 2pt plus 1pt \textleading = 12pt % \internalpagesizes{7.5in}{5in}% {-.2in}{0in}% {\bindingoffset}{16pt}% {9.25in}{7in}% % \lispnarrowing = 0.3in \tolerance = 700 \hfuzz = 1pt \contentsrightmargin = 0pt \defbodyindent = .5cm }} % Use @smallerbook to reset parameters for 6x9 trim size. % (Just testing, parameters still in flux.) \def\smallerbook{{\globaldefs = 1 \parskip = 1.5pt plus 1pt \textleading = 12pt % \internalpagesizes{7.4in}{4.8in}% {-.2in}{-.4in}% {0pt}{14pt}% {9in}{6in}% % \lispnarrowing = 0.25in \tolerance = 700 \hfuzz = 1pt \contentsrightmargin = 0pt \defbodyindent = .4cm }} % Use @afourpaper to print on European A4 paper. \def\afourpaper{{\globaldefs = 1 \parskip = 3pt plus 2pt minus 1pt \textleading = 13.2pt % % Double-side printing via postscript on Laserjet 4050 % prints double-sided nicely when \bindingoffset=10mm and \hoffset=-6mm. % To change the settings for a different printer or situation, adjust % \normaloffset until the front-side and back-side texts align. Then % do the same for \bindingoffset. You can set these for testing in % your texinfo source file like this: % @tex % \global\normaloffset = -6mm % \global\bindingoffset = 10mm % @end tex \internalpagesizes{673.2pt}{160mm}% that's 51 lines {\voffset}{\hoffset}% {\bindingoffset}{44pt}% {297mm}{210mm}% % \tolerance = 700 \hfuzz = 1pt \contentsrightmargin = 0pt \defbodyindent = 5mm }} % Use @afivepaper to print on European A5 paper. % From romildo@urano.iceb.ufop.br, 2 July 2000. % He also recommends making @example and @lisp be small. \def\afivepaper{{\globaldefs = 1 \parskip = 2pt plus 1pt minus 0.1pt \textleading = 12.5pt % \internalpagesizes{160mm}{120mm}% {\voffset}{\hoffset}% {\bindingoffset}{8pt}% {210mm}{148mm}% % \lispnarrowing = 0.2in \tolerance = 800 \hfuzz = 1.2pt \contentsrightmargin = 0pt \defbodyindent = 2mm \tableindent = 12mm }} % A specific text layout, 24x15cm overall, intended for A4 paper. \def\afourlatex{{\globaldefs = 1 \afourpaper \internalpagesizes{237mm}{150mm}% {\voffset}{4.6mm}% {\bindingoffset}{7mm}% {297mm}{210mm}% % % Must explicitly reset to 0 because we call \afourpaper. \globaldefs = 0 }} % Use @afourwide to print on A4 paper in landscape format. \def\afourwide{{\globaldefs = 1 \afourpaper \internalpagesizes{241mm}{165mm}% {\voffset}{-2.95mm}% {\bindingoffset}{7mm}% {297mm}{210mm}% \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. % \parseargdef\pagesizes{\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{\textleading}% % \dimen0 = #1\relax \advance\dimen0 by \voffset % \dimen2 = \hsize \advance\dimen2 by \normaloffset % \internalpagesizes{#1}{\hsize}% {\voffset}{\normaloffset}% {\bindingoffset}{44pt}% {\dimen0}{\dimen2}% }} % Set default to letter. % \letterpaper \message{and turning on texinfo input format.} \def^^L{\par} % remove \outer, so ^L can appear in an @comment % DEL is a comment character, in case @c does not suffice. \catcode`\^^? = 14 % Define macros to output various characters with catcode for normal text. \catcode`\"=\other \def\normaldoublequote{"} \catcode`\$=\other \def\normaldollar{$}%$ font-lock fix \catcode`\+=\other \def\normalplus{+} \catcode`\<=\other \def\normalless{<} \catcode`\>=\other \def\normalgreater{>} \catcode`\^=\other \def\normalcaret{^} \catcode`\_=\other \def\normalunderscore{_} \catcode`\|=\other \def\normalverticalbar{|} \catcode`\~=\other \def\normaltilde{~} % This macro is used to make a character print one way in \tt % (where it can probably be output as-is), 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\_} \let\realunder=_ % Subroutine for the previous macro. \def\_{\leavevmode \kern.07em \vbox{\hrule width.3em height.1ex}\kern .07em } \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}%$ font-lock fix % 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} % Used sometimes to turn off (effectively) the active characters even after % parsing them. \def\turnoffactive{% \normalturnoffactive \otherbackslash } \catcode`\@=0 % \backslashcurfont outputs one backslash character in current font, % as in \char`\\. \global\chardef\backslashcurfont=`\\ \global\let\rawbackslashxx=\backslashcurfont % let existing .??s files work % \realbackslash is an actual character `\' with catcode other, and % \doublebackslash is two of them (for the pdf outlines). {\catcode`\\=\other @gdef@realbackslash{\} @gdef@doublebackslash{\\}} % In texinfo, backslash is an active character; it prints the backslash % in fixed width font. \catcode`\\=\active % @ for escape char from now on. % The story here is that in math mode, the \char of \backslashcurfont % ends up printing the roman \ from the math symbol font (because \char % in math mode uses the \mathcode, and plain.tex sets % \mathcode`\\="026E). It seems better for @backslashchar{} to always % print a typewriter backslash, hence we use an explicit \mathchar, % which is the decimal equivalent of "715c (class 7, e.g., use \fam; % ignored family value; char position "5C). We can't use " for the % usual hex value because it has already been made active. @def@normalbackslash{{@tt @ifmmode @mathchar29020 @else @backslashcurfont @fi}} @let@backslashchar = @normalbackslash % @backslashchar{} is for user documents. % On startup, @fixbackslash assigns: % @let \ = @normalbackslash % \rawbackslash defines an active \ to do \backslashcurfont. % \otherbackslash defines an active \ to be a literal `\' character with % catcode other. We switch back and forth between these. @gdef@rawbackslash{@let\=@backslashcurfont} @gdef@otherbackslash{@let\=@realbackslash} % Same as @turnoffactive except outputs \ as {\tt\char`\\} instead of % the literal character `\'. % @def@normalturnoffactive{% @let"=@normaldoublequote @let$=@normaldollar %$ font-lock fix @let+=@normalplus @let<=@normalless @let>=@normalgreater @let\=@normalbackslash @let^=@normalcaret @let_=@normalunderscore @let|=@normalverticalbar @let~=@normaltilde @markupsetuplqdefault @markupsetuprqdefault @unsepspaces } % 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 turn back 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 (along with & and #) are made active for url-breaking, so need % active definitions as the normal characters. @def@normaldot{.} @def@normalquest{?} @def@normalslash{/} % These look ok in all fonts, so just make them not special. % @hashchar{} gets its own user-level command, because of #line. @catcode`@& = @other @def@normalamp{&} @catcode`@# = @other @def@normalhash{#} @catcode`@% = @other @def@normalpercent{%} @let @hashchar = @normalhash @c Finally, make ` and ' active, so that txicodequoteundirected and @c txicodequotebacktick work right in, e.g., @w{@code{`foo'}}. If we @c don't make ` and ' active, @code will not get them as active chars. @c Do this last of all since we use ` in the previous @catcode assignments. @catcode`@'=@active @catcode`@`=@active @markupsetuplqdefault @markupsetuprqdefault @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: @c vim:sw=2: @ignore arch-tag: e1b36e32-c96e-4135-a41a-0b2efa2ea115 @end ignore trueprint-5.4/doc/Makefile.in0000644000175000017500000005761612117066431013171 00000000000000# Makefile.in generated by automake 1.11.6 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ subdir = doc DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \ $(srcdir)/stamp-vti $(srcdir)/version.texi mdate-sh \ texinfo.tex ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = SOURCES = DIST_SOURCES = INFO_DEPS = $(srcdir)/trueprint.info am__TEXINFO_TEX_DIR = $(srcdir) DVIS = trueprint.dvi PDFS = trueprint.pdf PSS = trueprint.ps HTMLS = trueprint.html TEXINFOS = trueprint.texi TEXI2DVI = texi2dvi TEXI2PDF = $(TEXI2DVI) --pdf --batch MAKEINFOHTML = $(MAKEINFO) --html AM_MAKEINFOHTMLFLAGS = $(AM_MAKEINFOFLAGS) DVIPS = dvips am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac am__installdirs = "$(DESTDIR)$(infodir)" "$(DESTDIR)$(man1dir)" am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; am__vpath_adj = case $$p in \ $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \ *) f=$$p;; \ esac; am__strip_dir = f=`echo $$p | sed -e 's|^.*/||'`; am__install_max = 40 am__nobase_strip_setup = \ srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*|]/\\\\&/g'` am__nobase_strip = \ for p in $$list; do echo "$$p"; done | sed -e "s|$$srcdirstrip/||" am__nobase_list = $(am__nobase_strip_setup); \ for p in $$list; do echo "$$p $$p"; done | \ sed "s| $$srcdirstrip/| |;"' / .*\//!s/ .*/ ./; s,\( .*\)/[^/]*$$,\1,' | \ $(AWK) 'BEGIN { files["."] = "" } { files[$$2] = files[$$2] " " $$1; \ if (++n[$$2] == $(am__install_max)) \ { print $$2, files[$$2]; n[$$2] = 0; files[$$2] = "" } } \ END { for (dir in files) print dir, files[dir] }' am__base_list = \ sed '$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;$$!N;s/\n/ /g' | \ sed '$$!N;$$!N;$$!N;$$!N;s/\n/ /g' am__uninstall_files_from_dir = { \ test -z "$$files" \ || { test ! -d "$$dir" && test ! -f "$$dir" && test ! -r "$$dir"; } \ || { echo " ( cd '$$dir' && rm -f" $$files ")"; \ $(am__cd) "$$dir" && rm -f $$files; }; \ } man1dir = $(mandir)/man1 NROFF = nroff MANS = $(man_MANS) DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GREP = @GREP@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ man_MANS = trueprint.1 MAINTAINERCLEANFILES = Makefile.in info_TEXINFOS = trueprint.texi # We can make a trueprint.html, but this isn't done as part of a # normal distribution SUFFIXES = .html html_docs = trueprint.html all: all-am .SUFFIXES: .SUFFIXES: .html .dvi .info .pdf .ps .texi $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign doc/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign doc/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs .texi.info: restore=: && backupdir="$(am__leading_dot)am$$$$" && \ am__cwd=`pwd` && $(am__cd) $(srcdir) && \ rm -rf $$backupdir && mkdir $$backupdir && \ if ($(MAKEINFO) --version) >/dev/null 2>&1; then \ for f in $@ $@-[0-9] $@-[0-9][0-9] $(@:.info=).i[0-9] $(@:.info=).i[0-9][0-9]; do \ if test -f $$f; then mv $$f $$backupdir; restore=mv; else :; fi; \ done; \ else :; fi && \ cd "$$am__cwd"; \ if $(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir) \ -o $@ $<; \ then \ rc=0; \ $(am__cd) $(srcdir); \ else \ rc=$$?; \ $(am__cd) $(srcdir) && \ $$restore $$backupdir/* `echo "./$@" | sed 's|[^/]*$$||'`; \ fi; \ rm -rf $$backupdir; exit $$rc .texi.dvi: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2DVI) $< .texi.pdf: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ MAKEINFO='$(MAKEINFO) $(AM_MAKEINFOFLAGS) $(MAKEINFOFLAGS) -I $(srcdir)' \ $(TEXI2PDF) $< $(srcdir)/trueprint.info: trueprint.texi $(srcdir)/version.texi trueprint.dvi: trueprint.texi $(srcdir)/version.texi trueprint.pdf: trueprint.texi $(srcdir)/version.texi trueprint.html: trueprint.texi $(srcdir)/version.texi $(srcdir)/version.texi: $(srcdir)/stamp-vti $(srcdir)/stamp-vti: trueprint.texi $(top_srcdir)/configure @(dir=.; test -f ./trueprint.texi || dir=$(srcdir); \ set `$(SHELL) $(srcdir)/mdate-sh $$dir/trueprint.texi`; \ echo "@set UPDATED $$1 $$2 $$3"; \ echo "@set UPDATED-MONTH $$2 $$3"; \ echo "@set EDITION $(VERSION)"; \ echo "@set VERSION $(VERSION)") > vti.tmp @cmp -s vti.tmp $(srcdir)/version.texi \ || (echo "Updating $(srcdir)/version.texi"; \ cp vti.tmp $(srcdir)/version.texi) -@rm -f vti.tmp @cp $(srcdir)/version.texi $@ mostlyclean-vti: -rm -f vti.tmp maintainer-clean-vti: -rm -f $(srcdir)/stamp-vti $(srcdir)/version.texi .dvi.ps: TEXINPUTS="$(am__TEXINFO_TEX_DIR)$(PATH_SEPARATOR)$$TEXINPUTS" \ $(DVIPS) -o $@ $< uninstall-dvi-am: @$(NORMAL_UNINSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(dvidir)/$$f'"; \ rm -f "$(DESTDIR)$(dvidir)/$$f"; \ done uninstall-html-am: @$(NORMAL_UNINSTALL) @list='$(HTMLS)'; test -n "$(htmldir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -rf '$(DESTDIR)$(htmldir)/$$f'"; \ rm -rf "$(DESTDIR)$(htmldir)/$$f"; \ done uninstall-info-am: @$(PRE_UNINSTALL) @if test -d '$(DESTDIR)$(infodir)' && $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' --remove '$(DESTDIR)$(infodir)/$$relfile'"; \ if install-info --info-dir="$(DESTDIR)$(infodir)" --remove "$(DESTDIR)$(infodir)/$$relfile"; \ then :; else test ! -f "$(DESTDIR)$(infodir)/$$relfile" || exit 1; fi; \ done; \ else :; fi @$(NORMAL_UNINSTALL) @list='$(INFO_DEPS)'; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ relfile_i=`echo "$$relfile" | sed 's|\.info$$||;s|$$|.i|'`; \ (if test -d "$(DESTDIR)$(infodir)" && cd "$(DESTDIR)$(infodir)"; then \ echo " cd '$(DESTDIR)$(infodir)' && rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]"; \ rm -f $$relfile $$relfile-[0-9] $$relfile-[0-9][0-9] $$relfile_i[0-9] $$relfile_i[0-9][0-9]; \ else :; fi); \ done uninstall-pdf-am: @$(NORMAL_UNINSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(pdfdir)/$$f'"; \ rm -f "$(DESTDIR)$(pdfdir)/$$f"; \ done uninstall-ps-am: @$(NORMAL_UNINSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ for p in $$list; do \ $(am__strip_dir) \ echo " rm -f '$(DESTDIR)$(psdir)/$$f'"; \ rm -f "$(DESTDIR)$(psdir)/$$f"; \ done dist-info: $(INFO_DEPS) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; \ for base in $$list; do \ case $$base in \ $(srcdir)/*) base=`echo "$$base" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$base; then d=.; else d=$(srcdir); fi; \ base_i=`echo "$$base" | sed 's|\.info$$||;s|$$|.i|'`; \ for file in $$d/$$base $$d/$$base-[0-9] $$d/$$base-[0-9][0-9] $$d/$$base_i[0-9] $$d/$$base_i[0-9][0-9]; do \ if test -f $$file; then \ relfile=`expr "$$file" : "$$d/\(.*\)"`; \ test -f "$(distdir)/$$relfile" || \ cp -p $$file "$(distdir)/$$relfile"; \ else :; fi; \ done; \ done mostlyclean-aminfo: -rm -rf trueprint.aux trueprint.cp trueprint.cps trueprint.fn trueprint.fns \ trueprint.ky trueprint.kys trueprint.log trueprint.pg \ trueprint.pgs trueprint.tmp trueprint.toc trueprint.tp \ trueprint.tps trueprint.vr trueprint.vrs clean-aminfo: -test -z "trueprint.dvi trueprint.pdf trueprint.ps trueprint.html" \ || rm -rf trueprint.dvi trueprint.pdf trueprint.ps trueprint.html maintainer-clean-aminfo: @list='$(INFO_DEPS)'; for i in $$list; do \ i_i=`echo "$$i" | sed 's|\.info$$||;s|$$|.i|'`; \ echo " rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]"; \ rm -f $$i $$i-[0-9] $$i-[0-9][0-9] $$i_i[0-9] $$i_i[0-9][0-9]; \ done install-man1: $(man_MANS) @$(NORMAL_INSTALL) @list1=''; \ list2='$(man_MANS)'; \ test -n "$(man1dir)" \ && test -n "`echo $$list1$$list2`" \ || exit 0; \ echo " $(MKDIR_P) '$(DESTDIR)$(man1dir)'"; \ $(MKDIR_P) "$(DESTDIR)$(man1dir)" || exit 1; \ { for i in $$list1; do echo "$$i"; done; \ if test -n "$$list2"; then \ for i in $$list2; do echo "$$i"; done \ | sed -n '/\.1[a-z]*$$/p'; \ fi; \ } | while read p; do \ if test -f $$p; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; echo "$$p"; \ done | \ sed -e 'n;s,.*/,,;p;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \ -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,' | \ sed 'N;N;s,\n, ,g' | { \ list=; while read file base inst; do \ if test "$$base" = "$$inst"; then list="$$list $$file"; else \ echo " $(INSTALL_DATA) '$$file' '$(DESTDIR)$(man1dir)/$$inst'"; \ $(INSTALL_DATA) "$$file" "$(DESTDIR)$(man1dir)/$$inst" || exit $$?; \ fi; \ done; \ for i in $$list; do echo "$$i"; done | $(am__base_list) | \ while read files; do \ test -z "$$files" || { \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(man1dir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(man1dir)" || exit $$?; }; \ done; } uninstall-man1: @$(NORMAL_UNINSTALL) @list=''; test -n "$(man1dir)" || exit 0; \ files=`{ for i in $$list; do echo "$$i"; done; \ l2='$(man_MANS)'; for i in $$l2; do echo "$$i"; done | \ sed -n '/\.1[a-z]*$$/p'; \ } | sed -e 's,.*/,,;h;s,.*\.,,;s,^[^1][0-9a-z]*$$,1,;x' \ -e 's,\.[0-9a-z]*$$,,;$(transform);G;s,\n,.,'`; \ dir='$(DESTDIR)$(man1dir)'; $(am__uninstall_files_from_dir) tags: TAGS TAGS: ctags: CTAGS CTAGS: distdir: $(DISTFILES) @list='$(MANS)'; if test -n "$$list"; then \ list=`for p in $$list; do \ if test -f $$p; then d=; else d="$(srcdir)/"; fi; \ if test -f "$$d$$p"; then echo "$$d$$p"; else :; fi; done`; \ if test -n "$$list" && \ grep 'ab help2man is required to generate this page' $$list >/dev/null; then \ echo "error: found man pages containing the \`missing help2man' replacement text:" >&2; \ grep -l 'ab help2man is required to generate this page' $$list | sed 's/^/ /' >&2; \ echo " to fix them, install help2man, remove and regenerate the man pages;" >&2; \ echo " typically \`make maintainer-clean' will remove them" >&2; \ exit 1; \ else :; fi; \ else :; fi @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done $(MAKE) $(AM_MAKEFLAGS) \ top_distdir="$(top_distdir)" distdir="$(distdir)" \ dist-info check-am: all-am check: check-am all-am: Makefile $(INFO_DEPS) $(MANS) installdirs: for dir in "$(DESTDIR)$(infodir)" "$(DESTDIR)$(man1dir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." -test -z "$(MAINTAINERCLEANFILES)" || rm -f $(MAINTAINERCLEANFILES) clean: clean-am clean-am: clean-aminfo clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -f Makefile distclean-am: clean-am distclean-generic dvi: dvi-am dvi-am: $(DVIS) html: html-am html-am: $(HTMLS) info: info-am info-am: $(INFO_DEPS) install-data-am: install-info-am install-man install-dvi: install-dvi-am install-dvi-am: $(DVIS) @$(NORMAL_INSTALL) @list='$(DVIS)'; test -n "$(dvidir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(dvidir)'"; \ $(MKDIR_P) "$(DESTDIR)$(dvidir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(dvidir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(dvidir)" || exit $$?; \ done install-exec-am: install-html: install-html-am install-html-am: $(HTMLS) @$(NORMAL_INSTALL) @list='$(HTMLS)'; list2=; test -n "$(htmldir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p" || test -d "$$p"; then d=; else d="$(srcdir)/"; fi; \ $(am__strip_dir) \ d2=$$d$$p; \ if test -d "$$d2"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(htmldir)/$$f'"; \ $(MKDIR_P) "$(DESTDIR)$(htmldir)/$$f" || exit 1; \ echo " $(INSTALL_DATA) '$$d2'/* '$(DESTDIR)$(htmldir)/$$f'"; \ $(INSTALL_DATA) "$$d2"/* "$(DESTDIR)$(htmldir)/$$f" || exit $$?; \ else \ list2="$$list2 $$d2"; \ fi; \ done; \ test -z "$$list2" || { echo "$$list2" | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(htmldir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(htmldir)" || exit $$?; \ done; } install-info: install-info-am install-info-am: $(INFO_DEPS) @$(NORMAL_INSTALL) @srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`; \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(infodir)'"; \ $(MKDIR_P) "$(DESTDIR)$(infodir)" || exit 1; \ fi; \ for file in $$list; do \ case $$file in \ $(srcdir)/*) file=`echo "$$file" | sed "s|^$$srcdirstrip/||"`;; \ esac; \ if test -f $$file; then d=.; else d=$(srcdir); fi; \ file_i=`echo "$$file" | sed 's|\.info$$||;s|$$|.i|'`; \ for ifile in $$d/$$file $$d/$$file-[0-9] $$d/$$file-[0-9][0-9] \ $$d/$$file_i[0-9] $$d/$$file_i[0-9][0-9] ; do \ if test -f $$ifile; then \ echo "$$ifile"; \ else : ; fi; \ done; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(infodir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(infodir)" || exit $$?; done @$(POST_INSTALL) @if $(am__can_run_installinfo); then \ list='$(INFO_DEPS)'; test -n "$(infodir)" || list=; \ for file in $$list; do \ relfile=`echo "$$file" | sed 's|^.*/||'`; \ echo " install-info --info-dir='$(DESTDIR)$(infodir)' '$(DESTDIR)$(infodir)/$$relfile'";\ install-info --info-dir="$(DESTDIR)$(infodir)" "$(DESTDIR)$(infodir)/$$relfile" || :;\ done; \ else : ; fi install-man: install-man1 install-pdf: install-pdf-am install-pdf-am: $(PDFS) @$(NORMAL_INSTALL) @list='$(PDFS)'; test -n "$(pdfdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(pdfdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(pdfdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(pdfdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(pdfdir)" || exit $$?; done install-ps: install-ps-am install-ps-am: $(PSS) @$(NORMAL_INSTALL) @list='$(PSS)'; test -n "$(psdir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(psdir)'"; \ $(MKDIR_P) "$(DESTDIR)$(psdir)" || exit 1; \ fi; \ for p in $$list; do \ if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \ echo "$$d$$p"; \ done | $(am__base_list) | \ while read files; do \ echo " $(INSTALL_DATA) $$files '$(DESTDIR)$(psdir)'"; \ $(INSTALL_DATA) $$files "$(DESTDIR)$(psdir)" || exit $$?; done installcheck-am: maintainer-clean: maintainer-clean-am -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-aminfo mostlyclean-generic \ mostlyclean-libtool mostlyclean-vti pdf: pdf-am pdf-am: $(PDFS) ps: ps-am ps-am: $(PSS) uninstall-am: uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-man uninstall-pdf-am uninstall-ps-am uninstall-man: uninstall-man1 .MAKE: install-am install-strip .PHONY: all all-am check check-am clean clean-aminfo clean-generic \ clean-libtool dist-info distclean distclean-generic \ distclean-libtool distdir dvi dvi-am html html-am info info-am \ install install-am install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-man1 install-pdf install-pdf-am install-ps \ install-ps-am install-strip installcheck installcheck-am \ installdirs maintainer-clean maintainer-clean-aminfo \ maintainer-clean-generic maintainer-clean-vti mostlyclean \ mostlyclean-aminfo mostlyclean-generic mostlyclean-libtool \ mostlyclean-vti pdf pdf-am ps ps-am uninstall uninstall-am \ uninstall-dvi-am uninstall-html-am uninstall-info-am \ uninstall-man uninstall-man1 uninstall-pdf-am uninstall-ps-am .texi.html: $(MAKEINFO) --html $< # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: trueprint-5.4/doc/stamp-vti0000644000175000017500000000014112117066453012754 00000000000000@set UPDATED 23 February 2003 @set UPDATED-MONTH February 2003 @set EDITION 5.4 @set VERSION 5.4 trueprint-5.4/doc/trueprint.texi0000644000175000017500000011071007625761737014057 00000000000000\input texinfo @c -*-texinfo-*- @c %**start of header @setfilename trueprint.info @settitle Trueprint @c %**end of header @headings double @include version.texi @dircategory Miscellaneous @direntry * Trueprint: (trueprint). Format & print text files on a printer @end direntry @setchapternewpage odd @ifinfo This is the documentation for GNU Trueprint Copyright @copyright{} 1999 Free Software Foundation Inc. @end ifinfo @titlepage @sp 10 @title Trueprint @subtitle Edition @value{EDITION}, @value{UPDATED} @author Lezz Giles @author @email{giles@@world.std.com} @page @vskip 0pt plus 1filll Copyright @copyright{} 1999 Free Software Foundation Inc. @end titlepage @node Top, Overview, , (dir) @top Trueprint Trueprint is a program for printing source code and other text files. @menu * Overview:: Trueprint in brief. * Installing Trueprint:: How to install Trueprint. * Languages:: How Trueprint handles source files for different computer languages. * Page Formatting:: Getting the right number of pages on a sheet. * Page Furniture:: Headers, footers and other page decorations. * Text Formatting:: Font size, line breaks, and other text formatting tweaks. * Output Options:: Sending the output to the right place. * Print Selection:: Printing just the stuff you want. * Miscellaneous Features:: All the stuff that doesn't belong anywhere else. * Options and Environment Variables List:: A reference list of all options. * Option Index:: Index to options * Concept Index:: Index to concepts throughout this manual @end menu @node Overview, Installing Trueprint, Top, Top @chapter Overview @cindex flower @cindex smell @cindex overview What is Trueprint? Trueprint is an ugly flower that smells beautiful. Trueprint is intended to be the only printing program you will ever need to print your program source code and other text files. It tries to achieve this by being simple to use, providing powerful features, and being intelligent enough to provide those features when you need them. Trueprint knows about common computer languages and will select features appropriate to each language. For example if the language contains functions then Trueprint will generate a function index. And if the language contains the concept of braces then Trueprint will include a braces depth count in the left-hand margin. If you need to customize the appearance of the printed output then you can use options to turn any of Trueprint's features on or off. For example you can specify that the output be printed landscape, two-up, using an eight-point font with line numbers. By setting an environment variable you can create personal defaults for Trueprint which will override the language defaults and which will in turn be overridden by the command line options. Trueprint knows about the printers available on your system via a special @code{printers} file. This file tells it how large a page is and whether the printer is double or single sided. Using this information, Trueprint can format your output appropriately. If there's anything that Trueprint doesn't do, you are welcome to change the tool itself - just remember that it's covered by the GPL and be sure to send a copy of the changes to @email{enhance-trueprint@@gnu.org}! The original author and current maintainer of trueprint is Lezz Giles. His email addresses at the time of writing are @email{gilesfamily@@mediaone.net}, @email{lgiles@@avici.com}, and @email{giles@@world.std.com}. @node Installing Trueprint, Languages, Overview, Top @chapter Installing Trueprint Installing Trueprint is almost as simple as installing any well-behaved GNU program. For details, read the README file that comes with the package. This section provides an overview of the process, plus details of the @code{printers} file. @section Installation Overview @cindex installing @cindex invoking make @cindex testing the installation @cindex make install @cindex make test In the simplest case, assuming you want to install trueprint into /usr/local/bin, installing trueprint is just a matter of five short steps: @itemize @bullet @item @code{./configure} @item @code{make} @item @code{make test} @item Update the printers file with your printer information. @item @code{make install} @end itemize If you want to change the installation root directory from @code{/usr/local} to, for example, @code{/usr} (so that the executable would be put into @code{/usr/bin/trueprint}) then just pass the new root directory to @code{./configure} using @code{--prefix}, e.g. @code{./configure --prefix=/usr}. If the tests fail then cd to the tests subdirectory and look at the appropriate @code{.dif} file. If you can't work out what's gone wrong then report the problem to @email{bug-trueprint@@gnu.org}. @section The @code{printers} file @cindex printers file @cindex printer specification @cindex printer queues The printers file is the most complicated part of Trueprint. Put simply, it contains two lists: a list of printer types, and a list of the printers at your site. The list of printer types is long (well, actually it's fairly short) and it should contain the most common office printers. The list of printers in the distribution printers file is just a set of example entries - you should delete these examples and replace them with your own printer information. An example type entry is: @example type:Apple Laswerwriter II:1: 15:597:784:8 @end example The first field just specifies this as a @code{type} entry. The second field contains the printer type name. Whitespace is significant, so there shouldn't be any spaces between the start and end of the name, and the colons. The third field is 1 for a single-sided printer and 2 for a double-sided printer. The final four fields give the left, right, top and bottom margins respectively in points from the bottom left corner of the paper; more specifically they are the coordinates of the bounding box that the postscript engine on the printer can print in. The first three fields are typically easy to fill in; however the final four fields need to be calculated for each printer type. Fortunately the postscript interpreter knows what the coordinates are - it's just a matter of asking it nicely, and the file @code{testprint} contains a little postscript program that will do just that. If you print @code{testprint} using either @code{lpr} or @code{lp} then it will print out the four numbers needed in the @code{printers} file (on the other hand, if it simply prints the contents of the file then either your printer is not configured properly or it isn't a postscript printer - you'll need to rectify the situation before you can use Trueprint on that printer). The second half of the file contains printer entries, for example: @example printer:pr2-simp:HP Laserjet 8000 simplex @end example Once again, the first entry simply specifies that this is a @code{printer} entry. The second entry contains the printer queue name as known to your operating system (i.e. the value you would pass to @code{lp} or @code{lpr}). The third field contains the appropriate printer type name; once again whitespace is important so make sure there are no trailing space or tab characters at the end of the line. If you have two queues set up to one printer, one for single-sided output and one for double-sided output, simply set up two printer types. Similarly if you have multiple queues for the same printer for different paper sizes. @node Languages, Page Formatting, Installing Trueprint, Top @chapter Languages @cindex languages @cindex language defaults @cindex c language @cindex verilog @cindex c++ @cindex shell @cindex pascal @cindex perl @cindex java @cindex plain text @cindex pseudo C @cindex listing files @cindex report format @cindex filename extensions Different programming languages have different features and look their best with different formats. Since Trueprint tries to be all things to all people, it understands a number of different languages and tries to accomodate all of them. In this version Trueprint understands: @itemize @bullet @item C @item Verilog @item C++ @item Shell @item Pascal @item Perl @item Java @end itemize It also understands some other formats: @itemize @bullet @item Plain text @item Pseudo C @item Listing files @item A special format called "report format" @end itemize Not all of the languages are fully supported. C is well supported, but Java is only minimally supported. The language support is implemented in the @code{lang_*.c} files - if you're not happy with the level of support for your favorite language just improve - or add - it! @findex language There are a couple of ways that Trueprint can find out what type of language a file contains. It can look at the filename suffix, or it can be told using the @code{--language} option. The details are: @multitable @columnfractions .2 .2 .6 @item @emph{Language} @tab @emph{suffix} @tab @emph{--language option} @item C @tab .c .h @tab --language=c @item Verilog @tab .v @tab --language=v @item C++ @tab .cxx .cpp .cc .C .hpp .H @tab --language=cxx @item Shell @tab .sh @tab --language=sh @item Pascal @tab .pas @tab --language=pascal @item Perl @tab .pl @tab --language=perl @item Java @tab .java @tab --language=java @item Plain text @tab default @tab --language=text @item Pseudo C @tab .pc .ph @tab --language=pseudoc @item Listing @tab .lst @tab --language=list @item Report format @tab .rep @tab --language=report @end multitable For most of the languages, Trueprint uses the language to work out where comments are (so it can print them in italics) and where the function names are (so it can print them in bold and include them in the function index). However there are some special features for some of the languages: Pseudo C is like C, except it has a more forgiving syntax. In particular it ignores strings, so if you leave off a closing quote then pseudo C will print out using a vaguely sensible format. Pseudo C is intended for printing code that doesn't yet compile. Listing format assumes very wide lines and a fixed page length of sixty-six characters, so it turns off line-wrap and sets the page length appropriately. Report format uses a few special characters: anything between ^A and ^E is printed in bold and included in the function index, and anything between a pair of ^Cs is printed in italics. @node Page Formatting, Page Furniture, Languages, Top @chapter Page Formatting @cindex page formatting @cindex portrait @cindex landscape @cindex single-sided @cindex double-sided @cindex one-up @cindex two-up @cindex two-up with small font @cindex four-up @cindex holepunch @cindex holepunch at top of page @cindex top holepunch There are a few options that you can use to adjust the overall page formatting. Most of these options are pretty self-explanatory. @findex portrait @findex landscape For portrait printing use @code{--portrait}, and for landscape printing use @code{--landscape}. @findex single-sided @findex double-sided To force the printer to print single-sided use @code{--single-sided}, and to try to force double-sided printing use @code{--double-sided}. These options also affect headers and footers, so forcing @code{--double-sided} on a single-sided printer will result in odd-looking headers and footers. Also since Trueprint tries to start each file on a new sheet of paper, specifying @code{--double-sided} forces occasional pages with no content. @findex one-up @findex two-up @findex two-tall-up @findex four-up To print one page of output on one physical sheet, the default, use @code{--one-up}. To print two-up, i.e. two logical pages on one sheet (side-by-side for portrait or one over the other for landscape) use @code{--two-up}. And to print four logical pages on each sheet (and to help ruin your eyesight!) use @code{--four-up}. There is another mode called @code{two-tall-up} which prints two logical pages on each sheet at four-up pointsize - for portrait format each logical page is very tall and narrow, and for landscape format each logical page is very wide. @findex rotate-alternate-sheets @findex no-rotate-alternate-sheets Sometimes in order to get the best results from a double-sided printer you want to rotate the back side of every sheet by 180 degrees. The option @code{--rotate-alternate-sheets} will do this. @findex holepunch @findex no-holepunch @findex top-holepunch @findex no-top-holepunch To leave a gap down the left-hand-side of each physical page so that you can punch holes in the page without punching out any information, use @code{--holepunch}, and to leave a gap at the top of the page (if you want to punch holes at the top) use @code{--top-holepunch}. Options @code{--no-holepunch} and @code{no-top-holepunch} exist to override these if they've been set up as defaults. @node Page Furniture, Text Formatting, Page Formatting, Top @chapter Page Furniture @cindex page furniture @cindex line numbers @cindex braces depth @cindex indentation @cindex nostalgia @cindex gray bands Page furniture refers to the bits and pieces scattered around the edge of each page. It includes things like headers and footers, line numbers, and so on. @findex line-numbers @findex no-line-numbers @findex braces-depth @findex no-braces-depth The left-hand side of each page can include two columns of information: line numbers and a count of the current braces depth. Line numbers are normally included, but they can be forced on with @code{--line-numbers} and forced off with @code{--no-line-numbers}. The braces depth count is normally only turned on for languages that have the concept of braces (e.g. C or Java); it can be explicitly turned on with @code{--braces-depth} or it can be turned off with @code{--no-braces-depth}. @findex gray-bands @findex no-gray-bands If you are nostalgic for the old line-printer paper with gray or green bands running across each page you can turn this on with @code{--gray-bands @var{number}} where @var{number} is the width of the bands. For example @code{--gray-bands 3} would print light gray bands three lines deep all the way down the page. Naturally you can force this off with @code{--no-gray-bands}. @section Headers and Footers @cindex headers @cindex footers @cindex message string @cindex string format characters @cindex header string format @cindex footer string format @cindex message string format @findex left-header @findex center-header @findex right-header @findex left-footer @findex center-footer @findex right-footer @findex headers @findex footers @findex no-headers @findex no-footers Headers and footers are printed in boxes at the top and bottom of each page. There are three header strings and three footer strings, and each can be a mixture of constant strings or % escapes. The strings are set with @code{--left-header=@var{string}}, @code{--center-header=@var{string}}, @code{--right-header=@var{string}}, @code{--left-footer=@var{string}}, @code{--center-footer=@var{string}}, and @code{--right-footer=@var{string}}. If you want to turn off either headers or footers you can use @code{--no-headers} or @code{--no-footers}, and of course you can force them on with @code{--headers} and @code{--footers}. If you're printing double-sided then the left and right headers and footers are swapped on every second page. @findex page-furniture-lines @findex no-page-furniture-lines Normally headers and footers have a line drawn around them and a line is also drawn down the left side of each page. By specifying @code{--no-page-furniture-lines} these lines are not drawn. In fact if you turn off headers, footers, line count and braces depth then no page furniture will be drawn at all, i.e. @code{--no-page-furniture-lines --no-headers --no-footers --no-braces-depth --no-line-numbers}. @findex message There is also an optional message string that is printed across the middle of each page in a very large, light gray font. You can use this message to say things like @samp{draft} or @samp{top secret}. Use @code{--message=@var{string}} to set the message. There are quite a few % escapes that you can use inside the header, footer and message strings: @table @code @item %% Print a simple %. @item %m Print the current month of the year as a number, e.g. 05. @item %d Print the current day of the month, e.g. 01. @item %y Print the current year, e.g. 1999 @item %D Print the date in the format mm/dd/yy. @item %L Print the date and time in long format, e.g. Fri Oct 8 11:49:51 1999 @item %c Print the last modified date of the current file in the format mm/dd/yy. @item %C Print the last modified date and time of the current file in long format, e.g. Fri Oct 8 11:49:51 1999 @item %H Print the current hour. @item %M Print the current minute. @item %S Print the current second. @item %T Print the time in the format HH:MM:SS. @item %j Print the day of the year, e.g. 095. @item %w Print the day of the week, e.g. Sunday. @item %a Print the abbreviated day of the week, e.g. Sun. @item %h Print the abbreviated month name, e.g. Mar. @item %r Print the time in am/pm notation, e.g. 10:45pm. @item %p Print the page number in the current file. @item %P Print the overall page number. @item %f Print the total number of pages of the current file. @item %F Print the total number of pages. @item %n Print the current filename. @item %N Print the current function name. @item %l Print the username of the current user. @end table The default strings are: @multitable {@code{center-header}} {@code{Page %P of %Flskdfj}} @item @code{left-header} @tab @code{%L} @item @code{center-header} @tab @code{%N} @item @code{right-header} @tab @code{Page %P of %F} @item @code{left-footer} @tab @code{%L} @item @code{center-footer} @tab @code{%n %p} @item @code{right-footer} @tab @code{Page %P of %F} @end multitable @node Text Formatting, Output Options, Page Furniture, Top @chapter Text Formatting @cindex text formatting @cindex format @section Page breaks @cindex page breaks @cindex formfeed character @cindex function page breaks @cindex page breaks after functions @cindex control-L There are three places that Trueprint can include page breaks: at the end of a function (assuming the current language has functions), when it finds a form-feed character (control-L), and at the end of each file. @findex page-break-after-function @findex no-page-break-after-function To force on page breaks at the end of functions use @code{--page-break-after-function}. The default behaviour, to not break the page at the end of a function, can be forced with @code{--no-page-break-after-function}. @findex new-sheet-after-file Normally Trueprint will print each file on a seperate sheet of paper; however if you're printing a lot of small files four-up on a duplex printer then this can waste a lot of paper. Use @code{--no-new-sheet-after-file} to tell Trueprint to just start a new page at the end of a file. This option has no effect for one-up output. @findex form-feeds @findex ignore-form-feeds You can force Trueprint to expand form-feeds to a new page with @code{--form-feeds} and, of course, you can turn it off with @code{--ignore-form-feeds}. @section Line wrap @cindex line wrap @cindex intelligent line wrap @cindex line breaks @findex line-wrap @findex no-line-wrap @findex intelligent-line-wrap @findex no-intelligent-line-wrap @findex minimum-line-length By default Trueprint will wrap lines that are too long for the page. It will try to break the lines at intelligent locations, for example at a space character, and it will print the remainder of the line right-justified. If you don't like this then you can turn off line-wrap with @code{--no-line-wrap}, or you can set the line-wrap column explicitly with @code{--line-wrap=@var{column}}. You can also tell Trueprint to wrap lines at exactly a specific column, i.e. to stop trying to be clever, with @code{--no-intelligent-line-wrap}. Of course you can force the feature on with @code{--intelligent-line-wrap}. And if you want to use intelligent line-wrap but you want to ensure that you don't end up with incredibly short lines then you can set the minimum line length with @code{--minimum-line-length=@var{number}}. @section Page length and pointsize @cindex page length @cindex pointsize @cindex text size @cindex leading @cindex line gap @cindex page length @findex pointsize The default pointsize used by Trueprint is 10. Of course, this is reduced appropriately if you're printing two-up or four-up. You can set the pointsize explicitly with @code{--pointsize=@var{number}}, although bear in mind that the pointsize will still be scaled down for two-up or four-up. @findex leading In the old days of printing, strips of lead were used to seperate the lines of text. If you wanted more seperation you included more strips of lead. Trueprint is nothing if not traditional. The default leading (pronounced @samp{ledding}) is one point, but you can increase (or decrease) it with @code{--leading=@var{number}}. Not suprisingly you can't specify a negative number. @findex page-length You can set the overall page length with @code{--page-length=@var{length}}. Trueprint will set the point size appropriately. Unfortunately, since there are a limited number of pointsizes that Trueprint can chose from (e.g. it can't select 8.35), using this option may result in a blank space at the bottom of each page. This option is best used if your file naturally breaks into pages of a specific length. You may also want to turn off line-wrap so that long lines don't mess up your carefully formatted output. @section Tab size @cindex tab size @findex tabsize The default tab size is eight characters. If this eats up too many columns for you, then you can set it with @code{--tabsize=@var{number}}. @node Output Options, Print Selection, Text Formatting, Top @chapter Output Options @cindex output @cindex printer destination @cindex $PRINTER @cindex lp @cindex lpr @cindex printing multiple copies @cindex copies @cindex postscript @cindex saving postscript @cindex file output @cindex output file @findex printer By default Trueprint will simply send the postscript output to @code{lp} or @code{lpr} (depending on the ancestry of your version of Unix), and it will explicitly set the destination to the value of the environment variable @code{$PRINTER}. You can use @code{--printer=@var{printer}} to send the print job to another printer. If you like @code{lp} options then you can also say @code{-P @var{printer}}, or if you are a fan of System V then you can say @code{-d @var{printer}} (almost every Trueprint option has a single-character equivalent - I only mention these two explicitly because they are used exactly the same way as the options to @code{lpr} and @code{lp}). @findex copies If you want to print multiple copies then just use @code{--copies=@var{number}}. @findex output @findex redirect If you want to save the postscript output then you can redirect it to a file using @code{--output=@var{filename}}. If you use @code{-} for the filename then the postscript will be sent to stdout. If you use @code{--redirect-output} then the output will be sent to a file named after the first parameter with the suffix @code{.ps}. The @code{--redirect-output} option overrides the @code{--output=@var{filename}} option, and of course there is a @code{--no-redirect-output} option to turn it off. @node Print Selection, Miscellaneous Features, Output Options, Top @chapter Print Selection @cindex cover sheet @cindex file index @cindex function index @cindex body @cindex selecting pages to print A Trueprint print job can contain a reasonably long list of pages: @itemize @bullet @item A cover sheet, @item a file index, @item a function index, @item and the files. @end itemize Each of these can be explicitly disabled or enabled: @findex function-index @findex no-function-index @findex file-index @findex no-file-index @findex cover-sheet @findex no-cover-sheet @findex print-body @findex no-print-body @multitable @columnfractions .5 .5 @item @code{--no-cover-sheet} @tab @code{--cover-sheet} @item @code{--no-file-index} @tab @code{--file-index} @item @code{--no-function-index} @tab @code{--function-index} @item @code{--no-print-body} @tab @code{--print-body} @end multitable @findex print-pages In addition there is a mechanism for printing only a subset of the pages, by using @code{--print-pages=@var{selection}}, where selection consists of a comma-seperated list of page selections: @table @code @item @var{number} Print the specific page. @item @var{number}-@var{number} Print all pages between, and including, the specified pages. @item @var{function-name} Print all pages that include @var{function-name}. @item d Print all pages that have changed (this is only useful with the @code{--diff} (@pxref{Miscellaneous Features}) option. @item D Print all pages containing functions that have changed (this is only useful with the @code{--diff} (@pxref{Miscellaneous Features}) option. @item f Print the function index. @item F Print the file index. @end table For example, @code{--print-pages=1-5,main,f} will print the function index, pages 1 to 5, and all the pages for the function @code{main}. @findex prompt If you specify @code{--prompt} then Trueprint will prompt you for each page, whether or not it should print that page. It will give you information such as the current filename, current functionname, page number, and so on. The possible responses are: @table @code @item y Print this page. @item y@var{number} Print @var{number} pages. @item y* Print all the remaining pages. @item n Skip this page @item n@var{number} Skip @var{number} pages. @item n* Skip all the remaining pages. @item p@var{selection} Print all remaining pages that match @var{selection}, where @var{selection} is in the format defined above. @item ? Print a help message. @end table @findex no-prompt Of course, you can force the prompting feature off with @code{--no-prompt}. @node Miscellaneous Features, Options and Environment Variables List, Print Selection, Top @chapter Miscellaneous Features @section Diff-marking @cindex diff @cindex comparing with old version @cindex marking differences One of the more obscure but more useful features of Trueprint is the ability to highlight differences between two versions of sets of files. Added lines are shown in bold, while deleted lines are shown struck-out. @findex diff You specify the old version of the file or files with @code{--diff=@var{pathname}}. If @var{pathname} suffixed with the current filename is a valid file then the differences between @var{pathname}/@var{filename} are displayed. Alternatively, if @var{pathname} is a file and you're printing one file, then the differences between @var{pathname} and the current file are displayed. Some examples: @example trueprint --diff=../old- this.c that.c @end example will print the differences between ../old-this.c and this.c, and ../old-that.c and that.c. @example trueprint --diff=../old/ this.c that.c @end example will print the differences between ../old/this.c and this.c, and ../old/that.c and that.c. Note that the trailing / is important. @example trueprint --diff=this.c that.c @end example will print the differences between this.c and that.c. @section Help and Version Information @cindex help messages @cindex version information @findex help Use @code{--help} for general on-line help information. If you give the @code{--help} option a parameter it will give you more detailed information about a specific area - use @code{--help} for a list of the areas. @findex version Use @code{--version} to see the current version of Trueprint. @section Setting personal defaults @cindex default options @cindex personal defaults @cindex setting defaults When Trueprint starts it uses four sets of options: @itemize @bullet @item Hard-coded defaults. @item Language-specific defaults. @item Options taken from the environment variable @code{$TP_OPTS}. @item Command-line options. @end itemize Each set of options overrides the earlier sets, so command-line options override all other sets. If you want to set some personal default options, then simply set the environment variable @code{$TP_OPTS}. @section Postscript level @cindex postscript level It is possible to request that trueprint generate level 1 or level 2 postscript. Level 2 is the default. If level 2 is set then trueprint will send the appropriate instructions to select the proper paper size. You shouldn't normally need to use this option. To select postscript level 1 use @code{--ps-level-one} and to select postscript level 2 use @code{--ps-level-two}. In the future this option may be used to turn on more features. @section Environment Information @cindex environment variables @findex ignore-environment @findex use-environment By default Trueprint uses environment variables and the current username. You can force it to ignore these by using @code{--ignore-environment}. In practice this is only used when running the tests during installation. For the sake of completeness there is an option @code{--use-environment}. @section Debugging @cindex debugging @findex debug Trueprint has built-in debugging messages that can be useful for tracking down problems. The debugging messages are turned on with @code{--debug=@var{string}}, where @var{string} is a series of letter/digit pairs. Each letter turns on a set of debugging messages, and the corresponding digit indicates the level of messages, with 1 indicating the least number of messags and 9 turning on all messages. The letter @code{@@} can be used to turn on all areas, so @code{--debug=@@9} will turn on all messages. Use @code{--help=debug} for details of what letters turn on what areas. Note that this feature is not uniformly implemented - messages were only typically added where they were needed. Also note that messages will not be generated in code prior to the code that sets the debug string! @node Options and Environment Variables List, Option Index, Miscellaneous Features, Top @chapter Options and Environment Variables @section Miscellaneous options @table @code @item -D @itemx --debug=@var{string} set debug options to @var{string} @item -O @var{string} @itemx --diff=@var{string} if @var{string} is a file then print diffs between @var{string} and input file otherwise use as a prefix and print diffs @item -t @var{string} @itemx --language=@var{string} treat input as language. Use --help languages for list. @item -U @var{string} @itemx --username=@var{string} set username for coversheet @item -H @itemx --help Type help information @item --help=@var{string} Type specific help information. Use @code{--help} for a list of possible @var{string}s. @item -V @itemx --version Type version information @item -N @itemx --use-environment use environment variables @item --N @itemx --ignore-environment don't use values from environment, such as time, @code{$USER}, etc. This is for test purposes, to make test results more reproducible. @end table @section Page furniture options @table @code @item -X @var{string} @itemx --left-header=@var{string} Specify string for left side of header. @item -x @var{string} @itemx --left-footer=@var{string} Specify string for left side of footer. @item -Y @var{string} @itemx --center-header=@var{string} Specify string for center of header. @item -y @var{string} @itemx --center-footer=@var{string} Specify string for center of footer. @item -Z @var{string} @itemx --right-header=@var{string} Specify string for right side of header. @item -z @var{string} @itemx --right-footer=@var{string} Specify string for right side of footer. @item -m @var{string} @itemx --message=@var{string} Message to be printed over page. @item -G @var{number} @itemx --gray-bands=@var{number} Emulate the old lineprinter paper with gray bands across each page. The value of @var{number} gives the width of the bands and the gaps between them. @item -K @itemx --headers Include the header on each page. @item --K @itemx --no-headers Suppress the header on each page. @item -k @itemx --footers Include the footer on each page. @item --k @itemx --no-footers Suppress the footer on each page. @item -i @itemx --no-braces-depth Exclude the braces depth count. @item --i @itemx --braces-depth Include the braces depth count. @item -n @itemx --no-line-numbers Exclude the line number count. @item --n @itemx --line-numbers Include the line number count. @end table @section Text formatting options @table @code @item -b @itemx --no-page-break-after-function Don't print page breaks at the end of functions. @item --b @itemx --page-break-after-function Print page breaks at the end of functions. @item --new-sheet-after-file Print each file on a new sheet of paper. @item --no-new-sheet-after-file Don't print each file on a new sheet of paper. This option will still insert a page break at the end of a file, but it won't force the new file on to a new sheet of paper. @item -W @itemx --no-intelligent-line-wrap Wrap lines at exactly the line-wrap column. @item --W @itemx --intelligent-line-wrap Wrap lines intelligently at significant characters, such as a space @item -T @var{number} @itemx --tabsize=@var{number} Set tabsize (default 8). @item -E @itemx --ignore-form-feeds Don't expand form feed characters to new page. @item --E @itemx --form-feeds Expand form feed characters to new page. @item -p @var{number} @itemx --point-size=@var{number} Specify point size (default 10). @item -g @var{number} @itemx --leading=@var{number} Specify interline gap in points (default 1). @item -w @var{number} @itemx --line-wrap=@var{number} Specify the line-wrap column. @item --no-line-wrap Turn off line-wrap. @item -l @var{number} @itemx --page-length=@var{number} Specify number of lines on a page, point size is calculated appropriately. @end table @section Print selection options @table @code @item -C @itemx --no-cover-sheet Don't print cover sheet. @item --C @itemx --cover-sheet Print cover sheet. @item -A @var{string} @itemx --print-pages=@var{string} Specify list of pages to be printed. @item -a @itemx --no-prompt Don't prompt for each page, whether it should be printed or not. @item --a @itemx --prompt Prompt for each page, whether it should be printed or not. @item -F @itemx --no-file-index Don't print file index. @item --F @itemx --file-index Print file index. @item -f @itemx --no-function-index Don't print function index. @item --f @itemx --function-index Print function index. @item -B @itemx --no-print-body Don't print body of text. @item --B @itemx --print-body Print body of text. @end table @section Page format options @table @code @item -I @itemx --no-holepunch Don't leave space for holepunch at the side of each page. @item --I @itemx --holepunch Leave space for holepunch at the side of each page. @item -J @itemx --no-top-holepunch Don't leave space for holepunch at the top of each page. @item --J @itemx --top-holepunch Leave space for holepunch at the top of each page. @item -o p @itemx --portrait Print using portrait orientation. @item -o l @itemx --landscape Print using landscape orientation. @item -S 1 @itemx --single-sided Print single-sided. @item -S 2 @itemx --double-sided Print double-sided. @item -1 @itemx --one-up Print 1-on-1 (default). @item -2 @itemx --two-up Print 2-on-1. @item -3 @itemx --two-tall-up Print 2-on-1 at 4-on-1 pointsize. @item -4 @itemx --four-up Print 4-on-1. @end table @section Output options @table @code @item -d @var{string} @itemx --printer=@var{string} Use printer @var{string}. @item -P @var{string} @itemx --printer=@var{string} Use printer @var{string}. @item -s @var{string} @itemx --output=@var{string} Send output to filename @var{string}; use - for stdout. @item -c @var{number} @itemx --copies=@var{number} Specify number of copies to be printed. @end table @section Environment Variables @subsection TP_OPTS Specify options. These options override any default options including language defaults, but are overridden by command line options. @subsection TP_DIFF_CMD Specify the diff command to be used. The command must produce output in the same format as the classic Unix diff. This variable can be used to add flags to the diff command used, for example to make diff ignore whitespace. @subsection TP_PRINT_CMD Specify the print command. The default is lpr. If this is set then it should be set to a command that takes standard input. If this is set then the destination and number of copies have no effect, i.e. there is no mechanism to pass these values to your print command. If you set this to /bin/cat then the postscript output will appear on stdout. @subsection TP_PRINTERS_FILE Specify the printers file. The default is the printers file that was initially configured when trueprint was installed. This can be used to test out a new printers file. @node Option Index, Concept Index, Options and Environment Variables List, Top @unnumbered Option Index @printindex fn @node Concept Index, , Option Index, Top @unnumbered Concept Index @printindex cp @summarycontents @contents @bye trueprint-5.4/doc/trueprint.spec0000644000175000017500000000360707625761737014046 00000000000000Summary: Prints the source files in PostScript Name: trueprint Version: 5.3 Release: 1 Source: ftp://ftp.gnu.org/pub/gnu/trueprint/trueprint-%{PACKAGE_VERSION}.tar.gz Copyright: GPL Group: Applications/Text Vendor: Jan "Yenya" Kasprzak Packager: Jan "Yenya" Kasprzak BuildRoot: /var/tmp/trueprint-root Prereq: info Obsoletes: Trueprint %description Trueprint is a general purpose program printing program. It tries to produce everything that anybody could need in a program printout without the need for large numbers of switches or pipelines. Trueprint can currently handle C, C++, Verilog, shell (including ksh), perl, pascal, listing files and plain text files. %changelog * Tue Mar 20 2001 Lezz Giles - Updated to the 5.3 release. * Wed Feb 16 2000 Lezz Giles - Updated to the 5.2.1 release. * Wed Nov 3 1999 Lezz Giles - Updated to the 5.2 release. * Sat Oct 30 1999 Jan "Yenya" Kasprzak - Updated to the 5.1 release. - Strip trueprint (-s added to CFLAGS). * Tue Jul 27 1999 Jan "Yenya" Kasprzak - Initial release %prep %setup -n trueprint-%{PACKAGE_VERSION} %build CFLAGS="$RPM_OPT_FLAGS" ./configure --prefix=/usr make %install rm -rf ${RPM_BUILD_ROOT} mkdir -p ${RPM_BUILD_ROOT}/usr/{bin,lib,info,man/man1} make prefix=${RPM_BUILD_ROOT}/usr install strip ${RPM_BUILD_ROOT}/usr/bin/trueprint %post if [ $1 = 1 ] then /sbin/install-info --dir-file=/usr/info/dir /usr/info/trueprint.info fi %postun if [ $1 = 0 ] then /sbin/install-info --dir-file=/usr/info/dir --remove /usr/info/trueprint.info fi %files %attr(0755,root,root) /usr/bin/trueprint %attr(0644,root,root) %doc /usr/man/man1/trueprint.1 %attr(0644,root,root) %config(noreplace) /usr/lib/printers %attr(0644,root,root) %doc /usr/info/trueprint.info %attr(0644,root,root) %doc BUGS NEWS README trueprint-5.4/doc/trueprint.info0000644000175000017500000013167612116637733014044 00000000000000This is trueprint.info, produced by makeinfo version 4.13 from trueprint.texi. INFO-DIR-SECTION Miscellaneous START-INFO-DIR-ENTRY * Trueprint: (trueprint). Format & print text files on a printer END-INFO-DIR-ENTRY This is the documentation for GNU Trueprint Copyright (C) 1999 Free Software Foundation Inc.  File: trueprint.info, Node: Top, Next: Overview, Up: (dir) Trueprint ********* Trueprint is a program for printing source code and other text files. * Menu: * Overview:: Trueprint in brief. * Installing Trueprint:: How to install Trueprint. * Languages:: How Trueprint handles source files for different computer languages. * Page Formatting:: Getting the right number of pages on a sheet. * Page Furniture:: Headers, footers and other page decorations. * Text Formatting:: Font size, line breaks, and other text formatting tweaks. * Output Options:: Sending the output to the right place. * Print Selection:: Printing just the stuff you want. * Miscellaneous Features:: All the stuff that doesn't belong anywhere else. * Options and Environment Variables List:: A reference list of all options. * Option Index:: Index to options * Concept Index:: Index to concepts throughout this manual  File: trueprint.info, Node: Overview, Next: Installing Trueprint, Prev: Top, Up: Top 1 Overview ********** What is Trueprint? Trueprint is an ugly flower that smells beautiful. Trueprint is intended to be the only printing program you will ever need to print your program source code and other text files. It tries to achieve this by being simple to use, providing powerful features, and being intelligent enough to provide those features when you need them. Trueprint knows about common computer languages and will select features appropriate to each language. For example if the language contains functions then Trueprint will generate a function index. And if the language contains the concept of braces then Trueprint will include a braces depth count in the left-hand margin. If you need to customize the appearance of the printed output then you can use options to turn any of Trueprint's features on or off. For example you can specify that the output be printed landscape, two-up, using an eight-point font with line numbers. By setting an environment variable you can create personal defaults for Trueprint which will override the language defaults and which will in turn be overridden by the command line options. Trueprint knows about the printers available on your system via a special `printers' file. This file tells it how large a page is and whether the printer is double or single sided. Using this information, Trueprint can format your output appropriately. If there's anything that Trueprint doesn't do, you are welcome to change the tool itself - just remember that it's covered by the GPL and be sure to send a copy of the changes to ! The original author and current maintainer of trueprint is Lezz Giles. His email addresses at the time of writing are , , and .  File: trueprint.info, Node: Installing Trueprint, Next: Languages, Prev: Overview, Up: Top 2 Installing Trueprint ********************** Installing Trueprint is almost as simple as installing any well-behaved GNU program. For details, read the README file that comes with the package. This section provides an overview of the process, plus details of the `printers' file. 2.1 Installation Overview ========================= In the simplest case, assuming you want to install trueprint into /usr/local/bin, installing trueprint is just a matter of five short steps: * `./configure' * `make' * `make test' * Update the printers file with your printer information. * `make install' If you want to change the installation root directory from `/usr/local' to, for example, `/usr' (so that the executable would be put into `/usr/bin/trueprint') then just pass the new root directory to `./configure' using `--prefix', e.g. `./configure --prefix=/usr'. If the tests fail then cd to the tests subdirectory and look at the appropriate `.dif' file. If you can't work out what's gone wrong then report the problem to . 2.2 The `printers' file ======================= The printers file is the most complicated part of Trueprint. Put simply, it contains two lists: a list of printer types, and a list of the printers at your site. The list of printer types is long (well, actually it's fairly short) and it should contain the most common office printers. The list of printers in the distribution printers file is just a set of example entries - you should delete these examples and replace them with your own printer information. An example type entry is: type:Apple Laswerwriter II:1: 15:597:784:8 The first field just specifies this as a `type' entry. The second field contains the printer type name. Whitespace is significant, so there shouldn't be any spaces between the start and end of the name, and the colons. The third field is 1 for a single-sided printer and 2 for a double-sided printer. The final four fields give the left, right, top and bottom margins respectively in points from the bottom left corner of the paper; more specifically they are the coordinates of the bounding box that the postscript engine on the printer can print in. The first three fields are typically easy to fill in; however the final four fields need to be calculated for each printer type. Fortunately the postscript interpreter knows what the coordinates are - it's just a matter of asking it nicely, and the file `testprint' contains a little postscript program that will do just that. If you print `testprint' using either `lpr' or `lp' then it will print out the four numbers needed in the `printers' file (on the other hand, if it simply prints the contents of the file then either your printer is not configured properly or it isn't a postscript printer - you'll need to rectify the situation before you can use Trueprint on that printer). The second half of the file contains printer entries, for example: printer:pr2-simp:HP Laserjet 8000 simplex Once again, the first entry simply specifies that this is a `printer' entry. The second entry contains the printer queue name as known to your operating system (i.e. the value you would pass to `lp' or `lpr'). The third field contains the appropriate printer type name; once again whitespace is important so make sure there are no trailing space or tab characters at the end of the line. If you have two queues set up to one printer, one for single-sided output and one for double-sided output, simply set up two printer types. Similarly if you have multiple queues for the same printer for different paper sizes.  File: trueprint.info, Node: Languages, Next: Page Formatting, Prev: Installing Trueprint, Up: Top 3 Languages *********** Different programming languages have different features and look their best with different formats. Since Trueprint tries to be all things to all people, it understands a number of different languages and tries to accomodate all of them. In this version Trueprint understands: * C * Verilog * C++ * Shell * Pascal * Perl * Java It also understands some other formats: * Plain text * Pseudo C * Listing files * A special format called "report format" Not all of the languages are fully supported. C is well supported, but Java is only minimally supported. The language support is implemented in the `lang_*.c' files - if you're not happy with the level of support for your favorite language just improve - or add - it! There are a couple of ways that Trueprint can find out what type of language a file contains. It can look at the filename suffix, or it can be told using the `--language' option. The details are: _Language_ _suffix_ _-language option_ C .c .h -language=c Verilog .v -language=v C++ .cxx .cpp .cc -language=cxx .C .hpp .H Shell .sh -language=sh Pascal .pas -language=pascal Perl .pl -language=perl Java .java -language=java Plain text default -language=text Pseudo C .pc .ph -language=pseudoc Listing .lst -language=list Report format .rep -language=report For most of the languages, Trueprint uses the language to work out where comments are (so it can print them in italics) and where the function names are (so it can print them in bold and include them in the function index). However there are some special features for some of the languages: Pseudo C is like C, except it has a more forgiving syntax. In particular it ignores strings, so if you leave off a closing quote then pseudo C will print out using a vaguely sensible format. Pseudo C is intended for printing code that doesn't yet compile. Listing format assumes very wide lines and a fixed page length of sixty-six characters, so it turns off line-wrap and sets the page length appropriately. Report format uses a few special characters: anything between ^A and ^E is printed in bold and included in the function index, and anything between a pair of ^Cs is printed in italics.  File: trueprint.info, Node: Page Formatting, Next: Page Furniture, Prev: Languages, Up: Top 4 Page Formatting ***************** There are a few options that you can use to adjust the overall page formatting. Most of these options are pretty self-explanatory. For portrait printing use `--portrait', and for landscape printing use `--landscape'. To force the printer to print single-sided use `--single-sided', and to try to force double-sided printing use `--double-sided'. These options also affect headers and footers, so forcing `--double-sided' on a single-sided printer will result in odd-looking headers and footers. Also since Trueprint tries to start each file on a new sheet of paper, specifying `--double-sided' forces occasional pages with no content. To print one page of output on one physical sheet, the default, use `--one-up'. To print two-up, i.e. two logical pages on one sheet (side-by-side for portrait or one over the other for landscape) use `--two-up'. And to print four logical pages on each sheet (and to help ruin your eyesight!) use `--four-up'. There is another mode called `two-tall-up' which prints two logical pages on each sheet at four-up pointsize - for portrait format each logical page is very tall and narrow, and for landscape format each logical page is very wide. Sometimes in order to get the best results from a double-sided printer you want to rotate the back side of every sheet by 180 degrees. The option `--rotate-alternate-sheets' will do this. To leave a gap down the left-hand-side of each physical page so that you can punch holes in the page without punching out any information, use `--holepunch', and to leave a gap at the top of the page (if you want to punch holes at the top) use `--top-holepunch'. Options `--no-holepunch' and `no-top-holepunch' exist to override these if they've been set up as defaults.  File: trueprint.info, Node: Page Furniture, Next: Text Formatting, Prev: Page Formatting, Up: Top 5 Page Furniture **************** Page furniture refers to the bits and pieces scattered around the edge of each page. It includes things like headers and footers, line numbers, and so on. The left-hand side of each page can include two columns of information: line numbers and a count of the current braces depth. Line numbers are normally included, but they can be forced on with `--line-numbers' and forced off with `--no-line-numbers'. The braces depth count is normally only turned on for languages that have the concept of braces (e.g. C or Java); it can be explicitly turned on with `--braces-depth' or it can be turned off with `--no-braces-depth'. If you are nostalgic for the old line-printer paper with gray or green bands running across each page you can turn this on with `--gray-bands NUMBER' where NUMBER is the width of the bands. For example `--gray-bands 3' would print light gray bands three lines deep all the way down the page. Naturally you can force this off with `--no-gray-bands'. 5.1 Headers and Footers ======================= Headers and footers are printed in boxes at the top and bottom of each page. There are three header strings and three footer strings, and each can be a mixture of constant strings or % escapes. The strings are set with `--left-header=STRING', `--center-header=STRING', `--right-header=STRING', `--left-footer=STRING', `--center-footer=STRING', and `--right-footer=STRING'. If you want to turn off either headers or footers you can use `--no-headers' or `--no-footers', and of course you can force them on with `--headers' and `--footers'. If you're printing double-sided then the left and right headers and footers are swapped on every second page. Normally headers and footers have a line drawn around them and a line is also drawn down the left side of each page. By specifying `--no-page-furniture-lines' these lines are not drawn. In fact if you turn off headers, footers, line count and braces depth then no page furniture will be drawn at all, i.e. `--no-page-furniture-lines --no-headers --no-footers --no-braces-depth --no-line-numbers'. There is also an optional message string that is printed across the middle of each page in a very large, light gray font. You can use this message to say things like `draft' or `top secret'. Use `--message=STRING' to set the message. There are quite a few % escapes that you can use inside the header, footer and message strings: `%%' Print a simple %. `%m' Print the current month of the year as a number, e.g. 05. `%d' Print the current day of the month, e.g. 01. `%y' Print the current year, e.g. 1999 `%D' Print the date in the format mm/dd/yy. `%L' Print the date and time in long format, e.g. Fri Oct 8 11:49:51 1999 `%c' Print the last modified date of the current file in the format mm/dd/yy. `%C' Print the last modified date and time of the current file in long format, e.g. Fri Oct 8 11:49:51 1999 `%H' Print the current hour. `%M' Print the current minute. `%S' Print the current second. `%T' Print the time in the format HH:MM:SS. `%j' Print the day of the year, e.g. 095. `%w' Print the day of the week, e.g. Sunday. `%a' Print the abbreviated day of the week, e.g. Sun. `%h' Print the abbreviated month name, e.g. Mar. `%r' Print the time in am/pm notation, e.g. 10:45pm. `%p' Print the page number in the current file. `%P' Print the overall page number. `%f' Print the total number of pages of the current file. `%F' Print the total number of pages. `%n' Print the current filename. `%N' Print the current function name. `%l' Print the username of the current user. The default strings are: `left-header' `%L' `center-header' `%N' `right-header' `Page %P of %F' `left-footer' `%L' `center-footer' `%n %p' `right-footer' `Page %P of %F'  File: trueprint.info, Node: Text Formatting, Next: Output Options, Prev: Page Furniture, Up: Top 6 Text Formatting ***************** 6.1 Page breaks =============== There are three places that Trueprint can include page breaks: at the end of a function (assuming the current language has functions), when it finds a form-feed character (control-L), and at the end of each file. To force on page breaks at the end of functions use `--page-break-after-function'. The default behaviour, to not break the page at the end of a function, can be forced with `--no-page-break-after-function'. Normally Trueprint will print each file on a seperate sheet of paper; however if you're printing a lot of small files four-up on a duplex printer then this can waste a lot of paper. Use `--no-new-sheet-after-file' to tell Trueprint to just start a new page at the end of a file. This option has no effect for one-up output. You can force Trueprint to expand form-feeds to a new page with `--form-feeds' and, of course, you can turn it off with `--ignore-form-feeds'. 6.2 Line wrap ============= By default Trueprint will wrap lines that are too long for the page. It will try to break the lines at intelligent locations, for example at a space character, and it will print the remainder of the line right-justified. If you don't like this then you can turn off line-wrap with `--no-line-wrap', or you can set the line-wrap column explicitly with `--line-wrap=COLUMN'. You can also tell Trueprint to wrap lines at exactly a specific column, i.e. to stop trying to be clever, with `--no-intelligent-line-wrap'. Of course you can force the feature on with `--intelligent-line-wrap'. And if you want to use intelligent line-wrap but you want to ensure that you don't end up with incredibly short lines then you can set the minimum line length with `--minimum-line-length=NUMBER'. 6.3 Page length and pointsize ============================= The default pointsize used by Trueprint is 10. Of course, this is reduced appropriately if you're printing two-up or four-up. You can set the pointsize explicitly with `--pointsize=NUMBER', although bear in mind that the pointsize will still be scaled down for two-up or four-up. In the old days of printing, strips of lead were used to seperate the lines of text. If you wanted more seperation you included more strips of lead. Trueprint is nothing if not traditional. The default leading (pronounced `ledding') is one point, but you can increase (or decrease) it with `--leading=NUMBER'. Not suprisingly you can't specify a negative number. You can set the overall page length with `--page-length=LENGTH'. Trueprint will set the point size appropriately. Unfortunately, since there are a limited number of pointsizes that Trueprint can chose from (e.g. it can't select 8.35), using this option may result in a blank space at the bottom of each page. This option is best used if your file naturally breaks into pages of a specific length. You may also want to turn off line-wrap so that long lines don't mess up your carefully formatted output. 6.4 Tab size ============ The default tab size is eight characters. If this eats up too many columns for you, then you can set it with `--tabsize=NUMBER'.  File: trueprint.info, Node: Output Options, Next: Print Selection, Prev: Text Formatting, Up: Top 7 Output Options **************** By default Trueprint will simply send the postscript output to `lp' or `lpr' (depending on the ancestry of your version of Unix), and it will explicitly set the destination to the value of the environment variable `$PRINTER'. You can use `--printer=PRINTER' to send the print job to another printer. If you like `lp' options then you can also say `-P PRINTER', or if you are a fan of System V then you can say `-d PRINTER' (almost every Trueprint option has a single-character equivalent - I only mention these two explicitly because they are used exactly the same way as the options to `lpr' and `lp'). If you want to print multiple copies then just use `--copies=NUMBER'. If you want to save the postscript output then you can redirect it to a file using `--output=FILENAME'. If you use `-' for the filename then the postscript will be sent to stdout. If you use `--redirect-output' then the output will be sent to a file named after the first parameter with the suffix `.ps'. The `--redirect-output' option overrides the `--output=FILENAME' option, and of course there is a `--no-redirect-output' option to turn it off.  File: trueprint.info, Node: Print Selection, Next: Miscellaneous Features, Prev: Output Options, Up: Top 8 Print Selection ***************** A Trueprint print job can contain a reasonably long list of pages: * A cover sheet, * a file index, * a function index, * and the files. Each of these can be explicitly disabled or enabled: `--no-cover-sheet' `--cover-sheet' `--no-file-index' `--file-index' `--no-function-index' `--function-index' `--no-print-body' `--print-body' In addition there is a mechanism for printing only a subset of the pages, by using `--print-pages=SELECTION', where selection consists of a comma-seperated list of page selections: `NUMBER' Print the specific page. `NUMBER-NUMBER' Print all pages between, and including, the specified pages. `FUNCTION-NAME' Print all pages that include FUNCTION-NAME. `d' Print all pages that have changed (this is only useful with the `--diff' (*note Miscellaneous Features::) option. `D' Print all pages containing functions that have changed (this is only useful with the `--diff' (*note Miscellaneous Features::) option. `f' Print the function index. `F' Print the file index. For example, `--print-pages=1-5,main,f' will print the function index, pages 1 to 5, and all the pages for the function `main'. If you specify `--prompt' then Trueprint will prompt you for each page, whether or not it should print that page. It will give you information such as the current filename, current functionname, page number, and so on. The possible responses are: `y' Print this page. `yNUMBER' Print NUMBER pages. `y*' Print all the remaining pages. `n' Skip this page `nNUMBER' Skip NUMBER pages. `n*' Skip all the remaining pages. `pSELECTION' Print all remaining pages that match SELECTION, where SELECTION is in the format defined above. `?' Print a help message. Of course, you can force the prompting feature off with `--no-prompt'.  File: trueprint.info, Node: Miscellaneous Features, Next: Options and Environment Variables List, Prev: Print Selection, Up: Top 9 Miscellaneous Features ************************ 9.1 Diff-marking ================ One of the more obscure but more useful features of Trueprint is the ability to highlight differences between two versions of sets of files. Added lines are shown in bold, while deleted lines are shown struck-out. You specify the old version of the file or files with `--diff=PATHNAME'. If PATHNAME suffixed with the current filename is a valid file then the differences between PATHNAME/FILENAME are displayed. Alternatively, if PATHNAME is a file and you're printing one file, then the differences between PATHNAME and the current file are displayed. Some examples: trueprint --diff=../old- this.c that.c will print the differences between ../old-this.c and this.c, and ../old-that.c and that.c. trueprint --diff=../old/ this.c that.c will print the differences between ../old/this.c and this.c, and ../old/that.c and that.c. Note that the trailing / is important. trueprint --diff=this.c that.c will print the differences between this.c and that.c. 9.2 Help and Version Information ================================ Use `--help' for general on-line help information. If you give the `--help' option a parameter it will give you more detailed information about a specific area - use `--help' for a list of the areas. Use `--version' to see the current version of Trueprint. 9.3 Setting personal defaults ============================= When Trueprint starts it uses four sets of options: * Hard-coded defaults. * Language-specific defaults. * Options taken from the environment variable `$TP_OPTS'. * Command-line options. Each set of options overrides the earlier sets, so command-line options override all other sets. If you want to set some personal default options, then simply set the environment variable `$TP_OPTS'. 9.4 Postscript level ==================== It is possible to request that trueprint generate level 1 or level 2 postscript. Level 2 is the default. If level 2 is set then trueprint will send the appropriate instructions to select the proper paper size. You shouldn't normally need to use this option. To select postscript level 1 use `--ps-level-one' and to select postscript level 2 use `--ps-level-two'. In the future this option may be used to turn on more features. 9.5 Environment Information =========================== By default Trueprint uses environment variables and the current username. You can force it to ignore these by using `--ignore-environment'. In practice this is only used when running the tests during installation. For the sake of completeness there is an option `--use-environment'. 9.6 Debugging ============= Trueprint has built-in debugging messages that can be useful for tracking down problems. The debugging messages are turned on with `--debug=STRING', where STRING is a series of letter/digit pairs. Each letter turns on a set of debugging messages, and the corresponding digit indicates the level of messages, with 1 indicating the least number of messags and 9 turning on all messages. The letter `@' can be used to turn on all areas, so `--debug=@9' will turn on all messages. Use `--help=debug' for details of what letters turn on what areas. Note that this feature is not uniformly implemented - messages were only typically added where they were needed. Also note that messages will not be generated in code prior to the code that sets the debug string!  File: trueprint.info, Node: Options and Environment Variables List, Next: Option Index, Prev: Miscellaneous Features, Up: Top 10 Options and Environment Variables ************************************ 10.1 Miscellaneous options ========================== `-D' `--debug=STRING' set debug options to STRING `-O STRING' `--diff=STRING' if STRING is a file then print diffs between STRING and input file otherwise use as a prefix and print diffs `-t STRING' `--language=STRING' treat input as language. Use -help languages for list. `-U STRING' `--username=STRING' set username for coversheet `-H' `--help' Type help information `--help=STRING' Type specific help information. Use `--help' for a list of possible STRINGs. `-V' `--version' Type version information `-N' `--use-environment' use environment variables `--N' `--ignore-environment' don't use values from environment, such as time, `$USER', etc. This is for test purposes, to make test results more reproducible. 10.2 Page furniture options =========================== `-X STRING' `--left-header=STRING' Specify string for left side of header. `-x STRING' `--left-footer=STRING' Specify string for left side of footer. `-Y STRING' `--center-header=STRING' Specify string for center of header. `-y STRING' `--center-footer=STRING' Specify string for center of footer. `-Z STRING' `--right-header=STRING' Specify string for right side of header. `-z STRING' `--right-footer=STRING' Specify string for right side of footer. `-m STRING' `--message=STRING' Message to be printed over page. `-G NUMBER' `--gray-bands=NUMBER' Emulate the old lineprinter paper with gray bands across each page. The value of NUMBER gives the width of the bands and the gaps between them. `-K' `--headers' Include the header on each page. `--K' `--no-headers' Suppress the header on each page. `-k' `--footers' Include the footer on each page. `--k' `--no-footers' Suppress the footer on each page. `-i' `--no-braces-depth' Exclude the braces depth count. `--i' `--braces-depth' Include the braces depth count. `-n' `--no-line-numbers' Exclude the line number count. `--n' `--line-numbers' Include the line number count. 10.3 Text formatting options ============================ `-b' `--no-page-break-after-function' Don't print page breaks at the end of functions. `--b' `--page-break-after-function' Print page breaks at the end of functions. `--new-sheet-after-file' Print each file on a new sheet of paper. `--no-new-sheet-after-file' Don't print each file on a new sheet of paper. This option will still insert a page break at the end of a file, but it won't force the new file on to a new sheet of paper. `-W' `--no-intelligent-line-wrap' Wrap lines at exactly the line-wrap column. `--W' `--intelligent-line-wrap' Wrap lines intelligently at significant characters, such as a space `-T NUMBER' `--tabsize=NUMBER' Set tabsize (default 8). `-E' `--ignore-form-feeds' Don't expand form feed characters to new page. `--E' `--form-feeds' Expand form feed characters to new page. `-p NUMBER' `--point-size=NUMBER' Specify point size (default 10). `-g NUMBER' `--leading=NUMBER' Specify interline gap in points (default 1). `-w NUMBER' `--line-wrap=NUMBER' Specify the line-wrap column. `--no-line-wrap' Turn off line-wrap. `-l NUMBER' `--page-length=NUMBER' Specify number of lines on a page, point size is calculated appropriately. 10.4 Print selection options ============================ `-C' `--no-cover-sheet' Don't print cover sheet. `--C' `--cover-sheet' Print cover sheet. `-A STRING' `--print-pages=STRING' Specify list of pages to be printed. `-a' `--no-prompt' Don't prompt for each page, whether it should be printed or not. `--a' `--prompt' Prompt for each page, whether it should be printed or not. `-F' `--no-file-index' Don't print file index. `--F' `--file-index' Print file index. `-f' `--no-function-index' Don't print function index. `--f' `--function-index' Print function index. `-B' `--no-print-body' Don't print body of text. `--B' `--print-body' Print body of text. 10.5 Page format options ======================== `-I' `--no-holepunch' Don't leave space for holepunch at the side of each page. `--I' `--holepunch' Leave space for holepunch at the side of each page. `-J' `--no-top-holepunch' Don't leave space for holepunch at the top of each page. `--J' `--top-holepunch' Leave space for holepunch at the top of each page. `-o p' `--portrait' Print using portrait orientation. `-o l' `--landscape' Print using landscape orientation. `-S 1' `--single-sided' Print single-sided. `-S 2' `--double-sided' Print double-sided. `-1' `--one-up' Print 1-on-1 (default). `-2' `--two-up' Print 2-on-1. `-3' `--two-tall-up' Print 2-on-1 at 4-on-1 pointsize. `-4' `--four-up' Print 4-on-1. 10.6 Output options =================== `-d STRING' `--printer=STRING' Use printer STRING. `-P STRING' `--printer=STRING' Use printer STRING. `-s STRING' `--output=STRING' Send output to filename STRING; use - for stdout. `-c NUMBER' `--copies=NUMBER' Specify number of copies to be printed. 10.7 Environment Variables ========================== 10.7.1 TP_OPTS -------------- Specify options. These options override any default options including language defaults, but are overridden by command line options. 10.7.2 TP_DIFF_CMD ------------------ Specify the diff command to be used. The command must produce output in the same format as the classic Unix diff. This variable can be used to add flags to the diff command used, for example to make diff ignore whitespace. 10.7.3 TP_PRINT_CMD ------------------- Specify the print command. The default is lpr. If this is set then it should be set to a command that takes standard input. If this is set then the destination and number of copies have no effect, i.e. there is no mechanism to pass these values to your print command. If you set this to /bin/cat then the postscript output will appear on stdout. 10.7.4 TP_PRINTERS_FILE ----------------------- Specify the printers file. The default is the printers file that was initially configured when trueprint was installed. This can be used to test out a new printers file.  File: trueprint.info, Node: Option Index, Next: Concept Index, Prev: Options and Environment Variables List, Up: Top Option Index ************ [index] * Menu: * braces-depth: Page Furniture. (line 10) * center-footer: Page Furniture. (line 28) * center-header: Page Furniture. (line 28) * copies: Output Options. (line 16) * cover-sheet: Print Selection. (line 17) * debug: Miscellaneous Features. (line 86) * diff: Miscellaneous Features. (line 13) * double-sided: Page Formatting. (line 12) * file-index: Print Selection. (line 17) * footers: Page Furniture. (line 28) * form-feeds: Text Formatting. (line 24) * four-up: Page Formatting. (line 19) * function-index: Print Selection. (line 17) * gray-bands: Page Furniture. (line 18) * headers: Page Furniture. (line 28) * help: Miscellaneous Features. (line 38) * holepunch: Page Formatting. (line 32) * ignore-environment: Miscellaneous Features. (line 77) * ignore-form-feeds: Text Formatting. (line 24) * intelligent-line-wrap: Text Formatting. (line 31) * landscape: Page Formatting. (line 9) * language: Languages. (line 39) * leading: Text Formatting. (line 53) * left-footer: Page Furniture. (line 28) * left-header: Page Furniture. (line 28) * line-numbers: Page Furniture. (line 10) * line-wrap: Text Formatting. (line 31) * message: Page Furniture. (line 48) * minimum-line-length: Text Formatting. (line 31) * new-sheet-after-file: Text Formatting. (line 18) * no-braces-depth: Page Furniture. (line 10) * no-cover-sheet: Print Selection. (line 17) * no-file-index: Print Selection. (line 17) * no-footers: Page Furniture. (line 28) * no-function-index: Print Selection. (line 17) * no-gray-bands: Page Furniture. (line 18) * no-headers: Page Furniture. (line 28) * no-holepunch: Page Formatting. (line 32) * no-intelligent-line-wrap: Text Formatting. (line 31) * no-line-numbers: Page Furniture. (line 10) * no-line-wrap: Text Formatting. (line 31) * no-page-break-after-function: Text Formatting. (line 13) * no-page-furniture-lines: Page Furniture. (line 41) * no-print-body: Print Selection. (line 17) * no-prompt: Print Selection. (line 85) * no-rotate-alternate-sheets: Page Formatting. (line 28) * no-top-holepunch: Page Formatting. (line 32) * one-up: Page Formatting. (line 19) * output: Output Options. (line 18) * page-break-after-function: Text Formatting. (line 13) * page-furniture-lines: Page Furniture. (line 41) * page-length: Text Formatting. (line 60) * pointsize: Text Formatting. (line 47) * portrait: Page Formatting. (line 9) * print-body: Print Selection. (line 17) * print-pages: Print Selection. (line 22) * printer: Output Options. (line 6) * prompt: Print Selection. (line 54) * redirect: Output Options. (line 18) * right-footer: Page Furniture. (line 28) * right-header: Page Furniture. (line 28) * rotate-alternate-sheets: Page Formatting. (line 28) * single-sided: Page Formatting. (line 12) * tabsize: Text Formatting. (line 72) * top-holepunch: Page Formatting. (line 32) * two-tall-up: Page Formatting. (line 19) * two-up: Page Formatting. (line 19) * use-environment: Miscellaneous Features. (line 77) * version: Miscellaneous Features. (line 42)  File: trueprint.info, Node: Concept Index, Prev: Option Index, Up: Top Concept Index ************* [index] * Menu: * $PRINTER: Output Options. (line 6) * body: Print Selection. (line 6) * braces depth: Page Furniture. (line 6) * c language: Languages. (line 6) * c++: Languages. (line 6) * comparing with old version: Miscellaneous Features. (line 9) * control-L: Text Formatting. (line 9) * copies: Output Options. (line 6) * cover sheet: Print Selection. (line 6) * debugging: Miscellaneous Features. (line 86) * default options: Miscellaneous Features. (line 47) * diff: Miscellaneous Features. (line 9) * double-sided: Page Formatting. (line 6) * environment variables: Miscellaneous Features. (line 77) * file index: Print Selection. (line 6) * file output: Output Options. (line 6) * filename extensions: Languages. (line 6) * flower: Overview. (line 6) * footer string format: Page Furniture. (line 28) * footers: Page Furniture. (line 28) * format: Text Formatting. (line 6) * formfeed character: Text Formatting. (line 9) * four-up: Page Formatting. (line 6) * function index: Print Selection. (line 6) * function page breaks: Text Formatting. (line 9) * gray bands: Page Furniture. (line 6) * header string format: Page Furniture. (line 28) * headers: Page Furniture. (line 28) * help messages: Miscellaneous Features. (line 38) * holepunch: Page Formatting. (line 6) * holepunch at top of page: Page Formatting. (line 6) * indentation: Page Furniture. (line 6) * installing: Installing Trueprint. (line 14) * intelligent line wrap: Text Formatting. (line 31) * invoking make: Installing Trueprint. (line 14) * java: Languages. (line 6) * landscape: Page Formatting. (line 6) * language defaults: Languages. (line 6) * languages: Languages. (line 6) * leading: Text Formatting. (line 47) * line breaks: Text Formatting. (line 31) * line gap: Text Formatting. (line 47) * line numbers: Page Furniture. (line 6) * line wrap: Text Formatting. (line 31) * listing files: Languages. (line 6) * lp: Output Options. (line 6) * lpr: Output Options. (line 6) * make install: Installing Trueprint. (line 14) * make test: Installing Trueprint. (line 14) * marking differences: Miscellaneous Features. (line 9) * message string: Page Furniture. (line 28) * message string format: Page Furniture. (line 28) * nostalgia: Page Furniture. (line 6) * one-up: Page Formatting. (line 6) * output: Output Options. (line 6) * output file: Output Options. (line 6) * overview: Overview. (line 6) * page breaks: Text Formatting. (line 9) * page breaks after functions: Text Formatting. (line 9) * page formatting: Page Formatting. (line 6) * page furniture: Page Furniture. (line 6) * page length: Text Formatting. (line 47) * pascal: Languages. (line 6) * perl: Languages. (line 6) * personal defaults: Miscellaneous Features. (line 47) * plain text: Languages. (line 6) * pointsize: Text Formatting. (line 47) * portrait: Page Formatting. (line 6) * postscript: Output Options. (line 6) * postscript level: Miscellaneous Features. (line 66) * printer destination: Output Options. (line 6) * printer queues: Installing Trueprint. (line 39) * printer specification: Installing Trueprint. (line 39) * printers file: Installing Trueprint. (line 39) * printing multiple copies: Output Options. (line 6) * pseudo C: Languages. (line 6) * report format: Languages. (line 6) * saving postscript: Output Options. (line 6) * selecting pages to print: Print Selection. (line 6) * setting defaults: Miscellaneous Features. (line 47) * shell: Languages. (line 6) * single-sided: Page Formatting. (line 6) * smell: Overview. (line 6) * string format characters: Page Furniture. (line 28) * tab size: Text Formatting. (line 72) * testing the installation: Installing Trueprint. (line 14) * text formatting: Text Formatting. (line 6) * text size: Text Formatting. (line 47) * top holepunch: Page Formatting. (line 6) * two-up: Page Formatting. (line 6) * two-up with small font: Page Formatting. (line 6) * verilog: Languages. (line 6) * version information: Miscellaneous Features. (line 38)  Tag Table: Node: Top319 Node: Overview1261 Node: Installing Trueprint3181 Node: Languages6942 Node: Page Formatting9527 Node: Page Furniture11425 Node: Text Formatting15505 Node: Output Options18780 Node: Print Selection20057 Node: Miscellaneous Features22176 Node: Options and Environment Variables List25803 Node: Option Index32391 Node: Concept Index37991  End Tag Table trueprint-5.4/doc/Makefile.am0000644000175000017500000000052207625761737013163 00000000000000## Makefile.am -- Process this file with automake to produce Makefile.in man_MANS = trueprint.1 MAINTAINERCLEANFILES = Makefile.in info_TEXINFOS = trueprint.texi # We can make a trueprint.html, but this isn't done as part of a # normal distribution SUFFIXES = .html html_docs = trueprint.html .texi.html: $(MAKEINFO) --html $< trueprint-5.4/ChangeLog0000644000175000017500000000043012116652577012122 000000000000002001-07-18 lgiles@upstairs.bayberry * configure.in: Should build under cygwin 1.3.2 Trueprint 5.3 2013-03-9 Jeffrin Jose T Worked on security : CVE-2009-4029 and CVE-2012-3386 Package has been updated to new features trueprint-5.4/missing0000755000175000017500000002415212116415062011740 00000000000000#! /bin/sh # Common stub for a few missing GNU programs while installing. scriptversion=2012-01-06.13; # UTC # Copyright (C) 1996, 1997, 1999, 2000, 2002, 2003, 2004, 2005, 2006, # 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. # Originally by Fran,cois Pinard , 1996. # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program. If not, see . # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. if test $# -eq 0; then echo 1>&2 "Try \`$0 --help' for more information" exit 1 fi run=: sed_output='s/.* --output[ =]\([^ ]*\).*/\1/p' sed_minuso='s/.* -o \([^ ]*\).*/\1/p' # In the cases where this matters, `missing' is being run in the # srcdir already. if test -f configure.ac; then configure_ac=configure.ac else configure_ac=configure.in fi msg="missing on your system" case $1 in --run) # Try to run requested program, and just exit if it succeeds. run= shift "$@" && exit 0 # Exit code 63 means version mismatch. This often happens # when the user try to use an ancient version of a tool on # a file that requires a minimum version. In this case we # we should proceed has if the program had been absent, or # if --run hadn't been passed. if test $? = 63; then run=: msg="probably too old" fi ;; -h|--h|--he|--hel|--help) echo "\ $0 [OPTION]... PROGRAM [ARGUMENT]... Handle \`PROGRAM [ARGUMENT]...' for when PROGRAM is missing, or return an error status if there is no known handling for PROGRAM. Options: -h, --help display this help and exit -v, --version output version information and exit --run try to run the given command, and emulate it if it fails Supported PROGRAM values: aclocal touch file \`aclocal.m4' autoconf touch file \`configure' autoheader touch file \`config.h.in' autom4te touch the output file, or create a stub one automake touch all \`Makefile.in' files bison create \`y.tab.[ch]', if possible, from existing .[ch] flex create \`lex.yy.c', if possible, from existing .c help2man touch the output file lex create \`lex.yy.c', if possible, from existing .c makeinfo touch the output file yacc create \`y.tab.[ch]', if possible, from existing .[ch] Version suffixes to PROGRAM as well as the prefixes \`gnu-', \`gnu', and \`g' are ignored when checking the name. Send bug reports to ." exit $? ;; -v|--v|--ve|--ver|--vers|--versi|--versio|--version) echo "missing $scriptversion (GNU Automake)" exit $? ;; -*) echo 1>&2 "$0: Unknown \`$1' option" echo 1>&2 "Try \`$0 --help' for more information" exit 1 ;; esac # normalize program name to check for. program=`echo "$1" | sed ' s/^gnu-//; t s/^gnu//; t s/^g//; t'` # Now exit if we have it, but it failed. Also exit now if we # don't have it and --version was passed (most likely to detect # the program). This is about non-GNU programs, so use $1 not # $program. case $1 in lex*|yacc*) # Not GNU programs, they don't have --version. ;; *) if test -z "$run" && ($1 --version) > /dev/null 2>&1; then # We have it, but it failed. exit 1 elif test "x$2" = "x--version" || test "x$2" = "x--help"; then # Could not run --version or --help. This is probably someone # running `$TOOL --version' or `$TOOL --help' to check whether # $TOOL exists and not knowing $TOOL uses missing. exit 1 fi ;; esac # If it does not exist, or fails to run (possibly an outdated version), # try to emulate it. case $program in aclocal*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified \`acinclude.m4' or \`${configure_ac}'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." touch aclocal.m4 ;; autoconf*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified \`${configure_ac}'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." touch configure ;; autoheader*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified \`acconfig.h' or \`${configure_ac}'. You might want to install the \`Autoconf' and \`GNU m4' packages. Grab them from any GNU archive site." files=`sed -n 's/^[ ]*A[CM]_CONFIG_HEADER(\([^)]*\)).*/\1/p' ${configure_ac}` test -z "$files" && files="config.h" touch_files= for f in $files; do case $f in *:*) touch_files="$touch_files "`echo "$f" | sed -e 's/^[^:]*://' -e 's/:.*//'`;; *) touch_files="$touch_files $f.in";; esac done touch $touch_files ;; automake*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified \`Makefile.am', \`acinclude.m4' or \`${configure_ac}'. You might want to install the \`Automake' and \`Perl' packages. Grab them from any GNU archive site." find . -type f -name Makefile.am -print | sed 's/\.am$/.in/' | while read f; do touch "$f"; done ;; autom4te*) echo 1>&2 "\ WARNING: \`$1' is needed, but is $msg. You might have modified some files without having the proper tools for further handling them. You can get \`$1' as part of \`Autoconf' from any GNU archive site." file=`echo "$*" | sed -n "$sed_output"` test -z "$file" && file=`echo "$*" | sed -n "$sed_minuso"` if test -f "$file"; then touch $file else test -z "$file" || exec >$file echo "#! /bin/sh" echo "# Created by GNU Automake missing as a replacement of" echo "# $ $@" echo "exit 0" chmod +x $file exit 1 fi ;; bison*|yacc*) echo 1>&2 "\ WARNING: \`$1' $msg. You should only need it if you modified a \`.y' file. You may need the \`Bison' package in order for those modifications to take effect. You can get \`Bison' from any GNU archive site." rm -f y.tab.c y.tab.h if test $# -ne 1; then eval LASTARG=\${$#} case $LASTARG in *.y) SRCFILE=`echo "$LASTARG" | sed 's/y$/c/'` if test -f "$SRCFILE"; then cp "$SRCFILE" y.tab.c fi SRCFILE=`echo "$LASTARG" | sed 's/y$/h/'` if test -f "$SRCFILE"; then cp "$SRCFILE" y.tab.h fi ;; esac fi if test ! -f y.tab.h; then echo >y.tab.h fi if test ! -f y.tab.c; then echo 'main() { return 0; }' >y.tab.c fi ;; lex*|flex*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified a \`.l' file. You may need the \`Flex' package in order for those modifications to take effect. You can get \`Flex' from any GNU archive site." rm -f lex.yy.c if test $# -ne 1; then eval LASTARG=\${$#} case $LASTARG in *.l) SRCFILE=`echo "$LASTARG" | sed 's/l$/c/'` if test -f "$SRCFILE"; then cp "$SRCFILE" lex.yy.c fi ;; esac fi if test ! -f lex.yy.c; then echo 'main() { return 0; }' >lex.yy.c fi ;; help2man*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified a dependency of a manual page. You may need the \`Help2man' package in order for those modifications to take effect. You can get \`Help2man' from any GNU archive site." file=`echo "$*" | sed -n "$sed_output"` test -z "$file" && file=`echo "$*" | sed -n "$sed_minuso"` if test -f "$file"; then touch $file else test -z "$file" || exec >$file echo ".ab help2man is required to generate this page" exit $? fi ;; makeinfo*) echo 1>&2 "\ WARNING: \`$1' is $msg. You should only need it if you modified a \`.texi' or \`.texinfo' file, or any other file indirectly affecting the aspect of the manual. The spurious call might also be the consequence of using a buggy \`make' (AIX, DU, IRIX). You might want to install the \`Texinfo' package or the \`GNU make' package. Grab either from any GNU archive site." # The file to touch is that specified with -o ... file=`echo "$*" | sed -n "$sed_output"` test -z "$file" && file=`echo "$*" | sed -n "$sed_minuso"` if test -z "$file"; then # ... or it is the one specified with @setfilename ... infile=`echo "$*" | sed 's/.* \([^ ]*\) *$/\1/'` file=`sed -n ' /^@setfilename/{ s/.* \([^ ]*\) *$/\1/ p q }' $infile` # ... or it is derived from the source name (dir/f.texi becomes f.info) test -z "$file" && file=`echo "$infile" | sed 's,.*/,,;s,.[^.]*$,,'`.info fi # If the file does not exist, the user really needs makeinfo; # let's fail without touching anything. test -f $file || exit 1 touch $file ;; *) echo 1>&2 "\ WARNING: \`$1' is needed, and is $msg. You might have modified some files without having the proper tools for further handling them. Check the \`README' file, it often tells you about the needed prerequisites for installing this package. You may also peek at any GNU archive site, in case some other package would contain this missing \`$1' program." exit 1 ;; esac exit 0 # Local variables: # eval: (add-hook 'write-file-hooks 'time-stamp) # time-stamp-start: "scriptversion=" # time-stamp-format: "%:y-%02m-%02d.%02H" # time-stamp-time-zone: "UTC" # time-stamp-end: "; # UTC" # End: trueprint-5.4/ltmain.sh0000644000175000017500000105202612054010453012157 00000000000000 # libtool (GNU libtool) 2.4.2 # Written by Gordon Matzigkeit , 1996 # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005, 2006, # 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc. # This is free software; see the source for copying conditions. There is NO # warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. # GNU Libtool is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # As a special exception to the GNU General Public License, # if you distribute this file as part of a program or library that # is built using GNU Libtool, you may include this file under the # same distribution terms that you use for the rest of that program. # # GNU Libtool is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with GNU Libtool; see the file COPYING. If not, a copy # can be downloaded from http://www.gnu.org/licenses/gpl.html, # or obtained by writing to the Free Software Foundation, Inc., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. # Usage: $progname [OPTION]... [MODE-ARG]... # # Provide generalized library-building support services. # # --config show all configuration variables # --debug enable verbose shell tracing # -n, --dry-run display commands without modifying any files # --features display basic configuration information and exit # --mode=MODE use operation mode MODE # --preserve-dup-deps don't remove duplicate dependency libraries # --quiet, --silent don't print informational messages # --no-quiet, --no-silent # print informational messages (default) # --no-warn don't display warning messages # --tag=TAG use configuration variables from tag TAG # -v, --verbose print more informational messages than default # --no-verbose don't print the extra informational messages # --version print version information # -h, --help, --help-all print short, long, or detailed help message # # MODE must be one of the following: # # clean remove files from the build directory # compile compile a source file into a libtool object # execute automatically set library path, then run a program # finish complete the installation of libtool libraries # install install libraries or executables # link create a library or an executable # uninstall remove libraries from an installed directory # # MODE-ARGS vary depending on the MODE. When passed as first option, # `--mode=MODE' may be abbreviated as `MODE' or a unique abbreviation of that. # Try `$progname --help --mode=MODE' for a more detailed description of MODE. # # When reporting a bug, please describe a test case to reproduce it and # include the following information: # # host-triplet: $host # shell: $SHELL # compiler: $LTCC # compiler flags: $LTCFLAGS # linker: $LD (gnu? $with_gnu_ld) # $progname: (GNU libtool) 2.4.2 Debian-2.4.2-1.2 # automake: $automake_version # autoconf: $autoconf_version # # Report bugs to . # GNU libtool home page: . # General help using GNU software: . PROGRAM=libtool PACKAGE=libtool VERSION="2.4.2 Debian-2.4.2-1.2" TIMESTAMP="" package_revision=1.3337 # Be Bourne compatible if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on ${1+"$@"}, which # is contrary to our usage. Disable this feature. alias -g '${1+"$@"}'='"$@"' setopt NO_GLOB_SUBST else case `(set -o) 2>/dev/null` in *posix*) set -o posix;; esac fi BIN_SH=xpg4; export BIN_SH # for Tru64 DUALCASE=1; export DUALCASE # for MKS sh # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF $1 _LTECHO_EOF' } # NLS nuisances: We save the old values to restore during execute mode. lt_user_locale= lt_safe_locale= for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES do eval "if test \"\${$lt_var+set}\" = set; then save_$lt_var=\$$lt_var $lt_var=C export $lt_var lt_user_locale=\"$lt_var=\\\$save_\$lt_var; \$lt_user_locale\" lt_safe_locale=\"$lt_var=C; \$lt_safe_locale\" fi" done LC_ALL=C LANGUAGE=C export LANGUAGE LC_ALL $lt_unset CDPATH # Work around backward compatibility issue on IRIX 6.5. On IRIX 6.4+, sh # is ksh but when the shell is invoked as "sh" and the current value of # the _XPG environment variable is not equal to 1 (one), the special # positional parameter $0, within a function call, is the name of the # function. progpath="$0" : ${CP="cp -f"} test "${ECHO+set}" = set || ECHO=${as_echo-'printf %s\n'} : ${MAKE="make"} : ${MKDIR="mkdir"} : ${MV="mv -f"} : ${RM="rm -f"} : ${SHELL="${CONFIG_SHELL-/bin/sh}"} : ${Xsed="$SED -e 1s/^X//"} # Global variables: EXIT_SUCCESS=0 EXIT_FAILURE=1 EXIT_MISMATCH=63 # $? = 63 is used to indicate version mismatch to missing. EXIT_SKIP=77 # $? = 77 is used to indicate a skipped test to automake. exit_status=$EXIT_SUCCESS # Make sure IFS has a sensible default lt_nl=' ' IFS=" $lt_nl" dirname="s,/[^/]*$,," basename="s,^.*/,," # func_dirname file append nondir_replacement # Compute the dirname of FILE. If nonempty, add APPEND to the result, # otherwise set result to NONDIR_REPLACEMENT. func_dirname () { func_dirname_result=`$ECHO "${1}" | $SED "$dirname"` if test "X$func_dirname_result" = "X${1}"; then func_dirname_result="${3}" else func_dirname_result="$func_dirname_result${2}" fi } # func_dirname may be replaced by extended shell implementation # func_basename file func_basename () { func_basename_result=`$ECHO "${1}" | $SED "$basename"` } # func_basename may be replaced by extended shell implementation # func_dirname_and_basename file append nondir_replacement # perform func_basename and func_dirname in a single function # call: # dirname: Compute the dirname of FILE. If nonempty, # add APPEND to the result, otherwise set result # to NONDIR_REPLACEMENT. # value returned in "$func_dirname_result" # basename: Compute filename of FILE. # value retuned in "$func_basename_result" # Implementation must be kept synchronized with func_dirname # and func_basename. For efficiency, we do not delegate to # those functions but instead duplicate the functionality here. func_dirname_and_basename () { # Extract subdirectory from the argument. func_dirname_result=`$ECHO "${1}" | $SED -e "$dirname"` if test "X$func_dirname_result" = "X${1}"; then func_dirname_result="${3}" else func_dirname_result="$func_dirname_result${2}" fi func_basename_result=`$ECHO "${1}" | $SED -e "$basename"` } # func_dirname_and_basename may be replaced by extended shell implementation # func_stripname prefix suffix name # strip PREFIX and SUFFIX off of NAME. # PREFIX and SUFFIX must not contain globbing or regex special # characters, hashes, percent signs, but SUFFIX may contain a leading # dot (in which case that matches only a dot). # func_strip_suffix prefix name func_stripname () { case ${2} in .*) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%\\\\${2}\$%%"`;; *) func_stripname_result=`$ECHO "${3}" | $SED "s%^${1}%%; s%${2}\$%%"`;; esac } # func_stripname may be replaced by extended shell implementation # These SED scripts presuppose an absolute path with a trailing slash. pathcar='s,^/\([^/]*\).*$,\1,' pathcdr='s,^/[^/]*,,' removedotparts=':dotsl s@/\./@/@g t dotsl s,/\.$,/,' collapseslashes='s@/\{1,\}@/@g' finalslash='s,/*$,/,' # func_normal_abspath PATH # Remove doubled-up and trailing slashes, "." path components, # and cancel out any ".." path components in PATH after making # it an absolute path. # value returned in "$func_normal_abspath_result" func_normal_abspath () { # Start from root dir and reassemble the path. func_normal_abspath_result= func_normal_abspath_tpath=$1 func_normal_abspath_altnamespace= case $func_normal_abspath_tpath in "") # Empty path, that just means $cwd. func_stripname '' '/' "`pwd`" func_normal_abspath_result=$func_stripname_result return ;; # The next three entries are used to spot a run of precisely # two leading slashes without using negated character classes; # we take advantage of case's first-match behaviour. ///*) # Unusual form of absolute path, do nothing. ;; //*) # Not necessarily an ordinary path; POSIX reserves leading '//' # and for example Cygwin uses it to access remote file shares # over CIFS/SMB, so we conserve a leading double slash if found. func_normal_abspath_altnamespace=/ ;; /*) # Absolute path, do nothing. ;; *) # Relative path, prepend $cwd. func_normal_abspath_tpath=`pwd`/$func_normal_abspath_tpath ;; esac # Cancel out all the simple stuff to save iterations. We also want # the path to end with a slash for ease of parsing, so make sure # there is one (and only one) here. func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \ -e "$removedotparts" -e "$collapseslashes" -e "$finalslash"` while :; do # Processed it all yet? if test "$func_normal_abspath_tpath" = / ; then # If we ascended to the root using ".." the result may be empty now. if test -z "$func_normal_abspath_result" ; then func_normal_abspath_result=/ fi break fi func_normal_abspath_tcomponent=`$ECHO "$func_normal_abspath_tpath" | $SED \ -e "$pathcar"` func_normal_abspath_tpath=`$ECHO "$func_normal_abspath_tpath" | $SED \ -e "$pathcdr"` # Figure out what to do with it case $func_normal_abspath_tcomponent in "") # Trailing empty path component, ignore it. ;; ..) # Parent dir; strip last assembled component from result. func_dirname "$func_normal_abspath_result" func_normal_abspath_result=$func_dirname_result ;; *) # Actual path component, append it. func_normal_abspath_result=$func_normal_abspath_result/$func_normal_abspath_tcomponent ;; esac done # Restore leading double-slash if one was found on entry. func_normal_abspath_result=$func_normal_abspath_altnamespace$func_normal_abspath_result } # func_relative_path SRCDIR DSTDIR # generates a relative path from SRCDIR to DSTDIR, with a trailing # slash if non-empty, suitable for immediately appending a filename # without needing to append a separator. # value returned in "$func_relative_path_result" func_relative_path () { func_relative_path_result= func_normal_abspath "$1" func_relative_path_tlibdir=$func_normal_abspath_result func_normal_abspath "$2" func_relative_path_tbindir=$func_normal_abspath_result # Ascend the tree starting from libdir while :; do # check if we have found a prefix of bindir case $func_relative_path_tbindir in $func_relative_path_tlibdir) # found an exact match func_relative_path_tcancelled= break ;; $func_relative_path_tlibdir*) # found a matching prefix func_stripname "$func_relative_path_tlibdir" '' "$func_relative_path_tbindir" func_relative_path_tcancelled=$func_stripname_result if test -z "$func_relative_path_result"; then func_relative_path_result=. fi break ;; *) func_dirname $func_relative_path_tlibdir func_relative_path_tlibdir=${func_dirname_result} if test "x$func_relative_path_tlibdir" = x ; then # Have to descend all the way to the root! func_relative_path_result=../$func_relative_path_result func_relative_path_tcancelled=$func_relative_path_tbindir break fi func_relative_path_result=../$func_relative_path_result ;; esac done # Now calculate path; take care to avoid doubling-up slashes. func_stripname '' '/' "$func_relative_path_result" func_relative_path_result=$func_stripname_result func_stripname '/' '/' "$func_relative_path_tcancelled" if test "x$func_stripname_result" != x ; then func_relative_path_result=${func_relative_path_result}/${func_stripname_result} fi # Normalisation. If bindir is libdir, return empty string, # else relative path ending with a slash; either way, target # file name can be directly appended. if test ! -z "$func_relative_path_result"; then func_stripname './' '' "$func_relative_path_result/" func_relative_path_result=$func_stripname_result fi } # The name of this program: func_dirname_and_basename "$progpath" progname=$func_basename_result # Make sure we have an absolute path for reexecution: case $progpath in [\\/]*|[A-Za-z]:\\*) ;; *[\\/]*) progdir=$func_dirname_result progdir=`cd "$progdir" && pwd` progpath="$progdir/$progname" ;; *) save_IFS="$IFS" IFS=${PATH_SEPARATOR-:} for progdir in $PATH; do IFS="$save_IFS" test -x "$progdir/$progname" && break done IFS="$save_IFS" test -n "$progdir" || progdir=`pwd` progpath="$progdir/$progname" ;; esac # Sed substitution that helps us do robust quoting. It backslashifies # metacharacters that are still active within double-quoted strings. Xsed="${SED}"' -e 1s/^X//' sed_quote_subst='s/\([`"$\\]\)/\\\1/g' # Same as above, but do not quote variable references. double_quote_subst='s/\(["`\\]\)/\\\1/g' # Sed substitution that turns a string into a regex matching for the # string literally. sed_make_literal_regex='s,[].[^$\\*\/],\\&,g' # Sed substitution that converts a w32 file name or path # which contains forward slashes, into one that contains # (escaped) backslashes. A very naive implementation. lt_sed_naive_backslashify='s|\\\\*|\\|g;s|/|\\|g;s|\\|\\\\|g' # Re-`\' parameter expansions in output of double_quote_subst that were # `\'-ed in input to the same. If an odd number of `\' preceded a '$' # in input to double_quote_subst, that '$' was protected from expansion. # Since each input `\' is now two `\'s, look for any number of runs of # four `\'s followed by two `\'s and then a '$'. `\' that '$'. bs='\\' bs2='\\\\' bs4='\\\\\\\\' dollar='\$' sed_double_backslash="\ s/$bs4/&\\ /g s/^$bs2$dollar/$bs&/ s/\\([^$bs]\\)$bs2$dollar/\\1$bs2$bs$dollar/g s/\n//g" # Standard options: opt_dry_run=false opt_help=false opt_quiet=false opt_verbose=false opt_warning=: # func_echo arg... # Echo program name prefixed message, along with the current mode # name if it has been set yet. func_echo () { $ECHO "$progname: ${opt_mode+$opt_mode: }$*" } # func_verbose arg... # Echo program name prefixed message in verbose mode only. func_verbose () { $opt_verbose && func_echo ${1+"$@"} # A bug in bash halts the script if the last line of a function # fails when set -e is in force, so we need another command to # work around that: : } # func_echo_all arg... # Invoke $ECHO with all args, space-separated. func_echo_all () { $ECHO "$*" } # func_error arg... # Echo program name prefixed message to standard error. func_error () { $ECHO "$progname: ${opt_mode+$opt_mode: }"${1+"$@"} 1>&2 } # func_warning arg... # Echo program name prefixed warning message to standard error. func_warning () { $opt_warning && $ECHO "$progname: ${opt_mode+$opt_mode: }warning: "${1+"$@"} 1>&2 # bash bug again: : } # func_fatal_error arg... # Echo program name prefixed message to standard error, and exit. func_fatal_error () { func_error ${1+"$@"} exit $EXIT_FAILURE } # func_fatal_help arg... # Echo program name prefixed message to standard error, followed by # a help hint, and exit. func_fatal_help () { func_error ${1+"$@"} func_fatal_error "$help" } help="Try \`$progname --help' for more information." ## default # func_grep expression filename # Check whether EXPRESSION matches any line of FILENAME, without output. func_grep () { $GREP "$1" "$2" >/dev/null 2>&1 } # func_mkdir_p directory-path # Make sure the entire path to DIRECTORY-PATH is available. func_mkdir_p () { my_directory_path="$1" my_dir_list= if test -n "$my_directory_path" && test "$opt_dry_run" != ":"; then # Protect directory names starting with `-' case $my_directory_path in -*) my_directory_path="./$my_directory_path" ;; esac # While some portion of DIR does not yet exist... while test ! -d "$my_directory_path"; do # ...make a list in topmost first order. Use a colon delimited # list incase some portion of path contains whitespace. my_dir_list="$my_directory_path:$my_dir_list" # If the last portion added has no slash in it, the list is done case $my_directory_path in */*) ;; *) break ;; esac # ...otherwise throw away the child directory and loop my_directory_path=`$ECHO "$my_directory_path" | $SED -e "$dirname"` done my_dir_list=`$ECHO "$my_dir_list" | $SED 's,:*$,,'` save_mkdir_p_IFS="$IFS"; IFS=':' for my_dir in $my_dir_list; do IFS="$save_mkdir_p_IFS" # mkdir can fail with a `File exist' error if two processes # try to create one of the directories concurrently. Don't # stop in that case! $MKDIR "$my_dir" 2>/dev/null || : done IFS="$save_mkdir_p_IFS" # Bail out if we (or some other process) failed to create a directory. test -d "$my_directory_path" || \ func_fatal_error "Failed to create \`$1'" fi } # func_mktempdir [string] # Make a temporary directory that won't clash with other running # libtool processes, and avoids race conditions if possible. If # given, STRING is the basename for that directory. func_mktempdir () { my_template="${TMPDIR-/tmp}/${1-$progname}" if test "$opt_dry_run" = ":"; then # Return a directory name, but don't create it in dry-run mode my_tmpdir="${my_template}-$$" else # If mktemp works, use that first and foremost my_tmpdir=`mktemp -d "${my_template}-XXXXXXXX" 2>/dev/null` if test ! -d "$my_tmpdir"; then # Failing that, at least try and use $RANDOM to avoid a race my_tmpdir="${my_template}-${RANDOM-0}$$" save_mktempdir_umask=`umask` umask 0077 $MKDIR "$my_tmpdir" umask $save_mktempdir_umask fi # If we're not in dry-run mode, bomb out on failure test -d "$my_tmpdir" || \ func_fatal_error "cannot create temporary directory \`$my_tmpdir'" fi $ECHO "$my_tmpdir" } # func_quote_for_eval arg # Aesthetically quote ARG to be evaled later. # This function returns two values: FUNC_QUOTE_FOR_EVAL_RESULT # is double-quoted, suitable for a subsequent eval, whereas # FUNC_QUOTE_FOR_EVAL_UNQUOTED_RESULT has merely all characters # which are still active within double quotes backslashified. func_quote_for_eval () { case $1 in *[\\\`\"\$]*) func_quote_for_eval_unquoted_result=`$ECHO "$1" | $SED "$sed_quote_subst"` ;; *) func_quote_for_eval_unquoted_result="$1" ;; esac case $func_quote_for_eval_unquoted_result in # Double-quote args containing shell metacharacters to delay # word splitting, command substitution and and variable # expansion for a subsequent eval. # Many Bourne shells cannot handle close brackets correctly # in scan sets, so we specify it separately. *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") func_quote_for_eval_result="\"$func_quote_for_eval_unquoted_result\"" ;; *) func_quote_for_eval_result="$func_quote_for_eval_unquoted_result" esac } # func_quote_for_expand arg # Aesthetically quote ARG to be evaled later; same as above, # but do not quote variable references. func_quote_for_expand () { case $1 in *[\\\`\"]*) my_arg=`$ECHO "$1" | $SED \ -e "$double_quote_subst" -e "$sed_double_backslash"` ;; *) my_arg="$1" ;; esac case $my_arg in # Double-quote args containing shell metacharacters to delay # word splitting and command substitution for a subsequent eval. # Many Bourne shells cannot handle close brackets correctly # in scan sets, so we specify it separately. *[\[\~\#\^\&\*\(\)\{\}\|\;\<\>\?\'\ \ ]*|*]*|"") my_arg="\"$my_arg\"" ;; esac func_quote_for_expand_result="$my_arg" } # func_show_eval cmd [fail_exp] # Unless opt_silent is true, then output CMD. Then, if opt_dryrun is # not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP # is given, then evaluate it. func_show_eval () { my_cmd="$1" my_fail_exp="${2-:}" ${opt_silent-false} || { func_quote_for_expand "$my_cmd" eval "func_echo $func_quote_for_expand_result" } if ${opt_dry_run-false}; then :; else eval "$my_cmd" my_status=$? if test "$my_status" -eq 0; then :; else eval "(exit $my_status); $my_fail_exp" fi fi } # func_show_eval_locale cmd [fail_exp] # Unless opt_silent is true, then output CMD. Then, if opt_dryrun is # not true, evaluate CMD. If the evaluation of CMD fails, and FAIL_EXP # is given, then evaluate it. Use the saved locale for evaluation. func_show_eval_locale () { my_cmd="$1" my_fail_exp="${2-:}" ${opt_silent-false} || { func_quote_for_expand "$my_cmd" eval "func_echo $func_quote_for_expand_result" } if ${opt_dry_run-false}; then :; else eval "$lt_user_locale $my_cmd" my_status=$? eval "$lt_safe_locale" if test "$my_status" -eq 0; then :; else eval "(exit $my_status); $my_fail_exp" fi fi } # func_tr_sh # Turn $1 into a string suitable for a shell variable name. # Result is stored in $func_tr_sh_result. All characters # not in the set a-zA-Z0-9_ are replaced with '_'. Further, # if $1 begins with a digit, a '_' is prepended as well. func_tr_sh () { case $1 in [0-9]* | *[!a-zA-Z0-9_]*) func_tr_sh_result=`$ECHO "$1" | $SED 's/^\([0-9]\)/_\1/; s/[^a-zA-Z0-9_]/_/g'` ;; * ) func_tr_sh_result=$1 ;; esac } # func_version # Echo version message to standard output and exit. func_version () { $opt_debug $SED -n '/(C)/!b go :more /\./!{ N s/\n# / / b more } :go /^# '$PROGRAM' (GNU /,/# warranty; / { s/^# // s/^# *$// s/\((C)\)[ 0-9,-]*\( [1-9][0-9]*\)/\1\2/ p }' < "$progpath" exit $? } # func_usage # Echo short help message to standard output and exit. func_usage () { $opt_debug $SED -n '/^# Usage:/,/^# *.*--help/ { s/^# // s/^# *$// s/\$progname/'$progname'/ p }' < "$progpath" echo $ECHO "run \`$progname --help | more' for full usage" exit $? } # func_help [NOEXIT] # Echo long help message to standard output and exit, # unless 'noexit' is passed as argument. func_help () { $opt_debug $SED -n '/^# Usage:/,/# Report bugs to/ { :print s/^# // s/^# *$// s*\$progname*'$progname'* s*\$host*'"$host"'* s*\$SHELL*'"$SHELL"'* s*\$LTCC*'"$LTCC"'* s*\$LTCFLAGS*'"$LTCFLAGS"'* s*\$LD*'"$LD"'* s/\$with_gnu_ld/'"$with_gnu_ld"'/ s/\$automake_version/'"`(${AUTOMAKE-automake} --version) 2>/dev/null |$SED 1q`"'/ s/\$autoconf_version/'"`(${AUTOCONF-autoconf} --version) 2>/dev/null |$SED 1q`"'/ p d } /^# .* home page:/b print /^# General help using/b print ' < "$progpath" ret=$? if test -z "$1"; then exit $ret fi } # func_missing_arg argname # Echo program name prefixed message to standard error and set global # exit_cmd. func_missing_arg () { $opt_debug func_error "missing argument for $1." exit_cmd=exit } # func_split_short_opt shortopt # Set func_split_short_opt_name and func_split_short_opt_arg shell # variables after splitting SHORTOPT after the 2nd character. func_split_short_opt () { my_sed_short_opt='1s/^\(..\).*$/\1/;q' my_sed_short_rest='1s/^..\(.*\)$/\1/;q' func_split_short_opt_name=`$ECHO "$1" | $SED "$my_sed_short_opt"` func_split_short_opt_arg=`$ECHO "$1" | $SED "$my_sed_short_rest"` } # func_split_short_opt may be replaced by extended shell implementation # func_split_long_opt longopt # Set func_split_long_opt_name and func_split_long_opt_arg shell # variables after splitting LONGOPT at the `=' sign. func_split_long_opt () { my_sed_long_opt='1s/^\(--[^=]*\)=.*/\1/;q' my_sed_long_arg='1s/^--[^=]*=//' func_split_long_opt_name=`$ECHO "$1" | $SED "$my_sed_long_opt"` func_split_long_opt_arg=`$ECHO "$1" | $SED "$my_sed_long_arg"` } # func_split_long_opt may be replaced by extended shell implementation exit_cmd=: magic="%%%MAGIC variable%%%" magic_exe="%%%MAGIC EXE variable%%%" # Global variables. nonopt= preserve_args= lo2o="s/\\.lo\$/.${objext}/" o2lo="s/\\.${objext}\$/.lo/" extracted_archives= extracted_serial=0 # If this variable is set in any of the actions, the command in it # will be execed at the end. This prevents here-documents from being # left over by shells. exec_cmd= # func_append var value # Append VALUE to the end of shell variable VAR. func_append () { eval "${1}=\$${1}\${2}" } # func_append may be replaced by extended shell implementation # func_append_quoted var value # Quote VALUE and append to the end of shell variable VAR, separated # by a space. func_append_quoted () { func_quote_for_eval "${2}" eval "${1}=\$${1}\\ \$func_quote_for_eval_result" } # func_append_quoted may be replaced by extended shell implementation # func_arith arithmetic-term... func_arith () { func_arith_result=`expr "${@}"` } # func_arith may be replaced by extended shell implementation # func_len string # STRING may not start with a hyphen. func_len () { func_len_result=`expr "${1}" : ".*" 2>/dev/null || echo $max_cmd_len` } # func_len may be replaced by extended shell implementation # func_lo2o object func_lo2o () { func_lo2o_result=`$ECHO "${1}" | $SED "$lo2o"` } # func_lo2o may be replaced by extended shell implementation # func_xform libobj-or-source func_xform () { func_xform_result=`$ECHO "${1}" | $SED 's/\.[^.]*$/.lo/'` } # func_xform may be replaced by extended shell implementation # func_fatal_configuration arg... # Echo program name prefixed message to standard error, followed by # a configuration failure hint, and exit. func_fatal_configuration () { func_error ${1+"$@"} func_error "See the $PACKAGE documentation for more information." func_fatal_error "Fatal configuration error." } # func_config # Display the configuration for all the tags in this script. func_config () { re_begincf='^# ### BEGIN LIBTOOL' re_endcf='^# ### END LIBTOOL' # Default configuration. $SED "1,/$re_begincf CONFIG/d;/$re_endcf CONFIG/,\$d" < "$progpath" # Now print the configurations for the tags. for tagname in $taglist; do $SED -n "/$re_begincf TAG CONFIG: $tagname\$/,/$re_endcf TAG CONFIG: $tagname\$/p" < "$progpath" done exit $? } # func_features # Display the features supported by this script. func_features () { echo "host: $host" if test "$build_libtool_libs" = yes; then echo "enable shared libraries" else echo "disable shared libraries" fi if test "$build_old_libs" = yes; then echo "enable static libraries" else echo "disable static libraries" fi exit $? } # func_enable_tag tagname # Verify that TAGNAME is valid, and either flag an error and exit, or # enable the TAGNAME tag. We also add TAGNAME to the global $taglist # variable here. func_enable_tag () { # Global variable: tagname="$1" re_begincf="^# ### BEGIN LIBTOOL TAG CONFIG: $tagname\$" re_endcf="^# ### END LIBTOOL TAG CONFIG: $tagname\$" sed_extractcf="/$re_begincf/,/$re_endcf/p" # Validate tagname. case $tagname in *[!-_A-Za-z0-9,/]*) func_fatal_error "invalid tag name: $tagname" ;; esac # Don't test for the "default" C tag, as we know it's # there but not specially marked. case $tagname in CC) ;; *) if $GREP "$re_begincf" "$progpath" >/dev/null 2>&1; then taglist="$taglist $tagname" # Evaluate the configuration. Be careful to quote the path # and the sed script, to avoid splitting on whitespace, but # also don't use non-portable quotes within backquotes within # quotes we have to do it in 2 steps: extractedcf=`$SED -n -e "$sed_extractcf" < "$progpath"` eval "$extractedcf" else func_error "ignoring unknown tag $tagname" fi ;; esac } # func_check_version_match # Ensure that we are using m4 macros, and libtool script from the same # release of libtool. func_check_version_match () { if test "$package_revision" != "$macro_revision"; then if test "$VERSION" != "$macro_version"; then if test -z "$macro_version"; then cat >&2 <<_LT_EOF $progname: Version mismatch error. This is $PACKAGE $VERSION, but the $progname: definition of this LT_INIT comes from an older release. $progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION $progname: and run autoconf again. _LT_EOF else cat >&2 <<_LT_EOF $progname: Version mismatch error. This is $PACKAGE $VERSION, but the $progname: definition of this LT_INIT comes from $PACKAGE $macro_version. $progname: You should recreate aclocal.m4 with macros from $PACKAGE $VERSION $progname: and run autoconf again. _LT_EOF fi else cat >&2 <<_LT_EOF $progname: Version mismatch error. This is $PACKAGE $VERSION, revision $package_revision, $progname: but the definition of this LT_INIT comes from revision $macro_revision. $progname: You should recreate aclocal.m4 with macros from revision $package_revision $progname: of $PACKAGE $VERSION and run autoconf again. _LT_EOF fi exit $EXIT_MISMATCH fi } # Shorthand for --mode=foo, only valid as the first argument case $1 in clean|clea|cle|cl) shift; set dummy --mode clean ${1+"$@"}; shift ;; compile|compil|compi|comp|com|co|c) shift; set dummy --mode compile ${1+"$@"}; shift ;; execute|execut|execu|exec|exe|ex|e) shift; set dummy --mode execute ${1+"$@"}; shift ;; finish|finis|fini|fin|fi|f) shift; set dummy --mode finish ${1+"$@"}; shift ;; install|instal|insta|inst|ins|in|i) shift; set dummy --mode install ${1+"$@"}; shift ;; link|lin|li|l) shift; set dummy --mode link ${1+"$@"}; shift ;; uninstall|uninstal|uninsta|uninst|unins|unin|uni|un|u) shift; set dummy --mode uninstall ${1+"$@"}; shift ;; esac # Option defaults: opt_debug=: opt_dry_run=false opt_config=false opt_preserve_dup_deps=false opt_features=false opt_finish=false opt_help=false opt_help_all=false opt_silent=: opt_warning=: opt_verbose=: opt_silent=false opt_verbose=false # Parse options once, thoroughly. This comes as soon as possible in the # script to make things like `--version' happen as quickly as we can. { # this just eases exit handling while test $# -gt 0; do opt="$1" shift case $opt in --debug|-x) opt_debug='set -x' func_echo "enabling shell trace mode" $opt_debug ;; --dry-run|--dryrun|-n) opt_dry_run=: ;; --config) opt_config=: func_config ;; --dlopen|-dlopen) optarg="$1" opt_dlopen="${opt_dlopen+$opt_dlopen }$optarg" shift ;; --preserve-dup-deps) opt_preserve_dup_deps=: ;; --features) opt_features=: func_features ;; --finish) opt_finish=: set dummy --mode finish ${1+"$@"}; shift ;; --help) opt_help=: ;; --help-all) opt_help_all=: opt_help=': help-all' ;; --mode) test $# = 0 && func_missing_arg $opt && break optarg="$1" opt_mode="$optarg" case $optarg in # Valid mode arguments: clean|compile|execute|finish|install|link|relink|uninstall) ;; # Catch anything else as an error *) func_error "invalid argument for $opt" exit_cmd=exit break ;; esac shift ;; --no-silent|--no-quiet) opt_silent=false func_append preserve_args " $opt" ;; --no-warning|--no-warn) opt_warning=false func_append preserve_args " $opt" ;; --no-verbose) opt_verbose=false func_append preserve_args " $opt" ;; --silent|--quiet) opt_silent=: func_append preserve_args " $opt" opt_verbose=false ;; --verbose|-v) opt_verbose=: func_append preserve_args " $opt" opt_silent=false ;; --tag) test $# = 0 && func_missing_arg $opt && break optarg="$1" opt_tag="$optarg" func_append preserve_args " $opt $optarg" func_enable_tag "$optarg" shift ;; -\?|-h) func_usage ;; --help) func_help ;; --version) func_version ;; # Separate optargs to long options: --*=*) func_split_long_opt "$opt" set dummy "$func_split_long_opt_name" "$func_split_long_opt_arg" ${1+"$@"} shift ;; # Separate non-argument short options: -\?*|-h*|-n*|-v*) func_split_short_opt "$opt" set dummy "$func_split_short_opt_name" "-$func_split_short_opt_arg" ${1+"$@"} shift ;; --) break ;; -*) func_fatal_help "unrecognized option \`$opt'" ;; *) set dummy "$opt" ${1+"$@"}; shift; break ;; esac done # Validate options: # save first non-option argument if test "$#" -gt 0; then nonopt="$opt" shift fi # preserve --debug test "$opt_debug" = : || func_append preserve_args " --debug" case $host in *cygwin* | *mingw* | *pw32* | *cegcc*) # don't eliminate duplications in $postdeps and $predeps opt_duplicate_compiler_generated_deps=: ;; *) opt_duplicate_compiler_generated_deps=$opt_preserve_dup_deps ;; esac $opt_help || { # Sanity checks first: func_check_version_match if test "$build_libtool_libs" != yes && test "$build_old_libs" != yes; then func_fatal_configuration "not configured to build any kind of library" fi # Darwin sucks eval std_shrext=\"$shrext_cmds\" # Only execute mode is allowed to have -dlopen flags. if test -n "$opt_dlopen" && test "$opt_mode" != execute; then func_error "unrecognized option \`-dlopen'" $ECHO "$help" 1>&2 exit $EXIT_FAILURE fi # Change the help message to a mode-specific one. generic_help="$help" help="Try \`$progname --help --mode=$opt_mode' for more information." } # Bail if the options were screwed $exit_cmd $EXIT_FAILURE } ## ----------- ## ## Main. ## ## ----------- ## # func_lalib_p file # True iff FILE is a libtool `.la' library or `.lo' object file. # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_lalib_p () { test -f "$1" && $SED -e 4q "$1" 2>/dev/null \ | $GREP "^# Generated by .*$PACKAGE" > /dev/null 2>&1 } # func_lalib_unsafe_p file # True iff FILE is a libtool `.la' library or `.lo' object file. # This function implements the same check as func_lalib_p without # resorting to external programs. To this end, it redirects stdin and # closes it afterwards, without saving the original file descriptor. # As a safety measure, use it only where a negative result would be # fatal anyway. Works if `file' does not exist. func_lalib_unsafe_p () { lalib_p=no if test -f "$1" && test -r "$1" && exec 5<&0 <"$1"; then for lalib_p_l in 1 2 3 4 do read lalib_p_line case "$lalib_p_line" in \#\ Generated\ by\ *$PACKAGE* ) lalib_p=yes; break;; esac done exec 0<&5 5<&- fi test "$lalib_p" = yes } # func_ltwrapper_script_p file # True iff FILE is a libtool wrapper script # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_ltwrapper_script_p () { func_lalib_p "$1" } # func_ltwrapper_executable_p file # True iff FILE is a libtool wrapper executable # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_ltwrapper_executable_p () { func_ltwrapper_exec_suffix= case $1 in *.exe) ;; *) func_ltwrapper_exec_suffix=.exe ;; esac $GREP "$magic_exe" "$1$func_ltwrapper_exec_suffix" >/dev/null 2>&1 } # func_ltwrapper_scriptname file # Assumes file is an ltwrapper_executable # uses $file to determine the appropriate filename for a # temporary ltwrapper_script. func_ltwrapper_scriptname () { func_dirname_and_basename "$1" "" "." func_stripname '' '.exe' "$func_basename_result" func_ltwrapper_scriptname_result="$func_dirname_result/$objdir/${func_stripname_result}_ltshwrapper" } # func_ltwrapper_p file # True iff FILE is a libtool wrapper script or wrapper executable # This function is only a basic sanity check; it will hardly flush out # determined imposters. func_ltwrapper_p () { func_ltwrapper_script_p "$1" || func_ltwrapper_executable_p "$1" } # func_execute_cmds commands fail_cmd # Execute tilde-delimited COMMANDS. # If FAIL_CMD is given, eval that upon failure. # FAIL_CMD may read-access the current command in variable CMD! func_execute_cmds () { $opt_debug save_ifs=$IFS; IFS='~' for cmd in $1; do IFS=$save_ifs eval cmd=\"$cmd\" func_show_eval "$cmd" "${2-:}" done IFS=$save_ifs } # func_source file # Source FILE, adding directory component if necessary. # Note that it is not necessary on cygwin/mingw to append a dot to # FILE even if both FILE and FILE.exe exist: automatic-append-.exe # behavior happens only for exec(3), not for open(2)! Also, sourcing # `FILE.' does not work on cygwin managed mounts. func_source () { $opt_debug case $1 in */* | *\\*) . "$1" ;; *) . "./$1" ;; esac } # func_resolve_sysroot PATH # Replace a leading = in PATH with a sysroot. Store the result into # func_resolve_sysroot_result func_resolve_sysroot () { func_resolve_sysroot_result=$1 case $func_resolve_sysroot_result in =*) func_stripname '=' '' "$func_resolve_sysroot_result" func_resolve_sysroot_result=$lt_sysroot$func_stripname_result ;; esac } # func_replace_sysroot PATH # If PATH begins with the sysroot, replace it with = and # store the result into func_replace_sysroot_result. func_replace_sysroot () { case "$lt_sysroot:$1" in ?*:"$lt_sysroot"*) func_stripname "$lt_sysroot" '' "$1" func_replace_sysroot_result="=$func_stripname_result" ;; *) # Including no sysroot. func_replace_sysroot_result=$1 ;; esac } # func_infer_tag arg # Infer tagged configuration to use if any are available and # if one wasn't chosen via the "--tag" command line option. # Only attempt this if the compiler in the base compile # command doesn't match the default compiler. # arg is usually of the form 'gcc ...' func_infer_tag () { $opt_debug if test -n "$available_tags" && test -z "$tagname"; then CC_quoted= for arg in $CC; do func_append_quoted CC_quoted "$arg" done CC_expanded=`func_echo_all $CC` CC_quoted_expanded=`func_echo_all $CC_quoted` case $@ in # Blanks in the command may have been stripped by the calling shell, # but not from the CC environment variable when configure was run. " $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \ " $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*) ;; # Blanks at the start of $base_compile will cause this to fail # if we don't check for them as well. *) for z in $available_tags; do if $GREP "^# ### BEGIN LIBTOOL TAG CONFIG: $z$" < "$progpath" > /dev/null; then # Evaluate the configuration. eval "`${SED} -n -e '/^# ### BEGIN LIBTOOL TAG CONFIG: '$z'$/,/^# ### END LIBTOOL TAG CONFIG: '$z'$/p' < $progpath`" CC_quoted= for arg in $CC; do # Double-quote args containing other shell metacharacters. func_append_quoted CC_quoted "$arg" done CC_expanded=`func_echo_all $CC` CC_quoted_expanded=`func_echo_all $CC_quoted` case "$@ " in " $CC "* | "$CC "* | " $CC_expanded "* | "$CC_expanded "* | \ " $CC_quoted"* | "$CC_quoted "* | " $CC_quoted_expanded "* | "$CC_quoted_expanded "*) # The compiler in the base compile command matches # the one in the tagged configuration. # Assume this is the tagged configuration we want. tagname=$z break ;; esac fi done # If $tagname still isn't set, then no tagged configuration # was found and let the user know that the "--tag" command # line option must be used. if test -z "$tagname"; then func_echo "unable to infer tagged configuration" func_fatal_error "specify a tag with \`--tag'" # else # func_verbose "using $tagname tagged configuration" fi ;; esac fi } # func_write_libtool_object output_name pic_name nonpic_name # Create a libtool object file (analogous to a ".la" file), # but don't create it if we're doing a dry run. func_write_libtool_object () { write_libobj=${1} if test "$build_libtool_libs" = yes; then write_lobj=\'${2}\' else write_lobj=none fi if test "$build_old_libs" = yes; then write_oldobj=\'${3}\' else write_oldobj=none fi $opt_dry_run || { cat >${write_libobj}T </dev/null` if test "$?" -eq 0 && test -n "${func_convert_core_file_wine_to_w32_tmp}"; then func_convert_core_file_wine_to_w32_result=`$ECHO "$func_convert_core_file_wine_to_w32_tmp" | $SED -e "$lt_sed_naive_backslashify"` else func_convert_core_file_wine_to_w32_result= fi fi } # end: func_convert_core_file_wine_to_w32 # func_convert_core_path_wine_to_w32 ARG # Helper function used by path conversion functions when $build is *nix, and # $host is mingw, cygwin, or some other w32 environment. Relies on a correctly # configured wine environment available, with the winepath program in $build's # $PATH. Assumes ARG has no leading or trailing path separator characters. # # ARG is path to be converted from $build format to win32. # Result is available in $func_convert_core_path_wine_to_w32_result. # Unconvertible file (directory) names in ARG are skipped; if no directory names # are convertible, then the result may be empty. func_convert_core_path_wine_to_w32 () { $opt_debug # unfortunately, winepath doesn't convert paths, only file names func_convert_core_path_wine_to_w32_result="" if test -n "$1"; then oldIFS=$IFS IFS=: for func_convert_core_path_wine_to_w32_f in $1; do IFS=$oldIFS func_convert_core_file_wine_to_w32 "$func_convert_core_path_wine_to_w32_f" if test -n "$func_convert_core_file_wine_to_w32_result" ; then if test -z "$func_convert_core_path_wine_to_w32_result"; then func_convert_core_path_wine_to_w32_result="$func_convert_core_file_wine_to_w32_result" else func_append func_convert_core_path_wine_to_w32_result ";$func_convert_core_file_wine_to_w32_result" fi fi done IFS=$oldIFS fi } # end: func_convert_core_path_wine_to_w32 # func_cygpath ARGS... # Wrapper around calling the cygpath program via LT_CYGPATH. This is used when # when (1) $build is *nix and Cygwin is hosted via a wine environment; or (2) # $build is MSYS and $host is Cygwin, or (3) $build is Cygwin. In case (1) or # (2), returns the Cygwin file name or path in func_cygpath_result (input # file name or path is assumed to be in w32 format, as previously converted # from $build's *nix or MSYS format). In case (3), returns the w32 file name # or path in func_cygpath_result (input file name or path is assumed to be in # Cygwin format). Returns an empty string on error. # # ARGS are passed to cygpath, with the last one being the file name or path to # be converted. # # Specify the absolute *nix (or w32) name to cygpath in the LT_CYGPATH # environment variable; do not put it in $PATH. func_cygpath () { $opt_debug if test -n "$LT_CYGPATH" && test -f "$LT_CYGPATH"; then func_cygpath_result=`$LT_CYGPATH "$@" 2>/dev/null` if test "$?" -ne 0; then # on failure, ensure result is empty func_cygpath_result= fi else func_cygpath_result= func_error "LT_CYGPATH is empty or specifies non-existent file: \`$LT_CYGPATH'" fi } #end: func_cygpath # func_convert_core_msys_to_w32 ARG # Convert file name or path ARG from MSYS format to w32 format. Return # result in func_convert_core_msys_to_w32_result. func_convert_core_msys_to_w32 () { $opt_debug # awkward: cmd appends spaces to result func_convert_core_msys_to_w32_result=`( cmd //c echo "$1" ) 2>/dev/null | $SED -e 's/[ ]*$//' -e "$lt_sed_naive_backslashify"` } #end: func_convert_core_msys_to_w32 # func_convert_file_check ARG1 ARG2 # Verify that ARG1 (a file name in $build format) was converted to $host # format in ARG2. Otherwise, emit an error message, but continue (resetting # func_to_host_file_result to ARG1). func_convert_file_check () { $opt_debug if test -z "$2" && test -n "$1" ; then func_error "Could not determine host file name corresponding to" func_error " \`$1'" func_error "Continuing, but uninstalled executables may not work." # Fallback: func_to_host_file_result="$1" fi } # end func_convert_file_check # func_convert_path_check FROM_PATHSEP TO_PATHSEP FROM_PATH TO_PATH # Verify that FROM_PATH (a path in $build format) was converted to $host # format in TO_PATH. Otherwise, emit an error message, but continue, resetting # func_to_host_file_result to a simplistic fallback value (see below). func_convert_path_check () { $opt_debug if test -z "$4" && test -n "$3"; then func_error "Could not determine the host path corresponding to" func_error " \`$3'" func_error "Continuing, but uninstalled executables may not work." # Fallback. This is a deliberately simplistic "conversion" and # should not be "improved". See libtool.info. if test "x$1" != "x$2"; then lt_replace_pathsep_chars="s|$1|$2|g" func_to_host_path_result=`echo "$3" | $SED -e "$lt_replace_pathsep_chars"` else func_to_host_path_result="$3" fi fi } # end func_convert_path_check # func_convert_path_front_back_pathsep FRONTPAT BACKPAT REPL ORIG # Modifies func_to_host_path_result by prepending REPL if ORIG matches FRONTPAT # and appending REPL if ORIG matches BACKPAT. func_convert_path_front_back_pathsep () { $opt_debug case $4 in $1 ) func_to_host_path_result="$3$func_to_host_path_result" ;; esac case $4 in $2 ) func_append func_to_host_path_result "$3" ;; esac } # end func_convert_path_front_back_pathsep ################################################## # $build to $host FILE NAME CONVERSION FUNCTIONS # ################################################## # invoked via `$to_host_file_cmd ARG' # # In each case, ARG is the path to be converted from $build to $host format. # Result will be available in $func_to_host_file_result. # func_to_host_file ARG # Converts the file name ARG from $build format to $host format. Return result # in func_to_host_file_result. func_to_host_file () { $opt_debug $to_host_file_cmd "$1" } # end func_to_host_file # func_to_tool_file ARG LAZY # converts the file name ARG from $build format to toolchain format. Return # result in func_to_tool_file_result. If the conversion in use is listed # in (the comma separated) LAZY, no conversion takes place. func_to_tool_file () { $opt_debug case ,$2, in *,"$to_tool_file_cmd",*) func_to_tool_file_result=$1 ;; *) $to_tool_file_cmd "$1" func_to_tool_file_result=$func_to_host_file_result ;; esac } # end func_to_tool_file # func_convert_file_noop ARG # Copy ARG to func_to_host_file_result. func_convert_file_noop () { func_to_host_file_result="$1" } # end func_convert_file_noop # func_convert_file_msys_to_w32 ARG # Convert file name ARG from (mingw) MSYS to (mingw) w32 format; automatic # conversion to w32 is not available inside the cwrapper. Returns result in # func_to_host_file_result. func_convert_file_msys_to_w32 () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then func_convert_core_msys_to_w32 "$1" func_to_host_file_result="$func_convert_core_msys_to_w32_result" fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_msys_to_w32 # func_convert_file_cygwin_to_w32 ARG # Convert file name ARG from Cygwin to w32 format. Returns result in # func_to_host_file_result. func_convert_file_cygwin_to_w32 () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then # because $build is cygwin, we call "the" cygpath in $PATH; no need to use # LT_CYGPATH in this case. func_to_host_file_result=`cygpath -m "$1"` fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_cygwin_to_w32 # func_convert_file_nix_to_w32 ARG # Convert file name ARG from *nix to w32 format. Requires a wine environment # and a working winepath. Returns result in func_to_host_file_result. func_convert_file_nix_to_w32 () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then func_convert_core_file_wine_to_w32 "$1" func_to_host_file_result="$func_convert_core_file_wine_to_w32_result" fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_nix_to_w32 # func_convert_file_msys_to_cygwin ARG # Convert file name ARG from MSYS to Cygwin format. Requires LT_CYGPATH set. # Returns result in func_to_host_file_result. func_convert_file_msys_to_cygwin () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then func_convert_core_msys_to_w32 "$1" func_cygpath -u "$func_convert_core_msys_to_w32_result" func_to_host_file_result="$func_cygpath_result" fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_msys_to_cygwin # func_convert_file_nix_to_cygwin ARG # Convert file name ARG from *nix to Cygwin format. Requires Cygwin installed # in a wine environment, working winepath, and LT_CYGPATH set. Returns result # in func_to_host_file_result. func_convert_file_nix_to_cygwin () { $opt_debug func_to_host_file_result="$1" if test -n "$1"; then # convert from *nix to w32, then use cygpath to convert from w32 to cygwin. func_convert_core_file_wine_to_w32 "$1" func_cygpath -u "$func_convert_core_file_wine_to_w32_result" func_to_host_file_result="$func_cygpath_result" fi func_convert_file_check "$1" "$func_to_host_file_result" } # end func_convert_file_nix_to_cygwin ############################################# # $build to $host PATH CONVERSION FUNCTIONS # ############################################# # invoked via `$to_host_path_cmd ARG' # # In each case, ARG is the path to be converted from $build to $host format. # The result will be available in $func_to_host_path_result. # # Path separators are also converted from $build format to $host format. If # ARG begins or ends with a path separator character, it is preserved (but # converted to $host format) on output. # # All path conversion functions are named using the following convention: # file name conversion function : func_convert_file_X_to_Y () # path conversion function : func_convert_path_X_to_Y () # where, for any given $build/$host combination the 'X_to_Y' value is the # same. If conversion functions are added for new $build/$host combinations, # the two new functions must follow this pattern, or func_init_to_host_path_cmd # will break. # func_init_to_host_path_cmd # Ensures that function "pointer" variable $to_host_path_cmd is set to the # appropriate value, based on the value of $to_host_file_cmd. to_host_path_cmd= func_init_to_host_path_cmd () { $opt_debug if test -z "$to_host_path_cmd"; then func_stripname 'func_convert_file_' '' "$to_host_file_cmd" to_host_path_cmd="func_convert_path_${func_stripname_result}" fi } # func_to_host_path ARG # Converts the path ARG from $build format to $host format. Return result # in func_to_host_path_result. func_to_host_path () { $opt_debug func_init_to_host_path_cmd $to_host_path_cmd "$1" } # end func_to_host_path # func_convert_path_noop ARG # Copy ARG to func_to_host_path_result. func_convert_path_noop () { func_to_host_path_result="$1" } # end func_convert_path_noop # func_convert_path_msys_to_w32 ARG # Convert path ARG from (mingw) MSYS to (mingw) w32 format; automatic # conversion to w32 is not available inside the cwrapper. Returns result in # func_to_host_path_result. func_convert_path_msys_to_w32 () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # Remove leading and trailing path separator characters from ARG. MSYS # behavior is inconsistent here; cygpath turns them into '.;' and ';.'; # and winepath ignores them completely. func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_msys_to_w32 "$func_to_host_path_tmp1" func_to_host_path_result="$func_convert_core_msys_to_w32_result" func_convert_path_check : ";" \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" fi } # end func_convert_path_msys_to_w32 # func_convert_path_cygwin_to_w32 ARG # Convert path ARG from Cygwin to w32 format. Returns result in # func_to_host_file_result. func_convert_path_cygwin_to_w32 () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # See func_convert_path_msys_to_w32: func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_to_host_path_result=`cygpath -m -p "$func_to_host_path_tmp1"` func_convert_path_check : ";" \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" fi } # end func_convert_path_cygwin_to_w32 # func_convert_path_nix_to_w32 ARG # Convert path ARG from *nix to w32 format. Requires a wine environment and # a working winepath. Returns result in func_to_host_file_result. func_convert_path_nix_to_w32 () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # See func_convert_path_msys_to_w32: func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1" func_to_host_path_result="$func_convert_core_path_wine_to_w32_result" func_convert_path_check : ";" \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" ";" "$1" fi } # end func_convert_path_nix_to_w32 # func_convert_path_msys_to_cygwin ARG # Convert path ARG from MSYS to Cygwin format. Requires LT_CYGPATH set. # Returns result in func_to_host_file_result. func_convert_path_msys_to_cygwin () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # See func_convert_path_msys_to_w32: func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_msys_to_w32 "$func_to_host_path_tmp1" func_cygpath -u -p "$func_convert_core_msys_to_w32_result" func_to_host_path_result="$func_cygpath_result" func_convert_path_check : : \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" : "$1" fi } # end func_convert_path_msys_to_cygwin # func_convert_path_nix_to_cygwin ARG # Convert path ARG from *nix to Cygwin format. Requires Cygwin installed in a # a wine environment, working winepath, and LT_CYGPATH set. Returns result in # func_to_host_file_result. func_convert_path_nix_to_cygwin () { $opt_debug func_to_host_path_result="$1" if test -n "$1"; then # Remove leading and trailing path separator characters from # ARG. msys behavior is inconsistent here, cygpath turns them # into '.;' and ';.', and winepath ignores them completely. func_stripname : : "$1" func_to_host_path_tmp1=$func_stripname_result func_convert_core_path_wine_to_w32 "$func_to_host_path_tmp1" func_cygpath -u -p "$func_convert_core_path_wine_to_w32_result" func_to_host_path_result="$func_cygpath_result" func_convert_path_check : : \ "$func_to_host_path_tmp1" "$func_to_host_path_result" func_convert_path_front_back_pathsep ":*" "*:" : "$1" fi } # end func_convert_path_nix_to_cygwin # func_mode_compile arg... func_mode_compile () { $opt_debug # Get the compilation command and the source file. base_compile= srcfile="$nonopt" # always keep a non-empty value in "srcfile" suppress_opt=yes suppress_output= arg_mode=normal libobj= later= pie_flag= for arg do case $arg_mode in arg ) # do not "continue". Instead, add this to base_compile lastarg="$arg" arg_mode=normal ;; target ) libobj="$arg" arg_mode=normal continue ;; normal ) # Accept any command-line options. case $arg in -o) test -n "$libobj" && \ func_fatal_error "you cannot specify \`-o' more than once" arg_mode=target continue ;; -pie | -fpie | -fPIE) func_append pie_flag " $arg" continue ;; -shared | -static | -prefer-pic | -prefer-non-pic) func_append later " $arg" continue ;; -no-suppress) suppress_opt=no continue ;; -Xcompiler) arg_mode=arg # the next one goes into the "base_compile" arg list continue # The current "srcfile" will either be retained or ;; # replaced later. I would guess that would be a bug. -Wc,*) func_stripname '-Wc,' '' "$arg" args=$func_stripname_result lastarg= save_ifs="$IFS"; IFS=',' for arg in $args; do IFS="$save_ifs" func_append_quoted lastarg "$arg" done IFS="$save_ifs" func_stripname ' ' '' "$lastarg" lastarg=$func_stripname_result # Add the arguments to base_compile. func_append base_compile " $lastarg" continue ;; *) # Accept the current argument as the source file. # The previous "srcfile" becomes the current argument. # lastarg="$srcfile" srcfile="$arg" ;; esac # case $arg ;; esac # case $arg_mode # Aesthetically quote the previous argument. func_append_quoted base_compile "$lastarg" done # for arg case $arg_mode in arg) func_fatal_error "you must specify an argument for -Xcompile" ;; target) func_fatal_error "you must specify a target with \`-o'" ;; *) # Get the name of the library object. test -z "$libobj" && { func_basename "$srcfile" libobj="$func_basename_result" } ;; esac # Recognize several different file suffixes. # If the user specifies -o file.o, it is replaced with file.lo case $libobj in *.[cCFSifmso] | \ *.ada | *.adb | *.ads | *.asm | \ *.c++ | *.cc | *.ii | *.class | *.cpp | *.cxx | \ *.[fF][09]? | *.for | *.java | *.go | *.obj | *.sx | *.cu | *.cup) func_xform "$libobj" libobj=$func_xform_result ;; esac case $libobj in *.lo) func_lo2o "$libobj"; obj=$func_lo2o_result ;; *) func_fatal_error "cannot determine name of library object from \`$libobj'" ;; esac func_infer_tag $base_compile for arg in $later; do case $arg in -shared) test "$build_libtool_libs" != yes && \ func_fatal_configuration "can not build a shared library" build_old_libs=no continue ;; -static) build_libtool_libs=no build_old_libs=yes continue ;; -prefer-pic) pic_mode=yes continue ;; -prefer-non-pic) pic_mode=no continue ;; esac done func_quote_for_eval "$libobj" test "X$libobj" != "X$func_quote_for_eval_result" \ && $ECHO "X$libobj" | $GREP '[]~#^*{};<>?"'"'"' &()|`$[]' \ && func_warning "libobj name \`$libobj' may not contain shell special characters." func_dirname_and_basename "$obj" "/" "" objname="$func_basename_result" xdir="$func_dirname_result" lobj=${xdir}$objdir/$objname test -z "$base_compile" && \ func_fatal_help "you must specify a compilation command" # Delete any leftover library objects. if test "$build_old_libs" = yes; then removelist="$obj $lobj $libobj ${libobj}T" else removelist="$lobj $libobj ${libobj}T" fi # On Cygwin there's no "real" PIC flag so we must build both object types case $host_os in cygwin* | mingw* | pw32* | os2* | cegcc*) pic_mode=default ;; esac if test "$pic_mode" = no && test "$deplibs_check_method" != pass_all; then # non-PIC code in shared libraries is not supported pic_mode=default fi # Calculate the filename of the output object if compiler does # not support -o with -c if test "$compiler_c_o" = no; then output_obj=`$ECHO "$srcfile" | $SED 's%^.*/%%; s%\.[^.]*$%%'`.${objext} lockfile="$output_obj.lock" else output_obj= need_locks=no lockfile= fi # Lock this critical section if it is needed # We use this script file to make the link, it avoids creating a new file if test "$need_locks" = yes; then until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do func_echo "Waiting for $lockfile to be removed" sleep 2 done elif test "$need_locks" = warn; then if test -f "$lockfile"; then $ECHO "\ *** ERROR, $lockfile exists and contains: `cat $lockfile 2>/dev/null` This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support \`-c' and \`-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $opt_dry_run || $RM $removelist exit $EXIT_FAILURE fi func_append removelist " $output_obj" $ECHO "$srcfile" > "$lockfile" fi $opt_dry_run || $RM $removelist func_append removelist " $lockfile" trap '$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE' 1 2 15 func_to_tool_file "$srcfile" func_convert_file_msys_to_w32 srcfile=$func_to_tool_file_result func_quote_for_eval "$srcfile" qsrcfile=$func_quote_for_eval_result # Only build a PIC object if we are building libtool libraries. if test "$build_libtool_libs" = yes; then # Without this assignment, base_compile gets emptied. fbsd_hideous_sh_bug=$base_compile if test "$pic_mode" != no; then command="$base_compile $qsrcfile $pic_flag" else # Don't build PIC code command="$base_compile $qsrcfile" fi func_mkdir_p "$xdir$objdir" if test -z "$output_obj"; then # Place PIC objects in $objdir func_append command " -o $lobj" fi func_show_eval_locale "$command" \ 'test -n "$output_obj" && $RM $removelist; exit $EXIT_FAILURE' if test "$need_locks" = warn && test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then $ECHO "\ *** ERROR, $lockfile contains: `cat $lockfile 2>/dev/null` but it should contain: $srcfile This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support \`-c' and \`-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $opt_dry_run || $RM $removelist exit $EXIT_FAILURE fi # Just move the object if needed, then go on to compile the next one if test -n "$output_obj" && test "X$output_obj" != "X$lobj"; then func_show_eval '$MV "$output_obj" "$lobj"' \ 'error=$?; $opt_dry_run || $RM $removelist; exit $error' fi # Allow error messages only from the first compilation. if test "$suppress_opt" = yes; then suppress_output=' >/dev/null 2>&1' fi fi # Only build a position-dependent object if we build old libraries. if test "$build_old_libs" = yes; then if test "$pic_mode" != yes; then # Don't build PIC code command="$base_compile $qsrcfile$pie_flag" else command="$base_compile $qsrcfile $pic_flag" fi if test "$compiler_c_o" = yes; then func_append command " -o $obj" fi # Suppress compiler output if we already did a PIC compilation. func_append command "$suppress_output" func_show_eval_locale "$command" \ '$opt_dry_run || $RM $removelist; exit $EXIT_FAILURE' if test "$need_locks" = warn && test "X`cat $lockfile 2>/dev/null`" != "X$srcfile"; then $ECHO "\ *** ERROR, $lockfile contains: `cat $lockfile 2>/dev/null` but it should contain: $srcfile This indicates that another process is trying to use the same temporary object file, and libtool could not work around it because your compiler does not support \`-c' and \`-o' together. If you repeat this compilation, it may succeed, by chance, but you had better avoid parallel builds (make -j) in this platform, or get a better compiler." $opt_dry_run || $RM $removelist exit $EXIT_FAILURE fi # Just move the object if needed if test -n "$output_obj" && test "X$output_obj" != "X$obj"; then func_show_eval '$MV "$output_obj" "$obj"' \ 'error=$?; $opt_dry_run || $RM $removelist; exit $error' fi fi $opt_dry_run || { func_write_libtool_object "$libobj" "$objdir/$objname" "$objname" # Unlock the critical section if it was locked if test "$need_locks" != no; then removelist=$lockfile $RM "$lockfile" fi } exit $EXIT_SUCCESS } $opt_help || { test "$opt_mode" = compile && func_mode_compile ${1+"$@"} } func_mode_help () { # We need to display help for each of the modes. case $opt_mode in "") # Generic help is extracted from the usage comments # at the start of this file. func_help ;; clean) $ECHO \ "Usage: $progname [OPTION]... --mode=clean RM [RM-OPTION]... FILE... Remove files from the build directory. RM is the name of the program to use to delete files associated with each FILE (typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed to RM. If FILE is a libtool library, object or program, all the files associated with it are deleted. Otherwise, only FILE itself is deleted using RM." ;; compile) $ECHO \ "Usage: $progname [OPTION]... --mode=compile COMPILE-COMMAND... SOURCEFILE Compile a source file into a libtool library object. This mode accepts the following additional options: -o OUTPUT-FILE set the output file name to OUTPUT-FILE -no-suppress do not suppress compiler output for multiple passes -prefer-pic try to build PIC objects only -prefer-non-pic try to build non-PIC objects only -shared do not build a \`.o' file suitable for static linking -static only build a \`.o' file suitable for static linking -Wc,FLAG pass FLAG directly to the compiler COMPILE-COMMAND is a command to be used in creating a \`standard' object file from the given SOURCEFILE. The output file name is determined by removing the directory component from SOURCEFILE, then substituting the C source code suffix \`.c' with the library object suffix, \`.lo'." ;; execute) $ECHO \ "Usage: $progname [OPTION]... --mode=execute COMMAND [ARGS]... Automatically set library path, then run a program. This mode accepts the following additional options: -dlopen FILE add the directory containing FILE to the library path This mode sets the library path environment variable according to \`-dlopen' flags. If any of the ARGS are libtool executable wrappers, then they are translated into their corresponding uninstalled binary, and any of their required library directories are added to the library path. Then, COMMAND is executed, with ARGS as arguments." ;; finish) $ECHO \ "Usage: $progname [OPTION]... --mode=finish [LIBDIR]... Complete the installation of libtool libraries. Each LIBDIR is a directory that contains libtool libraries. The commands that this mode executes may require superuser privileges. Use the \`--dry-run' option if you just want to see what would be executed." ;; install) $ECHO \ "Usage: $progname [OPTION]... --mode=install INSTALL-COMMAND... Install executables or libraries. INSTALL-COMMAND is the installation command. The first component should be either the \`install' or \`cp' program. The following components of INSTALL-COMMAND are treated specially: -inst-prefix-dir PREFIX-DIR Use PREFIX-DIR as a staging area for installation The rest of the components are interpreted as arguments to that command (only BSD-compatible install options are recognized)." ;; link) $ECHO \ "Usage: $progname [OPTION]... --mode=link LINK-COMMAND... Link object files or libraries together to form another library, or to create an executable program. LINK-COMMAND is a command using the C compiler that you would use to create a program from several object files. The following components of LINK-COMMAND are treated specially: -all-static do not do any dynamic linking at all -avoid-version do not add a version suffix if possible -bindir BINDIR specify path to binaries directory (for systems where libraries must be found in the PATH setting at runtime) -dlopen FILE \`-dlpreopen' FILE if it cannot be dlopened at runtime -dlpreopen FILE link in FILE and add its symbols to lt_preloaded_symbols -export-dynamic allow symbols from OUTPUT-FILE to be resolved with dlsym(3) -export-symbols SYMFILE try to export only the symbols listed in SYMFILE -export-symbols-regex REGEX try to export only the symbols matching REGEX -LLIBDIR search LIBDIR for required installed libraries -lNAME OUTPUT-FILE requires the installed library libNAME -module build a library that can dlopened -no-fast-install disable the fast-install mode -no-install link a not-installable executable -no-undefined declare that a library does not refer to external symbols -o OUTPUT-FILE create OUTPUT-FILE from the specified objects -objectlist FILE Use a list of object files found in FILE to specify objects -precious-files-regex REGEX don't remove output files matching REGEX -release RELEASE specify package release information -rpath LIBDIR the created library will eventually be installed in LIBDIR -R[ ]LIBDIR add LIBDIR to the runtime path of programs and libraries -shared only do dynamic linking of libtool libraries -shrext SUFFIX override the standard shared library file extension -static do not do any dynamic linking of uninstalled libtool libraries -static-libtool-libs do not do any dynamic linking of libtool libraries -version-info CURRENT[:REVISION[:AGE]] specify library version info [each variable defaults to 0] -weak LIBNAME declare that the target provides the LIBNAME interface -Wc,FLAG -Xcompiler FLAG pass linker-specific FLAG directly to the compiler -Wl,FLAG -Xlinker FLAG pass linker-specific FLAG directly to the linker -XCClinker FLAG pass link-specific FLAG to the compiler driver (CC) All other options (arguments beginning with \`-') are ignored. Every other argument is treated as a filename. Files ending in \`.la' are treated as uninstalled libtool libraries, other files are standard or library object files. If the OUTPUT-FILE ends in \`.la', then a libtool library is created, only library objects (\`.lo' files) may be specified, and \`-rpath' is required, except when creating a convenience library. If OUTPUT-FILE ends in \`.a' or \`.lib', then a standard library is created using \`ar' and \`ranlib', or on Windows using \`lib'. If OUTPUT-FILE ends in \`.lo' or \`.${objext}', then a reloadable object file is created, otherwise an executable program is created." ;; uninstall) $ECHO \ "Usage: $progname [OPTION]... --mode=uninstall RM [RM-OPTION]... FILE... Remove libraries from an installation directory. RM is the name of the program to use to delete files associated with each FILE (typically \`/bin/rm'). RM-OPTIONS are options (such as \`-f') to be passed to RM. If FILE is a libtool library, all the files associated with it are deleted. Otherwise, only FILE itself is deleted using RM." ;; *) func_fatal_help "invalid operation mode \`$opt_mode'" ;; esac echo $ECHO "Try \`$progname --help' for more information about other modes." } # Now that we've collected a possible --mode arg, show help if necessary if $opt_help; then if test "$opt_help" = :; then func_mode_help else { func_help noexit for opt_mode in compile link execute install finish uninstall clean; do func_mode_help done } | sed -n '1p; 2,$s/^Usage:/ or: /p' { func_help noexit for opt_mode in compile link execute install finish uninstall clean; do echo func_mode_help done } | sed '1d /^When reporting/,/^Report/{ H d } $x /information about other modes/d /more detailed .*MODE/d s/^Usage:.*--mode=\([^ ]*\) .*/Description of \1 mode:/' fi exit $? fi # func_mode_execute arg... func_mode_execute () { $opt_debug # The first argument is the command name. cmd="$nonopt" test -z "$cmd" && \ func_fatal_help "you must specify a COMMAND" # Handle -dlopen flags immediately. for file in $opt_dlopen; do test -f "$file" \ || func_fatal_help "\`$file' is not a file" dir= case $file in *.la) func_resolve_sysroot "$file" file=$func_resolve_sysroot_result # Check to see that this really is a libtool archive. func_lalib_unsafe_p "$file" \ || func_fatal_help "\`$lib' is not a valid libtool archive" # Read the libtool library. dlname= library_names= func_source "$file" # Skip this library if it cannot be dlopened. if test -z "$dlname"; then # Warn if it was a shared library. test -n "$library_names" && \ func_warning "\`$file' was not linked with \`-export-dynamic'" continue fi func_dirname "$file" "" "." dir="$func_dirname_result" if test -f "$dir/$objdir/$dlname"; then func_append dir "/$objdir" else if test ! -f "$dir/$dlname"; then func_fatal_error "cannot find \`$dlname' in \`$dir' or \`$dir/$objdir'" fi fi ;; *.lo) # Just add the directory containing the .lo file. func_dirname "$file" "" "." dir="$func_dirname_result" ;; *) func_warning "\`-dlopen' is ignored for non-libtool libraries and objects" continue ;; esac # Get the absolute pathname. absdir=`cd "$dir" && pwd` test -n "$absdir" && dir="$absdir" # Now add the directory to shlibpath_var. if eval "test -z \"\$$shlibpath_var\""; then eval "$shlibpath_var=\"\$dir\"" else eval "$shlibpath_var=\"\$dir:\$$shlibpath_var\"" fi done # This variable tells wrapper scripts just to set shlibpath_var # rather than running their programs. libtool_execute_magic="$magic" # Check if any of the arguments is a wrapper script. args= for file do case $file in -* | *.la | *.lo ) ;; *) # Do a test to see if this is really a libtool program. if func_ltwrapper_script_p "$file"; then func_source "$file" # Transform arg to wrapped name. file="$progdir/$program" elif func_ltwrapper_executable_p "$file"; then func_ltwrapper_scriptname "$file" func_source "$func_ltwrapper_scriptname_result" # Transform arg to wrapped name. file="$progdir/$program" fi ;; esac # Quote arguments (to preserve shell metacharacters). func_append_quoted args "$file" done if test "X$opt_dry_run" = Xfalse; then if test -n "$shlibpath_var"; then # Export the shlibpath_var. eval "export $shlibpath_var" fi # Restore saved environment variables for lt_var in LANG LANGUAGE LC_ALL LC_CTYPE LC_COLLATE LC_MESSAGES do eval "if test \"\${save_$lt_var+set}\" = set; then $lt_var=\$save_$lt_var; export $lt_var else $lt_unset $lt_var fi" done # Now prepare to actually exec the command. exec_cmd="\$cmd$args" else # Display what would be done. if test -n "$shlibpath_var"; then eval "\$ECHO \"\$shlibpath_var=\$$shlibpath_var\"" echo "export $shlibpath_var" fi $ECHO "$cmd$args" exit $EXIT_SUCCESS fi } test "$opt_mode" = execute && func_mode_execute ${1+"$@"} # func_mode_finish arg... func_mode_finish () { $opt_debug libs= libdirs= admincmds= for opt in "$nonopt" ${1+"$@"} do if test -d "$opt"; then func_append libdirs " $opt" elif test -f "$opt"; then if func_lalib_unsafe_p "$opt"; then func_append libs " $opt" else func_warning "\`$opt' is not a valid libtool archive" fi else func_fatal_error "invalid argument \`$opt'" fi done if test -n "$libs"; then if test -n "$lt_sysroot"; then sysroot_regex=`$ECHO "$lt_sysroot" | $SED "$sed_make_literal_regex"` sysroot_cmd="s/\([ ']\)$sysroot_regex/\1/g;" else sysroot_cmd= fi # Remove sysroot references if $opt_dry_run; then for lib in $libs; do echo "removing references to $lt_sysroot and \`=' prefixes from $lib" done else tmpdir=`func_mktempdir` for lib in $libs; do sed -e "${sysroot_cmd} s/\([ ']-[LR]\)=/\1/g; s/\([ ']\)=/\1/g" $lib \ > $tmpdir/tmp-la mv -f $tmpdir/tmp-la $lib done ${RM}r "$tmpdir" fi fi if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then for libdir in $libdirs; do if test -n "$finish_cmds"; then # Do each command in the finish commands. func_execute_cmds "$finish_cmds" 'admincmds="$admincmds '"$cmd"'"' fi if test -n "$finish_eval"; then # Do the single finish_eval. eval cmds=\"$finish_eval\" $opt_dry_run || eval "$cmds" || func_append admincmds " $cmds" fi done fi # Exit here if they wanted silent mode. $opt_silent && exit $EXIT_SUCCESS if test -n "$finish_cmds$finish_eval" && test -n "$libdirs"; then echo "----------------------------------------------------------------------" echo "Libraries have been installed in:" for libdir in $libdirs; do $ECHO " $libdir" done echo echo "If you ever happen to want to link against installed libraries" echo "in a given directory, LIBDIR, you must either use libtool, and" echo "specify the full pathname of the library, or use the \`-LLIBDIR'" echo "flag during linking and do at least one of the following:" if test -n "$shlibpath_var"; then echo " - add LIBDIR to the \`$shlibpath_var' environment variable" echo " during execution" fi if test -n "$runpath_var"; then echo " - add LIBDIR to the \`$runpath_var' environment variable" echo " during linking" fi if test -n "$hardcode_libdir_flag_spec"; then libdir=LIBDIR eval flag=\"$hardcode_libdir_flag_spec\" $ECHO " - use the \`$flag' linker flag" fi if test -n "$admincmds"; then $ECHO " - have your system administrator run these commands:$admincmds" fi if test -f /etc/ld.so.conf; then echo " - have your system administrator add LIBDIR to \`/etc/ld.so.conf'" fi echo echo "See any operating system documentation about shared libraries for" case $host in solaris2.[6789]|solaris2.1[0-9]) echo "more information, such as the ld(1), crle(1) and ld.so(8) manual" echo "pages." ;; *) echo "more information, such as the ld(1) and ld.so(8) manual pages." ;; esac echo "----------------------------------------------------------------------" fi exit $EXIT_SUCCESS } test "$opt_mode" = finish && func_mode_finish ${1+"$@"} # func_mode_install arg... func_mode_install () { $opt_debug # There may be an optional sh(1) argument at the beginning of # install_prog (especially on Windows NT). if test "$nonopt" = "$SHELL" || test "$nonopt" = /bin/sh || # Allow the use of GNU shtool's install command. case $nonopt in *shtool*) :;; *) false;; esac; then # Aesthetically quote it. func_quote_for_eval "$nonopt" install_prog="$func_quote_for_eval_result " arg=$1 shift else install_prog= arg=$nonopt fi # The real first argument should be the name of the installation program. # Aesthetically quote it. func_quote_for_eval "$arg" func_append install_prog "$func_quote_for_eval_result" install_shared_prog=$install_prog case " $install_prog " in *[\\\ /]cp\ *) install_cp=: ;; *) install_cp=false ;; esac # We need to accept at least all the BSD install flags. dest= files= opts= prev= install_type= isdir=no stripme= no_mode=: for arg do arg2= if test -n "$dest"; then func_append files " $dest" dest=$arg continue fi case $arg in -d) isdir=yes ;; -f) if $install_cp; then :; else prev=$arg fi ;; -g | -m | -o) prev=$arg ;; -s) stripme=" -s" continue ;; -*) ;; *) # If the previous option needed an argument, then skip it. if test -n "$prev"; then if test "x$prev" = x-m && test -n "$install_override_mode"; then arg2=$install_override_mode no_mode=false fi prev= else dest=$arg continue fi ;; esac # Aesthetically quote the argument. func_quote_for_eval "$arg" func_append install_prog " $func_quote_for_eval_result" if test -n "$arg2"; then func_quote_for_eval "$arg2" fi func_append install_shared_prog " $func_quote_for_eval_result" done test -z "$install_prog" && \ func_fatal_help "you must specify an install program" test -n "$prev" && \ func_fatal_help "the \`$prev' option requires an argument" if test -n "$install_override_mode" && $no_mode; then if $install_cp; then :; else func_quote_for_eval "$install_override_mode" func_append install_shared_prog " -m $func_quote_for_eval_result" fi fi if test -z "$files"; then if test -z "$dest"; then func_fatal_help "no file or destination specified" else func_fatal_help "you must specify a destination" fi fi # Strip any trailing slash from the destination. func_stripname '' '/' "$dest" dest=$func_stripname_result # Check to see that the destination is a directory. test -d "$dest" && isdir=yes if test "$isdir" = yes; then destdir="$dest" destname= else func_dirname_and_basename "$dest" "" "." destdir="$func_dirname_result" destname="$func_basename_result" # Not a directory, so check to see that there is only one file specified. set dummy $files; shift test "$#" -gt 1 && \ func_fatal_help "\`$dest' is not a directory" fi case $destdir in [\\/]* | [A-Za-z]:[\\/]*) ;; *) for file in $files; do case $file in *.lo) ;; *) func_fatal_help "\`$destdir' must be an absolute directory name" ;; esac done ;; esac # This variable tells wrapper scripts just to set variables rather # than running their programs. libtool_install_magic="$magic" staticlibs= future_libdirs= current_libdirs= for file in $files; do # Do each installation. case $file in *.$libext) # Do the static libraries later. func_append staticlibs " $file" ;; *.la) func_resolve_sysroot "$file" file=$func_resolve_sysroot_result # Check to see that this really is a libtool archive. func_lalib_unsafe_p "$file" \ || func_fatal_help "\`$file' is not a valid libtool archive" library_names= old_library= relink_command= func_source "$file" # Add the libdir to current_libdirs if it is the destination. if test "X$destdir" = "X$libdir"; then case "$current_libdirs " in *" $libdir "*) ;; *) func_append current_libdirs " $libdir" ;; esac else # Note the libdir as a future libdir. case "$future_libdirs " in *" $libdir "*) ;; *) func_append future_libdirs " $libdir" ;; esac fi func_dirname "$file" "/" "" dir="$func_dirname_result" func_append dir "$objdir" if test -n "$relink_command"; then # Determine the prefix the user has applied to our future dir. inst_prefix_dir=`$ECHO "$destdir" | $SED -e "s%$libdir\$%%"` # Don't allow the user to place us outside of our expected # location b/c this prevents finding dependent libraries that # are installed to the same prefix. # At present, this check doesn't affect windows .dll's that # are installed into $libdir/../bin (currently, that works fine) # but it's something to keep an eye on. test "$inst_prefix_dir" = "$destdir" && \ func_fatal_error "error: cannot install \`$file' to a directory not ending in $libdir" if test -n "$inst_prefix_dir"; then # Stick the inst_prefix_dir data into the link command. relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%-inst-prefix-dir $inst_prefix_dir%"` else relink_command=`$ECHO "$relink_command" | $SED "s%@inst_prefix_dir@%%"` fi func_warning "relinking \`$file'" func_show_eval "$relink_command" \ 'func_fatal_error "error: relink \`$file'\'' with the above command before installing it"' fi # See the names of the shared library. set dummy $library_names; shift if test -n "$1"; then realname="$1" shift srcname="$realname" test -n "$relink_command" && srcname="$realname"T # Install the shared library and build the symlinks. func_show_eval "$install_shared_prog $dir/$srcname $destdir/$realname" \ 'exit $?' tstripme="$stripme" case $host_os in cygwin* | mingw* | pw32* | cegcc*) case $realname in *.dll.a) tstripme="" ;; esac ;; esac if test -n "$tstripme" && test -n "$striplib"; then func_show_eval "$striplib $destdir/$realname" 'exit $?' fi if test "$#" -gt 0; then # Delete the old symlinks, and create new ones. # Try `ln -sf' first, because the `ln' binary might depend on # the symlink we replace! Solaris /bin/ln does not understand -f, # so we also need to try rm && ln -s. for linkname do test "$linkname" != "$realname" \ && func_show_eval "(cd $destdir && { $LN_S -f $realname $linkname || { $RM $linkname && $LN_S $realname $linkname; }; })" done fi # Do each command in the postinstall commands. lib="$destdir/$realname" func_execute_cmds "$postinstall_cmds" 'exit $?' fi # Install the pseudo-library for information purposes. func_basename "$file" name="$func_basename_result" instname="$dir/$name"i func_show_eval "$install_prog $instname $destdir/$name" 'exit $?' # Maybe install the static library, too. test -n "$old_library" && func_append staticlibs " $dir/$old_library" ;; *.lo) # Install (i.e. copy) a libtool object. # Figure out destination file name, if it wasn't already specified. if test -n "$destname"; then destfile="$destdir/$destname" else func_basename "$file" destfile="$func_basename_result" destfile="$destdir/$destfile" fi # Deduce the name of the destination old-style object file. case $destfile in *.lo) func_lo2o "$destfile" staticdest=$func_lo2o_result ;; *.$objext) staticdest="$destfile" destfile= ;; *) func_fatal_help "cannot copy a libtool object to \`$destfile'" ;; esac # Install the libtool object if requested. test -n "$destfile" && \ func_show_eval "$install_prog $file $destfile" 'exit $?' # Install the old object if enabled. if test "$build_old_libs" = yes; then # Deduce the name of the old-style object file. func_lo2o "$file" staticobj=$func_lo2o_result func_show_eval "$install_prog \$staticobj \$staticdest" 'exit $?' fi exit $EXIT_SUCCESS ;; *) # Figure out destination file name, if it wasn't already specified. if test -n "$destname"; then destfile="$destdir/$destname" else func_basename "$file" destfile="$func_basename_result" destfile="$destdir/$destfile" fi # If the file is missing, and there is a .exe on the end, strip it # because it is most likely a libtool script we actually want to # install stripped_ext="" case $file in *.exe) if test ! -f "$file"; then func_stripname '' '.exe' "$file" file=$func_stripname_result stripped_ext=".exe" fi ;; esac # Do a test to see if this is really a libtool program. case $host in *cygwin* | *mingw*) if func_ltwrapper_executable_p "$file"; then func_ltwrapper_scriptname "$file" wrapper=$func_ltwrapper_scriptname_result else func_stripname '' '.exe' "$file" wrapper=$func_stripname_result fi ;; *) wrapper=$file ;; esac if func_ltwrapper_script_p "$wrapper"; then notinst_deplibs= relink_command= func_source "$wrapper" # Check the variables that should have been set. test -z "$generated_by_libtool_version" && \ func_fatal_error "invalid libtool wrapper script \`$wrapper'" finalize=yes for lib in $notinst_deplibs; do # Check to see that each library is installed. libdir= if test -f "$lib"; then func_source "$lib" fi libfile="$libdir/"`$ECHO "$lib" | $SED 's%^.*/%%g'` ### testsuite: skip nested quoting test if test -n "$libdir" && test ! -f "$libfile"; then func_warning "\`$lib' has not been installed in \`$libdir'" finalize=no fi done relink_command= func_source "$wrapper" outputname= if test "$fast_install" = no && test -n "$relink_command"; then $opt_dry_run || { if test "$finalize" = yes; then tmpdir=`func_mktempdir` func_basename "$file$stripped_ext" file="$func_basename_result" outputname="$tmpdir/$file" # Replace the output file specification. relink_command=`$ECHO "$relink_command" | $SED 's%@OUTPUT@%'"$outputname"'%g'` $opt_silent || { func_quote_for_expand "$relink_command" eval "func_echo $func_quote_for_expand_result" } if eval "$relink_command"; then : else func_error "error: relink \`$file' with the above command before installing it" $opt_dry_run || ${RM}r "$tmpdir" continue fi file="$outputname" else func_warning "cannot relink \`$file'" fi } else # Install the binary that we compiled earlier. file=`$ECHO "$file$stripped_ext" | $SED "s%\([^/]*\)$%$objdir/\1%"` fi fi # remove .exe since cygwin /usr/bin/install will append another # one anyway case $install_prog,$host in */usr/bin/install*,*cygwin*) case $file:$destfile in *.exe:*.exe) # this is ok ;; *.exe:*) destfile=$destfile.exe ;; *:*.exe) func_stripname '' '.exe' "$destfile" destfile=$func_stripname_result ;; esac ;; esac func_show_eval "$install_prog\$stripme \$file \$destfile" 'exit $?' $opt_dry_run || if test -n "$outputname"; then ${RM}r "$tmpdir" fi ;; esac done for file in $staticlibs; do func_basename "$file" name="$func_basename_result" # Set up the ranlib parameters. oldlib="$destdir/$name" func_to_tool_file "$oldlib" func_convert_file_msys_to_w32 tool_oldlib=$func_to_tool_file_result func_show_eval "$install_prog \$file \$oldlib" 'exit $?' if test -n "$stripme" && test -n "$old_striplib"; then func_show_eval "$old_striplib $tool_oldlib" 'exit $?' fi # Do each command in the postinstall commands. func_execute_cmds "$old_postinstall_cmds" 'exit $?' done test -n "$future_libdirs" && \ func_warning "remember to run \`$progname --finish$future_libdirs'" if test -n "$current_libdirs"; then # Maybe just do a dry run. $opt_dry_run && current_libdirs=" -n$current_libdirs" exec_cmd='$SHELL $progpath $preserve_args --finish$current_libdirs' else exit $EXIT_SUCCESS fi } test "$opt_mode" = install && func_mode_install ${1+"$@"} # func_generate_dlsyms outputname originator pic_p # Extract symbols from dlprefiles and create ${outputname}S.o with # a dlpreopen symbol table. func_generate_dlsyms () { $opt_debug my_outputname="$1" my_originator="$2" my_pic_p="${3-no}" my_prefix=`$ECHO "$my_originator" | sed 's%[^a-zA-Z0-9]%_%g'` my_dlsyms= if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then if test -n "$NM" && test -n "$global_symbol_pipe"; then my_dlsyms="${my_outputname}S.c" else func_error "not configured to extract global symbols from dlpreopened files" fi fi if test -n "$my_dlsyms"; then case $my_dlsyms in "") ;; *.c) # Discover the nlist of each of the dlfiles. nlist="$output_objdir/${my_outputname}.nm" func_show_eval "$RM $nlist ${nlist}S ${nlist}T" # Parse the name list into a source file. func_verbose "creating $output_objdir/$my_dlsyms" $opt_dry_run || $ECHO > "$output_objdir/$my_dlsyms" "\ /* $my_dlsyms - symbol resolution table for \`$my_outputname' dlsym emulation. */ /* Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION */ #ifdef __cplusplus extern \"C\" { #endif #if defined(__GNUC__) && (((__GNUC__ == 4) && (__GNUC_MINOR__ >= 4)) || (__GNUC__ > 4)) #pragma GCC diagnostic ignored \"-Wstrict-prototypes\" #endif /* Keep this code in sync between libtool.m4, ltmain, lt_system.h, and tests. */ #if defined(_WIN32) || defined(__CYGWIN__) || defined(_WIN32_WCE) /* DATA imports from DLLs on WIN32 con't be const, because runtime relocations are performed -- see ld's documentation on pseudo-relocs. */ # define LT_DLSYM_CONST #elif defined(__osf__) /* This system does not cope well with relocations in const data. */ # define LT_DLSYM_CONST #else # define LT_DLSYM_CONST const #endif /* External symbol declarations for the compiler. */\ " if test "$dlself" = yes; then func_verbose "generating symbol list for \`$output'" $opt_dry_run || echo ': @PROGRAM@ ' > "$nlist" # Add our own program objects to the symbol list. progfiles=`$ECHO "$objs$old_deplibs" | $SP2NL | $SED "$lo2o" | $NL2SP` for progfile in $progfiles; do func_to_tool_file "$progfile" func_convert_file_msys_to_w32 func_verbose "extracting global C symbols from \`$func_to_tool_file_result'" $opt_dry_run || eval "$NM $func_to_tool_file_result | $global_symbol_pipe >> '$nlist'" done if test -n "$exclude_expsyms"; then $opt_dry_run || { eval '$EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T' eval '$MV "$nlist"T "$nlist"' } fi if test -n "$export_symbols_regex"; then $opt_dry_run || { eval '$EGREP -e "$export_symbols_regex" "$nlist" > "$nlist"T' eval '$MV "$nlist"T "$nlist"' } fi # Prepare the list of exported symbols if test -z "$export_symbols"; then export_symbols="$output_objdir/$outputname.exp" $opt_dry_run || { $RM $export_symbols eval "${SED} -n -e '/^: @PROGRAM@ $/d' -e 's/^.* \(.*\)$/\1/p' "'< "$nlist" > "$export_symbols"' case $host in *cygwin* | *mingw* | *cegcc* ) eval "echo EXPORTS "'> "$output_objdir/$outputname.def"' eval 'cat "$export_symbols" >> "$output_objdir/$outputname.def"' ;; esac } else $opt_dry_run || { eval "${SED} -e 's/\([].[*^$]\)/\\\\\1/g' -e 's/^/ /' -e 's/$/$/'"' < "$export_symbols" > "$output_objdir/$outputname.exp"' eval '$GREP -f "$output_objdir/$outputname.exp" < "$nlist" > "$nlist"T' eval '$MV "$nlist"T "$nlist"' case $host in *cygwin* | *mingw* | *cegcc* ) eval "echo EXPORTS "'> "$output_objdir/$outputname.def"' eval 'cat "$nlist" >> "$output_objdir/$outputname.def"' ;; esac } fi fi for dlprefile in $dlprefiles; do func_verbose "extracting global C symbols from \`$dlprefile'" func_basename "$dlprefile" name="$func_basename_result" case $host in *cygwin* | *mingw* | *cegcc* ) # if an import library, we need to obtain dlname if func_win32_import_lib_p "$dlprefile"; then func_tr_sh "$dlprefile" eval "curr_lafile=\$libfile_$func_tr_sh_result" dlprefile_dlbasename="" if test -n "$curr_lafile" && func_lalib_p "$curr_lafile"; then # Use subshell, to avoid clobbering current variable values dlprefile_dlname=`source "$curr_lafile" && echo "$dlname"` if test -n "$dlprefile_dlname" ; then func_basename "$dlprefile_dlname" dlprefile_dlbasename="$func_basename_result" else # no lafile. user explicitly requested -dlpreopen . $sharedlib_from_linklib_cmd "$dlprefile" dlprefile_dlbasename=$sharedlib_from_linklib_result fi fi $opt_dry_run || { if test -n "$dlprefile_dlbasename" ; then eval '$ECHO ": $dlprefile_dlbasename" >> "$nlist"' else func_warning "Could not compute DLL name from $name" eval '$ECHO ": $name " >> "$nlist"' fi func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe | $SED -e '/I __imp/d' -e 's/I __nm_/D /;s/_nm__//' >> '$nlist'" } else # not an import lib $opt_dry_run || { eval '$ECHO ": $name " >> "$nlist"' func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'" } fi ;; *) $opt_dry_run || { eval '$ECHO ": $name " >> "$nlist"' func_to_tool_file "$dlprefile" func_convert_file_msys_to_w32 eval "$NM \"$func_to_tool_file_result\" 2>/dev/null | $global_symbol_pipe >> '$nlist'" } ;; esac done $opt_dry_run || { # Make sure we have at least an empty file. test -f "$nlist" || : > "$nlist" if test -n "$exclude_expsyms"; then $EGREP -v " ($exclude_expsyms)$" "$nlist" > "$nlist"T $MV "$nlist"T "$nlist" fi # Try sorting and uniquifying the output. if $GREP -v "^: " < "$nlist" | if sort -k 3 /dev/null 2>&1; then sort -k 3 else sort +2 fi | uniq > "$nlist"S; then : else $GREP -v "^: " < "$nlist" > "$nlist"S fi if test -f "$nlist"S; then eval "$global_symbol_to_cdecl"' < "$nlist"S >> "$output_objdir/$my_dlsyms"' else echo '/* NONE */' >> "$output_objdir/$my_dlsyms" fi echo >> "$output_objdir/$my_dlsyms" "\ /* The mapping between symbol names and symbols. */ typedef struct { const char *name; void *address; } lt_dlsymlist; extern LT_DLSYM_CONST lt_dlsymlist lt_${my_prefix}_LTX_preloaded_symbols[]; LT_DLSYM_CONST lt_dlsymlist lt_${my_prefix}_LTX_preloaded_symbols[] = {\ { \"$my_originator\", (void *) 0 }," case $need_lib_prefix in no) eval "$global_symbol_to_c_name_address" < "$nlist" >> "$output_objdir/$my_dlsyms" ;; *) eval "$global_symbol_to_c_name_address_lib_prefix" < "$nlist" >> "$output_objdir/$my_dlsyms" ;; esac echo >> "$output_objdir/$my_dlsyms" "\ {0, (void *) 0} }; /* This works around a problem in FreeBSD linker */ #ifdef FREEBSD_WORKAROUND static const void *lt_preloaded_setup() { return lt_${my_prefix}_LTX_preloaded_symbols; } #endif #ifdef __cplusplus } #endif\ " } # !$opt_dry_run pic_flag_for_symtable= case "$compile_command " in *" -static "*) ;; *) case $host in # compiling the symbol table file with pic_flag works around # a FreeBSD bug that causes programs to crash when -lm is # linked before any other PIC object. But we must not use # pic_flag when linking with -static. The problem exists in # FreeBSD 2.2.6 and is fixed in FreeBSD 3.1. *-*-freebsd2.*|*-*-freebsd3.0*|*-*-freebsdelf3.0*) pic_flag_for_symtable=" $pic_flag -DFREEBSD_WORKAROUND" ;; *-*-hpux*) pic_flag_for_symtable=" $pic_flag" ;; *) if test "X$my_pic_p" != Xno; then pic_flag_for_symtable=" $pic_flag" fi ;; esac ;; esac symtab_cflags= for arg in $LTCFLAGS; do case $arg in -pie | -fpie | -fPIE) ;; *) func_append symtab_cflags " $arg" ;; esac done # Now compile the dynamic symbol file. func_show_eval '(cd $output_objdir && $LTCC$symtab_cflags -c$no_builtin_flag$pic_flag_for_symtable "$my_dlsyms")' 'exit $?' # Clean up the generated files. func_show_eval '$RM "$output_objdir/$my_dlsyms" "$nlist" "${nlist}S" "${nlist}T"' # Transform the symbol file into the correct name. symfileobj="$output_objdir/${my_outputname}S.$objext" case $host in *cygwin* | *mingw* | *cegcc* ) if test -f "$output_objdir/$my_outputname.def"; then compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"` finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$output_objdir/$my_outputname.def $symfileobj%"` else compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"` finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"` fi ;; *) compile_command=`$ECHO "$compile_command" | $SED "s%@SYMFILE@%$symfileobj%"` finalize_command=`$ECHO "$finalize_command" | $SED "s%@SYMFILE@%$symfileobj%"` ;; esac ;; *) func_fatal_error "unknown suffix for \`$my_dlsyms'" ;; esac else # We keep going just in case the user didn't refer to # lt_preloaded_symbols. The linker will fail if global_symbol_pipe # really was required. # Nullify the symbol file. compile_command=`$ECHO "$compile_command" | $SED "s% @SYMFILE@%%"` finalize_command=`$ECHO "$finalize_command" | $SED "s% @SYMFILE@%%"` fi } # func_win32_libid arg # return the library type of file 'arg' # # Need a lot of goo to handle *both* DLLs and import libs # Has to be a shell function in order to 'eat' the argument # that is supplied when $file_magic_command is called. # Despite the name, also deal with 64 bit binaries. func_win32_libid () { $opt_debug win32_libid_type="unknown" win32_fileres=`file -L $1 2>/dev/null` case $win32_fileres in *ar\ archive\ import\ library*) # definitely import win32_libid_type="x86 archive import" ;; *ar\ archive*) # could be an import, or static # Keep the egrep pattern in sync with the one in _LT_CHECK_MAGIC_METHOD. if eval $OBJDUMP -f $1 | $SED -e '10q' 2>/dev/null | $EGREP 'file format (pei*-i386(.*architecture: i386)?|pe-arm-wince|pe-x86-64)' >/dev/null; then func_to_tool_file "$1" func_convert_file_msys_to_w32 win32_nmres=`eval $NM -f posix -A \"$func_to_tool_file_result\" | $SED -n -e ' 1,100{ / I /{ s,.*,import, p q } }'` case $win32_nmres in import*) win32_libid_type="x86 archive import";; *) win32_libid_type="x86 archive static";; esac fi ;; *DLL*) win32_libid_type="x86 DLL" ;; *executable*) # but shell scripts are "executable" too... case $win32_fileres in *MS\ Windows\ PE\ Intel*) win32_libid_type="x86 DLL" ;; esac ;; esac $ECHO "$win32_libid_type" } # func_cygming_dll_for_implib ARG # # Platform-specific function to extract the # name of the DLL associated with the specified # import library ARG. # Invoked by eval'ing the libtool variable # $sharedlib_from_linklib_cmd # Result is available in the variable # $sharedlib_from_linklib_result func_cygming_dll_for_implib () { $opt_debug sharedlib_from_linklib_result=`$DLLTOOL --identify-strict --identify "$1"` } # func_cygming_dll_for_implib_fallback_core SECTION_NAME LIBNAMEs # # The is the core of a fallback implementation of a # platform-specific function to extract the name of the # DLL associated with the specified import library LIBNAME. # # SECTION_NAME is either .idata$6 or .idata$7, depending # on the platform and compiler that created the implib. # # Echos the name of the DLL associated with the # specified import library. func_cygming_dll_for_implib_fallback_core () { $opt_debug match_literal=`$ECHO "$1" | $SED "$sed_make_literal_regex"` $OBJDUMP -s --section "$1" "$2" 2>/dev/null | $SED '/^Contents of section '"$match_literal"':/{ # Place marker at beginning of archive member dllname section s/.*/====MARK====/ p d } # These lines can sometimes be longer than 43 characters, but # are always uninteresting /:[ ]*file format pe[i]\{,1\}-/d /^In archive [^:]*:/d # Ensure marker is printed /^====MARK====/p # Remove all lines with less than 43 characters /^.\{43\}/!d # From remaining lines, remove first 43 characters s/^.\{43\}//' | $SED -n ' # Join marker and all lines until next marker into a single line /^====MARK====/ b para H $ b para b :para x s/\n//g # Remove the marker s/^====MARK====// # Remove trailing dots and whitespace s/[\. \t]*$// # Print /./p' | # we now have a list, one entry per line, of the stringified # contents of the appropriate section of all members of the # archive which possess that section. Heuristic: eliminate # all those which have a first or second character that is # a '.' (that is, objdump's representation of an unprintable # character.) This should work for all archives with less than # 0x302f exports -- but will fail for DLLs whose name actually # begins with a literal '.' or a single character followed by # a '.'. # # Of those that remain, print the first one. $SED -e '/^\./d;/^.\./d;q' } # func_cygming_gnu_implib_p ARG # This predicate returns with zero status (TRUE) if # ARG is a GNU/binutils-style import library. Returns # with nonzero status (FALSE) otherwise. func_cygming_gnu_implib_p () { $opt_debug func_to_tool_file "$1" func_convert_file_msys_to_w32 func_cygming_gnu_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $EGREP ' (_head_[A-Za-z0-9_]+_[ad]l*|[A-Za-z0-9_]+_[ad]l*_iname)$'` test -n "$func_cygming_gnu_implib_tmp" } # func_cygming_ms_implib_p ARG # This predicate returns with zero status (TRUE) if # ARG is an MS-style import library. Returns # with nonzero status (FALSE) otherwise. func_cygming_ms_implib_p () { $opt_debug func_to_tool_file "$1" func_convert_file_msys_to_w32 func_cygming_ms_implib_tmp=`$NM "$func_to_tool_file_result" | eval "$global_symbol_pipe" | $GREP '_NULL_IMPORT_DESCRIPTOR'` test -n "$func_cygming_ms_implib_tmp" } # func_cygming_dll_for_implib_fallback ARG # Platform-specific function to extract the # name of the DLL associated with the specified # import library ARG. # # This fallback implementation is for use when $DLLTOOL # does not support the --identify-strict option. # Invoked by eval'ing the libtool variable # $sharedlib_from_linklib_cmd # Result is available in the variable # $sharedlib_from_linklib_result func_cygming_dll_for_implib_fallback () { $opt_debug if func_cygming_gnu_implib_p "$1" ; then # binutils import library sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$7' "$1"` elif func_cygming_ms_implib_p "$1" ; then # ms-generated import library sharedlib_from_linklib_result=`func_cygming_dll_for_implib_fallback_core '.idata$6' "$1"` else # unknown sharedlib_from_linklib_result="" fi } # func_extract_an_archive dir oldlib func_extract_an_archive () { $opt_debug f_ex_an_ar_dir="$1"; shift f_ex_an_ar_oldlib="$1" if test "$lock_old_archive_extraction" = yes; then lockfile=$f_ex_an_ar_oldlib.lock until $opt_dry_run || ln "$progpath" "$lockfile" 2>/dev/null; do func_echo "Waiting for $lockfile to be removed" sleep 2 done fi func_show_eval "(cd \$f_ex_an_ar_dir && $AR x \"\$f_ex_an_ar_oldlib\")" \ 'stat=$?; rm -f "$lockfile"; exit $stat' if test "$lock_old_archive_extraction" = yes; then $opt_dry_run || rm -f "$lockfile" fi if ($AR t "$f_ex_an_ar_oldlib" | sort | sort -uc >/dev/null 2>&1); then : else func_fatal_error "object name conflicts in archive: $f_ex_an_ar_dir/$f_ex_an_ar_oldlib" fi } # func_extract_archives gentop oldlib ... func_extract_archives () { $opt_debug my_gentop="$1"; shift my_oldlibs=${1+"$@"} my_oldobjs="" my_xlib="" my_xabs="" my_xdir="" for my_xlib in $my_oldlibs; do # Extract the objects. case $my_xlib in [\\/]* | [A-Za-z]:[\\/]*) my_xabs="$my_xlib" ;; *) my_xabs=`pwd`"/$my_xlib" ;; esac func_basename "$my_xlib" my_xlib="$func_basename_result" my_xlib_u=$my_xlib while :; do case " $extracted_archives " in *" $my_xlib_u "*) func_arith $extracted_serial + 1 extracted_serial=$func_arith_result my_xlib_u=lt$extracted_serial-$my_xlib ;; *) break ;; esac done extracted_archives="$extracted_archives $my_xlib_u" my_xdir="$my_gentop/$my_xlib_u" func_mkdir_p "$my_xdir" case $host in *-darwin*) func_verbose "Extracting $my_xabs" # Do not bother doing anything if just a dry run $opt_dry_run || { darwin_orig_dir=`pwd` cd $my_xdir || exit $? darwin_archive=$my_xabs darwin_curdir=`pwd` darwin_base_archive=`basename "$darwin_archive"` darwin_arches=`$LIPO -info "$darwin_archive" 2>/dev/null | $GREP Architectures 2>/dev/null || true` if test -n "$darwin_arches"; then darwin_arches=`$ECHO "$darwin_arches" | $SED -e 's/.*are://'` darwin_arch= func_verbose "$darwin_base_archive has multiple architectures $darwin_arches" for darwin_arch in $darwin_arches ; do func_mkdir_p "unfat-$$/${darwin_base_archive}-${darwin_arch}" $LIPO -thin $darwin_arch -output "unfat-$$/${darwin_base_archive}-${darwin_arch}/${darwin_base_archive}" "${darwin_archive}" cd "unfat-$$/${darwin_base_archive}-${darwin_arch}" func_extract_an_archive "`pwd`" "${darwin_base_archive}" cd "$darwin_curdir" $RM "unfat-$$/${darwin_base_archive}-${darwin_arch}/${darwin_base_archive}" done # $darwin_arches ## Okay now we've a bunch of thin objects, gotta fatten them up :) darwin_filelist=`find unfat-$$ -type f -name \*.o -print -o -name \*.lo -print | $SED -e "$basename" | sort -u` darwin_file= darwin_files= for darwin_file in $darwin_filelist; do darwin_files=`find unfat-$$ -name $darwin_file -print | sort | $NL2SP` $LIPO -create -output "$darwin_file" $darwin_files done # $darwin_filelist $RM -rf unfat-$$ cd "$darwin_orig_dir" else cd $darwin_orig_dir func_extract_an_archive "$my_xdir" "$my_xabs" fi # $darwin_arches } # !$opt_dry_run ;; *) func_extract_an_archive "$my_xdir" "$my_xabs" ;; esac my_oldobjs="$my_oldobjs "`find $my_xdir -name \*.$objext -print -o -name \*.lo -print | sort | $NL2SP` done func_extract_archives_result="$my_oldobjs" } # func_emit_wrapper [arg=no] # # Emit a libtool wrapper script on stdout. # Don't directly open a file because we may want to # incorporate the script contents within a cygwin/mingw # wrapper executable. Must ONLY be called from within # func_mode_link because it depends on a number of variables # set therein. # # ARG is the value that the WRAPPER_SCRIPT_BELONGS_IN_OBJDIR # variable will take. If 'yes', then the emitted script # will assume that the directory in which it is stored is # the $objdir directory. This is a cygwin/mingw-specific # behavior. func_emit_wrapper () { func_emit_wrapper_arg1=${1-no} $ECHO "\ #! $SHELL # $output - temporary wrapper script for $objdir/$outputname # Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION # # The $output program cannot be directly executed until all the libtool # libraries that it depends on are installed. # # This wrapper script should never be moved out of the build directory. # If it is, it will not operate correctly. # Sed substitution that helps us do robust quoting. It backslashifies # metacharacters that are still active within double-quoted strings. sed_quote_subst='$sed_quote_subst' # Be Bourne compatible if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then emulate sh NULLCMD=: # Zsh 3.x and 4.x performs word splitting on \${1+\"\$@\"}, which # is contrary to our usage. Disable this feature. alias -g '\${1+\"\$@\"}'='\"\$@\"' setopt NO_GLOB_SUBST else case \`(set -o) 2>/dev/null\` in *posix*) set -o posix;; esac fi BIN_SH=xpg4; export BIN_SH # for Tru64 DUALCASE=1; export DUALCASE # for MKS sh # The HP-UX ksh and POSIX shell print the target directory to stdout # if CDPATH is set. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH relink_command=\"$relink_command\" # This environment variable determines our operation mode. if test \"\$libtool_install_magic\" = \"$magic\"; then # install mode needs the following variables: generated_by_libtool_version='$macro_version' notinst_deplibs='$notinst_deplibs' else # When we are sourced in execute mode, \$file and \$ECHO are already set. if test \"\$libtool_execute_magic\" != \"$magic\"; then file=\"\$0\"" qECHO=`$ECHO "$ECHO" | $SED "$sed_quote_subst"` $ECHO "\ # A function that is used when there is no print builtin or printf. func_fallback_echo () { eval 'cat <<_LTECHO_EOF \$1 _LTECHO_EOF' } ECHO=\"$qECHO\" fi # Very basic option parsing. These options are (a) specific to # the libtool wrapper, (b) are identical between the wrapper # /script/ and the wrapper /executable/ which is used only on # windows platforms, and (c) all begin with the string "--lt-" # (application programs are unlikely to have options which match # this pattern). # # There are only two supported options: --lt-debug and # --lt-dump-script. There is, deliberately, no --lt-help. # # The first argument to this parsing function should be the # script's $0 value, followed by "$@". lt_option_debug= func_parse_lt_options () { lt_script_arg0=\$0 shift for lt_opt do case \"\$lt_opt\" in --lt-debug) lt_option_debug=1 ;; --lt-dump-script) lt_dump_D=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%/[^/]*$%%'\` test \"X\$lt_dump_D\" = \"X\$lt_script_arg0\" && lt_dump_D=. lt_dump_F=\`\$ECHO \"X\$lt_script_arg0\" | $SED -e 's/^X//' -e 's%^.*/%%'\` cat \"\$lt_dump_D/\$lt_dump_F\" exit 0 ;; --lt-*) \$ECHO \"Unrecognized --lt- option: '\$lt_opt'\" 1>&2 exit 1 ;; esac done # Print the debug banner immediately: if test -n \"\$lt_option_debug\"; then echo \"${outputname}:${output}:\${LINENO}: libtool wrapper (GNU $PACKAGE$TIMESTAMP) $VERSION\" 1>&2 fi } # Used when --lt-debug. Prints its arguments to stdout # (redirection is the responsibility of the caller) func_lt_dump_args () { lt_dump_args_N=1; for lt_arg do \$ECHO \"${outputname}:${output}:\${LINENO}: newargv[\$lt_dump_args_N]: \$lt_arg\" lt_dump_args_N=\`expr \$lt_dump_args_N + 1\` done } # Core function for launching the target application func_exec_program_core () { " case $host in # Backslashes separate directories on plain windows *-*-mingw | *-*-os2* | *-cegcc*) $ECHO "\ if test -n \"\$lt_option_debug\"; then \$ECHO \"${outputname}:${output}:\${LINENO}: newargv[0]: \$progdir\\\\\$program\" 1>&2 func_lt_dump_args \${1+\"\$@\"} 1>&2 fi exec \"\$progdir\\\\\$program\" \${1+\"\$@\"} " ;; *) $ECHO "\ if test -n \"\$lt_option_debug\"; then \$ECHO \"${outputname}:${output}:\${LINENO}: newargv[0]: \$progdir/\$program\" 1>&2 func_lt_dump_args \${1+\"\$@\"} 1>&2 fi exec \"\$progdir/\$program\" \${1+\"\$@\"} " ;; esac $ECHO "\ \$ECHO \"\$0: cannot exec \$program \$*\" 1>&2 exit 1 } # A function to encapsulate launching the target application # Strips options in the --lt-* namespace from \$@ and # launches target application with the remaining arguments. func_exec_program () { case \" \$* \" in *\\ --lt-*) for lt_wr_arg do case \$lt_wr_arg in --lt-*) ;; *) set x \"\$@\" \"\$lt_wr_arg\"; shift;; esac shift done ;; esac func_exec_program_core \${1+\"\$@\"} } # Parse options func_parse_lt_options \"\$0\" \${1+\"\$@\"} # Find the directory that this script lives in. thisdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*$%%'\` test \"x\$thisdir\" = \"x\$file\" && thisdir=. # Follow symbolic links until we get to the real thisdir. file=\`ls -ld \"\$file\" | $SED -n 's/.*-> //p'\` while test -n \"\$file\"; do destdir=\`\$ECHO \"\$file\" | $SED 's%/[^/]*\$%%'\` # If there was a directory component, then change thisdir. if test \"x\$destdir\" != \"x\$file\"; then case \"\$destdir\" in [\\\\/]* | [A-Za-z]:[\\\\/]*) thisdir=\"\$destdir\" ;; *) thisdir=\"\$thisdir/\$destdir\" ;; esac fi file=\`\$ECHO \"\$file\" | $SED 's%^.*/%%'\` file=\`ls -ld \"\$thisdir/\$file\" | $SED -n 's/.*-> //p'\` done # Usually 'no', except on cygwin/mingw when embedded into # the cwrapper. WRAPPER_SCRIPT_BELONGS_IN_OBJDIR=$func_emit_wrapper_arg1 if test \"\$WRAPPER_SCRIPT_BELONGS_IN_OBJDIR\" = \"yes\"; then # special case for '.' if test \"\$thisdir\" = \".\"; then thisdir=\`pwd\` fi # remove .libs from thisdir case \"\$thisdir\" in *[\\\\/]$objdir ) thisdir=\`\$ECHO \"\$thisdir\" | $SED 's%[\\\\/][^\\\\/]*$%%'\` ;; $objdir ) thisdir=. ;; esac fi # Try to get the absolute directory name. absdir=\`cd \"\$thisdir\" && pwd\` test -n \"\$absdir\" && thisdir=\"\$absdir\" " if test "$fast_install" = yes; then $ECHO "\ program=lt-'$outputname'$exeext progdir=\"\$thisdir/$objdir\" if test ! -f \"\$progdir/\$program\" || { file=\`ls -1dt \"\$progdir/\$program\" \"\$progdir/../\$program\" 2>/dev/null | ${SED} 1q\`; \\ test \"X\$file\" != \"X\$progdir/\$program\"; }; then file=\"\$\$-\$program\" if test ! -d \"\$progdir\"; then $MKDIR \"\$progdir\" else $RM \"\$progdir/\$file\" fi" $ECHO "\ # relink executable if necessary if test -n \"\$relink_command\"; then if relink_command_output=\`eval \$relink_command 2>&1\`; then : else $ECHO \"\$relink_command_output\" >&2 $RM \"\$progdir/\$file\" exit 1 fi fi $MV \"\$progdir/\$file\" \"\$progdir/\$program\" 2>/dev/null || { $RM \"\$progdir/\$program\"; $MV \"\$progdir/\$file\" \"\$progdir/\$program\"; } $RM \"\$progdir/\$file\" fi" else $ECHO "\ program='$outputname' progdir=\"\$thisdir/$objdir\" " fi $ECHO "\ if test -f \"\$progdir/\$program\"; then" # fixup the dll searchpath if we need to. # # Fix the DLL searchpath if we need to. Do this before prepending # to shlibpath, because on Windows, both are PATH and uninstalled # libraries must come first. if test -n "$dllsearchpath"; then $ECHO "\ # Add the dll search path components to the executable PATH PATH=$dllsearchpath:\$PATH " fi # Export our shlibpath_var if we have one. if test "$shlibpath_overrides_runpath" = yes && test -n "$shlibpath_var" && test -n "$temp_rpath"; then $ECHO "\ # Add our own library path to $shlibpath_var $shlibpath_var=\"$temp_rpath\$$shlibpath_var\" # Some systems cannot cope with colon-terminated $shlibpath_var # The second colon is a workaround for a bug in BeOS R4 sed $shlibpath_var=\`\$ECHO \"\$$shlibpath_var\" | $SED 's/::*\$//'\` export $shlibpath_var " fi $ECHO "\ if test \"\$libtool_execute_magic\" != \"$magic\"; then # Run the actual program with our arguments. func_exec_program \${1+\"\$@\"} fi else # The program doesn't exist. \$ECHO \"\$0: error: \\\`\$progdir/\$program' does not exist\" 1>&2 \$ECHO \"This script is just a wrapper for \$program.\" 1>&2 \$ECHO \"See the $PACKAGE documentation for more information.\" 1>&2 exit 1 fi fi\ " } # func_emit_cwrapperexe_src # emit the source code for a wrapper executable on stdout # Must ONLY be called from within func_mode_link because # it depends on a number of variable set therein. func_emit_cwrapperexe_src () { cat < #include #ifdef _MSC_VER # include # include # include #else # include # include # ifdef __CYGWIN__ # include # endif #endif #include #include #include #include #include #include #include #include /* declarations of non-ANSI functions */ #if defined(__MINGW32__) # ifdef __STRICT_ANSI__ int _putenv (const char *); # endif #elif defined(__CYGWIN__) # ifdef __STRICT_ANSI__ char *realpath (const char *, char *); int putenv (char *); int setenv (const char *, const char *, int); # endif /* #elif defined (other platforms) ... */ #endif /* portability defines, excluding path handling macros */ #if defined(_MSC_VER) # define setmode _setmode # define stat _stat # define chmod _chmod # define getcwd _getcwd # define putenv _putenv # define S_IXUSR _S_IEXEC # ifndef _INTPTR_T_DEFINED # define _INTPTR_T_DEFINED # define intptr_t int # endif #elif defined(__MINGW32__) # define setmode _setmode # define stat _stat # define chmod _chmod # define getcwd _getcwd # define putenv _putenv #elif defined(__CYGWIN__) # define HAVE_SETENV # define FOPEN_WB "wb" /* #elif defined (other platforms) ... */ #endif #if defined(PATH_MAX) # define LT_PATHMAX PATH_MAX #elif defined(MAXPATHLEN) # define LT_PATHMAX MAXPATHLEN #else # define LT_PATHMAX 1024 #endif #ifndef S_IXOTH # define S_IXOTH 0 #endif #ifndef S_IXGRP # define S_IXGRP 0 #endif /* path handling portability macros */ #ifndef DIR_SEPARATOR # define DIR_SEPARATOR '/' # define PATH_SEPARATOR ':' #endif #if defined (_WIN32) || defined (__MSDOS__) || defined (__DJGPP__) || \ defined (__OS2__) # define HAVE_DOS_BASED_FILE_SYSTEM # define FOPEN_WB "wb" # ifndef DIR_SEPARATOR_2 # define DIR_SEPARATOR_2 '\\' # endif # ifndef PATH_SEPARATOR_2 # define PATH_SEPARATOR_2 ';' # endif #endif #ifndef DIR_SEPARATOR_2 # define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR) #else /* DIR_SEPARATOR_2 */ # define IS_DIR_SEPARATOR(ch) \ (((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2)) #endif /* DIR_SEPARATOR_2 */ #ifndef PATH_SEPARATOR_2 # define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR) #else /* PATH_SEPARATOR_2 */ # define IS_PATH_SEPARATOR(ch) ((ch) == PATH_SEPARATOR_2) #endif /* PATH_SEPARATOR_2 */ #ifndef FOPEN_WB # define FOPEN_WB "w" #endif #ifndef _O_BINARY # define _O_BINARY 0 #endif #define XMALLOC(type, num) ((type *) xmalloc ((num) * sizeof(type))) #define XFREE(stale) do { \ if (stale) { free ((void *) stale); stale = 0; } \ } while (0) #if defined(LT_DEBUGWRAPPER) static int lt_debug = 1; #else static int lt_debug = 0; #endif const char *program_name = "libtool-wrapper"; /* in case xstrdup fails */ void *xmalloc (size_t num); char *xstrdup (const char *string); const char *base_name (const char *name); char *find_executable (const char *wrapper); char *chase_symlinks (const char *pathspec); int make_executable (const char *path); int check_executable (const char *path); char *strendzap (char *str, const char *pat); void lt_debugprintf (const char *file, int line, const char *fmt, ...); void lt_fatal (const char *file, int line, const char *message, ...); static const char *nonnull (const char *s); static const char *nonempty (const char *s); void lt_setenv (const char *name, const char *value); char *lt_extend_str (const char *orig_value, const char *add, int to_end); void lt_update_exe_path (const char *name, const char *value); void lt_update_lib_path (const char *name, const char *value); char **prepare_spawn (char **argv); void lt_dump_script (FILE *f); EOF cat <= 0) && (st.st_mode & (S_IXUSR | S_IXGRP | S_IXOTH))) return 1; else return 0; } int make_executable (const char *path) { int rval = 0; struct stat st; lt_debugprintf (__FILE__, __LINE__, "(make_executable): %s\n", nonempty (path)); if ((!path) || (!*path)) return 0; if (stat (path, &st) >= 0) { rval = chmod (path, st.st_mode | S_IXOTH | S_IXGRP | S_IXUSR); } return rval; } /* Searches for the full path of the wrapper. Returns newly allocated full path name if found, NULL otherwise Does not chase symlinks, even on platforms that support them. */ char * find_executable (const char *wrapper) { int has_slash = 0; const char *p; const char *p_next; /* static buffer for getcwd */ char tmp[LT_PATHMAX + 1]; int tmp_len; char *concat_name; lt_debugprintf (__FILE__, __LINE__, "(find_executable): %s\n", nonempty (wrapper)); if ((wrapper == NULL) || (*wrapper == '\0')) return NULL; /* Absolute path? */ #if defined (HAVE_DOS_BASED_FILE_SYSTEM) if (isalpha ((unsigned char) wrapper[0]) && wrapper[1] == ':') { concat_name = xstrdup (wrapper); if (check_executable (concat_name)) return concat_name; XFREE (concat_name); } else { #endif if (IS_DIR_SEPARATOR (wrapper[0])) { concat_name = xstrdup (wrapper); if (check_executable (concat_name)) return concat_name; XFREE (concat_name); } #if defined (HAVE_DOS_BASED_FILE_SYSTEM) } #endif for (p = wrapper; *p; p++) if (*p == '/') { has_slash = 1; break; } if (!has_slash) { /* no slashes; search PATH */ const char *path = getenv ("PATH"); if (path != NULL) { for (p = path; *p; p = p_next) { const char *q; size_t p_len; for (q = p; *q; q++) if (IS_PATH_SEPARATOR (*q)) break; p_len = q - p; p_next = (*q == '\0' ? q : q + 1); if (p_len == 0) { /* empty path: current directory */ if (getcwd (tmp, LT_PATHMAX) == NULL) lt_fatal (__FILE__, __LINE__, "getcwd failed: %s", nonnull (strerror (errno))); tmp_len = strlen (tmp); concat_name = XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1); memcpy (concat_name, tmp, tmp_len); concat_name[tmp_len] = '/'; strcpy (concat_name + tmp_len + 1, wrapper); } else { concat_name = XMALLOC (char, p_len + 1 + strlen (wrapper) + 1); memcpy (concat_name, p, p_len); concat_name[p_len] = '/'; strcpy (concat_name + p_len + 1, wrapper); } if (check_executable (concat_name)) return concat_name; XFREE (concat_name); } } /* not found in PATH; assume curdir */ } /* Relative path | not found in path: prepend cwd */ if (getcwd (tmp, LT_PATHMAX) == NULL) lt_fatal (__FILE__, __LINE__, "getcwd failed: %s", nonnull (strerror (errno))); tmp_len = strlen (tmp); concat_name = XMALLOC (char, tmp_len + 1 + strlen (wrapper) + 1); memcpy (concat_name, tmp, tmp_len); concat_name[tmp_len] = '/'; strcpy (concat_name + tmp_len + 1, wrapper); if (check_executable (concat_name)) return concat_name; XFREE (concat_name); return NULL; } char * chase_symlinks (const char *pathspec) { #ifndef S_ISLNK return xstrdup (pathspec); #else char buf[LT_PATHMAX]; struct stat s; char *tmp_pathspec = xstrdup (pathspec); char *p; int has_symlinks = 0; while (strlen (tmp_pathspec) && !has_symlinks) { lt_debugprintf (__FILE__, __LINE__, "checking path component for symlinks: %s\n", tmp_pathspec); if (lstat (tmp_pathspec, &s) == 0) { if (S_ISLNK (s.st_mode) != 0) { has_symlinks = 1; break; } /* search backwards for last DIR_SEPARATOR */ p = tmp_pathspec + strlen (tmp_pathspec) - 1; while ((p > tmp_pathspec) && (!IS_DIR_SEPARATOR (*p))) p--; if ((p == tmp_pathspec) && (!IS_DIR_SEPARATOR (*p))) { /* no more DIR_SEPARATORS left */ break; } *p = '\0'; } else { lt_fatal (__FILE__, __LINE__, "error accessing file \"%s\": %s", tmp_pathspec, nonnull (strerror (errno))); } } XFREE (tmp_pathspec); if (!has_symlinks) { return xstrdup (pathspec); } tmp_pathspec = realpath (pathspec, buf); if (tmp_pathspec == 0) { lt_fatal (__FILE__, __LINE__, "could not follow symlinks for %s", pathspec); } return xstrdup (tmp_pathspec); #endif } char * strendzap (char *str, const char *pat) { size_t len, patlen; assert (str != NULL); assert (pat != NULL); len = strlen (str); patlen = strlen (pat); if (patlen <= len) { str += len - patlen; if (strcmp (str, pat) == 0) *str = '\0'; } return str; } void lt_debugprintf (const char *file, int line, const char *fmt, ...) { va_list args; if (lt_debug) { (void) fprintf (stderr, "%s:%s:%d: ", program_name, file, line); va_start (args, fmt); (void) vfprintf (stderr, fmt, args); va_end (args); } } static void lt_error_core (int exit_status, const char *file, int line, const char *mode, const char *message, va_list ap) { fprintf (stderr, "%s:%s:%d: %s: ", program_name, file, line, mode); vfprintf (stderr, message, ap); fprintf (stderr, ".\n"); if (exit_status >= 0) exit (exit_status); } void lt_fatal (const char *file, int line, const char *message, ...) { va_list ap; va_start (ap, message); lt_error_core (EXIT_FAILURE, file, line, "FATAL", message, ap); va_end (ap); } static const char * nonnull (const char *s) { return s ? s : "(null)"; } static const char * nonempty (const char *s) { return (s && !*s) ? "(empty)" : nonnull (s); } void lt_setenv (const char *name, const char *value) { lt_debugprintf (__FILE__, __LINE__, "(lt_setenv) setting '%s' to '%s'\n", nonnull (name), nonnull (value)); { #ifdef HAVE_SETENV /* always make a copy, for consistency with !HAVE_SETENV */ char *str = xstrdup (value); setenv (name, str, 1); #else int len = strlen (name) + 1 + strlen (value) + 1; char *str = XMALLOC (char, len); sprintf (str, "%s=%s", name, value); if (putenv (str) != EXIT_SUCCESS) { XFREE (str); } #endif } } char * lt_extend_str (const char *orig_value, const char *add, int to_end) { char *new_value; if (orig_value && *orig_value) { int orig_value_len = strlen (orig_value); int add_len = strlen (add); new_value = XMALLOC (char, add_len + orig_value_len + 1); if (to_end) { strcpy (new_value, orig_value); strcpy (new_value + orig_value_len, add); } else { strcpy (new_value, add); strcpy (new_value + add_len, orig_value); } } else { new_value = xstrdup (add); } return new_value; } void lt_update_exe_path (const char *name, const char *value) { lt_debugprintf (__FILE__, __LINE__, "(lt_update_exe_path) modifying '%s' by prepending '%s'\n", nonnull (name), nonnull (value)); if (name && *name && value && *value) { char *new_value = lt_extend_str (getenv (name), value, 0); /* some systems can't cope with a ':'-terminated path #' */ int len = strlen (new_value); while (((len = strlen (new_value)) > 0) && IS_PATH_SEPARATOR (new_value[len-1])) { new_value[len-1] = '\0'; } lt_setenv (name, new_value); XFREE (new_value); } } void lt_update_lib_path (const char *name, const char *value) { lt_debugprintf (__FILE__, __LINE__, "(lt_update_lib_path) modifying '%s' by prepending '%s'\n", nonnull (name), nonnull (value)); if (name && *name && value && *value) { char *new_value = lt_extend_str (getenv (name), value, 0); lt_setenv (name, new_value); XFREE (new_value); } } EOF case $host_os in mingw*) cat <<"EOF" /* Prepares an argument vector before calling spawn(). Note that spawn() does not by itself call the command interpreter (getenv ("COMSPEC") != NULL ? getenv ("COMSPEC") : ({ OSVERSIONINFO v; v.dwOSVersionInfoSize = sizeof(OSVERSIONINFO); GetVersionEx(&v); v.dwPlatformId == VER_PLATFORM_WIN32_NT; }) ? "cmd.exe" : "command.com"). Instead it simply concatenates the arguments, separated by ' ', and calls CreateProcess(). We must quote the arguments since Win32 CreateProcess() interprets characters like ' ', '\t', '\\', '"' (but not '<' and '>') in a special way: - Space and tab are interpreted as delimiters. They are not treated as delimiters if they are surrounded by double quotes: "...". - Unescaped double quotes are removed from the input. Their only effect is that within double quotes, space and tab are treated like normal characters. - Backslashes not followed by double quotes are not special. - But 2*n+1 backslashes followed by a double quote become n backslashes followed by a double quote (n >= 0): \" -> " \\\" -> \" \\\\\" -> \\" */ #define SHELL_SPECIAL_CHARS "\"\\ \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037" #define SHELL_SPACE_CHARS " \001\002\003\004\005\006\007\010\011\012\013\014\015\016\017\020\021\022\023\024\025\026\027\030\031\032\033\034\035\036\037" char ** prepare_spawn (char **argv) { size_t argc; char **new_argv; size_t i; /* Count number of arguments. */ for (argc = 0; argv[argc] != NULL; argc++) ; /* Allocate new argument vector. */ new_argv = XMALLOC (char *, argc + 1); /* Put quoted arguments into the new argument vector. */ for (i = 0; i < argc; i++) { const char *string = argv[i]; if (string[0] == '\0') new_argv[i] = xstrdup ("\"\""); else if (strpbrk (string, SHELL_SPECIAL_CHARS) != NULL) { int quote_around = (strpbrk (string, SHELL_SPACE_CHARS) != NULL); size_t length; unsigned int backslashes; const char *s; char *quoted_string; char *p; length = 0; backslashes = 0; if (quote_around) length++; for (s = string; *s != '\0'; s++) { char c = *s; if (c == '"') length += backslashes + 1; length++; if (c == '\\') backslashes++; else backslashes = 0; } if (quote_around) length += backslashes + 1; quoted_string = XMALLOC (char, length + 1); p = quoted_string; backslashes = 0; if (quote_around) *p++ = '"'; for (s = string; *s != '\0'; s++) { char c = *s; if (c == '"') { unsigned int j; for (j = backslashes + 1; j > 0; j--) *p++ = '\\'; } *p++ = c; if (c == '\\') backslashes++; else backslashes = 0; } if (quote_around) { unsigned int j; for (j = backslashes; j > 0; j--) *p++ = '\\'; *p++ = '"'; } *p = '\0'; new_argv[i] = quoted_string; } else new_argv[i] = (char *) string; } new_argv[argc] = NULL; return new_argv; } EOF ;; esac cat <<"EOF" void lt_dump_script (FILE* f) { EOF func_emit_wrapper yes | $SED -n -e ' s/^\(.\{79\}\)\(..*\)/\1\ \2/ h s/\([\\"]\)/\\\1/g s/$/\\n/ s/\([^\n]*\).*/ fputs ("\1", f);/p g D' cat <<"EOF" } EOF } # end: func_emit_cwrapperexe_src # func_win32_import_lib_p ARG # True if ARG is an import lib, as indicated by $file_magic_cmd func_win32_import_lib_p () { $opt_debug case `eval $file_magic_cmd \"\$1\" 2>/dev/null | $SED -e 10q` in *import*) : ;; *) false ;; esac } # func_mode_link arg... func_mode_link () { $opt_debug case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) # It is impossible to link a dll without this setting, and # we shouldn't force the makefile maintainer to figure out # which system we are compiling for in order to pass an extra # flag for every libtool invocation. # allow_undefined=no # FIXME: Unfortunately, there are problems with the above when trying # to make a dll which has undefined symbols, in which case not # even a static library is built. For now, we need to specify # -no-undefined on the libtool link line when we can be certain # that all symbols are satisfied, otherwise we get a static library. allow_undefined=yes ;; *) allow_undefined=yes ;; esac libtool_args=$nonopt base_compile="$nonopt $@" compile_command=$nonopt finalize_command=$nonopt compile_rpath= finalize_rpath= compile_shlibpath= finalize_shlibpath= convenience= old_convenience= deplibs= old_deplibs= compiler_flags= linker_flags= dllsearchpath= lib_search_path=`pwd` inst_prefix_dir= new_inherited_linker_flags= avoid_version=no bindir= dlfiles= dlprefiles= dlself=no export_dynamic=no export_symbols= export_symbols_regex= generated= libobjs= ltlibs= module=no no_install=no objs= non_pic_objects= precious_files_regex= prefer_static_libs=no preload=no prev= prevarg= release= rpath= xrpath= perm_rpath= temp_rpath= thread_safe=no vinfo= vinfo_number=no weak_libs= single_module="${wl}-single_module" func_infer_tag $base_compile # We need to know -static, to get the right output filenames. for arg do case $arg in -shared) test "$build_libtool_libs" != yes && \ func_fatal_configuration "can not build a shared library" build_old_libs=no break ;; -all-static | -static | -static-libtool-libs) case $arg in -all-static) if test "$build_libtool_libs" = yes && test -z "$link_static_flag"; then func_warning "complete static linking is impossible in this configuration" fi if test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=yes ;; -static) if test -z "$pic_flag" && test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=built ;; -static-libtool-libs) if test -z "$pic_flag" && test -n "$link_static_flag"; then dlopen_self=$dlopen_self_static fi prefer_static_libs=yes ;; esac build_libtool_libs=no build_old_libs=yes break ;; esac done # See if our shared archives depend on static archives. test -n "$old_archive_from_new_cmds" && build_old_libs=yes # Go through the arguments, transforming them on the way. while test "$#" -gt 0; do arg="$1" shift func_quote_for_eval "$arg" qarg=$func_quote_for_eval_unquoted_result func_append libtool_args " $func_quote_for_eval_result" # If the previous option needs an argument, assign it. if test -n "$prev"; then case $prev in output) func_append compile_command " @OUTPUT@" func_append finalize_command " @OUTPUT@" ;; esac case $prev in bindir) bindir="$arg" prev= continue ;; dlfiles|dlprefiles) if test "$preload" = no; then # Add the symbol object into the linking commands. func_append compile_command " @SYMFILE@" func_append finalize_command " @SYMFILE@" preload=yes fi case $arg in *.la | *.lo) ;; # We handle these cases below. force) if test "$dlself" = no; then dlself=needless export_dynamic=yes fi prev= continue ;; self) if test "$prev" = dlprefiles; then dlself=yes elif test "$prev" = dlfiles && test "$dlopen_self" != yes; then dlself=yes else dlself=needless export_dynamic=yes fi prev= continue ;; *) if test "$prev" = dlfiles; then func_append dlfiles " $arg" else func_append dlprefiles " $arg" fi prev= continue ;; esac ;; expsyms) export_symbols="$arg" test -f "$arg" \ || func_fatal_error "symbol file \`$arg' does not exist" prev= continue ;; expsyms_regex) export_symbols_regex="$arg" prev= continue ;; framework) case $host in *-*-darwin*) case "$deplibs " in *" $qarg.ltframework "*) ;; *) func_append deplibs " $qarg.ltframework" # this is fixed later ;; esac ;; esac prev= continue ;; inst_prefix) inst_prefix_dir="$arg" prev= continue ;; objectlist) if test -f "$arg"; then save_arg=$arg moreargs= for fil in `cat "$save_arg"` do # func_append moreargs " $fil" arg=$fil # A libtool-controlled object. # Check to see that this really is a libtool object. if func_lalib_unsafe_p "$arg"; then pic_object= non_pic_object= # Read the .lo file func_source "$arg" if test -z "$pic_object" || test -z "$non_pic_object" || test "$pic_object" = none && test "$non_pic_object" = none; then func_fatal_error "cannot find name of object for \`$arg'" fi # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir="$func_dirname_result" if test "$pic_object" != none; then # Prepend the subdirectory the object is found in. pic_object="$xdir$pic_object" if test "$prev" = dlfiles; then if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then func_append dlfiles " $pic_object" prev= continue else # If libtool objects are unsupported, then we need to preload. prev=dlprefiles fi fi # CHECK ME: I think I busted this. -Ossama if test "$prev" = dlprefiles; then # Preload the old-style object. func_append dlprefiles " $pic_object" prev= fi # A PIC object. func_append libobjs " $pic_object" arg="$pic_object" fi # Non-PIC object. if test "$non_pic_object" != none; then # Prepend the subdirectory the object is found in. non_pic_object="$xdir$non_pic_object" # A standard non-PIC object func_append non_pic_objects " $non_pic_object" if test -z "$pic_object" || test "$pic_object" = none ; then arg="$non_pic_object" fi else # If the PIC object exists, use it instead. # $xdir was prepended to $pic_object above. non_pic_object="$pic_object" func_append non_pic_objects " $non_pic_object" fi else # Only an error if not doing a dry-run. if $opt_dry_run; then # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir="$func_dirname_result" func_lo2o "$arg" pic_object=$xdir$objdir/$func_lo2o_result non_pic_object=$xdir$func_lo2o_result func_append libobjs " $pic_object" func_append non_pic_objects " $non_pic_object" else func_fatal_error "\`$arg' is not a valid libtool object" fi fi done else func_fatal_error "link input file \`$arg' does not exist" fi arg=$save_arg prev= continue ;; precious_regex) precious_files_regex="$arg" prev= continue ;; release) release="-$arg" prev= continue ;; rpath | xrpath) # We need an absolute path. case $arg in [\\/]* | [A-Za-z]:[\\/]*) ;; *) func_fatal_error "only absolute run-paths are allowed" ;; esac if test "$prev" = rpath; then case "$rpath " in *" $arg "*) ;; *) func_append rpath " $arg" ;; esac else case "$xrpath " in *" $arg "*) ;; *) func_append xrpath " $arg" ;; esac fi prev= continue ;; shrext) shrext_cmds="$arg" prev= continue ;; weak) func_append weak_libs " $arg" prev= continue ;; xcclinker) func_append linker_flags " $qarg" func_append compiler_flags " $qarg" prev= func_append compile_command " $qarg" func_append finalize_command " $qarg" continue ;; xcompiler) func_append compiler_flags " $qarg" prev= func_append compile_command " $qarg" func_append finalize_command " $qarg" continue ;; xlinker) func_append linker_flags " $qarg" func_append compiler_flags " $wl$qarg" prev= func_append compile_command " $wl$qarg" func_append finalize_command " $wl$qarg" continue ;; *) eval "$prev=\"\$arg\"" prev= continue ;; esac fi # test -n "$prev" prevarg="$arg" case $arg in -all-static) if test -n "$link_static_flag"; then # See comment for -static flag below, for more details. func_append compile_command " $link_static_flag" func_append finalize_command " $link_static_flag" fi continue ;; -allow-undefined) # FIXME: remove this flag sometime in the future. func_fatal_error "\`-allow-undefined' must not be used because it is the default" ;; -avoid-version) avoid_version=yes continue ;; -bindir) prev=bindir continue ;; -dlopen) prev=dlfiles continue ;; -dlpreopen) prev=dlprefiles continue ;; -export-dynamic) export_dynamic=yes continue ;; -export-symbols | -export-symbols-regex) if test -n "$export_symbols" || test -n "$export_symbols_regex"; then func_fatal_error "more than one -exported-symbols argument is not allowed" fi if test "X$arg" = "X-export-symbols"; then prev=expsyms else prev=expsyms_regex fi continue ;; -framework) prev=framework continue ;; -inst-prefix-dir) prev=inst_prefix continue ;; # The native IRIX linker understands -LANG:*, -LIST:* and -LNO:* # so, if we see these flags be careful not to treat them like -L -L[A-Z][A-Z]*:*) case $with_gcc/$host in no/*-*-irix* | /*-*-irix*) func_append compile_command " $arg" func_append finalize_command " $arg" ;; esac continue ;; -L*) func_stripname "-L" '' "$arg" if test -z "$func_stripname_result"; then if test "$#" -gt 0; then func_fatal_error "require no space between \`-L' and \`$1'" else func_fatal_error "need path for \`-L' option" fi fi func_resolve_sysroot "$func_stripname_result" dir=$func_resolve_sysroot_result # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) ;; *) absdir=`cd "$dir" && pwd` test -z "$absdir" && \ func_fatal_error "cannot determine absolute directory name of \`$dir'" dir="$absdir" ;; esac case "$deplibs " in *" -L$dir "* | *" $arg "*) # Will only happen for absolute or sysroot arguments ;; *) # Preserve sysroot, but never include relative directories case $dir in [\\/]* | [A-Za-z]:[\\/]* | =*) func_append deplibs " $arg" ;; *) func_append deplibs " -L$dir" ;; esac func_append lib_search_path " $dir" ;; esac case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) testbindir=`$ECHO "$dir" | $SED 's*/lib$*/bin*'` case :$dllsearchpath: in *":$dir:"*) ;; ::) dllsearchpath=$dir;; *) func_append dllsearchpath ":$dir";; esac case :$dllsearchpath: in *":$testbindir:"*) ;; ::) dllsearchpath=$testbindir;; *) func_append dllsearchpath ":$testbindir";; esac ;; esac continue ;; -l*) if test "X$arg" = "X-lc" || test "X$arg" = "X-lm"; then case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-beos* | *-cegcc* | *-*-haiku*) # These systems don't actually have a C or math library (as such) continue ;; *-*-os2*) # These systems don't actually have a C library (as such) test "X$arg" = "X-lc" && continue ;; *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc due to us having libc/libc_r. test "X$arg" = "X-lc" && continue ;; *-*-rhapsody* | *-*-darwin1.[012]) # Rhapsody C and math libraries are in the System framework func_append deplibs " System.ltframework" continue ;; *-*-sco3.2v5* | *-*-sco5v6*) # Causes problems with __ctype test "X$arg" = "X-lc" && continue ;; *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*) # Compiler inserts libc in the correct place for threads to work test "X$arg" = "X-lc" && continue ;; esac elif test "X$arg" = "X-lc_r"; then case $host in *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc_r directly, use -pthread flag. continue ;; esac fi func_append deplibs " $arg" continue ;; -module) module=yes continue ;; # Tru64 UNIX uses -model [arg] to determine the layout of C++ # classes, name mangling, and exception handling. # Darwin uses the -arch flag to determine output architecture. -model|-arch|-isysroot|--sysroot) func_append compiler_flags " $arg" func_append compile_command " $arg" func_append finalize_command " $arg" prev=xcompiler continue ;; -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*) func_append compiler_flags " $arg" func_append compile_command " $arg" func_append finalize_command " $arg" case "$new_inherited_linker_flags " in *" $arg "*) ;; * ) func_append new_inherited_linker_flags " $arg" ;; esac continue ;; -multi_module) single_module="${wl}-multi_module" continue ;; -no-fast-install) fast_install=no continue ;; -no-install) case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-darwin* | *-cegcc*) # The PATH hackery in wrapper scripts is required on Windows # and Darwin in order for the loader to find any dlls it needs. func_warning "\`-no-install' is ignored for $host" func_warning "assuming \`-no-fast-install' instead" fast_install=no ;; *) no_install=yes ;; esac continue ;; -no-undefined) allow_undefined=no continue ;; -objectlist) prev=objectlist continue ;; -o) prev=output ;; -precious-files-regex) prev=precious_regex continue ;; -release) prev=release continue ;; -rpath) prev=rpath continue ;; -R) prev=xrpath continue ;; -R*) func_stripname '-R' '' "$arg" dir=$func_stripname_result # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) ;; =*) func_stripname '=' '' "$dir" dir=$lt_sysroot$func_stripname_result ;; *) func_fatal_error "only absolute run-paths are allowed" ;; esac case "$xrpath " in *" $dir "*) ;; *) func_append xrpath " $dir" ;; esac continue ;; -shared) # The effects of -shared are defined in a previous loop. continue ;; -shrext) prev=shrext continue ;; -static | -static-libtool-libs) # The effects of -static are defined in a previous loop. # We used to do the same as -all-static on platforms that # didn't have a PIC flag, but the assumption that the effects # would be equivalent was wrong. It would break on at least # Digital Unix and AIX. continue ;; -thread-safe) thread_safe=yes continue ;; -version-info) prev=vinfo continue ;; -version-number) prev=vinfo vinfo_number=yes continue ;; -weak) prev=weak continue ;; -Wc,*) func_stripname '-Wc,' '' "$arg" args=$func_stripname_result arg= save_ifs="$IFS"; IFS=',' for flag in $args; do IFS="$save_ifs" func_quote_for_eval "$flag" func_append arg " $func_quote_for_eval_result" func_append compiler_flags " $func_quote_for_eval_result" done IFS="$save_ifs" func_stripname ' ' '' "$arg" arg=$func_stripname_result ;; -Wl,*) func_stripname '-Wl,' '' "$arg" args=$func_stripname_result arg= save_ifs="$IFS"; IFS=',' for flag in $args; do IFS="$save_ifs" func_quote_for_eval "$flag" func_append arg " $wl$func_quote_for_eval_result" func_append compiler_flags " $wl$func_quote_for_eval_result" func_append linker_flags " $func_quote_for_eval_result" done IFS="$save_ifs" func_stripname ' ' '' "$arg" arg=$func_stripname_result ;; -Xcompiler) prev=xcompiler continue ;; -Xlinker) prev=xlinker continue ;; -XCClinker) prev=xcclinker continue ;; # -msg_* for osf cc -msg_*) func_quote_for_eval "$arg" arg="$func_quote_for_eval_result" ;; # Flags to be passed through unchanged, with rationale: # -64, -mips[0-9] enable 64-bit mode for the SGI compiler # -r[0-9][0-9]* specify processor for the SGI compiler # -xarch=*, -xtarget=* enable 64-bit mode for the Sun compiler # +DA*, +DD* enable 64-bit mode for the HP compiler # -q* compiler args for the IBM compiler # -m*, -t[45]*, -txscale* architecture-specific flags for GCC # -F/path path to uninstalled frameworks, gcc on darwin # -p, -pg, --coverage, -fprofile-* profiling flags for GCC # @file GCC response files # -tp=* Portland pgcc target processor selection # --sysroot=* for sysroot support # -O*, -flto*, -fwhopr*, -fuse-linker-plugin GCC link-time optimization -64|-mips[0-9]|-r[0-9][0-9]*|-xarch=*|-xtarget=*|+DA*|+DD*|-q*|-m*| \ -t[45]*|-txscale*|-p|-pg|--coverage|-fprofile-*|-F*|@*|-tp=*|--sysroot=*| \ -O*|-flto*|-fwhopr*|-fuse-linker-plugin) func_quote_for_eval "$arg" arg="$func_quote_for_eval_result" func_append compile_command " $arg" func_append finalize_command " $arg" func_append compiler_flags " $arg" continue ;; # Some other compiler flag. -* | +*) func_quote_for_eval "$arg" arg="$func_quote_for_eval_result" ;; *.$objext) # A standard object. func_append objs " $arg" ;; *.lo) # A libtool-controlled object. # Check to see that this really is a libtool object. if func_lalib_unsafe_p "$arg"; then pic_object= non_pic_object= # Read the .lo file func_source "$arg" if test -z "$pic_object" || test -z "$non_pic_object" || test "$pic_object" = none && test "$non_pic_object" = none; then func_fatal_error "cannot find name of object for \`$arg'" fi # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir="$func_dirname_result" if test "$pic_object" != none; then # Prepend the subdirectory the object is found in. pic_object="$xdir$pic_object" if test "$prev" = dlfiles; then if test "$build_libtool_libs" = yes && test "$dlopen_support" = yes; then func_append dlfiles " $pic_object" prev= continue else # If libtool objects are unsupported, then we need to preload. prev=dlprefiles fi fi # CHECK ME: I think I busted this. -Ossama if test "$prev" = dlprefiles; then # Preload the old-style object. func_append dlprefiles " $pic_object" prev= fi # A PIC object. func_append libobjs " $pic_object" arg="$pic_object" fi # Non-PIC object. if test "$non_pic_object" != none; then # Prepend the subdirectory the object is found in. non_pic_object="$xdir$non_pic_object" # A standard non-PIC object func_append non_pic_objects " $non_pic_object" if test -z "$pic_object" || test "$pic_object" = none ; then arg="$non_pic_object" fi else # If the PIC object exists, use it instead. # $xdir was prepended to $pic_object above. non_pic_object="$pic_object" func_append non_pic_objects " $non_pic_object" fi else # Only an error if not doing a dry-run. if $opt_dry_run; then # Extract subdirectory from the argument. func_dirname "$arg" "/" "" xdir="$func_dirname_result" func_lo2o "$arg" pic_object=$xdir$objdir/$func_lo2o_result non_pic_object=$xdir$func_lo2o_result func_append libobjs " $pic_object" func_append non_pic_objects " $non_pic_object" else func_fatal_error "\`$arg' is not a valid libtool object" fi fi ;; *.$libext) # An archive. func_append deplibs " $arg" func_append old_deplibs " $arg" continue ;; *.la) # A libtool-controlled library. func_resolve_sysroot "$arg" if test "$prev" = dlfiles; then # This library was specified with -dlopen. func_append dlfiles " $func_resolve_sysroot_result" prev= elif test "$prev" = dlprefiles; then # The library was specified with -dlpreopen. func_append dlprefiles " $func_resolve_sysroot_result" prev= else func_append deplibs " $func_resolve_sysroot_result" fi continue ;; # Some other compiler argument. *) # Unknown arguments in both finalize_command and compile_command need # to be aesthetically quoted because they are evaled later. func_quote_for_eval "$arg" arg="$func_quote_for_eval_result" ;; esac # arg # Now actually substitute the argument into the commands. if test -n "$arg"; then func_append compile_command " $arg" func_append finalize_command " $arg" fi done # argument parsing loop test -n "$prev" && \ func_fatal_help "the \`$prevarg' option requires an argument" if test "$export_dynamic" = yes && test -n "$export_dynamic_flag_spec"; then eval arg=\"$export_dynamic_flag_spec\" func_append compile_command " $arg" func_append finalize_command " $arg" fi oldlibs= # calculate the name of the file, without its directory func_basename "$output" outputname="$func_basename_result" libobjs_save="$libobjs" if test -n "$shlibpath_var"; then # get the directories listed in $shlibpath_var eval shlib_search_path=\`\$ECHO \"\${$shlibpath_var}\" \| \$SED \'s/:/ /g\'\` else shlib_search_path= fi eval sys_lib_search_path=\"$sys_lib_search_path_spec\" eval sys_lib_dlsearch_path=\"$sys_lib_dlsearch_path_spec\" func_dirname "$output" "/" "" output_objdir="$func_dirname_result$objdir" func_to_tool_file "$output_objdir/" tool_output_objdir=$func_to_tool_file_result # Create the object directory. func_mkdir_p "$output_objdir" # Determine the type of output case $output in "") func_fatal_help "you must specify an output file" ;; *.$libext) linkmode=oldlib ;; *.lo | *.$objext) linkmode=obj ;; *.la) linkmode=lib ;; *) linkmode=prog ;; # Anything else should be a program. esac specialdeplibs= libs= # Find all interdependent deplibs by searching for libraries # that are linked more than once (e.g. -la -lb -la) for deplib in $deplibs; do if $opt_preserve_dup_deps ; then case "$libs " in *" $deplib "*) func_append specialdeplibs " $deplib" ;; esac fi func_append libs " $deplib" done if test "$linkmode" = lib; then libs="$predeps $libs $compiler_lib_search_path $postdeps" # Compute libraries that are listed more than once in $predeps # $postdeps and mark them as special (i.e., whose duplicates are # not to be eliminated). pre_post_deps= if $opt_duplicate_compiler_generated_deps; then for pre_post_dep in $predeps $postdeps; do case "$pre_post_deps " in *" $pre_post_dep "*) func_append specialdeplibs " $pre_post_deps" ;; esac func_append pre_post_deps " $pre_post_dep" done fi pre_post_deps= fi deplibs= newdependency_libs= newlib_search_path= need_relink=no # whether we're linking any uninstalled libtool libraries notinst_deplibs= # not-installed libtool libraries notinst_path= # paths that contain not-installed libtool libraries case $linkmode in lib) passes="conv dlpreopen link" for file in $dlfiles $dlprefiles; do case $file in *.la) ;; *) func_fatal_help "libraries can \`-dlopen' only libtool libraries: $file" ;; esac done ;; prog) compile_deplibs= finalize_deplibs= alldeplibs=no newdlfiles= newdlprefiles= passes="conv scan dlopen dlpreopen link" ;; *) passes="conv" ;; esac for pass in $passes; do # The preopen pass in lib mode reverses $deplibs; put it back here # so that -L comes before libs that need it for instance... if test "$linkmode,$pass" = "lib,link"; then ## FIXME: Find the place where the list is rebuilt in the wrong ## order, and fix it there properly tmp_deplibs= for deplib in $deplibs; do tmp_deplibs="$deplib $tmp_deplibs" done deplibs="$tmp_deplibs" fi if test "$linkmode,$pass" = "lib,link" || test "$linkmode,$pass" = "prog,scan"; then libs="$deplibs" deplibs= fi if test "$linkmode" = prog; then case $pass in dlopen) libs="$dlfiles" ;; dlpreopen) libs="$dlprefiles" ;; link) libs="$deplibs %DEPLIBS%" test "X$link_all_deplibs" != Xno && libs="$libs $dependency_libs" ;; esac fi if test "$linkmode,$pass" = "lib,dlpreopen"; then # Collect and forward deplibs of preopened libtool libs for lib in $dlprefiles; do # Ignore non-libtool-libs dependency_libs= func_resolve_sysroot "$lib" case $lib in *.la) func_source "$func_resolve_sysroot_result" ;; esac # Collect preopened libtool deplibs, except any this library # has declared as weak libs for deplib in $dependency_libs; do func_basename "$deplib" deplib_base=$func_basename_result case " $weak_libs " in *" $deplib_base "*) ;; *) func_append deplibs " $deplib" ;; esac done done libs="$dlprefiles" fi if test "$pass" = dlopen; then # Collect dlpreopened libraries save_deplibs="$deplibs" deplibs= fi for deplib in $libs; do lib= found=no case $deplib in -mt|-mthreads|-kthread|-Kthread|-pthread|-pthreads|--thread-safe \ |-threads|-fopenmp|-openmp|-mp|-xopenmp|-omp|-qsmp=*) if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else func_append compiler_flags " $deplib" if test "$linkmode" = lib ; then case "$new_inherited_linker_flags " in *" $deplib "*) ;; * ) func_append new_inherited_linker_flags " $deplib" ;; esac fi fi continue ;; -l*) if test "$linkmode" != lib && test "$linkmode" != prog; then func_warning "\`-l' is ignored for archives/objects" continue fi func_stripname '-l' '' "$deplib" name=$func_stripname_result if test "$linkmode" = lib; then searchdirs="$newlib_search_path $lib_search_path $compiler_lib_search_dirs $sys_lib_search_path $shlib_search_path" else searchdirs="$newlib_search_path $lib_search_path $sys_lib_search_path $shlib_search_path" fi for searchdir in $searchdirs; do for search_ext in .la $std_shrext .so .a; do # Search the libtool library lib="$searchdir/lib${name}${search_ext}" if test -f "$lib"; then if test "$search_ext" = ".la"; then found=yes else found=no fi break 2 fi done done if test "$found" != yes; then # deplib doesn't seem to be a libtool library if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs" fi continue else # deplib is a libtool library # If $allow_libtool_libs_with_static_runtimes && $deplib is a stdlib, # We need to do some special things here, and not later. if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then case " $predeps $postdeps " in *" $deplib "*) if func_lalib_p "$lib"; then library_names= old_library= func_source "$lib" for l in $old_library $library_names; do ll="$l" done if test "X$ll" = "X$old_library" ; then # only static version available found=no func_dirname "$lib" "" "." ladir="$func_dirname_result" lib=$ladir/$old_library if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" test "$linkmode" = lib && newdependency_libs="$deplib $newdependency_libs" fi continue fi fi ;; *) ;; esac fi fi ;; # -l *.ltframework) if test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else deplibs="$deplib $deplibs" if test "$linkmode" = lib ; then case "$new_inherited_linker_flags " in *" $deplib "*) ;; * ) func_append new_inherited_linker_flags " $deplib" ;; esac fi fi continue ;; -L*) case $linkmode in lib) deplibs="$deplib $deplibs" test "$pass" = conv && continue newdependency_libs="$deplib $newdependency_libs" func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result" func_append newlib_search_path " $func_resolve_sysroot_result" ;; prog) if test "$pass" = conv; then deplibs="$deplib $deplibs" continue fi if test "$pass" = scan; then deplibs="$deplib $deplibs" else compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" fi func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result" func_append newlib_search_path " $func_resolve_sysroot_result" ;; *) func_warning "\`-L' is ignored for archives/objects" ;; esac # linkmode continue ;; # -L -R*) if test "$pass" = link; then func_stripname '-R' '' "$deplib" func_resolve_sysroot "$func_stripname_result" dir=$func_resolve_sysroot_result # Make sure the xrpath contains only unique directories. case "$xrpath " in *" $dir "*) ;; *) func_append xrpath " $dir" ;; esac fi deplibs="$deplib $deplibs" continue ;; *.la) func_resolve_sysroot "$deplib" lib=$func_resolve_sysroot_result ;; *.$libext) if test "$pass" = conv; then deplibs="$deplib $deplibs" continue fi case $linkmode in lib) # Linking convenience modules into shared libraries is allowed, # but linking other static libraries is non-portable. case " $dlpreconveniencelibs " in *" $deplib "*) ;; *) valid_a_lib=no case $deplibs_check_method in match_pattern*) set dummy $deplibs_check_method; shift match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"` if eval "\$ECHO \"$deplib\"" 2>/dev/null | $SED 10q \ | $EGREP "$match_pattern_regex" > /dev/null; then valid_a_lib=yes fi ;; pass_all) valid_a_lib=yes ;; esac if test "$valid_a_lib" != yes; then echo $ECHO "*** Warning: Trying to link with static lib archive $deplib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have" echo "*** because the file extensions .$libext of this argument makes me believe" echo "*** that it is just a static archive that I should not use here." else echo $ECHO "*** Warning: Linking the shared library $output against the" $ECHO "*** static library $deplib is not portable!" deplibs="$deplib $deplibs" fi ;; esac continue ;; prog) if test "$pass" != link; then deplibs="$deplib $deplibs" else compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" fi continue ;; esac # linkmode ;; # *.$libext *.lo | *.$objext) if test "$pass" = conv; then deplibs="$deplib $deplibs" elif test "$linkmode" = prog; then if test "$pass" = dlpreopen || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; then # If there is no dlopen support or we're linking statically, # we need to preload. func_append newdlprefiles " $deplib" compile_deplibs="$deplib $compile_deplibs" finalize_deplibs="$deplib $finalize_deplibs" else func_append newdlfiles " $deplib" fi fi continue ;; %DEPLIBS%) alldeplibs=yes continue ;; esac # case $deplib if test "$found" = yes || test -f "$lib"; then : else func_fatal_error "cannot find the library \`$lib' or unhandled argument \`$deplib'" fi # Check to see that this really is a libtool archive. func_lalib_unsafe_p "$lib" \ || func_fatal_error "\`$lib' is not a valid libtool archive" func_dirname "$lib" "" "." ladir="$func_dirname_result" dlname= dlopen= dlpreopen= libdir= library_names= old_library= inherited_linker_flags= # If the library was installed with an old release of libtool, # it will not redefine variables installed, or shouldnotlink installed=yes shouldnotlink=no avoidtemprpath= # Read the .la file func_source "$lib" # Convert "-framework foo" to "foo.ltframework" if test -n "$inherited_linker_flags"; then tmp_inherited_linker_flags=`$ECHO "$inherited_linker_flags" | $SED 's/-framework \([^ $]*\)/\1.ltframework/g'` for tmp_inherited_linker_flag in $tmp_inherited_linker_flags; do case " $new_inherited_linker_flags " in *" $tmp_inherited_linker_flag "*) ;; *) func_append new_inherited_linker_flags " $tmp_inherited_linker_flag";; esac done fi dependency_libs=`$ECHO " $dependency_libs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` if test "$linkmode,$pass" = "lib,link" || test "$linkmode,$pass" = "prog,scan" || { test "$linkmode" != prog && test "$linkmode" != lib; }; then test -n "$dlopen" && func_append dlfiles " $dlopen" test -n "$dlpreopen" && func_append dlprefiles " $dlpreopen" fi if test "$pass" = conv; then # Only check for convenience libraries deplibs="$lib $deplibs" if test -z "$libdir"; then if test -z "$old_library"; then func_fatal_error "cannot find name of link library for \`$lib'" fi # It is a libtool convenience library, so add in its objects. func_append convenience " $ladir/$objdir/$old_library" func_append old_convenience " $ladir/$objdir/$old_library" tmp_libs= for deplib in $dependency_libs; do deplibs="$deplib $deplibs" if $opt_preserve_dup_deps ; then case "$tmp_libs " in *" $deplib "*) func_append specialdeplibs " $deplib" ;; esac fi func_append tmp_libs " $deplib" done elif test "$linkmode" != prog && test "$linkmode" != lib; then func_fatal_error "\`$lib' is not a convenience library" fi continue fi # $pass = conv # Get the name of the library we link against. linklib= if test -n "$old_library" && { test "$prefer_static_libs" = yes || test "$prefer_static_libs,$installed" = "built,no"; }; then linklib=$old_library else for l in $old_library $library_names; do linklib="$l" done fi if test -z "$linklib"; then func_fatal_error "cannot find name of link library for \`$lib'" fi # This library was specified with -dlopen. if test "$pass" = dlopen; then if test -z "$libdir"; then func_fatal_error "cannot -dlopen a convenience library: \`$lib'" fi if test -z "$dlname" || test "$dlopen_support" != yes || test "$build_libtool_libs" = no; then # If there is no dlname, no dlopen support or we're linking # statically, we need to preload. We also need to preload any # dependent libraries so libltdl's deplib preloader doesn't # bomb out in the load deplibs phase. func_append dlprefiles " $lib $dependency_libs" else func_append newdlfiles " $lib" fi continue fi # $pass = dlopen # We need an absolute path. case $ladir in [\\/]* | [A-Za-z]:[\\/]*) abs_ladir="$ladir" ;; *) abs_ladir=`cd "$ladir" && pwd` if test -z "$abs_ladir"; then func_warning "cannot determine absolute directory name of \`$ladir'" func_warning "passing it literally to the linker, although it might fail" abs_ladir="$ladir" fi ;; esac func_basename "$lib" laname="$func_basename_result" # Find the relevant object directory and library name. if test "X$installed" = Xyes; then if test ! -f "$lt_sysroot$libdir/$linklib" && test -f "$abs_ladir/$linklib"; then func_warning "library \`$lib' was moved." dir="$ladir" absdir="$abs_ladir" libdir="$abs_ladir" else dir="$lt_sysroot$libdir" absdir="$lt_sysroot$libdir" fi test "X$hardcode_automatic" = Xyes && avoidtemprpath=yes else if test ! -f "$ladir/$objdir/$linklib" && test -f "$abs_ladir/$linklib"; then dir="$ladir" absdir="$abs_ladir" # Remove this search path later func_append notinst_path " $abs_ladir" else dir="$ladir/$objdir" absdir="$abs_ladir/$objdir" # Remove this search path later func_append notinst_path " $abs_ladir" fi fi # $installed = yes func_stripname 'lib' '.la' "$laname" name=$func_stripname_result # This library was specified with -dlpreopen. if test "$pass" = dlpreopen; then if test -z "$libdir" && test "$linkmode" = prog; then func_fatal_error "only libraries may -dlpreopen a convenience library: \`$lib'" fi case "$host" in # special handling for platforms with PE-DLLs. *cygwin* | *mingw* | *cegcc* ) # Linker will automatically link against shared library if both # static and shared are present. Therefore, ensure we extract # symbols from the import library if a shared library is present # (otherwise, the dlopen module name will be incorrect). We do # this by putting the import library name into $newdlprefiles. # We recover the dlopen module name by 'saving' the la file # name in a special purpose variable, and (later) extracting the # dlname from the la file. if test -n "$dlname"; then func_tr_sh "$dir/$linklib" eval "libfile_$func_tr_sh_result=\$abs_ladir/\$laname" func_append newdlprefiles " $dir/$linklib" else func_append newdlprefiles " $dir/$old_library" # Keep a list of preopened convenience libraries to check # that they are being used correctly in the link pass. test -z "$libdir" && \ func_append dlpreconveniencelibs " $dir/$old_library" fi ;; * ) # Prefer using a static library (so that no silly _DYNAMIC symbols # are required to link). if test -n "$old_library"; then func_append newdlprefiles " $dir/$old_library" # Keep a list of preopened convenience libraries to check # that they are being used correctly in the link pass. test -z "$libdir" && \ func_append dlpreconveniencelibs " $dir/$old_library" # Otherwise, use the dlname, so that lt_dlopen finds it. elif test -n "$dlname"; then func_append newdlprefiles " $dir/$dlname" else func_append newdlprefiles " $dir/$linklib" fi ;; esac fi # $pass = dlpreopen if test -z "$libdir"; then # Link the convenience library if test "$linkmode" = lib; then deplibs="$dir/$old_library $deplibs" elif test "$linkmode,$pass" = "prog,link"; then compile_deplibs="$dir/$old_library $compile_deplibs" finalize_deplibs="$dir/$old_library $finalize_deplibs" else deplibs="$lib $deplibs" # used for prog,scan pass fi continue fi if test "$linkmode" = prog && test "$pass" != link; then func_append newlib_search_path " $ladir" deplibs="$lib $deplibs" linkalldeplibs=no if test "$link_all_deplibs" != no || test -z "$library_names" || test "$build_libtool_libs" = no; then linkalldeplibs=yes fi tmp_libs= for deplib in $dependency_libs; do case $deplib in -L*) func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result" func_append newlib_search_path " $func_resolve_sysroot_result" ;; esac # Need to link against all dependency_libs? if test "$linkalldeplibs" = yes; then deplibs="$deplib $deplibs" else # Need to hardcode shared library paths # or/and link against static libraries newdependency_libs="$deplib $newdependency_libs" fi if $opt_preserve_dup_deps ; then case "$tmp_libs " in *" $deplib "*) func_append specialdeplibs " $deplib" ;; esac fi func_append tmp_libs " $deplib" done # for deplib continue fi # $linkmode = prog... if test "$linkmode,$pass" = "prog,link"; then if test -n "$library_names" && { { test "$prefer_static_libs" = no || test "$prefer_static_libs,$installed" = "built,yes"; } || test -z "$old_library"; }; then # We need to hardcode the library path if test -n "$shlibpath_var" && test -z "$avoidtemprpath" ; then # Make sure the rpath contains only unique directories. case "$temp_rpath:" in *"$absdir:"*) ;; *) func_append temp_rpath "$absdir:" ;; esac fi # Hardcode the library path. # Skip directories that are in the system default run-time # search path. case " $sys_lib_dlsearch_path " in *" $absdir "*) ;; *) case "$compile_rpath " in *" $absdir "*) ;; *) func_append compile_rpath " $absdir" ;; esac ;; esac case " $sys_lib_dlsearch_path " in *" $libdir "*) ;; *) case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac ;; esac fi # $linkmode,$pass = prog,link... if test "$alldeplibs" = yes && { test "$deplibs_check_method" = pass_all || { test "$build_libtool_libs" = yes && test -n "$library_names"; }; }; then # We only need to search for static libraries continue fi fi link_static=no # Whether the deplib will be linked statically use_static_libs=$prefer_static_libs if test "$use_static_libs" = built && test "$installed" = yes; then use_static_libs=no fi if test -n "$library_names" && { test "$use_static_libs" = no || test -z "$old_library"; }; then case $host in *cygwin* | *mingw* | *cegcc*) # No point in relinking DLLs because paths are not encoded func_append notinst_deplibs " $lib" need_relink=no ;; *) if test "$installed" = no; then func_append notinst_deplibs " $lib" need_relink=yes fi ;; esac # This is a shared library # Warn about portability, can't link against -module's on some # systems (darwin). Don't bleat about dlopened modules though! dlopenmodule="" for dlpremoduletest in $dlprefiles; do if test "X$dlpremoduletest" = "X$lib"; then dlopenmodule="$dlpremoduletest" break fi done if test -z "$dlopenmodule" && test "$shouldnotlink" = yes && test "$pass" = link; then echo if test "$linkmode" = prog; then $ECHO "*** Warning: Linking the executable $output against the loadable module" else $ECHO "*** Warning: Linking the shared library $output against the loadable module" fi $ECHO "*** $linklib is not portable!" fi if test "$linkmode" = lib && test "$hardcode_into_libs" = yes; then # Hardcode the library path. # Skip directories that are in the system default run-time # search path. case " $sys_lib_dlsearch_path " in *" $absdir "*) ;; *) case "$compile_rpath " in *" $absdir "*) ;; *) func_append compile_rpath " $absdir" ;; esac ;; esac case " $sys_lib_dlsearch_path " in *" $libdir "*) ;; *) case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac ;; esac fi if test -n "$old_archive_from_expsyms_cmds"; then # figure out the soname set dummy $library_names shift realname="$1" shift libname=`eval "\\$ECHO \"$libname_spec\""` # use dlname if we got it. it's perfectly good, no? if test -n "$dlname"; then soname="$dlname" elif test -n "$soname_spec"; then # bleh windows case $host in *cygwin* | mingw* | *cegcc*) func_arith $current - $age major=$func_arith_result versuffix="-$major" ;; esac eval soname=\"$soname_spec\" else soname="$realname" fi # Make a new name for the extract_expsyms_cmds to use soroot="$soname" func_basename "$soroot" soname="$func_basename_result" func_stripname 'lib' '.dll' "$soname" newlib=libimp-$func_stripname_result.a # If the library has no export list, then create one now if test -f "$output_objdir/$soname-def"; then : else func_verbose "extracting exported symbol list from \`$soname'" func_execute_cmds "$extract_expsyms_cmds" 'exit $?' fi # Create $newlib if test -f "$output_objdir/$newlib"; then :; else func_verbose "generating import library for \`$soname'" func_execute_cmds "$old_archive_from_expsyms_cmds" 'exit $?' fi # make sure the library variables are pointing to the new library dir=$output_objdir linklib=$newlib fi # test -n "$old_archive_from_expsyms_cmds" if test "$linkmode" = prog || test "$opt_mode" != relink; then add_shlibpath= add_dir= add= lib_linked=yes case $hardcode_action in immediate | unsupported) if test "$hardcode_direct" = no; then add="$dir/$linklib" case $host in *-*-sco3.2v5.0.[024]*) add_dir="-L$dir" ;; *-*-sysv4*uw2*) add_dir="-L$dir" ;; *-*-sysv5OpenUNIX* | *-*-sysv5UnixWare7.[01].[10]* | \ *-*-unixware7*) add_dir="-L$dir" ;; *-*-darwin* ) # if the lib is a (non-dlopened) module then we can not # link against it, someone is ignoring the earlier warnings if /usr/bin/file -L $add 2> /dev/null | $GREP ": [^:]* bundle" >/dev/null ; then if test "X$dlopenmodule" != "X$lib"; then $ECHO "*** Warning: lib $linklib is a module, not a shared library" if test -z "$old_library" ; then echo echo "*** And there doesn't seem to be a static archive available" echo "*** The link will probably fail, sorry" else add="$dir/$old_library" fi elif test -n "$old_library"; then add="$dir/$old_library" fi fi esac elif test "$hardcode_minus_L" = no; then case $host in *-*-sunos*) add_shlibpath="$dir" ;; esac add_dir="-L$dir" add="-l$name" elif test "$hardcode_shlibpath_var" = no; then add_shlibpath="$dir" add="-l$name" else lib_linked=no fi ;; relink) if test "$hardcode_direct" = yes && test "$hardcode_direct_absolute" = no; then add="$dir/$linklib" elif test "$hardcode_minus_L" = yes; then add_dir="-L$absdir" # Try looking first in the location we're being installed to. if test -n "$inst_prefix_dir"; then case $libdir in [\\/]*) func_append add_dir " -L$inst_prefix_dir$libdir" ;; esac fi add="-l$name" elif test "$hardcode_shlibpath_var" = yes; then add_shlibpath="$dir" add="-l$name" else lib_linked=no fi ;; *) lib_linked=no ;; esac if test "$lib_linked" != yes; then func_fatal_configuration "unsupported hardcode properties" fi if test -n "$add_shlibpath"; then case :$compile_shlibpath: in *":$add_shlibpath:"*) ;; *) func_append compile_shlibpath "$add_shlibpath:" ;; esac fi if test "$linkmode" = prog; then test -n "$add_dir" && compile_deplibs="$add_dir $compile_deplibs" test -n "$add" && compile_deplibs="$add $compile_deplibs" else test -n "$add_dir" && deplibs="$add_dir $deplibs" test -n "$add" && deplibs="$add $deplibs" if test "$hardcode_direct" != yes && test "$hardcode_minus_L" != yes && test "$hardcode_shlibpath_var" = yes; then case :$finalize_shlibpath: in *":$libdir:"*) ;; *) func_append finalize_shlibpath "$libdir:" ;; esac fi fi fi if test "$linkmode" = prog || test "$opt_mode" = relink; then add_shlibpath= add_dir= add= # Finalize command for both is simple: just hardcode it. if test "$hardcode_direct" = yes && test "$hardcode_direct_absolute" = no; then add="$libdir/$linklib" elif test "$hardcode_minus_L" = yes; then add_dir="-L$libdir" add="-l$name" elif test "$hardcode_shlibpath_var" = yes; then case :$finalize_shlibpath: in *":$libdir:"*) ;; *) func_append finalize_shlibpath "$libdir:" ;; esac add="-l$name" elif test "$hardcode_automatic" = yes; then if test -n "$inst_prefix_dir" && test -f "$inst_prefix_dir$libdir/$linklib" ; then add="$inst_prefix_dir$libdir/$linklib" else add="$libdir/$linklib" fi else # We cannot seem to hardcode it, guess we'll fake it. add_dir="-L$libdir" # Try looking first in the location we're being installed to. if test -n "$inst_prefix_dir"; then case $libdir in [\\/]*) func_append add_dir " -L$inst_prefix_dir$libdir" ;; esac fi add="-l$name" fi if test "$linkmode" = prog; then test -n "$add_dir" && finalize_deplibs="$add_dir $finalize_deplibs" test -n "$add" && finalize_deplibs="$add $finalize_deplibs" else test -n "$add_dir" && deplibs="$add_dir $deplibs" test -n "$add" && deplibs="$add $deplibs" fi fi elif test "$linkmode" = prog; then # Here we assume that one of hardcode_direct or hardcode_minus_L # is not unsupported. This is valid on all known static and # shared platforms. if test "$hardcode_direct" != unsupported; then test -n "$old_library" && linklib="$old_library" compile_deplibs="$dir/$linklib $compile_deplibs" finalize_deplibs="$dir/$linklib $finalize_deplibs" else compile_deplibs="-l$name -L$dir $compile_deplibs" finalize_deplibs="-l$name -L$dir $finalize_deplibs" fi elif test "$build_libtool_libs" = yes; then # Not a shared library if test "$deplibs_check_method" != pass_all; then # We're trying link a shared library against a static one # but the system doesn't support it. # Just print a warning and add the library to dependency_libs so # that the program can be linked against the static library. echo $ECHO "*** Warning: This system can not link to static lib archive $lib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have." if test "$module" = yes; then echo "*** But as you try to build a module library, libtool will still create " echo "*** a static module, that should work as long as the dlopening application" echo "*** is linked with the -dlopen flag to resolve symbols at runtime." if test -z "$global_symbol_pipe"; then echo echo "*** However, this would only work if libtool was able to extract symbol" echo "*** lists from a program, using \`nm' or equivalent, but libtool could" echo "*** not find such a program. So, this module is probably useless." echo "*** \`nm' from GNU binutils and a full rebuild may help." fi if test "$build_old_libs" = no; then build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi fi else deplibs="$dir/$old_library $deplibs" link_static=yes fi fi # link shared/static library? if test "$linkmode" = lib; then if test -n "$dependency_libs" && { test "$hardcode_into_libs" != yes || test "$build_old_libs" = yes || test "$link_static" = yes; }; then # Extract -R from dependency_libs temp_deplibs= for libdir in $dependency_libs; do case $libdir in -R*) func_stripname '-R' '' "$libdir" temp_xrpath=$func_stripname_result case " $xrpath " in *" $temp_xrpath "*) ;; *) func_append xrpath " $temp_xrpath";; esac;; *) func_append temp_deplibs " $libdir";; esac done dependency_libs="$temp_deplibs" fi func_append newlib_search_path " $absdir" # Link against this library test "$link_static" = no && newdependency_libs="$abs_ladir/$laname $newdependency_libs" # ... and its dependency_libs tmp_libs= for deplib in $dependency_libs; do newdependency_libs="$deplib $newdependency_libs" case $deplib in -L*) func_stripname '-L' '' "$deplib" func_resolve_sysroot "$func_stripname_result";; *) func_resolve_sysroot "$deplib" ;; esac if $opt_preserve_dup_deps ; then case "$tmp_libs " in *" $func_resolve_sysroot_result "*) func_append specialdeplibs " $func_resolve_sysroot_result" ;; esac fi func_append tmp_libs " $func_resolve_sysroot_result" done if test "$link_all_deplibs" != no; then # Add the search paths of all dependency libraries for deplib in $dependency_libs; do path= case $deplib in -L*) path="$deplib" ;; *.la) func_resolve_sysroot "$deplib" deplib=$func_resolve_sysroot_result func_dirname "$deplib" "" "." dir=$func_dirname_result # We need an absolute path. case $dir in [\\/]* | [A-Za-z]:[\\/]*) absdir="$dir" ;; *) absdir=`cd "$dir" && pwd` if test -z "$absdir"; then func_warning "cannot determine absolute directory name of \`$dir'" absdir="$dir" fi ;; esac if $GREP "^installed=no" $deplib > /dev/null; then case $host in *-*-darwin*) depdepl= eval deplibrary_names=`${SED} -n -e 's/^library_names=\(.*\)$/\1/p' $deplib` if test -n "$deplibrary_names" ; then for tmp in $deplibrary_names ; do depdepl=$tmp done if test -f "$absdir/$objdir/$depdepl" ; then depdepl="$absdir/$objdir/$depdepl" darwin_install_name=`${OTOOL} -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'` if test -z "$darwin_install_name"; then darwin_install_name=`${OTOOL64} -L $depdepl | awk '{if (NR == 2) {print $1;exit}}'` fi func_append compiler_flags " ${wl}-dylib_file ${wl}${darwin_install_name}:${depdepl}" func_append linker_flags " -dylib_file ${darwin_install_name}:${depdepl}" path= fi fi ;; *) path="-L$absdir/$objdir" ;; esac else eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $deplib` test -z "$libdir" && \ func_fatal_error "\`$deplib' is not a valid libtool archive" test "$absdir" != "$libdir" && \ func_warning "\`$deplib' seems to be moved" path="-L$absdir" fi ;; esac case " $deplibs " in *" $path "*) ;; *) deplibs="$path $deplibs" ;; esac done fi # link_all_deplibs != no fi # linkmode = lib done # for deplib in $libs if test "$pass" = link; then if test "$linkmode" = "prog"; then compile_deplibs="$new_inherited_linker_flags $compile_deplibs" finalize_deplibs="$new_inherited_linker_flags $finalize_deplibs" else compiler_flags="$compiler_flags "`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` fi fi dependency_libs="$newdependency_libs" if test "$pass" = dlpreopen; then # Link the dlpreopened libraries before other libraries for deplib in $save_deplibs; do deplibs="$deplib $deplibs" done fi if test "$pass" != dlopen; then if test "$pass" != conv; then # Make sure lib_search_path contains only unique directories. lib_search_path= for dir in $newlib_search_path; do case "$lib_search_path " in *" $dir "*) ;; *) func_append lib_search_path " $dir" ;; esac done newlib_search_path= fi if test "$linkmode,$pass" != "prog,link"; then vars="deplibs" else vars="compile_deplibs finalize_deplibs" fi for var in $vars dependency_libs; do # Add libraries to $var in reverse order eval tmp_libs=\"\$$var\" new_libs= for deplib in $tmp_libs; do # FIXME: Pedantically, this is the right thing to do, so # that some nasty dependency loop isn't accidentally # broken: #new_libs="$deplib $new_libs" # Pragmatically, this seems to cause very few problems in # practice: case $deplib in -L*) new_libs="$deplib $new_libs" ;; -R*) ;; *) # And here is the reason: when a library appears more # than once as an explicit dependence of a library, or # is implicitly linked in more than once by the # compiler, it is considered special, and multiple # occurrences thereof are not removed. Compare this # with having the same library being listed as a # dependency of multiple other libraries: in this case, # we know (pedantically, we assume) the library does not # need to be listed more than once, so we keep only the # last copy. This is not always right, but it is rare # enough that we require users that really mean to play # such unportable linking tricks to link the library # using -Wl,-lname, so that libtool does not consider it # for duplicate removal. case " $specialdeplibs " in *" $deplib "*) new_libs="$deplib $new_libs" ;; *) case " $new_libs " in *" $deplib "*) ;; *) new_libs="$deplib $new_libs" ;; esac ;; esac ;; esac done tmp_libs= for deplib in $new_libs; do case $deplib in -L*) case " $tmp_libs " in *" $deplib "*) ;; *) func_append tmp_libs " $deplib" ;; esac ;; *) func_append tmp_libs " $deplib" ;; esac done eval $var=\"$tmp_libs\" done # for var fi # Last step: remove runtime libs from dependency_libs # (they stay in deplibs) tmp_libs= for i in $dependency_libs ; do case " $predeps $postdeps $compiler_lib_search_path " in *" $i "*) i="" ;; esac if test -n "$i" ; then func_append tmp_libs " $i" fi done dependency_libs=$tmp_libs done # for pass if test "$linkmode" = prog; then dlfiles="$newdlfiles" fi if test "$linkmode" = prog || test "$linkmode" = lib; then dlprefiles="$newdlprefiles" fi case $linkmode in oldlib) if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then func_warning "\`-dlopen' is ignored for archives" fi case " $deplibs" in *\ -l* | *\ -L*) func_warning "\`-l' and \`-L' are ignored for archives" ;; esac test -n "$rpath" && \ func_warning "\`-rpath' is ignored for archives" test -n "$xrpath" && \ func_warning "\`-R' is ignored for archives" test -n "$vinfo" && \ func_warning "\`-version-info/-version-number' is ignored for archives" test -n "$release" && \ func_warning "\`-release' is ignored for archives" test -n "$export_symbols$export_symbols_regex" && \ func_warning "\`-export-symbols' is ignored for archives" # Now set the variables for building old libraries. build_libtool_libs=no oldlibs="$output" func_append objs "$old_deplibs" ;; lib) # Make sure we only generate libraries of the form `libNAME.la'. case $outputname in lib*) func_stripname 'lib' '.la' "$outputname" name=$func_stripname_result eval shared_ext=\"$shrext_cmds\" eval libname=\"$libname_spec\" ;; *) test "$module" = no && \ func_fatal_help "libtool library \`$output' must begin with \`lib'" if test "$need_lib_prefix" != no; then # Add the "lib" prefix for modules if required func_stripname '' '.la' "$outputname" name=$func_stripname_result eval shared_ext=\"$shrext_cmds\" eval libname=\"$libname_spec\" else func_stripname '' '.la' "$outputname" libname=$func_stripname_result fi ;; esac if test -n "$objs"; then if test "$deplibs_check_method" != pass_all; then func_fatal_error "cannot build libtool library \`$output' from non-libtool objects on this host:$objs" else echo $ECHO "*** Warning: Linking the shared library $output against the non-libtool" $ECHO "*** objects $objs is not portable!" func_append libobjs " $objs" fi fi test "$dlself" != no && \ func_warning "\`-dlopen self' is ignored for libtool libraries" set dummy $rpath shift test "$#" -gt 1 && \ func_warning "ignoring multiple \`-rpath's for a libtool library" install_libdir="$1" oldlibs= if test -z "$rpath"; then if test "$build_libtool_libs" = yes; then # Building a libtool convenience library. # Some compilers have problems with a `.al' extension so # convenience libraries should have the same extension an # archive normally would. oldlibs="$output_objdir/$libname.$libext $oldlibs" build_libtool_libs=convenience build_old_libs=yes fi test -n "$vinfo" && \ func_warning "\`-version-info/-version-number' is ignored for convenience libraries" test -n "$release" && \ func_warning "\`-release' is ignored for convenience libraries" else # Parse the version information argument. save_ifs="$IFS"; IFS=':' set dummy $vinfo 0 0 0 shift IFS="$save_ifs" test -n "$7" && \ func_fatal_help "too many parameters to \`-version-info'" # convert absolute version numbers to libtool ages # this retains compatibility with .la files and attempts # to make the code below a bit more comprehensible case $vinfo_number in yes) number_major="$1" number_minor="$2" number_revision="$3" # # There are really only two kinds -- those that # use the current revision as the major version # and those that subtract age and use age as # a minor version. But, then there is irix # which has an extra 1 added just for fun # case $version_type in # correct linux to gnu/linux during the next big refactor darwin|linux|osf|windows|none) func_arith $number_major + $number_minor current=$func_arith_result age="$number_minor" revision="$number_revision" ;; freebsd-aout|freebsd-elf|qnx|sunos) current="$number_major" revision="$number_minor" age="0" ;; irix|nonstopux) func_arith $number_major + $number_minor current=$func_arith_result age="$number_minor" revision="$number_minor" lt_irix_increment=no ;; *) func_fatal_configuration "$modename: unknown library version type \`$version_type'" ;; esac ;; no) current="$1" revision="$2" age="$3" ;; esac # Check that each of the things are valid numbers. case $current in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) func_error "CURRENT \`$current' must be a nonnegative integer" func_fatal_error "\`$vinfo' is not valid version information" ;; esac case $revision in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) func_error "REVISION \`$revision' must be a nonnegative integer" func_fatal_error "\`$vinfo' is not valid version information" ;; esac case $age in 0|[1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]|[1-9][0-9][0-9][0-9][0-9]) ;; *) func_error "AGE \`$age' must be a nonnegative integer" func_fatal_error "\`$vinfo' is not valid version information" ;; esac if test "$age" -gt "$current"; then func_error "AGE \`$age' is greater than the current interface number \`$current'" func_fatal_error "\`$vinfo' is not valid version information" fi # Calculate the version variables. major= versuffix= verstring= case $version_type in none) ;; darwin) # Like Linux, but with the current version available in # verstring for coding it into the library header func_arith $current - $age major=.$func_arith_result versuffix="$major.$age.$revision" # Darwin ld doesn't like 0 for these options... func_arith $current + 1 minor_current=$func_arith_result xlcverstring="${wl}-compatibility_version ${wl}$minor_current ${wl}-current_version ${wl}$minor_current.$revision" verstring="-compatibility_version $minor_current -current_version $minor_current.$revision" ;; freebsd-aout) major=".$current" versuffix=".$current.$revision"; ;; freebsd-elf) major=".$current" versuffix=".$current" ;; irix | nonstopux) if test "X$lt_irix_increment" = "Xno"; then func_arith $current - $age else func_arith $current - $age + 1 fi major=$func_arith_result case $version_type in nonstopux) verstring_prefix=nonstopux ;; *) verstring_prefix=sgi ;; esac verstring="$verstring_prefix$major.$revision" # Add in all the interfaces that we are compatible with. loop=$revision while test "$loop" -ne 0; do func_arith $revision - $loop iface=$func_arith_result func_arith $loop - 1 loop=$func_arith_result verstring="$verstring_prefix$major.$iface:$verstring" done # Before this point, $major must not contain `.'. major=.$major versuffix="$major.$revision" ;; linux) # correct to gnu/linux during the next big refactor func_arith $current - $age major=.$func_arith_result versuffix="$major.$age.$revision" ;; osf) func_arith $current - $age major=.$func_arith_result versuffix=".$current.$age.$revision" verstring="$current.$age.$revision" # Add in all the interfaces that we are compatible with. loop=$age while test "$loop" -ne 0; do func_arith $current - $loop iface=$func_arith_result func_arith $loop - 1 loop=$func_arith_result verstring="$verstring:${iface}.0" done # Make executables depend on our current version. func_append verstring ":${current}.0" ;; qnx) major=".$current" versuffix=".$current" ;; sunos) major=".$current" versuffix=".$current.$revision" ;; windows) # Use '-' rather than '.', since we only want one # extension on DOS 8.3 filesystems. func_arith $current - $age major=$func_arith_result versuffix="-$major" ;; *) func_fatal_configuration "unknown library version type \`$version_type'" ;; esac # Clear the version info if we defaulted, and they specified a release. if test -z "$vinfo" && test -n "$release"; then major= case $version_type in darwin) # we can't check for "0.0" in archive_cmds due to quoting # problems, so we reset it completely verstring= ;; *) verstring="0.0" ;; esac if test "$need_version" = no; then versuffix= else versuffix=".0.0" fi fi # Remove version info from name if versioning should be avoided if test "$avoid_version" = yes && test "$need_version" = no; then major= versuffix= verstring="" fi # Check to see if the archive will have undefined symbols. if test "$allow_undefined" = yes; then if test "$allow_undefined_flag" = unsupported; then func_warning "undefined symbols not allowed in $host shared libraries" build_libtool_libs=no build_old_libs=yes fi else # Don't allow undefined symbols. allow_undefined_flag="$no_undefined_flag" fi fi func_generate_dlsyms "$libname" "$libname" "yes" func_append libobjs " $symfileobj" test "X$libobjs" = "X " && libobjs= if test "$opt_mode" != relink; then # Remove our outputs, but don't remove object files since they # may have been created when compiling PIC objects. removelist= tempremovelist=`$ECHO "$output_objdir/*"` for p in $tempremovelist; do case $p in *.$objext | *.gcno) ;; $output_objdir/$outputname | $output_objdir/$libname.* | $output_objdir/${libname}${release}.*) if test "X$precious_files_regex" != "X"; then if $ECHO "$p" | $EGREP -e "$precious_files_regex" >/dev/null 2>&1 then continue fi fi func_append removelist " $p" ;; *) ;; esac done test -n "$removelist" && \ func_show_eval "${RM}r \$removelist" fi # Now set the variables for building old libraries. if test "$build_old_libs" = yes && test "$build_libtool_libs" != convenience ; then func_append oldlibs " $output_objdir/$libname.$libext" # Transform .lo files to .o files. oldobjs="$objs "`$ECHO "$libobjs" | $SP2NL | $SED "/\.${libext}$/d; $lo2o" | $NL2SP` fi # Eliminate all temporary directories. #for path in $notinst_path; do # lib_search_path=`$ECHO "$lib_search_path " | $SED "s% $path % %g"` # deplibs=`$ECHO "$deplibs " | $SED "s% -L$path % %g"` # dependency_libs=`$ECHO "$dependency_libs " | $SED "s% -L$path % %g"` #done if test -n "$xrpath"; then # If the user specified any rpath flags, then add them. temp_xrpath= for libdir in $xrpath; do func_replace_sysroot "$libdir" func_append temp_xrpath " -R$func_replace_sysroot_result" case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac done if test "$hardcode_into_libs" != yes || test "$build_old_libs" = yes; then dependency_libs="$temp_xrpath $dependency_libs" fi fi # Make sure dlfiles contains only unique files that won't be dlpreopened old_dlfiles="$dlfiles" dlfiles= for lib in $old_dlfiles; do case " $dlprefiles $dlfiles " in *" $lib "*) ;; *) func_append dlfiles " $lib" ;; esac done # Make sure dlprefiles contains only unique files old_dlprefiles="$dlprefiles" dlprefiles= for lib in $old_dlprefiles; do case "$dlprefiles " in *" $lib "*) ;; *) func_append dlprefiles " $lib" ;; esac done if test "$build_libtool_libs" = yes; then if test -n "$rpath"; then case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-*-beos* | *-cegcc* | *-*-haiku*) # these systems don't actually have a c library (as such)! ;; *-*-rhapsody* | *-*-darwin1.[012]) # Rhapsody C library is in the System framework func_append deplibs " System.ltframework" ;; *-*-netbsd*) # Don't link with libc until the a.out ld.so is fixed. ;; *-*-openbsd* | *-*-freebsd* | *-*-dragonfly*) # Do not include libc due to us having libc/libc_r. ;; *-*-sco3.2v5* | *-*-sco5v6*) # Causes problems with __ctype ;; *-*-sysv4.2uw2* | *-*-sysv5* | *-*-unixware* | *-*-OpenUNIX*) # Compiler inserts libc in the correct place for threads to work ;; *) # Add libc to deplibs on all other systems if necessary. if test "$build_libtool_need_lc" = "yes"; then func_append deplibs " -lc" fi ;; esac fi # Transform deplibs into only deplibs that can be linked in shared. name_save=$name libname_save=$libname release_save=$release versuffix_save=$versuffix major_save=$major # I'm not sure if I'm treating the release correctly. I think # release should show up in the -l (ie -lgmp5) so we don't want to # add it in twice. Is that correct? release="" versuffix="" major="" newdeplibs= droppeddeps=no case $deplibs_check_method in pass_all) # Don't check for shared/static. Everything works. # This might be a little naive. We might want to check # whether the library exists or not. But this is on # osf3 & osf4 and I'm not really sure... Just # implementing what was already the behavior. newdeplibs=$deplibs ;; test_compile) # This code stresses the "libraries are programs" paradigm to its # limits. Maybe even breaks it. We compile a program, linking it # against the deplibs as a proxy for the library. Then we can check # whether they linked in statically or dynamically with ldd. $opt_dry_run || $RM conftest.c cat > conftest.c </dev/null` $nocaseglob else potential_libs=`ls $i/$libnameglob[.-]* 2>/dev/null` fi for potent_lib in $potential_libs; do # Follow soft links. if ls -lLd "$potent_lib" 2>/dev/null | $GREP " -> " >/dev/null; then continue fi # The statement above tries to avoid entering an # endless loop below, in case of cyclic links. # We might still enter an endless loop, since a link # loop can be closed while we follow links, # but so what? potlib="$potent_lib" while test -h "$potlib" 2>/dev/null; do potliblink=`ls -ld $potlib | ${SED} 's/.* -> //'` case $potliblink in [\\/]* | [A-Za-z]:[\\/]*) potlib="$potliblink";; *) potlib=`$ECHO "$potlib" | $SED 's,[^/]*$,,'`"$potliblink";; esac done if eval $file_magic_cmd \"\$potlib\" 2>/dev/null | $SED -e 10q | $EGREP "$file_magic_regex" > /dev/null; then func_append newdeplibs " $a_deplib" a_deplib="" break 2 fi done done fi if test -n "$a_deplib" ; then droppeddeps=yes echo $ECHO "*** Warning: linker path does not have real file for library $a_deplib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have" echo "*** because I did check the linker path looking for a file starting" if test -z "$potlib" ; then $ECHO "*** with $libname but no candidates were found. (...for file magic test)" else $ECHO "*** with $libname and none of the candidates passed a file format test" $ECHO "*** using a file magic. Last file checked: $potlib" fi fi ;; *) # Add a -L argument. func_append newdeplibs " $a_deplib" ;; esac done # Gone through all deplibs. ;; match_pattern*) set dummy $deplibs_check_method; shift match_pattern_regex=`expr "$deplibs_check_method" : "$1 \(.*\)"` for a_deplib in $deplibs; do case $a_deplib in -l*) func_stripname -l '' "$a_deplib" name=$func_stripname_result if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then case " $predeps $postdeps " in *" $a_deplib "*) func_append newdeplibs " $a_deplib" a_deplib="" ;; esac fi if test -n "$a_deplib" ; then libname=`eval "\\$ECHO \"$libname_spec\""` for i in $lib_search_path $sys_lib_search_path $shlib_search_path; do potential_libs=`ls $i/$libname[.-]* 2>/dev/null` for potent_lib in $potential_libs; do potlib="$potent_lib" # see symlink-check above in file_magic test if eval "\$ECHO \"$potent_lib\"" 2>/dev/null | $SED 10q | \ $EGREP "$match_pattern_regex" > /dev/null; then func_append newdeplibs " $a_deplib" a_deplib="" break 2 fi done done fi if test -n "$a_deplib" ; then droppeddeps=yes echo $ECHO "*** Warning: linker path does not have real file for library $a_deplib." echo "*** I have the capability to make that library automatically link in when" echo "*** you link to this library. But I can only do this if you have a" echo "*** shared version of the library, which you do not appear to have" echo "*** because I did check the linker path looking for a file starting" if test -z "$potlib" ; then $ECHO "*** with $libname but no candidates were found. (...for regex pattern test)" else $ECHO "*** with $libname and none of the candidates passed a file format test" $ECHO "*** using a regex pattern. Last file checked: $potlib" fi fi ;; *) # Add a -L argument. func_append newdeplibs " $a_deplib" ;; esac done # Gone through all deplibs. ;; none | unknown | *) newdeplibs="" tmp_deplibs=`$ECHO " $deplibs" | $SED 's/ -lc$//; s/ -[LR][^ ]*//g'` if test "X$allow_libtool_libs_with_static_runtimes" = "Xyes" ; then for i in $predeps $postdeps ; do # can't use Xsed below, because $i might contain '/' tmp_deplibs=`$ECHO " $tmp_deplibs" | $SED "s,$i,,"` done fi case $tmp_deplibs in *[!\ \ ]*) echo if test "X$deplibs_check_method" = "Xnone"; then echo "*** Warning: inter-library dependencies are not supported in this platform." else echo "*** Warning: inter-library dependencies are not known to be supported." fi echo "*** All declared inter-library dependencies are being dropped." droppeddeps=yes ;; esac ;; esac versuffix=$versuffix_save major=$major_save release=$release_save libname=$libname_save name=$name_save case $host in *-*-rhapsody* | *-*-darwin1.[012]) # On Rhapsody replace the C library with the System framework newdeplibs=`$ECHO " $newdeplibs" | $SED 's/ -lc / System.ltframework /'` ;; esac if test "$droppeddeps" = yes; then if test "$module" = yes; then echo echo "*** Warning: libtool could not satisfy all declared inter-library" $ECHO "*** dependencies of module $libname. Therefore, libtool will create" echo "*** a static module, that should work as long as the dlopening" echo "*** application is linked with the -dlopen flag." if test -z "$global_symbol_pipe"; then echo echo "*** However, this would only work if libtool was able to extract symbol" echo "*** lists from a program, using \`nm' or equivalent, but libtool could" echo "*** not find such a program. So, this module is probably useless." echo "*** \`nm' from GNU binutils and a full rebuild may help." fi if test "$build_old_libs" = no; then oldlibs="$output_objdir/$libname.$libext" build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi else echo "*** The inter-library dependencies that have been dropped here will be" echo "*** automatically added whenever a program is linked with this library" echo "*** or is declared to -dlopen it." if test "$allow_undefined" = no; then echo echo "*** Since this library must not contain undefined symbols," echo "*** because either the platform does not support them or" echo "*** it was explicitly requested with -no-undefined," echo "*** libtool will only create a static version of it." if test "$build_old_libs" = no; then oldlibs="$output_objdir/$libname.$libext" build_libtool_libs=module build_old_libs=yes else build_libtool_libs=no fi fi fi fi # Done checking deplibs! deplibs=$newdeplibs fi # Time to change all our "foo.ltframework" stuff back to "-framework foo" case $host in *-*-darwin*) newdeplibs=`$ECHO " $newdeplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` new_inherited_linker_flags=`$ECHO " $new_inherited_linker_flags" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` deplibs=`$ECHO " $deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` ;; esac # move library search paths that coincide with paths to not yet # installed libraries to the beginning of the library search list new_libs= for path in $notinst_path; do case " $new_libs " in *" -L$path/$objdir "*) ;; *) case " $deplibs " in *" -L$path/$objdir "*) func_append new_libs " -L$path/$objdir" ;; esac ;; esac done for deplib in $deplibs; do case $deplib in -L*) case " $new_libs " in *" $deplib "*) ;; *) func_append new_libs " $deplib" ;; esac ;; *) func_append new_libs " $deplib" ;; esac done deplibs="$new_libs" # All the library-specific variables (install_libdir is set above). library_names= old_library= dlname= # Test again, we may have decided not to build it any more if test "$build_libtool_libs" = yes; then # Remove ${wl} instances when linking with ld. # FIXME: should test the right _cmds variable. case $archive_cmds in *\$LD\ *) wl= ;; esac if test "$hardcode_into_libs" = yes; then # Hardcode the library paths hardcode_libdirs= dep_rpath= rpath="$finalize_rpath" test "$opt_mode" != relink && rpath="$compile_rpath$rpath" for libdir in $rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then func_replace_sysroot "$libdir" libdir=$func_replace_sysroot_result if test -z "$hardcode_libdirs"; then hardcode_libdirs="$libdir" else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" func_append dep_rpath " $flag" fi elif test -n "$runpath_var"; then case "$perm_rpath " in *" $libdir "*) ;; *) func_append perm_rpath " $libdir" ;; esac fi done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir="$hardcode_libdirs" eval "dep_rpath=\"$hardcode_libdir_flag_spec\"" fi if test -n "$runpath_var" && test -n "$perm_rpath"; then # We should set the runpath_var. rpath= for dir in $perm_rpath; do func_append rpath "$dir:" done eval "$runpath_var='$rpath\$$runpath_var'; export $runpath_var" fi test -n "$dep_rpath" && deplibs="$dep_rpath $deplibs" fi shlibpath="$finalize_shlibpath" test "$opt_mode" != relink && shlibpath="$compile_shlibpath$shlibpath" if test -n "$shlibpath"; then eval "$shlibpath_var='$shlibpath\$$shlibpath_var'; export $shlibpath_var" fi # Get the real and link names of the library. eval shared_ext=\"$shrext_cmds\" eval library_names=\"$library_names_spec\" set dummy $library_names shift realname="$1" shift if test -n "$soname_spec"; then eval soname=\"$soname_spec\" else soname="$realname" fi if test -z "$dlname"; then dlname=$soname fi lib="$output_objdir/$realname" linknames= for link do func_append linknames " $link" done # Use standard objects if they are pic test -z "$pic_flag" && libobjs=`$ECHO "$libobjs" | $SP2NL | $SED "$lo2o" | $NL2SP` test "X$libobjs" = "X " && libobjs= delfiles= if test -n "$export_symbols" && test -n "$include_expsyms"; then $opt_dry_run || cp "$export_symbols" "$output_objdir/$libname.uexp" export_symbols="$output_objdir/$libname.uexp" func_append delfiles " $export_symbols" fi orig_export_symbols= case $host_os in cygwin* | mingw* | cegcc*) if test -n "$export_symbols" && test -z "$export_symbols_regex"; then # exporting using user supplied symfile if test "x`$SED 1q $export_symbols`" != xEXPORTS; then # and it's NOT already a .def file. Must figure out # which of the given symbols are data symbols and tag # them as such. So, trigger use of export_symbols_cmds. # export_symbols gets reassigned inside the "prepare # the list of exported symbols" if statement, so the # include_expsyms logic still works. orig_export_symbols="$export_symbols" export_symbols= always_export_symbols=yes fi fi ;; esac # Prepare the list of exported symbols if test -z "$export_symbols"; then if test "$always_export_symbols" = yes || test -n "$export_symbols_regex"; then func_verbose "generating symbol list for \`$libname.la'" export_symbols="$output_objdir/$libname.exp" $opt_dry_run || $RM $export_symbols cmds=$export_symbols_cmds save_ifs="$IFS"; IFS='~' for cmd1 in $cmds; do IFS="$save_ifs" # Take the normal branch if the nm_file_list_spec branch # doesn't work or if tool conversion is not needed. case $nm_file_list_spec~$to_tool_file_cmd in *~func_convert_file_noop | *~func_convert_file_msys_to_w32 | ~*) try_normal_branch=yes eval cmd=\"$cmd1\" func_len " $cmd" len=$func_len_result ;; *) try_normal_branch=no ;; esac if test "$try_normal_branch" = yes \ && { test "$len" -lt "$max_cmd_len" \ || test "$max_cmd_len" -le -1; } then func_show_eval "$cmd" 'exit $?' skipped_export=false elif test -n "$nm_file_list_spec"; then func_basename "$output" output_la=$func_basename_result save_libobjs=$libobjs save_output=$output output=${output_objdir}/${output_la}.nm func_to_tool_file "$output" libobjs=$nm_file_list_spec$func_to_tool_file_result func_append delfiles " $output" func_verbose "creating $NM input file list: $output" for obj in $save_libobjs; do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" done > "$output" eval cmd=\"$cmd1\" func_show_eval "$cmd" 'exit $?' output=$save_output libobjs=$save_libobjs skipped_export=false else # The command line is too long to execute in one step. func_verbose "using reloadable object file for export list..." skipped_export=: # Break out early, otherwise skipped_export may be # set to false by a later but shorter cmd. break fi done IFS="$save_ifs" if test -n "$export_symbols_regex" && test "X$skipped_export" != "X:"; then func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"' func_show_eval '$MV "${export_symbols}T" "$export_symbols"' fi fi fi if test -n "$export_symbols" && test -n "$include_expsyms"; then tmp_export_symbols="$export_symbols" test -n "$orig_export_symbols" && tmp_export_symbols="$orig_export_symbols" $opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"' fi if test "X$skipped_export" != "X:" && test -n "$orig_export_symbols"; then # The given exports_symbols file has to be filtered, so filter it. func_verbose "filter symbol list for \`$libname.la' to tag DATA exports" # FIXME: $output_objdir/$libname.filter potentially contains lots of # 's' commands which not all seds can handle. GNU sed should be fine # though. Also, the filter scales superlinearly with the number of # global variables. join(1) would be nice here, but unfortunately # isn't a blessed tool. $opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter func_append delfiles " $export_symbols $output_objdir/$libname.filter" export_symbols=$output_objdir/$libname.def $opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols fi tmp_deplibs= for test_deplib in $deplibs; do case " $convenience " in *" $test_deplib "*) ;; *) func_append tmp_deplibs " $test_deplib" ;; esac done deplibs="$tmp_deplibs" if test -n "$convenience"; then if test -n "$whole_archive_flag_spec" && test "$compiler_needs_object" = yes && test -z "$libobjs"; then # extract the archives, so we have objects to list. # TODO: could optimize this to just extract one archive. whole_archive_flag_spec= fi if test -n "$whole_archive_flag_spec"; then save_libobjs=$libobjs eval libobjs=\"\$libobjs $whole_archive_flag_spec\" test "X$libobjs" = "X " && libobjs= else gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_extract_archives $gentop $convenience func_append libobjs " $func_extract_archives_result" test "X$libobjs" = "X " && libobjs= fi fi if test "$thread_safe" = yes && test -n "$thread_safe_flag_spec"; then eval flag=\"$thread_safe_flag_spec\" func_append linker_flags " $flag" fi # Make a backup of the uninstalled library when relinking if test "$opt_mode" = relink; then $opt_dry_run || eval '(cd $output_objdir && $RM ${realname}U && $MV $realname ${realname}U)' || exit $? fi # Do each of the archive commands. if test "$module" = yes && test -n "$module_cmds" ; then if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then eval test_cmds=\"$module_expsym_cmds\" cmds=$module_expsym_cmds else eval test_cmds=\"$module_cmds\" cmds=$module_cmds fi else if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then eval test_cmds=\"$archive_expsym_cmds\" cmds=$archive_expsym_cmds else eval test_cmds=\"$archive_cmds\" cmds=$archive_cmds fi fi if test "X$skipped_export" != "X:" && func_len " $test_cmds" && len=$func_len_result && test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then : else # The command line is too long to link in one step, link piecewise # or, if using GNU ld and skipped_export is not :, use a linker # script. # Save the value of $output and $libobjs because we want to # use them later. If we have whole_archive_flag_spec, we # want to use save_libobjs as it was before # whole_archive_flag_spec was expanded, because we can't # assume the linker understands whole_archive_flag_spec. # This may have to be revisited, in case too many # convenience libraries get linked in and end up exceeding # the spec. if test -z "$convenience" || test -z "$whole_archive_flag_spec"; then save_libobjs=$libobjs fi save_output=$output func_basename "$output" output_la=$func_basename_result # Clear the reloadable object creation command queue and # initialize k to one. test_cmds= concat_cmds= objlist= last_robj= k=1 if test -n "$save_libobjs" && test "X$skipped_export" != "X:" && test "$with_gnu_ld" = yes; then output=${output_objdir}/${output_la}.lnkscript func_verbose "creating GNU ld script: $output" echo 'INPUT (' > $output for obj in $save_libobjs do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" >> $output done echo ')' >> $output func_append delfiles " $output" func_to_tool_file "$output" output=$func_to_tool_file_result elif test -n "$save_libobjs" && test "X$skipped_export" != "X:" && test "X$file_list_spec" != X; then output=${output_objdir}/${output_la}.lnk func_verbose "creating linker input file list: $output" : > $output set x $save_libobjs shift firstobj= if test "$compiler_needs_object" = yes; then firstobj="$1 " shift fi for obj do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" >> $output done func_append delfiles " $output" func_to_tool_file "$output" output=$firstobj\"$file_list_spec$func_to_tool_file_result\" else if test -n "$save_libobjs"; then func_verbose "creating reloadable object files..." output=$output_objdir/$output_la-${k}.$objext eval test_cmds=\"$reload_cmds\" func_len " $test_cmds" len0=$func_len_result len=$len0 # Loop over the list of objects to be linked. for obj in $save_libobjs do func_len " $obj" func_arith $len + $func_len_result len=$func_arith_result if test "X$objlist" = X || test "$len" -lt "$max_cmd_len"; then func_append objlist " $obj" else # The command $test_cmds is almost too long, add a # command to the queue. if test "$k" -eq 1 ; then # The first file doesn't have a previous command to add. reload_objs=$objlist eval concat_cmds=\"$reload_cmds\" else # All subsequent reloadable object files will link in # the last one created. reload_objs="$objlist $last_robj" eval concat_cmds=\"\$concat_cmds~$reload_cmds~\$RM $last_robj\" fi last_robj=$output_objdir/$output_la-${k}.$objext func_arith $k + 1 k=$func_arith_result output=$output_objdir/$output_la-${k}.$objext objlist=" $obj" func_len " $last_robj" func_arith $len0 + $func_len_result len=$func_arith_result fi done # Handle the remaining objects by creating one last # reloadable object file. All subsequent reloadable object # files will link in the last one created. test -z "$concat_cmds" || concat_cmds=$concat_cmds~ reload_objs="$objlist $last_robj" eval concat_cmds=\"\${concat_cmds}$reload_cmds\" if test -n "$last_robj"; then eval concat_cmds=\"\${concat_cmds}~\$RM $last_robj\" fi func_append delfiles " $output" else output= fi if ${skipped_export-false}; then func_verbose "generating symbol list for \`$libname.la'" export_symbols="$output_objdir/$libname.exp" $opt_dry_run || $RM $export_symbols libobjs=$output # Append the command to create the export file. test -z "$concat_cmds" || concat_cmds=$concat_cmds~ eval concat_cmds=\"\$concat_cmds$export_symbols_cmds\" if test -n "$last_robj"; then eval concat_cmds=\"\$concat_cmds~\$RM $last_robj\" fi fi test -n "$save_libobjs" && func_verbose "creating a temporary reloadable object file: $output" # Loop through the commands generated above and execute them. save_ifs="$IFS"; IFS='~' for cmd in $concat_cmds; do IFS="$save_ifs" $opt_silent || { func_quote_for_expand "$cmd" eval "func_echo $func_quote_for_expand_result" } $opt_dry_run || eval "$cmd" || { lt_exit=$? # Restore the uninstalled library and exit if test "$opt_mode" = relink; then ( cd "$output_objdir" && \ $RM "${realname}T" && \ $MV "${realname}U" "$realname" ) fi exit $lt_exit } done IFS="$save_ifs" if test -n "$export_symbols_regex" && ${skipped_export-false}; then func_show_eval '$EGREP -e "$export_symbols_regex" "$export_symbols" > "${export_symbols}T"' func_show_eval '$MV "${export_symbols}T" "$export_symbols"' fi fi if ${skipped_export-false}; then if test -n "$export_symbols" && test -n "$include_expsyms"; then tmp_export_symbols="$export_symbols" test -n "$orig_export_symbols" && tmp_export_symbols="$orig_export_symbols" $opt_dry_run || eval '$ECHO "$include_expsyms" | $SP2NL >> "$tmp_export_symbols"' fi if test -n "$orig_export_symbols"; then # The given exports_symbols file has to be filtered, so filter it. func_verbose "filter symbol list for \`$libname.la' to tag DATA exports" # FIXME: $output_objdir/$libname.filter potentially contains lots of # 's' commands which not all seds can handle. GNU sed should be fine # though. Also, the filter scales superlinearly with the number of # global variables. join(1) would be nice here, but unfortunately # isn't a blessed tool. $opt_dry_run || $SED -e '/[ ,]DATA/!d;s,\(.*\)\([ \,].*\),s|^\1$|\1\2|,' < $export_symbols > $output_objdir/$libname.filter func_append delfiles " $export_symbols $output_objdir/$libname.filter" export_symbols=$output_objdir/$libname.def $opt_dry_run || $SED -f $output_objdir/$libname.filter < $orig_export_symbols > $export_symbols fi fi libobjs=$output # Restore the value of output. output=$save_output if test -n "$convenience" && test -n "$whole_archive_flag_spec"; then eval libobjs=\"\$libobjs $whole_archive_flag_spec\" test "X$libobjs" = "X " && libobjs= fi # Expand the library linking commands again to reset the # value of $libobjs for piecewise linking. # Do each of the archive commands. if test "$module" = yes && test -n "$module_cmds" ; then if test -n "$export_symbols" && test -n "$module_expsym_cmds"; then cmds=$module_expsym_cmds else cmds=$module_cmds fi else if test -n "$export_symbols" && test -n "$archive_expsym_cmds"; then cmds=$archive_expsym_cmds else cmds=$archive_cmds fi fi fi if test -n "$delfiles"; then # Append the command to remove temporary files to $cmds. eval cmds=\"\$cmds~\$RM $delfiles\" fi # Add any objects from preloaded convenience libraries if test -n "$dlprefiles"; then gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_extract_archives $gentop $dlprefiles func_append libobjs " $func_extract_archives_result" test "X$libobjs" = "X " && libobjs= fi save_ifs="$IFS"; IFS='~' for cmd in $cmds; do IFS="$save_ifs" eval cmd=\"$cmd\" $opt_silent || { func_quote_for_expand "$cmd" eval "func_echo $func_quote_for_expand_result" } $opt_dry_run || eval "$cmd" || { lt_exit=$? # Restore the uninstalled library and exit if test "$opt_mode" = relink; then ( cd "$output_objdir" && \ $RM "${realname}T" && \ $MV "${realname}U" "$realname" ) fi exit $lt_exit } done IFS="$save_ifs" # Restore the uninstalled library and exit if test "$opt_mode" = relink; then $opt_dry_run || eval '(cd $output_objdir && $RM ${realname}T && $MV $realname ${realname}T && $MV ${realname}U $realname)' || exit $? if test -n "$convenience"; then if test -z "$whole_archive_flag_spec"; then func_show_eval '${RM}r "$gentop"' fi fi exit $EXIT_SUCCESS fi # Create links to the real library. for linkname in $linknames; do if test "$realname" != "$linkname"; then func_show_eval '(cd "$output_objdir" && $RM "$linkname" && $LN_S "$realname" "$linkname")' 'exit $?' fi done # If -module or -export-dynamic was specified, set the dlname. if test "$module" = yes || test "$export_dynamic" = yes; then # On all known operating systems, these are identical. dlname="$soname" fi fi ;; obj) if test -n "$dlfiles$dlprefiles" || test "$dlself" != no; then func_warning "\`-dlopen' is ignored for objects" fi case " $deplibs" in *\ -l* | *\ -L*) func_warning "\`-l' and \`-L' are ignored for objects" ;; esac test -n "$rpath" && \ func_warning "\`-rpath' is ignored for objects" test -n "$xrpath" && \ func_warning "\`-R' is ignored for objects" test -n "$vinfo" && \ func_warning "\`-version-info' is ignored for objects" test -n "$release" && \ func_warning "\`-release' is ignored for objects" case $output in *.lo) test -n "$objs$old_deplibs" && \ func_fatal_error "cannot build library object \`$output' from non-libtool objects" libobj=$output func_lo2o "$libobj" obj=$func_lo2o_result ;; *) libobj= obj="$output" ;; esac # Delete the old objects. $opt_dry_run || $RM $obj $libobj # Objects from convenience libraries. This assumes # single-version convenience libraries. Whenever we create # different ones for PIC/non-PIC, this we'll have to duplicate # the extraction. reload_conv_objs= gentop= # reload_cmds runs $LD directly, so let us get rid of # -Wl from whole_archive_flag_spec and hope we can get by with # turning comma into space.. wl= if test -n "$convenience"; then if test -n "$whole_archive_flag_spec"; then eval tmp_whole_archive_flags=\"$whole_archive_flag_spec\" reload_conv_objs=$reload_objs\ `$ECHO "$tmp_whole_archive_flags" | $SED 's|,| |g'` else gentop="$output_objdir/${obj}x" func_append generated " $gentop" func_extract_archives $gentop $convenience reload_conv_objs="$reload_objs $func_extract_archives_result" fi fi # If we're not building shared, we need to use non_pic_objs test "$build_libtool_libs" != yes && libobjs="$non_pic_objects" # Create the old-style object. reload_objs="$objs$old_deplibs "`$ECHO "$libobjs" | $SP2NL | $SED "/\.${libext}$/d; /\.lib$/d; $lo2o" | $NL2SP`" $reload_conv_objs" ### testsuite: skip nested quoting test output="$obj" func_execute_cmds "$reload_cmds" 'exit $?' # Exit if we aren't doing a library object file. if test -z "$libobj"; then if test -n "$gentop"; then func_show_eval '${RM}r "$gentop"' fi exit $EXIT_SUCCESS fi if test "$build_libtool_libs" != yes; then if test -n "$gentop"; then func_show_eval '${RM}r "$gentop"' fi # Create an invalid libtool object if no PIC, so that we don't # accidentally link it into a program. # $show "echo timestamp > $libobj" # $opt_dry_run || eval "echo timestamp > $libobj" || exit $? exit $EXIT_SUCCESS fi if test -n "$pic_flag" || test "$pic_mode" != default; then # Only do commands if we really have different PIC objects. reload_objs="$libobjs $reload_conv_objs" output="$libobj" func_execute_cmds "$reload_cmds" 'exit $?' fi if test -n "$gentop"; then func_show_eval '${RM}r "$gentop"' fi exit $EXIT_SUCCESS ;; prog) case $host in *cygwin*) func_stripname '' '.exe' "$output" output=$func_stripname_result.exe;; esac test -n "$vinfo" && \ func_warning "\`-version-info' is ignored for programs" test -n "$release" && \ func_warning "\`-release' is ignored for programs" test "$preload" = yes \ && test "$dlopen_support" = unknown \ && test "$dlopen_self" = unknown \ && test "$dlopen_self_static" = unknown && \ func_warning "\`LT_INIT([dlopen])' not used. Assuming no dlopen support." case $host in *-*-rhapsody* | *-*-darwin1.[012]) # On Rhapsody replace the C library is the System framework compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's/ -lc / System.ltframework /'` finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's/ -lc / System.ltframework /'` ;; esac case $host in *-*-darwin*) # Don't allow lazy linking, it breaks C++ global constructors # But is supposedly fixed on 10.4 or later (yay!). if test "$tagname" = CXX ; then case ${MACOSX_DEPLOYMENT_TARGET-10.0} in 10.[0123]) func_append compile_command " ${wl}-bind_at_load" func_append finalize_command " ${wl}-bind_at_load" ;; esac fi # Time to change all our "foo.ltframework" stuff back to "-framework foo" compile_deplibs=`$ECHO " $compile_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` finalize_deplibs=`$ECHO " $finalize_deplibs" | $SED 's% \([^ $]*\).ltframework% -framework \1%g'` ;; esac # move library search paths that coincide with paths to not yet # installed libraries to the beginning of the library search list new_libs= for path in $notinst_path; do case " $new_libs " in *" -L$path/$objdir "*) ;; *) case " $compile_deplibs " in *" -L$path/$objdir "*) func_append new_libs " -L$path/$objdir" ;; esac ;; esac done for deplib in $compile_deplibs; do case $deplib in -L*) case " $new_libs " in *" $deplib "*) ;; *) func_append new_libs " $deplib" ;; esac ;; *) func_append new_libs " $deplib" ;; esac done compile_deplibs="$new_libs" func_append compile_command " $compile_deplibs" func_append finalize_command " $finalize_deplibs" if test -n "$rpath$xrpath"; then # If the user specified any rpath flags, then add them. for libdir in $rpath $xrpath; do # This is the magic to use -rpath. case "$finalize_rpath " in *" $libdir "*) ;; *) func_append finalize_rpath " $libdir" ;; esac done fi # Now hardcode the library paths rpath= hardcode_libdirs= for libdir in $compile_rpath $finalize_rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then if test -z "$hardcode_libdirs"; then hardcode_libdirs="$libdir" else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" func_append rpath " $flag" fi elif test -n "$runpath_var"; then case "$perm_rpath " in *" $libdir "*) ;; *) func_append perm_rpath " $libdir" ;; esac fi case $host in *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2* | *-cegcc*) testbindir=`${ECHO} "$libdir" | ${SED} -e 's*/lib$*/bin*'` case :$dllsearchpath: in *":$libdir:"*) ;; ::) dllsearchpath=$libdir;; *) func_append dllsearchpath ":$libdir";; esac case :$dllsearchpath: in *":$testbindir:"*) ;; ::) dllsearchpath=$testbindir;; *) func_append dllsearchpath ":$testbindir";; esac ;; esac done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir="$hardcode_libdirs" eval rpath=\" $hardcode_libdir_flag_spec\" fi compile_rpath="$rpath" rpath= hardcode_libdirs= for libdir in $finalize_rpath; do if test -n "$hardcode_libdir_flag_spec"; then if test -n "$hardcode_libdir_separator"; then if test -z "$hardcode_libdirs"; then hardcode_libdirs="$libdir" else # Just accumulate the unique libdirs. case $hardcode_libdir_separator$hardcode_libdirs$hardcode_libdir_separator in *"$hardcode_libdir_separator$libdir$hardcode_libdir_separator"*) ;; *) func_append hardcode_libdirs "$hardcode_libdir_separator$libdir" ;; esac fi else eval flag=\"$hardcode_libdir_flag_spec\" func_append rpath " $flag" fi elif test -n "$runpath_var"; then case "$finalize_perm_rpath " in *" $libdir "*) ;; *) func_append finalize_perm_rpath " $libdir" ;; esac fi done # Substitute the hardcoded libdirs into the rpath. if test -n "$hardcode_libdir_separator" && test -n "$hardcode_libdirs"; then libdir="$hardcode_libdirs" eval rpath=\" $hardcode_libdir_flag_spec\" fi finalize_rpath="$rpath" if test -n "$libobjs" && test "$build_old_libs" = yes; then # Transform all the library objects into standard objects. compile_command=`$ECHO "$compile_command" | $SP2NL | $SED "$lo2o" | $NL2SP` finalize_command=`$ECHO "$finalize_command" | $SP2NL | $SED "$lo2o" | $NL2SP` fi func_generate_dlsyms "$outputname" "@PROGRAM@" "no" # template prelinking step if test -n "$prelink_cmds"; then func_execute_cmds "$prelink_cmds" 'exit $?' fi wrappers_required=yes case $host in *cegcc* | *mingw32ce*) # Disable wrappers for cegcc and mingw32ce hosts, we are cross compiling anyway. wrappers_required=no ;; *cygwin* | *mingw* ) if test "$build_libtool_libs" != yes; then wrappers_required=no fi ;; *) if test "$need_relink" = no || test "$build_libtool_libs" != yes; then wrappers_required=no fi ;; esac if test "$wrappers_required" = no; then # Replace the output file specification. compile_command=`$ECHO "$compile_command" | $SED 's%@OUTPUT@%'"$output"'%g'` link_command="$compile_command$compile_rpath" # We have no uninstalled library dependencies, so finalize right now. exit_status=0 func_show_eval "$link_command" 'exit_status=$?' if test -n "$postlink_cmds"; then func_to_tool_file "$output" postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` func_execute_cmds "$postlink_cmds" 'exit $?' fi # Delete the generated files. if test -f "$output_objdir/${outputname}S.${objext}"; then func_show_eval '$RM "$output_objdir/${outputname}S.${objext}"' fi exit $exit_status fi if test -n "$compile_shlibpath$finalize_shlibpath"; then compile_command="$shlibpath_var=\"$compile_shlibpath$finalize_shlibpath\$$shlibpath_var\" $compile_command" fi if test -n "$finalize_shlibpath"; then finalize_command="$shlibpath_var=\"$finalize_shlibpath\$$shlibpath_var\" $finalize_command" fi compile_var= finalize_var= if test -n "$runpath_var"; then if test -n "$perm_rpath"; then # We should set the runpath_var. rpath= for dir in $perm_rpath; do func_append rpath "$dir:" done compile_var="$runpath_var=\"$rpath\$$runpath_var\" " fi if test -n "$finalize_perm_rpath"; then # We should set the runpath_var. rpath= for dir in $finalize_perm_rpath; do func_append rpath "$dir:" done finalize_var="$runpath_var=\"$rpath\$$runpath_var\" " fi fi if test "$no_install" = yes; then # We don't need to create a wrapper script. link_command="$compile_var$compile_command$compile_rpath" # Replace the output file specification. link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output"'%g'` # Delete the old output file. $opt_dry_run || $RM $output # Link the executable and exit func_show_eval "$link_command" 'exit $?' if test -n "$postlink_cmds"; then func_to_tool_file "$output" postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` func_execute_cmds "$postlink_cmds" 'exit $?' fi exit $EXIT_SUCCESS fi if test "$hardcode_action" = relink; then # Fast installation is not supported link_command="$compile_var$compile_command$compile_rpath" relink_command="$finalize_var$finalize_command$finalize_rpath" func_warning "this platform does not like uninstalled shared libraries" func_warning "\`$output' will be relinked during installation" else if test "$fast_install" != no; then link_command="$finalize_var$compile_command$finalize_rpath" if test "$fast_install" = yes; then relink_command=`$ECHO "$compile_var$compile_command$compile_rpath" | $SED 's%@OUTPUT@%\$progdir/\$file%g'` else # fast_install is set to needless relink_command= fi else link_command="$compile_var$compile_command$compile_rpath" relink_command="$finalize_var$finalize_command$finalize_rpath" fi fi # Replace the output file specification. link_command=`$ECHO "$link_command" | $SED 's%@OUTPUT@%'"$output_objdir/$outputname"'%g'` # Delete the old output files. $opt_dry_run || $RM $output $output_objdir/$outputname $output_objdir/lt-$outputname func_show_eval "$link_command" 'exit $?' if test -n "$postlink_cmds"; then func_to_tool_file "$output_objdir/$outputname" postlink_cmds=`func_echo_all "$postlink_cmds" | $SED -e 's%@OUTPUT@%'"$output_objdir/$outputname"'%g' -e 's%@TOOL_OUTPUT@%'"$func_to_tool_file_result"'%g'` func_execute_cmds "$postlink_cmds" 'exit $?' fi # Now create the wrapper script. func_verbose "creating $output" # Quote the relink command for shipping. if test -n "$relink_command"; then # Preserve any variables that may affect compiler behavior for var in $variables_saved_for_relink; do if eval test -z \"\${$var+set}\"; then relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command" elif eval var_value=\$$var; test -z "$var_value"; then relink_command="$var=; export $var; $relink_command" else func_quote_for_eval "$var_value" relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command" fi done relink_command="(cd `pwd`; $relink_command)" relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"` fi # Only actually do things if not in dry run mode. $opt_dry_run || { # win32 will think the script is a binary if it has # a .exe suffix, so we strip it off here. case $output in *.exe) func_stripname '' '.exe' "$output" output=$func_stripname_result ;; esac # test for cygwin because mv fails w/o .exe extensions case $host in *cygwin*) exeext=.exe func_stripname '' '.exe' "$outputname" outputname=$func_stripname_result ;; *) exeext= ;; esac case $host in *cygwin* | *mingw* ) func_dirname_and_basename "$output" "" "." output_name=$func_basename_result output_path=$func_dirname_result cwrappersource="$output_path/$objdir/lt-$output_name.c" cwrapper="$output_path/$output_name.exe" $RM $cwrappersource $cwrapper trap "$RM $cwrappersource $cwrapper; exit $EXIT_FAILURE" 1 2 15 func_emit_cwrapperexe_src > $cwrappersource # The wrapper executable is built using the $host compiler, # because it contains $host paths and files. If cross- # compiling, it, like the target executable, must be # executed on the $host or under an emulation environment. $opt_dry_run || { $LTCC $LTCFLAGS -o $cwrapper $cwrappersource $STRIP $cwrapper } # Now, create the wrapper script for func_source use: func_ltwrapper_scriptname $cwrapper $RM $func_ltwrapper_scriptname_result trap "$RM $func_ltwrapper_scriptname_result; exit $EXIT_FAILURE" 1 2 15 $opt_dry_run || { # note: this script will not be executed, so do not chmod. if test "x$build" = "x$host" ; then $cwrapper --lt-dump-script > $func_ltwrapper_scriptname_result else func_emit_wrapper no > $func_ltwrapper_scriptname_result fi } ;; * ) $RM $output trap "$RM $output; exit $EXIT_FAILURE" 1 2 15 func_emit_wrapper no > $output chmod +x $output ;; esac } exit $EXIT_SUCCESS ;; esac # See if we need to build an old-fashioned archive. for oldlib in $oldlibs; do if test "$build_libtool_libs" = convenience; then oldobjs="$libobjs_save $symfileobj" addlibs="$convenience" build_libtool_libs=no else if test "$build_libtool_libs" = module; then oldobjs="$libobjs_save" build_libtool_libs=no else oldobjs="$old_deplibs $non_pic_objects" if test "$preload" = yes && test -f "$symfileobj"; then func_append oldobjs " $symfileobj" fi fi addlibs="$old_convenience" fi if test -n "$addlibs"; then gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_extract_archives $gentop $addlibs func_append oldobjs " $func_extract_archives_result" fi # Do each command in the archive commands. if test -n "$old_archive_from_new_cmds" && test "$build_libtool_libs" = yes; then cmds=$old_archive_from_new_cmds else # Add any objects from preloaded convenience libraries if test -n "$dlprefiles"; then gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_extract_archives $gentop $dlprefiles func_append oldobjs " $func_extract_archives_result" fi # POSIX demands no paths to be encoded in archives. We have # to avoid creating archives with duplicate basenames if we # might have to extract them afterwards, e.g., when creating a # static archive out of a convenience library, or when linking # the entirety of a libtool archive into another (currently # not supported by libtool). if (for obj in $oldobjs do func_basename "$obj" $ECHO "$func_basename_result" done | sort | sort -uc >/dev/null 2>&1); then : else echo "copying selected object files to avoid basename conflicts..." gentop="$output_objdir/${outputname}x" func_append generated " $gentop" func_mkdir_p "$gentop" save_oldobjs=$oldobjs oldobjs= counter=1 for obj in $save_oldobjs do func_basename "$obj" objbase="$func_basename_result" case " $oldobjs " in " ") oldobjs=$obj ;; *[\ /]"$objbase "*) while :; do # Make sure we don't pick an alternate name that also # overlaps. newobj=lt$counter-$objbase func_arith $counter + 1 counter=$func_arith_result case " $oldobjs " in *[\ /]"$newobj "*) ;; *) if test ! -f "$gentop/$newobj"; then break; fi ;; esac done func_show_eval "ln $obj $gentop/$newobj || cp $obj $gentop/$newobj" func_append oldobjs " $gentop/$newobj" ;; *) func_append oldobjs " $obj" ;; esac done fi func_to_tool_file "$oldlib" func_convert_file_msys_to_w32 tool_oldlib=$func_to_tool_file_result eval cmds=\"$old_archive_cmds\" func_len " $cmds" len=$func_len_result if test "$len" -lt "$max_cmd_len" || test "$max_cmd_len" -le -1; then cmds=$old_archive_cmds elif test -n "$archiver_list_spec"; then func_verbose "using command file archive linking..." for obj in $oldobjs do func_to_tool_file "$obj" $ECHO "$func_to_tool_file_result" done > $output_objdir/$libname.libcmd func_to_tool_file "$output_objdir/$libname.libcmd" oldobjs=" $archiver_list_spec$func_to_tool_file_result" cmds=$old_archive_cmds else # the command line is too long to link in one step, link in parts func_verbose "using piecewise archive linking..." save_RANLIB=$RANLIB RANLIB=: objlist= concat_cmds= save_oldobjs=$oldobjs oldobjs= # Is there a better way of finding the last object in the list? for obj in $save_oldobjs do last_oldobj=$obj done eval test_cmds=\"$old_archive_cmds\" func_len " $test_cmds" len0=$func_len_result len=$len0 for obj in $save_oldobjs do func_len " $obj" func_arith $len + $func_len_result len=$func_arith_result func_append objlist " $obj" if test "$len" -lt "$max_cmd_len"; then : else # the above command should be used before it gets too long oldobjs=$objlist if test "$obj" = "$last_oldobj" ; then RANLIB=$save_RANLIB fi test -z "$concat_cmds" || concat_cmds=$concat_cmds~ eval concat_cmds=\"\${concat_cmds}$old_archive_cmds\" objlist= len=$len0 fi done RANLIB=$save_RANLIB oldobjs=$objlist if test "X$oldobjs" = "X" ; then eval cmds=\"\$concat_cmds\" else eval cmds=\"\$concat_cmds~\$old_archive_cmds\" fi fi fi func_execute_cmds "$cmds" 'exit $?' done test -n "$generated" && \ func_show_eval "${RM}r$generated" # Now create the libtool archive. case $output in *.la) old_library= test "$build_old_libs" = yes && old_library="$libname.$libext" func_verbose "creating $output" # Preserve any variables that may affect compiler behavior for var in $variables_saved_for_relink; do if eval test -z \"\${$var+set}\"; then relink_command="{ test -z \"\${$var+set}\" || $lt_unset $var || { $var=; export $var; }; }; $relink_command" elif eval var_value=\$$var; test -z "$var_value"; then relink_command="$var=; export $var; $relink_command" else func_quote_for_eval "$var_value" relink_command="$var=$func_quote_for_eval_result; export $var; $relink_command" fi done # Quote the link command for shipping. relink_command="(cd `pwd`; $SHELL $progpath $preserve_args --mode=relink $libtool_args @inst_prefix_dir@)" relink_command=`$ECHO "$relink_command" | $SED "$sed_quote_subst"` if test "$hardcode_automatic" = yes ; then relink_command= fi # Only create the output if not a dry run. $opt_dry_run || { for installed in no yes; do if test "$installed" = yes; then if test -z "$install_libdir"; then break fi output="$output_objdir/$outputname"i # Replace all uninstalled libtool libraries with the installed ones newdependency_libs= for deplib in $dependency_libs; do case $deplib in *.la) func_basename "$deplib" name="$func_basename_result" func_resolve_sysroot "$deplib" eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $func_resolve_sysroot_result` test -z "$libdir" && \ func_fatal_error "\`$deplib' is not a valid libtool archive" func_append newdependency_libs " ${lt_sysroot:+=}$libdir/$name" ;; -L*) func_stripname -L '' "$deplib" func_replace_sysroot "$func_stripname_result" func_append newdependency_libs " -L$func_replace_sysroot_result" ;; -R*) func_stripname -R '' "$deplib" func_replace_sysroot "$func_stripname_result" func_append newdependency_libs " -R$func_replace_sysroot_result" ;; *) func_append newdependency_libs " $deplib" ;; esac done dependency_libs="$newdependency_libs" newdlfiles= for lib in $dlfiles; do case $lib in *.la) func_basename "$lib" name="$func_basename_result" eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib` test -z "$libdir" && \ func_fatal_error "\`$lib' is not a valid libtool archive" func_append newdlfiles " ${lt_sysroot:+=}$libdir/$name" ;; *) func_append newdlfiles " $lib" ;; esac done dlfiles="$newdlfiles" newdlprefiles= for lib in $dlprefiles; do case $lib in *.la) # Only pass preopened files to the pseudo-archive (for # eventual linking with the app. that links it) if we # didn't already link the preopened objects directly into # the library: func_basename "$lib" name="$func_basename_result" eval libdir=`${SED} -n -e 's/^libdir=\(.*\)$/\1/p' $lib` test -z "$libdir" && \ func_fatal_error "\`$lib' is not a valid libtool archive" func_append newdlprefiles " ${lt_sysroot:+=}$libdir/$name" ;; esac done dlprefiles="$newdlprefiles" else newdlfiles= for lib in $dlfiles; do case $lib in [\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;; *) abs=`pwd`"/$lib" ;; esac func_append newdlfiles " $abs" done dlfiles="$newdlfiles" newdlprefiles= for lib in $dlprefiles; do case $lib in [\\/]* | [A-Za-z]:[\\/]*) abs="$lib" ;; *) abs=`pwd`"/$lib" ;; esac func_append newdlprefiles " $abs" done dlprefiles="$newdlprefiles" fi $RM $output # place dlname in correct position for cygwin # In fact, it would be nice if we could use this code for all target # systems that can't hard-code library paths into their executables # and that have no shared library path variable independent of PATH, # but it turns out we can't easily determine that from inspecting # libtool variables, so we have to hard-code the OSs to which it # applies here; at the moment, that means platforms that use the PE # object format with DLL files. See the long comment at the top of # tests/bindir.at for full details. tdlname=$dlname case $host,$output,$installed,$module,$dlname in *cygwin*,*lai,yes,no,*.dll | *mingw*,*lai,yes,no,*.dll | *cegcc*,*lai,yes,no,*.dll) # If a -bindir argument was supplied, place the dll there. if test "x$bindir" != x ; then func_relative_path "$install_libdir" "$bindir" tdlname=$func_relative_path_result$dlname else # Otherwise fall back on heuristic. tdlname=../bin/$dlname fi ;; esac $ECHO > $output "\ # $outputname - a libtool library file # Generated by $PROGRAM (GNU $PACKAGE$TIMESTAMP) $VERSION # # Please DO NOT delete this file! # It is necessary for linking the library. # The name that we can dlopen(3). dlname='$tdlname' # Names of this library. library_names='$library_names' # The name of the static archive. old_library='$old_library' # Linker flags that can not go in dependency_libs. inherited_linker_flags='$new_inherited_linker_flags' # Libraries that this one depends upon. dependency_libs='$dependency_libs' # Names of additional weak libraries provided by this library weak_library_names='$weak_libs' # Version information for $libname. current=$current age=$age revision=$revision # Is this an already installed library? installed=$installed # Should we warn about portability when linking against -modules? shouldnotlink=$module # Files to dlopen/dlpreopen dlopen='$dlfiles' dlpreopen='$dlprefiles' # Directory that this library needs to be installed in: libdir='$install_libdir'" if test "$installed" = no && test "$need_relink" = yes; then $ECHO >> $output "\ relink_command=\"$relink_command\"" fi done } # Do a symbolic link so that the libtool archive can be found in # LD_LIBRARY_PATH before the program is installed. func_show_eval '( cd "$output_objdir" && $RM "$outputname" && $LN_S "../$outputname" "$outputname" )' 'exit $?' ;; esac exit $EXIT_SUCCESS } { test "$opt_mode" = link || test "$opt_mode" = relink; } && func_mode_link ${1+"$@"} # func_mode_uninstall arg... func_mode_uninstall () { $opt_debug RM="$nonopt" files= rmforce= exit_status=0 # This variable tells wrapper scripts just to set variables rather # than running their programs. libtool_install_magic="$magic" for arg do case $arg in -f) func_append RM " $arg"; rmforce=yes ;; -*) func_append RM " $arg" ;; *) func_append files " $arg" ;; esac done test -z "$RM" && \ func_fatal_help "you must specify an RM program" rmdirs= for file in $files; do func_dirname "$file" "" "." dir="$func_dirname_result" if test "X$dir" = X.; then odir="$objdir" else odir="$dir/$objdir" fi func_basename "$file" name="$func_basename_result" test "$opt_mode" = uninstall && odir="$dir" # Remember odir for removal later, being careful to avoid duplicates if test "$opt_mode" = clean; then case " $rmdirs " in *" $odir "*) ;; *) func_append rmdirs " $odir" ;; esac fi # Don't error if the file doesn't exist and rm -f was used. if { test -L "$file"; } >/dev/null 2>&1 || { test -h "$file"; } >/dev/null 2>&1 || test -f "$file"; then : elif test -d "$file"; then exit_status=1 continue elif test "$rmforce" = yes; then continue fi rmfiles="$file" case $name in *.la) # Possibly a libtool archive, so verify it. if func_lalib_p "$file"; then func_source $dir/$name # Delete the libtool libraries and symlinks. for n in $library_names; do func_append rmfiles " $odir/$n" done test -n "$old_library" && func_append rmfiles " $odir/$old_library" case "$opt_mode" in clean) case " $library_names " in *" $dlname "*) ;; *) test -n "$dlname" && func_append rmfiles " $odir/$dlname" ;; esac test -n "$libdir" && func_append rmfiles " $odir/$name $odir/${name}i" ;; uninstall) if test -n "$library_names"; then # Do each command in the postuninstall commands. func_execute_cmds "$postuninstall_cmds" 'test "$rmforce" = yes || exit_status=1' fi if test -n "$old_library"; then # Do each command in the old_postuninstall commands. func_execute_cmds "$old_postuninstall_cmds" 'test "$rmforce" = yes || exit_status=1' fi # FIXME: should reinstall the best remaining shared library. ;; esac fi ;; *.lo) # Possibly a libtool object, so verify it. if func_lalib_p "$file"; then # Read the .lo file func_source $dir/$name # Add PIC object to the list of files to remove. if test -n "$pic_object" && test "$pic_object" != none; then func_append rmfiles " $dir/$pic_object" fi # Add non-PIC object to the list of files to remove. if test -n "$non_pic_object" && test "$non_pic_object" != none; then func_append rmfiles " $dir/$non_pic_object" fi fi ;; *) if test "$opt_mode" = clean ; then noexename=$name case $file in *.exe) func_stripname '' '.exe' "$file" file=$func_stripname_result func_stripname '' '.exe' "$name" noexename=$func_stripname_result # $file with .exe has already been added to rmfiles, # add $file without .exe func_append rmfiles " $file" ;; esac # Do a test to see if this is a libtool program. if func_ltwrapper_p "$file"; then if func_ltwrapper_executable_p "$file"; then func_ltwrapper_scriptname "$file" relink_command= func_source $func_ltwrapper_scriptname_result func_append rmfiles " $func_ltwrapper_scriptname_result" else relink_command= func_source $dir/$noexename fi # note $name still contains .exe if it was in $file originally # as does the version of $file that was added into $rmfiles func_append rmfiles " $odir/$name $odir/${name}S.${objext}" if test "$fast_install" = yes && test -n "$relink_command"; then func_append rmfiles " $odir/lt-$name" fi if test "X$noexename" != "X$name" ; then func_append rmfiles " $odir/lt-${noexename}.c" fi fi fi ;; esac func_show_eval "$RM $rmfiles" 'exit_status=1' done # Try to remove the ${objdir}s in the directories where we deleted files for dir in $rmdirs; do if test -d "$dir"; then func_show_eval "rmdir $dir >/dev/null 2>&1" fi done exit $exit_status } { test "$opt_mode" = uninstall || test "$opt_mode" = clean; } && func_mode_uninstall ${1+"$@"} test -z "$opt_mode" && { help="$generic_help" func_fatal_help "you must specify a MODE" } test -z "$exec_cmd" && \ func_fatal_help "invalid operation mode \`$opt_mode'" if test -n "$exec_cmd"; then eval exec "$exec_cmd" exit $EXIT_FAILURE fi exit $exit_status # The TAGs below are defined such that we never get into a situation # in which we disable both kinds of libraries. Given conflicting # choices, we go for a static library, that is the most portable, # since we can't tell whether shared libraries were disabled because # the user asked for that or because the platform doesn't support # them. This is particularly important on AIX, because we don't # support having both static and shared libraries enabled at the same # time on that platform, so we default to a shared-only configuration. # If a disable-shared tag is given, we'll fallback to a static-only # configuration. But we'll never go from static-only to shared-only. # ### BEGIN LIBTOOL TAG CONFIG: disable-shared build_libtool_libs=no build_old_libs=yes # ### END LIBTOOL TAG CONFIG: disable-shared # ### BEGIN LIBTOOL TAG CONFIG: disable-static build_old_libs=`case $build_libtool_libs in yes) echo no;; *) echo yes;; esac` # ### END LIBTOOL TAG CONFIG: disable-static # Local Variables: # mode:shell-script # sh-indentation:2 # End: # vi:sw=2 trueprint-5.4/src/0000755000175000017500000000000012117403106011201 500000000000000trueprint-5.4/src/language.c0000644000175000017500000001465612075260306013072 00000000000000/* * Source file: * language.c */ #include "config.h" #include #include #include #include "trueprint.h" #include "main.h" #include "lang_c.h" #include "lang_cxx.h" #include "lang_report.h" #include "lang_sh.h" #include "lang_pascal.h" #include "lang_java.h" #include "lang_perl.h" #include "lang_pike.h" #include "lang_text.h" #include "lang_verilog.h" #include "options.h" #include "utils.h" #include "language.h" boolean restart_language; short braces_depth; char *language_list = "arguments to --language:\n" " c C\n" " v Verilog\n" " cxx C++\n" " report trueprint report file\n" " sh shell\n" " pascal Pascal\n" " perl Perl\n" " pike Pike\n" " java Java\n" " text plain text\n" " list compiler or assembler listing file\n" " pseudoc C pseudocode\n"; /* * Private part */ typedef enum { NO_LANGUAGE, C, CXX, PSEUDOC, REPORT, SHELL, PASCAL, PERL, PIKE, LIST, TEXT, JAVA, VERILOG } languages; get_char_fn get_char; static languages language; static void set_language_opt(const char *prefix, const char *option, char *value); static void set_language_default(char *value); static languages filename_to_language(char *); /****************************************************************************** * Function: * setup_language */ void setup_language(void) { language = NO_LANGUAGE; string_option("t", "language", NULL, NULL, &set_language_opt, &set_language_default, OPT_MISC, "treat input as language. Use --help languages for list."); } /****************************************************************************** * Function: * set_language_default */ void set_language_default(char *value) { if (value == NULL) language = NO_LANGUAGE; else if (strcmp(value,"c") == 0) language = C; else if (strcmp(value,"v") == 0) language = VERILOG; else if (strcmp(value,"cxx") == 0) language = CXX; else if (strcmp(value,"report") == 0) language = REPORT; else if (strcmp(value,"sh") == 0) language = SHELL; else if (strcmp(value,"pascal") == 0) language = PASCAL; else if (strcmp(value,"perl") == 0) language = PERL; else if (strcmp(value,"pike") == 0) language = PIKE; else if (strcmp(value,"java") == 0) language = JAVA; else if (strcmp(value,"text") == 0) language = TEXT; else if (strcmp(value,"list") == 0) language = LIST; else if (strcmp(value,"pseudoc") == 0)language = PSEUDOC; else { fprintf(stderr, gettext(CMD_NAME ": unrecognized language type: %s\n"), value); exit(1); } } /****************************************************************************** * Function: * set_language_opt */ void set_language_opt(const char *prefix, const char *option, char *value) { set_language_default(value); } /****************************************************************************** * Function: * filename_to_language */ languages filename_to_language(char *filename) { languages retval; char *suffix; dm('l',2,"Finding language for filename %s\n",filename); if ((suffix = strrchr(filename,'.')) == (char *)0) { retval = TEXT; } else { dm('l',2,"Finding language for suffix %s\n",suffix); if (strcmp(suffix,".c") == 0) retval = C; else if (strcmp(suffix,".v") == 0) retval = VERILOG; else if (strcmp(suffix,".h") == 0) retval = C; else if (strcmp(suffix,".cxx") == 0) retval = CXX; else if (strcmp(suffix,".cpp") == 0) retval = CXX; else if (strcmp(suffix,".cc") == 0) retval = CXX; else if (strcmp(suffix,".C") == 0) retval = CXX; /* James Card */ else if (strcmp(suffix,".hpp") == 0) retval = CXX; else if (strcmp(suffix,".H") == 0) retval = CXX; /* James Card */ else if (strcmp(suffix,".pc") == 0) retval = PSEUDOC; else if (strcmp(suffix,".ph") == 0) retval = PSEUDOC; else if (strcmp(suffix,".rep") == 0) retval = REPORT; else if (strcmp(suffix,".sh") == 0) retval = SHELL; else if (strcmp(suffix,".pas") == 0) retval = PASCAL; else if (strcmp(suffix,".pl") == 0) retval = PERL; else if (strcmp(suffix,".pm") == 0) retval = PERL; else if (strcmp(suffix,".pmod") == 0) retval = PIKE; else if (strcmp(suffix,".pike") == 0) retval = PIKE; else if (strcmp(suffix,".java") == 0) retval = JAVA; else if (strcmp(suffix,".lst") == 0) retval = LIST; else retval = TEXT; } dm('l',2,"Language is %d\n",retval); return retval; } /****************************************************************************** * Function: * language_defaults */ char * language_defaults(char *filename) { char *retval; switch((language!=NO_LANGUAGE) ? language : filename_to_language(filename)) { case C: retval = lang_c_defaults; break; case VERILOG: retval = lang_verilog_defaults; break; case CXX: retval = lang_cxx_defaults; break; case PSEUDOC: retval = lang_pc_defaults; break; case REPORT: retval = lang_report_defaults; break; case SHELL: retval = lang_sh_defaults; break; case PASCAL: retval = lang_pascal_defaults; break; case PERL: retval = lang_perl_defaults; break; case PIKE: retval = lang_pike_defaults; break; case JAVA: retval = lang_java_defaults; break; case TEXT: retval = lang_text_defaults; break; case LIST: retval = lang_list_defaults; break; default: abort(); } return retval; } /****************************************************************************** * Function: * set_get_char * Called for each file to set get_char appropriately. language must be * set. */ void set_get_char(char *filename) { /* * restart_language is used to tell the language-specific routines * to reset */ restart_language = TRUE; switch((language!=NO_LANGUAGE) ? language : filename_to_language(filename)) { case C: get_char = get_c_char; break; case VERILOG: get_char = get_verilog_char; break; case CXX: get_char = get_cxx_char; break; case PSEUDOC: get_char = get_pc_char; break; case REPORT: get_char = get_report_char; break; case SHELL: get_char = get_sh_char; break; case PASCAL: get_char = get_pascal_char; break; case PERL: get_char = get_perl_char; break; case PIKE: get_char = get_pike_char; break; case JAVA: get_char = get_java_char; break; case TEXT: get_char = get_text_char; break; case LIST: get_char = get_text_char; break; default: abort(); } } trueprint-5.4/src/debug.c0000644000175000017500000000260107625761737012403 00000000000000/* * Source file: * debug.c */ #include "config.h" #include #include #include #include #include "trueprint.h" #include "utils.h" #include "options.h" #include "debug.h" /* * Private part */ static char *debug_string; static int match(char, int); /****************************************************************************** * Function: * setup_debug */ void setup_debug(void) { debug_string = ""; string_option("D", "debug", "", &debug_string, NULL, NULL, OPT_MISC, "set debug options to "); } /****************************************************************************** * Function: * dm (debug_message) */ void dm(char class, int level, char *message, ...) { va_list ap; if (debug_string == NULL) return; if (!match(class,level)) return; va_start(ap, message); vfprintf(stderr, message, ap); } /****************************************************************************** * Function: * match */ int match(char class, int level) { char *s_index = debug_string; char this_class; int this_level; while (*s_index) { skipspaces(&s_index); this_class = *(s_index++); skipspaces(&s_index); this_level = strtol(s_index, &s_index, 10); if ((this_class == '@') || (this_class == class)) { if (this_level >= level) return 1; return 0; } } return 0; } trueprint-5.4/src/lang_pascal.c0000644000175000017500000001130207625761737013557 00000000000000/* * Source file: * lang_pascal.c * * Contains get_pascal_char(), which parses C code. */ #include "config.h" #include #include #include #include #include "trueprint.h" #include "main.h" #include "input.h" #include "index.h" #include "language.h" #include "output.h" #include "lang_pascal.h" /* * Public part */ char lang_pascal_defaults[] = "--f --F --i"; /* * Private part */ typedef enum { PAS_SPACE, PAS_COMMENT_START, PAS_COMMENT_END, PAS_COMMENT } pascal_states; typedef enum { FN_CODE, FN_PROCEDURE, FN_FUNCTION, FN_BEGIN, FN_END, FN_SPACE, FN_NAME } pascal_fn_states; static char procedure_string[] = "procedure"; static char function_string[] = "function"; static char begin_string[] = "begin"; static char end_string[] = "end"; /* * get_pascal_char() * detects comment starts and ends; * finds function names; * detects function ends; * returns one of the following: * CHAR * COMMENT_START * COMMENT_END * FUNCTION_END * FILE_END * INPUT_END * FUNCTION_NAME_START * FUNCTION_NAME_END */ stream_status get_pascal_char(char *input_char, char_status *status) { stream_status retval; static pascal_states state = PAS_SPACE; static pascal_fn_states fn_state = FN_CODE; static long start_char; static char fn_name[SYMBOL_LEN]; static long fn_page; static size_t token_index; static short function_depth = 0; *status = CHAR_NORMAL; if (restart_language == TRUE) { state = PAS_SPACE; fn_state = FN_CODE; function_depth = 0; braces_depth = 0; restart_language = FALSE; } retval = getnextchar(input_char); switch (state) { case PAS_SPACE: if (isspace(*input_char)) break; if (*input_char == '{') { state = PAS_COMMENT; *status = CHAR_ITALIC; } else if (*input_char == '(') { stream_status s; char c; s = getnextchar(&c); if (c == '*') *status = CHAR_ITALIC; ungetnextchar(c,s); state=PAS_COMMENT_START; } break; case PAS_COMMENT_START: if (*input_char == '*') { state = PAS_COMMENT; *status = CHAR_ITALIC; } else state = PAS_SPACE; break; case PAS_COMMENT_END: *status = CHAR_ITALIC; if (*input_char == ')') state = PAS_SPACE; break; case PAS_COMMENT: *status = CHAR_ITALIC; if (*input_char == '}') { state = PAS_SPACE; } else if (*input_char == '*') { state = PAS_COMMENT_END; } break; default: abort(); } if ((state == PAS_SPACE) || (state == PAS_COMMENT_START)) { switch (fn_state) { case FN_CODE: if (*input_char == 'b'){fn_state=FN_BEGIN;token_index=1;break;} if (*input_char == 'e'){fn_state=FN_END;token_index=1;break;} if (*input_char == 'f'){fn_state=FN_FUNCTION;token_index=1;break;} if (*input_char == 'p'){fn_state=FN_PROCEDURE;token_index=1;break;} break; case FN_PROCEDURE: if (*input_char == procedure_string[token_index]) { if (++token_index == strlen(procedure_string)) { token_index = 0; fn_state = FN_SPACE; } } else fn_state = FN_CODE; break; case FN_FUNCTION: if (*input_char == function_string[token_index]) { if (++token_index == strlen(function_string)) { token_index = 0; fn_state = FN_SPACE; } } else fn_state = FN_CODE; break; case FN_BEGIN: if (*input_char == begin_string[token_index]) { if (++token_index == strlen(begin_string)) { token_index = 0; fn_state = FN_CODE; braces_depth++; } } else fn_state = FN_CODE; break; case FN_END: if (*input_char == end_string[token_index]) { if (++token_index == strlen(end_string)) { token_index = 0; fn_state = FN_CODE; if (braces_depth != 0) if (--braces_depth == function_depth) { retval|=STREAM_FUNCTION_END; end_function(page_number); function_depth--; } } } else fn_state = FN_CODE; break; case FN_SPACE: if (!isspace(*input_char)) { if (isalpha(*input_char)) { token_index = 0; fn_name[token_index++] = *input_char; start_char = char_number; fn_page = page_number; fn_state = FN_NAME; } else fn_state = FN_CODE; } break; case FN_NAME: if ((isalnum(*input_char)||*input_char == '_') && (token_index < SYMBOL_LEN-1)) fn_name[token_index++] = *input_char; else { fn_name[token_index] = '\0'; add_function(fn_name,start_char,char_number-1,fn_page,current_filename); fn_state = FN_CODE; function_depth = braces_depth; } break; default: abort(); } } if (pass==1) *status = get_function_name_posn(char_number,*status); return(retval); } trueprint-5.4/src/lang_pike.c0000644000175000017500000002131507625761740013243 00000000000000/* * Source file: * lang_pike.c * * Contains get_pike_char(), which parses pike code. */ #include "config.h" #include #include #include #include "trueprint.h" #include "main.h" #include "input.h" #include "index.h" #include "language.h" #include "output.h" #include "lang_pike.h" /* * Public part */ char lang_pike_defaults[] = "--f --F --i"; /* * Private part */ typedef enum { IP_CODE, IP_COMMENT_START, IP_COMMENT, IP_COMMENT_LINE, IP_COMMENT_END, IP_STRING, IP_QUOTE_STRING, IP_ESCAPED } pike_ip_states; typedef enum { FN_INITIAL_SPACE, FN_FINAL_CHARS, FN_NAME, FN_CHAINED_NAME, FN_TRAIL_SPACE, FN_OPEN_BRACKET, FN_DBL_OPEN_BRACKET, FN_CLOSE_BRACKET, FN_ARG, FN_SEMICOLON, FN_BODY, FN_MACRO, FN_MACRO_ESCAPED } pike_fn_states; int is_pike_reserved_word(char *fn_name) { if( (strcmp(fn_name,"if")==0) || (strcmp(fn_name,"class")==0) || (strcmp(fn_name,"else")==0) || (strcmp(fn_name,"do")==0) || (strcmp(fn_name,"while")==0) || (strcmp(fn_name,"for")==0) || (strcmp(fn_name,"foreach")==0) || (strcmp(fn_name,"catch")==0) || (strcmp(fn_name,"int")==0) || (strcmp(fn_name,"array")==0) || (strcmp(fn_name,"object")==0) || (strcmp(fn_name,"program")==0) || (strcmp(fn_name,"multiset")==0) || (strcmp(fn_name,"mapping")==0) || (strcmp(fn_name,"string")==0) || (strcmp(fn_name,"float")==0) || (strcmp(fn_name,"constant")==0) || (strcmp(fn_name,"switch")==0) ) { return 1; } return 0; } /* * get_pike_char() * detects comment starts and ends; * finds function names; * detects function ends; */ stream_status get_pike_char(char *input_char, char_status *status) { static pike_ip_states state=IP_CODE; static pike_ip_states saved_state; pike_ip_states old_state=state; stream_status retval; static pike_fn_states fn_state; static pike_fn_states saved_fn_state; static short fn_name_index; static char fn_name[SYMBOL_LEN] = "UNINITIALIZED"; static long start_char, end_char; static long fn_page_number; *status = CHAR_NORMAL; if (restart_language == TRUE) { state = IP_CODE; saved_state = IP_CODE; fn_state = FN_INITIAL_SPACE; start_char = 0; end_char = 0; fn_page_number= 0; braces_depth = 0; restart_language = FALSE; } retval = getnextchar(input_char); switch (state) { case IP_CODE: switch (*input_char) { case '/': state = IP_COMMENT_START; { stream_status s; char c; s = getnextchar(&c); if ((c == '*') || (c == '/')) *status = CHAR_ITALIC; ungetnextchar(c,s); } break; case '{': braces_depth += 1; if ( (fn_state == FN_CLOSE_BRACKET) || (fn_state == FN_CHAINED_NAME) || (fn_state == FN_BODY) || (fn_state == FN_SEMICOLON) ) { if(!is_pike_reserved_word(fn_name)) { /* got function! */ add_function(fn_name,start_char,end_char,fn_page_number,current_filename); fn_state = FN_BODY; } fn_name_index = 0; } break; /*case '}': if (((braces_depth -= 1) == 0) && (fn_state == FN_BODY))*/ case '}': braces_depth -= 1; if (fn_state == FN_BODY) { end_function(page_number); retval|=STREAM_FUNCTION_END; fn_state = FN_INITIAL_SPACE; } break; case '"': state=IP_STRING; break; case '\'': state=IP_QUOTE_STRING; break; default: ; } break; case IP_COMMENT_START: switch (*input_char) { case '/': state=IP_COMMENT_LINE; *status=CHAR_ITALIC; break; case '*': state=IP_COMMENT; *status=CHAR_ITALIC; break; case '{': state=IP_CODE; braces_depth+=1; break; case '}': if ((braces_depth -= 1) == 0) retval|=STREAM_FUNCTION_END; break; default: state=IP_CODE; break; } break; case IP_COMMENT: *status = CHAR_ITALIC; switch (*input_char) { case '*': state=IP_COMMENT_END; break; default: ; } break; case IP_COMMENT_LINE: *status = CHAR_ITALIC; switch (*input_char) { case '\n': state=IP_CODE; break; default: ; } break; case IP_COMMENT_END: *status = CHAR_ITALIC; switch (*input_char) { case '/': state=IP_CODE; break; case '*': break; default: state=IP_COMMENT; break; } break; case IP_STRING: switch (*input_char) { case '"': state=IP_CODE; break; case '\\': saved_state=state; state=IP_ESCAPED; break; default: ; } break; case IP_QUOTE_STRING: switch (*input_char) { case '\'': state=IP_CODE; break; case '\\': saved_state=state; state=IP_ESCAPED; break; default: ; } break; case IP_ESCAPED: state=saved_state; break; default: abort(); } if ((state == IP_CODE) && (old_state != IP_COMMENT_END)) switch (fn_state) { case FN_INITIAL_SPACE: if (isalpha(*input_char)) { fn_page_number = page_number; fn_name[fn_name_index++] = *input_char; start_char = char_number; fn_state = FN_NAME; } if (*input_char == '#') { saved_fn_state = fn_state; fn_state = FN_MACRO; } break; case FN_MACRO: if (*input_char == '\\') fn_state = FN_MACRO_ESCAPED; if (*input_char == '\n') fn_state = saved_fn_state; break; case FN_MACRO_ESCAPED: fn_state = FN_MACRO; break; case FN_NAME: if (isalnum(*input_char) || (*input_char == '_') || (*input_char == ':') || (*input_char == '~')) fn_name[fn_name_index++] = *input_char; else if (isspace(*input_char)) { fn_name[fn_name_index] = 0; end_char = char_number-1; if(!is_pike_reserved_word(fn_name)) { fn_state = FN_TRAIL_SPACE; } else { // if we don't reset this, then the returntype will // become part of the function name... fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } } else if (*input_char == '(') { fn_name[fn_name_index] = 0; end_char = char_number-1; if(!is_pike_reserved_word(fn_name)) { fn_state = FN_OPEN_BRACKET; } else { fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } } else { fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_CHAINED_NAME: /* * This state is a bit of a cheat - we stay in this state * until the other FSM finds a {. This may find more * methods than are strictly there, but it'll work in all * normal cases. */ break; case FN_TRAIL_SPACE: if (isspace(*input_char)) break; else if (*input_char == '(') { fn_name[fn_name_index] = 0; if(!is_pike_reserved_word(fn_name)) { fn_state = FN_OPEN_BRACKET; } } else if (isalpha(*input_char)) { fn_name_index = 0; fn_name[fn_name_index++] = *input_char; fn_page_number = page_number; start_char = char_number; fn_state = FN_NAME; } else { fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_OPEN_BRACKET: if (*input_char == '(') fn_state = FN_DBL_OPEN_BRACKET; if (*input_char == ')') fn_state = FN_CLOSE_BRACKET; break; case FN_DBL_OPEN_BRACKET: if (*input_char == ')') fn_state = FN_OPEN_BRACKET; break; case FN_CLOSE_BRACKET: if (isspace(*input_char)) { break; } else if (*input_char == ':') { fn_state = FN_CHAINED_NAME; } else if (isalpha(*input_char) || (*input_char == '[')) { /* check for [ in case of bp listings! */ fn_state = FN_ARG; } else { fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_ARG: if (*input_char == ';') fn_state = FN_SEMICOLON; /* Treat ] as a semicolon in case of bp listings */ if (*input_char == ']') fn_state = FN_SEMICOLON; break; case FN_SEMICOLON: if (isspace(*input_char)) break; if (*status == CHAR_ITALIC) break; /* Take care of arg ending in ...[]; */ if (*input_char != ';') fn_state = FN_ARG; break; case FN_BODY: break; default: abort(); } if (pass==1) *status = get_function_name_posn(char_number,*status); return(retval); } trueprint-5.4/src/expand_str.h0000644000175000017500000000005507625761737013472 00000000000000extern char *expand_string(char *, boolean); trueprint-5.4/src/input.h0000644000175000017500000000042707625761737012465 00000000000000/* * Source file: * input.h */ extern long char_number; extern int got_some_input; extern boolean set_input_stream(int); extern stream_status getnextchar(char *); extern void ungetnextchar(char, stream_status); extern void setup_input(void); extern void init_input(void); trueprint-5.4/src/debug.h0000644000175000017500000000015307625761737012410 00000000000000/* * Include file: * debug.h */ extern void setup_debug(void); extern void dm(char, int, char *, ...); trueprint-5.4/src/headers.h0000644000175000017500000000030707625761737012736 00000000000000/* * Include file: * headers.h */ extern void setup_headers(void); void print_text_header(long, long); void print_file_header(long); void print_index_header(long); void print_cflow_header(long); trueprint-5.4/src/main.h0000644000175000017500000000046507625761740012246 00000000000000/* * Include file: * main.h */ /* * Globally available externs */ extern unsigned int no_of_files; extern char *current_filename; extern short pass; extern unsigned int file_number; extern int page_length; extern int page_width; extern long total_pages; extern boolean use_environment; trueprint-5.4/src/postscript.h0000644000175000017500000000102607625761740013526 00000000000000/* * Include file: * postscript.h */ extern boolean no_show_indent_level; extern boolean no_show_line_number; extern void setup_postscript(void); extern void init_postscript(void); extern void PS_header(char *, boolean); extern boolean PS_endpage(boolean print_page); extern void PS_startpage(char *h1, char *h2, char *h3, char *f1, char *f2, char *f3, char *message, long page_no,long hdr_total_pages,boolean index_page); extern void PS_end_output(void); extern void PS_pagesize(char *printer, int *width_ptr, int *length_ptr); trueprint-5.4/src/lang_verilog.h0000644000175000017500000000021607625761740013764 00000000000000/* * Include file: * lang_verilog.h */ extern stream_status get_verilog_char(char *, char_status *); extern char lang_verilog_defaults[]; trueprint-5.4/src/expand_str.c0000644000175000017500000001603207625761737013467 00000000000000/* * Source file: * expand_str.c */ #include "config.h" #if TM_IN_SYS_TIME # include #else # include #endif #include #include #include #include #include "trueprint.h" #include "main.h" #include "index.h" #include "debug.h" #include "output.h" #include "utils.h" #include "expand_str.h" /* * Public part */ /* * Private part */ static char *expand_character(char,boolean); static void add_string(char **, char *, size_t *); static void add_character(char **, char, size_t *); /***************************************************************************** * Function: * expand_string */ char * expand_string(char *original_string, boolean index_page) { static char *output_buffer=NULL; static size_t buffer_size = 100; char *current_char; if (original_string) dm('h', 5, "expand_string.c:expand_string() Expanding string %s\n", original_string); else dm('h', 5, "expand_string.c:expand_string() Expanding null string\n"); /* * Initialize output buffer */ if (output_buffer == NULL) output_buffer = xmalloc(100); *output_buffer = '\0'; if (original_string) { /* * Run through input string, expanding characters as necessary */ for (current_char = original_string; *current_char; current_char++) { if (*current_char != '%') { add_character(&output_buffer, *current_char, &buffer_size); continue; } add_string(&output_buffer, expand_character(*++current_char,index_page), &buffer_size); } } else { *output_buffer = '\0'; } dm('h', 5, "expand_string.c:expand_string Returning string %s\n", output_buffer); return output_buffer; } /***************************************************************************** * Function: * expand_character */ char * expand_character(char character, boolean index_page) { static char *output_buffer=NULL; static struct tm *t=NULL; static char *daynames[] = { "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat" }; static char *monnames[] = { "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" }; struct tm *ft; /* * Initialize time buffer */ if (t == NULL) { time_t now; if (!use_environment) { now = 387774000; t = gmtime(&now); } else { now = time((time_t *)NULL); t = localtime(&now); } } /* * Initialize output buffer */ if (output_buffer == NULL) output_buffer = xmalloc(100); *output_buffer = '\0'; switch (character) { case '%': /* percent character */ return "%"; case 'm': /* month of year */ sprintf(output_buffer, "%02d", t->tm_mon + 1); return output_buffer; case 'd': /* day of month */ sprintf(output_buffer, "%02d", t->tm_mday); return output_buffer; case 'y': /* year - four digits */ sprintf(output_buffer, "%4d", t->tm_year + 1900); return output_buffer; case 'D': /* date as mm/dd/yy */ sprintf(output_buffer, "%02d/%02d/%02d", t->tm_mon+1, t->tm_mday, t->tm_year); return output_buffer; case 'L': /* date as %a %h %d %T %y */ sprintf(output_buffer, "%s %s %02d %02d:%02d:%02d %4d", daynames[t->tm_wday], monnames[t->tm_mon], t->tm_mday, t->tm_hour, t->tm_min, t->tm_sec, t->tm_year + 1900); return output_buffer; case 'H': /* hour - 00 to 23 */ sprintf(output_buffer, "%02d", t->tm_hour); return output_buffer; case 'M': /* minute - 00 to 59 */ sprintf(output_buffer, "%02d", t->tm_min); return output_buffer; case 'S': /* second - 00 to 59 */ sprintf(output_buffer, "%02d", t->tm_sec); return output_buffer; case 'T': /* time as HH:MM:SS */ sprintf(output_buffer, "%02d:%02d:%02d", t->tm_hour, t->tm_min, t->tm_sec); return output_buffer; case 'j': /* day of year - 001 to 366 */ sprintf(output_buffer, "%3d", t->tm_yday); return output_buffer; case 'w': /* day of week - Sunday = 0 */ sprintf(output_buffer, "%d", t->tm_wday); return output_buffer; case 'a': /* abbreviated weekday - Sun to Sat */ return daynames[t->tm_wday]; case 'h': /* abbreviated month - Jan to Dec */ return monnames[t->tm_mon]; case 'r': /* time in AM/PM notation */ if (t->tm_hour > 12) sprintf(output_buffer, "%02d:%02dpm", t->tm_hour-12, t->tm_min); else sprintf(output_buffer, "%02d:%02dam", t->tm_hour, t->tm_min); return output_buffer; case 'p': /* page number in current file */ if (index_page) return ""; sprintf(output_buffer, "%ld", file_page_number); return output_buffer; case 'P': /* page number overall */ if (index_page) return ""; sprintf(output_buffer, "%ld", page_number); return output_buffer; case 'f': /* total page numbers in current file */ if (index_page) return ""; sprintf(output_buffer, "%ld", get_file_last_page(file_number) - get_file_first_page(file_number) + 1); return output_buffer; case 'c': /* short-form modified (changed) date of current file */ if (index_page) return ""; ft = get_file_modified_time(file_number); if (ft == NULL) return ""; sprintf(output_buffer, "%02d/%02d/%02d", ft->tm_mon+1, ft->tm_mday, ft->tm_year); return output_buffer; case 'C': /* long-form modified (changed) date of current file */ if (index_page) return ""; ft = get_file_modified_time(file_number); if (ft == NULL) return ""; sprintf(output_buffer, "%s %s %02d %02d:%02d:%02d %4d", daynames[ft->tm_wday], monnames[ft->tm_mon], ft->tm_mday, ft->tm_hour, ft->tm_min, ft->tm_sec, ft->tm_year + 1900); return output_buffer; case 'F': /* final page number overall */ if (index_page) return ""; sprintf(output_buffer, "%ld", total_pages); return output_buffer; case 'n': /* current filename */ if (index_page) return ""; return file_name(file_number); case 'N': /* current function name */ if (index_page) return ""; return get_function_name(page_number); case 'l': /* login name */ if (!use_environment) return "testuser"; { char *u = getenv("USER"); if (u == 0) return ""; else return u; } default: return "?"; } } static void add_string(char **buffer_ptr, char *string, size_t *bufflen_ptr) { size_t required_length; required_length = strlen(*buffer_ptr)+strlen(string)+1; if (required_length > *bufflen_ptr) { *buffer_ptr = xrealloc(*buffer_ptr, required_length); *bufflen_ptr = required_length; } strcat(*buffer_ptr, string); return; } static void add_character(char **buffer_ptr, char character, size_t *bufflen_ptr) { size_t required_length; required_length = strlen(*buffer_ptr)+2; if (required_length > *bufflen_ptr) { *buffer_ptr = xrealloc(*buffer_ptr, required_length); *bufflen_ptr = required_length; } (*buffer_ptr)[required_length-1] = '\0'; (*buffer_ptr)[required_length-2] = character; return; } trueprint-5.4/src/index.h0000644000175000017500000000167307625761737012441 00000000000000/* * Include file: * index.h */ extern void setup_index(void); extern void add_file(char *filename, unsigned int this_file_number, long this_file_page_number); extern void end_file(unsigned int this_file_number, long this_file_page_number); extern void add_function(char *name, long start, long end, long page, char *filename); extern void end_function(long page); extern char_status get_function_name_posn(long current_char, char_status status); extern char *get_function_name(long page); extern char *file_name(int file_number); extern long get_file_last_page(unsigned int this_file_number); extern long get_file_first_page(unsigned int this_file_number); extern struct tm *get_file_modified_time(unsigned int this_file_number); extern void sort_function_names(void); extern void print_index(void); extern void print_out_file_index(void); extern void page_has_changed(long); extern boolean function_changed(long); extern boolean page_changed(long); trueprint-5.4/src/lang_perl.c0000644000175000017500000003120607625761737013263 00000000000000/* * Source file: * lang_perl.c * * Contains get_perl_char() which parses perl code. * * Pod functionality added by Daniel Wagenaar */ #include "config.h" #include #include #include #include #include "trueprint.h" #include "main.h" #include "input.h" #include "index.h" #include "language.h" #include "output.h" #include "lang_perl.h" /* * Public part */ char lang_perl_defaults[] = "--i --F --f"; /* * Private part */ typedef enum { IP_CODE, IP_STRING, IP_COMMENT, IP_STRING_ESCAPE, IP_POD, IP_INPOD, IP_POD_END, } perl_ip_states; typedef enum { Q_LOOKING, Q_SAWLT, Q_SAWLTLT, Q_SAWQ, Q_IDENT, Q_STALLED, Q_AFTER_HEREDOC_SIGNAL, Q_WITHIN_HEREDOC_FINDING, Q_WITHIN_HEREDOC, } perl_q_states; typedef enum { SUB_INIT, SUB_BOL, SUB_S, SUB_SU, SUB_SUB, SUB_FOUND, SUB_NAME, } perl_sub_states; typedef unsigned char byte; char nestable_chars[256]; static boolean perl_has_been_setup = FALSE; static void perl_setup(void) { memset(nestable_chars, 0, sizeof(nestable_chars)); nestable_chars[(byte) '('] = ')'; nestable_chars[(byte) '['] = ']'; nestable_chars[(byte) '{'] = '}'; nestable_chars[(byte) '<'] = '>'; nestable_chars[(byte) '`'] = '\''; perl_has_been_setup = TRUE; } static int isword(int c) { return isalnum(c) || c == '_'; } static int isidentstart(int c) { return isalpha(c) || c == '_'; } typedef enum { MYCHAR_NORMAL, MYCHAR_FUNCTION, MYCHAR_STRING, MYCHAR_COMMENT, } my_char_status; static void note(char c, perl_ip_states state, perl_q_states q_state, perl_sub_states sub_state, my_char_status status, char end_token); static stream_status my_get_perl_char(char *input_char, my_char_status *status) { static perl_ip_states state; static perl_sub_states sub_state; static perl_q_states q_state; static char end_token; static boolean line_start = FALSE; static int hd_check_index = 0; static int hd_end_index = 0; static char hd_end[SYMBOL_LEN]; static int brace_count = 0; static int q_count = 0; static boolean in_function; static int previous_newlines = 0; stream_status retval; *status = MYCHAR_NORMAL; if (restart_language == TRUE) { state = IP_CODE; sub_state = SUB_INIT; q_state = Q_LOOKING; q_count = 0; restart_language = FALSE; brace_count = 0; previous_newlines = 0; if (!perl_has_been_setup) perl_setup(); } // If previous character set line_start, increment number of // newlines just seen. if (line_start) previous_newlines++; else previous_newlines = 0; line_start = FALSE; retval = getnextchar(input_char); switch (state) { case IP_CODE: switch (*input_char) { case '"': case '\'': if (q_state != Q_SAWLTLT) { state = IP_STRING; end_token = *input_char; } break; case '\n': line_start = TRUE; break; case '=': if (previous_newlines >= 2) { state = IP_POD; *status = MYCHAR_COMMENT; } break; case '#': state = IP_COMMENT; *status = MYCHAR_COMMENT; break; case '{': brace_count++; break; case '}': brace_count--; if (brace_count == 0 && in_function) { end_function(page_number); in_function = FALSE; retval |= STREAM_FUNCTION_END; } if (brace_count < 0) brace_count = 0; break; } break; case IP_POD: *status = MYCHAR_COMMENT; state = IP_INPOD; break; case IP_INPOD: *status = MYCHAR_COMMENT; if (*input_char == '\n') line_start = TRUE; else if (*input_char == '=' && previous_newlines >= 2) state = IP_POD_END; break; case IP_POD_END: if (*input_char == '\n') state = IP_CODE; else *status = MYCHAR_COMMENT; break; case IP_COMMENT: if (*input_char == '\n') state = IP_CODE; *status = MYCHAR_COMMENT; break; case IP_STRING: if (*input_char == end_token) { state = IP_CODE; q_state = Q_STALLED; // Don't immediately start next string } else { *status = MYCHAR_STRING; if (*input_char == '\\') state = IP_STRING_ESCAPE; } break; case IP_STRING_ESCAPE: state = IP_STRING; *status = MYCHAR_STRING; break; } // Sub-states of IP_CODE for detecting strings. (Meaning, this state // machine is stalled whenever state is not IP_CODE) if (state == IP_CODE) { switch (q_state) { case Q_LOOKING: if (*input_char == 'q') { q_state = Q_SAWQ; q_count = 1; } else if (*input_char == '<') q_state = Q_SAWLT; else if (*input_char == '\'') { end_token = '\''; state = IP_STRING; } else if (*input_char == '"') { end_token = '"'; state = IP_STRING; } else if (isword(*input_char)) q_state = Q_IDENT; break; case Q_SAWLT: if (*input_char == '<') q_state = Q_SAWLTLT; else q_state = Q_LOOKING; hd_end_index = 0; break; case Q_SAWLTLT: if (isidentstart(*input_char)) hd_end[hd_end_index++] = *input_char; else if (*input_char == '"' || *input_char == '\'') ; /* Do nothing */ else if (hd_end_index > 0) { if (isword(*input_char)) hd_end[hd_end_index++] = *input_char; else { state = IP_CODE; q_state = Q_AFTER_HEREDOC_SIGNAL; } } else q_state = Q_LOOKING; break; case Q_AFTER_HEREDOC_SIGNAL: if (*input_char == '\n') { q_state = Q_WITHIN_HEREDOC_FINDING; hd_check_index = 0; } break; // Currently matching heredoc terminator case Q_WITHIN_HEREDOC_FINDING: if (*input_char == '\n') hd_check_index = 0; // Start over search at beginning else if (*input_char == hd_end[hd_check_index]) { hd_check_index++; if (hd_check_index == hd_end_index) { // Found the complete terminator state = IP_CODE; q_state = Q_LOOKING; } } else if (hd_check_index == 0 && isspace(*input_char)) ; /* Allow leading whitespace before heredoc terminator */ else q_state = Q_WITHIN_HEREDOC; // Not found *status = MYCHAR_COMMENT; break; // Terminator not found at beginning of line; just consume line case Q_WITHIN_HEREDOC: if (*input_char == '\n') { hd_check_index = 0; q_state = Q_WITHIN_HEREDOC_FINDING; } *status = MYCHAR_COMMENT; break; case Q_SAWQ: if (q_count == 1) { if (*input_char == 'q') // qq(...) q_count++; else if (*input_char == 'x') // qx(...) q_count++; else if (*input_char == 'w') // qw(...) q_count++; if (q_count == 2) break; } if (isword(*input_char)) q_state = Q_IDENT; else if (nestable_chars[(byte) *input_char]) { end_token = nestable_chars[(byte) *input_char]; state = IP_STRING; q_state = Q_LOOKING; // But stalled } else if (isspace(*input_char)) { q_state = Q_LOOKING; } else { end_token = *input_char; state = IP_STRING; q_state = Q_LOOKING; // But stalled } break; case Q_IDENT: if (!isword(*input_char)) q_state = Q_LOOKING; break; case Q_STALLED: q_state = Q_LOOKING; break; } } // Third state machine: finding subroutine declarations. This one is // reset to its initial state whenever anything returns to IP_CODE // from anything else. if (state != IP_CODE) { sub_state = SUB_INIT; } else { switch (sub_state) { case SUB_INIT: if (*input_char == '\n') sub_state = SUB_BOL; break; case SUB_BOL: if (*input_char == '\n') sub_state = SUB_BOL; else if (isspace(*input_char)) /* do nothing */; else if (*input_char == 's') sub_state = SUB_S; else sub_state = SUB_INIT; break; case SUB_S: if (*input_char == 'u') sub_state = SUB_SU; else if (*input_char == '\n') sub_state = SUB_BOL; else sub_state = SUB_INIT; break; case SUB_SU: if (*input_char == 'b') sub_state = SUB_SUB; else if (*input_char == '\n') sub_state = SUB_BOL; else sub_state = SUB_INIT; break; case SUB_SUB: if (isspace(*input_char)) sub_state = SUB_FOUND; else if (*input_char == '\n') sub_state = SUB_BOL; else sub_state = SUB_INIT; break; case SUB_FOUND: if (isidentstart(*input_char)) { *status = MYCHAR_FUNCTION; sub_state = SUB_NAME; } else if (*input_char == '{') sub_state = SUB_INIT; else if (*input_char == '\n') sub_state = SUB_BOL; break; case SUB_NAME: if (isalnum(*input_char) || *input_char == '_') { *status = MYCHAR_FUNCTION; in_function = TRUE; } else if (*input_char == '\n') sub_state = SUB_BOL; else sub_state = SUB_INIT; break; } } // note(*input_char, state, q_state, sub_state, *status, // (state == IP_STRING) ? end_token : 0); return retval; } stream_status get_perl_char(char *input_char, char_status *retstatus) { my_char_status status; stream_status retval; static int function_start_page; static int function_start = 0; static char function_name[SYMBOL_LEN]; static int function_name_index = 0; retval = my_get_perl_char(input_char, &status); if (function_start && status != MYCHAR_FUNCTION) { function_name[function_name_index] = '\0'; add_function(function_name, function_start, char_number, function_start_page, current_filename); function_start = 0; } switch (status) { case MYCHAR_FUNCTION: *retstatus = CHAR_BOLD; if (! function_start) { function_start = char_number; function_start_page = page_number; function_name_index=0; } function_name[function_name_index++] = *input_char; break; case MYCHAR_NORMAL: *retstatus = CHAR_NORMAL; break; case MYCHAR_STRING: *retstatus = CHAR_NORMAL; // *retstatus = CHAR_UNDERLINE; break; case MYCHAR_COMMENT: *retstatus = CHAR_ITALIC; break; } if (pass==1) *retstatus = get_function_name_posn(char_number,*retstatus); return retval; } /****************************************************************************** * Debugging function - include by uncommenting call above */ static void note(char c, perl_ip_states state, perl_q_states q_state, perl_sub_states sub_state, my_char_status status, char end_token) { static int counter = 0; fprintf(stderr, "%05d: %02x ", counter++, (unsigned int) c); if (isprint(c)) fprintf(stderr, "(%c) ", c); switch (state) { case IP_CODE: fprintf(stderr, "IP_CODE "); break; case IP_STRING: fprintf(stderr, "IP_STRING "); break; case IP_COMMENT: fprintf(stderr, "IP_COMMENT "); break; case IP_STRING_ESCAPE: fprintf(stderr, "IP_STRING_ESCAPE "); break; case IP_POD: fprintf(stderr, "IP_POD "); break; case IP_INPOD: fprintf(stderr, "IP_INPOD "); break; case IP_POD_END: fprintf(stderr, "IP_POD_END "); break; } switch(q_state) { case Q_LOOKING: fprintf(stderr, "Q_LOOKING "); break; case Q_SAWLT: fprintf(stderr, "Q_SAWLT "); break; case Q_SAWLTLT: fprintf(stderr, "Q_SAWLTLT "); break; case Q_SAWQ: fprintf(stderr, "Q_SAWQ "); break; case Q_IDENT: fprintf(stderr, "Q_IDENT "); break; case Q_STALLED: fprintf(stderr, "Q_STALLED "); break; case Q_AFTER_HEREDOC_SIGNAL: fprintf(stderr, "Q_AFTER_HEREDOC_SIGNAL "); break; case Q_WITHIN_HEREDOC_FINDING: fprintf(stderr, "Q_WITHIN_HEREDOC_FINDING "); break; case Q_WITHIN_HEREDOC: fprintf(stderr, "Q_WITHIN_HEREDOC "); break; } switch (sub_state) { case SUB_INIT: fprintf(stderr, "SUB_INIT "); break; case SUB_BOL: fprintf(stderr, "SUB_BOL "); break; case SUB_S: fprintf(stderr, "SUB_S "); break; case SUB_SU: fprintf(stderr, "SUB_SU "); break; case SUB_SUB: fprintf(stderr, "SUB_SUB "); break; case SUB_FOUND: fprintf(stderr, "SUB_FOUND "); break; case SUB_NAME: fprintf(stderr, "SUB_NAME "); break; } if (end_token) { fprintf(stderr, "end_token=%c ", end_token); } fprintf(stderr, "=> "); switch (status) { case MYCHAR_NORMAL: fprintf(stderr, "MYCHAR_NORMAL "); break; case MYCHAR_FUNCTION: fprintf(stderr, "MYCHAR_FUNCTION "); break; case MYCHAR_STRING: fprintf(stderr, "MYCHAR_STRING "); break; case MYCHAR_COMMENT: fprintf(stderr, "MYCHAR_COMMENT "); break; } fprintf(stderr, "\n"); } trueprint-5.4/src/lang_report.h0000644000175000017500000000021307625761740013625 00000000000000/* * Include file: * lang_report.h */ extern stream_status get_report_char(char *, char_status *); extern char lang_report_defaults[]; trueprint-5.4/src/lang_java.h0000644000175000017500000000020507625761737013242 00000000000000/* * Include file: * lang_java.h */ extern stream_status get_java_char(char *, char_status *); extern char lang_java_defaults[]; trueprint-5.4/src/printers_fl.h0000644000175000017500000000025407625761740013645 00000000000000extern void setup_printers_fl(void); extern void printer_stats(char *printer,short *sides, unsigned short *lm, unsigned short *rm, unsigned short *tm, unsigned short *bm); trueprint-5.4/src/Makefile.in0000644000175000017500000004701412117066431013202 00000000000000# Makefile.in generated by automake 1.11.6 from Makefile.am. # @configure_input@ # Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, # 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software # Foundation, Inc. # This Makefile.in is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. @SET_MAKE@ VPATH = @srcdir@ am__make_dryrun = \ { \ am__dry=no; \ case $$MAKEFLAGS in \ *\\[\ \ ]*) \ echo 'am--echo: ; @echo "AM" OK' | $(MAKE) -f - 2>/dev/null \ | grep '^AM OK$$' >/dev/null || am__dry=yes;; \ *) \ for am__flg in $$MAKEFLAGS; do \ case $$am__flg in \ *=*|--*) ;; \ *n*) am__dry=yes; break;; \ esac; \ done;; \ esac; \ test $$am__dry = yes; \ } pkgdatadir = $(datadir)/@PACKAGE@ pkgincludedir = $(includedir)/@PACKAGE@ pkglibdir = $(libdir)/@PACKAGE@ pkglibexecdir = $(libexecdir)/@PACKAGE@ am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd install_sh_DATA = $(install_sh) -c -m 644 install_sh_PROGRAM = $(install_sh) -c install_sh_SCRIPT = $(install_sh) -c INSTALL_HEADER = $(INSTALL_DATA) transform = $(program_transform_name) NORMAL_INSTALL = : PRE_INSTALL = : POST_INSTALL = : NORMAL_UNINSTALL = : PRE_UNINSTALL = : POST_UNINSTALL = : build_triplet = @build@ host_triplet = @host@ bin_PROGRAMS = trueprint$(EXEEXT) subdir = src DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in ACLOCAL_M4 = $(top_srcdir)/aclocal.m4 am__aclocal_m4_deps = $(top_srcdir)/m4/libtool.m4 \ $(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \ $(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \ $(top_srcdir)/configure.ac am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \ $(ACLOCAL_M4) mkinstalldirs = $(install_sh) -d CONFIG_HEADER = $(top_builddir)/config.h CONFIG_CLEAN_FILES = CONFIG_CLEAN_VPATH_FILES = am__installdirs = "$(DESTDIR)$(bindir)" PROGRAMS = $(bin_PROGRAMS) am_trueprint_OBJECTS = debug.$(OBJEXT) index.$(OBJEXT) \ lang_verilog.$(OBJEXT) lang_perl.$(OBJEXT) \ postscript.$(OBJEXT) diffs.$(OBJEXT) input.$(OBJEXT) \ language.$(OBJEXT) lang_pike.$(OBJEXT) print_prompt.$(OBJEXT) \ expand_str.$(OBJEXT) lang_c.$(OBJEXT) main.$(OBJEXT) \ lang_report.$(OBJEXT) printers_fl.$(OBJEXT) getopt.$(OBJEXT) \ lang_cxx.$(OBJEXT) openpipe.$(OBJEXT) lang_sh.$(OBJEXT) \ getopt1.$(OBJEXT) lang_java.$(OBJEXT) options.$(OBJEXT) \ utils.$(OBJEXT) headers.$(OBJEXT) lang_text.$(OBJEXT) \ lang_pascal.$(OBJEXT) output.$(OBJEXT) trueprint_OBJECTS = $(am_trueprint_OBJECTS) trueprint_LDADD = $(LDADD) DEFAULT_INCLUDES = -I.@am__isrc@ -I$(top_builddir) depcomp = $(SHELL) $(top_srcdir)/depcomp am__depfiles_maybe = depfiles am__mv = mv -f COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \ $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \ $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) CCLD = $(CC) LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \ --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \ $(LDFLAGS) -o $@ SOURCES = $(trueprint_SOURCES) DIST_SOURCES = $(trueprint_SOURCES) am__can_run_installinfo = \ case $$AM_UPDATE_INFO_DIR in \ n|no|NO) false;; \ *) (install-info --version) >/dev/null 2>&1;; \ esac ETAGS = etags CTAGS = ctags DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST) ACLOCAL = @ACLOCAL@ AMTAR = @AMTAR@ AR = @AR@ AUTOCONF = @AUTOCONF@ AUTOHEADER = @AUTOHEADER@ AUTOMAKE = @AUTOMAKE@ AWK = @AWK@ CC = @CC@ CCDEPMODE = @CCDEPMODE@ CFLAGS = @CFLAGS@ CPP = @CPP@ CPPFLAGS = @CPPFLAGS@ CYGPATH_W = @CYGPATH_W@ DEFS = @DEFS@ DEPDIR = @DEPDIR@ DLLTOOL = @DLLTOOL@ DSYMUTIL = @DSYMUTIL@ DUMPBIN = @DUMPBIN@ ECHO_C = @ECHO_C@ ECHO_N = @ECHO_N@ ECHO_T = @ECHO_T@ EGREP = @EGREP@ EXEEXT = @EXEEXT@ FGREP = @FGREP@ GREP = @GREP@ INSTALL = @INSTALL@ INSTALL_DATA = @INSTALL_DATA@ INSTALL_PROGRAM = @INSTALL_PROGRAM@ INSTALL_SCRIPT = @INSTALL_SCRIPT@ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@ LD = @LD@ LDFLAGS = @LDFLAGS@ LIBOBJS = @LIBOBJS@ LIBS = @LIBS@ LIBTOOL = @LIBTOOL@ LIPO = @LIPO@ LN_S = @LN_S@ LTLIBOBJS = @LTLIBOBJS@ MAKEINFO = @MAKEINFO@ MANIFEST_TOOL = @MANIFEST_TOOL@ MKDIR_P = @MKDIR_P@ NM = @NM@ NMEDIT = @NMEDIT@ OBJDUMP = @OBJDUMP@ OBJEXT = @OBJEXT@ OTOOL = @OTOOL@ OTOOL64 = @OTOOL64@ PACKAGE = @PACKAGE@ PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@ PACKAGE_NAME = @PACKAGE_NAME@ PACKAGE_STRING = @PACKAGE_STRING@ PACKAGE_TARNAME = @PACKAGE_TARNAME@ PACKAGE_URL = @PACKAGE_URL@ PACKAGE_VERSION = @PACKAGE_VERSION@ PATH_SEPARATOR = @PATH_SEPARATOR@ RANLIB = @RANLIB@ SED = @SED@ SET_MAKE = @SET_MAKE@ SHELL = @SHELL@ STRIP = @STRIP@ VERSION = @VERSION@ abs_builddir = @abs_builddir@ abs_srcdir = @abs_srcdir@ abs_top_builddir = @abs_top_builddir@ abs_top_srcdir = @abs_top_srcdir@ ac_ct_AR = @ac_ct_AR@ ac_ct_CC = @ac_ct_CC@ ac_ct_DUMPBIN = @ac_ct_DUMPBIN@ am__include = @am__include@ am__leading_dot = @am__leading_dot@ am__quote = @am__quote@ am__tar = @am__tar@ am__untar = @am__untar@ bindir = @bindir@ build = @build@ build_alias = @build_alias@ build_cpu = @build_cpu@ build_os = @build_os@ build_vendor = @build_vendor@ builddir = @builddir@ datadir = @datadir@ datarootdir = @datarootdir@ docdir = @docdir@ dvidir = @dvidir@ exec_prefix = @exec_prefix@ host = @host@ host_alias = @host_alias@ host_cpu = @host_cpu@ host_os = @host_os@ host_vendor = @host_vendor@ htmldir = @htmldir@ includedir = @includedir@ infodir = @infodir@ install_sh = @install_sh@ libdir = @libdir@ libexecdir = @libexecdir@ localedir = @localedir@ localstatedir = @localstatedir@ mandir = @mandir@ mkdir_p = @mkdir_p@ oldincludedir = @oldincludedir@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ sysconfdir = @sysconfdir@ target_alias = @target_alias@ top_build_prefix = @top_build_prefix@ top_builddir = @top_builddir@ top_srcdir = @top_srcdir@ INCLUDES = -I$(top_builddir) -I$(top_srcdir) trueprint_SOURCES = \ debug.c index.c lang_pascal.h lang_verilog.c output.h \ debug.h index.h lang_perl.c lang_verilog.h postscript.c \ diffs.c input.c lang_perl.h language.c postscript.h \ diffs.h input.h lang_pike.c language.h print_prompt.c \ expand_str.c lang_c.c lang_pike.h main.c print_prompt.h \ expand_str.h lang_c.h lang_report.c main.h printers_fl.c \ getopt.c lang_cxx.c lang_report.h openpipe.c printers_fl.h \ getopt.h lang_cxx.h lang_sh.c openpipe.h trueprint.h \ getopt1.c lang_java.c lang_sh.h options.c utils.c \ headers.c lang_java.h lang_text.c options.h utils.h \ headers.h lang_pascal.c lang_text.h output.c AM_CFLAGS = -DPRINTERS_FILE=\"$(libdir)/printers\" all: all-am .SUFFIXES: .SUFFIXES: .c .lo .o .obj $(srcdir)/Makefile.in: $(srcdir)/Makefile.am $(am__configure_deps) @for dep in $?; do \ case '$(am__configure_deps)' in \ *$$dep*) \ ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \ && { if test -f $@; then exit 0; else break; fi; }; \ exit 1;; \ esac; \ done; \ echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign src/Makefile'; \ $(am__cd) $(top_srcdir) && \ $(AUTOMAKE) --foreign src/Makefile .PRECIOUS: Makefile Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status @case '$?' in \ *config.status*) \ cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \ *) \ echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \ cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \ esac; $(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(top_srcdir)/configure: $(am__configure_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(ACLOCAL_M4): $(am__aclocal_m4_deps) cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh $(am__aclocal_m4_deps): install-binPROGRAMS: $(bin_PROGRAMS) @$(NORMAL_INSTALL) @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \ if test -n "$$list"; then \ echo " $(MKDIR_P) '$(DESTDIR)$(bindir)'"; \ $(MKDIR_P) "$(DESTDIR)$(bindir)" || exit 1; \ fi; \ for p in $$list; do echo "$$p $$p"; done | \ sed 's/$(EXEEXT)$$//' | \ while read p p1; do if test -f $$p || test -f $$p1; \ then echo "$$p"; echo "$$p"; else :; fi; \ done | \ sed -e 'p;s,.*/,,;n;h' -e 's|.*|.|' \ -e 'p;x;s,.*/,,;s/$(EXEEXT)$$//;$(transform);s/$$/$(EXEEXT)/' | \ sed 'N;N;N;s,\n, ,g' | \ $(AWK) 'BEGIN { files["."] = ""; dirs["."] = 1 } \ { d=$$3; if (dirs[d] != 1) { print "d", d; dirs[d] = 1 } \ if ($$2 == $$4) files[d] = files[d] " " $$1; \ else { print "f", $$3 "/" $$4, $$1; } } \ END { for (d in files) print "f", d, files[d] }' | \ while read type dir files; do \ if test "$$dir" = .; then dir=; else dir=/$$dir; fi; \ test -z "$$files" || { \ echo " $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files '$(DESTDIR)$(bindir)$$dir'"; \ $(INSTALL_PROGRAM_ENV) $(LIBTOOL) $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=install $(INSTALL_PROGRAM) $$files "$(DESTDIR)$(bindir)$$dir" || exit $$?; \ } \ ; done uninstall-binPROGRAMS: @$(NORMAL_UNINSTALL) @list='$(bin_PROGRAMS)'; test -n "$(bindir)" || list=; \ files=`for p in $$list; do echo "$$p"; done | \ sed -e 'h;s,^.*/,,;s/$(EXEEXT)$$//;$(transform)' \ -e 's/$$/$(EXEEXT)/' `; \ test -n "$$list" || exit 0; \ echo " ( cd '$(DESTDIR)$(bindir)' && rm -f" $$files ")"; \ cd "$(DESTDIR)$(bindir)" && rm -f $$files clean-binPROGRAMS: @list='$(bin_PROGRAMS)'; test -n "$$list" || exit 0; \ echo " rm -f" $$list; \ rm -f $$list || exit $$?; \ test -n "$(EXEEXT)" || exit 0; \ list=`for p in $$list; do echo "$$p"; done | sed 's/$(EXEEXT)$$//'`; \ echo " rm -f" $$list; \ rm -f $$list trueprint$(EXEEXT): $(trueprint_OBJECTS) $(trueprint_DEPENDENCIES) $(EXTRA_trueprint_DEPENDENCIES) @rm -f trueprint$(EXEEXT) $(LINK) $(trueprint_OBJECTS) $(trueprint_LDADD) $(LIBS) mostlyclean-compile: -rm -f *.$(OBJEXT) distclean-compile: -rm -f *.tab.c @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/debug.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/diffs.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/expand_str.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/getopt.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/getopt1.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/headers.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/index.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/input.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lang_c.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lang_cxx.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lang_java.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lang_pascal.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lang_perl.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lang_pike.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lang_report.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lang_sh.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lang_text.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/lang_verilog.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/language.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/main.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/openpipe.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/options.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/output.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/postscript.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/print_prompt.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/printers_fl.Po@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/utils.Po@am__quote@ .c.o: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c $< .c.obj: @am__fastdepCC_TRUE@ $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'` @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=no @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(COMPILE) -c `$(CYGPATH_W) '$<'` .c.lo: @am__fastdepCC_TRUE@ $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $< @am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo @AMDEP_TRUE@@am__fastdepCC_FALSE@ source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@ @AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ @am__fastdepCC_FALSE@ $(LTCOMPILE) -c -o $@ $< mostlyclean-libtool: -rm -f *.lo clean-libtool: -rm -rf .libs _libs ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ mkid -fID $$unique tags: TAGS TAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) set x; \ here=`pwd`; \ list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ shift; \ if test -z "$(ETAGS_ARGS)$$*$$unique"; then :; else \ test -n "$$unique" || unique=$$empty_fix; \ if test $$# -gt 0; then \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ "$$@" $$unique; \ else \ $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \ $$unique; \ fi; \ fi ctags: CTAGS CTAGS: $(HEADERS) $(SOURCES) $(TAGS_DEPENDENCIES) \ $(TAGS_FILES) $(LISP) list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \ unique=`for i in $$list; do \ if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \ done | \ $(AWK) '{ files[$$0] = 1; nonempty = 1; } \ END { if (nonempty) { for (i in files) print i; }; }'`; \ test -z "$(CTAGS_ARGS)$$unique" \ || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \ $$unique GTAGS: here=`$(am__cd) $(top_builddir) && pwd` \ && $(am__cd) $(top_srcdir) \ && gtags -i $(GTAGS_ARGS) "$$here" distclean-tags: -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags distdir: $(DISTFILES) @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \ list='$(DISTFILES)'; \ dist_files=`for file in $$list; do echo $$file; done | \ sed -e "s|^$$srcdirstrip/||;t" \ -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \ case $$dist_files in \ */*) $(MKDIR_P) `echo "$$dist_files" | \ sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \ sort -u` ;; \ esac; \ for file in $$dist_files; do \ if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \ if test -d $$d/$$file; then \ dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \ if test -d "$(distdir)/$$file"; then \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \ cp -fpR $(srcdir)/$$file "$(distdir)$$dir" || exit 1; \ find "$(distdir)/$$file" -type d ! -perm -700 -exec chmod u+rwx {} \;; \ fi; \ cp -fpR $$d/$$file "$(distdir)$$dir" || exit 1; \ else \ test -f "$(distdir)/$$file" \ || cp -p $$d/$$file "$(distdir)/$$file" \ || exit 1; \ fi; \ done check-am: all-am check: check-am all-am: Makefile $(PROGRAMS) installdirs: for dir in "$(DESTDIR)$(bindir)"; do \ test -z "$$dir" || $(MKDIR_P) "$$dir"; \ done install: install-am install-exec: install-exec-am install-data: install-data-am uninstall: uninstall-am install-am: all-am @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am installcheck: installcheck-am install-strip: if test -z '$(STRIP)'; then \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ install; \ else \ $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \ install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \ "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'" install; \ fi mostlyclean-generic: clean-generic: distclean-generic: -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES) -test . = "$(srcdir)" || test -z "$(CONFIG_CLEAN_VPATH_FILES)" || rm -f $(CONFIG_CLEAN_VPATH_FILES) maintainer-clean-generic: @echo "This command is intended for maintainers to use" @echo "it deletes files that may require special tools to rebuild." clean: clean-am clean-am: clean-binPROGRAMS clean-generic clean-libtool mostlyclean-am distclean: distclean-am -rm -rf ./$(DEPDIR) -rm -f Makefile distclean-am: clean-am distclean-compile distclean-generic \ distclean-tags dvi: dvi-am dvi-am: html: html-am html-am: info: info-am info-am: install-data-am: install-dvi: install-dvi-am install-dvi-am: install-exec-am: install-binPROGRAMS install-html: install-html-am install-html-am: install-info: install-info-am install-info-am: install-man: install-pdf: install-pdf-am install-pdf-am: install-ps: install-ps-am install-ps-am: installcheck-am: maintainer-clean: maintainer-clean-am -rm -rf ./$(DEPDIR) -rm -f Makefile maintainer-clean-am: distclean-am maintainer-clean-generic mostlyclean: mostlyclean-am mostlyclean-am: mostlyclean-compile mostlyclean-generic \ mostlyclean-libtool pdf: pdf-am pdf-am: ps: ps-am ps-am: uninstall-am: uninstall-binPROGRAMS .MAKE: install-am install-strip .PHONY: CTAGS GTAGS all all-am check check-am clean clean-binPROGRAMS \ clean-generic clean-libtool ctags distclean distclean-compile \ distclean-generic distclean-libtool distclean-tags distdir dvi \ dvi-am html html-am info info-am install install-am \ install-binPROGRAMS install-data install-data-am install-dvi \ install-dvi-am install-exec install-exec-am install-html \ install-html-am install-info install-info-am install-man \ install-pdf install-pdf-am install-ps install-ps-am \ install-strip installcheck installcheck-am installdirs \ maintainer-clean maintainer-clean-generic mostlyclean \ mostlyclean-compile mostlyclean-generic mostlyclean-libtool \ pdf pdf-am ps ps-am tags uninstall uninstall-am \ uninstall-binPROGRAMS # Tell versions [3.59,3.63) of GNU make to not export all variables. # Otherwise a system limit (for SysV at least) may be exceeded. .NOEXPORT: trueprint-5.4/src/output.h0000644000175000017500000000063507625761740012661 00000000000000/* * Source file: * output.h */ extern long file_page_number; extern long page_number; extern void setup_output(void); extern void init_output(void); extern void print_file(void); extern boolean print_page(void); extern stream_status getnextline(stream_status (*get_input_char)(char *,char_status *), boolean *, char input_line[], char_status input_status[]); extern void fill_sheet_with_blank_pages(void); trueprint-5.4/src/utils.h0000644000175000017500000000022307625761740012452 00000000000000#include "replace/replace.h" #include void skipspaces(char **); extern void *xmalloc(size_t); extern void *xrealloc(void *, size_t); trueprint-5.4/src/lang_perl.h0000644000175000017500000000020507625761740013255 00000000000000/* * Include file: * lang_perl.h */ extern stream_status get_perl_char(char *, char_status *); extern char lang_perl_defaults[]; trueprint-5.4/src/language.h0000644000175000017500000000050707625761740013102 00000000000000/* * Header file: * language.h */ typedef stream_status (*get_char_fn)(char *, char_status *); extern get_char_fn get_char; extern boolean restart_language; extern short braces_depth; extern char *language_list; extern void setup_language(void); extern char *language_defaults(char *); extern void set_get_char(char *); trueprint-5.4/src/main.c0000644000175000017500000006061212116637452012232 00000000000000/* * Source file: * main.c * * Contains the main program body for trueprint. The structure of the code * is very simple - main() initialises various things, using handle_options() * to read options and set up defaults. Then it calls print_page() until * the end of input without printing anything (first pass) to get page numbers * & etc. for the indices. The two indices are then printed, followed by * the second pass when the text is printed out by once again calling * print_page() until end of input. * * Exit codes: * 0 Normal exit * 1 Bad parameters * 2 Internal error or resource problem */ #include "config.h" #ifdef MSWIN #include #include #include #endif #include #include #include #include #include #include #if HAVE_FCNTL_H # include #endif #ifndef O_RDONLY # define O_RDONLY 0 #endif #include #if HAVE_UNISTD_H # include #else int close(int fildes); int dup(int fildes); #endif #include "trueprint.h" #include "options.h" #include "debug.h" #include "diffs.h" #include "index.h" #include "language.h" #include "postscript.h" #include "output.h" #include "openpipe.h" #include "printers_fl.h" #include "print_prompt.h" #include "input.h" #include "headers.h" #include "utils.h" #include "main.h" #define VERSION "5.4" /****************************************************************************** * Public part */ unsigned int no_of_files; char *current_filename; short pass; unsigned int file_number; long total_pages; int page_width; int page_length; boolean use_environment; /* * Private variables */ static boolean no_print_body; static boolean no_print_file_index; static boolean no_print_function_index; static char *destination; static char *printer_destination; static short no_of_copies; static char **file_names; static char *output_filename; static boolean redirect_output; /* * Functions */ int main(int, char**); static void setup_main(void); static void print_files(void); static void set_dest(const char *p, const char *o, char *value); static void set_dest_default(char *value); static void print_help(const char *p, const char *o, char *value); static void print_version(const char *p, const char *o); #ifdef LOGTOOL static void write_log(void); #else #define write_log() #endif /****************************************************************************** * Function: * main * * Analyse parameters, * Sort out font and page size, * perform first pass to sort out function names, etc., * sort out output stream (either stdout or x9700|opr) * print the index pages, * perform second pass, printing out pages. */ int main(int argc, char **argv) { unsigned int last_param_used; int pipe_handle = -1; #ifdef MSWIN FILE *pipe_fhandle = NULL; #endif /* * Need to set this here as it is used by setup_printers_fl() */ use_environment = TRUE; /* * Set up various modules, including option declaration. * setup_options() must come first. */ setup_options(); setup_debug(); setup_input(); setup_diffs(); setup_headers(); setup_index(); setup_language(); setup_output(); setup_postscript(); setup_printers_fl(); setup_print_prompter(); setup_main(); /* * Handle command line options. */ /* * use_environment is itself used when setting options, so * initialize it here. The default is to use environment stuff, * so set it to 1 (true). */ use_environment = 1; /* * Note that the debug option will not be set before this line - the dm * function should not be called before this function call. */ last_param_used = handle_options(argc, argv); /* * Next check $TP_OPTS to see if the user has customised anything... */ dm('o',1,"Looking at TP_OPTS options\n"); handle_string_options(getenv("TP_OPTS")); /* * Write the log file - this doesn't do anything if LOGTOOL * is not defined */ write_log(); /* * Set file_names to the first unused parameter - all remaining * parameters are source file names. */ dm('P',1,"Checking parameters\n"); if (last_param_used < (unsigned int)argc) { file_names = &(argv[last_param_used]); no_of_files = (unsigned int)argc - last_param_used; dm('P',1,"Got %d file names\n", no_of_files); } else { /* * No file names - use a list with just "-" for stdin */ static char *stdin_filenames[] = { "-", 0 }; file_names = stdin_filenames; no_of_files = 1; dm('P',1,"No filenames - reading stdin\n"); } /* * End of the user options, so set the default options for * the language. * If language has been set then this will use it instead of filename. */ dm('l',1,"Setting language for filename %s\n", file_names[0]); handle_string_options(language_defaults(file_names[0])); /* * Now set up the other defaults that haven't been overridden yet. * DEFAULT_OPTS used to be the mechanism for setting defaults - * now (v3.7) it has been replaced by set_option_defaults(), * but DEFAULT_OPTS is kept in case somebody wants to override * the default defaults in trueprint.h. Note that if --ignore-environment * is set then the defaults from DEFAULT_OPTS are ignored; otherwise * make check would fail if DEFAULT_OPTS is not empty. */ dm('o',1,"Setting default options\n"); if (use_environment) handle_string_options(DEFAULT_OPTS); set_option_defaults(); /* * And finally calculate the page dimensions. */ PS_pagesize(destination, &page_width, &page_length); dm('O',1,"Page width is %d, page length is %d\n", page_width, page_length); /* * If redirect_output is set then calculate the output filename. * Do it now so we can catch the error condition that redirect-output * is being used with stdin. */ if (redirect_output) { if (strcmp(file_names[0],"-") == 0) { fprintf(stderr, gettext(CMD_NAME ": cannot use redirect-output option with stdin\n")); exit(1); } /* Grab a buffer long enough for filename plus .ps plus NULL */ output_filename = xmalloc(strlen(file_names[0])+4); strcpy(output_filename,file_names[0]); /* Add .ps to the filename */ { char *suffix; /* point suffix to the dot, if any, in the filename */ suffix = strrchr(output_filename,'.'); /* If there is no . in filename then point suffix to the string end */ if (suffix == NULL) { suffix = output_filename+strlen(output_filename); } /* Now write .ps to the end of the string */ *(suffix++) = '.'; *(suffix++) = 'p'; *(suffix++) = 's'; *(suffix++) = '\0'; } dm('O',1,"main.c:main() Redirecting output to %s\n",output_filename); } /* * Perform first pass to get function names and locations. */ dm('p', 1, "Starting first pass\n"); pass = 0; init_postscript(); print_files(); total_pages = page_number; if (!got_some_input) { fprintf(stderr, gettext(CMD_NAME ": empty input, not submitting print job\n")); exit(1); } dm('p', 1, "Starting second pass\n"); pass = 1; init_postscript(); /* * Now set up output stream to print command. Put the filehandle into * pipe_handle. */ if ((strlen(output_filename) > 0) && (strcmp(output_filename,"-") != 0)) { #ifdef MSWIN pipe_handle = _creat(output_filename, _S_IREAD | _S_IWRITE ); #else pipe_handle = creat(output_filename, 0666); #endif if (pipe_handle == -1) { fprintf(stderr, gettext(CMD_NAME ": cannot open %s for writing, %s\n"), output_filename, strerror(errno)); exit(1); } /* now dup the pipe_handle into stdout so all stdout goes to the pipe */ #ifdef MSWIN if (!((close(1) == 0) && (_dup(pipe_handle) == 1))) abort(); #else if (!((close(1) == 0) && (dup(pipe_handle) == 1))) abort(); #endif dm('O',1,"Sending output to %s\n",output_filename); } #if defined(PRINT_CMD) else if (strcmp(output_filename,"-") == 0) #else else #endif { /* * In the case that the output filename is "-" or there isn't a print * command, leave stdout alone so that all output goes simply to stdout. */ } #if defined(PRINT_CMD) else { char print_cmd_line[200]; char *tp_print_cmd = getenv("TP_PRINT_CMD"); dm('P',1,"Setting up pipe for printer\n"); if ((tp_print_cmd != NULL) && (*tp_print_cmd != '\0')) { sprintf(print_cmd_line,"%s", getenv("TP_PRINT_CMD")); } else { sprintf(print_cmd_line,"%s %s %s%d", PRINT_CMD, printer_destination, PRINT_CMD_COUNT_FLAG, no_of_copies); } dm('P',1,"Printer command is %s\n", print_cmd_line); #ifdef MSWIN pipe_fhandle = _popen(print_cmd_line, "w"); if (pipe_fhandle == NULL) abort(); /* now dup the pipe_handle into stdout so all stdout goes to the pipe */ if (!((close(1) == 0) && (dup(_fileno(pipe_fhandle)) == 1))) abort(); #else /* openpipe exits on failure, so don't bother to check return code */ pipe_handle = openpipe(print_cmd_line, "w"); /* now dup the pipe_handle into stdout so all stdout goes to the pipe */ if (!((close(1) == 0) && (dup(pipe_handle) == 1))) abort(); #endif } #endif /* defined(PRINT_CMD) */ /* * Print out the Postscript header * If use_environment is not set, use an old version id */ dm('P',1,"Print out postscript header\n"); PS_header(use_environment?VERSION:"3.6.5", !no_print_body); /* * These function calls do precisely what you think they do... */ dm('i',1,"sort function names & print indices if necessary\n"); sort_function_names(); if ((no_print_function_index == FALSE) && (print_prompt(PAGE_SPECIAL, 0, "function index") == TRUE)) print_index(); if ((no_of_files > 1) && (no_print_file_index == FALSE) && (print_prompt(PAGE_SPECIAL, 0, "file index") == TRUE)) print_out_file_index(); /* * Now perform second pass to print out listings. */ if (no_print_body == FALSE) { print_files(); } /* * Finish up the postscript output */ PS_end_output(); fflush(stdout); close(1); #ifdef MSWIN if (pipe_fhandle != NULL) _pclose(pipe_fhandle); #else if (pipe_handle != -1) closepipe(pipe_handle); #endif return(0); } /****************************************************************************** * Function: * print_files * Print files one at a time, opening the file and setting the stream * for the input routines. Sets global variables current_filename * and file_number. */ void print_files(void) { int stream; static int stdin_stream = -1; init_input(); init_output(); for (file_number = 0; file_names[file_number]; file_number++) { current_filename = file_names[file_number]; dm('p', 3, "Looking at file %s\n", current_filename); if (strcmp(current_filename, "-") == 0) { if (pass == 0) { /* * Create a temporary file and copy stdin to it, then use it. * Note that we can only use stdin once. */ char input_buffer[BUFFER_SIZE]; int buffer_size; if (stdin_stream != -1) { fprintf(stderr, gettext(CMD_NAME ": cannot specify stdin twice on command line\n")); exit(1); } stdin_stream = fileno(tmpfile()); while ((buffer_size = read(fileno(stdin),input_buffer,BUFFER_SIZE)) > 0) { if (write (stdin_stream, input_buffer, buffer_size) <= 0) { perror(CMD_NAME ": cannot write to tmp file"); exit(1); } } } if (lseek(stdin_stream,0,SEEK_SET) == (off_t)-1) perror(CMD_NAME ": cannot seek to start of tmp file"); stream = stdin_stream; } else if ((stream = open(file_names[file_number], O_RDONLY)) == -1) { fprintf(stderr, gettext(CMD_NAME ": cannot open file %s, %s\n"), current_filename, strerror(errno)); exit(1); } dm('f',3,"Opened stream %d to read file %s\n",stream,file_names[file_number]); if (pass==0) { dm('i',3,"Pass file %s to index module\n",current_filename); add_file(current_filename, file_number, page_number+1); } /* * set_input_stream will return FALSE if there is something wrong * with the file, e.g. if it is empty. */ if (set_input_stream(stream)) { dm('d',3,"Init diffs for pass %d, file %s\n", pass, current_filename); init_diffs(current_filename); print_file(); dm('d',3,"Ending diffs for pass %d, file %s\n", pass, current_filename); end_diffs(); } else { fprintf(stderr, gettext(CMD_NAME ": cannot read %s - possibly an empty file\n"), current_filename); } /* Close file unless it was tmp file storing stdin */ if (strcmp(file_names[file_number],"-") != 0) { if (close(stream) == -1) { fprintf(stderr, gettext(CMD_NAME ": cannot close %s, %s\n"), file_names[file_number],strerror(errno)); exit(1); } } if (pass==0) { dm('i',3,"End file for index module\n"); end_file(file_number, page_number); } } if (pass==1) { /* * Print blank pages until the end of the current (last) physical page. * The global file_number was left as one more than the last file number * by the for loop, so we need to decrement it. */ file_number--; fill_sheet_with_blank_pages(); } } /****************************************************************************** * Function: * setup_main * Simply declare options and initialize global variables */ void setup_main(void) { page_width = -1; page_length = -1; destination=NULL; printer_destination = ""; no_of_copies = -1; /* * -d and -P have the same meaning - one is from SYSV and the other * is from Berkeley */ string_option("d", "printer", "", NULL, &set_dest, &set_dest_default, OPT_OUTPUT, "use printer "); string_option("P", "printer", "", NULL, &set_dest, &set_dest_default, OPT_OUTPUT, "use printer "); string_option("s", "output", "", &output_filename, NULL, NULL, OPT_OUTPUT, "send output to filename ; use - for stdout"); boolean_option("r", "redirect-output", "no-redirect-output", FALSE, &redirect_output, NULL, NULL, OPT_OUTPUT, "redirect output to .ps file named after first filename", "don't redirect output"); short_option("c", "copies", 1, NULL, 0, 1, 200, &no_of_copies, NULL, NULL, OPT_OUTPUT, "specify number of copies to be printed", NULL); boolean_option("F", "no-file-index", "file-index", FALSE, &no_print_file_index, NULL, NULL, OPT_PRINT, "don't print file index", "print file index"); boolean_option("f", "no-function-index", "function-index", FALSE, &no_print_function_index, NULL, NULL, OPT_PRINT, "don't print function index", "print function index"); optional_string_option("H", "help", &print_help, OPT_MISC, "Type help information\n" " --help=all-options - list all options\n" " --help=misc-options - list miscellaneous options\n" " --help=page-furniture-options - list page furniture options\n" " --help=text-format-options - list text formatting options\n" " --help=print-options - list options that select what to print\n" " --help=page-format-options - list page format options\n" " --help=output-options - list options that affect where output goes\n" " --help=language - list languages\n" " --help=prompt - format for --print-pages string\n" " --help=debug - format for --debug string\n" " --help=header - format for header & footer strings\n" " --help=report - file format for --language=report input\n" " --help=environment - list environment vars used" ); noparm_option("V", "version", FALSE, &print_version, NULL, OPT_MISC, "Type version information"); boolean_option("B", "no-print-body", "print-body", FALSE, &no_print_body, NULL, NULL, OPT_PRINT, "don't print body of text", "print body of text"); boolean_option("N", "use-environment", "ignore-environment", TRUE, &use_environment, NULL, NULL, OPT_MISC, "use environment variables", "don't use values from environment, such as time,\n" " $USER, etc. This is for test purposes, to make test results\n" " more reproducible"); int_option("w", "line-wrap", -1, "no-line-wrap", 0, -1, 200, &page_width, NULL, NULL, OPT_TEXT_FORMAT, "specify the line-wrap column.", "turn off line-wrap"); int_option("l", "page-length", -1, NULL, 0, 5, 200, &page_length, NULL, NULL, OPT_TEXT_FORMAT, "specify number of lines on a page, point size is\n" " calculated appropriately", NULL); } /****************************************************************************** * Function: * set_dest_default * Handler for -d option to set default */ void set_dest_default(char *value) { set_dest(NULL,NULL,value); } /****************************************************************************** * Function: * set_dest * Handler for -d option */ void set_dest(const char *p, const char *o, char *value) { #ifdef PRINT_CMD if (destination) return; if (*value == '\0') { destination = getenv("PRINTER"); } else { destination = strdup(value); } dm('O',1,"Setting destination to %s\n",destination); if (destination && (*destination != '\0')) { printer_destination = xmalloc(strlen(destination)+strlen(PRINT_CMD_DEST_FLAG)+2); sprintf(printer_destination, "%s %s", PRINT_CMD_DEST_FLAG, destination); } else { printer_destination = ""; } #else return; #endif } /****************************************************************************** * Function: * print_help * Handler for -H option */ void print_help(const char *p, const char *o, char *value) { if (value) { printf(gettext("Help for %s:\n"),value); if (strcmp(value,"all-options") == 0) { print_usage_msgs(OPT_MISC); print_usage_msgs(OPT_PAGE_FURNITURE); print_usage_msgs(OPT_TEXT_FORMAT); print_usage_msgs(OPT_PRINT); print_usage_msgs(OPT_PAGE_FORMAT); print_usage_msgs(OPT_OUTPUT); } else if (strcmp(value,"misc-options") == 0) { print_usage_msgs(OPT_MISC); } else if (strcmp(value,"page-furniture-options") == 0) { print_usage_msgs(OPT_PAGE_FURNITURE); } else if (strcmp(value,"text-format-options") == 0) { print_usage_msgs(OPT_TEXT_FORMAT); } else if (strcmp(value,"print-options") == 0) { print_usage_msgs(OPT_PRINT); } else if (strcmp(value,"page-format-options") == 0) { print_usage_msgs(OPT_PAGE_FORMAT); } else if (strcmp(value,"output-options") == 0) { print_usage_msgs(OPT_OUTPUT); } else if (strcmp(value,"language") == 0) { printf("%s",gettext(language_list)); } else if (strcmp(value,"environment") == 0) { printf("%s", gettext( " Environment variables used by trueprint:\n" " TP_DIFF_CMD: command used to generate diffs, devault is diff\n" " USER: username for headers, footers, coversheet, etc.\n" " TP_OPTS: default trueprint options, overridden by command line opts\n" " TP_PRINT_CMD: command used to print output, default is lp or lpr\n" " PRINTER: name of printer to send output to\n" )); } else if (strcmp(value,"prompt") == 0) { printf("%s", gettext( "--print-pages \n" " Format for :\n" " is a comma separated list of specifiers. A specifier can be\n" " a single page number, a range of page numbers, a function name, or a\n" " special letter:\n" " A range of pages is specified by the lower number, then a dash, then the\n" " upper number\n" " A special letter can be d, D, f, F or c for\n" " changed pages, changed functions, function index, file index or cross\n" " reference information respectively - note that the page will only be printed\n" " if it would have been printed without the -A option\n" " For example: trueprint --print-pages 1-5,main,f main.c\n" " will print out pages 1-5, all pages for function main, and the function index\n")); } else if (strcmp(value,"header") == 0) { printf("%s", gettext( " Format for :\n" " is used to specify header and footer contents, and can contain the\n" " following sequences:\n" " %% a percent character\n" " %m month of year\n" " %d day of month\n" " %y year e.g. 1993\n" " %D date mm/dd/yy\n" " %L long date e.g. Fri Oct 8 11:49:51 1993\n" " %c file modification date mm/dd/yy\n" " %C file modification date in long format\n" " %H hour\n" " %M minute\n" " %S second\n" " %T time HH:MM:SS\n" " %j day of year ddd\n" " %w day of week (Sunday = 0)\n" " %a abbreviated weekday\n" " %h abbreviated month\n" " %r time in am/pm notation\n" " %p page number in current file\n" " %P overall page number\n" " %f number of pages in current file\n" " %F final overall page number\n" " %n current filename\n" " %N current functionname\n" " %l login name\n")); } else if (strcmp(value,"debug") == 0) { printf("%s", gettext( " Format for : series of char/digit pairs where char\n" " specifies information, digit specifies level of detail, in\n" " general 1=stuff that happens once, 2=per-pass, 3=per-file,\n" " 4=per-page, 8=per-line - but this is not fully implemented...\n" " Current chars are: o=options, i=index, O=output, P=parameters\n" " l=language, p=pass, h=headers/footers, I=input,\n" " d=diffs, f=file/stream handling, D=destination/printer\n" " @=all of the above\n")); } else if (strcmp(value,"report") == 0) { printf("%s", gettext( " Format for files when using --language=report:\n" " Strings between ^B amd ^E are printed in bold and\n" " are indexed as function names.\n" " Strings between ^C and ^C are printed in italics\n" )); } else { printf(gettext(CMD_NAME ": Unrecognized help option:%s\nUse --help for valid options\n"),value); } } else { printf("%s", gettext( "Usage: trueprint \n" "For details see:\n" " --help=all-options - list all options\n" " --help=misc-options - list miscellaneous options\n" " --help=page-furniture-options - list page furniture options\n" " --help=text-format-options - list text formatting options\n" " --help=print-options - list options that select what to print\n" " --help=page-format-options - list page format options\n" " --help=output-options - list options that affect where output goes\n" " --help=language - list languages\n" " --help=prompt - format for --print-pages string\n" " --help=debug - format for --debug string\n" " --help=header - format for header & footer strings\n" " --help=report - file format for --language=report input\n" " --help=environment - list environment vars used\n" )); } printf(gettext("Report bugs to bug-trueprint@gnu.org\n")); exit(0); } /****************************************************************************** * Function: * print_version * Handler for -V option */ void print_version(const char *p, const char *o) { printf("GNU Trueprint %s\n", VERSION); printf(gettext( "Copyright (C) 1999 Free Software Foundation, Inc.\n" "GNU Trueprint comes with NO WARRANTY,\n" "to the extent permitted by law.\n" "You may redistribute copies of GNU Trueprint\n" "under the terms of the GNU General Public License.\n" "For more information about these matters,\n" "see the file named COPYING.\n" )); exit(0); } #ifdef LOGTOOL /****************************************************************************** * Function: * write_log */ void write_log(void) { char *log_cmd; size_t log_cmd_length=COMMAND_LEN; char *tp_opts; int i; if (use_environment != TRUE) return; log_cmd = xmalloc(log_cmd_length); log_cmd[0] = '\0'; tp_opts = getenv("TP_OPTS"); sprintf(log_cmd,"%s %s", LOGTOOL, "trueprint"); if (tp_opts != NULL) sprintf(log_cmd, "%s %s%s%s", log_cmd, "TPOPTS=\"<",tp_opts,">\""); for (i=1; i log_cmd_length ) { log_cmd_length += COMMAND_LEN; log_cmd = xmalloc(log_cmd_length) } sprintf(log_cmd, "%s \" <%s>\"", log_cmd, argv[i]); } system(log_cmd); } #endif trueprint-5.4/src/lang_c.h0000644000175000017500000000032607625761737012547 00000000000000/* * Include file: * lang_c.h */ extern stream_status get_c_char(char *, char_status *); extern char lang_c_defaults[]; extern stream_status get_pc_char(char *, char_status *); extern char lang_pc_defaults[]; trueprint-5.4/src/trueprint.h0000644000175000017500000000377507625761740013365 00000000000000/* * Include file: * trueprint.h */ #define CMD_NAME "trueprint" /* * TP_ADMIN_USER contains the mail address of the administrator. * You should change this address! */ #define TP_ADMIN_USER "root@localhost" /* * Default settings for options, only needed if the defaults that are * hard-coded are not good enough. */ #define DEFAULT_OPTS "" /* * LOGTOOL is set to the tool to be used to log invocations of trueprint. To turn * off logging, comment this line out */ /* #define LOGTOOL ... */ /* * Maximum length of a command to be passed to system() */ #define COMMAND_LEN 2000 /* * Maximum length of an input or output line for diff, indexes, etc. */ #define INPUT_LINE_LEN 200 /* * Maximum length of a symbol, in the language parsing stuff */ #define SYMBOL_LEN 70 /* * Maximum line length of an output line for source code */ #define MAXLINELENGTH 2000 /* * Buffer size - input is read in in blocks this size */ #define BUFFER_SIZE 4096 /* * Postscript max and min values */ #define MAXPOINTSIZE 50 #define MINPOINTSIZE 5 #define MAXINTERLINE_GAP 10 #define MININTERLINE_GAP 0 /* * Maximum size of greenlines */ #define MAXGREENLINES 10 /* * HOLEPUNCH_WIDTH is the space, in points, left blank for holepunches. * 54 points is 3/4" */ #define HOLEPUNCH_WIDTH 54 /* * HOLEPUNCH_HEIGHT is the space, in points, left blank for two-hole * holepunches (that punch at the top of the page). * 36 points is 1/2" */ #define HOLEPUNCH_HEIGHT 36 /* * Characters that we can break lines on. BREAKSLENGTH is set to the * number of these characters */ #define BREAKS ";({,. " #define BREAKSLENGTH 7 #define PUTS(x) (void)fputs(x,stdout) #define BACKSPACE (char)8 typedef enum { CHAR_NORMAL, CHAR_ITALIC, CHAR_BOLD, CHAR_UNDERLINE } char_status; typedef enum { STREAM_EMPTY_FILE = -1, STREAM_OK = 0x0, STREAM_PAGE_END = 0x1, STREAM_FUNCTION_END = 0x2, STREAM_FILE_END = 0x4 } stream_status; #undef TRUE #undef FALSE typedef enum { UNSET = -1, FALSE = 0, TRUE = 1 } boolean; trueprint-5.4/src/lang_text.h0000644000175000017500000000025007625761740013277 00000000000000/* * Include file: * lang_text.h */ extern stream_status get_text_char(char *, char_status *); extern char lang_text_defaults[]; extern char lang_list_defaults[]; trueprint-5.4/src/openpipe.c0000644000175000017500000000716307625761740013136 00000000000000/* * Source file: * openpipe.c * * Contains openpipe - a replacement for the non-POSIX function popen. * This returns an int rather than a FILE * to make it general purpose - * fdopen can be used outside to convert this to a FILE * */ #include "config.h" #include #include #include #include #include #if HAVE_SYS_WAIT_H # include #endif #ifndef WNOHANG # define WNOHANG 1 #endif #if HAVE_UNISTD_H # include #else extern int close(int fildes); extern int dup(int fildes); extern pid_t fork(void); extern int pipe(int fildes[2]); extern pid_t waitpid(pid_t pid, int *stat_loc, int options); #endif #include "trueprint.h" #include "utils.h" #include "main.h" #include "debug.h" #include "openpipe.h" /* * Function: * openpipe * * Open a pipe. Write an initial character through the new pipe to make sure * that it works (there was a bug associated with a subprocess which didn't * write anything to the pipe). */ int openpipe(const char *command, char *mode) { int fildes[2]; int parent_pipe_end; int child_pipe_end; char *child_pipe_mode; if (strcmp(mode, "w") == 0) { parent_pipe_end = 1; child_pipe_end = 0; child_pipe_mode = "read"; } else if (strcmp(mode, "r") == 0) { parent_pipe_end = 0; child_pipe_end = 1; child_pipe_mode = "write"; } else abort(); if (pipe(fildes) != 0) { perror(CMD_NAME ": Cannot create pipe"); exit(2); } dm('f',3,"openpipe(): opened pipe with handles read=%d and write=%d\n",fildes[0],fildes[1]); switch (fork()) { case -1: /* Error */ perror(CMD_NAME ": Cannot fork"); exit(2); /*NOTREACHED*/ case 0: /* Child process */ if (!((close(fildes[parent_pipe_end]) == 0) && (close(child_pipe_end) == 0) && (dup(fildes[child_pipe_end]) == child_pipe_end))) { fprintf(stderr, gettext(CMD_NAME ": cannot redirect %s for child, %s\n"), child_pipe_mode, strerror(errno)); exit(2); } /* Write a single byte through the pipe to establish it */ if (child_pipe_end == 1) { write(fildes[child_pipe_end],"z",1); } else { char buff[1]; read(fildes[child_pipe_end],buff,1); if (*buff != 'z') { fprintf(stderr, gettext(CMD_NAME ": failed to open pipe properly\n")); exit(2); } } if (system(command) < 0) { perror(CMD_NAME ": Cannot start pipe"); exit(2); } else exit(0); /*NOTREACHED*/ default: /* Parent process */ if (close(fildes[child_pipe_end]) != 0) { fprintf(stderr, gettext(CMD_NAME ": cannot close %s end of pipe for parent, %s\n"), child_pipe_mode, strerror(errno)); exit(2); } /* Write a single byte through the pipe to establish it */ if (parent_pipe_end == 1) { write(fildes[parent_pipe_end],"z",1); } else { char buff[1]; read(fildes[parent_pipe_end],buff,1); if (*buff != 'z') { fprintf(stderr, gettext(CMD_NAME ": failed to open pipe properly\n")); exit(2); } } return fildes[parent_pipe_end]; } } FILE * fopenpipe(const char *command, char *mode) { int handle; FILE *fd; handle = openpipe(command, mode); fd = fdopen(handle, mode); dm('f',3,"Opened pipe %d, %s, handle %d for command = %s\n",handle,mode,fd,command); return fd; } void closepipe(int handle) { int statloc; close(handle); waitpid(-1, &statloc, 0); } void fclosepipe(FILE *fp) { closepipe(fileno(fp)); /* need to call fclose() to deallocate FILE buffer */ if (fclose(fp) != EOF) perror(CMD_NAME ": could not close diff stream"); } trueprint-5.4/src/options.c0000644000175000017500000011421207625761740013004 00000000000000/* * Source file: * options.c */ #include "config.h" #include #include #include #ifdef HAVE_GETOPT_H #include #else #include "getopt.h" #endif extern int optind; /* undocumented variable used to reset getopt() */ #include "trueprint.h" /* needed for boolean type */ #include "utils.h" /* needed for strdup */ #include "debug.h" /* needed for dm macro */ #include "options.h" /****************************************************************************** * Macros */ /* If there are more than MAX_OPTIONS options then this must be increased */ #define MAX_OPTIONS 256 /* This must specify a bit outside the range of MAX_OPTIONS */ #define OPT_FLAG 0x1000 #define SHORT_OPTION(opt) (short_options[('A'<=opt&&opt<='Z')?(opt-'A')*2:\ ('a'<=opt&&opt<='z')?(opt-'a')*2+1:\ ('0'<=opt&&opt<='9')?opt-'0'+52:\ 62]) #define PRINTUSAGE printf(gettext(" Usage: trueprint \n Use -H for details\n")) /****************************************************************************** * Typedefs */ typedef enum { NOPARM, OPTIONAL, BOOLEAN, CHAR, CHOICE, SHORT, INT, STRING, FLAG_STRING } option_types; typedef struct option_type{ char letter; option_types type; boolean set; char need_string; option_class class; union { struct { char *string; boolean default_opt; void (*handler)(const char *p, const char *s); void (*set_default)(void); char *help_string; } onoparm; struct { char *string; void (*handler)(const char *p, const char *s, char *value); char *help_string; } ooptional; struct { char *true_string; char *false_string; boolean *var; boolean default_value; void (*handler)(const char *p, const char *s, boolean value); void (*set_default)(boolean value); char *true_help_string; char *false_help_string; } obool; struct { char *string; char *var; char default_value; char *valid_set; void (*handler)(const char *p, const char *s, char value, char *valid_set); void (*set_default)(char value); char *help_string; } ochar; struct { char *var; char *choice1_string; char *choice2_string; char choice1; /* Also default */ char choice2; void (*handler)(const char *p, const char *s, char value); void (*set_default)(char value); char *choice1_help_string; char *choice2_help_string; } ochoice; struct { char *string; short *var; short default_value; char *special_string; short special_value; short min; short max; void (*handler)(const char *p, const char *s, short value, short min, short max); void (*set_default)(short value); char *help_string; char *special_help_string; } oshrt; struct { char *string; int *var; int default_value; char *special_string; short special_value; int min; int max; void (*handler)(const char *p, const char *s, int value, int min, int max); void (*set_default)(int value); char *help_string; char *special_help_string; } oint; struct { char *string; char **var; char *default_value; void (*handler)(const char *p, const char *s, char *value); void (*set_default)(char *value); char *help_string; } ostrng; struct { char *set_string; char *not_set_string; boolean flag_var; char **var; boolean default_value; char *true_value; char *false_value; void (*handler)(const char *p, const char *s, boolean value, char *true_value, char *false_value); void (*set_default)(boolean value, char *string_value); char *set_help_string; char *not_set_help_string; } oflg; } t; } option_type; /****************************************************************************** * Private functions */ static void set_option(int option, char *prefix, const char *option_name, char *value); static void set_option_default(int option); /****************************************************************************** * Constant variables and data structures */ static int short_options[62]; static struct option_type option_list[MAX_OPTIONS+1]; static struct option long_options[MAX_OPTIONS+1]; static int next_option; static int next_long_option; static int this_option; /****************************************************************************** * Function: * setup_options */ void setup_options(void) { next_option = 0; next_long_option = 0; } /****************************************************************************** * Function: * handle_string_options * * This function takes options as a single string, parses them into * a char[][], and calls handle_options. */ void handle_string_options(char *options) { int opt_argc = -1; char arguments[100][100]; char *opt_argv[100]; int options_index = -1; int argv_index = 0; boolean quoted = FALSE; boolean ended = FALSE; if (options == (char *)0) return; if (strlen(options) == 0) return; while (ended == FALSE) { switch (options[++options_index]) { case ' ': case ' ': if (quoted) { if (argv_index == 0) opt_argc += 1; arguments[opt_argc][argv_index++] = options[options_index]; continue; } if (argv_index > 0) { arguments[opt_argc][argv_index] = '\0'; argv_index = 0; } break; case '\0': if (argv_index > 0) { arguments[opt_argc][argv_index] = '\0'; argv_index = 0; } ended = TRUE; break; case '"': if (quoted) quoted = FALSE; else quoted = TRUE; break; default: if (argv_index == 0) opt_argc += 1; arguments[opt_argc][argv_index++] = options[options_index]; break; } } opt_argc += 1; for (argv_index=0; argv_index < opt_argc; argv_index++) opt_argv[argv_index+1] = arguments[argv_index]; opt_argv[0] = opt_argv[1]; opt_argc += 1; handle_options(opt_argc, opt_argv); return; } /****************************************************************************** * Function: * handle_options * * This function handles the options passed to the program, and also * the defaults for each language. Since the options passed to the * program gake priority and are also found first, this function * will only assign a value to a flag if the flag has not previously * been set. */ unsigned int handle_options(int argc, char **argv) { int option; int option_index; int short_option_index = 0; int long_option_index; char short_option_list[125]; /* 125 = (26+26+10)*2 + 1 */ /* * Since this function will be called twice, we need to initialise * getopt_long() variables to make sure that it behaves properly during * the second call. */ optind = 1; /* * Set up the string of single-letter options and set the last long_option * to all zeros - this will be done multiple times each time trueprint * is invoked, but it's quick so it shouldn't hurt. */ for (option_index = 0; option_index < next_long_option; option_index++) { if (option_list[option_index].letter) { short_option_list[short_option_index++] = option_list[option_index].letter; if (option_list[option_index].need_string) short_option_list[short_option_index++] = ':'; } } long_options[next_long_option].name = 0; long_options[next_long_option].has_arg = 0; long_options[next_long_option].flag = 0; long_options[next_long_option].val = 0; /* * Loop through the options. This call will set this_option * to the option number if it is looking at a long option. */ while ((option = getopt_long((unsigned int)argc, argv, short_option_list, long_options, &long_option_index) ) != EOF) { if (option == '?') { fprintf(stderr, gettext(CMD_NAME ": failed to parse options\n")); exit(1); } else if (option != 0) { char *option_name; option_name = xmalloc(2); option_name[0] = option; option_name[1] = '\0'; option_index = SHORT_OPTION(option); set_option(option_index,"-",option_name,optarg); } else { set_option(this_option, "--", long_options[long_option_index].name,optarg); } } return(optind); } /****************************************************************************** * Option declaration functions */ /****************************************************************************** * noparm_option * -c * --s * Calls handler if used. * Uses either single-letter option or string long option or both */ void noparm_option(char *c, char *s, boolean default_opt, void (*handler)(const char *p, const char *s), void (*set_default)(void), option_class class, char *help_string) { int option_index = next_option++; if (s) { int long_option_index = next_long_option++; long_options[long_option_index].name = s; long_options[long_option_index].has_arg = 0; long_options[long_option_index].flag = &this_option; long_options[long_option_index].val = option_index; } /* * This checks for an internal error, so it is OK to * risk an out-of-bounds access * before checking for the bounds limit. */ if ((next_option > MAX_OPTIONS) || (next_long_option > MAX_OPTIONS)) abort(); if (handler == NULL) abort(); if (default_opt && set_default == NULL) abort(); if (c) { option_list[option_index].letter = *c; SHORT_OPTION(*c) = option_index; } else option_list[option_index].letter = 0; option_list[option_index].type = NOPARM; option_list[option_index].class = class; option_list[option_index].need_string = FALSE; option_list[option_index].set = FALSE; option_list[option_index].t.onoparm.string = s; option_list[option_index].t.onoparm.default_opt = default_opt; option_list[option_index].t.onoparm.handler = handler; option_list[option_index].t.onoparm.set_default = set_default; option_list[option_index].t.onoparm.help_string = help_string; } /****************************************************************************** * optional_string_option * -c * --s * --s=[string] * Note that only the long option has the optional string. * Calls handler if used. * Uses either single-letter option or string long option or both */ void optional_string_option(char *c, char *s, void (*handler)(const char *p, const char *s, char *value), option_class class, char *help_string) { int option_index = next_option++; if (s) { int long_option_index = next_long_option++; long_options[long_option_index].name = s; long_options[long_option_index].has_arg = 2; long_options[long_option_index].flag = &this_option; long_options[long_option_index].val = option_index; } /* * This checks for an internal error, so it is OK to * risk an out-of-bounds access * before checking for the bounds limit. */ if ((next_option > MAX_OPTIONS) || (next_long_option > MAX_OPTIONS)) abort(); if (handler == NULL) abort(); if (c) { option_list[option_index].letter = *c; SHORT_OPTION(*c) = option_index; } else option_list[option_index].letter = 0; option_list[option_index].type = OPTIONAL; option_list[option_index].class = class; option_list[option_index].need_string = FALSE; option_list[option_index].set = FALSE; option_list[option_index].t.ooptional.string = s; option_list[option_index].t.ooptional.handler = handler; option_list[option_index].t.ooptional.help_string = help_string; } /****************************************************************************** * boolean_option * -c = set option to TRUE * --c = set option to FALSE * --s1 = set option to TRUE * --s2 = set option to FALSE */ void boolean_option(char *c, char *s1, char *s2, boolean default_value, boolean *var, void (*handler)(const char *p, const char *s, boolean value), void (*set_default)(boolean value), option_class class, char *true_help_string, char *false_help_string) { int option_index = next_option++; if (c) { int long_option_index = next_long_option++; option_list[option_index].letter = *c; SHORT_OPTION(*c) = option_index; long_options[long_option_index].name = c; long_options[long_option_index].has_arg = 0; long_options[long_option_index].flag = &this_option; long_options[long_option_index].val = option_index | OPT_FLAG; } else option_list[option_index].letter = 0; if (s1) { int long_option_index = next_long_option++; long_options[long_option_index].name = s1; long_options[long_option_index].has_arg = 0; long_options[long_option_index].flag = &this_option; long_options[long_option_index].val = option_index; } if (s2) { int long_option_index = next_long_option++; long_options[long_option_index].name = s2; long_options[long_option_index].has_arg = 0; long_options[long_option_index].flag = &this_option; long_options[long_option_index].val = option_index | OPT_FLAG; } if ((next_option > MAX_OPTIONS) || (next_long_option > MAX_OPTIONS)) abort(); if ((var == NULL) && (handler == NULL)) abort(); if ((var != NULL) && (handler != NULL)) abort(); if ((handler == NULL) != (set_default == NULL)) abort(); option_list[option_index].type = BOOLEAN; option_list[option_index].class = class; option_list[option_index].need_string = FALSE; option_list[option_index].set = FALSE; option_list[option_index].t.obool.true_string = s1; option_list[option_index].t.obool.false_string = s2; option_list[option_index].t.obool.var = var; option_list[option_index].t.obool.default_value = default_value; option_list[option_index].t.obool.handler = handler; option_list[option_index].t.obool.set_default = set_default; option_list[option_index].t.obool.true_help_string = true_help_string; option_list[option_index].t.obool.false_help_string = false_help_string; } /****************************************************************************** * choice_option * -c * --s1 * --s2 */ void choice_option(char *c, char *s1, char *s2, char choice1, char choice2, char *var, void (*handler)(const char *p, const char *s, char value), void (*set_default)(char value), option_class class, char *choice1_help_string, char *choice2_help_string) { int option_index = next_option++; if (c) { option_list[option_index].letter = *c; SHORT_OPTION(*c) = option_index; } else option_list[option_index].letter = 0; if (s1) { int long_option_index = next_long_option++; long_options[long_option_index].name = s1; long_options[long_option_index].has_arg = 0; long_options[long_option_index].flag = &this_option; long_options[long_option_index].val = option_index; } if (s2) { int long_option_index = next_long_option++; long_options[long_option_index].name = s2; long_options[long_option_index].has_arg = 0; long_options[long_option_index].flag = &this_option; long_options[long_option_index].val = option_index | OPT_FLAG; } if ((next_option > MAX_OPTIONS) || (next_long_option > MAX_OPTIONS)) abort(); if ((var == NULL) && (handler == NULL)) abort(); if ((var != NULL) && (handler != NULL)) abort(); if ((handler == NULL) != (set_default == NULL)) abort(); option_list[option_index].type = CHOICE; option_list[option_index].class = class; option_list[option_index].need_string = TRUE; option_list[option_index].set = FALSE; option_list[option_index].t.ochoice.var = var; option_list[option_index].t.ochoice.choice1_string = s1; option_list[option_index].t.ochoice.choice2_string = s2; option_list[option_index].t.ochoice.choice1 = choice1; option_list[option_index].t.ochoice.choice2 = choice2; option_list[option_index].t.ochoice.handler = handler; option_list[option_index].t.ochoice.set_default = set_default; option_list[option_index].t.ochoice.choice1_help_string = choice1_help_string; option_list[option_index].t.ochoice.choice2_help_string = choice2_help_string; } /****************************************************************************** * char_option * -c * --s */ void char_option(char *c, char *s, char default_value, char *valid_set, char *var, void (*handler)(const char *p, const char *s, char value, char *var), void (*set_default)(char value), option_class class, char *help_string) { int option_index = next_option++; if (c) { option_list[option_index].letter = *c; SHORT_OPTION(*c) = option_index; } else option_list[option_index].letter = 0; if (s) { int long_option_index = next_long_option++; long_options[long_option_index].name = s; long_options[long_option_index].has_arg = 1; long_options[long_option_index].flag = &this_option; long_options[long_option_index].val = option_index; } if ((next_option > MAX_OPTIONS) || (next_long_option > MAX_OPTIONS)) abort(); if ((var == NULL) && (handler == NULL)) abort(); if ((var != NULL) && (handler != NULL)) abort(); if ((handler == NULL) != (set_default == NULL)) abort(); option_list[option_index].type = CHAR; option_list[option_index].class = class; option_list[option_index].need_string = TRUE; option_list[option_index].set = FALSE; option_list[option_index].t.ochar.string = s; option_list[option_index].t.ochar.var = var; option_list[option_index].t.ochar.default_value = default_value; option_list[option_index].t.ochar.valid_set = valid_set; option_list[option_index].t.ochar.handler = handler; option_list[option_index].t.ochar.set_default = set_default; option_list[option_index].t.ochar.help_string = help_string; } /****************************************************************************** * short_option * -c * --s */ void short_option(char *c, char *s, short default_value, char *special_string, short special_value, short min, short max, short *var, void (*handler)(const char *p, const char *s, short value, short min, short max), void (*set_default)(short value), option_class class, char *help_string, char *special_help_string) { int option_index = next_option++; if (c) { option_list[option_index].letter = *c; SHORT_OPTION(*c) = option_index; } else option_list[option_index].letter = 0; if (s) { int long_option_index = next_long_option++; long_options[long_option_index].name = s; long_options[long_option_index].has_arg = 1; long_options[long_option_index].flag = &this_option; long_options[long_option_index].val = option_index; } if (special_string) { int long_option_index = next_long_option++; long_options[long_option_index].name = special_string; long_options[long_option_index].has_arg = 0; long_options[long_option_index].flag = &this_option; long_options[long_option_index].val = option_index | OPT_FLAG; } if ((next_option > MAX_OPTIONS) || (next_long_option > MAX_OPTIONS)) abort(); if ((var == NULL) && (handler == NULL)) abort(); if ((var != NULL) && (handler != NULL)) abort(); if ((handler == NULL) != (set_default == NULL)) abort(); option_list[option_index].type = SHORT; option_list[option_index].class = class; option_list[option_index].need_string = TRUE; option_list[option_index].set = FALSE; option_list[option_index].t.oshrt.string = s; option_list[option_index].t.oshrt.var = var; option_list[option_index].t.oshrt.min = min; option_list[option_index].t.oshrt.max = max; option_list[option_index].t.oshrt.default_value = default_value; option_list[option_index].t.oshrt.handler = handler; option_list[option_index].t.oshrt.set_default = set_default; option_list[option_index].t.oshrt.help_string = help_string; option_list[option_index].t.oshrt.special_string = special_string; option_list[option_index].t.oshrt.special_value = special_value; option_list[option_index].t.oshrt.special_help_string = special_help_string; } /****************************************************************************** * int_option * -c * --s */ void int_option(char *c, char *s, int default_value, char *special_string, int special_value, int min, int max, int *var, void (*handler)(const char *p, const char *s, int value, int min, int max), void (*set_default)(int value), option_class class, char *help_string, char *special_help_string) { int option_index = next_option++; if (c) { option_list[option_index].letter = *c; SHORT_OPTION(*c) = option_index; } else option_list[option_index].letter = 0; if (s) { int long_option_index = next_long_option++; long_options[long_option_index].name = s; long_options[long_option_index].has_arg = 1; long_options[long_option_index].flag = &this_option; long_options[long_option_index].val = option_index; } if (special_string) { int long_option_index = next_long_option++; long_options[long_option_index].name = special_string; long_options[long_option_index].has_arg = 0; long_options[long_option_index].flag = &this_option; long_options[long_option_index].val = option_index | OPT_FLAG; } if ((next_option > MAX_OPTIONS) || (next_long_option > MAX_OPTIONS)) abort(); if ((var == NULL) && (handler == NULL)) abort(); if ((var != NULL) && (handler != NULL)) abort(); if ((handler == NULL) != (set_default == NULL)) abort(); option_list[option_index].type = INT; option_list[option_index].class = class; option_list[option_index].need_string = TRUE; option_list[option_index].set = FALSE; option_list[option_index].t.oint.string = s; option_list[option_index].t.oint.var = var; option_list[option_index].t.oint.min = min; option_list[option_index].t.oint.max = max; option_list[option_index].t.oint.default_value = default_value; option_list[option_index].t.oint.handler = handler; option_list[option_index].t.oint.set_default = set_default; option_list[option_index].t.oint.help_string = help_string; option_list[option_index].t.oint.special_string = special_string; option_list[option_index].t.oint.special_value = special_value; option_list[option_index].t.oint.special_help_string = special_help_string; } /****************************************************************************** * string_option * -c * --s */ void string_option(char *c, char *s, char *default_value, char **var, void (*handler)(const char *p, const char *s, char *value), void (*set_default)(char *value), option_class class, char *help_string) { int option_index = next_option++; if (c) { option_list[option_index].letter = *c; SHORT_OPTION(*c) = option_index; } else option_list[option_index].letter = 0; if (s) { int long_option_index = next_long_option++; long_options[long_option_index].name = s; long_options[long_option_index].has_arg = 1; long_options[long_option_index].flag = &this_option; long_options[long_option_index].val = option_index; } if ((var == NULL) && (handler == NULL)) abort(); if ((var != NULL) && (handler != NULL)) abort(); if ((handler == NULL) != (set_default == NULL)) abort(); option_list[option_index].type = STRING; option_list[option_index].class = class; option_list[option_index].need_string = TRUE; option_list[option_index].set = FALSE; option_list[option_index].t.ostrng.string = s; option_list[option_index].t.ostrng.var = var; option_list[option_index].t.ostrng.default_value = default_value; option_list[option_index].t.ostrng.handler = handler; option_list[option_index].t.ostrng.set_default = set_default; option_list[option_index].t.ostrng.help_string = help_string; } /****************************************************************************** * flag_string_option * -c * --c * -s1 * --s2 */ void flag_string_option(char *c, char *s1, char *s2, boolean default_value, char *true_value, char *false_value, char **var, void (*handler)(const char *p, const char *s, boolean value, char *true_value, char *false_value), void (*set_default)(boolean value, char *string_value), option_class class, char *set_help_string, char *not_set_help_string) { int option_index = next_option++; if (c) { option_list[option_index].letter = *c; SHORT_OPTION(*c) = option_index; } else option_list[option_index].letter = 0; if (s1) { int long_option_index = next_long_option++; long_options[long_option_index].name = s1; long_options[long_option_index].has_arg = 1; long_options[long_option_index].flag = &this_option; long_options[long_option_index].val = option_index; } if (s2) { int long_option_index = next_long_option++; long_options[long_option_index].name = s2; long_options[long_option_index].has_arg = 0; long_options[long_option_index].flag = &this_option; long_options[long_option_index].val = option_index | OPT_FLAG; } if ((next_option > MAX_OPTIONS) || (next_long_option > MAX_OPTIONS)) abort(); if ((var == NULL) && (handler == NULL)) abort(); if ((var != NULL) && (handler != NULL)) abort(); if ((handler == NULL) != (set_default == NULL)) abort(); option_list[option_index].type = FLAG_STRING; option_list[option_index].class = class; option_list[option_index].need_string = FALSE; option_list[option_index].set = FALSE; option_list[option_index].t.oflg.var = var; option_list[option_index].t.oflg.set_string = s1; option_list[option_index].t.oflg.not_set_string = s2; option_list[option_index].t.oflg.default_value = default_value; option_list[option_index].t.oflg.true_value = true_value; option_list[option_index].t.oflg.false_value = false_value; option_list[option_index].t.oflg.handler = handler; option_list[option_index].t.oflg.set_default = set_default; option_list[option_index].t.oflg.set_help_string = set_help_string; option_list[option_index].t.oflg.not_set_help_string = not_set_help_string; } /****************************************************************************** * set_option - sets the option */ void set_option(int index, char *prefix, const char *option_name, char *value) { boolean flag_set = ((index & OPT_FLAG) != 0); struct option_type *op; if (flag_set) op = &option_list[index-OPT_FLAG]; else op = &option_list[index]; if (value) dm('o',3,"Trying to set option %s%s to %s\n", prefix, option_name, value); else dm('o',3,"Trying to set option %s%s\n", prefix, option_name); if (op->set) { dm('o',3,"Option %s%s already set\n", prefix, option_name); return; } switch (op->type) { case NOPARM: (*(op->t.onoparm.handler))(prefix, option_name); break; case OPTIONAL: (*(op->t.ooptional.handler))(prefix, option_name, value); break; case BOOLEAN: if (op->t.obool.var) { *(op->t.obool.var) = (!flag_set); } else { (*(op->t.obool.handler))(prefix, option_name, !flag_set); } break; case CHAR: if (strlen(value) != 1) { fprintf(stderr, gettext(CMD_NAME ": must have one character parameter for %s%s flag, but got '%s'\n"),prefix,option_name,value); exit(1); } /* TODO: Need to check that c is in valid_set */ if (op->t.ochar.var) { *(op->t.ochar.var) = *value; } else { (*(op->t.ochar.handler))(prefix, option_name, *value, op->t.ochar.valid_set); } break; case CHOICE: if (strlen(prefix) == 1) { /* This is a short option */ if (strlen(value) != 1) { fprintf(stderr, gettext(CMD_NAME ": must have one character parameter for %s%s flag, but got '%s'\n"),prefix,option_name,value); exit(1); } if ((*value != op->t.ochoice.choice1) && (*value != op->t.ochoice.choice2)) { fprintf(stderr, gettext(CMD_NAME ": option %s%s can only take %c or %c, not %c\n"),prefix,option_name,op->t.ochoice.choice1,op->t.ochoice.choice2,*value); exit(1); } if (op->t.ochoice.var) { *(op->t.ochoice.var) = *value; } else { (*(op->t.ochoice.handler))(prefix, option_name, *value); } } else { /* This is a long option */ char chosen_value; if (strcmp(option_name,op->t.ochoice.choice1_string) == 0) { /* First option selected */ chosen_value = op->t.ochoice.choice1; } else { /* Second option selected */ chosen_value = op->t.ochoice.choice2; } if (op->t.ochoice.var) { *(op->t.ochoice.var) = chosen_value; } else { (*(op->t.ochoice.handler))(prefix, option_name, chosen_value); } } break; case SHORT: if (flag_set) { if (op->t.oshrt.var) { *(op->t.oshrt.var) = op->t.oshrt.special_value; } else { (*(op->t.oshrt.handler))(prefix, option_name, op->t.oshrt.special_value, op->t.oshrt.min, op->t.oshrt.max); } } else { int intvalue = atoi(value); if ((intvalue > op->t.oshrt.max) || (intvalue < op->t.oshrt.min)) { fprintf(stderr, gettext(CMD_NAME ": option %s%s not between %d and %d\n"),prefix,option_name,op->t.oshrt.min,op->t.oshrt.max); exit(1); } if (op->t.oshrt.var) { *(op->t.oshrt.var) = (short)intvalue; } else { (*(op->t.oshrt.handler))(prefix, option_name, (short)intvalue, op->t.oshrt.min, op->t.oshrt.max); } } break; case INT: if (flag_set) { if (op->t.oint.var) { *(op->t.oint.var) = op->t.oint.special_value; } else { (*(op->t.oint.handler))(prefix, option_name, op->t.oint.special_value, op->t.oint.min, op->t.oint.max); } } else { int intvalue = atoi(value); if ((intvalue > op->t.oint.max) || (intvalue < op->t.oint.min)) { fprintf(stderr, gettext(CMD_NAME ": option %s%s not between %d and %d\n"),prefix,option_name,op->t.oint.min,op->t.oint.max); exit(1); } if (op->t.oint.var) { *(op->t.oint.var) = intvalue; } else { (*(op->t.oint.handler))(prefix, option_name, intvalue, op->t.oint.min, op->t.oint.max); } } break; case STRING: if (op->t.ostrng.var) { *(op->t.ostrng.var) = strdup(value); } else { (*(op->t.ostrng.handler))(prefix, option_name, value); } break; case FLAG_STRING: if (op->t.oflg.var) { if (flag_set) { if (op->t.oflg.true_value) { *(op->t.oflg.var) = strdup(op->t.oflg.true_value); } else { *(op->t.oflg.var) = NULL; } } else { if (op->t.oflg.false_value) { *(op->t.oflg.var) = strdup(op->t.oflg.false_value); } else { *(op->t.oflg.var) = NULL; } } } else { (*(op->t.oflg.handler))(prefix, option_name, !flag_set, op->t.oflg.true_value, op->t.oflg.false_value); } break; default: abort(); } op->set = TRUE; dm('o',3,"Succeeded - %s%s has not been set before\n",prefix,option_name); } /****************************************************************************** * Function: * set_option_default */ void set_option_default(int index) { option_type *op = &option_list[index]; dm('o',3,"Trying to set option %d to default value\n", index); if (op->set) { dm('o',3,"Option %d already set\n", index); return; } switch (op->type) { case NOPARM: if (op->t.onoparm.default_opt) (*(op->t.onoparm.set_default))(); break; case OPTIONAL: break; case BOOLEAN: if (op->t.obool.var) { *(op->t.obool.var) = op->t.obool.default_value; } else { (*(op->t.obool.set_default))(op->t.obool.default_value); } break; case CHAR: if (op->t.ochar.var) { *(op->t.ochar.var) = op->t.ochar.default_value; } else { (*(op->t.ochar.set_default))(op->t.ochar.default_value); } break; case CHOICE: if (op->t.ochoice.var) { *(op->t.ochoice.var) = op->t.ochoice.choice1; } else { (*(op->t.ochoice.set_default))(op->t.ochoice.choice1); } break; case SHORT: if (op->t.oshrt.var) { *(op->t.oshrt.var) = op->t.oshrt.default_value; } else { (*(op->t.oshrt.set_default))(op->t.oshrt.default_value); } break; case INT: if (op->t.oint.var) { *(op->t.oint.var) = op->t.oint.default_value; } else { (*(op->t.oint.set_default))(op->t.oint.default_value); } break; case STRING: if (op->t.ostrng.var) { if (op->t.ostrng.default_value) { *(op->t.ostrng.var) = strdup(op->t.ostrng.default_value); } else { *(op->t.ostrng.var) = NULL; } } else { if (op->t.ostrng.default_value) { (*(op->t.ostrng.set_default))(strdup(op->t.ostrng.default_value)); } else { (*(op->t.ostrng.set_default))(NULL); } } break; case FLAG_STRING: if (op->t.oflg.var) { if (op->t.oflg.default_value) { if (op->t.oflg.true_value) { *(op->t.oflg.var) = strdup(op->t.oflg.true_value); } else { *(op->t.oflg.var) = NULL; } } else { if (op->t.oflg.false_value) { *(op->t.oflg.var) = strdup(op->t.oflg.false_value); } else { *(op->t.oflg.var) = NULL; } } } else { if (op->t.oflg.default_value) { if (op->t.oflg.true_value) { (*(op->t.oflg.set_default))(1, strdup(op->t.oflg.true_value)); } else { (*(op->t.oflg.set_default))(1, NULL); } } else { if (op->t.oflg.false_value) { (*(op->t.oflg.set_default))(0, strdup(op->t.oflg.false_value)); } else { (*(op->t.oflg.set_default))(0, NULL); } } } break; default: abort(); } dm('o',3,"Succeeded - option %d has not been set before\n",index); } /****************************************************************************** * Function: * print_usage_msgs */ void print_usage_msgs(option_class class) { int option_index; switch (class){ case OPT_MISC: printf(gettext("Miscellaneous options:\n")); break; case OPT_PAGE_FURNITURE: printf(gettext("Page furniture options:\n")); break; case OPT_TEXT_FORMAT: printf(gettext("Text formatting options:\n")); break; case OPT_PRINT: printf(gettext("Print selection options:\n")); break; case OPT_PAGE_FORMAT: printf(gettext("Page format options:\n")); break; case OPT_OUTPUT: printf(gettext("Output options:\n")); break; } for (option_index=0; option_index < next_option; option_index++) { option_type *op = &option_list[option_index]; if (class == op->class) { switch (op->type) { case NOPARM: if (op->letter) printf("-%c ",op->letter); if (op->t.onoparm.string) printf("--%s",op->t.onoparm.string); printf("\n %s\n",gettext(op->t.onoparm.help_string)); break; case OPTIONAL: if (op->letter) printf("-%c ",op->letter); if (op->t.ooptional.string) printf("--%s[=]",op->t.ooptional.string); printf("\n %s\n",gettext(op->t.ooptional.help_string)); break; case BOOLEAN: if (op->letter) printf("-%c ",op->letter); if (op->t.obool.true_string) printf("--%s",op->t.obool.true_string); printf("\n %s\n",gettext(op->t.obool.true_help_string)); if (op->letter) printf("--%c ",op->letter); if (op->t.obool.false_string) printf("--%s",op->t.obool.false_string); printf("\n %s\n",gettext(op->t.obool.false_help_string)); break; case CHAR: if (op->letter) printf("-%c ",op->letter); if (op->t.ochar.string) printf("--%s ",op->t.ochar.string); printf("\n %s\n",gettext(op->t.ochar.help_string)); break; case CHOICE: if (op->letter) printf("-%c %c ",op->letter,op->t.ochoice.choice1); if (op->t.ochoice.choice1_string) printf("--%s",op->t.ochoice.choice1_string); printf("\n %s\n",gettext(op->t.ochoice.choice1_help_string)); if (op->letter) printf("-%c %c ",op->letter,op->t.ochoice.choice2); if (op->t.ochoice.choice2_string) printf("--%s",op->t.ochoice.choice2_string); printf("\n %s\n",gettext(op->t.ochoice.choice2_help_string)); break; case SHORT: if (op->letter) printf("-%c ",op->letter); if (op->t.oshrt.string) printf("--%s=",op->t.oshrt.string); printf("\n %s\n",gettext(op->t.oshrt.help_string)); if (op->t.oshrt.special_string) printf("--%s\n %s\n", op->t.oshrt.special_string, gettext(op->t.oshrt.special_help_string)); break; case INT: if (op->letter) printf("-%c ",op->letter); if (op->t.oint.string) printf("--%s=",op->t.oint.string); printf("\n %s\n",gettext(op->t.oint.help_string)); if (op->t.oint.special_string) printf("--%s\n %s\n", op->t.oint.special_string, gettext(op->t.oint.special_help_string)); break; case STRING: if (op->letter) printf("-%c ",op->letter); if (op->t.ostrng.string) printf("--%s=",op->t.ostrng.string); printf("\n %s\n",gettext(op->t.ostrng.help_string)); break; case FLAG_STRING: if (op->letter) printf("-%c ",op->letter); if (op->t.oflg.set_string) printf("--%s=",op->t.oflg.set_string); printf("\n %s\n",gettext(op->t.oflg.set_help_string)); if (op->letter) printf("--%c ",op->letter); if (op->t.oflg.set_string) printf("--%s",op->t.oflg.not_set_string); printf("\n %s\n",gettext(op->t.oflg.not_set_help_string)); } } } } /****************************************************************************** * Function: * set_option_defaults */ void set_option_defaults(void) { int option_index; for (option_index=0; option_index < next_option; option_index++) { set_option_default(option_index); } } trueprint-5.4/src/printers_fl.c0000644000175000017500000001470707625761740013650 00000000000000/* * Source file: * printers_fl.c * * Reads in the printers file and returns values based on printer name */ #include "config.h" #include #include #include #include #include "trueprint.h" #include "main.h" #include "utils.h" #include "debug.h" #include "printers_fl.h" /* * Private part */ typedef struct printer_type { char *name; short sides; int left, right,top,bottom; struct printer_type *next; } printer_type; typedef struct printer_record { char *names; char *type; struct printer_record *next; } printer_record; static struct printer_type *parse_printer_type(char *line); static struct printer_record *parse_printer_record(char *line); static char *printers_filename; /****************************************************************************** * Function: * setup_printersile_fl * If environment variable PRINTERS_FILE is set then use that, otherwise * use the configured value for PRINTERS_FILE. */ void setup_printers_fl(void) { printers_filename = NULL; if (use_environment) printers_filename = getenv("TP_PRINTERS_FILE"); if ((printers_filename == NULL) || (strlen(printers_filename) == 0)) printers_filename = PRINTERS_FILE; } /****************************************************************************** * Function: * printer_stats * * Looks up printer in printers_filename. */ void printer_stats(char *printer, short *sides, unsigned short *lm, unsigned short *rm, unsigned short *tm, unsigned short *bm) { char buffer[1024]; char *env_printer; FILE *printers_file; printer_record *printers_list = NULL; printer_type *types_list = NULL; printer_record *tmp_printer = NULL; printer_type *tmp_type = NULL; printer_record *this_printer = NULL; printer_type *this_type = NULL; /* * Set up defaults */ *lm = 15; *rm = 590; *tm = 776; *bm = 30; *sides = 1; /* * If this is a test and nothing should be taken from outside trueprint, * then simply use the default settings */ if (!use_environment) { env_printer = "testprinter"; dm('D',3,"Using testprinter entry\n"); return; } /* * If there is no printer name use the defaults */ if ((printer == NULL) || (*printer == '\0')) { if (((env_printer = getenv("PRINTER")) == NULL) || (*env_printer == '\0')) { dm('D',3, CMD_NAME ": $PRINTER null or not defined: using default printer properties\n"); return; } else { printer = env_printer; } } /* * Open the printers file, and return defaults if we can't */ if ((printers_file = fopen(printers_filename, "r")) == NULL) { fprintf(stderr, gettext(CMD_NAME ": warning: cannot open %s, %s\n"), printers_filename, strerror(errno)); return; } /* * Read in the printer file information */ while (fgets(buffer, 1024, printers_file)) { if (strlen(buffer) == 0) { /* Ignore empty lines */ } else if (*buffer == '#') { /* Ignore comment lines */ } else if (strncmp(buffer, "type",4) == 0) { tmp_type = parse_printer_type(buffer); tmp_type->next = types_list; types_list = tmp_type; } else if (strncmp(buffer, "printer", 7) == 0) { tmp_printer = parse_printer_record(buffer); tmp_printer->next = printers_list; printers_list = tmp_printer; } } /* * Find printer */ for (tmp_printer = printers_list; tmp_printer; tmp_printer = tmp_printer->next) { char *s = strtok(tmp_printer->names,","); while (s) { dm('D',5,"Comparing printer names %s and %s\n",printer,s); if (strcmp(printer,s) == 0) { this_printer = tmp_printer; break; } s = strtok(NULL,","); } if (this_printer) break; } /* * If printer not found, return defaults */ if (!this_printer) { fprintf(stderr, gettext(CMD_NAME ": warning: cannot find printer %s in %s\n"), printer, printers_filename); fprintf(stderr, gettext(CMD_NAME ": send mail to %s if you want to have it added\n"), TP_ADMIN_USER); return; } /* * Find type */ for (tmp_type = types_list; tmp_type; tmp_type = tmp_type->next) { if (strcmp(this_printer->type,tmp_type->name) == 0) { this_type = tmp_type; break; } } /* * If printer type not found, return defaults */ if (!this_type) { fprintf(stderr, gettext(CMD_NAME ": warning: cannot find printer type %s in %s\n"), this_printer->type, printers_filename); fprintf(stderr, gettext(CMD_NAME ": you should notify %s\n"), TP_ADMIN_USER); return; } if (fclose(printers_file) == EOF) { perror(CMD_NAME ": Cannot close printers file"); exit(2); } dm('D',3,"printers_file.c: Printer type %s\n", this_type->name); *lm = this_type->left; *rm = this_type->right; *tm = this_type->top; *bm = this_type->bottom; *sides = this_type->sides; dm('D',3,"left = %d, right = %d, top = %d, bottom = %d, sides = %d\n", *lm,*rm,*tm,*bm,*sides); } /****************************************************************************** * Function: * parse_printer_type * */ struct printer_type *parse_printer_type(char *line) { struct printer_type *r = xmalloc(sizeof(printer_type)); /* Ignore "type" field */ strtok(line, ":"); r->name = strdup(strtok(NULL, ":")); r->sides = (short) atoi(strtok(NULL, ":")); r->left = (unsigned short) atoi(strtok(NULL, ":")); r->right = (unsigned short) atoi(strtok(NULL, ":")); r->top = (unsigned short) atoi(strtok(NULL, ":")); r->bottom = (unsigned short) atoi(strtok(NULL, ":")); r->next = NULL; if ((r->sides != 1) && (r->sides != 2)) { fprintf(stderr, gettext(CMD_NAME ": printers file %s: type %s: second field must be 1 or 2, but is %d\n"), printers_filename, r->name, r->sides); exit(2); } dm('D',3,"Read type %s entry: %d:%d:%d:%d:%d\n", r->name,r->sides,r->left,r->right,r->top,r->bottom); return r; } /****************************************************************************** * Function: * parse_printer_record * */ struct printer_record *parse_printer_record(char *line) { struct printer_record *r = xmalloc(sizeof(printer_record)); /* Ignore "printer" field */ strtok(line, ":"); r->names = strdup(strtok(NULL, ":")); r->type = strdup(strtok(NULL, ":")); /* Overwrite newline at end of last field */ r->type[strlen(r->type)-1] = '\0'; r->next = NULL; dm('D',3,"Read printer entry: %s:%s\n", r->names,r->type); return r; } trueprint-5.4/src/options.h0000644000175000017500000000756707625761740013027 00000000000000/* * File: * options.h * Supports option processing. * Declaration functions are used to declare an option: * - specify either var or handler, not both. * - handler will be called just once. */ typedef enum option_class { OPT_MISC, /* Miscellaneous options */ OPT_PAGE_FURNITURE, /* Options that affect page furniture */ OPT_TEXT_FORMAT, /* Options that affect text layout */ OPT_PRINT, /* Options that (de)select stuff to print */ OPT_PAGE_FORMAT, /* Options that affect overall page presentation */ OPT_OUTPUT /* Options that affect or control where output goes */ } option_class; void setup_options(void); void handle_string_options(char *); unsigned int handle_options(int, char **); void set_option_defaults(void); void print_usage_msgs(option_class); /* * noparm option - option with no parameter * If default_opt is true then the handler will always * be called. It is up to the handler to work out if this * option should be obeyed or not. This is intended to * handle the case e.g. for -1, -2, -3 or -4 where * -1 is the default - the handler will remember if * any other option was invoked first. If invoked * because of the default_opt flag then set_default will * be used. * Must specify a handler and a set_default. */ void noparm_option(char *c, char *s, boolean default_opt, void (*handler)(const char *p, const char *s), void (*set_default)(void), option_class class, char *help_string); /* option that takes an optional string */ void optional_string_option(char *c, char *s, void (*handler)(const char *p, const char *s, char *value), option_class class, char *help_string); /* * boolean option - either y or n */ void boolean_option(char *c, char *s1, char *s2, boolean default_value, boolean *var, void (*handler)(const char *p, const char *s, boolean value), void (*set_default)(boolean value), option_class class, char *true_help_string, char *false_help_string); void choice_option(char *c, char *s1, char *s2, char choice1, char choice2, char *var, void (*handler)(const char *p, const char *s, char value), void (*set_default)(char value), option_class class, char *choice1_help_string, char *choice2_help_string); /* char option - one of a set of characters */ void char_option(char *c, char *s, char default_value, char *valid_set, char *var, void (*handler)(const char *p, const char *s, char value, char *var), void (*set_default)(char value), option_class class, char *help_string); /* short & int options */ void short_option(char *c, char *s, short default_value, char *special, short special_value, short min, short max, short *var, void (*handler)(const char *p, const char *s, short value, short min, short max), void (*set_default)(short value), option_class class, char *help_string, char *special_help_string); void int_option(char *c, char *s, int default_value, char *special, int special_value, int min, int max, int *var, void (*handler)(const char *p, const char *s, int value, int min, int max), void (*set_default)(int value), option_class class, char *help_string, char *special_help_string); /* string option */ void string_option(char *c, char *s, char *default_value, char **var, void (*handler)(const char *p, const char *s, char *value), void (*set_default)(char *value), option_class class, char *help_string); /* flag option for setting string */ void flag_string_option(char *c, char *s1, char *s2, boolean default_value, char *true_value, char *false_value, char **var, void (*handler)(const char *p, const char *s, boolean value, char *true_value, char *false_value), void (*set_default)(boolean value, char *string), option_class class, char *set_help_string, char *not_set_help_string); trueprint-5.4/src/index.c0000644000175000017500000004110507625761737012426 00000000000000/* * Source file: * index.c */ #include "config.h" #if TM_IN_SYS_TIME # include #else # include #endif #include #include #include #include #include #include #include "trueprint.h" #include "main.h" #include "headers.h" #include "postscript.h" #include "debug.h" #include "utils.h" #include "index.h" /* * Public part */ /* * Private part */ #define LINE 0 #define INPUT_END 1 #define BLOCK_SIZE 1000 typedef struct { char name[SYMBOL_LEN]; long name_start_char; long name_end_char; long page_number; long end_page; boolean changed; char *filename; } function_entry; typedef struct { long starting_page; long ending_page; char *name; time_t modified; } file_entry; typedef struct { boolean changed; } page_entry; static void dot_fill(char string[]); static int compare(const void *, const void *); static short print_index_line(int print_bold); static size_t max_function_name_length = 0; static size_t max_file_name_length = 0; static unsigned short no_of_functions=0; static unsigned int function_list_size = 0; static unsigned int file_list_size = 0; static unsigned int page_list_size = 0; static function_entry *functions = NULL; static function_entry *sorted_functions = NULL; static file_entry *files = NULL; static page_entry *pages = NULL; static boolean current_function_changed = FALSE; static void grow_array(void *list_ptr_ptr, unsigned int *, size_t); /***************************************************************************** * Function: * setup_index */ void setup_index(void) { max_function_name_length = 0; max_file_name_length = 0; no_of_functions=0; function_list_size = 0; file_list_size = 0; page_list_size = 0; functions = NULL; sorted_functions = NULL; files = NULL; pages = NULL; current_function_changed = FALSE; } /***************************************************************************** * Function: * grow_array */ static void grow_array(void *list_ptr_ptr, unsigned int *list_size_ptr, size_t list_entry_size) { size_t size_needed; *list_size_ptr += BLOCK_SIZE; size_needed = *list_size_ptr * list_entry_size; dm('i',3,"index.c:grow_array() Growing array by %d bytes\n", size_needed); if (*(void **)list_ptr_ptr == NULL) *(void **)list_ptr_ptr = xmalloc(size_needed); else *(void **)list_ptr_ptr = xrealloc(*(void **)list_ptr_ptr, size_needed); } /***************************************************************************** * Function: * page_has_changed * * Flag this page and function as containing a change */ void page_has_changed(long this_page_number) { if (pass == 1) return; while (this_page_number >= page_list_size) grow_array(&pages, &page_list_size, sizeof(page_entry)); current_function_changed = TRUE; pages[this_page_number].changed = TRUE; } /***************************************************************************** * Function: * add_file * * Remembers the starting page and other info for the named file. */ void add_file(char *filename, unsigned int this_file_number, long this_file_page_number) { size_t length = strlen(filename); struct stat stat_buffer; if (this_file_number >= file_list_size) grow_array(&files, &file_list_size, sizeof(file_entry)); files[this_file_number].starting_page = this_file_page_number; files[this_file_number].name = strdup(filename); if (strcmp(filename,"-") != 0) { if (stat(filename,&stat_buffer) == -1) { perror(CMD_NAME ": cannot stat file"); exit(1); } files[this_file_number].modified = stat_buffer.st_mtime; } else { files[this_file_number].modified = 0; } if (length > max_file_name_length) max_file_name_length = length; } /***************************************************************************** * Function: * end_file * * Remembers the ending page for the named file. */ void end_file(unsigned int this_file_number, long this_file_page_number) { if (this_file_number >= file_list_size) grow_array(&files, &file_list_size, sizeof(file_entry)); files[this_file_number].ending_page = this_file_page_number; } /***************************************************************************** * Function: * get_file_last_page * * Return the last page number for a file */ long get_file_last_page(unsigned int this_file_number) { return files[this_file_number].ending_page; } /***************************************************************************** * Function: * get_file_first_page * * Return the first page number for a file */ long get_file_first_page(unsigned int this_file_number) { return files[this_file_number].starting_page; } /***************************************************************************** * Function: * get_file_modified_time * * Return the struct time_t containing the last modified time of the file */ struct tm * get_file_modified_time(unsigned int this_file_number) { if (files[this_file_number].modified == 0) return NULL; return localtime(&files[this_file_number].modified); } /***************************************************************************** * Function: * add_function. * * Remembers the start and end characters, the page number and the filename * for the named function. */ void add_function(char *name, long start, long end, long page, char *filename) { size_t length = strlen(name); if (pass == 1) return; dm('i',2,"index.c:add_function() Adding %s, page %ld filename %s\n", name,page,filename); if (no_of_functions == function_list_size) grow_array(&functions, &function_list_size, sizeof(function_entry)); strcpy(functions[no_of_functions].name, name); functions[no_of_functions].name_start_char = start; functions[no_of_functions].name_end_char = end; functions[no_of_functions].page_number = page; functions[no_of_functions].filename = filename; if (length > max_function_name_length) max_function_name_length = length; current_function_changed = FALSE; } /***************************************************************************** * Function: * end_function * * Remembers the end page for the current function, and gets ready for * information on the next function. */ void end_function(long page) { if (pass == 1) return; dm('i',2,"index.c:end_function() Ending function on page %ld\n",page); functions[no_of_functions].changed = current_function_changed; functions[no_of_functions++].end_page = page; } /***************************************************************************** * Function: * get_function_name_posn * * Looks at current_char and returns whether this character starts a * function name, ends a function name, or does neither. */ char_status get_function_name_posn(long current_char, char_status current_status) { static unsigned short current_function=0; if (pass==0) return(current_status); /* If there were no functions simply return CHAR */ if (no_of_functions == 0) return (current_status); if ((current_char >= functions[current_function].name_start_char) && (current_char <= functions[current_function].name_end_char)) { if (current_char == functions[current_function].name_end_char) current_function += 1; dm('i',5,"index.c:get_function_name_posn() Returning TRUE for char posn %ld\n", current_char); return(CHAR_BOLD); } return(current_status); } /***************************************************************************** * Function: * get_function_name * * Get the current function name for the specified page. */ char * get_function_name(long page) { unsigned short current_function=0; static char dummy_return[] = ""; dm('i',4,"Index: Searching for function name for page %ld\n",page); if ((pass==0) || (no_of_functions == 0)) return(dummy_return); for (;;) { if (page < functions[current_function].page_number) return(dummy_return); if (page <= functions[current_function].end_page) { dm('i',4,"Index: Function name for page %ld = %s\n",page,functions[current_function].name); return(functions[current_function].name); } if (current_function >= no_of_functions-1) return(dummy_return); current_function += 1; } } /***************************************************************************** * Function: * get_file_name * * Get the appropriate file name */ char * file_name(int file_number) { return files[file_number].name; } /***************************************************************************** * Function: * function_changed * * Has the current function changed? */ boolean function_changed(long page) { static unsigned short current_function=0; if (pass==0) return(FALSE); if (no_of_functions == 0) return(FALSE); for (;;) { if (page < functions[current_function].page_number) return(FALSE); if (page <= functions[current_function].end_page) return(functions[current_function].changed); if (current_function >= no_of_functions-1) return(FALSE); current_function += 1; } } /***************************************************************************** * Function: * page_changed * * Has the current page changed? */ boolean page_changed(long page) { if (pass == 0) return FALSE; if (page > page_list_size) return FALSE; return pages[page].changed; } /***************************************************************************** * Function: * dot_fill * * Take a string and fill in the middle set of spaces with dots. */ void dot_fill(char string[]) { short string_index= 0; /* Find the end of the first set of spaces */ while (string[string_index] == ' ') string_index += 1; /* Find the start of the second set of spaces */ while (string[string_index] != ' ') string_index += 1; /* Change spaces to dots */ while (string[string_index] == ' ') string[string_index++] = '.'; } /***************************************************************************** * Function: * compare * * Compares two function entries, used by qsort(). * Looks at name first, then start char. */ int compare(const void *p1, const void *p2) { int r; r = strcmp(((function_entry *)p1)->name,((function_entry *)p2)->name); if (r == 0) { if (((function_entry *)p1)->name_start_char > ((function_entry *)p2)->name_start_char) r = 1; else if (((function_entry *)p1)->name_start_char < ((function_entry *)p2)->name_start_char) r = -1; else r = 0; } return r; } /***************************************************************************** * Function: * sort_function_names * * Sort the array of function records into alphabetical order into the * array sorted_functions[]. */ void sort_function_names(void) { unsigned short every_function; size_t size_needed = function_list_size * sizeof(function_entry); if (function_list_size == 0) return; sorted_functions = xmalloc(size_needed); for (every_function=0;every_function= no_of_files) return(INPUT_END); /* * else reached end of this file - print the filename of the next file in * bold and set up for starting printing function names for this title */ printf("Lpt( %-24s %5ld) BF setfont show CF setfont Nl\n", files[current_file].name, files[current_file].starting_page); function_idx = 0; return(LINE); } /* * If "print_bold" then fill in with dots while printing out * function details. */ if (print_bold) { char string[INPUT_LINE_LEN]; sprintf(string," %-24s %4ld", sorted_functions[function_idx].name, sorted_functions[function_idx].page_number); dot_fill(string); printf("Lpt(%s) show Nl\n",string); } else { printf("Lpt( %-24s %4ld) show Nl\n", sorted_functions[function_idx].name, sorted_functions[function_idx].page_number); } function_idx += 1; return(LINE); } /***************************************************************************** * Function: * print_out_file_index * * Print out the contents of sorted_functions in order per file. */ void print_out_file_index(void) { long index_page_number=0; short output_line_number; short retval = LINE; boolean reached_end_of_sheet; /* * For every page... */ do { index_page_number += 1; /* * ...print the header... */ print_file_header(index_page_number); output_line_number = 0; /* * ...print all the lines, every second one with dots... */ while (output_line_number < page_length) { PUTS(" "); if ((retval = print_index_line(output_line_number &1)) == INPUT_END) break; output_line_number += 1; } /* * ...and print the footer... */ reached_end_of_sheet = PS_endpage(TRUE); } while (retval == LINE); /* * Print blank pages until the last page printed was the last page * on a physical sheet. */ while (!reached_end_of_sheet) { index_page_number += 1; print_file_header(index_page_number); reached_end_of_sheet = PS_endpage(TRUE); } } trueprint-5.4/src/lang_cxx.c0000644000175000017500000001535307625761737013130 00000000000000/* * Source file: * lang_cxx.c * * Contains get_cxx_char(), which parses C++ code. */ #include "config.h" #include #include #include #include "trueprint.h" #include "main.h" #include "input.h" #include "index.h" #include "language.h" #include "output.h" #include "lang_cxx.h" /* * Public part */ char lang_cxx_defaults[] = "--f --F --i"; /* * Private part */ typedef enum { IP_CODE, IP_COMMENT_START, IP_COMMENT, IP_COMMENT_LINE, IP_COMMENT_END, IP_STRING, IP_QUOTE_STRING, IP_ESCAPED } cxx_ip_states; typedef enum { FN_INITIAL_SPACE, FN_FINAL_CHARS, FN_NAME, FN_CHAINED_NAME, FN_TRAIL_SPACE, FN_OPEN_BRACKET, FN_DBL_OPEN_BRACKET, FN_CLOSE_BRACKET, FN_ARG, FN_SEMICOLON, FN_BODY, FN_MACRO, FN_MACRO_ESCAPED } cxx_fn_states; /* * get_cxx_char() * detects comment starts and ends; * finds function names; * detects function ends; */ stream_status get_cxx_char(char *input_char, char_status *status) { static cxx_ip_states state=IP_CODE; static cxx_ip_states saved_state; cxx_ip_states old_state=state; stream_status retval; static cxx_fn_states fn_state; static cxx_fn_states saved_fn_state; static short fn_name_index; static char fn_name[SYMBOL_LEN] = "UNINITIALIZED"; static long start_char, end_char; static long fn_page_number; *status = CHAR_NORMAL; if (restart_language == TRUE) { state = IP_CODE; saved_state = IP_CODE; fn_state = FN_INITIAL_SPACE; start_char = 0; end_char = 0; fn_page_number= 0; braces_depth = 0; restart_language = FALSE; } retval = getnextchar(input_char); switch (state) { case IP_CODE: switch (*input_char) { case '/': state = IP_COMMENT_START; { stream_status s; char c; s = getnextchar(&c); if ((c == '*') || (c == '/')) *status = CHAR_ITALIC; ungetnextchar(c,s); } break; case '{': braces_depth += 1; if ((fn_state == FN_CLOSE_BRACKET) || (fn_state == FN_CHAINED_NAME) || (fn_state == FN_SEMICOLON)) { /* got function! */ add_function(fn_name,start_char,end_char,fn_page_number,current_filename); fn_name_index = 0; fn_state = FN_BODY; } break; case '}': if (((braces_depth -= 1) == 0) && (fn_state == FN_BODY)) { end_function(page_number); retval|=STREAM_FUNCTION_END; fn_state = FN_INITIAL_SPACE; } break; case '"': state=IP_STRING; break; case '\'': state=IP_QUOTE_STRING; break; default: ; } break; case IP_COMMENT_START: switch (*input_char) { case '/': state=IP_COMMENT_LINE; *status=CHAR_ITALIC; break; case '*': state=IP_COMMENT; *status=CHAR_ITALIC; break; case '{': state=IP_CODE; braces_depth+=1; break; case '}': if ((braces_depth -= 1) == 0) retval|=STREAM_FUNCTION_END; break; default: state=IP_CODE; break; } break; case IP_COMMENT: *status = CHAR_ITALIC; switch (*input_char) { case '*': state=IP_COMMENT_END; break; default: ; } break; case IP_COMMENT_LINE: *status = CHAR_ITALIC; switch (*input_char) { case '\n': state=IP_CODE; break; default: ; } break; case IP_COMMENT_END: *status = CHAR_ITALIC; switch (*input_char) { case '/': state=IP_CODE; break; case '*': break; default: state=IP_COMMENT; break; } break; case IP_STRING: switch (*input_char) { case '"': state=IP_CODE; break; case '\\': saved_state=state; state=IP_ESCAPED; break; default: ; } break; case IP_QUOTE_STRING: switch (*input_char) { case '\'': state=IP_CODE; break; case '\\': saved_state=state; state=IP_ESCAPED; break; default: ; } break; case IP_ESCAPED: state=saved_state; break; default: abort(); } if ((state == IP_CODE) && (old_state != IP_COMMENT_END)) switch (fn_state) { case FN_INITIAL_SPACE: if (isalpha(*input_char)) { fn_page_number = page_number; fn_name[fn_name_index++] = *input_char; start_char = char_number; fn_state = FN_NAME; } if (*input_char == '#') { saved_fn_state = fn_state; fn_state = FN_MACRO; } break; case FN_MACRO: if (*input_char == '\\') fn_state = FN_MACRO_ESCAPED; if (*input_char == '\n') fn_state = saved_fn_state; break; case FN_MACRO_ESCAPED: fn_state = FN_MACRO; break; case FN_NAME: if (isalnum(*input_char) || (*input_char == '_') || (*input_char == ':') || (*input_char == '~')) fn_name[fn_name_index++] = *input_char; else if (isspace(*input_char)) { fn_name[fn_name_index] = 0; end_char = char_number-1; fn_state = FN_TRAIL_SPACE; } else if (*input_char == '(') { fn_name[fn_name_index] = 0; end_char = char_number-1; fn_state = FN_OPEN_BRACKET; } else { fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_CHAINED_NAME: /* * This state is a bit of a cheat - we stay in this state * until the other FSM finds a {. This may find more * methods than are strictly there, but it'll work in all * normal cases. */ break; case FN_TRAIL_SPACE: if (isspace(*input_char)) break; else if (*input_char == '(') { fn_name[fn_name_index] = 0; fn_state = FN_OPEN_BRACKET; } else if (isalpha(*input_char)) { fn_name_index = 0; fn_name[fn_name_index++] = *input_char; fn_page_number = page_number; start_char = char_number; fn_state = FN_NAME; } else { fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_OPEN_BRACKET: if (*input_char == '(') fn_state = FN_DBL_OPEN_BRACKET; if (*input_char == ')') fn_state = FN_CLOSE_BRACKET; break; case FN_DBL_OPEN_BRACKET: if (*input_char == ')') fn_state = FN_OPEN_BRACKET; break; case FN_CLOSE_BRACKET: if (isspace(*input_char)) { break; } else if (*input_char == ':') { fn_state = FN_CHAINED_NAME; } else if (isalpha(*input_char) || (*input_char == '[')) { /* check for [ in case of bp listings! */ fn_state = FN_ARG; } else { fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_ARG: if (*input_char == ';') fn_state = FN_SEMICOLON; /* Treat ] as a semicolon in case of bp listings */ if (*input_char == ']') fn_state = FN_SEMICOLON; break; case FN_SEMICOLON: if (isspace(*input_char)) break; if (*status == CHAR_ITALIC) break; /* Take care of arg ending in ...[]; */ if (*input_char != ';') fn_state = FN_ARG; break; case FN_BODY: break; default: abort(); } if (pass==1) *status = get_function_name_posn(char_number,*status); return(retval); } trueprint-5.4/src/headers.c0000644000175000017500000000516007625761737012733 00000000000000/* * Source file: * headers.c * * Prints page headers. All functions are just front-ends to PS_startpage(). */ #include "config.h" #include #include "trueprint.h" #include "postscript.h" #include "options.h" #include "headers.h" static char *top_left_string; static char *top_centre_string; static char *top_right_string; static char *bottom_left_string; static char *bottom_centre_string; static char *bottom_right_string; static char *message_string; /* * Function: * setup_headers */ void setup_headers(void) { top_left_string = NULL; string_option("X", "left-header", "%L", &top_left_string, NULL, NULL, OPT_PAGE_FURNITURE, "specify string for left side of header"); bottom_left_string = NULL; string_option("x", "left-footer", "%L", &bottom_left_string, NULL, NULL, OPT_PAGE_FURNITURE, "specify string for left side of footer"); top_centre_string = NULL; string_option("Y", "center-header", "%N", &top_centre_string, NULL, NULL, OPT_PAGE_FURNITURE, "specify string for center of header"); bottom_centre_string = NULL; string_option("y", "center-footer", "%n %p", &bottom_centre_string, NULL, NULL, OPT_PAGE_FURNITURE, "specify string for center of footer"); top_right_string = NULL; string_option("Z", "right-header", "Page %P of %F", &top_right_string, NULL, NULL, OPT_PAGE_FURNITURE, "specify string for right side of header"); bottom_right_string = NULL; string_option("z", "right-footer", "Page %P of %F", &bottom_right_string, NULL, NULL, OPT_PAGE_FURNITURE, "specify string for right side of footer"); message_string = NULL; string_option("m", "message", NULL, &message_string, NULL, NULL, OPT_PAGE_FURNITURE, "message to be printed over page"); } /* * Function: * print_text_header */ void print_text_header(long page_number, long total_pages) { PS_startpage(top_left_string, top_centre_string, top_right_string, bottom_left_string, bottom_centre_string, bottom_right_string, message_string, page_number, total_pages, FALSE); } /* * Function: * print_file_header */ void print_file_header(long page_no) { char page_no_string[10]; sprintf(page_no_string, "Page %ld", page_no); PS_startpage("%L", "File Index", page_no_string, "%L", "File Index", page_no_string, message_string, page_no, 0, TRUE); } /* * Function: * print_index_header */ void print_index_header(long page_no) { char page_no_string[10]; sprintf(page_no_string, "Page %ld", page_no); PS_startpage("%L", "Function Index", page_no_string, "%L", "Function Index", page_no_string, message_string, page_no, 0, TRUE); } trueprint-5.4/src/lang_c.c0000644000175000017500000002776407625761737012561 00000000000000/* * Source file: * lang_c.c * * Contains get_c_char(), which parses C code. */ #include "config.h" #include #include #include #include "trueprint.h" #include "main.h" #include "input.h" #include "index.h" #include "language.h" #include "output.h" #include "lang_c.h" /* * Public part */ char lang_c_defaults[] = "--f --F --i"; char lang_pc_defaults[] = "--f --F --i"; /* * Private part */ typedef enum { IP_CODE, IP_COMMENT_START, IP_COMMENT, IP_COMMENT_LINE, IP_COMMENT_END, IP_STRING, IP_QUOTE_STRING, IP_ESCAPED } c_ip_states; typedef enum { FN_INITIAL_SPACE, FN_FINAL_CHARS, FN_NAME, FN_TRAIL_SPACE, FN_OPEN_BRACKET, FN_DBL_OPEN_BRACKET, FN_CLOSE_BRACKET, FN_ARG, FN_SEMICOLON, FN_BODY, FN_MACRO, FN_MACRO_ESCAPED } c_fn_states; /* * get_c_char() * detects comment starts and ends; * finds function names; * detects function ends; */ stream_status get_c_char(char *input_char, char_status *status) { static c_ip_states state=IP_CODE; static c_ip_states saved_state; c_ip_states old_state=state; stream_status retval; static c_fn_states fn_state; static c_fn_states saved_fn_state; static short fn_name_index; static char fn_name[SYMBOL_LEN] = "UNINITIALIZED"; static long start_char, end_char; static long fn_page_number; *status = CHAR_NORMAL; if (restart_language == TRUE) { state = IP_CODE; saved_state = IP_CODE; fn_state = FN_INITIAL_SPACE; start_char = 0; end_char = 0; fn_page_number= 0; braces_depth = 0; restart_language = FALSE; } retval = getnextchar(input_char); switch (state) { case IP_CODE: switch (*input_char) { case '/': state = IP_COMMENT_START; { stream_status s; char c; s = getnextchar(&c); if ((c == '*') || (c == '/')) *status = CHAR_ITALIC; ungetnextchar(c,s); } break; case '{': braces_depth += 1; if ((fn_state == FN_CLOSE_BRACKET) || (fn_state == FN_SEMICOLON)) { /* got function! */ add_function(fn_name,start_char,end_char,fn_page_number,current_filename); fn_name_index = 0; fn_state = FN_BODY; } break; case '}': if (((braces_depth -= 1) == 0) && (fn_state == FN_BODY)) { end_function(page_number); retval|=STREAM_FUNCTION_END; fn_state = FN_INITIAL_SPACE; } break; case '"': state=IP_STRING; break; case '\'': state=IP_QUOTE_STRING; break; default: ; } break; case IP_COMMENT_START: switch (*input_char) { case '/': state=IP_COMMENT_LINE; *status=CHAR_ITALIC; break; case '*': state=IP_COMMENT; *status=CHAR_ITALIC; break; case '{': state=IP_CODE; braces_depth+=1; break; case '}': if ((braces_depth -= 1) == 0) retval|=STREAM_FUNCTION_END; break; default: state=IP_CODE; break; } break; case IP_COMMENT: *status = CHAR_ITALIC; switch (*input_char) { case '*': state=IP_COMMENT_END; break; default: ; } break; case IP_COMMENT_LINE: *status = CHAR_ITALIC; switch (*input_char) { case '\n': state=IP_CODE; break; default: ; } break; case IP_COMMENT_END: *status = CHAR_ITALIC; switch (*input_char) { case '/': state=IP_CODE; break; case '*': break; default: state=IP_COMMENT; break; } break; case IP_STRING: switch (*input_char) { case '"': state=IP_CODE; break; case '\\': saved_state=state; state=IP_ESCAPED; break; default: ; } break; case IP_QUOTE_STRING: switch (*input_char) { case '\'': state=IP_CODE; break; case '\\': saved_state=state; state=IP_ESCAPED; break; default: ; } break; case IP_ESCAPED: state=saved_state; break; default: abort(); } if ((state == IP_CODE) && (old_state != IP_COMMENT_END)) switch (fn_state) { case FN_INITIAL_SPACE: if (isalpha(*input_char)) { fn_page_number = page_number; fn_name[fn_name_index++] = *input_char; start_char = char_number; fn_state = FN_NAME; } if (*input_char == '#') { saved_fn_state = fn_state; fn_state = FN_MACRO; } break; case FN_MACRO: if (*input_char == '\\') fn_state = FN_MACRO_ESCAPED; if (*input_char == '\n') fn_state = saved_fn_state; break; case FN_MACRO_ESCAPED: fn_state = FN_MACRO; break; case FN_NAME: if (isalnum(*input_char) || (*input_char == '_')) fn_name[fn_name_index++] = *input_char; else if (isspace(*input_char)) { fn_name[fn_name_index] = 0; end_char = char_number-1; fn_state = FN_TRAIL_SPACE; } else if (*input_char == '(') { fn_name[fn_name_index] = 0; end_char = char_number-1; fn_state = FN_OPEN_BRACKET; } else { fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_TRAIL_SPACE: if (isspace(*input_char)) break; else if (*input_char == '(') { fn_name[fn_name_index] = 0; fn_state = FN_OPEN_BRACKET; } else if (isalpha(*input_char)) { fn_name_index = 0; fn_name[fn_name_index++] = *input_char; fn_page_number = page_number; start_char = char_number; fn_state = FN_NAME; } else { fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_OPEN_BRACKET: if (*input_char == '(') fn_state = FN_DBL_OPEN_BRACKET; if (*input_char == ')') fn_state = FN_CLOSE_BRACKET; break; case FN_DBL_OPEN_BRACKET: if (*input_char == ')') fn_state = FN_OPEN_BRACKET; break; case FN_CLOSE_BRACKET: if (isspace(*input_char)) break; /* check for [ in case of bp listings! */ else if (isalpha(*input_char) || (*input_char == '[')) fn_state = FN_ARG; else { fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_ARG: if (*input_char == ';') fn_state = FN_SEMICOLON; /* Treat ] as a semicolon in case of bp listings */ if (*input_char == ']') fn_state = FN_SEMICOLON; break; case FN_SEMICOLON: if (isspace(*input_char)) break; if (*status == CHAR_ITALIC) break; /* Take care of arg ending in ...[]; */ if (*input_char != ';') fn_state = FN_ARG; break; case FN_BODY: break; default: abort(); } if (pass==1) *status = get_function_name_posn(char_number,*status); return(retval); } /* * get_pc_char() * Weaker version of get_c_char() - ignores strings * detects comment starts and ends; * finds function names; * detects function ends; * returns one of the following: */ stream_status get_pc_char(char *input_char, char_status *status) { static c_ip_states state=IP_CODE; static c_ip_states saved_state=IP_CODE; c_ip_states old_state=state; stream_status retval; static c_fn_states fn_state=FN_INITIAL_SPACE; static c_fn_states saved_fn_state; static short fn_name_index=0; static char fn_name[SYMBOL_LEN] = "UNINITIALIZED"; static long start_char=0, end_char=0; static long fn_page_number=0; *status = CHAR_NORMAL; if (restart_language == TRUE) { state = IP_CODE; saved_state = IP_CODE; fn_state = FN_INITIAL_SPACE; fn_name_index = 0; start_char = 0; end_char = 0; fn_page_number= 0; braces_depth = 0; restart_language = FALSE; } retval = getnextchar(input_char); switch (state) { case IP_CODE: switch (*input_char) { case '/': state = IP_COMMENT_START; break; case '{': braces_depth += 1; if ((fn_state == FN_CLOSE_BRACKET) || (fn_state == FN_SEMICOLON)) { /* got function! */ add_function(fn_name,start_char,end_char,fn_page_number,current_filename); fn_name_index = 0; fn_state = FN_BODY; } break; case '}': if (((braces_depth -= 1) == 0) && (fn_state == FN_BODY)) { end_function(page_number); retval|=STREAM_FUNCTION_END; fn_state = FN_INITIAL_SPACE; } break; /* case '"': state=IP_STRING; break; */ /* case '\'': state=IP_QUOTE_STRING; break; */ default: ; } break; case IP_COMMENT_START: switch (*input_char) { case '/': break; case '*': state=IP_COMMENT; { stream_status s; char c; s = getnextchar(&c); if (c == '*') *status = CHAR_ITALIC; ungetnextchar(c,s); } break; case '{': state=IP_CODE; braces_depth+=1; break; case '}': if ((braces_depth -= 1) == 0) retval|=STREAM_FUNCTION_END; break; default: state=IP_CODE; break; } break; case IP_COMMENT: *status = CHAR_ITALIC; switch (*input_char) { case '*': state=IP_COMMENT_END; break; default: ; } break; case IP_COMMENT_END: *status = CHAR_ITALIC; switch (*input_char) { case '/': state=IP_CODE; break; case '*': break; default: state=IP_COMMENT; break; } break; /* * case IP_STRING: * switch (*input_char) { * case '"': state=IP_CODE; break; * case '\\': saved_state=state; state=IP_ESCAPED; break; * } * break; */ /* * case IP_QUOTE_STRING: * switch (*input_char) { * case '\'': state=IP_CODE; break; * case '\\': saved_state=state; state=IP_ESCAPED; break; * } * break; */ case IP_ESCAPED: state=saved_state; break; default: abort(); } if ((state == IP_CODE) && (old_state != IP_COMMENT_END)) switch (fn_state) { case FN_INITIAL_SPACE: if (isalpha(*input_char)) { fn_page_number = page_number; fn_name[fn_name_index++] = *input_char; start_char = char_number; fn_state = FN_NAME; } if (*input_char == '#') { saved_fn_state = fn_state; fn_state = FN_MACRO; } break; case FN_MACRO: if (*input_char == '\\') fn_state = FN_MACRO_ESCAPED; if (*input_char == '\n') fn_state = saved_fn_state; break; case FN_MACRO_ESCAPED: fn_state = FN_MACRO; break; case FN_NAME: if (isalnum(*input_char) || (*input_char == '_')) fn_name[fn_name_index++] = *input_char; else if (isspace(*input_char)) { fn_name[fn_name_index] = 0; end_char = char_number-1; fn_state = FN_TRAIL_SPACE; } else if (*input_char == '(') { fn_name[fn_name_index] = 0; end_char = char_number-1; fn_state = FN_OPEN_BRACKET; } else { fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_TRAIL_SPACE: if (isspace(*input_char)) break; else if (*input_char == '(') { fn_name[fn_name_index] = 0; fn_state = FN_OPEN_BRACKET; } else if (isalpha(*input_char)) { fn_name_index = 0; fn_name[fn_name_index++] = *input_char; fn_page_number = page_number; start_char = char_number; fn_state = FN_NAME; } else { fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_OPEN_BRACKET: if (*input_char == '(') fn_state = FN_DBL_OPEN_BRACKET; if (*input_char == ')') fn_state = FN_CLOSE_BRACKET; break; case FN_DBL_OPEN_BRACKET: if (*input_char == ')') fn_state = FN_OPEN_BRACKET; break; case FN_CLOSE_BRACKET: if (isspace(*input_char)) break; else /* check for [ in case of bp listings! */ if (isalpha(*input_char) || (*input_char == '[')) fn_state = FN_ARG; else { fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_ARG: if (*input_char == ';') fn_state = FN_SEMICOLON; /* Treat ] as a semicolon in case of bp listings */ if (*input_char == ']') fn_state = FN_SEMICOLON; break; case FN_SEMICOLON: if (isspace(*input_char)) break; if (*status == CHAR_ITALIC) break; /* Take care of arg ending in ...[]; */ if (*input_char != ';') fn_state = FN_ARG; break; case FN_BODY: break; default: abort(); } if (pass==1) *status = get_function_name_posn(char_number,*status); return(retval); } trueprint-5.4/src/lang_report.c0000644000175000017500000000414707625761740013632 00000000000000/* * Source file: * lang_report.c * * Contains get_report_char() which parses text files in a special * format. ^B marks the beginning of a 'function name', ^E marks the end, * and ^C is the comment delimiter */ #include "config.h" #include #include #include #include #include "trueprint.h" #include "main.h" #include "input.h" #include "index.h" #include "output.h" #include "lang_report.h" /* * Public part */ char lang_report_defaults[] = "-i --F --f --b"; /* * Private part */ typedef enum { IP_TEXT, IP_COMMENT, IP_TAG } report_ip_states; /* * get_report_char() * detects comment starts and ends; * finds function names; */ stream_status get_report_char(char *input_char, char_status *status) { static report_ip_states state=IP_TEXT; stream_status retval; static size_t tag_index=0; static long tag_start_char=0; static char tag_name[SYMBOL_LEN]="UNINITIALIZED"; static long tag_page_number=0; *status = CHAR_NORMAL; retval = getnextchar(input_char); switch (state) { case IP_TEXT: switch (*input_char) { case 2: /* ^B */ retval = getnextchar(input_char); tag_index = 0; tag_name[tag_index++] = *input_char; tag_start_char = char_number; tag_page_number = page_number; state = IP_TAG; break; case 3: /* ^C */ *status = CHAR_ITALIC; retval = getnextchar(input_char); state=IP_COMMENT; break; default: ; } break; case IP_COMMENT: *status = CHAR_ITALIC; switch (*input_char) { case 3: /* ^C */ retval = getnextchar(input_char); state=IP_TEXT; break; default: ; } break; case IP_TAG: switch (*input_char) { case 5: /* ^E */ tag_name[tag_index++] = '\0'; add_function(tag_name,tag_start_char,char_number-1,tag_page_number,current_filename); end_function(page_number); retval = getnextchar(input_char); state=IP_TEXT; break; default: tag_name[tag_index++] = *input_char; break; } break; default: ; } if (pass==1) *status = get_function_name_posn(char_number,*status); return(retval); } trueprint-5.4/src/lang_java.c0000644000175000017500000001627607625761737013254 00000000000000/* * Source file: * lang_java.c * * Contains get_java_char(), which partially parses Java code. * It is essentially the same as get_c_char, except that it handles * java methods the same as c functions, and handles // comments. * No special indication of classes; that would require this parser to * understand a lot more of the language, such as the "class" keyword. * It doesn't recognize a method that's within a class within a method * within a class. * * Modified by Lezz to fit in with Trueprint 4.1.1 codebase (thanks Terry!) * * $Log: lang_java.c,v $ * Revision 1.1 2003/02/22 20:55:59 lgiles * *** empty log message *** * * Revision 1.1.1.1 2001/07/18 01:24:43 lgiles * Trueprint 5.3 * * Revision 1.1 1999/08/25 01:00:05 lgiles * Initial revision * * Revision 1.2 1998/08/28 19:30:41 tplatt * modified to handle "throws" clauses in method declarations, * added some (commented out) debug code * * Revision 1.1 98/08/17 18:49:13 18:49:13 tplatt (Terry L. Platt) * Initial revision * * * (created from lang_c.c Revision 1.2 98/08/17 16:55:14 ) */ #include "config.h" #include #include /* XXDEBUG */ #include #include "trueprint.h" #include "main.h" #include "input.h" #include "index.h" #include "language.h" #include "output.h" #include "lang_java.h" /* * Public part */ char lang_java_defaults[] = "-fy -Fy -xy -bn"; /* * Private part */ typedef enum { IP_CODE, IP_COMMENT_START, /* got "/" */ IP_COMMENT, /* got comment start */ IP_CPP_COMMENT, /* got "//" for Java & C++*/ IP_COMMENT_END, /* got comment end */ IP_STRING, /* got opening quote */ IP_QUOTE_STRING, /* got opening apostrophe */ IP_ESCAPED /* backslash inside STRING or QUOTE_STRING */ } java_ip_states; typedef enum { FN_INITIAL_SPACE, FN_FINAL_CHARS, FN_NAME, FN_TRAIL_SPACE, FN_OPEN_BRACKET, FN_DBL_OPEN_BRACKET, FN_CLOSE_BRACKET, FN_SEMICOLON, FN_BODY, FN_MACRO, FN_MACRO_ESCAPED } java_fn_states; /* * get_java_char() * detects comment starts and ends; * finds method names; * detects method ends; */ stream_status get_java_char(char *input_char, char_status *status) { static java_ip_states state=IP_CODE; static java_ip_states saved_state; /* for escaped char in a string */ java_ip_states old_state=state; stream_status retval; static java_fn_states fn_state=FN_INITIAL_SPACE; static java_fn_states saved_fn_state; /* for macros */ static short fn_name_index=0; static char fn_name[SYMBOL_LEN] = "UNINITIALIZED"; static long start_char, end_char; static long fn_page_number; static short saved_braces_depth = 0; /* for Java method extents */ *status = CHAR_NORMAL; if (restart_language == TRUE) { state = IP_CODE; saved_state = IP_CODE; fn_state = FN_INITIAL_SPACE; start_char = 0; end_char = 0; fn_page_number= 0; braces_depth = 0; restart_language = FALSE; } retval = getnextchar(input_char); switch (state) { case IP_CODE: switch (*input_char) { case '/': state = IP_COMMENT_START; { stream_status s; char c; s = getnextchar(&c); if (c == '*') *status = CHAR_ITALIC; ungetnextchar(c,s); } break; case '{': braces_depth += 1; if ((fn_state == FN_CLOSE_BRACKET) || (fn_state == FN_SEMICOLON)) { /* got method! */ add_function(fn_name,start_char,end_char,fn_page_number, current_filename); fn_name_index = 0; fn_state = FN_BODY; saved_braces_depth = braces_depth; /*Java*/ } break; case '}': if (((braces_depth -= 1) == saved_braces_depth-1) && (fn_state == FN_BODY)) { end_function(page_number); retval|=STREAM_FUNCTION_END; fn_state = FN_INITIAL_SPACE; } break; case '"': state=IP_STRING; break; case '\'': state=IP_QUOTE_STRING; break; } break; case IP_COMMENT_START: switch (*input_char) { case '/': state=IP_CPP_COMMENT; *status=CHAR_ITALIC; break; /*Java & C++*/ case '*': state=IP_COMMENT; *status=CHAR_ITALIC; break; case '{': state=IP_CODE; braces_depth+=1; break; case '}': if ((braces_depth -= 1) == 0) retval|=STREAM_FUNCTION_END; break; default: state=IP_CODE; break; } break; case IP_COMMENT: *status = CHAR_ITALIC; switch (*input_char) { case '*': state=IP_COMMENT_END; break; } break; case IP_CPP_COMMENT: /*Java & C++ */ switch (*input_char) { case '\n': state=IP_CODE; break; } break; case IP_COMMENT_END: *status = CHAR_ITALIC; switch (*input_char) { case '/': state=IP_CODE; break; case '*': break; default: state=IP_COMMENT; break; } break; case IP_STRING: switch (*input_char) { case '"': state=IP_CODE; break; case '\\': saved_state=state; state=IP_ESCAPED; break; } break; case IP_QUOTE_STRING: switch (*input_char) { case '\'': state=IP_CODE; break; case '\\': saved_state=state; state=IP_ESCAPED; break; } break; case IP_ESCAPED: state=saved_state; break; default: abort(); } /* end of switch (state) */ if ((state == IP_CODE) && (old_state != IP_COMMENT_END)) switch (fn_state) { case FN_INITIAL_SPACE: if (isalpha(*input_char)) { fn_page_number = page_number; fn_name[fn_name_index++] = *input_char; start_char = char_number; fn_state = FN_NAME; } if (*input_char == '#') { saved_fn_state = fn_state; fn_state = FN_MACRO; } break; case FN_MACRO: if (*input_char == '\\') fn_state = FN_MACRO_ESCAPED; if (*input_char == '\n') fn_state = saved_fn_state; break; case FN_MACRO_ESCAPED: fn_state = FN_MACRO; break; case FN_NAME: if (isalnum(*input_char) || (*input_char == '_')) fn_name[fn_name_index++] = *input_char; else if (isspace(*input_char)) { fn_name[fn_name_index] = 0; end_char = char_number-1; fn_state = FN_TRAIL_SPACE; } else if (*input_char == '(') { fn_name[fn_name_index] = 0; end_char = char_number-1; fn_state = FN_OPEN_BRACKET; } else { fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_TRAIL_SPACE: if (isspace(*input_char)) break; else if (*input_char == '(') { fn_name[fn_name_index] = 0; fn_state = FN_OPEN_BRACKET; } else if (isalpha(*input_char)) { fn_name_index = 0; fn_name[fn_name_index++] = *input_char; fn_page_number = page_number; start_char = char_number; fn_state = FN_NAME; } else { fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_OPEN_BRACKET: if (*input_char == '(') fn_state = FN_DBL_OPEN_BRACKET; if (*input_char == ')') fn_state = FN_CLOSE_BRACKET; break; case FN_DBL_OPEN_BRACKET: if (*input_char == ')') fn_state = FN_OPEN_BRACKET; break; case FN_CLOSE_BRACKET: if (ispunct(*input_char)) { fn_name_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_BODY: break; default: abort(); } /* end of switch (fn_state) */ if (pass==1) *status = get_function_name_posn(char_number, *status); return(retval); } trueprint-5.4/src/getopt1.c0000644000175000017500000001072007625761737012701 00000000000000/* getopt_long and getopt_long_only entry points for GNU getopt. Copyright (C) 1987,88,89,90,91,92,93,94,96,97 Free Software Foundation, Inc. NOTE: The canonical source of this file is maintained with the GNU C Library. Bugs can be reported to bug-glibc@prep.ai.mit.edu. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifdef HAVE_CONFIG_H #include #endif #include "getopt.h" #if !defined (__STDC__) || !__STDC__ /* This is a separate conditional since some stdc systems reject `defined (const)'. */ #ifndef const #define const #endif #endif #include /* Comment out all this code if we are using the GNU C Library, and are not actually compiling the library itself. This code is part of the GNU C Library, but also included in many other GNU distributions. Compiling and linking in this code is a waste when using the GNU C library (especially if it is a shared library). Rather than having every GNU program understand `configure --with-gnu-libc' and omit the object files, it is simpler to just do this in the source for each such file. */ #define GETOPT_INTERFACE_VERSION 2 #if !defined (_LIBC) && defined (__GLIBC__) && __GLIBC__ >= 2 #include #if _GNU_GETOPT_INTERFACE_VERSION == GETOPT_INTERFACE_VERSION #define ELIDE_CODE #endif #endif #ifndef ELIDE_CODE /* This needs to come after some library #include to get __GNU_LIBRARY__ defined. */ #ifdef __GNU_LIBRARY__ #include #endif #ifndef NULL #define NULL 0 #endif int getopt_long (argc, argv, options, long_options, opt_index) int argc; char *const *argv; const char *options; const struct option *long_options; int *opt_index; { return _getopt_internal (argc, argv, options, long_options, opt_index, 0); } /* Like getopt_long, but '-' as well as '--' can indicate a long option. If an option that starts with '-' (not '--') doesn't match a long option, but does match a short option, it is parsed as a short option instead. */ int getopt_long_only (argc, argv, options, long_options, opt_index) int argc; char *const *argv; const char *options; const struct option *long_options; int *opt_index; { return _getopt_internal (argc, argv, options, long_options, opt_index, 1); } #endif /* Not ELIDE_CODE. */ #ifdef TEST #include int main (argc, argv) int argc; char **argv; { int c; int digit_optind = 0; while (1) { int this_option_optind = optind ? optind : 1; int option_index = 0; static struct option long_options[] = { {"add", 1, 0, 0}, {"append", 0, 0, 0}, {"delete", 1, 0, 0}, {"verbose", 0, 0, 0}, {"create", 0, 0, 0}, {"file", 1, 0, 0}, {0, 0, 0, 0} }; c = getopt_long (argc, argv, "abc:d:0123456789", long_options, &option_index); if (c == -1) break; switch (c) { case 0: printf ("option %s", long_options[option_index].name); if (optarg) printf (" with arg %s", optarg); printf ("\n"); break; case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': if (digit_optind != 0 && digit_optind != this_option_optind) printf ("digits occur in two different argv-elements.\n"); digit_optind = this_option_optind; printf ("option %c\n", c); break; case 'a': printf ("option a\n"); break; case 'b': printf ("option b\n"); break; case 'c': printf ("option c with value `%s'\n", optarg); break; case 'd': printf ("option d with value `%s'\n", optarg); break; case '?': break; default: printf ("?? getopt returned character code 0%o ??\n", c); } } if (optind < argc) { printf ("non-option ARGV-elements: "); while (optind < argc) printf ("%s ", argv[optind++]); printf ("\n"); } exit (0); } #endif /* TEST */ trueprint-5.4/src/getopt.h0000644000175000017500000001076707625761737012640 00000000000000/* Declarations for getopt. Copyright (C) 1989,90,91,92,93,94,96,97 Free Software Foundation, Inc. NOTE: The canonical source of this file is maintained with the GNU C Library. Bugs can be reported to bug-glibc@prep.ai.mit.edu. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifndef _GETOPT_H #define _GETOPT_H 1 #ifdef __cplusplus extern "C" { #endif /* For communication from `getopt' to the caller. When `getopt' finds an option that takes an argument, the argument value is returned here. Also, when `ordering' is RETURN_IN_ORDER, each non-option ARGV-element is returned here. */ extern char *optarg; /* Index in ARGV of the next element to be scanned. This is used for communication to and from the caller and for communication between successive calls to `getopt'. On entry to `getopt', zero means this is the first call; initialize. When `getopt' returns -1, this is the index of the first of the non-option elements that the caller should itself scan. Otherwise, `optind' communicates from one call to the next how much of ARGV has been scanned so far. */ extern int optind; /* Callers store zero here to inhibit the error message `getopt' prints for unrecognized options. */ extern int opterr; /* Set to an option character which was unrecognized. */ extern int optopt; /* Describe the long-named options requested by the application. The LONG_OPTIONS argument to getopt_long or getopt_long_only is a vector of `struct option' terminated by an element containing a name which is zero. The field `has_arg' is: no_argument (or 0) if the option does not take an argument, required_argument (or 1) if the option requires an argument, optional_argument (or 2) if the option takes an optional argument. If the field `flag' is not NULL, it points to a variable that is set to the value given in the field `val' when the option is found, but left unchanged if the option is not found. To have a long-named option do something other than set an `int' to a compiled-in constant, such as set a value from `optarg', set the option's `flag' field to zero and its `val' field to a nonzero value (the equivalent single-letter option character, if there is one). For long options that have a zero `flag' field, `getopt' returns the contents of the `val' field. */ struct option { #if defined (__STDC__) && __STDC__ const char *name; #else char *name; #endif /* has_arg can't be an enum because some compilers complain about type mismatches in all the code that assumes it is an int. */ int has_arg; int *flag; int val; }; /* Names for the values of the `has_arg' field of `struct option'. */ #define no_argument 0 #define required_argument 1 #define optional_argument 2 #if defined (__STDC__) && __STDC__ #ifdef __GNU_LIBRARY__ /* Many other libraries have conflicting prototypes for getopt, with differences in the consts, in stdlib.h. To avoid compilation errors, only prototype getopt for the GNU C library. */ extern int getopt (int argc, char *const *argv, const char *shortopts); #else /* not __GNU_LIBRARY__ */ extern int getopt (); #endif /* __GNU_LIBRARY__ */ extern int getopt_long (int argc, char *const *argv, const char *shortopts, const struct option *longopts, int *longind); extern int getopt_long_only (int argc, char *const *argv, const char *shortopts, const struct option *longopts, int *longind); /* Internal only. Users should not call this directly. */ extern int _getopt_internal (int argc, char *const *argv, const char *shortopts, const struct option *longopts, int *longind, int long_only); #else /* not __STDC__ */ extern int getopt (); extern int getopt_long (); extern int getopt_long_only (); extern int _getopt_internal (); #endif /* __STDC__ */ #ifdef __cplusplus } #endif #endif /* getopt.h */ trueprint-5.4/src/utils.c0000644000175000017500000000123107625761740012445 00000000000000/* * Source file: * utils.c */ #include "config.h" #include #include #include #include #include "trueprint.h" #include "utils.h" void skipspaces(char **ptr) { while (**ptr && isspace(**ptr)) (*ptr)++; } void * xmalloc(size_t s) { void *r; if ((r = malloc(s)) == NULL) { fprintf(stderr, gettext(CMD_NAME ": cannot allocate memory\n")); exit(2); } return r; } void * xrealloc(void *v, size_t s) { void *r; if ((r = realloc(v,s)) == NULL) { fprintf(stderr, gettext(CMD_NAME ": cannot reallocate memory\n")); exit(2); } return r; } #if ! HAVE_GETTEXT #endif trueprint-5.4/src/lang_sh.c0000644000175000017500000002120507625761740012723 00000000000000/* * Source file: * lang_sh.c * * Contains get_sh_char() which parses shell code. */ #include "config.h" #include #include #include #include #include "trueprint.h" #include "main.h" #include "input.h" #include "index.h" #include "language.h" #include "output.h" #include "lang_sh.h" /* * Public part */ char lang_sh_defaults[] = "-i --F --f"; /* * Private part */ typedef enum { IP_CODE, IP_STRING, IP_QSTRING, IP_COMMENT, IP_COMMAND, IP_VAR1, IP_VARBODY, IP_HD1, IP_HD2, IP_HDSTART, IP_HD, IP_HDSTARTLINE, IP_HDCHECKSTRING } sh_ip_states; typedef enum { F1_CODE, F1_FUNCTION, F1_LEADING_SPACE, F1_NAME, F1_TRAILING_SPACE, F1_FNTEXT } sh_f1_states; typedef enum { FN_INITIAL_SPACE, FN_NAME, FN_TRAIL_SPACE, FN_OPEN_BRACKET, FN_CLOSE_BRACKET, FN_FNTEXT } sh_fn_states; /* * get_sh_char() * detects comment starts and ends; * finds function names; * detects function ends; * returns one of the following: * CHAR * COMMENT_START * COMMENT_END * FUNCTION_END * FILE_END * INPUT_END * FUNCTION_NAME_START * FUNCTION_NAME_END */ stream_status get_sh_char(char *input_char, char_status *status) { static sh_ip_states state=IP_CODE; stream_status retval; static sh_f1_states f1_state=F1_CODE; static sh_fn_states fn_state=FN_INITIAL_SPACE; static size_t f1_index=0; static short fn_index=0; static long f1_start_char=0; static long fn_start_char=0; static long f1_end_char=0; static long fn_end_char=0; static char f1_name[SYMBOL_LEN]="UNINITIALIZED"; static char fn_name[SYMBOL_LEN]="UNINITIALIZED"; static char here_marker[SYMBOL_LEN]; static short here_marker_index; static short here_marker_length; static long f1_page_number=0; static long fn_page_number=0; static char function[]="function"; static boolean escaped=FALSE; *status = CHAR_NORMAL; if (restart_language == TRUE) { state = IP_CODE; f1_state = F1_CODE; fn_state = FN_INITIAL_SPACE; f1_index = 0; fn_index = 0; f1_start_char = 0; fn_start_char = 0; f1_end_char = 0; fn_end_char = 0; f1_page_number= 0; fn_page_number= 0; escaped = FALSE; braces_depth = 0; restart_language = FALSE; } retval = getnextchar(input_char); dm('L',9,"lang_sh.c:state=%d,f1_state=%d,fn_state=%d,input=%c\n",state,f1_state,fn_state,*input_char); /* First a short switch to sort out escaped stuff... */ switch (state) { case IP_CODE: case IP_STRING: case IP_QSTRING: case IP_COMMAND: case IP_VARBODY: if (escaped) { escaped=FALSE; break; } /* otherwise drop through */ case IP_HD1: case IP_HD2: case IP_VAR1: case IP_HDSTART: if ((*input_char == '\\') && !escaped) { escaped = TRUE; break; } /* otherwise drop through */ default: switch (state) { case IP_CODE: switch (*input_char) { case '$': state=IP_VAR1; break; case '"': state=IP_STRING; break; case '\'': state=IP_QSTRING; break; case '`': state=IP_COMMAND; break; case '#': *status = CHAR_ITALIC; state=IP_COMMENT; break; case '<': state=IP_HD1; break; case '{': if (braces_depth == 0) { if (f1_state == F1_TRAILING_SPACE) { add_function(f1_name,f1_start_char,f1_end_char,f1_page_number,current_filename); f1_index = 0; f1_state = F1_FNTEXT; } else if (fn_state == FN_CLOSE_BRACKET) { add_function(fn_name, fn_start_char, fn_end_char,fn_page_number,current_filename); fn_index = 0; fn_state = FN_FNTEXT; } } braces_depth++; break; case '}': if (((braces_depth -= 1) == 0) && ((f1_state == F1_FNTEXT) || (fn_state == FN_FNTEXT))) { end_function(page_number); retval |= STREAM_FUNCTION_END; f1_state = F1_CODE; fn_state = FN_INITIAL_SPACE; } break; default: ; } break; case IP_STRING: if (*input_char == '"') state=IP_CODE; break; case IP_QSTRING: if (*input_char == '\'') state=IP_CODE; break; case IP_COMMAND: if (*input_char == '`') state=IP_CODE; break; case IP_COMMENT: *status = CHAR_ITALIC; if (*input_char == '\n') { state=IP_CODE; } break; case IP_VAR1: if (escaped) { state=IP_CODE; escaped=FALSE; break; } if (*input_char == '{') state=IP_VARBODY; else state=IP_CODE; break; case IP_VARBODY: if (*input_char == '}') state=IP_CODE; break; case IP_HD1: if (escaped) { state=IP_CODE; escaped=FALSE; break; } if (*input_char == '<') state=IP_HD2; else state=IP_CODE; break; case IP_HD2: if ((escaped || ((*input_char != '-') && (!isspace(*input_char)))) && (*input_char != '"') && (*input_char != '\'')) { escaped = FALSE; here_marker[here_marker_index=0] = *input_char; state = IP_HDSTART; break; } if (*input_char == '-') break; if (isspace(*input_char) || (*input_char == '"') || (*input_char == '\'')) break; state=IP_CODE; break; case IP_HDSTART: if ((escaped || !isspace(*input_char)) && (*input_char != '"') && (*input_char != '\'')) { escaped = FALSE; here_marker[++here_marker_index] = *input_char; break; } here_marker_length = here_marker_index+1; here_marker_index = 0; state=IP_HD; break; case IP_HD: if (*input_char == '\n') state = IP_HDSTARTLINE; break; case IP_HDSTARTLINE: if ((*input_char == '\n') || (isspace(*input_char))) break; state=IP_HDCHECKSTRING; /* else fall through */ case IP_HDCHECKSTRING: if ((*input_char == '"') || (*input_char == '\'')) break; if (*input_char != here_marker[here_marker_index++]) { if ((here_marker_index == here_marker_length+1) && (*input_char == '\n')) { state=IP_CODE; break; } state=IP_HD; here_marker_index=0; } break; default: abort(); } } if (state == IP_CODE) { switch (f1_state) { case F1_CODE: if (*input_char == 'f') { f1_index = 1; f1_state = F1_FUNCTION; f1_page_number = page_number; } break; case F1_FUNCTION: if (*input_char == function[f1_index++]) { if (f1_index == strlen(function)) f1_state = F1_LEADING_SPACE; } else f1_state = F1_CODE; break; case F1_LEADING_SPACE: if (isspace(*input_char)) break; if (isalpha(*input_char)) { f1_page_number = page_number; f1_name[f1_index=0] = *input_char; f1_start_char = char_number; f1_state=F1_NAME; break; } f1_state = F1_CODE; break; case F1_NAME: if (isalnum(*input_char) || (*input_char == '_')) { f1_name[++f1_index] = *input_char; } else { f1_name[++f1_index] = '\0'; f1_end_char = char_number - 1; f1_state = F1_TRAILING_SPACE; } break; case F1_TRAILING_SPACE: if (!isspace(*input_char)) f1_state = F1_FNTEXT; break; default: ; } } if (state == IP_CODE) { switch (fn_state) { case FN_INITIAL_SPACE: if (isalpha(*input_char)) { fn_page_number = page_number; fn_name[fn_index++] = *input_char; fn_start_char = char_number; fn_state = FN_NAME; } break; case FN_NAME: if (isalnum(*input_char) || (*input_char == '_')) fn_name[fn_index++] = *input_char; else if (isspace(*input_char)) { fn_name[fn_index] = '\0'; fn_end_char = char_number - 1; fn_state = FN_TRAIL_SPACE; } else if (*input_char == '(') { fn_name[fn_index] = '\0'; fn_end_char = char_number - 1; fn_state = FN_OPEN_BRACKET; } else { fn_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_TRAIL_SPACE: if (isspace(*input_char)) break; else if (*input_char == '(') fn_state = FN_OPEN_BRACKET; else if (isalpha(*input_char)) { fn_index=0; fn_page_number = page_number; fn_name[fn_index++] = *input_char; fn_start_char = char_number; fn_state = FN_NAME; } else { fn_index = 0; fn_state = FN_INITIAL_SPACE; } break; case FN_OPEN_BRACKET: if (*input_char == ')') fn_state = FN_CLOSE_BRACKET; break; case FN_CLOSE_BRACKET: if (isspace(*input_char)) break; fn_index=0; fn_page_number = page_number; fn_name[fn_index++] = *input_char; fn_start_char = char_number; fn_state = FN_NAME; break; default: ; } } if (pass==1) *status = get_function_name_posn(char_number,*status); return(retval); } trueprint-5.4/src/output.c0000644000175000017500000004320207625761740012651 00000000000000/* * Source file: * output.c * * Contains the formatting and output functions. */ #include "config.h" #include #include #include #include #include "trueprint.h" #include "main.h" #include "diffs.h" #include "headers.h" #include "index.h" #include "postscript.h" #include "language.h" #include "print_prompt.h" #include "debug.h" #include "options.h" #include "utils.h" #include "output.h" /****************************************************************************** * Public part */ long file_page_number; long page_number; /****************************************************************************** * Private part */ typedef enum { INSERT, DELETE, NORMAL } diff_states; static void add_char(short position,char character,char_status status,char *line,char_status line_status[]); static int line_end(char *input_line, int last_char_printed); static stream_status printnextline(void); static boolean blank_page(boolean print_page); /* * Local variables */ static boolean no_clever_wrap; static short min_line_length; static short tabsize; static boolean no_function_page_breaks; static boolean new_sheet_after_file; static boolean no_expand_page_break; static long line_number; static boolean reached_end_of_sheet; static char *segment_ends[4][3] = { /* INSERT DELETE NORMAL */ /* NORMAL */ { ") BF setfont show ", ") CF setfont So show ", ") CF setfont show " }, /* ITALIC */ { ") IF setfont Bs ", ") IF setfont So show ", ") IF setfont show " }, /* BOLD */ { ") BF setfont show ", ") BF setfont So show ", ") BF setfont show " }, /* UNDERLINE */ { ") BF setfont Ul show", ") CF setfont So Ul show ",") CF setfont Ul show " }, }; /****************************************************************************** * Function: * init_output */ void init_output(void) { line_number = 0; page_number = 0; } /****************************************************************************** * Function: * setup_output */ void setup_output(void) { boolean_option("b", "no-page-break-after-function", "page-break-after-function", TRUE, &no_function_page_breaks, NULL, NULL, OPT_TEXT_FORMAT, "don't print page breaks at the end of functions", "print page breaks at the end of functions"); boolean_option(NULL, "new-sheet-after-file", "no-new-sheet-after-file", TRUE, &new_sheet_after_file, NULL, NULL, OPT_TEXT_FORMAT, "Print each file on a new sheet of paper", "Don't print each file on a new sheet of paper"); boolean_option("W", "no-intelligent-line-wrap", "intelligent-line-wrap", FALSE, &no_clever_wrap, NULL, NULL, OPT_TEXT_FORMAT, "Wrap lines at exactly the line-wrap column", "Wrap lines intelligently at significant characters, such\n" " as a space"); short_option("L", "minimum-line-length", 10, NULL, 0, 5, 4096, &min_line_length, NULL, NULL, OPT_TEXT_FORMAT, "minimum line length permitted by intelligent line wrap (default 10)", NULL); short_option("T", "tabsize", 8, NULL, 0, 1, 20, &tabsize, NULL, NULL, OPT_TEXT_FORMAT, "set tabsize (default 8)", NULL); boolean_option("E", "ignore-form-feeds", "form-feeds", FALSE, &no_expand_page_break, NULL, NULL, OPT_TEXT_FORMAT, "don't expand form feed characters to new page", "expand form feed characters to new page"); } /****************************************************************************** * Function: * add_char * * Simply adds a character plus status to a couple of arrays */ void add_char(short position,char character,char_status status,char *line,char_status line_status[]) { if (position >= MAXLINELENGTH) fprintf(stderr, gettext(CMD_NAME ": line too long! Are you sure this is a program listing?\n")); line[position] = character; line_status[position] = status; } /****************************************************************************** * Function: * getnextline * Gets the next full line of input and expands tabs. * Always returns data, even if it is a blank line. */ stream_status getnextline(stream_status (*get_input_char)(char *,char_status *), boolean *blank_line, char input_line[], char_status input_status[]) { char input_char; short line_position=0; stream_status retval = STREAM_OK; char_status status; *blank_line = TRUE; do { retval |= get_input_char(&input_char,&status); if (!isspace(input_char)) *blank_line = FALSE; if (input_char == '\t') { /* * if we read a tab then expand it out. */ short tab_stop = tabsize + line_position - line_position%tabsize; short cursor; for (cursor=line_position;cursor < tab_stop;cursor++) add_char(cursor,' ',status,input_line,input_status); line_position = tab_stop; } else if (input_char == '\n') { break; } else if (input_char == '\014') { /* * if a newpage character then convert to space */ if (no_expand_page_break == FALSE) { retval |= STREAM_PAGE_END; add_char(line_position++,' ',status,input_line,input_status); } else { add_char(line_position++,'_',status,input_line,input_status); } } else if (iscntrl(input_char)) { /* * if a control character then convert to underscore */ add_char(line_position++,'_',status,input_line,input_status); } else { add_char(line_position++,input_char,status,input_line,input_status); } } while (!(retval & (STREAM_FILE_END))); /* * put a null at the end of the line */ input_line[line_position] = 0; return(retval); } /* * function: * line_end * * we have a line that may need to be broken. * search from the end of the line backwards, looking for a suitable * place to break the line. */ int line_end(char *input_line, int last_char_printed) { int input_line_length; boolean got_end=FALSE; short break_index; int output_line_end; input_line_length = (int)strlen(input_line); dm('O',4,"output.c:line_end() line length is %d\n",input_line_length); if (page_width == 0) { /* * The line doesn't need to be broken */ output_line_end = input_line_length - 1; return(output_line_end); } if ((input_line_length - last_char_printed) > page_width) { if (no_clever_wrap == TRUE) { /* * Don't need to do anything clever - just return the * point in the string which is "page_width" plus * the last point printed. */ return (last_char_printed + page_width); } /* * the line needs to be broken. there is an array, breaks, * containing valid symbols that a line can be broken on. * what now needs to be done is to work through the array, * starting with the most desirable break character, until * one of the break characters is found in the line and then * the line can be broken there. */ for (break_index=0; break_index < BREAKSLENGTH; break_index++) { for (output_line_end = last_char_printed + page_width; output_line_end > last_char_printed + min_line_length; output_line_end--) if (input_line[output_line_end] == BREAKS[break_index]) { got_end=TRUE; break; } if (got_end == TRUE) break; } if (got_end == FALSE) output_line_end = last_char_printed+page_width; if (output_line_end >= input_line_length) output_line_end = input_line_length; } else /* the line doesn't need to be broken at all. */ output_line_end = input_line_length - 1; return(output_line_end); } /* * function: * printnextline * * prints a line of code on stdout, splitting at appropriate locations. * behaves very similarly for pass 0 and for pass 1, except it doesn't * print anything out during pass 0. */ stream_status printnextline() { static char input_line[MAXLINELENGTH]; static char_status input_status[MAXLINELENGTH]; static int last_char_printed; static int input_line_length=0; int output_line_end; static stream_status retval=STREAM_OK; int output_char_idx; boolean first_line_segment=FALSE; short count; static diff_states diff_state=NORMAL; boolean blank_line; char_status last_char_status; /* * See if we need to read in a new line */ if (input_line_length == 0) { /* * we do - check to see if there might be a deleted * line that needs to be printed before the current * line. if diff_state is delete then there is already * a line waiting in input_line... * * diff_state: * NORMAL need another line, retval set to return of previous * getnextline() or LINE * DELETE line waiting in input_line, retval set to return of * previous getnextline() or LINE * INSERT should never happen */ dm('O',4,"output.c:printnextline() Need new line\n"); switch (diff_state) { case NORMAL: dm('O',4,"output.c:printnextline() diff_state is NORMAL\n"); if (getdelline(line_number+1,input_line,input_status)){ dm('O',4,"output.c:printnextline() Found deleted line - diff_state is now DELETE\n"); diff_state = DELETE; } else { /* * there isn't a deleted line - get * the next line and check if this is * an inserted line. */ line_number += 1; retval = getnextline(get_char,&blank_line,input_line,input_status); if (line_inserted(line_number)) { dm('O',4,"output.c:printnextline() This line is inserted - diff_state is now INSERT\n"); diff_state = INSERT; } else { dm('O',4,"output.c:printnextline() Nothing unusual - diff_state is still NORMAL\n"); diff_state = NORMAL; } } break; case DELETE: dm('O',4,"output.c:printnextline() diff_state is DELETE\n"); /* * There is already a line in input_line, put there at the end * of the previous call to print_page() */ break; case INSERT: default: abort(); } input_line_length = (int)strlen(input_line); last_char_printed = -1; first_line_segment = TRUE; /* * At this point * diff_state * NORMAL print the line, retval set to return of getnextline() * DELETE print the deleted line, retval is set to return of * previous getnextline() or LINE * INSERT print the line as an inserted line, retval is set to * return of getnextline() */ /* * page_has_changed() flags this page and function as having changed */ if (diff_state != NORMAL) page_has_changed(page_number); if (pass == 1) { /* * a new line of source file is about to be printed - so * the appropriate line start, including line number and * a mark to show insertions or deletions, needs to be * printed. */ if (diff_state == DELETE) { dm('O',4,"output.c:printnextline() Printing line with diff state DELETE\n"); if ((no_show_line_number == FALSE) || (no_show_indent_level == FALSE)) PUTS("Lpt (- ) CFs setfont show ("); else PUTS("Lpt (-) CFs setfont show ("); } else { if (diff_state == INSERT) { dm('O',4,"output.c:printnextline() Printing line with diff state INSERT\n"); PUTS("Lpt BFs setfont (+"); } else { dm('O',4,"output.c:printnextline() Printing line with diff state NORMAL\n"); PUTS("Lpt CFs setfont ( "); } if (blank_line) PUTS(" "); else if ((no_show_line_number == FALSE) || (no_show_indent_level == FALSE)) { if (no_show_line_number == FALSE) printf("%5ld ",line_number); else PUTS(" "); if ((no_show_indent_level == FALSE) && (braces_depth != 0)) printf("%2d ",braces_depth); else PUTS(" "); } PUTS(") show ("); } } } else { if (pass == 1) { if (diff_state == DELETE) { dm('O',4,"output.c:printnextline() Printing line with diff state DELETE\n"); PUTS("Lpt CFs setfont ( "); } else if (diff_state == INSERT) { dm('O',4,"output.c:printnextline() Printing line with diff state INSERT\n"); PUTS("Lpt BFs setfont ( "); } else { dm('O',4,"output.c:printnextline() Printing line with diff state NORMAL\n"); PUTS("Lpt CFs setfont ( "); } if ((no_show_line_number == FALSE) || (no_show_indent_level == FALSE)) PUTS(" "); PUTS(") show ("); } } /* * now work out where (and if) the line needs to be split... */ output_line_end = line_end(input_line,last_char_printed); if (pass == 1) { output_char_idx = last_char_printed; if ((no_clever_wrap == FALSE) && !first_line_segment) { /* want to pad the outgoing line with leading spaces */ int leading_spaces = page_width - (output_line_end - last_char_printed); for (count=1; count < leading_spaces; count++) putchar(' '); } /* * now print the line a character at a time... with some clever * coding this could probably be speeded up by printing sections * of the line instead of single characters. */ last_char_status = input_status[output_char_idx+1]; while (output_char_idx < output_line_end) { output_char_idx += 1; /* * Check to see if anything should be printed * out before printing the character */ if (last_char_status != input_status[output_char_idx]) { PUTS(segment_ends[last_char_status][diff_state]); PUTS("("); } /* * Print the character.... */ switch(input_line[output_char_idx]) { case '(': case ')': case '\\': putchar('\\'); break; default: ; } putchar(input_line[output_char_idx]); last_char_status = input_status[output_char_idx]; } PUTS(segment_ends[last_char_status][diff_state]); PUTS(" Nl\n"); output_char_idx++; } last_char_printed = output_line_end; /* * Have we reached the end of the line to be printed? */ if (last_char_printed == input_line_length-1) { /* * At this point: * diff_state * NORMAL line printed, retval set to return of getnextline() * INSERT line printed, retval is set to return of getnextline() * DELETE deleted line printed, retval is set to return of * previous getnextline() or STREAM_OK * * We should now check to see if there are * any deleted lines to be printed. If there are then set diff_state * and start printing them next time round. Otherwise return retval. */ input_line_length = 0; if (getdelline(line_number+1,input_line,input_status)) { diff_state = DELETE; dm('O',3,"output.c:printnextline() Return value is STREAM_OK\n"); return(STREAM_OK); } diff_state = NORMAL; if (retval & STREAM_FILE_END) { /* * Set everything up for the next file */ line_number = 0; retval = STREAM_OK; dm('O',3,"output.c:printnextline() Return value is STREAM_FILE_END\n"); return (STREAM_FILE_END); } dm('O',3,"output.c:printnextline() Return value is %x\n", retval); return(retval); } else { dm('O',3,"output.c:printnextline() Not fully printed this line - return value is LINE\n"); return(STREAM_OK); } } /****************************************************************************** * function: * blank_page * prints out a blank page (well, what did you expect!). */ boolean blank_page(boolean output_page) { file_page_number += 1; page_number += 1; print_text_header(page_number, total_pages); return PS_endpage(output_page); } /****************************************************************************** * function: * print_page * * prints out a single page of a file. */ boolean print_page(void) { short page_line_number = 0; stream_status retval=STREAM_OK; file_page_number += 1; page_number += 1; dm('O',2,"output.c:print_page() Printing file %d page %d, filepage %d, pass %d\n", file_number, page_number, file_page_number, pass); /* * Print a page header */ print_text_header(page_number, total_pages); /* * now print out enough lines to fill the page or until we've reached * a page break (which is caused by end of input, file, function or * a newpage character). */ while (page_line_number < page_length) { dm('O',3,"output.c:print_page() Printing line %d\n", page_line_number); retval = printnextline(); page_line_number += 1; if ((retval & (STREAM_PAGE_END|STREAM_FILE_END)) || ((retval & STREAM_FUNCTION_END) && (no_function_page_breaks == FALSE))) break; } /* * And finally end the page */ reached_end_of_sheet = PS_endpage(print_prompt(PAGE_BODY, file_page_number, file_name(file_number))); dm('O',2,"output.c:print_page() retval %x\n", retval); return (!(retval & STREAM_FILE_END)); } /* * function: * print_file * * prints out a page at a time, calling blank_page to ensure an even number * of pages at the end of the file. */ void print_file(void) { file_page_number = 0; /* * set get_char appropriately */ set_get_char(current_filename); while (print_page()); /* * we want to ensure that each file starts on an odd page (i.e. a * new sheet of paper, and also that the whole output has an even * number of pages in total, so print any blank pages necessary. */ if (new_sheet_after_file) { fill_sheet_with_blank_pages(); } } /* * Print blank pages until the last page printed was the last page * on a physical sheet. */ void fill_sheet_with_blank_pages(void) { while (!reached_end_of_sheet) { dm('O',3,"output.c:print_page() Printing a blank page\n"); reached_end_of_sheet = blank_page(print_prompt(PAGE_BLANK, 0, NULL)); } } trueprint-5.4/src/lang_verilog.c0000644000175000017500000000537207625761740013767 00000000000000/* * Source file: * lang_verilog.c * * Contains get_verilog_char(), which parses Verilog code. */ #include "config.h" #include #include #include #include "trueprint.h" #include "main.h" #include "input.h" #include "index.h" #include "language.h" #include "output.h" #include "lang_verilog.h" /* * Public part */ char lang_verilog_defaults[] = "-f --F --i"; /* * Private part */ typedef enum { IP_CODE, IP_COMMENT_START, IP_COMMENT, IP_COMMENT_LINE, IP_COMMENT_END } verilog_ip_states; /* * get_verilog_char() * detects comment starts and ends; * finds function names; * detects function ends; */ stream_status get_verilog_char(char *input_char, char_status *status) { static verilog_ip_states state=IP_CODE; static verilog_ip_states saved_state; /* verilog_ip_states old_state=state; */ stream_status retval; /* static char fn_name[SYMBOL_LEN] = "UNINITIALIZED"; */ /* static short fn_name_index; */ static long start_char, end_char; static long fn_page_number; *status = CHAR_NORMAL; if (restart_language == TRUE) { state = IP_CODE; saved_state = IP_CODE; start_char = 0; end_char = 0; fn_page_number= 0; braces_depth = 0; restart_language = FALSE; } retval = getnextchar(input_char); switch (state) { case IP_CODE: switch (*input_char) { case '/': state = IP_COMMENT_START; { stream_status s; char c; s = getnextchar(&c); if ((c == '*') || (c == '/')) *status = CHAR_ITALIC; ungetnextchar(c,s); } break; case '{': braces_depth += 1; break; case '}': braces_depth -= 1; break; default: ; } break; case IP_COMMENT_START: switch (*input_char) { case '/': state=IP_COMMENT_LINE; *status=CHAR_ITALIC; break; case '*': state=IP_COMMENT; *status=CHAR_ITALIC; break; case '{': state=IP_CODE; braces_depth+=1; break; case '}': if ((braces_depth -= 1) == 0) retval|=STREAM_FUNCTION_END; break; default: state=IP_CODE; break; } break; case IP_COMMENT: *status = CHAR_ITALIC; switch (*input_char) { case '*': state=IP_COMMENT_END; break; default: ; } break; case IP_COMMENT_LINE: *status = CHAR_ITALIC; switch (*input_char) { case '\n': state=IP_CODE; break; default: ; } break; case IP_COMMENT_END: *status = CHAR_ITALIC; switch (*input_char) { case '/': state=IP_CODE; break; case '*': break; default: state=IP_COMMENT; break; } break; default: abort(); } /* The whole switch on fn_state is removed - it can be copied back from lang_cxx.c if necessary. */ if (pass==1) *status = get_function_name_posn(char_number,*status); return(retval); } trueprint-5.4/src/postscript.c0000644000175000017500000006631007625761740013530 00000000000000/* * Source file: * postscript.c * * Implements stuff for postscript printers */ #include "config.h" #include #include #include #include "trueprint.h" #include "main.h" #include "expand_str.h" #include "utils.h" #include "debug.h" #include "options.h" #include "index.h" #include "printers_fl.h" #include "postscript.h" /* * Public part */ boolean no_show_indent_level; boolean no_show_line_number; /* * Private part */ typedef enum { NO_LAYOUT, ONE_ON_ONE, TWO_ON_ONE, THREE_ON_ONE, FOUR_ON_ONE } page_layouts; static unsigned short logical_pages_on_physical_page; static long physical_page_no; static short greenlines; static boolean no_holepunch; static boolean no_top_holepunch; static boolean page_furniture; static int interline_gap; static boolean include_headers; static boolean include_footers; static short pointsize; static char orientation; static page_layouts layout; static boolean rotate_alternate_sheets; static boolean no_cover_sheet; static char *user_name; static unsigned short printable_width; static unsigned short printable_height; static unsigned short virtual_width; static unsigned short virtual_height; static unsigned short header_box_height; static unsigned short footer_box_height; static unsigned short logical_pages_rotated; static unsigned short pos_left; static unsigned short pos_centre_left; static unsigned short pos_centre_right; static unsigned short pos_right; static unsigned short pos_bottom; static unsigned short pos_centre_bottom; static unsigned short pos_centre_top; static unsigned short pos_top; static unsigned short logical_page_no; static unsigned short left_margin; static unsigned short right_margin; static unsigned short top_margin; static unsigned short bottom_margin; static boolean left_page, right_page; static char no_of_sides; static char ps_level; /* postscript level output ... either 1 or 2 */ static void balance_strings(char *string1, char *string2, char *string3, long page_no, boolean index_page); static void set_layout_default(void); static void set_layout_1(const char *p, const char *s); static void set_layout_2(const char *p, const char *s); static void set_layout_3(const char *p, const char *s); static void set_layout_4(const char *p, const char *s); static boolean PS_side_full(void); static void set_no_of_sides(const char *p, const char *s, char value); static void set_no_of_sides_default(char value); /* * Function: * setup_postscript() * * Declares variables and performs any initializations */ void setup_postscript(void) { pointsize = -1; short_option("p", "point-size", 10, NULL, 0, MINPOINTSIZE, MAXPOINTSIZE, &pointsize, NULL, NULL, OPT_TEXT_FORMAT, "specify point size (default 10)", NULL); boolean_option("C", "no-cover-sheet", "cover-sheet", FALSE, &no_cover_sheet, NULL, NULL, OPT_PRINT, "don't print cover sheet", "print cover sheet"); boolean_option("I", "no-holepunch", "holepunch", TRUE, &no_holepunch, NULL, NULL, OPT_PAGE_FORMAT, "don't leave space for holepunch at the side of each page", "leave space for holepunch at the side of each page"); boolean_option("J", "no-top-holepunch", "top-holepunch", TRUE, &no_top_holepunch, NULL, NULL, OPT_PAGE_FORMAT, "don't leave space for holepunch at the top of each page", "leave space for holepunch at the top of each page"); boolean_option("u", "page-furniture-lines", "no-page-furniture-lines", TRUE, &page_furniture, NULL, NULL, OPT_PAGE_FURNITURE, "Draw lines around headers and footers and include left margin line", "No lines around headers or footers and no left margin line"); greenlines = -1; short_option("G", "gray-bands", 0, NULL, 0, 0, MAXGREENLINES, &greenlines, NULL, NULL, OPT_PAGE_FURNITURE, " emulate the old lineprinter paper with gray bands\n" " across each page. The value of gives the width of\n" " the bands and the gaps between them", NULL); interline_gap = -1; int_option("g", "leading", 1, NULL, 0, MININTERLINE_GAP, MAXINTERLINE_GAP, &interline_gap, NULL, NULL, OPT_TEXT_FORMAT, "specify interline gap in points (default 1)", NULL); boolean_option("K", "headers", "no-headers", TRUE, &include_headers, NULL, NULL, OPT_PAGE_FURNITURE, "include the header on each page", "suppress the header on each page"); boolean_option("k", "footers", "no-footers", TRUE, &include_footers, NULL, NULL, OPT_PAGE_FURNITURE, "include the footer on each page", "suppress the footer on each page"); user_name = NULL; string_option("U", "username", NULL, &user_name, NULL, NULL, OPT_MISC, "set username for coversheet"); boolean_option("i", "no-braces-depth", "braces-depth", FALSE, &no_show_indent_level, NULL, NULL, OPT_PAGE_FURNITURE, "exclude the braces depth count", "include the braces depth count"); boolean_option("n", "no-line-numbers", "line-numbers", FALSE, &no_show_line_number, NULL, NULL, OPT_PAGE_FURNITURE, "exclude the line number count", "include the line number count"); choice_option("o", "portrait", "landscape", 'p', 'l', &orientation, NULL, NULL, OPT_PAGE_FORMAT, "print using portrait orientation", "print using landscape orientation"); no_of_sides = '0'; choice_option("S", "single-sided", "double-sided", '1', '2', NULL, set_no_of_sides, set_no_of_sides_default, OPT_PAGE_FORMAT, "print single-sided", "print double-sided"); ps_level = '2'; choice_option("R", "ps-level-two", "ps-level-one", '2', '1', &ps_level, NULL, NULL, OPT_PAGE_FORMAT, "generate postscript level 2 code", "generate postscript level 1 code"); layout = NO_LAYOUT; noparm_option("1", "one-up", TRUE, &set_layout_1, &set_layout_default, OPT_PAGE_FORMAT, "print 1-on-1 (default)"); noparm_option("2", "two-up", FALSE, &set_layout_2, NULL, OPT_PAGE_FORMAT, "print 2-on-1"); noparm_option("3", "two-tall-up", FALSE, &set_layout_3, NULL, OPT_PAGE_FORMAT, "print 2-on-1 at 4-on-1 pointsize"); noparm_option("4", "four-up", FALSE, &set_layout_4, NULL, OPT_PAGE_FORMAT, "print 4-on-1"); boolean_option(NULL,"rotate-alternate-sheets","no-rotate-alternate-sheets",FALSE,&rotate_alternate_sheets,NULL,NULL, OPT_PAGE_FURNITURE, "rotate every other sheet 180 degrees. Only works in double-sided modes", "don't rotate every other sheet 180 degrees."); } /* * Function: * init_postscript() * * Gets postscript ready for either pass 0 or pass 1 */ void init_postscript(void) { physical_page_no = 1; logical_page_no = 0; right_page = TRUE; left_page = FALSE; } void set_layout_default(void) { if (layout != NO_LAYOUT) return; layout = ONE_ON_ONE; } void set_layout_1(const char *p, const char *s) { if (layout != NO_LAYOUT) return; layout = ONE_ON_ONE; } void set_layout_2(const char *p, const char *s) { if (layout != NO_LAYOUT) return; layout = TWO_ON_ONE; } void set_layout_3(const char *p, const char *s) { if (layout != NO_LAYOUT) return; layout = THREE_ON_ONE; } void set_layout_4(const char *p, const char *s) { if (layout != NO_LAYOUT) return; layout = FOUR_ON_ONE; } /* * Function: * PS_header() * * Prints out the initial stuff for a postscript printer */ void PS_header(char *version, boolean print_body) { unsigned int file_index; printf("%%!PS-Adobe-%c.0\n", ps_level); printf("statusdict /setduplexmode known {\n"); if (no_of_sides == '2') { printf(" true "); } else { printf(" false "); } printf("statusdict /setduplexmode get exec\n} if\n"); printf("/Ps %d def\n", pointsize); printf("/SPs %d def\n", (pointsize*3)/4); printf("/Lh %d def\n", pointsize + interline_gap); printf("/Rm %d def\n", virtual_width); printf("/Tm %d def\n", virtual_height); printf("/Bh %d def\n", header_box_height); printf("/Bf %d def\n", footer_box_height); printf("/CF /Courier findfont Ps scalefont def\n"); printf("/IF /Courier-Oblique findfont Ps scalefont def\n"); printf("/BF /Courier-Bold findfont Ps scalefont def\n"); printf("/CFs /Courier findfont SPs scalefont def\n"); printf("/IFs /Courier-Oblique findfont SPs scalefont def\n"); printf("/BFs /Courier-Bold findfont SPs scalefont def\n"); printf("/HF /Helvetica findfont Ps scalefont def\n"); if ((no_show_line_number == FALSE) || (no_show_indent_level == FALSE)) printf("/Li CFs setfont (1234567890) stringwidth pop def\n"); else printf("/Li 0 def\n"); printf("/Nl { /Vpos Vpos Lh sub def } def\n"); printf("/Lpt { 0 Vpos moveto } def\n"); printf("/Gb {\n"); if (greenlines != 0) { printf(" gsave /Cv Tm Bh sub def\n"); printf(" { Li Cv moveto Rm Li sub 0 rlineto 0 -%d Lh mul rlineto\n",greenlines); printf(" Rm Li sub neg 0 rlineto 0 %d Lh mul rlineto\n",greenlines); printf(" 0.98 setgray fill\n"); printf(" /Cv Cv %d Lh mul sub def\n",greenlines*2); printf(" Cv 0 lt { exit } if\n"); printf(" } loop\n"); printf(" grestore\n"); } printf(" } def\n"); if (page_furniture) { printf("/Ip { Gb .5 setlinewidth\n"); if (include_headers) { printf(" 0 Tm moveto 0 Bh neg rlineto Rm 0 rlineto 0 Bh rlineto closepath\n"); } else { printf(" 0 Tm moveto Rm 0 rlineto\n"); } printf(" gsave .98 setgray fill grestore stroke\n"); if (include_footers) { printf(" 0 0 moveto 0 Bf rlineto Rm 0 rlineto 0 Bf neg rlineto closepath\n"); } else { printf(" 0 0 moveto Rm 0 rlineto\n"); } printf(" gsave .98 setgray fill grestore stroke\n"); printf(" 0 Bf moveto 0 Tm Bh sub lineto stroke newpath\n"); printf(" } def\n"); } else { printf("/Ip { } def\n"); } printf("/Cp { Ip .3 setlinewidth newpath\n"); printf(" Li 0 Bf add moveto Li Tm Bh sub lineto stroke newpath\n"); printf(" } def\n"); printf("/So { gsave dup stringwidth pop Ps 3 div 0 exch rmoveto 0 rlineto fill grestore } def\n"); printf("/Ul { gsave dup stringwidth pop 0 -1 rmoveto 0 rlineto fill grestore } def\n"); printf("/Bs { gsave dup show grestore 0.5 0.5 rmoveto show } def\n"); if (ps_level == '2'){ printf("<> setpagedevice\n", left_margin+right_margin, top_margin+bottom_margin); } /* * Print cover sheet */ if (no_cover_sheet == FALSE) { if (user_name == NULL) { dm('h',3, "postscript.c:PS_header() use_environment = %d\n", use_environment); if (!use_environment) user_name = "testuser"; else { char *u = getenv("USER"); if (u == 0) { user_name = ""; } else { user_name = strdup(u); } } if (*user_name == '\0') user_name = "Unknown user"; dm('h',3, "postscript.c:PS_header() Username = %s\n", user_name); } printf("%%%%Page: Cover %ld\n", physical_page_no++); printf("70 70 moveto\n"); printf("/Helvetica findfont 10 scalefont setfont\n"); printf("(Trueprint %s) show\n", version); printf("70 725 moveto\n"); printf("/Helvetica-Bold findfont 20 scalefont setfont\n"); printf("(For: %s) show\n", user_name); printf("70 700 moveto\n"); printf("(Printed on: %s) show\n",expand_string("%L", TRUE)); if (print_body == TRUE) { printf("70 675 moveto\n"); printf("(Last page number: %ld) show\n", total_pages); for (file_index = 0; file_index < (no_of_files>20?20:no_of_files); file_index++) printf("70 %d moveto (File: %s) show\n", 650 - (file_index*25), file_name(file_index)); if (no_of_files > 20) printf("70 150 moveto (Etc....) show\n"); } printf("showpage\n"); if (no_of_sides == '2') { printf("%%%%Page: Coverback %ld\n", physical_page_no++); printf("showpage\n"); } } } /* * Function: * PS_side_full * Returns TRUE if this is the last logical page on a side. */ boolean PS_side_full(void) { boolean retval = FALSE; if (logical_page_no != 0) { retval = ((logical_page_no % logical_pages_on_physical_page) == 0); } dm('O',2, "postscript.c:PS_side_full() returning %d\n", retval); return retval; } /* * Function: * PS_endpage * decides whether to print out `showpage' or not and updates various * other bits & pieces. * Returns true if this is the last page on a sheet. */ boolean PS_endpage(boolean print_page) { static boolean page_has_printing = FALSE; boolean reached_end_of_sheet; /* * If this logical page is to be printed then the overall physical page * needs to be printed out. */ if (print_page) { page_has_printing = TRUE; } /* * Remember if we have reached the end of a sheet */ reached_end_of_sheet = (((no_of_sides == '2') && left_page && ((logical_page_no % logical_pages_on_physical_page) == 0)) || ((no_of_sides == '1') && ((logical_page_no % logical_pages_on_physical_page) == 0)) ); /* * If the previous side is now full, then we're moving on to a new * physical page and we may need to change left/right page info. We * also need to print out either a showpage or delete the output from postscript */ if (PS_side_full()) { physical_page_no++; if (no_of_sides == '2') { left_page = !left_page; right_page = !right_page; } if (pass == 1) { if (page_has_printing) { printf("showpage\n"); } else { printf("erasepage initgraphics\n"); } } page_has_printing = FALSE; } return reached_end_of_sheet; } /* * Function: * PS_startpage * prints out parameters in the header and footer boxes, and print other * page-furniture. Maintains logical_page_no. * * print_headers indicates whether this page should be printed or not. * Actually the whole page is always printed - however by the end of the * sheet if print_headers was false for every logical page on that * sheet then the output is thrown away. */ void PS_startpage(char *head1, char *head2, char *head3, char *foot1, char *foot2, char *foot3, char *msg_string, long page_no,long hdr_total_pages, boolean index_page) { short message_pointsize; char *message; unsigned short gap; logical_page_no++; dm('O',2, "postscript.c:PS_startpage(), logical page = %d, physical page = %d\n", logical_page_no, physical_page_no); if (pass == 0) return; dm('h',4,"Printing page %s/%s/%s %s/%s/%s + %s, page %d, total %d, index %d\n", head1, head2, head3, foot1, foot2, foot3, msg_string, page_no, hdr_total_pages, index_page); dm('h',4,"postscript.c:PS_startpage layout %d no_of_sides %c page_no %d\n", layout, no_of_sides, page_no); message = expand_string(msg_string, index_page); /* * Work out if we need to indent for holepunch or not */ if (!no_holepunch && right_page) gap = HOLEPUNCH_WIDTH - pos_left; else gap = 0; /* * Next translate and rotate as appropriate for 1-on-1, 2-on-1, 3-on-1 or 4-on-1 * Also print the page header if this is the first logical page on a physical * page. */ switch (layout) { case ONE_ON_ONE: printf("%%%%Page: %d %ld\n",logical_page_no, physical_page_no); if (rotate_alternate_sheets && left_page) { if (orientation == 'p') printf("%d %d translate 180 rotate\n", pos_right+gap, pos_top); if (orientation == 'l') printf("%d %d translate 270 rotate\n", pos_left+gap, pos_top); } else { if (orientation == 'p') printf("%d %d translate\n", pos_left+gap, pos_bottom); if (orientation == 'l') printf("%d %d translate 90 rotate\n", pos_right+gap, pos_bottom); } break; case TWO_ON_ONE: switch (logical_page_no & 1) { case 1: printf("%%%%Page: %d %ld\n",logical_page_no, physical_page_no); printf("gsave\n"); if (rotate_alternate_sheets && left_page) { if (orientation == 'p') printf("%d %d translate .64 .64 scale 270 rotate\n", pos_left+gap, pos_top); else printf("%d %d translate .64 .64 scale 180 rotate\n", pos_right+gap, pos_centre_bottom); } else { if (orientation == 'p') printf("%d %d translate .64 .64 scale 90 rotate\n", pos_right+gap, pos_bottom); else printf("%d %d translate .64 .64 scale\n", pos_left+gap, pos_centre_top); } break; case 0: printf("grestore\n"); if (rotate_alternate_sheets && left_page) { if (orientation == 'p') printf("%d %d translate .64 .64 scale 270 rotate\n", pos_left+gap, pos_centre_bottom); else printf("%d %d translate .64 .64 scale 180 rotate\n", pos_right+gap, pos_top); } else { if (orientation == 'p') printf("%d %d translate .64 .64 scale 90 rotate\n", pos_right+gap, pos_centre_top); else printf("%d %d translate .64 .64 scale\n", pos_left+gap, pos_bottom); } } break; case THREE_ON_ONE: switch (logical_page_no & 1) { case 1: printf("%%%%Page: %d %ld\n",logical_page_no, physical_page_no); printf("gsave\n"); if (rotate_alternate_sheets && left_page) { if (orientation == 'p') printf("%d %d translate .5 .5 scale 180 rotate\n", pos_right+gap, pos_top); else printf("%d %d translate .5 .5 scale 270 rotate\n", pos_centre_right+gap, pos_top); } else { if (orientation == 'p') printf("%d %d translate .5 .5 scale\n", pos_left+gap, pos_bottom); else printf("%d %d translate .5 .5 scale 90 rotate\n", pos_centre_left+gap, pos_bottom); } break; case 0: printf("grestore\n"); if (rotate_alternate_sheets && left_page) { if (orientation == 'p') printf("%d %d translate .5 .5 scale 180 rotate\n", pos_centre_left+gap, pos_top); else printf("%d %d translate .5 .5 scale 270 rotate\n", pos_left+gap, pos_top); } else { if (orientation == 'p') printf("%d %d translate .5 .5 scale\n", pos_centre_right+gap, pos_bottom); else printf("%d %d translate .5 .5 scale 90 rotate\n", pos_right+gap, pos_bottom); } } break; case FOUR_ON_ONE: switch (logical_page_no & 3) { case 1: printf("%%%%Page: %d %ld\n",logical_page_no, physical_page_no); printf("gsave\n"); if (rotate_alternate_sheets && left_page) { if (orientation == 'p') printf("%d %d translate .5 .5 scale 180 rotate\n", pos_right+gap, pos_centre_bottom); else printf("%d %d translate .5 .5 scale 270 rotate\n", pos_centre_right+gap, pos_top); } else { if (orientation == 'p') printf("%d %d translate .5 .5 scale\n", pos_left+gap, pos_centre_top); else printf("%d %d translate .5 .5 scale 90 rotate\n", pos_centre_left+gap, pos_bottom); } break; case 2: printf("grestore gsave\n"); if (rotate_alternate_sheets && left_page) { if (orientation == 'p') printf("%d %d translate .5 .5 scale 180 rotate\n", pos_right+gap, pos_top); else printf("%d %d translate .5 .5 scale 270 rotate\n", pos_left+gap, pos_top); } else { if (orientation == 'p') printf("%d %d translate .5 .5 scale\n", pos_left+gap, pos_bottom); else printf("%d %d translate .5 .5 scale 90 rotate\n", pos_right+gap, pos_bottom); } break; case 3: printf("grestore gsave\n"); if (rotate_alternate_sheets && left_page) { if (orientation == 'p') printf("%d %d translate .5 .5 scale 180 rotate\n", pos_centre_left+gap, pos_centre_bottom); else printf("%d %d translate .5 .5 scale 270 rotate\n", pos_centre_right+gap, pos_centre_bottom); } else { if (orientation == 'p') printf("%d %d translate .5 .5 scale\n", pos_centre_right+gap, pos_centre_top); else printf("%d %d translate .5 .5 scale 90 rotate\n", pos_centre_left+gap, pos_centre_top); } break; case 0: printf("grestore\n"); if (rotate_alternate_sheets && left_page) { if (orientation == 'p') printf("%d %d translate .5 .5 scale 180 rotate\n", pos_centre_left+gap, pos_top); else printf("%d %d translate .5 .5 scale 270 rotate\n", pos_left+gap, pos_centre_bottom); } else { if (orientation == 'p') printf("%d %d translate .5 .5 scale\n", pos_centre_right+gap, pos_bottom); else printf("%d %d translate .5 .5 scale 90 rotate\n", pos_right+gap, pos_centre_top); } } break; case NO_LAYOUT: abort(); } /* * Use the appropriate postscript macro to print the page frame, including header * and footer boxes and vertical lines */ if (!index_page && ((no_show_line_number == FALSE) || (no_show_indent_level == FALSE))) printf("Cp "); else printf("Ip "); /* * Next print out the message string */ if ((message != NULL) && (strlen(message) != 0)) { message_pointsize = printable_width / strlen(message); printf("gsave\n"); printf(".9 setgray\n"); printf("Rm 2 div Tm 2 div translate "); if (orientation == 'l') printf("30 rotate\n"); else printf("60 rotate\n"); printf("/Courier-Bold findfont %d scalefont setfont ", message_pointsize); printf("-216 0 moveto (%s) show\n", message); printf("grestore\n"); } if (include_headers) { /* * Set up the font and Ypos to print the header strings */ printf("HF setfont /Ypos Tm Bh sub Ps 2 div add def\n"); balance_strings(head1, head2, head3, page_no, index_page); } if (include_footers) { /* * Set up the font and Ypos to print the footer strings */ printf("HF setfont /Ypos Ps 2 div def\n"); balance_strings(foot1, foot2, foot3, page_no, index_page); } if (index_page) { printf("CF setfont "); } printf("/Vpos Tm Bh sub Ps sub def\n"); } /* * Function: * PS_end_output() * */ void PS_end_output(void) { printf("%%%%Trailer\n"); printf("%%%%EOF\n"); } /* * Function: * balance_strings() */ void balance_strings(char *string1, char *string2, char *string3, long page_no, boolean index_page) { char *s1, *s2, *s3; if (right_page) { s1 = strdup(expand_string(string1, index_page)); s2 = strdup(expand_string(string2, index_page)); s3 = strdup(expand_string(string3, index_page)); } else { s1 = strdup(expand_string(string3, index_page)); s2 = strdup(expand_string(string2, index_page)); s3 = strdup(expand_string(string1, index_page)); } /* start end1 start2 mid2 end2 start3 end3 */ /* s1 s2 s3 */ printf("Ps Ypos moveto\n"); printf("(%s) show ",s1); /* print first string at extreme left hand edge */ printf("currentpoint pop dup "); /* . end1 end1 */ printf("Rm Ps sub "); /* . end1 end1 end3 */ printf("(%s) stringwidth pop ", s3); /* . end1 end1 end3 length3 */ printf("sub dup Ypos moveto\n"); /* . end1 end1 start3 */ printf("(%s) show\n",s3); printf("exch sub 2 div add "); /* . mid2 */ printf("(%s) stringwidth pop ",s2); /* . mid2 length2 */ printf("2 div sub Ypos moveto\n"); /* . */ printf("(%s) show\n",s2); } /* * Function: * PS_pagesize() * sets up all variables corresponding to page size & related measurements, using * margins from printer_stats(). * Specifically if length is unspecified then it is calculated from pointsize, * else pointsize is calculated from length. * Then width is calculated from pointsize. */ void PS_pagesize(char *printer, int *width_ptr, int *length_ptr) { float margin_height; short tmp_sides; printer_stats(printer, &tmp_sides, &left_margin, &right_margin, &top_margin, &bottom_margin); if (no_of_sides == '0') { if (tmp_sides == 1) no_of_sides = '1'; else no_of_sides = '2'; } dm('O',3,"postscript.c:PS_pagesize left %d right %d top %d bottom %d\n", left_margin, right_margin, top_margin, bottom_margin); dm('O',3,"postscript.c:PS_pagesize pointsize %d\n", pointsize); if (HOLEPUNCH_WIDTH < left_margin) no_holepunch = TRUE; if (!no_holepunch) printable_width = right_margin - HOLEPUNCH_WIDTH; else printable_width = right_margin - left_margin; if (!no_top_holepunch) printable_height = top_margin - bottom_margin - HOLEPUNCH_HEIGHT; else printable_height = top_margin - bottom_margin; if ((*length_ptr == -1) && (pointsize == 0)) abort(); if (layout == ONE_ON_ONE) { logical_pages_on_physical_page = 1; if (orientation == 'p') { logical_pages_rotated = FALSE; virtual_width = printable_width; virtual_height = printable_height; } else { logical_pages_rotated = TRUE; virtual_width = printable_height; virtual_height = printable_width; } } else if (layout == TWO_ON_ONE) { logical_pages_on_physical_page = 2; if (orientation == 'p') { logical_pages_rotated = TRUE; virtual_width = printable_height/2 * 1.56 - 3; virtual_height = printable_width * 1.56; } else { logical_pages_rotated = FALSE; virtual_width = printable_width * 1.56; virtual_height = printable_height/2 * 1.56 - 3; } } else if (layout == THREE_ON_ONE) { logical_pages_on_physical_page = 2; if (orientation == 'p') { logical_pages_rotated = FALSE; virtual_width = printable_width - 4; virtual_height = printable_height * 2; } else { logical_pages_rotated = TRUE; virtual_width = printable_height * 2; virtual_height = printable_width - 4; } } else { logical_pages_on_physical_page = 4; if (orientation == 'p') { logical_pages_rotated = FALSE; virtual_width = printable_width - 4; virtual_height = printable_height - 4; } else { logical_pages_rotated = TRUE; virtual_width = printable_height - 4; virtual_height = printable_width - 4; } } pos_left = left_margin; pos_centre_left = left_margin + printable_width/2 - 2; pos_centre_right = left_margin + printable_width/2 + 2; pos_right = left_margin + printable_width; pos_bottom = bottom_margin; pos_centre_bottom = bottom_margin + printable_height/2 - 2; pos_centre_top = bottom_margin + printable_height/2 + 2; pos_top = bottom_margin + printable_height; dm('O',3,"postscript.c:PS_pagesize virtual width %d, virtual height %d\n", virtual_width, virtual_height); dm('O',3,"postscript.c:PS_pagesize specified width %d, specified length %d\n", *width_ptr, *length_ptr); if (!include_headers) header_box_height = 0; else header_box_height = 1.5 * pointsize; if (!include_footers) footer_box_height = 0; else footer_box_height = 1.5 * pointsize; margin_height = header_box_height + footer_box_height; if (*length_ptr == -1) *length_ptr = (virtual_height - margin_height) / (pointsize + interline_gap); else pointsize = (short)(virtual_height - (interline_gap * *length_ptr))/(3 + *length_ptr); dm('O',3,"virtual_width = %d, pointsize = %d %d\n", virtual_width, pointsize, 0.6*pointsize); if (*width_ptr == -1) *width_ptr = 1.66 * virtual_width / pointsize; dm('O',3,"postscript.c:PS_pagesize width to be used %d, length to be used %d\n", *width_ptr, *length_ptr); if (((no_show_line_number == FALSE) || (no_show_indent_level == FALSE)) && (*width_ptr >= 8)) (*width_ptr) -= 8; dm('O',3,"postscript.c:PS_pagesize width to be used %d, length to be used %d\n", *width_ptr, *length_ptr); } static void set_no_of_sides_default(char value) { no_of_sides = '0'; } static void set_no_of_sides(const char *p, const char *s, char value) { no_of_sides = value; } trueprint-5.4/src/print_prompt.h0000644000175000017500000000041307625761740014050 00000000000000/* * Include file: * print_prompter.h */ typedef enum { PAGE_SPECIAL, PAGE_BLANK, PAGE_BODY } page_types; extern void setup_print_prompter(void); extern boolean print_prompt(page_types type, long filepage_no, char *file); extern void skipspaces(char **); trueprint-5.4/src/Makefile.am0000644000175000017500000000177007625761737013213 00000000000000## Makefile.am -- Process this file with automake to produce Makefile.in INCLUDES = -I$(top_builddir) -I$(top_srcdir) bin_PROGRAMS = trueprint trueprint_SOURCES = \ debug.c index.c lang_pascal.h lang_verilog.c output.h \ debug.h index.h lang_perl.c lang_verilog.h postscript.c \ diffs.c input.c lang_perl.h language.c postscript.h \ diffs.h input.h lang_pike.c language.h print_prompt.c \ expand_str.c lang_c.c lang_pike.h main.c print_prompt.h \ expand_str.h lang_c.h lang_report.c main.h printers_fl.c \ getopt.c lang_cxx.c lang_report.h openpipe.c printers_fl.h \ getopt.h lang_cxx.h lang_sh.c openpipe.h trueprint.h \ getopt1.c lang_java.c lang_sh.h options.c utils.c \ headers.c lang_java.h lang_text.c options.h utils.h \ headers.h lang_pascal.c lang_text.h output.c AM_CFLAGS = -DPRINTERS_FILE=\"$(libdir)/printers\" trueprint-5.4/src/lang_cxx.h0000644000175000017500000000020207625761737013120 00000000000000/* * Include file: * lang_cxx.h */ extern stream_status get_cxx_char(char *, char_status *); extern char lang_cxx_defaults[]; trueprint-5.4/src/lang_pike.h0000644000175000017500000000021307625761740013242 00000000000000/* * Include file: * lang_pike.h */ extern stream_status get_pike_char(char *, char_status *); extern char lang_pike_defaults[]; trueprint-5.4/src/print_prompt.c0000644000175000017500000001477507625761740014063 00000000000000/* * Source file: * print_prompt.c */ #include "config.h" #include #include #include #include #include "trueprint.h" #include "main.h" #include "index.h" #include "utils.h" #include "options.h" #include "output.h" #include "print_prompt.h" /* * Public part */ char *print_selection; /* * Private part */ static boolean check_selection(long page_no, char *filename); static boolean no_prompt_to_print; /* * Function: * setup_print_prompter() */ void setup_print_prompter(void) { string_option("A", "print-pages", NULL, &print_selection, NULL, NULL, OPT_PRINT, "specify list of pages to be printed"); boolean_option("a", "no-prompt", "prompt", TRUE, &no_prompt_to_print, NULL, NULL, OPT_PRINT, "don't prompt for each page, whether it should be printed or not", "prompt for each page, whether it should be printed or not"); } /* * Function: * print_prompt * * Returns whether or not this page should be printed. Uses * -a and -A information. */ boolean print_prompt(page_types type, long filepage_no, char *filename) { char *fn_name; char prompt[MAXLINELENGTH]; char response[INPUT_LINE_LEN]; char *response_ptr; boolean retval=UNSET; static int yes_count=0; static int no_count=0; static boolean all_yes=FALSE, all_no=FALSE; if (pass == 0) return FALSE; if (all_yes) return TRUE; if (all_no) return FALSE; if (print_selection != NULL) return check_selection(page_number, filename); if (yes_count != 0) { yes_count--; return TRUE; } if (no_count != 0) { no_count--; return FALSE; } if (no_prompt_to_print==FALSE) { switch(type) { case PAGE_BODY: fn_name = get_function_name(page_number); if (*fn_name) sprintf(prompt, "Print page %5ld, page %3ld of %s %s(%s%s)?", page_number, filepage_no, filename, page_changed(page_number)?"[changed]":"", fn_name, function_changed(page_number)?"[changed]":""); else sprintf(prompt, "Print page %5ld, page %3ld of %s %s?", page_number, filepage_no, filename, page_changed(page_number)?"[changed]":""); break; case PAGE_BLANK: sprintf(prompt, "Print blank page %5ld?", page_number+1); break; case PAGE_SPECIAL: sprintf(prompt, "Print %s?", filename); break; default: abort(); } while (retval == UNSET) { fprintf(stderr, gettext("%s [n] ? for help: "), prompt); fflush(stderr); fgets(response,INPUT_LINE_LEN-1,stdin); response_ptr = response; skipspaces(&response_ptr); switch (*response_ptr++) { case 'y': case 'Y': yes_count = strtol(response_ptr, &response_ptr, 10); if ((yes_count == 0) && (*response_ptr == '*')) all_yes = TRUE; if (yes_count == 1) yes_count = 0; retval = TRUE; break; case 'n': case 'N': no_count = strtol(response_ptr, &response_ptr, 10); if ((no_count == 0) && (*response_ptr == '*')) all_no = TRUE; if (no_count == 1) no_count = 0; /*FALLTHROUGH*/ case '\0': retval = FALSE; break; case 'p': case 'P': print_selection = strdup(response_ptr); retval = check_selection(page_number, filename); break; case '?': default: fprintf(stderr, "---------------------------------------------\n"); fprintf(stderr, gettext("y print this page\n")); fprintf(stderr, gettext("y print pages\n")); fprintf(stderr, gettext("y* print all remaining pages\n")); fprintf(stderr, gettext("n skip this page\n")); fprintf(stderr, gettext("n skip pages\n")); fprintf(stderr, gettext("n* skip all remaining pages\n")); fprintf(stderr, gettext("p print all remaining pages that match \n")); fprintf(stderr, gettext("? show this message\n\n")); fprintf(stderr, gettext("format for :\n")); fprintf(stderr, gettext(" comma-separated list of specifiers:\n")); fprintf(stderr, gettext(" print page \n")); fprintf(stderr, gettext(" - print all pages from page to \n")); fprintf(stderr, gettext(" print all pages for function\n")); fprintf(stderr, gettext(" f print function index\n")); fprintf(stderr, gettext(" F print file index\n")); fprintf(stderr, gettext(" c print cross reference info\n")); fprintf(stderr, gettext("e.g. p 1-3,main,5,6 will print pages 1,2,3,5,6 and all\n")); fprintf(stderr, gettext(" pages for function main.\n")); fprintf(stderr, "---------------------------------------------\n"); } } return retval; } return TRUE; } /* * Function: * check_selection * * Returns whether or not this page should be printed, using the -A * string. */ static boolean check_selection(long page_no, char *filename) { char *s_index = print_selection; long start_page, end_page; size_t name_length; char *fn_name = NULL; if (page_no != 0) fn_name = get_function_name(page_no); while (*s_index) { start_page = strtol(s_index, &s_index, 10); skipspaces(&s_index); if ((start_page != 0) && (*s_index == '-')) { s_index++; end_page = strtol(s_index, &s_index, 10); if ((start_page <= page_no) && (page_no <= end_page)) return TRUE; skipspaces(&s_index); } if ((start_page != 0) && ((*s_index == ',')||(*s_index == '\0'))) { if (start_page == page_no) return TRUE; } if ((start_page == 0) && (*s_index != '\0')) { name_length=0; while ((s_index[name_length] != ',') && (s_index[name_length] != '\0') && !isspace(s_index[name_length])) name_length++; if (name_length == 1) { switch (*s_index) { case 'f': if (filename && (strcmp(filename, "function index")==0)) return TRUE; break; case 'F': if (filename && (strcmp(filename, "file index")==0)) return TRUE; break; case 'd': if (page_changed(page_no)) return TRUE; break; case 'D': if (function_changed(page_no)) return TRUE; break; default: fprintf(stderr, gettext(CMD_NAME ": ignoring unrecognized letter %c\n"), *s_index); } } if (fn_name && (strlen(fn_name) == name_length) && (strncmp(get_function_name(page_no), s_index, name_length) == 0)) return TRUE; s_index += name_length; } skipspaces(&s_index); if (*s_index == ',') s_index++; skipspaces(&s_index); } return FALSE; } trueprint-5.4/src/diffs.c0000644000175000017500000002103107625761737012406 00000000000000/* * Source file: * diffs.c * * Implements the highlighting of differences between old and new versions * of files. */ #include "config.h" #ifndef DIFF_CMD #include "trueprint.h" #include "diffs.h" /* If there is no diff command just provide stubs */ void setup_diffs(void) { return; } void init_diffs(char newfile[]) { return; } void end_diffs(void) { return; } boolean getdelline(long current_line, char *input_line, char_status input_status[]) { return 0; } boolean line_inserted(long current_line) { return 0; } #else #include #include /* Ultrix needs these sys header files this way around */ #include #include #include #include #include #include "trueprint.h" #include "utils.h" #include "main.h" #include "output.h" #include "openpipe.h" #include "options.h" #include "debug.h" #include "diffs.h" static char *diffs_string; /* * Private part */ static unsigned short read_values(FILE *,long *value1_ptr, long *value2_ptr); static boolean read_long(FILE *, long *); static void parse_line(void); static stream_status get_diff_char(char *input_char, char_status *status); static FILE *diffs_stream; static boolean diffs_on; static long diff_start_line; static long diff_end_line; static long lines_deleted; static long lines_added; /* * Function: * setup_diffs */ void setup_diffs(void) { diffs_string = NULL; diffs_stream = NULL; string_option("O", "diff", NULL, &diffs_string, NULL, NULL, OPT_MISC, "if is a file then print diffs between and input file\n" " otherwise use as a prefix and print diffs"); } /* * Function: * init_diffs * * Initialises the diffs system: * checks to see if any old version was provided and returns if not; * calls end_diffs() if necessary; * starts up the diff process; */ void init_diffs(char newfile[]) { char command[COMMAND_LEN]; char *diff_cmd; struct stat dummy; /* Check to see if any old versions given */ if (diffs_string == NULL) { /* turn off diffs and return */ diffs_on = FALSE; return; } diffs_on = TRUE; if ((diff_cmd = getenv("TP_DIFF_CMD")) == NULL) { diff_cmd = DIFF_CMD; } /* * diffs_stream is only set if still reading from * diff process, so need to finish the old diffs. */ if (diffs_stream != NULL) end_diffs(); /* * Check to see if diffs_string is a valid prefix or * a filename... */ sprintf(command,"%s%s",diffs_string,newfile); if (stat(command,&dummy) == 0) { sprintf(command,"%s %s%s %s", diff_cmd,diffs_string,newfile,newfile); } else if (stat(diffs_string,&dummy) == 0) { sprintf(command, "%s %s %s", diff_cmd, diffs_string, newfile); } dm('d',3,"diffs command: %s\n",command); if ((diffs_stream = fopenpipe(command, "r")) == NULL) abort; parse_line(); } /* * Function: * read_values * * scan a line reading one integer, and reading a second if the next * character is a "," */ unsigned short read_values(FILE *stream, long *value1_ptr, long *value2_ptr) { int next_char; unsigned short retval; *value1_ptr = 0; *value2_ptr = 0; /* read first value - if none then return*/ if (!read_long(stream, value1_ptr)) return 0; /* skip spaces and check for a comma */ while ((next_char = getc(stream)) == ' ') ; if (next_char == ',') { /* if next char was a comma read second value */ if (!read_long(stream, value2_ptr)) { fprintf(stderr, gettext(CMD_NAME ": internal error reading diffs\n")); exit(2); } /* and skip spaces again */ while ((next_char = getc(stream)) == ' ') ; retval = 2; } else { retval = 1; *value2_ptr = *value1_ptr; } if (next_char != EOF) { /* replace last char in buffer for calling function */ ungetc((int)next_char,stream); } return(retval); } /* * Function: * read_long * * Reads a long from a stream */ boolean read_long(FILE *stream, long *value) { boolean retval = FALSE; int next_char; *value = 0; while (TRUE) { if ((next_char = getc(stream)) == EOF) break; if (!isdigit(next_char)) break; retval = TRUE; *value = (*value * 10) + (next_char - '0'); } if (next_char != EOF) { ungetc(next_char, stream); } return retval; } /* * Function: * parse_line * * Reads a line from the diff stream, reading start and end line numbers * for both the old and new files and the change type (d, a or c). */ void parse_line(void) { long delete_start; long delete_end; int diff_type; /* * Read the first two values - if there aren't any then we've * reached the end of the file. These values refer to the * first file so we're only interested in them for deleting lines. */ if (read_values(diffs_stream, &delete_start, &delete_end) == 0) { end_diffs(); diffs_on = FALSE; return; } /* * Calculate the number of lines deleted. * If delete start and delete end are the same then 1 line has been * deleted... i.e. one more than the difference. */ lines_deleted = delete_end - delete_start + 1; diff_type = getc(diffs_stream); /* a=add, d=del, c=change */ switch (diff_type) { case 'a': case 'd': case 'c': break; default: fprintf(stderr, gettext(CMD_NAME ": warning, bad diffs stream format char %c!\n"), diff_type); end_diffs(); diffs_on = FALSE; return; } /* Same as before, only for new version of file */ if (read_values(diffs_stream, &diff_start_line, &diff_end_line) == 0) { fprintf(stderr, gettext(CMD_NAME ": warning, bad diffs stream format!\n")); end_diffs(); diffs_on = FALSE; return; } lines_added = diff_end_line - diff_start_line + 1; if (diff_type == 'a') lines_deleted = 0; if (diff_type == 'd') { lines_added = 0; /* * deleted lines are actually *after* the specified line, * so we need to pretend they're one line later... */ diff_start_line += 1; diff_end_line += 1; } /* Skip to the end of the line */ while (getc(diffs_stream) != '\n') ; } /* * Function: * end_diffs * * Finish off the diffs system: * - close the diffs stream (i.e. kill off the diff process); */ void end_diffs(void) { if (!diffs_on) return; dm('d',3,"diffs: closing diffs\n"); fclosepipe(diffs_stream); diffs_stream = NULL; } /* * Function: * get_diff_char * * Simple function to be passed to getnextline() (which expands tabs, etc) * in getdelline(), so we don't need to duplicate the functionality of * getnextline(). */ stream_status get_diff_char(char *input_char, char_status *status) { *status = CHAR_NORMAL; *input_char = (char)getc(diffs_stream); return(STREAM_OK); } /* * Function: * getdelline * * Returns: * TRUE if a(nother) deleted line occurs after current line, returns * line in parameters. * FALSE if no deleted line between current line and next line. */ boolean getdelline(long current_line, char *input_line, char_status input_status[]) { boolean blank_line; /* * Check whether there is a deleted line waiting... */ if ((current_line != diff_start_line) || !diffs_on || (lines_deleted == 0)) return(FALSE); /* * First skip the first two characters of the line - * they should be "< " */ if ((getc(diffs_stream)!='<') || (getc(diffs_stream)!=' ')) { fprintf(stderr, gettext(CMD_NAME ": diffs stream in unexpected format\n")); exit(2); } /* Read in the next line from diff stream */ getnextline(get_diff_char,&blank_line,input_line,input_status); lines_deleted -= 1; if (lines_deleted == 0) { /* * If there are lines added then this is a "change" and * the added lines will be dealt with by line_inserted(). * Otherwise we need to find the next difference with * parse_line(). */ if (lines_added == 0) parse_line(); else /* else skip over line of ---- */ while (getc(diffs_stream) != '\n') ; } return(TRUE); } /* * Function: * line_inserted * * Returns: * INSERT if line_number has been inserted * NORMAL otherwise */ boolean line_inserted(long current_line) { boolean retval = FALSE; if (!diffs_on) return(FALSE); if ((current_line >= diff_start_line) && (current_line <= diff_end_line)) { /* skip over line */ while (getc(diffs_stream) != '\n') ; retval = TRUE; } /* If reached the end of the insertion... */ if (current_line >= diff_end_line) parse_line(); return(retval); } #endif trueprint-5.4/src/lang_text.c0000644000175000017500000000273707625761740013306 00000000000000/* * Source file: * lang_text.c * * Contains get_text_char() which "parses" straight text. */ #include "config.h" #include #include #include "trueprint.h" #include "input.h" #include "lang_text.h" /* * Public part */ char lang_text_defaults[] = "-i -n -f -b"; char lang_list_defaults[] = "-i --n -w0 -l66 -b -f"; /* * Private part */ /* * get_text_char() * Basically just calls getnextchar and passes up information. * returns: * CHAR * FILE_END * INPUT_END */ stream_status get_text_char(char *input_char, char_status *status) { stream_status retval; *status = CHAR_NORMAL; retval = getnextchar(input_char); if (*input_char != BACKSPACE) { char nextchar; char_status nextstatus; nextstatus = getnextchar(&nextchar); if (nextchar == BACKSPACE) { char nextnextchar; char_status nextnextstatus; nextnextstatus = getnextchar(&nextnextchar); if (nextnextchar == BACKSPACE) { /* Special case - start of a string of backspaces */ ungetnextchar(nextnextchar, nextnextstatus); ungetnextchar(nextchar, nextstatus); } else if (nextnextchar == *input_char) { *status = CHAR_BOLD; } else if (nextnextchar == '_') { *status = CHAR_UNDERLINE; } else { *input_char = nextnextchar; } } else /* nextchar != BACKSPACE */ { ungetnextchar(nextchar, nextstatus); } } return retval; } trueprint-5.4/src/input.c0000644000175000017500000001172407625761737012462 00000000000000/* * Source file: * input.c * * Contains the functions that look after getting input from the source files. * These are the functions that the functions in lang_*.c use. */ #include "config.h" #include #include #include #include #if HAVE_UNISTD_H # include #else int read(int fildes, void *buf, unsigned int nbyte); #endif #include "trueprint.h" #include "utils.h" #include "main.h" #include "debug.h" #include "input.h" /* * Public part */ long char_number; int got_some_input; /* * Private part */ /* Arbitrary size - should never need more than 2 */ #define UNGET_STACKSIZE 8 static char *unget_charstackptr; static char *unget_statstackptr; static char *unget_charstackbase; static char *unget_statstackbase; static unsigned short unget_stackdepth; static int input_stream; /* My private version of getchar */ static stream_status buffered_read(char *input_char); /* * Function: * set_input_stream * Very C++.... returns FALSE if the file is empty. * Assumes that if it returns false then stream will not be used. */ boolean set_input_stream(int stream) { char test_char; stream_status test_status; /* * Reset the unget stack */ unget_charstackptr = unget_charstackbase; unget_statstackptr = unget_statstackbase; unget_stackdepth = 0; input_stream = stream; if ((test_status = getnextchar(&test_char)) == STREAM_EMPTY_FILE) { return FALSE; } else { ungetnextchar(test_char, test_status); return TRUE; } } /* * Function: * setup_input */ void setup_input(void) { unget_stackdepth = 0; got_some_input = 0; unget_charstackbase = xmalloc(UNGET_STACKSIZE); unget_charstackptr = unget_charstackbase; unget_statstackbase = xmalloc(UNGET_STACKSIZE); unget_statstackptr = unget_statstackbase; } /* * Function: * init_input */ void init_input(void) { char_number = -1; } /* * Function: * buffered_read * * Reads buffered input from standard input, returns next character. * Collapses cr/lf to cr and cr/ff to ff. * Can return any value from buffered_read_status. */ stream_status buffered_read(char *input_char) { static char input_buffer[BUFFER_SIZE]; static short buffer_pointer = 0; static int buffer_size=0; /* * If there's nothing in the buffer, read it in - this will * happen the first time this function is called and at the * beginning of each file. */ if (buffer_size == 0) { if ((buffer_size = read(input_stream,input_buffer,BUFFER_SIZE)) < 0) { fprintf(stderr, gettext(CMD_NAME ": cannot read file %s, %s\n"), current_filename, strerror(errno)); exit(2); } if (buffer_size == 0) return(STREAM_EMPTY_FILE); /* Set the global flag to indicate that there is at least some input */ got_some_input = 1; buffer_pointer = 0; } *input_char = input_buffer[buffer_pointer++]; /* * If buffer has been totally read then read in the next buffer-full. */ if (buffer_pointer == buffer_size) { if ((buffer_size = read(input_stream,input_buffer,BUFFER_SIZE)) < 0) { fprintf(stderr, gettext(CMD_NAME ": cannot read file %s, %s\n"), current_filename, strerror(errno)); exit(2); } if (buffer_size == 0) return(STREAM_FILE_END); /* * Reset the buffer */ buffer_pointer = 0; } /* * At this point we have a character to be returned, and we know * that input_buffer[buffer_pointer] contains the next character. * This gives us the opportunity to collapse lf/cr to cr and cr/ff * to ff. */ if (((*input_char == '\r') && (input_buffer[buffer_pointer] == '\n')) || ((*input_char == '\n') && (input_buffer[buffer_pointer] == '\f'))) return buffered_read(input_char); else return(STREAM_OK); } /* * Function: * ungetnextchar * * Conceptually puts the char back into the input stream, just like * ungetc(). */ void ungetnextchar(char input_char, stream_status status) { dm('I',7,"input.c:ungetnextchar(%c,%d)\n",input_char,status); dm('I',8,"input.c:ungetnextchar char stack = %x, stat stack = %x, size = %d\n", unget_charstackptr, unget_statstackptr, unget_stackdepth); if (unget_stackdepth++ == UNGET_STACKSIZE) abort(); *(unget_charstackptr++) = input_char; *(unget_statstackptr++) = (char)status; char_number --; } /* * Function: * getnextchar * * Returns the next character from the input stream. Detects end of file * and keeps char_number up-to-date. */ stream_status getnextchar(char *input_char) { char_number += 1; /* * Check unget stack */ if (unget_stackdepth > 0) { dm('I',8,"input.c:getnextchar char stack = %x, stat stack = %x, size = %d\n", unget_charstackptr, unget_statstackptr, unget_stackdepth); unget_stackdepth--; *input_char = *(--unget_charstackptr); dm('I',7,"input.c:getnextchar returning %c, %d from stack\n", *input_char, *(unget_statstackptr-1)); return *(--unget_statstackptr); } return buffered_read(input_char); } trueprint-5.4/src/openpipe.h0000644000175000017500000000033207625761740013132 00000000000000/* * Header file: * openpipe.h */ extern int openpipe(const char *command, char *mode); extern FILE *fopenpipe(const char *command, char *mode); extern void closepipe(int handle); extern void fclosepipe(FILE *fp); trueprint-5.4/src/diffs.h0000644000175000017500000000042407625761737012416 00000000000000/* * Source file: * diffs.h */ extern void setup_diffs(void); extern void init_diffs(char newfile[]); extern void end_diffs(void); extern boolean getdelline(long current_line, char *input_line, char_status input_status[]); extern boolean line_inserted(long current_line); trueprint-5.4/src/getopt.c0000644000175000017500000007242707625761737012634 00000000000000/* Getopt for GNU. NOTE: getopt is now part of the C library, so if you don't know what "Keep this file name-space clean" means, talk to roland@gnu.ai.mit.edu before changing it! Copyright (C) 1987, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97 Free Software Foundation, Inc. NOTE: The canonical source of this file is maintained with the GNU C Library. Bugs can be reported to bug-glibc@prep.ai.mit.edu. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* This tells Alpha OSF/1 not to define a getopt prototype in . Ditto for AIX 3.2 and . */ #ifndef _NO_PROTO #define _NO_PROTO #endif #ifdef HAVE_CONFIG_H #include #endif #if !defined (__STDC__) || !__STDC__ /* This is a separate conditional since some stdc systems reject `defined (const)'. */ #ifndef const #define const #endif #endif #include /* Comment out all this code if we are using the GNU C Library, and are not actually compiling the library itself. This code is part of the GNU C Library, but also included in many other GNU distributions. Compiling and linking in this code is a waste when using the GNU C library (especially if it is a shared library). Rather than having every GNU program understand `configure --with-gnu-libc' and omit the object files, it is simpler to just do this in the source for each such file. */ #define GETOPT_INTERFACE_VERSION 2 #if !defined (_LIBC) && defined (__GLIBC__) && __GLIBC__ >= 2 #include #if _GNU_GETOPT_INTERFACE_VERSION == GETOPT_INTERFACE_VERSION #define ELIDE_CODE #endif #endif #ifndef ELIDE_CODE /* This needs to come after some library #include to get __GNU_LIBRARY__ defined. */ #ifdef __GNU_LIBRARY__ /* Don't include stdlib.h for non-GNU C libraries because some of them contain conflicting prototypes for getopt. */ #include #include #endif /* GNU C library. */ #ifdef VMS #include #if HAVE_STRING_H - 0 #include #endif #endif #ifndef _ /* This is for other GNU distributions with internationalized messages. When compiling libc, the _ macro is predefined. */ #ifdef HAVE_LIBINTL_H # include # define _(msgid) gettext (msgid) #else # define _(msgid) (msgid) #endif #endif /* This version of `getopt' appears to the caller like standard Unix `getopt' but it behaves differently for the user, since it allows the user to intersperse the options with the other arguments. As `getopt' works, it permutes the elements of ARGV so that, when it is done, all the options precede everything else. Thus all application programs are extended to handle flexible argument order. Setting the environment variable POSIXLY_CORRECT disables permutation. Then the behavior is completely standard. GNU application programs can use a third alternative mode in which they can distinguish the relative order of options and other arguments. */ #include "getopt.h" /* For communication from `getopt' to the caller. When `getopt' finds an option that takes an argument, the argument value is returned here. Also, when `ordering' is RETURN_IN_ORDER, each non-option ARGV-element is returned here. */ char *optarg = NULL; /* Index in ARGV of the next element to be scanned. This is used for communication to and from the caller and for communication between successive calls to `getopt'. On entry to `getopt', zero means this is the first call; initialize. When `getopt' returns -1, this is the index of the first of the non-option elements that the caller should itself scan. Otherwise, `optind' communicates from one call to the next how much of ARGV has been scanned so far. */ /* 1003.2 says this must be 1 before any call. */ int optind = 1; /* Formerly, initialization of getopt depended on optind==0, which causes problems with re-calling getopt as programs generally don't know that. */ int __getopt_initialized = 0; /* The next char to be scanned in the option-element in which the last option character we returned was found. This allows us to pick up the scan where we left off. If this is zero, or a null string, it means resume the scan by advancing to the next ARGV-element. */ static char *nextchar; /* Callers store zero here to inhibit the error message for unrecognized options. */ int opterr = 1; /* Set to an option character which was unrecognized. This must be initialized on some systems to avoid linking in the system's own getopt implementation. */ int optopt = '?'; /* Describe how to deal with options that follow non-option ARGV-elements. If the caller did not specify anything, the default is REQUIRE_ORDER if the environment variable POSIXLY_CORRECT is defined, PERMUTE otherwise. REQUIRE_ORDER means don't recognize them as options; stop option processing when the first non-option is seen. This is what Unix does. This mode of operation is selected by either setting the environment variable POSIXLY_CORRECT, or using `+' as the first character of the list of option characters. PERMUTE is the default. We permute the contents of ARGV as we scan, so that eventually all the non-options are at the end. This allows options to be given in any order, even with programs that were not written to expect this. RETURN_IN_ORDER is an option available to programs that were written to expect options and other ARGV-elements in any order and that care about the ordering of the two. We describe each non-option ARGV-element as if it were the argument of an option with character code 1. Using `-' as the first character of the list of option characters selects this mode of operation. The special argument `--' forces an end of option-scanning regardless of the value of `ordering'. In the case of RETURN_IN_ORDER, only `--' can cause `getopt' to return -1 with `optind' != ARGC. */ static enum { REQUIRE_ORDER, PERMUTE, RETURN_IN_ORDER } ordering; /* Value of POSIXLY_CORRECT environment variable. */ static char *posixly_correct; #ifdef __GNU_LIBRARY__ /* We want to avoid inclusion of string.h with non-GNU libraries because there are many ways it can cause trouble. On some systems, it contains special magic macros that don't work in GCC. */ #include #define my_index strchr #else /* Avoid depending on library functions or files whose names are inconsistent. */ char *getenv (); static char * my_index (str, chr) const char *str; int chr; { while (*str) { if (*str == chr) return (char *) str; str++; } return 0; } /* If using GCC, we can safely declare strlen this way. If not using GCC, it is ok not to declare it. */ #ifdef __GNUC__ /* Note that Motorola Delta 68k R3V7 comes with GCC but not stddef.h. That was relevant to code that was here before. */ #if !defined (__STDC__) || !__STDC__ /* gcc with -traditional declares the built-in strlen to return int, and has done so at least since version 2.4.5. -- rms. */ extern int strlen (const char *); #endif /* not __STDC__ */ #endif /* __GNUC__ */ #endif /* not __GNU_LIBRARY__ */ /* Handle permutation of arguments. */ /* Describe the part of ARGV that contains non-options that have been skipped. `first_nonopt' is the index in ARGV of the first of them; `last_nonopt' is the index after the last of them. */ static int first_nonopt; static int last_nonopt; #ifdef _LIBC /* Bash 2.0 gives us an environment variable containing flags indicating ARGV elements that should not be considered arguments. */ /* Defined in getopt_init.c */ extern char *__getopt_nonoption_flags; static int nonoption_flags_max_len; static int nonoption_flags_len; static int original_argc; static char *const *original_argv; /* Make sure the environment variable bash 2.0 puts in the environment is valid for the getopt call we must make sure that the ARGV passed to getopt is that one passed to the process. */ static void __attribute__ ((unused)) store_args_and_env (int argc, char *const *argv) { /* XXX This is no good solution. We should rather copy the args so that we can compare them later. But we must not use malloc(3). */ original_argc = argc; original_argv = argv; } # ifdef text_set_element text_set_element (__libc_subinit, store_args_and_env); # endif /* text_set_element */ # define SWAP_FLAGS(ch1, ch2) \ if (nonoption_flags_len > 0) \ { \ char __tmp = __getopt_nonoption_flags[ch1]; \ __getopt_nonoption_flags[ch1] = __getopt_nonoption_flags[ch2]; \ __getopt_nonoption_flags[ch2] = __tmp; \ } #else /* !_LIBC */ # define SWAP_FLAGS(ch1, ch2) #endif /* _LIBC */ /* Exchange two adjacent subsequences of ARGV. One subsequence is elements [first_nonopt,last_nonopt) which contains all the non-options that have been skipped so far. The other is elements [last_nonopt,optind), which contains all the options processed since those non-options were skipped. `first_nonopt' and `last_nonopt' are relocated so that they describe the new indices of the non-options in ARGV after they are moved. */ #if defined (__STDC__) && __STDC__ static void exchange (char **); #endif static void exchange (argv) char **argv; { int bottom = first_nonopt; int middle = last_nonopt; int top = optind; char *tem; /* Exchange the shorter segment with the far end of the longer segment. That puts the shorter segment into the right place. It leaves the longer segment in the right place overall, but it consists of two parts that need to be swapped next. */ #ifdef _LIBC /* First make sure the handling of the `__getopt_nonoption_flags' string can work normally. Our top argument must be in the range of the string. */ if (nonoption_flags_len > 0 && top >= nonoption_flags_max_len) { /* We must extend the array. The user plays games with us and presents new arguments. */ char *new_str = malloc (top + 1); if (new_str == NULL) nonoption_flags_len = nonoption_flags_max_len = 0; else { memset (__mempcpy (new_str, __getopt_nonoption_flags, nonoption_flags_max_len), '\0', top + 1 - nonoption_flags_max_len); nonoption_flags_max_len = top + 1; __getopt_nonoption_flags = new_str; } } #endif while (top > middle && middle > bottom) { if (top - middle > middle - bottom) { /* Bottom segment is the short one. */ int len = middle - bottom; register int i; /* Swap it with the top part of the top segment. */ for (i = 0; i < len; i++) { tem = argv[bottom + i]; argv[bottom + i] = argv[top - (middle - bottom) + i]; argv[top - (middle - bottom) + i] = tem; SWAP_FLAGS (bottom + i, top - (middle - bottom) + i); } /* Exclude the moved bottom segment from further swapping. */ top -= len; } else { /* Top segment is the short one. */ int len = top - middle; register int i; /* Swap it with the bottom part of the bottom segment. */ for (i = 0; i < len; i++) { tem = argv[bottom + i]; argv[bottom + i] = argv[middle + i]; argv[middle + i] = tem; SWAP_FLAGS (bottom + i, middle + i); } /* Exclude the moved top segment from further swapping. */ bottom += len; } } /* Update records for the slots the non-options now occupy. */ first_nonopt += (optind - last_nonopt); last_nonopt = optind; } /* Initialize the internal data when the first call is made. */ #if defined (__STDC__) && __STDC__ static const char *_getopt_initialize (int, char *const *, const char *); #endif static const char * _getopt_initialize (argc, argv, optstring) int argc; char *const *argv; const char *optstring; { /* Start processing options with ARGV-element 1 (since ARGV-element 0 is the program name); the sequence of previously skipped non-option ARGV-elements is empty. */ first_nonopt = last_nonopt = optind; nextchar = NULL; posixly_correct = getenv ("POSIXLY_CORRECT"); /* Determine how to handle the ordering of options and nonoptions. */ if (optstring[0] == '-') { ordering = RETURN_IN_ORDER; ++optstring; } else if (optstring[0] == '+') { ordering = REQUIRE_ORDER; ++optstring; } else if (posixly_correct != NULL) ordering = REQUIRE_ORDER; else ordering = PERMUTE; #ifdef _LIBC if (posixly_correct == NULL && argc == original_argc && argv == original_argv) { if (nonoption_flags_max_len == 0) { if (__getopt_nonoption_flags == NULL || __getopt_nonoption_flags[0] == '\0') nonoption_flags_max_len = -1; else { const char *orig_str = __getopt_nonoption_flags; int len = nonoption_flags_max_len = strlen (orig_str); if (nonoption_flags_max_len < argc) nonoption_flags_max_len = argc; __getopt_nonoption_flags = (char *) malloc (nonoption_flags_max_len); if (__getopt_nonoption_flags == NULL) nonoption_flags_max_len = -1; else memset (__mempcpy (__getopt_nonoption_flags, orig_str, len), '\0', nonoption_flags_max_len - len); } } nonoption_flags_len = nonoption_flags_max_len; } else nonoption_flags_len = 0; #endif return optstring; } /* Scan elements of ARGV (whose length is ARGC) for option characters given in OPTSTRING. If an element of ARGV starts with '-', and is not exactly "-" or "--", then it is an option element. The characters of this element (aside from the initial '-') are option characters. If `getopt' is called repeatedly, it returns successively each of the option characters from each of the option elements. If `getopt' finds another option character, it returns that character, updating `optind' and `nextchar' so that the next call to `getopt' can resume the scan with the following option character or ARGV-element. If there are no more option characters, `getopt' returns -1. Then `optind' is the index in ARGV of the first ARGV-element that is not an option. (The ARGV-elements have been permuted so that those that are not options now come last.) OPTSTRING is a string containing the legitimate option characters. If an option character is seen that is not listed in OPTSTRING, return '?' after printing an error message. If you set `opterr' to zero, the error message is suppressed but we still return '?'. If a char in OPTSTRING is followed by a colon, that means it wants an arg, so the following text in the same ARGV-element, or the text of the following ARGV-element, is returned in `optarg'. Two colons mean an option that wants an optional arg; if there is text in the current ARGV-element, it is returned in `optarg', otherwise `optarg' is set to zero. If OPTSTRING starts with `-' or `+', it requests different methods of handling the non-option ARGV-elements. See the comments about RETURN_IN_ORDER and REQUIRE_ORDER, above. Long-named options begin with `--' instead of `-'. Their names may be abbreviated as long as the abbreviation is unique or is an exact match for some defined option. If they have an argument, it follows the option name in the same ARGV-element, separated from the option name by a `=', or else the in next ARGV-element. When `getopt' finds a long-named option, it returns 0 if that option's `flag' field is nonzero, the value of the option's `val' field if the `flag' field is zero. The elements of ARGV aren't really const, because we permute them. But we pretend they're const in the prototype to be compatible with other systems. LONGOPTS is a vector of `struct option' terminated by an element containing a name which is zero. LONGIND returns the index in LONGOPT of the long-named option found. It is only valid when a long-named option has been found by the most recent call. If LONG_ONLY is nonzero, '-' as well as '--' can introduce long-named options. */ int _getopt_internal (argc, argv, optstring, longopts, longind, long_only) int argc; char *const *argv; const char *optstring; const struct option *longopts; int *longind; int long_only; { optarg = NULL; if (optind == 0 || !__getopt_initialized) { if (optind == 0) optind = 1; /* Don't scan ARGV[0], the program name. */ optstring = _getopt_initialize (argc, argv, optstring); __getopt_initialized = 1; } /* Test whether ARGV[optind] points to a non-option argument. Either it does not have option syntax, or there is an environment flag from the shell indicating it is not an option. The later information is only used when the used in the GNU libc. */ #ifdef _LIBC #define NONOPTION_P (argv[optind][0] != '-' || argv[optind][1] == '\0' \ || (optind < nonoption_flags_len \ && __getopt_nonoption_flags[optind] == '1')) #else #define NONOPTION_P (argv[optind][0] != '-' || argv[optind][1] == '\0') #endif if (nextchar == NULL || *nextchar == '\0') { /* Advance to the next ARGV-element. */ /* Give FIRST_NONOPT & LAST_NONOPT rational values if OPTIND has been moved back by the user (who may also have changed the arguments). */ if (last_nonopt > optind) last_nonopt = optind; if (first_nonopt > optind) first_nonopt = optind; if (ordering == PERMUTE) { /* If we have just processed some options following some non-options, exchange them so that the options come first. */ if (first_nonopt != last_nonopt && last_nonopt != optind) exchange ((char **) argv); else if (last_nonopt != optind) first_nonopt = optind; /* Skip any additional non-options and extend the range of non-options previously skipped. */ while (optind < argc && NONOPTION_P) optind++; last_nonopt = optind; } /* The special ARGV-element `--' means premature end of options. Skip it like a null option, then exchange with previous non-options as if it were an option, then skip everything else like a non-option. */ if (optind != argc && !strcmp (argv[optind], "--")) { optind++; if (first_nonopt != last_nonopt && last_nonopt != optind) exchange ((char **) argv); else if (first_nonopt == last_nonopt) first_nonopt = optind; last_nonopt = argc; optind = argc; } /* If we have done all the ARGV-elements, stop the scan and back over any non-options that we skipped and permuted. */ if (optind == argc) { /* Set the next-arg-index to point at the non-options that we previously skipped, so the caller will digest them. */ if (first_nonopt != last_nonopt) optind = first_nonopt; return -1; } /* If we have come to a non-option and did not permute it, either stop the scan or describe it to the caller and pass it by. */ if (NONOPTION_P) { if (ordering == REQUIRE_ORDER) return -1; optarg = argv[optind++]; return 1; } /* We have found another option-ARGV-element. Skip the initial punctuation. */ nextchar = (argv[optind] + 1 + (longopts != NULL && argv[optind][1] == '-')); } /* Decode the current option-ARGV-element. */ /* Check whether the ARGV-element is a long option. If long_only and the ARGV-element has the form "-f", where f is a valid short option, don't consider it an abbreviated form of a long option that starts with f. Otherwise there would be no way to give the -f short option. On the other hand, if there's a long option "fubar" and the ARGV-element is "-fu", do consider that an abbreviation of the long option, just like "--fu", and not "-f" with arg "u". This distinction seems to be the most useful approach. */ if (longopts != NULL && (argv[optind][1] == '-' || (long_only && (argv[optind][2] || !my_index (optstring, argv[optind][1]))))) { char *nameend; const struct option *p; const struct option *pfound = NULL; int exact = 0; int ambig = 0; int indfound = -1; int option_index; for (nameend = nextchar; *nameend && *nameend != '='; nameend++) /* Do nothing. */ ; /* Test all long options for either exact match or abbreviated matches. */ for (p = longopts, option_index = 0; p->name; p++, option_index++) if (!strncmp (p->name, nextchar, nameend - nextchar)) { if ((unsigned int) (nameend - nextchar) == (unsigned int) strlen (p->name)) { /* Exact match found. */ pfound = p; indfound = option_index; exact = 1; break; } else if (pfound == NULL) { /* First nonexact match found. */ pfound = p; indfound = option_index; } else /* Second or later nonexact match found. */ ambig = 1; } if (ambig && !exact) { if (opterr) fprintf (stderr, _("%s: option `%s' is ambiguous\n"), argv[0], argv[optind]); nextchar += strlen (nextchar); optind++; optopt = 0; return '?'; } if (pfound != NULL) { option_index = indfound; optind++; if (*nameend) { /* Don't test has_arg with >, because some C compilers don't allow it to be used on enums. */ if (pfound->has_arg) optarg = nameend + 1; else { if (opterr) if (argv[optind - 1][1] == '-') /* --option */ fprintf (stderr, _("%s: option `--%s' doesn't allow an argument\n"), argv[0], pfound->name); else /* +option or -option */ fprintf (stderr, _("%s: option `%c%s' doesn't allow an argument\n"), argv[0], argv[optind - 1][0], pfound->name); nextchar += strlen (nextchar); optopt = pfound->val; return '?'; } } else if (pfound->has_arg == 1) { if (optind < argc) optarg = argv[optind++]; else { if (opterr) fprintf (stderr, _("%s: option `%s' requires an argument\n"), argv[0], argv[optind - 1]); nextchar += strlen (nextchar); optopt = pfound->val; return optstring[0] == ':' ? ':' : '?'; } } nextchar += strlen (nextchar); if (longind != NULL) *longind = option_index; if (pfound->flag) { *(pfound->flag) = pfound->val; return 0; } return pfound->val; } /* Can't find it as a long option. If this is not getopt_long_only, or the option starts with '--' or is not a valid short option, then it's an error. Otherwise interpret it as a short option. */ if (!long_only || argv[optind][1] == '-' || my_index (optstring, *nextchar) == NULL) { if (opterr) { if (argv[optind][1] == '-') /* --option */ fprintf (stderr, _("%s: unrecognized option `--%s'\n"), argv[0], nextchar); else /* +option or -option */ fprintf (stderr, _("%s: unrecognized option `%c%s'\n"), argv[0], argv[optind][0], nextchar); } nextchar = (char *) ""; optind++; optopt = 0; return '?'; } } /* Look at and handle the next short option-character. */ { char c = *nextchar++; char *temp = my_index (optstring, c); /* Increment `optind' when we start to process its last character. */ if (*nextchar == '\0') ++optind; if (temp == NULL || c == ':') { if (opterr) { if (posixly_correct) /* 1003.2 specifies the format of this message. */ fprintf (stderr, _("%s: illegal option -- %c\n"), argv[0], c); else fprintf (stderr, _("%s: invalid option -- %c\n"), argv[0], c); } optopt = c; return '?'; } /* Convenience. Treat POSIX -W foo same as long option --foo */ if (temp[0] == 'W' && temp[1] == ';') { char *nameend; const struct option *p; const struct option *pfound = NULL; int exact = 0; int ambig = 0; int indfound = 0; int option_index; /* This is an option that requires an argument. */ if (*nextchar != '\0') { optarg = nextchar; /* If we end this ARGV-element by taking the rest as an arg, we must advance to the next element now. */ optind++; } else if (optind == argc) { if (opterr) { /* 1003.2 specifies the format of this message. */ fprintf (stderr, _("%s: option requires an argument -- %c\n"), argv[0], c); } optopt = c; if (optstring[0] == ':') c = ':'; else c = '?'; return c; } else /* We already incremented `optind' once; increment it again when taking next ARGV-elt as argument. */ optarg = argv[optind++]; /* optarg is now the argument, see if it's in the table of longopts. */ for (nextchar = nameend = optarg; *nameend && *nameend != '='; nameend++) /* Do nothing. */ ; /* Test all long options for either exact match or abbreviated matches. */ for (p = longopts, option_index = 0; p->name; p++, option_index++) if (!strncmp (p->name, nextchar, nameend - nextchar)) { if ((unsigned int) (nameend - nextchar) == strlen (p->name)) { /* Exact match found. */ pfound = p; indfound = option_index; exact = 1; break; } else if (pfound == NULL) { /* First nonexact match found. */ pfound = p; indfound = option_index; } else /* Second or later nonexact match found. */ ambig = 1; } if (ambig && !exact) { if (opterr) fprintf (stderr, _("%s: option `-W %s' is ambiguous\n"), argv[0], argv[optind]); nextchar += strlen (nextchar); optind++; return '?'; } if (pfound != NULL) { option_index = indfound; if (*nameend) { /* Don't test has_arg with >, because some C compilers don't allow it to be used on enums. */ if (pfound->has_arg) optarg = nameend + 1; else { if (opterr) fprintf (stderr, _("\ %s: option `-W %s' doesn't allow an argument\n"), argv[0], pfound->name); nextchar += strlen (nextchar); return '?'; } } else if (pfound->has_arg == 1) { if (optind < argc) optarg = argv[optind++]; else { if (opterr) fprintf (stderr, _("%s: option `%s' requires an argument\n"), argv[0], argv[optind - 1]); nextchar += strlen (nextchar); return optstring[0] == ':' ? ':' : '?'; } } nextchar += strlen (nextchar); if (longind != NULL) *longind = option_index; if (pfound->flag) { *(pfound->flag) = pfound->val; return 0; } return pfound->val; } nextchar = NULL; return 'W'; /* Let the application handle it. */ } if (temp[1] == ':') { if (temp[2] == ':') { /* This is an option that accepts an argument optionally. */ if (*nextchar != '\0') { optarg = nextchar; optind++; } else optarg = NULL; nextchar = NULL; } else { /* This is an option that requires an argument. */ if (*nextchar != '\0') { optarg = nextchar; /* If we end this ARGV-element by taking the rest as an arg, we must advance to the next element now. */ optind++; } else if (optind == argc) { if (opterr) { /* 1003.2 specifies the format of this message. */ fprintf (stderr, _("%s: option requires an argument -- %c\n"), argv[0], c); } optopt = c; if (optstring[0] == ':') c = ':'; else c = '?'; } else /* We already incremented `optind' once; increment it again when taking next ARGV-elt as argument. */ optarg = argv[optind++]; nextchar = NULL; } } return c; } } int getopt (argc, argv, optstring) int argc; char *const *argv; const char *optstring; { return _getopt_internal (argc, argv, optstring, (const struct option *) 0, (int *) 0, 0); } #endif /* Not ELIDE_CODE. */ #ifdef TEST /* Compile with -DTEST to make an executable for use in testing the above definition of `getopt'. */ int main (argc, argv) int argc; char **argv; { int c; int digit_optind = 0; while (1) { int this_option_optind = optind ? optind : 1; c = getopt (argc, argv, "abc:d:0123456789"); if (c == -1) break; switch (c) { case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': if (digit_optind != 0 && digit_optind != this_option_optind) printf ("digits occur in two different argv-elements.\n"); digit_optind = this_option_optind; printf ("option %c\n", c); break; case 'a': printf ("option a\n"); break; case 'b': printf ("option b\n"); break; case 'c': printf ("option c with value `%s'\n", optarg); break; case '?': break; default: printf ("?? getopt returned character code 0%o ??\n", c); } } if (optind < argc) { printf ("non-option ARGV-elements: "); while (optind < argc) printf ("%s ", argv[optind++]); printf ("\n"); } exit (0); } #endif /* TEST */ trueprint-5.4/src/lang_pascal.h0000644000175000017500000000021307625761737013563 00000000000000/* * Include file: * lang_pascal.h */ extern stream_status get_pascal_char(char *, char_status *); extern char lang_pascal_defaults[]; trueprint-5.4/src/lang_sh.h0000644000175000017500000000017707625761740012735 00000000000000/* * Include file: * lang_sh.h */ extern stream_status get_sh_char(char *, char_status *); extern char lang_sh_defaults[]; trueprint-5.4/BUGS0000644000175000017500000000115507625761335011042 00000000000000If you want to add an entry to this file, send mail to bug-trueprint@gnu.org Known bugs: perl - an associative array that starts with 'sub' gets confusing perl - trueprint cannot tell the difference between the shift-right operator "<<" and the start of a "here" document "<<". Perl can tell the difference because it knows whether it is expecting an operator or a value, but trueprint is a program of very little brain and takes as many shortcuts when parsing as possible... perl - the remainder of a line after a heredoc start will not be properly scanned for quoted strings. trueprint-5.4/COPYING0000644000175000017500000004311007625761335011407 00000000000000 GNU GENERAL PUBLIC LICENSE Version 2, June 1991 Copyright (C) 1989, 1991 Free Software Foundation, Inc. 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The licenses for most software are designed to take away your freedom to share and change it. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change free software--to make sure the software is free for all its users. This General Public License applies to most of the Free Software Foundation's software and to any other program whose authors commit to using it. (Some other Free Software Foundation software is covered by the GNU Library General Public License instead.) You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for this service if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs; and that you know you can do these things. To protect your rights, we need to make restrictions that forbid anyone to deny you these rights or to ask you to surrender the rights. These restrictions translate to certain responsibilities for you if you distribute copies of the software, or if you modify it. For example, if you distribute copies of such a program, whether gratis or for a fee, you must give the recipients all the rights that you have. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. We protect your rights with two steps: (1) copyright the software, and (2) offer you this license which gives you legal permission to copy, distribute and/or modify the software. Also, for each author's protection and ours, we want to make certain that everyone understands that there is no warranty for this free software. If the software is modified by someone else and passed on, we want its recipients to know that what they have is not the original, so that any problems introduced by others will not reflect on the original authors' reputations. Finally, any free program is threatened constantly by software patents. We wish to avoid the danger that redistributors of a free program will individually obtain patent licenses, in effect making the program proprietary. To prevent this, we have made it clear that any patent must be licensed for everyone's free use or not licensed at all. The precise terms and conditions for copying, distribution and modification follow. GNU GENERAL PUBLIC LICENSE TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION 0. This License applies to any program or other work which contains a notice placed by the copyright holder saying it may be distributed under the terms of this General Public License. The "Program", below, refers to any such program or work, and a "work based on the Program" means either the Program or any derivative work under copyright law: that is to say, a work containing the Program or a portion of it, either verbatim or with modifications and/or translated into another language. (Hereinafter, translation is included without limitation in the term "modification".) Each licensee is addressed as "you". Activities other than copying, distribution and modification are not covered by this License; they are outside its scope. The act of running the Program is not restricted, and the output from the Program is covered only if its contents constitute a work based on the Program (independent of having been made by running the Program). Whether that is true depends on what the Program does. 1. You may copy and distribute verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice and disclaimer of warranty; keep intact all the notices that refer to this License and to the absence of any warranty; and give any other recipients of the Program a copy of this License along with the Program. You may charge a fee for the physical act of transferring a copy, and you may at your option offer warranty protection in exchange for a fee. 2. You may modify your copy or copies of the Program or any portion of it, thus forming a work based on the Program, and copy and distribute such modifications or work under the terms of Section 1 above, provided that you also meet all of these conditions: a) You must cause the modified files to carry prominent notices stating that you changed the files and the date of any change. b) You must cause any work that you distribute or publish, that in whole or in part contains or is derived from the Program or any part thereof, to be licensed as a whole at no charge to all third parties under the terms of this License. c) If the modified program normally reads commands interactively when run, you must cause it, when started running for such interactive use in the most ordinary way, to print or display an announcement including an appropriate copyright notice and a notice that there is no warranty (or else, saying that you provide a warranty) and that users may redistribute the program under these conditions, and telling the user how to view a copy of this License. (Exception: if the Program itself is interactive but does not normally print such an announcement, your work based on the Program is not required to print an announcement.) These requirements apply to the modified work as a whole. If identifiable sections of that work are not derived from the Program, and can be reasonably considered independent and separate works in themselves, then this License, and its terms, do not apply to those sections when you distribute them as separate works. But when you distribute the same sections as part of a whole which is a work based on the Program, the distribution of the whole must be on the terms of this License, whose permissions for other licensees extend to the entire whole, and thus to each and every part regardless of who wrote it. Thus, it is not the intent of this section to claim rights or contest your rights to work written entirely by you; rather, the intent is to exercise the right to control the distribution of derivative or collective works based on the Program. In addition, mere aggregation of another work not based on the Program with the Program (or with a work based on the Program) on a volume of a storage or distribution medium does not bring the other work under the scope of this License. 3. You may copy and distribute the Program (or a work based on it, under Section 2) in object code or executable form under the terms of Sections 1 and 2 above provided that you also do one of the following: a) Accompany it with the complete corresponding machine-readable source code, which must be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, b) Accompany it with a written offer, valid for at least three years, to give any third party, for a charge no more than your cost of physically performing source distribution, a complete machine-readable copy of the corresponding source code, to be distributed under the terms of Sections 1 and 2 above on a medium customarily used for software interchange; or, c) Accompany it with the information you received as to the offer to distribute corresponding source code. (This alternative is allowed only for noncommercial distribution and only if you received the program in object code or executable form with such an offer, in accord with Subsection b above.) The source code for a work means the preferred form of the work for making modifications to it. For an executable work, complete source code means all the source code for all modules it contains, plus any associated interface definition files, plus the scripts used to control compilation and installation of the executable. However, as a special exception, the source code distributed need not include anything that is normally distributed (in either source or binary form) with the major components (compiler, kernel, and so on) of the operating system on which the executable runs, unless that component itself accompanies the executable. If distribution of executable or object code is made by offering access to copy from a designated place, then offering equivalent access to copy the source code from the same place counts as distribution of the source code, even though third parties are not compelled to copy the source along with the object code. 4. You may not copy, modify, sublicense, or distribute the Program except as expressly provided under this License. Any attempt otherwise to copy, modify, sublicense or distribute the Program is void, and will automatically terminate your rights under this License. However, parties who have received copies, or rights, from you under this License will not have their licenses terminated so long as such parties remain in full compliance. 5. You are not required to accept this License, since you have not signed it. However, nothing else grants you permission to modify or distribute the Program or its derivative works. These actions are prohibited by law if you do not accept this License. Therefore, by modifying or distributing the Program (or any work based on the Program), you indicate your acceptance of this License to do so, and all its terms and conditions for copying, distributing or modifying the Program or works based on it. 6. Each time you redistribute the Program (or any work based on the Program), the recipient automatically receives a license from the original licensor to copy, distribute or modify the Program subject to these terms and conditions. You may not impose any further restrictions on the recipients' exercise of the rights granted herein. You are not responsible for enforcing compliance by third parties to this License. 7. If, as a consequence of a court judgment or allegation of patent infringement or for any other reason (not limited to patent issues), conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot distribute so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not distribute the Program at all. For example, if a patent license would not permit royalty-free redistribution of the Program by all those who receive copies directly or indirectly through you, then the only way you could satisfy both it and this License would be to refrain entirely from distribution of the Program. If any portion of this section is held invalid or unenforceable under any particular circumstance, the balance of the section is intended to apply and the section as a whole is intended to apply in other circumstances. It is not the purpose of this section to induce you to infringe any patents or other property right claims or to contest validity of any such claims; this section has the sole purpose of protecting the integrity of the free software distribution system, which is implemented by public license practices. Many people have made generous contributions to the wide range of software distributed through that system in reliance on consistent application of that system; it is up to the author/donor to decide if he or she is willing to distribute software through any other system and a licensee cannot impose that choice. This section is intended to make thoroughly clear what is believed to be a consequence of the rest of this License. 8. If the distribution and/or use of the Program is restricted in certain countries either by patents or by copyrighted interfaces, the original copyright holder who places the Program under this License may add an explicit geographical distribution limitation excluding those countries, so that distribution is permitted only in or among countries not thus excluded. In such case, this License incorporates the limitation as if written in the body of this License. 9. The Free Software Foundation may publish revised and/or new versions of the General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies a version number of this License which applies to it and "any later version", you have the option of following the terms and conditions either of that version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of this License, you may choose any version ever published by the Free Software Foundation. 10. If you wish to incorporate parts of the Program into other free programs whose distribution conditions are different, write to the author to ask for permission. For software which is copyrighted by the Free Software Foundation, write to the Free Software Foundation; we sometimes make exceptions for this. Our decision will be guided by the two goals of preserving the free status of all derivatives of our free software and of promoting the sharing and reuse of software generally. NO WARRANTY 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively convey the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA Also add information on how to contact you by electronic and paper mail. If the program is interactive, make it output a short notice like this when it starts in an interactive mode: Gnomovision version 69, Copyright (C) year name of author Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, the commands you use may be called something other than `show w' and `show c'; they could even be mouse-clicks or menu items--whatever suits your program. You should also get your employer (if you work as a programmer) or your school, if any, to sign a "copyright disclaimer" for the program, if necessary. Here is a sample; alter the names: Yoyodyne, Inc., hereby disclaims all copyright interest in the program `Gnomovision' (which makes passes at compilers) written by James Hacker. , 1 April 1989 Ty Coon, President of Vice This General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Library General Public License instead of this License.