gnuspool-1.7ubuntu1/ 0000775 0000000 0000000 00000000000 11421757504 011451 5 ustar gnuspool-1.7ubuntu1/Netinst.in 0000775 0000000 0000000 00000012743 11366642365 013445 0 ustar #! /usr/bin/perl
#
# Copyright 2008 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 3 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 .
use Socket;
$prefix = "@prefix@";
$exec_prefix = "@exec_prefix@";
$bindir = "@bindir@";
$sbindir = "@sbindir@";
# Initialise network setup for GNUspool
# This assumes that network code is compiled in which it usually is
# First set up services (see services.h)
# Services for GNUspool
#gnuspool 48100/tcp # Connection port
#gnuspool 48100/udp # Probe port
#gnuspool-feeder 48101/tcp # Feeder port for GNUspool
#gnuspool-netsrv 48102/tcp # External job submission
#gnuspool-netsrv 48102/udp # Client access
#gnuspool-api 48103/tcp # API
#gnuspool-api 48103/udp # API (for wakeup messages)
# Name pnum t/u comment alternative names
@Portlist = ([gnuspool => [48100, 'tcp', 'GNUspool connection port', [qw/xitext spshed spooler/]]],
[gnuspool => [48100, 'udp', 'GNUspool probe port', [qw/xitext spshed spooler/]]],
["gnuspool-feeder" => [48101, 'tcp', 'GNUspool feeder port', [qw/spq/]]],
["gnuspool-netsrv" => [48102, 'tcp', 'GNUspool external job submission', [qw/xtnetsrv/]]],
["gnuspool-netsrv" => [48102, 'udp', 'GNUspool client access', [qw/xtnetsrv/]]],
["gnuspool-api" => [48103, 'tcp', 'GNUspool API', [qw/xtapi/]]],
["gnuspool-api" => [48103, 'udp', 'GNUspool API wakeup', [qw/xtapi/]]]);
# Make lookup for that lot
for my $p (@Portlist) {
my $name = $p->[0];
my $dets = $p->[1];
my $pnum = $dets->[0];
my $istcp = $dets->[1] eq 'tcp';
my @altnames = @{$dets->[3]};
my $v = { NAME => $name, PORT => $pnum, LIST => $p, COMMENT => $dets->[2], ALIAS => \@altnames };
if ($istcp) {
$mtcpnames{$name} = $v;
$mtcpports{$pnum} = $v;
for my $a (@altnames) {
$mtcpnames{$a} = $v;
}
}
else {
$mudpnames{$name} = $v;
$mudpports{$pnum} = $v;
for my $a (@altnames) {
$mudpnames{$a} = $v;
}
}
}
# Read in the services file
while (my ($name,$aliases,$port,$proto) = getservent) {
if ((lc $proto) eq 'tcp') {
my $mp = $mtcpnames{$name};
if ($mp) {
$mp->{HAD} = 1;
$had++;
push @tcpnconflict, {EXP => $mp, READ => $port} if $port != $mp->{PORT};
}
else {
$mp = $mtcpports{$port};
push @tcppconflict, {EXP => $mp, READ => $name} if $mp;
}
}
else {
my $mp = $mudpnames{$name};
if ($mp) {
$mp->{HAD} = 1;
$had++;
push @udpnconflict, {EXP => $mp, READ => $port} if $port != $mp->{PORT};
}
else {
$mp = $mudpports{$port};
push @udppconflict, {EXP => $mp, READ => $name} if $mp;
}
}
}
endservent;
# If we had any check we had all of them
if ($had != 0) {
if ($had != $#Portlist + 1) {
$errors++;
print "Warning - service(s) are missing\n";
for my $p (@Portlist) {
my $name = $p->[0];
my $dets = $p->[1];
my $pnum = $dets->[0];
my $istcp = $dets->[1] eq 'tcp';
if ($istcp) {
my $mp = $mtcpnames{$name};
print "Tcp port $name\n" unless $mp->{HAD};
}
else {
my $mp = $mudpnames{$name};
print "Udp port $name\n" unless $mp->{HAD};
}
}
}
}
if (@tcpnconflict || @tcppconflict || @udpnconflict || @udppconflict) {
for my $c (@tcpnconflict) {
my $name = $c->{EXP}->{NAME};
my $eport = $c->{EXP}->{PORT};
my $rport = $c->{READ};
print "Unexpected TCP port number $rport for $name expecting $eport\n";
$warnings++;
}
for my $c (@tcppconflict) {
my $name = $c->{EXP}->{NAME};
my $eport = $c->{EXP}->{PORT};
my $rname = $c->{READ};
print "TCP port $eport in use by $rname expecting to use it for $name\n";
$warnings++;
}
for my $c (@udpnconflict) {
my $name = $c->{EXP}->{NAME};
my $eport = $c->{EXP}->{PORT};
my $rport = $c->{READ};
print "Unexpected UDP port number $rport for $name expecting $eport\n";
$warnings++;
}
for my $c (@udppconflict) {
my $name = $c->{EXP}->{NAME};
my $eport = $c->{EXP}->{PORT};
my $rname = $c->{READ};
print "UDP port $eport in use by $rname expecting to use it for $name\n";
$warnings++;
}
}
if ($errors) {
print "Aborting due to $errors error(s)\n";
exit 10;
}
unless ($had) {
open(SRV, ">>/etc/services") or die "Cannot open services file\n";
print SRV "# GNUspool services\n";
for my $p (@Portlist) {
my $name = $p->[0];
my $dets = $p->[1];
my $pnum = $dets->[0];
my $proto = $dets->[1];
my $comment = $dets->[2];
my @altnames = @{$dets->[3]};
print SRV "$name\t$pnum/$proto ", join(' ', @altnames), " #$comment\n";
}
close SRV;
}
unless (-f "@sysconfdir@/gnuspool-hosts") {
my $hn = `hostname`;
chop($hn);
my $he = gethostbyname($hn);
my $ha = inet_ntoa($he);
unless ($ha =~ /^127\./) {
if (open(HF, ">/@sysconfdir@/gnuspool-hosts")) {
my $lt = localtime;
print HF "# Host file created on $lt\n\n";
print HF "localaddress\t$ha\n";
close HF;
}
}
}
gnuspool-1.7ubuntu1/STARTUP/ 0000775 0000000 0000000 00000000000 11421757503 012612 5 ustar gnuspool-1.7ubuntu1/STARTUP/Startdirs.in 0000775 0000000 0000000 00000001477 11366642365 015144 0 ustar #! /bin/sh
#
# Copyright 2008 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 3 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 .
#
# Set directories for startup files
prefix=@prefix@
exec_prefix=@exec_prefix@
USERPATH=@bindir@
SPOOLDIR=@spooldir@
gnuspool-1.7ubuntu1/STARTUP/Sysstart.SysV 0000775 0000000 0000000 00000004665 11366642365 015321 0 ustar #! /bin/sh
#
# Copyright 2008 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 3 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 .
#
# System V startup
. ./Startdirs
defaultstate=`sed -e '/:initdefault:/!d
s/^[^:]*:\([^:]*\):.*:/\1/' /etc/inittab`
for loc in /etc/rc.d /etc
do
if [ -d $loc ]
then
rcloc=$loc
break
fi
done
if [ -z "$defaultstate" ] && [ -d $rcloc/rc3.d ]
then
echo "Assuming default startup state is 3...."
defaultstate=3
fi
for loc in /etc/rc.d/init.d /etc/init.d
do
if [ -d $loc ]
then
initdir=$loc
break
fi
done
if [ -z "$rcloc" ] || [ -z "$initdir" ] || [ -z "$defaultstate" ]
then
cat <$Scriptfile
#
# Startup of GNUspool
#
case "\$1" in
start)
# Start GNUspool.
# Delete previous memory-mapped stuff which might have got left behind
rm -f $SPOOLDIR/spmm*
# This allocates space for amaximum of 2000 jobs and 50 printers
# but please adjust as needed
$USERPATH/gspl-start 2000 50
# If you want all your local printers started, uncomment the next two lines
# sleep 5
# $USERPATH/gspl-start -f '*'
echo GNUspool Started
;;
stop)
$USERPATH/gspl-stop -y
echo GNUspool stopped
;;
*)
echo "Usage: \$0 { start | stop }"
exit 1
;;
esac
EOF
chmod 744 $Scriptfile
ln $Scriptfile $rcloc/rc0.d/K01gnuspool
ln $Scriptfile $rcloc/rc$defaultstate.d/S80gnuspool
ln $Scriptfile $rcloc/rc$defaultstate.d/K01gnuspool
fi
gnuspool-1.7ubuntu1/STARTUP/README 0000664 0000000 0000000 00000001450 11421757503 013472 0 ustar Startup routine shell scripts.
=============================
Copyright 2008 Free Software Foundation, Inc.
Copying and distribution of this file, with or without modification,
are permitted in any medium without royalty provided the copyright
notice and this notice are preserved.
----------------------------------------------------------------------
These shell scripts are intended to aid the insertion of startup
routines for GNUspool into the /etc/rc* files for various types of
machine.
Please choose the script closest to what you want to do.
"configure" sets up "Startdirs" which is "."-ed to give the directories.
If it gets stuck it will just stop.
Please help us by adding and correcting these files as various people
change their startup files. Thanks!
John Collins
February 2009
gnuspool-1.7ubuntu1/STARTUP/Sysstart.IBM 0000775 0000000 0000000 00000002712 11366642365 015013 0 ustar #! /bin/sh
#
# Copyright 2008 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 3 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 .
#
# Insert system start for IBM
. ./Startdirs
sysname=`uname`
if [ "$sysname" != "AIX" ]
then
cat </dev/null 2>&1;[ $? -ne 0 ]
then
if grep "^gnuspool:" /etc/inittab >/dev/null 2>&1
then
ed -s /etc/inittab <>/etc/inittab
fi
fi
gnuspool-1.7ubuntu1/STARTUP/Sysstart.HP 0000775 0000000 0000000 00000007615 11366642365 014722 0 ustar #! /bin/sh
#
# Copyright 2008 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 3 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 .
#
# Insert system start for HP prior to 11
. ./Startdirs
sysname=`uname`
if [ "$sysname" != 'HP-UX' ]
then
cat </dev/null 2>&1;[ $? -ne 0 ]
then
defaultstate=`sed -e '/:initdefault:/!d
s/^[^:]*:\([^:]*\):.*:/\1/' /etc/inittab`
if [ -d /sbin/rc3.d ]
then
rcloc=/sbin
elif [ -d /etc/rc.d ]
then
rcloc=/etc/rc.d
fi
if [ -z "$defaultstate" ] && [ -d $rcloc/rc3.d ]
then
echo "Assuming default startup state is 3...."
defaultstate=3
fi
for loc in $rcloc/init.d /sbin/init.d /etc/rc.d/init.d /etc/init.d
do
if [ -d $loc ]
then
initdir=$loc
break
fi
done
if [ -z "$rcloc" ] || [ -z "$initdir" ] || [ -z "$defaultstate" ]
then
cat <$Scriptfile
#
# Startup of GNUspool
#
case "\$1" in
start)
# Start GNUspool.
# Delete previous memory-mapped stuff which might have got left behind
rm -f $SPOOLDIR/spmm*
# This allocates space for amaximum of 2000 jobs and 50 printers
# but please adjust as needed
$USERPATH/gspl-start 2000 50
# If you want all your local printers started, uncomment the next two lines
# sleep 5
# $USERPATH/gspl-start -f '*'
echo GNUspool Started
;;
stop)
$USERPATH/gspl-stop -y
echo GNUspool stopped
;;
*)
echo "Usage: \$0 { start | stop }"
exit 1
;;
esac
EOF
chmod 744 $Scriptfile
ln $Scriptfile $rcloc/rc0.d/K01gnuspool
ln $Scriptfile $rcloc/rc$defaultstate.d/S80gnuspool
ln $Scriptfile $rcloc/rc$defaultstate.d/K01gnuspool
fi
else
if [ "$forceme" = "Y" ] || grep startgnuspool /etc/rc >/dev/null 2>&1;[ %? -ne 0 ]
then
if grep startgnuspool /etc/rc >/dev/null 2>&1
then
ed -s /etc/rc <<'EORO'
/startgnuspool()/,/}/d
/startgnuspool/d
w
q
EORO
fi
rm -f /etc/shutdown.d/stopgnuspool
tmped=/tmp/edrc$$
cat >$tmped </etc/shutdown.d/stopgnuspool <.
#
# Insert system start for GNU/Linux
. ./Startdirs
if [ ! -d /etc/rc.d ] || [ ! -d /etc/rc.d/init.d ]
then
cat </dev/null 2>&1
cat <$Scriptfile
#!/bin/sh
#
# chkconfig: 2345 80 01
# description: spshed is the scheduler process for GNUspool
# processname: spshed
#
# Source function library.
. /etc/rc.d/init.d/functions
RETVAL=0
case "\$1" in
start)
echo -n "Starting $Prodname: "
# Delete previous memory-mapped stuff which might have got left behind
rm -f $SPOOLDIR/spmm*
# This allocates space for amaximum of 2000 jobs and 50 printers
# but please adjust as needed
$USERPATH/gspl-start 2000 50
RETVAL=\$?
if [ \$? -eq 0 ]
then echo_success
else echo_failure
fi
# If you want all your local printers started, uncomment the next two lines
# sleep 5
# $USERPATH/gspl-start -f '*'
echo
;;
stop)
echo -n "Shutting down $Prodname: "
$USERPATH/gspl-stop -y
RETVAL=\$?
if [ \$? -eq 0 ]
then echo_success
else echo_failure
fi
echo
;;
status)
status $Chkconfproc
RETVAL=\$?
;;
restart|reload)
\$0 stop
\$0 start
RETVAL=\$?
;;
*)
echo usage: \$0 '{start|stop|restart|reload|status}'
;;
esac
exit \$RETVAL
EOF
chmod 744 $Scriptfile
chkconfig --add gnuspool
fi
fi
gnuspool-1.7ubuntu1/m4/ 0000775 0000000 0000000 00000000000 11421757504 011771 5 ustar gnuspool-1.7ubuntu1/m4/ltsugar.m4 0000664 0000000 0000000 00000010262 11421757504 013715 0 ustar # ltsugar.m4 -- libtool m4 base layer. -*-Autoconf-*-
#
# Copyright (C) 2004, 2005, 2007 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 5 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.
m4_define([lt_combine],
[m4_if([$2], [], [],
[m4_if([$4], [], [],
[lt_join(m4_quote(m4_default([$1], [[, ]])),
lt_unquote(m4_split(m4_normalize(m4_foreach(_Lt_prefix, [$2],
[m4_foreach(_Lt_suffix, lt_car([m4_shiftn(3, $@)]),
[_Lt_prefix[]$3[]_Lt_suffix ])])))))])])dnl
])
# 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
])
gnuspool-1.7ubuntu1/m4/ltoptions.m4 0000664 0000000 0000000 00000027227 11421757504 014300 0 ustar # Helper functions for option handling. -*- 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 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*)
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], [0], [Assembler program])dnl
test -z "$DLLTOOL" && DLLTOOL=dlltool
_LT_DECL([], [DLLTOOL], [0], [DLL creation program])dnl
test -z "$OBJDUMP" && OBJDUMP=objdump
_LT_DECL([], [OBJDUMP], [0], [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],
[try to use only PIC/non-PIC objects @<:@default=use both@:>@])],
[pic_mode="$withval"],
[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])])
gnuspool-1.7ubuntu1/m4/libtool.m4 0000664 0000000 0000000 00000770267 11421757504 013722 0 ustar # libtool.m4 - Configure libtool for the host system. -*-Autoconf-*-
#
# Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2003, 2004, 2005,
# 2006, 2007, 2008 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 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 56 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_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
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 "X$cc_temp" | $Xsed -e 's%.*/%%' -e "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
_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_CMD_RELOAD])dnl
m4_require([_LT_CHECK_MAGIC_METHOD])dnl
m4_require([_LT_CMD_OLD_ARCHIVE])dnl
m4_require([_LT_CMD_GLOBAL_SYMBOLS])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
_LT_PROG_ECHO_BACKSLASH
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
# Sed substitution that helps us do robust quoting. It backslashifies
# 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'
# 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_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],
[_$0(m4_quote(m4_default([$1], [[, ]])),
m4_quote(m4_if([$2], [],
m4_quote(lt_decl_tag_varnames),
m4_quote(m4_shift($@)))),
m4_split(m4_normalize(m4_quote(_LT_TAGS))))])
m4_define([_lt_decl_varnames_tagged], [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 "X$][$1" | $Xsed -e "$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 "X$" | $Xsed -e "$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'
# Quote evaled strings.
for var in lt_decl_all_varnames([[ \
]], lt_decl_quote_varnames); do
case \`eval \\\\\$ECHO "X\\\\\$\$var"\` in
*[[\\\\\\\`\\"\\\$]]*)
eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"X\\\$\$var\\" | \\\$Xsed -e \\"\\\$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 "X\\\\\$\$var"\` in
*[[\\\\\\\`\\"\\\$]]*)
eval "lt_\$var=\\\\\\"\\\`\\\$ECHO \\"X\\\$\$var\\" | \\\$Xsed -e \\"\\\$double_quote_subst\\" -e \\"\\\$sed_quote_subst\\" -e \\"\\\$delay_variable_subst\\"\\\`\\\\\\""
;;
*)
eval "lt_\$var=\\\\\\"\\\$\$var\\\\\\""
;;
esac
done
# Fix-up fallback echo if it was mangled by the above quoting rules.
case \$lt_ECHO in
*'\\\[$]0 --fallback-echo"')dnl "
lt_ECHO=\`\$ECHO "X\$lt_ECHO" | \$Xsed -e 's/\\\\\\\\\\\\\\\[$]0 --fallback-echo"\[$]/\[$]0 --fallback-echo"/'\`
;;
esac
_LT_OUTPUT_LIBTOOL_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])
cat >"$CONFIG_LT" <<_LTEOF
#! $SHELL
# Generated by $as_me.
# Run this file to recreate a libtool stub with the current configuration.
lt_cl_silent=false
SHELL=\${CONFIG_SHELL-$SHELL}
_LTEOF
cat >>"$CONFIG_LT" <<\_LTEOF
AS_SHELL_SANITIZE
_AS_PREPARE
exec AS_MESSAGE_FD>&1
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) 2008 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.
if test "$no_create" != yes; then
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)
fi
])# 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 '/^# Generated shell functions inserted here/q' "$ltmain" >> "$cfgfile" \
|| (rm -f "$cfgfile"; exit 1)
_LT_PROG_XSI_SHELLFNS
sed -n '/^# Generated shell functions inserted here/,$p' "$ltmain" >> "$cfgfile" \
|| (rm -f "$cfgfile"; exit 1)
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)],
[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
# _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([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)])
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], [])
# _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 test -f libconftest.dylib && test ! -s conftest.err && test $_lt_result = 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"
])
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" != ":"; then
_lt_dsymutil='~$DSYMUTIL $lib || :'
else
_lt_dsymutil=
fi
;;
esac
])
# _LT_DARWIN_LINKER_FEATURES
# --------------------------
# 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
_LT_TAGVAR(whole_archive_flag_spec, $1)=''
_LT_TAGVAR(link_all_deplibs, $1)=yes
_LT_TAGVAR(allow_undefined_flag, $1)="$_lt_dar_allow_undefined"
if test "$GCC" = "yes"; then
output_verbose_link_cmd=echo
_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
# -----------------------
# 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.
m4_defun([_LT_SYS_MODULE_PATH_AIX],
[m4_require([_LT_DECL_SED])dnl
AC_LINK_IFELSE(AC_LANG_PROGRAM,[
lt_aix_libpath_sed='
/Import File Strings/,/^$/ {
/^0/ {
s/^0 *\(.*\)$/\1/
p
}
}'
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 "$aix_libpath"; then
aix_libpath=`dump -HX64 conftest$ac_exeext 2>/dev/null | $SED -n -e "$lt_aix_libpath_sed"`
fi],[])
if test -z "$aix_libpath"; then aix_libpath="/usr/lib:/lib"; fi
])# _LT_SYS_MODULE_PATH_AIX
# _LT_SHELL_INIT(ARG)
# -------------------
m4_define([_LT_SHELL_INIT],
[ifdef([AC_DIVERSION_NOTICE],
[AC_DIVERT_PUSH(AC_DIVERSION_NOTICE)],
[AC_DIVERT_PUSH(NOTICE)])
$1
AC_DIVERT_POP
])# _LT_SHELL_INIT
# _LT_PROG_ECHO_BACKSLASH
# -----------------------
# Add some code to the start of the generated configure script which
# will find an echo command which doesn't interpret backslashes.
m4_defun([_LT_PROG_ECHO_BACKSLASH],
[_LT_SHELL_INIT([
# Check that we are running under the correct shell.
SHELL=${CONFIG_SHELL-/bin/sh}
case X$lt_ECHO in
X*--fallback-echo)
# Remove one level of quotation (which was required for Make).
ECHO=`echo "$lt_ECHO" | sed 's,\\\\\[$]\\[$]0,'[$]0','`
;;
esac
ECHO=${lt_ECHO-echo}
if test "X[$]1" = X--no-reexec; then
# Discard the --no-reexec flag, and continue.
shift
elif test "X[$]1" = X--fallback-echo; then
# Avoid inline document here, it may be left over
:
elif test "X`{ $ECHO '\t'; } 2>/dev/null`" = 'X\t' ; then
# Yippee, $ECHO works!
:
else
# Restart under the correct shell.
exec $SHELL "[$]0" --no-reexec ${1+"[$]@"}
fi
if test "X[$]1" = X--fallback-echo; then
# used as fallback echo
shift
cat <<_LT_EOF
[$]*
_LT_EOF
exit 0
fi
# 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
if test -z "$lt_ECHO"; then
if test "X${echo_test_string+set}" != Xset; then
# find a string as large as possible, as long as the shell can cope with it
for cmd in 'sed 50q "[$]0"' 'sed 20q "[$]0"' 'sed 10q "[$]0"' 'sed 2q "[$]0"' 'echo test'; do
# expected sizes: less than 2Kb, 1Kb, 512 bytes, 16 bytes, ...
if { echo_test_string=`eval $cmd`; } 2>/dev/null &&
{ test "X$echo_test_string" = "X$echo_test_string"; } 2>/dev/null
then
break
fi
done
fi
if test "X`{ $ECHO '\t'; } 2>/dev/null`" = 'X\t' &&
echo_testing_string=`{ $ECHO "$echo_test_string"; } 2>/dev/null` &&
test "X$echo_testing_string" = "X$echo_test_string"; then
:
else
# The Solaris, AIX, and Digital Unix default echo programs unquote
# backslashes. This makes it impossible to quote backslashes using
# echo "$something" | sed 's/\\/\\\\/g'
#
# So, first we look for a working echo in the user's PATH.
lt_save_ifs="$IFS"; IFS=$PATH_SEPARATOR
for dir in $PATH /usr/ucb; do
IFS="$lt_save_ifs"
if (test -f $dir/echo || test -f $dir/echo$ac_exeext) &&
test "X`($dir/echo '\t') 2>/dev/null`" = 'X\t' &&
echo_testing_string=`($dir/echo "$echo_test_string") 2>/dev/null` &&
test "X$echo_testing_string" = "X$echo_test_string"; then
ECHO="$dir/echo"
break
fi
done
IFS="$lt_save_ifs"
if test "X$ECHO" = Xecho; then
# We didn't find a better echo, so look for alternatives.
if test "X`{ print -r '\t'; } 2>/dev/null`" = 'X\t' &&
echo_testing_string=`{ print -r "$echo_test_string"; } 2>/dev/null` &&
test "X$echo_testing_string" = "X$echo_test_string"; then
# This shell has a builtin print -r that does the trick.
ECHO='print -r'
elif { test -f /bin/ksh || test -f /bin/ksh$ac_exeext; } &&
test "X$CONFIG_SHELL" != X/bin/ksh; then
# If we have ksh, try running configure again with it.
ORIGINAL_CONFIG_SHELL=${CONFIG_SHELL-/bin/sh}
export ORIGINAL_CONFIG_SHELL
CONFIG_SHELL=/bin/ksh
export CONFIG_SHELL
exec $CONFIG_SHELL "[$]0" --no-reexec ${1+"[$]@"}
else
# Try using printf.
ECHO='printf %s\n'
if test "X`{ $ECHO '\t'; } 2>/dev/null`" = 'X\t' &&
echo_testing_string=`{ $ECHO "$echo_test_string"; } 2>/dev/null` &&
test "X$echo_testing_string" = "X$echo_test_string"; then
# Cool, printf works
:
elif echo_testing_string=`($ORIGINAL_CONFIG_SHELL "[$]0" --fallback-echo '\t') 2>/dev/null` &&
test "X$echo_testing_string" = 'X\t' &&
echo_testing_string=`($ORIGINAL_CONFIG_SHELL "[$]0" --fallback-echo "$echo_test_string") 2>/dev/null` &&
test "X$echo_testing_string" = "X$echo_test_string"; then
CONFIG_SHELL=$ORIGINAL_CONFIG_SHELL
export CONFIG_SHELL
SHELL="$CONFIG_SHELL"
export SHELL
ECHO="$CONFIG_SHELL [$]0 --fallback-echo"
elif echo_testing_string=`($CONFIG_SHELL "[$]0" --fallback-echo '\t') 2>/dev/null` &&
test "X$echo_testing_string" = 'X\t' &&
echo_testing_string=`($CONFIG_SHELL "[$]0" --fallback-echo "$echo_test_string") 2>/dev/null` &&
test "X$echo_testing_string" = "X$echo_test_string"; then
ECHO="$CONFIG_SHELL [$]0 --fallback-echo"
else
# maybe with a smaller string...
prev=:
for cmd in 'echo test' 'sed 2q "[$]0"' 'sed 10q "[$]0"' 'sed 20q "[$]0"' 'sed 50q "[$]0"'; do
if { test "X$echo_test_string" = "X`eval $cmd`"; } 2>/dev/null
then
break
fi
prev="$cmd"
done
if test "$prev" != 'sed 50q "[$]0"'; then
echo_test_string=`eval $prev`
export echo_test_string
exec ${ORIGINAL_CONFIG_SHELL-${CONFIG_SHELL-/bin/sh}} "[$]0" ${1+"[$]@"}
else
# Oops. We lost completely, so just stick with echo.
ECHO=echo
fi
fi
fi
fi
fi
fi
# Copy echo and quote the copy suitably for passing to libtool from
# the Makefile, instead of quoting the original, which is used later.
lt_ECHO=$ECHO
if test "X$lt_ECHO" = "X$CONFIG_SHELL [$]0 --fallback-echo"; then
lt_ECHO="$CONFIG_SHELL \\\$\[$]0 --fallback-echo"
fi
AC_SUBST(lt_ECHO)
])
_LT_DECL([], [SHELL], [1], [Shell to use when invoking shell scripts])
_LT_DECL([], [ECHO], [1],
[An echo program that does not interpret backslashes])
])# _LT_PROG_ECHO_BACKSLASH
# _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 __oline__ "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*)
LD="${LD-ld} -m elf_i386"
;;
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
;;
sparc*-*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*) LD="${LD-ld} -m elf64_sparc" ;;
*)
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_CMD_OLD_ARCHIVE
# -------------------
m4_defun([_LT_CMD_OLD_ARCHIVE],
[AC_CHECK_TOOL(AR, ar, false)
test -z "$AR" && AR=ar
test -z "$AR_FLAGS" && AR_FLAGS=cru
_LT_DECL([], [AR], [1], [The archiver])
_LT_DECL([], [AR_FLAGS], [1])
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 \$oldlib"
;;
*)
old_postinstall_cmds="$old_postinstall_cmds~\$RANLIB \$oldlib"
;;
esac
old_archive_cmds="$old_archive_cmds~\$RANLIB \$oldlib"
fi
_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_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:__oline__: $lt_compile\"" >&AS_MESSAGE_LOG_FD)
(eval "$lt_compile" 2>conftest.err)
ac_status=$?
cat conftest.err >&AS_MESSAGE_LOG_FD
echo "$as_me:__oline__: \$? = $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 "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/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 "X$_lt_linker_boilerplate" | $Xsed -e '/^$/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*)
# 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;
;;
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
;;
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"; 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"`$SHELL [$]0 --fallback-echo "X$teststring$teststring" 2>/dev/null` \
= "XX$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 __oline__ "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
#ifdef __cplusplus
extern "C" void exit (int);
#endif
void fnord() { int i=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;
/* dlclose (self); */
}
else
puts (dlerror ());
exit (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*)
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:__oline__: $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:__oline__: \$? = $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 "X$_lt_compiler_boilerplate" | $Xsed -e '/^$/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_SED])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
lt_search_path_spec=`$CC -print-search-dirs | awk $lt_awk_arg | $SED -e "s/^libraries://" -e "s,=/,/,g"`
if $ECHO "$lt_search_path_spec" | $GREP ';' >/dev/null ; then
# 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 -e 's/;/ /g'`
else
lt_search_path_spec=`$ECHO "$lt_search_path_spec" | $SED -e "s/$PATH_SEPARATOR/ /g"`
fi
# 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; }
}'`
sys_lib_search_path_spec=`$ECHO $lt_search_path_spec`
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
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
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=`$ECHO "X$lib" | $Xsed -e '\''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
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*)
version_type=windows
shrext_cmds=".dll"
need_version=no
need_lib_prefix=no
case $GCC,$host_os in
yes,cygwin* | yes,mingw* | yes,pw32*)
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="/usr/lib /lib/w32api /lib /usr/local/lib"
;;
mingw*)
# MinGW DLLs use traditional 'lib' prefix
soname_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext}'
sys_lib_search_path_spec=`$CC -print-search-dirs | $GREP "^libraries:" | $SED -e "s/^libraries://" -e "s,=/,/,g"`
if $ECHO "$sys_lib_search_path_spec" | [$GREP ';[c-zC-Z]:/' >/dev/null]; then
# It is most probably a Windows format PATH printed by
# mingw gcc, but we are running on Cygwin. Gcc prints its search
# path with ; separators, and with drive letters. We can handle the
# drive letters (cygwin fileutils understands them), so leave them,
# especially as we might pass files found there to a mingw objdump,
# which wouldn't understand a cygwinified path. Ahh.
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
;;
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
;;
*)
library_names_spec='${libname}`echo ${release} | $SED -e 's/[[.]]/-/g'`${versuffix}${shared_ext} $libname.lib'
;;
esac
dynamic_linker='Win32 ld.exe'
# 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
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
;;
freebsd1*)
dynamic_linker=no
;;
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[[123]]*) 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
;;
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
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'
;;
interix[[3-9]]*)
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'
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
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 Linux ELF.
linux* | k*bsd*-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'
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
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],
[shlibpath_overrides_runpath=yes])])
LDFLAGS=$save_LDFLAGS
libdir=$save_libdir
# 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;/^$/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
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
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
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
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
need_lib_prefix=no
need_version=no
library_name_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
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([], [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
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
lt_cv_deplibs_check_method='file_magic file format pei*-i386(.*architecture: i386)?'
lt_cv_file_magic_cmd='$OBJDUMP -f'
fi
;;
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
;;
gnu*)
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]) 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 Linux ELF.
linux* | k*bsd*-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_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_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.
AC_CHECK_TOOLS(DUMPBIN, ["dumpbin -symbols" "link -dump -symbols"], :)
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:__oline__: $ac_compile\"" >&AS_MESSAGE_LOG_FD)
(eval "$ac_compile" 2>conftest.err)
cat conftest.err >&AS_MESSAGE_LOG_FD
(eval echo "\"\$as_me:__oline__: $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:__oline__: 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_LIB_M
# --------
# check for math library
AC_DEFUN([LT_LIB_M],
[AC_REQUIRE([AC_CANONICAL_HOST])dnl
LIBM=
case $host in
*-*-beos* | *-*-cygwin* | *-*-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
_LT_TAGVAR(lt_prog_compiler_no_builtin_flag, $1)=' -fno-builtin'
_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([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*)
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};"\
" /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
# 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
#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. */
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_save_LIBS="$LIBS"
lt_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_save_LIBS"
CFLAGS="$lt_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
_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_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)=
AC_MSG_CHECKING([for $compiler option to produce PIC])
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*)
# 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)=
;;
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 IA64 HP-UX and 64-bit HP-UX, but
# not for PA HP-UX.
case $host_cpu in
hppa*64*|ia64*)
;;
*)
_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
;;
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)
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'
;;
icpc* | ecpc* )
# Intel C++
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
_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*)
# IBM XL 8.0 on PPC
_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*)
# 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*)
# 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'
;;
hpux*)
# 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)='-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
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*)
# 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)
case $cc_basename in
icc* | ecc* | ifort*)
_LT_TAGVAR(lt_prog_compiler_wl, $1)='-Wl,'
_LT_TAGVAR(lt_prog_compiler_pic, $1)='-KPIC'
_LT_TAGVAR(lt_prog_compiler_static, $1)='-static'
;;
pgcc* | pgf77* | pgf90* | pgf95*)
# 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*)
# IBM XL C 8.0/Fortran 10.1 on PPC
_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)='-Wl,'
;;
*Sun\ F*)
# 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)=''
;;
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*)
_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_MSG_RESULT([$_LT_TAGVAR(lt_prog_compiler_pic, $1)])
_LT_TAGDECL([wl], [lt_prog_compiler_wl], [1],
[How to pass a linker flag through the compiler])
#
# 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])
#
# 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_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'
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
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")) && ([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*)
_LT_TAGVAR(export_symbols_cmds, $1)='$NM $libobjs $convenience | $global_symbol_pipe | $SED -e '\''/^[[BCDGRS]][[ ]]/s/.*[[ ]]\([[^ ]]*\)/\1 DATA/;/^.*[[ ]]__nm__/s/^.*[[ ]]__nm__\([[^ ]]*\)[[ ]][[^ ]]*/\1 DATA/;/^I[[ ]]/d;/^[[AITW]][[ ]]/s/.* //'\'' | sort | uniq > $export_symbols'
;;
linux* | k*bsd*-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
_LT_TAGVAR(exclude_expsyms, $1)=['_GLOBAL_OFFSET_TABLE_|_GLOBAL__F[ID]_.*']
], [
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_flag_spec_ld, $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*)
# 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
;;
esac
_LT_TAGVAR(ld_shlibs, $1)=yes
if test "$with_gnu_ld" = 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
*\ [[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.9.1, 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 modify your PATH
*** so that a non-GNU linker is found, and then restart.
_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*)
# _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(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/'\'' | $SED -e '\''/^[[AITW]][[ ]]/s/.*[[ ]]//'\'' | sort | uniq > $export_symbols'
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
;;
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)
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=
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; $ECHO \"$new_convenience\"` ${wl}--no-whole-archive'
tmp_addflag=' $pic_flag'
;;
pgf77* | pgf90* | pgf95*) # 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; $ECHO \"$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' ;;
xl[[cC]]*) # IBM XL C 8.0 on PPC (deal with xlf below)
tmp_sharedflag='-qmkshrobj'
tmp_addflag= ;;
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; $ECHO \"$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*)
# 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)=
_LT_TAGVAR(hardcode_libdir_flag_spec_ld, $1)='-rpath $libdir'
_LT_TAGVAR(archive_cmds, $1)='$LD -shared $libobjs $deplibs $compiler_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 $compiler_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 $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'
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 $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
;;
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 $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
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
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")) && ([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
# 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
_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 $ECHO "X${wl}${allow_undefined_flag}" | $Xsed; 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
_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'
# Exported symbols can be pulled into shared objects from archives
_LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience'
_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*)
# 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.
_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 `$ECHO "X$deplibs" | $Xsed -e '\''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(fix_srcfile_path, $1)='`cygpath -w "$srcfile"`'
_LT_TAGVAR(enable_shared_with_static_runtimes, $1)=yes
;;
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
;;
freebsd1*)
_LT_TAGVAR(ld_shlibs, $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 -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 -fPIC ${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 -a "$with_gnu_ld" = no; then
_LT_TAGVAR(archive_cmds, $1)='$CC -shared -fPIC ${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_flag_spec_ld, $1)='+b $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 -a "$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 ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $libobjs $deplibs $compiler_flags'
;;
*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared -fPIC ${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'
;;
*)
_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 $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && $ECHO "X${wl}-set_version ${wl}$verstring" | $Xsed` ${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.
save_LDFLAGS="$LDFLAGS"
LDFLAGS="$LDFLAGS -shared ${wl}-exported_symbol ${wl}foo ${wl}-update_registry ${wl}/dev/null"
AC_LINK_IFELSE(int foo(void) {},
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && $ECHO "X${wl}-set_version ${wl}$verstring" | $Xsed` ${wl}-update_registry ${wl}${output_objdir}/so_locations ${wl}-exports_file ${wl}$export_symbols -o $lib'
)
LDFLAGS="$save_LDFLAGS"
else
_LT_TAGVAR(archive_cmds, $1)='$CC -shared $libobjs $deplibs $compiler_flags -soname $soname `test -n "$verstring" && $ECHO "X-set_version $verstring" | $Xsed` -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" && $ECHO "X-set_version $verstring" | $Xsed` -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" && $ECHO "X${wl}-set_version ${wl}$verstring" | $Xsed` ${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" && $ECHO "X-set_version $verstring" | $Xsed` -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} $libobjs $deplibs $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && $ECHO "X${wl}-set_version ${wl}$verstring" | $Xsed` ${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" && $ECHO "X-set_version $verstring" | $Xsed` -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 "X-set_version $verstring" | $Xsed` -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 ${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 ${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_MSG_CHECKING([whether -lc should be explicitly linked in])
$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_TAGVAR(archive_cmds_need_lc, $1)=no
else
_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*
AC_MSG_RESULT([$_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_flag_spec_ld], [1],
[[If ld is used when linking, 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([], [fix_srcfile_path], [1],
[Fix the shell variable $srcfile for the compiler])
_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([], [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_PROG_CXX
# ------------
# Since AC_PROG_CXX is broken, in that it returns g++ if there is no c++
# compiler, we have our own version here.
m4_defun([_LT_PROG_CXX],
[
pushdef([AC_MSG_ERROR], [_lt_caught_CXX_error=yes])
AC_PROG_CXX
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
popdef([AC_MSG_ERROR])
])# _LT_PROG_CXX
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([_LT_PROG_CXX], [])
# _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],
[AC_REQUIRE([_LT_PROG_CXX])dnl
m4_require([_LT_FILEUTILS_DEFAULTS])dnl
m4_require([_LT_DECL_EGREP])dnl
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_flag_spec_ld, $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(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_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++"}
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 -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname $wl$soname -o $lib'
_LT_TAGVAR(archive_expsym_cmds, $1)='$CC -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 "\-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
# 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
_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 $ECHO "X${wl}${allow_undefined_flag}" | $Xsed; 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
_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'
# Exported symbols can be pulled into shared objects from archives
_LT_TAGVAR(whole_archive_flag_spec, $1)='$convenience'
_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*)
# _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(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
;;
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
;;
freebsd[[12]]*)
# 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
;;
gnu*)
;;
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; $ECHO "X$list" | $Xsed'
;;
*)
if test "$GXX" = yes; then
_LT_TAGVAR(archive_cmds, $1)='$RM $output_objdir/$soname~$CC -shared -nostdlib -fPIC ${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; $ECHO "X$list" | $Xsed'
;;
*)
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 -fPIC ${wl}+h ${wl}$soname ${wl}+nodefaultrpath -o $lib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags'
;;
*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib -fPIC ${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" && $ECHO "X-set_version $verstring" | $Xsed` -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 -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && $ECHO "X${wl}-set_version ${wl}$verstring" | $Xsed` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
else
_LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname `test -n "$verstring" && $ECHO "X${wl}-set_version ${wl}$verstring" | $Xsed` -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)
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; $ECHO "X$list" | $Xsed'
_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 | $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 | $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 | $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 | $NL2SP` $postdep_objects $compiler_flags ${wl}-soname ${wl}$soname ${wl}-retain-symbols-file ${wl}$export_symbols -o $lib'
;;
*) # Version 6 will 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; $ECHO \"$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=`$ECHO "X$templist" | $Xsed -e "s/\(^.*ld.*\)\( .*ld .*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; $ECHO "X$list" | $Xsed'
;;
xl*)
# 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; $ECHO \"$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='echo'
# 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=echo
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" && $ECHO "X${wl}-set_version $verstring" | $Xsed` -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" && $ECHO "X-set_version $verstring" | $Xsed` -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 "X-set_version $verstring" | $Xsed` -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=`$ECHO "X$templist" | $Xsed -e "s/\(^.*ld.*\)\( .*ld.*$\)/\1/"`; list=""; for z in $templist; do case $z in conftest.$objext) list="$list $z";; *.$objext);; *) list="$list $z";;esac; done; $ECHO "X$list" | $Xsed'
;;
*)
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" && $ECHO "X${wl}-set_version ${wl}$verstring" | $Xsed` ${wl}-update_registry ${wl}${output_objdir}/so_locations -o $lib'
;;
*)
_LT_TAGVAR(archive_cmds, $1)='$CC -shared -nostdlib ${allow_undefined_flag} $predep_objects $libobjs $deplibs $postdep_objects $compiler_flags ${wl}-msym ${wl}-soname ${wl}$soname `test -n "$verstring" && $ECHO "${wl}-set_version ${wl}$verstring" | $Xsed` ${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 "\-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*)
# 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='echo'
# 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 -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 -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 "\-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 "\-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(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
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_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
# 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
])
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 $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
else
prev=
fi
if test "$pre_test_object_deps_done" = no; then
case $p 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
;;
*.$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
# 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*)
# 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_PROG_F77
# ------------
# Since AC_PROG_F77 is broken, in that it returns the empty string
# if there is no fortran compiler, we have our own version here.
m4_defun([_LT_PROG_F77],
[
pushdef([AC_MSG_ERROR], [_lt_disable_F77=yes])
AC_PROG_F77
if test -z "$F77" || test "X$F77" = "Xno"; then
_lt_disable_F77=yes
fi
popdef([AC_MSG_ERROR])
])# _LT_PROG_F77
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([_LT_PROG_F77], [])
# _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_REQUIRE([_LT_PROG_F77])dnl
AC_LANG_PUSH(Fortran 77)
_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_flag_spec_ld, $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(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
CC=${F77-"f77"}
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"
fi # test "$_lt_disable_F77" != yes
AC_LANG_POP
])# _LT_LANG_F77_CONFIG
# _LT_PROG_FC
# -----------
# Since AC_PROG_FC is broken, in that it returns the empty string
# if there is no fortran compiler, we have our own version here.
m4_defun([_LT_PROG_FC],
[
pushdef([AC_MSG_ERROR], [_lt_disable_FC=yes])
AC_PROG_FC
if test -z "$FC" || test "X$FC" = "Xno"; then
_lt_disable_FC=yes
fi
popdef([AC_MSG_ERROR])
])# _LT_PROG_FC
dnl aclocal-1.4 backwards compatibility:
dnl AC_DEFUN([_LT_PROG_FC], [])
# _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_REQUIRE([_LT_PROG_FC])dnl
AC_LANG_PUSH(Fortran)
_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_flag_spec_ld, $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(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
CC=${FC-"f95"}
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"
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_GCC=$GCC
GCC=yes
CC=${GCJ-"gcj"}
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
## 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"
])# _LT_LANG_GCJ_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_GCC=$GCC
GCC=
CC=${RC-"windres"}
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"
])# _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_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_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"}, \
= c,a/b,, \
&& 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_XSI_SHELLFNS
# ---------------------
# Bourne and XSI compatible variants of some useful shell functions.
m4_defun([_LT_PROG_XSI_SHELLFNS],
[case $xsi_shell in
yes)
cat << \_LT_EOF >> "$cfgfile"
# 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 ()
{
case ${1} in
*/*) func_dirname_result="${1%/*}${2}" ;;
* ) func_dirname_result="${3}" ;;
esac
}
# func_basename file
func_basename ()
{
func_basename_result="${1##*/}"
}
# 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 ()
{
case ${1} in
*/*) func_dirname_result="${1%/*}${2}" ;;
* ) func_dirname_result="${3}" ;;
esac
func_basename_result="${1##*/}"
}
# 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_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}"}
}
# func_opt_split
func_opt_split ()
{
func_opt_split_opt=${1%%=*}
func_opt_split_arg=${1#*=}
}
# func_lo2o object
func_lo2o ()
{
case ${1} in
*.lo) func_lo2o_result=${1%.lo}.${objext} ;;
*) func_lo2o_result=${1} ;;
esac
}
# func_xform libobj-or-source
func_xform ()
{
func_xform_result=${1%.*}.lo
}
# func_arith arithmetic-term...
func_arith ()
{
func_arith_result=$(( $[*] ))
}
# func_len string
# STRING may not start with a hyphen.
func_len ()
{
func_len_result=${#1}
}
_LT_EOF
;;
*) # Bourne compatible functions.
cat << \_LT_EOF >> "$cfgfile"
# 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 ()
{
# Extract subdirectory from the argument.
func_dirname_result=`$ECHO "X${1}" | $Xsed -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 file
func_basename ()
{
func_basename_result=`$ECHO "X${1}" | $Xsed -e "$basename"`
}
dnl func_dirname_and_basename
dnl A portable version of this function is already defined in general.m4sh
dnl so there is no need for it here.
# 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 "X${3}" \
| $Xsed -e "s%^${1}%%" -e "s%\\\\${2}\$%%"`;;
*) func_stripname_result=`$ECHO "X${3}" \
| $Xsed -e "s%^${1}%%" -e "s%${2}\$%%"`;;
esac
}
# sed scripts:
my_sed_long_opt='1s/^\(-[[^=]]*\)=.*/\1/;q'
my_sed_long_arg='1s/^-[[^=]]*=//'
# func_opt_split
func_opt_split ()
{
func_opt_split_opt=`$ECHO "X${1}" | $Xsed -e "$my_sed_long_opt"`
func_opt_split_arg=`$ECHO "X${1}" | $Xsed -e "$my_sed_long_arg"`
}
# func_lo2o object
func_lo2o ()
{
func_lo2o_result=`$ECHO "X${1}" | $Xsed -e "$lo2o"`
}
# func_xform libobj-or-source
func_xform ()
{
func_xform_result=`$ECHO "X${1}" | $Xsed -e 's/\.[[^.]]*$/.lo/'`
}
# func_arith arithmetic-term...
func_arith ()
{
func_arith_result=`expr "$[@]"`
}
# func_len string
# STRING may not start with a hyphen.
func_len ()
{
func_len_result=`expr "$[1]" : ".*" 2>/dev/null || echo $max_cmd_len`
}
_LT_EOF
esac
case $lt_shell_append in
yes)
cat << \_LT_EOF >> "$cfgfile"
# func_append var value
# Append VALUE to the end of shell variable VAR.
func_append ()
{
eval "$[1]+=\$[2]"
}
_LT_EOF
;;
*)
cat << \_LT_EOF >> "$cfgfile"
# func_append var value
# Append VALUE to the end of shell variable VAR.
func_append ()
{
eval "$[1]=\$$[1]\$[2]"
}
_LT_EOF
;;
esac
])
gnuspool-1.7ubuntu1/m4/lt~obsolete.m4 0000664 0000000 0000000 00000013113 11421757504 014604 0 ustar # lt~obsolete.m4 -- aclocal satisfying obsolete definitions. -*-Autoconf-*-
#
# Copyright (C) 2004, 2005, 2007 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 4 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_RC], [AC_DEFUN([AC_LIBTOOL_RC])])
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])])
gnuspool-1.7ubuntu1/m4/ltversion.m4 0000664 0000000 0000000 00000001275 11421757504 014265 0 ustar # 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.
# Generated from ltversion.in.
# serial 2976 ltversion.m4
# This file is part of GNU Libtool
m4_define([LT_PACKAGE_VERSION], [2.2.4])
m4_define([LT_PACKAGE_REVISION], [1.2976])
AC_DEFUN([LTVERSION_VERSION],
[macro_version='2.2.4'
macro_revision='1.2976'
_LT_DECL(, macro_version, 0, [Which release of libtool.m4 was used?])
_LT_DECL(, macro_revision, 0)
])
gnuspool-1.7ubuntu1/LICENSE 0000664 0000000 0000000 00000104513 11366642365 012470 0 ustar GNU GENERAL PUBLIC LICENSE
Version 3, 29 June 2007
Copyright (C) 2007 Free Software Foundation, Inc.
Everyone is permitted to copy and distribute verbatim copies
of this license document, but changing it is not allowed.
Preamble
The GNU General Public License is a free, copyleft license for
software and other kinds of works.
The licenses for most software and other practical works are designed
to take away your freedom to share and change the works. By contrast,
the GNU General Public License is intended to guarantee your freedom to
share and change all versions of a program--to make sure it remains free
software for all its users. We, the Free Software Foundation, use the
GNU General Public License for most of our software; it applies also to
any other work released this way by its authors. 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
them 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 prevent others from denying you
these rights or asking you to surrender the rights. Therefore, you have
certain responsibilities if you distribute copies of the software, or if
you modify it: responsibilities to respect the freedom of others.
For example, if you distribute copies of such a program, whether
gratis or for a fee, you must pass on to the recipients the same
freedoms that you received. 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.
Developers that use the GNU GPL protect your rights with two steps:
(1) assert copyright on the software, and (2) offer you this License
giving you legal permission to copy, distribute and/or modify it.
For the developers' and authors' protection, the GPL clearly explains
that there is no warranty for this free software. For both users' and
authors' sake, the GPL requires that modified versions be marked as
changed, so that their problems will not be attributed erroneously to
authors of previous versions.
Some devices are designed to deny users access to install or run
modified versions of the software inside them, although the manufacturer
can do so. This is fundamentally incompatible with the aim of
protecting users' freedom to change the software. The systematic
pattern of such abuse occurs in the area of products for individuals to
use, which is precisely where it is most unacceptable. Therefore, we
have designed this version of the GPL to prohibit the practice for those
products. If such problems arise substantially in other domains, we
stand ready to extend this provision to those domains in future versions
of the GPL, as needed to protect the freedom of users.
Finally, every program is threatened constantly by software patents.
States should not allow patents to restrict development and use of
software on general-purpose computers, but in those that do, we wish to
avoid the special danger that patents applied to a free program could
make it effectively proprietary. To prevent this, the GPL assures that
patents cannot be used to render the program non-free.
The precise terms and conditions for copying, distribution and
modification follow.
TERMS AND CONDITIONS
0. Definitions.
"This License" refers to version 3 of the GNU General Public License.
"Copyright" also means copyright-like laws that apply to other kinds of
works, such as semiconductor masks.
"The Program" refers to any copyrightable work licensed under this
License. Each licensee is addressed as "you". "Licensees" and
"recipients" may be individuals or organizations.
To "modify" a work means to copy from or adapt all or part of the work
in a fashion requiring copyright permission, other than the making of an
exact copy. The resulting work is called a "modified version" of the
earlier work or a work "based on" the earlier work.
A "covered work" means either the unmodified Program or a work based
on the Program.
To "propagate" a work means to do anything with it that, without
permission, would make you directly or secondarily liable for
infringement under applicable copyright law, except executing it on a
computer or modifying a private copy. Propagation includes copying,
distribution (with or without modification), making available to the
public, and in some countries other activities as well.
To "convey" a work means any kind of propagation that enables other
parties to make or receive copies. Mere interaction with a user through
a computer network, with no transfer of a copy, is not conveying.
An interactive user interface displays "Appropriate Legal Notices"
to the extent that it includes a convenient and prominently visible
feature that (1) displays an appropriate copyright notice, and (2)
tells the user that there is no warranty for the work (except to the
extent that warranties are provided), that licensees may convey the
work under this License, and how to view a copy of this License. If
the interface presents a list of user commands or options, such as a
menu, a prominent item in the list meets this criterion.
1. Source Code.
The "source code" for a work means the preferred form of the work
for making modifications to it. "Object code" means any non-source
form of a work.
A "Standard Interface" means an interface that either is an official
standard defined by a recognized standards body, or, in the case of
interfaces specified for a particular programming language, one that
is widely used among developers working in that language.
The "System Libraries" of an executable work include anything, other
than the work as a whole, that (a) is included in the normal form of
packaging a Major Component, but which is not part of that Major
Component, and (b) serves only to enable use of the work with that
Major Component, or to implement a Standard Interface for which an
implementation is available to the public in source code form. A
"Major Component", in this context, means a major essential component
(kernel, window system, and so on) of the specific operating system
(if any) on which the executable work runs, or a compiler used to
produce the work, or an object code interpreter used to run it.
The "Corresponding Source" for a work in object code form means all
the source code needed to generate, install, and (for an executable
work) run the object code and to modify the work, including scripts to
control those activities. However, it does not include the work's
System Libraries, or general-purpose tools or generally available free
programs which are used unmodified in performing those activities but
which are not part of the work. For example, Corresponding Source
includes interface definition files associated with source files for
the work, and the source code for shared libraries and dynamically
linked subprograms that the work is specifically designed to require,
such as by intimate data communication or control flow between those
subprograms and other parts of the work.
The Corresponding Source need not include anything that users
can regenerate automatically from other parts of the Corresponding
Source.
The Corresponding Source for a work in source code form is that
same work.
2. Basic Permissions.
All rights granted under this License are granted for the term of
copyright on the Program, and are irrevocable provided the stated
conditions are met. This License explicitly affirms your unlimited
permission to run the unmodified Program. The output from running a
covered work is covered by this License only if the output, given its
content, constitutes a covered work. This License acknowledges your
rights of fair use or other equivalent, as provided by copyright law.
You may make, run and propagate covered works that you do not
convey, without conditions so long as your license otherwise remains
in force. You may convey covered works to others for the sole purpose
of having them make modifications exclusively for you, or provide you
with facilities for running those works, provided that you comply with
the terms of this License in conveying all material for which you do
not control copyright. Those thus making or running the covered works
for you must do so exclusively on your behalf, under your direction
and control, on terms that prohibit them from making any copies of
your copyrighted material outside their relationship with you.
Conveying under any other circumstances is permitted solely under
the conditions stated below. Sublicensing is not allowed; section 10
makes it unnecessary.
3. Protecting Users' Legal Rights From Anti-Circumvention Law.
No covered work shall be deemed part of an effective technological
measure under any applicable law fulfilling obligations under article
11 of the WIPO copyright treaty adopted on 20 December 1996, or
similar laws prohibiting or restricting circumvention of such
measures.
When you convey a covered work, you waive any legal power to forbid
circumvention of technological measures to the extent such circumvention
is effected by exercising rights under this License with respect to
the covered work, and you disclaim any intention to limit operation or
modification of the work as a means of enforcing, against the work's
users, your or third parties' legal rights to forbid circumvention of
technological measures.
4. Conveying Verbatim Copies.
You may convey 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;
keep intact all notices stating that this License and any
non-permissive terms added in accord with section 7 apply to the code;
keep intact all notices of the absence of any warranty; and give all
recipients a copy of this License along with the Program.
You may charge any price or no price for each copy that you convey,
and you may offer support or warranty protection for a fee.
5. Conveying Modified Source Versions.
You may convey a work based on the Program, or the modifications to
produce it from the Program, in the form of source code under the
terms of section 4, provided that you also meet all of these conditions:
a) The work must carry prominent notices stating that you modified
it, and giving a relevant date.
b) The work must carry prominent notices stating that it is
released under this License and any conditions added under section
7. This requirement modifies the requirement in section 4 to
"keep intact all notices".
c) You must license the entire work, as a whole, under this
License to anyone who comes into possession of a copy. This
License will therefore apply, along with any applicable section 7
additional terms, to the whole of the work, and all its parts,
regardless of how they are packaged. This License gives no
permission to license the work in any other way, but it does not
invalidate such permission if you have separately received it.
d) If the work has interactive user interfaces, each must display
Appropriate Legal Notices; however, if the Program has interactive
interfaces that do not display Appropriate Legal Notices, your
work need not make them do so.
A compilation of a covered work with other separate and independent
works, which are not by their nature extensions of the covered work,
and which are not combined with it such as to form a larger program,
in or on a volume of a storage or distribution medium, is called an
"aggregate" if the compilation and its resulting copyright are not
used to limit the access or legal rights of the compilation's users
beyond what the individual works permit. Inclusion of a covered work
in an aggregate does not cause this License to apply to the other
parts of the aggregate.
6. Conveying Non-Source Forms.
You may convey a covered work in object code form under the terms
of sections 4 and 5, provided that you also convey the
machine-readable Corresponding Source under the terms of this License,
in one of these ways:
a) Convey the object code in, or embodied in, a physical product
(including a physical distribution medium), accompanied by the
Corresponding Source fixed on a durable physical medium
customarily used for software interchange.
b) Convey the object code in, or embodied in, a physical product
(including a physical distribution medium), accompanied by a
written offer, valid for at least three years and valid for as
long as you offer spare parts or customer support for that product
model, to give anyone who possesses the object code either (1) a
copy of the Corresponding Source for all the software in the
product that is covered by this License, on a durable physical
medium customarily used for software interchange, for a price no
more than your reasonable cost of physically performing this
conveying of source, or (2) access to copy the
Corresponding Source from a network server at no charge.
c) Convey individual copies of the object code with a copy of the
written offer to provide the Corresponding Source. This
alternative is allowed only occasionally and noncommercially, and
only if you received the object code with such an offer, in accord
with subsection 6b.
d) Convey the object code by offering access from a designated
place (gratis or for a charge), and offer equivalent access to the
Corresponding Source in the same way through the same place at no
further charge. You need not require recipients to copy the
Corresponding Source along with the object code. If the place to
copy the object code is a network server, the Corresponding Source
may be on a different server (operated by you or a third party)
that supports equivalent copying facilities, provided you maintain
clear directions next to the object code saying where to find the
Corresponding Source. Regardless of what server hosts the
Corresponding Source, you remain obligated to ensure that it is
available for as long as needed to satisfy these requirements.
e) Convey the object code using peer-to-peer transmission, provided
you inform other peers where the object code and Corresponding
Source of the work are being offered to the general public at no
charge under subsection 6d.
A separable portion of the object code, whose source code is excluded
from the Corresponding Source as a System Library, need not be
included in conveying the object code work.
A "User Product" is either (1) a "consumer product", which means any
tangible personal property which is normally used for personal, family,
or household purposes, or (2) anything designed or sold for incorporation
into a dwelling. In determining whether a product is a consumer product,
doubtful cases shall be resolved in favor of coverage. For a particular
product received by a particular user, "normally used" refers to a
typical or common use of that class of product, regardless of the status
of the particular user or of the way in which the particular user
actually uses, or expects or is expected to use, the product. A product
is a consumer product regardless of whether the product has substantial
commercial, industrial or non-consumer uses, unless such uses represent
the only significant mode of use of the product.
"Installation Information" for a User Product means any methods,
procedures, authorization keys, or other information required to install
and execute modified versions of a covered work in that User Product from
a modified version of its Corresponding Source. The information must
suffice to ensure that the continued functioning of the modified object
code is in no case prevented or interfered with solely because
modification has been made.
If you convey an object code work under this section in, or with, or
specifically for use in, a User Product, and the conveying occurs as
part of a transaction in which the right of possession and use of the
User Product is transferred to the recipient in perpetuity or for a
fixed term (regardless of how the transaction is characterized), the
Corresponding Source conveyed under this section must be accompanied
by the Installation Information. But this requirement does not apply
if neither you nor any third party retains the ability to install
modified object code on the User Product (for example, the work has
been installed in ROM).
The requirement to provide Installation Information does not include a
requirement to continue to provide support service, warranty, or updates
for a work that has been modified or installed by the recipient, or for
the User Product in which it has been modified or installed. Access to a
network may be denied when the modification itself materially and
adversely affects the operation of the network or violates the rules and
protocols for communication across the network.
Corresponding Source conveyed, and Installation Information provided,
in accord with this section must be in a format that is publicly
documented (and with an implementation available to the public in
source code form), and must require no special password or key for
unpacking, reading or copying.
7. Additional Terms.
"Additional permissions" are terms that supplement the terms of this
License by making exceptions from one or more of its conditions.
Additional permissions that are applicable to the entire Program shall
be treated as though they were included in this License, to the extent
that they are valid under applicable law. If additional permissions
apply only to part of the Program, that part may be used separately
under those permissions, but the entire Program remains governed by
this License without regard to the additional permissions.
When you convey a copy of a covered work, you may at your option
remove any additional permissions from that copy, or from any part of
it. (Additional permissions may be written to require their own
removal in certain cases when you modify the work.) You may place
additional permissions on material, added by you to a covered work,
for which you have or can give appropriate copyright permission.
Notwithstanding any other provision of this License, for material you
add to a covered work, you may (if authorized by the copyright holders of
that material) supplement the terms of this License with terms:
a) Disclaiming warranty or limiting liability differently from the
terms of sections 15 and 16 of this License; or
b) Requiring preservation of specified reasonable legal notices or
author attributions in that material or in the Appropriate Legal
Notices displayed by works containing it; or
c) Prohibiting misrepresentation of the origin of that material, or
requiring that modified versions of such material be marked in
reasonable ways as different from the original version; or
d) Limiting the use for publicity purposes of names of licensors or
authors of the material; or
e) Declining to grant rights under trademark law for use of some
trade names, trademarks, or service marks; or
f) Requiring indemnification of licensors and authors of that
material by anyone who conveys the material (or modified versions of
it) with contractual assumptions of liability to the recipient, for
any liability that these contractual assumptions directly impose on
those licensors and authors.
All other non-permissive additional terms are considered "further
restrictions" within the meaning of section 10. If the Program as you
received it, or any part of it, contains a notice stating that it is
governed by this License along with a term that is a further
restriction, you may remove that term. If a license document contains
a further restriction but permits relicensing or conveying under this
License, you may add to a covered work material governed by the terms
of that license document, provided that the further restriction does
not survive such relicensing or conveying.
If you add terms to a covered work in accord with this section, you
must place, in the relevant source files, a statement of the
additional terms that apply to those files, or a notice indicating
where to find the applicable terms.
Additional terms, permissive or non-permissive, may be stated in the
form of a separately written license, or stated as exceptions;
the above requirements apply either way.
8. Termination.
You may not propagate or modify a covered work except as expressly
provided under this License. Any attempt otherwise to propagate or
modify it is void, and will automatically terminate your rights under
this License (including any patent licenses granted under the third
paragraph of section 11).
However, if you cease all violation of this License, then your
license from a particular copyright holder is reinstated (a)
provisionally, unless and until the copyright holder explicitly and
finally terminates your license, and (b) permanently, if the copyright
holder fails to notify you of the violation by some reasonable means
prior to 60 days after the cessation.
Moreover, your license from a particular copyright holder is
reinstated permanently if the copyright holder notifies you of the
violation by some reasonable means, this is the first time you have
received notice of violation of this License (for any work) from that
copyright holder, and you cure the violation prior to 30 days after
your receipt of the notice.
Termination of your rights under this section does not terminate the
licenses of parties who have received copies or rights from you under
this License. If your rights have been terminated and not permanently
reinstated, you do not qualify to receive new licenses for the same
material under section 10.
9. Acceptance Not Required for Having Copies.
You are not required to accept this License in order to receive or
run a copy of the Program. Ancillary propagation of a covered work
occurring solely as a consequence of using peer-to-peer transmission
to receive a copy likewise does not require acceptance. However,
nothing other than this License grants you permission to propagate or
modify any covered work. These actions infringe copyright if you do
not accept this License. Therefore, by modifying or propagating a
covered work, you indicate your acceptance of this License to do so.
10. Automatic Licensing of Downstream Recipients.
Each time you convey a covered work, the recipient automatically
receives a license from the original licensors, to run, modify and
propagate that work, subject to this License. You are not responsible
for enforcing compliance by third parties with this License.
An "entity transaction" is a transaction transferring control of an
organization, or substantially all assets of one, or subdividing an
organization, or merging organizations. If propagation of a covered
work results from an entity transaction, each party to that
transaction who receives a copy of the work also receives whatever
licenses to the work the party's predecessor in interest had or could
give under the previous paragraph, plus a right to possession of the
Corresponding Source of the work from the predecessor in interest, if
the predecessor has it or can get it with reasonable efforts.
You may not impose any further restrictions on the exercise of the
rights granted or affirmed under this License. For example, you may
not impose a license fee, royalty, or other charge for exercise of
rights granted under this License, and you may not initiate litigation
(including a cross-claim or counterclaim in a lawsuit) alleging that
any patent claim is infringed by making, using, selling, offering for
sale, or importing the Program or any portion of it.
11. Patents.
A "contributor" is a copyright holder who authorizes use under this
License of the Program or a work on which the Program is based. The
work thus licensed is called the contributor's "contributor version".
A contributor's "essential patent claims" are all patent claims
owned or controlled by the contributor, whether already acquired or
hereafter acquired, that would be infringed by some manner, permitted
by this License, of making, using, or selling its contributor version,
but do not include claims that would be infringed only as a
consequence of further modification of the contributor version. For
purposes of this definition, "control" includes the right to grant
patent sublicenses in a manner consistent with the requirements of
this License.
Each contributor grants you a non-exclusive, worldwide, royalty-free
patent license under the contributor's essential patent claims, to
make, use, sell, offer for sale, import and otherwise run, modify and
propagate the contents of its contributor version.
In the following three paragraphs, a "patent license" is any express
agreement or commitment, however denominated, not to enforce a patent
(such as an express permission to practice a patent or covenant not to
sue for patent infringement). To "grant" such a patent license to a
party means to make such an agreement or commitment not to enforce a
patent against the party.
If you convey a covered work, knowingly relying on a patent license,
and the Corresponding Source of the work is not available for anyone
to copy, free of charge and under the terms of this License, through a
publicly available network server or other readily accessible means,
then you must either (1) cause the Corresponding Source to be so
available, or (2) arrange to deprive yourself of the benefit of the
patent license for this particular work, or (3) arrange, in a manner
consistent with the requirements of this License, to extend the patent
license to downstream recipients. "Knowingly relying" means you have
actual knowledge that, but for the patent license, your conveying the
covered work in a country, or your recipient's use of the covered work
in a country, would infringe one or more identifiable patents in that
country that you have reason to believe are valid.
If, pursuant to or in connection with a single transaction or
arrangement, you convey, or propagate by procuring conveyance of, a
covered work, and grant a patent license to some of the parties
receiving the covered work authorizing them to use, propagate, modify
or convey a specific copy of the covered work, then the patent license
you grant is automatically extended to all recipients of the covered
work and works based on it.
A patent license is "discriminatory" if it does not include within
the scope of its coverage, prohibits the exercise of, or is
conditioned on the non-exercise of one or more of the rights that are
specifically granted under this License. You may not convey a covered
work if you are a party to an arrangement with a third party that is
in the business of distributing software, under which you make payment
to the third party based on the extent of your activity of conveying
the work, and under which the third party grants, to any of the
parties who would receive the covered work from you, a discriminatory
patent license (a) in connection with copies of the covered work
conveyed by you (or copies made from those copies), or (b) primarily
for and in connection with specific products or compilations that
contain the covered work, unless you entered into that arrangement,
or that patent license was granted, prior to 28 March 2007.
Nothing in this License shall be construed as excluding or limiting
any implied license or other defenses to infringement that may
otherwise be available to you under applicable patent law.
12. No Surrender of Others' Freedom.
If 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 convey a
covered work so as to satisfy simultaneously your obligations under this
License and any other pertinent obligations, then as a consequence you may
not convey it at all. For example, if you agree to terms that obligate you
to collect a royalty for further conveying from those to whom you convey
the Program, the only way you could satisfy both those terms and this
License would be to refrain entirely from conveying the Program.
13. Use with the GNU Affero General Public License.
Notwithstanding any other provision of this License, you have
permission to link or combine any covered work with a work licensed
under version 3 of the GNU Affero General Public License into a single
combined work, and to convey the resulting work. The terms of this
License will continue to apply to the part which is the covered work,
but the special requirements of the GNU Affero General Public License,
section 13, concerning interaction through a network will apply to the
combination as such.
14. Revised Versions of this License.
The Free Software Foundation may publish revised and/or new versions of
the GNU 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 that a certain numbered version of the GNU General
Public License "or any later version" applies to it, you have the
option of following the terms and conditions either of that numbered
version or of any later version published by the Free Software
Foundation. If the Program does not specify a version number of the
GNU General Public License, you may choose any version ever published
by the Free Software Foundation.
If the Program specifies that a proxy can decide which future
versions of the GNU General Public License can be used, that proxy's
public statement of acceptance of a version permanently authorizes you
to choose that version for the Program.
Later license versions may give you additional or different
permissions. However, no additional obligations are imposed on any
author or copyright holder as a result of your choosing to follow a
later version.
15. Disclaimer of Warranty.
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.
16. Limitation of Liability.
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS
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.
17. Interpretation of Sections 15 and 16.
If the disclaimer of warranty and limitation of liability provided
above cannot be given local legal effect according to their terms,
reviewing courts shall apply local law that most closely approximates
an absolute waiver of all civil liability in connection with the
Program, unless a warranty or assumption of liability accompanies a
copy of the Program in return for a fee.
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
state 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 3 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 .
Also add information on how to contact you by electronic and paper mail.
If the program does terminal interaction, make it output a short
notice like this when it starts in an interactive mode:
Copyright (C)
This program 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, your program's commands
might be different; for a GUI interface, you would use an "about box".
You should also get your employer (if you work as a programmer) or school,
if any, to sign a "copyright disclaimer" for the program, if necessary.
For more information on this, and how to apply and follow the GNU GPL, see
.
The GNU 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 Lesser General
Public License instead of this License. But first, please read
.
gnuspool-1.7ubuntu1/Makefiles_h.sh 0000775 0000000 0000000 00000001554 11421757503 014223 0 ustar #! /bin/sh
#
# Copyright 2008 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 3 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 .
for arg
do
eval "$arg"
done
sed -e 's,${prefix},'$prefix',
s,${exec_prefix},'$exec_prefix',
s,${datarootdir},'$datarootdir',' src/hdrs/infiles.h >src/hdrs/files.h
gnuspool-1.7ubuntu1/cupspy/ 0000775 0000000 0000000 00000000000 11421757503 012773 5 ustar gnuspool-1.7ubuntu1/cupspy/cups.py 0000775 0000000 0000000 00000100734 11421757503 014327 0 ustar #! /usr/bin/python
#
# Copyright (C) 2009 Free Software Foundation
#
# 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 3, 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., 51 Franklin Street, Fifth Floor, Boston, MA
# 02110-1301, USA.
# Originally written by John Collins .
import filebuf, ipp, conf, subprocess, sys, os, stat, socket, select, threading, re, time, signal, syslog, errno
# Get us a job id in case gspl-pr doesn't give one
Next_jobid = os.getpid()
Jobid_lock = threading.Lock()
Var_run = "/var/run/cups"
Procid_file = "cupsd.pid"
# Thread-safe get job ID
def get_next_jobid():
"""Get next job id"""
global Next_jobid
Jobid_lock.acquire()
result = Next_jobid
Next_jobid += 1
Jobid_lock.release()
return result
Pending_jobs = dict()
class pend_job:
"""Hold details of pending job"""
def __init__(self, p, u, t, c):
global Pending_jobs
self.jobnum = get_next_jobid()
self.pname = p
self.uname = u
self.title = t
self.copies = c
Pending_jobs[self.jobnum] = self
# Set up default attribute values
default_attr_values = {'attributes-charset': 'utf-8',
'attributes-natural-language': 'en-gb',
'copies': 1,
'job-name': 'No Title'}
# List of attributes to include in description
printer_description_atts = ["charset-configured",
"charset-supported",
"color-supported",
"compression-supported",
"document-format-default",
"document-format-supported",
"generated-natural-language-supported",
"ipp-versions-supported",
"job-impressions-supported",
"job-k-octets-supported",
"job-media-sheets-supported",
"multiple-document-jobs-supported",
"multiple-operation-time-out",
"natural-language-configured",
"notify-attributes-supported",
"notify-lease-duration-default",
"notify-lease-duration-supported",
"notify-max-events-supported",
"notify-events-default",
"notify-events-supported",
"notify-pull-method-supported",
"notify-schemes-supported",
"operations-supported",
"pages-per-minute",
"pages-per-minute-color",
"pdl-override-supported",
"printer-alert",
"printer-alert-description",
"printer-current-time",
"printer-driver-installer",
"printer-info",
"printer-is-accepting-jobs",
"printer-location",
"printer-make-and-model",
"printer-message-from-operator",
"printer-more-info",
"printer-more-info-manufacturer",
"printer-name",
"printer-state",
"printer-state-message",
"printer-state-reasons",
"printer-up-time",
"printer-uri-supported",
"queued-job-count",
"reference-uri-schemes-supported",
"uri-authentication-supported",
"uri-security-supported"]
# List of attributes if none asked
printer_default_atts = ["copies-default",
"document-format-default",
"finishings-default",
"job-hold-until-default",
"job-priority-default",
"job-sheets-default",
"media-default",
"number-up-default",
"orientation-requested-default",
"sides-default"]
# Parse config file
# Use argument if one given, otherwise look for "cupspy.conf"
try:
Config_data = conf.Conf()
Cfile = 'cupspy.conf'
if len(sys.argv) > 1:
Cfile = sys.argv[1]
Config_data.parse_conf_file(Cfile)
except conf.ConfError as msg:
sys.exit(msg.args[0])
# Now for the meat of the stuff
class CupsError(Exception):
def __init__(self, code, msg):
Exception.__init__(self, msg)
self.codename = code
# Util routines
def copy_or_default(req, name, blank_def = False):
"""Copy field from request or supply default"""
val = req.find_attribute(name)
if val:
res = val.get_value()
if blank_def:
res = res.strip()
if len(res) == 0: res = default_attr_values[name]
else:
res = default_attr_values[name]
return res
def set_copy_or_default(req, val, name):
"""Initialise variable with copy or default"""
val.setnamevalues(name, copy_or_default(req, name))
return val
def opgrp_hdr(req):
"""Return a OPERATION group with standard header fields set mostly from request"""
opgrp = ipp.ippgroup(ipp.IPP_TAG_OPERATION)
charset = ipp.ippvalue(ipp.IPP_TAG_CHARSET)
opgrp.setvalue(set_copy_or_default(req, charset, 'attributes-charset'))
lang = ipp.ippvalue(ipp.IPP_TAG_LANGUAGE)
opgrp.setvalue(set_copy_or_default(req, lang, 'attributes-natural-language'))
return opgrp
# Report op done OK (mostly after we haven't done anything)
def ipp_ok(req):
"""Report that everything went OK with IPP request
(Even if nothing was done)"""
syslog.syslog(syslog.LOG_NOTICE, "No-op OK response to op %s" % ipp.op_to_name[req.statuscode])
response = ipp.ipp()
response.setrespcode(ipp.IPP_OK, req.id)
response.pushvalue(opgrp_hdr(req))
return response.generate()
# Report status message back to caller
def ipp_status(req, code, msg):
"""Deliver a status message back to sender"""
syslog.syslog(syslog.LOG_WARNING, "Op code %s returning result %s - %s" % (ipp.op_to_name[req.statuscode], code, msg))
response = ipp.ipp()
response.setrespcode(code, req.id) # If code is a string it gets converted
opgrp = opgrp_hdr(req)
msgv = ipp.ippvalue(ipp.IPP_TAG_TEXT)
msgv.setnamevalues('status-message', msg)
opgrp.setvalue(msgv)
response.pushvalue(opgrp)
return response.generate()
# Grab various fields from requests
def get_pname_from_uri(req):
"""Extract printer name from uri"""
pname = req.find_attribute('printer-uri')
if not pname:
raise CupsError('IPP_BAD_REQUEST', 'Missing required printer-uri')
# Get the actual string
# Strip off the URI stuff to get the printer name
pname = pname.get_value()
m = re.match(".*/(.*)", pname)
if not m:
raise CupsError('IPP_BAD_REQUEST', 'Cannot determine printer name from URI')
pname = m.group(1)
if pname not in Config_data.printers:
raise CupsError('IPP_NOT_FOUND', 'The printer ' + pname + ' was not found')
return pname
def get_req_user_name(req):
"""Extract requesting user name"""
user = req.find_attribute('requesting-user-name')
if not user:
raise CupsError('IPP_BAD_REQUEST', 'No requesting user')
user = user.get_value()
return user
# The following operations are "done" by just returning OK
# We might want to expand them to log that they have been attempted
def validate_job(req):
return ipp_ok(req)
def get_jobs(req):
return ipp_ok(req)
def hold_job(req):
return ipp_ok(req)
def release_job(req):
return ipp_ok(req)
def restart_job(req):
return ipp_ok(req)
def pause_printer(req):
return ipp_ok(req)
def resume_printer(req):
return ipp_ok(req)
def purge_jobs(req):
return ipp_ok(req)
def set_printer_attributes(req):
return ipp_ok(req)
def set_job_attributes(req):
return ipp_ok(req)
def create_printer_subscription(req):
return ipp_ok(req)
def create_job_subscription(req):
return ipp_ok(req)
def renew_subscription(req):
return ipp_ok(req)
def cancel_subscription(req):
return ipp_ok(req)
def enable_printer(req):
return ipp_ok(req)
def disable_printer(req):
return ipp_ok(req)
def pause_printer_after_current_job(req):
return ipp_ok(req)
def hold_new_jobs(req):
return ipp_ok(req)
def release_held_new_jobs(req):
return ipp_ok(req)
def deactivate_printer(req):
return ipp_ok(req)
def activate_printer(req):
return ipp_ok(req)
def restart_printer(req):
return ipp_ok(req)
def shutdown_printer(req):
return ipp_ok(req)
def startup_printer(req):
return ipp_ok(req)
def reprocess_job(req):
return ipp_ok(req)
def cancel_current_job(req):
return ipp_ok(req)
def suspend_current_job(req):
return ipp_ok(req)
def resume_job(req):
return ipp_ok(req)
def promote_job(req):
return ipp_ok(req)
def schedule_job_after(req):
return ipp_ok(req)
def private(req):
return ipp_ok(req)
def add_modify_printer(req):
return ipp_ok(req)
def delete_printer(req):
return ipp_ok(req)
def get_classes(req):
return ipp_ok(req)
def add_modify_class(req):
return ipp_ok(req)
def delete_class(req):
return ipp_ok(req)
def accept_jobs(req):
return ipp_ok(req)
def reject_jobs(req):
return ipp_ok(req)
def set_default(req):
return ipp_ok(req)
def move_job(req):
return ipp_ok(req)
def authenticate_job(req):
return ipp_ok(req)
# Get notifications seems to be required in some cases
def get_notifications(req):
return ipp_ok(req)
# The next operations we return some kind of error message
# to tell the client we didn't do it.
def send_uri(req):
return ipp_status(req, 'IPP_INTERNAL_ERROR', 'send uri not implemented')
def get_job_attributes(req):
return ipp_status(req, 'IPP_INTERNAL_ERROR', 'get job attributes uri not implemented')
def get_printer_supported_values(req):
return ipp_status(req, 'IPP_INTERNAL_ERROR', 'get printer supported values not implemented')
def get_subscription_attributes(req):
return ipp_status(req, 'IPP_NOT_FOUND', 'Invalid notify-subscription-id')
def get_subscriptions(req):
return ipp_status(req, 'IPP_NOT_FOUND', 'No subscriptions found')
def send_notifications(req):
return ipp_status(req, 'IPP_INTERNAL_ERROR', 'send notifications not implemented')
def get_print_support_files(req):
return ipp_status(req, 'IPP_INTERNAL_ERROR', 'get print support files not implemented')
def get_devices(req):
return ipp_status(req, 'IPP_INTERNAL_ERROR', 'cups-driverd failed to execute')
def get_ppds(req):
return ipp_status(req, 'IPP_INTERNAL_ERROR', 'cups-driverd failed to execute')
def get_ppd(req):
return ipp_status(req, 'IPP_INTERNAL_ERROR', 'cups-driverd failed to execute')
# This is where we actually have to do something for our money.
# First lets do the things with printers
################################################################################
def expand_multi_attributes(val):
"""Expand multiple attribute names
Currently these are printer-description and printer-defaults"""
reslist = []
for v in val.value:
n = v[1]
if n == "printer-description":
for item in printer_description_atts:
reslist.append(item)
elif n == "printer-defaults":
for item in printer_default_atts:
reslist.append(item)
else:
reslist.append(n)
return reslist
# Get printers gets us a list of printers.
def get_printers(req):
"""Get the list of printers and requested attributes"""
# Get the list of requested attributes from the request
req_al = req.find_attribute('requested-attributes')
if not req_al:
return ipp_status(req, 'IPP_BAD_REQUEST', 'No requested-attributes')
try:
# Just get the requested attributes strings
req_al = expand_multi_attributes(req_al)
# Now get the list of available printers
ptr_list = Config_data.list_printers()
# Set up response
response = ipp.ipp()
response.setrespcode(ipp.IPP_OK, req.id)
response.pushvalue(opgrp_hdr(req))
for ptr in ptr_list:
ptrgrp = ipp.ippgroup(ipp.IPP_TAG_PRINTER)
ptratts = Config_data.get_config(ptr, req_al)
for attitem in ptratts:
name, typenum, attlist = attitem
val = ipp.ippvalue(typenum)
val.setnamevalues(name, attlist)
ptrgrp.setvalue(val)
response.pushvalue(ptrgrp)
return response.generate()
except ValueError:
return ipp_status(req, 'IPP_INTERNAL_ERROR', 'Error in get_printers()')
################################################################################
def get_ptr_attributes(req, pname, al):
"""Get given attributes for given printer"""
# Set up response
response = ipp.ipp()
response.setrespcode(ipp.IPP_OK, req.id)
response.pushvalue(opgrp_hdr(req))
# Printer group stuff
ptrgrp = ipp.ippgroup(ipp.IPP_TAG_PRINTER)
ptratts = Config_data.get_config(pname, al)
# Add each attribute
for attitem in ptratts:
name, typenum, attlist = attitem
val = ipp.ippvalue(typenum)
val.setnamevalues(name, attlist)
ptrgrp.setvalue(val)
response.pushvalue(ptrgrp)
return response.generate()
def get_printer_attributes(req):
"""Get_printer_attributes request"""
try:
pname = get_pname_from_uri(req)
except CupsError as err:
return ipp_status(req, err.codename, err.args[0])
# Get the list of requested attributes from the request
req_al = req.find_attribute('requested-attributes')
if not req_al:
return ipp_status(req, 'IPP_BAD_REQUEST', 'No requested-attributes')
try:
return get_ptr_attributes(req, pname, expand_multi_attributes(req_al))
except:
return ipp_status(req, 'IPP_INTERNAL_ERROR', 'Error in get_printers()')
def get_default(req):
"""Get default printer and attributes"""
try:
pname = Config_data.default_printer()
return get_ptr_attributes(req, pname, Config_data.get_attnames(pname))
except:
return ipp_status(req, 'IPP_INTERNAL_ERROR', 'Error in get_default()')
def created_job_ok(req, pname, jobnum):
"""Return response that job was created OK"""
response = ipp.ipp()
response.setrespcode(ipp.IPP_OK, req.id)
opgrp = opgrp_hdr(req)
msg = ipp.ippvalue(ipp.IPP_TAG_TEXT)
msg.setnamevalues('status-message', 'successful-ok')
opgrp.setvalue(msg)
response.pushvalue(opgrp)
jobgrp = ipp.ippgroup(ipp.IPP_TAG_JOB)
idval = ipp.ippvalue(ipp.IPP_TAG_INTEGER)
idval.setnamevalues('job-id', jobnum)
jobgrp.setvalue(idval)
iduri = "ipp://%s/%s/%d" % (socket.gethostname(), pname, jobnum)
idval = ipp.ippvalue(ipp.IPP_TAG_URI)
idval.setnamevalues('job-uri', iduri)
jobgrp.setvalue(idval)
jobstat = ipp.ippvalue(ipp.IPP_TAG_ENUM)
jobstat.setnamevalues('job-state', ipp.IPP_JOB_PROCESSING)
jobgrp.setvalue(jobstat)
response.pushvalue(jobgrp)
return response.generate()
class print_err(Exception):
"""Throw me if print error happens"""
def __init__(self, c, ste, *args):
Exception.__init__(self, *args)
self.code = c
self.stderr = ste
def process_print(req, pname, copies, title, user):
"""Perform the operation to do the print and return the job id.
Throw a print_error if something goes wrong"""
command = Config_data.print_command(pname, copies=copies, title=title, user=user)
if command is None:
raise print_err('No print command for ' + pname)
outf = subprocess.Popen(command, shell=True, stdin=subprocess.PIPE, stderr=subprocess.PIPE)
pl = outf.poll()
if pl:
(sto, ste) = outf.communicate()
raise print_err(pl, ste)
# Send the data
sti = outf.stdin
while 1:
# If we get some kind of reception error do the best we can
try:
b = req.filb.getrem()
except:
outf.terminate()
(sto, ste) = outf.communicate()
raise print_err(256, 'Input error on socket')
# End of data is signified by zero length
# Other errors raise filebufEOF
if len(b) == 0:
break
try:
sti.write(b)
except IOError as err:
if err.args[0] == errno.EPIPE:
raise print_err(err.args[0], "Is spooler running")
else:
msg = "Pipe IO Error: " + err.args[1] + "(" + err.args[0] + ")"
raise print_err(err.args[0], msg)
# Check it's still running
pl = outf.poll()
if pl:
(sto, ste) = outf.communicate()
raise print_err(pl, ste)
# Check we didn't get error message
(sto, ste) = outf.communicate()
pl = outf.wait()
if pl:
raise print_err(pl, ste)
# Look for job id on std error and if present use it
# Otherwise generate
if len(ste) != 0:
m = re.search("(\d+)", ste)
if m:
jobid = int(m.group(1))
else:
jobid = get_next_jobid()
else:
jobid = get_next_jobid()
return jobid
def print_error(req, pname, code, ste):
"""Generate return code from print"""
msg = "%s gave exit code %d" % (pname, code)
if len(ste) != 0:
msg += " - " + ste
return ipp_status(req, 'IPP_NOT_POSSIBLE', msg)
def print_job(req):
"""Actually print a job"""
# Get printer name
try:
pname = get_pname_from_uri(req)
uname = get_req_user_name(req)
except CupsError as err:
return ipp_status(req, err.codename, err.args[0])
title = copy_or_default(req, 'job-name', True)
copies = copy_or_default(req, 'copies')
try:
jobid = process_print(req, pname, copies, title, uname)
except print_err as err:
return print_error(req, pname, err.code, err.stderr)
return created_job_ok(req, pname, jobid)
def extract_jobid(reqop):
"""Extract job id from a request (send-document or cancel job)"""
# Spec says it might be given as a URI or as a job number (and printer name which we don't need)
jobid = reqop.find_attribute('job-id')
if jobid:
jobid = jobid.get_value()
else:
juri = reqop.find_attribute('job-uri')
if not juri:
raise CupsError('IPP_BAD_REQUEST', 'Missing required job-id or job-uri')
m = re.match("ipp://.*/.*/(\d+)", juri.get_value())
if not m:
raise CupsError('IPP_BAD_REQUEST', 'Invalid format job-uri ' + juri)
jobid = m.group(1)
# Convert jobid to numeric and look up
try:
jobid = int(jobid)
except ValueError:
raise CupsError('IPP_BAD_REQUEST', 'Invalid non-integer jobid ' + jobid)
return jobid
# We believe that these don't happen
def print_uri(req):
"""Dont do print_uri as it doesnt seem to be used"""
return ipp_status(req, 'IPP_INTERNAL_ERROR', 'print_uri not implemented')
def create_job(req):
"""Create job routine now has to be implemented"""
# Get printer name
try:
pname = get_pname_from_uri(req)
uname = get_req_user_name(req)
except CupsError as err:
return ipp_status(req, err.codename, err.args[0])
pj = pend_job(pname, uname, copy_or_default(req, 'job-name', True), copy_or_default(req, 'copies'))
return created_job_ok(req, pname, pj.jobnum)
def send_document(req):
"""Send document to pending job created by create job"""
# Find out the job number this is associated with
reqop = req.values[0]
jobid = extract_jobid(reqop)
if jobid not in Pending_jobs:
raise CupsError('IPP_NOT_FOUND', 'Job id not found in send-doc ' + str(jobid))
pj = Pending_jobs[jobid]
# If last document set, delete from pending
lastdoc = reqop.find_attribute('last-document')
if not lastdoc:
raise CupsError('IPP_BAD_REQUEST', 'No last-doc attribute')
if lastdoc.get_value():
del Pending_jobs[jobid]
try:
process_print(req, pj.pname, pj.copies, pj.title, pj.uname)
except print_err as err:
return print_error(req, pj.pname, err.code, err.stderr)
return created_job_ok(req, pj.pname, jobid)
def cancel_job(req):
"""Cancel job - dont worry if not pending"""
reqop = req.values[0]
jobid = extract_jobid(reqop)
if jobid in Pending_jobs:
del Pending_jobs[jobid]
return ipp_ok(req)
# Lookup for operations
functab = dict(IPP_PRINT_JOB=print_job,
IPP_PRINT_URI=print_uri,
IPP_VALIDATE_JOB=validate_job,
IPP_CREATE_JOB=create_job,
IPP_SEND_DOCUMENT=send_document,
IPP_SEND_URI=send_uri,
IPP_CANCEL_JOB=cancel_job,
IPP_GET_JOB_ATTRIBUTES=get_job_attributes,
IPP_GET_JOBS=get_jobs,
IPP_GET_PRINTER_ATTRIBUTES=get_printer_attributes,
IPP_HOLD_JOB=hold_job,
IPP_RELEASE_JOB=release_job,
IPP_RESTART_JOB=restart_job,
IPP_PAUSE_PRINTER=pause_printer,
IPP_RESUME_PRINTER=resume_printer,
IPP_PURGE_JOBS=purge_jobs,
IPP_SET_PRINTER_ATTRIBUTES=set_printer_attributes,
IPP_SET_JOB_ATTRIBUTES=set_job_attributes,
IPP_GET_PRINTER_SUPPORTED_VALUES=get_printer_supported_values,
IPP_CREATE_PRINTER_SUBSCRIPTION=create_printer_subscription,
IPP_CREATE_JOB_SUBSCRIPTION=create_job_subscription,
IPP_GET_SUBSCRIPTION_ATTRIBUTES=get_subscription_attributes,
IPP_GET_SUBSCRIPTIONS=get_subscriptions,
IPP_RENEW_SUBSCRIPTION=renew_subscription,
IPP_CANCEL_SUBSCRIPTION=cancel_subscription,
IPP_GET_NOTIFICATIONS=get_notifications,
IPP_SEND_NOTIFICATIONS=send_notifications,
IPP_GET_PRINT_SUPPORT_FILES=get_print_support_files,
IPP_ENABLE_PRINTER=enable_printer,
IPP_DISABLE_PRINTER=disable_printer,
IPP_PAUSE_PRINTER_AFTER_CURRENT_JOB=pause_printer_after_current_job,
IPP_HOLD_NEW_JOBS=hold_new_jobs,
IPP_RELEASE_HELD_NEW_JOBS=release_held_new_jobs,
IPP_DEACTIVATE_PRINTER=deactivate_printer,
IPP_ACTIVATE_PRINTER=activate_printer,
IPP_RESTART_PRINTER=restart_printer,
IPP_SHUTDOWN_PRINTER=shutdown_printer,
IPP_STARTUP_PRINTER=startup_printer,
IPP_REPROCESS_JOB=reprocess_job,
IPP_CANCEL_CURRENT_JOB=cancel_current_job,
IPP_SUSPEND_CURRENT_JOB=suspend_current_job,
IPP_RESUME_JOB=resume_job,
IPP_PROMOTE_JOB=promote_job,
IPP_SCHEDULE_JOB_AFTER=schedule_job_after,
IPP_PRIVATE=private,
CUPS_GET_DEFAULT=get_default,
CUPS_GET_PRINTERS=get_printers,
CUPS_ADD_MODIFY_PRINTER=add_modify_printer,
CUPS_DELETE_PRINTER=delete_printer,
CUPS_GET_CLASSES=get_classes,
CUPS_ADD_MODIFY_CLASS=add_modify_class,
CUPS_DELETE_CLASS=delete_class,
CUPS_ACCEPT_JOBS=accept_jobs,
CUPS_REJECT_JOBS=reject_jobs,
CUPS_SET_DEFAULT=set_default,
CUPS_GET_DEVICES=get_devices,
CUPS_GET_PPDS=get_ppds,
CUPS_MOVE_JOB=move_job,
CUPS_AUTHENTICATE_JOB=authenticate_job,
CUPS_GET_PPD=get_ppd)
# Process a get request which is usually for a PPD
def process_get(f, l):
"""Process a http get request"""
# First read up to end of request
while 1:
line = f.readline()
if line is None:
break
line = line.rstrip()
if len(line) == 0:
break
# Try to parse the starting line
m = re.match("GET\s+/printers/(.+)\s+HTTP", l)
if not m:
syslog.syslog(syslog.LOG_ERR, "Get request no match in %s" % l)
return
# Try to open the file
pf = None
for ptr in (m.group(1), Config_data.default_printer() + ".ppd", "Default.ppd"):
try:
fn = os.path.join(Config_data.ppddir, ptr)
pf = open(fn, "rb")
if Config_data.loglevel > 2:
syslog.syslog(syslog.LOG_INFO, "Opened .ppd file %s" % fn)
break
except:
pass
if pf:
st = os.fstat(pf.fileno())
tim = time.ctime(st[stat.ST_MTIME])
fsize = st[stat.ST_SIZE]
else:
tim = time.time()
fsize = 0
syslog.syslog(syslog.LOG_ERR, "Get request file not found for %s" % m.group(1))
f.write("HTTP/1.1 200 OK\n")
f.write("Date: %s\n" % time.ctime())
f.write("Server: CUPS/1.2\n")
f.write("Connection: Keep-Alive\n")
f.write("Keep-Alive: timeout=60\n")
f.write("Content-Language: en_US\n")
f.write("Content-Type: application/vnd.cups-ppd\n")
f.write("Last-Modified: %s\n" % tim)
f.write("Content-Length: %d\n\n" % fsize)
if pf:
while 1:
buf = pf.read(1024)
lb = len(buf)
if lb == 0:
break
f.write(buf)
pf.close()
def process_post(f):
"""Process an HTTP POST request"""
ipplength=0
exp = False
chnk = False
# Read rest of header
while 1:
line = f.readline()
if line is None:
return
l = line.rstrip()
if len(l) == 0:
break
m = re.search('Content-Length:\s*(\d+)', l, re.I)
if m:
ipplength=int(m.group(1))
continue
m = re.match('Expect:', l, re.I)
if m:
exp = True
continue
m = re.match('Transfer-Encoding:\s+chunked', l, re.I)
if m:
chnk = True
# If we've had a request to request more, satisfy it
if exp:
f.write("HTTP/1.1 100 Continue\r\n\r\n")
if chnk:
f.set_chunked()
else:
if ipplength == 0:
syslog.syslog(syslog.LOG_ERR, "No POST data")
return
f.set_expected(ipplength)
# Parse IPP request
ipr = ipp.ipp(f)
try:
ipr.parse()
if Config_data.loglevel > 3:
ipr.display()
except ipp.IppError as mm:
return
iprcode = ipr.statuscode
try:
iprname = ipp.op_to_name[iprcode]
syslog.syslog(syslog.LOG_INFO, "Request operation %s" % iprname)
func = functab[iprname]
except KeyError:
return
# Actually do the business and return an IPP string (filebuf is a structure member)
resp = func(ipr)
if Config_data.loglevel > 2:
ipresp = ipp.ipp(filebuf.stringbuf(resp, 0))
ipresp.parse()
syslog.syslog(syslog.LOG_INFO, "Reply sent %s" % ipp.resp_to_name[ipresp.statuscode])
# Now decorate the response
f.write("HTTP/1.1 200 OK\r\n")
f.write("Date: %s\n" % time.ctime())
f.write("Server: CUPS/1.2\r\n")
f.write("Connection: Keep-Alive\r\n")
f.write("Keep-Alive: timeout=60\r\n")
f.write("Content-Language: en_US\r\n")
f.write("Content-Type: application/ipp\r\n")
f.write("Content-Length: %d\r\n\r\n" % len(resp))
f.write(resp)
def parsefd(fd):
"""Parse incoming requests with HTTP header"""
while 1:
# Get first line which should be an HTTP request
try:
line = fd.readline()
if line is None:
return
l = line.strip()
if len(l) == 0:
return
m = re.match("(GET|PUT|POST|DELETE|TRACE|OPTIONS|HEAD)\s", l)
if m:
op = m.group(1)
if op == "GET":
process_get(fd, l)
elif op == "POST":
process_post(fd)
else:
syslog.syslog(syslog.LOG_ERR, "Dont know how to handle %s http ops" % op)
return
else:
syslog.syslog(syslog.LOG_ERR, "No match for HTTP op")
return
except (socket.error, filebuf.filebufEOF):
syslog.syslog(syslog.LOG_DEBUG, "Had EOF on socket")
return
# Do the business in a thread
def cups_proc(conn, addr):
"""Process a connection and handle request"""
fd = filebuf.httpfilebuf(conn, Config_data.timeouts)
parsefd(fd)
conn.close()
# Meat of the thing
def cups_server():
"""Accept connections on socket from people wanting to print stuff"""
s = None
port = socket.getservbyname('ipp', 'tcp')
# Try to support ipv6 and ipv4
socklist = []
poss_socks = socket.getaddrinfo(None, port, socket.AF_UNSPEC, socket.SOCK_STREAM, 0, socket.AI_PASSIVE)
act_socks = []
# First find AF_INET6 if it's there
# Unlike the advertising it might be anywhere
# Then find AF_INET
for afam in (socket.AF_INET6, socket.AF_INET):
for p in poss_socks:
af, socktype, proto, canonname, sa = p
if af == afam:
act_socks.append(p)
break
for p in act_socks:
af, socktype, proto, canonname, sa = p
try:
s = socket.socket(af, socktype, proto)
except socket.error, msg:
continue
try:
s.setsockopt(socket.SOL_SOCKET, socket.SO_REUSEADDR, 1)
s.bind(sa)
s.listen(5)
except socket.error as msg:
if msg.args[0] == errno.EACCES:
sys.exit("Cannot access socket - no permission")
# We may get EADDRINUSE from IPV4 if we've just set up IPV6 which we ignore
if msg.args[0] == errno.EADDRINUSE and len(socklist) == 0 and af != socket.AF_INET:
sys.exit("Socket in use - is CUPS running?")
s.close()
continue
socklist.append(s)
# If no success, abort
if len(socklist) == 0:
sys.exit("Sorry cannot start - unable to allocate socket?")
while 1:
rlist,wlist,xlist = select.select(socklist,(),())
for s in rlist:
connaddr = s.accept()
th = threading.Thread(target=cups_proc, args=connaddr)
th.daemon = True
th.start()
def setup_pid():
"""Setup pid entry in /var/run/cups/cupsd.pid
Kill anything that's there already"""
file = Var_run + "/" + Procid_file
try:
st = os.stat(file)
if not stat.S_ISREG(st[stat.ST_MODE]):
sys.exit("Unknown type file " + file)
f = open(file, "rb")
pidstr = f.read(100)
f.close()
pid = int(pidstr)
os.kill(pid, signal.SIGTERM)
time.sleep(5)
try:
os.kill(pid, signal.SIGKILL)
except OSError:
pass
os.remove(file)
except (OSError, IOError, ValueError):
pass
# Create directory if needed
try:
os.mkdir(Var_run, 0755)
except OSError as err:
if err.args[0] != errno.EEXIST:
sys.exit("Cannot create " + Var_run + " " + err.args[1])
try:
f = open(file, "wb")
f.write(str(os.getpid()) + "\n")
f.close()
except IOError as err:
sys.exit("Cannot create " + file + " - " + err.args[1])
def remove_pid(signum, frame):
"""Remove pid entry in /var/run/cups/cupsd.pid"""
try:
os.remove(Var_run + '/' + Procid_file)
except OSError:
# Ignore errors
pass
sys.exit("CUPSPY terminated by signal")
# Run the stuff
if __name__ == "__main__":
signal.signal(signal.SIGINT, signal.SIG_IGN)
signal.signal(signal.SIGQUIT, signal.SIG_IGN)
signal.signal(signal.SIGHUP, signal.SIG_IGN)
if os.fork() != 0:
os._exit(0)
syslog.openlog('cupspy', syslog.LOG_NDELAY|syslog.LOG_PID, syslog.LOG_LPR)
syslog.setlogmask(syslog.LOG_UPTO(Config_data.loglevel + syslog.LOG_ERR))
syslog.syslog(syslog.LOG_INFO, "Starting")
setup_pid()
signal.signal(signal.SIGTERM, remove_pid)
cups_server()
gnuspool-1.7ubuntu1/cupspy/Makefile.in 0000664 0000000 0000000 00000002457 11421757503 015050 0 ustar #
# CUPSPY Makefile
#
# Copyright 2009 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 3 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 .
#
SHELL = /bin/sh
@SET_MAKE@
BASE = ..
PARENT = ..
prefix = @prefix@
exec_prefix = @exec_prefix@
CUPSPYDIR = $(DESTDIR)@cupspydir@
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
MAINPROGS = cups.py cupspy-setup.py
PYMODS = confdefault.py conf.py filebuf.py ipp.py
CONFIGDATA = Default.ppd cupspy.conf
STAGED_INSTALL = false
all: cupspy
cupspy:
# Currently don't do anything
install install-strip: all
$(INSTALL) -d $(CUPSPYDIR)
$(INSTALL) $(MAINPROGS) $(CUPSPYDIR)
$(INSTALL_DATA) $(PYMODS) $(CONFIGDATA) $(CUPSPYDIR)
clean:
# Currently don't do anything
distclean: clean
$(RM) Makefile
gnuspool-1.7ubuntu1/cupspy/cupspy.conf 0000664 0000000 0000000 00000015641 11421757503 015174 0 ustar # Copyright (C) 2009 Free Software Foundation
#
# 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 3, 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., 51 Franklin Street, Fifth Floor, Boston, MA
# 02110-1301, USA.
# Originally written by John Collins .
# This will get rewritten by cupspy-setup
PARAMS:
# Parameters section
PARAMS:
LOGLEVEL=2
# Default values to answer questions with
# Individual printer specs override
DEFAULTS:
# Define default printer
Printer=Copier_A4
# Set copies, title, User name parameters for use with python % operator
Prefix=gspl-pr --verbose -s
Copies=-c %d
Title=-h %s
User=-U %s
GSPrinter=-P %s
Form=-f %s
# These are answers to questsions NOW and MAKELOCALURI etc have obvious meanings
printer-current-time IPP_TAG_DATE NOW
printer-error-policy IPP_TAG_NAME stop-printer
printer-is-accepting-jobs IPP_TAG_BOOLEAN 1
printer-is-shared IPP_TAG_BOOLEAN 1
printer-op-policy IPP_TAG_NAME default
printer-state IPP_TAG_ENUM 3
printer-state-change-time IPP_TAG_INTEGER NOW-3600
printer-state-message IPP_TAG_TEXT ""
printer-state-reasons IPP_TAG_KEYWORD none
printer-type IPP_TAG_ENUM 135244
printer-up-time IPP_TAG_INTEGER NOW-7200
printer-uri-supported IPP_TAG_URI MAKELOCALURI
queued-job-count IPP_TAG_INTEGER 0
uri-authentication-supported IPP_TAG_KEYWORD requesting-user-name
uri-security-supported IPP_TAG_KEYWORD none
printer-name IPP_TAG_NAME PRINTERNAME
printer-location IPP_TAG_TEXT "Local Printer"
printer-info IPP_TAG_TEXT ""
printer-more-info IPP_TAG_URI MAKENETURI
job-quota-period IPP_TAG_INTEGER 0
job-k-limit IPP_TAG_INTEGER 0
job-page-limit IPP_TAG_INTEGER 0
job-sheets-default IPP_TAG_NAME none
device-uri IPP_TAG_URI MAKEDEVURI
color-supported IPP_TAG_BOOLEAN 1
pages-per-minute IPP_TAG_INTEGER 12
printer-make-and-model IPP_TAG_TEXT ""
media-supported IPP_TAG_KEYWORD A4 BrA4_B Letter BrLetter_B Legal Executive B5 A5 A6 BrA6_B PostC4x6 BrPostC4x6_B \
IndexC5x8 BrIndexC5x8_B PhotoL BrPhotoL_B Photo2L BrPhoto2L_B PostCard BrHagaki_B DoublePostCardRotated \
EnvC5 EnvDL Env10 EnvMonarch EnvYou4
media-default IPP_TAG_KEYWORD A4
port-monitor IPP_TAG_KEYWORD none
port-monitor-supported IPP_TAG_KEYWORD none
finishings-supported IPP_TAG_ENUM 3
finishings-default IPP_TAG_ENUM 3
document-format-supported IPP_TAG_MIMETYPE application/octet-stream application/pdf application/postscript \
application/vnd.cups-postscript application/vnd.cups-raw \
application/vnd.hp-hpgl application/x-cshell \
application/x-csource application/x-perl application/x-shell \
image/gif image/jpeg image/png image/tiff image/x-bitmap \
image/x-photocd image/x-portable-anymap image/x-portable-bitmap \
image/x-portable-graymap image/x-portable-pixmap image/x-sgi-rgb \
image/x-sun-raster image/x-xbitmap image/x-xpixmap \
text/html text/plain
copies-default IPP_TAG_INTEGER 1
job-hold-until-default IPP_TAG_KEYWORD no-hold
job-priority-default IPP_TAG_INTEGER 50
number-up-default IPP_TAG_INTEGER 1
orientation-requested-default IPP_TAG_ENUM 3
charset-configured IPP_TAG_CHARSET utf-8
charset-supported IPP_TAG_CHARSET us-ascii utf-8
compression-supported IPP_TAG_KEYWORD none gzip
copies-supported IPP_TAG_RANGE 1 100
document-format-default IPP_TAG_MIMETYPE application/octet-stream
generated-natural-language-supported IPP_TAG_LANGUAGE en-us
ipp-versions-supported IPP_TAG_KEYWORD 1.0 1.1
job-hold-until-supported IPP_TAG_KEYWORD no-hold indefinite day-time evening night second-shift third-shift weekend
job-priority-supported IPP_TAG_INTEGER 100
job-sheets-supported IPP_TAG_NAME none classified confidential mls secret selinux standard te topsecret unclassified
multiple-document-handling-supported IPP_TAG_KEYWORD separate-documents-uncollated-copies separate-documents-collated-copies
multiple-document-jobs-supported IPP_TAG_BOOLEAN 1
multiple-operation-time-out IPP_TAG_INTEGER 60
natural-language-configured IPP_TAG_LANGUAGE en-us
notify-attributes-supported IPP_TAG_KEYWORD printer-state-change-time notify-lease-expiration-time notify-subscriber-user-name
notify-lease-duration-default IPP_TAG_INTEGER 86400
notify-lease-duration-supported IPP_TAG_RANGE 0 2147483647
notify-max-events-supported IPP_TAG_INTEGER 100
notify-events-default IPP_TAG_KEYWORD job-completed
notify-events-supported IPP_TAG_KEYWORD job-completed job-config-changed job-created job-progress \
job-state-changed job-stopped printer-added printer-changed \
printer-config-changed printer-deleted printer-finishings-changed \
printer-media-changed printer-modified printer-restarted \
printer-shutdown printer-state-changed printer-stopped \
server-audit server-restarted server-started server-stopped
notify-pull-method-supported IPP_TAG_KEYWORD ippget
notify-schemes-supported IPP_TAG_KEYWORD mailto testnotify
number-up-supported IPP_TAG_INTEGER 1 2 4 6 9 16
operations-supported IPP_TAG_ENUM 2 4 5 6 8 9 10 11 12 13 16 17 18 20 22 23 24 25 26 27 28 34 35 \
16385 16386 16387 16388 16389 16390 16391 16392 16393 16394 \
16395 16396 16397 16398
orientation-requested-supported IPP_TAG_ENUM 3 4 5 6
page-ranges-supported IPP_TAG_BOOLEAN 1
pdl-override-supported IPP_TAG_KEYWORD not-attempted
printer-error-policy-supported IPP_TAG_NAME abort-job retry-job stop-printer
printer-op-policy-supported IPP_TAG_NAME default
# These are (virtual) printers
Copier_A4:
GSPrinter=copier
Form=a4.ps
media-supported IPP_TAG_KEYWORD A4
media-default IPP_TAG_KEYWORD A4
document-format-supported IPP_TAG_MIMETYPE application/postscript
printer-info IPP_TAG_TEXT "Copier used as printer"
Copier_A4_double:
GSPrinter=copier
Form=a4.ps-dup
media-supported IPP_TAG_KEYWORD A4
media-default IPP_TAG_KEYWORD A4
document-format-supported IPP_TAG_MIMETYPE application/postscript
printer-info IPP_TAG_TEXT "Copier used as printer - double sided"
Copier_bypass_tray:
GSPrinter=copier
Form=a4.lh
media-supported IPP_TAG_KEYWORD A4
media-default IPP_TAG_KEYWORD A4
document-format-supported IPP_TAG_MIMETYPE application/postscript
printer-info IPP_TAG_TEXT "Copier used as printer 100gm paper bypass tray"
gnuspool-1.7ubuntu1/cupspy/ipp.py 0000664 0000000 0000000 00000064333 11421757503 014146 0 ustar # Copyright (C) 2009 Free Software Foundation
#
# 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 3, 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., 51 Franklin Street, Fifth Floor, Boston, MA
# 02110-1301, USA.
# Originally written by John Collins .
import filebuf, struct, re, string, time, random, syslog
name_to_op = dict(IPP_PRINT_JOB=2, # Print a single file
IPP_PRINT_URI=3, # Print a single URL @private@
IPP_VALIDATE_JOB=4, # Validate job options
IPP_CREATE_JOB=5, # Create an empty print job
IPP_SEND_DOCUMENT=6, # Add a file to a job
IPP_SEND_URI=7, # Add a URL to a job @private@
IPP_CANCEL_JOB=8, # Cancel a job
IPP_GET_JOB_ATTRIBUTES=9, # Get job attributes
IPP_GET_JOBS=10, # Get a list of jobs
IPP_GET_PRINTER_ATTRIBUTES=11, # Get printer attributes
IPP_HOLD_JOB=12, # Hold a job for printing
IPP_RELEASE_JOB=13, # Release a job for printing
IPP_RESTART_JOB=14, # Reprint a job
IPP_PAUSE_PRINTER=16, # Stop a printer
IPP_RESUME_PRINTER=17, # Start a printer
IPP_PURGE_JOBS=18, # Cancel all jobs
IPP_SET_PRINTER_ATTRIBUTES=19, # Set printer attributes @private@
IPP_SET_JOB_ATTRIBUTES=20, # Set job attributes
IPP_GET_PRINTER_SUPPORTED_VALUES=21, # Get supported attribute values
IPP_CREATE_PRINTER_SUBSCRIPTION=22, # Create a printer subscription @since CUPS 1.2@
IPP_CREATE_JOB_SUBSCRIPTION=23, # Create a job subscription @since CUPS 1.2@
IPP_GET_SUBSCRIPTION_ATTRIBUTES=24, # Get subscription attributes @since CUPS 1.2@
IPP_GET_SUBSCRIPTIONS=25, # Get list of subscriptions @since CUPS 1.2@
IPP_RENEW_SUBSCRIPTION=26, # Renew a printer subscription @since CUPS 1.2@
IPP_CANCEL_SUBSCRIPTION=27, # Cancel a subscription @since CUPS 1.2@
IPP_GET_NOTIFICATIONS=28, # Get notification events @since CUPS 1.2@
IPP_SEND_NOTIFICATIONS=29, # Send notification events @private@
IPP_GET_PRINT_SUPPORT_FILES=33, # Get printer support files @private@
IPP_ENABLE_PRINTER=34, # Start a printer
IPP_DISABLE_PRINTER=35, # Stop a printer
IPP_PAUSE_PRINTER_AFTER_CURRENT_JOB=36,# Stop printer after the current job @private@
IPP_HOLD_NEW_JOBS=37, # Hold new jobs @private@
IPP_RELEASE_HELD_NEW_JOBS=38, # Release new jobs @private@
IPP_DEACTIVATE_PRINTER=39, # Stop a printer @private@
IPP_ACTIVATE_PRINTER=40, # Start a printer @private@
IPP_RESTART_PRINTER=41, # Restart a printer @private@
IPP_SHUTDOWN_PRINTER=42, # Turn a printer off @private@
IPP_STARTUP_PRINTER=43, # Turn a printer on @private@
IPP_REPROCESS_JOB=44, # Reprint a job @private@
IPP_CANCEL_CURRENT_JOB=45, # Cancel the current job @private@
IPP_SUSPEND_CURRENT_JOB=46, # Suspend the current job @private@
IPP_RESUME_JOB=47, # Resume the current job @private@
IPP_PROMOTE_JOB=48, # Promote a job to print sooner @private@
IPP_SCHEDULE_JOB_AFTER=49, # Schedule a job to print after another @private@
IPP_PRIVATE=0x4000, # Reserved @private@
CUPS_GET_DEFAULT=0x4001, # Get the default printer
CUPS_GET_PRINTERS=0x4002, # Get a list of printers and/or classes
CUPS_ADD_MODIFY_PRINTER=0x4003, # Add or modify a printer
CUPS_DELETE_PRINTER=0x4004, # Delete a printer
CUPS_GET_CLASSES=0x4005, # Get a list of classes @deprecated@
CUPS_ADD_MODIFY_CLASS=0x4006, # Add or modify a class
CUPS_DELETE_CLASS=0x4007, # Delete a class
CUPS_ACCEPT_JOBS=0x4008, # Accept new jobs on a printer
CUPS_REJECT_JOBS=0x4009, # Reject new jobs on a printer
CUPS_SET_DEFAULT=0x400A, # Set the default printer
CUPS_GET_DEVICES=0x400B, # Get a list of supported devices
CUPS_GET_PPDS=0x400C, # Get a list of supported drivers
CUPS_MOVE_JOB=0x400D, # Move a job to a different printer
CUPS_AUTHENTICATE_JOB=0x400E, # Authenticate a job @since CUPS 1.2@
CUPS_GET_PPD=0x400E) # Get a PPD file @since CUPS 1.3@
name_to_resp = dict(IPP_OK=0, # successful-ok
IPP_OK_SUBST=1, # successful-ok-ignored-or-substituted-attributes
IPP_OK_CONFLICT=2, # successful-ok-conflicting-attributes
IPP_OK_IGNORED_SUBSCRIPTIONS=3, # successful-ok-ignored-subscriptions
IPP_OK_IGNORED_NOTIFICATIONS=4, # successful-ok-ignored-notifications
IPP_OK_TOO_MANY_EVENTS=5, # successful-ok-too-many-events
IPP_OK_BUT_CANCEL_SUBSCRIPTION=6, # successful-ok-but-cancel-subscription
IPP_OK_EVENTS_COMPLETE=7, # successful-ok-events-complete
IPP_REDIRECTION_OTHER_SITE=0x200, #
CUPS_SEE_OTHER=0x280, # cups-see-other
IPP_BAD_REQUEST=0x0400, # client-error-bad-request
IPP_FORBIDDEN=0x401, # client-error-forbidden
IPP_NOT_AUTHENTICATED=0x402, # client-error-not-authenticated
IPP_NOT_AUTHORIZED=0x403, # client-error-not-authorized
IPP_NOT_POSSIBLE=0x404, # client-error-not-possible
IPP_TIMEOUT=0x405, # client-error-timeout
IPP_NOT_FOUND=0x406, # client-error-not-found
IPP_GONE=0x407, # client-error-gone
IPP_REQUEST_ENTITY=0x408, # client-error-request-entity-too-large
IPP_REQUEST_VALUE=0x409, # client-error-request-value-too-long
IPP_DOCUMENT_FORMAT=0x40A, # client-error-document-format-not-supported
IPP_ATTRIBUTES=0x40B, # client-error-attributes-or-values-not-supported
IPP_URI_SCHEME=0x40C, # client-error-uri-scheme-not-supported
IPP_CHARSET=0x40D, # client-error-charset-not-supported
IPP_CONFLICT=0x40E, # client-error-conflicting-attributes
IPP_COMPRESSION_NOT_SUPPORTED=0x40F,# client-error-compression-not-supported
IPP_COMPRESSION_ERROR=0x410, # client-error-compression-error
IPP_DOCUMENT_FORMAT_ERROR=0x411, # client-error-document-format-error
IPP_DOCUMENT_ACCESS_ERROR=0x412, # client-error-document-access-error
IPP_ATTRIBUTES_NOT_SETTABLE=0x413, # client-error-attributes-not-settable
IPP_IGNORED_ALL_SUBSCRIPTIONS=0x414,# client-error-ignored-all-subscriptions
IPP_TOO_MANY_SUBSCRIPTIONS=0x415, # client-error-too-many-subscriptions
IPP_IGNORED_ALL_NOTIFICATIONS=0x416,# client-error-ignored-all-notifications
IPP_PRINT_SUPPORT_FILE_NOT_FOUND=0x417,# client-error-print-support-file-not-found
IPP_INTERNAL_ERROR=0x0500, # server-error-internal-error
IPP_OPERATION_NOT_SUPPORTED=0x501, # server-error-operation-not-supported
IPP_SERVICE_UNAVAILABLE=0x502, # server-error-service-unavailable
IPP_VERSION_NOT_SUPPORTED=0x503, # server-error-version-not-supported
IPP_DEVICE_ERROR=0x504, # server-error-device-error
IPP_TEMPORARY_ERROR=0x505, # server-error-temporary-error
IPP_NOT_ACCEPTING=0x506, # server-error-not-accepting-jobs
IPP_PRINTER_BUSY=0x507, # server-error-busy
IPP_ERROR_JOB_CANCELED=0x508, # server-error-job-canceled
IPP_MULTIPLE_JOBS_NOT_SUPPORTED=0x509,# server-error-multiple-document-jobs-not-supported
IPP_PRINTER_IS_DEACTIVATED=0x50A) # server-error-printer-is-deactivated
name_to_tag = dict(IPP_TAG_ZERO=0, # Zero tag - used for separators
IPP_TAG_OPERATION=1, # Operation group
IPP_TAG_JOB=2, # Job group
IPP_TAG_END=3, # End-of-attributes
IPP_TAG_PRINTER=4, # Printer group
IPP_TAG_UNSUPPORTED_GROUP=5, # Unsupported attributes group
IPP_TAG_SUBSCRIPTION=6, # Subscription group
IPP_TAG_EVENT_NOTIFICATION=7, # Event group
IPP_TAG_UNSUPPORTED_VALUE=16, # Unsupported value
IPP_TAG_DEFAULT=17, # Default value
IPP_TAG_UNKNOWN=18, # Unknown value
IPP_TAG_NOVALUE=19, # No-value value
IPP_TAG_NOTSETTABLE=0x15, # Not-settable value
IPP_TAG_DELETEATTR=0x16, # Delete-attribute value
IPP_TAG_ADMINDEFINE=0x17, # Admin-defined value
IPP_TAG_INTEGER=0x21, # Integer value
IPP_TAG_BOOLEAN=0x22, # Boolean value
IPP_TAG_ENUM=0x23, # Enumeration value
IPP_TAG_STRING=0x30, # Octet string value
IPP_TAG_DATE=0x31, # Date/time value
IPP_TAG_RESOLUTION=0x32, # Resolution value
IPP_TAG_RANGE=0x33, # Range value
IPP_TAG_BEGIN_COLLECTION=0x34, # Beginning of collection value
IPP_TAG_TEXTLANG=0x35, # Text-with-language value
IPP_TAG_NAMELANG=0x36, # Name-with-language value
IPP_TAG_END_COLLECTION=0x37, # End of collection value
IPP_TAG_TEXT=0x41, # Text value
IPP_TAG_NAME=0x42, # Name value
IPP_TAG_KEYWORD=0x44, # Keyword value
IPP_TAG_URI=0x45, # URI value
IPP_TAG_URISCHEME=0x46, # URI scheme value
IPP_TAG_CHARSET=0x47, # Character set value
IPP_TAG_LANGUAGE=0x48, # Language value
IPP_TAG_MIMETYPE=0x49, # MIME media type value
IPP_TAG_MEMBERNAME=0x4A, # Collection member name value
IPP_TAG_MASK=0x7fffffff, # Mask for copied attribute values
IPP_TAG_COPY=-0x7fffffff-1) # Bitflag for copied attribute values
name_to_res = dict(IPP_RES_PER_INCH=3, # Pixels per inch
IPP_RES_PER_CM=4) # Pixels per centimeter
name_to_finish = dict(IPP_FINISHINGS_NONE=3, # No finishing
IPP_FINISHINGS_STAPLE=4, # Staple (any location)
IPP_FINISHINGS_PUNCH=5, # Punch (any location/count)
IPP_FINISHINGS_COVER=6, # Add cover
IPP_FINISHINGS_BIND=7, # Bind
IPP_FINISHINGS_SADDLE_STITCH=8, # Staple interior
IPP_FINISHINGS_EDGE_STITCH=9, # Stitch along any side
IPP_FINISHINGS_FOLD=10, # Fold (any type)
IPP_FINISHINGS_TRIM=11, # Trim (any type)
IPP_FINISHINGS_BALE=12, # Bale (any type)
IPP_FINISHINGS_BOOKLET_MAKER=13, # Fold to make booklet
IPP_FINISHINGS_JOB_OFFSET=14, # Offset for binding (any type)
IPP_FINISHINGS_STAPLE_TOP_LEFT=20,# Staple top left corner
IPP_FINISHINGS_STAPLE_BOTTOM_LEFT=21, # Staple bottom left corner
IPP_FINISHINGS_STAPLE_TOP_RIGHT=22, # Staple top right corner
IPP_FINISHINGS_STAPLE_BOTTOM_RIGHT=23, # Staple bottom right corner
IPP_FINISHINGS_EDGE_STITCH_LEFT=24, # Stitch along left side
IPP_FINISHINGS_EDGE_STITCH_TOP=25, # Stitch along top edge
IPP_FINISHINGS_EDGE_STITCH_RIGHT=26, # Stitch along right side
IPP_FINISHINGS_EDGE_STITCH_BOTTOM=27, # Stitch along bottom edge
IPP_FINISHINGS_STAPLE_DUAL_LEFT=28, # Two staples on left
IPP_FINISHINGS_STAPLE_DUAL_TOP=29, # Two staples on top
IPP_FINISHINGS_STAPLE_DUAL_RIGHT=30, # Two staples on right
IPP_FINISHINGS_STAPLE_DUAL_BOTTOM=31, # Two staples on bottom
IPP_FINISHINGS_BIND_LEFT=50, # Bind on left
IPP_FINISHINGS_BIND_TOP=51, # Bind on top
IPP_FINISHINGS_BIND_RIGHT=52, # Bind on right
IPP_FINISHINGS_BIND_BOTTOM=53) # Bind on bottom
name_to_orient = dict(IPP_PORTRAIT=3, # No rotation
IPP_LANDSCAPE=4, # 90 degrees counter-clockwise
IPP_REVERSE_LANDSCAPE=5, # 90 degrees clockwise
IPP_REVERSE_PORTRAIT=6) # 180 degrees
name_to_qual = dict(IPP_QUALITY_DRAFT=3, # Draft quality
IPP_QUALITY_NORMAL=4, # Normal quality
IPP_QUALITY_HIGH=5) # High quality
name_to_jstate = dict(IPP_JOB_PENDING=3, # Job is waiting to be printed
IPP_JOB_HELD=4, # Job is held for printing
IPP_JOB_PROCESSING=5, # Job is currently printing
IPP_JOB_STOPPED=6, # Job has been stopped
IPP_JOB_CANCELED=7, # Job has been canceled
IPP_JOB_ABORTED=8, # Job has aborted due to error
IPP_JOB_COMPLETED=9) # Job has completed successfully
name_to_pstate = dict(IPP_PRINTER_IDLE=3, # Printer is idle
IPP_PRINTER_PROCESSING=4, # Printer is working
IPP_PRINTER_STOPPED=5) # Printer is stopped
name_to_ippstate = dict(IPP_ERROR=-1, # An error occurred
IPP_IDLE=0, # Nothing is happening/request completed
IPP_HEADER=1, # The request header needs to be sent/received
IPP_ATTRIBUTE=2, # One or more attributes need to be sent/received
IPP_DATA=3) # IPP request data needs to be sent/received
# Set up reverse dics
def inverse_dic(dic):
idic={}
for n,v in dic.iteritems():
idic[v] = n
return idic
op_to_name=inverse_dic(name_to_op)
resp_to_name=inverse_dic(name_to_resp)
tag_to_name=inverse_dic(name_to_tag)
res_to_name=inverse_dic(name_to_res)
finish_to_name=inverse_dic(name_to_finish)
orient_to_name=inverse_dic(name_to_orient)
qual_to_name=inverse_dic(name_to_qual)
jstate_to_name=inverse_dic(name_to_jstate)
pstate_to_name=inverse_dic(name_to_pstate)
ippstate_to_name=inverse_dic(name_to_ippstate)
# Common tags
IPP_TAG_INTEGER = name_to_tag['IPP_TAG_INTEGER']
IPP_TAG_ENUM = name_to_tag['IPP_TAG_ENUM']
IPP_TAG_BOOLEAN = name_to_tag['IPP_TAG_BOOLEAN']
IPP_TAG_DATE = name_to_tag['IPP_TAG_DATE']
IPP_TAG_RESOLUTION = name_to_tag['IPP_TAG_RESOLUTION']
IPP_TAG_RANGE = name_to_tag['IPP_TAG_RANGE']
IPP_TAG_TEXTLANG = name_to_tag['IPP_TAG_TEXTLANG']
IPP_TAG_NAMELANG = name_to_tag['IPP_TAG_NAMELANG']
IPP_TAG_BEGIN_COLLECTION = name_to_tag['IPP_TAG_BEGIN_COLLECTION']
IPP_TAG_UNSUPPORTED_GROUP = name_to_tag['IPP_TAG_UNSUPPORTED_GROUP']
IPP_TAG_UNSUPPORTED_VALUE = name_to_tag['IPP_TAG_UNSUPPORTED_VALUE']
IPP_TAG_END = name_to_tag['IPP_TAG_END']
# Common tags
IPP_TAG_TEXT=0x41
IPP_TAG_URI=0x45
IPP_TAG_CHARSET=0x47
IPP_TAG_LANGUAGE=0x48
# Might as well have this
IPP_OK = 0
IPP_JOB_PENDING=3
IPP_JOB_HELD=4
IPP_JOB_PROCESSING=5
# Also have handy group names
IPP_TAG_OPERATION=1
IPP_TAG_JOB=2
IPP_TAG_PRINTER=4
class IppError(Exception):
"""Exception class for IPP errors"""
pass
def generate_value(name, valuetup):
"""Generate value length field and value"""
tag = valuetup[0]
value = valuetup[1]
if tag == IPP_TAG_INTEGER or tag == IPP_TAG_ENUM:
resfld = struct.pack('!I', int(value))
elif tag == IPP_TAG_BOOLEAN:
resfld = chr(value)
elif tag == IPP_TAG_DATE:
year,month,day,hours,minutes,seconds,wday,yday,isdst = time.gmtime(value)
resfld = struct.pack('!H6Bc2B', year, month, day, hours, minutes, seconds, 0, '+', 0, 0)
elif tag == IPP_TAG_RESOLUTION:
resfld = struct.pack('!2Ic', *value)
elif tag == IPP_TAG_RANGE:
resfld = struct.pack('!2I', *value)
elif tag == IPP_TAG_TEXTLANG or tag == IPP_TAG_NAMELANG:
cs, t = value
resfld = struct.pack('!H', len(cs)) + cs + struct.pack('!H', len(t)) + t
elif tag == IPP_TAG_BEGIN_COLLECTION:
raise IppError("Sorry cannot do collections yet")
else:
resfld = value
return struct.pack('!BH', tag, len(name)) + name + struct.pack('!H', len(resfld)) + resfld
class ippvalue:
"""Representation of value field in IPP"""
def __init__(self, tagval):
if isinstance(tagval, str):
try:
self.tag = name_to_tag[tagval]
except KeyError:
raise IppError("Unknown tag value " + tagval)
else:
self.tag = tagval
self.name = ''
self.value = []
def setname(self, name):
"""Set value name"""
self.name = name
def setvalue(self, value):
"""Set a value to given item"""
self.value.append(value)
def setnamevalues(self, name, values):
"""Initialise name and values"""
self.name = name;
if isinstance(values,str) or isinstance(values,int):
self.value.append((self.tag, values))
else:
for v in values:
self.value.append((self.tag, v))
def display(self, indent):
"""Display/trace the value"""
syslog.syslog(syslog.LOG_DEBUG, "Value:" + tag_to_name[self.tag])
syslog.syslog(syslog.LOG_DEBUG, "Name:" + self.name)
for i,v in enumerate(self.value):
syslog.syslog(syslog.LOG_DEBUG, str(i) + ' ' + tag_to_name[v[0]] + ' ' + str(v[1]))
def generate(self):
"""Turn value into IPP string"""
name = self.name
result = ''
for v in self.value:
result += generate_value(name, v)
name = ''
return result
def find_attribute(self, name):
"""See if the attribute has the given name"""
if self.name == name:
return self
return None
def get_value(self, ind=0):
"""Get the actual indth value of an ippvalue"""
return self.value[ind][1]
class ippgroup:
"""Representation of group field in IPP"""
def __init__(self, tagval):
self.tag = tagval
self.values = []
def setvalue(self, value):
"""Set a group value"""
self.values.append(value)
def display(self, indent):
"""Display/trace of group"""
syslog.syslog(syslog.LOG_DEBUG, "Group:" + tag_to_name[self.tag])
for i,v in enumerate(self.values):
syslog.syslog(syslog.LOG_DEBUG, "Group value " + str(i) + ":")
v.display(indent)
def generate(self):
"""Generate an IPP string for the group"""
result = chr(self.tag)
for v in self.values:
result += v.generate()
return result
def find_attribute(self, name):
"""Find the first attribute with the given name"""
for v in self.values:
fv = v.find_attribute(name)
if fv:
return fv
return None
class ipp:
"""Representation of IPP"""
def __init__(self, fb = None):
"""Initialise with optional parse string"""
self.filb = fb
self.values = []
self.majv = 1;
self.minv = 1;
self.statuscode = IPP_OK
self.id = 0
def setrespcode(self, code, ident = 0):
"""Set up response code - code may be string or tag number"""
if isinstance(code, str):
try:
self.statuscode = name_to_resp[code]
except KeyError:
raise IppError("Unknown response code " + code)
else:
self.statuscode = code
if ident == 0:
ident = random.randint(1, 1000000)
self.id = ident
def pushvalue(self, value):
"""Append value to structure"""
self.values.append(value)
def parsehdr(self):
"""Parse header of IPP string"""
return struct.unpack('!2BHI', self.filb.get(8))
def parsevalue(self, tag, length):
"""Parse value structure making conversions where appropriate"""
field = self.filb.get(length)
if tag == IPP_TAG_INTEGER or tag == IPP_TAG_ENUM:
result = struct.unpack('!I', field)[0]
elif tag == IPP_TAG_BOOLEAN:
result = ord(field)
elif tag == IPP_TAG_DATE:
year, month, day, hours, minutes, seconds, decisec, plusmin, utchr, utcmin = struct.unpack('!H6Bc2B', field)
t = time.mktime((year, month, day, hours, minutes, seconds, 0, 0, -1))
if plusmin == '-':
t += utchr * 3600 + utcmin * 60
else:
t -= utchr * 3600 + utcmin * 60
result = t
elif tag == IPP_TAG_RESOLUTION:
result = struct.unpack('!2Ic', field)
elif tag == IPP_TAG_RANGE:
result = struct.unpack('!2I', field);
elif tag == IPP_TAG_TEXTLANG or tag == IPP_TAG_NAMELANG:
csleng = struct.unpack('!H', field[0:2])[0]
field = field[2:]
cs = field[0:csleng]
field = field[csleng:]
tleng = struct.unpack('!H', field[0:2])[0]
field = field[2:]
t = field[0:tleng]
result = (cs, t)
elif tag == IPP_TAG_BEGIN_COLLECTION:
raise IppError("Sorry cannot do collections yet")
else:
result = field
return (tag, result)
def parseattr(self):
"""Parse attribute sequence"""
tag = self.filb.getch()
resval = ippvalue(tag)
namelength = struct.unpack('!H', self.filb.get(2))[0]
resval.setname(self.filb.get(namelength))
valuelength = struct.unpack('!H', self.filb.get(2))[0]
resval.setvalue(self.parsevalue(tag, valuelength))
while self.filb.peekch() >= IPP_TAG_UNSUPPORTED_VALUE:
newtag, namelength = struct.unpack('!BH', self.filb.peek(3))
if namelength != 0:
break
self.filb.skip(3)
valuelength = struct.unpack('!H', self.filb.get(2))[0]
resval.setvalue(self.parsevalue(newtag, valuelength))
return resval
def parsegrp(self, tag):
"""Parse a group of attributes"""
grp = ippgroup(tag)
while 1:
attr = self.parseattr()
grp.setvalue(attr)
if self.filb.peekch() < IPP_TAG_UNSUPPORTED_VALUE:
return grp
def parseipp(self):
"""Parse an IPP string"""
self.majv, self.minv, self.statuscode, self.id = self.parsehdr()
while 1:
if self.filb.peekch() < IPP_TAG_UNSUPPORTED_VALUE:
# Reading groups
grptag = self.filb.getch()
if grptag == IPP_TAG_END:
break
item = self.parsegrp(grptag)
else:
item = self.parseattr()
self.values.append(item)
def parse(self):
"""Parse an IPP structure and catch errors"""
try:
self.parseipp()
except (TypeError, struct.error, filebuf.filebufEOF):
raise IppError("Problem parsing input")
def display(self, resp=0):
"""Display/trace an IPP structure
Argument is non-zero to specify it's a response structure"""
try:
if resp:
code = resp_to_name[self.statuscode]
else:
code = op_to_name[self.statuscode]
except KeyError:
if resp:
code = "Unknown status did you really mean resp"
else:
code = "Unknown code didn't you mean resp"
syslog.syslog(syslog.LOG_DEBUG, "Version=" + str(self.majv) + "." + str(self.minv))
syslog.syslog(syslog.LOG_DEBUG, "Code=" + str(code) + " Id=" + str(self.id))
if len(self.values) > 0:
syslog.syslog(syslog.LOG_DEBUG, "Items:")
for v in self.values:
v.display(0)
def generate(self):
"""Generate an IPP string from the contents"""
result = struct.pack('!2BHI', self.majv, self.minv, self.statuscode, self.id)
for v in self.values:
result += v.generate()
return result + chr(IPP_TAG_END)
def find_attribute(self, name):
"""Find and return the first value field with the given name"""
for v in self.values:
fv = v.find_attribute(name)
if fv:
return fv
return None
gnuspool-1.7ubuntu1/cupspy/filebuf.py 0000664 0000000 0000000 00000016430 11421757503 014765 0 ustar # Copyright (C) 2009 Free Software Foundation
#
# 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 3, 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., 51 Franklin Street, Fifth Floor, Boston, MA
# 02110-1301, USA.
# Originally written by John Collins .
import select
class filebufEOF(Exception):
"""Throw me on EOF"""
pass
class filebuf:
"""Buffer up file/socket for efficient reading"""
def __init__(self, f, tout = 20):
"""Initialise with file-type argument"""
self.sock = f
self.buffer = ""
self.ptr = 0
self.expected = 0
self.timeout = tout
f.setblocking(0)
def set_expected(self, l):
"""Set expected value from HTTP header
Remember to adjust for anything we already read"""
self.expected = l + self.ptr - len(self.buffer)
def readbuf(self, length):
"""Read a bufferful up to length
We are set to non-blocking so we wait for something to arrive first"""
try:
sr = select.select((self.sock,),(),(), self.timeout)
if len(sr[0]) == 0:
raise filebufEOF()
return self.sock.recv(length)
except:
raise filebufEOF()
def want(self, length):
"""Say we want a string of length given from buffer"""
lenav = len(self.buffer) - self.ptr
while lenav < length:
getl = 1024
self.buffer = self.buffer[self.ptr:]
self.ptr = 0
nb = self.readbuf(getl)
lng = len(nb)
if lng == 0:
raise filebufEOF()
lenav += lng
self.expected -= len(nb)
self.buffer += nb
def get(self, length):
"""Get a string of length given from the file"""
self.want(length)
result = self.buffer[self.ptr:self.ptr+length]
self.ptr += length;
return result
def peek(self, length):
"""Peek at the next string of length given from the file"""
self.want(length)
return self.buffer[self.ptr:self.ptr+length]
def skip(self, length):
"""Skip over the next string of length given from the file"""
self.ptr += length
def getch(self):
"""Get the ord value of the next character"""
return ord(self.get(1))
def peekch(self):
"""Peek at the ord value of the next character"""
return ord(self.peek(1))
def getrem(self):
"""Get some of the remaining stuff we are expecting"""
if self.ptr > 0 and len(self.buffer) - self.ptr > 0:
ret = self.buffer[self.ptr:]
self.ptr = 0
return ret
l = self.expected
if l <= 0:
return ""
if l > 1024:
l = 1024
ret = self.readbuf(l)
self.expected -= len(ret)
return ret
def readline(self):
"""Emulate readline function"""
result = ""
try:
while 1:
ch = self.get(1)
result += ch
if ch == '\n': return result
except filebufEOF:
return None
def write(self, str):
"""Write string to file"""
self.sock.sendall(str)
class httpfilebuf(filebuf):
"""Class for managing HTTP chunked mode"""
def __init__(self, f, tout = 20):
filebuf.__init__(self, f, tout)
self.chunked = False
self.chunkbuf = ""
self.chunkptr = 0
def set_chunked(self):
"""Set the buffering to be chunked"""
self.chunked = True
self.chunkbuf = ""
self.chunkptr = 0
def read_numline(self):
"""Read line probably containing chunk size"""
result = ""
while 1:
ch = filebuf.get(self, 1)
result += ch
if ch == '\n': break
return result.rstrip()
def chunksize(self):
"""Read size of next chunk"""
lin = self.read_numline()
if len(lin) == 0: return None
try:
return int(lin, 16)
except ValueError:
raise filebufEOF()
def wantchunk(self, length):
"""As for want but with chunks"""
if self.chunkptr + length < len(self.chunkbuf):
return
self.chunkbuf = self.chunkbuf[self.chunkptr:]
self.chunkptr = 0
while length > len(self.chunkbuf):
# Get size of next chunk
nxt_sz = self.chunksize()
# We're not expecting end of chunks at this point
if nxt_sz == 0:
raise filebufEOF()
self.chunkbuf += filebuf.get(self, nxt_sz)
# Expect chunk to be followed by empty line
if self.chunksize() is not None:
raise filebufEOF()
def get(self, length):
"""Get a string of given length.
Possibly grab it from the chunked buffer"""
if not self.chunked:
return filebuf.get(self, length)
self.wantchunk(length)
result = self.chunkbuf[self.chunkptr:self.chunkptr+length]
self.chunkptr += length;
return result
def peek(self, length):
"""Peek at the next string of length given from the file
Possibly grab it from the chunked buffer"""
if not self.chunked:
return filebuf.peek(self, length)
self.wantchunk(length)
return self.chunkbuf[self.chunkptr:self.chunkptr+length]
def getrem(self):
"""Get some of the remaining stuff we are expecting
Possibly grab it from the chunked buffer"""
if not self.chunked:
return filebuf.getrem(self)
# Get anything remaining
if self.chunkptr < len(self.chunkbuf):
result = self.chunkbuf[self.chunkptr:]
self.chunkptr = 0
self.chunkbuf = ""
return result
# Read the next chunk
# If at end, turn off chunking
nxt_sz = self.chunksize()
if nxt_sz == 0:
self.chunked = False
return ""
result = filebuf.get(self, nxt_sz)
# Expect chunk to be followed by empty line
if self.chunksize() is not None:
raise filebufEOF()
return result
# Simulate that in an string
class stringbuf:
"""Buffer up string to look like filebuf"""
def __init__(self, f, l):
"""Initialise with file-type argument and expected length"""
self.buffer = f
self.ptr = 0
def want(self, length):
"""Say we want a string of length given from buffer"""
if len(self.buffer) - self.ptr < length:
raise filebufEOF()
def get(self, length):
"""Get a string of length given from the file"""
self.want(length)
result = self.buffer[self.ptr:self.ptr+length]
self.ptr += length;
return result
def peek(self, length):
"""Peek at the next string of length given from the file"""
self.want(length)
return self.buffer[self.ptr:self.ptr+length]
def skip(self, length):
"""Skip over the next string of length given from the file"""
self.ptr += length
def getch(self):
"""Get the ord value of the next character"""
return ord(self.get(1))
def peekch(self):
"""Peek at the ord value of the next character"""
return ord(self.peek(1))
def getrem(self):
"""Get some of the remaining stuff we are expecting"""
ret = self.buffer[self.ptr:]
self.ptr = len(self.buffer)
return ret;
def readline(self):
"""Emulate readline function"""
result = ""
try:
while 1:
ch = self.getch()
result += ch
if ch == '\n': return result
except filebufEOF:
return None
gnuspool-1.7ubuntu1/cupspy/confdefault.py 0000664 0000000 0000000 00000034124 11421757503 015643 0 ustar # Copyright (C) 2009 Free Software Foundation
#
# 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 3, 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., 51 Franklin Street, Fifth Floor, Boston, MA
# 02110-1301, USA.
# Originally written by John Collins .
import string, conf
# These are a load of default parameters for CUPSPY
# We don't include them in conf.py or invoke it from there as we don't want to carry around all the
# baggage when cupspy is running.
Default_command = dict(Prefix='gspl-pr -s --verbose', Copies='-c %d', Title='-h %s', User='-U %s', Form='-f %s', GSPrinter='-f %s')
Default_attrs = [ ('printer-current-time', 'IPP_TAG_DATE', 'NOW'),
('printer-error-policy', 'IPP_TAG_NAME', 'stop-printer'),
('printer-is-accepting-jobs', 'IPP_TAG_BOOLEAN', 1),
('printer-is-shared', 'IPP_TAG_BOOLEAN', 1),
('printer-op-policy', 'IPP_TAG_NAME', 'default'),
('printer-state', 'IPP_TAG_ENUM', 3),
('printer-state-change-time', 'IPP_TAG_INTEGER', 'NOW-3600'),
('printer-state-message', 'IPP_TAG_TEXT', ""),
('printer-state-reasons', 'IPP_TAG_KEYWORD', 'none'),
('printer-type', 'IPP_TAG_ENUM', 135244),
('printer-up-time', 'IPP_TAG_INTEGER', 'NOW-7200'),
('printer-uri-supported', 'IPP_TAG_URI', 'MAKELOCALURI'),
('queued-job-count', 'IPP_TAG_INTEGER', 0),
('uri-authentication-supported', 'IPP_TAG_KEYWORD', 'requesting-user-name'),
('uri-security-supported', 'IPP_TAG_KEYWORD', 'none'),
('printer-name', 'IPP_TAG_NAME', 'PRINTERNAME'),
('printer-location', 'IPP_TAG_TEXT', "Local Printer"),
('printer-info', 'IPP_TAG_TEXT', ""),
('printer-more-info', 'IPP_TAG_URI', 'MAKENETURI'),
('job-quota-period', 'IPP_TAG_INTEGER', 0),
('job-k-limit', 'IPP_TAG_INTEGER', 0),
('job-page-limit', 'IPP_TAG_INTEGER', 0),
('job-sheets-default', 'IPP_TAG_NAME', 'none'),
('device-uri', 'IPP_TAG_URI', 'MAKEDEVURI'),
('color-supported', 'IPP_TAG_BOOLEAN', 1),
('pages-per-minute', 'IPP_TAG_INTEGER', 12),
('printer-make-and-model', 'IPP_TAG_TEXT', ""),
('media-supported', 'IPP_TAG_KEYWORD', ['A4',
'BrA4_B',
'Letter',
'BrLetter_B',
'Legal',
'Executive',
'B5',
'A5',
'A6',
'BrA6_B',
'PostC4x6',
'BrPostC4x6_B',
'IndexC5x8',
'BrIndexC5x8_B',
'PhotoL',
'BrPhotoL_B',
'Photo2L',
'BrPhoto2L_B',
'PostCard',
'BrHagaki_B',
'DoublePostCardRotated',
'EnvC5',
'EnvDL',
'Env10',
'EnvMonarch',
'EnvYou4']),
('media-default', 'IPP_TAG_KEYWORD', 'A4'),
('port-monitor', 'IPP_TAG_KEYWORD', 'none'),
('port-monitor-supported', 'IPP_TAG_KEYWORD', 'none'),
('finishings-supported', 'IPP_TAG_ENUM', 3),
('finishings-default', 'IPP_TAG_ENUM', 3),
('document-format-supported', 'IPP_TAG_MIMETYPE', ['application/octet-stream',
'application/pdf',
'application/postscript',
'application/vnd.cups-postscript',
'application/vnd.cups-raw',
'application/vnd.hp-hpgl',
'application/x-cshell',
'application/x-csource',
'application/x-perl',
'application/x-shell',
'image/gif',
'image/jpeg',
'image/png',
'image/tiff',
'image/x-bitmap',
'image/x-photocd',
'image/x-portable-anymap',
'image/x-portable-bitmap',
'image/x-portable-graymap',
'image/x-portable-pixmap',
'image/x-sgi-rgb',
'image/x-sun-raster',
'image/x-xbitmap',
'image/x-xpixmap',
'text/html',
'text/plain']),
('copies-default', 'IPP_TAG_INTEGER', 1),
('job-hold-until-default', 'IPP_TAG_KEYWORD', 'no-hold'),
('job-priority-default', 'IPP_TAG_INTEGER', 50),
('number-up-default', 'IPP_TAG_INTEGER', 1),
('orientation-requested-default', 'IPP_TAG_ENUM', 3),
('charset-configured', 'IPP_TAG_CHARSET', 'utf-8'),
('charset-supported', 'IPP_TAG_CHARSET', ['us-ascii', 'utf-8']),
('compression-supported', 'IPP_TAG_KEYWORD', ['none', 'gzip']),
('copies-supported', 'IPP_TAG_RANGE', [1, 100]),
('document-format-default', 'IPP_TAG_MIMETYPE', 'application/octet-stream'),
('generated-natural-language-supported', 'IPP_TAG_LANGUAGE', 'en-us'),
('ipp-versions-supported', 'IPP_TAG_KEYWORD', [1.0, 1.1]),
('job-hold-until-supported', 'IPP_TAG_KEYWORD', ['no-hold',
'indefinite',
'day-time',
'evening',
'night',
'second-shift',
'third-shift',
'weekend']),
('job-priority-supported', 'IPP_TAG_INTEGER', 100),
('job-sheets-supported', 'IPP_TAG_NAME', ['none',
'classified',
'confidential',
'mls',
'secret',
'selinux',
'standard',
'te',
'topsecret',
'unclassified']),
('multiple-document-handling-supported', 'IPP_TAG_KEYWORD', [ 'separate-documents-uncollated-copies',
'separate-documents-collated-copies' ]),
('multiple-document-jobs-supported', 'IPP_TAG_BOOLEAN', 1),
('multiple-operation-time-out', 'IPP_TAG_INTEGER', 60),
('natural-language-configured', 'IPP_TAG_LANGUAGE', 'en-us'),
('notify-attributes-supported', 'IPP_TAG_KEYWORD', ['printer-state-change-time',
'notify-lease-expiration-time',
'notify-subscriber-user-name']),
('notify-lease-duration-default', 'IPP_TAG_INTEGER', 86400),
('notify-lease-duration-supported', 'IPP_TAG_RANGE', [0, 2147483647]),
('notify-max-events-supported', 'IPP_TAG_INTEGER', 100),
('notify-events-default', 'IPP_TAG_KEYWORD', 'job-completed'),
('notify-events-supported', 'IPP_TAG_KEYWORD', ['job-completed',
'job-config-changed',
'job-created',
'job-progress',
'job-state-changed',
'job-stopped',
'printer-added',
'printer-changed',
'printer-config-changed',
'printer-deleted',
'printer-finishings-changed',
'printer-media-changed',
'printer-modified',
'printer-restarted',
'printer-shutdown',
'printer-state-changed',
'printer-stopped',
'server-audit',
'server-restarted',
'server-started',
'server-stopped']),
('notify-pull-method-supported', 'IPP_TAG_KEYWORD', 'ippget'),
('notify-schemes-supported', 'IPP_TAG_KEYWORD', ['mailto', 'testnotify']),
('number-up-supported', 'IPP_TAG_INTEGER', [1, 2, 4, 6, 9, 16]),
('operations-supported', 'IPP_TAG_ENUM', [2, 4, 5, 6, 8, 9, 10,
11, 12, 13, 16, 17, 18,
20, 22, 23, 24, 25, 26,
27, 28, 34, 35, 16385,
16386, 16387, 16388, 16389,
16390, 16391, 16392, 16393,
16394, 16395, 16396, 16397, 16398]),
('orientation-requested-supported', 'IPP_TAG_ENUM', [3, 4, 5, 6]),
('page-ranges-supported', 'IPP_TAG_BOOLEAN', 1),
('pdl-override-supported', 'IPP_TAG_KEYWORD', 'not-attempted'),
('printer-error-policy-supported', 'IPP_TAG_NAME', ['abort-job', 'retry-job', 'stop-printer']),
('printer-op-policy-supported', 'IPP_TAG_NAME', 'default')]
def init_defaults(confstr):
"""Initialise default parameters from above tables"""
for name,val in dict.items(Default_command):
confstr.defaults.defs[name] = val
for attritem in Default_attrs:
name, type, vals = attritem
if isinstance(vals, list):
vals = string.join(map(str,vals), ' ')
if type == 'IPP_TAG_TEXT':
vals = '"' + vals + '"'
confstr.defaults.setattr(name, type, vals)
gnuspool-1.7ubuntu1/cupspy/README 0000664 0000000 0000000 00000002051 11421757503 013651 0 ustar CUPS emulation for GNUspool using Python
========================================
Several programs, notably Firefox and some incorporating GNOME print,
assume CUPS is running and get a list of printers using IPP.
This is an attempt written in Python to emulate CUPS and produce
print jobs for GNUspool.
Each virtual printer that the CUPS emulation produces is a gspl-pr
command with various options.
We have a copier which we use as a printer with various form suffixes
to select double-sided prints, bypass tray and single-sided prints as
required.
You will need to edit "cupspy.conf" to be suitable for your machine
and then run "cups.py" as superuser to start the emulator daemon. Take
down CUPS if it is running.
You may find the "cupspy-setup" Python program helpful for this - you will
need the Python/gtk module.
(At you will need these it isn't installed anywhere by the install stuff and
you might not have python handy.
I'm sure this will require a fair bit of polish - particularly in the
area of PPD files.
John Collins jmc@xisl.com
April 2009
gnuspool-1.7ubuntu1/cupspy/conf.py 0000664 0000000 0000000 00000044465 11421757503 014307 0 ustar # Copyright (C) 2009 Free Software Foundation
#
# 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 3, 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., 51 Franklin Street, Fifth Floor, Boston, MA
# 02110-1301, USA.
# Originally written by John Collins .
import re, socket, string, copy, time, ipp, sys, os, stat
class ConfError(Exception):
"""Error report in config file"""
pass
class ConfEOF(Exception):
"""Just exception to raise when we read EOF"""
pass
class Confdef:
def __init__(self, name, *istrings):
self.descr = name
self.attrlist = list()
self.attrs = dict()
self.defs = dict()
for i in istrings:
self.defs[i] = ''
def setdef(self, name, value):
"""Set a default name to given value"""
if name not in self.defs:
raise ConfError("Unknown keyword " + name)
self.defs[name] = value;
def setattr(self, name, typ, value):
"""Set up attribute name/type/value"""
if typ not in ipp.name_to_tag:
raise ConfError("Unknown type " + typ)
self.attrlist.append(name)
self.attrs[name] = (typ, value)
def check_complete(self):
"""Check we've got all the bits we should have"""
for k,v in dict.items(self.defs):
if len(v) == 0:
raise ConfError("Definition of " + k + " missing in " + self.descr)
def write_defs(self, outfile):
"""Write out definitions to file"""
outfile.write("# Definitions for %s\n\n%s:\n\n" % (self.descr, self.descr))
for k,v in dict.items(self.defs):
outfile.write("\t%s=%s\n" % (k, v))
outfile.write("\n")
for a in self.attrlist:
typ, val = self.attrs[a]
outfile.write("\t%s %s %s\n" % (a, typ, val))
outfile.write("\n")
def readuncommline(f):
"""Read a non-empty line from file
Also strip comments"""
while 1:
result = f.readline()
if len(result) == 0:
raise ConfEOF
m = re.match("([^#]*)#", result)
if m:
result = m.group(1)
result = string.strip(result)
if len(result) != 0:
return result
def readfullline(f):
"""Read a line in joining lines ending with \\ to the next one"""
result = readuncommline(f)
while result[-1] == '\\':
result = result[0:-1]
r2 = readuncommline(f)
result += r2
return result
def procparam(line, cdef):
"""Add the parameter list to the given entry
This might be the defaults or the entry for a given printer"""
# Split line into attribute name, type and args
try:
name, typ, args = re.split("\s+", line, 2)
except ValueError:
raise ConfError("Expecting name/type/args in ")
cdef.setattr(name, typ, args)
def parse_loop(f, cdef):
"""Loop to read definitions from file"""
while 1:
# Remember where we were
where = f.tell()
line = readfullline(f)
# If start of next section rewind and drop out
if re.match("\w+\s*:$", line):
f.seek(where)
return
try:
# Def specs have name=string in
m = re.match("(\w+)\s*=\s*(.*)", line)
if m:
cdef.setdef(m.group(1), m.group(2))
else:
procparam(line, cdef)
except ConfError as Err:
raise ConfError(Err.args[0] + " in " + line)
class Conf:
"""Content of config file"""
def __init__(self):
self.defaults = Confdef("DEFAULTS", "Prefix", "Form", "GSPrinter", "Copies", "Title", "User", "Printer")
self.printers = dict()
self.plist = []
self.loglevel = 1
self.timeouts = 20
self.conf_dir = os.getcwd()
self.ppddir = self.conf_dir
def parse_conf_params(self, f):
"""Parse parameters section of a config file"""
hadppd = False
while 1:
# Remember where we wre
where = f.tell()
line = readfullline(f)
# If start of next section rewind and drop out
if re.match("\w+\s*:$", line):
f.seek(where)
break
m = re.match("(\w+)\s*=\s*(.*)", line)
if not m:
break
opt = m.group(1)
arg = m.group(2)
if opt == "LOGLEVEL":
try:
self.loglevel = int(arg)
if self.loglevel < 0 or self.loglevel > 4:
raise ValueError
except ValueError:
raise ConfError("Invalid LOGLEVEL " + arg + " (should be int < 5)")
elif opt == "PPDDIR":
self.ppddir = arg
if len(arg) == 0:
raise ConfError("Invalid null PPDDIR")
hadppd = True
elif opt == "TIMEOUT":
try:
self.timeouts = float(arg)
if self.timeouts <= 0:
raise ValueError
except ValueError:
raise ConfError("Invalid TIMEOUT " + arg + " (should be >0)")
# If ppdir was specified and not absolute, put confdir in front
if hadppd:
if self.ppddir[0] != '/':
self.ppddir = os.path.join(self.conf_dir, self.ppddir)
try:
s = os.stat(self.ppddir)
if not stat.S_ISDIR(s[0]):
raise ConfError("PPDDIR " + self.ppddir + " not directory")
except OSError:
raise ConfError("Invalid PPDDIR " + self.ppddir)
def parse_conf_defaults(self, f):
"""Parse the defaults section of a config file"""
parse_loop(f, self.defaults)
def parse_conf_printer(self, pname, f):
"""Parse printer definition in a config file"""
if pname in self.printers:
raise ConfError("Already had definition of " + pname)
self.plist.append(pname)
pd = Confdef(pname, "GSPrinter", "Form", "Command")
pd.defs["Command"] = ':'
self.printers[pname] = pd
parse_loop(f, pd)
def parse_conf_file(self, fname):
"""Parse a config file and set up defaults"""
# Set base directory for conf stuff to be the directory we are reading the file from
# That might reset it later
confd, filen = os.path.split(os.path.abspath(fname))
self.conf_dir = confd
self.ppddir = confd
# Open the silly thing
try:
cfile = open(fname, 'rb')
except IOError:
raise ConfError("Cannot open " + fname)
try:
while 1:
line = readfullline(cfile)
m = re.match("\s*(\w+)\s*:$", line)
if not m:
raise ConfError("Unrecognised section start - " + line)
if m.group(1) == "PARAMS":
self.parse_conf_params(cfile)
elif m.group(1) == "DEFAULTS":
self.parse_conf_defaults(cfile)
else:
self.parse_conf_printer(m.group(1), cfile)
except ConfEOF:
pass
cfile.close()
# Check things make sense
self.defaults.check_complete()
for ptr in self.printers.values():
ptr.check_complete()
if self.defaults.defs['Printer'] not in self.printers:
raise ConfError("Default printer " + self.defaults['Printer'] + " not set up")
def write_config(self, fname, plist=None):
"""Write out a config file to the specified file
Optionally write printers out in the order given"""
try:
outfile = open(fname, "wb")
except IOError:
raise ConfError("Cannot open " + fname)
outd, filen = os.path.split(os.path.abspath(fname))
# Write parameters
outfile.write("# CUPSPY configuration file written on %s\n\n" % time.ctime())
outfile.write("# Parameters section\n\nPARAMS:\n\tLOGLEVEL=%d\n\tTIMEOUT=%d\n" % (self.loglevel, self.timeouts))
# Write out ppddir as relative or not at all if it's the same as outd
ppd = self.ppddir
if outd != ppd:
lout = len(outd)
if lout < len(ppd) and outd == ppd[0:lout] and ppd[lout] == '/':
ppd = ppd[lout+1:]
outfile.write("\tPPDDIR=%s\n" % ppd)
outfile.write("\n")
# Write defaults
self.defaults.write_defs(outfile)
if not plist:
plist = self.plist
for p in plist:
if p in self.printers:
self.printers[p].write_defs(outfile)
outfile.close()
# The following things are enquiries on the config data
# Not too many errors now
def list_printers(self):
"""Get a list of printers"""
return self.plist
def default_printer(self):
"""Get default printer name"""
return self.defaults.defs['Printer']
def set_default_printer(self, pname):
"""Set default printer"""
self.defaults.defs['Printer'] = pname
def print_command(self, pname, copies=1, user='root', title='No title'):
"""Get print command for printer"""
# If specific command given (not ':') use that
try:
pdefs = self.printers[pname].defs
except (KeyError, AttributeError):
return None
try:
cmd = pdefs['Command']
except KeyError:
cmd = ':'
if cmd != ':':
return cmd
# Put quotes round title if needed
title = re.sub("[^\w\s.]+", "_", title)
if re.search("\s", title):
title = "'" + title + "'"
# Create copies, printer, user, title args
try:
cmd = self.defaults.defs['Prefix']
cpsarg = self.defaults.defs['Copies'] % copies
titlearg = self.defaults.defs['Title'] % title
userarg = self.defaults.defs['User'] % user
if len(pdefs['GSPrinter']) != 0 and pdefs['GSPrinter'] != ':':
printerarg = self.defaults.defs['GSPrinter'] % pdefs['GSPrinter']
else:
printerarg = ""
formarg = self.defaults.defs['Form'] % pdefs['Form']
except (TypeError, KeyError, AttributeError):
return None
return string.join([cmd, cpsarg, titlearg, userarg, printerarg, formarg], ' ')
def get_attnames(self, pname):
"""Get list of applicable attributes for specified printer
in order that they are supposed to be"""
try:
attlist = copy.deepcopy(self.defaults.attrlist)
for att in self.printers[pname].attrlist:
if att not in attlist:
attlist.append(att)
return attlist
except KeyError:
return None
def get_config(self, pname, al):
"""Get specified configuration information for specified printer"""
if pname not in self.printers:
return None
# First get Default attributes
# We want a copy not a reference as we're going to overwrite bits
datts = copy.deepcopy(self.defaults.attrs)
for k,v in dict.items(self.printers[pname].attrs):
datts[k] = v
pendresult = []
for att in al:
if att in datts:
pendresult.append((att, datts[att]))
result = []
# Now decode any symbolic names and argument lists
for r in pendresult:
name, att = r
typestr, argstring = att
typenum = ipp.name_to_tag[typestr]
# Deal with "" strings as a special case - only one of them
m = re.match('"(.*)"', argstring)
if m:
res = m.group(1)
elif re.match("NOW", argstring):
# Simple expressions involving current time
m = re.match("NOW(([-+])(\d+))?", argstring)
if not m:
raise ConfError("Cannot decipher " + argstring)
when = time.time()
if m.group(1):
offset = int(m.group(3))
if m.group(2) == '-':
when -= offset
else:
when += offset
res = when
elif re.match("MAKE\w+URI", argstring):
if argstring == "MAKELOCALURI":
res = "ipp://localhost:631/printers/" + pname
elif argstring == "MAKENETURI":
res = "ipp://" + socket.gethostname() + ":631/printers/" + pname
elif argstring == "MAKEDEVURI":
res = "hal:///org/freedesktop/Hal/devices/" + pname
else:
raise ConfError("Cannot decipher " + argstring)
elif argstring == "PRINTERNAME":
res = pname
else:
res = re.split("\s+", argstring)
if typenum == ipp.IPP_TAG_INTEGER or typenum == ipp.IPP_TAG_ENUM or typenum == ipp.IPP_TAG_BOOLEAN or typenum == ipp.IPP_TAG_DATE:
try:
res = map(int, res)
except ValueError:
raise ConfError("Invalid number for " + typestr + " in attr " + name)
elif typenum == ipp.IPP_TAG_RESOLUTION:
if len(res) != 3:
raise ConfError("Invalid resolution " + argstring)
units = res.pop();
try:
res = map(int, res)
except ValueError:
raise ConfError("Invalid number for resolution " + name)
res.append(units);
res = tuple(res)
elif typenum == ipp.IPP_TAG_RANGE:
if len(res) != 2:
raise ConfError("Invalid range " + argstring)
try:
res = map(int, res)
except ValueError:
raise ConfError("Invalid number for range " + name)
res = tuple(res)
if not isinstance(res, list):
res = [res]
result.append((name, typenum, res))
return result
def get_default_attribute(self, attr):
"""Get default attribute value as a list"""
if attr not in self.defaults.attrs:
return None
return re.split('\s+', self.defaults.attrs[attr][1])
def get_attribute_value(self, pname, attr):
"""Get specified attribute value as single item"""
if pname not in self.printers:
return None
atts = self.get_config(pname, [attr])
if len(atts) == 0:
return None
atts = atts[0][2]
if len(atts) == 1:
return atts[0]
return atts
def set_attribute_value(self, pname, attrname, value):
"""Set specified attribute value"""
if pname not in self.printers:
raise ConfError("No such printer - " + pname)
ptrdef = self.printers[pname]
pattrs = ptrdef.attrs
# Set value to list if it isn't
if isinstance(value, list):
value = string.join(map(list, str), ' ')
# If something is already defined just update it otherwise
# get type from default or throw wobbly
if attrname in pattrs:
ty, ev = pattrs[attrname]
if ty == "IPP_TAG_TEXT":
value = '"' + value + '"'
pattrs[attrname] = (ty, value)
else:
if attrname not in self.defaults.attrs:
raise ConfError("Unknown attribute " + attrname)
# Need first level copy as we're overwriting value part
ty, ev = self.defaults.attrs[attrname]
if ty == "IPP_TAG_TEXT":
value = '"' + value + '"'
newatt = (ty, value)
pattrs[attrname] = newatt
ptrdef.attrlist.append(attrname)
def get_param_value(self, pname, param):
"""Get specified printer parameter"""
if pname not in self.printers:
raise ConfError("No such printer - " + pname)
pdefs = self.printers[pname].defs
if param not in pdefs:
raise ConfError("No such parameter - " + param)
return pdefs[param]
def set_param_value(self, pname, param, value):
"""Set specified printer parameter"""
if pname not in self.printers:
raise ConfError("No such printer - " + pname)
pdefs = self.printers[pname].defs
if param not in pdefs:
raise ConfError("No such parameter - " + param)
pdefs[param] = value
def add_printer(self, pname):
"""Add a new printer to the list"""
if pname in self.printers:
raise ConfError("Duplicate printer " + pname)
self.plist.append(pname)
pd = Confdef(pname, "GSPrinter", "Form", "Command")
pd.defs["Command"] = ':'
self.printers[pname] = pd
def rename_printer(self, pname, newpname):
"""Rename a printer"""
if newpname in self.printers:
raise ConfError("Duplicate printer name " + newpname)
self.printers[newpname] = self.printers[pname]
del self.printers[pname]
self.plist[self.plist.index(pname)] = newpname
# If it's the default printer rename that
if self.defaults.defs['Printer'] == pname:
self.defaults.defs['Printer'] = newpname
def del_printer(self, pname):
"""Delete a printer from the list"""
if pname not in self.printers:
raise ConfError("Unknown printer " + pname)
del self.printers[pname]
try:
del self.plist[self.plist.index(pname)]
except:
pass
if self.defaults.defs['Printer'] == pname:
self.defaults.defs['Printer'] = ""
gnuspool-1.7ubuntu1/cupspy/cupspy-setup.py 0000775 0000000 0000000 00000054614 11421757503 016043 0 ustar #! /usr/bin/python
#
# Copyright (C) 2009 Free Software Foundation
#
# 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 3, 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., 51 Franklin Street, Fifth Floor, Boston, MA
# 02110-1301, USA.
# Originally written by John Collins .
import pygtk
import gtk, gobject
import string, re, sys, os
import conf, confdefault
def error_dlg(message):
"""Error message dialog"""
dlg = gtk.MessageDialog(parent=None,
flags=gtk.DIALOG_MODAL|gtk.DIALOG_DESTROY_WITH_PARENT,
type=gtk.MESSAGE_ERROR,
buttons=gtk.BUTTONS_OK,
message_format=message)
dlg.run()
dlg.destroy()
ui_string = """"""
def setfilt(dlg):
"""Add filter to file chooser dialog"""
filter = gtk.FileFilter()
filter.set_name("All CUPSPY conf files")
filter.add_pattern("*.conf")
dlg.add_filter(filter)
def inserted_cb(treemodel, path, iter, w):
"""Callback for row inserted"""
w.dirty = True
def deleted_cb(treemodel, path, w):
"""Callback for row deleted"""
w.dirty = True
def activated_cb(view, path, col, win):
"""Callback for row double-clicked"""
win.file_editptr_cb(path)
class Ptrdlg(gtk.Dialog):
"""New or edit printer dialog"""
def __init__(self, title="Add printer"):
gtk.Dialog.__init__(self, title, None, gtk.DIALOG_MODAL | gtk.DIALOG_DESTROY_WITH_PARENT, (gtk.STOCK_OK, gtk.RESPONSE_OK, gtk.STOCK_CANCEL, gtk.RESPONSE_CANCEL))
tab = gtk.Table(6, 2)
self.vbox.pack_start(tab)
# Printer name
tab.attach(gtk.Label("Emulated Printer name"), 0, 1, 0, 1, ypadding=5)
self.cups_printer_name = gtk.Entry()
tab.attach(self.cups_printer_name, 1, 2, 0, 1, ypadding=5)
# Description
tab.attach(gtk.Label("Description"), 0, 1, 1, 2, ypadding=5)
self.description = gtk.Entry()
tab.attach(self.description, 1, 2, 1, 2, ypadding=5)
# Actual name
tab.attach(gtk.Label("Actual Printer name"), 0, 1, 2, 3, ypadding=5)
self.gs_printer_name = gtk.Entry()
tab.attach(self.gs_printer_name, 1, 2, 2, 3, ypadding=5)
# Form type
tab.attach(gtk.Label("Form type"), 0, 1, 3, 4, ypadding=5)
self.form_type = gtk.Entry()
tab.attach(self.form_type, 1, 2, 3, 4, ypadding=5)
# media supported/default
tab.attach(gtk.Label("Media supported"), 0, 1, 4, 5, ypadding=5)
self.media_supp = gtk.combo_box_entry_new_text()
tab.attach(self.media_supp, 1, 2, 4, 5, ypadding=5)
# document format supported/default
tab.attach(gtk.Label("Doc format supported"), 0, 1, 5, 6, ypadding=5)
self.doc_format = gtk.combo_box_entry_new_text()
tab.attach(self.doc_format, 1, 2, 5, 6, ypadding=5)
self.show_all()
def setup_cbentry(self, field, config, attr, curr=""):
"""Set up combo box entry from default attributes"""
mlist = config.get_default_attribute(attr)
mlist.sort()
for p in mlist:
field.append_text(p)
if len(curr) != 0:
field.child.set_text(curr)
def all_set(self):
"""Check all the fields are filled in"""
if not re.search("^\w+$", self.cups_printer_name.get_text()):
error_dlg("Invalid printer name")
return False
if not re.search("^\w*$", self.gs_printer_name.get_text()):
error_dlg("Invalid GS Printer Name")
return False
if len(self.description.get_text()) == 0:
error_dlg("No description")
return False
if not re.search("^[-\w.]+$", self.form_type.get_text()):
error_dlg("Invalid form type")
return False
if len(self.media_supp.child.get_text()) == 0:
error_dlg("No media supported")
return False
if len(self.doc_format.child.get_text()) == 0:
error_dlg("No doc format")
return False
return True
class LogDlg(gtk.Dialog):
"""Dialog box for setting logging level"""
def __init__(self, title="Set logging level"):
gtk.Dialog.__init__(self, title, None, gtk.DIALOG_MODAL | gtk.DIALOG_DESTROY_WITH_PARENT, (gtk.STOCK_OK, gtk.RESPONSE_OK, gtk.STOCK_CANCEL, gtk.RESPONSE_CANCEL))
self.loglevel = gtk.combo_box_new_text()
for lev in ('Errors only', 'Warning unimplemented', 'Notices (null emulation)', 'Information', 'Debug'):
self.loglevel.append_text(lev)
self.vbox.pack_start(self.loglevel)
self.show_all()
class ToDlg(gtk.Dialog):
"""Dialog box for setting timeout values"""
def __init__(self, title="Set timeout value"):
gtk.Dialog.__init__(self, title, None, gtk.DIALOG_MODAL | gtk.DIALOG_DESTROY_WITH_PARENT, (gtk.STOCK_OK, gtk.RESPONSE_OK, gtk.STOCK_CANCEL, gtk.RESPONSE_CANCEL))
self.timeout = gtk.SpinButton()
self.timeout.set_numeric(True)
self.timeout.set_digits(2)
self.timeout.set_range(0.01, 1000.00)
self.timeout.set_increments(0.01, 1.00)
self.vbox.pack_start(self.timeout)
self.show_all()
class Window(gtk.Window):
"""Main window class"""
def __init__(self, filename=""):
gtk.Window.__init__(self)
self.set_position(gtk.WIN_POS_CENTER)
self.set_title('Setup CUPSPY printers')
self.connect('delete-event', self.delete_event_cb)
self.set_size_request(550, 200)
vbox = gtk.VBox()
self.add(vbox)
self.create_ui()
vbox.pack_start(self.ui.get_widget('/Menubar'), expand=False)
vbox.pack_start(self.ui.get_widget('/Toolbar'), expand=False)
sw = gtk.ScrolledWindow()
sw.set_policy(gtk.POLICY_AUTOMATIC, gtk.POLICY_AUTOMATIC)
vbox.pack_start(sw)
self.tree_model = gtk.ListStore(gobject.TYPE_BOOLEAN, gobject.TYPE_STRING, gobject.TYPE_STRING)
self.tree_model.connect('row-inserted', inserted_cb, self)
self.tree_model.connect('row-deleted', deleted_cb, self)
self.tree_view = gtk.TreeView(self.tree_model)
self.tree_view.set_reorderable(True)
self.tree_view.connect('row-activated', activated_cb, self)
rend = gtk.CellRendererToggle()
col = self.tree_view.insert_column_with_attributes(-1, "Default", rend, active=0)
col.set_resizable(True)
rend = gtk.CellRendererText()
col = self.tree_view.insert_column_with_attributes(-1, "Name", rend, text=1)
col.set_resizable(True)
rend = gtk.CellRendererText()
col = self.tree_view.insert_column_with_attributes(-1, "Description", rend, text=2)
col.set_resizable(True)
sw.add(self.tree_view)
status = gtk.Statusbar()
vbox.pack_end(status, expand=False)
self.dirty = False
self.has_data = False
self.filename = ""
self.config_data = conf.Conf()
if len(filename) != 0:
self.load_file(filename)
else:
confdefault.init_defaults(self.config_data)
def load_file(self, filename):
"""Load up a config file"""
try:
self.config_data.parse_conf_file(filename)
self.filename = filename
defptr = self.config_data.default_printer()
plist = self.config_data.list_printers()
self.tree_model.clear()
for p in plist:
isdef = p == defptr
inf = self.config_data.get_attribute_value(p, 'printer-info')
if not inf:
inf = ""
self.tree_model.append((isdef, p, inf))
self.dirty = False
self.has_data = True
except conf.ConfError, msg:
error_dlg(msg.args[0])
self.filename = ""
self.config_data = conf.Conf()
confdefault.init_defaults(self.config_data)
self.dirty = False
self.has_data = False
def check_dirty(self):
"""Check for changes before clobbering them"""
if not self.dirty:
return False
dlg = gtk.MessageDialog(parent=None,
flags=gtk.DIALOG_MODAL|gtk.DIALOG_DESTROY_WITH_PARENT,
type=gtk.MESSAGE_QUESTION,
buttons=gtk.BUTTONS_YES_NO,
message_format="Unsaved data - continue?")
resp = dlg.run()
dlg.destroy()
return resp != gtk.RESPONSE_YES;
def check_data(self):
"""Check for data actually set before trying to save things"""
if self.has_data:
if len(self.config_data.default_printer()) == 0:
error_dlg("No default printer")
return False
return True
error_dlg("No printer information yet")
return False
def create_ui(self):
"""Set up menu"""
ag = gtk.ActionGroup('WindowActions')
actions = [
('FileMenu', None, '_File'),
('New', gtk.STOCK_NEW, '_New', 'N', 'Create a new config file', self.file_new_cb),
('Open', gtk.STOCK_OPEN, '_Open', 'O', 'Open a config file', self.file_open_cb),
('Save', gtk.STOCK_SAVE, '_Save', 'S', 'Save a config file', self.file_save_cb),
('SaveAs', gtk.STOCK_SAVE_AS, 'Save _As', 'S', 'Save a config file in new file', self.file_saveas_cb),
('ParamsMenu', None, 'P_arameters'),
('Log', None, '_Logging', None, 'Log file settings', self.par_log_cb),
('Directs', None, '_Directory for PPD files', None, 'Configure directory for PPD files', self.par_direct_cb),
('Timeout', None, '_Timeout', None, 'Timeout setting for socket', self.par_timeout_cb),
('Defptr', gtk.STOCK_PRINT, 'Def _ptr', None, 'Set printer as default', self.par_defptr_cb),
('PtrMenu', None, '_Printers'),
('Add', gtk.STOCK_GOTO_FIRST, '_Add', 'A', 'Add a new printer', self.file_newptr_cb),
('Delete', gtk.STOCK_DELETE, '_Delete', 'Delete', 'Delete printer', self.file_delptr_cb),
('Update', gtk.STOCK_EDIT, '_Update', 'E', 'Edit printer', self.file_editptr_cb),
('Close', gtk.STOCK_CLOSE, '_Close', 'W', 'Close the current config file', self.file_close_cb),
('Quit', gtk.STOCK_QUIT, '_Quit', 'Q', 'Quit program', self.file_quit_cb),
('HelpMenu', None, '_Help'),
('About', None, '_About', None, 'About application', self.help_about_cb),
]
ag.add_actions(actions)
self.ui = gtk.UIManager()
self.ui.insert_action_group(ag, 0)
self.ui.add_ui_from_string(ui_string)
self.add_accel_group(self.ui.get_accel_group())
def get_plist(self):
"""Get list of printers in the order moved to"""
result = []
iter = self.tree_model.get_iter_first()
while iter:
result.append(self.tree_model.get_value(iter, 1))
iter = self.tree_model.iter_next(iter)
return result
def file_new_cb(self, action):
"""Start new file of config data"""
if self.check_dirty():
return
self.tree_model.clear()
self.has_data = False
self.dirty = False
self.filename = ""
self.config_data = conf.Conf()
confdefault.init_defaults(self.config_data)
def file_save_cb(self, action):
"""Save config data file"""
if len(self.filename) == 0:
self.file_saveas_cb(action)
return
if not self.check_data():
return
dlg = gtk.FileChooserDialog("Save..",
None,
gtk.FILE_CHOOSER_ACTION_SAVE,
(gtk.STOCK_CANCEL, gtk.RESPONSE_CANCEL, gtk.STOCK_SAVE, gtk.RESPONSE_OK))
dlg.set_default_response(gtk.RESPONSE_OK)
dlg.set_filename(self.filename)
setfilt(dlg)
while dlg.run() == gtk.RESPONSE_OK:
fn = dlg.get_filename()
if fn is None:
continue
try:
self.config_data.write_config(fn, self.get_plist())
self.filename = fn
self.dirty = False
break
except conf.ConfError, msg:
error_dlg(msg.args[0])
dlg.destroy()
def file_saveas_cb(self, action):
"""Save As routine for config data file"""
if not self.check_data():
return
dlg = gtk.FileChooserDialog("Save As..",
None,
gtk.FILE_CHOOSER_ACTION_SAVE,
(gtk.STOCK_CANCEL, gtk.RESPONSE_CANCEL, gtk.STOCK_SAVE, gtk.RESPONSE_OK))
dlg.set_default_response(gtk.RESPONSE_OK)
if len(self.filename) == 0:
fn = os.getcwd()
fn += '/cupspy.conf'
dlg.set_filename(fn)
else:
dlg.set_filename(self.filename)
setfilt(dlg)
while dlg.run() == gtk.RESPONSE_OK:
fn = dlg.get_filename()
if fn is None:
continue
try:
self.config_data.write_config(fn, self.get_plist())
self.filename = fn
self.dirty = False
break
except conf.ConfError, msg:
error_dlg(msg.args[0])
dlg.destroy()
def file_newptr_cb(self, action):
"""Add printer"""
dlg = Ptrdlg()
mdef = self.config_data.get_default_attribute('media-default')
if isinstance(mdef,list) and len(mdef) == 1:
mdef = mdef[0]
else:
mdef = ""
dlg.setup_cbentry(dlg.media_supp, self.config_data, 'media-supported', mdef)
dlg.setup_cbentry(dlg.doc_format, self.config_data, 'document-format-supported')
while dlg.run() == gtk.RESPONSE_OK:
if dlg.all_set():
pname = dlg.cups_printer_name.get_text()
try:
self.config_data.add_printer(pname)
inf = dlg.description.get_text()
self.config_data.set_attribute_value(pname, 'printer-info', inf)
self.config_data.set_attribute_value(pname, 'media-supported', dlg.media_supp.child.get_text())
self.config_data.set_attribute_value(pname, 'media-default', dlg.media_supp.child.get_text())
self.config_data.set_attribute_value(pname, 'document-format-supported', dlg.doc_format.child.get_text())
self.config_data.set_param_value(pname, "Form", dlg.form_type.get_text())
gsp = string.strip(dlg.gs_printer_name.get_text())
if len(gsp) == 0:
gsp = ':'
self.config_data.set_param_value(pname, "GSPrinter", gsp)
self.tree_model.append((False, pname, inf))
self.has_data = True
break
except conf.ConfError, msg:
error_dlg(msg.args[0])
continue
dlg.destroy()
def file_editptr_cb(self, action):
"""Edit printer"""
model, sel = self.tree_view.get_selection().get_selected()
if sel is None:
return
pname = model.get_value(sel, 1)
dlg = Ptrdlg()
dlg.cups_printer_name.set_text(pname)
dlg.form_type.set_text(self.config_data.get_param_value(pname, 'Form'))
gsp = self.config_data.get_param_value(pname, 'GSPrinter')
if gsp == ':':
gsp = ""
dlg.gs_printer_name.set_text(gsp)
dlg.setup_cbentry(dlg.media_supp, self.config_data, 'media-supported', self.config_data.get_attribute_value(pname, 'media-supported'))
dlg.setup_cbentry(dlg.doc_format, self.config_data, 'document-format-supported', self.config_data.get_attribute_value(pname, 'document-format-supported'))
dlg.description.set_text(self.config_data.get_attribute_value(pname, 'printer-info'))
while dlg.run() == gtk.RESPONSE_OK:
if dlg.all_set():
newpname = dlg.cups_printer_name.get_text()
inf = dlg.description.get_text()
self.config_data.set_attribute_value(pname, 'printer-info', inf)
self.config_data.set_attribute_value(pname, 'media-supported', dlg.media_supp.child.get_text())
self.config_data.set_attribute_value(pname, 'media-default', dlg.media_supp.child.get_text())
self.config_data.set_attribute_value(pname, 'document-format-supported', dlg.doc_format.child.get_text())
self.config_data.set_param_value(pname, "Form", dlg.form_type.get_text())
gsp = string.strip(dlg.gs_printer_name.get_text())
if len(gsp) == 0:
gsp = ':'
self.config_data.set_param_value(pname, "GSPrinter", gsp)
try:
if newpname != pname:
self.config_data.rename_printer(pname, newpname)
self.tree_model.set_value(sel, 1, newpname)
except conf.ConfError, msg:
error_dlg(msg.args[0])
self.tree_model.set_value(sel, 2, inf)
self.dirty = True
break
dlg.destroy()
def file_delptr_cb(self, action):
"""Delete printer"""
model, sel = self.tree_view.get_selection().get_selected()
if sel is not None:
pname = model.get_value(sel, 1)
model.remove(sel)
self.config_data.del_printer(pname)
def par_log_cb(self, action):
"""Reset log parameter"""
dialog = LogDlg()
dialog.loglevel.set_active(self.config_data.loglevel)
if dialog.run() == gtk.RESPONSE_OK:
self.config_data.loglevel = dialog.loglevel.get_active()
self.dirty = True
dialog.destroy()
def par_timeout_cb(self, action):
"""Reset timeout parameter"""
dialog = ToDlg()
dialog.timeout.set_value(self.config_data.timeouts)
if dialog.run() == gtk.RESPONSE_OK:
self.config_data.timeouts = dialog.timeout.get_value()
self.dirty = True
dialog.destroy()
def par_direct_cb(self, action):
"""Set up PPD directory"""
dialog = gtk.FileChooserDialog("PPD Directory", self,
gtk.FILE_CHOOSER_ACTION_SELECT_FOLDER,
(gtk.STOCK_OPEN, gtk.RESPONSE_OK,
gtk.STOCK_CANCEL, gtk.RESPONSE_CANCEL))
dialog.set_default_response(gtk.RESPONSE_OK)
dialog.set_current_folder(self.config_data.ppddir)
if dialog.run() == gtk.RESPONSE_OK:
self.config_data.ppddir = dialog.get_current_folder()
self.dirty = True
dialog.destroy()
def par_defptr_cb(self, action):
"""Set up default printer"""
model, sel = self.tree_view.get_selection().get_selected()
if sel is not None:
pname = model.get_value(sel, 1)
if pname != self.config_data.default_printer():
self.config_data.set_default_printer(pname)
iter = model.get_iter_first()
while iter:
model.set_value(iter, 0, False)
iter = model.iter_next(iter)
model.set_value(sel, 0, True)
self.dirty = True
def file_open_cb(self, action):
"""Open config file"""
dialog = gtk.FileChooserDialog("Open..", self,
gtk.FILE_CHOOSER_ACTION_OPEN,
(gtk.STOCK_CANCEL, gtk.RESPONSE_CANCEL,
gtk.STOCK_OPEN, gtk.RESPONSE_OK))
dialog.set_default_response(gtk.RESPONSE_OK)
filter = gtk.FileFilter()
filter.set_name("All CUPSPY conf files")
filter.add_pattern("*.conf")
dialog.add_filter(filter)
if dialog.run() == gtk.RESPONSE_OK:
self.load_file(dialog.get_filename())
dialog.destroy()
def file_close_cb(self, action):
"""Close program"""
if not self.check_dirty():
gtk.main_quit()
def file_quit_cb(self, action):
"""Quit program"""
if not self.check_dirty():
raise SystemExit
def help_about_cb(self, action):
"""About box"""
dialog = gtk.MessageDialog(self, (gtk.DIALOG_MODAL | gtk.DIALOG_DESTROY_WITH_PARENT), gtk.MESSAGE_INFO, gtk.BUTTONS_OK, "CUPSPY setup Rel 1")
dialog.run()
dialog.destroy()
def delete_event_cb(self, window, event):
"""Delete action"""
if not self.check_dirty():
gtk.main_quit()
if __name__ == '__main__':
if len(sys.argv) > 1:
w = Window(sys.argv[1])
else:
w = Window()
w.show_all()
gtk.main()
gnuspool-1.7ubuntu1/cupspy/Default.ppd 0000664 0000000 0000000 00000017070 11421757503 015071 0 ustar *PPD-Adobe: "4.3"
*FormatVersion: "4.3"
*FileVersion: "1.2"
*LanguageVersion: English
*LanguageEncoding: ISOLatin1
*PCFileName: "POSTSCRIPT.PPD"
*Manufacturer: "Postscript"
*Product: "(CUPSPY borrowed from Wine)"
*ModelName: "Generic postscript printer"
*ShortNickName: "Generic postscript printer"
*NickName: "Generic postscript printer"
*PSVersion: "(3010.000) 550"
*LanguageLevel: "3"
*ColorDevice: True
*DefaultColorSpace: RGB
*FileSystem: False
*Throughput: "8"
*LandscapeOrientation: Plus90
*VariablePaperSize: False
*TTRasterizer: None
*UIConstraints: *PageSize Executive *InputSlot Envelope
*UIConstraints: *PageSize Letter *InputSlot Envelope
*UIConstraints: *PageSize Legal *InputSlot Envelope
*UIConstraints: *PageSize A3 *InputSlot Envelope
*UIConstraints: *PageSize A4 *InputSlot Envelope
*UIConstraints: *PageSize A5 *InputSlot Envelope
*UIConstraints: *PageSize B5 *InputSlot Envelope
*OpenUI *PageSize/Media Size: PickOne
*OrderDependency: 10 AnySetup *PageSize
*DefaultPageSize: A4
*PageSize Letter/Letter: "<>setpagedevice"
*PageSize Legal/Legal: "<>setpagedevice"
*PageSize Executive/Executive: "<>setpagedevice"
*PageSize A3/A3: "<>setpagedevice"
*PageSize A4/A4: "<>setpagedevice"
*PageSize A5/A5: "<>setpagedevice"
*PageSize B5/B5 (JIS): "<>setpagedevice"
*PageSize EnvISOB5/Envelope B5: "<>setpagedevice"
*PageSize Env10/Envelope #10: "<>setpagedevice"
*PageSize EnvC5/Envelope C5: "<>setpagedevice"
*PageSize EnvDL/Envelope DL: "<>setpagedevice"
*PageSize EnvMonarch/Envelope Monarch: "<>setpagedevice"
*CloseUI: *PageSize
*OpenUI *PageRegion: PickOne
*OrderDependency: 10 AnySetup *PageRegion
*DefaultPageRegion: A4
*PageRegion Letter/Letter: "<>setpagedevice"
*PageRegion Legal/Legal: "<>setpagedevice"
*PageRegion Executive/Executive: "<>setpagedevice"
*PageRegion A3/A3: "<>setpagedevice"
*PageRegion A4/A4: "<>setpagedevice"
*PageRegion A5/A5: "<>setpagedevice"
*PageRegion B5/B5 (JIS): "<>setpagedevice"
*PageRegion EnvISOB5/Envelope B5: "<>setpagedevice"
*PageRegion Env10/Envelope #10: "<>setpagedevice"
*PageRegion EnvC5/Envelope C5: "<>setpagedevice"
*PageRegion EnvDL/Envelope DL: "<>setpagedevice"
*PageRegion EnvMonarch/Envelope Monarch: "<>setpagedevice"
*CloseUI: *PageRegion
*DefaultImageableArea: Letter
*ImageableArea Letter/US Letter: "18 18 594 774"
*ImageableArea Legal/US Legal: "18 18 594 990"
*ImageableArea Executive/Executive: "18 18 504 738"
*ImageableArea A3/A3: "12 12 830 1179"
*ImageableArea A4/A4: "18 18 577 824"
*ImageableArea A5/A5: "18 36 403 559"
*ImageableArea B5/JIS B5: "18 36 498 693"
*ImageableArea EnvISOB5/B5 (ISO): "18 36 463 673"
*ImageableArea Env10/Com-10: "18 36 279 648"
*ImageableArea EnvC5/EnvC5: "18 36 441 613"
*ImageableArea EnvDL/EnvDL: "18 36 294 588"
*ImageableArea EnvMonarch/Envelope Monarch: "18 36 261 504"
*DefaultPaperDimension: Letter
*PaperDimension Letter/Letter: "612 792"
*PaperDimension Legal/Legal: "612 1008"
*PaperDimension Executive/Executive: "522 756"
*PaperDimension A3/A3: "842 1191"
*PaperDimension A4/A4: "595 842"
*PaperDimension A5/A5: "421 595"
*PaperDimension B5/B5 (JIS): "516 729"
*PaperDimension EnvISOB5/Envelope B5: "499 709"
*PaperDimension Env10/Envelope #10: "297 684"
*PaperDimension EnvC5/Envelope C5: "459 649"
*PaperDimension EnvDL/Envelope DL: "312 624"
*PaperDimension EnvMonarch/Envelope Monarch: "279 540"
*OpenUI *InputSlot/Media Source: PickOne
*OrderDependency: 10 AnySetup *InputSlot
*DefaultInputSlot: Default
*InputSlot Default/Default: ""
*InputSlot Tray1/Tray 1: "<>setpagedevice"
*InputSlot Tray2/Tray 2: "<>setpagedevice"
*InputSlot Tray3/Tray 3: "<>setpagedevice"
*InputSlot Manual/Manual Feed: "<>setpagedevice"
*CloseUI: *InputSlot
*OpenUI *Resolution/Output Resolution: PickOne
*OrderDependency: 20 AnySetup *Resolution
*DefaultResolution: 300dpi
*Resolution 150dpi/150 DPI: "<>setpagedevice"
*Resolution 300dpi/300 DPI: "<>setpagedevice"
*Resolution 600dpi/600 DPI: "<>setpagedevice"
*Resolution 1200dpi/1200 DPI: "<>setpagedevice"
*Resolution 2400dpi/2400 DPI: "<>setpagedevice"
*CloseUI: *Resolution
*OpenUI *Duplex/Double-Sided Printing: PickOne
*OrderDependency: 20 AnySetup *Duplex
*DefaultDuplex: None
*Duplex None/Off: "<>setpagedevice"
*Duplex DuplexNoTumble/Long Edge (Standard): "<>setpagedevice"
*Duplex DuplexTumble/Short Edge (Flip): "<>setpagedevice"
*CloseUI: *Duplex
*DefaultFont: Courier
*Font AvantGarde-Book: Standard "(001.006S)" Standard ROM
*Font AvantGarde-BookOblique: Standard "(001.006S)" Standard ROM
*Font AvantGarde-Demi: Standard "(001.007S)" Standard ROM
*Font AvantGarde-DemiOblique: Standard "(001.007S)" Standard ROM
*Font Bookman-Demi: Standard "(001.004S)" Standard ROM
*Font Bookman-DemiItalic: Standard "(001.004S)" Standard ROM
*Font Bookman-Light: Standard "(001.004S)" Standard ROM
*Font Bookman-LightItalic: Standard "(001.004S)" Standard ROM
*Font Courier: Standard "(002.004S)" Standard ROM
*Font Courier-Bold: Standard "(002.004S)" Standard ROM
*Font Courier-BoldOblique: Standard "(002.004S)" Standard ROM
*Font Courier-Oblique: Standard "(002.004S)" Standard ROM
*Font Helvetica: Standard "(001.006S)" Standard ROM
*Font Helvetica-Bold: Standard "(001.007S)" Standard ROM
*Font Helvetica-BoldOblique: Standard "(001.007S)" Standard ROM
*Font Helvetica-Narrow: Standard "(001.006S)" Standard ROM
*Font Helvetica-Narrow-Bold: Standard "(001.007S)" Standard ROM
*Font Helvetica-Narrow-BoldOblique: Standard "(001.007S)" Standard ROM
*Font Helvetica-Narrow-Oblique: Standard "(001.006S)" Standard ROM
*Font Helvetica-Oblique: Standard "(001.006S)" Standard ROM
*Font NewCenturySchlbk-Bold: Standard "(001.009S)" Standard ROM
*Font NewCenturySchlbk-BoldItalic: Standard "(001.007S)" Standard ROM
*Font NewCenturySchlbk-Italic: Standard "(001.006S)" Standard ROM
*Font NewCenturySchlbk-Roman: Standard "(001.007S)" Standard ROM
*Font Palatino-Bold: Standard "(001.005S)" Standard ROM
*Font Palatino-BoldItalic: Standard "(001.005S)" Standard ROM
*Font Palatino-Italic: Standard "(001.005S)" Standard ROM
*Font Palatino-Roman: Standard "(001.005S)" Standard ROM
*Font Symbol: Special "(001.007S)" Special ROM
*Font Times-Bold: Standard "(001.007S)" Standard ROM
*Font Times-BoldItalic: Standard "(001.009S)" Standard ROM
*Font Times-Italic: Standard "(001.007S)" Standard ROM
*Font Times-Roman: Standard "(001.007S)" Standard ROM
*Font ZapfChancery-MediumItalic: Standard "(001.007S)" Standard ROM
*Font ZapfDingbats: Special "(001.004S)" Standard ROM
gnuspool-1.7ubuntu1/src/ 0000775 0000000 0000000 00000000000 11421757504 012240 5 ustar gnuspool-1.7ubuntu1/src/qopts.c 0000664 0000000 0000000 00000062647 11421757504 013571 0 ustar /* qopts.c -- spq options and things using curses
Copyright 2008 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 3 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 . */
#include "config.h"
#include
#include
#ifdef TIME_WITH_SYS_TIME
#include
#include
#elif defined(HAVE_SYS_TIME_H)
#include
#else
#include
#endif
#include "incl_sig.h"
#include "errnums.h"
#include "defaults.h"
#include "files.h"
#include "network.h"
#include "spq.h"
#include "q_shm.h"
#include "spuser.h"
#include "keynames.h"
#include "sctrl.h"
#include "magic_ch.h"
#include "ecodes.h"
#include "incl_unix.h"
#include "incl_ugid.h"
#include "displayopt.h"
#define SECSPERDAY (24 * 60 * 60L)
#define HALTATCOL 45
void cjfind(void);
void dochelp(WINDOW *, const int);
void doerror(WINDOW *, const int);
void endhe(WINDOW *, WINDOW **);
void rpfile(void);
void my_wjmsg(const int);
char **wotjform(const char *, const int);
char **wotjprin(const char *, const int);
void tdisplay(WINDOW *, const time_t, const int, const int);
int wtime(WINDOW *, const int, const int);
#ifndef HAVE_ATEXIT
void exit_cleanup(void);
#endif
extern struct spdet *mypriv;
extern char helpclr;
extern int hadrfresh;
extern struct spr_req jreq;
#define JREQS jreq.spr_un.j.spr_jslot
extern struct spq JREQ;
static char *emsg,
*yesmsg,
*nomsg,
*percentmsg;
static int yesnlng;
#define NULLCH ((char *) 0)
struct ltab {
int helpcode;
char *message;
char row, col, size, stickrow;
void (*dfn)(const struct ltab *);
int (*fn)(const struct ltab *);
};
/* Routine to send message hopefully securely.
Gyrations are to try to avoid the signal arriving
the instant you do the my_wjmsg. */
static void cmsg(void)
{
#ifdef HAVE_SIGACTION
sigset_t sset, uset;
sigemptyset(&sset);
sigfillset(&uset);
sigaddset(&sset, QRFRESH);
sigdelset(&uset, QRFRESH);
sigprocmask(SIG_BLOCK, &sset, (sigset_t *) 0);
my_wjmsg(SJ_CHNG);
sigsuspend(&uset);
sigprocmask(SIG_UNBLOCK, &sset, (sigset_t *) 0);
#elif defined(HAVE_SIGSET)
sighold(QRFRESH);
my_wjmsg(SJ_CHNG);
sigpause(QRFRESH); /* The sematics of which are different... */
#elif (defined(HAVE_SIGVEC) && defined(SV_INTERRUPT)) || defined(HAVE_SIGVECTOR)
sigsetmask(sigmask(QRFRESH));
my_wjmsg(SJ_CHNG);
sigpause(0);
sigsetmask(0);
#else
my_wjmsg(SJ_CHNG);
/* Could hang if signal arrives HERE */
pause();
#endif
}
static void qd_title(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, JREQ.spq_file);
}
static void qd_supph(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, JREQ.spq_jflags & SPQ_NOH? yesmsg: nomsg);
}
static void qd_form(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, JREQ.spq_form);
}
static void qd_ptr(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, JREQ.spq_ptr);
}
static void qd_puser(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, JREQ.spq_puname);
}
static void qd_mail(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, JREQ.spq_jflags & SPQ_MAIL? yesmsg: nomsg);
}
static void qd_wmsg(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, JREQ.spq_jflags & SPQ_WRT? yesmsg: nomsg);
}
static void qd_mattn(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, JREQ.spq_jflags & SPQ_MATTN? yesmsg: nomsg);
}
static void qd_wattn(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, JREQ.spq_jflags & SPQ_WATTN? yesmsg: nomsg);
}
static void qd_class(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, hex_disp(JREQ.spq_class, 1));
}
static void qd_flags(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, JREQ.spq_flags);
}
static void qd_retain(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, JREQ.spq_jflags & SPQ_RETN? yesmsg: nomsg);
}
static void qd_num(const struct ltab *lt, const LONG num)
{
move(lt->row, lt->col);
if (num > LOTSANDLOTS)
printw("%*s", lt->size, emsg);
else
printw("%*ld", lt->size, num);
}
static void qd_cps(const struct ltab *lt)
{
qd_num(lt, (LONG) JREQ.spq_cps);
}
static void qd_pri(const struct ltab *lt)
{
qd_num(lt, (LONG) JREQ.spq_pri);
}
static void qd_startp(const struct ltab *lt)
{
qd_num(lt, (LONG) (JREQ.spq_start + 1L));
}
static void qd_hatp(const struct ltab *lt)
{
qd_num(lt, (LONG) (JREQ.spq_haltat + 1L));
}
static void qd_endp(const struct ltab *lt)
{
qd_num(lt, (LONG) (JREQ.spq_end + 1L));
}
static void qd_sodd(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, JREQ.spq_jflags & SPQ_ODDP? yesmsg: nomsg);
}
static void qd_seven(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, JREQ.spq_jflags & SPQ_EVENP? yesmsg: nomsg);
}
static void qd_revoe(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, JREQ.spq_jflags & SPQ_REVOE? yesmsg: nomsg);
}
static void qd_printed(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, JREQ.spq_dflags & SPQ_PRINTED? yesmsg: nomsg);
}
static void qd_local(const struct ltab *lt)
{
mvaddstr(lt->row, lt->col, JREQ.spq_jflags & SPQ_LOCALONLY? yesmsg: nomsg);
}
static void qd_dinp(const struct ltab *lt)
{
qd_num(lt, (LONG) JREQ.spq_nptimeout);
}
static void qd_dip(const struct ltab *lt)
{
qd_num(lt, (LONG) JREQ.spq_ptimeout);
}
static void qd_hold(const struct ltab *lt)
{
tdisplay(stdscr, (time_t) JREQ.spq_hold, lt->row, lt->col);
}
static int qo_title(const struct ltab *lt)
{
char *str;
struct sctrl wst_file;
wst_file.helpcode = lt->helpcode;
wst_file.helpfn = HELPLESS;
wst_file.size = lt->size;
wst_file.col = lt->col;
wst_file.magic_p = MAG_OK|MAG_R|MAG_CRS|MAG_NL;
wst_file.msg = (char *) 0;
if ((str = wgets(stdscr, lt->row, &wst_file, JREQ.spq_file))) {
strncpy(JREQ.spq_file, str, MAXTITLE);
cmsg();
return $K{key eol};
}
return wst_file.retv;
}
static int qo_form(const struct ltab *lt)
{
char *str;
struct sctrl wst_form;
wst_form.helpcode = lt->helpcode;
wst_form.helpfn = wotjform;
wst_form.size = lt->size;
wst_form.col = lt->col;
wst_form.magic_p = MAG_P|MAG_R|MAG_NL|MAG_FNL|MAG_CRS;
wst_form.msg = (char *) 0;
if ((str = wgets(stdscr, lt->row, &wst_form, JREQ.spq_form))) {
if (!((mypriv->spu_flgs & PV_FORMS) || qmatch(mypriv->spu_formallow, str))) {
disp_str = mypriv->spu_formallow;
doerror(stdscr, $E{spq cannot select forms});
ws_fill(stdscr, lt->row, &wst_form, JREQ.spq_form);
refresh();
return 0;
}
strncpy(JREQ.spq_form, str, MAXFORM);
cmsg();
return $K{key eol};
}
return wst_form.retv;
}
static int qo_ptr(const struct ltab *lt)
{
char *str;
struct sctrl wst_ptr;
wst_ptr.helpcode = lt->helpcode;
wst_ptr.helpfn = wotjprin;
wst_ptr.size = lt->size;
wst_ptr.col = lt->col;
wst_ptr.magic_p = MAG_P|MAG_R|MAG_CRS|MAG_NL;
wst_ptr.msg = (char *) 0;
str = wgets(stdscr, lt->row, &wst_ptr, JREQ.spq_ptr);
if (str) {
if (!((mypriv->spu_flgs & PV_OTHERP) || issubset(mypriv->spu_ptrallow, str))) {
disp_str = mypriv->spu_ptrallow;
doerror(stdscr, $E{spq cannot select ptrs});
ws_fill(stdscr, lt->row, &wst_ptr, JREQ.spq_ptr);
refresh();
return 0;
}
strncpy(JREQ.spq_ptr, str, JPTRNAMESIZE);
cmsg();
return $K{key eol};
}
return wst_ptr.retv;
}
static int qo_flags(const struct ltab *lt)
{
int siz;
char *str;
struct sctrl wst_flags;
wst_flags.helpcode = lt->helpcode;
wst_flags.helpfn = HELPLESS;
wst_flags.col = lt->col;
siz = COLS - lt->col;
wst_flags.size = (USHORT) (lt->size > siz? siz: lt->size);
wst_flags.magic_p = MAG_OK|MAG_R|MAG_NL|MAG_CRS;
wst_flags.msg = (char *) 0;
if ((str = wgets(stdscr, lt->row, &wst_flags, JREQ.spq_flags))) {
strncpy(JREQ.spq_flags, str, MAXFLAGS);
cmsg();
return $K{key eol};
}
return wst_flags.retv;
}
static int qo_puser(const struct ltab *lt)
{
char *str, *origu;
struct sctrl wst_user;
origu = JREQ.spq_puname;
wst_user.helpcode = lt->helpcode;
wst_user.helpfn = gen_ulist;
wst_user.size = lt->size;
wst_user.col = lt->col;
wst_user.magic_p = MAG_P|MAG_R|MAG_NL|MAG_FNL|MAG_CRS;
wst_user.msg = (char *) 0;
for (;;) {
if (!(str = wgets(stdscr, lt->row, &wst_user, origu)))
return wst_user.retv;
#ifdef NOTNEEDED_I_DONT_THINK
if (str[0] == '\0') {
ws_fill(stdscr, lt->row, &wst_user, origu);
refresh();
return $K{key eol};
}
#endif
if (lookup_uname(str) != UNKNOWN_UID) {
strncpy(JREQ.spq_puname, str, UIDSIZE);
cmsg();
return $K{key eol};
}
disp_str = str;
doerror(stdscr, $E{Unknown user in spq});
ws_fill(stdscr, lt->row, &wst_user, origu);
}
}
static int qo_bool(const struct ltab *lt, unsigned b)
{
int ch;
select_state($S{spq set boolean state});
move(lt->row, lt->col);
refresh();
for (;;) {
do ch = getkey(MAG_A|MAG_P);
while (ch == EOF && (hlpscr || escr));
if (hlpscr) {
endhe(stdscr, &hlpscr);
if (helpclr)
continue;
}
if (escr)
endhe(stdscr, &escr);
switch (ch) {
default:
doerror(stdscr, $E{spq set boolean state});
case EOF:
continue;
case $K{key help}:
dochelp(stdscr, lt->helpcode);
continue;
case $K{key refresh}:
wrefresh(curscr);
refresh();
continue;
case $K{key yes}:
if (b)
return $K{key eol};
printw("%-*s", yesnlng, yesmsg);
refresh();
reset_state();
return 1;
case $K{key no}:
if (!b)
return $K{key eol};
printw("%-*s", yesnlng, nomsg);
refresh();
reset_state();
return 0;
case $K{key toggle}:
printw("%-*s", yesnlng, b? nomsg: yesmsg);
refresh();
reset_state();
return -1;
case $K{key halt}:
case $K{key cursor down}:
case $K{key eol}:
case $K{key cursor up}:
case $K{key erase}:
reset_state();
return ch;
}
}
}
static int qo_wmsg(const struct ltab *lt)
{
int ch;
switch (ch = qo_bool(lt, JREQ.spq_jflags & SPQ_WRT)) {
default:
return ch;
case -1:
JREQ.spq_jflags ^= SPQ_WRT;
break;
case 0:
JREQ.spq_jflags &= ~SPQ_WRT;
break;
case 1:
JREQ.spq_jflags |= SPQ_WRT;
break;
}
cmsg();
return $K{key eol};
}
static int qo_mail(const struct ltab *lt)
{
int ch;
switch (ch = qo_bool(lt, JREQ.spq_jflags & SPQ_MAIL)) {
default:
return ch;
case -1:
JREQ.spq_jflags ^= SPQ_MAIL;
break;
case 0:
JREQ.spq_jflags &= ~SPQ_MAIL;
break;
case 1:
JREQ.spq_jflags |= SPQ_MAIL;
break;
}
cmsg();
return $K{key eol};
}
static int qo_wattn(const struct ltab *lt)
{
int ch;
switch (ch = qo_bool(lt, JREQ.spq_jflags & SPQ_WATTN)) {
default:
return ch;
case -1:
JREQ.spq_jflags ^= SPQ_WATTN;
break;
case 0:
JREQ.spq_jflags &= ~SPQ_WATTN;
break;
case 1:
JREQ.spq_jflags |= SPQ_WATTN;
break;
}
cmsg();
return $K{key eol};
}
static int qo_mattn(const struct ltab *lt)
{
int ch;
switch (ch = qo_bool(lt, JREQ.spq_jflags & SPQ_MATTN)) {
default:
return ch;
case -1:
JREQ.spq_jflags ^= SPQ_MATTN;
break;
case 0:
JREQ.spq_jflags &= ~SPQ_MATTN;
break;
case 1:
JREQ.spq_jflags |= SPQ_MATTN;
break;
}
cmsg();
return $K{key eol};
}
static int qo_supph(const struct ltab *lt)
{
int ch;
switch (ch = qo_bool(lt, JREQ.spq_jflags & SPQ_NOH)) {
default:
return ch;
case -1:
JREQ.spq_jflags ^= SPQ_NOH;
break;
case 0:
JREQ.spq_jflags &= ~SPQ_NOH;
break;
case 1:
JREQ.spq_jflags |= SPQ_NOH;
break;
}
cmsg();
return $K{key eol};
}
static int qo_retain(const struct ltab *lt)
{
int ch;
switch (ch = qo_bool(lt, JREQ.spq_jflags & SPQ_RETN)) {
default:
return ch;
case -1:
JREQ.spq_jflags ^= SPQ_RETN;
break;
case 0:
JREQ.spq_jflags &= ~SPQ_RETN;
break;
case 1:
JREQ.spq_jflags |= SPQ_RETN;
break;
}
cmsg();
return $K{key eol};
}
static int qo_sodd(const struct ltab *lt)
{
int ch;
switch (ch = qo_bool(lt, JREQ.spq_jflags & SPQ_ODDP)) {
default:
return ch;
case -1:
if (JREQ.spq_jflags & SPQ_ODDP) {
JREQ.spq_jflags &= ~SPQ_ODDP;
break;
}
case 1:
JREQ.spq_jflags |= SPQ_ODDP;
JREQ.spq_jflags &= ~SPQ_EVENP;
break;
case 0:
JREQ.spq_jflags &= ~SPQ_ODDP;
break;
}
cmsg();
return $K{key eol};
}
static int qo_seven(const struct ltab *lt)
{
int ch;
switch (ch = qo_bool(lt, JREQ.spq_jflags & SPQ_EVENP)) {
default:
return ch;
case -1:
if (JREQ.spq_jflags & SPQ_EVENP) {
JREQ.spq_jflags &= ~SPQ_EVENP;
break;
}
case 1:
JREQ.spq_jflags |= SPQ_EVENP;
JREQ.spq_jflags &= ~SPQ_ODDP;
break;
case 0:
JREQ.spq_jflags &= ~SPQ_EVENP;
break;
}
cmsg();
return $K{key eol};
}
static int qo_local(const struct ltab *lt)
{
int ch;
switch (ch = qo_bool(lt, JREQ.spq_jflags & SPQ_LOCALONLY)) {
default:
return ch;
case -1:
JREQ.spq_jflags ^= SPQ_LOCALONLY;
break;
case 1:
JREQ.spq_jflags |= SPQ_LOCALONLY;
break;
case 0:
JREQ.spq_jflags &= ~SPQ_LOCALONLY;
break;
}
cmsg();
return $K{key eol};
}
static int qo_revoe(const struct ltab *lt)
{
int ch;
switch (ch = qo_bool(lt, JREQ.spq_jflags & SPQ_REVOE)) {
default:
return ch;
case -1:
JREQ.spq_jflags ^= SPQ_REVOE;
break;
case 1:
JREQ.spq_jflags |= SPQ_REVOE;
break;
case 0:
JREQ.spq_jflags &= ~SPQ_REVOE;
break;
}
cmsg();
return $K{key eol};
}
static int qo_printed(const struct ltab *lt)
{
int ch;
switch (ch = qo_bool(lt, JREQ.spq_dflags & SPQ_PRINTED)) {
default:
return ch;
case -1:
JREQ.spq_dflags ^= SPQ_PRINTED;
break;
case 1:
JREQ.spq_dflags |= SPQ_PRINTED;
break;
case 0:
JREQ.spq_dflags &= ~SPQ_PRINTED;
break;
}
cmsg();
return $K{key eol};
}
static int qo_cps(const struct ltab *lt)
{
LONG in;
struct sctrl wnt_cps;
wnt_cps.helpcode = lt->helpcode;
wnt_cps.helpfn = HELPLESS;
wnt_cps.size = lt->size;
wnt_cps.col = lt->col;
wnt_cps.magic_p = MAG_P|MAG_A|MAG_R;
wnt_cps.min = 0L;
wnt_cps.vmax = 255L;
wnt_cps.msg = (char *) 0;
in = wnum(stdscr, lt->row, &wnt_cps, (LONG) JREQ.spq_cps);
if (in < 0)
return wnt_cps.retv;
JREQ.spq_cps = (unsigned char) in;
cmsg();
return $K{key eol};
}
static int qo_pri(const struct ltab *lt)
{
LONG in;
struct sctrl wnt_pri;
wnt_pri.helpcode = lt->helpcode;
wnt_pri.helpfn = HELPLESS;
wnt_pri.size = lt->size;
wnt_pri.col = lt->col;
wnt_pri.magic_p = MAG_P|MAG_A|MAG_R;
wnt_pri.min = 1L;
wnt_pri.vmax = 255L;
wnt_pri.msg = (char *) 0;
in = wnum(stdscr, lt->row, &wnt_pri, (LONG) JREQ.spq_pri);
if (in < 0)
return wnt_pri.retv;
JREQ.spq_pri = (unsigned char) in;
cmsg();
return $K{key eol};
}
static int qo_dinp(const struct ltab *lt)
{
LONG in;
struct sctrl wnt_npt;
wnt_npt.helpcode = lt->helpcode;
wnt_npt.helpfn = HELPLESS;
wnt_npt.size = lt->size;
wnt_npt.col = lt->col;
wnt_npt.magic_p = MAG_P|MAG_A|MAG_R;
wnt_npt.min = 1L;
wnt_npt.vmax = 0xffffL;
wnt_npt.msg = (char *) 0;
in = wnum(stdscr, lt->row, &wnt_npt, (LONG) JREQ.spq_nptimeout);
if (in < 0)
return wnt_npt.retv;
JREQ.spq_nptimeout = (USHORT) in;
cmsg();
return $K{key eol};
}
static int qo_dip(const struct ltab *lt)
{
LONG in;
struct sctrl wnt_pt;
wnt_pt.helpcode = lt->helpcode;
wnt_pt.helpfn = HELPLESS;
wnt_pt.size = lt->size;
wnt_pt.col = lt->col;
wnt_pt.magic_p = MAG_P|MAG_A|MAG_R;
wnt_pt.min = 1L;
wnt_pt.vmax = 0xffffL;
wnt_pt.msg = (char *) 0;
in = wnum(stdscr, lt->row, &wnt_pt, (LONG) JREQ.spq_ptimeout);
if (in < 0)
return wnt_pt.retv;
JREQ.spq_ptimeout = (USHORT) in;
cmsg();
return $K{key eol};
}
static int qo_startp(const struct ltab *lt)
{
LONG in;
struct sctrl wnt_start;
wnt_start.helpcode = lt->helpcode;
wnt_start.helpfn = HELPLESS;
wnt_start.size = lt->size;
wnt_start.col = lt->col;
wnt_start.magic_p = MAG_P|MAG_A|MAG_R;
wnt_start.min = 1L;
wnt_start.vmax = LOTSANDLOTS;
wnt_start.msg = (char *) 0;
in = wnum(stdscr, lt->row, &wnt_start, (LONG) (JREQ.spq_start + 1L));
if (in < 0)
return wnt_start.retv;
JREQ.spq_start = in - 1L;
cmsg();
return $K{key eol};
}
static int qo_hatp(const struct ltab *lt)
{
LONG in;
struct sctrl wnt_haltat;
wnt_haltat.helpcode = lt->helpcode;
wnt_haltat.helpfn = HELPLESS;
wnt_haltat.size = lt->size;
wnt_haltat.col = lt->col;
wnt_haltat.magic_p = MAG_P|MAG_A|MAG_R;
wnt_haltat.min = 1L;
wnt_haltat.vmax = LOTSANDLOTS;
wnt_haltat.msg = (char *) 0;
in = wnum(stdscr, lt->row, &wnt_haltat, (LONG) (JREQ.spq_haltat + 1L));
if (in < 0)
return wnt_haltat.retv;
JREQ.spq_haltat = in - 1L;
cmsg();
return $K{key eol};
}
static int qo_endp(const struct ltab *lt)
{
LONG in;
struct sctrl wnt_end;
wnt_end.helpcode = lt->helpcode;
wnt_end.helpfn = HELPLESS;
wnt_end.size = lt->size;
wnt_end.col = lt->col;
wnt_end.magic_p = MAG_P|MAG_A|MAG_R;
wnt_end.min = 1L;
wnt_end.vmax = LOTSANDLOTS;
wnt_end.msg = (char *) 0;
in = wnum(stdscr, lt->row, &wnt_end, (LONG) (JREQ.spq_end + 1L));
if (in < 0)
return wnt_end.retv;
JREQ.spq_end = in - 1L;
cmsg();
return $K{key eol};
}
static int qo_class(const struct ltab *lt)
{
classcode_t in;
struct sctrl wht_cl;
wht_cl.helpcode = lt->helpcode;
wht_cl.helpfn = HELPLESS;
wht_cl.size = lt->size;
wht_cl.col = lt->col;
wht_cl.magic_p = MAG_P|MAG_R;
wht_cl.min = 1L;
wht_cl.vmax = LOTSANDLOTS;
wht_cl.msg = (char *) 0;
in = whexnum(stdscr, lt->row, &wht_cl, JREQ.spq_class);
reset_state();
if (in != JREQ.spq_class) {
if (!(mypriv->spu_flgs & PV_COVER))
in &= mypriv->spu_class;
if (in == 0L) {
mvaddstr(lt->row, lt->col, hex_disp(JREQ.spq_class, 1));
disp_str = hex_disp(mypriv->spu_class, 0);
doerror(stdscr, $E{spq set zero class});
return 0;
}
JREQ.spq_class = in;
cmsg();
}
return wht_cl.retv? wht_cl.retv: $K{key eol};
}
static int qo_hold(const struct ltab *lt)
{
int ret;
time_t origtime = JREQ.spq_hold;
if ((ret = wtime(stdscr, lt->row, lt->col)) == 0)
return $K{key eol};
if ((time_t) JREQ.spq_hold != origtime)
cmsg();
return ret;
}
static struct ltab ltab[] = {
{ $PHN{Qopt title}, NULLCH, 0, 0, MAXTITLE, 0, qd_title, qo_title },
{ $PHN{Qopt nohdr}, NULLCH, 0, 0, 0, 0, qd_supph, qo_supph },
{ $PHN{Qopt form type}, NULLCH, 0, 0, MAXFORM, 0, qd_form, qo_form },
{ $PHN{Qopt copies}, NULLCH, 0, 0, 4, 0, qd_cps, qo_cps },
{ $PHN{Qopt printer}, NULLCH, 0, 0, JPTRNAMESIZE, 0, qd_ptr, qo_ptr },
{ $PHN{Qopt prio}, NULLCH, 0, 0, 4, 0, qd_pri, qo_pri },
{ $PHN{Qopt post user}, NULLCH, 0, 0, 10, 0, qd_puser, qo_puser },
{ $PHN{Qopt mail msg}, NULLCH, 0, 0, 0, 1, qd_mail, qo_mail },
{ $PHN{Qopt write msg}, NULLCH, 0, 0, 0, 1, qd_wmsg, qo_wmsg },
{ $PHN{Qopt mattn}, NULLCH, 0, 0, 0, 1, qd_mattn, qo_mattn },
{ $PHN{Qopt wattn}, NULLCH, 0, 0, 0, 1, qd_wattn, qo_wattn },
{ $PHN{Qopt class}, NULLCH, 0, 0, 32, 0, qd_class, qo_class },
{ $PHN{Qopt flags}, NULLCH, 0, 0, MAXFLAGS, 0, qd_flags, qo_flags },
{ $PHN{Qopt retn}, NULLCH, 0, 0, 0, 0, qd_retain, qo_retain },
{ $PHN{Qopt start page}, NULLCH, 0, 0, 8, 0, qd_startp, qo_startp },
{ $PHN{Qopt hat page}, NULLCH, 0, 0, 8, 1, qd_hatp, qo_hatp },
{ $PHN{Qopt end page}, NULLCH, 0, 0, 8, 0, qd_endp, qo_endp },
{ $PHN{Qopt skip odd}, NULLCH, 0, 0, 0, 1, qd_sodd, qo_sodd },
{ $PHN{Qopt skip even}, NULLCH, 0, 0, 0, 1, qd_seven, qo_seven },
{ $PHN{Qopt reverse skip},NULLCH, 0, 0, 0, 1, qd_revoe, qo_revoe },
{ $PHN{Qopt printed}, NULLCH, 0, 0, 0, 0, qd_printed, qo_printed },
{ $PHN{Qopt del not printed}, NULLCH, 0, 0, 6, 0, qd_dinp, qo_dinp },
{ $PHN{Qopt del printed}, NULLCH, 0, 0, 6, 0, qd_dip, qo_dip },
{ $PHN{Qopt hold time}, NULLCH, 0, 0, 0, 0, qd_hold, qo_hold },
{ $PHN{Qopt local only}, NULLCH, 0, 0, 0, 0, qd_local, qo_local }
};
#define TABNUM (sizeof(ltab)/sizeof(struct ltab))
static struct ltab *lptrs[TABNUM+1];
static int comeinat;
static void initnames(void)
{
int i, next;
struct ltab *lt;
int curr, hrows, nextrow, cols, look4, rowstart, pstart, laststick;
char **hp;
int nextstate[TABNUM];
disp_str = "";
disp_arg[0] = disp_arg[1] = 0;
/* Count lines in header to see where the action starts */
hp = helphdr('O');
count_hv(hp, &hrows, &cols);
freehelp(hp);
/* Slurp up standard messages */
percentmsg = gprompt($P{spq qmsg percent complete});
emsg = gprompt($P{spq qmsg end});
yesmsg = gprompt($P{spq qmsg yes});
nomsg = gprompt($P{spq qmsg no});
yesnlng = strlen(yesmsg);
if ((i = strlen(nomsg)) > yesnlng)
yesnlng = i;
if ((rowstart = helpnstate($N{Qopt Row start})) <= 0)
rowstart = $N{Qopt title};
if ((pstart = helpnstate($N{Qopt Initial prompt})) <= 0)
pstart = rowstart;
if (rowstart < $N{Qopt title} || rowstart >= $N{Qopt title} + TABNUM) {
disp_arg[9] = rowstart;
bads:
doerror(stdscr, $E{spq qopts bad state code});
refresh();
do i = getkey(MAG_A|MAG_P);
while (i == EOF);
#ifndef HAVE_ATEXIT
exit_cleanup();
#endif
exit(E_BADCFILE);
}
if (pstart < $N{Qopt title} || pstart >= $N{Qopt title} + TABNUM) {
disp_arg[9] = pstart;
goto bads;
}
for (lt = <ab[0]; lt < <ab[TABNUM]; lt++) {
lt->message = gprompt(lt->helpcode);
lt->col = strlen(lt->message) + 1;
}
for (i = 0; i < TABNUM; i++)
nextstate[i] = -1;
look4 = rowstart;
do {
next = helpnstate(look4);
if (next >= 0) {
if (next < $N{Qopt title} || next >= $N{Qopt title} + TABNUM) {
disp_arg[9] = next;
goto bads;
}
if (nextstate[next-$N{Qopt title}] > 0) {
disp_arg[9] = next;
disp_arg[8] = nextstate[next-$N{Qopt title}];
doerror(stdscr, $E{spq qopts duplicated state code});
refresh();
do i = getkey(MAG_A|MAG_P);
while (i == EOF);
#ifndef HAVE_ATEXIT
exit_cleanup();
#endif
exit(E_BADCFILE);
}
}
nextstate[look4 - $N{Qopt title}] = next;
look4 = next;
} while (next > 0);
comeinat = 0;
next = 0;
curr = rowstart;
nextrow = hrows;
laststick = 0;
do {
if (pstart == curr)
comeinat = next;
lt = <ab[curr-$N{Qopt title}];
if (lt->stickrow) {
if (lt->helpcode == $N{Qopt hat page}) {
lt->col += HALTATCOL;
lt->row = nextrow;
laststick = 0;
}
else {
if (laststick + lt->col + yesnlng + 8 > COLS)
nextrow++;
else
lt->col += laststick;
laststick = lt->col + yesnlng + 1;
lt->row = nextrow;
}
}
else {
if (laststick) {
nextrow++;
laststick = 0;
}
lt->row = nextrow++;
}
lptrs[next] = lt;
next++;
curr = nextstate[curr-$N{Qopt title}];
} while (curr > 0);
lptrs[next] = (struct ltab *) 0;
}
static void qodisp(void)
{
int i;
struct ltab *lt;
char **hp;
clear();
disp_arg[0] = JREQ.spq_job;
disp_str = JREQ.spq_uname;
if ((hp = helphdr('O'))) {
char **hpp;
for (i = 0, hpp = hp; *hpp; i++, hpp++) {
mvwhdrstr(stdscr, i, 0, *hpp);
if (i == 0) {
int row, col;
getyx(stdscr, row, col);
tdisplay(stdscr, (time_t) JREQ.spq_time, row, col);
if (JREQ.spq_dflags & SPQ_PQ) {
LONG place = (JREQ.spq_posn * 100) / JREQ.spq_size;
addch(' ');
printw(percentmsg, place);
}
}
free(*hpp);
}
free((char *) hp);
}
for (i = 0; (lt = lptrs[i]); i++) {
if (lt->stickrow) {
if (lt->helpcode == $N{Qopt hat page}) {
if (JREQ.spq_haltat == 0L)
continue;
move(lt->row, HALTATCOL);
}
else
move(lt->row, lt->col - strlen(lt->message) - 1);
}
else
move(lt->row, 0);
addstr(lt->message);
(*lt->dfn)(lt);
}
#ifdef CURSES_OVERLAP_BUG
touchwin(stdscr);
#endif
refresh();
}
/* This accepts input from the screen.
JREQS (slot number) already set up in sq_jlist */
int qopts(const jobno_t Jnum)
{
char **ev;
int ch;
struct ltab *lt;
int rows, cols, row, col, i, whichel, pchanges = 0;
if (!percentmsg)
initnames();
Ew = stdscr;
whichel = comeinat;
redo:
qodisp();
if (hadrfresh) {
snargle:
do {
hadrfresh = 0;
rpfile();
readjoblist(1);
cjfind();
pchanges++; /* Do pdisplay() if needed */
} while (hadrfresh);
if (Job_seg.jlist[JREQS].j.spq_job == Jnum) {
JREQ = Job_seg.jlist[JREQS].j;
goto redo;
}
ev = helpvec($E{spq job disappeared}, 'E');
if (*ev == (char *) 0) {
free((char *) ev);
disp_arg[0] = $E{spq job disappeared};
ev = helpvec($E{Missing error code}, 'E');
}
count_hv(ev, &rows, &cols);
if (rows <= 0)
goto ret;
clear();
standout();
col = (COLS - cols) / 2;
for (i = 0, row = (LINES - rows)/2; i < rows; i++, row++)
mvprintw(row, col, "%s", ev[i]);
freehelp(ev);
standend();
refresh();
reset_state();
do ch = getkey(MAG_A|MAG_P);
while (ch == EOF);
goto ret;
}
retry:
while ((lt = lptrs[whichel])) {
if (lt->stickrow && lt->helpcode == $N{Qopt hat page} && JREQ.spq_haltat == 0L) {
whichel++;
continue;
}
ch = (*lt->fn)(lt);
switch (ch) {
default:
continue;
case 0:
case $K{key eol}:
case $K{key cursor down}:
whichel++;
break;
case $K{key erase}:
case $K{key cursor up}:
if (--whichel < 0)
whichel = 0;
else if (lptrs[whichel]->stickrow &&
lptrs[whichel]->helpcode == $N{Qopt hat page} &&
JREQ.spq_haltat == 0L) {
if (--whichel < 0)
whichel = 1;
}
break;
case $K{key halt}:
goto ret1;
}
if (hadrfresh)
goto snargle;
}
ret1:
if (JREQ.spq_start > JREQ.spq_end) {
doerror(stdscr, $E{end page less than start page});
if (--whichel < 0)
whichel = 0;
goto retry;
}
if (JREQ.spq_haltat > JREQ.spq_end) {
doerror(stdscr, $E{end page less than haltat page});
if (--whichel < 0)
whichel = 0;
goto retry;
}
ret:
if (escr) {
delwin(escr);
escr = (WINDOW *) 0;
}
if (hlpscr) {
delwin(hlpscr);
hlpscr = (WINDOW *) 0;
}
#ifdef CURSES_MEGA_BUG
clear();
refresh();
#endif
return pchanges;
}
gnuspool-1.7ubuntu1/src/sdi_gram.c 0000664 0000000 0000000 00000041364 11366642365 014207 0 ustar /* sdi_gram.c -- parser for spdinit
Copyright 2008 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 3 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 . */
#include "config.h"
#include
#include
#include
#ifdef HAVE_SYS_IOCTL_H
#include
#endif
#include
#ifdef HAVE_TERMIO_H
#include
#else
#include
#endif
#include "errnums.h"
#include "defaults.h"
#include "initp.h"
#include "kw.h"
#include "incl_unix.h"
#define HASHMOD 509 /* Being prime */
#define MAXID 60
#define INITSTR 150
#define INCSTR 20
void error(const int);
void report(const int);
static int line_count = 1;
struct kw *lastsym;
extern FILE *infile;
extern char *ptdir,
*curr_file,
*default_form,
*formname,
*Suffix;
extern struct string **out_str_last;
extern struct string *su_str, *hlt_str, *ds_str, *de_str, *ss_str, *se_str;
extern struct string *ps_str, *pe_str, *rc_str, *bds_str, *bde_str;
extern struct string *ab_str, *res_str;
extern struct string *out_bannprog, *out_align, *out_portsu, *out_filter, *out_netfilt, *out_sttystring;
extern struct initpkt out_params;
extern int execf;
extern char *mbeg, *mend;
extern int Nott, Isbann, Hadbann;
struct kw *hashtab[HASHMOD];
jmp_buf syntax_error;
void error(const int messno)
{
disp_arg[0] = line_count;
report(messno);
longjmp(syntax_error, 1);
}
static char *rdexpr(void)
{
int ch;
char buf[80];
char *bp = buf, *res;
int bcnt = 0;
for (;;) switch (ch = getc(infile)) {
default:
if (!isalnum(ch)) {
ungetc(ch, infile);
*bp = '\0';
if ((res = (char *) malloc((unsigned)(bcnt+1))) == (char *) 0)
nomem();
strcpy(res, buf);
return res;
}
case '_':case '-':
case '[':case ']':case '^':case '!':case '*':case '?':
case '{':case '}':case '@':
if (++bcnt >= 80)
error($E{spdinit Unterminated RE});
*bp++ = (char) ch;
continue;
}
}
static int mel(char *a, char *b)
{
int had, not, r;
switch (*b) {
default:
if (!*a)
return -1;
if (*a != *b)
return 0;
return mel(a+1, b+1);
case '\0':
if (*a)
return 0;
if (!mend)
mend = a;
return 1;
case '{':
mbeg = a;
return mel(a, b+1);
case '}':
mend = a;
return mel(a, b+1);
case '*':
b++;
for (;;) {
if ((r = mel(a, b)) == 1)
return 1;
if (r < 0)
return -1;
a++;
}
case '?':
if (!*a)
return -1;
return mel(a+1, b+1);
case '[':
if (!*a)
return -1;
b++;
not = 0;
had = 0;
if (*b == '^' || *b == '!') {
b++;
not = 1;
}
while (*b != ']' && *b != '\0') {
int first, last;
first = last = *b++;
if (*b == '-') {
b++;
last = *b++;
}
if (*a >= first && *a <= last)
had = 1;
}
return had == not? 0: mel(a+1, b+1);
}
}
static int match(char *re)
{
char *a = Suffix;
char *b = re;
/* '@' matches the null suffix */
if (*b == '@')
return *a == '\0';
mbeg = (char *) 0;
mend = (char *) 0;
return mel(a, b) > 0;
}
static struct kw *findhash(char *nam)
{
unsigned hashval = 0;
char *cp = nam;
struct kw *kp, **kpp;
unsigned nams = 1;
while (*cp) {
nams++;
hashval = (hashval << 1) + *cp++;
}
kpp = &hashtab[hashval % HASHMOD];
for (kp = *kpp; kp; kp = kp->k_next)
if (strcmp(nam, kp->k_name) == 0)
return kp;
if ((kp = (struct kw *)malloc(sizeof(struct kw))) == (struct kw *) 0)
nomem();
kp->k_name = (char *) 0;
kp->k_type = TK_UNDEF;
kp->k_un.k_str = (struct string *) 0;
kp->k_nams = (USHORT) nams;
kp->k_next = *kpp;
*kpp = kp;
return kp;
}
/* Put mnemonic into hash table for proc */
void sethash(char *mnem, void (*proc)(const int, const unsigned), const unsigned arg)
{
struct kw *kp = findhash(mnem);
kp->k_name = mnem;
kp->k_type = TK_PROC;
kp->k_un.k_pa.k_proc = proc;
kp->k_un.k_pa.k_arg = arg;
kp->k_nams = 0;
}
/* Put mnemonic into hash table for keyword. */
void setsymb(char *mnem, const int tok)
{
struct kw *kp = findhash(mnem);
kp->k_name = mnem;
kp->k_type = (SHORT) tok;
kp->k_un.k_str = (struct string *) 0;
kp->k_nams = 0;
}
/* Look up user's name in hash table. */
static struct kw *lookuphash(char *nam)
{
struct kw *kp = findhash(nam);
if (kp->k_name == (char *) 0) {
if ((kp->k_name = (char *) malloc((unsigned)(kp->k_nams))) == (char *) 0)
nomem();
strcpy(kp->k_name, nam);
}
return kp;
}
static void defkw(struct kw *k, struct string *item)
{
if (k->k_type == TK_STR && --k->k_un.k_str->s_cnt <= 0) {
if (k->k_un.k_str->s_length)
free(k->k_un.k_str->s_str);
free(k->k_un.k_str);
}
k->k_type = TK_STR;
k->k_un.k_str = item;
item->s_cnt++;
}
static int peek(void)
{
int ch;
for (;;) {
ch = getc(infile);
if (ch == '#') {
do ch = getc(infile);
while (ch != '\n' && ch != EOF);
line_count++;
continue;
}
if (ch == '\n') {
line_count++;
continue;
}
if (!isspace(ch))
break;
}
ungetc(ch, infile);
return ch;
}
static int gettok(void)
{
char instring[MAXID];
int ch;
char *bp;
int bcnt;
for (;;) {
ch = getc(infile);
nxt:
switch (ch) {
case '#':
do ch = getc(infile);
while (ch != '\n' && ch != EOF);
goto nxt;
case '-':
Nott = 1;
continue;
default:
if (!isalpha(ch))
return ch;
case '_':
bcnt = 1;
bp = instring;
do {
*bp++ = (char) ch;
if (++bcnt >= MAXID)
error($E{spdinit line too long});
ch = getc(infile);
} while (isalnum(ch) || ch == '_');
ungetc(ch, infile);
*bp++ = '\0';
lastsym = lookuphash(instring);
return lastsym->k_type;
case '\n':
line_count++;
case ' ':
case '\t':
continue;
case EOF:
if (!formname)
return EOF;
fclose(infile);
if (!(infile = fopen(curr_file = formname, "r")) &&
!(default_form[0] &&
(infile = fopen(curr_file = default_form, "r")))) {
disp_str = ptdir;
disp_str2 = default_form;
report($E{spdinit no setup file});
return EOF;
}
line_count = 1;
formname = (char *) 0; /* Stop it happening again */
continue;
}
}
}
/* Read a string. */
struct string *rdstr(const int flags)
{
int termch, rc, i;
char *result;
struct string *rr;
unsigned rlng, reslng;
rlng = INITSTR;
reslng = 0;
if ((result = (char *) malloc(INITSTR+1)) == (char *) 0)
nomem();
for (;;) {
termch = getc(infile);
switch (termch) {
case '\n':
case EOF:
line_count++;
case '\t':
goto fin;
case ' ': if (flags & ST_SPTERM) goto fin;
break;
case '\'': if (flags & ST_SQTERM) goto fin;
break;
case '\"': if (flags & ST_DQTERM) goto fin;
break;
case '>': if (flags & ST_GTTERM) goto fin;
break;
case '^':
if (flags & ST_NOESC)
break;
if ((termch = getc(infile)) == '^')
break;
if (islower(termch)) {
termch -= 'a' + 1;
break;
}
if (termch >= '@' && termch <= '_') {
termch -= '@';
break;
}
break;
case '\\':
if (flags & ST_NOESC) {
/* Still allow escape of quote. */
if (flags & (ST_SQTERM|ST_DQTERM|ST_GTTERM)) {
termch = getc(infile);
switch (termch) {
default:
ungetc(termch, infile);
termch = '\\';
case '\'':case '\"':case '>':
break;
}
}
break;
}
termch = getc(infile);
switch (termch) {
case EOF:
goto fin;
default:
case '\\':
case '^':
case '\'':case '\"':
break;
case '\n':
line_count++;
continue;
case 'e':
case 'E':
termch = '\033';
break;
case 'b':
case 'B':
termch = '\010';
break;
case 'r':
case 'R':
termch = '\r';
break;
case 'n':
case 'N':
termch = '\n';
break;
case 'f':
case 'F':
termch = 0x0c;
break;
case 's':
case 'S':
termch = ' ';
break;
case 't':
case 'T':
termch = '\t';
break;
case 'v':
case 'V':
termch = '\v';
break;
case '0':
rc = 0;
termch = getc(infile);
for (i = 0; i < 3; i++) {
if (termch < '0' || termch > '7')
break;
rc = (rc << 3) + termch - '0';
termch = getc(infile);
}
ungetc(termch, infile);
result[reslng++] = (char) rc;
goto chk;
case 'x':
case 'X':
rc = 0;
termch = getc(infile);
for (i = 0; i < 2; i++) {
if (isdigit(termch))
rc = (rc << 4) + termch - '0';
else if (termch>='a' && termch<='f')
rc = (rc << 4) + termch-'a'+10;
else if (termch>='A' && termch<='F')
rc = (rc << 4) + termch-'A'+10;
else
break;
termch = getc(infile);
}
ungetc(termch, infile);
result[reslng++] = (char) rc;
goto chk;
}
}
result[reslng++] = (char) termch;
chk: if (reslng >= rlng) {
rlng += INCSTR;
if ((result = (char *) realloc(result, rlng+1)) == (char *) 0)
nomem();
}
}
fin:
/* Result is one char bigger to aid null terminated string stuff. */
result[reslng] = '\0';
if ((rr = (struct string *)malloc(sizeof(struct string))) == (struct string *) 0)
nomem();
rr->s_length = (USHORT) reslng;
rr->s_str = result;
rr->s_cnt = 0;
rr->s_next = (struct string *) 0;
return rr;
}
static void findeol(void)
{
int ch;
do ch = getc(infile);
while (ch != '\n' && ch != EOF);
}
int rdnum(void)
{
int result, ch;
do {
if ((ch = getc(infile)) == '\n')
line_count++;
else if (ch == '#') {
do ch = getc(infile);
while (ch != '\n' && ch != EOF);
line_count++;
}
} while (isspace(ch));
if (!isdigit(ch))
error($E{spdinit digit expected});
result = 0;
do {
result = result * 10 + ch - '0';
ch = getc(infile);
} while (isdigit(ch));
ungetc(ch, infile);
return result;
}
void checkfor(const int ch, char *name)
{
if (getc(infile) != ch) {
disp_arg[9] = ch;
if ((disp_str = name))
error($E{spdinit undef name});
else
error($E{spdinit char expected});
}
}
static void readfile(const int);
static void docase(int obey)
{
char *re;
while (peek() == '(') {
checkfor('(', (char *) 0);
re = rdexpr();
checkfor(')', (char *) 0);
if (obey && match(re)) {
readfile(1);
obey = 0;
}
else
readfile(0);
free(re);
}
checkfor('}', (char *) 0);
}
static void readcodelist(const int obey, ULONG *result, const unsigned lo, const unsigned hi)
{
int ch;
unsigned nn, nn2;
if (obey) {
nn = lo >> 5;
nn2 = hi >> 5;
while (nn <= nn2)
result[nn++] = 0;
}
for (;;) {
nn = (unsigned) rdnum();
if (nn < lo || nn > hi) {
disp_arg[1] = nn;
disp_arg[2] = lo;
disp_arg[3] = hi;
error($E{spdinit number range});
}
do ch = getc(infile);
while (ch == ' ' || ch == '\t');
if (ch == '-') {
nn2 = (unsigned) rdnum();
do ch = getc(infile);
while (ch == ' ' || ch == '\t');
}
else
nn2 = nn;
if (obey) {
if (nn2 < nn) {
unsigned tmp = nn;
nn = nn2;
nn2 = tmp;
}
while (nn <= nn2) {
result[nn >> 5] |= 1 << (nn & 31);
nn++;
}
}
if (ch == '\n') {
line_count++;
return;
}
if (ch != ',')
error($E{spdinit comma-sep expected});
}
}
static void readfile(const int obey)
{
int tok, execflag = 0, n;
struct string * rdstr(const int);
struct string *r;
struct string **oldlast = out_str_last, **wotp;
unsigned oldflags = out_params.pi_flags;
for (;;) {
tok = gettok();
switch (tok) {
default: /* Assume single char! */
ungetc(tok, infile);
case EOF:
if (!obey) {
out_params.pi_flags = oldflags;
out_str_last = oldlast;
}
return;
case TK_UNDEF:
defn: checkfor('=', lastsym->k_name);
r = rdstr(0);
if (obey)
defkw(lastsym, r);
else {
free(r->s_str);
free((char *) r);
}
continue;
case TK_STR:
if (peek() == '=')
goto defn;
if (obey) {
struct string *rr;
r = lastsym->k_un.k_str;
if ((rr = (struct string *)malloc(sizeof(struct string))) == (struct string *) 0)
nomem();
rr->s_length = r->s_length;
rr->s_str = r->s_str;
rr->s_cnt = 1;
rr->s_next = (struct string *) 0;
*out_str_last = rr;
out_str_last = &rr->s_next;
}
continue;
case TK_PROC:
(*lastsym->k_un.k_pa.k_proc)(obey, lastsym->k_un.k_pa.k_arg);
Nott = 0;
continue;
case TK_DELIM:
if (isdigit(peek())) {
int nn = rdnum();
if (nn <= 0)
nn = 1;
if (obey)
out_params.pi_rcount = nn;
}
else if (obey)
out_params.pi_rcount = DEF_RCOUNT;
out_str_last = &rc_str;
execf = 0;
goto end_string;
case TK_EXEC:
if (execf == 0) {
error($E{spdinit exec unexpected});
continue;
}
if (Nott) {
execflag = execf >= PI_EXEXALIGN? ST_NOESC: 0;
out_params.pi_flags &= ~execf;
Nott = 0;
}
else {
execflag = ST_NOESC;
out_params.pi_flags |= execf;
}
continue;
case TK_SETUP:
out_str_last = &su_str;
execf = PI_EX_SETUP;
goto end_string;
case TK_HALT:
out_str_last = &hlt_str;
execf = PI_EX_HALT;
goto end_string;
case TK_BANNER:
if (Nott) {
Isbann = 0;
Nott = 0;
}
else if (obey) {
Hadbann++;
Isbann = 1;
}
continue;
case TK_DOCST:
if (Isbann) {
out_str_last = &bds_str;
execf = PI_EX_BDOCST;
}
else {
out_str_last = &ds_str;
execf = PI_EX_DOCST;
}
goto end_string;
case TK_DOCEND:
if (Isbann) {
out_str_last = &bde_str;
execf = PI_EX_BDOCEND;
}
else {
out_str_last = &de_str;
execf = PI_EX_DOCEND;
}
goto end_string;
case TK_SUFST:
out_str_last = &ss_str;
execf = PI_EX_SUFST;
goto end_string;
case TK_SUFEND:
out_str_last = &se_str;
execf = PI_EX_SUFEND;
goto end_string;
case TK_PAGESTART:
out_str_last = &ps_str;
execf = PI_EX_PAGESTART;
goto end_string;
case TK_PAGEEND:
out_str_last = &pe_str;
execf = PI_EX_PAGEEND;
goto end_string;
case TK_ABORT:
out_str_last = &ab_str;
execf = PI_EX_ABORT;
goto end_string;
case TK_RESTART:
out_str_last = &res_str;
execf = PI_EX_RESTART;
end_string:
while (*out_str_last)
out_str_last = &(*out_str_last)->s_next;
execflag = (out_params.pi_flags & execf) != 0? ST_NOESC: 0;
break;
/* Fun special cases for new string or function keywords */
case TK_BANNPROG:
wotp = &out_bannprog;
execf = PI_EXBANNPROG;
goto endexecstr;
case TK_ALIGN:
wotp = &out_align;
if (obey)
out_params.pi_flags &= ~PI_EX_ALIGN;
execf = PI_EXEXALIGN;
goto endexecstr;
case TK_EXECALIGN:
wotp = &out_align;
if (obey)
out_params.pi_flags |= PI_EX_ALIGN;
execf = PI_EXEXALIGN;
goto endexecstr;
case TK_PORTSU:
wotp = &out_portsu;
execf = PI_EXPORTSU;
goto endexecstr;
case TK_FILTER:
wotp = &out_filter;
execf = PI_EXFILTPROG;
goto endexecstr;
case TK_NETFILT:
wotp = &out_netfilt;
execf = PI_EXNETFILT;
goto endexecstr;
case TK_STTY:
wotp = &out_sttystring;
endexecstr:
execflag = ST_NOESC; /* Never include escapes */
if (peek() == '=') {
struct string *r;
getc(infile);
r = rdstr(ST_NOESC);
if (obey) {
/* I know about memory leak here... */
*wotp = r;
r->s_cnt++;
}
else {
free(r->s_str);
free((char *) r);
}
}
else {
out_str_last = wotp;
while (*out_str_last)
out_str_last = &(*out_str_last)->s_next;
}
break;
case '{':
docase(obey);
continue;
case '\'': n = ST_SQTERM; goto quote;
case '\"': n = ST_DQTERM; goto quote;
case '<': n = ST_GTTERM;
quote:
r = rdstr(n|execflag);
if (obey) {
*out_str_last = r;
out_str_last = &r->s_next;
}
else {
free(r->s_str);
free((char *) r);
}
continue;
case TK_SIGNAL:
tok = gettok();
switch (tok) {
default:
error($E{spdinit expected seterror});
continue;
case TK_OFFLINE:
readcodelist(obey, &out_params.pi_offlsig, 1, 31);
continue;
case TK_ERROR:
readcodelist(obey, &out_params.pi_errsig, 1, 31);
continue;
}
case TK_EXIT:
tok = gettok();
switch (tok) {
default:
error($E{spdinit expected setoffline});
continue;
case TK_OFFLINE:
readcodelist(obey, out_params.pi_offlexit, 0, 255);
continue;
case TK_ERROR:
readcodelist(obey, out_params.pi_errexit, 0, 255);
continue;
}
}
}
}
void readdescr(void)
{
if (setjmp(syntax_error))
findeol();
readfile(1);
}
gnuspool-1.7ubuntu1/src/loccgi/ 0000775 0000000 0000000 00000000000 11421757504 013500 5 ustar gnuspool-1.7ubuntu1/src/loccgi/sqdcgi.c 0000664 0000000 0000000 00000010572 11421757504 015123 0 ustar /* sqdcgi.c -- delete jobs CGI program
Copyright 2008 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 3 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 . */
#include "config.h"
#include
#include
#ifdef TIME_WITH_SYS_TIME
#include
#include
#elif defined(HAVE_SYS_TIME_H)
#include
#else
#include
#endif
#include
#include
#include
#ifndef USING_FLOCK
#include
#endif
#include
#include
#include "incl_sig.h"
#include "defaults.h"
#include "files.h"
#include "network.h"
#include "spq.h"
#include "spuser.h"
#include "pages.h"
#include "ecodes.h"
#include "q_shm.h"
#include "ipcstuff.h"
#include "errnums.h"
#include "incl_unix.h"
#include "incl_ugid.h"
#include "cfile.h"
#include "displayopt.h"
#include "xihtmllib.h"
#include "cgiuser.h"
#include "listperms.h"
#include "cgifndjb.h"
#include "shutilmsg.h"
#include "xfershm.h"
struct spdet *mypriv;
char *Realuname;
#define IPC_MODE 0600
/* For when we run out of memory..... */
void nomem(void)
{
fprintf(stderr, "Ran out of memory\n");
exit(E_NOMEM);
}
void perform_delete(char ** args)
{
char *arg;
struct spr_req oreq;
oreq.spr_mtype = MT_SCHED;
oreq.spr_un.o.spr_act = SO_AB;
oreq.spr_un.o.spr_pid = getpid();
oreq.spr_un.o.spr_arg1 = Realuid;
oreq.spr_un.o.spr_arg2 = 0;
oreq.spr_un.o.spr_seq = 0;
oreq.spr_un.o.spr_netid = 0;
for (; (arg = *args); args++) {
struct jobswanted jw;
const Hashspq *hjp;
const struct spq *jp;
if (decode_jnum(arg, &jw)) {
html_out_or_err("sbadargs", 1);
exit(E_USAGE);
}
if (!(hjp = find_job(&jw))) {
html_out_cparam_file("jobgone", 1, arg);
exit(E_NOJOB);
}
jp = jw.jp;
if ((!(mypriv->spu_flgs & PV_OTHERJ) && strcmp(Realuname, jp->spq_uname) != 0) ||
(jp->spq_netid && !(mypriv->spu_flgs & PV_REMOTEJ))) {
html_out_cparam_file("nopriv", 1, arg);
exit(E_NOPRIV);
}
oreq.spr_un.o.spr_jobno = jp->spq_job;
oreq.spr_un.o.spr_jpslot = hjp - Job_seg.jlist;
if (msgsnd(Ctrl_chan, (struct msgbuf *) &oreq, sizeof(struct sp_omsg), IPC_NOWAIT) < 0) {
html_disperror(errno == EAGAIN? $E{IPC msg q full}: $E{IPC msg q error});
exit(E_SETUP);
}
waitsig();
}
}
/* Ye olde main routine. */
MAINFN_TYPE main(int argc, char **argv)
{
char **newargs;
int ec;
#if defined(NHONSUID) || defined(DEBUG)
int_ugid_t chk_uid;
#endif
versionprint(argv, "$Revision: 1.2 $", 0);
if ((progname = strrchr(argv[0], '/')))
progname++;
else
progname = argv[0];
init_mcfile();
html_openini();
newargs = cgi_arginterp(argc, argv, 1); /* Side effect of cgi_arginterp is to set Realuid */
Effuid = geteuid();
INIT_DAEMUID;
Cfile = open_cfile(MISC_UCONFIG, "rest.help");
SCRAMBLID_CHECK
SWAP_TO(Daemuid);
mypriv = getspuser(Realuid);
Realuname = prin_uname(Realuid);
SWAP_TO(Realuid);
Displayopts.opt_classcode = mypriv->spu_class;
/* Now we want to be Daemuid throughout if possible. */
#if defined(OS_BSDI) || defined(OS_FREEBSD)
seteuid(Daemuid);
#else
setuid(Daemuid);
#endif
if ((Ctrl_chan = msgget(MSGID, 0)) < 0) {
html_disperror($E{Spooler not running});
return E_NOTRUN;
}
#ifndef USING_FLOCK
/* Set up semaphores */
if ((Sem_chan = semget(SEMID, SEMNUMS, IPC_MODE)) < 0) {
html_disperror($E{Cannot open semaphore});
return E_SETUP;
}
#endif
/* Open the other files. No read yet until the spool scheduler
is aware of our existence, which it won't be until we
send it a message. */
if (!jobshminit(0)) {
html_disperror($E{Cannot open jshm});
return E_JOBQ;
}
readjoblist(1);
if ((ec = msg_log(SO_MON, 1)) != 0) {
html_disperror(ec);
return E_SETUP;
}
perform_delete(newargs);
if ((ec = msg_log(SO_DMON, 0)) != 0) {
html_disperror(ec);
return E_SETUP;
}
html_out_or_err("delok", 1);
return 0;
}
gnuspool-1.7ubuntu1/src/loccgi/sqccgi.c 0000664 0000000 0000000 00000025244 11421757504 015124 0 ustar /* sqccgi.c -- job operations CGI program
Copyright 2008 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 3 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 . */
#include "config.h"
#include
#include
#ifdef TIME_WITH_SYS_TIME
#include
#include
#elif defined(HAVE_SYS_TIME_H)
#include
#else
#include
#endif
#include
#include
#include
#ifndef USING_FLOCK
#include
#endif
#include
#include
#include "incl_sig.h"
#include "defaults.h"
#include "files.h"
#include "network.h"
#include "spq.h"
#include "spuser.h"
#include "pages.h"
#include "ecodes.h"
#include "q_shm.h"
#include "ipcstuff.h"
#include "xfershm.h"
#include "errnums.h"
#include "incl_unix.h"
#include "incl_ugid.h"
#include "cfile.h"
#include "displayopt.h"
#include "xihtmllib.h"
#include "cgiuser.h"
#include "listperms.h"
#include "cgifndjb.h"
#include "shutilmsg.h"
#define IPC_MODE 0600
char *Realuname,
*Curr_pwd;
struct spdet *mypriv;
/* Keep library happy */
void nomem(void)
{
fprintf(stderr, "Ran out of memory\n");
exit(E_NOMEM);
}
struct argop {
const char *name; /* Name of parameter case insens */
int (*arg_fn)(struct spq *, const struct argop *);
short typ; /* Type of parameter */
#define AO_BOOL 0
#define AO_UCHAR 1
#define AO_USHORT 2
#define AO_ULONG 3
#define AO_TIME 4
#define AO_STRING 5
#define AO_USER 6
unsigned char off; /* Turn off */
unsigned char had;
union {
USHORT ao_boolbit;
unsigned char ao_uchar;
USHORT ao_ushort;
ULONG ao_ulong;
char *ao_string;
int_ugid_t ao_user;
time_t ao_time;
} ao_un;
struct argop *next;
};
int arg_sp(struct spq *jp, const struct argop *ao)
{
jp->spq_start = ao->ao_un.ao_ulong != 0? ao->ao_un.ao_ulong - 1: 0;
return 1;
}
int arg_ep(struct spq *jp, const struct argop *ao)
{
jp->spq_end = ao->ao_un.ao_ulong != 0? ao->ao_un.ao_ulong - 1: LOTSANDLOTS;
return 1;
}
int arg_hatp(struct spq *jp, const struct argop *ao)
{
jp->spq_haltat = ao->ao_un.ao_ulong != 0? ao->ao_un.ao_ulong - 1: 0;
return 1;
}
int arg_cps(struct spq *jp, const struct argop *ao)
{
unsigned nn = ao->ao_un.ao_uchar;
if (!(mypriv->spu_flgs & PV_ANYPRIO) && nn > (unsigned) mypriv->spu_cps)
return 0;
jp->spq_cps = nn;
return 1;
}
int arg_pri(struct spq *jp, const struct argop *ao)
{
unsigned nn = ao->ao_un.ao_uchar;
if (!(mypriv->spu_flgs & PV_CPRIO) ||
(!(mypriv->spu_flgs & PV_ANYPRIO) &&
(nn < (unsigned) mypriv->spu_minp || nn > (unsigned) mypriv->spu_maxp)))
return 0;
jp->spq_pri = nn;
return 1;
}
int arg_jflags(struct spq *jp, const struct argop *ao)
{
USHORT bit = ao->ao_un.ao_boolbit;
if (ao->off)
jp->spq_jflags &= ~bit;
else
jp->spq_jflags |= bit;
return 1;
}
int arg_dflags(struct spq *jp, const struct argop *ao)
{
USHORT bit = ao->ao_un.ao_boolbit;
if (ao->off)
jp->spq_dflags &= ~bit;
else
jp->spq_dflags |= bit;
return 1;
}
int arg_class(struct spq *jp, const struct argop *ao)
{
ULONG rcl = ao->ao_un.ao_ulong;
if (!(mypriv->spu_flgs & PV_COVER))
rcl &= mypriv->spu_class;
if (rcl == 0)
return 0;
jp->spq_class = rcl;
return 1;
}
int arg_hdr(struct spq *jp, const struct argop *ao)
{
strncpy(jp->spq_file, ao->ao_un.ao_string, MAXTITLE);
return 1;
}
int arg_flags(struct spq *jp, const struct argop *ao)
{
strncpy(jp->spq_flags, ao->ao_un.ao_string, MAXFLAGS);
return 1;
}
int arg_form(struct spq *jp, const struct argop *ao)
{
if (!((mypriv->spu_flgs & PV_FORMS) || qmatch(mypriv->spu_formallow, ao->ao_un.ao_string)))
return 0;
strncpy(jp->spq_form, ao->ao_un.ao_string, MAXFORM);
return 1;
}
int arg_ptr(struct spq *jp, const struct argop *ao)
{
if (!((mypriv->spu_flgs & PV_OTHERP) || issubset(mypriv->spu_ptrallow, ao->ao_un.ao_string)))
return 0;
strncpy(jp->spq_ptr, ao->ao_un.ao_string, JPTRNAMESIZE);
return 1;
}
int arg_hold(struct spq *jp, const struct argop *ao)
{
time_t ht = ao->ao_un.ao_time, now = time((time_t *) 0);
if (ht < now)
return 0;
jp->spq_hold = (LONG) ht;
return 1;
}
int arg_npt(struct spq *jp, const struct argop *ao)
{
USHORT us = ao->ao_un.ao_ushort;
if (us == 0)
return 0;
jp->spq_nptimeout = us;
return 1;
}
int arg_pt(struct spq *jp, const struct argop *ao)
{
USHORT us = ao->ao_un.ao_ushort;
if (us == 0)
return 0;
jp->spq_ptimeout = us;
return 1;
}
int arg_puser(struct spq *jp, const struct argop *ao)
{
strncpy(jp->spq_puname, prin_uname(ao->ao_un.ao_user), UIDSIZE);
return 1;
}
struct argop aolist[] = {
{ "sp", arg_sp, AO_ULONG },
{ "ep", arg_ep, AO_ULONG },
{ "hatp", arg_hatp, AO_ULONG },
{ "cps", arg_cps, AO_UCHAR },
{ "pri", arg_pri, AO_UCHAR },
{ "noh", arg_jflags, AO_BOOL, 0,0, { (USHORT) SPQ_NOH } },
{ "hdr", arg_hdr, AO_STRING },
{ "form", arg_form, AO_STRING },
{ "ptr", arg_ptr, AO_STRING },
{ "npto", arg_npt, AO_USHORT },
{ "pto", arg_pt, AO_USHORT },
{ "wrt", arg_jflags, AO_BOOL, 0,0, { (USHORT) SPQ_WRT } },
{ "mail", arg_jflags, AO_BOOL, 0,0, { (USHORT) SPQ_MAIL } },
{ "retn", arg_jflags, AO_BOOL, 0,0, { (USHORT) SPQ_RETN } },
{ "oddp", arg_jflags, AO_BOOL, 0,0, { (USHORT) SPQ_ODDP } },
{ "evenp",arg_jflags, AO_BOOL, 0,0, { (USHORT) SPQ_EVENP } },
{ "revoe",arg_jflags, AO_BOOL, 0,0, { (USHORT) SPQ_REVOE } },
{ "mattn",arg_jflags, AO_BOOL, 0,0, { (USHORT) SPQ_MATTN } },
{ "wattn",arg_jflags, AO_BOOL, 0,0, { (USHORT) SPQ_WATTN } },
{ "loco", arg_jflags, AO_BOOL, 0,0, { (USHORT) SPQ_LOCALONLY } },
{ "printed",arg_dflags, AO_BOOL, 0,0, { (USHORT) SPQ_PRINTED } },
{ "class",arg_class, AO_ULONG },
{ "hold", arg_hold, AO_TIME },
{ "puser",arg_puser, AO_USER },
{ "flags",arg_flags, AO_STRING }
};
struct argop *aochain;
void list_op(char *arg, char * cp)
{
int cnt;
*cp = '\0';
for (cnt = 0; cnt < sizeof(aolist) / sizeof(struct argop); cnt++) {
struct argop *aop = &aolist[cnt];
unsigned long res;
if (ncstrcmp(aop->name, arg) == 0) {
*cp++ = '=';
switch (aop->typ) {
case AO_BOOL:
switch (*cp) {
case 'y':case 'Y':
case 't':case 'T':
aop->off = 0;
break;
case 'n':case 'N':
case 'f':case 'F':
aop->off = 255;
break;
default:
goto badarg;
}
break;
case AO_UCHAR:
if (!isdigit(*cp))
goto badarg;
res = strtoul(cp, (char **) 0, 0);
if (res > 255)
goto badarg;
aop->ao_un.ao_uchar = res;
break;
case AO_USHORT:
if (!isdigit(*cp))
goto badarg;
res = strtoul(cp, (char **) 0, 0);
if (res > 0xffff)
goto badarg;
aop->ao_un.ao_ushort = res;
break;
case AO_ULONG:
if (!isdigit(*cp))
goto badarg;
aop->ao_un.ao_ulong = strtoul(cp, (char **) 0, 0);
break;
case AO_TIME:
aop->ao_un.ao_time = strtol(cp, (char **) 0, 0);
break;
case AO_STRING:
aop->ao_un.ao_string = cp;
break;
case AO_USER:
if ((aop->ao_un.ao_user = lookup_uname(cp)) == UNKNOWN_UID)
aop->ao_un.ao_user = Realuid;
break;
}
if (!aop->had) {
aop->had = 1;
aop->next = aochain;
aochain = aop;
}
return;
}
}
*cp++ = '=';
badarg:
if (html_out_cparam_file("badcarg", 1, arg))
exit(E_USAGE);
html_error(arg);
exit(E_SETUP);
}
void apply_ops(char *arg)
{
const Hashspq *hjp;
const struct spq *jp;
struct argop *aop;
int ret;
struct jobswanted jw;
struct spr_req jreq;
struct spq SPQ;
if (decode_jnum(arg, &jw)) {
if (html_out_cparam_file("badcarg", 1, arg))
exit(E_USAGE);
html_error(arg);
exit(E_SETUP);
}
if (!(hjp = find_job(&jw))) {
html_out_cparam_file("jobgone", 1, arg);
exit(E_NOJOB);
}
jp = jw.jp;
if ((!(mypriv->spu_flgs & PV_OTHERJ) && strcmp(Realuname, jp->spq_uname) != 0) ||
(jp->spq_netid && !(mypriv->spu_flgs & PV_REMOTEJ))) {
html_out_cparam_file("nopriv", 1, arg);
exit(E_NOPRIV);
}
if (!aochain) /* Nothing to do how boring */
return;
jreq.spr_mtype = MT_SCHED;
jreq.spr_un.j.spr_act = SJ_CHNG;
jreq.spr_un.j.spr_pid = getpid();
jreq.spr_un.j.spr_jslot = hjp - Job_seg.jlist;
jreq.spr_un.j.spr_seq = 0;
jreq.spr_un.j.spr_netid = 0;
SPQ = *jp;
for (aop = aochain; aop; aop = aop->next)
if (!(*aop->arg_fn)(&SPQ, aop)) {
html_out_or_err("badargs", 1);
exit(E_USAGE);
}
if ((ret = wjmsg(&jreq, &SPQ))) {
html_disperror(ret);
exit(E_SETUP);
}
waitsig();
}
void perform_update(char **args)
{
char **ap, *arg;
for (ap = args; (arg = *ap); ap++) {
char *cp = strchr(arg, '=');
if (cp)
list_op(arg, cp);
else
apply_ops(arg);
}
}
/* Ye olde main routine. */
MAINFN_TYPE main(int argc, char **argv)
{
char **newargs;
int ec;
#if defined(NHONSUID) || defined(DEBUG)
int_ugid_t chk_uid;
#endif
versionprint(argv, "$Revision: 1.1 $", 0);
if ((progname = strrchr(argv[0], '/')))
progname++;
else
progname = argv[0];
init_mcfile();
html_openini();
newargs = cgi_arginterp(argc, argv, 1); /* Side effect of cgi_arginterp is to set Realuid */
Effuid = geteuid();
INIT_DAEMUID;
Cfile = open_cfile(MISC_UCONFIG, "rest.help");
SCRAMBLID_CHECK
SWAP_TO(Daemuid);
mypriv = getspuser(Realuid);
Realuname = prin_uname(Realuid);
SWAP_TO(Realuid);
Displayopts.opt_classcode = mypriv->spu_class;
/* Now we want to be Daemuid throughout if possible. */
#if defined(OS_BSDI) || defined(OS_FREEBSD)
seteuid(Daemuid);
#else
setuid(Daemuid);
#endif
if ((Ctrl_chan = msgget(MSGID, 0)) < 0) {
html_disperror($E{Spooler not running});
return E_NOTRUN;
}
#ifndef USING_FLOCK
/* Set up semaphores */
if ((Sem_chan = semget(SEMID, SEMNUMS, IPC_MODE)) < 0) {
html_disperror($E{Cannot open semaphore});
return E_SETUP;
}
#endif
/* Open the other files. No read yet until the spool scheduler
is aware of our existence, which it won't be until we
send it a message. */
if ((ec = init_xfershm(0))) {
html_disperror(ec);
return E_SETUP;
}
if (!jobshminit(0)) {
html_disperror($E{Cannot open jshm});
return E_JOBQ;
}
readjoblist(1);
if ((ec = msg_log(SO_MON, 1)) != 0) {
html_disperror(ec);
return E_SETUP;
}
perform_update(newargs);
if ((ec = msg_log(SO_DMON, 0)) != 0) {
html_disperror(ec);
return E_SETUP;
}
html_out_or_err("chngok", 1);
return 0;
}
gnuspool-1.7ubuntu1/src/loccgi/sqvcgi.c 0000664 0000000 0000000 00000014600 11421757504 015141 0 ustar /* sqvcgi.c -- CGI program to view jobs
Copyright 2008 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 3 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 . */
#include "config.h"
#include
#include
#ifdef TIME_WITH_SYS_TIME
#include
#include
#elif defined(HAVE_SYS_TIME_H)
#include
#else
#include
#endif
#include
#include
#include
#ifndef USING_FLOCK
#include
#endif
#include
#include "defaults.h"
#include "files.h"
#include "network.h"
#include "spq.h"
#include "spuser.h"
#include "pages.h"
#include "ecodes.h"
#include "q_shm.h"
#include "ipcstuff.h"
#include "errnums.h"
#include "incl_unix.h"
#include "incl_ugid.h"
#include "cfile.h"
#include "displayopt.h"
#include "xihtmllib.h"
#include "cgiuser.h"
#include "listperms.h"
#include "cgifndjb.h"
#include "xfershm.h"
#ifndef PATH_MAX
#define PATH_MAX 1024
#endif
struct spdet *mypriv;
char *Realuname;
#define IPC_MODE 0600
int rdpgfile(const struct spq *, struct pages *, char **, unsigned *, LONG **);
FILE *net_feed(const int, const netid_t, const slotno_t, const jobno_t);
/* For when we run out of memory..... */
void nomem(void)
{
fprintf(stderr, "Ran out of memory\n");
exit(E_NOMEM);
}
void perform_view(char *jnum, char *pnum)
{
struct jobswanted jw;
const struct spq *jp;
int haspgfile = 0, myjob;
char *delim = (char *) 0;
unsigned pagenums = 0, wpage = 0;
LONG *pageoffs = (LONG *) 0;
FILE *ifl;
struct pages pfe;
if (!jnum || decode_jnum(jnum, &jw)) {
html_out_or_err("sbadargs", 1);
exit(0);
}
if (!find_job(&jw)) {
jgone:
html_out_cparam_file("jobgone", 1, jnum);
exit(0);
}
jp = jw.jp;
myjob = strcmp(Realuname, jp->spq_uname) == 0;
if (!((mypriv->spu_flgs & PV_VOTHERJ) || myjob) ||
(jp->spq_netid && !(mypriv->spu_flgs & PV_REMOTEJ))) {
html_out_cparam_file("nopriv", 1, jnum);
exit(0);
}
/* If file is not paged, wpage will be left at 0 */
if (jp->spq_npages > 1 && pnum && isdigit(pnum[0]) &&
(haspgfile = rdpgfile(jp, &pfe, &delim, &pagenums, &pageoffs)) >= 0) {
wpage = strtoul(pnum, (char **) 0, 0);
if (wpage == 0)
wpage = 1;
else if (wpage > jp->spq_npages)
wpage = jp->spq_npages;
}
if (jp->spq_netid)
ifl = net_feed(FEED_NPSP, jp->spq_netid, jp->spq_rslot, jp->spq_job);
else
ifl = fopen(mkspid(SPNAM, jp->spq_job), "r");
if (!ifl)
goto jgone;
html_out_or_err("viewstart", 1);
if (wpage != 0) {
int ch = ' '; /* Initialise to avoid it being EOF */
unsigned current_page = 1;
fputs("\n
\n", stdout);
/* Find start of required page */
if (haspgfile) {
/* Case where delimiter is not a formfeed */
LONG current_offset = 0L;
while (current_page < wpage) {
while (current_offset < pageoffs[current_page] && (ch = getc(ifl)) != EOF)
current_offset++;
current_page++;
}
while (current_offset < pageoffs[current_page]) {
if ((ch = getc(ifl)) == EOF)
break;
html_pre_putchar(ch);
current_offset++;
}
}
else {
/* Delimiter is a formfeed.
Read through to start of page and then spit out
the page */
while (current_page < wpage) {
while ((ch = getc(ifl)) != '\f' && ch != EOF)
;
current_page++;
}
while ((ch = getc(ifl)) != '\f' && ch != EOF)
html_pre_putchar(ch);
}
/* Soak up rest of job if on network.
Seems to benefit network if all slurped up */
if (jp->spq_netid)
while (ch != EOF)
ch = getc(ifl);
}
else {
int ch;
fputs("\n
\n", stdout);
html_out_or_err("viewend", 0);
}
/* Ye olde main routine. */
MAINFN_TYPE main(int argc, char **argv)
{
char *spdir, **newargs;
#if defined(NHONSUID) || defined(DEBUG)
int_ugid_t chk_uid;
#endif
versionprint(argv, "$Revision: 1.2 $", 0);
if ((progname = strrchr(argv[0], '/')))
progname++;
else
progname = argv[0];
init_mcfile();
html_openini();
newargs = cgi_arginterp(argc, argv, 1); /* Side effect of cgi_arginterp is to set Realuid */
Effuid = geteuid();
INIT_DAEMUID;
Cfile = open_cfile(MISC_UCONFIG, "rest.help");
SCRAMBLID_CHECK
SWAP_TO(Daemuid);
mypriv = getspuser(Realuid);
Realuname = prin_uname(Realuid);
SWAP_TO(Realuid);
Displayopts.opt_classcode = mypriv->spu_class;
hash_hostfile();
/* Now we want to be Daemuid throughout if possible. */
#if defined(OS_BSDI) || defined(OS_FREEBSD)
seteuid(Daemuid);
#else
setuid(Daemuid);
#endif
spdir = envprocess(SPDIR);
if (chdir(spdir) < 0) {
html_disperror($E{Cannot chdir});
exit(E_NOCHDIR);
}
if ((Ctrl_chan = msgget(MSGID, 0)) < 0) {
html_disperror($E{Spooler not running});
exit(E_NOTRUN);
}
#ifndef USING_FLOCK
/* Set up semaphores */
if ((Sem_chan = semget(SEMID, SEMNUMS, IPC_MODE)) < 0) {
html_disperror($E{Cannot open semaphore});
exit(E_SETUP);
}
#endif
/* Open the other files. No read yet until the spool scheduler
is aware of our existence, which it won't be until we
send it a message. */
if (!jobshminit(1)) {
html_disperror($E{Cannot open jshm});
exit(E_JOBQ);
}
if (!ptrshminit(1)) {
html_disperror($E{Cannot open pshm});
exit(E_PRINQ);
}
readjoblist(1);
readptrlist(1);
perform_view(newargs[0], newargs[1]);
return 0;
}
gnuspool-1.7ubuntu1/src/loccgi/spccgi.c 0000664 0000000 0000000 00000022231 11421757504 015114 0 ustar /* spccgi.c -- CGI program for ops on printers
Copyright 2008 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 3 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 . */
#include "config.h"
#include
#include
#ifdef TIME_WITH_SYS_TIME
#include
#include
#elif defined(HAVE_SYS_TIME_H)
#include
#else
#include
#endif
#include
#include
#include
#ifndef USING_FLOCK
#include
#endif
#include
#include
#include "incl_sig.h"
#include "defaults.h"
#include "files.h"
#include "network.h"
#include "spq.h"
#include "spuser.h"
#include "pages.h"
#include "ecodes.h"
#include "q_shm.h"
#include "ipcstuff.h"
#include "xfershm.h"
#include "errnums.h"
#include "incl_unix.h"
#include "incl_ugid.h"
#include "cfile.h"
#include "displayopt.h"
#include "xihtmllib.h"
#include "cgiuser.h"
#include "listperms.h"
#include "cgifndjb.h"
#include "shutilmsg.h"
#define IPC_MODE 0600
char *Realuname,
*Curr_pwd;
struct spdet *mypriv;
/* Keep library happy */
void nomem(void)
{
fprintf(stderr, "Ran out of memory\n");
exit(E_NOMEM);
}
struct argop {
const char *name; /* Name of parameter case insens */
int (*arg_fn)(struct spptr *, const struct argop *);
short typ; /* Type of parameter */
#define AO_BOOL 0
#define AO_ULONG 1
#define AO_STRING 2
unsigned char off; /* Turn off */
unsigned char had;
union {
USHORT ao_boolbit;
ULONG ao_ulong;
char *ao_string;
} ao_un;
struct argop *next;
};
int arg_netflags(struct spptr *pp, const struct argop *ao)
{
USHORT bit = ao->ao_un.ao_boolbit;
if (ao->off)
pp->spp_netflags &= ~bit;
else
pp->spp_netflags |= bit;
return 1;
}
int arg_class(struct spptr *pp, const struct argop *ao)
{
ULONG rcl = ao->ao_un.ao_ulong;
if (!(mypriv->spu_flgs & PV_COVER))
rcl &= mypriv->spu_class;
if (rcl == 0)
return 0;
pp->spp_class = rcl;
return 1;
}
int arg_form(struct spptr *pp, const struct argop *ao)
{
strncpy(pp->spp_form, ao->ao_un.ao_string, MAXFORM);
return 1;
}
int arg_dev(struct spptr *pp, const struct argop *ao)
{
strncpy(pp->spp_dev, ao->ao_un.ao_string, LINESIZE);
return 1;
}
int arg_descr(struct spptr *pp, const struct argop *ao)
{
strncpy(pp->spp_comment, ao->ao_un.ao_string, COMMENTSIZE);
return 1;
}
struct argop aolist[] = {
{ "form", arg_form, AO_STRING },
{ "dev", arg_dev, AO_STRING },
{ "descr",arg_descr, AO_STRING },
{ "network",arg_netflags, AO_BOOL, 0,0, { (USHORT) SPP_LOCALNET } },
{ "loco", arg_netflags, AO_BOOL, 0,0, { (USHORT) SPP_LOCALONLY } },
{ "class",arg_class, AO_ULONG }
};
struct argop *aochain;
struct actop {
char *name;
USHORT proc_running; /* 1 If to be applied to running processes */
USHORT act_code;
} actlist[] = {
{ "start", 0, SO_PGO },
{ "heoj", 1, SO_PHLT },
{ "halt", 1, SO_PSTP },
{ "alok", 1, SO_OYES },
{ "alnok", 1, SO_ONO },
{ "int", 1, SO_INTER },
{ "pab", 1, SO_PJAB },
{ "prst", 1, SO_RSP }
};
void list_op(char *arg, char *cp)
{
int cnt;
*cp = '\0';
for (cnt = 0; cnt < sizeof(aolist) / sizeof(struct argop); cnt++) {
struct argop *aop = &aolist[cnt];
if (ncstrcmp(aop->name, arg) == 0) {
*cp++ = '=';
switch (aop->typ) {
case AO_BOOL:
switch (*cp) {
case 'y':case 'Y':
case 't':case 'T':
aop->off = 0;
break;
case 'n':case 'N':
case 'f':case 'F':
aop->off = 255;
break;
default:
goto badarg;
}
break;
case AO_ULONG:
if (!isdigit(*cp))
goto badarg;
aop->ao_un.ao_ulong = strtoul(cp, (char **) 0, 0);
break;
case AO_STRING:
aop->ao_un.ao_string = cp;
break;
}
if (!aop->had) {
aop->had = 1;
aop->next = aochain;
aochain = aop;
}
return;
}
}
*cp++ = '=';
badarg:
if (html_out_cparam_file("badcarg", 1, arg))
exit(E_USAGE);
html_error(arg);
exit(E_SETUP);
}
void apply_ops(char *arg)
{
const Hashspptr *hpp;
const struct spptr *pp;
struct argop *aop;
int ret;
struct ptrswanted pw;
struct spr_req preq;
struct spptr SPPTR;
if (!decode_pname(arg, &pw)) {
if (html_out_cparam_file("badcarg", 1, arg))
exit(E_USAGE);
html_error(arg);
exit(E_SETUP);
}
if (!(hpp = find_ptr(&pw))) {
html_out_cparam_file("ptrgone", 1, arg);
exit(E_NOJOB);
}
pp = pw.pp;
if ((mypriv->spu_flgs & (PV_PRINQ|PV_HALTGO)) != (PV_PRINQ|PV_HALTGO) ||
(pp->spp_netid && !(mypriv->spu_flgs & PV_REMOTEP))) {
html_out_cparam_file("nopriv", 1, arg);
exit(E_NOPRIV);
}
if (!aochain) /* Nothing to do how boring */
return;
preq.spr_mtype = MT_SCHED;
if (pp->spp_state >= SPP_PROC) {
html_out_or_err("badstate", 1);
exit(E_USAGE);
}
preq.spr_un.p.spr_pid = getpid();
preq.spr_un.p.spr_act = SP_CHGP;
preq.spr_un.p.spr_pslot = hpp - Ptr_seg.plist;
preq.spr_un.p.spr_seq = 0;
preq.spr_un.p.spr_netid = 0;
SPPTR = *pp; /* Want a read-write version to pass */
for (aop = aochain; aop; aop = aop->next)
if (!(*aop->arg_fn)(&SPPTR, aop)) {
html_out_or_err("badargs", 1);
exit(E_USAGE);
}
if ((ret = wpmsg(&preq, &SPPTR))) {
html_disperror(ret);
exit(E_SETUP);
}
waitsig();
}
void apply_action(struct actop *aop, char *arg)
{
const Hashspptr *hpp;
const struct spptr *pp;
struct ptrswanted pw;
struct spr_req preq;
if (!decode_pname(arg, &pw)) {
if (html_out_cparam_file("badcarg", 1, arg))
exit(E_USAGE);
html_error(arg);
exit(E_SETUP);
}
if (!(hpp = find_ptr(&pw))) {
html_out_cparam_file("ptrgone", 1, arg);
exit(E_NOJOB);
}
pp = pw.pp;
if ((mypriv->spu_flgs & (PV_PRINQ|PV_HALTGO)) != (PV_PRINQ|PV_HALTGO) ||
(pp->spp_netid && !(mypriv->spu_flgs & PV_REMOTEP))) {
html_out_cparam_file("nopriv", 1, arg);
exit(E_NOPRIV);
}
preq.spr_mtype = MT_SCHED;
if (pp->spp_state >= SPP_PROC) {
if (!aop->proc_running)
goto badstate;
}
else if (aop->proc_running)
goto badstate;
preq.spr_un.o.spr_pid = getpid();
preq.spr_un.o.spr_jpslot = hpp - Ptr_seg.plist;
preq.spr_un.o.spr_act = aop->act_code;
preq.spr_un.o.spr_arg1 = Realuid;
preq.spr_un.o.spr_arg2 = 0;
preq.spr_un.o.spr_jobno = 0;
preq.spr_un.o.spr_seq = 0;
preq.spr_un.o.spr_netid = 0;
if (msgsnd(Ctrl_chan, (struct msgbuf *) &preq, sizeof(struct sp_omsg), IPC_NOWAIT) < 0) {
html_disperror(errno == EAGAIN? $E{IPC msg q full}: $E{IPC msg q error});
exit(E_SETUP);
}
return;
badstate:
html_out_or_err("badstate", 1);
exit(E_USAGE);
}
void perform_update(char **args)
{
char **ap = args, *arg = *ap;
if (!arg)
return;
if (!strchr(arg, '=')) {
int cnt;
for (cnt = 0; cnt < sizeof(actlist)/sizeof(struct actop); cnt++) {
if (ncstrcmp(actlist[cnt].name, arg) == 0) {
for (ap++; (arg = *ap); ap++)
apply_action(&actlist[cnt], arg);
return;
}
}
/* Drop through... */
}
for (; (arg = *ap); ap++) {
char *cp = strchr(arg, '=');
if (cp)
list_op(arg, cp);
else
apply_ops(arg);
}
}
/* Ye olde main routine. */
MAINFN_TYPE main(int argc, char **argv)
{
char **newargs;
int ec;
#if defined(NHONSUID) || defined(DEBUG)
int_ugid_t chk_uid;
#endif
versionprint(argv, "$Revision: 1.1 $", 0);
if ((progname = strrchr(argv[0], '/')))
progname++;
else
progname = argv[0];
init_mcfile();
html_openini();
newargs = cgi_arginterp(argc, argv, 1); /* Side effect of cgi_arginterp is to set Realuid */
Effuid = geteuid();
INIT_DAEMUID;
Cfile = open_cfile(MISC_UCONFIG, "rest.help");
SCRAMBLID_CHECK
SWAP_TO(Daemuid);
mypriv = getspuser(Realuid);
Realuname = prin_uname(Realuid);
SWAP_TO(Realuid);
Displayopts.opt_classcode = mypriv->spu_class;
/* Now we want to be Daemuid throughout if possible. */
#if defined(OS_BSDI) || defined(OS_FREEBSD)
seteuid(Daemuid);
#else
setuid(Daemuid);
#endif
if ((Ctrl_chan = msgget(MSGID, 0)) < 0) {
html_disperror($E{Spooler not running});
return E_NOTRUN;
}
#ifndef USING_FLOCK
/* Set up semaphores */
if ((Sem_chan = semget(SEMID, SEMNUMS, IPC_MODE)) < 0) {
html_disperror($E{Cannot open semaphore});
return E_SETUP;
}
#endif
/* Open the other files. No read yet until the spool scheduler
is aware of our existence, which it won't be until we
send it a message. */
if ((ec = init_xfershm(0))) {
html_disperror(ec);
return E_SETUP;
}
if (!jobshminit(0)) {
html_disperror($E{Cannot open jshm});
return E_JOBQ;
}
if (!ptrshminit(0)) {
html_disperror($E{Cannot open pshm});
return E_PRINQ;
}
if ((ec = msg_log(SO_MON, 1)) != 0) {
html_disperror(ec);
return E_SETUP;
}
perform_update(newargs);
if ((ec = msg_log(SO_DMON, 0)) != 0) {
html_disperror(ec);
return E_SETUP;
}
html_out_or_err("chngok", 1);
return 0;
}
gnuspool-1.7ubuntu1/src/loccgi/Makefile.in 0000664 0000000 0000000 00000004643 11421757504 015554 0 ustar #
# Copyright 2008 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 3 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 .
#
# Makefile for local CGI programs
#
SHELL = /bin/sh
@SET_MAKE@
prefix = @prefix@
exec_prefix = @exec_prefix@
CC = @CC@
CCFLAGS = -O @gcc_useful_options@ @funny_compiler_options@
SHLIBCC = libtool --mode=link $(CC) $(CCFLAGS)
LDFLAGS =
LIBS = @LIBS@
LIBDIR = @libdir@
LIBNET = @SOCKLIBS@
MV = mv
RM = rm -f
PARENT = ..
BASE = ../..
INLINE = $(PARENT)/inline
HDRS = $(PARENT)/hdrs
MYLIBDIR = $(PARENT)/lib
SHLIB = $(MYLIBDIR)/libgnuspool_int.la
CFLAGS = $(CCFLAGS) -I$(HDRS) -I$(PARENT) -I$(BASE)
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
SPOOLUSER = @SPOOLUSER@
USERMODES = -o $(SPOOLUSER) -g root -m 4755
CGIMODES = -o $(SPOOLUSER) -g root -m 6755
BINDIR = $(DESTDIR)@bindir@
INTBINDIR = $(DESTDIR)@pkgexecdir@
CGIBINDIR = $(INTBINDIR)/cgi-bin
PROGS=sqcgi sqvcgi sqdcgi sqccgi sqcrcgi spcgi spccgi
all: $(PROGS)
sqcgi: sqcgi.o
$(SHLIBCC) -o $@ $(LDFLAGS) sqcgi.o $(SHLIB) $(LIBNET) $(LIBS)
sqvcgi: sqvcgi.o
$(SHLIBCC) -o $@ $(LDFLAGS) sqvcgi.o $(SHLIB) $(LIBNET) $(LIBS)
sqdcgi: sqdcgi.o
$(SHLIBCC) -o $@ $(LDFLAGS) sqdcgi.o $(SHLIB) $(LIBNET) $(LIBS)
sqccgi: sqccgi.o
$(SHLIBCC) -o $@ $(LDFLAGS) sqccgi.o $(SHLIB) $(LIBNET) $(LIBS)
sqcrcgi: sqcrcgi.o
$(SHLIBCC) -o $@ $(LDFLAGS) sqcrcgi.o $(SHLIB) $(LIBNET) $(LIBS)
spcgi: spcgi.o
$(SHLIBCC) -o $@ $(LDFLAGS) spcgi.o $(SHLIB) $(LIBNET) $(LIBS)
spccgi: spccgi.o
$(SHLIBCC) -o $@ $(LDFLAGS) spccgi.o $(SHLIB) $(LIBNET) $(LIBS)
install:
$(INSTALL) -d $(CGIBINDIR)
libtool --mode=install $(INSTALL) $(CGIMODES) $(PROGS) $(CGIBINDIR)
install-strip:
$(INSTALL) -d $(CGIBINDIR)
libtool --mode=install $(INSTALL) -s $(CGIMODES) $(PROGS) $(CGIBINDIR)
#
# Clean-ups.
#
clean:
$(RM) *.o $(PROGS)
distclean: clean
$(RM) Makefile
reallyclean: distclean
$(RM) TAGS
gnuspool-1.7ubuntu1/src/loccgi/sqcgi.c 0000664 0000000 0000000 00000045503 11421757504 014761 0 ustar /* sqcgi.c -- list jobs CGI program
Copyright 2008 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 3 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 . */
#include "config.h"
#include
#include
#ifdef TIME_WITH_SYS_TIME
#include
#include
#elif defined(HAVE_SYS_TIME_H)
#include
#else
#include
#endif
#include
#include
#include
#ifndef USING_FLOCK
#include
#endif
#include
#include "defaults.h"
#include "files.h"
#include "network.h"
#include "spq.h"
#include "spuser.h"
#include "pages.h"
#include "ecodes.h"
#include "q_shm.h"
#include "ipcstuff.h"
#include "errnums.h"
#include "incl_unix.h"
#include "incl_ugid.h"
#include "cfile.h"
#include "displayopt.h"
#include "xihtmllib.h"
#include "cgiuser.h"
#include "cgifndjb.h"
#include "listperms.h"
#include "xfershm.h"
#ifndef PATH_MAX
#define PATH_MAX 1024
#endif
int nopage = -1,
headerflag = -1;
char *formatstring;
int jno_width = 0;
char sdefaultfmt[] = "LN Lu Lh Lf LQ RS Rc Rp LP",
npdefaultfmt[] = "LN Lu Lh Lf LL RK Rc Rp LP";
struct spdet *mypriv;
char *Realuname;
char bigbuff[200];
char *Curr_pwd;
static char *localptr;
#define IPC_MODE 0600
int rdpgfile(const struct spq *, struct pages *, char **, unsigned *, LONG **);
/* For when we run out of memory..... */
void nomem(void)
{
fprintf(stderr, "Ran out of memory\n");
exit(E_NOMEM);
}
static void shm_setup(void)
{
if ((Ctrl_chan = msgget(MSGID, 0)) < 0) {
html_disperror($E{Spooler not running});
exit(E_NOTRUN);
}
#ifndef USING_FLOCK
if ((Sem_chan = semget(SEMID, SEMNUMS, IPC_MODE)) < 0) {
html_disperror($E{Cannot open semaphore});
exit(E_SETUP);
}
#endif
if (!jobshminit(0)) {
html_disperror($E{Cannot open jshm});
exit(E_JOBQ);
}
if (!ptrshminit(0)) {
html_disperror($E{Cannot open pshm});
exit(E_PRINQ);
}
}
void fmt_setup(void)
{
if (!formatstring) {
if (!(formatstring = html_inistr("format", (char *) 0)))
formatstring = nopage? npdefaultfmt: sdefaultfmt;
}
}
typedef unsigned fmt_t;
#define INLINE_SQLIST
#include "inline/jfmt_wattn.c"
#include "inline/jfmt_class.c"
#include "inline/jfmt_ppf.c"
#include "inline/jfmt_hold.c"
#include "inline/jfmt_sizek.c"
#include "inline/jfmt_krchd.c"
#include "inline/jfmt_jobno.c"
#include "inline/jfmt_oddev.c"
#include "inline/jfmt_ptr.c"
#include "inline/jfmt_pgrch.c"
#include "inline/jfmt_range.c"
#include "inline/jfmt_szpgs.c"
#include "inline/jfmt_nptim.c"
#include "inline/jfmt_user.c"
#include "inline/jfmt_puser.c"
#include "inline/jfmt_stime.c"
#include "inline/jfmt_mattn.c"
#include "inline/jfmt_cps.c"
#include "inline/jfmt_form.c"
#include "inline/jfmt_title.c"
#include "inline/jfmt_loco.c"
#include "inline/jfmt_mail.c"
#include "inline/jfmt_prio.c"
#include "inline/jfmt_retn.c"
#include "inline/jfmt_supph.c"
#include "inline/jfmt_ptime.c"
#include "inline/jfmt_write.c"
#include "inline/jfmt_origh.c"
#include "inline/jfmt_delim.c"
/* Mapping of format characters (assumed A-Z a-z) and format routines */
struct formatdef {
SHORT statecode; /* Code number for heading if applicable */
char alch; /* Default align char */
char *msg; /* Heading */
unsigned (*fmt_fn)(const struct spq *, const int);
};
#define NULLCP (char *) 0
struct formatdef
uppertab[] = { /* A-Z */
{ $P{job fmt title}+'A'-1, 'L', NULLCP, fmt_wattn }, /* A */
{ 0, 'L', NULLCP, 0 }, /* B */
{ $P{job fmt title}+'C'-1, 'L', NULLCP, fmt_class }, /* C */
{ $P{job fmt title}+'D'-1, 'L', NULLCP, fmt_delim }, /* D */
{ 0, 'L', NULLCP, 0 }, /* E */
{ $P{job fmt title}+'F'-1, 'L', NULLCP, fmt_ppflags }, /* F */
{ $P{job fmt title}+'G'-1, 'L', NULLCP, fmt_hat }, /* G */
{ $P{job fmt title}+'H'-1, 'L', NULLCP, fmt_hold }, /* H */
{ 0, 'L', NULLCP, 0 }, /* I */
{ 0, 'L', NULLCP, 0 }, /* J */
{ $P{job fmt title}+'K'-1, 'R', NULLCP, fmt_sizek }, /* K */
{ $P{job fmt title}+'L'-1, 'L', NULLCP, fmt_kreached }, /* L */
{ 0, 'L', NULLCP, 0 }, /* M */
{ $P{job fmt title}+'N'-1, 'L', NULLCP, fmt_jobno }, /* N */
{ $P{job fmt title}+'O'-1, 'L', NULLCP, fmt_oddeven }, /* O */
{ $P{job fmt title}+'P'-1, 'L', NULLCP, fmt_printer }, /* P */
{ $P{job fmt title}+'Q'-1, 'L', NULLCP, fmt_pgreached }, /* Q */
{ $P{job fmt title}+'R'-1, 'L', NULLCP, fmt_range }, /* R */
{ $P{job fmt title}+'S'-1, 'R', NULLCP, fmt_szpages }, /* S */
{ $P{job fmt title}+'T'-1, 'L', NULLCP, fmt_nptime }, /* T */
{ $P{job fmt title}+'U'-1, 'L', NULLCP, fmt_puser }, /* U */
{ 0, 'L', NULLCP, 0 }, /* V */
{ $P{job fmt title}+'W'-1, 'L', NULLCP, fmt_stime }, /* W */
{ 0, 'L', NULLCP, 0 }, /* X */
{ 0, 'L', NULLCP, 0 }, /* Y */
{ 0, 'L', NULLCP, 0 } /* Z */
},
lowertab[] = { /* a-z */
{ $P{job fmt title}+'a'-1, 'L', NULLCP, fmt_mattn }, /* a */
{ 0, 'L', NULLCP, 0 }, /* b */
{ $P{job fmt title}+'c'-1, 'R', NULLCP, fmt_cps }, /* c */
{ $P{job fmt title}+'d'-1, 'L', NULLCP, fmt_delimnum }, /* d */
{ 0, 'L', NULLCP, 0 }, /* e */
{ $P{job fmt title}+'f'-1, 'L', NULLCP, fmt_form }, /* f */
{ 0, 'L', NULLCP, 0 }, /* g */
{ $P{job fmt title}+'h'-1, 'L', NULLCP, fmt_title }, /* h */
{ 0, 'L', NULLCP, 0 }, /* i */
{ 0, 'L', NULLCP, 0 }, /* j */
{ 0, 'L', NULLCP, 0 }, /* k */
{ $P{job fmt title}+'l'-1, 'L', NULLCP, fmt_localonly }, /* l */
{ $P{job fmt title}+'m'-1, 'L', NULLCP, fmt_mail }, /* m */
{ 0, 'L', NULLCP, 0 }, /* n */
{ $P{job fmt title}+'o'-1, 'L', NULLCP, fmt_orighost }, /* o */
{ $P{job fmt title}+'p'-1, 'R', NULLCP, fmt_prio }, /* p */
{ $P{job fmt title}+'q'-1, 'L', NULLCP, fmt_retain }, /* q */
{ 0, 'L', NULLCP, 0 }, /* r */
{ $P{job fmt title}+'s'-1, 'L', NULLCP, fmt_supph }, /* s */
{ $P{job fmt title}+'t'-1, 'L', NULLCP, fmt_ptime }, /* t */
{ $P{job fmt title}+'u'-1, 'L', NULLCP, fmt_user }, /* u */
{ 0, 'L', NULLCP, 0 }, /* v */
{ $P{job fmt title}+'w'-1, 'L', NULLCP, fmt_write }, /* w */
{ 0, 'L', NULLCP, 0 }, /* x */
{ 0, 'L', NULLCP, 0 }, /* y */
{ 0, 'L', NULLCP, 0 } /* z */
};
void print_hdrfmt(struct formatdef * fp)
{
if (!fp->fmt_fn)
return;
if (!fp->msg)
fp->msg = gprompt(fp->statecode);
html_fldprint(fp->msg);
}
struct altype {
char *str; /* Align string for html */
char ch; /* Align char */
} altypes[] = {
{ "left", 'L' },
{ "right", 'R' },
{ "center", 'C' }
};
#define NALIGNTYPES (sizeof(altypes) / sizeof(struct altype))
struct altype *commonest_align = &altypes[0];
struct altype * lookup_align(const int alch)
{
int cnt;
for (cnt = 0; cnt < NALIGNTYPES; cnt++)
if (altypes[cnt].ch == alch)
return &altypes[cnt];
return commonest_align;
}
struct colfmt {
struct formatdef *form;
char *alstr;
};
struct colfmt *cflist;
int ncolfmts, maxcolfmts;
#define INITCF 10
#define INCCF 5
void find_commonest(char * fp)
{
int rvec[NALIGNTYPES];
int cnt, mx = 0, ind = 0, fmch;
struct altype *whichalign;
struct formatdef *fd;
for (cnt = 0; cnt < NALIGNTYPES; cnt++)
rvec[cnt] = 0;
if (!(cflist = (struct colfmt *) malloc(INITCF * sizeof(struct colfmt))))
nomem();
maxcolfmts = INITCF;
while (*fp) {
while (*fp && !isalpha(*fp))
fp++;
if (!*fp)
break;
whichalign = lookup_align(*fp++);
rvec[whichalign - &altypes[0]]++;
fmch = *fp++;
if (!isalpha(fmch))
break;
fd = isupper(fmch)? &uppertab[fmch - 'A']: &lowertab[fmch - 'a'];
if (!fd->fmt_fn)
continue;
if (ncolfmts >= maxcolfmts) {
maxcolfmts += INCCF;
cflist = (struct colfmt *) realloc((char *) cflist, (unsigned) (maxcolfmts * sizeof(struct colfmt)));
if (!cflist)
nomem();
}
cflist[ncolfmts].form = fd;
cflist[ncolfmts].alstr = whichalign->str;
ncolfmts++;
}
for (cnt = 0; cnt < NALIGNTYPES; cnt++)
if (mx < rvec[cnt]) {
mx = rvec[cnt];
ind = cnt;
}
commonest_align = &altypes[ind];
for (cnt = 0; cnt < ncolfmts; cnt++)
if (cflist[cnt].alstr == commonest_align->str)
cflist[cnt].alstr = (char *) 0;
}
void startrow(void)
{
printf("
\n", commonest_align->str);
}
void startcell(const int celltype, const char *str)
{
if (str)
printf("", celltype, str);
else
printf("", celltype);
}
/* Display contents of job file. */
void jdisplay(void)
{
int fcnt, jcnt;
unsigned pflgs = 0;
/*
included in pre-list file so as to possibly include formatting elements */
find_commonest(formatstring);
/* Possibly insert header */
if (headerflag) {
/* Possibly insert first header showing options */
if (Displayopts.opt_restrp || Displayopts.opt_restru ||
Displayopts.opt_localonly == NRESTR_LOCALONLY ||
Displayopts.opt_jprindisp != JRESTR_ALL) {
startrow();
printf("
included in pre-list file so as to possibly include formatting elements */
find_commonest(formatstring);
/* Possibly insert header */
if (headerflag) {
/* Possibly insert first header showing options */
if (Displayopts.opt_restrp || Displayopts.opt_localonly == NRESTR_LOCALONLY) {
startrow();
printf("
\n", stdout);
}
startrow();
startcell('h', commonest_align->str); /* Blank space in place of checkbox */
fputs("", stdout);
for (fcnt = 0; fcnt < ncolfmts; fcnt++) {
startcell('h', cflist[fcnt].alstr);
print_hdrfmt(cflist[fcnt].form);
fputs("", stdout);
}
fputs("\n", stdout);
}
/* Set up default permissions which for printers apply
throughout. */
if (mypriv->spu_flgs & PV_PRINQ) {
pflgs |= GLV_ANYCHANGES;
lpperm |= LV_MINEORVIEW|LV_LOCORRVIEW|LV_CHANGEABLE;
if (mypriv->spu_flgs & PV_HALTGO)
lpperm |= LV_KILLABLE;
if (mypriv->spu_flgs & PV_ADDDEL)
lpperm |= LV_DELETEABLE;
if (mypriv->spu_flgs & PV_REMOTEP)
rpperm = lpperm;
if (mypriv->spu_flgs & PV_COVER)
pflgs |= GLV_COVER;
if (mypriv->spu_flgs & PV_ACCESSOK)
pflgs |= GLV_ACCESSF;
if (mypriv->spu_flgs & PV_FREEZEOK)
pflgs |= GLV_FREEZEF;
}
/* Final run-through to output stuff */
for (pcnt = 0; pcnt < Ptr_seg.nptrs; pcnt++) {
const struct spptr *pp = &Ptr_seg.pp_ptrs[pcnt]->p;
unsigned flgs;
if (pp->spp_state == SPP_NULL || pp->spp_state >= SPP_NSTATES)
continue;
flgs = pp->spp_netid == 0L? lpperm: rpperm;
if (pp->spp_state >= SPP_PROC)
flgs |= LV_PROCESS;
startrow();
startcell('d', commonest_align->str);
fmt_printer(pp, 0);
printf("", bigbuff, flgs);
for (fcnt = 0; fcnt < ncolfmts; fcnt++) {
startcell('d', cflist[fcnt].alstr);
bigbuff[0] = '\0';
(cflist[fcnt].form->fmt_fn)(pp, 0);
html_fldprint(bigbuff);
fputs("", stdout);
}
fputs("\n", stdout);
}
printf("
\n\n", pflgs);
printf("\n", (unsigned long) mypriv->spu_class);
}
struct arginterp {
char *argname;
unsigned short flags;
#define AIF_NOARG 0
#define AIF_ARG 1
#define AIF_ARGLIST 2
int (*arg_fn)(char *);
};
int perf_listformat(char *notused)
{
struct formatdef *fp;
int lett;
char *msg;
html_out_or_err("listfmt_pre", 1);
for (fp = &lowertab[0], lett = 'a'; fp < &lowertab[26]; lett++, fp++)
if (fp->statecode != 0) {
msg = gprompt(fp->statecode + 500);
printf("list_format_code(\'%c\', \'%c\', \"%s\");\n", lett, fp->alch, msg);
free(msg);
}
fmt_setup();
printf("existing_formats(\"%s\");\n", formatstring);
html_out_param_file("listfmt_post", 0, 0, html_cookexpiry());
exit(0);
}
extern int perf_optselect(char *);
int set_queue(char *arg)
{
Displayopts.opt_restrp = *arg? arg: (char *) 0;
return 1;
}
int set_loco(char *arg)
{
switch (tolower(*arg)) {
case 'l':case 'y':case '1':
Displayopts.opt_localonly = NRESTR_LOCALONLY;
return 1;
case 'n':case '0':
Displayopts.opt_localonly = NRESTR_NONE;
return 1;
default:
return 0;
}
}
int set_header(char *arg)
{
switch (tolower(*arg)) {
case 'y':case '1':
headerflag = 1;
return 1;
case 'n':case '0':
headerflag = 0;
return 1;
default:
return 0;
}
}
int set_sorted(char *arg)
{
switch (tolower(*arg)) {
case 'y':case '1':
Displayopts.opt_sortptrs = SORTP_BYNAME;
return 1;
case 'n':case '0':
Displayopts.opt_sortptrs = SORTP_NONE;
return 1;
default:
return 0;
}
}
int set_format(char *arg)
{
formatstring = arg;
return 1;
}
extern void perf_listprfm(char *, char *, char *);
struct arginterp argtypes[] = {
{ "format", AIF_ARG, set_format },
{ "header", AIF_ARG, set_header },
{ "queue", AIF_ARG, set_queue },
{ "localonly", AIF_ARG, set_loco },
{ "sorted", AIF_ARG, set_sorted },
{ "listprfm", AIF_ARGLIST },
{ "listopts", AIF_NOARG, perf_optselect },
{ "listformat", AIF_NOARG, perf_listformat }
};
/* Invoke a call to the JavaScript function "jsfunc" with parameters
taken from the printer "ptrnam"
Printer, Form, device, description, possible forms */
void perf_listprfm(char *tmpl, char *jsfunc, char *ptrnam)
{
char *pname, *pform, *pdev, *pdescr;
int jcnt;
struct ptrswanted pw;
struct strvec fv;
shm_setup();
readptrlist(1);
readjoblist(1);
if (decode_pname(ptrnam, &pw) && find_ptr(&pw)) {
const struct spptr *pp = pw.pp;
pname = stracpy(pp->spp_ptr);
pform = stracpy(pp->spp_form);
pdev = stracpy(pp->spp_dev);
pdescr = stracpy(pp->spp_comment);
}
else
pname = pform = pdev = pdescr = "";
strvec_init(&fv);
strvec_add(&fv, mypriv->spu_form);
for (jcnt = 0; jcnt < Job_seg.njobs; jcnt++)
strvec_add(&fv, Job_seg.jj_ptrs[jcnt]->j.spq_form);
for (jcnt = 0; jcnt < Ptr_seg.nptrs; jcnt++)
strvec_add(&fv, Ptr_seg.pp_ptrs[jcnt]->p.spp_form);
strvec_sort(&fv);
/* OK now generate the stuff */
html_output_file(tmpl, 1);
printf("%s(\"%s\", \"%s\", \"%s\", \"%s\", ",
jsfunc,
escquot(pname),
escquot(pform),
escquot(pdev),
escquot(pdescr));
print_strvec(&fv);
fputs(");\n", stdout);
html_output_file("prfm_postamble", 0);
exit(0);
}
int perf_optselect(char *notused)
{
html_out_param_file("setopts", 1, 0, html_cookexpiry());
exit(0);
}
void interp_args(char **args)
{
char **ap, *arg, *cp = (char *) 0;
int cnt;
for (ap = args; (arg = *ap); ap++) {
if ((cp = strchr(arg, ':')) || (cp = strchr(arg, '=')))
*cp++ = '\0';
for (cnt = 0; cnt < sizeof(argtypes)/sizeof(struct arginterp); cnt++) {
if (ncstrcmp(arg, argtypes[cnt].argname) == 0) {
if (argtypes[cnt].flags == AIF_ARGLIST) {
if (!ap[1] || !ap[2])
goto badarg;
perf_listprfm(ap[1], ap[2], ap[3]);
}
if ((cp && argtypes[cnt].flags == AIF_NOARG) ||
(!cp && argtypes[cnt].flags == AIF_ARG) ||
!(argtypes[cnt].arg_fn)(cp))
goto badarg;
goto ok;
}
}
badarg:
html_out_or_err("badargs", 1);
exit(E_USAGE);
ok:
;
}
}
/* Ye olde main routine. */
MAINFN_TYPE main(int argc, char **argv)
{
char **newargs;
#if defined(NHONSUID) || defined(DEBUG)
int_ugid_t chk_uid;
#endif
versionprint(argv, "$Revision: 1.2 $", 0);
if ((progname = strrchr(argv[0], '/')))
progname++;
else
progname = argv[0];
init_mcfile();
html_openini();
newargs = cgi_arginterp(argc, argv, 0); /* Side effect of cgi_arginterp is to set Realuid */
Effuid = geteuid();
INIT_DAEMUID;
Cfile = open_cfile(MISC_UCONFIG, "rest.help");
SCRAMBLID_CHECK
SWAP_TO(Daemuid);
mypriv = getspuser(Realuid);
SWAP_TO(Realuid);
Displayopts.opt_classcode = mypriv->spu_class;
hash_hostfile();
/* Now we want to be Daemuid throughout if possible. */
#if defined(OS_BSDI) || defined(OS_FREEBSD)
seteuid(Daemuid);
#else
setuid(Daemuid);
#endif
interp_args(newargs);
shm_setup();
openpfile();
if (headerflag < 0)
headerflag = html_inibool("headers", 0);
fmt_setup();
html_output_file("list_preamble", 1);
readptrlist(0);
pdisplay();
ptrshm_unlock();
html_output_file("list_postamble", 0);
return 0;
}
gnuspool-1.7ubuntu1/src/xtnetserv.c 0000664 0000000 0000000 00000077544 11421757504 014467 0 ustar /* xtnetserv.c -- server process for remote submission, MS windos clients and API
Copyright 2008 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 3 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 . */
#include "config.h"
#ifdef NETWORK_VERSION
#include
#include
#include
#include
#ifndef USING_FLOCK
#include
#endif
#ifdef HAVE_FCNTL_H
#include
#endif
#include "incl_sig.h"
#include
#ifdef HAVE_SYS_IOCTL_H
#include
#endif
#include "errnums.h"
#include "incl_net.h"
#include "defaults.h"
#include "files.h"
#include "network.h"
#include "spq.h"
#include "pages.h"
#include "spuser.h"
#include "ipcstuff.h"
#include "q_shm.h"
#include "xfershm.h"
#include "ecodes.h"
#include "client_if.h"
#include "incl_unix.h"
#include "incl_ugid.h"
#include "cfile.h"
#include "xtapi_int.h"
#include "xtnet_ext.h"
#ifdef TIME_WITH_SYS_TIME
#include
#include
#elif defined(HAVE_SYS_TIME_H)
#include
#else
#include
#endif
#include "services.h"
SHORT qsock, /* TCP Socket for accepting queued jobs on */
uasock, /* Datagram socket for user access enquiries */
apirsock; /* API Request socket */
SHORT qportnum, /* Port number for TCP network byte order */
uaportnum, /* Port number for UDP network byte order */
apirport, /* Port number for API requests */
apipport; /* UDP port number for prompt messages to API */
netid_t localhostid; /* IP of "localhost" sometimes different */
SHORT tcpproto, udpproto;
const char Sname[] = GSNETSERV_PORT,
ASrname[] = API_DEFAULT_SERVICE,
ASmname[] = API_MON_SERVICE;
int had_alarm, hadrfresh;
#define IPC_MODE 0600
#ifndef USING_FLOCK
/* These don't have SEM_UNDO in any more */
struct sembuf jr[2] = { { JQ_FIDDLE, 0, 0 },
{ JQ_READING, 1, 0 }},
ju[1] = { { JQ_READING, -1, 0 }},
pr[2] = { { PQ_FIDDLE, 0, 0 },
{ PQ_READING, 1, 0 }},
pu[1] = { { PQ_READING, -1, 0 }};
#endif
struct spr_req sp_req;
struct spq SPQ;
#define JN_INC 80000 /* Add this to job no if clashes */
#define JOB_MOD 60000 /* Modulus of job numbers */
struct pages pfe = { 1, 1, 0 };
char *spdir;
char tmpfl[NAMESIZE + 1], pgfl[NAMESIZE + 1];
struct hhash *nhashtab[NETHASHMOD];
struct cluhash *cluhashtab[NETHASHMOD];
extern char dosuser[];
struct pend_job pend_list[MAX_PEND_JOBS];/* List of pending UDP jobs */
unsigned tracing = 0;
FILE *tracefile;
extern unsigned calcnhash(const netid_t);
void nomem(void)
{
fprintf(stderr, "Run out of memory\n");
exit(E_NOMEM);
}
unsigned calc_clu_hash(const char *name)
{
unsigned sum = 0;
while (*name)
sum += *name++;
return sum % NETHASHMOD;
}
/* Clear details of client "roaming" users if hosts file changes. */
static void zap_clu_hash(void)
{
unsigned cnt;
for (cnt = 0; cnt < NETHASHMOD; cnt++) {
struct cluhash **cpp, *cp;
cpp = &cluhashtab[cnt];
/* An item might be on the hash table twice under its
own name and the alias name.
First process the "own name" entries. */
while ((cp = *cpp)) {
if (--cp->refcnt == 0) {
*cpp = cp->next;
if (cp->machname)
free(cp->machname);
free(cp);
}
else
cpp = &cp->next;
}
/* Now repeat for the alias name entries. */
cpp = &cluhashtab[cnt];
while ((cp = *cpp)) {
*cpp = cp->alias_next;
if (cp->machname)
free(cp->machname);
free(cp);
}
}
}
/* Add IP address representing "me" to table for benefit of APIs on local host */
static void addme(const netid_t mid)
{
unsigned nhval = calcnhash(mid);
struct hhash *hp;
time_t now = time((time_t *) 0);
if (!(hp = (struct hhash *) malloc(sizeof(struct hhash))))
nomem();
BLOCK_ZERO(hp, sizeof(struct hhash));
hp->hn_next = nhashtab[nhval];
nhashtab[nhval] = hp;
hp->rem.hostid = mid;
hp->rem.ht_flags = HT_MANUAL|HT_PROBEFIRST|HT_TRUSTED;
hp->timeout = hp->rem.ht_timeout = 0x7fff;
hp->lastaction = hp->rem.lastwrite = now;
hp->flags = UAL_OK;
}
/* Read in hosts file and build up interesting stuff */
void process_hfile(void)
{
struct remote *rp;
extern char hostf_errors;
time_t now = time((time_t *) 0);
hostf_errors = 0;
while ((rp = get_hostfile()))
if (rp->ht_flags & HT_ROAMUSER) {
struct cluhash *cp, **hpp, *hp;
/* Roaming user - add main and alias name to
hash table. We don't try to interpret
the user names at this stage. */
if (!(cp = (struct cluhash *) malloc(sizeof(struct cluhash))))
nomem();
cp->next = cp->alias_next = (struct cluhash *) 0;
cp->rem = *rp;
/* The machine name (if any) is held in "dosuser".
Please note that this is one of the places where we
assume HOSTNSIZE > UIDSIZE */
cp->machname = dosuser[0]? stracpy(dosuser) : (char *) 0;
cp->refcnt = 1; /* For now */
/* Stick it on the end of the hash chain.
Repeat for alias name if applicable. */
for (hpp = &cluhashtab[calc_clu_hash(rp->hostname)]; (hp = *hpp); hpp = &hp->next)
;
*hpp = cp;
if (rp->alias[0]) {
for (hpp = &cluhashtab[calc_clu_hash(rp->alias)]; (hp = *hpp); hpp = &hp->alias_next)
;
*hpp = cp;
cp->refcnt++;
}
}
else {
struct hhash *hp;
unsigned nhval = calcnhash(rp->hostid);
/* These are "regular" machines. */
if (!(hp = (struct hhash *) malloc(sizeof(struct hhash))))
nomem();
hp->hn_next = nhashtab[nhval];
nhashtab[nhval] = hp;
hp->rem = *rp;
hp->dosname = (char *) 0;
hp->actname = (char *) 0;
hp->flags = UAL_OK;
if (rp->ht_flags & HT_DOS) {
hp->dosname = stracpy(dosuser);
hp->actname = stracpy(dosuser); /* Saves testing for it */
if (rp->ht_flags & HT_PWCHECK)
hp->flags = UAL_NOK;
}
hp->timeout = rp->ht_timeout;
hp->lastaction = now;
}
end_hostfile();
/* Create entries for "me" to allow for API connections from local hosts */
addme(myhostid);
addme(htonl(INADDR_LOOPBACK));
/* This may be a good place to warn people about errors in the
host file. */
if (hostf_errors)
print_error($E{Warn errors in host file});
}
/* Catch hangup signals and re-read hosts file a la mountd */
static RETSIGTYPE catchhup(int n)
{
unsigned cnt;
struct hhash *hp, *np;
#ifdef UNSAFE_SIGNALS
signal(n, SIG_IGN);
#endif
for (cnt = 0; cnt < NETHASHMOD; cnt++) {
for (hp = nhashtab[cnt]; hp; hp = np) {
if (hp->dosname)
free(hp->dosname);
if (hp->actname)
free(hp->actname);
np = hp->hn_next;
free((char *) hp);
}
nhashtab[cnt] = (struct hhash *) 0;
}
zap_clu_hash();
process_hfile();
un_rpwfile();
send_askall();
#ifdef UNSAFE_SIGNALS
signal(n, catchhup);
#endif
}
struct hhash * find_remote(const netid_t hid)
{
struct hhash *hp;
for (hp = nhashtab[calcnhash(hid)]; hp; hp = hp->hn_next)
if (hp->rem.hostid == hid) {
time(&hp->lastaction); /* Remember last action for timeouts */
return hp;
}
return (struct hhash *) 0;
}
static char sigstocatch[] = { SIGINT, SIGQUIT, SIGTERM };
/* On a signal, remove file (TCP connection) */
RETSIGTYPE catchdel(int n)
{
unlink(tmpfl);
unlink(pgfl);
exit(E_SIGNAL);
}
/* Main path - remove files pending for UDP */
RETSIGTYPE catchabort(int n)
{
int cnt;
#ifdef UNSAFE_SIGNALS
signal(n, SIG_IGN);
#endif
for (cnt = 0; cnt < MAX_PEND_JOBS; cnt++)
abort_job(&pend_list[cnt]);
exit(E_SIGNAL);
}
/* Catch alarm signals */
RETSIGTYPE catchalarm(int n)
{
#ifdef UNSAFE_SIGNALS
signal(n, catchalarm);
#endif
had_alarm++;
}
/* This notes signals from (presumably) the scheduler. */
RETSIGTYPE sh_markit(int sig)
{
#ifdef UNSAFE_SIGNALS
signal(sig, sh_markit);
#endif
hadrfresh++;
}
void catchsigs(RETSIGTYPE (*catchfn)(int))
{
int i;
#ifdef STRUCT_SIG
struct sigstruct_name zc, oldsig;
zc.sighandler_el = catchfn;
sigmask_clear(zc);
zc.sigflags_el = SIGVEC_INTFLAG;
for (i = 0; i < sizeof(sigstocatch); i++) {
sigact_routine(sigstocatch[i], &zc, &oldsig);
if (oldsig.sighandler_el == SIG_IGN)
sigact_routine(sigstocatch[i], &oldsig, (struct sigstruct_name *) 0);
}
#else
for (i = 0; i < sizeof(sigstocatch); i++)
if (signal(sigstocatch[i], catchfn) == SIG_IGN)
signal(sigstocatch[i], SIG_IGN);
#endif
}
void openrfile(void)
{
int ret;
/* If message queue does not exist, then the spooler isn't
running. I don't think that we want to randomly start it. */
if ((Ctrl_chan = msgget(MSGID, 0)) < 0) {
print_error($E{Spooler not running});
exit(E_NOTRUN);
}
#ifndef USING_FLOCK
/* Set up semaphores */
if ((Sem_chan = semget(SEMID, SEMNUMS, IPC_MODE)) < 0) {
print_error($E{Cannot open semaphore});
exit(E_SETUP);
}
#endif
if ((ret = init_xfershm(1))) {
print_error(ret);
exit(E_SETUP);
}
#ifndef USING_FLOCK
set_xfer_server(); /* Don't want SEM_UNDO */
#endif
if (!jobshminit(1)) {
print_error($E{Cannot open jshm});
exit(E_JOBQ);
}
if (!ptrshminit(1)) {
print_error($E{Cannot open pshm});
exit(E_PRINQ);
}
}
/* "Log myself in" with spshed. */
void lognprocess(void)
{
struct spr_req nmsg;
#ifdef STRUCT_SIG
struct sigstruct_name z;
z.sighandler_el = sh_markit;
sigmask_clear(z);
z.sigflags_el = SIGVEC_INTFLAG;
sigact_routine(QRFRESH, &z, (struct sigstruct_name *) 0);
z.sighandler_el = catchalarm;
sigact_routine(SIGALRM, &z, (struct sigstruct_name *) 0);
#else
/* signal is #defined as sigset on suitable systems */
signal(QRFRESH, sh_markit);
signal(SIGALRM, catchalarm);
#endif
nmsg.spr_mtype = MT_SCHED;
nmsg.spr_un.n.spr_act = SON_XTNATT;
nmsg.spr_un.n.spr_seq = 0;
nmsg.spr_un.n.spr_pid = getpid();
BLOCK_ZERO(&nmsg.spr_un.n.spr_n, sizeof(nmsg.spr_un.n.spr_n));
msgsnd(Ctrl_chan, (struct msgbuf *) &nmsg, sizeof(struct sp_nmsg), 0);
}
/* Unpack a job and see what British Hairyways has broken this time */
void unpack_job(struct spq *to, struct spq *from)
{
to->spq_job = ntohl((ULONG) from->spq_job);
to->spq_netid = 0L;
to->spq_orighost = 0L; /* For now */
to->spq_rslot = 0L;
to->spq_time = ntohl((ULONG) from->spq_time);
to->spq_proptime = 0L;
to->spq_starttime = ntohl((ULONG) from->spq_starttime);
to->spq_hold = ntohl((ULONG) from->spq_hold);
to->spq_nptimeout = ntohs(from->spq_nptimeout);
to->spq_ptimeout = ntohs(from->spq_ptimeout);
to->spq_size = ntohl((ULONG) from->spq_size);
to->spq_posn = ntohl((ULONG) from->spq_posn);
to->spq_pagec = ntohl((ULONG) from->spq_pagec);
to->spq_npages = ntohl((ULONG) from->spq_npages);
to->spq_cps = from->spq_cps;
to->spq_pri = from->spq_pri;
to->spq_wpri = ntohs((USHORT) from->spq_wpri);
to->spq_jflags = ntohs(from->spq_jflags);
to->spq_sflags = from->spq_sflags;
to->spq_dflags = from->spq_dflags;
to->spq_extrn = ntohs((USHORT) from->spq_extrn);
to->spq_pglim = ntohs((USHORT) from->spq_pglim);
to->spq_class = ntohl(from->spq_class);
to->spq_pslot = ntohl(-1L);
to->spq_start = ntohl((ULONG) from->spq_start);
to->spq_end = ntohl((ULONG) from->spq_end);
to->spq_haltat = ntohl((ULONG) from->spq_haltat);
to->spq_uid = ntohl(from->spq_uid);
strncpy(to->spq_uname, from->spq_uname, UIDSIZE+1); /* May change later */
strncpy(to->spq_puname, from->spq_puname, UIDSIZE+1);
strncpy(to->spq_file, from->spq_file, MAXTITLE+1);
strncpy(to->spq_form, from->spq_form, MAXFORM+1);
strncpy(to->spq_ptr, from->spq_ptr, JPTRNAMESIZE+1);
strncpy(to->spq_flags, from->spq_flags, MAXFLAGS+1);
}
int tcp_serv_open(SHORT portnum)
{
int result;
struct sockaddr_in sin;
#ifdef SO_REUSEADDR
int on = 1;
#endif
sin.sin_family = AF_INET;
sin.sin_port = portnum;
BLOCK_ZERO(sin.sin_zero, sizeof(sin.sin_zero));
sin.sin_addr.s_addr = INADDR_ANY;
if ((result = socket(PF_INET, SOCK_STREAM, tcpproto)) < 0)
return -1;
#ifdef SO_REUSEADDR
setsockopt(result, SOL_SOCKET, SO_REUSEADDR, (char *) &on, sizeof(on));
#endif
if (bind(result, (struct sockaddr *) &sin, sizeof(sin)) < 0 || listen(result, 5) < 0) {
close(result);
return -1;
}
return result;
}
int tcp_serv_accept(const int msock, netid_t *whofrom)
{
int sock;
SOCKLEN_T sinl;
struct sockaddr_in sin;
sinl = sizeof(sin);
if ((sock = accept(msock, (struct sockaddr *) &sin, &sinl)) < 0)
return -1;
*whofrom = sin.sin_addr.s_addr;
return sock;
}
int udp_serv_open(SHORT portnum)
{
int result;
struct sockaddr_in sin;
sin.sin_family = AF_INET;
sin.sin_port = portnum;
BLOCK_ZERO(sin.sin_zero, sizeof(sin.sin_zero));
sin.sin_addr.s_addr = INADDR_ANY;
/* Open Datagram socket for user access stuff */
if ((result = socket(PF_INET, SOCK_DGRAM, udpproto)) < 0)
return -1;
if (bind(result, (struct sockaddr *) &sin, sizeof(sin)) < 0) {
close(result);
return -1;
}
return result;
}
/* Set up network stuff */
int init_network(void)
{
struct hostent *hp;
struct servent *sp;
struct protoent *pp;
char *tcp_protoname,
*udp_protoname;
/* Get id of local host if different */
if ((hp = gethostbyname("localhost")))
localhostid = *(netid_t *) hp->h_addr;
/* Get TCP/UDP protocol names */
if (!((pp = getprotobyname("tcp")) || (pp = getprotobyname("TCP")))) {
print_error($E{xtnet no TCP protocol});
return 0;
}
tcp_protoname = stracpy(pp->p_name);
tcpproto = pp->p_proto;
if (!((pp = getprotobyname("udp")) || (pp = getprotobyname("UDP")))) {
print_error($E{xtnet no UDP protocol});
return 0;
}
udp_protoname = stracpy(pp->p_name);
udpproto = pp->p_proto;
endprotoent();
if (!(sp = getservbyname(Sname, tcp_protoname))) {
disp_str = (char *) Sname;
disp_str2 = tcp_protoname;
print_error($E{xtnet unknown qserv});
return 0;
}
/* Shhhhhh.... I know this should be network byte order, but
lets leave it alone for now. */
qportnum = sp->s_port;
if (!(sp = getservbyname(Sname, udp_protoname))) {
disp_str = (char *) Sname;
disp_str2 = udp_protoname;
print_error($E{xtnet unknown uaserv});
return 0;
}
uaportnum = sp->s_port;
if (!(sp = getservbyname(ASrname, tcp_protoname))) {
disp_str = (char *) ASrname;
disp_str2 = tcp_protoname;
print_error($E{xtnet unknown apiserv});
apirport = 0;
}
else
apirport = sp->s_port;
if (!(sp = getservbyname(ASmname, udp_protoname))) {
disp_str = (char *) ASmname;
disp_str2 = udp_protoname;
print_error($E{xtnet unknown apipserv});
apipport = 0;
}
else
apipport = sp->s_port;
free(tcp_protoname);
free(udp_protoname);
endservent();
if ((qsock = tcp_serv_open(qportnum)) < 0) {
disp_arg[0] = ntohs(qportnum);
print_error($E{xtnet cannot open qsock});
return 0;
}
if ((uasock = udp_serv_open(uaportnum)) < 0) {
disp_arg[0] = ntohs(uaportnum);
print_error($E{xtnet cannot open uasock});
return 0;
}
if (apirport)
apirsock = tcp_serv_open(apirport);
return 1;
}
/* Generate output file name */
FILE *goutfile(jobno_t *jnp, char *tmpfl, char *pgfl, const int wantreread)
{
FILE *res;
int fid;
for (;;) {
strcpy(tmpfl, mkspid(SPNAM, *jnp));
if ((fid = open(tmpfl, wantreread? O_RDWR|O_CREAT|O_EXCL: O_WRONLY|O_CREAT|O_EXCL, 0400)) >= 0)
break;
*jnp += JN_INC;
}
#ifdef RUN_AS_ROOT
#ifdef HAVE_FCHOWN
if (Daemuid != ROOTID)
fchown(fid, Daemuid, getegid());
#else
if (Daemuid != ROOTID)
chown(tmpfl, Daemuid, getegid());
#endif
#endif
if (!wantreread)
catchsigs(catchdel);
if ((res = fdopen(fid, wantreread? "w+": "w")) == (FILE *) 0) {
unlink(tmpfl);
nomem();
}
/* Generate name now, worry later */
strcpy(pgfl, mkspid(PFNAM, *jnp));
return res;
}
static int sock_read(const int sock, char *buffer, unsigned nbytes)
{
while (nbytes != 0) {
int rbytes = read(sock, buffer, nbytes);
if (rbytes <= 0)
return 0;
buffer += rbytes;
nbytes -= rbytes;
}
return 1;
}
/* Copy job data to output file and count pages.
Version for rspr where we believe the job size etc so we can do it as we go along.
Return 0 (XTNQ_OK) if OK,
-1 if network error, otherwise queueing error. */
int copyout(int sock, FILE *outf, char *delim)
{
int ch;
char *rcp;
int rec_cnt, pgfid = -1, inbytes = 0, incount = 0, retcode = XTNQ_OK;
unsigned sequence = 1;
LONG onpage, char_count = 0;
LONG plim = 0x7fffffffL;
ULONG klim = 0xffffffffL;
char *rcdend;
struct tcp_data inb;
if (SPQ.spq_pglim) {
if (SPQ.spq_dflags & SPQ_PGLIMIT)
plim = SPQ.spq_pglim;
else
klim = (ULONG) SPQ.spq_pglim << 10;
}
SPQ.spq_npages = 0;
onpage = 0;
if (!delim || (pfe.deliml == 1 && pfe.delimnum == 1 && delim[0] == '\f')) {
SPQ.spq_dflags &= SPQ_ERRLIMIT | SPQ_PGLIMIT; /* I didnt mean a ~ here */
while (char_count < SPQ.spq_size) {
if (inbytes <= incount) {
if (!sock_read(sock, (char *) &inb, sizeof(inb)))
goto ioerror;
if (inb.tcp_code != TCP_DATA)
goto lost_sync;
if (inb.tcp_seq != (sequence & 0xff))
goto lost_seq;
sequence++;
inbytes = ntohs(inb.tcp_size);
incount = 0;
}
ch = inb.tcp_buff[incount++];
if ((ULONG) ++char_count > klim) {
SPQ.spq_size = --char_count;
retcode = XTNR_WARN_LIMIT;
break;
}
onpage++;
if (putc(ch, outf) == EOF)
goto ffull;
if (ch == '\f') {
onpage = 0;
if (++SPQ.spq_npages > plim) {
SPQ.spq_size = char_count;
retcode = XTNR_WARN_LIMIT;
break;
}
}
}
if (retcode == XTNR_WARN_LIMIT) {
for (;;) {
if (!sock_read(sock, (char *) &inb, sizeof(inb)))
goto ioerror;
if (inb.tcp_code == TCP_DATA)
continue;
if (inb.tcp_code == TCP_ENDJOB)
break;
goto lost_sync;
}
if (SPQ.spq_dflags & SPQ_ERRLIMIT)
goto toobig;
}
else {
if (char_count != SPQ.spq_size)
goto lost_seq;
if (!sock_read(sock, (char *) &inb, sizeof(inb)))
goto ioerror;
if (inb.tcp_code != TCP_ENDJOB)
goto lost_sync;
}
if (char_count == 0) {
fclose(outf);
unlink(tmpfl);
return XTNR_EMPTYFILE;
}
if (onpage)
SPQ.spq_npages++;
if (fclose(outf) != EOF)
return retcode;
goto ffull;
}
SPQ.spq_dflags |= SPQ_PAGEFILE;
if ((pgfid = open(pgfl, O_WRONLY|O_CREAT|O_TRUNC, 0600)) < 0) {
fclose(outf);
unlink(tmpfl);
return XTNR_CC_PAGEFILE;
}
#ifdef RUN_AS_ROOT
#ifdef HAVE_FCHOWN
if (Daemuid != ROOTID)
fchown(pgfid, Daemuid, getegid());
#else
if (Daemuid != ROOTID)
chown(pgfl, Daemuid, getegid());
#endif
#endif
pfe.lastpage = 0; /* Fix this later perhaps */
write(pgfid, (char *) &pfe, sizeof(pfe));
write(pgfid, delim, (unsigned) pfe.deliml);
rcp = delim;
rcdend = delim + pfe.deliml;
onpage = 0;
rec_cnt = 0;
while (char_count < SPQ.spq_size) {
if (inbytes <= incount) {
if (!sock_read(sock, (char *) &inb, sizeof(inb)))
goto ioerror;
incount = 0;
if (inb.tcp_code != TCP_DATA)
goto lost_sync;
if (inb.tcp_seq != (sequence & 0xff))
goto lost_seq;
sequence++;
inbytes = ntohs(inb.tcp_size);
incount = 0;
}
ch = inb.tcp_buff[incount++];
if ((ULONG) ++char_count > klim) {
SPQ.spq_size = --char_count;
retcode = XTNR_WARN_LIMIT;
break;
}
onpage++;
if (ch == *rcp) {
if (++rcp >= rcdend) {
if (++rec_cnt >= pfe.delimnum) {
if (write(pgfid, (char *) &char_count, sizeof(LONG)) != sizeof(LONG))
goto ffull;
onpage = 0;
rec_cnt = 0;
if (++SPQ.spq_npages > plim) {
SPQ.spq_size = char_count;
retcode = XTNR_WARN_LIMIT;
break;
}
}
rcp = delim;
}
}
else if (rcp > delim) {
char *pp, *prcp, *prevpl;
prevpl = --rcp; /* Last one matched */
for (; rcp > delim; rcp--) {
if (*rcp != ch)
continue;
pp = prevpl;
prcp = rcp - 1;
for (; prcp >= delim; pp--, prcp--)
if (*pp != *prcp)
goto rej;
rcp++;
break;
rej: ;
}
}
if (putc(ch, outf) == EOF)
goto ffull;
}
if (retcode == XTNR_WARN_LIMIT) {
for (;;) {
if (!sock_read(sock, (char *) &inb, sizeof(inb)))
goto ioerror;
if (inb.tcp_code == TCP_DATA)
continue;
if (inb.tcp_code == TCP_ENDJOB)
break;
goto lost_sync;
}
if (SPQ.spq_dflags & SPQ_ERRLIMIT)
goto toobig;
}
else {
if (char_count != SPQ.spq_size)
goto lost_seq;
if (!sock_read(sock, (char *) &inb, sizeof(inb)))
goto ioerror;
if (inb.tcp_code != TCP_ENDJOB)
goto lost_sync;
}
if (char_count == 0) {
fclose(outf);
close(pgfid);
unlink(tmpfl);
unlink(pgfl);
return XTNR_EMPTYFILE;
}
/* Store the offset of the end of the file */
if (write(pgfid, (char *) &SPQ.spq_size, sizeof(LONG)) != sizeof(LONG))
goto ffull;
/* Remember how big the last page was */
if (onpage > 0) {
SPQ.spq_npages++;
if ((pfe.lastpage = pfe.delimnum - rec_cnt) > 0) {
lseek(pgfid, 0L, 0);
write(pgfid, (char *) &pfe, sizeof(pfe));
}
}
if (close(pgfid) < 0)
goto ffull;
if (fclose(outf) != EOF)
return retcode;
ffull:
unlink(tmpfl);
unlink(pgfl);
return XTNR_FILE_FULL;
toobig:
fclose(outf);
unlink(tmpfl);
if (pgfid >= 0) {
close(pgfid);
unlink(pgfl);
}
return XTNR_PAST_LIMIT;
lost_sync:
unlink(tmpfl);
unlink(pgfl);
return XTNR_LOST_SYNC;
lost_seq:
unlink(tmpfl);
unlink(pgfl);
return XTNR_LOST_SEQ;
ioerror:
unlink(tmpfl);
unlink(pgfl);
return -1;
}
void q_reply(const int sock, const int flag, const jobno_t code)
{
struct client_if result;
result.resvd[0] = result.resvd[1] = result.resvd[2] = '\0';
result.flag = (unsigned char) flag;
result.jobnum = htonl((ULONG) code);
write(sock, (char *) &result, sizeof(result));
}
int validate_job(struct spq *jp)
{
uid_t Realuid = jp->spq_uid;
struct spdet *spuser;
/* Find out the privileges of the specified user.
If we don't know the posting user, quietly zap it. */
if (!(spuser = getspuentry(Realuid)))
return XTNR_NOT_USERNAME;
if (lookup_uname(jp->spq_puname) == UNKNOWN_UID)
strcpy(jp->spq_puname, jp->spq_uname);
/* Validate class code of job, priority, copies */
if (!(spuser->spu_flgs & PV_COVER))
jp->spq_class &= spuser->spu_class;
if (jp->spq_class == 0)
return XTNR_ZERO_CLASS;
if (jp->spq_pri < spuser->spu_minp || jp->spq_pri > spuser->spu_maxp)
return XTNR_BAD_PRIORITY;
if (!(spuser->spu_flgs & PV_ANYPRIO) && jp->spq_cps > spuser->spu_cps)
return XTNR_BAD_COPIES;
/* Validate form type, if none given plug in standard form.
Likewise printer. */
if (jp->spq_form[0] == '\0') {
strncpy(jp->spq_form, spuser->spu_form, MAXFORM);
jp->spq_form[MAXFORM] = '\0';
}
else if (!((spuser->spu_flgs & PV_FORMS) || qmatch(spuser->spu_formallow, jp->spq_form)))
return XTNR_BAD_FORM;
if (jp->spq_ptr[0] == '\0') {
strncpy(jp->spq_ptr, spuser->spu_ptr, JPTRNAMESIZE);
jp->spq_ptr[JPTRNAMESIZE] = '\0';
}
else if (!((spuser->spu_flgs & PV_OTHERP) || issubset(spuser->spu_ptrallow, jp->spq_ptr)))
return XTNR_BAD_PTR;
/* Quietly fix anything we don't want to fuss about */
if (jp->spq_nptimeout == 0)
jp->spq_nptimeout = QNPTIMEOUT;
if (jp->spq_ptimeout == 0)
jp->spq_ptimeout = QPTIMEOUT;
jp->spq_haltat = 0L;
if (jp->spq_start > jp->spq_end) {
jp->spq_start = 0L;
jp->spq_end = 0x7ffffffeL;
}
if (jp->spq_hold != 0 && (time_t) jp->spq_hold < time((time_t *) 0))
jp->spq_hold = 0;
return 0;
}
void convert_username(struct hhash *frp, struct spq *jp)
{
if (frp->rem.ht_flags & HT_DOS) {
char *unam = frp->dosname;
if (frp->rem.ht_flags & HT_ROAMUSER) {
unam = frp->actname;
jp->spq_jflags |= SPQ_ROAMUSER;
}
strcpy(jp->spq_uname, unam);
jp->spq_uid = lookup_uname(unam);
jp->spq_jflags |= SPQ_CLIENTJOB;
}
else { /* Unix end - transmogrify user name */
int_ugid_t realu = lookup_uname(jp->spq_uname);
if (realu == UNKNOWN_UID)
realu = Daemuid;
jp->spq_uid = realu;
strcpy(jp->spq_uname, prin_uname((uid_t) realu));
}
}
/* Code executed by child process to continue queueing job. */
static int qrest(const int sock, const netid_t netid)
{
int tries, ret;
struct hhash *frp;
char *delim = (char *) 0;
FILE *outf;
jobno_t jn;
/* Check that we believe the user name and host name */
if (!(frp = find_remote(netid))) {
q_reply(sock, XTNR_UNKNOWN_CLIENT, (jobno_t) 0);
return 0;
}
convert_username(frp, &SPQ);
if ((ret = validate_job(&SPQ)) != 0) {
q_reply(sock, ret, (jobno_t) 0);
return 0;
}
/* See if the job has a page delimiter. */
if (SPQ.spq_dflags & SPQ_PAGEFILE) {
struct tcp_data inb;
struct pages *inpg = (struct pages *) inb.tcp_buff;
if (!sock_read(sock, (char *) &inb, sizeof(inb))) {
q_reply(sock, XTNR_BAD_PF, (jobno_t) 0);
return 0;
}
if (inb.tcp_code != TCP_PAGESPEC) {
q_reply(sock, XTNR_LOST_SYNC, (jobno_t) 0);
return 0;
}
pfe.delimnum = ntohl((ULONG) inpg->delimnum);
pfe.deliml = ntohl((ULONG) inpg->deliml);
pfe.lastpage = ntohl((ULONG) inpg->lastpage);
if (pfe.deliml <= 0) {
q_reply(sock, XTNR_BAD_PF, (jobno_t) 0);
return 0;
}
if (!(delim = malloc((unsigned) pfe.deliml))) {
q_reply(sock, XTNR_NOMEM_PF, (jobno_t) 0);
return 0;
}
if (!sock_read(sock, delim, (unsigned) pfe.deliml)) {
q_reply(sock, XTNR_BAD_PF, (jobno_t) 0);
return 0;
}
}
SPQ.spq_time = time((time_t *) 0);
SPQ.spq_orighost = netid == myhostid || netid == localhostid? 0: netid;
/* On DOS machines make up a job number from the current time
mashed up with the host id.
On Unix machines Use job number from other machine */
if (frp->rem.ht_flags & HT_DOS)
jn = (ULONG) (ntohl(netid) + SPQ.spq_time) % JOB_MOD;
else
jn = SPQ.spq_job;
sp_req.spr_un.j.spr_pid = getpid();
outf = goutfile(&jn, tmpfl, pgfl, 0);
SPQ.spq_job = jn;
if ((ret = copyout(sock, outf, delim)) != XTNQ_OK && ret != XTNR_WARN_LIMIT) {
if (delim)
free(delim);
if (ret >= 0)
q_reply(sock, ret, (jobno_t) 0);
return ret == XTNR_PAST_LIMIT? 1: 0;
}
/* Finished with delimiter */
if (delim)
free(delim);
for (tries = 0; tries < MAXTRIES; tries++) {
if (wjmsg(&sp_req, &SPQ) == 0) {
q_reply(sock, ret, jn);
return 1;
}
sleep(TRYTIME);
}
unlink(tmpfl);
unlink(pgfl);
q_reply(sock, XTNR_QFULL, (jobno_t) 0);
return 0;
}
static int jobthere(int sock)
{
struct tcp_data inb;
if (!sock_read(sock, (char *) &inb, sizeof(inb)))
return 0;
if (inb.tcp_code != TCP_STARTJOB) {
if (inb.tcp_code != TCP_CLOSESOCK)
q_reply(sock, XTNR_LOST_SYNC, (jobno_t) 0);
return 0;
}
unpack_job(&SPQ, (struct spq *) inb.tcp_buff);
return 1;
}
/* Process requests to enqueue file */
void process_q(void)
{
int sock;
PIDTYPE pid;
netid_t whofrom;
#ifdef STRUCT_SIG
struct sigstruct_name zch;
zch.sighandler_el = SIG_IGN;
sigmask_clear(zch);
zch.sigflags_el = SIGVEC_INTFLAG;
sigact_routine(QRFRESH, &zch, (struct sigstruct_name *) 0);
#else
signal(QRFRESH, SIG_IGN);
#endif
if ((sock = tcp_serv_accept(qsock, &whofrom)) < 0)
return;
if ((pid = fork()) < 0) {
print_error($E{Internal cannot fork});
return;
}
#ifndef BUGGY_SIGCLD
if (pid != 0) {
close(sock);
return;
}
#else
/* Make the process the grandchild so we don't have to worry
about waiting for it later. */
if (pid != 0) {
#ifdef HAVE_WAITPID
while (waitpid(pid, (int *) 0, 0) < 0 && errno == EINTR)
;
#else
PIDTYPE wpid;
while ((wpid = wait((int *) 0)) != pid && (wpid >= 0 || errno == EINTR))
;
#endif
close(sock);
return;
}
if (fork() != 0)
exit(0);
#endif
while (jobthere(sock) && qrest(sock, whofrom))
;
close(sock);
exit(0);
}
void process(void)
{
int nret;
unsigned nexttime;
int highfd;
fd_set ready;
highfd = qsock;
if (uasock > highfd)
highfd = uasock;
if (apirsock > highfd)
highfd = apirsock;
for (;;) {
alarm(nexttime = process_alarm());
FD_ZERO(&ready);
FD_SET(qsock, &ready);
FD_SET(uasock, &ready);
if (apirsock >= 0)
FD_SET(apirsock, &ready);
if ((nret = select(highfd+1, &ready, (fd_set *) 0, (fd_set *) 0, (struct timeval *) 0)) < 0) {
if (errno == EINTR) {
if (had_alarm) {
had_alarm = 0;
alarm(nexttime = process_alarm());
}
hadrfresh = 0;
continue;
}
exit(0);
}
if (nexttime != 0)
alarm(0);
if (FD_ISSET(qsock, &ready)) {
process_q();
if (--nret <= 0)
continue;
}
if (FD_ISSET(uasock, &ready)) {
process_ua();
if (--nret <= 0)
continue;
}
if (apirsock >= 0 && FD_ISSET(apirsock, &ready))
process_api();
}
}
void trace_dtime(char *buf)
{
time_t now = time(0);
struct tm *tp = localtime(&now);
int mon = tp->tm_mon+1, mday = tp->tm_mday;
#ifdef HAVE_TM_ZONE
if (tp->tm_gmtoff <= -4 * 60 * 60)
#else
if (timezone >= 4 * 60 * 60)
#endif
{
mday = mon;
mon = tp->tm_mday;
}
sprintf(buf, "%.2d/%.2d/%.2d|%.2d:%.2d:%.2d", mday, mon, tp->tm_year%100, tp->tm_hour, tp->tm_min, tp->tm_sec);
}
void trace_op(const int_ugid_t uid, const char *op)
{
char tbuf[20];
trace_dtime(tbuf);
fprintf(tracefile, "%s|%.5d|%s|%s\n", tbuf, getpid(), prin_uname(uid), op);
fflush(tracefile);
}
void trace_op_res(const int_ugid_t uid, const char *op, const char *res)
{
char tbuf[20];
trace_dtime(tbuf);
fprintf(tracefile, "%s|%.5d|%s|%s|%s\n", tbuf, getpid(), prin_uname(uid), op, res);
fflush(tracefile);
}
void client_trace_op(const netid_t nid, const char *op)
{
char tbuf[20];
trace_dtime(tbuf);
fprintf(tracefile, "%s|%.5d|client:%s|%s\n", tbuf, getpid(), look_host(nid), op);
fflush(tracefile);
}
void client_trace_op_name(const netid_t nid, const char *op, const char *uid)
{
char tbuf[20];
trace_dtime(tbuf);
fprintf(tracefile, "%s|%.5d|client:%s|%s|%s\n", tbuf, getpid(), look_host(nid), op, uid);
fflush(tracefile);
}
#endif /* NETWORK_VERSION */
/* Ye olde main routine.
I don't expect any arguments & will ignore any the fool gives me,
apart from remembering my name. */
MAINFN_TYPE main(int argc, char **argv)
{
#ifdef NETWORK_VERSION
int_ugid_t chku;
char *trf;
#ifndef DEBUG
PIDTYPE pid;
#endif
#ifdef STRUCT_SIG
struct sigstruct_name zch;
#endif
versionprint(argv, "$Revision: 1.2 $", 1);
if ((progname = strrchr(argv[0], '/')))
progname++;
else
progname = argv[0];
Realuid = getuid();
Effuid = geteuid();
init_mcfile();
if ((Cfile = open_icfile()) == (FILE *) 0)
exit(E_NOCONFIG);
if ((chku = lookup_uname(SPUNAME)) == UNKNOWN_UID)
Daemuid = ROOTID;
else
Daemuid = chku;
/* Revert to spooler user (we are setuser to root) */
#ifdef SCO_SECURITY
#ifdef RUN_AS_ROOT
setluid(ROOTID);
setuid(ROOTID);
#else
setluid(Daemuid);
setuid(Daemuid);
#endif
#else
#ifdef RUN_AS_ROOT
setuid(ROOTID);
#else
setuid(Daemuid);
#endif
#endif
spdir = envprocess(SPDIR);
if (chdir(spdir) < 0)
print_error($E{Cannot chdir});
/* Set up tracing perhaps */
trf = envprocess(XTNETTRACE);
tracing = atoi(trf);
free(trf);
if (tracing) {
trf = envprocess(XTNETTRFILE);
tracefile = fopen(trf, "a");
free(trf);
if (!tracefile)
tracing = 0;
}
/* Initial processing of host file */
process_hfile();
#ifdef STRUCT_SIG
zch.sighandler_el = catchhup;
sigmask_clear(zch);
zch.sigflags_el = SIGVEC_INTFLAG;
sigact_routine(SIGHUP, &zch, (struct sigstruct_name *) 0);
#else
signal(SIGHUP, catchhup);
#endif
openrfile();
if (!init_network()) {
print_error($E{xtnet aborted});
exit(E_NETERR);
}
#ifndef DEBUG
while ((pid = fork()) < 0) {
print_error($E{Fork waiting});
sleep(30);
}
if (pid != 0)
return 0;
#ifdef SETPGRP_VOID
setpgrp();
#else
setpgrp(0, getpid());
#endif
catchsigs(catchabort);
#endif /* ! DEBUG */
#ifndef BUGGY_SIGCLD
#ifdef STRUCT_SIG
zch.sighandler_el = SIG_IGN;
#ifdef SA_NOCLDWAIT
zch.sigflags_el |= SA_NOCLDWAIT;
#endif
sigact_routine(SIGCLD, &zch, (struct sigstruct_name *) 0);
#else
signal(SIGCLD, SIG_IGN);
#endif
#endif
lognprocess();
sp_req.spr_mtype = MT_SCHED;
sp_req.spr_un.j.spr_act = SJ_ENQ;
sp_req.spr_un.j.spr_seq = 0;
sp_req.spr_un.j.spr_netid = 0;
sp_req.spr_un.j.spr_jslot = 0;
sp_req.spr_un.j.spr_pid = getpid();
send_askall();
process();
#endif
return 0; /* Not reached */
}
gnuspool-1.7ubuntu1/src/remcgi/ 0000775 0000000 0000000 00000000000 11421757504 013506 5 ustar gnuspool-1.7ubuntu1/src/remcgi/rsqvcgi.c 0000664 0000000 0000000 00000013556 11421757504 015342 0 ustar /* rsqvcgi.c -- remote CGI view jobs
Copyright 2008 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 3 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 . */
#include
#include
#include
#include "gspool.h"
#ifdef TIME_WITH_SYS_TIME
#include
#include
#elif defined(HAVE_SYS_TIME_H)
#include
#else
#include
#endif
#include
#include "network.h"
#include "ecodes.h"
#include "errnums.h"
#include "files.h"
#include "incl_unix.h"
#include "incl_ugid.h"
#include "cfile.h"
#include "xihtmllib.h"
#include "cgiuser.h"
#include "rcgilib.h"
#define LOTSANDLOTS 99999999L /* Maximum page number */
int gspool_fd;
char *realuname;
struct apispdet mypriv;
int Njobs, Nptrs;
struct apispq *job_list;
slotno_t *jslot_list;
struct ptr_with_slot *ptr_sl_list;
/* For when we run out of memory..... */
void nomem(void)
{
fprintf(stderr, "Ran out of memory\n");
exit(E_NOMEM);
}
#define PAGE_LUMP 100
void perform_view(char *jnum, char *pnum)
{
int myjob, haspgfile = 0;
unsigned wpage = 0;
LONG *pageoffs = (LONG *) 0;
FILE *ifl;
struct jobswanted jw;
struct apispq job;
if (!jnum || decode_jnum(jnum, &jw)) {
html_out_or_err("sbadargs", 1);
exit(0);
}
if (gspool_jobfind(gspool_fd, GSPOOL_FLAG_IGNORESEQ, jw.jno, jw.host, &jw.slot, &job) < 0) {
jobgone:
html_out_cparam_file("jobgone", 1, jnum);
exit(0);
}
myjob = strcmp(realuname, job.apispq_uname) == 0;
if (!((mypriv.spu_flgs & PV_VOTHERJ) || myjob) ||
(job.apispq_netid != dest_hostid && !(mypriv.spu_flgs & PV_REMOTEJ))) {
html_out_cparam_file("nopriv", 1, jnum);
exit(0);
}
/* If file is not paged, wpage will be left at 0 */
if (job.apispq_npages > 1 && pnum && isdigit(pnum[0])) {
/* Set up wpage in case we don't have a page file */
wpage = strtoul(pnum, (char **) 0, 0);
if (wpage == 0)
wpage = 1;
else if (wpage > job.apispq_npages)
wpage = job.apispq_npages;
if ((ifl = gspool_jobpbrk(gspool_fd, GSPOOL_FLAG_IGNORESEQ, jw.slot))) {
int cnt, nitems;
unsigned npc = 0, nalloc = 0;
struct apipages pfe;
if (fread((char *) &pfe, sizeof(pfe), 1, ifl) != 1) {
fclose(ifl);
goto nopf;
}
/* Skim over delimiter */
for (cnt = 0; cnt < pfe.deliml; cnt++)
if (getc(ifl) == EOF)
break;
do {
if (npc >= nalloc) {
nalloc += PAGE_LUMP;
if (npc != 0)
pageoffs = (LONG *) realloc((char *) pageoffs, nalloc * sizeof(LONG));
else
pageoffs = (LONG *) malloc(nalloc * sizeof(LONG));
if (!pageoffs)
html_nomem();
}
nitems = fread((char *) &pageoffs[npc], sizeof(LONG), PAGE_LUMP, ifl);
npc += nitems;
} while (nitems > 0);
fclose(ifl);
if (npc < wpage) {
wpage = 0; /* Huh? */
goto nopf;
}
haspgfile = 1;
}
}
nopf:
if (!(ifl = gspool_jobdata(gspool_fd, GSPOOL_FLAG_IGNORESEQ, jw.slot)))
goto jobgone;
html_out_or_err("viewstart", 1);
if (wpage != 0) {
int ch = EOF;
unsigned current_page = 1;
fputs("\n
\n", stdout);
/* Find start of required page */
if (haspgfile) {
/* Case where delimiter is not a formfeed */
LONG current_offset = 0L;
while (current_page < wpage) {
while (current_offset < pageoffs[current_page] && (ch = getc(ifl)) != EOF)
current_offset++;
current_page++;
}
while (current_offset < pageoffs[current_page]) {
if ((ch = getc(ifl)) == EOF)
break;
html_pre_putchar(ch);
current_offset++;
}
}
else {
/* Delimiter is a formfeed.
Read through to start of page and then spit out
the page */
while (current_page < wpage) {
while ((ch = getc(ifl)) != '\f' && ch != EOF)
;
current_page++;
}
while ((ch = getc(ifl)) != '\f' && ch != EOF)
html_pre_putchar(ch);
}
/* Soak up rest of file */
while (ch != EOF)
ch = getc(ifl);
}
else {
int ch;
fputs("\n
\n", stdout);
html_out_or_err("viewend", 0);
}
/* Ye olde main routine. */
MAINFN_TYPE main(int argc, char **argv)
{
char **newargs;
int_ugid_t chku;
versionprint(argv, "$Revision: 1.1 $", 0);
if ((progname = strrchr(argv[0], '/')))
progname++;
else
progname = argv[0];
init_mcfile();
html_openini();
hash_hostfile();
Effuid = geteuid();
if ((chku = lookup_uname(SPUNAME)) == UNKNOWN_UID)
Daemuid = ROOTID;
else
Daemuid = chku;
newargs = cgi_arginterp(argc, argv, CGI_AI_REMHOST|CGI_AI_SUBSID);
/* Side effect of cgi_arginterp is to set Realuid */
Cfile = open_cfile(MISC_UCONFIG, "rest.help");
realuname = prin_uname(Realuid);
setgid(getgid());
setuid(Realuid);
api_open(realuname);
perform_view(newargs[0], newargs[1]);
return 0;
}
gnuspool-1.7ubuntu1/src/remcgi/rsqcgi.c 0000664 0000000 0000000 00000057042 11421757504 015152 0 ustar /* rsqcgi.c -- remote CGI list jobs
Copyright 2008 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 3 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 . */
#include
#include
#include
#include "gspool.h"
#ifdef TIME_WITH_SYS_TIME
#include
#include
#elif defined(HAVE_SYS_TIME_H)
#include
#else
#include
#endif
#include
#include "network.h"
#include "ecodes.h"
#include "errnums.h"
#include "files.h"
#include "incl_unix.h"
#include "incl_ugid.h"
#include "cfile.h"
#include "displayopt.h"
#include "xihtmllib.h"
#include "cgiuser.h"
#include "listperms.h"
#include "rcgilib.h"
int nopage = -1,
headerflag = -1;
char *formatstring;
char sdefaultfmt[] = "LN Lu Lh Lf LQ RS Rc Rp LP",
npdefaultfmt[] = "LN Lu Lh Lf LL RK Rc Rp LP";
char *realuname;
int gspool_fd;
struct apispdet mypriv;
char bigbuff[200];
static char *localptr;
int Njobs, Nptrs;
struct apispq *job_list;
slotno_t *jslot_list;
struct ptr_with_slot *ptr_sl_list;
/* For when we run out of memory..... */
void nomem(void)
{
fprintf(stderr, "Ran out of memory\n");
exit(E_NOMEM);
}
void fmt_setup(void)
{
if (!formatstring) {
if (!(formatstring = html_inistr("format", (char *) 0)))
formatstring = nopage? npdefaultfmt: sdefaultfmt;
}
}
extern char * hex_disp(const classcode_t, const int);
typedef unsigned fmt_t;
#define LOTSANDLOTS 99999999L /* Maximum page number */
#define INLINE_SQLIST
#define spq apispq
#define spq_job apispq_job
#define spq_netid apispq_netid
#define spq_orighost apispq_orighost
#define spq_rslot apispq_rslot
#define spq_time apispq_time
#define spq_proptime apispq_proptime
#define spq_starttime apispq_starttime
#define spq_hold apispq_hold
#define spq_nptimeout apispq_nptimeout
#define spq_ptimeout apispq_ptimeout
#define spq_size apispq_size
#define spq_posn apispq_posn
#define spq_pagec apispq_pagec
#define spq_npages apispq_npages
#define spq_cps apispq_cps
#define spq_pri apispq_pri
#define spq_wpri apispq_wpri
#define spq_jflags apispq_jflags
#define SPQ_NOH APISPQ_NOH
#define SPQ_WRT APISPQ_WRT
#define SPQ_MAIL APISPQ_MAIL
#define SPQ_RETN APISPQ_RETN
#define SPQ_ODDP APISPQ_ODDP
#define SPQ_EVENP APISPQ_EVENP
#define SPQ_REVOE APISPQ_REVOE
#define SPQ_MATTN APISPQ_MATTN
#define SPQ_WATTN APISPQ_WATTN
#define SPQ_LOCALONLY APISPQ_LOCALONLY
#define SPQ_CLIENTJOB APISPQ_CLIENTJOB
#define SPQ_ROAMUSER APISPQ_ROAMUSER
#define spq_sflags apispq_sflags
#define SPQ_ASSIGN APISPQ_ASSIGN
#define SPQ_WARNED APISPQ_WARNED
#define SPQ_PROPOSED APISPQ_PROPOSED
#define SPQ_ABORTJ APISPQ_ABORTJ
#define spq_dflags apispq_dflags
#define SPQ_PQ APISPQ_PQ
#define SPQ_PRINTED APISPQ_PRINTED
#define SPQ_STARTED APISPQ_STARTED
#define SPQ_PAGEFILE APISPQ_PAGEFILE
#define SPQ_ERRLIMIT APISPQ_ERRLIMIT
#define SPQ_PGLIMIT APISPQ_PGLIMIT
#define spq_extrn apispq_extrn
#define spq_pglim apispq_pglim
#define spq_class apispq_class
#define spq_pslot apispq_pslot
#define spq_start apispq_start
#define spq_end apispq_end
#define spq_haltat apispq_haltat
#define spq_uid apispq_uid
#define spq_uname apispq_uname
#define spq_puname apispq_puname
#define spq_file apispq_file
#define spq_form apispq_form
#define spq_ptr apispq_ptr
#define spq_flags apispq_flags
#define SPP_NULL API_PRNULL
#include "inline/jfmt_wattn.c"
#include "inline/jfmt_class.c"
#include "inline/jfmt_ppf.c"
#include "inline/jfmt_hold.c"
#include "inline/jfmt_sizek.c"
#include "inline/jfmt_krchd.c"
static fmt_t fmt_jobno(const struct spq *jp, const int fwidth)
{
if (jp->spq_netid != dest_hostid)
sprintf(bigbuff, "%s:%ld", look_host(jp->spq_netid), (long) jp->spq_job);
else
sprintf(bigbuff, "%ld", (long) jp->spq_job);
return 0; /* Don't really worry about result */
}
#include "inline/jfmt_oddev.c"
static fmt_t fmt_printer(const struct apispq *jp, const int fwidth)
{
if (jp->apispq_dflags & APISPQ_PQ) {
struct apispptr *pp = find_ptr(jp->apispq_pslot);
if (pp && pp->apispp_state != SPP_NULL) {
if (pp->apispp_netid == dest_hostid)
sprintf(bigbuff, "%s:%s", look_host(pp->apispp_netid), pp->apispp_ptr);
else
strcpy(bigbuff, pp->apispp_ptr);
return 0;
}
strcpy(bigbuff, localptr);
return 0;
}
strcpy(bigbuff, jp->apispq_ptr);
return 0;
}
#include "inline/jfmt_pgrch.c"
#include "inline/jfmt_range.c"
#include "inline/jfmt_szpgs.c"
#include "inline/jfmt_nptim.c"
#include "inline/jfmt_user.c"
#include "inline/jfmt_puser.c"
#include "inline/jfmt_stime.c"
#include "inline/jfmt_mattn.c"
#include "inline/jfmt_cps.c"
#include "inline/jfmt_form.c"
#include "inline/jfmt_title.c"
#include "inline/jfmt_loco.c"
#include "inline/jfmt_mail.c"
#include "inline/jfmt_prio.c"
#include "inline/jfmt_retn.c"
#include "inline/jfmt_supph.c"
#include "inline/jfmt_ptime.c"
#include "inline/jfmt_write.c"
static fmt_t fmt_orighost(const struct apispq *jp, const int fwidth)
{
if (jp->apispq_jflags & HT_ROAMUSER)
sprintf(bigbuff, "(%s)", jp->apispq_uname);
strcpy(bigbuff, look_host(jp->apispq_orighost));
return 0;
}
static int get_delim(const struct apispq *jp, int *num, int *lng, char **delimp)
{
/* jp is an entry in job_list the way this is used */
FILE *ifl = gspool_jobpbrk(gspool_fd, GSPOOL_FLAG_IGNORESEQ, jslot_list[jp - job_list]);
struct apipages fpl;
if (!ifl)
return 0;
if (fread((char *) &fpl, sizeof(fpl), 1, ifl) != 1)
return 0;
*num = fpl.delimnum;
*lng = fpl.deliml;
if (!(*delimp = malloc((unsigned) fpl.deliml)))
html_nomem();
if (fread(*delimp, 1, fpl.deliml, ifl) != fpl.deliml) {
free(*delimp);
return 0;
}
while (getc(ifl) != EOF)
;
fclose(ifl);
return 1;
}
static fmt_t fmt_delimnum(const struct spq *jp, const int fwidth)
{
char *delim;
int ndelim = 1, lng;
if (get_delim(jp, &ndelim, &lng, &delim))
free(delim);
sprintf(bigbuff, "%d", ndelim);
return 0;
}
static fmt_t fmt_delim(const struct spq *jp, const int fwidth)
{
char *delim;
int ndelim = 1, lng;
char *outp = bigbuff;
if (get_delim(jp, &ndelim, &lng, &delim)) {
int ii;
for (ii = 0; ii < lng; ii++) {
int ch = delim[ii] & 255;
if (!isascii(ch))
sprintf(outp, "\\x%.2x", ch);
else if (iscntrl(ch)) {
switch (ch) {
case 033:
strcpy(outp, "\\e");
break;
case ('h' & 0x1f):
strcpy(outp, "\\b");
break;
case '\r':
strcpy(outp, "\\r");
break;
case '\n':
strcpy(outp, "\\n");
break;
case '\f':
strcpy(outp, "\\f");
break;
case '\t':
strcpy(outp, "\\t");
break;
case '\v':
strcpy(outp, "\\v");
break;
default:
sprintf(outp, "^%c", ch | 0x40);
break;
}
}
else {
if (ch == '\\' || ch == '^')
*outp++ = ch;
*outp++ = ch;
continue;
}
outp += strlen(outp);
}
free((char *) delim);
*outp = '\0';
}
else
strcpy(bigbuff, "\\f");
return 0;
}
/* Mapping of format characters (assumed A-Z a-z) and format routines */
struct formatdef {
SHORT statecode; /* Code number for heading if applicable */
char alch; /* Default align char */
char *msg; /* Heading */
unsigned (*fmt_fn)(const struct apispq *, const int);
};
#define NULLCP (char *) 0
struct formatdef
uppertab[] = { /* A-Z */
{ $P{job fmt title}+'A'-1, 'L', NULLCP, fmt_wattn }, /* A */
{ 0, 'L', NULLCP, 0 }, /* B */
{ $P{job fmt title}+'C'-1, 'L', NULLCP, fmt_class }, /* C */
{ $P{job fmt title}+'D'-1, 'L', NULLCP, fmt_delim }, /* D */
{ 0, 'L', NULLCP, 0 }, /* E */
{ $P{job fmt title}+'F'-1, 'L', NULLCP, fmt_ppflags }, /* F */
{ $P{job fmt title}+'G'-1, 'L', NULLCP, fmt_hat }, /* G */
{ $P{job fmt title}+'H'-1, 'L', NULLCP, fmt_hold }, /* H */
{ 0, 'L', NULLCP, 0 }, /* I */
{ 0, 'L', NULLCP, 0 }, /* J */
{ $P{job fmt title}+'K'-1, 'R', NULLCP, fmt_sizek }, /* K */
{ $P{job fmt title}+'L'-1, 'L', NULLCP, fmt_kreached }, /* L */
{ 0, 'L', NULLCP, 0 }, /* M */
{ $P{job fmt title}+'N'-1, 'L', NULLCP, fmt_jobno }, /* N */
{ $P{job fmt title}+'O'-1, 'L', NULLCP, fmt_oddeven }, /* O */
{ $P{job fmt title}+'P'-1, 'L', NULLCP, fmt_printer }, /* P */
{ $P{job fmt title}+'Q'-1, 'L', NULLCP, fmt_pgreached }, /* Q */
{ $P{job fmt title}+'R'-1, 'L', NULLCP, fmt_range }, /* R */
{ $P{job fmt title}+'S'-1, 'R', NULLCP, fmt_szpages }, /* S */
{ $P{job fmt title}+'T'-1, 'L', NULLCP, fmt_nptime }, /* T */
{ $P{job fmt title}+'U'-1, 'L', NULLCP, fmt_puser }, /* U */
{ 0, 'L', NULLCP, 0 }, /* V */
{ $P{job fmt title}+'W'-1, 'L', NULLCP, fmt_stime }, /* W */
{ 0, 'L', NULLCP, 0 }, /* X */
{ 0, 'L', NULLCP, 0 }, /* Y */
{ 0, 'L', NULLCP, 0 } /* Z */
},
lowertab[] = { /* a-z */
{ $P{job fmt title}+'a'-1, 'L', NULLCP, fmt_mattn }, /* a */
{ 0, 'L', NULLCP, 0 }, /* b */
{ $P{job fmt title}+'c'-1, 'R', NULLCP, fmt_cps }, /* c */
{ $P{job fmt title}+'d'-1, 'L', NULLCP, fmt_delimnum }, /* d */
{ 0, 'L', NULLCP, 0 }, /* e */
{ $P{job fmt title}+'f'-1, 'L', NULLCP, fmt_form }, /* f */
{ 0, 'L', NULLCP, 0 }, /* g */
{ $P{job fmt title}+'h'-1, 'L', NULLCP, fmt_title }, /* h */
{ 0, 'L', NULLCP, 0 }, /* i */
{ 0, 'L', NULLCP, 0 }, /* j */
{ 0, 'L', NULLCP, 0 }, /* k */
{ $P{job fmt title}+'l'-1, 'L', NULLCP, fmt_localonly }, /* l */
{ $P{job fmt title}+'m'-1, 'L', NULLCP, fmt_mail }, /* m */
{ 0, 'L', NULLCP, 0 }, /* n */
{ $P{job fmt title}+'o'-1, 'L', NULLCP, fmt_orighost }, /* o */
{ $P{job fmt title}+'p'-1, 'R', NULLCP, fmt_prio }, /* p */
{ $P{job fmt title}+'q'-1, 'L', NULLCP, fmt_retain }, /* q */
{ 0, 'L', NULLCP, 0 }, /* r */
{ $P{job fmt title}+'s'-1, 'L', NULLCP, fmt_supph }, /* s */
{ $P{job fmt title}+'t'-1, 'L', NULLCP, fmt_ptime }, /* t */
{ $P{job fmt title}+'u'-1, 'L', NULLCP, fmt_user }, /* u */
{ 0, 'L', NULLCP, 0 }, /* v */
{ $P{job fmt title}+'w'-1, 'L', NULLCP, fmt_write }, /* w */
{ 0, 'L', NULLCP, 0 }, /* x */
{ 0, 'L', NULLCP, 0 }, /* y */
{ 0, 'L', NULLCP, 0 } /* z */
};
void print_hdrfmt(struct formatdef *fp)
{
if (!fp->fmt_fn)
return;
if (!fp->msg)
fp->msg = gprompt(fp->statecode);
html_fldprint(fp->msg);
}
struct altype {
char *str; /* Align string for html */
char ch; /* Align char */
} altypes[] = {
{ "left", 'L' },
{ "right", 'R' },
{ "center", 'C' }
};
#define NALIGNTYPES (sizeof(altypes) / sizeof(struct altype))
struct altype *commonest_align = &altypes[0];
struct altype *lookup_align(const int alch)
{
int cnt;
for (cnt = 0; cnt < NALIGNTYPES; cnt++)
if (altypes[cnt].ch == alch)
return &altypes[cnt];
return commonest_align;
}
struct colfmt {
struct formatdef *form;
char *alstr;
};
struct colfmt *cflist;
int ncolfmts, maxcolfmts;
#define INITCF 10
#define INCCF 5
void find_commonest(char *fp)
{
int rvec[NALIGNTYPES];
int cnt, mx = 0, ind = 0, fmch;
struct altype *whichalign;
struct formatdef *fd;
for (cnt = 0; cnt < NALIGNTYPES; cnt++)
rvec[cnt] = 0;
if (!(cflist = (struct colfmt *) malloc(INITCF * sizeof(struct colfmt))))
nomem();
maxcolfmts = INITCF;
while (*fp) {
while (*fp && !isalpha(*fp))
fp++;
if (!*fp)
break;
whichalign = lookup_align(*fp++);
rvec[whichalign - &altypes[0]]++;
fmch = *fp++;
if (!isalpha(fmch))
break;
fd = isupper(fmch)? &uppertab[fmch - 'A']: &lowertab[fmch - 'a'];
if (!fd->fmt_fn)
continue;
if (ncolfmts >= maxcolfmts) {
maxcolfmts += INCCF;
cflist = (struct colfmt *) realloc((char *) cflist, (unsigned) (maxcolfmts * sizeof(struct colfmt)));
if (!cflist)
nomem();
}
cflist[ncolfmts].form = fd;
cflist[ncolfmts].alstr = whichalign->str;
ncolfmts++;
}
for (cnt = 0; cnt < NALIGNTYPES; cnt++)
if (mx < rvec[cnt]) {
mx = rvec[cnt];
ind = cnt;
}
commonest_align = &altypes[ind];
for (cnt = 0; cnt < ncolfmts; cnt++)
if (cflist[cnt].alstr == commonest_align->str)
cflist[cnt].alstr = (char *) 0;
}
void startrow(void)
{
printf("
\n", commonest_align->str);
}
void startcell(const int celltype, const char *str)
{
if (str)
printf("", celltype, str);
else
printf("", celltype);
}
/* Display contents of job file. */
void jdisplay(void)
{
int fcnt, jcnt;
unsigned pflgs = 0;
/*
included in pre-list file so as to possibly include formatting elements */
find_commonest(formatstring);
/* Possibly insert header */
if (headerflag) {
/* Possibly insert first header showing options */
if (Displayopts.opt_restrp || Displayopts.opt_restru ||
Displayopts.opt_localonly == NRESTR_LOCALONLY ||
Displayopts.opt_jprindisp != JRESTR_ALL) {
startrow();
printf("
included in pre-list file so as to possibly include formatting elements */
find_commonest(formatstring);
/* Possibly insert header */
if (headerflag) {
/* Possibly insert first header showing options */
if (Displayopts.opt_restrp || Displayopts.opt_localonly == NRESTR_LOCALONLY) {
startrow();
printf("
\n", stdout);
}
startrow();
startcell('h', commonest_align->str); /* Blank space in place of checkbox */
fputs("", stdout);
for (fcnt = 0; fcnt < ncolfmts; fcnt++) {
startcell('h', cflist[fcnt].alstr);
print_hdrfmt(cflist[fcnt].form);
fputs("", stdout);
}
fputs("\n", stdout);
}
/* Set up default permissions which for printers apply
throughout. */
if (mypriv.spu_flgs & PV_PRINQ) {
pflgs |= GLV_ANYCHANGES;
lpperm |= LV_MINEORVIEW|LV_LOCORRVIEW|LV_CHANGEABLE;
if (mypriv.spu_flgs & PV_HALTGO)
lpperm |= LV_KILLABLE;
if (mypriv.spu_flgs & PV_ADDDEL)
lpperm |= LV_DELETEABLE;
if (mypriv.spu_flgs & PV_REMOTEP)
rpperm = lpperm;
if (mypriv.spu_flgs & PV_COVER)
pflgs |= GLV_COVER;
if (mypriv.spu_flgs & PV_ACCESSOK)
pflgs |= GLV_ACCESSF;
if (mypriv.spu_flgs & PV_FREEZEOK)
pflgs |= GLV_FREEZEF;
}
/* Final run-through to output stuff */
for (pcnt = 0; pcnt < Nptrs; pcnt++) {
const struct apispptr *pp = &ptr_sl_list[pcnt].ptr;
unsigned flgs;
if (pp->apispp_state == API_PRNULL || pp->apispp_state >= API_PRNSTATES)
continue;
if (Displayopts.opt_restrp && !qmatch(Displayopts.opt_restrp, pp->apispp_ptr))
continue;
flgs = pp->apispp_netid == dest_hostid? lpperm: rpperm;
if (pp->apispp_state >= API_PRPROC)
flgs |= LV_PROCESS;
startrow();
startcell('d', commonest_align->str);
fmt_printer(pp, 0);
printf("", bigbuff, flgs);
for (fcnt = 0; fcnt < ncolfmts; fcnt++) {
startcell('d', cflist[fcnt].alstr);
bigbuff[0] = '\0';
(cflist[fcnt].form->fmt_fn)(pp, 0);
html_fldprint(bigbuff);
fputs("", stdout);
}
fputs("\n", stdout);
}
printf("
\n\n", pflgs);
printf("\n", (unsigned long) mypriv.spu_class);
}
struct arginterp {
char *argname;
unsigned short flags;
#define AIF_NOARG 0
#define AIF_ARG 1
#define AIF_ARGLIST 2
int (*arg_fn)(char *);
};
int perf_listformat(char * notused)
{
struct formatdef *fp;
int lett;
char *msg;
html_out_or_err("listfmt_pre", 1);
for (fp = &lowertab[0], lett = 'a'; fp < &lowertab[26]; lett++, fp++)
if (fp->statecode != 0) {
msg = gprompt(fp->statecode + 500);
printf("list_format_code(\'%c\', \'%c\', \"%s\");\n", lett, fp->alch, msg);
free(msg);
}
fmt_setup();
printf("existing_formats(\"%s\");\n", formatstring);
html_out_param_file("listfmt_post", 0, 0, html_cookexpiry());
exit(0);
}
extern int perf_optselect(char *);
int set_queue(char * arg)
{
Displayopts.opt_restrp = *arg? arg: (char *) 0;
return 1;
}
int set_loco(char * arg)
{
switch (tolower(*arg)) {
case 'l':case 'y':case '1':
Displayopts.opt_localonly = NRESTR_LOCALONLY;
return 1;
case 'n':case '0':
Displayopts.opt_localonly = NRESTR_NONE;
return 1;
default:
return 0;
}
}
int set_header(char * arg)
{
switch (tolower(*arg)) {
case 'y':case '1':
headerflag = 1;
return 1;
case 'n':case '0':
headerflag = 0;
return 1;
default:
return 0;
}
}
int set_sorted(char * arg)
{
switch (tolower(*arg)) {
case 'y':case '1':
Displayopts.opt_sortptrs = SORTP_BYNAME;
return 1;
case 'n':case '0':
Displayopts.opt_sortptrs = SORTP_NONE;
return 1;
default:
return 0;
}
}
int set_format(char * arg)
{
formatstring = arg;
return 1;
}
extern void perf_listprfm(char *, char *, char *);
struct arginterp argtypes[] = {
{ "format", AIF_ARG, set_format },
{ "header", AIF_ARG, set_header },
{ "queue", AIF_ARG, set_queue },
{ "localonly", AIF_ARG, set_loco },
{ "listprfm", AIF_ARGLIST },
{ "sorted", AIF_ARG, set_sorted },
{ "listopts", AIF_NOARG, perf_optselect },
{ "listformat", AIF_NOARG, perf_listformat }
};
/* Invoke a call to the JavaScript function "jsfunc" with parameters
taken from the printer "ptrnam"
Printer, Form, device, description, possible forms */
void perf_listprfm(char * tmpl, char * jsfunc, char * ptrnam)
{
char *pname, *pform, *pdev, *pdescr;
int jcnt;
struct apispptr ptr;
struct ptrswanted pw;
struct strvec fv;
api_open(realuname);
Displayopts.opt_classcode = mypriv.spu_class;
api_readptrs(0);
read_jobqueue(0);
if (decode_pname(ptrnam, &pw) && gspool_ptrfind(gspool_fd, GSPOOL_FLAG_IGNORESEQ, pw.ptrname, pw.host, &pw.slot, &ptr) >= 0) {
pname = stracpy(ptr.apispp_ptr);
pform = stracpy(ptr.apispp_form);
pdev = stracpy(ptr.apispp_dev);
pdescr = stracpy(ptr.apispp_comment);
}
else
pname = pform = pdev = pdescr = "";
strvec_init(&fv);
strvec_add(&fv, mypriv.spu_form);
for (jcnt = 0; jcnt < Njobs; jcnt++)
strvec_add(&fv, job_list[jcnt].apispq_form);
for (jcnt = 0; jcnt < Nptrs; jcnt++)
strvec_add(&fv, ptr_sl_list[jcnt].ptr.apispp_form);
strvec_sort(&fv);
/* OK now generate the stuff */
html_output_file(tmpl, 1);
printf("%s(\"%s\", \"%s\", \"%s\", \"%s\", ",
jsfunc,
escquot(pname),
escquot(pform),
escquot(pdev),
escquot(pdescr));
print_strvec(&fv);
fputs(");\n", stdout);
html_output_file("prfm_postamble", 0);
exit(0);
}
int perf_optselect(char * notused)
{
html_out_param_file("setopts", 1, 0, html_cookexpiry());
exit(0);
}
void interp_args(char ** args)
{
char **ap, *arg, *cp = (char *) 0;
int cnt;
for (ap = args; (arg = *ap); ap++) {
if ((cp = strchr(arg, ':')) || (cp = strchr(arg, '=')))
*cp++ = '\0';
for (cnt = 0; cnt < sizeof(argtypes)/sizeof(struct arginterp); cnt++) {
if (ncstrcmp(arg, argtypes[cnt].argname) == 0) {
if (argtypes[cnt].flags == AIF_ARGLIST) {
if (!ap[1] || !ap[2])
goto badarg;
perf_listprfm(ap[1], ap[2], ap[3]);
}
if ((cp && argtypes[cnt].flags == AIF_NOARG) ||
(!cp && argtypes[cnt].flags == AIF_ARG) ||
!(argtypes[cnt].arg_fn)(cp))
goto badarg;
goto ok;
}
}
badarg:
html_out_or_err("badargs", 1);
exit(E_USAGE);
ok:
;
}
}
int mqsort_ptrs(struct ptr_with_slot *a, struct ptr_with_slot *b)
{
int ret;
if (a->ptr.apispp_netid != b->ptr.apispp_netid)
return a->ptr.apispp_netid < b->ptr.apispp_netid? -1: 1;
if ((ret = strcmp(a->ptr.apispp_ptr, b->ptr.apispp_ptr)) != 0)
return ret;
return strcmp(a->ptr.apispp_dev, b->ptr.apispp_dev);
}
/* Ye olde main routine. */
MAINFN_TYPE main(int argc, char **argv)
{
int i;
char **newargs;
unsigned Paccess_flags = 0;
int_ugid_t chku;
versionprint(argv, "$Revision: 1.1 $", 0);
if ((progname = strrchr(argv[0], '/')))
progname++;
else
progname = argv[0];
init_mcfile();
html_openini();
hash_hostfile();
Effuid = geteuid();
if ((chku = lookup_uname(SPUNAME)) == UNKNOWN_UID)
Daemuid = ROOTID;
else
Daemuid = chku;
newargs = cgi_arginterp(argc, argv, CGI_AI_REMHOST);
/* Side effect of cgi_arginterp is to set Realuid */
Cfile = open_cfile(MISC_UCONFIG, "rest.help");
realuname = prin_uname(Realuid);
setgid(getgid());
setuid(Realuid);
interp_args(newargs);
if (Displayopts.opt_localonly == NRESTR_LOCALONLY)
Paccess_flags |= GSPOOL_FLAG_LOCALONLY;
api_open(realuname);
Displayopts.opt_classcode = mypriv.spu_class;
api_readptrs(Paccess_flags);
if (Displayopts.opt_sortptrs == SORTP_BYNAME)
qsort(QSORTP1 ptr_sl_list, Nptrs, sizeof(struct ptr_with_slot), QSORTP4 mqsort_ptrs);
if (headerflag < 0)
headerflag = html_inibool("headers", 0);
/* Read state names */
for (i = 0; i < API_PRNSTATES; i++)
statenames[i] = gprompt($P{Printer status null}+i);
if (headerflag < 0)
headerflag = html_inibool("headers", 0);
fmt_setup();
html_output_file("list_preamble", 1);
pdisplay();
html_output_file("list_postamble", 0);
return 0;
}
gnuspool-1.7ubuntu1/src/remcgi/rsqdcgi.c 0000664 0000000 0000000 00000006012 11421757504 015305 0 ustar /* rsqdcgi.c -- remove CGI delete jobs
Copyright 2008 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 3 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 . */
#include
#include
#include
#include "gspool.h"
#ifdef TIME_WITH_SYS_TIME
#include
#include
#elif defined(HAVE_SYS_TIME_H)
#include
#else
#include
#endif
#include
#include "network.h"
#include "ecodes.h"
#include "errnums.h"
#include "files.h"
#include "incl_unix.h"
#include "incl_ugid.h"
#include "cfile.h"
#include "xihtmllib.h"
#include "cgiuser.h"
#include "rcgilib.h"
#define LOTSANDLOTS 99999999L /* Maximum page number */
int gspool_fd;
char *realuname;
struct apispdet mypriv;
int Njobs, Nptrs;
struct apispq *job_list;
slotno_t *jslot_list;
struct ptr_with_slot *ptr_sl_list;
/* For when we run out of memory..... */
void nomem(void)
{
fprintf(stderr, "Ran out of memory\n");
exit(E_NOMEM);
}
void perform_delete(char ** args)
{
char *arg;
for (; (arg = *args); args++) {
int ret;
struct jobswanted jw;
struct apispq job;
if (decode_jnum(arg, &jw)) {
html_out_or_err("sbadargs", 1);
exit(E_USAGE);
}
if (gspool_jobfind(gspool_fd, GSPOOL_FLAG_IGNORESEQ, jw.jno, jw.host, &jw.slot, &job) < 0) {
html_out_cparam_file("jobgone", 1, arg);
exit(E_NOJOB);
}
if ((!(mypriv.spu_flgs & PV_OTHERJ) &&
strcmp(realuname, job.apispq_uname) != 0) ||
(job.apispq_netid != dest_hostid && !(mypriv.spu_flgs & PV_REMOTEJ))) {
html_out_cparam_file("nopriv", 1, arg);
exit(E_NOPRIV);
}
if ((ret = gspool_jobdel(gspool_fd, GSPOOL_FLAG_IGNORESEQ, jw.slot)) < 0) {
html_disperror($E{Base for API errors} + ret);
exit(E_NOPRIV);
}
}
}
/* Ye olde main routine. */
MAINFN_TYPE main(int argc, char **argv)
{
char **newargs;
int_ugid_t chku;
versionprint(argv, "$Revision: 1.1 $", 0);
if ((progname = strrchr(argv[0], '/')))
progname++;
else
progname = argv[0];
init_mcfile();
html_openini();
hash_hostfile();
Effuid = geteuid();
if ((chku = lookup_uname(SPUNAME)) == UNKNOWN_UID)
Daemuid = ROOTID;
else
Daemuid = chku;
newargs = cgi_arginterp(argc, argv, CGI_AI_REMHOST|CGI_AI_SUBSID);
/* Side effect of cgi_arginterp is to set Realuid */
Cfile = open_cfile(MISC_UCONFIG, "rest.help");
realuname = prin_uname(Realuid);
setgid(getgid());
setuid(Realuid);
api_open(realuname);
perform_delete(newargs);
html_out_or_err("delok", 1);
return 0;
}
gnuspool-1.7ubuntu1/src/remcgi/rsqccgi.c 0000664 0000000 0000000 00000023147 11421757504 015314 0 ustar /* rsqccgi.c -- remote CGI commands
Copyright 2008 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 3 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 . */
#include
#include
#include
#include "gspool.h"
#ifdef TIME_WITH_SYS_TIME
#include
#include
#elif defined(HAVE_SYS_TIME_H)
#include
#else
#include
#endif
#include
#include "network.h"
#include "ecodes.h"
#include "errnums.h"
#include "files.h"
#include "incl_unix.h"
#include "incl_ugid.h"
#include "cfile.h"
#include "xihtmllib.h"
#include "cgiuser.h"
#include "rcgilib.h"
#define LOTSANDLOTS 99999999L /* Maximum page number */
int gspool_fd;
char *realuname;
struct apispdet mypriv;
int Njobs, Nptrs;
struct apispq *job_list;
slotno_t *jslot_list;
struct ptr_with_slot *ptr_sl_list;
/* Keep library happy */
void nomem(void)
{
fprintf(stderr, "Ran out of memory\n");
exit(E_NOMEM);
}
struct argop {
const char *name; /* Name of parameter case insens */
int (*arg_fn)(struct apispq *, const struct argop *);
short typ; /* Type of parameter */
#define AO_BOOL 0
#define AO_UCHAR 1
#define AO_USHORT 2
#define AO_ULONG 3
#define AO_TIME 4
#define AO_STRING 5
#define AO_USER 6
unsigned char off; /* Turn off */
unsigned char had;
union {
USHORT ao_boolbit;
unsigned char ao_uchar;
USHORT ao_ushort;
ULONG ao_ulong;
char *ao_string;
int_ugid_t ao_user;
time_t ao_time;
} ao_un;
struct argop *next;
};
int arg_sp(struct apispq *jp, const struct argop *ao)
{
jp->apispq_start = ao->ao_un.ao_ulong != 0? ao->ao_un.ao_ulong - 1: 0;
return 1;
}
int arg_ep(struct apispq *jp, const struct argop *ao)
{
jp->apispq_end = ao->ao_un.ao_ulong != 0? ao->ao_un.ao_ulong - 1: LOTSANDLOTS;
return 1;
}
int arg_hatp(struct apispq *jp, const struct argop *ao)
{
jp->apispq_haltat = ao->ao_un.ao_ulong != 0? ao->ao_un.ao_ulong - 1: 0;
return 1;
}
int arg_cps(struct apispq *jp, const struct argop *ao)
{
unsigned nn = ao->ao_un.ao_uchar;
if (!(mypriv.spu_flgs & PV_ANYPRIO) && nn > (unsigned) mypriv.spu_cps)
return 0;
jp->apispq_cps = nn;
return 1;
}
int arg_pri(struct apispq *jp, const struct argop *ao)
{
unsigned nn = ao->ao_un.ao_uchar;
if (!(mypriv.spu_flgs & PV_CPRIO) ||
(!(mypriv.spu_flgs & PV_ANYPRIO) &&
(nn < (unsigned) mypriv.spu_minp || nn > (unsigned) mypriv.spu_maxp)))
return 0;
jp->apispq_pri = nn;
return 1;
}
int arg_jflags(struct apispq *jp, const struct argop *ao)
{
USHORT bit = ao->ao_un.ao_boolbit;
if (ao->off)
jp->apispq_jflags &= ~bit;
else
jp->apispq_jflags |= bit;
return 1;
}
int arg_dflags(struct apispq *jp, const struct argop *ao)
{
USHORT bit = ao->ao_un.ao_boolbit;
if (ao->off)
jp->apispq_dflags &= ~bit;
else
jp->apispq_dflags |= bit;
return 1;
}
int arg_class(struct apispq *jp, const struct argop *ao)
{
ULONG rcl = ao->ao_un.ao_ulong;
if (!(mypriv.spu_flgs & PV_COVER))
rcl &= mypriv.spu_class;
if (rcl == 0)
return 0;
jp->apispq_class = rcl;
return 1;
}
int arg_hdr(struct apispq *jp, const struct argop *ao)
{
strncpy(jp->apispq_file, ao->ao_un.ao_string, MAXTITLE);
return 1;
}
int arg_flags(struct apispq *jp, const struct argop *ao)
{
strncpy(jp->apispq_flags, ao->ao_un.ao_string, MAXFLAGS);
return 1;
}
int arg_form(struct apispq *jp, const struct argop *ao)
{
if (!((mypriv.spu_flgs & PV_FORMS) || qmatch(mypriv.spu_formallow, ao->ao_un.ao_string)))
return 0;
strncpy(jp->apispq_form, ao->ao_un.ao_string, MAXFORM);
return 1;
}
int arg_ptr(struct apispq *jp, const struct argop *ao)
{
if (!((mypriv.spu_flgs & PV_OTHERP) || issubset(mypriv.spu_ptrallow, ao->ao_un.ao_string)))
return 0;
strncpy(jp->apispq_ptr, ao->ao_un.ao_string, JPTRNAMESIZE);
return 1;
}
int arg_hold(struct apispq *jp, const struct argop *ao)
{
time_t ht = ao->ao_un.ao_time, now = time((time_t *) 0);
if (ht < now)
return 0;
jp->apispq_hold = (LONG) ht;
return 1;
}
int arg_npt(struct apispq *jp, const struct argop *ao)
{
USHORT us = ao->ao_un.ao_ushort;
if (us == 0)
return 0;
jp->apispq_nptimeout = us;
return 1;
}
int arg_pt(struct apispq *jp, const struct argop *ao)
{
USHORT us = ao->ao_un.ao_ushort;
if (us == 0)
return 0;
jp->apispq_ptimeout = us;
return 1;
}
int arg_puser(struct apispq *jp, const struct argop *ao)
{
strncpy(jp->apispq_puname, prin_uname(ao->ao_un.ao_user), UIDSIZE);
return 1;
}
struct argop aolist[] = {
{ "sp", arg_sp, AO_ULONG },
{ "ep", arg_ep, AO_ULONG },
{ "hatp", arg_hatp, AO_ULONG },
{ "cps", arg_cps, AO_UCHAR },
{ "pri", arg_pri, AO_UCHAR },
{ "noh", arg_jflags, AO_BOOL, 0,0, { (USHORT) APISPQ_NOH } },
{ "hdr", arg_hdr, AO_STRING },
{ "form", arg_form, AO_STRING },
{ "ptr", arg_ptr, AO_STRING },
{ "npto", arg_npt, AO_USHORT },
{ "pto", arg_pt, AO_USHORT },
{ "wrt", arg_jflags, AO_BOOL, 0,0, { (USHORT) APISPQ_WRT } },
{ "mail", arg_jflags, AO_BOOL, 0,0, { (USHORT) APISPQ_MAIL } },
{ "retn", arg_jflags, AO_BOOL, 0,0, { (USHORT) APISPQ_RETN } },
{ "oddp", arg_jflags, AO_BOOL, 0,0, { (USHORT) APISPQ_ODDP } },
{ "evenp",arg_jflags, AO_BOOL, 0,0, { (USHORT) APISPQ_EVENP } },
{ "revoe",arg_jflags, AO_BOOL, 0,0, { (USHORT) APISPQ_REVOE } },
{ "mattn",arg_jflags, AO_BOOL, 0,0, { (USHORT) APISPQ_MATTN } },
{ "wattn",arg_jflags, AO_BOOL, 0,0, { (USHORT) APISPQ_WATTN } },
{ "loco", arg_jflags, AO_BOOL, 0,0, { (USHORT) APISPQ_LOCALONLY } },
{ "printed",arg_dflags, AO_BOOL, 0,0, { (USHORT) APISPQ_PRINTED } },
{ "class",arg_class, AO_ULONG },
{ "hold", arg_hold, AO_TIME },
{ "puser",arg_puser, AO_USER },
{ "flags",arg_flags, AO_STRING }
};
struct argop *aochain;
void list_op(char *arg, char *cp)
{
int cnt;
*cp = '\0';
for (cnt = 0; cnt < sizeof(aolist) / sizeof(struct argop); cnt++) {
struct argop *aop = &aolist[cnt];
unsigned long res;
if (ncstrcmp(aop->name, arg) == 0) {
*cp++ = '=';
switch (aop->typ) {
case AO_BOOL:
switch (*cp) {
case 'y':case 'Y':
case 't':case 'T':
aop->off = 0;
break;
case 'n':case 'N':
case 'f':case 'F':
aop->off = 255;
break;
default:
goto badarg;
}
break;
case AO_UCHAR:
if (!isdigit(*cp))
goto badarg;
res = strtoul(cp, (char **) 0, 0);
if (res > 255)
goto badarg;
aop->ao_un.ao_uchar = res;
break;
case AO_USHORT:
if (!isdigit(*cp))
goto badarg;
res = strtoul(cp, (char **) 0, 0);
if (res > 0xffff)
goto badarg;
aop->ao_un.ao_ushort = res;
break;
case AO_ULONG:
if (!isdigit(*cp))
goto badarg;
aop->ao_un.ao_ulong = strtoul(cp, (char **) 0, 0);
break;
case AO_TIME:
aop->ao_un.ao_time = strtol(cp, (char **) 0, 0);
break;
case AO_STRING:
aop->ao_un.ao_string = cp;
break;
case AO_USER:
if ((aop->ao_un.ao_user = lookup_uname(cp)) == UNKNOWN_UID)
aop->ao_un.ao_user = Realuid;
break;
}
if (!aop->had) {
aop->had = 1;
aop->next = aochain;
aochain = aop;
}
return;
}
}
*cp++ = '=';
badarg:
if (html_out_cparam_file("badcarg", 1, arg))
exit(E_USAGE);
html_error(arg);
exit(E_SETUP);
}
void apply_ops(char * arg)
{
int ret;
struct argop *aop;
struct jobswanted jw;
struct apispq job;
if (decode_jnum(arg, &jw)) {
if (html_out_cparam_file("badcarg", 1, arg))
exit(E_USAGE);
html_error(arg);
exit(E_SETUP);
}
if ((ret = gspool_jobfind(gspool_fd, GSPOOL_FLAG_IGNORESEQ, jw.jno, jw.host, &jw.slot, &job)) < 0) {
if (ret == GSPOOL_UNKNOWN_JOB)
html_out_cparam_file("jobgone", 1, arg);
else
html_disperror($E{Base for API errors} + ret);
exit(E_NOJOB);
}
if ((!(mypriv.spu_flgs & PV_OTHERJ) && strcmp(realuname, job.apispq_uname) != 0) ||
(job.apispq_netid != dest_hostid && !(mypriv.spu_flgs & PV_REMOTEJ))) {
html_out_cparam_file("nopriv", 1, arg);
exit(E_NOPRIV);
}
if (!aochain) /* Nothing to do how boring */
return;
for (aop = aochain; aop; aop = aop->next)
if (!(*aop->arg_fn)(&job, aop)) {
html_out_or_err("badargs", 1);
exit(E_USAGE);
}
if ((ret = gspool_jobupd(gspool_fd, GSPOOL_FLAG_IGNORESEQ, jw.slot, &job)) < 0) {
html_disperror($E{Base for API errors} + ret);
exit(E_NOPRIV);
}
}
void perform_update(char ** args)
{
char **ap, *arg;
for (ap = args; (arg = *ap); ap++) {
char *cp = strchr(arg, '=');
if (cp)
list_op(arg, cp);
else
apply_ops(arg);
}
}
/* Ye olde main routine. */
MAINFN_TYPE main(int argc, char **argv)
{
char **newargs;
int_ugid_t chku;
versionprint(argv, "$Revision: 1.1 $", 0);
if ((progname = strrchr(argv[0], '/')))
progname++;
else
progname = argv[0];
init_mcfile();
html_openini();
hash_hostfile();
Effuid = geteuid();
if ((chku = lookup_uname(SPUNAME)) == UNKNOWN_UID)
Daemuid = ROOTID;
else
Daemuid = chku;
newargs = cgi_arginterp(argc, argv, CGI_AI_REMHOST|CGI_AI_SUBSID);
/* Side effect of cgi_arginterp is to set Realuid */
Cfile = open_cfile(MISC_UCONFIG, "rest.help");
realuname = prin_uname(Realuid);
setgid(getgid());
setuid(Realuid);
api_open(realuname);
perform_update(newargs);
html_out_or_err("chngok", 1);
return 0;
}
gnuspool-1.7ubuntu1/src/apilib/ 0000775 0000000 0000000 00000000000 11421757504 013500 5 ustar gnuspool-1.7ubuntu1/src/apilib/gspool_ptrupd.c 0000664 0000000 0000000 00000003650 11366642365 016557 0 ustar /* gspool_ptrupd.c -- API update details of printer
Copyright 2008 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 3 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 . */
#include
#include
#include "gspool.h"
#include "xtapi_int.h"
#include "incl_net.h"
#include "incl_unix.h"
extern int gspool_write(const int, char *, unsigned);
extern int gspool_rmsg(const struct api_fd *, struct api_msg *);
extern int gspool_wmsg(const struct api_fd *, struct api_msg *);
extern struct api_fd *gspool_look_fd(const int);
extern void gspool_ptrswap(struct apispptr *, const struct apispptr *);
int gspool_ptrupd(const int fd, const unsigned flags, const slotno_t slotno, const struct apispptr *newptr)
{
int ret;
struct api_fd *fdp = gspool_look_fd(fd);
struct api_msg msg;
struct apispptr res;
if (!fdp)
return GSPOOL_INVALID_FD;
msg.code = API_PTRUPD;
msg.un.reader.flags = htonl(flags);
msg.un.reader.seq = htonl(fdp->pserial);
msg.un.reader.slotno = htonl(slotno);
gspool_ptrswap(&res, newptr);
if ((ret = gspool_wmsg(fdp, &msg)))
return ret;
if ((ret = gspool_write(fdp->sockfd, (char *) &res, sizeof(res))))
return ret;
if ((ret = gspool_rmsg(fdp, &msg)))
return ret;
if (msg.un.r_reader.seq != 0)
fdp->pserial = ntohl(msg.un.r_reader.seq);
if (msg.retcode != 0)
return (SHORT) ntohs(msg.retcode);
return GSPOOL_OK;
}
gnuspool-1.7ubuntu1/src/apilib/gspool_ptrdel.c 0000664 0000000 0000000 00000003173 11366642365 016533 0 ustar /* gspool_ptrdel.c -- API delete printer entry
Copyright 2008 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 3 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 . */
#include
#include
#include "gspool.h"
#include "xtapi_int.h"
#include "incl_net.h"
#include "incl_unix.h"
extern int gspool_rmsg(const struct api_fd *, struct api_msg *);
extern int gspool_wmsg(const struct api_fd *, struct api_msg *);
extern struct api_fd *gspool_look_fd(const int);
int gspool_ptrdel(const int fd, const unsigned flags, const slotno_t slotno)
{
int ret;
struct api_fd *fdp = gspool_look_fd(fd);
struct api_msg msg;
if (!fdp)
return GSPOOL_INVALID_FD;
msg.code = API_PTRDEL;
msg.un.reader.flags = htonl(flags);
msg.un.reader.seq = htonl(fdp->pserial);
msg.un.reader.slotno = htonl(slotno);
if ((ret = gspool_wmsg(fdp, &msg)))
return ret;
if ((ret = gspool_rmsg(fdp, &msg)))
return ret;
if (msg.un.r_reader.seq != 0)
fdp->pserial = ntohl(msg.un.r_reader.seq);
if (msg.retcode != 0)
return (SHORT) ntohs(msg.retcode);
return GSPOOL_OK;
}
gnuspool-1.7ubuntu1/src/apilib/gspool_putspu.c 0000664 0000000 0000000 00000004577 11366642365 016612 0 ustar /* gspool_putspu.c -- API save user permissions
Copyright 2008 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 3 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 . */
#include
#include
#include "gspool.h"
#include "xtapi_int.h"
#include "incl_unix.h"
#include "incl_net.h"
extern int gspool_write(const int, char *, unsigned);
extern int gspool_rmsg(const struct api_fd *, struct api_msg *);
extern int gspool_wmsg(const struct api_fd *, struct api_msg *);
extern struct api_fd *gspool_look_fd(const int);
int gspool_putspu(const int fd, const char *username, const struct apispdet *res)
{
int ret;
struct api_fd *fdp = gspool_look_fd(fd);
struct api_msg msg;
struct apispdet buf;
if (!fdp)
return GSPOOL_INVALID_FD;
msg.code = API_PUTSPU;
strncpy(msg.un.us.username, username? username: fdp->username, UIDSIZE);
msg.un.us.username[UIDSIZE] = '\0';
/* And now do all the byte-swapping */
buf.spu_isvalid = res->spu_isvalid;
buf.spu_user = htonl((ULONG) res->spu_user);
buf.spu_minp = res->spu_minp;
buf.spu_maxp = res->spu_maxp;
buf.spu_defp = res->spu_defp;
strncpy(buf.spu_form, res->spu_form, MAXFORM);
strncpy(buf.spu_formallow, res->spu_formallow, ALLOWFORMSIZE);
strncpy(buf.spu_ptr, res->spu_ptr, PTRNAMESIZE);
strncpy(buf.spu_ptrallow, res->spu_ptrallow, JPTRNAMESIZE);
buf.spu_form[MAXFORM] = '\0';
buf.spu_formallow[MAXFORM] = '\0';
buf.spu_ptr[PTRNAMESIZE] = '\0';
buf.spu_ptrallow[JPTRNAMESIZE] = '\0';
buf.spu_flgs = htonl(res->spu_flgs);
buf.spu_class = htonl(res->spu_class);
buf.spu_cps = res->spu_cps;
if ((ret = gspool_wmsg(fdp, &msg)))
return ret;
if ((ret = gspool_write(fdp->sockfd, (char *) &buf, sizeof(buf))))
return ret;
if ((ret = gspool_rmsg(fdp, &msg)))
return ret;
if (msg.retcode != 0)
return (SHORT) ntohs(msg.retcode);
return GSPOOL_OK;
}
gnuspool-1.7ubuntu1/src/apilib/gspool_ptrswap.c 0000664 0000000 0000000 00000003765 11366642365 016750 0 ustar /* gspool_ptrswap.c -- do byte-swapping of printer attributes
Copyright 2008 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 3 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 . */
#include
#include
#include "gspool.h"
#include "xtapi_int.h"
#include "incl_unix.h"
#include "incl_net.h"
void gspool_ptrswap(struct apispptr *to, const struct apispptr *from)
{
to->apispp_netid = from->apispp_netid;
to->apispp_rslot = htonl((ULONG) from->apispp_rslot);
to->apispp_pid = htonl((ULONG) from->apispp_pid);
to->apispp_job = htonl((ULONG) from->apispp_job);
to->apispp_rjhostid = from->apispp_rjhostid;
to->apispp_rjslot = htonl((ULONG) from->apispp_rjslot);
to->apispp_jslot = htonl((ULONG) from->apispp_jslot);
to->apispp_state = from->apispp_state;
to->apispp_sflags = from->apispp_sflags;
to->apispp_dflags = from->apispp_dflags;
to->apispp_netflags = from->apispp_netflags;
to->apispp_class = htonl(from->apispp_class);
to->apispp_minsize = htonl((ULONG) from->apispp_minsize);
to->apispp_maxsize = htonl((ULONG) from->apispp_maxsize);
to->apispp_extrn = htons(from->apispp_extrn);
to->apispp_resvd = 0;
strncpy(to->apispp_dev, from->apispp_dev, LINESIZE+1);
strncpy(to->apispp_form, from->apispp_form, MAXFORM+1);
strncpy(to->apispp_ptr, from->apispp_ptr, PTRNAMESIZE+1);
strncpy(to->apispp_feedback, from->apispp_feedback, PFEEDBACK+1);
strncpy(to->apispp_comment, from->apispp_comment, COMMENTSIZE+1);
}
gnuspool-1.7ubuntu1/src/apilib/gspool_jobdel.c 0000664 0000000 0000000 00000003155 11366642365 016500 0 ustar /* gspool_jobdel.c -- delete job
Copyright 2008 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 3 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 . */
#include
#include
#include "gspool.h"
#include "xtapi_int.h"
#include "incl_net.h"
#include "incl_unix.h"
extern int gspool_rmsg(const struct api_fd *, struct api_msg *);
extern int gspool_wmsg(const struct api_fd *, struct api_msg *);
extern struct api_fd *gspool_look_fd(const int);
int gspool_jobdel(const int fd, const unsigned flags, const slotno_t slotno)
{
int ret;
struct api_fd *fdp = gspool_look_fd(fd);
struct api_msg msg;
if (!fdp)
return GSPOOL_INVALID_FD;
msg.code = API_JOBDEL;
msg.un.reader.flags = htonl(flags);
msg.un.reader.seq = htonl(fdp->jserial);
msg.un.reader.slotno = htonl(slotno);
if ((ret = gspool_wmsg(fdp, &msg)))
return ret;
if ((ret = gspool_rmsg(fdp, &msg)))
return ret;
if (msg.un.r_reader.seq != 0)
fdp->jserial = ntohl(msg.un.r_reader.seq);
if (msg.retcode != 0)
return (SHORT) ntohs(msg.retcode);
return GSPOOL_OK;
}
gnuspool-1.7ubuntu1/src/apilib/gspool_joblist.c 0000664 0000000 0000000 00000005202 11366642365 016702 0 ustar /* gspool_joblist.c -- get list of jobs
Copyright 2008 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 3 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 . */
#include
#include
#include "gspool.h"
#include "xtapi_int.h"
#include "incl_net.h"
#include "incl_unix.h"
extern int gspool_read(const int, char *, unsigned);
extern int gspool_rmsg(const struct api_fd *, struct api_msg *);
extern int gspool_wmsg(const struct api_fd *, struct api_msg *);
extern struct api_fd *gspool_look_fd(const int);
int gspool_joblist(const int fd, const unsigned flags, int *nj, slotno_t **slots)
{
int ret;
unsigned numjobs;
struct api_fd *fdp = gspool_look_fd(fd);
struct api_msg msg;
if (!fdp)
return GSPOOL_INVALID_FD;
msg.code = API_JOBLIST;
msg.un.lister.flags = htonl(flags);
if ((ret = gspool_wmsg(fdp, &msg)))
return ret;
if ((ret = gspool_rmsg(fdp, &msg)))
return ret;
if (msg.retcode != 0)
return (SHORT) ntohs(msg.retcode);
/* Get number of jobs */
fdp->jserial = ntohl(msg.un.r_lister.seq);
numjobs = ntohl(msg.un.r_lister.nitems);
if (nj)
*nj = (int) numjobs;
/* Try to allocate enough space to hold the list. If we don't
succeed we'd better carry on reading it so we don't
get out of sync. */
if (numjobs != 0) {
unsigned nbytes = numjobs * sizeof(slotno_t);
if (nbytes > fdp->bufmax) {
if (fdp->bufmax != 0) {
free(fdp->buff);
fdp->bufmax = 0;
fdp->buff = (char *) 0;
}
if (!(fdp->buff = malloc(nbytes))) {
unsigned cnt;
for (cnt = 0; cnt < numjobs; cnt++) {
ULONG slurp;
if ((ret = gspool_read(fdp->sockfd, (char *) &slurp, sizeof(slurp))))
return ret;
}
return GSPOOL_NOMEM;
}
fdp->bufmax = nbytes;
}
if ((ret = gspool_read(fdp->sockfd, fdp->buff, nbytes)))
return ret;
if (htonl(1234L) != 1234L) {
unsigned cnt;
slotno_t *sp = (slotno_t *) fdp->buff;
for (cnt = 0; cnt < numjobs; cnt++) {
*sp = ntohl(*sp);
sp++;
}
}
}
/* Set up answer */
if (slots)
*slots = (slotno_t *) fdp->buff;
return GSPOOL_OK;
}
gnuspool-1.7ubuntu1/src/apilib/gspool_getspd.c 0000664 0000000 0000000 00000004337 11366642365 016532 0 ustar /* gspool_getspd.c -- get user permission defaults
Copyright 2008 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 3 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 . */
#include
#include
#include "gspool.h"
#include "xtapi_int.h"
#include "incl_unix.h"
#include "incl_net.h"
extern int gspool_read(const int, char *, unsigned);
extern int gspool_rmsg(const struct api_fd *, struct api_msg *);
extern int gspool_wmsg(const struct api_fd *, struct api_msg *);
extern struct api_fd *gspool_look_fd(const int);
int gspool_getspd(const int fd, struct apisphdr *res)
{
int ret;
struct api_fd *fdp = gspool_look_fd(fd);
struct api_msg msg;
struct apisphdr buf;
if (!fdp)
return GSPOOL_INVALID_FD;
msg.code = API_GETSPD;
if ((ret = gspool_wmsg(fdp, &msg)))
return ret;
if ((ret = gspool_rmsg(fdp, &msg)))
return ret;
if (msg.retcode != 0)
return (SHORT) ntohs(msg.retcode);
/* The message is followed by the details. */
if ((ret = gspool_read(fdp->sockfd, (char *) &buf, sizeof(buf))))
return ret;
/* And now do all the byte-swapping */
res->sph_minp = buf.sph_minp;
res->sph_maxp = buf.sph_maxp;
res->sph_defp = buf.sph_defp;
strncpy(res->sph_form, buf.sph_form, MAXFORM);
strncpy(res->sph_formallow, buf.sph_formallow, ALLOWFORMSIZE);
strncpy(res->sph_ptr, buf.sph_ptr, PTRNAMESIZE);
strncpy(res->sph_ptrallow, buf.sph_ptrallow, JPTRNAMESIZE);
res->sph_form[MAXFORM] = '\0';
res->sph_formallow[ALLOWFORMSIZE] = '\0';
res->sph_ptr[PTRNAMESIZE] = '\0';
res->sph_ptrallow[JPTRNAMESIZE] = '\0';
res->sph_flgs = ntohl(buf.sph_flgs);
res->sph_class = ntohl(buf.sph_class);
res->sph_cps = buf.sph_cps;
return GSPOOL_OK;
}
gnuspool-1.7ubuntu1/src/apilib/gspool_getspu.c 0000664 0000000 0000000 00000004663 11366642365 016555 0 ustar /* gspool_getspu.c -- get permissions for user
Copyright 2008 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 3 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 . */
#include
#include
#include "gspool.h"
#include "xtapi_int.h"
#include "incl_unix.h"
#include "incl_net.h"
extern int gspool_read(const int, char *, unsigned);
extern int gspool_rmsg(const struct api_fd *, struct api_msg *);
extern int gspool_wmsg(const struct api_fd *, struct api_msg *);
extern struct api_fd * gspool_look_fd(const int);
int gspool_getspu(const int fd, const char *username, struct apispdet *res)
{
int ret;
struct api_fd *fdp = gspool_look_fd(fd);
struct api_msg msg;
struct apispdet buf;
if (!fdp)
return GSPOOL_INVALID_FD;
msg.code = API_GETSPU;
strncpy(msg.un.us.username, username? username: fdp->username, UIDSIZE);
msg.un.us.username[UIDSIZE] = '\0';
if ((ret = gspool_wmsg(fdp, &msg)))
return ret;
if ((ret = gspool_rmsg(fdp, &msg)))
return ret;
if (msg.retcode != 0)
return (SHORT) ntohs(msg.retcode);
/* The message is followed by the details. */
if ((ret = gspool_read(fdp->sockfd, (char *) &buf, sizeof(buf))))
return ret;
/* And now do all the byte-swapping */
res->spu_isvalid = buf.spu_isvalid;
res->spu_user = ntohl((ULONG) buf.spu_user);
res->spu_minp = buf.spu_minp;
res->spu_maxp = buf.spu_maxp;
res->spu_defp = buf.spu_defp;
strncpy(res->spu_form, buf.spu_form, MAXFORM);
strncpy(res->spu_formallow, buf.spu_formallow, ALLOWFORMSIZE);
strncpy(res->spu_ptr, buf.spu_ptr, PTRNAMESIZE);
strncpy(res->spu_ptrallow, buf.spu_ptrallow, JPTRNAMESIZE);
res->spu_form[MAXFORM] = '\0';
res->spu_formallow[ALLOWFORMSIZE] = '\0';
res->spu_ptr[PTRNAMESIZE] = '\0';
res->spu_ptrallow[JPTRNAMESIZE] = '\0';
res->spu_flgs = ntohl(buf.spu_flgs);
res->spu_class = ntohl(buf.spu_class);
res->spu_cps = buf.spu_cps;
return GSPOOL_OK;
}
gnuspool-1.7ubuntu1/src/apilib/Makefile.in 0000664 0000000 0000000 00000004377 11421757504 015560 0 ustar #
# Copyright 2008 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 3 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 .
#
# Makefile for api library
#
prefix = @prefix@
exec_prefix = @exec_prefix@
SHELL = /bin/sh
PARENT = ..
BASE = ../..
AR = ar
CC = libtool --mode=compile @CC@
RM = rm -f
HDRS = $(PARENT)/hdrs
CCFLAGS = -O @gcc_useful_options@ @funny_compiler_options@
CFLAGS = $(CCFLAGS) -I$(HDRS)
RPATH = @libdir@
LIBDIR = $(DESTDIR)$(RPATH)
INCLUDEDIR = $(DESTDIR)@includedir@
APILIB = libgnuspool.la
INSTALL = @INSTALL@
INSTALL_DATA = @INSTALL_DATA@
OBJECTS=gspool_getspd.o\
gspool_getspu.o\
gspool_jobadd.o\
gspool_jobdata.o\
gspool_jobdel.o\
gspool_joblist.o\
gspool_jobread.o\
gspool_jobupd.o\
gspool_jobswap.o\
gspool_ptradd.o\
gspool_ptrdel.o\
gspool_ptrlist.o\
gspool_ptrop.o\
gspool_ptrread.o\
gspool_ptrupd.o\
gspool_ptrswap.o\
gspool_putspd.o\
gspool_putspu.o\
gspool_open.o
LIBOBJECTS=$(OBJECTS:.o=.lo)
all: gspool.h $(OBJECTS)
libtool --mode=link @CC@ $(CCFLAGS) -o $(APILIB) $(LIBOBJECTS) -rpath $(RPATH) -version-info 0:0:0
# Build header out of the bits
gspool.h: gspool.pre\
gspool.post\
$(BASE)/config.h\
$(HDRS)/xtapi_int.h\
$(HDRS)/defaults.h\
$(HDRS)/pages.h\
$(HDRS)/spq.h\
$(HDRS)/spuser.h
sh ./Hdrmake.sh $(BASE)/config.h $(HDRS)
install: all
libtool --mode=install $(INSTALL) $(APILIB) $(LIBDIR)
$(INSTALL_DATA) gspool.h $(INCLUDEDIR)
$(INSTALL_DATA) $(APILIB) $(LIBDIR)
install-strip: all
libtool --mode=install $(INSTALL) -s $(APILIB) $(LIBDIR)/$(APILIB)
$(INSTALL_DATA) gspool.h $(INCLUDEDIR)
$(INSTALL_DATA) $(APILIB) $(LIBDIR)
clean:
$(RM) gspool.h *.[oa] *.ln *.so *.la *.lo
$(RM) -r .libs
distclean: clean
$(RM) Makefile
gnuspool-1.7ubuntu1/src/apilib/gspool_ptrread.c 0000664 0000000 0000000 00000011511 11366642365 016675 0 ustar /* gspool_ptrread.c -- API fetch attributes of printer
Copyright 2008 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 3 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 . */
#include
#include
#include "gspool.h"
#include "xtapi_int.h"
#include "incl_unix.h"
#include "incl_net.h"
extern int gspool_read(const int, char *, unsigned);
extern int gspool_write(const int, char *, unsigned);
extern int gspool_rmsg(const struct api_fd *, struct api_msg *);
extern int gspool_wmsg(const struct api_fd *, struct api_msg *);
extern struct api_fd *gspool_look_fd(const int);
static int ptr_readrest(struct api_fd *fdp, struct apispptr *result)
{
int ret;
struct apispptr res;
/* The message is followed by the ptr details. */
if ((ret = gspool_read(fdp->sockfd, (char *) &res, sizeof(res))))
return ret;
/* And now do all the byte-swapping */
result->apispp_netid = res.apispp_netid;
result->apispp_rslot = ntohl((ULONG) res.apispp_rslot);
result->apispp_pid = ntohl((ULONG) res.apispp_pid);
result->apispp_job = ntohl((ULONG) res.apispp_job);
result->apispp_rjhostid = res.apispp_rjhostid;
result->apispp_rjslot = ntohl((ULONG) res.apispp_rjslot);
result->apispp_jslot = ntohl((ULONG) res.apispp_jslot);
result->apispp_state = res.apispp_state;
result->apispp_sflags = res.apispp_sflags;
result->apispp_dflags = res.apispp_dflags;
result->apispp_netflags = res.apispp_netflags;
result->apispp_class = ntohl(res.apispp_class);
result->apispp_minsize = ntohl((ULONG) res.apispp_minsize);
result->apispp_maxsize = ntohl((ULONG) res.apispp_maxsize);
result->apispp_extrn = ntohs(res.apispp_extrn);
result->apispp_resvd = 0;
strncpy(result->apispp_dev, res.apispp_dev, LINESIZE+1);
strncpy(result->apispp_form, res.apispp_form, MAXFORM+1);
strncpy(result->apispp_ptr, res.apispp_ptr, PTRNAMESIZE+1);
strncpy(result->apispp_feedback, res.apispp_feedback, PFEEDBACK+1);
strncpy(result->apispp_comment, res.apispp_comment, COMMENTSIZE+1);
return GSPOOL_OK;
}
int gspool_ptrread(const int fd, const unsigned flags, const slotno_t slotno, struct apispptr *result)
{
int ret;
struct api_fd *fdp = gspool_look_fd(fd);
struct api_msg msg;
if (!fdp)
return GSPOOL_INVALID_FD;
msg.code = API_PTRREAD;
msg.un.reader.flags = htonl(flags);
msg.un.reader.seq = htonl(fdp->pserial);
msg.un.reader.slotno = htonl(slotno);
if ((ret = gspool_wmsg(fdp, &msg)))
return ret;
if ((ret = gspool_rmsg(fdp, &msg)))
return ret;;
if (msg.un.r_reader.seq != 0)
fdp->pserial = ntohl(msg.un.r_reader.seq);
if (msg.retcode != 0)
return (SHORT) ntohs(msg.retcode);
return ptr_readrest(fdp, result);
}
int gspool_ptrfindslot(const int fd, const unsigned flags, const char *name, const netid_t nid, slotno_t *slotno)
{
int ret;
struct api_fd *fdp = gspool_look_fd(fd);
struct api_msg msg;
char ptrname[PTRNAMESIZE+1];
if (!fdp)
return GSPOOL_INVALID_FD;
strncpy(ptrname, name, PTRNAMESIZE);
ptrname[PTRNAMESIZE] = '\0';
msg.code = API_FINDPTRSLOT;
msg.un.ptrfind.flags = htonl(flags);
msg.un.ptrfind.netid = nid;
if ((ret = gspool_wmsg(fdp, &msg)))
return ret;
if ((ret = gspool_write(fdp->sockfd, ptrname, sizeof(ptrname))))
return ret;
if ((ret = gspool_rmsg(fdp, &msg)))
return ret;
if (msg.un.r_find.seq != 0)
fdp->pserial = ntohl(msg.un.r_find.seq);
if (msg.retcode != 0)
return (SHORT) ntohs(msg.retcode);
if (slotno)
*slotno = ntohl(msg.un.r_find.slotno);
return GSPOOL_OK;
}
int gspool_ptrfind(const int fd, const unsigned flags, const char *name, const netid_t nid, slotno_t *slotno, struct apispptr *result)
{
int ret;
struct api_fd *fdp = gspool_look_fd(fd);
struct api_msg msg;
char ptrname[PTRNAMESIZE+1];
if (!fdp)
return GSPOOL_INVALID_FD;
strncpy(ptrname, name, PTRNAMESIZE);
ptrname[PTRNAMESIZE] = '\0';
msg.code = API_FINDPTR;
msg.un.ptrfind.flags = htonl(flags);
msg.un.ptrfind.netid = nid;
if ((ret = gspool_wmsg(fdp, &msg)))
return ret;
if ((ret = gspool_write(fdp->sockfd, ptrname, sizeof(ptrname))))
return ret;
if ((ret = gspool_rmsg(fdp, &msg)))
return ret;
if (msg.un.r_find.seq != 0)
fdp->pserial = ntohl(msg.un.r_find.seq);
if (msg.retcode != 0)
return (SHORT) ntohs(msg.retcode);
if (slotno)
*slotno = ntohl(msg.un.r_find.slotno);
return ptr_readrest(fdp, result);
}
gnuspool-1.7ubuntu1/src/apilib/gspool_jobdata.c 0000664 0000000 0000000 00000012407 11366642365 016645 0 ustar /* gspool_jobdata.c -- fetch job data
Copyright 2008 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 3 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 . */
#include
#include
#include
#include "gspool.h"
#include "xtapi_int.h"
#include "pages.h"
#include "incl_unix.h"
#include "incl_net.h"
#include "incl_sig.h"
extern int gspool_read(const int, char *, unsigned);
extern int gspool_write(const int, char *, unsigned);
extern int gspool_rmsg(const struct api_fd *, struct api_msg *);
extern int gspool_wmsg(const struct api_fd *, struct api_msg *);
extern struct api_fd *gspool_look_fd(const int);
static void soakupdata(const struct api_fd * fdp)
{
int bcount;
struct api_msg msg;
char buffer[XTA_BUFFSIZE];
while (gspool_rmsg(fdp, &msg) == 0 && msg.code == API_DATAOUT &&
(bcount = ntohs(msg.un.jobdata.nbytes)) > 0)
if (gspool_read(fdp->sockfd, buffer, (unsigned) bcount) != 0)
return;
}
static FILE *gspool_jdread(const int fd, const unsigned flags, const slotno_t slotno, const unsigned op)
{
int ret;
PIDTYPE cpid;
struct api_fd *fdp = gspool_look_fd(fd);
struct api_msg msg;
int pfd[2];
if (!fdp) {
gspool_dataerror = GSPOOL_INVALID_FD;
return (FILE *) 0;
}
msg.code = (unsigned char) op;
msg.un.reader.flags = htonl(flags);
msg.un.reader.seq = htonl(fdp->jserial);
msg.un.reader.slotno = htonl(slotno);
if ((ret = gspool_wmsg(fdp, &msg))) {
gspool_dataerror = ret;
return (FILE *) 0;
}
if ((ret = gspool_rmsg(fdp, &msg))) {
gspool_dataerror = ret;
return (FILE *) 0;
}
if (msg.un.r_reader.seq != 0)
fdp->jserial = ntohl(msg.un.r_reader.seq);
if (msg.retcode != 0) {
gspool_dataerror = ntohs(msg.retcode);
return (FILE *) 0;
}
/* Ok blast away at the job data */
if (pipe(pfd) < 0) {
gspool_dataerror = GSPOOL_CHILDPROC;
soakupdata(fdp);
return (FILE *) 0;
}
if ((cpid = fork()) != 0) {
int status;
#ifndef HAVE_WAITPID
PIDTYPE rpid;
#endif
if (cpid < 0) {
gspool_dataerror = GSPOOL_CHILDPROC;
soakupdata(fdp);
return (FILE *) 0;
}
close(pfd[1]);
#ifdef HAVE_WAITPID
while (waitpid(cpid, &status, 0) < 0 && errno == EINTR)
;
#else
while ((rpid = wait(&status)) != cpid && (rpid >= 0 || errno == EINTR))
;
#endif
if (status != 0) {
gspool_dataerror = GSPOOL_CHILDPROC;
soakupdata(fdp);
return (FILE *) 0;
}
return fdopen(pfd[0], "r");
}
else {
/* Child process.... Fork again so parent doesn't
have to worry about zombies other than me on a
Monday morning. */
close(pfd[0]);
signal(SIGPIPE, SIG_IGN);
if ((cpid = fork()) != 0)
_exit(cpid < 0? 255: 0);
if (op == API_JOBPBRK) {
int bcount, cnt;
#ifndef WORDS_BIGENDIAN
int lcnt;
#endif
char *delim;
LONG *offs;
struct pages pfp;
if (fdp->buff)
free(fdp->buff);
if (gspool_rmsg(fdp, &msg) != 0 ||
msg.code != API_DATAOUT ||
(bcount = ntohs(msg.un.jobdata.nbytes)) != sizeof(pfp) ||
gspool_read(fdp->sockfd, (char *) &pfp, sizeof(pfp)) != 0)
_exit(0);
#ifndef WORDS_BIGENDIAN
pfp.delimnum = ntohl(pfp.delimnum);
pfp.deliml = ntohl(pfp.deliml);
pfp.lastpage = ntohl(pfp.lastpage);
#endif
gspool_write(pfd[1], (char *) &pfp, sizeof(pfp));
/* Read in delimiter */
if (!(delim = malloc((unsigned) pfp.deliml)))
_exit(255); /* What to do?? */
if (gspool_rmsg(fdp, &msg) != 0 ||
msg.code != API_DATAOUT ||
(bcount = ntohs(msg.un.jobdata.nbytes)) != (int) pfp.deliml ||
gspool_read(fdp->sockfd, delim, bcount) != 0)
_exit(0);
gspool_write(pfd[1], delim, (unsigned) pfp.deliml);
free(delim);
/* Read in page offsets */
if (gspool_rmsg(fdp, &msg) != 0 || msg.code != API_DATAOUT)
_exit(0);
bcount = ntohs(msg.un.jobdata.nbytes);
if (!(offs = (LONG *) malloc((unsigned) bcount)))
_exit(255);
if (gspool_read(fdp->sockfd, (char *) offs, bcount) != 0)
_exit(0);
#ifndef WORDS_BIGENDIAN
lcnt = bcount / sizeof(LONG);
for (cnt = 0; cnt < lcnt; cnt++)
offs[cnt] = ntohl(offs[cnt]);
#endif
gspool_write(pfd[1], (char *) offs, (unsigned) bcount);
}
else {
int bcount;
char buffer[XTA_BUFFSIZE];
while (gspool_rmsg(fdp, &msg) == 0 && msg.code == API_DATAOUT &&
(bcount = ntohs(msg.un.jobdata.nbytes)) > 0) {
if (gspool_read(fdp->sockfd, buffer, (unsigned) bcount) != 0)
_exit(0);
gspool_write(pfd[1], buffer, bcount);
}
}
close(pfd[1]);
_exit(0);
}
}
FILE *gspool_jobdata(const int fd, const unsigned flags, const slotno_t slotno)
{
return gspool_jdread(fd, flags, slotno, API_JOBDATA);
}
FILE *gspool_jobpbrk(const int fd, const unsigned flags, const slotno_t slotno)
{
return gspool_jdread(fd, flags, slotno, API_JOBPBRK);
}
gnuspool-1.7ubuntu1/src/apilib/gspool_jobread.c 0000664 0000000 0000000 00000012035 11366642365 016644 0 ustar /* gspool_jobread.c -- get attributes of job
Copyright 2008 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 3 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 . */
#include
#include
#include "gspool.h"
#include "xtapi_int.h"
#include "incl_unix.h"
#include "incl_net.h"
extern int gspool_read(const int, char *, unsigned);
extern int gspool_rmsg(const struct api_fd *, struct api_msg *);
extern int gspool_wmsg(const struct api_fd *, struct api_msg *);
extern struct api_fd *gspool_look_fd(const int);
static int job_readrest(struct api_fd *fdp, struct apispq *result)
{
int ret;
struct apispq res;
if ((ret = gspool_read(fdp->sockfd, (char *) &res, sizeof(res))))
return ret;
/* And now do all the byte-swapping */
result->apispq_job = ntohl((ULONG) res.apispq_job);
result->apispq_netid = res.apispq_netid;
result->apispq_orighost = res.apispq_orighost;
result->apispq_rslot = ntohl(res.apispq_rslot);
result->apispq_time = ntohl((ULONG) res.apispq_time);
result->apispq_proptime = 0L;
result->apispq_starttime = ntohl((ULONG) res.apispq_starttime);
result->apispq_hold = ntohl((ULONG) res.apispq_hold);
result->apispq_nptimeout = ntohs(res.apispq_nptimeout);
result->apispq_ptimeout = ntohs(res.apispq_ptimeout);
result->apispq_size = ntohl((ULONG) res.apispq_size);
result->apispq_posn = ntohl((ULONG) res.apispq_posn);
result->apispq_pagec = ntohl((ULONG) res.apispq_pagec);
result->apispq_npages = ntohl((ULONG) res.apispq_npages);
result->apispq_cps = res.apispq_cps;
result->apispq_pri = res.apispq_pri;
result->apispq_wpri = ntohs((USHORT) res.apispq_wpri);
result->apispq_jflags = ntohs(res.apispq_jflags);
result->apispq_sflags = res.apispq_sflags;
result->apispq_dflags = res.apispq_dflags;
result->apispq_extrn = ntohs(res.apispq_extrn);
result->apispq_pglim = 0;
result->apispq_class = ntohl(res.apispq_class);
result->apispq_pslot = ntohl(res.apispq_pslot);
result->apispq_start = ntohl((ULONG) res.apispq_start);
result->apispq_end = ntohl((ULONG) res.apispq_end);
result->apispq_haltat = ntohl((ULONG) res.apispq_haltat);
result->apispq_uid = ntohl(res.apispq_uid);
strncpy(result->apispq_uname, res.apispq_uname, UIDSIZE+1);
strncpy(result->apispq_puname, res.apispq_puname, UIDSIZE+1);
strncpy(result->apispq_file, res.apispq_file, MAXTITLE+1);
strncpy(result->apispq_form, res.apispq_form, MAXFORM+1);
strncpy(result->apispq_ptr, res.apispq_ptr, JPTRNAMESIZE+1);
strncpy(result->apispq_flags, res.apispq_flags, MAXFLAGS+1);
return GSPOOL_OK;
}
int gspool_jobread(const int fd, const unsigned flags, const slotno_t slotno, struct apispq *result)
{
int ret;
struct api_fd *fdp = gspool_look_fd(fd);
struct api_msg msg;
if (!fdp)
return GSPOOL_INVALID_FD;
msg.code = API_JOBREAD;
msg.un.reader.flags = htonl(flags);
msg.un.reader.seq = htonl(fdp->jserial);
msg.un.reader.slotno = htonl(slotno);
if ((ret = gspool_wmsg(fdp, &msg)))
return ret;
if ((ret = gspool_rmsg(fdp, &msg)))
return ret;
if (msg.un.r_reader.seq != 0)
fdp->jserial = ntohl(msg.un.r_reader.seq);
if (msg.retcode != 0)
return (SHORT) ntohs(msg.retcode);
return job_readrest(fdp, result);
}
int gspool_jobfindslot(const int fd, const unsigned flags, const jobno_t jn, const netid_t nid, slotno_t *slot)
{
int ret;
struct api_fd *fdp = gspool_look_fd(fd);
struct api_msg msg;
if (!fdp)
return GSPOOL_INVALID_FD;
msg.code = API_FINDJOBSLOT;
msg.un.jobfind.flags = htonl(flags);
msg.un.jobfind.netid = nid;
msg.un.jobfind.jobno = htonl(jn);
if ((ret = gspool_wmsg(fdp, &msg)))
return ret;
if ((ret = gspool_rmsg(fdp, &msg)))
return ret;
if (msg.un.r_find.seq != 0)
fdp->jserial = ntohl(msg.un.r_find.seq);
if (msg.retcode != 0)
return (SHORT) ntohs(msg.retcode);
if (slot)
*slot = ntohl(msg.un.r_find.slotno);
return GSPOOL_OK;
}
int gspool_jobfind(const int fd, const unsigned flags, const jobno_t jn, const netid_t nid, slotno_t *slot, struct apispq *jp)
{
int ret;
struct api_fd *fdp = gspool_look_fd(fd);
struct api_msg msg;
if (!fdp)
return GSPOOL_INVALID_FD;
msg.code = API_FINDJOB;
msg.un.jobfind.flags = htonl(flags);
msg.un.jobfind.netid = nid;
msg.un.jobfind.jobno = htonl(jn);
if ((ret = gspool_wmsg(fdp, &msg)))
return ret;
if ((ret = gspool_rmsg(fdp, &msg)))
return ret;
if (msg.un.r_find.seq != 0)
fdp->jserial = ntohl(msg.un.r_find.seq);
if (msg.retcode != 0)
return (SHORT) ntohs(msg.retcode);
if (slot)
*slot = ntohl(msg.un.r_find.slotno);
return job_readrest(fdp, jp);
}
gnuspool-1.7ubuntu1/src/apilib/gspool_putspd.c 0000664 0000000 0000000 00000004266 11366642365 016564 0 ustar /* gspool_putspd.c -- API save default user permissions
Copyright 2008 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 3 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 . */
#include
#include
#include "gspool.h"
#include "xtapi_int.h"
#include "incl_unix.h"
#include "incl_net.h"
extern int gspool_write(const int, char *, unsigned);
extern int gspool_rmsg(const struct api_fd *, struct api_msg *);
extern int gspool_wmsg(const struct api_fd *, struct api_msg *);
extern struct api_fd *gspool_look_fd(const int);
int gspool_putspd(const int fd, const struct apisphdr *res)
{
int ret;
struct api_fd *fdp = gspool_look_fd(fd);
struct api_msg msg;
struct apisphdr buf;
if (!fdp)
return GSPOOL_INVALID_FD;
msg.code = API_PUTSPD;
/* And now do all the byte-swapping */
buf.sph_minp = res->sph_minp;
buf.sph_maxp = res->sph_maxp;
buf.sph_defp = res->sph_defp;
strncpy(buf.sph_form, res->sph_form, MAXFORM);
strncpy(buf.sph_formallow, res->sph_formallow, ALLOWFORMSIZE);
strncpy(buf.sph_ptr, res->sph_ptr, PTRNAMESIZE);
strncpy(buf.sph_ptrallow, res->sph_ptrallow, JPTRNAMESIZE);
buf.sph_form[MAXFORM] = '\0';
buf.sph_formallow[ALLOWFORMSIZE] = '\0';
buf.sph_ptr[PTRNAMESIZE] = '\0';
buf.sph_ptrallow[JPTRNAMESIZE] = '\0';
buf.sph_flgs = htonl(res->sph_flgs);
buf.sph_class = htonl(res->sph_class);
buf.sph_cps = res->sph_cps;
if ((ret = gspool_wmsg(fdp, &msg)))
return ret;
if ((ret = gspool_write(fdp->sockfd, (char *) &buf, sizeof(buf))))
return ret;
if ((ret = gspool_rmsg(fdp, &msg)))
return ret;
if (msg.retcode != 0)
return (SHORT) ntohs(msg.retcode);
return GSPOOL_OK;
}
gnuspool-1.7ubuntu1/src/apilib/gspool_open.c 0000664 0000000 0000000 00000021604 11366642365 016201 0 ustar /* gspool_open.c -- API open connection
Copyright 2008 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 3 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 . */
#include
#include
#include "gspool.h"
#ifdef HAVE_FCNTL_H
#include
#endif
#include
#include
#ifdef HAVE_SYS_IOCTL_H
#include
#endif
#include "xtapi_int.h"
#include "incl_unix.h"
#include "incl_net.h"
#include "incl_sig.h"
#include "files.h"
#ifdef TIME_WITH_SYS_TIME
#include
#include
#elif defined(HAVE_SYS_TIME_H)
#include