Imported Upstream version 1.6.0upstream/1.6.0

5 files changed, 0 insertions, 483 deletions

diff --git a/scripting/perl/CUPS.pm b/scripting/perl/CUPS.pm
deleted file mode 100644
index 5f2ed5f1..00000000
--- a/scripting/perl/CUPS.pm
+++ /dev/null
@@ -1,144 +0,0 @@
-package CUPS;
-
-use 5.006;
-use strict;
-use warnings;
-use Carp;
-
-require Exporter;
-require DynaLoader;
-use AutoLoader;
-
-our @ISA = qw(Exporter DynaLoader);
-
-# Items to export into callers namespace by default. Note: do not export
-# names by default without a very good reason. Use EXPORT_OK instead.
-# Do not simply export all your public functions/methods/constants.
-
-# This allows declaration	use CUPS ':all';
-# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
-# will save memory.
-our %EXPORT_TAGS = ( 'all' => [ qw(
-	CUPS_DATE_ANY
-	CUPS_VERSION
-	HTTP_MAX_BUFFER
-	HTTP_MAX_HOST
-	HTTP_MAX_URI
-	HTTP_MAX_VALUE
-	IPP_MAX_NAME
-	IPP_MAX_VALUES
-	IPP_PORT
-	PPD_MAX_LINE
-	PPD_MAX_NAME
-	PPD_MAX_TEXT
-	PPD_VERSION
-) ] );
-
-our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
-
-our @EXPORT = qw(
-	CUPS_DATE_ANY
-	CUPS_VERSION
-	HTTP_MAX_BUFFER
-	HTTP_MAX_HOST
-	HTTP_MAX_URI
-	HTTP_MAX_VALUE
-	IPP_MAX_NAME
-	IPP_MAX_VALUES
-	IPP_PORT
-	PPD_MAX_LINE
-	PPD_MAX_NAME
-	PPD_MAX_TEXT
-	PPD_VERSION
-);
-our $VERSION = '1.2';
-
-sub AUTOLOAD {
-    # This AUTOLOAD is used to 'autoload' constants from the constant()
-    # XS function.  If a constant is not found then control is passed
-    # to the AUTOLOAD in AutoLoader.
-
-    my $constname;
-    our $AUTOLOAD;
-    ($constname = $AUTOLOAD) =~ s/.*:://;
-    croak "& not defined" if $constname eq 'constant';
-    my $val = constant($constname, @_ ? $_[0] : 0);
-    if ($! != 0) {
-	if ($! =~ /Invalid/ || $!{EINVAL}) {
-	    $AutoLoader::AUTOLOAD = $AUTOLOAD;
-	    goto &AutoLoader::AUTOLOAD;
-	}
-	else {
-	    croak "Your vendor has not defined CUPS macro $constname";
-	}
-    }
-    {
-	no strict 'refs';
-	# Fixed between 5.005_53 and 5.005_61
-	if ($] >= 5.00561) {
-	    *$AUTOLOAD = sub () { $val };
-	}
-	else {
-	    *$AUTOLOAD = sub { $val };
-	}
-    }
-    goto &$AUTOLOAD;
-}
-
-bootstrap CUPS $VERSION;
-
-# Preloaded methods go here.
-
-# Autoload methods go after =cut, and are processed by the autosplit program.
-
-1;
-__END__
-# Below is stub documentation for your module. You better edit it!
-
-=head1 NAME
-
-CUPS - Perl extension for blah blah blah
-
-=head1 SYNOPSIS
-
-  use CUPS;
-  blah blah blah
-
-=head1 DESCRIPTION
-
-Stub documentation for CUPS, created by h2xs. It looks like the
-author of the extension was negligent enough to leave the stub
-unedited.
-
-Blah blah blah.
-
-=head2 EXPORT
-
-None by default.
-
-=head2 Exportable constants
-
-  CUPS_DATE_ANY
-  CUPS_VERSION
-  HTTP_MAX_BUFFER
-  HTTP_MAX_HOST
-  HTTP_MAX_URI
-  HTTP_MAX_VALUE
-  IPP_MAX_NAME
-  IPP_MAX_VALUES
-  IPP_PORT
-  PPD_MAX_LINE
-  PPD_MAX_NAME
-  PPD_MAX_TEXT
-  PPD_VERSION
-
-
-=head1 AUTHOR
-
-A. U. Thor, E<lt>a.u.thor@a.galaxy.far.far.awayE<gt>
-
-=head1 SEE ALSO
-
-L<perl>.
-
-=cut
diff --git a/scripting/perl/CUPS.xs b/scripting/perl/CUPS.xs
deleted file mode 100644
index efaf6dc7..00000000
--- a/scripting/perl/CUPS.xs
+++ /dev/null
@@ -1,270 +0,0 @@
-#include "EXTERN.h"
-#include "perl.h"
-#include "XSUB.h"
-
-#include <cups/cups.h>
-#include <cups/http.h>
-#include <cups/ipp.h>
-#include <cups/language.h>
-#include <cups/ppd.h>
-
-static int
-not_here(char *s)
-{
-    croak("%s not implemented on this architecture", s);
-    return -1;
-}
-
-static double
-constant_PPD_M(char *name, int len, int arg)
-{
-    if (5 + 3 >= len ) {
-	errno = EINVAL;
-	return 0;
-    }
-    switch (name[5 + 3]) {
-    case 'L':
-	if (strEQ(name + 5, "AX_LINE")) {	/* PPD_M removed */
-#ifdef PPD_MAX_LINE
-	    return PPD_MAX_LINE;
-#else
-	    goto not_there;
-#endif
-	}
-    case 'N':
-	if (strEQ(name + 5, "AX_NAME")) {	/* PPD_M removed */
-#ifdef PPD_MAX_NAME
-	    return PPD_MAX_NAME;
-#else
-	    goto not_there;
-#endif
-	}
-    case 'T':
-	if (strEQ(name + 5, "AX_TEXT")) {	/* PPD_M removed */
-#ifdef PPD_MAX_TEXT
-	    return PPD_MAX_TEXT;
-#else
-	    goto not_there;
-#endif
-	}
-    }
-    errno = EINVAL;
-    return 0;
-
-not_there:
-    errno = ENOENT;
-    return 0;
-}
-
-static double
-constant_P(char *name, int len, int arg)
-{
-    if (1 + 3 >= len ) {
-	errno = EINVAL;
-	return 0;
-    }
-    switch (name[1 + 3]) {
-    case 'M':
-	if (!strnEQ(name + 1,"PD_", 3))
-	    break;
-	return constant_PPD_M(name, len, arg);
-    case 'V':
-	if (strEQ(name + 1, "PD_VERSION")) {	/* P removed */
-#ifdef PPD_VERSION
-	    return PPD_VERSION;
-#else
-	    goto not_there;
-#endif
-	}
-    }
-    errno = EINVAL;
-    return 0;
-
-not_there:
-    errno = ENOENT;
-    return 0;
-}
-
-static double
-constant_H(char *name, int len, int arg)
-{
-    if (1 + 8 >= len ) {
-	errno = EINVAL;
-	return 0;
-    }
-    switch (name[1 + 8]) {
-    case 'B':
-	if (strEQ(name + 1, "TTP_MAX_BUFFER")) {	/* H removed */
-#ifdef HTTP_MAX_BUFFER
-	    return HTTP_MAX_BUFFER;
-#else
-	    goto not_there;
-#endif
-	}
-    case 'H':
-	if (strEQ(name + 1, "TTP_MAX_HOST")) {	/* H removed */
-#ifdef HTTP_MAX_HOST
-	    return HTTP_MAX_HOST;
-#else
-	    goto not_there;
-#endif
-	}
-    case 'U':
-	if (strEQ(name + 1, "TTP_MAX_URI")) {	/* H removed */
-#ifdef HTTP_MAX_URI
-	    return HTTP_MAX_URI;
-#else
-	    goto not_there;
-#endif
-	}
-    case 'V':
-	if (strEQ(name + 1, "TTP_MAX_VALUE")) {	/* H removed */
-#ifdef HTTP_MAX_VALUE
-	    return HTTP_MAX_VALUE;
-#else
-	    goto not_there;
-#endif
-	}
-    }
-    errno = EINVAL;
-    return 0;
-
-not_there:
-    errno = ENOENT;
-    return 0;
-}
-
-static double
-constant_IPP_M(char *name, int len, int arg)
-{
-    if (5 + 3 >= len ) {
-	errno = EINVAL;
-	return 0;
-    }
-    switch (name[5 + 3]) {
-    case 'N':
-	if (strEQ(name + 5, "AX_NAME")) {	/* IPP_M removed */
-#ifdef IPP_MAX_NAME
-	    return IPP_MAX_NAME;
-#else
-	    goto not_there;
-#endif
-	}
-    case 'V':
-	if (strEQ(name + 5, "AX_VALUES")) {	/* IPP_M removed */
-#ifdef IPP_MAX_VALUES
-	    return IPP_MAX_VALUES;
-#else
-	    goto not_there;
-#endif
-	}
-    }
-    errno = EINVAL;
-    return 0;
-
-not_there:
-    errno = ENOENT;
-    return 0;
-}
-
-static double
-constant_I(char *name, int len, int arg)
-{
-    if (1 + 3 >= len ) {
-	errno = EINVAL;
-	return 0;
-    }
-    switch (name[1 + 3]) {
-    case 'M':
-	if (!strnEQ(name + 1,"PP_", 3))
-	    break;
-	return constant_IPP_M(name, len, arg);
-    case 'P':
-	if (strEQ(name + 1, "PP_PORT")) {	/* I removed */
-#ifdef IPP_PORT
-	    return IPP_PORT;
-#else
-	    goto not_there;
-#endif
-	}
-    }
-    errno = EINVAL;
-    return 0;
-
-not_there:
-    errno = ENOENT;
-    return 0;
-}
-
-static double
-constant_C(char *name, int len, int arg)
-{
-    if (1 + 4 >= len ) {
-	errno = EINVAL;
-	return 0;
-    }
-    switch (name[1 + 4]) {
-    case 'D':
-	if (strEQ(name + 1, "UPS_DATE_ANY")) {	/* C removed */
-#ifdef CUPS_DATE_ANY
-	    return CUPS_DATE_ANY;
-#else
-	    goto not_there;
-#endif
-	}
-    case 'V':
-	if (strEQ(name + 1, "UPS_VERSION")) {	/* C removed */
-#ifdef CUPS_VERSION
-	    return CUPS_VERSION;
-#else
-	    goto not_there;
-#endif
-	}
-    }
-    errno = EINVAL;
-    return 0;
-
-not_there:
-    errno = ENOENT;
-    return 0;
-}
-
-static double
-constant(char *name, int len, int arg)
-{
-    errno = 0;
-    switch (name[0 + 0]) {
-    case 'C':
-	return constant_C(name, len, arg);
-    case 'H':
-	return constant_H(name, len, arg);
-    case 'I':
-	return constant_I(name, len, arg);
-    case 'P':
-	return constant_P(name, len, arg);
-    }
-    errno = EINVAL;
-    return 0;
-
-not_there:
-    errno = ENOENT;
-    return 0;
-}
-
-
-MODULE = CUPS		PACKAGE = CUPS		
-
-
-double
-constant(sv,arg)
-    PREINIT:
-	STRLEN		len;
-    INPUT:
-	SV *		sv
-	char *		s = SvPV(sv, len);
-	int		arg
-    CODE:
-	RETVAL = constant(s,len,arg);
-    OUTPUT:
-	RETVAL
-
diff --git a/scripting/perl/Makefile.PL b/scripting/perl/Makefile.PL
deleted file mode 100644
index f5e4bdd2..00000000
--- a/scripting/perl/Makefile.PL
+++ /dev/null
@@ -1,17 +0,0 @@
-use ExtUtils::MakeMaker;
-# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-# the contents of the Makefile that is written.
-WriteMakefile(
-    'NAME'		=> 'CUPS',
-    'VERSION_FROM'	=> 'CUPS.pm', # finds $VERSION
-    'PREREQ_PM'		=> {}, # e.g., Module::Name => 1.1
-    ($] >= 5.005 ?    ## Add these new keywords supported since 5.005
-      (ABSTRACT_FROM => 'CUPS.pm', # retrieve abstract from module
-       AUTHOR     => 'A. U. Thor <a.u.thor@a.galaxy.far.far.away>') : ()),
-    'LIBS'		=> ['-lcups '], # e.g., '-lm'
-    'DEFINE'		=> '', # e.g., '-DHAVE_SOMETHING'
-	# Insert -I. if you add *.h files later:
-    'INC'		=> '', # e.g., '-I/usr/include/other'
-	# Un-comment this if you add C files to link with later:
-    # 'OBJECT'		=> '$(O_FILES)', # link all the C files too
-);
diff --git a/scripting/perl/README b/scripting/perl/README
deleted file mode 100644
index 1605c779..00000000
--- a/scripting/perl/README
+++ /dev/null
@@ -1,35 +0,0 @@
-CUPS version 1.2
-================
-
-The README is used to introduce the module and provide instructions on
-how to install the module, any machine dependencies it may have (for
-example C compilers and installed libraries) and any other information
-that should be provided before the module is installed.
-
-A README file is required for CPAN modules since CPAN extracts the
-README file from a module distribution so that people browsing the
-archive can use it get an idea of the modules uses. It is usually a
-good idea to provide version information here so that people can
-decide whether fixes for the module are worth downloading.
-
-INSTALLATION
-
-To install this module type the following:
-
-   perl Makefile.PL
-   make
-   make test
-   make install
-
-DEPENDENCIES
-
-This module requires these other modules and libraries:
-
-  blah blah blah
-
-COPYRIGHT AND LICENCE
-
-Put the correct copyright and licence information here.
-
-Copyright (C) 2002 A. U. Thor blah blah blah
-
diff --git a/scripting/perl/test.pl b/scripting/perl/test.pl
deleted file mode 100644
index acf31916..00000000
--- a/scripting/perl/test.pl
+++ /dev/null
@@ -1,17 +0,0 @@
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl test.pl'
-
-#########################
-
-# change 'tests => 1' to 'tests => last_test_to_print';
-
-use Test;
-BEGIN { plan tests => 1 };
-use CUPS;
-ok(1); # If we made it this far, we're ok.
-
-#########################
-
-# Insert your test code below, the Test module is use()ed here so read
-# its man page ( perldoc Test ) for help writing this test script.
-