summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl
diff options
context:
space:
mode:
authorVladimir Volovich <vvv@vsu.ru>2008-04-18 05:41:52 +0000
committerVladimir Volovich <vvv@vsu.ru>2008-04-18 05:41:52 +0000
commita70e6f5fc1e57dc430e6ae02aa5d146b954cd817 (patch)
tree364a7a783c2fee0c2843698fb3df5020a37f0bdd /Master/tlpkg/tlperl
parent1563f1bb7d25dfaf1686d191ab35cac8166d677d (diff)
added Errno.pm to make File::Temp usable: File::Temp is included into tlperl
but it requires Errno.pm to work. git-svn-id: svn://tug.org/texlive/trunk@7483 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl')
-rw-r--r--Master/tlpkg/tlperl/lib/Errno.pm227
1 files changed, 227 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Errno.pm b/Master/tlpkg/tlperl/lib/Errno.pm
new file mode 100644
index 00000000000..23c07ea0482
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/Errno.pm
@@ -0,0 +1,227 @@
+#
+# This file is auto-generated. ***ANY*** changes here will be lost
+#
+
+package Errno;
+our (@EXPORT_OK,%EXPORT_TAGS,@ISA,$VERSION,%errno,$AUTOLOAD);
+use Exporter ();
+use strict;
+
+$VERSION = "1.09_01";
+$VERSION = eval $VERSION;
+@ISA = qw(Exporter);
+
+@EXPORT_OK = qw(EBADR ENOMSG ENOTSUP ESTRPIPE EADDRINUSE EL3HLT EBADF
+ ENOTBLK ENAVAIL ECHRNG ENOTNAM ELNRNG ENOKEY EXDEV EBADE EBADSLT
+ ECONNREFUSED ENOSTR ENONET EOVERFLOW EISCONN EFBIG EKEYREVOKED
+ ECONNRESET EWOULDBLOCK ELIBMAX EREMOTEIO ENOPKG ELIBSCN EDESTADDRREQ
+ ENOTSOCK EIO EMEDIUMTYPE EINPROGRESS ERANGE EAFNOSUPPORT EADDRNOTAVAIL
+ EINTR EREMOTE EILSEQ ENOMEM EPIPE ENETUNREACH ENODATA EUSERS
+ EOPNOTSUPP EPROTO EISNAM ESPIPE EALREADY ENAMETOOLONG ENOEXEC EISDIR
+ EBADRQC EEXIST EDOTDOT ELIBBAD EOWNERDEAD ESRCH EFAULT EXFULL
+ EDEADLOCK EAGAIN ENOPROTOOPT ENETDOWN EPROTOTYPE EL2NSYNC ENETRESET
+ EUCLEAN EADV EROFS ESHUTDOWN EMULTIHOP EPROTONOSUPPORT ENFILE ENOLCK
+ ECONNABORTED ECANCELED EDEADLK ESRMNT ENOLINK ETIME ENOTDIR EINVAL
+ ENOTTY ENOANO ELOOP ENOENT EPFNOSUPPORT EBADMSG ENOMEDIUM EL2HLT EDOM
+ EBFONT EKEYEXPIRED EMSGSIZE ENOCSI EL3RST ENOSPC EIDRM ENOBUFS ENOSYS
+ EHOSTDOWN EBADFD ENOSR ENOTCONN ESTALE EDQUOT EKEYREJECTED EMFILE
+ ENOTRECOVERABLE EACCES EBUSY E2BIG EPERM ELIBEXEC ETOOMANYREFS ELIBACC
+ ENOTUNIQ ECOMM ERESTART ESOCKTNOSUPPORT EUNATCH ETIMEDOUT ENXIO ENODEV
+ ETXTBSY EMLINK ECHILD EHOSTUNREACH EREMCHG ENOTEMPTY);
+
+%EXPORT_TAGS = (
+ POSIX => [qw(
+ E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN EALREADY
+ EBADF EBUSY ECHILD ECONNABORTED ECONNREFUSED ECONNRESET EDEADLK
+ EDESTADDRREQ EDOM EDQUOT EEXIST EFAULT EFBIG EHOSTDOWN EHOSTUNREACH
+ EINPROGRESS EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK
+ EMSGSIZE ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS
+ ENODEV ENOENT ENOEXEC ENOLCK ENOMEM ENOPROTOOPT ENOSPC ENOSYS ENOTBLK
+ ENOTCONN ENOTDIR ENOTEMPTY ENOTSOCK ENOTTY ENXIO EOPNOTSUPP EPERM
+ EPFNOSUPPORT EPIPE EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE ERESTART
+ EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE ETIMEDOUT
+ ETOOMANYREFS ETXTBSY EUSERS EWOULDBLOCK EXDEV
+ )]
+);
+
+sub EPERM () { 1 }
+sub ENOENT () { 2 }
+sub ESRCH () { 3 }
+sub EINTR () { 4 }
+sub EIO () { 5 }
+sub ENXIO () { 6 }
+sub E2BIG () { 7 }
+sub ENOEXEC () { 8 }
+sub EBADF () { 9 }
+sub ECHILD () { 10 }
+sub EWOULDBLOCK () { 11 }
+sub EAGAIN () { 11 }
+sub ENOMEM () { 12 }
+sub EACCES () { 13 }
+sub EFAULT () { 14 }
+sub ENOTBLK () { 15 }
+sub EBUSY () { 16 }
+sub EEXIST () { 17 }
+sub EXDEV () { 18 }
+sub ENODEV () { 19 }
+sub ENOTDIR () { 20 }
+sub EISDIR () { 21 }
+sub EINVAL () { 22 }
+sub ENFILE () { 23 }
+sub EMFILE () { 24 }
+sub ENOTTY () { 25 }
+sub ETXTBSY () { 26 }
+sub EFBIG () { 27 }
+sub ENOSPC () { 28 }
+sub ESPIPE () { 29 }
+sub EROFS () { 30 }
+sub EMLINK () { 31 }
+sub EPIPE () { 32 }
+sub EDOM () { 33 }
+sub ERANGE () { 34 }
+sub EDEADLOCK () { 35 }
+sub EDEADLK () { 35 }
+sub ENAMETOOLONG () { 36 }
+sub ENOLCK () { 37 }
+sub ENOSYS () { 38 }
+sub ENOTEMPTY () { 39 }
+sub ELOOP () { 40 }
+sub ENOMSG () { 42 }
+sub EIDRM () { 43 }
+sub ECHRNG () { 44 }
+sub EL2NSYNC () { 45 }
+sub EL3HLT () { 46 }
+sub EL3RST () { 47 }
+sub ELNRNG () { 48 }
+sub EUNATCH () { 49 }
+sub ENOCSI () { 50 }
+sub EL2HLT () { 51 }
+sub EBADE () { 52 }
+sub EBADR () { 53 }
+sub EXFULL () { 54 }
+sub ENOANO () { 55 }
+sub EBADRQC () { 56 }
+sub EBADSLT () { 57 }
+sub EBFONT () { 59 }
+sub ENOSTR () { 60 }
+sub ENODATA () { 61 }
+sub ETIME () { 62 }
+sub ENOSR () { 63 }
+sub ENONET () { 64 }
+sub ENOPKG () { 65 }
+sub EREMOTE () { 66 }
+sub ENOLINK () { 67 }
+sub EADV () { 68 }
+sub ESRMNT () { 69 }
+sub ECOMM () { 70 }
+sub EPROTO () { 71 }
+sub EMULTIHOP () { 72 }
+sub EDOTDOT () { 73 }
+sub EBADMSG () { 74 }
+sub EOVERFLOW () { 75 }
+sub ENOTUNIQ () { 76 }
+sub EBADFD () { 77 }
+sub EREMCHG () { 78 }
+sub ELIBACC () { 79 }
+sub ELIBBAD () { 80 }
+sub ELIBSCN () { 81 }
+sub ELIBMAX () { 82 }
+sub ELIBEXEC () { 83 }
+sub EILSEQ () { 84 }
+sub ERESTART () { 85 }
+sub ESTRPIPE () { 86 }
+sub EUSERS () { 87 }
+sub ENOTSOCK () { 88 }
+sub EDESTADDRREQ () { 89 }
+sub EMSGSIZE () { 90 }
+sub EPROTOTYPE () { 91 }
+sub ENOPROTOOPT () { 92 }
+sub EPROTONOSUPPORT () { 93 }
+sub ESOCKTNOSUPPORT () { 94 }
+sub ENOTSUP () { 95 }
+sub EOPNOTSUPP () { 95 }
+sub EPFNOSUPPORT () { 96 }
+sub EAFNOSUPPORT () { 97 }
+sub EADDRINUSE () { 98 }
+sub EADDRNOTAVAIL () { 99 }
+sub ENETDOWN () { 100 }
+sub ENETUNREACH () { 101 }
+sub ENETRESET () { 102 }
+sub ECONNABORTED () { 103 }
+sub ECONNRESET () { 104 }
+sub ENOBUFS () { 105 }
+sub EISCONN () { 106 }
+sub ENOTCONN () { 107 }
+sub ESHUTDOWN () { 108 }
+sub ETOOMANYREFS () { 109 }
+sub ETIMEDOUT () { 110 }
+sub ECONNREFUSED () { 111 }
+sub EHOSTDOWN () { 112 }
+sub EHOSTUNREACH () { 113 }
+sub EALREADY () { 114 }
+sub EINPROGRESS () { 115 }
+sub ESTALE () { 116 }
+sub EUCLEAN () { 117 }
+sub ENOTNAM () { 118 }
+sub ENAVAIL () { 119 }
+sub EISNAM () { 120 }
+sub EREMOTEIO () { 121 }
+sub EDQUOT () { 122 }
+sub ENOMEDIUM () { 123 }
+sub EMEDIUMTYPE () { 124 }
+sub ECANCELED () { 125 }
+sub ENOKEY () { 126 }
+sub EKEYEXPIRED () { 127 }
+sub EKEYREVOKED () { 128 }
+sub EKEYREJECTED () { 129 }
+sub EOWNERDEAD () { 130 }
+sub ENOTRECOVERABLE () { 131 }
+
+sub TIEHASH { bless [] }
+
+sub FETCH {
+ my ($self, $errname) = @_;
+ my $proto = prototype("Errno::$errname");
+ my $errno = "";
+ if (defined($proto) && $proto eq "") {
+ no strict 'refs';
+ $errno = &$errname;
+ $errno = 0 unless $! == $errno;
+ }
+ return $errno;
+}
+
+sub STORE {
+ require Carp;
+ Carp::confess("ERRNO hash is read only!");
+}
+
+*CLEAR = \&STORE;
+*DELETE = \&STORE;
+
+sub NEXTKEY {
+ my($k,$v);
+ while(($k,$v) = each %Errno::) {
+ my $proto = prototype("Errno::$k");
+ last if (defined($proto) && $proto eq "");
+ }
+ $k
+}
+
+sub FIRSTKEY {
+ my $s = scalar keys %Errno::; # initialize iterator
+ goto &NEXTKEY;
+}
+
+sub EXISTS {
+ my ($self, $errname) = @_;
+ my $r = ref $errname;
+ my $proto = !$r || $r eq 'CODE' ? prototype($errname) : undef;
+ defined($proto) && $proto eq "";
+}
+
+tie %!, __PACKAGE__;
+
+1;
+__END__
+