summaryrefslogtreecommitdiff
path: root/trunk/win32
diff options
context:
space:
mode:
Diffstat (limited to 'trunk/win32')
-rw-r--r--trunk/win32/Makefile.sub780
-rw-r--r--trunk/win32/README.win32143
-rwxr-xr-xtrunk/win32/configure.bat143
-rw-r--r--trunk/win32/dir.h44
-rw-r--r--trunk/win32/enc-setup.mak10
-rwxr-xr-xtrunk/win32/ifchange.bat59
-rwxr-xr-xtrunk/win32/mkexports.rb153
-rwxr-xr-xtrunk/win32/resource.rb96
-rwxr-xr-xtrunk/win32/rm.bat8
-rw-r--r--trunk/win32/setup.mak231
-rw-r--r--trunk/win32/win32.c4279
-rw-r--r--trunk/win32/winmain.c10
12 files changed, 0 insertions, 5956 deletions
diff --git a/trunk/win32/Makefile.sub b/trunk/win32/Makefile.sub
deleted file mode 100644
index 53bcc6e32b..0000000000
--- a/trunk/win32/Makefile.sub
+++ /dev/null
@@ -1,780 +0,0 @@
-# -*- makefile -*-
-
-SHELL = $(COMSPEC)
-MKFILES = Makefile
-NULL = nul
-
-!ifndef MFLAGS
-MFLAGS=-l
-!endif
-
-!ifndef CROSS_COMPILING
-CROSS_COMPILING = 0
-!endif
-!ifndef LARGEFILE_SUPPORT
-LARGEFILE_SUPPORT = 1
-!endif
-!ifndef win_srcdir
-win_srcdir = $(srcdir)/win32
-!endif
-
-#### Start of system configuration section. ####
-
-!if defined(pathlist)
-PATH = $(pathlist:;=/bin;)$(PATH)
-INCLUDE = $(pathlist:;=/include;)
-LIB = $(pathlist:;=/lib;)
-!endif
-
-## variables may be overridden by $(compile_dir)/Makefile
-!ifndef srcdir
-srcdir = ..
-!endif
-!ifndef RUBY_INSTALL_NAME
-RUBY_INSTALL_NAME = ruby$(RUBY_SUFFIX)
-!endif
-!if !defined(RUBYW_INSTALL_NAME) || "$(RUBYW_INSTALL_NAME)" == "$(RUBY_INSTALL_NAME)"
-RUBYW_INSTALL_NAME = $(RUBY_INSTALL_NAME:ruby=rubyw)
-!endif
-!if "$(RUBYW_INSTALL_NAME)" == "$(RUBY_INSTALL_NAME)"
-RUBYW_INSTALL_NAME = $(RUBY_INSTALL_NAME)w
-!endif
-!if !defined(icondirs) && defined(ICONDIRS)
-icondirs=$(ICONDIRS)
-!endif
-!if defined(icondirs)
-icondirs=$(icondirs:\=/)
-iconinc=-I$(icondirs: = -I)
-!endif
-###############
-
-.SUFFIXES: .y .def .lib
-
-!if !defined(CC)
-CC = cl
-!endif
-!if !defined(CPP) || "$(CPP)" == "cl"
-CPP = $(CC) -E
-!endif
-!if !defined(YACC)
-YACC = bison
-!endif
-AR = lib -nologo
-PURIFY =
-AUTOCONF = autoconf
-IFCHANGE = $(COMSPEC) /C $(srcdir:/=\)\win32\ifchange.bat
-RM = $(COMSPEC) /C $(srcdir:/=\)\win32\rm.bat
-CP = copy > nul
-MV = move > nul
-!if !defined(BASERUBY)
-BASERUBY = ruby
-!endif
-
-!if !defined(PROCESSOR_ARCHITECTURE)
-PROCESSOR_ARCHITECTURE = x86
-!endif
-MACHINE = $(PROCESSOR_ARCHITECTURE)
-!if "$(PROCESSOR_ARCHITECTURE)" == "x86"
-!if !defined(PROCESSOR_LEVEL)
-PROCESSOR_LEVEL = 5
-!endif
-!if 6 < $(PROCESSOR_LEVEL)
-PROCESSOR_LEVEL = 6
-!endif
-!if $(MSC_VER) < 1400
-PROCESSOR_FLAG = -G$(PROCESSOR_LEVEL)
-!endif
-CPU = i$(PROCESSOR_LEVEL)86
-ARCH = i386
-!else
-CPU = $(PROCESSOR_ARCHITECTURE)
-ARCH = $(PROCESSOR_ARCHITECTURE)
-!endif
-!if !defined(DEBUGFLAGS)
-DEBUGFLAGS = -Zi
-!endif
-!if !defined(OPTFLAGS)
-!if $(MSC_VER) < 1400
-OPTFLAGS = -O2b2xg-
-!else
-OPTFLAGS = -O2b2xty-
-!endif
-!endif
-!if !defined(PLATFORM)
-PLATFORM = mswin32
-!endif
-!if !defined(RT)
-!error RT not defined. Retry from configure pass.
-!endif
-
-arch = $(ARCH)-$(PLATFORM)
-!if !defined(ruby_version)
-ruby_version = $(MAJOR).$(MINOR).$(TEENY)
-!endif
-
-!ifndef RUBY_SO_NAME
-RUBY_SO_NAME = $(RT)-$(RUBY_INSTALL_NAME)$(MAJOR)$(MINOR)$(TEENY)
-!endif
-!ifndef RUBY_PLATFORM
-RUBY_PLATFORM = $(arch)
-!endif
-
-!if !defined(prefix)
-prefix = /usr
-!endif
-!if !defined(exec_prefix)
-exec_prefix = $(prefix)
-!endif
-!if !defined(libdir)
-libdir = $(exec_prefix)/lib
-!endif
-!if !defined(datadir)
-datadir = $(prefix)/share
-!endif
-!ifndef EXTOUT
-EXTOUT = .ext
-!endif
-!ifndef RIDATADIR
-RIDATADIR = $(DESTDIR)$(datadir)/ri/$(MAJOR).$(MINOR)/system
-!endif
-!ifndef TESTUI
-TESTUI = console
-!endif
-!ifndef TESTS
-TESTS =
-!endif
-!ifndef RDOCTARGET
-RDOCTARGET = install-doc
-!endif
-
-OUTFLAG = -Fe
-COUTFLAG = -Fo
-!if !defined(RUNTIMEFLAG)
-RUNTIMEFLAG = -MD
-!endif
-!if !defined(CFLAGS)
-CFLAGS = $(RUNTIMEFLAG) $(DEBUGFLAGS) $(WARNFLAGS) $(OPTFLAGS) $(PROCESSOR_FLAG)
-!endif
-!if !defined(CXXFLAGS)
-CXXFLAGS = $(CFLAGS)
-!endif
-!if !defined(LDFLAGS)
-LDFLAGS = -link -incremental:no -debug -opt:ref -opt:icf
-!endif
-!if !defined(XLDFLAGS)
-XLDFLAGS = -stack:$(STACK)
-!endif
-!if !defined(RFLAGS)
-RFLAGS = -r
-!endif
-!if !defined(EXTLIBS)
-EXTLIBS =
-!endif
-!if !defined(LIBS)
-LIBS = oldnames.lib user32.lib advapi32.lib shell32.lib ws2_32.lib $(EXTLIBS)
-!endif
-!if !defined(MISSING)
-MISSING = acosh.obj cbrt.obj crypt.obj erf.obj lgamma_r.obj strlcat.obj strlcpy.obj tgamma.obj win32.obj
-!endif
-
-ARFLAGS = -machine:$(MACHINE) -out:
-CC = $(CC) -nologo
-LD = $(CC)
-LDSHARED = $(LD) -LD
-XCFLAGS = -DRUBY_EXPORT -I. -I$(arch_hdrdir) -I$(hdrdir) -I$(srcdir) -I$(srcdir)/missing $(XCFLAGS)
-!if $(MSC_VER) >= 1400
-# Prevents VC++ 2005 (cl ver 14) warnings
-DEFS = -D_CRT_SECURE_NO_DEPRECATE -D_CRT_NONSTDC_NO_DEPRECATE
-MANIFESTTOOL = mt -nologo
-LDSHARED_0 = @$(MINIRUBY) -run -e wait_writable -- -n 10 $@
-LDSHARED_1 = $(MANIFESTTOOL) -manifest $(@).manifest -outputresource:$(@);2
-LDSHARED_2 = @$(RM) $(@:/=\).manifest
-!endif
-CPPFLAGS = $(DEFS) $(ARCHDEFS) $(CPPFLAGS)
-
-DLDFLAGS = $(LDFLAGS) -dll
-SOLIBS =
-
-LIBRUBY_LDSHARED = $(LDSHARED)
-LIBRUBY_DLDFLAGS = $(EXTLDFLAGS) -implib:dummy.lib -def:$(RUBYDEF)
-
-EXEEXT = .exe
-!if !defined(PROGRAM)
-PROGRAM=$(RUBY_INSTALL_NAME)$(EXEEXT)
-!endif
-!if !defined(WPROGRAM) && defined(RUBYW_INSTALL_NAME)
-WPROGRAM=$(RUBYW_INSTALL_NAME)$(EXEEXT)
-!endif
-RUBYDEF = $(RUBY_SO_NAME).def
-!if $(CROSS_COMPILING)
-MINIRUBY = $(RUBY) -I$(MAKEDIR) -rfake
-RUNRUBY = $(MINIRUBY)
-!else
-MINIRUBY = .\miniruby$(EXEEXT) -I$(srcdir)/lib
-RUNRUBY = .\$(PROGRAM) -I"$(EXTOUT)/$(arch)"
-!endif
-MINIRUBY = $(MINIRUBY) $(MINIRUBYOPT)
-RUNRUBY = $(RUNRUBY) "$(srcdir)/runruby.rb" --extout="$(EXTOUT)" --
-!ifndef RUBY
-RUBY = ruby
-!endif
-
-!if !defined(STACK)
-STACK = 0x200000
-!if defined(STACK_COMMIT)
-STACK = $(STACK),$(STACK_COMMIT)
-!endif
-!endif
-ORGLIBPATH = $(LIB)
-
-#### End of system configuration section. ####
-
-LIBRUBY_A = $(RUBY_SO_NAME)-static.lib
-LIBRUBY_SO = $(RUBY_SO_NAME).dll
-LIBRUBY = $(RUBY_SO_NAME).lib
-LIBRUBYARG = $(LIBRUBY)
-THREAD_MODEL = win32
-
-!if $(CROSS_COMPILING)
-PREP = fake.rb
-!else
-PREP = miniruby$(EXEEXT)
-!endif
-
-!if !defined(EXTSTATIC)
-EXTSTATIC =
-!endif
-
-OBJEXT = obj
-ASMEXT = asm
-
-INSTALLED_LIST= .installed.list
-
-!if !defined(WINMAINOBJ)
-WINMAINOBJ = winmain.$(OBJEXT)
-!endif
-ARCHMINIOBJS = dmydln.$(OBJEXT)
-LIBOBJS = $(MISSING) $(LIBOBJS)
-
-!ifndef COMMON_LIBS
-COMMON_LIBS = m
-!endif
-!ifndef COMMON_MACROS
-COMMON_MACROS = WIN32_LEAN_AND_MEAN WIN32
-!endif
-!ifndef COMMON_HEADERS
-COMMON_HEADERS = winsock2.h ws2tcpip.h windows.h
-!endif
-
-arch_hdrdir = $(EXTOUT)/include/$(arch)
-hdrdir = $(srcdir)/include
-VPATH = $(arch_hdrdir)/ruby;$(hdrdir)/ruby;$(srcdir);$(srcdir)/enc;$(srcdir)/missing;$(win_srcdir)
-
-all: $(srcdir)/win32/Makefile.sub $(win_srcdir)/Makefile.sub $(srcdir)/common.mk
-
-ruby: $(PROGRAM)
-rubyw: $(WPROGRAM)
-
-!include $(srcdir)/common.mk
-
-$(MKFILES): $(srcdir)/win32/Makefile.sub $(win_srcdir)/Makefile.sub $(win_srcdir)/configure.bat $(win_srcdir)/setup.mak $(win_srcdir)/enc-setup.mak $(srcdir)/enc/Makefile.in
- $(COMSPEC) /C $(win_srcdir:/=\)\configure.bat $(configure_args)
- @echo $(MKFILES) should be updated, re-run $(MAKE).
- @exit 1
-
-RUBY_CONFIG_H = $(arch_hdrdir)/ruby/config.h
-CONFIG_H = ./.config.h.time
-
-config: config.status
-
-config.status: $(CONFIG_H)
-
-BANG = !
-
-!if exist(config.h)
-!include config.h
-!endif
-
-$(CONFIG_H): $(MKFILES) $(srcdir)/win32/Makefile.sub $(win_srcdir)/Makefile.sub
- @echo Creating config.h
-!if !exist("$(arch_hdrdir)")
- @md $(arch_hdrdir:/=\)
-!endif
-!if !exist("$(arch_hdrdir)/ruby")
- @md $(arch_hdrdir:/=\)\ruby
-!endif
- @$(IFCHANGE) $(RUBY_CONFIG_H:/=\) <<
-#if _MSC_VER != $(MSC_VER)
-#error MSC version unmatch: _MSC_VER: $(MSC_VER) is expected.
-#endif
-#define STDC_HEADERS 1
-#define HAVE_SYS_TYPES_H 1
-#define HAVE_SYS_STAT_H 1
-#define HAVE_STDLIB_H 1
-#define HAVE_STRING_H 1
-#define HAVE_MEMORY_H 1
-!if $(MSC_VER) >= 1400
-#define HAVE_LONG_LONG 1
-!endif
-#define HAVE_OFF_T 1
-#define SIZEOF_INT 4
-#define SIZEOF_SHORT 2
-#define SIZEOF_LONG 4
-!if $(MSC_VER) >= 1400
-#define SIZEOF_LONG_LONG 8
-!else
-#define SIZEOF_LONG_LONG 0
-!endif
-#define SIZEOF___INT64 8
-#define _INTEGRAL_MAX_BITS 64
-!if $(LARGEFILE_SUPPORT)
-#define SIZEOF_OFF_T 8
-!else
-#define SIZEOF_OFF_T 4
-!endif
-!if "$(ARCH)" == "x64" || "$(ARCH)" == "ia64"
-#define SIZEOF_VOIDP 8
-!else
-#define SIZEOF_VOIDP 4
-!endif
-#define SIZEOF_FLOAT 4
-#define SIZEOF_DOUBLE 8
-!if $(MSC_VER) >= 1400
-#define SIZEOF_TIME_T 8
-!else
-#define SIZEOF_TIME_T 4
-!endif
-#define SIZEOF_RLIM_T 0
-!if "$(ARCH)" == "x64" || "$(ARCH)" == "ia64"
-#define SIZEOF_SIZE_T 8
-#define SIZEOF_PTRDIFF_T 8
-!else
-#define SIZEOF_SIZE_T 4
-#define SIZEOF_PTRDIFF_T 4
-!endif
-#define HAVE_PROTOTYPES 1
-#define TOKEN_PASTE(x,y) x##y
-#define HAVE_STDARG_PROTOTYPES 1
-!if $(MSC_VER) > 1100
-#define NORETURN(x) __declspec(noreturn) x
-!endif
-!if $(MSC_VER) >= 1300
-#define DEPRECATED(x) __declspec(deprecated) x
-#define NOINLINE(x) __declspec(noinline) x
-!endif
-#define FUNC_STDCALL(x) __stdcall x
-#define FUNC_CDECL(x) __cdecl x
-#define FUNC_FASTCALL(x) __fastcall x
-#define RUBY_EXTERN extern __declspec(dllimport)
-#define HAVE_DECL_SYS_NERR 1
-!if !defined(WIN32_WCE)
-#define HAVE_LIMITS_H 1
-!endif
-#define HAVE_FCNTL_H 1
-#define HAVE_SYS_UTIME_H 1
-#define HAVE_FLOAT_H 1
-#define rb_pid_t int
-#define rb_gid_t int
-#define rb_uid_t int
-#define HAVE_STRUCT_STAT_ST_RDEV 1
-#define HAVE_ST_RDEV 1
-#define int8_t signed char
-#define HAVE_UINT8_T 1
-#define uint8_t unsigned char
-#define HAVE_INT16_T 1
-#define int16_t short
-#define HAVE_UINT16_T 1
-#define uint16_t unsigned short
-#define HAVE_INT32_T 1
-#define int32_t int
-#define HAVE_UINT32_T 1
-#define uint32_t unsigned int
-#define HAVE_INT64_T HAVE_LONG_LONG
-#define int64_t __int64
-#define HAVE_UINT64_T HAVE_LONG_LONG
-#define uint64_t unsigned __int64
-#define HAVE_INTPTR_T 1
-#define HAVE_UINTPTR_T 1
-#define HAVE_SSIZE_T 1
-!if "$(ARCH)" == "x64" || "$(ARCH)" == "ia64"
-#define ssize_t __int64
-!else
-#define ssize_t int
-!endif
-#define GETGROUPS_T int
-#define RETSIGTYPE void
-!if !defined(WIN32_WCE)
-#define HAVE_ALLOCA 1
-!endif
-#define HAVE_DUP2 1
-#define HAVE_MEMCMP 1
-#define HAVE_MEMMOVE 1
-#define HAVE_MKDIR 1
-#define HAVE_STRCASECMP 1
-#define HAVE_STRNCASECMP 1
-#define HAVE_STRERROR 1
-#define HAVE_STRFTIME 1
-#define HAVE_STRCHR 1
-#define HAVE_STRSTR 1
-#define HAVE_STRTOD 1
-#define HAVE_STRTOL 1
-#define HAVE_STRTOUL 1
-#define HAVE_FLOCK 1
-#define HAVE_SNPRINTF 1
-#define HAVE_VSNPRINTF 1
-#define HAVE_ISNAN 1
-#define HAVE_FINITE 1
-#define HAVE_HYPOT 1
-#define HAVE_FMOD 1
-#define HAVE_FREXP 1
-#define HAVE_MODF 1
-#define HAVE_WAITPID 1
-#define HAVE_FSYNC 1
-#define HAVE_GETCWD 1
-#define HAVE_TRUNCATE 1
-#define HAVE_FTRUNCATE 1
-#define HAVE_FSEEKO 1
-#define HAVE_FTELLO 1
-#define HAVE_TIMES 1
-#define HAVE_FCNTL 1
-#define HAVE_LINK 1
-!if !defined(WIN32_WCE)
-#define HAVE__SETJMP 1
-!endif
-#define HAVE_TELLDIR 1
-#define HAVE_SEEKDIR 1
-#define HAVE_MKTIME 1
-#define HAVE_COSH 1
-#define HAVE_SINH 1
-#define HAVE_TANH 1
-#define HAVE_TZNAME 1
-#define HAVE_DAYLIGHT 1
-#define SETPGRP_VOID 1
-#define RSHIFT(x,y) ((x)>>(int)y)
-#define FILE_COUNT _cnt
-#define FILE_READPTR _ptr
-#define RUBY_SETJMP(env) _setjmp(env)
-#define RUBY_LONGJMP(env,val) longjmp(env,val)
-#define RUBY_JMP_BUF jmp_buf
-#define inline __inline
-#define NEED_IO_SEEK_BETWEEN_RW 1
-!if "$(PROCESSOR_ARCHITECTURE)" == "x86" || "$(ARCH)" == "x64" || "$(ARCH)" == "ia64"
-#define STACK_GROW_DIRECTION -1
-!endif
-#define DEFAULT_KCODE KCODE_NONE
-#define DLEXT ".so"
-#define RUBY_LIB "/lib/ruby/$(ruby_version)"
-#define RUBY_SITE_LIB "/lib/ruby/site_ruby"
-#define RUBY_SITE_LIB2 "/lib/ruby/site_ruby/$(ruby_version)"
-#define RUBY_VENDOR_LIB "/lib/ruby/vendor_ruby"
-#define RUBY_VENDOR_LIB2 "/lib/ruby/vendor_ruby/$(ruby_version)"
-#define RUBY_PLATFORM "$(arch)"
-#define RUBY_ARCHLIB "/lib/ruby/$(ruby_version)/$(ARCH)-$(PLATFORM)"
-#define RUBY_SITE_ARCHLIB "/lib/ruby/site_ruby/$(ruby_version)/$(ARCH)-$(RT)"
-#define RUBY_VENDOR_ARCHLIB "/lib/ruby/vendor_ruby/$(ruby_version)/$(ARCH)-$(RT)"
-#define LIBRUBY_SO "$(LIBRUBY_SO)"
-#if 0
-$(BANG)if "$(RUBY_SO_NAME)"!="$$(RUBY_SO_NAME)" || "$(ARCH)-$(PLATFORM)"!="$$(ARCH)-$$(PLATFORM)"
-config.h: nul
-$(BANG)endif
-#endif
-!if defined(WIN32_WCE)
-#define GC_MALLOC_LIMIT 4000000
-#define stricmp _stricmp
-#define fopen wce_fopen
-#define open _open
-#define read _read
-#define write _write
-#define lseek _lseek
-
-#if _WIN32_WCE < 300
- #define isascii(c) ( (c>=0x00&&c<=0x7f)?1:0 )
- #define isspace(c) ( ((c>=0x09&&c<=0x0d)||c==0x20)?1:0 )
- #define isdigit(c) ( (c>=0x30&&c<=0x39)?1:0 )
- #define isupper(c) ( (c>='A'&&c<='Z')?1:0 )
- #define isalpha(c) ( ((c>='A'&&c<='Z')||(c>='a'&&c<='z'))?1:0 )
- #define isprint(c) ( (c>=0x20&&c<=0x7e)?1:0 )
- #define isalnum(c) ( (isalpha(c)||isdigit(c))?1:0 )
- #define iscntrl(c) ( ((c>=0x00&&c<=0x1f)||c==0x7f)?1:0 )
- #define islower(c) ( (c>='a'&&c<='z')?1:0 )
- #define ispunct(c) ( !(isalnum(c)||isspace(c))?1:0 )
- #define isxdigit(c) ( ((c>=0&&c<=9)||(c>='A'&&c<='F')||(c>='a'&&c<='f'))?1:0 )
-#endif
-!endif
-<<
- @exit > $(@:/=\)
-
-#!if exist($(RUBY_CONFIG_H))
-#! if exist(config_h.bak)
-# @del $(RUBY_CONFIG_H:.h=_h).bak
-#! endif
-# @copy $(RUBY_CONFIG_H) $(RUBY_CONFIG_H:.h=_h).bak
-#!endif
-#!if exist($(RUBY_CONFIG_H))
-# @echo NMAKE will abort if config.h is changed, then restart NMAKE.
-# @fc.exe $(RUBY_CONFIG_H) $(RUBY_CONFIG_H:.h=_h).bak > nul
-# @echo $(RUBY_CONFIG_H) unchanged.
-# @del $(RUBY_CONFIG_H)
-# @ren $(RUBY_CONFIG_H:.h=_h).bak $(RUBY_CONFIG_H)
-#!endif
-
-config.status: $(MKFILES) $(srcdir)/win32/Makefile.sub $(win_srcdir)/Makefile.sub $(srcdir)/common.mk
- @echo Creating $@
- @exit <<$@
-# Generated automatically by Makefile.sub.
-s,@SHELL@,$$(COMSPEC),;t t
-s,@BUILD_FILE_SEPARATOR@,\,;t t
-s,@PATH_SEPARATOR@,;,;t t
-s,@CFLAGS@,$(CFLAGS),;t t
-s,@DEFS@,$(DEFS),;t t
-s,@CPPFLAGS@,$(CPPFLAGS),;t t
-s,@CXXFLAGS@,$(CXXFLAGS),;t t
-s,@FFLAGS@,$(FFLAGS),;t t
-s,@LDFLAGS@,,;t t
-s,@LIBS@,$(LIBS),;t t
-s,@exec_prefix@,$${prefix},;t t
-s,@prefix@,$(prefix),;t t
-s,@program_transform_name@,s,$$,$(RUBY_SUFFIX),,;t t
-s,@bindir@,$${exec_prefix}/bin,;t t
-s,@sbindir@,$${exec_prefix}/sbin,;t t
-s,@libexecdir@,$${exec_prefix}/libexec,;t t
-s,@datadir@,$${prefix}/share,;t t
-s,@sysconfdir@,$${prefix}/etc,;t t
-s,@sharedstatedir@,/etc,;t t
-s,@localstatedir@,/var,;t t
-s,@libdir@,$${exec_prefix}/lib,;t t
-s,@includedir@,$${prefix}/include,;t t
-s,@oldincludedir@,/usr/include,;t t
-s,@infodir@,$${prefix}/info,;t t
-s,@mandir@,$${prefix}/man,;t t
-s,@build@,$(CPU)-pc-$(PLATFORM),;t t
-s,@build_alias@,$(CPU)-$(PLATFORM),;t t
-s,@build_cpu@,$(CPU),;t t
-s,@build_vendor@,pc,;t t
-s,@build_os@,$(PLATFORM),;t t
-s,@host@,$(CPU)-pc-$(PLATFORM),;t t
-s,@host_alias@,$(CPU)-$(PLATFORM),;t t
-s,@host_cpu@,$(CPU),;t t
-s,@host_vendor@,pc,;t t
-s,@host_os@,$(PLATFORM),;t t
-s,@target@,$(ARCH)-pc-$(PLATFORM),;t t
-s,@target_alias@,$(ARCH)-$(PLATFORM),;t t
-s,@target_cpu@,$(ARCH),;t t
-s,@target_vendor@,pc,;t t
-s,@target_os@,$(PLATFORM),;t t
-s,@CC@,$(CC),;t t
-s,@CPP@,$(CPP),;t t
-s,@CXX@,$$(CC),;t t
-s,@LD@,$$(CC),;t t
-s,@YACC@,$(YACC),;t t
-s,@RANLIB@,,;t t
-s,@AR@,$(AR),;t t
-s,@ARFLAGS@,$(ARFLAGS),;t t
-s,@LN_S@,$(LN_S),;t t
-s,@SET_MAKE@,MFLAGS = -$$(MAKEFLAGS),;t t
-s,@RM@,$$(COMSPEC) /C $$(top_srcdir:/=\)\win32\rm.bat,;t t
-s,@CP@,copy > nul,;t t
-s,@LIBOBJS@,$(LIBOBJS),;t t
-s,@ALLOCA@,$(ALLOCA),;t t
-s,@DEFAULT_KCODE@,$(DEFAULT_KCODE),;t t
-s,@EXEEXT@,.exe,;t t
-s,@OBJEXT@,$(OBJEXT),;t t
-s,@XCFLAGS@,$(XCFLAGS),;t t
-s,@XLDFLAGS@,$(XLDFLAGS),;t t
-s,@DLDFLAGS@,$(DLDFLAGS) $$(LIBPATH),;t t
-s,@ARCH_FLAG@,$(ARCH_FLAG),;t t
-s,@STATIC@,$(STATIC),;t t
-s,@CCDLFLAGS@,,;t t
-s,@LDSHARED@,$(LDSHARED),;t t
-s,@DLEXT@,so,;t t
-s,@LIBEXT@,lib,;t t
-s,@STRIP@,$(STRIP),;t t
-s,@EXTSTATIC@,$(EXTSTATIC),;t t
-s,@setup@,Setup,;t t
-s,@MINIRUBY@,$(MINIRUBY),;t t
-s,@PREP@,miniruby$(EXEEXT),;t t
-s,@RUNRUBY@,$(RUNRUBY),;t t
-s,@EXTOUT@,$(EXTOUT),;t t
-s,@ARCHFILE@,,;t t
-s,@RDOCTARGET@,,;t t
-s,@LIBRUBY_LDSHARED@,$(LIBRUBY_LDSHARED),;t t
-s,@LIBRUBY_DLDFLAGS@,$(LIBRUBY_DLDFLAGS),;t t
-s,@RUBY_INSTALL_NAME@,$(RUBY_INSTALL_NAME),;t t
-s,@rubyw_install_name@,$(RUBYW_INSTALL_NAME),;t t
-s,@RUBYW_INSTALL_NAME@,$(RUBYW_INSTALL_NAME),;t t
-s,@RUBY_SO_NAME@,$(RUBY_SO_NAME),;t t
-s,@LIBRUBY_A@,$$(RUBY_SO_NAME)-static.lib,;t t
-s,@LIBRUBY_SO@,$$(RUBY_SO_NAME).dll,;t t
-s,@LIBRUBY_ALIASES@,$(LIBRUBY_ALIASES),;t t
-s,@LIBRUBY@,$$(RUBY_SO_NAME).lib,;t t
-s,@LIBRUBYARG@,$$(LIBRUBYARG_SHARED),;t t
-s,@LIBRUBYARG_STATIC@,$$(LIBRUBY_A),;t t
-s,@LIBRUBYARG_SHARED@,$$(LIBRUBY),;t t
-s,@SOLIBS@,$(SOLIBS),;t t
-s,@DLDLIBS@,$(DLDLIBS),;t t
-s,@ENABLE_SHARED@,yes,;t t
-s,@BASERUBY@,$(BASERUBY),;t t
-s,@OUTFLAG@,$(OUTFLAG),;t t
-s,@COUTFLAG@,$(COUTFLAG),;t t
-s,@CPPOUTFILE@,-P,;t t
-s,@LIBPATHFLAG@, -libpath:"%s",;t t
-s,@RPATHFLAG@,,;t t
-s,@LIBARG@,%s.lib,;t t
-s,@LINK_SO@,$$(LDSHARED) -Fe$$(@) $$(OBJS) $$(LIBS) $$(LOCAL_LIBS) $$(DLDFLAGS) -implib:$$(*F:.so=)-$$(arch).lib -pdb:$$(*F:.so=)-$$(arch).pdb -def:$$(DEFFILE),;t t
-!if $(MSC_VER) >= 1400
-s,@LINK_SO@,@$$(RUBY) -run -e wait_writable -- -n 10 $$(@),;t t
-s,@LINK_SO@,$(MANIFESTTOOL) -manifest $$(@).manifest -outputresource:$$(@);2,;t t
-s,@LINK_SO@,@$$(RM) $$(@:/=\).manifest,;t t
-!endif
-s,@COMPILE_C@,$$(CC) $$(INCFLAGS) $$(CFLAGS) $$(CPPFLAGS) $$(COUTFLAG)$$(@) -c -Tc$$(<:\=/),;t t
-s,@COMPILE_CXX@,$$(CXX) $$(INCFLAGS) $$(CXXFLAGS) $$(CPPFLAGS) $$(COUTFLAG)$$(@) -c -Tp$$(<:\=/),;t t
-s,@COMPILE_RULES@,{$$(hdrdir)}.%s.%s: {$$(topdir)}.%s.%s: {$$(srcdir)}.%s.%s: .%s.%s:,;t t
-s,@RULE_SUBST@,{.;$$(VPATH)}%s,;t t
-s,@TRY_LINK@,$$(CC) -Feconftest $$(INCFLAGS) -I$$(hdrdir) $$(CPPFLAGS) $$(CFLAGS) $$(src) $$(LOCAL_LIBS) $$(LIBS) -link $$(LDFLAGS) $$(LIBPATH) $$(XLDFLAGS),;t t
-s,@COMMON_LIBS@,$(COMMON_LIBS),;t t
-s,@COMMON_MACROS@,$(COMMON_MACROS),;t t
-s,@COMMON_HEADERS@,$(COMMON_HEADERS),;t t
-s,@cleanobjs@,$$*.exp $$*.lib $$*.pdb,;t t
-s,@DISTCLEANFILES@,vc*.pdb,;t t
-s,@EXPORT_PREFIX@, ,;t t
-s,@arch@,$(ARCH)-$(PLATFORM),;t t
-s,@sitearch@,$(ARCH)-$(RT),;t t
-s,@ruby_version@,$(ruby_version),;t t
-s,@sitedir@,$${prefix}/lib/ruby/site_ruby,;t t
-s,@vendordir@,$${prefix}/lib/ruby/vendor_ruby,;t t
-s,@rubyhdrdir@,$$(includedir)/ruby-$$(ruby_version),;t t
-s,@sitehdrdir@,$$(rubyhdrdir)/site_ruby,;t t
-s,@vendorhdrdir@,$$(rubyhdrdir)/vendor_ruby,;t t
-s,@configure_args@,--with-make-prog=nmake --enable-shared $(configure_args),;t t
-s,@configure_input@,$$configure_input,;t t
-s,@srcdir@,$(srcdir),;t t
-s,@top_srcdir@,$(srcdir),;t t
-<<KEEP
-
-miniruby$(EXEEXT):
- @echo. $(LIBS)
- $(PURIFY) $(CC) $(MAINOBJ) $(MINIOBJS) $(COMMONOBJS) $(DMYEXT) $(LIBS) -Fe$@ $(LDFLAGS)
- miniruby.exe -v
- $(LDSHARED_1)
- $(LDSHARED_2)
-
-!if "$(PROGRAM)" != ""
-$(PROGRAM): $(MAINOBJ) $(LIBRUBY_SO) $(RUBY_INSTALL_NAME).res
- $(PURIFY) $(CC) $(MAINOBJ) $(RUBY_INSTALL_NAME).res \
- $(OUTFLAG)$@ $(LIBRUBYARG) $(LDFLAGS) $(XLDFLAGS)
- $(LDSHARED_0)
- $(LDSHARED_1)
- $(LDSHARED_2)
-!endif
-
-!if "$(WPROGRAM)" != ""
-$(WPROGRAM): $(MAINOBJ) $(WINMAINOBJ) $(LIBRUBY_SO) $(RUBYW_INSTALL_NAME).res
- $(PURIFY) $(CC) $(MAINOBJ) $(WINMAINOBJ) \
- $(RUBYW_INSTALL_NAME).res $(OUTFLAG)$@ $(LIBRUBYARG) \
- $(LDFLAGS) $(XLDFLAGS) -subsystem:Windows
- $(LDSHARED_0)
- $(LDSHARED_1)
- $(LDSHARED_2)
-!endif
-
-$(LIBRUBY_A): $(OBJS) $(DMYEXT)
- $(AR) $(ARFLAGS)$@ $(OBJS) $(DMYEXT)
-
-$(LIBRUBY): $(RUBYDEF)
- $(AR) $(ARFLAGS)$@ -def:$(RUBYDEF)
-
-$(LIBRUBY_SO): $(LIBRUBY_A) $(DLDOBJS) $(RUBYDEF) $(RUBY_SO_NAME).res
- @echo. $(DLDOBJS)
- @-$(PRE_LIBRUBY_UPDATE)
- $(LDSHARED) $(MAINOBJ) $(DLDOBJS) $(LIBRUBY_A) \
- $(RUBY_SO_NAME).res $(LIBS) -Fe$@ $(LDFLAGS) \
- $(LIBRUBY_DLDFLAGS)
- $(LDSHARED_0)
- $(LDSHARED_1)
- $(LDSHARED_2)
-
-$(RUBYDEF): $(LIBRUBY_A) $(PREP)
- $(MINIRUBY) $(srcdir)/win32/mkexports.rb \
- -output=$@ -arch=$(ARCH) $(LIBRUBY_A)
-
-{$(win_srcdir)}.def.lib:
- $(AR) $(ARFLAGS)$@ -def:$<
-
-clean-local::
- @$(RM) $(WINMAINOBJ) ext\extinit.c ext\extinit.$(OBJEXT) ext\vc*.pdb miniruby.lib
- @$(RM) $(RUBY_INSTALL_NAME).res $(RUBYW_INSTALL_NAME).res $(RUBY_SO_NAME).res
- @$(RM) *.map *.pdb *.ilk *.exp $(RUBYDEF) ext\ripper\y.output
-
-distclean-local::
- @$(RM) ext\config.cache $(RBCONFIG:/=\) $(CONFIG_H:/=\)
- @$(RM) $(RUBY_INSTALL_NAME).rc $(RUBYW_INSTALL_NAME).rc $(RUBY_SO_NAME).rc
-
-clean-ext distclean-ext realclean-ext::
- @for /R ext %I in (.) do @if exist %I\Makefile ( \
- echo $(@:-ext=)ing %~nI & \
- cd %I & \
- $(MAKE) $(MFLAGS) $(@:-ext=) & \
- cd %CD% \
- )
-
-$(RUBY_INSTALL_NAME).rc $(RUBYW_INSTALL_NAME).rc $(RUBY_SO_NAME).rc: $(RBCONFIG) $(srcdir)/revision.h $(srcdir)/win32/resource.rb
- @$(MINIRUBY) $(srcdir)/win32/resource.rb \
- -ruby_name=$(RUBY_INSTALL_NAME) \
- -rubyw_name=$(RUBYW_INSTALL_NAME) \
- -so_name=$(RUBY_SO_NAME) \
-!if defined(WIN32_WCE)
- -wce_ver=$(SUBSYSVERSION) \
-!endif
- . $(icondirs) $(win_srcdir)
-
-fake.rb: $(MKFILES)
- @echo Creating <<$@
-class Object
- CROSS_COMPILING = RUBY_PLATFORM
- remove_const :RUBY_PLATFORM
- remove_const :RUBY_VERSION
- RUBY_PLATFORM = "$(ARCH)"
- RUBY_VERSION = "$(MAJOR).$(MINOR).$(TEENY)"
-end
-class File
- remove_const :ALT_SEPARATOR
- ALT_SEPARATOR = "\\"
-end
-<<KEEP
-
-{$(srcdir)/enc}.c.obj:
- $(CC) $(CFLAGS) $(XCFLAGS) $(CPPFLAGS) $(COUTFLAG)$@ -c -Tc$(<:\=/)
-{$(srcdir)/missing}.c.obj:
- $(CC) $(CFLAGS) $(XCFLAGS) $(CPPFLAGS) $(COUTFLAG)$@ -c -Tc$(<:\=/)
-{$(srcdir)/win32}.c.obj:
- $(CC) $(CFLAGS) $(XCFLAGS) $(CPPFLAGS) $(COUTFLAG)$@ -c -Tc$(<:\=/)
-{$(win_srcdir)}.c.obj:
- $(CC) $(CFLAGS) $(XCFLAGS) $(CPPFLAGS) $(COUTFLAG)$@ -c -Tc$(<:\=/)
-{$(win_srcdir)/sys}.c.obj:
- $(CC) $(CFLAGS) $(XCFLAGS) $(CPPFLAGS) $(COUTFLAG)$@ -c -Tc$(<:\=/)
-{$(srcdir)}.c.obj:
- $(CC) $(CFLAGS) $(XCFLAGS) $(CPPFLAGS) $(COUTFLAG)$@ -c -Tc$(<:\=/)
-.c.obj:
- $(CC) $(CFLAGS) $(XCFLAGS) $(CPPFLAGS) $(COUTFLAG)$@ -c -Tc$(<:\=/)
-
-{$(srcdir)/missing}.c.asm:
- $(CC) $(CFLAGS) $(XCFLAGS) $(CPPFLAGS) -Fa $(COUTFLAG)$@ -c -Tc$(<:\=/)
-{$(srcdir)/win32}.c.asm:
- $(CC) $(CFLAGS) $(XCFLAGS) $(CPPFLAGS) -Fa $(COUTFLAG)$@ -c -Tc$(<:\=/)
-{$(srcdir)}.c.asm:
- $(CC) $(CFLAGS) $(XCFLAGS) $(CPPFLAGS) -Fa $(COUTFLAG)$@ -c -Tc$(<:\=/)
-.c.asm:
- $(CC) $(CFLAGS) $(XCFLAGS) $(CPPFLAGS) -Fa $(COUTFLAG)$@ -c -Tc$(<:\=/)
-
-.rc.res:
- $(RC) -I. -I$(<D) $(iconinc) -I$(srcdir)/win32 $(RFLAGS) -fo$@ $(<:\=/)
-
-lex.c: {$(srcdir)}lex.c.blt
- copy $(?:/=\) $@
-
-$(OBJS): {$(hdrdir)/ruby}win32.h
-
-dir.$(OBJEXT) win32.$(OBJEXT): {$(srcdir)}win32/dir.h
-
-ext/extinit.obj: ext/extinit.c $(SETUP)
- $(CC) $(CFLAGS) $(XCFLAGS) $(CPPFLAGS) $(COUTFLAG)$@ -c ext/extinit.c
diff --git a/trunk/win32/README.win32 b/trunk/win32/README.win32
deleted file mode 100644
index b1f016e830..0000000000
--- a/trunk/win32/README.win32
+++ /dev/null
@@ -1,143 +0,0 @@
-=begin
-
-= How to build ruby using Visual C++
-
-== Requirement
-
-(1) Visual C++ 5.0 or later.
-
- Note: if you want to build x64 or ia64 version, use native compiler for
- x64/ia64.
-
-(2) Please set environment variable (({INCLUDE})), (({LIB})), (({PATH}))
- to run required commands properly from the command line.
-
- Note: building ruby requires following commands.
- * nmake
- * cl
- * lib
- * dumpbin
-
-(3) If you want to build from SVN source, following commands are required.
- * bison
- * sed
- * ruby 1.8
-
-== How to compile and install
-
-(1) Execute win32\configure.bat on your build directory.
- You can specify the target platform as an argument.
- For example, run `((%configure --target=i686-mswin32%))'
- You can also specify the install directory.
- For example, run `((%configure --prefix=<install_directory>%))'
- Default of the install directory is /usr .
-
-(2) Change ((|RUBY_INSTALL_NAME|)) and ((|RUBY_SO_NAME|)) in (({Makefile}))
- if you want to change the name of the executable files.
- And add ((|RUBYW_INSTALL_NAME|)) to change the name of the
- executable without console window if also you want.
-
-(3) Run `((%nmake%))'
-
-(4) Run `((%nmake test%))'
-
-(5) Run `((%nmake install%))'
-
- This command will create following directories and install files onto them.
- * <install_directory>\bin
- * <install_directory>\lib
- * <install_directory>\lib\ruby
- * <install_directory>\lib\ruby\<MAJOR>.<MINOR>
- * <install_directory>\lib\ruby\<MAJOR>.<MINOR>\<PLATFORM>
- * <install_directory>\lib\ruby\site_ruby
- * <install_directory>\lib\ruby\site_ruby\<MAJOR>.<MINOR>
- * <install_directory>\lib\ruby\site_ruby\<MAJOR>.<MINOR>\<PLATFORM>
- * <install_directory>\man\man1
- If Ruby's version is `x.y.z', the ((|<MAJOR>|)) is `x' and the ((|<MINOR>|)) is `y'.
- The default ((|<PLATFORM>|)) is `(({i386-mswin32}))'.
-
-== Icons
-
-Any icon files(*.ico) in the build directory, directories specified with
-((|icondirs|)) make variable and (({win32})) directory under the ruby
-source directory will be included in DLL or executable files, according
-to their base names.
- $(RUBY_INSTALL_NAME).ico or ruby.ico --> $(RUBY_INSTALL_NAME).exe
- $(RUBYW_INSTALL_NAME).ico or rubyw.ico --> $(RUBYW_INSTALL_NAME).exe
- the others --> $(RUBY_SO_NAME).dll
-
-Although no icons are distributed with the ruby source or in the official
-site, you can use anything you like. For example, followings are written
-in Japanese, but you can download at least.
-
-* ((<URL:http://homepage1.nifty.com/a_nakata/ruby/>)) or
- ((<icon itself|URL:http://homepage1.nifty.com/a_nakata/ruby/RubyIcon.ico>))
-
-== Build examples
-
-* Build on the ruby source directory.
-
- ex.)
- ruby source directory: C:\ruby
- build directory: C:\ruby
- install directory: C:\usr\local
-
- C:
- cd \ruby
- win32\configure --prefix=/usr/local
- nmake
- nmake test
- nmake install
-
-* Build on the relative directory from the ruby source directory.
-
- ex.)
- ruby source directory: C:\ruby
- build directory: C:\ruby\mswin32
- install directory: C:\usr\local
-
- C:
- cd \ruby
- mkdir mswin32
- cd mswin32
- ..\win32\configure --prefix=/usr/local
- nmake
- nmake test
- nmake install
-
-* Build on the different drive.
-
- ex.)
- ruby source directory: C:\src\ruby
- build directory: D:\build\ruby
- install directory: C:\usr\local
-
- D:
- cd D:\build\ruby
- C:\src\ruby\win32\configure --prefix=C:/usr/local
- nmake
- nmake test
- nmake install
-
-* Build x64 version (requires native x64 VC++ compiler)
-
- ex.)
- ruby source directory: C:\ruby
- build directory: C:\ruby
- install directory: C:\usr\local
-
- C:
- cd \ruby
- win32\configure --prefix=/usr/local --target=x64-mswin64
- nmake
- nmake test
- nmake install
-
-== Bugs
-
-You can ((*NOT*)) use a path name contains any white space characters as
-the ruby source directory, this restriction comes from the behavior of
-(({!INCLUDE})) directives of (({NMAKE})).
-((- you may call it a bug. -))
-
-=end
diff --git a/trunk/win32/configure.bat b/trunk/win32/configure.bat
deleted file mode 100755
index 0ec9fde9a6..0000000000
--- a/trunk/win32/configure.bat
+++ /dev/null
@@ -1,143 +0,0 @@
-@echo off
-::: Don't set environment variable in batch file other than autoexec.bat
-::: to avoid "Out of environment space" problem on Windows 95/98.
-::: set TMPMAKE=~tmp~.mak
-
-echo> ~tmp~.mak ####
-echo>> ~tmp~.mak conf = %0
-echo>> ~tmp~.mak $(conf:\=/): nul
-echo>> ~tmp~.mak @del ~setup~.mak
-echo>> ~tmp~.mak @-$(MAKE) -l$(MAKEFLAGS) -f $(@D)/setup.mak \
-if exist pathlist.tmp del pathlist.tmp
-echo>confargs.tmp #define CONFIGURE_ARGS \
-:loop
-if "%1" == "" goto :end
-if "%1" == "--prefix" goto :prefix
-if "%1" == "--srcdir" goto :srcdir
-if "%1" == "srcdir" goto :srcdir
-if "%1" == "--target" goto :target
-if "%1" == "target" goto :target
-if "%1" == "--with-static-linked-ext" goto :extstatic
-if "%1" == "--program-suffix" goto :suffix
-if "%1" == "--program-name" goto :installname
-if "%1" == "--install-name" goto :installname
-if "%1" == "--so-name" goto :soname
-if "%1" == "--enable-install-doc" goto :enable-rdoc
-if "%1" == "--disable-install-doc" goto :disable-rdoc
-if "%1" == "--extout" goto :extout
-if "%1" == "--path" goto :path
-if "%1" == "--with-baseruby" goto :baseruby
-if "%1" == "-h" goto :help
-if "%1" == "--help" goto :help
- echo>>confargs.tmp %1 \
- shift
-goto :loop
-:srcdir
- echo>> ~tmp~.mak "srcdir=%2" \
- echo>>confargs.tmp --srcdir=%2 \
- shift
- shift
-goto :loop
-:prefix
- echo>> ~tmp~.mak "prefix=%2" \
- echo>>confargs.tmp %1=%2 \
- shift
- shift
-goto :loop
-:suffix
- echo>> ~tmp~.mak "RUBY_SUFFIX=%2" \
- echo>>confargs.tmp %1=%2 \
- shift
- shift
-goto :loop
-:installname
- echo>> ~tmp~.mak "RUBY_INSTALL_NAME=%2" \
- echo>>confargs.tmp %1=%2 \
- shift
- shift
-goto :loop
-:soname
- echo>> ~tmp~.mak "RUBY_SO_NAME=%2" \
- echo>>confargs.tmp %1=%2 \
- shift
- shift
-goto :loop
-:target
- echo>> ~tmp~.mak "%2" \
- echo>>confargs.tmp --target=%2 \
- if "%2" == "x64-mswin64" goto target2
- if NOT "%2" == "ia64-mswin64" goto target3
-:target2
- echo>> ~tmp~.mak "TARGET_OS=mswin64" \
-:target3
- shift
- shift
-goto :loop
-:extstatic
- echo>> ~tmp~.mak "EXTSTATIC=static" \
- echo>>confargs.tmp %1 \
- shift
-goto :loop
-:enable-rdoc
- echo>> ~tmp~.mak "RDOCTARGET=install-doc" \
- echo>>confargs.tmp %1 \
- shift
-goto :loop
-:disable-rdoc
- echo>> ~tmp~.mak "RDOCTARGET=install-nodoc" \
- echo>>confargs.tmp %1 \
- shift
-goto :loop
-:extout
- echo>> ~tmp~.mak "EXTOUT=%2" \
- echo>>confargs.tmp %1=%2 \
- shift
- shift
-goto :loop
-:path
- echo>>pathlist.tmp %2;\
- echo>>confargs.tmp %1=%2 \
- shift
- shift
-goto :loop
-:baseruby
- echo>> ~tmp~.mak "BASERUBY=%2" \
- echo>>confargs.tmp %1=%2 \
- shift
- shift
-goto :loop
-:help
- echo Configuration:
- echo --help display this help
- echo --srcdir=DIR find the sources in DIR [configure dir or `..']
- echo Installation directories:
- echo --prefix=PREFIX install files in PREFIX [/usr]
- echo System types:
- echo --target=TARGET configure for TARGET [i386-mswin32]
- echo Optional Package:
- echo --with-baseruby=RUBY use RUBY as baseruby [ruby]
- echo --with-static-linked-ext link external modules statically
- echo --disable-install-doc do not install rdoc indexes during install
- del *.tmp
- del ~tmp~.mak
-goto :exit
-:end
-echo>> ~tmp~.mak WIN32DIR=$(@D)
-echo.>>confargs.tmp
-echo>confargs.c #define $ $$
-type>>confargs.c confargs.tmp
-echo>>confargs.c configure_args = CONFIGURE_ARGS
-echo>>confargs.c #undef $
-if exist pathlist.tmp echo>>confargs.c #define PATH_LIST \
-if exist pathlist.tmp type>>confargs.c pathlist.tmp
-if exist pathlist.tmp echo.>>confargs.c
-if exist pathlist.tmp echo>>confargs.c pathlist = PATH_LIST
-cl -EP confargs.c > ~setup~.mak 2>nul
-if exist pathlist.tmp echo>>~setup~.mak PATH = $(pathlist:;=/bin;)$(PATH)
-if exist pathlist.tmp echo>>~setup~.mak INCLUDE = $(pathlist:;=/include;)
-if exist pathlist.tmp echo>>~setup~.mak LIB = $(pathlist:;=/lib;)
-type>>~setup~.mak ~tmp~.mak
-del *.tmp > nul
-del ~tmp~.mak > nul
-nmake -alf ~setup~.mak
-:exit
diff --git a/trunk/win32/dir.h b/trunk/win32/dir.h
deleted file mode 100644
index a0c7fa86c6..0000000000
--- a/trunk/win32/dir.h
+++ /dev/null
@@ -1,44 +0,0 @@
-#ifndef RUBY_WIN32_DIR_H
-#define RUBY_WIN32_DIR_H
-
-#ifdef __BORLANDC__
-# ifndef WIN32_DIR_H_
-# define WIN32_DIR_H_
-# include <sys/types.h>
-# endif
-#endif
-
-struct direct
-{
- long d_namlen;
- ino_t d_ino;
- char *d_name;
- char d_isdir; /* directory */
- char d_isrep; /* reparse point */
-};
-typedef struct {
- char *start;
- char *curr;
- long size;
- long nfiles;
- long loc; /* [0, nfiles) */
- struct direct dirstr;
- char *bits; /* used for d_isdir and d_isrep */
-} DIR;
-
-
-DIR* rb_w32_opendir(const char*);
-struct direct* rb_w32_readdir(DIR *);
-off_t rb_w32_telldir(DIR *);
-void rb_w32_seekdir(DIR *, off_t);
-void rb_w32_rewinddir(DIR *);
-void rb_w32_closedir(DIR *);
-
-#define opendir rb_w32_opendir
-#define readdir rb_w32_readdir
-#define telldir rb_w32_telldir
-#define seekdir rb_w32_seekdir
-#define rewinddir rb_w32_rewinddir
-#define closedir rb_w32_closedir
-
-#endif /* RUBY_WIN32_DIR_H */
diff --git a/trunk/win32/enc-setup.mak b/trunk/win32/enc-setup.mak
deleted file mode 100644
index 44345a2f45..0000000000
--- a/trunk/win32/enc-setup.mak
+++ /dev/null
@@ -1,10 +0,0 @@
-encs: BUILTIN_ENCOBJS BUILTIN_TRANSOBJS
-BUILTIN_ENCOBJS BUILTIN_TRANSOBJS: $(srcdir)/enc/Makefile.in
-
-!include $(srcdir)/enc/Makefile.in
-
-BUILTIN_ENCOBJS:
- @echo BUILTIN_ENCOBJS = $(BUILTIN_ENCS:.c=.obj) >> $(MAKEFILE)
-
-BUILTIN_TRANSOBJS:
- @echo BUILTIN_TRANSOBJS = $(BUILTIN_TRANSES:.trans=.obj) >> $(MAKEFILE)
diff --git a/trunk/win32/ifchange.bat b/trunk/win32/ifchange.bat
deleted file mode 100755
index 8411099020..0000000000
--- a/trunk/win32/ifchange.bat
+++ /dev/null
@@ -1,59 +0,0 @@
-@echo off
-:: usage: ifchange target temporary
-
-if "%1" == "" goto :end
-
-set dest=%1
-set src=%2
-set dest=%dest:/=\%
-set src=%src:/=\%
-if not "%dest%" == "" if not "%dest%" == "%%dest:/=\%%" goto :nt
-
-if not exist %2 goto :end
-
-:: check if fc.exe works.
-echo foo > conftst1.tmp
-echo bar > conftst2.tmp
-fc.exe conftst1.tmp conftst2.tmp > nul
-if not errorlevel 1 goto :brokenfc
-del conftst1.tmp > nul
-del conftst2.tmp > nul
-
-:: target does not exist or new file differs from it.
-if not exist %1 goto :update
-fc.exe %1 %2 > nul
-if errorlevel 1 goto :update
-
-:unchange
-echo %1 unchanged.
-del %2
-goto :end
-
-:brokenfc
-del conftest1.tmp > nul
-del conftest2.tmp > nul
-echo FC.EXE does not work properly.
-echo assuming %1 should be changed.
-
-:update
-echo %1 updated.
-:: if exist %1 del %1
-dir /b %2
-copy %2 %1
-del %2
-goto :end
-
-:nt
-if not exist %src% goto :end
-if exist %dest% (
- fc.exe %dest% %src% > nul && (
- echo %dest% unchanged.
- del %src%
- goto :end
- )
-)
-echo %dest% updated.
-copy %src% %dest% > nul
-del %src%
-
-:end
diff --git a/trunk/win32/mkexports.rb b/trunk/win32/mkexports.rb
deleted file mode 100755
index 2ed251ec1c..0000000000
--- a/trunk/win32/mkexports.rb
+++ /dev/null
@@ -1,153 +0,0 @@
-#!./miniruby -s
-
-$name = $library = $description = nil
-
-module RbConfig
- autoload :CONFIG, "rbconfig"
-end
-
-class Exports
- @subclass = []
- def self.inherited(klass)
- @subclass << [/#{klass.name.sub(/.*::/, '').downcase}/i, klass]
- end
-
- def self.create(*args, &block)
- platform = RUBY_PLATFORM
- pat, klass = @subclass.find {|p, k| p =~ platform}
- unless klass
- raise ArgumentError, "unsupported platform: #{platform}"
- end
- klass.new(*args, &block)
- end
-
- def self.extract(objs, *rest)
- create(objs).exports(*rest)
- end
-
- def self.output(output = $output, &block)
- if output
- open(output, 'wb', &block)
- else
- yield STDOUT
- end
- end
-
- def initialize(objs)
- syms = {}
- winapis = {}
- each_export(objs) do |internal, export|
- syms[internal] = export
- winapis[$1] = internal if /^_?(rb_w32_\w+)(?:@\d+)?$/ =~ internal
- end
- win32h = File.join(File.dirname(File.dirname(__FILE__)), "include/ruby/win32.h")
- IO.foreach(win32h) do |line|
- if /^#define (\w+)\((.*?)\)\s+(?:\(void\))?(rb_w32_\w+)\((.*?)\)\s*$/ =~ line and
- $2.delete(" ") == $4.delete(" ")
- export, internal = $1, $3
- if syms[internal] or internal = winapis[internal]
- syms[forwarding(internal, export)] = internal
- end
- end
- end
- syms["NtInitialize"] ||= "ruby_sysinit" if syms["ruby_sysinit"]
- @syms = syms
- end
-
- def exports(name = $name, library = $library, description = $description)
- exports = []
- if name
- exports << "Name " + name
- elsif library
- exports << "Library " + library
- end
- exports << "Description " + description.dump if description
- exports << "EXPORTS" << symbols()
- exports
- end
-
- private
- def forwarding(internal, export)
- internal.sub(/^[^@]+/, "\\1#{export}")
- end
-
- def each_export(objs)
- end
-
- def objdump(objs, &block)
- if objs.empty?
- $stdin.each_line(&block)
- else
- each_line(objs, &block)
- end
- end
-
- def symbols()
- @syms.sort.collect {|k, v| v ? v == true ? "#{k} DATA" : "#{k}=#{v}" : k}
- end
-end
-
-class Exports::Mswin < Exports
- def each_line(objs, &block)
- IO.popen(%w"dumpbin -symbols -exports" + objs) do |f|
- f.each(&block)
- end
- end
-
- def each_export(objs)
- noprefix = ($arch ||= nil and /^(sh|i\d86)/ !~ $arch)
- objs = objs.collect {|s| s.tr('/', '\\')}
- filetype = nil
- objdump(objs) do |l|
- if (filetype = l[/^File Type: (.+)/, 1])..(/^\f/ =~ l)
- case filetype
- when /OBJECT/, /LIBRARY/
- next if /^[[:xdigit:]]+ 0+ UNDEF / =~ l
- next unless /External/ =~ l
- next unless l.sub!(/.*?\s(\(\)\s+)?External\s+\|\s+/, '')
- is_data = !$1
- if noprefix or /^[@_]/ =~ l
- next if /(?!^)@.*@/ =~ l || /@[[:xdigit:]]{16}$/ =~ l
- l.sub!(/^[@_]/, '') if /@\d+$/ !~ l
- elsif !l.sub!(/^(\S+) \([^@?\`\']*\)$/, '\1')
- next
- end
- when /DLL/
- next unless l.sub!(/^\s*\d+\s+[[:xdigit:]]+\s+[[:xdigit:]]+\s+/, '')
- else
- next
- end
- yield l.strip, is_data
- end
- end
- yield "strcasecmp", "msvcrt.stricmp"
- yield "strncasecmp", "msvcrt.strnicmp"
- end
-end
-
-class Exports::Mingw < Exports
- def self.nm
- @@nm ||= RbConfig::CONFIG["NM"]
- end
-
- def each_line(objs, &block)
- IO.foreach("|#{self.class.nm} --extern --defined #{objs.join(' ')}", &block)
- end
-
- def each_export(objs)
- objdump(objs) do |l|
- yield $1 if / [[:upper:]] _(.*)$/ =~ l
- end
- yield "strcasecmp", "_stricmp"
- yield "strncasecmp", "_strnicmp"
- end
-
- def symbols()
- @syms.select {|k, v| v}.sort.collect {|k, v| "#{k}=#{v}"}
- end
-end
-
-END {
- exports = Exports.extract(ARGV)
- Exports.output {|f| f.puts(*exports)}
-}
diff --git a/trunk/win32/resource.rb b/trunk/win32/resource.rb
deleted file mode 100755
index 40886cb5e5..0000000000
--- a/trunk/win32/resource.rb
+++ /dev/null
@@ -1,96 +0,0 @@
-#!./miniruby -sI.
-
-require 'rbconfig'
-
-CONFIG = RbConfig::MAKEFILE_CONFIG
-
-version = %w'MAJOR MINOR TEENY PATCHLEVEL'.map{|v| CONFIG[v] || '0'}
-nversion = version.join(',')
-sversion = version.join('.')
-
-$ruby_name ||= CONFIG["RUBY_INSTALL_NAME"]
-$rubyw_name ||= CONFIG["RUBYW_INSTALL_NAME"] || $ruby_name.sub(/ruby/, '\&w')
-$so_name ||= CONFIG["RUBY_SO_NAME"]
-
-icons = {}
-def icons.find(path)
- if File.directory?(path)
- Dir.open(File.expand_path(path)) do |d|
- d.grep(/\.ico$/i) {|i| self[$`] = i}
- end
- else
- self[File.basename(path, '.ico')] = path
- end
- self
-end
-
-if ARGV.empty?
- icons.find('.')
-else
- ARGV.each {|i| icons.find(i)}
-end
-
-ruby_icon = rubyw_icon = nil
-[$ruby_name, 'ruby'].find do |i|
- if i = icons[i]
- ruby_icon = "1 ICON DISCARDABLE "+i.dump+"\n"
- end
-end
-[$rubyw_name, 'rubyw'].find do |i|
- if i = icons[i]
- rubyw_icon = "1 ICON DISCARDABLE "+i.dump+"\n"
- end
-end
-dll_icons = []
-icons.keys.sort.each do |i|
- dll_icons << "#{dll_icons.size + 1} ICON DISCARDABLE "+icons[i].dump+"\n"
-end
-
-[ # base name extension file type desc, icons
- [$ruby_name, CONFIG["EXEEXT"], 'VFT_APP', 'CUI', ruby_icon],
- [$rubyw_name, CONFIG["EXEEXT"], 'VFT_APP', 'GUI', rubyw_icon || ruby_icon],
- [$so_name, '.dll', 'VFT_DLL', 'DLL', dll_icons.join],
-].each do |base, ext, type, desc, icon|
- open(base + '.rc', "w") { |f|
- f.binmode if /mingw/ =~ RUBY_PLATFORM
-
- f.print <<EOF
-#ifndef __BORLANDC__
-#include <windows.h>
-#include <winver.h>
-#endif
-
-#{icon || ''}
-VS_VERSION_INFO VERSIONINFO
- FILEVERSION #{nversion}
- PRODUCTVERSION #{nversion}
- FILEFLAGSMASK 0x3fL
- FILEFLAGS 0x0L
- FILEOS VOS__WINDOWS32
- FILETYPE #{type}
- FILESUBTYPE VFT2_UNKNOWN
-BEGIN
- BLOCK "StringFileInfo"
- BEGIN
- BLOCK "000004b0"
- BEGIN
- VALUE "Comments", "#{RUBY_RELEASE_DATE}\\0"
- VALUE "CompanyName", "http://www.ruby-lang.org/\\0"
- VALUE "FileDescription", "Ruby interpreter (#{desc}) #{sversion} [#{RUBY_PLATFORM}]\\0"
- VALUE "FileVersion", "#{sversion}\\0"
- VALUE "InternalName", "#{base + ext}\\0"
- VALUE "LegalCopyright", "Copyright (C) 1993-#{RUBY_RELEASE_DATE[/\d+/]} Yukihiro Matsumoto\\0"
- VALUE "OriginalFilename", "#{base + ext}\\0"
- VALUE "ProductName", "Ruby interpreter #{sversion} [#{RUBY_PLATFORM}]\\0"
- VALUE "ProductVersion", "#{sversion}\\0"
- END
- END
- BLOCK "VarFileInfo"
- BEGIN
- VALUE "Translation", 0x0, 0x4b0
- END
-END
-EOF
- }
-end
-
diff --git a/trunk/win32/rm.bat b/trunk/win32/rm.bat
deleted file mode 100755
index eb415d67f9..0000000000
--- a/trunk/win32/rm.bat
+++ /dev/null
@@ -1,8 +0,0 @@
-@echo off
-if "%1" == "-f" shift
-:begin
-if "%1" == "" goto :end
-if exist "%1" del "%1"
-shift
-goto :begin
-:end
diff --git a/trunk/win32/setup.mak b/trunk/win32/setup.mak
deleted file mode 100644
index 9ca6daa5c6..0000000000
--- a/trunk/win32/setup.mak
+++ /dev/null
@@ -1,231 +0,0 @@
-# -*- makefile -*-
-
-!if "$(srcdir)" != ""
-WIN32DIR = $(srcdir)/win32
-!elseif "$(WIN32DIR)" == "win32"
-srcdir = .
-!elseif "$(WIN32DIR)" == "$(WIN32DIR:/win32=)/win32"
-srcdir = $(WIN32DIR:/win32=)
-!else
-srcdir = $(WIN32DIR)/..
-!endif
-!ifndef prefix
-prefix = /usr
-!endif
-BANG = !
-APPEND = echo.>>$(MAKEFILE)
-!ifdef MAKEFILE
-MAKE = $(MAKE) -f $(MAKEFILE)
-!else
-MAKEFILE = Makefile
-!endif
-ARCH = PROCESSOR_ARCHITECTURE
-CPU = PROCESSOR_LEVEL
-CC = cl -nologo
-CPP = $(CC) -EP
-
-all: -prologue- -generic- -epilogue-
-i386-mswin32: -prologue32- -i386- -epilogue-
-i486-mswin32: -prologue32- -i486- -epilogue-
-i586-mswin32: -prologue32- -i586- -epilogue-
-i686-mswin32: -prologue32- -i686- -epilogue-
-alpha-mswin32: -prologue32- -alpha- -epilogue-
-x64-mswin64: -prologue64- -x64- -epilogue-
-ia64-mswin64: -prologue64- -ia64- -epilogue-
-
--prologue-: -basic-vars- -system-vars- -version- -program-name-
-
--prologue32-: -basic-vars- -system-vars32- -version- -program-name-
-
--prologue64-: -basic-vars- -system-vars64- -version- -program-name-
-
--basic-vars-: nul
- @type << > $(MAKEFILE)
-### Makefile for ruby $(TARGET_OS) ###
-MAKE = nmake
-srcdir = $(srcdir:\=/)
-prefix = $(prefix:\=/)
-EXTSTATIC = $(EXTSTATIC)
-!if defined(RDOCTARGET)
-RDOCTARGET = $(RDOCTARGET)
-!endif
-!if defined(EXTOUT)
-EXTOUT = $(EXTOUT)
-!endif
-!if defined(BASERUBY)
-BASERUBY = $(BASERUBY)
-!endif
-<<
-!if !defined(BASERUBY)
- @for %I in (ruby.exe) do @echo BASERUBY = %~s$$PATH:I >> $(MAKEFILE)
-!endif
-
--system-vars-: -runtime-
-
--system-vars32-: -osname32- -runtime-
-
--system-vars64-: -osname64- -runtime-
-
--osname32-: nul
- @echo TARGET_OS = mswin32 >>$(MAKEFILE)
-
--osname64-: nul
- @echo TARGET_OS = mswin64 >>$(MAKEFILE)
-
--runtime-: nul
- @$(CC) -MD <<rtname.c user32.lib > nul
-#include <windows.h>
-#include <memory.h>
-#include <string.h>
-#include <stddef.h>
-#include <stdio.h>
-#ifndef MAXPATHLEN
-# define MAXPATHLEN 1024
-#endif
-
-int
-runtime_name()
-{
- char libpath[MAXPATHLEN+1];
- char *p, *base = NULL, *ver = NULL;
- HMODULE msvcrt = NULL;
- MEMORY_BASIC_INFORMATION m;
-
- memset(&m, 0, sizeof(m));
- if (VirtualQuery(stdin, &m, sizeof(m)) && m.State == MEM_COMMIT)
- msvcrt = (HMODULE)m.AllocationBase;
- GetModuleFileName(msvcrt, libpath, sizeof libpath);
-
- libpath[sizeof(libpath) - 1] = '\0';
- for (p = libpath; *p; p = CharNext(p)) {
- if (*p == '\\') {
- base = ++p;
- }
- }
- if (!base) return 0;
- if (p = strchr(base, '.')) *p = '\0';
- for (p = base; *p; p = CharNext(p)) {
- if (!isascii(*p)) continue;
- if (isupper(*p)) {
- *p = tolower(*p);
- }
- if (!isdigit(*p)) {
- ver = NULL;
- } else if (!ver) {
- ver = p;
- }
- }
- printf("!ifndef TARGET_OS\n");
-#ifdef _WIN64
- printf("TARGET_OS = mswin64\n");
-#else
- printf("TARGET_OS = mswin32\n");
-#endif
- printf("!endif\n");
- if (ver) {
- printf("PLATFORM = $$(TARGET_OS)_%s\n", ver);
- }
- else {
- printf("PLATFORM = $$(TARGET_OS)\n");
- }
- printf("RT = %s\n", base);
- return 1;
-}
-
-int main(int argc, char **argv)
-{
- if (!runtime_name()) return EXIT_FAILURE;
- return EXIT_SUCCESS;
-}
-<<
- @.\rtname >>$(MAKEFILE)
- @del rtname.*
-
--version-: nul
- @$(APPEND)
- @$(CPP) -I$(srcdir) <<"Creating $(MAKEFILE)" | find "=" >>$(MAKEFILE)
-#define RUBY_REVISION 0
-#include "version.h"
-MAJOR = RUBY_VERSION_MAJOR
-MINOR = RUBY_VERSION_MINOR
-TEENY = RUBY_VERSION_TEENY
-MSC_VER = _MSC_VER
-<<
-
--program-name-:
- @type << >>$(MAKEFILE)
-!ifdef RUBY_SUFFIX
-RUBY_SUFFIX = $(RUBY_SUFFIX)
-!endif
-!ifdef RUBY_INSTALL_NAME
-RUBY_INSTALL_NAME = $(RUBY_INSTALL_NAME)
-!endif
-!ifdef RUBY_SO_NAME
-RUBY_SO_NAME = $(RUBY_SO_NAME)
-!endif
-<<
-
--generic-: nul
-!if defined($(ARCH)) || defined($(CPU))
- @type << >>$(MAKEFILE)
-!if defined($(ARCH))
-!if "$(PROCESSOR_ARCHITECTURE)" == "AMD64"
-$(ARCH) = x64
-!elseif "$(PROCESSOR_ARCHITECTURE)" == "IA64"
-$(ARCH) = ia64
-!else
-$(ARCH) = $(PROCESSOR_ARCHITECTURE)
-!endif
-!endif
-!if defined($(CPU))
-$(CPU) = $(PROCESSOR_LEVEL)
-!endif
-
-<<
-!endif
-
--alpha-: nul
- @echo $(ARCH) = alpha>>$(MAKEFILE)
--x64-: nul
- @echo $(ARCH) = x64>>$(MAKEFILE)
--ia64-: nul
- @echo $(ARCH) = ia64>>$(MAKEFILE)
--ix86-: nul
- @echo $(ARCH) = x86>>$(MAKEFILE)
-
--i386-: -ix86-
- @echo $(CPU) = 3>>$(MAKEFILE)
--i486-: -ix86-
- @echo $(CPU) = 4>>$(MAKEFILE)
--i586-: -ix86-
- @echo $(CPU) = 5>>$(MAKEFILE)
--i686-: -ix86-
- @echo $(CPU) = 6>>$(MAKEFILE)
-
--epilogue-: -encs-
-
--encs-: nul
- @$(MAKE) -l -f $(srcdir)/win32/enc-setup.mak srcdir="$(srcdir)" MAKEFILE=$(MAKEFILE)
-
--epilogue-: nul
-!if exist(confargs.c)
- @$(APPEND)
- @$(CPP) confargs.c | find "=" >> $(MAKEFILE)
- @del confargs.c
-!endif
- @type << >>$(MAKEFILE)
-
-# RUBY_INSTALL_NAME = ruby
-# RUBY_SO_NAME = $$(RT)-$$(RUBY_INSTALL_NAME)$$(MAJOR)$$(MINOR)
-# CFLAGS = -nologo -MD $$(DEBUGFLAGS) $$(OPTFLAGS) $$(PROCESSOR_FLAG)
-# CPPFLAGS = -I. -I$$(srcdir) -I$$(srcdir)/missing -DLIBRUBY_SO=\"$$(LIBRUBY_SO)\"
-# STACK = 0x2000000
-# LDFLAGS = $$(CFLAGS) -Fm
-# XLDFLAGS =
-# RFLAGS = -r
-# EXTLIBS =
-
-$(BANG)include $$(srcdir)/win32/Makefile.sub
-<<
- @$(COMSPEC) /C $(srcdir:/=\)\win32\rm.bat config.h config.status
- @echo type `$(MAKE)' to make ruby.
diff --git a/trunk/win32/win32.c b/trunk/win32/win32.c
deleted file mode 100644
index 04a11f3fb8..0000000000
--- a/trunk/win32/win32.c
+++ /dev/null
@@ -1,4279 +0,0 @@
-/*
- * 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.
- *
- * Various Unix compatibility functions and NT specific functions.
- *
- * Some of this code was derived from the MSDOS port(s) and the OS/2 port.
- *
- */
-
-#include "ruby/ruby.h"
-#include "ruby/signal.h"
-#include "dln.h"
-#include <fcntl.h>
-#include <process.h>
-#include <sys/stat.h>
-/* #include <sys/wait.h> */
-#include <stdio.h>
-#include <stdlib.h>
-#include <errno.h>
-#include <assert.h>
-#include <ctype.h>
-
-#include <windows.h>
-#include <winbase.h>
-#include <wincon.h>
-#include <share.h>
-#include <shlobj.h>
-#include <mbstring.h>
-#ifdef __MINGW32__
-#include <mswsock.h>
-#endif
-#include "ruby/win32.h"
-#include "win32/dir.h"
-#ifdef _WIN32_WCE
-#include "wince.h"
-#endif
-#ifndef index
-#define index(x, y) strchr((x), (y))
-#endif
-#define isdirsep(x) ((x) == '/' || (x) == '\\')
-
-#undef stat
-#undef fclose
-#undef close
-#undef setsockopt
-
-#if defined __BORLANDC__ || defined _WIN32_WCE
-# define _filbuf _fgetc
-# define _flsbuf _fputc
-# define enough_to_get(n) (--(n) >= 0)
-# define enough_to_put(n) (++(n) < 0)
-#else
-# define enough_to_get(n) (--(n) >= 0)
-# define enough_to_put(n) (--(n) >= 0)
-#endif
-
-#ifdef WIN32_DEBUG
-#define Debug(something) something
-#else
-#define Debug(something) /* nothing */
-#endif
-
-#define TO_SOCKET(x) _get_osfhandle(x)
-
-static struct ChildRecord *CreateChild(const char *, const char *, SECURITY_ATTRIBUTES *, HANDLE, HANDLE, HANDLE);
-static int has_redirection(const char *);
-int rb_w32_wait_events(HANDLE *events, int num, DWORD timeout);
-#if !defined(_WIN32_WCE)
-static int rb_w32_open_osfhandle(intptr_t osfhandle, int flags);
-#else
-#define rb_w32_open_osfhandle(osfhandle, flags) _open_osfhandle(osfhandle, flags)
-#endif
-
-/* errno mapping */
-static struct {
- DWORD winerr;
- int err;
-} errmap[] = {
- { ERROR_INVALID_FUNCTION, EINVAL },
- { ERROR_FILE_NOT_FOUND, ENOENT },
- { ERROR_PATH_NOT_FOUND, ENOENT },
- { ERROR_TOO_MANY_OPEN_FILES, EMFILE },
- { ERROR_ACCESS_DENIED, EACCES },
- { ERROR_INVALID_HANDLE, EBADF },
- { ERROR_ARENA_TRASHED, ENOMEM },
- { ERROR_NOT_ENOUGH_MEMORY, ENOMEM },
- { ERROR_INVALID_BLOCK, ENOMEM },
- { ERROR_BAD_ENVIRONMENT, E2BIG },
- { ERROR_BAD_FORMAT, ENOEXEC },
- { ERROR_INVALID_ACCESS, EINVAL },
- { ERROR_INVALID_DATA, EINVAL },
- { ERROR_INVALID_DRIVE, ENOENT },
- { ERROR_CURRENT_DIRECTORY, EACCES },
- { ERROR_NOT_SAME_DEVICE, EXDEV },
- { ERROR_NO_MORE_FILES, ENOENT },
- { ERROR_WRITE_PROTECT, EROFS },
- { ERROR_BAD_UNIT, ENODEV },
- { ERROR_NOT_READY, ENXIO },
- { ERROR_BAD_COMMAND, EACCES },
- { ERROR_CRC, EACCES },
- { ERROR_BAD_LENGTH, EACCES },
- { ERROR_SEEK, EIO },
- { ERROR_NOT_DOS_DISK, EACCES },
- { ERROR_SECTOR_NOT_FOUND, EACCES },
- { ERROR_OUT_OF_PAPER, EACCES },
- { ERROR_WRITE_FAULT, EIO },
- { ERROR_READ_FAULT, EIO },
- { ERROR_GEN_FAILURE, EACCES },
- { ERROR_LOCK_VIOLATION, EACCES },
- { ERROR_SHARING_VIOLATION, EACCES },
- { ERROR_WRONG_DISK, EACCES },
- { ERROR_SHARING_BUFFER_EXCEEDED, EACCES },
- { ERROR_BAD_NETPATH, ENOENT },
- { ERROR_NETWORK_ACCESS_DENIED, EACCES },
- { ERROR_BAD_NET_NAME, ENOENT },
- { ERROR_FILE_EXISTS, EEXIST },
- { ERROR_CANNOT_MAKE, EACCES },
- { ERROR_FAIL_I24, EACCES },
- { ERROR_INVALID_PARAMETER, EINVAL },
- { ERROR_NO_PROC_SLOTS, EAGAIN },
- { ERROR_DRIVE_LOCKED, EACCES },
- { ERROR_BROKEN_PIPE, EPIPE },
- { ERROR_DISK_FULL, ENOSPC },
- { ERROR_INVALID_TARGET_HANDLE, EBADF },
- { ERROR_INVALID_HANDLE, EINVAL },
- { ERROR_WAIT_NO_CHILDREN, ECHILD },
- { ERROR_CHILD_NOT_COMPLETE, ECHILD },
- { ERROR_DIRECT_ACCESS_HANDLE, EBADF },
- { ERROR_NEGATIVE_SEEK, EINVAL },
- { ERROR_SEEK_ON_DEVICE, EACCES },
- { ERROR_DIR_NOT_EMPTY, ENOTEMPTY },
- { ERROR_DIRECTORY, ENOTDIR },
- { ERROR_NOT_LOCKED, EACCES },
- { ERROR_BAD_PATHNAME, ENOENT },
- { ERROR_MAX_THRDS_REACHED, EAGAIN },
- { ERROR_LOCK_FAILED, EACCES },
- { ERROR_ALREADY_EXISTS, EEXIST },
- { ERROR_INVALID_STARTING_CODESEG, ENOEXEC },
- { ERROR_INVALID_STACKSEG, ENOEXEC },
- { ERROR_INVALID_MODULETYPE, ENOEXEC },
- { ERROR_INVALID_EXE_SIGNATURE, ENOEXEC },
- { ERROR_EXE_MARKED_INVALID, ENOEXEC },
- { ERROR_BAD_EXE_FORMAT, ENOEXEC },
- { ERROR_ITERATED_DATA_EXCEEDS_64k,ENOEXEC },
- { ERROR_INVALID_MINALLOCSIZE, ENOEXEC },
- { ERROR_DYNLINK_FROM_INVALID_RING,ENOEXEC },
- { ERROR_IOPL_NOT_ENABLED, ENOEXEC },
- { ERROR_INVALID_SEGDPL, ENOEXEC },
- { ERROR_AUTODATASEG_EXCEEDS_64k, ENOEXEC },
- { ERROR_RING2SEG_MUST_BE_MOVABLE, ENOEXEC },
- { ERROR_RELOC_CHAIN_XEEDS_SEGLIM, ENOEXEC },
- { ERROR_INFLOOP_IN_RELOC_CHAIN, ENOEXEC },
- { ERROR_FILENAME_EXCED_RANGE, ENOENT },
- { ERROR_NESTING_NOT_ALLOWED, EAGAIN },
-#ifndef ERROR_PIPE_LOCAL
-#define ERROR_PIPE_LOCAL 229L
-#endif
- { ERROR_PIPE_LOCAL, EPIPE },
- { ERROR_BAD_PIPE, EPIPE },
- { ERROR_PIPE_BUSY, EAGAIN },
- { ERROR_NO_DATA, EPIPE },
- { ERROR_PIPE_NOT_CONNECTED, EPIPE },
- { ERROR_OPERATION_ABORTED, EINTR },
- { ERROR_NOT_ENOUGH_QUOTA, ENOMEM },
- { WSAENAMETOOLONG, ENAMETOOLONG },
- { WSAENOTEMPTY, ENOTEMPTY },
- { WSAEINTR, EINTR },
- { WSAEBADF, EBADF },
- { WSAEACCES, EACCES },
- { WSAEFAULT, EFAULT },
- { WSAEINVAL, EINVAL },
- { WSAEMFILE, EMFILE },
-};
-
-int
-rb_w32_map_errno(DWORD winerr)
-{
- int i;
-
- if (winerr == 0) {
- return 0;
- }
-
- for (i = 0; i < sizeof(errmap) / sizeof(*errmap); i++) {
- if (errmap[i].winerr == winerr) {
- return errmap[i].err;
- }
- }
-
- if (winerr >= WSABASEERR) {
- return winerr;
- }
- return EINVAL;
-}
-
-#define map_errno rb_w32_map_errno
-
-static const char *NTLoginName;
-
-static OSVERSIONINFO osver;
-#ifdef WIN95
-static DWORD Win32System = (DWORD)-1;
-
-DWORD
-rb_w32_osid(void)
-{
- if (osver.dwPlatformId != Win32System) {
- memset(&osver, 0, sizeof(OSVERSIONINFO));
- osver.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
- GetVersionEx(&osver);
- Win32System = osver.dwPlatformId;
- }
- return (Win32System);
-}
-#endif
-static DWORD Win32Version = (DWORD)-1;
-
-static DWORD
-rb_w32_osver(void)
-{
- if (osver.dwMajorVersion != Win32Version) {
- memset(&osver, 0, sizeof(OSVERSIONINFO));
- osver.dwOSVersionInfoSize = sizeof(OSVERSIONINFO);
- GetVersionEx(&osver);
- Win32Version = osver.dwMajorVersion;
- }
- return (Win32Version);
-}
-
-#define IsWinNT() rb_w32_iswinnt()
-#define IsWin95() rb_w32_iswin95()
-
-HANDLE
-GetCurrentThreadHandle(void)
-{
- static HANDLE current_process_handle = NULL;
- HANDLE h;
-
- if (!current_process_handle)
- current_process_handle = GetCurrentProcess();
- if (!DuplicateHandle(current_process_handle, GetCurrentThread(),
- current_process_handle, &h,
- 0, FALSE, DUPLICATE_SAME_ACCESS))
- return NULL;
- return h;
-}
-
-/* simulate flock by locking a range on the file */
-
-
-#define LK_ERR(f,i) \
- do { \
- if (f) \
- i = 0; \
- else { \
- DWORD err = GetLastError(); \
- if (err == ERROR_LOCK_VIOLATION) \
- errno = EWOULDBLOCK; \
- else if (err == ERROR_NOT_LOCKED) \
- i = 0; \
- else \
- errno = map_errno(err); \
- } \
- } while (0)
-#define LK_LEN ULONG_MAX
-
-static uintptr_t
-flock_winnt(uintptr_t self, int argc, uintptr_t* argv)
-{
- OVERLAPPED o;
- int i = -1;
- const HANDLE fh = (HANDLE)self;
- const int oper = argc;
-
- memset(&o, 0, sizeof(o));
-
- switch(oper) {
- case LOCK_SH: /* shared lock */
- LK_ERR(LockFileEx(fh, 0, 0, LK_LEN, LK_LEN, &o), i);
- break;
- case LOCK_EX: /* exclusive lock */
- LK_ERR(LockFileEx(fh, LOCKFILE_EXCLUSIVE_LOCK, 0, LK_LEN, LK_LEN, &o), i);
- break;
- case LOCK_SH|LOCK_NB: /* non-blocking shared lock */
- LK_ERR(LockFileEx(fh, LOCKFILE_FAIL_IMMEDIATELY, 0, LK_LEN, LK_LEN, &o), i);
- break;
- case LOCK_EX|LOCK_NB: /* non-blocking exclusive lock */
- LK_ERR(LockFileEx(fh,
- LOCKFILE_EXCLUSIVE_LOCK|LOCKFILE_FAIL_IMMEDIATELY,
- 0, LK_LEN, LK_LEN, &o), i);
- break;
- case LOCK_UN: /* unlock lock */
- case LOCK_UN|LOCK_NB: /* unlock is always non-blocking, I hope */
- LK_ERR(UnlockFileEx(fh, 0, LK_LEN, LK_LEN, &o), i);
- break;
- default: /* unknown */
- errno = EINVAL;
- break;
- }
- return i;
-}
-
-#ifdef WIN95
-static uintptr_t
-flock_win95(uintptr_t self, int argc, uintptr_t* argv)
-{
- int i = -1;
- const HANDLE fh = (HANDLE)self;
- const int oper = argc;
-
- switch(oper) {
- case LOCK_EX:
- do {
- LK_ERR(LockFile(fh, 0, 0, LK_LEN, LK_LEN), i);
- } while (i && errno == EWOULDBLOCK);
- break;
- case LOCK_EX|LOCK_NB:
- LK_ERR(LockFile(fh, 0, 0, LK_LEN, LK_LEN), i);
- break;
- case LOCK_UN:
- case LOCK_UN|LOCK_NB:
- LK_ERR(UnlockFile(fh, 0, 0, LK_LEN, LK_LEN), i);
- break;
- default:
- errno = EINVAL;
- break;
- }
- return i;
-}
-#endif
-
-#undef LK_ERR
-
-int
-flock(int fd, int oper)
-{
-#ifdef WIN95
- static asynchronous_func_t locker = NULL;
-
- if (!locker) {
- if (IsWinNT())
- locker = flock_winnt;
- else
- locker = flock_win95;
- }
-#else
- const asynchronous_func_t locker = flock_winnt;
-#endif
-
- return rb_w32_asynchronize(locker,
- (VALUE)_get_osfhandle(fd), oper, NULL,
- (DWORD)-1);
-}
-
-static void
-init_env(void)
-{
- char env[_MAX_PATH];
- DWORD len;
- BOOL f;
- LPITEMIDLIST pidl;
-
- if (!GetEnvironmentVariable("HOME", env, sizeof(env))) {
- f = FALSE;
- if (GetEnvironmentVariable("HOMEDRIVE", env, sizeof(env)))
- len = strlen(env);
- else
- len = 0;
- if (GetEnvironmentVariable("HOMEPATH", env + len, sizeof(env) - len) || len) {
- f = TRUE;
- }
- else if (GetEnvironmentVariable("USERPROFILE", env, sizeof(env))) {
- f = TRUE;
- }
- else if (SHGetSpecialFolderLocation(NULL, CSIDL_PERSONAL, &pidl) == 0) {
- LPMALLOC alloc;
- f = SHGetPathFromIDList(pidl, env);
- SHGetMalloc(&alloc);
- alloc->lpVtbl->Free(alloc, pidl);
- alloc->lpVtbl->Release(alloc);
- }
- if (f) {
- char *p = env;
- while (*p) {
- if (*p == '\\') *p = '/';
- p = CharNext(p);
- }
- if (p - env == 2 && env[1] == ':') {
- *p++ = '/';
- *p = 0;
- }
- SetEnvironmentVariable("HOME", env);
- }
- }
-
- if (!GetEnvironmentVariable("USER", env, sizeof env)) {
- if (GetEnvironmentVariable("USERNAME", env, sizeof env)) {
- SetEnvironmentVariable("USER", env);
- }
- else if (!GetUserName(env, (len = sizeof env, &len))) {
- NTLoginName = "<Unknown>";
- return;
- }
- }
- NTLoginName = strdup(env);
-}
-
-
-typedef BOOL (WINAPI *cancel_io_t)(HANDLE);
-static cancel_io_t cancel_io = NULL;
-
-static void
-init_func(void)
-{
- if (!cancel_io)
- cancel_io = (cancel_io_t)GetProcAddress(GetModuleHandle("kernel32"),
- "CancelIo");
-}
-
-static void init_stdhandle(void);
-
-#if _MSC_VER >= 1400
-static void invalid_parameter(const wchar_t *expr, const wchar_t *func, const wchar_t *file, unsigned int line, uintptr_t dummy)
-{
- // nothing to do
-}
-#endif
-
-static CRITICAL_SECTION select_mutex;
-static int NtSocketsInitialized = 0;
-static st_table *socklist = NULL;
-static char *envarea;
-
-static void
-exit_handler(void)
-{
- if (NtSocketsInitialized) {
- WSACleanup();
- st_free_table(socklist);
- socklist = NULL;
- NtSocketsInitialized = 0;
- }
- if (envarea) {
- FreeEnvironmentStrings(envarea);
- envarea = NULL;
- }
- DeleteCriticalSection(&select_mutex);
-}
-
-static void
-StartSockets(void)
-{
- WORD version;
- WSADATA retdata;
-
- //
- // initalize the winsock interface and insure that it's
- // cleaned up at exit.
- //
- version = MAKEWORD(2, 0);
- if (WSAStartup(version, &retdata))
- rb_fatal ("Unable to locate winsock library!\n");
- if (LOBYTE(retdata.wVersion) != 2)
- rb_fatal("could not find version 2 of winsock dll\n");
-
- socklist = st_init_numtable();
-
- NtSocketsInitialized = 1;
-}
-
-//
-// Initialization stuff
-//
-void
-rb_w32_sysinit(int *argc, char ***argv)
-{
-#if _MSC_VER >= 1400
- static void set_pioinfo_extra(void);
-
- _set_invalid_parameter_handler(invalid_parameter);
- set_pioinfo_extra();
-#endif
-
- //
- // subvert cmd.exe's feeble attempt at command line parsing
- //
- *argc = rb_w32_cmdvector(GetCommandLine(), argv);
-
- //
- // Now set up the correct time stuff
- //
-
- tzset();
-
- init_env();
-
- init_func();
-
- init_stdhandle();
-
- InitializeCriticalSection(&select_mutex);
-
- atexit(exit_handler);
-
- // Initialize Winsock
- StartSockets();
-
-#ifdef _WIN32_WCE
- // free commandline buffer
- wce_FreeCommandLine();
-#endif
-}
-
-char *
-getlogin(void)
-{
- return (char *)NTLoginName;
-}
-
-#define MAXCHILDNUM 256 /* max num of child processes */
-
-static struct ChildRecord {
- HANDLE hProcess; /* process handle */
- rb_pid_t pid; /* process id */
-} ChildRecord[MAXCHILDNUM];
-
-#define FOREACH_CHILD(v) do { \
- struct ChildRecord* v; \
- for (v = ChildRecord; v < ChildRecord + sizeof(ChildRecord) / sizeof(ChildRecord[0]); ++v)
-#define END_FOREACH_CHILD } while (0)
-
-static struct ChildRecord *
-FindChildSlot(rb_pid_t pid)
-{
-
- FOREACH_CHILD(child) {
- if (child->pid == pid) {
- return child;
- }
- } END_FOREACH_CHILD;
- return NULL;
-}
-
-static void
-CloseChildHandle(struct ChildRecord *child)
-{
- HANDLE h = child->hProcess;
- child->hProcess = NULL;
- child->pid = 0;
- CloseHandle(h);
-}
-
-static struct ChildRecord *
-FindFreeChildSlot(void)
-{
- FOREACH_CHILD(child) {
- if (!child->pid) {
- child->pid = -1; /* lock the slot */
- child->hProcess = NULL;
- return child;
- }
- } END_FOREACH_CHILD;
- return NULL;
-}
-
-
-/*
- ruby -lne 'BEGIN{$cmds = Hash.new(0); $mask = 1}'
- -e '$cmds[$_.downcase] |= $mask' -e '$mask <<= 1 if ARGF.eof'
- -e 'END{$cmds.sort.each{|n,f|puts " \"\\#{f.to_s(8)}\" #{n.dump} + 1,"}}'
- 98cmd ntcmd
- */
-static const char *const szInternalCmds[] = {
- "\2" "assoc" + 1,
- "\3" "break" + 1,
- "\3" "call" + 1,
- "\3" "cd" + 1,
- "\1" "chcp" + 1,
- "\3" "chdir" + 1,
- "\3" "cls" + 1,
- "\2" "color" + 1,
- "\3" "copy" + 1,
- "\1" "ctty" + 1,
- "\3" "date" + 1,
- "\3" "del" + 1,
- "\3" "dir" + 1,
- "\3" "echo" + 1,
- "\2" "endlocal" + 1,
- "\3" "erase" + 1,
- "\3" "exit" + 1,
- "\3" "for" + 1,
- "\2" "ftype" + 1,
- "\3" "goto" + 1,
- "\3" "if" + 1,
- "\1" "lfnfor" + 1,
- "\1" "lh" + 1,
- "\1" "lock" + 1,
- "\3" "md" + 1,
- "\3" "mkdir" + 1,
- "\2" "move" + 1,
- "\3" "path" + 1,
- "\3" "pause" + 1,
- "\2" "popd" + 1,
- "\3" "prompt" + 1,
- "\2" "pushd" + 1,
- "\3" "rd" + 1,
- "\3" "rem" + 1,
- "\3" "ren" + 1,
- "\3" "rename" + 1,
- "\3" "rmdir" + 1,
- "\3" "set" + 1,
- "\2" "setlocal" + 1,
- "\3" "shift" + 1,
- "\2" "start" + 1,
- "\3" "time" + 1,
- "\2" "title" + 1,
- "\1" "truename" + 1,
- "\3" "type" + 1,
- "\1" "unlock" + 1,
- "\3" "ver" + 1,
- "\3" "verify" + 1,
- "\3" "vol" + 1,
-};
-
-static int
-internal_match(const void *key, const void *elem)
-{
- return strcmp(key, *(const char *const *)elem);
-}
-
-static int
-is_command_com(const char *interp)
-{
- int i = strlen(interp) - 11;
-
- if ((i == 0 || i > 0 && isdirsep(interp[i-1])) &&
- strcasecmp(interp+i, "command.com") == 0) {
- return 1;
- }
- return 0;
-}
-
-static int
-is_internal_cmd(const char *cmd, int nt)
-{
- char cmdname[9], *b = cmdname, c, **nm;
-
- do {
- if (!(c = *cmd++)) return 0;
- } while (isspace(c));
- while (isalpha(c)) {
- *b++ = tolower(c);
- if (b == cmdname + sizeof(cmdname)) return 0;
- c = *cmd++;
- }
- if (c == '.') c = *cmd;
- switch (c) {
- case '<': case '>': case '|':
- return 1;
- case '\0': case ' ': case '\t': case '\n':
- break;
- default:
- return 0;
- }
- *b = 0;
- nm = bsearch(cmdname, szInternalCmds,
- sizeof(szInternalCmds) / sizeof(*szInternalCmds),
- sizeof(*szInternalCmds),
- internal_match);
- if (!nm || !(nm[0][-1] & (nt ? 2 : 1)))
- return 0;
- return 1;
-}
-
-SOCKET
-rb_w32_get_osfhandle(int fh)
-{
- return _get_osfhandle(fh);
-}
-
-int
-rb_w32_argv_size(char *const *argv)
-{
- const char *p;
- char *const *t;
- int len, n, bs, quote;
-
- for (t = argv, len = 0; *t; t++) {
- for (p = *t, n = quote = bs = 0; *p; ++p) {
- switch (*p) {
- case '\\':
- ++bs;
- break;
- case '"':
- n += bs + 1; bs = 0;
- quote = 1;
- break;
- case ' ': case '\t':
- quote = 1;
- default:
- bs = 0;
- p = CharNext(p) - 1;
- break;
- }
- }
- len += p - *t + n + 1;
- if (quote) len += 2;
- }
- return len;
-}
-
-char *
-rb_w32_join_argv(char *cmd, char *const *argv)
-{
- const char *p, *s;
- char *q, *const *t;
- int n, bs, quote;
-
- for (t = argv, q = cmd; p = *t; t++) {
- quote = 0;
- s = p;
- if (!*p || strpbrk(p, " \t\"")) {
- quote = 1;
- *q++ = '"';
- }
- for (bs = 0; *p; ++p) {
- switch (*p) {
- case '\\':
- ++bs;
- break;
- case '"':
- memcpy(q, s, n = p - s); q += n; s = p;
- memset(q, '\\', ++bs); q += bs; bs = 0;
- break;
- default:
- bs = 0;
- p = CharNext(p) - 1;
- break;
- }
- }
- memcpy(q, s, n = p - s);
- q += n;
- if (quote) *q++ = '"';
- *q++ = ' ';
- }
- if (q > cmd) --q;
- *q = '\0';
- return cmd;
-}
-
-rb_pid_t
-rb_w32_pipe_exec(const char *cmd, const char *prog, int mode, int *pipe,
- int *write_pipe)
-{
- struct ChildRecord* child;
- HANDLE hIn, hOut;
- HANDLE hDupIn, hDupOut;
- HANDLE hCurProc;
- SECURITY_ATTRIBUTES sa;
- BOOL reading, writing;
- int ret;
-
- /* Figure out what we're doing... */
- if (mode & O_RDWR) {
- reading = writing = TRUE;
- }
- else if (mode & O_WRONLY) {
- reading = FALSE;
- writing = TRUE;
- }
- else {
- reading = TRUE;
- writing = FALSE;
- }
- mode &= ~(O_RDWR|O_RDONLY|O_WRONLY);
- if (!(mode & O_BINARY))
- mode |= O_TEXT;
-
- sa.nLength = sizeof (SECURITY_ATTRIBUTES);
- sa.lpSecurityDescriptor = NULL;
- sa.bInheritHandle = TRUE;
- ret = -1;
-
- RUBY_CRITICAL(do {
- /* create pipe */
- hCurProc = GetCurrentProcess();
- hIn = hOut = hDupIn = hDupOut = NULL;
- if (reading) {
- HANDLE hTmpIn;
- if (!CreatePipe(&hTmpIn, &hOut, &sa, 2048L)) {
- errno = map_errno(GetLastError());
- break;
- }
- if (!DuplicateHandle(hCurProc, hTmpIn, hCurProc, &hDupIn, 0,
- FALSE, DUPLICATE_SAME_ACCESS)) {
- errno = map_errno(GetLastError());
- CloseHandle(hTmpIn);
- CloseHandle(hOut);
- break;
- }
- CloseHandle(hTmpIn);
- hTmpIn = NULL;
- }
- if (writing) {
- HANDLE hTmpOut;
- if (!CreatePipe(&hIn, &hTmpOut, &sa, 2048L)) {
- errno = map_errno(GetLastError());
- break;
- }
- if (!DuplicateHandle(hCurProc, hTmpOut, hCurProc, &hDupOut, 0,
- FALSE, DUPLICATE_SAME_ACCESS)) {
- errno = map_errno(GetLastError());
- CloseHandle(hIn);
- CloseHandle(hTmpOut);
- break;
- }
- CloseHandle(hTmpOut);
- hTmpOut = NULL;
- }
-
- /* create child process */
- child = CreateChild(cmd, prog, &sa, hIn, hOut, NULL);
- if (!child) {
- if (hIn)
- CloseHandle(hIn);
- if (hOut)
- CloseHandle(hOut);
- if (hDupIn)
- CloseHandle(hDupIn);
- if (hDupOut)
- CloseHandle(hDupOut);
- break;
- }
-
- /* associate handle to file descritor */
- if (reading) {
- *pipe = rb_w32_open_osfhandle((intptr_t)hDupIn, O_RDONLY | mode);
- if (writing)
- *write_pipe = rb_w32_open_osfhandle((intptr_t)hDupOut,
- O_WRONLY | mode);
- }
- else {
- *pipe = rb_w32_open_osfhandle((intptr_t)hDupOut, O_WRONLY | mode);
- }
- if (hIn)
- CloseHandle(hIn);
- if (hOut)
- CloseHandle(hOut);
- if (reading && writing && *write_pipe == -1) {
- if (*pipe != -1)
- rb_w32_close(*pipe);
- else
- CloseHandle(hDupIn);
- CloseHandle(hDupOut);
- CloseChildHandle(child);
- break;
- }
- else if (*pipe == -1) {
- if (reading)
- CloseHandle(hDupIn);
- else
- CloseHandle(hDupOut);
- CloseChildHandle(child);
- break;
- }
-
- ret = child->pid;
- } while (0));
-
- return ret;
-}
-
-rb_pid_t
-rb_w32_spawn(int mode, const char *cmd, const char *prog)
-{
- struct ChildRecord *child;
- DWORD exitcode;
-
- switch (mode) {
- case P_NOWAIT:
- case P_OVERLAY:
- break;
- default:
- errno = EINVAL;
- return -1;
- }
-
- child = CreateChild(cmd, prog, NULL, NULL, NULL, NULL);
- if (!child) {
- return -1;
- }
-
- switch (mode) {
- case P_NOWAIT:
- return child->pid;
- case P_OVERLAY:
- WaitForSingleObject(child->hProcess, INFINITE);
- GetExitCodeProcess(child->hProcess, &exitcode);
- CloseChildHandle(child);
- _exit(exitcode);
- default:
- return -1; /* not reached */
- }
-}
-
-rb_pid_t
-rb_w32_aspawn(int mode, const char *prog, char *const *argv)
-{
- int len = rb_w32_argv_size(argv);
- char *cmd = ALLOCA_N(char, len);
-
- if (!prog) prog = argv[0];
- return rb_w32_spawn(mode, rb_w32_join_argv(cmd, argv), prog);
-}
-
-#ifdef HAVE_SYS_PARAM_H
-# include <sys/param.h>
-#else
-# define MAXPATHLEN 512
-#endif
-
-static struct ChildRecord *
-CreateChild(const char *cmd, const char *prog, SECURITY_ATTRIBUTES *psa,
- HANDLE hInput, HANDLE hOutput, HANDLE hError)
-{
- BOOL fRet;
- DWORD dwCreationFlags;
- STARTUPINFO aStartupInfo;
- PROCESS_INFORMATION aProcessInformation;
- SECURITY_ATTRIBUTES sa;
- const char *shell;
- struct ChildRecord *child;
- char *p = NULL;
- char fbuf[MAXPATHLEN];
-
- if (!cmd && !prog) {
- errno = EFAULT;
- return NULL;
- }
-
- child = FindFreeChildSlot();
- if (!child) {
- errno = EAGAIN;
- return NULL;
- }
-
- if (!psa) {
- sa.nLength = sizeof (SECURITY_ATTRIBUTES);
- sa.lpSecurityDescriptor = NULL;
- sa.bInheritHandle = TRUE;
- psa = &sa;
- }
-
- memset(&aStartupInfo, 0, sizeof (STARTUPINFO));
- memset(&aProcessInformation, 0, sizeof (PROCESS_INFORMATION));
- aStartupInfo.cb = sizeof (STARTUPINFO);
- if (hInput || hOutput || hError) {
- aStartupInfo.dwFlags = STARTF_USESTDHANDLES;
- if (hInput) {
- aStartupInfo.hStdInput = hInput;
- }
- else {
- aStartupInfo.hStdInput = GetStdHandle(STD_INPUT_HANDLE);
- }
- if (hOutput) {
- aStartupInfo.hStdOutput = hOutput;
- }
- else {
- aStartupInfo.hStdOutput = GetStdHandle(STD_OUTPUT_HANDLE);
- }
- if (hError) {
- aStartupInfo.hStdError = hError;
- }
- else {
- aStartupInfo.hStdError = GetStdHandle(STD_ERROR_HANDLE);
- }
- }
-
- dwCreationFlags = (NORMAL_PRIORITY_CLASS);
-
- if (prog) {
- if (!(p = dln_find_exe_r(prog, NULL, fbuf, sizeof(fbuf)))) {
- shell = prog;
- }
- }
- else {
- int redir = -1;
- int len = 0;
- int nt;
- while (ISSPACE(*cmd)) cmd++;
- for (prog = cmd; *prog; prog = CharNext(prog)) {
- if (ISSPACE(*prog)) {
- len = prog - cmd;
- do ++prog; while (ISSPACE(*prog));
- if (!*prog--) break;
- }
- else {
- len = 0;
- }
- }
- if (!len) len = strlen(cmd);
- if ((shell = getenv("RUBYSHELL")) && (redir = has_redirection(cmd))) {
- char *tmp = ALLOCA_N(char, strlen(shell) + len + sizeof(" -c ") + 2);
- sprintf(tmp, "%s -c \"%.*s\"", shell, len, cmd);
- cmd = tmp;
- }
- else if ((shell = getenv("COMSPEC")) &&
- (nt = !is_command_com(shell),
- (redir < 0 ? has_redirection(cmd) : redir) ||
- is_internal_cmd(cmd, nt))) {
- char *tmp = ALLOCA_N(char, strlen(shell) + len + sizeof(" /c ")
- + (nt ? 2 : 0));
- sprintf(tmp, nt ? "%s /c \"%.*s\"" : "%s /c %.*s", shell, len, cmd);
- cmd = tmp;
- }
- else {
- shell = NULL;
- prog = cmd;
- for (;;) {
- if (!*prog) {
- p = dln_find_exe_r(cmd, NULL, fbuf, sizeof(fbuf));
- break;
- }
- if (strchr(".:*?\"/\\", *prog)) {
- if (cmd[len]) {
- char *tmp = ALLOCA_N(char, len + 1);
- memcpy(tmp, cmd, len);
- tmp[len] = 0;
- cmd = tmp;
- }
- break;
- }
- if (ISSPACE(*prog) || strchr("<>|", *prog)) {
- len = prog - cmd;
- p = ALLOCA_N(char, len + 1);
- memcpy(p, cmd, len);
- p[len] = 0;
- p = dln_find_exe_r(p, NULL, fbuf, sizeof(fbuf));
- break;
- }
- prog++;
- }
- }
- }
- if (p) {
- shell = p;
- while (*p) {
- if ((unsigned char)*p == '/')
- *p = '\\';
- p = CharNext(p);
- }
- }
-
- RUBY_CRITICAL({
- fRet = CreateProcess(shell, (char *)cmd, psa, psa,
- psa->bInheritHandle, dwCreationFlags, NULL, NULL,
- &aStartupInfo, &aProcessInformation);
- errno = map_errno(GetLastError());
- });
-
- if (!fRet) {
- child->pid = 0; /* release the slot */
- return NULL;
- }
-
- CloseHandle(aProcessInformation.hThread);
-
- child->hProcess = aProcessInformation.hProcess;
- child->pid = (rb_pid_t)aProcessInformation.dwProcessId;
-
- if (!IsWinNT()) {
- /* On Win9x, make pid positive similarly to cygwin and perl */
- child->pid = -child->pid;
- }
-
- return child;
-}
-
-typedef struct _NtCmdLineElement {
- struct _NtCmdLineElement *next;
- char *str;
- int len;
- int flags;
-} NtCmdLineElement;
-
-//
-// Possible values for flags
-//
-
-#define NTGLOB 0x1 // element contains a wildcard
-#define NTMALLOC 0x2 // string in element was malloc'ed
-#define NTSTRING 0x4 // element contains a quoted string
-
-static int
-insert(const char *path, VALUE vinfo, void *enc)
-{
- NtCmdLineElement *tmpcurr;
- NtCmdLineElement ***tail = (NtCmdLineElement ***)vinfo;
-
- tmpcurr = (NtCmdLineElement *)malloc(sizeof(NtCmdLineElement));
- if (!tmpcurr) return -1;
- MEMZERO(tmpcurr, NtCmdLineElement, 1);
- tmpcurr->len = strlen(path);
- tmpcurr->str = strdup(path);
- if (!tmpcurr->str) return -1;
- tmpcurr->flags |= NTMALLOC;
- **tail = tmpcurr;
- *tail = &tmpcurr->next;
-
- return 0;
-}
-
-
-static NtCmdLineElement **
-cmdglob(NtCmdLineElement *patt, NtCmdLineElement **tail)
-{
- char buffer[MAXPATHLEN], *buf = buffer;
- char *p;
- NtCmdLineElement **last = tail;
- int status;
-
- if (patt->len >= MAXPATHLEN)
- if (!(buf = malloc(patt->len + 1))) return 0;
-
- strlcpy(buf, patt->str, patt->len + 1);
- buf[patt->len] = '\0';
- for (p = buf; *p; p = CharNext(p))
- if (*p == '\\')
- *p = '/';
- status = ruby_brace_glob(buf, 0, insert, (VALUE)&tail);
- if (buf != buffer)
- free(buf);
-
- if (status || last == tail) return 0;
- if (patt->flags & NTMALLOC)
- free(patt->str);
- free(patt);
- return tail;
-}
-
-//
-// Check a command string to determine if it has I/O redirection
-// characters that require it to be executed by a command interpreter
-//
-
-static int
-has_redirection(const char *cmd)
-{
- char quote = '\0';
- const char *ptr;
-
- //
- // Scan the string, looking for redirection (< or >) or pipe
- // characters (|) that are not in a quoted string
- //
-
- for (ptr = cmd; *ptr;) {
- switch (*ptr) {
- case '\'':
- case '\"':
- if (!quote)
- quote = *ptr;
- else if (quote == *ptr)
- quote = '\0';
- ptr++;
- break;
-
- case '>':
- case '<':
- case '|':
- if (!quote)
- return TRUE;
- ptr++;
- break;
-
- case '\\':
- ptr++;
- default:
- ptr = CharNext(ptr);
- break;
- }
- }
- return FALSE;
-}
-
-static inline char *
-skipspace(char *ptr)
-{
- while (ISSPACE(*ptr))
- ptr++;
- return ptr;
-}
-
-int
-rb_w32_cmdvector(const char *cmd, char ***vec)
-{
- int globbing, len;
- int elements, strsz, done;
- int slashes, escape;
- char *ptr, *base, *buffer, *cmdline;
- char **vptr;
- char quote;
- NtCmdLineElement *curr, **tail;
- NtCmdLineElement *cmdhead = NULL, **cmdtail = &cmdhead;
-
- //
- // just return if we don't have a command line
- //
-
- while (ISSPACE(*cmd))
- cmd++;
- if (!*cmd) {
- *vec = NULL;
- return 0;
- }
-
- ptr = cmdline = strdup(cmd);
-
- //
- // Ok, parse the command line, building a list of CmdLineElements.
- // When we've finished, and it's an input command (meaning that it's
- // the processes argv), we'll do globing and then build the argument
- // vector.
- // The outer loop does one interation for each element seen.
- // The inner loop does one interation for each character in the element.
- //
-
- while (*(ptr = skipspace(ptr))) {
- base = ptr;
- quote = slashes = globbing = escape = 0;
- for (done = 0; !done && *ptr; ) {
- //
- // Switch on the current character. We only care about the
- // white-space characters, the wild-card characters, and the
- // quote characters.
- //
-
- switch (*ptr) {
- case '\\':
- if (quote != '\'') slashes++;
- break;
-
- case ' ':
- case '\t':
- case '\n':
- //
- // if we're not in a string, then we're finished with this
- // element
- //
-
- if (!quote) {
- *ptr = 0;
- done = 1;
- }
- break;
-
- case '*':
- case '?':
- case '[':
- case '{':
- //
- // record the fact that this element has a wildcard character
- // N.B. Don't glob if inside a single quoted string
- //
-
- if (quote != '\'')
- globbing++;
- slashes = 0;
- break;
-
- case '\'':
- case '\"':
- //
- // if we're already in a string, see if this is the
- // terminating close-quote. If it is, we're finished with
- // the string, but not neccessarily with the element.
- // If we're not already in a string, start one.
- //
-
- if (!(slashes & 1)) {
- if (!quote)
- quote = *ptr;
- else if (quote == *ptr) {
- if (quote == '"' && quote == ptr[1])
- ptr++;
- quote = '\0';
- }
- }
- escape++;
- slashes = 0;
- break;
-
- default:
- ptr = CharNext(ptr);
- slashes = 0;
- continue;
- }
- ptr++;
- }
-
- //
- // when we get here, we've got a pair of pointers to the element,
- // base and ptr. Base points to the start of the element while ptr
- // points to the character following the element.
- //
-
- len = ptr - base;
- if (done) --len;
-
- //
- // if it's an input vector element and it's enclosed by quotes,
- // we can remove them.
- //
-
- if (escape) {
- char *p = base, c;
- slashes = quote = 0;
- while (p < base + len) {
- switch (c = *p) {
- case '\\':
- p++;
- if (quote != '\'') slashes++;
- break;
-
- case '\'':
- case '"':
- if (!(slashes & 1) && quote && quote != c) {
- p++;
- slashes = 0;
- break;
- }
- memcpy(p - ((slashes + 1) >> 1), p + (~slashes & 1),
- base + len - p);
- len -= ((slashes + 1) >> 1) + (~slashes & 1);
- p -= (slashes + 1) >> 1;
- if (!(slashes & 1)) {
- if (quote) {
- if (quote == '"' && quote == *p)
- p++;
- quote = '\0';
- }
- else
- quote = c;
- }
- else
- p++;
- slashes = 0;
- break;
-
- default:
- p = CharNext(p);
- slashes = 0;
- break;
- }
- }
- }
-
- curr = (NtCmdLineElement *)calloc(sizeof(NtCmdLineElement), 1);
- if (!curr) goto do_nothing;
- curr->str = base;
- curr->len = len;
-
- if (globbing && (tail = cmdglob(curr, cmdtail))) {
- cmdtail = tail;
- }
- else {
- *cmdtail = curr;
- cmdtail = &curr->next;
- }
- }
-
- //
- // Almost done!
- // Count up the elements, then allocate space for a vector of pointers
- // (argv) and a string table for the elements.
- //
-
- for (elements = 0, strsz = 0, curr = cmdhead; curr; curr = curr->next) {
- elements++;
- strsz += (curr->len + 1);
- }
-
- len = (elements+1)*sizeof(char *) + strsz;
- buffer = (char *)malloc(len);
- if (!buffer) {
- do_nothing:
- while (curr = cmdhead) {
- cmdhead = curr->next;
- if (curr->flags & NTMALLOC) free(curr->str);
- free(curr);
- }
- free(cmdline);
- for (vptr = *vec; *vptr; ++vptr);
- return vptr - *vec;
- }
-
- //
- // make vptr point to the start of the buffer
- // and ptr point to the area we'll consider the string table.
- //
- // buffer (*vec)
- // |
- // V ^---------------------V
- // +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
- // | | | .... | NULL | | ..... |\0 | | ..... |\0 |...
- // +---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+
- // |- elements+1 -| ^ 1st element ^ 2nd element
-
- vptr = (char **) buffer;
-
- ptr = buffer + (elements+1) * sizeof(char *);
-
- while (curr = cmdhead) {
- strlcpy(ptr, curr->str, curr->len + 1);
- *vptr++ = ptr;
- ptr += curr->len + 1;
- cmdhead = curr->next;
- if (curr->flags & NTMALLOC) free(curr->str);
- free(curr);
- }
- *vptr = 0;
-
- *vec = (char **) buffer;
- free(cmdline);
- return elements;
-}
-
-//
-// UNIX compatible directory access functions for NT
-//
-
-#define PATHLEN 1024
-
-//
-// The idea here is to read all the directory names into a string table
-// (separated by nulls) and when one of the other dir functions is called
-// return the pointer to the current file name.
-//
-
-#define GetBit(bits, i) ((bits)[(i) / CHAR_BIT] & (1 << (i) % CHAR_BIT))
-#define SetBit(bits, i) ((bits)[(i) / CHAR_BIT] |= (1 << (i) % CHAR_BIT))
-
-#define BitOfIsDir(n) ((n) * 2)
-#define BitOfIsRep(n) ((n) * 2 + 1)
-#define DIRENT_PER_CHAR (CHAR_BIT / 2)
-
-DIR *
-rb_w32_opendir(const char *filename)
-{
- DIR *p;
- long len;
- long idx;
- char *scanname;
- char *tmp;
- struct stati64 sbuf;
- WIN32_FIND_DATA fd;
- HANDLE fh;
-
- //
- // check to see if we've got a directory
- //
- if (rb_w32_stati64(filename, &sbuf) < 0)
- return NULL;
- if (!(sbuf.st_mode & S_IFDIR) &&
- (!ISALPHA(filename[0]) || filename[1] != ':' || filename[2] != '\0' ||
- ((1 << (filename[0] & 0x5f) - 'A') & GetLogicalDrives()) == 0)) {
- errno = ENOTDIR;
- return NULL;
- }
-
- //
- // Get us a DIR structure
- //
- p = calloc(sizeof(DIR), 1);
- if (p == NULL)
- return NULL;
-
- //
- // Create the search pattern
- //
- len = strlen(filename) + 2 + 1;
- if (!(scanname = malloc(len))) {
- free(p);
- return NULL;
- }
- strlcpy(scanname, filename, len);
-
- if (index("/\\:", *CharPrev(scanname, scanname + strlen(scanname))) == NULL)
- strlcat(scanname, "/*", len);
- else
- strlcat(scanname, "*", len);
-
- //
- // do the FindFirstFile call
- //
- fh = FindFirstFile(scanname, &fd);
- free(scanname);
- if (fh == INVALID_HANDLE_VALUE) {
- errno = map_errno(GetLastError());
- free(p);
- return NULL;
- }
-
- idx = 0;
-
- //
- // loop finding all the files that match the wildcard
- // (which should be all of them in this directory!).
- // the variable idx should point one past the null terminator
- // of the previous string found.
- //
- do {
- len = strlen(fd.cFileName) + 1;
-
- //
- // bump the string table size by enough for the
- // new name and it's null terminator
- //
- tmp = realloc(p->start, idx + len);
- if (!tmp) {
- error:
- rb_w32_closedir(p);
- FindClose(fh);
- errno = ENOMEM;
- return NULL;
- }
-
- p->start = tmp;
- strlcpy(&p->start[idx], fd.cFileName, len);
-
- if (p->nfiles % DIRENT_PER_CHAR == 0) {
- tmp = realloc(p->bits, p->nfiles / DIRENT_PER_CHAR + 1);
- if (!tmp)
- goto error;
- p->bits = tmp;
- p->bits[p->nfiles / DIRENT_PER_CHAR] = 0;
- }
- if (fd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
- SetBit(p->bits, BitOfIsDir(p->nfiles));
- if (fd.dwFileAttributes & FILE_ATTRIBUTE_REPARSE_POINT)
- SetBit(p->bits, BitOfIsRep(p->nfiles));
-
- p->nfiles++;
- idx += len;
- } while (FindNextFile(fh, &fd));
- FindClose(fh);
- p->size = idx;
- p->curr = p->start;
- return p;
-}
-
-//
-// Move to next entry
-//
-
-static void
-move_to_next_entry(DIR *dirp)
-{
- if (dirp->curr) {
- dirp->loc++;
- dirp->curr += strlen(dirp->curr) + 1;
- if (dirp->curr >= (dirp->start + dirp->size)) {
- dirp->curr = NULL;
- }
- }
-}
-
-//
-// Readdir just returns the current string pointer and bumps the
-// string pointer to the next entry.
-//
-
-struct direct *
-rb_w32_readdir(DIR *dirp)
-{
- static int dummy = 0;
-
- if (dirp->curr) {
-
- //
- // first set up the structure to return
- //
- dirp->dirstr.d_namlen = strlen(dirp->curr);
- if (!(dirp->dirstr.d_name = malloc(dirp->dirstr.d_namlen + 1)))
- return NULL;
- strlcpy(dirp->dirstr.d_name, dirp->curr, dirp->dirstr.d_namlen + 1);
-
- //
- // Fake inode
- //
- dirp->dirstr.d_ino = dummy++;
-
- //
- // Attributes
- //
- dirp->dirstr.d_isdir = GetBit(dirp->bits, BitOfIsDir(dirp->loc));
- dirp->dirstr.d_isrep = GetBit(dirp->bits, BitOfIsRep(dirp->loc));
-
- //
- // Now set up for the next call to readdir
- //
-
- move_to_next_entry(dirp);
-
- return &(dirp->dirstr);
-
- } else
- return NULL;
-}
-
-//
-// Telldir returns the current string pointer position
-//
-
-off_t
-rb_w32_telldir(DIR *dirp)
-{
- return dirp->loc;
-}
-
-//
-// Seekdir moves the string pointer to a previously saved position
-// (Saved by telldir).
-
-void
-rb_w32_seekdir(DIR *dirp, off_t loc)
-{
- if (dirp->loc > loc) rb_w32_rewinddir(dirp);
-
- while (dirp->curr && dirp->loc < loc) {
- move_to_next_entry(dirp);
- }
-}
-
-//
-// Rewinddir resets the string pointer to the start
-//
-
-void
-rb_w32_rewinddir(DIR *dirp)
-{
- dirp->curr = dirp->start;
- dirp->loc = 0;
-}
-
-//
-// This just free's the memory allocated by opendir
-//
-
-void
-rb_w32_closedir(DIR *dirp)
-{
- if (dirp) {
- if (dirp->dirstr.d_name)
- free(dirp->dirstr.d_name);
- if (dirp->start)
- free(dirp->start);
- if (dirp->bits)
- free(dirp->bits);
- free(dirp);
- }
-}
-
-#if (defined _MT || defined __MSVCRT__) && !defined __BORLANDC__
-#define MSVCRT_THREADS
-#endif
-#ifdef MSVCRT_THREADS
-# define MTHREAD_ONLY(x) x
-# define STHREAD_ONLY(x)
-#elif defined(__BORLANDC__)
-# define MTHREAD_ONLY(x)
-# define STHREAD_ONLY(x)
-#else
-# define MTHREAD_ONLY(x)
-# define STHREAD_ONLY(x) x
-#endif
-
-typedef struct {
- intptr_t osfhnd; /* underlying OS file HANDLE */
- char osfile; /* attributes of file (e.g., open in text mode?) */
- char pipech; /* one char buffer for handles opened on pipes */
-#ifdef MSVCRT_THREADS
- int lockinitflag;
- CRITICAL_SECTION lock;
-#endif
-#if _MSC_VER >= 1400
- char textmode;
- char pipech2[2];
-#endif
-} ioinfo;
-
-#if !defined _CRTIMP || defined __MINGW32__
-#undef _CRTIMP
-#define _CRTIMP __declspec(dllimport)
-#endif
-
-#if !defined(__BORLANDC__) && !defined(_WIN32_WCE)
-EXTERN_C _CRTIMP ioinfo * __pioinfo[];
-
-#define IOINFO_L2E 5
-#define IOINFO_ARRAY_ELTS (1 << IOINFO_L2E)
-#define _pioinfo(i) ((ioinfo*)((char*)(__pioinfo[i >> IOINFO_L2E]) + (i & (IOINFO_ARRAY_ELTS - 1)) * (sizeof(ioinfo) + pioinfo_extra)))
-#define _osfhnd(i) (_pioinfo(i)->osfhnd)
-#define _osfile(i) (_pioinfo(i)->osfile)
-#define _pipech(i) (_pioinfo(i)->pipech)
-
-#if _MSC_VER >= 1400
-static size_t pioinfo_extra = 0; /* workaround for VC++8 SP1 */
-
-static void
-set_pioinfo_extra(void)
-{
- int fd;
-
- fd = open("NUL", O_RDONLY);
- for (pioinfo_extra = 0; pioinfo_extra <= 64; pioinfo_extra += sizeof(void *)) {
- if (_osfhnd(fd) == _get_osfhandle(fd)) {
- break;
- }
- }
- close(fd);
-
- if (pioinfo_extra > 64) {
- /* not found, maybe something wrong... */
- pioinfo_extra = 0;
- }
-}
-#else
-#define pioinfo_extra 0
-#endif
-
-#define _set_osfhnd(fh, osfh) (void)(_osfhnd(fh) = osfh)
-#define _set_osflags(fh, flags) (_osfile(fh) = (flags))
-
-#define FOPEN 0x01 /* file handle open */
-#define FNOINHERIT 0x10 /* file handle opened O_NOINHERIT */
-#define FAPPEND 0x20 /* file handle opened O_APPEND */
-#define FDEV 0x40 /* file handle refers to device */
-#define FTEXT 0x80 /* file handle is in text mode */
-
-static int
-rb_w32_open_osfhandle(intptr_t osfhandle, int flags)
-{
- int fh;
- char fileflags; /* _osfile flags */
- HANDLE hF;
-
- /* copy relevant flags from second parameter */
- fileflags = FDEV;
-
- if (flags & O_APPEND)
- fileflags |= FAPPEND;
-
- if (flags & O_TEXT)
- fileflags |= FTEXT;
-
- if (flags & O_NOINHERIT)
- fileflags |= FNOINHERIT;
-
- /* attempt to allocate a C Runtime file handle */
- hF = CreateFile("NUL", 0, 0, NULL, OPEN_ALWAYS, 0, NULL);
- fh = _open_osfhandle((long)hF, 0);
- CloseHandle(hF);
- if (fh == -1) {
- errno = EMFILE; /* too many open files */
- _doserrno = 0L; /* not an OS error */
- }
- else {
-
- MTHREAD_ONLY(EnterCriticalSection(&(_pioinfo(fh)->lock)));
- /* the file is open. now, set the info in _osfhnd array */
- _set_osfhnd(fh, osfhandle);
-
- fileflags |= FOPEN; /* mark as open */
-
- _set_osflags(fh, fileflags); /* set osfile entry */
- MTHREAD_ONLY(LeaveCriticalSection(&_pioinfo(fh)->lock));
- }
- return fh; /* return handle */
-}
-
-static void
-init_stdhandle(void)
-{
- int nullfd = -1;
- int keep = 0;
-#define open_null(fd) \
- (((nullfd < 0) ? \
- (nullfd = open("NUL", O_RDWR|O_BINARY)) : 0), \
- ((nullfd == (fd)) ? (keep = 1) : dup2(nullfd, fd)), \
- (fd))
-
- if (fileno(stdin) < 0) {
- stdin->_file = open_null(0);
- }
- if (fileno(stdout) < 0) {
- stdout->_file = open_null(1);
- }
- if (fileno(stderr) < 0) {
- stderr->_file = open_null(2);
- }
- if (nullfd >= 0 && !keep) close(nullfd);
- setvbuf(stderr, NULL, _IONBF, 0);
-}
-#else
-
-#define _set_osfhnd(fh, osfh) (void)((fh), (osfh))
-#define _set_osflags(fh, flags) (void)((fh), (flags))
-
-static void
-init_stdhandle(void)
-{
-}
-#endif
-
-#ifdef __BORLANDC__
-static int
-rb_w32_open_osfhandle(intptr_t osfhandle, int flags)
-{
- int fd = _open_osfhandle(osfhandle, flags);
- if (fd == -1) {
- errno = EMFILE; /* too many open files */
- _doserrno = 0L; /* not an OS error */
- }
- return fd;
-}
-#endif
-
-#undef getsockopt
-
-static int
-is_socket(SOCKET sock)
-{
- if (st_lookup(socklist, (st_data_t)sock, NULL))
- return TRUE;
- else
- return FALSE;
-}
-
-int
-rb_w32_is_socket(int fd)
-{
- return is_socket(TO_SOCKET(fd));
-}
-
-//
-// Since the errors returned by the socket error function
-// WSAGetLastError() are not known by the library routine strerror
-// we have to roll our own.
-//
-
-#undef strerror
-
-char *
-rb_w32_strerror(int e)
-{
- static char buffer[512];
-#if !defined __MINGW32__
- extern int sys_nerr;
-#endif
- DWORD source = 0;
- char *p;
-
-#if defined __BORLANDC__ && defined ENOTEMPTY // _sys_errlist is broken
- switch (e) {
- case ENAMETOOLONG:
- return "Filename too long";
- case ENOTEMPTY:
- return "Directory not empty";
- }
-#endif
-
- if (e < 0 || e > sys_nerr) {
- if (e < 0)
- e = GetLastError();
- if (FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM |
- FORMAT_MESSAGE_IGNORE_INSERTS, &source, e, 0,
- buffer, sizeof(buffer), NULL) == 0)
- strlcpy(buffer, "Unknown Error", sizeof(buffer));
- }
- else
- strlcpy(buffer, strerror(e), sizeof(buffer));
-
- p = buffer;
- while ((p = strpbrk(p, "\r\n")) != NULL) {
- memmove(p, p + 1, strlen(p));
- }
- return buffer;
-}
-
-//
-// various stubs
-//
-
-
-// Ownership
-//
-// Just pretend that everyone is a superuser. NT will let us know if
-// we don't really have permission to do something.
-//
-
-#define ROOT_UID 0
-#define ROOT_GID 0
-
-rb_uid_t
-getuid(void)
-{
- return ROOT_UID;
-}
-
-rb_uid_t
-geteuid(void)
-{
- return ROOT_UID;
-}
-
-rb_gid_t
-getgid(void)
-{
- return ROOT_GID;
-}
-
-rb_gid_t
-getegid(void)
-{
- return ROOT_GID;
-}
-
-int
-setuid(rb_uid_t uid)
-{
- return (uid == ROOT_UID ? 0 : -1);
-}
-
-int
-setgid(rb_gid_t gid)
-{
- return (gid == ROOT_GID ? 0 : -1);
-}
-
-//
-// File system stuff
-//
-
-int
-ioctl(int i, int u, ...)
-{
- errno = EINVAL;
- return -1;
-}
-
-#undef FD_SET
-
-void
-rb_w32_fdset(int fd, fd_set *set)
-{
- unsigned int i;
- SOCKET s = TO_SOCKET(fd);
-
- for (i = 0; i < set->fd_count; i++) {
- if (set->fd_array[i] == s) {
- return;
- }
- }
- if (i == set->fd_count) {
- if (set->fd_count < FD_SETSIZE) {
- set->fd_array[i] = s;
- set->fd_count++;
- }
- }
-}
-
-#undef FD_CLR
-
-void
-rb_w32_fdclr(int fd, fd_set *set)
-{
- unsigned int i;
- SOCKET s = TO_SOCKET(fd);
-
- for (i = 0; i < set->fd_count; i++) {
- if (set->fd_array[i] == s) {
- while (i < set->fd_count - 1) {
- set->fd_array[i] = set->fd_array[i + 1];
- i++;
- }
- set->fd_count--;
- break;
- }
- }
-}
-
-#undef FD_ISSET
-
-int
-rb_w32_fdisset(int fd, fd_set *set)
-{
- int ret;
- SOCKET s = TO_SOCKET(fd);
- if (s == (SOCKET)INVALID_HANDLE_VALUE)
- return 0;
- RUBY_CRITICAL(ret = __WSAFDIsSet(s, set));
- return ret;
-}
-
-//
-// Networking trampolines
-// These are used to avoid socket startup/shutdown overhead in case
-// the socket routines aren't used.
-//
-
-#undef select
-
-static int
-extract_fd(fd_set *dst, fd_set *src, int (*func)(SOCKET))
-{
- int s = 0;
- if (!src || !dst) return 0;
-
- while (s < src->fd_count) {
- SOCKET fd = src->fd_array[s];
-
- if (!func || (*func)(fd)) { /* move it to dst */
- int d;
-
- for (d = 0; d < dst->fd_count; d++) {
- if (dst->fd_array[d] == fd) break;
- }
- if (d == dst->fd_count && dst->fd_count < FD_SETSIZE) {
- dst->fd_array[dst->fd_count++] = fd;
- }
- memmove(
- &src->fd_array[s],
- &src->fd_array[s+1],
- sizeof(src->fd_array[0]) * (--src->fd_count - s));
- }
- else s++;
- }
-
- return dst->fd_count;
-}
-
-static int
-is_not_socket(SOCKET sock)
-{
- return !is_socket(sock);
-}
-
-static int
-is_pipe(SOCKET sock) /* DONT call this for SOCKET! it clains it is PIPE. */
-{
- int ret;
-
- RUBY_CRITICAL({
- ret = (GetFileType((HANDLE)sock) == FILE_TYPE_PIPE);
- });
-
- return ret;
-}
-
-static int
-is_readable_pipe(SOCKET sock) /* call this for pipe only */
-{
- int ret;
- DWORD n = 0;
-
- RUBY_CRITICAL(
- if (PeekNamedPipe((HANDLE)sock, NULL, 0, NULL, &n, NULL)) {
- ret = (n > 0);
- }
- else {
- ret = (GetLastError() == ERROR_BROKEN_PIPE); /* pipe was closed */
- }
- );
-
- return ret;
-}
-
-static int
-is_console(SOCKET sock) /* DONT call this for SOCKET! */
-{
- int ret;
- DWORD n = 0;
- INPUT_RECORD ir;
-
- RUBY_CRITICAL(
- ret = (PeekConsoleInput((HANDLE)sock, &ir, 1, &n))
- );
-
- return ret;
-}
-
-static int
-is_readable_console(SOCKET sock) /* call this for console only */
-{
- int ret = 0;
- DWORD n = 0;
- INPUT_RECORD ir;
-
- RUBY_CRITICAL(
- if (PeekConsoleInput((HANDLE)sock, &ir, 1, &n) && n > 0) {
- if (ir.EventType == KEY_EVENT && ir.Event.KeyEvent.bKeyDown &&
- ir.Event.KeyEvent.uChar.AsciiChar) {
- ret = 1;
- }
- else {
- ReadConsoleInput((HANDLE)sock, &ir, 1, &n);
- }
- }
- );
-
- return ret;
-}
-
-static int
-do_select(int nfds, fd_set *rd, fd_set *wr, fd_set *ex,
- struct timeval *timeout)
-{
- int r = 0;
-
- if (nfds == 0) {
- if (timeout)
- rb_w32_sleep(timeout->tv_sec * 1000 + timeout->tv_usec / 1000);
- else
- rb_w32_sleep(INFINITE);
- }
- else {
- RUBY_CRITICAL(
- EnterCriticalSection(&select_mutex);
- r = select(nfds, rd, wr, ex, timeout);
- LeaveCriticalSection(&select_mutex);
- if (r == SOCKET_ERROR) {
- errno = map_errno(WSAGetLastError());
- r = -1;
- }
- );
- }
-
- return r;
-}
-
-static inline int
-subtract(struct timeval *rest, const struct timeval *wait)
-{
- while (rest->tv_usec < wait->tv_usec) {
- if (rest->tv_sec <= wait->tv_sec) {
- return 0;
- }
- rest->tv_sec -= 1;
- rest->tv_usec += 1000 * 1000;
- }
- rest->tv_sec -= wait->tv_sec;
- rest->tv_usec -= wait->tv_usec;
- return 1;
-}
-
-static inline int
-compare(const struct timeval *t1, const struct timeval *t2)
-{
- if (t1->tv_sec < t2->tv_sec)
- return -1;
- if (t1->tv_sec > t2->tv_sec)
- return 1;
- if (t1->tv_usec < t2->tv_usec)
- return -1;
- if (t1->tv_usec > t2->tv_usec)
- return 1;
- return 0;
-}
-
-#undef Sleep
-int WSAAPI
-rb_w32_select(int nfds, fd_set *rd, fd_set *wr, fd_set *ex,
- struct timeval *timeout)
-{
- int r;
- fd_set pipe_rd;
- fd_set cons_rd;
- fd_set else_rd;
- fd_set else_wr;
- fd_set except;
- int nonsock = 0;
- struct timeval limit;
-
- if (nfds < 0 || (timeout && (timeout->tv_sec < 0 || timeout->tv_usec < 0))) {
- errno = EINVAL;
- return -1;
- }
-
- if (timeout) {
- if (timeout->tv_sec < 0 ||
- timeout->tv_usec < 0 ||
- timeout->tv_usec >= 1000000) {
- errno = EINVAL;
- return -1;
- }
- gettimeofday(&limit, NULL);
- limit.tv_sec += timeout->tv_sec;
- limit.tv_usec += timeout->tv_usec;
- if (limit.tv_usec >= 1000000) {
- limit.tv_usec -= 1000000;
- limit.tv_sec++;
- }
- }
-
- if (!NtSocketsInitialized) {
- StartSockets();
- }
-
- // assume else_{rd,wr} (other than socket, pipe reader, console reader)
- // are always readable/writable. but this implementation still has
- // problem. if pipe's buffer is full, writing to pipe will block
- // until some data is read from pipe. but ruby is single threaded system,
- // so whole system will be blocked forever.
-
- else_rd.fd_count = 0;
- nonsock += extract_fd(&else_rd, rd, is_not_socket);
-
- pipe_rd.fd_count = 0;
- extract_fd(&pipe_rd, &else_rd, is_pipe); // should not call is_pipe for socket
-
- cons_rd.fd_count = 0;
- extract_fd(&cons_rd, &else_rd, is_console); // ditto
-
- else_wr.fd_count = 0;
- nonsock += extract_fd(&else_wr, wr, is_not_socket);
-
- except.fd_count = 0;
- extract_fd(&except, ex, is_not_socket); // drop only
-
- r = 0;
- if (rd && rd->fd_count > r) r = rd->fd_count;
- if (wr && wr->fd_count > r) r = wr->fd_count;
- if (ex && ex->fd_count > r) r = ex->fd_count;
- if (nfds > r) nfds = r;
-
- {
- struct timeval rest;
- struct timeval wait;
- struct timeval zero;
- wait.tv_sec = 0; wait.tv_usec = 10 * 1000; // 10ms
- zero.tv_sec = 0; zero.tv_usec = 0; // 0ms
- for (;;) {
- if (nonsock) {
- // modifying {else,pipe,cons}_rd is safe because
- // if they are modified, function returns immediately.
- extract_fd(&else_rd, &pipe_rd, is_readable_pipe);
- extract_fd(&else_rd, &cons_rd, is_readable_console);
- }
-
- if (else_rd.fd_count || else_wr.fd_count) {
- r = do_select(nfds, rd, wr, ex, &zero); // polling
- if (r < 0) break; // XXX: should I ignore error and return signaled handles?
- r += extract_fd(rd, &else_rd, NULL); // move all
- r += extract_fd(wr, &else_wr, NULL); // move all
- break;
- }
- else {
- struct timeval *dowait = &wait;
-
- fd_set orig_rd;
- fd_set orig_wr;
- fd_set orig_ex;
- if (rd) orig_rd = *rd;
- if (wr) orig_wr = *wr;
- if (ex) orig_ex = *ex;
- r = do_select(nfds, rd, wr, ex, &zero); // polling
- if (r != 0) break; // signaled or error
- if (rd) *rd = orig_rd;
- if (wr) *wr = orig_wr;
- if (ex) *ex = orig_ex;
-
- if (timeout) {
- struct timeval now;
- gettimeofday(&now, NULL);
- rest = limit;
- if (!subtract(&rest, &now)) break;
- if (compare(&rest, &wait) < 0) dowait = &rest;
- }
- Sleep(dowait->tv_sec * 1000 + dowait->tv_usec / 1000);
- }
- }
- }
-
- return r;
-}
-
-#undef accept
-
-int WSAAPI
-rb_w32_accept(int s, struct sockaddr *addr, int *addrlen)
-{
- SOCKET r;
-
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = accept(TO_SOCKET(s), addr, addrlen);
- if (r == INVALID_SOCKET) {
- errno = map_errno(WSAGetLastError());
- s = -1;
- }
- else {
- s = rb_w32_open_osfhandle(r, O_RDWR|O_BINARY|O_NOINHERIT);
- if (s != -1)
- st_insert(socklist, (st_data_t)r, (st_data_t)0);
- else
- closesocket(r);
- }
- });
- return s;
-}
-
-#undef bind
-
-int WSAAPI
-rb_w32_bind(int s, const struct sockaddr *addr, int addrlen)
-{
- int r;
-
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = bind(TO_SOCKET(s), addr, addrlen);
- if (r == SOCKET_ERROR)
- errno = map_errno(WSAGetLastError());
- });
- return r;
-}
-
-#undef connect
-
-int WSAAPI
-rb_w32_connect(int s, const struct sockaddr *addr, int addrlen)
-{
- int r;
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = connect(TO_SOCKET(s), addr, addrlen);
- if (r == SOCKET_ERROR) {
- r = WSAGetLastError();
- if (r != WSAEWOULDBLOCK) {
- errno = map_errno(r);
- }
- else {
- errno = EINPROGRESS;
- r = -1;
- }
- }
- });
- return r;
-}
-
-
-#undef getpeername
-
-int WSAAPI
-rb_w32_getpeername(int s, struct sockaddr *addr, int *addrlen)
-{
- int r;
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = getpeername(TO_SOCKET(s), addr, addrlen);
- if (r == SOCKET_ERROR)
- errno = map_errno(WSAGetLastError());
- });
- return r;
-}
-
-#undef getsockname
-
-int WSAAPI
-rb_w32_getsockname(int s, struct sockaddr *addr, int *addrlen)
-{
- int r;
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = getsockname(TO_SOCKET(s), addr, addrlen);
- if (r == SOCKET_ERROR)
- errno = map_errno(WSAGetLastError());
- });
- return r;
-}
-
-int WSAAPI
-rb_w32_getsockopt(int s, int level, int optname, char *optval, int *optlen)
-{
- int r;
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = getsockopt(TO_SOCKET(s), level, optname, optval, optlen);
- if (r == SOCKET_ERROR)
- errno = map_errno(WSAGetLastError());
- });
- return r;
-}
-
-#undef ioctlsocket
-
-int WSAAPI
-rb_w32_ioctlsocket(int s, long cmd, u_long *argp)
-{
- int r;
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = ioctlsocket(TO_SOCKET(s), cmd, argp);
- if (r == SOCKET_ERROR)
- errno = map_errno(WSAGetLastError());
- });
- return r;
-}
-
-#undef listen
-
-int WSAAPI
-rb_w32_listen(int s, int backlog)
-{
- int r;
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = listen(TO_SOCKET(s), backlog);
- if (r == SOCKET_ERROR)
- errno = map_errno(WSAGetLastError());
- });
- return r;
-}
-
-#undef recv
-#undef recvfrom
-#undef send
-#undef sendto
-
-static int
-overlapped_socket_io(BOOL input, int fd, char *buf, int len, int flags,
- struct sockaddr *addr, int *addrlen)
-{
- int r;
- int ret;
- int mode;
- st_data_t data;
- DWORD flg;
- WSAOVERLAPPED wol;
- WSABUF wbuf;
- int err;
- SOCKET s;
-
- if (!NtSocketsInitialized)
- StartSockets();
-
- s = TO_SOCKET(fd);
- st_lookup(socklist, (st_data_t)s, &data);
- mode = (int)data;
- if (!cancel_io || (mode & O_NONBLOCK)) {
- RUBY_CRITICAL({
- if (input) {
- if (addr && addrlen)
- r = recvfrom(s, buf, len, flags, addr, addrlen);
- else
- r = recv(s, buf, len, flags);
- }
- else {
- if (addr && addrlen)
- r = sendto(s, buf, len, flags, addr, *addrlen);
- else
- r = send(s, buf, len, flags);
- }
- if (r == SOCKET_ERROR)
- errno = map_errno(WSAGetLastError());
- });
- }
- else {
- DWORD size;
- wbuf.len = len;
- wbuf.buf = buf;
- memset(&wol, 0, sizeof(wol));
- RUBY_CRITICAL({
- wol.hEvent = CreateEvent(NULL, TRUE, FALSE, NULL);
- if (input) {
- flg = flags;
- if (addr && addrlen)
- ret = WSARecvFrom(s, &wbuf, 1, &size, &flg, addr, addrlen,
- &wol, NULL);
- else
- ret = WSARecv(s, &wbuf, 1, &size, &flg, &wol, NULL);
- }
- else {
- if (addr && addrlen)
- ret = WSASendTo(s, &wbuf, 1, &size, flags, addr, *addrlen,
- &wol, NULL);
- else
- ret = WSASend(s, &wbuf, 1, &size, flags, &wol, NULL);
- }
- });
-
- if (ret != SOCKET_ERROR) {
- r = size;
- }
- else if ((err = WSAGetLastError()) == WSA_IO_PENDING) {
- switch (rb_w32_wait_events_blocking(&wol.hEvent, 1, INFINITE)) {
- case WAIT_OBJECT_0:
- RUBY_CRITICAL(
- ret = WSAGetOverlappedResult(s, &wol, &size, TRUE, &flg)
- );
- if (ret) {
- r = size;
- break;
- }
- /* thru */
- default:
- errno = map_errno(err);
- /* thru */
- case WAIT_OBJECT_0 + 1:
- /* interrupted */
- r = -1;
- cancel_io((HANDLE)s);
- break;
- }
- }
- else {
- errno = map_errno(err);
- r = -1;
- }
- CloseHandle(&wol.hEvent);
- }
-
- return r;
-}
-
-int WSAAPI
-rb_w32_recv(int fd, char *buf, int len, int flags)
-{
- return overlapped_socket_io(TRUE, fd, buf, len, flags, NULL, NULL);
-}
-
-int WSAAPI
-rb_w32_recvfrom(int fd, char *buf, int len, int flags,
- struct sockaddr *from, int *fromlen)
-{
- return overlapped_socket_io(TRUE, fd, buf, len, flags, from, fromlen);
-}
-
-int WSAAPI
-rb_w32_send(int fd, const char *buf, int len, int flags)
-{
- return overlapped_socket_io(FALSE, fd, (char *)buf, len, flags, NULL, NULL);
-}
-
-int WSAAPI
-rb_w32_sendto(int fd, const char *buf, int len, int flags,
- const struct sockaddr *to, int tolen)
-{
- return overlapped_socket_io(FALSE, fd, (char *)buf, len, flags,
- (struct sockaddr *)to, &tolen);
-}
-
-#undef setsockopt
-
-int WSAAPI
-rb_w32_setsockopt(int s, int level, int optname, const char *optval, int optlen)
-{
- int r;
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = setsockopt(TO_SOCKET(s), level, optname, optval, optlen);
- if (r == SOCKET_ERROR)
- errno = map_errno(WSAGetLastError());
- });
- return r;
-}
-
-#undef shutdown
-
-int WSAAPI
-rb_w32_shutdown(int s, int how)
-{
- int r;
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = shutdown(TO_SOCKET(s), how);
- if (r == SOCKET_ERROR)
- errno = map_errno(WSAGetLastError());
- });
- return r;
-}
-
-static SOCKET
-open_ifs_socket(int af, int type, int protocol)
-{
- unsigned long proto_buffers_len = 0;
- int error_code;
- SOCKET out = INVALID_SOCKET;
-
- if (WSAEnumProtocols(NULL, NULL, &proto_buffers_len) == SOCKET_ERROR) {
- error_code = WSAGetLastError();
- if (error_code == WSAENOBUFS) {
- WSAPROTOCOL_INFO *proto_buffers;
- int protocols_available = 0;
-
- proto_buffers = (WSAPROTOCOL_INFO *)malloc(proto_buffers_len);
- if (!proto_buffers) {
- WSASetLastError(WSA_NOT_ENOUGH_MEMORY);
- return INVALID_SOCKET;
- }
-
- protocols_available =
- WSAEnumProtocols(NULL, proto_buffers, &proto_buffers_len);
- if (protocols_available != SOCKET_ERROR) {
- int i;
- for (i = 0; i < protocols_available; i++) {
- if ((af != AF_UNSPEC && af != proto_buffers[i].iAddressFamily) ||
- (type != proto_buffers[i].iSocketType) ||
- (protocol != 0 && protocol != proto_buffers[i].iProtocol))
- continue;
-
- if ((proto_buffers[i].dwServiceFlags1 & XP1_IFS_HANDLES) == 0)
- continue;
-
- out = WSASocket(af, type, protocol, &(proto_buffers[i]), 0,
- WSA_FLAG_OVERLAPPED);
- break;
- }
- }
-
- free(proto_buffers);
- }
- }
-
- return out;
-}
-
-#undef socket
-
-int WSAAPI
-rb_w32_socket(int af, int type, int protocol)
-{
- SOCKET s;
- int fd;
-
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- s = open_ifs_socket(af, type, protocol);
- if (s == INVALID_SOCKET) {
- errno = map_errno(WSAGetLastError());
- fd = -1;
- }
- else {
- fd = rb_w32_open_osfhandle(s, O_RDWR|O_BINARY|O_NOINHERIT);
- if (fd != -1)
- st_insert(socklist, (st_data_t)s, (st_data_t)0);
- else
- closesocket(s);
- }
- });
- return fd;
-}
-
-#undef gethostbyaddr
-
-struct hostent * WSAAPI
-rb_w32_gethostbyaddr(const char *addr, int len, int type)
-{
- struct hostent *r;
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = gethostbyaddr(addr, len, type);
- if (r == NULL)
- errno = map_errno(WSAGetLastError());
- });
- return r;
-}
-
-#undef gethostbyname
-
-struct hostent * WSAAPI
-rb_w32_gethostbyname(const char *name)
-{
- struct hostent *r;
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = gethostbyname(name);
- if (r == NULL)
- errno = map_errno(WSAGetLastError());
- });
- return r;
-}
-
-#undef gethostname
-
-int WSAAPI
-rb_w32_gethostname(char *name, int len)
-{
- int r;
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = gethostname(name, len);
- if (r == SOCKET_ERROR)
- errno = map_errno(WSAGetLastError());
- });
- return r;
-}
-
-#undef getprotobyname
-
-struct protoent * WSAAPI
-rb_w32_getprotobyname(const char *name)
-{
- struct protoent *r;
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = getprotobyname(name);
- if (r == NULL)
- errno = map_errno(WSAGetLastError());
- });
- return r;
-}
-
-#undef getprotobynumber
-
-struct protoent * WSAAPI
-rb_w32_getprotobynumber(int num)
-{
- struct protoent *r;
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = getprotobynumber(num);
- if (r == NULL)
- errno = map_errno(WSAGetLastError());
- });
- return r;
-}
-
-#undef getservbyname
-
-struct servent * WSAAPI
-rb_w32_getservbyname(const char *name, const char *proto)
-{
- struct servent *r;
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = getservbyname(name, proto);
- if (r == NULL)
- errno = map_errno(WSAGetLastError());
- });
- return r;
-}
-
-#undef getservbyport
-
-struct servent * WSAAPI
-rb_w32_getservbyport(int port, const char *proto)
-{
- struct servent *r;
- if (!NtSocketsInitialized) {
- StartSockets();
- }
- RUBY_CRITICAL({
- r = getservbyport(port, proto);
- if (r == NULL)
- errno = map_errno(WSAGetLastError());
- });
- return r;
-}
-
-static int
-socketpair_internal(int af, int type, int protocol, SOCKET *sv)
-{
- SOCKET svr = INVALID_SOCKET, r = INVALID_SOCKET, w = INVALID_SOCKET;
- struct sockaddr_in sock_in4;
-#ifdef INET6
- struct sockaddr_in6 sock_in6;
-#endif
- struct sockaddr *addr;
- int ret = -1;
- int len;
-
- if (!NtSocketsInitialized) {
- StartSockets();
- }
-
- switch (af) {
- case AF_INET:
-#if defined PF_INET && PF_INET != AF_INET
- case PF_INET:
-#endif
- sock_in4.sin_family = AF_INET;
- sock_in4.sin_port = 0;
- sock_in4.sin_addr.s_addr = htonl(INADDR_LOOPBACK);
- addr = (struct sockaddr *)&sock_in4;
- len = sizeof(sock_in4);
- break;
-#ifdef INET6
- case AF_INET6:
- memset(&sock_in6, 0, sizeof(sock_in6));
- sock_in6.sin6_family = AF_INET6;
- sock_in6.sin6_addr = IN6ADDR_LOOPBACK_INIT;
- addr = (struct sockaddr *)&sock_in6;
- len = sizeof(sock_in6);
- break;
-#endif
- default:
- errno = EAFNOSUPPORT;
- return -1;
- }
- if (type != SOCK_STREAM) {
- errno = EPROTOTYPE;
- return -1;
- }
-
- RUBY_CRITICAL({
- do {
- svr = open_ifs_socket(af, type, protocol);
- if (svr == INVALID_SOCKET)
- break;
- if (bind(svr, addr, len) < 0)
- break;
- if (getsockname(svr, addr, &len) < 0)
- break;
- if (type == SOCK_STREAM)
- listen(svr, 5);
-
- w = open_ifs_socket(af, type, protocol);
- if (w == INVALID_SOCKET)
- break;
- if (connect(w, addr, len) < 0)
- break;
-
- r = accept(svr, addr, &len);
- if (r == INVALID_SOCKET)
- break;
-
- ret = 0;
- } while (0);
-
- if (ret < 0) {
- errno = map_errno(WSAGetLastError());
- if (r != INVALID_SOCKET)
- closesocket(r);
- if (w != INVALID_SOCKET)
- closesocket(w);
- }
- else {
- sv[0] = r;
- sv[1] = w;
- }
- if (svr != INVALID_SOCKET)
- closesocket(svr);
- });
-
- return ret;
-}
-
-int
-rb_w32_socketpair(int af, int type, int protocol, int *sv)
-{
- SOCKET pair[2];
-
- if (socketpair_internal(af, type, protocol, pair) < 0)
- return -1;
- sv[0] = rb_w32_open_osfhandle(pair[0], O_RDWR|O_BINARY|O_NOINHERIT);
- if (sv[0] == -1) {
- closesocket(pair[0]);
- closesocket(pair[1]);
- return -1;
- }
- sv[1] = rb_w32_open_osfhandle(pair[1], O_RDWR|O_BINARY|O_NOINHERIT);
- if (sv[1] == -1) {
- rb_w32_close(sv[0]);
- closesocket(pair[1]);
- return -1;
- }
- st_insert(socklist, (st_data_t)pair[0], (st_data_t)0);
- st_insert(socklist, (st_data_t)pair[1], (st_data_t)0);
-
- return 0;
-}
-
-//
-// Networking stubs
-//
-
-void endhostent(void) {}
-void endnetent(void) {}
-void endprotoent(void) {}
-void endservent(void) {}
-
-struct netent *getnetent (void) {return (struct netent *) NULL;}
-
-struct netent *getnetbyaddr(long net, int type) {return (struct netent *)NULL;}
-
-struct netent *getnetbyname(const char *name) {return (struct netent *)NULL;}
-
-struct protoent *getprotoent (void) {return (struct protoent *) NULL;}
-
-struct servent *getservent (void) {return (struct servent *) NULL;}
-
-void sethostent (int stayopen) {}
-
-void setnetent (int stayopen) {}
-
-void setprotoent (int stayopen) {}
-
-void setservent (int stayopen) {}
-
-int
-fcntl(int fd, int cmd, ...)
-{
- SOCKET sock = TO_SOCKET(fd);
- va_list va;
- int arg;
- int ret;
- int flag = 0;
- st_data_t data;
- u_long ioctlArg;
-
- if (!is_socket(sock)) {
- errno = EBADF;
- return -1;
- }
- if (cmd != F_SETFL) {
- errno = EINVAL;
- return -1;
- }
-
- va_start(va, cmd);
- arg = va_arg(va, int);
- va_end(va);
- st_lookup(socklist, (st_data_t)sock, &data);
- flag = (int)data;
- if (arg & O_NONBLOCK) {
- flag |= O_NONBLOCK;
- ioctlArg = 1;
- }
- else {
- flag &= ~O_NONBLOCK;
- ioctlArg = 0;
- }
- RUBY_CRITICAL({
- ret = ioctlsocket(sock, FIONBIO, &ioctlArg);
- if (ret == 0)
- st_insert(socklist, (st_data_t)sock, (st_data_t)flag);
- else
- errno = map_errno(WSAGetLastError());
- });
-
- return ret;
-}
-
-#ifndef WNOHANG
-#define WNOHANG -1
-#endif
-
-static rb_pid_t
-poll_child_status(struct ChildRecord *child, int *stat_loc)
-{
- DWORD exitcode;
- DWORD err;
-
- if (!GetExitCodeProcess(child->hProcess, &exitcode)) {
- /* If an error occured, return immediatly. */
- err = GetLastError();
- if (err == ERROR_INVALID_PARAMETER)
- errno = ECHILD;
- else {
- if (GetLastError() == ERROR_INVALID_HANDLE)
- errno = EINVAL;
- else
- errno = map_errno(GetLastError());
- }
- CloseChildHandle(child);
- return -1;
- }
- if (exitcode != STILL_ACTIVE) {
- /* If already died, return immediatly. */
- rb_pid_t pid = child->pid;
- CloseChildHandle(child);
- if (stat_loc) *stat_loc = exitcode << 8;
- return pid;
- }
- return 0;
-}
-
-rb_pid_t
-waitpid(rb_pid_t pid, int *stat_loc, int options)
-{
- DWORD timeout;
-
- if (options == WNOHANG) {
- timeout = 0;
- } else {
- timeout = INFINITE;
- }
-
- if (pid == -1) {
- int count = 0;
- DWORD ret;
- HANDLE events[MAXCHILDNUM];
-
- FOREACH_CHILD(child) {
- if (!child->pid || child->pid < 0) continue;
- if ((pid = poll_child_status(child, stat_loc))) return pid;
- events[count++] = child->hProcess;
- } END_FOREACH_CHILD;
- if (!count) {
- errno = ECHILD;
- return -1;
- }
-
- ret = rb_w32_wait_events_blocking(events, count, timeout);
- if (ret == WAIT_TIMEOUT) return 0;
- if ((ret -= WAIT_OBJECT_0) == count) {
- return -1;
- }
- if (ret > count) {
- errno = map_errno(GetLastError());
- return -1;
- }
-
- return poll_child_status(ChildRecord + ret, stat_loc);
- }
- else {
- struct ChildRecord* child = FindChildSlot(pid);
- if (!child) {
- errno = ECHILD;
- return -1;
- }
-
- while (!(pid = poll_child_status(child, stat_loc))) {
- /* wait... */
- if (rb_w32_wait_events_blocking(&child->hProcess, 1, timeout) != WAIT_OBJECT_0) {
- /* still active */
- pid = 0;
- break;
- }
- }
- }
-
- return pid;
-}
-
-#include <sys/timeb.h>
-
-int _cdecl
-gettimeofday(struct timeval *tv, struct timezone *tz)
-{
- SYSTEMTIME st;
- time_t t;
- struct tm tm;
-
- GetLocalTime(&st);
- tm.tm_sec = st.wSecond;
- tm.tm_min = st.wMinute;
- tm.tm_hour = st.wHour;
- tm.tm_mday = st.wDay;
- tm.tm_mon = st.wMonth - 1;
- tm.tm_year = st.wYear - 1900;
- tm.tm_isdst = -1;
- t = mktime(&tm);
- tv->tv_sec = t;
- tv->tv_usec = st.wMilliseconds * 1000;
-
- return 0;
-}
-
-char *
-rb_w32_getcwd(char *buffer, int size)
-{
- char *p = buffer;
- char *bp;
- int len;
-
- len = GetCurrentDirectory(0, NULL);
- if (!len) {
- errno = map_errno(GetLastError());
- return NULL;
- }
-
- if (p) {
- if (size < len) {
- errno = ERANGE;
- return NULL;
- }
- }
- else {
- p = malloc(len);
- size = len;
- if (!p) {
- errno = ENOMEM;
- return NULL;
- }
- }
-
- if (!GetCurrentDirectory(size, p)) {
- errno = map_errno(GetLastError());
- if (!buffer)
- free(p);
- return NULL;
- }
-
- for (bp = p; *bp != '\0'; bp = CharNext(bp)) {
- if (*bp == '\\') {
- *bp = '/';
- }
- }
-
- return p;
-}
-
-int
-chown(const char *path, int owner, int group)
-{
- return 0;
-}
-
-int
-kill(int pid, int sig)
-{
- int ret = 0;
- DWORD err;
-
- if (pid <= 0) {
- errno = EINVAL;
- return -1;
- }
-
- if (IsWin95()) pid = -pid;
- if ((unsigned int)pid == GetCurrentProcessId() &&
- (sig != 0 && sig != SIGKILL)) {
- if ((ret = raise(sig)) != 0) {
- /* MSVCRT doesn't set errno... */
- errno = EINVAL;
- }
- return ret;
- }
-
- switch (sig) {
- case 0:
- RUBY_CRITICAL({
- HANDLE hProc =
- OpenProcess(PROCESS_QUERY_INFORMATION, FALSE, (DWORD)pid);
- if (hProc == NULL || hProc == INVALID_HANDLE_VALUE) {
- if (GetLastError() == ERROR_INVALID_PARAMETER) {
- errno = ESRCH;
- }
- else {
- errno = EPERM;
- }
- ret = -1;
- }
- else {
- CloseHandle(hProc);
- }
- });
- break;
-
- case SIGINT:
- RUBY_CRITICAL({
- if (!GenerateConsoleCtrlEvent(CTRL_C_EVENT, (DWORD)pid)) {
- if ((err = GetLastError()) == 0)
- errno = EPERM;
- else
- errno = map_errno(GetLastError());
- ret = -1;
- }
- });
- break;
-
- case SIGKILL:
- RUBY_CRITICAL({
- HANDLE hProc = OpenProcess(PROCESS_TERMINATE, FALSE, (DWORD)pid);
- if (hProc == NULL || hProc == INVALID_HANDLE_VALUE) {
- if (GetLastError() == ERROR_INVALID_PARAMETER) {
- errno = ESRCH;
- }
- else {
- errno = EPERM;
- }
- ret = -1;
- }
- else {
- if (!TerminateProcess(hProc, 0)) {
- errno = EPERM;
- ret = -1;
- }
- CloseHandle(hProc);
- }
- });
- break;
-
- default:
- errno = EINVAL;
- ret = -1;
- break;
- }
-
- return ret;
-}
-
-int
-link(const char *from, const char *to)
-{
- static BOOL (WINAPI *pCreateHardLink)(LPCTSTR, LPCTSTR, LPSECURITY_ATTRIBUTES) = NULL;
- static int myerrno = 0;
-
- if (!pCreateHardLink && !myerrno) {
- HANDLE hKernel;
-
- hKernel = GetModuleHandle("kernel32.dll");
- if (hKernel) {
- pCreateHardLink = (BOOL (WINAPI *)(LPCTSTR, LPCTSTR, LPSECURITY_ATTRIBUTES))GetProcAddress(hKernel, "CreateHardLinkA");
- if (!pCreateHardLink) {
- rb_notimplement();
- }
- }
- else {
- myerrno = map_errno(GetLastError());
- }
- }
- if (!pCreateHardLink) {
- errno = myerrno;
- return -1;
- }
-
- if (!pCreateHardLink(to, from, NULL)) {
- errno = map_errno(GetLastError());
- return -1;
- }
-
- return 0;
-}
-
-int
-wait(int *status)
-{
- return waitpid(-1, status, 0);
-}
-
-char *
-rb_w32_getenv(const char *name)
-{
- int len = strlen(name);
- char *env;
-
- if (envarea)
- FreeEnvironmentStrings(envarea);
- envarea = GetEnvironmentStrings();
- if (!envarea) {
- map_errno(GetLastError());
- return NULL;
- }
-
- for (env = envarea; *env; env += strlen(env) + 1)
- if (strncasecmp(env, name, len) == 0 && *(env + len) == '=')
- return env + len + 1;
-
- return NULL;
-}
-
-int
-rb_w32_rename(const char *oldpath, const char *newpath)
-{
- int res = 0;
- int oldatts;
- int newatts;
-
- oldatts = GetFileAttributes(oldpath);
- newatts = GetFileAttributes(newpath);
-
- if (oldatts == -1) {
- errno = map_errno(GetLastError());
- return -1;
- }
-
- RUBY_CRITICAL({
- if (newatts != -1 && newatts & FILE_ATTRIBUTE_READONLY)
- SetFileAttributesA(newpath, newatts & ~ FILE_ATTRIBUTE_READONLY);
-
- if (!MoveFile(oldpath, newpath))
- res = -1;
-
- if (res) {
- switch (GetLastError()) {
- case ERROR_ALREADY_EXISTS:
- case ERROR_FILE_EXISTS:
- if (IsWinNT()) {
- if (MoveFileEx(oldpath, newpath, MOVEFILE_REPLACE_EXISTING))
- res = 0;
- } else {
- for (;;) {
- if (!DeleteFile(newpath) && GetLastError() != ERROR_FILE_NOT_FOUND)
- break;
- else if (MoveFile(oldpath, newpath)) {
- res = 0;
- break;
- }
- }
- }
- }
- }
-
- if (res)
- errno = map_errno(GetLastError());
- else
- SetFileAttributes(newpath, oldatts);
- });
-
- return res;
-}
-
-static int
-isUNCRoot(const char *path)
-{
- if (path[0] == '\\' && path[1] == '\\') {
- const char *p;
- for (p = path + 2; *p; p = CharNext(p)) {
- if (*p == '\\')
- break;
- }
- if (p[0] && p[1]) {
- for (p++; *p; p = CharNext(p)) {
- if (*p == '\\')
- break;
- }
- if (!p[0] || !p[1] || (p[1] == '.' && !p[2]))
- return 1;
- }
- }
- return 0;
-}
-
-#define COPY_STAT(src, dest) do { \
- (dest).st_dev = (src).st_dev; \
- (dest).st_ino = (src).st_ino; \
- (dest).st_mode = (src).st_mode; \
- (dest).st_nlink = (src).st_nlink; \
- (dest).st_uid = (src).st_uid; \
- (dest).st_gid = (src).st_gid; \
- (dest).st_rdev = (src).st_rdev; \
- (dest).st_size = (src).st_size; \
- (dest).st_atime = (src).st_atime; \
- (dest).st_mtime = (src).st_mtime; \
- (dest).st_ctime = (src).st_ctime; \
- } while (0)
-
-#ifdef __BORLANDC__
-#undef fstat
-int
-rb_w32_fstat(int fd, struct stat *st)
-{
- BY_HANDLE_FILE_INFORMATION info;
- int ret = fstat(fd, st);
-
- if (ret) return ret;
- st->st_mode &= ~(S_IWGRP | S_IWOTH);
- if (GetFileInformationByHandle((HANDLE)_get_osfhandle(fd), &info) &&
- !(info.dwFileAttributes & FILE_ATTRIBUTE_READONLY)) {
- st->st_mode |= S_IWUSR;
- }
- return ret;
-}
-
-int
-rb_w32_fstati64(int fd, struct stati64 *st)
-{
- BY_HANDLE_FILE_INFORMATION info;
- struct stat tmp;
- int ret = fstat(fd, &tmp);
-
- if (ret) return ret;
- tmp.st_mode &= ~(S_IWGRP | S_IWOTH);
- COPY_STAT(tmp, *st);
- if (GetFileInformationByHandle((HANDLE)_get_osfhandle(fd), &info)) {
- if (!(info.dwFileAttributes & FILE_ATTRIBUTE_READONLY)) {
- st->st_mode |= S_IWUSR;
- }
- st->st_size = ((__int64)info.nFileSizeHigh << 32) | info.nFileSizeLow;
- }
- return ret;
-}
-#endif
-
-static time_t
-filetime_to_unixtime(const FILETIME *ft)
-{
- FILETIME loc;
- SYSTEMTIME st;
- struct tm tm;
- time_t t;
-
- if (!FileTimeToLocalFileTime(ft, &loc)) {
- return 0;
- }
- if (!FileTimeToSystemTime(&loc, &st)) {
- return 0;
- }
- memset(&tm, 0, sizeof(tm));
- tm.tm_year = st.wYear - 1900;
- tm.tm_mon = st.wMonth - 1;
- tm.tm_mday = st.wDay;
- tm.tm_hour = st.wHour;
- tm.tm_min = st.wMinute;
- tm.tm_sec = st.wSecond;
- tm.tm_isdst = -1;
- t = mktime(&tm);
- return t == -1 ? 0 : t;
-}
-
-static unsigned
-fileattr_to_unixmode(DWORD attr, const char *path)
-{
- unsigned mode = 0;
-
- if (attr & FILE_ATTRIBUTE_READONLY) {
- mode |= S_IREAD;
- }
- else {
- mode |= S_IREAD | S_IWRITE | S_IWUSR;
- }
-
- if (attr & FILE_ATTRIBUTE_DIRECTORY) {
- mode |= S_IFDIR | S_IEXEC;
- }
- else {
- mode |= S_IFREG;
- }
-
- if (path && (mode & S_IFREG)) {
- const char *end = path + strlen(path);
- while (path < end) {
- end = CharPrev(path, end);
- if (*end == '.') {
- if ((strcmpi(end, ".bat") == 0) ||
- (strcmpi(end, ".cmd") == 0) ||
- (strcmpi(end, ".com") == 0) ||
- (strcmpi(end, ".exe") == 0)) {
- mode |= S_IEXEC;
- }
- break;
- }
- }
- }
-
- mode |= (mode & 0700) >> 3;
- mode |= (mode & 0700) >> 6;
-
- return mode;
-}
-
-static int
-winnt_stat(const char *path, struct stati64 *st)
-{
- HANDLE h;
- WIN32_FIND_DATA wfd;
-
- memset(st, 0, sizeof(*st));
- st->st_nlink = 1;
-
- if (_mbspbrk(path, "?*")) {
- errno = ENOENT;
- return -1;
- }
- h = FindFirstFile(path, &wfd);
- if (h != INVALID_HANDLE_VALUE) {
- FindClose(h);
- st->st_mode = fileattr_to_unixmode(wfd.dwFileAttributes, path);
- st->st_atime = filetime_to_unixtime(&wfd.ftLastAccessTime);
- st->st_mtime = filetime_to_unixtime(&wfd.ftLastWriteTime);
- st->st_ctime = filetime_to_unixtime(&wfd.ftCreationTime);
- st->st_size = ((__int64)wfd.nFileSizeHigh << 32) | wfd.nFileSizeLow;
- }
- else {
- // If runtime stat(2) is called for network shares, it fails on WinNT.
- // Because GetDriveType returns 1 for network shares. (Win98 returns 4)
- DWORD attr = GetFileAttributes(path);
- if (attr == -1) {
- errno = map_errno(GetLastError());
- return -1;
- }
- st->st_mode = fileattr_to_unixmode(attr, path);
- }
-
- st->st_dev = st->st_rdev = (isalpha(path[0]) && path[1] == ':') ?
- toupper(path[0]) - 'A' : _getdrive() - 1;
-
- return 0;
-}
-
-int
-rb_w32_stat(const char *path, struct stat *st)
-{
- struct stati64 tmp;
-
- if (rb_w32_stati64(path, &tmp)) return -1;
- COPY_STAT(tmp, *st);
- return 0;
-}
-
-int
-rb_w32_stati64(const char *path, struct stati64 *st)
-{
- const char *p;
- char *buf1, *s, *end;
- int len, size;
- int ret;
-
- if (!path || !st) {
- errno = EFAULT;
- return -1;
- }
- size = strlen(path) + 2;
- buf1 = ALLOCA_N(char, size);
- for (p = path, s = buf1; *p; p++, s++) {
- if (*p == '/')
- *s = '\\';
- else
- *s = *p;
- }
- *s = '\0';
- len = s - buf1;
- if (!len || '\"' == *(--s)) {
- errno = ENOENT;
- return -1;
- }
- end = CharPrev(buf1, buf1 + len);
-
- if (isUNCRoot(buf1)) {
- if (*end == '.')
- *end = '\0';
- else if (*end != '\\')
- strlcat(buf1, "\\", size);
- }
- else if (*end == '\\' || (buf1 + 1 == end && *end == ':'))
- strlcat(buf1, ".", size);
-
- ret = IsWinNT() ? winnt_stat(buf1, st) : stati64(buf1, st);
- if (ret == 0) {
- st->st_mode &= ~(S_IWGRP | S_IWOTH);
- }
- return ret;
-}
-
-static int
-rb_chsize(HANDLE h, off_t size)
-{
- long upos, lpos, usize, lsize, uend, lend;
- off_t end;
- int ret = -1;
- DWORD e;
-
- if (((lpos = SetFilePointer(h, 0, (upos = 0, &upos), SEEK_CUR)) == -1L &&
- (e = GetLastError())) ||
- ((lend = GetFileSize(h, (DWORD *)&uend)) == -1L && (e = GetLastError()))) {
- errno = map_errno(e);
- return -1;
- }
- end = ((off_t)uend << 32) | (unsigned long)lend;
- usize = (long)(size >> 32);
- lsize = (long)size;
- if (SetFilePointer(h, lsize, &usize, SEEK_SET) == -1L &&
- (e = GetLastError())) {
- errno = map_errno(e);
- }
- else if (!SetEndOfFile(h)) {
- errno = map_errno(GetLastError());
- }
- else {
- ret = 0;
- }
- SetFilePointer(h, lpos, &upos, SEEK_SET);
- return ret;
-}
-
-int
-truncate(const char *path, off_t length)
-{
- HANDLE h;
- int ret;
- if (IsWin95()) {
- int fd = open(path, O_WRONLY), e = 0;
- if (fd == -1) return -1;
- ret = chsize(fd, (unsigned long)length);
- if (ret == -1) e = errno;
- close(fd);
- if (ret == -1) errno = e;
- return ret;
- }
- h = CreateFile(path, GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0);
- if (h == INVALID_HANDLE_VALUE) {
- errno = map_errno(GetLastError());
- return -1;
- }
- ret = rb_chsize(h, length);
- CloseHandle(h);
- return ret;
-}
-
-int
-ftruncate(int fd, off_t length)
-{
- long h;
-
- if (IsWin95()) {
- return chsize(fd, (unsigned long)length);
- }
- h = _get_osfhandle(fd);
- if (h == -1) return -1;
- return rb_chsize((HANDLE)h, length);
-}
-
-#ifdef __BORLANDC__
-off_t
-_filelengthi64(int fd)
-{
- DWORD u, l;
- int e;
-
- l = GetFileSize((HANDLE)_get_osfhandle(fd), &u);
- if (l == (DWORD)-1L && (e = GetLastError())) {
- errno = map_errno(e);
- return (off_t)-1;
- }
- return ((off_t)u << 32) | l;
-}
-
-off_t
-_lseeki64(int fd, off_t offset, int whence)
-{
- long u, l;
- int e;
- HANDLE h = (HANDLE)_get_osfhandle(fd);
-
- if (!h) {
- errno = EBADF;
- return -1;
- }
- u = (long)(offset >> 32);
- if ((l = SetFilePointer(h, (long)offset, &u, whence)) == -1L &&
- (e = GetLastError())) {
- errno = map_errno(e);
- return -1;
- }
- return ((off_t)u << 32) | l;
-}
-#endif
-
-int
-fseeko(FILE *stream, off_t offset, int whence)
-{
- off_t pos;
- switch (whence) {
- case SEEK_CUR:
- if (fgetpos(stream, (fpos_t *)&pos))
- return -1;
- pos += offset;
- break;
- case SEEK_END:
- if ((pos = _filelengthi64(fileno(stream))) == (off_t)-1)
- return -1;
- pos += offset;
- break;
- default:
- pos = offset;
- break;
- }
- return fsetpos(stream, (fpos_t *)&pos);
-}
-
-off_t
-ftello(FILE *stream)
-{
- off_t pos;
- if (fgetpos(stream, (fpos_t *)&pos)) return (off_t)-1;
- return pos;
-}
-
-static long
-filetime_to_clock(FILETIME *ft)
-{
- __int64 qw = ft->dwHighDateTime;
- qw <<= 32;
- qw |= ft->dwLowDateTime;
- qw /= 10000; /* File time ticks at 0.1uS, clock at 1mS */
- return (long) qw;
-}
-
-int
-rb_w32_times(struct tms *tmbuf)
-{
- FILETIME create, exit, kernel, user;
-
- if (GetProcessTimes(GetCurrentProcess(),&create, &exit, &kernel, &user)) {
- tmbuf->tms_utime = filetime_to_clock(&user);
- tmbuf->tms_stime = filetime_to_clock(&kernel);
- tmbuf->tms_cutime = 0;
- tmbuf->tms_cstime = 0;
- }
- else {
- tmbuf->tms_utime = clock();
- tmbuf->tms_stime = 0;
- tmbuf->tms_cutime = 0;
- tmbuf->tms_cstime = 0;
- }
- return 0;
-}
-
-#define yield_once() Sleep(0)
-#define yield_until(condition) do yield_once(); while (!(condition))
-
-static void
-catch_interrupt(void)
-{
- yield_once();
- RUBY_CRITICAL(rb_w32_wait_events(NULL, 0, 0));
-}
-
-#if defined __BORLANDC__ || defined _WIN32_WCE
-#undef read
-int
-read(int fd, void *buf, size_t size)
-{
- int trap_immediate = rb_trap_immediate;
- int ret = _read(fd, buf, size);
- if ((ret < 0) && (errno == EPIPE)) {
- errno = 0;
- ret = 0;
- }
- rb_trap_immediate = trap_immediate;
- catch_interrupt();
- return ret;
-}
-#endif
-
-#undef fgetc
-int
-rb_w32_getc(FILE* stream)
-{
- int c, trap_immediate = rb_trap_immediate;
-#ifndef _WIN32_WCE
- if (enough_to_get(stream->FILE_COUNT)) {
- c = (unsigned char)*stream->FILE_READPTR++;
- rb_trap_immediate = trap_immediate;
- }
- else
-#endif
- {
- c = _filbuf(stream);
-#if defined __BORLANDC__ || defined _WIN32_WCE
- if ((c == EOF) && (errno == EPIPE)) {
- clearerr(stream);
- }
-#endif
- rb_trap_immediate = trap_immediate;
- catch_interrupt();
- }
- return c;
-}
-
-#undef fputc
-int
-rb_w32_putc(int c, FILE* stream)
-{
- int trap_immediate = rb_trap_immediate;
-#ifndef _WIN32_WCE
- if (enough_to_put(stream->FILE_COUNT)) {
- c = (unsigned char)(*stream->FILE_READPTR++ = (char)c);
- rb_trap_immediate = trap_immediate;
- }
- else
-#endif
- {
- c = _flsbuf(c, stream);
- rb_trap_immediate = trap_immediate;
- catch_interrupt();
- }
- return c;
-}
-
-struct asynchronous_arg_t {
- /* output field */
- void* stackaddr;
- int errnum;
-
- /* input field */
- uintptr_t (*func)(uintptr_t self, int argc, uintptr_t* argv);
- uintptr_t self;
- int argc;
- uintptr_t* argv;
-};
-
-static DWORD WINAPI
-call_asynchronous(PVOID argp)
-{
- DWORD ret;
- struct asynchronous_arg_t *arg = argp;
- arg->stackaddr = &argp;
- ret = (DWORD)arg->func(arg->self, arg->argc, arg->argv);
- arg->errnum = errno;
- return ret;
-}
-
-uintptr_t
-rb_w32_asynchronize(asynchronous_func_t func, uintptr_t self,
- int argc, uintptr_t* argv, uintptr_t intrval)
-{
- DWORD val;
- BOOL interrupted = FALSE;
- HANDLE thr;
-
- RUBY_CRITICAL({
- struct asynchronous_arg_t arg;
-
- arg.stackaddr = NULL;
- arg.errnum = 0;
- arg.func = func;
- arg.self = self;
- arg.argc = argc;
- arg.argv = argv;
-
- thr = CreateThread(NULL, 0, call_asynchronous, &arg, 0, &val);
-
- if (thr) {
- yield_until(arg.stackaddr);
-
- if (rb_w32_wait_events_blocking(&thr, 1, INFINITE) != WAIT_OBJECT_0) {
- interrupted = TRUE;
-
- if (TerminateThread(thr, intrval)) {
- yield_once();
- }
- }
-
- GetExitCodeThread(thr, &val);
- CloseHandle(thr);
-
- if (interrupted) {
- /* must release stack of killed thread, why doesn't Windows? */
- MEMORY_BASIC_INFORMATION m;
-
- memset(&m, 0, sizeof(m));
- if (!VirtualQuery(arg.stackaddr, &m, sizeof(m))) {
- Debug(fprintf(stderr, "couldn't get stack base:%p:%d\n",
- arg.stackaddr, GetLastError()));
- }
- else if (!VirtualFree(m.AllocationBase, 0, MEM_RELEASE)) {
- Debug(fprintf(stderr, "couldn't release stack:%p:%d\n",
- m.AllocationBase, GetLastError()));
- }
- errno = EINTR;
- }
- else {
- errno = arg.errnum;
- }
- }
- });
-
- if (!thr) {
- rb_fatal("failed to launch waiter thread:%ld", GetLastError());
- }
-
- return val;
-}
-
-char **
-rb_w32_get_environ(void)
-{
- char *envtop, *env;
- char **myenvtop, **myenv;
- int num;
-
- /*
- * We avoid values started with `='. If you want to deal those values,
- * change this function, and some functions in hash.c which recognize
- * `=' as delimiter or rb_w32_getenv() and ruby_setenv().
- * CygWin deals these values by changing first `=' to '!'. But we don't
- * use such trick and follow cmd.exe's way that just doesn't show these
- * values.
- * (U.N. 2001-11-15)
- */
- envtop = GetEnvironmentStrings();
- for (env = envtop, num = 0; *env; env += strlen(env) + 1)
- if (*env != '=') num++;
-
- myenvtop = (char **)malloc(sizeof(char *) * (num + 1));
- for (env = envtop, myenv = myenvtop; *env; env += strlen(env) + 1) {
- if (*env != '=') {
- if (!(*myenv = strdup(env))) {
- break;
- }
- myenv++;
- }
- }
- *myenv = NULL;
- FreeEnvironmentStrings(envtop);
-
- return myenvtop;
-}
-
-void
-rb_w32_free_environ(char **env)
-{
- char **t = env;
-
- while (*t) free(*t++);
- free(env);
-}
-
-#undef getpid
-rb_pid_t
-rb_w32_getpid(void)
-{
- rb_pid_t pid;
-
- pid = getpid();
-
- if (IsWin95()) pid = -pid;
-
- return pid;
-}
-
-
-rb_pid_t
-rb_w32_getppid(void)
-{
- static long (WINAPI *pNtQueryInformationProcess)(HANDLE, int, void *, ULONG, ULONG *) = NULL;
- rb_pid_t ppid = 0;
-
- if (!IsWin95() && rb_w32_osver() >= 5) {
- if (!pNtQueryInformationProcess) {
- HANDLE hNtDll = GetModuleHandle("ntdll.dll");
- if (hNtDll) {
- pNtQueryInformationProcess = (long (WINAPI *)(HANDLE, int, void *, ULONG, ULONG *))GetProcAddress(hNtDll, "NtQueryInformationProcess");
- if (pNtQueryInformationProcess) {
- struct {
- long ExitStatus;
- void* PebBaseAddress;
- ULONG AffinityMask;
- ULONG BasePriority;
- ULONG UniqueProcessId;
- ULONG ParentProcessId;
- } pbi;
- ULONG len;
- long ret = pNtQueryInformationProcess(GetCurrentProcess(), 0, &pbi, sizeof(pbi), &len);
- if (!ret) {
- ppid = pbi.ParentProcessId;
- }
- }
- }
- }
- }
-
- return ppid;
-}
-
-int
-rb_w32_fclose(FILE *fp)
-{
- int fd = fileno(fp);
- SOCKET sock = TO_SOCKET(fd);
- int save_errno = errno;
-
- if (fflush(fp)) return -1;
- if (!is_socket(sock)) {
- UnlockFile((HANDLE)sock, 0, 0, LK_LEN, LK_LEN);
- return fclose(fp);
- }
- _set_osfhnd(fd, (SOCKET)INVALID_HANDLE_VALUE);
- fclose(fp);
- errno = save_errno;
- if (closesocket(sock) == SOCKET_ERROR) {
- errno = map_errno(WSAGetLastError());
- return -1;
- }
- return 0;
-}
-
-int
-rb_w32_close(int fd)
-{
- SOCKET sock = TO_SOCKET(fd);
- int save_errno = errno;
- st_data_t key;
-
- if (!is_socket(sock)) {
- UnlockFile((HANDLE)sock, 0, 0, LK_LEN, LK_LEN);
- return _close(fd);
- }
- _set_osfhnd(fd, (SOCKET)INVALID_HANDLE_VALUE);
- key = (st_data_t)sock;
- st_delete(socklist, &key, NULL);
- sock = (SOCKET)key;
- _close(fd);
- errno = save_errno;
- if (closesocket(sock) == SOCKET_ERROR) {
- errno = map_errno(WSAGetLastError());
- return -1;
- }
- return 0;
-}
-
-#undef read
-size_t
-rb_w32_read(int fd, void *buf, size_t size)
-{
- SOCKET sock = TO_SOCKET(fd);
-
- if (!is_socket(sock))
- return read(fd, buf, size);
- else
- return rb_w32_recv(fd, buf, size, 0);
-}
-
-#undef write
-size_t
-rb_w32_write(int fd, const void *buf, size_t size)
-{
- SOCKET sock = TO_SOCKET(fd);
-
- if (!is_socket(sock)) {
- size_t ret = write(fd, buf, size);
- if ((int)ret < 0 && errno == EINVAL)
- errno = map_errno(GetLastError());
- return ret;
- }
- else
- return rb_w32_send(fd, buf, size, 0);
-}
-
-static int
-unixtime_to_filetime(time_t time, FILETIME *ft)
-{
- struct tm *tm;
- SYSTEMTIME st;
- FILETIME lt;
-
- tm = localtime(&time);
- st.wYear = tm->tm_year + 1900;
- st.wMonth = tm->tm_mon + 1;
- st.wDayOfWeek = tm->tm_wday;
- st.wDay = tm->tm_mday;
- st.wHour = tm->tm_hour;
- st.wMinute = tm->tm_min;
- st.wSecond = tm->tm_sec;
- st.wMilliseconds = 0;
- if (!SystemTimeToFileTime(&st, &lt) ||
- !LocalFileTimeToFileTime(&lt, ft)) {
- errno = map_errno(GetLastError());
- return -1;
- }
- return 0;
-}
-
-int
-rb_w32_utime(const char *path, const struct utimbuf *times)
-{
- HANDLE hFile;
- FILETIME atime, mtime;
- struct stati64 stat;
- int ret = 0;
-
- if (rb_w32_stati64(path, &stat)) {
- return -1;
- }
-
- if (times) {
- if (unixtime_to_filetime(times->actime, &atime)) {
- return -1;
- }
- if (unixtime_to_filetime(times->modtime, &mtime)) {
- return -1;
- }
- }
- else {
- GetSystemTimeAsFileTime(&atime);
- mtime = atime;
- }
-
- RUBY_CRITICAL({
- const DWORD attr = GetFileAttributes(path);
- if (attr != (DWORD)-1 && (attr & FILE_ATTRIBUTE_READONLY))
- SetFileAttributes(path, attr & ~FILE_ATTRIBUTE_READONLY);
- hFile = CreateFile(path, GENERIC_WRITE, 0, 0, OPEN_EXISTING,
- IsWin95() ? 0 : FILE_FLAG_BACKUP_SEMANTICS, 0);
- if (hFile == INVALID_HANDLE_VALUE) {
- errno = map_errno(GetLastError());
- ret = -1;
- }
- else {
- if (!SetFileTime(hFile, NULL, &atime, &mtime)) {
- errno = map_errno(GetLastError());
- ret = -1;
- }
- CloseHandle(hFile);
- }
- if (attr != (DWORD)-1 && (attr & FILE_ATTRIBUTE_READONLY))
- SetFileAttributes(path, attr);
- });
-
- return ret;
-}
-
-int
-rb_w32_vsnprintf(char *buf, size_t size, const char *format, va_list va)
-{
- int ret = _vsnprintf(buf, size, format, va);
- if (size > 0) buf[size - 1] = 0;
- return ret;
-}
-
-int
-rb_w32_snprintf(char *buf, size_t size, const char *format, ...)
-{
- int ret;
- va_list va;
-
- va_start(va, format);
- ret = vsnprintf(buf, size, format, va);
- va_end(va);
- return ret;
-}
-
-int
-rb_w32_mkdir(const char *path, int mode)
-{
- int ret = -1;
- RUBY_CRITICAL(do {
- if (CreateDirectory(path, NULL) == FALSE) {
- errno = map_errno(GetLastError());
- break;
- }
- if (chmod(path, mode) == -1) {
- RemoveDirectory(path);
- break;
- }
- ret = 0;
- } while (0));
- return ret;
-}
-
-int
-rb_w32_rmdir(const char *path)
-{
- int ret = 0;
- RUBY_CRITICAL({
- const DWORD attr = GetFileAttributes(path);
- if (attr != (DWORD)-1 && (attr & FILE_ATTRIBUTE_READONLY)) {
- SetFileAttributes(path, attr & ~FILE_ATTRIBUTE_READONLY);
- }
- if (RemoveDirectory(path) == FALSE) {
- errno = map_errno(GetLastError());
- ret = -1;
- if (attr != (DWORD)-1 && (attr & FILE_ATTRIBUTE_READONLY)) {
- SetFileAttributes(path, attr);
- }
- }
- });
- return ret;
-}
-
-int
-rb_w32_unlink(const char *path)
-{
- int ret = 0;
- RUBY_CRITICAL({
- const DWORD attr = GetFileAttributes(path);
- if (attr != (DWORD)-1 && (attr & FILE_ATTRIBUTE_READONLY)) {
- SetFileAttributes(path, attr & ~FILE_ATTRIBUTE_READONLY);
- }
- if (DeleteFile(path) == FALSE) {
- errno = map_errno(GetLastError());
- ret = -1;
- if (attr != (DWORD)-1 && (attr & FILE_ATTRIBUTE_READONLY)) {
- SetFileAttributes(path, attr);
- }
- }
- });
- return ret;
-}
-
-#if !defined(__BORLANDC__) && !defined(_WIN32_WCE)
-int
-rb_w32_isatty(int fd)
-{
- if (!(_osfile(fd) & FOPEN)) {
- errno = EBADF;
- return 0;
- }
- if (!(_osfile(fd) & FDEV)) {
- errno = ENOTTY;
- return 0;
- }
- return 1;
-}
-#endif
-
-//
-// Fix bcc32's stdio bug
-//
-
-#ifdef __BORLANDC__
-static int
-too_many_files(void)
-{
- FILE *f;
- for (f = _streams; f < _streams + _nfile; f++) {
- if (f->fd < 0) return 0;
- }
- return 1;
-}
-
-#undef fopen
-FILE *
-rb_w32_fopen(const char *path, const char *mode)
-{
- FILE *f = (errno = 0, fopen(path, mode));
- if (f == NULL && errno == 0) {
- if (too_many_files())
- errno = EMFILE;
- }
- return f;
-}
-
-FILE *
-rb_w32_fdopen(int handle, const char *type)
-{
- FILE *f = (errno = 0, _fdopen(handle, (char *)type));
- if (f == NULL && errno == 0) {
- if (handle < 0)
- errno = EBADF;
- else if (too_many_files())
- errno = EMFILE;
- }
- return f;
-}
-
-FILE *
-rb_w32_fsopen(const char *path, const char *mode, int shflags)
-{
- FILE *f = (errno = 0, _fsopen(path, mode, shflags));
- if (f == NULL && errno == 0) {
- if (too_many_files())
- errno = EMFILE;
- }
- return f;
-}
-#endif
diff --git a/trunk/win32/winmain.c b/trunk/win32/winmain.c
deleted file mode 100644
index 467a835d29..0000000000
--- a/trunk/win32/winmain.c
+++ /dev/null
@@ -1,10 +0,0 @@
-#include <windows.h>
-#include <stdio.h>
-
-extern int main(int, char**);
-
-int WINAPI
-WinMain(HINSTANCE current, HINSTANCE prev, LPSTR cmdline, int showcmd)
-{
- return main(0, NULL);
-}
generated by cgit v1.2.3 (git 2.25.1) at 2024-05-19 04:49:49 +0000