From fbf4a6e8014789c67a381e0b4f05de5bdadbce24 Mon Sep 17 00:00:00 2001 From: Staszek Wawrykiewicz Date: Mon, 18 Dec 2006 03:24:34 +0000 Subject: perltl added git-svn-id: svn://tug.org/texlive/trunk@2778 c570f23f-e606-0410-a88d-b1316a301751 --- Master/perltl/lib/auto/POSIX/POSIX.dll | Bin 0 -> 86016 bytes Master/perltl/lib/auto/POSIX/abs.al | 13 ++ Master/perltl/lib/auto/POSIX/alarm.al | 13 ++ Master/perltl/lib/auto/POSIX/assert.al | 15 ++ Master/perltl/lib/auto/POSIX/atan2.al | 13 ++ Master/perltl/lib/auto/POSIX/atexit.al | 12 ++ Master/perltl/lib/auto/POSIX/atof.al | 12 ++ Master/perltl/lib/auto/POSIX/atoi.al | 12 ++ Master/perltl/lib/auto/POSIX/atol.al | 12 ++ Master/perltl/lib/auto/POSIX/autosplit.ix | 153 ++++++++++++++++++ Master/perltl/lib/auto/POSIX/bsearch.al | 12 ++ Master/perltl/lib/auto/POSIX/calloc.al | 12 ++ Master/perltl/lib/auto/POSIX/chdir.al | 13 ++ Master/perltl/lib/auto/POSIX/chmod.al | 13 ++ Master/perltl/lib/auto/POSIX/chown.al | 13 ++ Master/perltl/lib/auto/POSIX/clearerr.al | 12 ++ Master/perltl/lib/auto/POSIX/closedir.al | 13 ++ Master/perltl/lib/auto/POSIX/cos.al | 13 ++ Master/perltl/lib/auto/POSIX/creat.al | 13 ++ Master/perltl/lib/auto/POSIX/div.al | 12 ++ Master/perltl/lib/auto/POSIX/errno.al | 13 ++ Master/perltl/lib/auto/POSIX/execl.al | 12 ++ Master/perltl/lib/auto/POSIX/execle.al | 12 ++ Master/perltl/lib/auto/POSIX/execlp.al | 12 ++ Master/perltl/lib/auto/POSIX/execv.al | 12 ++ Master/perltl/lib/auto/POSIX/execve.al | 12 ++ Master/perltl/lib/auto/POSIX/execvp.al | 12 ++ Master/perltl/lib/auto/POSIX/exit.al | 13 ++ Master/perltl/lib/auto/POSIX/exp.al | 13 ++ Master/perltl/lib/auto/POSIX/fabs.al | 13 ++ Master/perltl/lib/auto/POSIX/fclose.al | 12 ++ Master/perltl/lib/auto/POSIX/fcntl.al | 13 ++ Master/perltl/lib/auto/POSIX/fdopen.al | 12 ++ Master/perltl/lib/auto/POSIX/feof.al | 12 ++ Master/perltl/lib/auto/POSIX/ferror.al | 12 ++ Master/perltl/lib/auto/POSIX/fflush.al | 12 ++ Master/perltl/lib/auto/POSIX/fgetc.al | 12 ++ Master/perltl/lib/auto/POSIX/fgetpos.al | 12 ++ Master/perltl/lib/auto/POSIX/fgets.al | 12 ++ Master/perltl/lib/auto/POSIX/fileno.al | 12 ++ Master/perltl/lib/auto/POSIX/fopen.al | 12 ++ Master/perltl/lib/auto/POSIX/fork.al | 13 ++ Master/perltl/lib/auto/POSIX/fprintf.al | 12 ++ Master/perltl/lib/auto/POSIX/fputc.al | 12 ++ Master/perltl/lib/auto/POSIX/fputs.al | 12 ++ Master/perltl/lib/auto/POSIX/fread.al | 12 ++ Master/perltl/lib/auto/POSIX/free.al | 12 ++ Master/perltl/lib/auto/POSIX/freopen.al | 12 ++ Master/perltl/lib/auto/POSIX/fscanf.al | 12 ++ Master/perltl/lib/auto/POSIX/fseek.al | 12 ++ Master/perltl/lib/auto/POSIX/fsetpos.al | 12 ++ Master/perltl/lib/auto/POSIX/fstat.al | 17 ++ Master/perltl/lib/auto/POSIX/ftell.al | 12 ++ Master/perltl/lib/auto/POSIX/fwrite.al | 12 ++ Master/perltl/lib/auto/POSIX/getc.al | 13 ++ Master/perltl/lib/auto/POSIX/getchar.al | 13 ++ Master/perltl/lib/auto/POSIX/getegid.al | 13 ++ Master/perltl/lib/auto/POSIX/getenv.al | 13 ++ Master/perltl/lib/auto/POSIX/geteuid.al | 13 ++ Master/perltl/lib/auto/POSIX/getgid.al | 13 ++ Master/perltl/lib/auto/POSIX/getgrgid.al | 13 ++ Master/perltl/lib/auto/POSIX/getgrnam.al | 13 ++ Master/perltl/lib/auto/POSIX/getgroups.al | 14 ++ Master/perltl/lib/auto/POSIX/getlogin.al | 13 ++ Master/perltl/lib/auto/POSIX/getpgrp.al | 13 ++ Master/perltl/lib/auto/POSIX/getpid.al | 13 ++ Master/perltl/lib/auto/POSIX/getppid.al | 13 ++ Master/perltl/lib/auto/POSIX/getpwnam.al | 13 ++ Master/perltl/lib/auto/POSIX/getpwuid.al | 13 ++ Master/perltl/lib/auto/POSIX/gets.al | 13 ++ Master/perltl/lib/auto/POSIX/getuid.al | 13 ++ Master/perltl/lib/auto/POSIX/gmtime.al | 13 ++ Master/perltl/lib/auto/POSIX/isatty.al | 13 ++ Master/perltl/lib/auto/POSIX/kill.al | 13 ++ Master/perltl/lib/auto/POSIX/labs.al | 12 ++ Master/perltl/lib/auto/POSIX/ldiv.al | 12 ++ Master/perltl/lib/auto/POSIX/link.al | 13 ++ Master/perltl/lib/auto/POSIX/load_imports.al | 224 +++++++++++++++++++++++++++ Master/perltl/lib/auto/POSIX/localtime.al | 13 ++ Master/perltl/lib/auto/POSIX/log.al | 13 ++ Master/perltl/lib/auto/POSIX/longjmp.al | 12 ++ Master/perltl/lib/auto/POSIX/malloc.al | 12 ++ Master/perltl/lib/auto/POSIX/memchr.al | 12 ++ Master/perltl/lib/auto/POSIX/memcmp.al | 12 ++ Master/perltl/lib/auto/POSIX/memcpy.al | 12 ++ Master/perltl/lib/auto/POSIX/memmove.al | 12 ++ Master/perltl/lib/auto/POSIX/memset.al | 12 ++ Master/perltl/lib/auto/POSIX/mkdir.al | 13 ++ Master/perltl/lib/auto/POSIX/offsetof.al | 12 ++ Master/perltl/lib/auto/POSIX/opendir.al | 16 ++ Master/perltl/lib/auto/POSIX/perror.al | 13 ++ Master/perltl/lib/auto/POSIX/pow.al | 13 ++ Master/perltl/lib/auto/POSIX/printf.al | 13 ++ Master/perltl/lib/auto/POSIX/putc.al | 12 ++ Master/perltl/lib/auto/POSIX/putchar.al | 12 ++ Master/perltl/lib/auto/POSIX/puts.al | 12 ++ Master/perltl/lib/auto/POSIX/qsort.al | 12 ++ Master/perltl/lib/auto/POSIX/raise.al | 13 ++ Master/perltl/lib/auto/POSIX/rand.al | 12 ++ Master/perltl/lib/auto/POSIX/readdir.al | 13 ++ Master/perltl/lib/auto/POSIX/realloc.al | 12 ++ Master/perltl/lib/auto/POSIX/redef.al | 13 ++ Master/perltl/lib/auto/POSIX/remove.al | 13 ++ Master/perltl/lib/auto/POSIX/rename.al | 13 ++ Master/perltl/lib/auto/POSIX/rewind.al | 13 ++ Master/perltl/lib/auto/POSIX/rewinddir.al | 13 ++ Master/perltl/lib/auto/POSIX/rmdir.al | 13 ++ Master/perltl/lib/auto/POSIX/scanf.al | 12 ++ Master/perltl/lib/auto/POSIX/setbuf.al | 12 ++ Master/perltl/lib/auto/POSIX/setjmp.al | 12 ++ Master/perltl/lib/auto/POSIX/setvbuf.al | 12 ++ Master/perltl/lib/auto/POSIX/siglongjmp.al | 12 ++ Master/perltl/lib/auto/POSIX/sigsetjmp.al | 12 ++ Master/perltl/lib/auto/POSIX/sin.al | 13 ++ Master/perltl/lib/auto/POSIX/sleep.al | 13 ++ Master/perltl/lib/auto/POSIX/sprintf.al | 13 ++ Master/perltl/lib/auto/POSIX/sqrt.al | 13 ++ Master/perltl/lib/auto/POSIX/srand.al | 12 ++ Master/perltl/lib/auto/POSIX/sscanf.al | 12 ++ Master/perltl/lib/auto/POSIX/stat.al | 13 ++ Master/perltl/lib/auto/POSIX/strcat.al | 12 ++ Master/perltl/lib/auto/POSIX/strchr.al | 12 ++ Master/perltl/lib/auto/POSIX/strcmp.al | 12 ++ Master/perltl/lib/auto/POSIX/strcpy.al | 12 ++ Master/perltl/lib/auto/POSIX/strcspn.al | 12 ++ Master/perltl/lib/auto/POSIX/strerror.al | 14 ++ Master/perltl/lib/auto/POSIX/strlen.al | 12 ++ Master/perltl/lib/auto/POSIX/strncat.al | 12 ++ Master/perltl/lib/auto/POSIX/strncmp.al | 12 ++ Master/perltl/lib/auto/POSIX/strncpy.al | 12 ++ Master/perltl/lib/auto/POSIX/strpbrk.al | 12 ++ Master/perltl/lib/auto/POSIX/strrchr.al | 12 ++ Master/perltl/lib/auto/POSIX/strspn.al | 12 ++ Master/perltl/lib/auto/POSIX/strstr.al | 13 ++ Master/perltl/lib/auto/POSIX/strtok.al | 12 ++ Master/perltl/lib/auto/POSIX/system.al | 13 ++ Master/perltl/lib/auto/POSIX/time.al | 13 ++ Master/perltl/lib/auto/POSIX/tmpfile.al | 12 ++ Master/perltl/lib/auto/POSIX/tolower.al | 13 ++ Master/perltl/lib/auto/POSIX/toupper.al | 13 ++ Master/perltl/lib/auto/POSIX/umask.al | 13 ++ Master/perltl/lib/auto/POSIX/ungetc.al | 12 ++ Master/perltl/lib/auto/POSIX/unimpl.al | 14 ++ Master/perltl/lib/auto/POSIX/unlink.al | 13 ++ Master/perltl/lib/auto/POSIX/usage.al | 13 ++ Master/perltl/lib/auto/POSIX/utime.al | 13 ++ Master/perltl/lib/auto/POSIX/vfprintf.al | 12 ++ Master/perltl/lib/auto/POSIX/vprintf.al | 12 ++ Master/perltl/lib/auto/POSIX/vsprintf.al | 12 ++ Master/perltl/lib/auto/POSIX/wait.al | 13 ++ Master/perltl/lib/auto/POSIX/waitpid.al | 13 ++ 151 files changed, 2236 insertions(+) create mode 100644 Master/perltl/lib/auto/POSIX/POSIX.dll create mode 100644 Master/perltl/lib/auto/POSIX/abs.al create mode 100644 Master/perltl/lib/auto/POSIX/alarm.al create mode 100644 Master/perltl/lib/auto/POSIX/assert.al create mode 100644 Master/perltl/lib/auto/POSIX/atan2.al create mode 100644 Master/perltl/lib/auto/POSIX/atexit.al create mode 100644 Master/perltl/lib/auto/POSIX/atof.al create mode 100644 Master/perltl/lib/auto/POSIX/atoi.al create mode 100644 Master/perltl/lib/auto/POSIX/atol.al create mode 100644 Master/perltl/lib/auto/POSIX/autosplit.ix create mode 100644 Master/perltl/lib/auto/POSIX/bsearch.al create mode 100644 Master/perltl/lib/auto/POSIX/calloc.al create mode 100644 Master/perltl/lib/auto/POSIX/chdir.al create mode 100644 Master/perltl/lib/auto/POSIX/chmod.al create mode 100644 Master/perltl/lib/auto/POSIX/chown.al create mode 100644 Master/perltl/lib/auto/POSIX/clearerr.al create mode 100644 Master/perltl/lib/auto/POSIX/closedir.al create mode 100644 Master/perltl/lib/auto/POSIX/cos.al create mode 100644 Master/perltl/lib/auto/POSIX/creat.al create mode 100644 Master/perltl/lib/auto/POSIX/div.al create mode 100644 Master/perltl/lib/auto/POSIX/errno.al create mode 100644 Master/perltl/lib/auto/POSIX/execl.al create mode 100644 Master/perltl/lib/auto/POSIX/execle.al create mode 100644 Master/perltl/lib/auto/POSIX/execlp.al create mode 100644 Master/perltl/lib/auto/POSIX/execv.al create mode 100644 Master/perltl/lib/auto/POSIX/execve.al create mode 100644 Master/perltl/lib/auto/POSIX/execvp.al create mode 100644 Master/perltl/lib/auto/POSIX/exit.al create mode 100644 Master/perltl/lib/auto/POSIX/exp.al create mode 100644 Master/perltl/lib/auto/POSIX/fabs.al create mode 100644 Master/perltl/lib/auto/POSIX/fclose.al create mode 100644 Master/perltl/lib/auto/POSIX/fcntl.al create mode 100644 Master/perltl/lib/auto/POSIX/fdopen.al create mode 100644 Master/perltl/lib/auto/POSIX/feof.al create mode 100644 Master/perltl/lib/auto/POSIX/ferror.al create mode 100644 Master/perltl/lib/auto/POSIX/fflush.al create mode 100644 Master/perltl/lib/auto/POSIX/fgetc.al create mode 100644 Master/perltl/lib/auto/POSIX/fgetpos.al create mode 100644 Master/perltl/lib/auto/POSIX/fgets.al create mode 100644 Master/perltl/lib/auto/POSIX/fileno.al create mode 100644 Master/perltl/lib/auto/POSIX/fopen.al create mode 100644 Master/perltl/lib/auto/POSIX/fork.al create mode 100644 Master/perltl/lib/auto/POSIX/fprintf.al create mode 100644 Master/perltl/lib/auto/POSIX/fputc.al create mode 100644 Master/perltl/lib/auto/POSIX/fputs.al create mode 100644 Master/perltl/lib/auto/POSIX/fread.al create mode 100644 Master/perltl/lib/auto/POSIX/free.al create mode 100644 Master/perltl/lib/auto/POSIX/freopen.al create mode 100644 Master/perltl/lib/auto/POSIX/fscanf.al create mode 100644 Master/perltl/lib/auto/POSIX/fseek.al create mode 100644 Master/perltl/lib/auto/POSIX/fsetpos.al create mode 100644 Master/perltl/lib/auto/POSIX/fstat.al create mode 100644 Master/perltl/lib/auto/POSIX/ftell.al create mode 100644 Master/perltl/lib/auto/POSIX/fwrite.al create mode 100644 Master/perltl/lib/auto/POSIX/getc.al create mode 100644 Master/perltl/lib/auto/POSIX/getchar.al create mode 100644 Master/perltl/lib/auto/POSIX/getegid.al create mode 100644 Master/perltl/lib/auto/POSIX/getenv.al create mode 100644 Master/perltl/lib/auto/POSIX/geteuid.al create mode 100644 Master/perltl/lib/auto/POSIX/getgid.al create mode 100644 Master/perltl/lib/auto/POSIX/getgrgid.al create mode 100644 Master/perltl/lib/auto/POSIX/getgrnam.al create mode 100644 Master/perltl/lib/auto/POSIX/getgroups.al create mode 100644 Master/perltl/lib/auto/POSIX/getlogin.al create mode 100644 Master/perltl/lib/auto/POSIX/getpgrp.al create mode 100644 Master/perltl/lib/auto/POSIX/getpid.al create mode 100644 Master/perltl/lib/auto/POSIX/getppid.al create mode 100644 Master/perltl/lib/auto/POSIX/getpwnam.al create mode 100644 Master/perltl/lib/auto/POSIX/getpwuid.al create mode 100644 Master/perltl/lib/auto/POSIX/gets.al create mode 100644 Master/perltl/lib/auto/POSIX/getuid.al create mode 100644 Master/perltl/lib/auto/POSIX/gmtime.al create mode 100644 Master/perltl/lib/auto/POSIX/isatty.al create mode 100644 Master/perltl/lib/auto/POSIX/kill.al create mode 100644 Master/perltl/lib/auto/POSIX/labs.al create mode 100644 Master/perltl/lib/auto/POSIX/ldiv.al create mode 100644 Master/perltl/lib/auto/POSIX/link.al create mode 100644 Master/perltl/lib/auto/POSIX/load_imports.al create mode 100644 Master/perltl/lib/auto/POSIX/localtime.al create mode 100644 Master/perltl/lib/auto/POSIX/log.al create mode 100644 Master/perltl/lib/auto/POSIX/longjmp.al create mode 100644 Master/perltl/lib/auto/POSIX/malloc.al create mode 100644 Master/perltl/lib/auto/POSIX/memchr.al create mode 100644 Master/perltl/lib/auto/POSIX/memcmp.al create mode 100644 Master/perltl/lib/auto/POSIX/memcpy.al create mode 100644 Master/perltl/lib/auto/POSIX/memmove.al create mode 100644 Master/perltl/lib/auto/POSIX/memset.al create mode 100644 Master/perltl/lib/auto/POSIX/mkdir.al create mode 100644 Master/perltl/lib/auto/POSIX/offsetof.al create mode 100644 Master/perltl/lib/auto/POSIX/opendir.al create mode 100644 Master/perltl/lib/auto/POSIX/perror.al create mode 100644 Master/perltl/lib/auto/POSIX/pow.al create mode 100644 Master/perltl/lib/auto/POSIX/printf.al create mode 100644 Master/perltl/lib/auto/POSIX/putc.al create mode 100644 Master/perltl/lib/auto/POSIX/putchar.al create mode 100644 Master/perltl/lib/auto/POSIX/puts.al create mode 100644 Master/perltl/lib/auto/POSIX/qsort.al create mode 100644 Master/perltl/lib/auto/POSIX/raise.al create mode 100644 Master/perltl/lib/auto/POSIX/rand.al create mode 100644 Master/perltl/lib/auto/POSIX/readdir.al create mode 100644 Master/perltl/lib/auto/POSIX/realloc.al create mode 100644 Master/perltl/lib/auto/POSIX/redef.al create mode 100644 Master/perltl/lib/auto/POSIX/remove.al create mode 100644 Master/perltl/lib/auto/POSIX/rename.al create mode 100644 Master/perltl/lib/auto/POSIX/rewind.al create mode 100644 Master/perltl/lib/auto/POSIX/rewinddir.al create mode 100644 Master/perltl/lib/auto/POSIX/rmdir.al create mode 100644 Master/perltl/lib/auto/POSIX/scanf.al create mode 100644 Master/perltl/lib/auto/POSIX/setbuf.al create mode 100644 Master/perltl/lib/auto/POSIX/setjmp.al create mode 100644 Master/perltl/lib/auto/POSIX/setvbuf.al create mode 100644 Master/perltl/lib/auto/POSIX/siglongjmp.al create mode 100644 Master/perltl/lib/auto/POSIX/sigsetjmp.al create mode 100644 Master/perltl/lib/auto/POSIX/sin.al create mode 100644 Master/perltl/lib/auto/POSIX/sleep.al create mode 100644 Master/perltl/lib/auto/POSIX/sprintf.al create mode 100644 Master/perltl/lib/auto/POSIX/sqrt.al create mode 100644 Master/perltl/lib/auto/POSIX/srand.al create mode 100644 Master/perltl/lib/auto/POSIX/sscanf.al create mode 100644 Master/perltl/lib/auto/POSIX/stat.al create mode 100644 Master/perltl/lib/auto/POSIX/strcat.al create mode 100644 Master/perltl/lib/auto/POSIX/strchr.al create mode 100644 Master/perltl/lib/auto/POSIX/strcmp.al create mode 100644 Master/perltl/lib/auto/POSIX/strcpy.al create mode 100644 Master/perltl/lib/auto/POSIX/strcspn.al create mode 100644 Master/perltl/lib/auto/POSIX/strerror.al create mode 100644 Master/perltl/lib/auto/POSIX/strlen.al create mode 100644 Master/perltl/lib/auto/POSIX/strncat.al create mode 100644 Master/perltl/lib/auto/POSIX/strncmp.al create mode 100644 Master/perltl/lib/auto/POSIX/strncpy.al create mode 100644 Master/perltl/lib/auto/POSIX/strpbrk.al create mode 100644 Master/perltl/lib/auto/POSIX/strrchr.al create mode 100644 Master/perltl/lib/auto/POSIX/strspn.al create mode 100644 Master/perltl/lib/auto/POSIX/strstr.al create mode 100644 Master/perltl/lib/auto/POSIX/strtok.al create mode 100644 Master/perltl/lib/auto/POSIX/system.al create mode 100644 Master/perltl/lib/auto/POSIX/time.al create mode 100644 Master/perltl/lib/auto/POSIX/tmpfile.al create mode 100644 Master/perltl/lib/auto/POSIX/tolower.al create mode 100644 Master/perltl/lib/auto/POSIX/toupper.al create mode 100644 Master/perltl/lib/auto/POSIX/umask.al create mode 100644 Master/perltl/lib/auto/POSIX/ungetc.al create mode 100644 Master/perltl/lib/auto/POSIX/unimpl.al create mode 100644 Master/perltl/lib/auto/POSIX/unlink.al create mode 100644 Master/perltl/lib/auto/POSIX/usage.al create mode 100644 Master/perltl/lib/auto/POSIX/utime.al create mode 100644 Master/perltl/lib/auto/POSIX/vfprintf.al create mode 100644 Master/perltl/lib/auto/POSIX/vprintf.al create mode 100644 Master/perltl/lib/auto/POSIX/vsprintf.al create mode 100644 Master/perltl/lib/auto/POSIX/wait.al create mode 100644 Master/perltl/lib/auto/POSIX/waitpid.al (limited to 'Master/perltl/lib/auto/POSIX') diff --git a/Master/perltl/lib/auto/POSIX/POSIX.dll b/Master/perltl/lib/auto/POSIX/POSIX.dll new file mode 100644 index 00000000000..2e090c5e742 Binary files /dev/null and b/Master/perltl/lib/auto/POSIX/POSIX.dll differ diff --git a/Master/perltl/lib/auto/POSIX/abs.al b/Master/perltl/lib/auto/POSIX/abs.al new file mode 100644 index 00000000000..298fd61df5c --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/abs.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 391 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\abs.al)" +sub abs { + usage "abs(x)" if @_ != 1; + CORE::abs($_[0]); +} + +# end of POSIX::abs +1; diff --git a/Master/perltl/lib/auto/POSIX/alarm.al b/Master/perltl/lib/auto/POSIX/alarm.al new file mode 100644 index 00000000000..3be4c8dc908 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/alarm.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 608 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\alarm.al)" +sub alarm { + usage "alarm(seconds)" if @_ != 1; + CORE::alarm($_[0]); +} + +# end of POSIX::alarm +1; diff --git a/Master/perltl/lib/auto/POSIX/assert.al b/Master/perltl/lib/auto/POSIX/assert.al new file mode 100644 index 00000000000..def2f62f767 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/assert.al @@ -0,0 +1,15 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 77 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\assert.al)" +sub assert { + usage "assert(expr)" if @_ != 1; + if (!$_[0]) { + croak "Assertion failed"; + } +} + +# end of POSIX::assert +1; diff --git a/Master/perltl/lib/auto/POSIX/atan2.al b/Master/perltl/lib/auto/POSIX/atan2.al new file mode 100644 index 00000000000..30795e97c4b --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/atan2.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 142 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atan2.al)" +sub atan2 { + usage "atan2(x,y)" if @_ != 2; + CORE::atan2($_[0], $_[1]); +} + +# end of POSIX::atan2 +1; diff --git a/Master/perltl/lib/auto/POSIX/atexit.al b/Master/perltl/lib/auto/POSIX/atexit.al new file mode 100644 index 00000000000..f8e4e9ef393 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/atexit.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 396 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atexit.al)" +sub atexit { + unimpl "atexit() is C-specific: use END {} instead"; +} + +# end of POSIX::atexit +1; diff --git a/Master/perltl/lib/auto/POSIX/atof.al b/Master/perltl/lib/auto/POSIX/atof.al new file mode 100644 index 00000000000..731267c6b40 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/atof.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 400 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atof.al)" +sub atof { + unimpl "atof() is C-specific, stopped"; +} + +# end of POSIX::atof +1; diff --git a/Master/perltl/lib/auto/POSIX/atoi.al b/Master/perltl/lib/auto/POSIX/atoi.al new file mode 100644 index 00000000000..a48dc6c29c3 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/atoi.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 404 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atoi.al)" +sub atoi { + unimpl "atoi() is C-specific, stopped"; +} + +# end of POSIX::atoi +1; diff --git a/Master/perltl/lib/auto/POSIX/atol.al b/Master/perltl/lib/auto/POSIX/atol.al new file mode 100644 index 00000000000..ba2278ca041 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/atol.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 408 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\atol.al)" +sub atol { + unimpl "atol() is C-specific, stopped"; +} + +# end of POSIX::atol +1; diff --git a/Master/perltl/lib/auto/POSIX/autosplit.ix b/Master/perltl/lib/auto/POSIX/autosplit.ix new file mode 100644 index 00000000000..7f244a3fb86 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/autosplit.ix @@ -0,0 +1,153 @@ +# Index created by AutoSplit for ..\..\lib\POSIX.pm +# (file acts as timestamp) +package POSIX; +sub usage ; +sub redef ; +sub unimpl ; +sub assert ; +sub tolower ; +sub toupper ; +sub closedir ; +sub opendir ; +sub readdir ; +sub rewinddir ; +sub errno ; +sub creat ; +sub fcntl ; +sub getgrgid ; +sub getgrnam ; +sub atan2 ; +sub cos ; +sub exp ; +sub fabs ; +sub log ; +sub pow ; +sub sin ; +sub sqrt ; +sub getpwnam ; +sub getpwuid ; +sub longjmp ; +sub setjmp ; +sub siglongjmp ; +sub sigsetjmp ; +sub kill ; +sub raise ; +sub offsetof ; +sub clearerr ; +sub fclose ; +sub fdopen ; +sub feof ; +sub fgetc ; +sub fgets ; +sub fileno ; +sub fopen ; +sub fprintf ; +sub fputc ; +sub fputs ; +sub fread ; +sub freopen ; +sub fscanf ; +sub fseek ; +sub ferror ; +sub fflush ; +sub fgetpos ; +sub fsetpos ; +sub ftell ; +sub fwrite ; +sub getc ; +sub getchar ; +sub gets ; +sub perror ; +sub printf ; +sub putc ; +sub putchar ; +sub puts ; +sub remove ; +sub rename ; +sub rewind ; +sub scanf ; +sub sprintf ; +sub sscanf ; +sub tmpfile ; +sub ungetc ; +sub vfprintf ; +sub vprintf ; +sub vsprintf ; +sub abs ; +sub atexit ; +sub atof ; +sub atoi ; +sub atol ; +sub bsearch ; +sub calloc ; +sub div ; +sub exit ; +sub free ; +sub getenv ; +sub labs ; +sub ldiv ; +sub malloc ; +sub qsort ; +sub rand ; +sub realloc ; +sub srand ; +sub system ; +sub memchr ; +sub memcmp ; +sub memcpy ; +sub memmove ; +sub memset ; +sub strcat ; +sub strchr ; +sub strcmp ; +sub strcpy ; +sub strcspn ; +sub strerror ; +sub strlen ; +sub strncat ; +sub strncmp ; +sub strncpy ; +sub strpbrk ; +sub strrchr ; +sub strspn ; +sub strstr ; +sub strtok ; +sub chmod ; +sub fstat ; +sub mkdir ; +sub stat ; +sub umask ; +sub wait ; +sub waitpid ; +sub gmtime ; +sub localtime ; +sub time ; +sub alarm ; +sub chdir ; +sub chown ; +sub execl ; +sub execle ; +sub execlp ; +sub execv ; +sub execve ; +sub execvp ; +sub fork ; +sub getegid ; +sub geteuid ; +sub getgid ; +sub getgroups ; +sub getlogin ; +sub getpgrp ; +sub getpid ; +sub getppid ; +sub getuid ; +sub isatty ; +sub link ; +sub rmdir ; +sub setbuf ; +sub setvbuf ; +sub sleep ; +sub unlink ; +sub utime ; +sub load_imports ; +1; diff --git a/Master/perltl/lib/auto/POSIX/bsearch.al b/Master/perltl/lib/auto/POSIX/bsearch.al new file mode 100644 index 00000000000..ae569040e00 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/bsearch.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 412 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\bsearch.al)" +sub bsearch { + unimpl "bsearch() not supplied"; +} + +# end of POSIX::bsearch +1; diff --git a/Master/perltl/lib/auto/POSIX/calloc.al b/Master/perltl/lib/auto/POSIX/calloc.al new file mode 100644 index 00000000000..8375767c30b --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/calloc.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 416 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\calloc.al)" +sub calloc { + unimpl "calloc() is C-specific, stopped"; +} + +# end of POSIX::calloc +1; diff --git a/Master/perltl/lib/auto/POSIX/chdir.al b/Master/perltl/lib/auto/POSIX/chdir.al new file mode 100644 index 00000000000..7ebaad5aa95 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/chdir.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 613 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chdir.al)" +sub chdir { + usage "chdir(directory)" if @_ != 1; + CORE::chdir($_[0]); +} + +# end of POSIX::chdir +1; diff --git a/Master/perltl/lib/auto/POSIX/chmod.al b/Master/perltl/lib/auto/POSIX/chmod.al new file mode 100644 index 00000000000..e57badcb3dd --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/chmod.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 554 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chmod.al)" +sub chmod { + usage "chmod(mode, filename)" if @_ != 2; + CORE::chmod($_[0], $_[1]); +} + +# end of POSIX::chmod +1; diff --git a/Master/perltl/lib/auto/POSIX/chown.al b/Master/perltl/lib/auto/POSIX/chown.al new file mode 100644 index 00000000000..cfc23f0b072 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/chown.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 618 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\chown.al)" +sub chown { + usage "chown(filename, uid, gid)" if @_ != 3; + CORE::chown($_[0], $_[1], $_[2]); +} + +# end of POSIX::chown +1; diff --git a/Master/perltl/lib/auto/POSIX/clearerr.al b/Master/perltl/lib/auto/POSIX/clearerr.al new file mode 100644 index 00000000000..8c3b70743cb --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/clearerr.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 222 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\clearerr.al)" +sub clearerr { + redef "IO::Handle::clearerr()"; +} + +# end of POSIX::clearerr +1; diff --git a/Master/perltl/lib/auto/POSIX/closedir.al b/Master/perltl/lib/auto/POSIX/closedir.al new file mode 100644 index 00000000000..7ecdf46af31 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/closedir.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 94 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\closedir.al)" +sub closedir { + usage "closedir(dirhandle)" if @_ != 1; + CORE::closedir($_[0]); +} + +# end of POSIX::closedir +1; diff --git a/Master/perltl/lib/auto/POSIX/cos.al b/Master/perltl/lib/auto/POSIX/cos.al new file mode 100644 index 00000000000..17a90b50286 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/cos.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 147 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\cos.al)" +sub cos { + usage "cos(x)" if @_ != 1; + CORE::cos($_[0]); +} + +# end of POSIX::cos +1; diff --git a/Master/perltl/lib/auto/POSIX/creat.al b/Master/perltl/lib/auto/POSIX/creat.al new file mode 100644 index 00000000000..4645b72ab0e --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/creat.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 122 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\creat.al)" +sub creat { + usage "creat(filename, mode)" if @_ != 2; + &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1]); +} + +# end of POSIX::creat +1; diff --git a/Master/perltl/lib/auto/POSIX/div.al b/Master/perltl/lib/auto/POSIX/div.al new file mode 100644 index 00000000000..272d1d23bbb --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/div.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 420 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\div.al)" +sub div { + unimpl "div() is C-specific, stopped"; +} + +# end of POSIX::div +1; diff --git a/Master/perltl/lib/auto/POSIX/errno.al b/Master/perltl/lib/auto/POSIX/errno.al new file mode 100644 index 00000000000..5195ab1efe1 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/errno.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 117 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\errno.al)" +sub errno { + usage "errno()" if @_ != 0; + $! + 0; +} + +# end of POSIX::errno +1; diff --git a/Master/perltl/lib/auto/POSIX/execl.al b/Master/perltl/lib/auto/POSIX/execl.al new file mode 100644 index 00000000000..4f0e27566e8 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/execl.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 623 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execl.al)" +sub execl { + unimpl "execl() is C-specific, stopped"; +} + +# end of POSIX::execl +1; diff --git a/Master/perltl/lib/auto/POSIX/execle.al b/Master/perltl/lib/auto/POSIX/execle.al new file mode 100644 index 00000000000..303af430e07 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/execle.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 627 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execle.al)" +sub execle { + unimpl "execle() is C-specific, stopped"; +} + +# end of POSIX::execle +1; diff --git a/Master/perltl/lib/auto/POSIX/execlp.al b/Master/perltl/lib/auto/POSIX/execlp.al new file mode 100644 index 00000000000..772f718e44e --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/execlp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 631 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execlp.al)" +sub execlp { + unimpl "execlp() is C-specific, stopped"; +} + +# end of POSIX::execlp +1; diff --git a/Master/perltl/lib/auto/POSIX/execv.al b/Master/perltl/lib/auto/POSIX/execv.al new file mode 100644 index 00000000000..85b211db4ab --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/execv.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 635 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execv.al)" +sub execv { + unimpl "execv() is C-specific, stopped"; +} + +# end of POSIX::execv +1; diff --git a/Master/perltl/lib/auto/POSIX/execve.al b/Master/perltl/lib/auto/POSIX/execve.al new file mode 100644 index 00000000000..919580cbed1 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/execve.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 639 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execve.al)" +sub execve { + unimpl "execve() is C-specific, stopped"; +} + +# end of POSIX::execve +1; diff --git a/Master/perltl/lib/auto/POSIX/execvp.al b/Master/perltl/lib/auto/POSIX/execvp.al new file mode 100644 index 00000000000..f55f8495f8d --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/execvp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 643 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\execvp.al)" +sub execvp { + unimpl "execvp() is C-specific, stopped"; +} + +# end of POSIX::execvp +1; diff --git a/Master/perltl/lib/auto/POSIX/exit.al b/Master/perltl/lib/auto/POSIX/exit.al new file mode 100644 index 00000000000..b03a880d66a --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/exit.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 424 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\exit.al)" +sub exit { + usage "exit(status)" if @_ != 1; + CORE::exit($_[0]); +} + +# end of POSIX::exit +1; diff --git a/Master/perltl/lib/auto/POSIX/exp.al b/Master/perltl/lib/auto/POSIX/exp.al new file mode 100644 index 00000000000..d15d24f1128 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/exp.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 152 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\exp.al)" +sub exp { + usage "exp(x)" if @_ != 1; + CORE::exp($_[0]); +} + +# end of POSIX::exp +1; diff --git a/Master/perltl/lib/auto/POSIX/fabs.al b/Master/perltl/lib/auto/POSIX/fabs.al new file mode 100644 index 00000000000..2f5cbce7501 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fabs.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 157 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fabs.al)" +sub fabs { + usage "fabs(x)" if @_ != 1; + CORE::abs($_[0]); +} + +# end of POSIX::fabs +1; diff --git a/Master/perltl/lib/auto/POSIX/fclose.al b/Master/perltl/lib/auto/POSIX/fclose.al new file mode 100644 index 00000000000..1b4f7192da9 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fclose.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 226 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fclose.al)" +sub fclose { + redef "IO::Handle::close()"; +} + +# end of POSIX::fclose +1; diff --git a/Master/perltl/lib/auto/POSIX/fcntl.al b/Master/perltl/lib/auto/POSIX/fcntl.al new file mode 100644 index 00000000000..0d8692e6cd7 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fcntl.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 127 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fcntl.al)" +sub fcntl { + usage "fcntl(filehandle, cmd, arg)" if @_ != 3; + CORE::fcntl($_[0], $_[1], $_[2]); +} + +# end of POSIX::fcntl +1; diff --git a/Master/perltl/lib/auto/POSIX/fdopen.al b/Master/perltl/lib/auto/POSIX/fdopen.al new file mode 100644 index 00000000000..cc4b68b4df0 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fdopen.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 230 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fdopen.al)" +sub fdopen { + redef "IO::Handle::new_from_fd()"; +} + +# end of POSIX::fdopen +1; diff --git a/Master/perltl/lib/auto/POSIX/feof.al b/Master/perltl/lib/auto/POSIX/feof.al new file mode 100644 index 00000000000..2aa0580f31e --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/feof.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 234 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\feof.al)" +sub feof { + redef "IO::Handle::eof()"; +} + +# end of POSIX::feof +1; diff --git a/Master/perltl/lib/auto/POSIX/ferror.al b/Master/perltl/lib/auto/POSIX/ferror.al new file mode 100644 index 00000000000..864c11609a6 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/ferror.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 282 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ferror.al)" +sub ferror { + redef "IO::Handle::error()"; +} + +# end of POSIX::ferror +1; diff --git a/Master/perltl/lib/auto/POSIX/fflush.al b/Master/perltl/lib/auto/POSIX/fflush.al new file mode 100644 index 00000000000..d4084b44569 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fflush.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 286 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fflush.al)" +sub fflush { + redef "IO::Handle::flush()"; +} + +# end of POSIX::fflush +1; diff --git a/Master/perltl/lib/auto/POSIX/fgetc.al b/Master/perltl/lib/auto/POSIX/fgetc.al new file mode 100644 index 00000000000..55c6951da44 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fgetc.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 238 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgetc.al)" +sub fgetc { + redef "IO::Handle::getc()"; +} + +# end of POSIX::fgetc +1; diff --git a/Master/perltl/lib/auto/POSIX/fgetpos.al b/Master/perltl/lib/auto/POSIX/fgetpos.al new file mode 100644 index 00000000000..e354fdf5a4f --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fgetpos.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 290 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgetpos.al)" +sub fgetpos { + redef "IO::Seekable::getpos()"; +} + +# end of POSIX::fgetpos +1; diff --git a/Master/perltl/lib/auto/POSIX/fgets.al b/Master/perltl/lib/auto/POSIX/fgets.al new file mode 100644 index 00000000000..adb96ebfed6 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fgets.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 242 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fgets.al)" +sub fgets { + redef "IO::Handle::gets()"; +} + +# end of POSIX::fgets +1; diff --git a/Master/perltl/lib/auto/POSIX/fileno.al b/Master/perltl/lib/auto/POSIX/fileno.al new file mode 100644 index 00000000000..2b9ef0d0f0b --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fileno.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 246 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fileno.al)" +sub fileno { + redef "IO::Handle::fileno()"; +} + +# end of POSIX::fileno +1; diff --git a/Master/perltl/lib/auto/POSIX/fopen.al b/Master/perltl/lib/auto/POSIX/fopen.al new file mode 100644 index 00000000000..8a85034722b --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fopen.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 250 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fopen.al)" +sub fopen { + redef "IO::File::open()"; +} + +# end of POSIX::fopen +1; diff --git a/Master/perltl/lib/auto/POSIX/fork.al b/Master/perltl/lib/auto/POSIX/fork.al new file mode 100644 index 00000000000..e7a7de97948 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fork.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 647 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fork.al)" +sub fork { + usage "fork()" if @_ != 0; + CORE::fork; +} + +# end of POSIX::fork +1; diff --git a/Master/perltl/lib/auto/POSIX/fprintf.al b/Master/perltl/lib/auto/POSIX/fprintf.al new file mode 100644 index 00000000000..bdcebf38760 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fprintf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 254 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fprintf.al)" +sub fprintf { + unimpl "fprintf() is C-specific--use printf instead"; +} + +# end of POSIX::fprintf +1; diff --git a/Master/perltl/lib/auto/POSIX/fputc.al b/Master/perltl/lib/auto/POSIX/fputc.al new file mode 100644 index 00000000000..9233e689600 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fputc.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 258 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fputc.al)" +sub fputc { + unimpl "fputc() is C-specific--use print instead"; +} + +# end of POSIX::fputc +1; diff --git a/Master/perltl/lib/auto/POSIX/fputs.al b/Master/perltl/lib/auto/POSIX/fputs.al new file mode 100644 index 00000000000..885cf9e4bb3 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fputs.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 262 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fputs.al)" +sub fputs { + unimpl "fputs() is C-specific--use print instead"; +} + +# end of POSIX::fputs +1; diff --git a/Master/perltl/lib/auto/POSIX/fread.al b/Master/perltl/lib/auto/POSIX/fread.al new file mode 100644 index 00000000000..ca411635f63 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fread.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 266 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fread.al)" +sub fread { + unimpl "fread() is C-specific--use read instead"; +} + +# end of POSIX::fread +1; diff --git a/Master/perltl/lib/auto/POSIX/free.al b/Master/perltl/lib/auto/POSIX/free.al new file mode 100644 index 00000000000..83ce0402725 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/free.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 429 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\free.al)" +sub free { + unimpl "free() is C-specific, stopped"; +} + +# end of POSIX::free +1; diff --git a/Master/perltl/lib/auto/POSIX/freopen.al b/Master/perltl/lib/auto/POSIX/freopen.al new file mode 100644 index 00000000000..cefb9db1dab --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/freopen.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 270 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\freopen.al)" +sub freopen { + unimpl "freopen() is C-specific--use open instead"; +} + +# end of POSIX::freopen +1; diff --git a/Master/perltl/lib/auto/POSIX/fscanf.al b/Master/perltl/lib/auto/POSIX/fscanf.al new file mode 100644 index 00000000000..452877452c6 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fscanf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 274 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fscanf.al)" +sub fscanf { + unimpl "fscanf() is C-specific--use <> and regular expressions instead"; +} + +# end of POSIX::fscanf +1; diff --git a/Master/perltl/lib/auto/POSIX/fseek.al b/Master/perltl/lib/auto/POSIX/fseek.al new file mode 100644 index 00000000000..ffefc229066 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fseek.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 278 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fseek.al)" +sub fseek { + redef "IO::Seekable::seek()"; +} + +# end of POSIX::fseek +1; diff --git a/Master/perltl/lib/auto/POSIX/fsetpos.al b/Master/perltl/lib/auto/POSIX/fsetpos.al new file mode 100644 index 00000000000..f43fc57c18a --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fsetpos.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 294 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fsetpos.al)" +sub fsetpos { + redef "IO::Seekable::setpos()"; +} + +# end of POSIX::fsetpos +1; diff --git a/Master/perltl/lib/auto/POSIX/fstat.al b/Master/perltl/lib/auto/POSIX/fstat.al new file mode 100644 index 00000000000..cd05ea95007 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fstat.al @@ -0,0 +1,17 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 559 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fstat.al)" +sub fstat { + usage "fstat(fd)" if @_ != 1; + local *TMP; + CORE::open(TMP, "<&$_[0]"); # Gross. + my @l = CORE::stat(TMP); + CORE::close(TMP); + @l; +} + +# end of POSIX::fstat +1; diff --git a/Master/perltl/lib/auto/POSIX/ftell.al b/Master/perltl/lib/auto/POSIX/ftell.al new file mode 100644 index 00000000000..dd6c347c710 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/ftell.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 298 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ftell.al)" +sub ftell { + redef "IO::Seekable::tell()"; +} + +# end of POSIX::ftell +1; diff --git a/Master/perltl/lib/auto/POSIX/fwrite.al b/Master/perltl/lib/auto/POSIX/fwrite.al new file mode 100644 index 00000000000..d51037b1d17 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/fwrite.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 302 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\fwrite.al)" +sub fwrite { + unimpl "fwrite() is C-specific--use print instead"; +} + +# end of POSIX::fwrite +1; diff --git a/Master/perltl/lib/auto/POSIX/getc.al b/Master/perltl/lib/auto/POSIX/getc.al new file mode 100644 index 00000000000..318c4bd6b0f --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/getc.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 306 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getc.al)" +sub getc { + usage "getc(handle)" if @_ != 1; + CORE::getc($_[0]); +} + +# end of POSIX::getc +1; diff --git a/Master/perltl/lib/auto/POSIX/getchar.al b/Master/perltl/lib/auto/POSIX/getchar.al new file mode 100644 index 00000000000..eb1344fa4cc --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/getchar.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 311 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getchar.al)" +sub getchar { + usage "getchar()" if @_ != 0; + CORE::getc(STDIN); +} + +# end of POSIX::getchar +1; diff --git a/Master/perltl/lib/auto/POSIX/getegid.al b/Master/perltl/lib/auto/POSIX/getegid.al new file mode 100644 index 00000000000..6234a682aae --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/getegid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 652 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getegid.al)" +sub getegid { + usage "getegid()" if @_ != 0; + $) + 0; +} + +# end of POSIX::getegid +1; diff --git a/Master/perltl/lib/auto/POSIX/getenv.al b/Master/perltl/lib/auto/POSIX/getenv.al new file mode 100644 index 00000000000..7ca5395c458 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/getenv.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 433 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getenv.al)" +sub getenv { + usage "getenv(name)" if @_ != 1; + $ENV{$_[0]}; +} + +# end of POSIX::getenv +1; diff --git a/Master/perltl/lib/auto/POSIX/geteuid.al b/Master/perltl/lib/auto/POSIX/geteuid.al new file mode 100644 index 00000000000..829472d16ae --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/geteuid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 657 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\geteuid.al)" +sub geteuid { + usage "geteuid()" if @_ != 0; + $> + 0; +} + +# end of POSIX::geteuid +1; diff --git a/Master/perltl/lib/auto/POSIX/getgid.al b/Master/perltl/lib/auto/POSIX/getgid.al new file mode 100644 index 00000000000..b9f60fcea02 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/getgid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 662 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgid.al)" +sub getgid { + usage "getgid()" if @_ != 0; + $( + 0; +} + +# end of POSIX::getgid +1; diff --git a/Master/perltl/lib/auto/POSIX/getgrgid.al b/Master/perltl/lib/auto/POSIX/getgrgid.al new file mode 100644 index 00000000000..be95e0badbb --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/getgrgid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 132 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgrgid.al)" +sub getgrgid { + usage "getgrgid(gid)" if @_ != 1; + CORE::getgrgid($_[0]); +} + +# end of POSIX::getgrgid +1; diff --git a/Master/perltl/lib/auto/POSIX/getgrnam.al b/Master/perltl/lib/auto/POSIX/getgrnam.al new file mode 100644 index 00000000000..8cda0521600 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/getgrnam.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 137 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgrnam.al)" +sub getgrnam { + usage "getgrnam(name)" if @_ != 1; + CORE::getgrnam($_[0]); +} + +# end of POSIX::getgrnam +1; diff --git a/Master/perltl/lib/auto/POSIX/getgroups.al b/Master/perltl/lib/auto/POSIX/getgroups.al new file mode 100644 index 00000000000..e3a31459b38 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/getgroups.al @@ -0,0 +1,14 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 667 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getgroups.al)" +sub getgroups { + usage "getgroups()" if @_ != 0; + my %seen; + grep(!$seen{$_}++, split(' ', $) )); +} + +# end of POSIX::getgroups +1; diff --git a/Master/perltl/lib/auto/POSIX/getlogin.al b/Master/perltl/lib/auto/POSIX/getlogin.al new file mode 100644 index 00000000000..3b9259b5f95 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/getlogin.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 673 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getlogin.al)" +sub getlogin { + usage "getlogin()" if @_ != 0; + CORE::getlogin(); +} + +# end of POSIX::getlogin +1; diff --git a/Master/perltl/lib/auto/POSIX/getpgrp.al b/Master/perltl/lib/auto/POSIX/getpgrp.al new file mode 100644 index 00000000000..b4771bcd799 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/getpgrp.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 678 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpgrp.al)" +sub getpgrp { + usage "getpgrp()" if @_ != 0; + CORE::getpgrp; +} + +# end of POSIX::getpgrp +1; diff --git a/Master/perltl/lib/auto/POSIX/getpid.al b/Master/perltl/lib/auto/POSIX/getpid.al new file mode 100644 index 00000000000..b85b2304d38 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/getpid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 683 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpid.al)" +sub getpid { + usage "getpid()" if @_ != 0; + $$; +} + +# end of POSIX::getpid +1; diff --git a/Master/perltl/lib/auto/POSIX/getppid.al b/Master/perltl/lib/auto/POSIX/getppid.al new file mode 100644 index 00000000000..66b4877dc31 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/getppid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 688 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getppid.al)" +sub getppid { + usage "getppid()" if @_ != 0; + CORE::getppid; +} + +# end of POSIX::getppid +1; diff --git a/Master/perltl/lib/auto/POSIX/getpwnam.al b/Master/perltl/lib/auto/POSIX/getpwnam.al new file mode 100644 index 00000000000..89538d13b37 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/getpwnam.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 182 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpwnam.al)" +sub getpwnam { + usage "getpwnam(name)" if @_ != 1; + CORE::getpwnam($_[0]); +} + +# end of POSIX::getpwnam +1; diff --git a/Master/perltl/lib/auto/POSIX/getpwuid.al b/Master/perltl/lib/auto/POSIX/getpwuid.al new file mode 100644 index 00000000000..27c8642d36b --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/getpwuid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 187 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getpwuid.al)" +sub getpwuid { + usage "getpwuid(uid)" if @_ != 1; + CORE::getpwuid($_[0]); +} + +# end of POSIX::getpwuid +1; diff --git a/Master/perltl/lib/auto/POSIX/gets.al b/Master/perltl/lib/auto/POSIX/gets.al new file mode 100644 index 00000000000..ba8caa9cc5e --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/gets.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 316 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\gets.al)" +sub gets { + usage "gets()" if @_ != 0; + scalar ; +} + +# end of POSIX::gets +1; diff --git a/Master/perltl/lib/auto/POSIX/getuid.al b/Master/perltl/lib/auto/POSIX/getuid.al new file mode 100644 index 00000000000..c3a7a1e993f --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/getuid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 693 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\getuid.al)" +sub getuid { + usage "getuid()" if @_ != 0; + $<; +} + +# end of POSIX::getuid +1; diff --git a/Master/perltl/lib/auto/POSIX/gmtime.al b/Master/perltl/lib/auto/POSIX/gmtime.al new file mode 100644 index 00000000000..4f4b26f658a --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/gmtime.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 593 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\gmtime.al)" +sub gmtime { + usage "gmtime(time)" if @_ != 1; + CORE::gmtime($_[0]); +} + +# end of POSIX::gmtime +1; diff --git a/Master/perltl/lib/auto/POSIX/isatty.al b/Master/perltl/lib/auto/POSIX/isatty.al new file mode 100644 index 00000000000..aff49f6fa73 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/isatty.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 698 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\isatty.al)" +sub isatty { + usage "isatty(filehandle)" if @_ != 1; + -t $_[0]; +} + +# end of POSIX::isatty +1; diff --git a/Master/perltl/lib/auto/POSIX/kill.al b/Master/perltl/lib/auto/POSIX/kill.al new file mode 100644 index 00000000000..ed4544cd1b8 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/kill.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 208 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\kill.al)" +sub kill { + usage "kill(pid, sig)" if @_ != 2; + CORE::kill $_[1], $_[0]; +} + +# end of POSIX::kill +1; diff --git a/Master/perltl/lib/auto/POSIX/labs.al b/Master/perltl/lib/auto/POSIX/labs.al new file mode 100644 index 00000000000..cb2aee982ec --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/labs.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 438 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\labs.al)" +sub labs { + unimpl "labs() is C-specific, use abs instead"; +} + +# end of POSIX::labs +1; diff --git a/Master/perltl/lib/auto/POSIX/ldiv.al b/Master/perltl/lib/auto/POSIX/ldiv.al new file mode 100644 index 00000000000..e30e8dddbb6 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/ldiv.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 442 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ldiv.al)" +sub ldiv { + unimpl "ldiv() is C-specific, use / and int instead"; +} + +# end of POSIX::ldiv +1; diff --git a/Master/perltl/lib/auto/POSIX/link.al b/Master/perltl/lib/auto/POSIX/link.al new file mode 100644 index 00000000000..7f2cc18847f --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/link.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 703 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\link.al)" +sub link { + usage "link(oldfilename, newfilename)" if @_ != 2; + CORE::link($_[0], $_[1]); +} + +# end of POSIX::link +1; diff --git a/Master/perltl/lib/auto/POSIX/load_imports.al b/Master/perltl/lib/auto/POSIX/load_imports.al new file mode 100644 index 00000000000..5659bce963d --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/load_imports.al @@ -0,0 +1,224 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 736 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\load_imports.al)" +sub load_imports { +%EXPORT_TAGS = ( + + assert_h => [qw(assert NDEBUG)], + + ctype_h => [qw(isalnum isalpha iscntrl isdigit isgraph islower + isprint ispunct isspace isupper isxdigit tolower toupper)], + + dirent_h => [], + + errno_h => [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 EPROCLIM EPROTONOSUPPORT EPROTOTYPE + ERANGE EREMOTE ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT + ESPIPE ESRCH ESTALE ETIMEDOUT ETOOMANYREFS ETXTBSY + EUSERS EWOULDBLOCK EXDEV errno)], + + fcntl_h => [qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK + F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK + O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK + O_RDONLY O_RDWR O_TRUNC O_WRONLY + creat + SEEK_CUR SEEK_END SEEK_SET + S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU + S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG S_ISUID + S_IWGRP S_IWOTH S_IWUSR)], + + float_h => [qw(DBL_DIG DBL_EPSILON DBL_MANT_DIG + DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP + DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP + FLT_DIG FLT_EPSILON FLT_MANT_DIG + FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP + FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP + FLT_RADIX FLT_ROUNDS + LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG + LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP + LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP)], + + grp_h => [], + + limits_h => [qw( ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX + INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON + MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX + PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN + SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX + ULONG_MAX USHRT_MAX _POSIX_ARG_MAX _POSIX_CHILD_MAX + _POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT + _POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_OPEN_MAX + _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SSIZE_MAX + _POSIX_STREAM_MAX _POSIX_TZNAME_MAX)], + + locale_h => [qw(LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES + LC_MONETARY LC_NUMERIC LC_TIME NULL + localeconv setlocale)], + + math_h => [qw(HUGE_VAL acos asin atan ceil cosh fabs floor fmod + frexp ldexp log10 modf pow sinh tan tanh)], + + pwd_h => [], + + setjmp_h => [qw(longjmp setjmp siglongjmp sigsetjmp)], + + signal_h => [qw(SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK + SA_RESETHAND SA_RESTART SA_SIGINFO SIGABRT SIGALRM + SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT SIGKILL + SIGPIPE SIGQUIT SIGSEGV SIGSTOP SIGTERM SIGTSTP SIGTTIN + SIGTTOU SIGUSR1 SIGUSR2 SIG_BLOCK SIG_DFL SIG_ERR + SIG_IGN SIG_SETMASK SIG_UNBLOCK raise sigaction signal + sigpending sigprocmask sigsuspend)], + + stdarg_h => [], + + stddef_h => [qw(NULL offsetof)], + + stdio_h => [qw(BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid + L_tmpname NULL SEEK_CUR SEEK_END SEEK_SET + STREAM_MAX TMP_MAX stderr stdin stdout + clearerr fclose fdopen feof ferror fflush fgetc fgetpos + fgets fopen fprintf fputc fputs fread freopen + fscanf fseek fsetpos ftell fwrite getchar gets + perror putc putchar puts remove rewind + scanf setbuf setvbuf sscanf tmpfile tmpnam + ungetc vfprintf vprintf vsprintf)], + + stdlib_h => [qw(EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX NULL RAND_MAX + abort atexit atof atoi atol bsearch calloc div + free getenv labs ldiv malloc mblen mbstowcs mbtowc + qsort realloc strtod strtol strtoul wcstombs wctomb)], + + string_h => [qw(NULL memchr memcmp memcpy memmove memset strcat + strchr strcmp strcoll strcpy strcspn strerror strlen + strncat strncmp strncpy strpbrk strrchr strspn strstr + strtok strxfrm)], + + sys_stat_h => [qw(S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU + S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG + S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR + fstat mkfifo)], + + sys_times_h => [], + + sys_types_h => [], + + sys_utsname_h => [qw(uname)], + + sys_wait_h => [qw(WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED + WNOHANG WSTOPSIG WTERMSIG WUNTRACED)], + + termios_h => [qw( B0 B110 B1200 B134 B150 B1800 B19200 B200 B2400 + B300 B38400 B4800 B50 B600 B75 B9600 BRKINT CLOCAL + CREAD CS5 CS6 CS7 CS8 CSIZE CSTOPB ECHO ECHOE ECHOK + ECHONL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR + INLCR INPCK ISIG ISTRIP IXOFF IXON NCCS NOFLSH OPOST + PARENB PARMRK PARODD TCIFLUSH TCIOFF TCIOFLUSH TCION + TCOFLUSH TCOOFF TCOON TCSADRAIN TCSAFLUSH TCSANOW + TOSTOP VEOF VEOL VERASE VINTR VKILL VMIN VQUIT VSTART + VSTOP VSUSP VTIME + cfgetispeed cfgetospeed cfsetispeed cfsetospeed tcdrain + tcflow tcflush tcgetattr tcsendbreak tcsetattr )], + + time_h => [qw(CLK_TCK CLOCKS_PER_SEC NULL asctime clock ctime + difftime mktime strftime tzset tzname)], + + unistd_h => [qw(F_OK NULL R_OK SEEK_CUR SEEK_END SEEK_SET + STDERR_FILENO STDIN_FILENO STDOUT_FILENO W_OK X_OK + _PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON + _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX + _PC_PIPE_BUF _PC_VDISABLE _POSIX_CHOWN_RESTRICTED + _POSIX_JOB_CONTROL _POSIX_NO_TRUNC _POSIX_SAVED_IDS + _POSIX_VDISABLE _POSIX_VERSION _SC_ARG_MAX + _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL + _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS + _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION + _exit access ctermid cuserid + dup2 dup execl execle execlp execv execve execvp + fpathconf getcwd getegid geteuid getgid getgroups + getpid getuid isatty lseek pathconf pause setgid setpgid + setsid setuid sysconf tcgetpgrp tcsetpgrp ttyname)], + + utime_h => [], + +); + +# Exporter::export_tags(); +for (values %EXPORT_TAGS) { + push @EXPORT, @$_; +} + +@EXPORT_OK = qw( + abs + alarm + atan2 + chdir + chmod + chown + close + closedir + cos + exit + exp + fcntl + fileno + fork + getc + getgrgid + getgrnam + getlogin + getpgrp + getppid + getpwnam + getpwuid + gmtime + isatty + kill + link + localtime + log + mkdir + nice + open + opendir + pipe + printf + rand + read + readdir + rename + rewinddir + rmdir + sin + sleep + sprintf + sqrt + srand + stat + system + time + times + umask + unlink + utime + wait + waitpid + write +); + +require Exporter; +} + +1; +# end of POSIX::load_imports diff --git a/Master/perltl/lib/auto/POSIX/localtime.al b/Master/perltl/lib/auto/POSIX/localtime.al new file mode 100644 index 00000000000..327eec0044c --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/localtime.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 598 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\localtime.al)" +sub localtime { + usage "localtime(time)" if @_ != 1; + CORE::localtime($_[0]); +} + +# end of POSIX::localtime +1; diff --git a/Master/perltl/lib/auto/POSIX/log.al b/Master/perltl/lib/auto/POSIX/log.al new file mode 100644 index 00000000000..b04b0689863 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/log.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 162 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\log.al)" +sub log { + usage "log(x)" if @_ != 1; + CORE::log($_[0]); +} + +# end of POSIX::log +1; diff --git a/Master/perltl/lib/auto/POSIX/longjmp.al b/Master/perltl/lib/auto/POSIX/longjmp.al new file mode 100644 index 00000000000..2edb512681b --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/longjmp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 192 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\longjmp.al)" +sub longjmp { + unimpl "longjmp() is C-specific: use die instead"; +} + +# end of POSIX::longjmp +1; diff --git a/Master/perltl/lib/auto/POSIX/malloc.al b/Master/perltl/lib/auto/POSIX/malloc.al new file mode 100644 index 00000000000..c7afafcbb7a --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/malloc.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 446 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\malloc.al)" +sub malloc { + unimpl "malloc() is C-specific, stopped"; +} + +# end of POSIX::malloc +1; diff --git a/Master/perltl/lib/auto/POSIX/memchr.al b/Master/perltl/lib/auto/POSIX/memchr.al new file mode 100644 index 00000000000..8de2367abd2 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/memchr.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 471 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memchr.al)" +sub memchr { + unimpl "memchr() is C-specific, use index() instead"; +} + +# end of POSIX::memchr +1; diff --git a/Master/perltl/lib/auto/POSIX/memcmp.al b/Master/perltl/lib/auto/POSIX/memcmp.al new file mode 100644 index 00000000000..91169494c1d --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/memcmp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 475 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memcmp.al)" +sub memcmp { + unimpl "memcmp() is C-specific, use eq instead"; +} + +# end of POSIX::memcmp +1; diff --git a/Master/perltl/lib/auto/POSIX/memcpy.al b/Master/perltl/lib/auto/POSIX/memcpy.al new file mode 100644 index 00000000000..39afe5ecfd9 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/memcpy.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 479 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memcpy.al)" +sub memcpy { + unimpl "memcpy() is C-specific, use = instead"; +} + +# end of POSIX::memcpy +1; diff --git a/Master/perltl/lib/auto/POSIX/memmove.al b/Master/perltl/lib/auto/POSIX/memmove.al new file mode 100644 index 00000000000..14643d3610b --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/memmove.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 483 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memmove.al)" +sub memmove { + unimpl "memmove() is C-specific, use = instead"; +} + +# end of POSIX::memmove +1; diff --git a/Master/perltl/lib/auto/POSIX/memset.al b/Master/perltl/lib/auto/POSIX/memset.al new file mode 100644 index 00000000000..ea5df704a5e --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/memset.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 487 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\memset.al)" +sub memset { + unimpl "memset() is C-specific, use x instead"; +} + +# end of POSIX::memset +1; diff --git a/Master/perltl/lib/auto/POSIX/mkdir.al b/Master/perltl/lib/auto/POSIX/mkdir.al new file mode 100644 index 00000000000..b3ce65784b5 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/mkdir.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 568 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\mkdir.al)" +sub mkdir { + usage "mkdir(directoryname, mode)" if @_ != 2; + CORE::mkdir($_[0], $_[1]); +} + +# end of POSIX::mkdir +1; diff --git a/Master/perltl/lib/auto/POSIX/offsetof.al b/Master/perltl/lib/auto/POSIX/offsetof.al new file mode 100644 index 00000000000..dc4d5065c1d --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/offsetof.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 218 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\offsetof.al)" +sub offsetof { + unimpl "offsetof() is C-specific, stopped"; +} + +# end of POSIX::offsetof +1; diff --git a/Master/perltl/lib/auto/POSIX/opendir.al b/Master/perltl/lib/auto/POSIX/opendir.al new file mode 100644 index 00000000000..40aa101f3ca --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/opendir.al @@ -0,0 +1,16 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 99 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\opendir.al)" +sub opendir { + usage "opendir(directory)" if @_ != 1; + my $dirhandle; + CORE::opendir($dirhandle, $_[0]) + ? $dirhandle + : undef; +} + +# end of POSIX::opendir +1; diff --git a/Master/perltl/lib/auto/POSIX/perror.al b/Master/perltl/lib/auto/POSIX/perror.al new file mode 100644 index 00000000000..2f65bc3a0cf --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/perror.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 321 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\perror.al)" +sub perror { + print STDERR "@_: " if @_; + print STDERR $!,"\n"; +} + +# end of POSIX::perror +1; diff --git a/Master/perltl/lib/auto/POSIX/pow.al b/Master/perltl/lib/auto/POSIX/pow.al new file mode 100644 index 00000000000..5f199d5fb29 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/pow.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 167 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\pow.al)" +sub pow { + usage "pow(x,exponent)" if @_ != 2; + $_[0] ** $_[1]; +} + +# end of POSIX::pow +1; diff --git a/Master/perltl/lib/auto/POSIX/printf.al b/Master/perltl/lib/auto/POSIX/printf.al new file mode 100644 index 00000000000..8c27863f9d9 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/printf.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 326 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\printf.al)" +sub printf { + usage "printf(pattern, args...)" if @_ < 1; + CORE::printf STDOUT @_; +} + +# end of POSIX::printf +1; diff --git a/Master/perltl/lib/auto/POSIX/putc.al b/Master/perltl/lib/auto/POSIX/putc.al new file mode 100644 index 00000000000..773c795c192 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/putc.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 331 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\putc.al)" +sub putc { + unimpl "putc() is C-specific--use print instead"; +} + +# end of POSIX::putc +1; diff --git a/Master/perltl/lib/auto/POSIX/putchar.al b/Master/perltl/lib/auto/POSIX/putchar.al new file mode 100644 index 00000000000..b9ca943a724 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/putchar.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 335 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\putchar.al)" +sub putchar { + unimpl "putchar() is C-specific--use print instead"; +} + +# end of POSIX::putchar +1; diff --git a/Master/perltl/lib/auto/POSIX/puts.al b/Master/perltl/lib/auto/POSIX/puts.al new file mode 100644 index 00000000000..3b2dd7d90a6 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/puts.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 339 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\puts.al)" +sub puts { + unimpl "puts() is C-specific--use print instead"; +} + +# end of POSIX::puts +1; diff --git a/Master/perltl/lib/auto/POSIX/qsort.al b/Master/perltl/lib/auto/POSIX/qsort.al new file mode 100644 index 00000000000..eb9c6d3586a --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/qsort.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 450 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\qsort.al)" +sub qsort { + unimpl "qsort() is C-specific, use sort instead"; +} + +# end of POSIX::qsort +1; diff --git a/Master/perltl/lib/auto/POSIX/raise.al b/Master/perltl/lib/auto/POSIX/raise.al new file mode 100644 index 00000000000..1399c31f800 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/raise.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 213 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\raise.al)" +sub raise { + usage "raise(sig)" if @_ != 1; + CORE::kill $_[0], $$; # Is this good enough? +} + +# end of POSIX::raise +1; diff --git a/Master/perltl/lib/auto/POSIX/rand.al b/Master/perltl/lib/auto/POSIX/rand.al new file mode 100644 index 00000000000..0a8b3982e3a --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/rand.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 454 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rand.al)" +sub rand { + unimpl "rand() is non-portable, use Perl's rand instead"; +} + +# end of POSIX::rand +1; diff --git a/Master/perltl/lib/auto/POSIX/readdir.al b/Master/perltl/lib/auto/POSIX/readdir.al new file mode 100644 index 00000000000..3c2e72fd0a0 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/readdir.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 107 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\readdir.al)" +sub readdir { + usage "readdir(dirhandle)" if @_ != 1; + CORE::readdir($_[0]); +} + +# end of POSIX::readdir +1; diff --git a/Master/perltl/lib/auto/POSIX/realloc.al b/Master/perltl/lib/auto/POSIX/realloc.al new file mode 100644 index 00000000000..28efa2ccec5 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/realloc.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 458 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\realloc.al)" +sub realloc { + unimpl "realloc() is C-specific, stopped"; +} + +# end of POSIX::realloc +1; diff --git a/Master/perltl/lib/auto/POSIX/redef.al b/Master/perltl/lib/auto/POSIX/redef.al new file mode 100644 index 00000000000..0265989b228 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/redef.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 66 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\redef.al)" +sub redef { + my ($mess) = @_; + croak "Use method $mess instead"; +} + +# end of POSIX::redef +1; diff --git a/Master/perltl/lib/auto/POSIX/remove.al b/Master/perltl/lib/auto/POSIX/remove.al new file mode 100644 index 00000000000..e07b2fc0bd3 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/remove.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 343 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\remove.al)" +sub remove { + usage "remove(filename)" if @_ != 1; + CORE::unlink($_[0]); +} + +# end of POSIX::remove +1; diff --git a/Master/perltl/lib/auto/POSIX/rename.al b/Master/perltl/lib/auto/POSIX/rename.al new file mode 100644 index 00000000000..10e8447f8b8 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/rename.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 348 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rename.al)" +sub rename { + usage "rename(oldfilename, newfilename)" if @_ != 2; + CORE::rename($_[0], $_[1]); +} + +# end of POSIX::rename +1; diff --git a/Master/perltl/lib/auto/POSIX/rewind.al b/Master/perltl/lib/auto/POSIX/rewind.al new file mode 100644 index 00000000000..5d7bc6fc17c --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/rewind.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 353 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rewind.al)" +sub rewind { + usage "rewind(filehandle)" if @_ != 1; + CORE::seek($_[0],0,0); +} + +# end of POSIX::rewind +1; diff --git a/Master/perltl/lib/auto/POSIX/rewinddir.al b/Master/perltl/lib/auto/POSIX/rewinddir.al new file mode 100644 index 00000000000..04ba2209b07 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/rewinddir.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 112 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rewinddir.al)" +sub rewinddir { + usage "rewinddir(dirhandle)" if @_ != 1; + CORE::rewinddir($_[0]); +} + +# end of POSIX::rewinddir +1; diff --git a/Master/perltl/lib/auto/POSIX/rmdir.al b/Master/perltl/lib/auto/POSIX/rmdir.al new file mode 100644 index 00000000000..983a2262e9a --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/rmdir.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 708 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\rmdir.al)" +sub rmdir { + usage "rmdir(directoryname)" if @_ != 1; + CORE::rmdir($_[0]); +} + +# end of POSIX::rmdir +1; diff --git a/Master/perltl/lib/auto/POSIX/scanf.al b/Master/perltl/lib/auto/POSIX/scanf.al new file mode 100644 index 00000000000..20774a6e869 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/scanf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 358 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\scanf.al)" +sub scanf { + unimpl "scanf() is C-specific--use <> and regular expressions instead"; +} + +# end of POSIX::scanf +1; diff --git a/Master/perltl/lib/auto/POSIX/setbuf.al b/Master/perltl/lib/auto/POSIX/setbuf.al new file mode 100644 index 00000000000..3dee5e3eb99 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/setbuf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 713 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setbuf.al)" +sub setbuf { + redef "IO::Handle::setbuf()"; +} + +# end of POSIX::setbuf +1; diff --git a/Master/perltl/lib/auto/POSIX/setjmp.al b/Master/perltl/lib/auto/POSIX/setjmp.al new file mode 100644 index 00000000000..81cddb9ed62 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/setjmp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 196 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setjmp.al)" +sub setjmp { + unimpl "setjmp() is C-specific: use eval {} instead"; +} + +# end of POSIX::setjmp +1; diff --git a/Master/perltl/lib/auto/POSIX/setvbuf.al b/Master/perltl/lib/auto/POSIX/setvbuf.al new file mode 100644 index 00000000000..db1a791cb2c --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/setvbuf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 717 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\setvbuf.al)" +sub setvbuf { + redef "IO::Handle::setvbuf()"; +} + +# end of POSIX::setvbuf +1; diff --git a/Master/perltl/lib/auto/POSIX/siglongjmp.al b/Master/perltl/lib/auto/POSIX/siglongjmp.al new file mode 100644 index 00000000000..bfbf9916c52 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/siglongjmp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 200 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\siglongjmp.al)" +sub siglongjmp { + unimpl "siglongjmp() is C-specific: use die instead"; +} + +# end of POSIX::siglongjmp +1; diff --git a/Master/perltl/lib/auto/POSIX/sigsetjmp.al b/Master/perltl/lib/auto/POSIX/sigsetjmp.al new file mode 100644 index 00000000000..ef8ad5ec087 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/sigsetjmp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 204 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sigsetjmp.al)" +sub sigsetjmp { + unimpl "sigsetjmp() is C-specific: use eval {} instead"; +} + +# end of POSIX::sigsetjmp +1; diff --git a/Master/perltl/lib/auto/POSIX/sin.al b/Master/perltl/lib/auto/POSIX/sin.al new file mode 100644 index 00000000000..97501e7fc5d --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/sin.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 172 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sin.al)" +sub sin { + usage "sin(x)" if @_ != 1; + CORE::sin($_[0]); +} + +# end of POSIX::sin +1; diff --git a/Master/perltl/lib/auto/POSIX/sleep.al b/Master/perltl/lib/auto/POSIX/sleep.al new file mode 100644 index 00000000000..ed44ef67ceb --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/sleep.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 721 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sleep.al)" +sub sleep { + usage "sleep(seconds)" if @_ != 1; + $_[0] - CORE::sleep($_[0]); +} + +# end of POSIX::sleep +1; diff --git a/Master/perltl/lib/auto/POSIX/sprintf.al b/Master/perltl/lib/auto/POSIX/sprintf.al new file mode 100644 index 00000000000..dc02870b96a --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/sprintf.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 362 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sprintf.al)" +sub sprintf { + usage "sprintf(pattern,args)" if @_ == 0; + CORE::sprintf(shift,@_); +} + +# end of POSIX::sprintf +1; diff --git a/Master/perltl/lib/auto/POSIX/sqrt.al b/Master/perltl/lib/auto/POSIX/sqrt.al new file mode 100644 index 00000000000..def6780521d --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/sqrt.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 177 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sqrt.al)" +sub sqrt { + usage "sqrt(x)" if @_ != 1; + CORE::sqrt($_[0]); +} + +# end of POSIX::sqrt +1; diff --git a/Master/perltl/lib/auto/POSIX/srand.al b/Master/perltl/lib/auto/POSIX/srand.al new file mode 100644 index 00000000000..6f4a41042b3 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/srand.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 462 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\srand.al)" +sub srand { + unimpl "srand()"; +} + +# end of POSIX::srand +1; diff --git a/Master/perltl/lib/auto/POSIX/sscanf.al b/Master/perltl/lib/auto/POSIX/sscanf.al new file mode 100644 index 00000000000..fe5d61fe665 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/sscanf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 367 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\sscanf.al)" +sub sscanf { + unimpl "sscanf() is C-specific--use regular expressions instead"; +} + +# end of POSIX::sscanf +1; diff --git a/Master/perltl/lib/auto/POSIX/stat.al b/Master/perltl/lib/auto/POSIX/stat.al new file mode 100644 index 00000000000..eb483e18f70 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/stat.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 573 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\stat.al)" +sub stat { + usage "stat(filename)" if @_ != 1; + CORE::stat($_[0]); +} + +# end of POSIX::stat +1; diff --git a/Master/perltl/lib/auto/POSIX/strcat.al b/Master/perltl/lib/auto/POSIX/strcat.al new file mode 100644 index 00000000000..ed3e4fe582c --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/strcat.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 491 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcat.al)" +sub strcat { + unimpl "strcat() is C-specific, use .= instead"; +} + +# end of POSIX::strcat +1; diff --git a/Master/perltl/lib/auto/POSIX/strchr.al b/Master/perltl/lib/auto/POSIX/strchr.al new file mode 100644 index 00000000000..7802d2dc57d --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/strchr.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 495 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strchr.al)" +sub strchr { + unimpl "strchr() is C-specific, use index() instead"; +} + +# end of POSIX::strchr +1; diff --git a/Master/perltl/lib/auto/POSIX/strcmp.al b/Master/perltl/lib/auto/POSIX/strcmp.al new file mode 100644 index 00000000000..07127207853 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/strcmp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 499 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcmp.al)" +sub strcmp { + unimpl "strcmp() is C-specific, use eq instead"; +} + +# end of POSIX::strcmp +1; diff --git a/Master/perltl/lib/auto/POSIX/strcpy.al b/Master/perltl/lib/auto/POSIX/strcpy.al new file mode 100644 index 00000000000..fc48c859e2e --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/strcpy.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 503 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcpy.al)" +sub strcpy { + unimpl "strcpy() is C-specific, use = instead"; +} + +# end of POSIX::strcpy +1; diff --git a/Master/perltl/lib/auto/POSIX/strcspn.al b/Master/perltl/lib/auto/POSIX/strcspn.al new file mode 100644 index 00000000000..1347dc79fd3 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/strcspn.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 507 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strcspn.al)" +sub strcspn { + unimpl "strcspn() is C-specific, use regular expressions instead"; +} + +# end of POSIX::strcspn +1; diff --git a/Master/perltl/lib/auto/POSIX/strerror.al b/Master/perltl/lib/auto/POSIX/strerror.al new file mode 100644 index 00000000000..55dcb64350c --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/strerror.al @@ -0,0 +1,14 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 511 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strerror.al)" +sub strerror { + usage "strerror(errno)" if @_ != 1; + local $! = $_[0]; + $! . ""; +} + +# end of POSIX::strerror +1; diff --git a/Master/perltl/lib/auto/POSIX/strlen.al b/Master/perltl/lib/auto/POSIX/strlen.al new file mode 100644 index 00000000000..f417d1755aa --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/strlen.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 517 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strlen.al)" +sub strlen { + unimpl "strlen() is C-specific, use length instead"; +} + +# end of POSIX::strlen +1; diff --git a/Master/perltl/lib/auto/POSIX/strncat.al b/Master/perltl/lib/auto/POSIX/strncat.al new file mode 100644 index 00000000000..bb890c89858 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/strncat.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 521 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncat.al)" +sub strncat { + unimpl "strncat() is C-specific, use .= instead"; +} + +# end of POSIX::strncat +1; diff --git a/Master/perltl/lib/auto/POSIX/strncmp.al b/Master/perltl/lib/auto/POSIX/strncmp.al new file mode 100644 index 00000000000..f8f0b2b5f84 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/strncmp.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 525 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncmp.al)" +sub strncmp { + unimpl "strncmp() is C-specific, use eq instead"; +} + +# end of POSIX::strncmp +1; diff --git a/Master/perltl/lib/auto/POSIX/strncpy.al b/Master/perltl/lib/auto/POSIX/strncpy.al new file mode 100644 index 00000000000..a9680b90514 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/strncpy.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 529 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strncpy.al)" +sub strncpy { + unimpl "strncpy() is C-specific, use = instead"; +} + +# end of POSIX::strncpy +1; diff --git a/Master/perltl/lib/auto/POSIX/strpbrk.al b/Master/perltl/lib/auto/POSIX/strpbrk.al new file mode 100644 index 00000000000..18e7fa29bcf --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/strpbrk.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 533 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strpbrk.al)" +sub strpbrk { + unimpl "strpbrk() is C-specific, stopped"; +} + +# end of POSIX::strpbrk +1; diff --git a/Master/perltl/lib/auto/POSIX/strrchr.al b/Master/perltl/lib/auto/POSIX/strrchr.al new file mode 100644 index 00000000000..8a0ad300422 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/strrchr.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 537 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strrchr.al)" +sub strrchr { + unimpl "strrchr() is C-specific, use rindex() instead"; +} + +# end of POSIX::strrchr +1; diff --git a/Master/perltl/lib/auto/POSIX/strspn.al b/Master/perltl/lib/auto/POSIX/strspn.al new file mode 100644 index 00000000000..162341b05a3 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/strspn.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 541 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strspn.al)" +sub strspn { + unimpl "strspn() is C-specific, stopped"; +} + +# end of POSIX::strspn +1; diff --git a/Master/perltl/lib/auto/POSIX/strstr.al b/Master/perltl/lib/auto/POSIX/strstr.al new file mode 100644 index 00000000000..c99a491a780 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/strstr.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 545 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strstr.al)" +sub strstr { + usage "strstr(big, little)" if @_ != 2; + CORE::index($_[0], $_[1]); +} + +# end of POSIX::strstr +1; diff --git a/Master/perltl/lib/auto/POSIX/strtok.al b/Master/perltl/lib/auto/POSIX/strtok.al new file mode 100644 index 00000000000..a574fde27ed --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/strtok.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 550 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\strtok.al)" +sub strtok { + unimpl "strtok() is C-specific, stopped"; +} + +# end of POSIX::strtok +1; diff --git a/Master/perltl/lib/auto/POSIX/system.al b/Master/perltl/lib/auto/POSIX/system.al new file mode 100644 index 00000000000..976f439cc35 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/system.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 466 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\system.al)" +sub system { + usage "system(command)" if @_ != 1; + CORE::system($_[0]); +} + +# end of POSIX::system +1; diff --git a/Master/perltl/lib/auto/POSIX/time.al b/Master/perltl/lib/auto/POSIX/time.al new file mode 100644 index 00000000000..3f90c0a999d --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/time.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 603 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\time.al)" +sub time { + usage "time()" if @_ != 0; + CORE::time; +} + +# end of POSIX::time +1; diff --git a/Master/perltl/lib/auto/POSIX/tmpfile.al b/Master/perltl/lib/auto/POSIX/tmpfile.al new file mode 100644 index 00000000000..a64d2aff625 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/tmpfile.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 371 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\tmpfile.al)" +sub tmpfile { + redef "IO::File::new_tmpfile()"; +} + +# end of POSIX::tmpfile +1; diff --git a/Master/perltl/lib/auto/POSIX/tolower.al b/Master/perltl/lib/auto/POSIX/tolower.al new file mode 100644 index 00000000000..8ec7b584813 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/tolower.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 84 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\tolower.al)" +sub tolower { + usage "tolower(string)" if @_ != 1; + lc($_[0]); +} + +# end of POSIX::tolower +1; diff --git a/Master/perltl/lib/auto/POSIX/toupper.al b/Master/perltl/lib/auto/POSIX/toupper.al new file mode 100644 index 00000000000..efc3c3ebeac --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/toupper.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 89 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\toupper.al)" +sub toupper { + usage "toupper(string)" if @_ != 1; + uc($_[0]); +} + +# end of POSIX::toupper +1; diff --git a/Master/perltl/lib/auto/POSIX/umask.al b/Master/perltl/lib/auto/POSIX/umask.al new file mode 100644 index 00000000000..6812329253e --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/umask.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 578 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\umask.al)" +sub umask { + usage "umask(mask)" if @_ != 1; + CORE::umask($_[0]); +} + +# end of POSIX::umask +1; diff --git a/Master/perltl/lib/auto/POSIX/ungetc.al b/Master/perltl/lib/auto/POSIX/ungetc.al new file mode 100644 index 00000000000..b384b46b9d2 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/ungetc.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 375 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\ungetc.al)" +sub ungetc { + redef "IO::Handle::ungetc()"; +} + +# end of POSIX::ungetc +1; diff --git a/Master/perltl/lib/auto/POSIX/unimpl.al b/Master/perltl/lib/auto/POSIX/unimpl.al new file mode 100644 index 00000000000..b700d3d95b4 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/unimpl.al @@ -0,0 +1,14 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 71 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\unimpl.al)" +sub unimpl { + my ($mess) = @_; + $mess =~ s/xxx//; + croak "Unimplemented: POSIX::$mess"; +} + +# end of POSIX::unimpl +1; diff --git a/Master/perltl/lib/auto/POSIX/unlink.al b/Master/perltl/lib/auto/POSIX/unlink.al new file mode 100644 index 00000000000..f8a44b79620 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/unlink.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 726 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\unlink.al)" +sub unlink { + usage "unlink(filename)" if @_ != 1; + CORE::unlink($_[0]); +} + +# end of POSIX::unlink +1; diff --git a/Master/perltl/lib/auto/POSIX/usage.al b/Master/perltl/lib/auto/POSIX/usage.al new file mode 100644 index 00000000000..e81f8619b5e --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/usage.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 61 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\usage.al)" +sub usage { + my ($mess) = @_; + croak "Usage: POSIX::$mess"; +} + +# end of POSIX::usage +1; diff --git a/Master/perltl/lib/auto/POSIX/utime.al b/Master/perltl/lib/auto/POSIX/utime.al new file mode 100644 index 00000000000..5ddf502f8cf --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/utime.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 731 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\utime.al)" +sub utime { + usage "utime(filename, atime, mtime)" if @_ != 3; + CORE::utime($_[1], $_[2], $_[0]); +} + +# end of POSIX::utime +1; diff --git a/Master/perltl/lib/auto/POSIX/vfprintf.al b/Master/perltl/lib/auto/POSIX/vfprintf.al new file mode 100644 index 00000000000..561853cc60f --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/vfprintf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 379 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vfprintf.al)" +sub vfprintf { + unimpl "vfprintf() is C-specific"; +} + +# end of POSIX::vfprintf +1; diff --git a/Master/perltl/lib/auto/POSIX/vprintf.al b/Master/perltl/lib/auto/POSIX/vprintf.al new file mode 100644 index 00000000000..aa597c30eaa --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/vprintf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 383 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vprintf.al)" +sub vprintf { + unimpl "vprintf() is C-specific"; +} + +# end of POSIX::vprintf +1; diff --git a/Master/perltl/lib/auto/POSIX/vsprintf.al b/Master/perltl/lib/auto/POSIX/vsprintf.al new file mode 100644 index 00000000000..fcc93ff270b --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/vsprintf.al @@ -0,0 +1,12 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 387 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\vsprintf.al)" +sub vsprintf { + unimpl "vsprintf() is C-specific"; +} + +# end of POSIX::vsprintf +1; diff --git a/Master/perltl/lib/auto/POSIX/wait.al b/Master/perltl/lib/auto/POSIX/wait.al new file mode 100644 index 00000000000..bb11314a208 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/wait.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 583 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\wait.al)" +sub wait { + usage "wait()" if @_ != 0; + CORE::wait(); +} + +# end of POSIX::wait +1; diff --git a/Master/perltl/lib/auto/POSIX/waitpid.al b/Master/perltl/lib/auto/POSIX/waitpid.al new file mode 100644 index 00000000000..2b10e7908b1 --- /dev/null +++ b/Master/perltl/lib/auto/POSIX/waitpid.al @@ -0,0 +1,13 @@ +# NOTE: Derived from ..\..\lib\POSIX.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package POSIX; + +#line 588 "..\..\lib\POSIX.pm (autosplit into ..\..\lib\auto\POSIX\waitpid.al)" +sub waitpid { + usage "waitpid(pid, options)" if @_ != 2; + CORE::waitpid($_[0], $_[1]); +} + +# end of POSIX::waitpid +1; -- cgit v1.2.3