[win32] support getlogin()

[p5sagit/p5-mst-13.2.git] / win32 / config_H.bc

diff --git a/win32/config_H.bc b/win32/config_H.bc
index 5976289..846d81d 100644 (file)
--- a/win32/config_H.bc
+++ b/win32/config_H.bc
@@ -10,8 +10,8 @@
  * $Id: Config_h.U,v 3.0.1.4 1995/09/25 09:10:49 ram Exp $
  */
 
-/* Configuration time: Thu Apr 11 06:20:49 PDT 1996
- * Configured by: garyng
+/* Configuration time: undef
+ * Configured by: nick
  * Target system: 
  */
 
@@ -47,7 +47,7 @@
  *     where library files may be held under a private library, for
  *     instance.
  */
-#define ARCHNAME "MSWin32"             /**/
+#define ARCHNAME "MSWin32-x86-thread"          /**/
 
 /* BIN:
  *     This symbol holds the path of the bin directory where the package will
@@ -311,6 +311,36 @@
  */
 /*#define HAS_GETHOSTENT               /**/
 
+/* HAS_GETHBADD:
+ *     This symbol, if defined, indicates that the gethostbyaddr routine is
+ *     available to lookup host names by their IP addresses.
+ */
+/*#define HAS_GETHBADD         /**/
+
+/* Gethbadd_addr_t:
+ *     This symbol holds the type used for the 1st argument
+ *     to gethostbyaddr().
+ */
+#define Gethbadd_addr_t                char *
+
+/* Gethbadd_alen_t:
+ *     This symbol holds the type used for the 2nd argument
+ *     to gethostbyaddr().
+ */
+#define Gethbadd_alen_t                int
+
+/* HAS_GETNBADD:
+ *     This symbol, if defined, indicates that the getnetbyaddr routine is
+ *     available to lookup networks by their IP addresses.
+ */
+/*#define HAS_GETNBADD         /**/
+
+/* Gethbadd_net_t:
+ *     This symbol holds the type used for the 1st argument
+ *     to getnetbyaddr().
+ */
+#define Getnbadd_net_t         long
+
 /* HAS_UNAME:
  *     This symbol, if defined, indicates that the C program may use the
  *     uname() routine to derive the host name.  See also HAS_GETHOSTNAME
@@ -322,7 +352,7 @@
  *     This symbol, if defined, indicates that the getlogin routine is
  *     available to get the login name.
  */
-/*#define HAS_GETLOGIN         /**/
+#define HAS_GETLOGIN           /**/
 
 /* HAS_GETPGRP2:
  *     This symbol, if defined, indicates that the getpgrp2() (as in DG/UX)
@@ -1099,6 +1129,12 @@
  */
 /*#define I_NETINET_IN /**/
 
+/* I_NETDB:
+ *     This symbol, if defined, indicates that <netdb.h> exists and 
+ *     should be included.
+ */
+/*#define I_NETDB              /**/
+
 /* I_PWD:
  *     This symbol, if defined, indicates to the C program that it should
  *     include <pwd.h>.
@@ -1372,7 +1408,7 @@
  *     is defined, and 'int *' otherwise.  This is only useful if you 
  *     have select(), of course.
  */
-#define Select_fd_set_t        int *   /**/
+#define Select_fd_set_t        Perl_fd_set *   /**/
 
 /* Size_t:
  *     This symbol holds the type used to declare length parameters
@@ -1430,8 +1466,8 @@
  *     This symbol contains the ~name expanded version of ARCHLIB, to be used
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
-#define ARCHLIB "c:\\perl\\lib"                /**/
-#define ARCHLIB_EXP (win32PerlLibPath())       /**/
+#define ARCHLIB "c:\\perl\\lib\\MSWin32-x86-thread"            /**/
+#define ARCHLIB_EXP (win32PerlLibPath(ARCHNAME,NULL))  /**/
 
 /* BINCOMPAT3:
  *     This symbol, if defined, indicates that Perl 5.004 should be
@@ -1511,7 +1547,7 @@
  *             d_Gconvert='sprintf((b),"%.*g",(n),(x))'
  *     The last two assume trailing zeros should not be kept.
  */
-#define Gconvert(x,n,t,b) sprintf((b),"%.*g",(n),(x))
+#define Gconvert(x,n,t,b) gcvt((x),(n),(b))
 
 /* HAS_GETPGID:
  *     This symbol, if defined, indicates to the C program that 
@@ -1650,7 +1686,7 @@
 /* MYMALLOC:
  *     This symbol, if defined, indicates that we're using our own malloc.
  */
-/*#define MYMALLOC                     /**/
+#define MYMALLOC                       /**/
 
 /* OLDARCHLIB:
  *     This variable, if defined, holds the name of the directory in
@@ -1678,7 +1714,7 @@
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
 #define PRIVLIB "c:\\perl\\lib"                /**/
-#define PRIVLIB_EXP "c:\\perl\\lib"            /**/
+#define PRIVLIB_EXP (win32PerlLibPath(NULL))   /**/
 
 /* SH_PATH:
  *     This symbol contains the full pathname to the shell used on this
@@ -1734,7 +1770,7 @@
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
 #define SITEARCH "c:\\perl\\lib\\site"         /**/
-#define SITEARCH_EXP "c:\\perl\\lib\\site"             /**/
+#define SITEARCH_EXP (win32PerlLibPath("site",ARCHNAME,NULL))  /**/
 
 /* SITELIB:
  *     This symbol contains the name of the private library for this package.
@@ -1750,14 +1786,14 @@
  *     in programs that are not prepared to deal with ~ expansion at run-time.
  */
 #define SITELIB "c:\\perl\\lib\\site"          /**/
-#define SITELIB_EXP "c:\\perl\\lib\\site"              /**/
+#define SITELIB_EXP (win32PerlLibPath("site",NULL))    /**/
 
 /* STARTPERL:
  *     This variable contains the string to put in front of a perl
  *     script to make sure (one hopes) that it runs with perl and not
  *     some shell.
  */
-#define STARTPERL "#perl"              /**/
+#define STARTPERL "#!perl"             /**/
 
 /* USE_PERLIO:
  *     This symbol, if defined, indicates that the PerlIO abstraction should