mirror of
https://github.com/ruby/ruby.git
synced 2025-08-23 13:04:13 +02:00
remove obsolete files
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@521 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
matz
parent
65a5162550
commit
942b2ba4b6
26 changed files with 0 additions and 7308 deletions
2194
missing/nt.c
2194
missing/nt.c
File diff suppressed because it is too large
Load diff
362
missing/nt.h
362
missing/nt.h
|
|
@ -1,362 +0,0 @@
|
|||
#ifndef EXT_NT_H
|
||||
#define EXT_NT_H
|
||||
|
||||
/*
|
||||
* Copyright (c) 1993, Intergraph Corporation
|
||||
*
|
||||
* You may distribute under the terms of either the GNU General Public
|
||||
* License or the Artistic License, as specified in the perl README file.
|
||||
*
|
||||
*/
|
||||
|
||||
//
|
||||
// Definitions for NT port of Perl
|
||||
//
|
||||
|
||||
//
|
||||
// GRRRR!!!! Windows Nonsense.
|
||||
// Define the following so we don't get tons of extra stuff
|
||||
// when we include windows.h
|
||||
//
|
||||
#if 0
|
||||
#define NOGDICAPMASKS
|
||||
#define NOVIRTUALKEYCODES
|
||||
#define NOWINMESSAGES
|
||||
#define NOWINSTYLES
|
||||
#define NOSYSMETRICS
|
||||
#define NOMENUS
|
||||
#define NOICONS
|
||||
#define NOKEYSTATES
|
||||
#define NOSYSCOMMANDS
|
||||
#define NORASTEROPS
|
||||
#define NOSHOWWINDOW
|
||||
#define OEMRESOURCE
|
||||
#define NOATOM
|
||||
#define NOCLIPBOARD
|
||||
#define NOCOLOR
|
||||
#define NOCTLMGR
|
||||
#define NODRAWTEXT
|
||||
#define NOGDI
|
||||
//#define NOKERNEL
|
||||
//#define NOUSER
|
||||
#define NONLS
|
||||
#define NOMB
|
||||
#define NOMEMMGR
|
||||
#define NOMETAFILE
|
||||
#define NOMINMAX
|
||||
#define NOMSG
|
||||
#define NOOPENFILE
|
||||
#define NOSCROLL
|
||||
#define NOSERVICE
|
||||
#define NOSOUND
|
||||
#define NOTEXTMETRIC
|
||||
#define NOWH
|
||||
#define NOWINOFFSETS
|
||||
#define NOCOMM
|
||||
#define NOKANJI
|
||||
#define NOHELP
|
||||
#define NOPROFILER
|
||||
#define NODEFERWINDOWPOS
|
||||
#endif
|
||||
|
||||
//
|
||||
// Ok now we can include the normal include files.
|
||||
//
|
||||
|
||||
// #include <stdarg.h> conflict with varargs.h?
|
||||
// There is function-name conflitct, so we rename it
|
||||
#if !defined(IN) && !defined(FLOAT)
|
||||
#define OpenFile WINAPI_OpenFile
|
||||
#include <windows.h>
|
||||
#include <winsock.h>
|
||||
#undef OpenFile
|
||||
#endif
|
||||
//
|
||||
// We\'re not using Microsoft\'s "extensions" to C for
|
||||
// Structured Exception Handling (SEH) so we can nuke these
|
||||
//
|
||||
#undef try
|
||||
#undef except
|
||||
#undef finally
|
||||
#undef leave
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <direct.h>
|
||||
#include <process.h>
|
||||
#include <time.h>
|
||||
#include <math.h>
|
||||
#include <sys/types.h>
|
||||
#include <sys/utime.h>
|
||||
|
||||
//
|
||||
// Grrr...
|
||||
//
|
||||
|
||||
#define access _access
|
||||
#define chmod _chmod
|
||||
#define chsize _chsize
|
||||
#define close _close
|
||||
#define creat _creat
|
||||
#define dup _dup
|
||||
#define dup2 _dup2
|
||||
#define eof _eof
|
||||
#define filelength _filelength
|
||||
#define isatty _isatty
|
||||
#define locking _locking
|
||||
#define lseek _lseek
|
||||
#define mktemp _mktemp
|
||||
#define open _open
|
||||
#define read _read
|
||||
#define setmode _setmode
|
||||
#define sopen _sopen
|
||||
#define tell _tell
|
||||
#define umask _umask
|
||||
#define unlink _unlink
|
||||
#define write _write
|
||||
#define execl _execl
|
||||
#define execle _execle
|
||||
#define execlp _execlp
|
||||
#define execlpe _execlpe
|
||||
#define execv _execv
|
||||
#define execve _execve
|
||||
#define execvp _execvp
|
||||
#define execvpe _execvpe
|
||||
#define getpid _getpid
|
||||
#define spawnl _spawnl
|
||||
#define spawnle _spawnle
|
||||
#define spawnlp _spawnlp
|
||||
#define spawnlpe _spawnlpe
|
||||
#define spawnv _spawnv
|
||||
#define spawnve _spawnve
|
||||
#define spawnvp _spawnvp
|
||||
#define spawnvpe _spawnvpe
|
||||
#if _MSC_VER < 800
|
||||
#define fileno _fileno
|
||||
#endif
|
||||
#define utime _utime
|
||||
//#define pipe _pipe
|
||||
#define perror _perror
|
||||
|
||||
|
||||
/* these are defined in nt.c */
|
||||
|
||||
extern int NtMakeCmdVector(char *, char ***, int);
|
||||
/* extern void NtInitialize(int *, char ***); */
|
||||
extern char *NtGetLib(void);
|
||||
extern char *NtGetBin(void);
|
||||
extern FILE *mypopen(char *, char *);
|
||||
extern int flock(int fd, int oper);
|
||||
extern FILE * myfdopen(int, char*);
|
||||
extern SOCKET myaccept(SOCKET, struct sockaddr *, int *);
|
||||
extern int mybind(SOCKET, struct sockaddr *, int);
|
||||
extern int myconnect(SOCKET, struct sockaddr *, int);
|
||||
extern int mygetpeername(SOCKET, struct sockaddr *, int *);
|
||||
extern int mygetsockname(SOCKET, struct sockaddr *, int *);
|
||||
extern int mygetsockopt(SOCKET, int, int, char *, int *);
|
||||
extern int myioctlsocket(SOCKET, long, u_long *);
|
||||
extern int mylisten(SOCKET, int);
|
||||
extern int myrecv(SOCKET, char *, int, int);
|
||||
extern int myrecvfrom(SOCKET, char *, int, int, struct sockaddr *, int *);
|
||||
extern int mysend(SOCKET, char *, int, int);
|
||||
extern int mysendto(SOCKET, char *, int, int, struct sockaddr *, int);
|
||||
extern int mysetsockopt(SOCKET, int, int, char *, int);
|
||||
extern int myshutdown(SOCKET, int);
|
||||
extern SOCKET mysocket(int, int, int);
|
||||
extern struct hostent * mygethostbyaddr(char *, int, int);
|
||||
extern struct hostent * mygethostbyname(char *);
|
||||
extern int mygethostname(char *, int);
|
||||
extern struct protoent * mygetprotobyname(char *);
|
||||
extern struct protoent * mygetprotobynumber(int);
|
||||
extern struct servent * mygetservbyname(char *, char *);
|
||||
extern struct servent * mygetservbyport(int, char *);
|
||||
|
||||
//
|
||||
// define this so we can do inplace editing
|
||||
//
|
||||
|
||||
#define SUFFIX
|
||||
|
||||
//
|
||||
// stubs
|
||||
//
|
||||
// extern int ioctl (int, unsigned int, char *);
|
||||
extern int ioctl (int, unsigned int, long);
|
||||
#if 0
|
||||
extern void sleep (unsigned int);
|
||||
#else
|
||||
#define sleep(x) Sleep(x*1000)
|
||||
#endif
|
||||
|
||||
extern UIDTYPE getuid (void);
|
||||
extern UIDTYPE geteuid (void);
|
||||
extern GIDTYPE getgid (void);
|
||||
extern GIDTYPE getegid (void);
|
||||
extern int setuid (int);
|
||||
extern int setgid (int);
|
||||
|
||||
|
||||
#undef IN /* confict in parse.c */
|
||||
|
||||
#if 0
|
||||
extern int sys_nerr;
|
||||
extern char *sys_errlist[];
|
||||
#endif
|
||||
extern char *mystrerror(int);
|
||||
|
||||
#define strerror(e) mystrerror(e)
|
||||
|
||||
#define PIPE_BUF 1024
|
||||
|
||||
#define HAVE_STDLIB_H 1
|
||||
#define HAVE_GETLOGIN 1
|
||||
#define HAVE_WAITPID 1
|
||||
#define HAVE_GETCWD 1
|
||||
|
||||
#define LOCK_SH 1
|
||||
#define LOCK_EX 2
|
||||
#define LOCK_NB 4
|
||||
#define LOCK_UN 8
|
||||
#ifndef EWOULDBLOCK
|
||||
#define EWOULDBLOCK 10035 /* EBASEERR + 35 (winsock.h) */
|
||||
#endif
|
||||
|
||||
#ifdef popen
|
||||
#undef popen
|
||||
#define popen mypopen
|
||||
#endif
|
||||
#ifdef pclose
|
||||
#undef pclose
|
||||
#define pclose mypclose
|
||||
#endif
|
||||
|
||||
#undef va_start
|
||||
#undef va_end
|
||||
|
||||
#ifdef popen
|
||||
#undef popen
|
||||
#define popen mypopen
|
||||
#endif
|
||||
#ifdef pclose
|
||||
#undef pclose
|
||||
#define pclose mypclose
|
||||
#endif
|
||||
|
||||
#undef va_start
|
||||
#undef va_end
|
||||
|
||||
#ifdef fdopen
|
||||
#undef fdopen
|
||||
#endif
|
||||
#define fdopen myfdopen
|
||||
|
||||
#ifdef accept
|
||||
#undef accept
|
||||
#endif
|
||||
#define accept myaccept
|
||||
|
||||
#ifdef bind
|
||||
#undef bind
|
||||
#endif
|
||||
#define bind mybind
|
||||
|
||||
#ifdef connect
|
||||
#undef connect
|
||||
#endif
|
||||
#define connect myconnect
|
||||
|
||||
#ifdef getpeername
|
||||
#undef getpeername
|
||||
#endif
|
||||
#define getpeername mygetpeername
|
||||
|
||||
#ifdef getsockname
|
||||
#undef getsockname
|
||||
#endif
|
||||
#define getsockname mygetsockname
|
||||
|
||||
#ifdef getsockopt
|
||||
#undef getsockopt
|
||||
#endif
|
||||
#define getsockopt mygetsockopt
|
||||
|
||||
#ifdef ioctlsocket
|
||||
#undef ioctlsocket
|
||||
#endif
|
||||
#define ioctlsocket myioctlsocket
|
||||
|
||||
#ifdef listen
|
||||
#undef listen
|
||||
#endif
|
||||
#define listen mylisten
|
||||
|
||||
#ifdef recv
|
||||
#undef recv
|
||||
#endif
|
||||
#define recv myrecv
|
||||
|
||||
#ifdef recvfrom
|
||||
#undef recvfrom
|
||||
#endif
|
||||
#define recvfrom myrecvfrom
|
||||
|
||||
#ifdef send
|
||||
#undef send
|
||||
#endif
|
||||
#define send mysend
|
||||
|
||||
#ifdef sendto
|
||||
#undef sendto
|
||||
#endif
|
||||
#define sendto mysendto
|
||||
|
||||
#ifdef setsockopt
|
||||
#undef setsockopt
|
||||
#endif
|
||||
#define setsockopt mysetsockopt
|
||||
|
||||
#ifdef shutdown
|
||||
#undef shutdown
|
||||
#endif
|
||||
#define shutdown myshutdown
|
||||
|
||||
#ifdef socket
|
||||
#undef socket
|
||||
#endif
|
||||
#define socket mysocket
|
||||
|
||||
#ifdef gethostbyaddr
|
||||
#undef gethostbyaddr
|
||||
#endif
|
||||
#define gethostbyaddr mygethostbyaddr
|
||||
|
||||
#ifdef gethostbyname
|
||||
#undef gethostbyname
|
||||
#endif
|
||||
#define gethostbyname mygethostbyname
|
||||
|
||||
#ifdef gethostname
|
||||
#undef gethostname
|
||||
#endif
|
||||
#define gethostname mygethostname
|
||||
|
||||
#ifdef getprotobyname
|
||||
#undef getprotobyname
|
||||
#endif
|
||||
#define getprotobyname mygetprotobyname
|
||||
|
||||
#ifdef getprotobynumber
|
||||
#undef getprotobynumber
|
||||
#endif
|
||||
#define getprotobynumber mygetprotobynumber
|
||||
|
||||
#ifdef getservbyname
|
||||
#undef getservbyname
|
||||
#endif
|
||||
#define getservbyname mygetservbyname
|
||||
|
||||
#ifdef getservbyport
|
||||
#undef getservbyport
|
||||
#endif
|
||||
#define getservbyport mygetservbyport
|
||||
#endif
|
||||
149
missing/setenv.c
149
missing/setenv.c
|
|
@ -1,149 +0,0 @@
|
|||
/*
|
||||
* Copyright (c) 1991, Larry Wall
|
||||
*
|
||||
* You may distribute under the terms of either the GNU General Public
|
||||
* License or the Artistic License, as specified in the README file.
|
||||
*/
|
||||
|
||||
#include "ruby.h"
|
||||
|
||||
#ifndef NT
|
||||
extern char **environ;
|
||||
#endif
|
||||
extern char **origenviron;
|
||||
|
||||
#ifndef NT
|
||||
char *strdup();
|
||||
#endif
|
||||
|
||||
#ifdef USE_WIN32_RTL_ENV
|
||||
#include <stdlib.h>
|
||||
#endif
|
||||
|
||||
static int
|
||||
envix(nam)
|
||||
char *nam;
|
||||
{
|
||||
register int i, len = strlen(nam);
|
||||
|
||||
for (i = 0; environ[i]; i++) {
|
||||
if (memcmp(environ[i],nam,len) == 0 && environ[i][len] == '=')
|
||||
break; /* memcmp must come first to avoid */
|
||||
} /* potential SEGV's */
|
||||
return i;
|
||||
}
|
||||
|
||||
#ifndef WIN32
|
||||
void
|
||||
setenv(nam,val, n)
|
||||
char *nam, *val;
|
||||
int n;
|
||||
{
|
||||
register int i=envix(nam); /* where does it go? */
|
||||
|
||||
if (environ == origenviron) { /* need we copy environment? */
|
||||
int j;
|
||||
int max;
|
||||
char **tmpenv;
|
||||
|
||||
/*SUPPRESS 530*/
|
||||
for (max = i; environ[max]; max++) ;
|
||||
tmpenv = ALLOC_N(char*, max+2);
|
||||
for (j=0; j<max; j++) /* copy environment */
|
||||
tmpenv[j] = strdup(environ[j]);
|
||||
tmpenv[max] = 0;
|
||||
environ = tmpenv; /* tell exec where it is now */
|
||||
}
|
||||
if (!val) {
|
||||
while (environ[i]) {
|
||||
environ[i] = environ[i+1];
|
||||
i++;
|
||||
}
|
||||
return;
|
||||
}
|
||||
if (!environ[i]) { /* does not exist yet */
|
||||
REALLOC_N(environ, char*, i+2); /* just expand it a bit */
|
||||
environ[i+1] = 0; /* make sure it's null terminated */
|
||||
}
|
||||
else {
|
||||
free(environ[i]);
|
||||
}
|
||||
environ[i] = ALLOC_N(char, strlen(nam) + strlen(val) + 2);
|
||||
#ifndef MSDOS
|
||||
(void)sprintf(environ[i],"%s=%s",nam,val);/* all that work just for this */
|
||||
#else
|
||||
/* MS-DOS requires environment variable names to be in uppercase */
|
||||
/* [Tom Dinger, 27 August 1990: Well, it doesn't _require_ it, but
|
||||
* some utilities and applications may break because they only look
|
||||
* for upper case strings. (Fixed strupr() bug here.)]
|
||||
*/
|
||||
strcpy(environ[i],nam); strupr(environ[i]);
|
||||
(void)sprintf(environ[i] + strlen(nam),"=%s",val);
|
||||
#endif /* MSDOS */
|
||||
}
|
||||
#else /* if WIN32 */
|
||||
void
|
||||
setenv(nam,val, n)
|
||||
char *nam, *val;
|
||||
int n;
|
||||
{
|
||||
#ifdef USE_WIN32_RTL_ENV
|
||||
|
||||
register char *envstr;
|
||||
STRLEN namlen = strlen(nam);
|
||||
STRLEN vallen;
|
||||
char *oldstr = environ[envix(nam)];
|
||||
|
||||
/* putenv() has totally broken semantics in both the Borland
|
||||
* and Microsoft CRTLs. They either store the passed pointer in
|
||||
* the environment without making a copy, or make a copy and don't
|
||||
* free it. And on top of that, they dont free() old entries that
|
||||
* are being replaced/deleted. This means the caller must
|
||||
* free any old entries somehow, or we end up with a memory
|
||||
* leak every time setenv() is called. One might think
|
||||
* one could directly manipulate environ[], like the UNIX code
|
||||
* above, but direct changes to environ are not allowed when
|
||||
* calling putenv(), since the RTLs maintain an internal
|
||||
* *copy* of environ[]. Bad, bad, *bad* stink.
|
||||
* GSAR 97-06-07
|
||||
*/
|
||||
|
||||
if (!val) {
|
||||
if (!oldstr)
|
||||
return;
|
||||
val = "";
|
||||
vallen = 0;
|
||||
}
|
||||
else
|
||||
vallen = strlen(val);
|
||||
envstr = ALLOC_N(char, namelen + vallen + 3);
|
||||
(void)sprintf(envstr,"%s=%s",nam,val);
|
||||
(void)putenv(envstr);
|
||||
if (oldstr)
|
||||
free(oldstr);
|
||||
#ifdef _MSC_VER
|
||||
free(envstr); /* MSVCRT leaks without this */
|
||||
#endif
|
||||
|
||||
#else /* !USE_WIN32_RTL_ENV */
|
||||
|
||||
/* The sane way to deal with the environment.
|
||||
* Has these advantages over putenv() & co.:
|
||||
* * enables us to store a truly empty value in the
|
||||
* environment (like in UNIX).
|
||||
* * we don't have to deal with RTL globals, bugs and leaks.
|
||||
* * Much faster.
|
||||
* Why you may want to enable USE_WIN32_RTL_ENV:
|
||||
* * environ[] and RTL functions will not reflect changes,
|
||||
* which might be an issue if extensions want to access
|
||||
* the env. via RTL. This cuts both ways, since RTL will
|
||||
* not see changes made by extensions that call the Win32
|
||||
* functions directly, either.
|
||||
* GSAR 97-06-07
|
||||
*/
|
||||
SetEnvironmentVariable(nam,val);
|
||||
|
||||
#endif
|
||||
}
|
||||
|
||||
#endif /* WIN32 */
|
||||
Loading…
Add table
Add a link
Reference in a new issue