diff options
author | Nicholas Clark <nick@ccl4.org> | 2012-11-17 15:09:45 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2012-11-19 13:55:19 +0100 |
commit | 739a0b843246478d33d6b9205abb19e5492a5807 (patch) | |
tree | 35e51e021d300da32b7eb4b872439fa3b107bcc6 /epoc/epocish.h | |
parent | a2b3762a2993f9d1f92ffee8ac3a80b128381168 (diff) | |
download | perl-739a0b843246478d33d6b9205abb19e5492a5807.tar.gz |
Remove the EPOC port.
EPOC was a family of operating systems developed by Psion for mobile
devices. It was the predecessor of Symbian.
The port was last updated in April 2002.
Diffstat (limited to 'epoc/epocish.h')
-rw-r--r-- | epoc/epocish.h | 158 |
1 files changed, 0 insertions, 158 deletions
diff --git a/epoc/epocish.h b/epoc/epocish.h deleted file mode 100644 index bd364ec563..0000000000 --- a/epoc/epocish.h +++ /dev/null @@ -1,158 +0,0 @@ -/* - * The following symbols are defined if your operating system supports - * functions by that name. All Unixes I know of support them, thus they - * are not checked by the configuration script, but are directly defined - * here. - */ - -/* HAS_IOCTL: - * This symbol, if defined, indicates that the ioctl() routine is - * available to set I/O characteristics - */ -#define HAS_IOCTL /**/ - -/* HAS_UTIME: - * This symbol, if defined, indicates that the routine utime() is - * available to update the access and modification times of files. - */ -/* #define HAS_UTIME / **/ - -/* HAS_GROUP - * This symbol, if defined, indicates that the getgrnam() and - * getgrgid() routines are available to get group entries. - * The getgrent() has a separate definition, HAS_GETGRENT. - */ -/* #define HAS_GROUP / **/ - -/* HAS_PASSWD - * This symbol, if defined, indicates that the getpwnam() and - * getpwuid() routines are available to get password entries. - * The getpwent() has a separate definition, HAS_GETPWENT. - */ -/* #define HAS_PASSWD / **/ - -/* #define HAS_KILL */ -#define HAS_WAIT - -/* USEMYBINMODE - * This symbol, if defined, indicates that the program should - * use the routine my_binmode(FILE *fp, char iotype, int mode) to insure - * that a file is in "binary" mode -- that is, that no translation - * of bytes occurs on read or write operations. - */ -#undef USEMYBINMODE - -/* Stat_t: - * This symbol holds the type used to declare buffers for information - * returned by stat(). It's usually just struct stat. It may be necessary - * to include <sys/stat.h> and <sys/types.h> to get any typedef'ed - * information. - */ -#define Stat_t struct stat - -/* USE_STAT_RDEV: - * This symbol is defined if this system has a stat structure declaring - * st_rdev - */ -#define USE_STAT_RDEV /**/ - -/* ACME_MESS: - * This symbol, if defined, indicates that error messages should be - * should be generated in a format that allows the use of the Acme - * GUI/editor's autofind feature. - */ -#undef ACME_MESS /**/ - -/* UNLINK_ALL_VERSIONS: - * This symbol, if defined, indicates that the program should arrange - * to remove all versions of a file if unlink() is called. This is - * probably only relevant for VMS. - */ -/* #define UNLINK_ALL_VERSIONS / **/ - -/* VMS: - * This symbol, if defined, indicates that the program is running under - * VMS. It is currently automatically set by cpps running under VMS, - * and is included here for completeness only. - */ -/* #define VMS / **/ - -/* ALTERNATE_SHEBANG: - * This symbol, if defined, contains a "magic" string which may be used - * as the first line of a Perl program designed to be executed directly - * by name, instead of the standard Unix #!. If ALTERNATE_SHEBANG - * begins with a character other then #, then Perl will only treat - * it as a command line if if finds the string "perl" in the first - * word; otherwise it's treated as the first line of code in the script. - * (IOW, Perl won't hand off to another interpreter via an alternate - * shebang sequence that might be legal Perl code.) - */ -/* #define ALTERNATE_SHEBANG "#!" / **/ - - -#define ABORT() abort(); - -/* - * fwrite1() should be a routine with the same calling sequence as fwrite(), - * but which outputs all of the bytes requested as a single stream (unlike - * fwrite() itself, which on some systems outputs several distinct records - * if the number_of_items parameter is >1). - */ -#define fwrite1 fwrite - -#define Stat(fname,bufptr) stat((fname),(bufptr)) -#define Fstat(fd,bufptr) fstat((fd),(bufptr)) -#define Fflush(fp) fflush(fp) -#define Mkdir(path,mode) mkdir((path),(mode)) - - -/* epocemx setenv bug workaround */ -#ifndef PERL_SYS_INIT_BODY -# define PERL_SYS_INIT_BODY(c,v) \ - MALLOC_CHECK_TAINT2(*c,*v) putenv(".dummy=foo"); putenv(".dummy"); \ - PERLIO_INIT; MALLOC_INIT -#endif - -#ifndef PERL_SYS_TERM_BODY -#define PERL_SYS_TERM_BODY() PERLIO_TERM; MALLOC_TERM -#endif - -#define BIT_BUCKET "/dev/null" - -#define dXSUB_SYS - -/* getsockname returns the size of struct sockaddr_in *without* padding */ -#define BOGUS_GETNAME_RETURN 8 - -/* - read() on a socket is unimplemented in current epocemx - use recv() instead -*/ - -#define PERL_SOCK_SYSREAD_IS_RECV - -/* write ditto, use send */ -#define PERL_SOCK_SYSWRITE_IS_SEND - -/* No /dev/random available*/ - -#define PERL_NO_DEV_RANDOM - -/* - work around for buggy atof(): - atof() in ER5 stdlib depends on locale. -*/ - -#define strtoul(a,b,c) epoc_strtoul(a,b,c) - -#define init_os_extras Perl_init_os_extras - -#define ARG_MAX 4096 - -#define ECONNABORTED 0xdead - -/* For environ */ -#include <emx.h> -#define PERL_USE_SAFE_PUTENV - - |