let bundled tcl compile with recent tools

diff --git a/src/tcl/tclunix.h b/src/tcl/tclunix.h
index a4c5cabfd8a5b52b27bd43082d64203fdf024f18..daa298c291ff879ad583f39918eac6312ac963c8 100644 (file)
--- a/src/tcl/tclunix.h
+++ b/src/tcl/tclunix.h
@@ -101,7 +101,7 @@
  */
 
 extern int errno;
  */
 
 extern int errno;

-extern int sys_nerr;
+//extern int sys_nerr;

 //#ifndef IS_LINUX
 //extern char *sys_errlist[];
 //#endif
 //#ifndef IS_LINUX
 //extern char *sys_errlist[];
 //#endif

diff --git a/src/tclx/ossupp/makefile b/src/tclx/ossupp/makefile
index a01156feb18fd9fdc0f5f135acdb402ffe15371b..5c2ebbadbe7864451f34cbf568786d25c27bd988 100644 (file)
--- a/src/tclx/ossupp/makefile
+++ b/src/tclx/ossupp/makefile
@@ -30,7 +30,7 @@ CFLAGS=$(OPTIMIZE_FLAG) $(XCFLAGS) -I../$(TCL_UCB_DIR) $(MEM_DEBUG_FLAGS) \
 all: made.tmp
 
 made.tmp: $(SUPPORT_OBJS)
 all: made.tmp
 
 made.tmp: $(SUPPORT_OBJS)

-       $(AR) cr ../libtcl.a $(SUPPORT_OBJS)
+       #$(AR) cr ../libtcl.a $(SUPPORT_OBJS)

        touch made.tmp
 
 #------------------------------------------------------------------------------
        touch made.tmp
 
 #------------------------------------------------------------------------------

diff --git a/src/tclx/src/tclxgdat.y b/src/tclx/src/tclxgdat.y
index 69575370721c6f06632cb2e29c8e2289d96cab9f..e29d7ead98a87d8a48e49c2edbed0248e937eef9 100644 (file)
--- a/src/tclx/src/tclxgdat.y
+++ b/src/tclx/src/tclxgdat.y
@@ -64,78 +64,78 @@
 timedate:               /* empty */
         | timedate item;
 
 timedate:               /* empty */
         | timedate item;
 

-item:   tspec =
+item:   tspec 

                 {timeflag++;}
                 {timeflag++;}

-        | zone =
+        | zone 

                 {zoneflag++;}
                 {zoneflag++;}

-        | dtspec =
+        | dtspec 

                 {dateflag++;}
                 {dateflag++;}

-        | dyspec =
+        | dyspec 

                 {dayflag++;}
                 {dayflag++;}

-        | rspec =
+        | rspec 

                 {relflag++;}
         | nspec;
 
                 {relflag++;}
         | nspec;
 

-nspec:  NUMBER =
+nspec:  NUMBER 

                 {if (timeflag && dateflag && !relflag) year = $1;
                 else {timeflag++;hh = $1/100;mm = $1%100;ss = 0;merid = 24;}};
 
                 {if (timeflag && dateflag && !relflag) year = $1;
                 else {timeflag++;hh = $1/100;mm = $1%100;ss = 0;merid = 24;}};
 

-tspec:  NUMBER MERIDIAN =
+tspec:  NUMBER MERIDIAN

                 {hh = $1; mm = 0; ss = 0; merid = $2;}
                 {hh = $1; mm = 0; ss = 0; merid = $2;}

-        | NUMBER ':' NUMBER =
+        | NUMBER ':' NUMBER

                 {hh = $1; mm = $3; merid = 24;}
                 {hh = $1; mm = $3; merid = 24;}

-        | NUMBER ':' NUMBER MERIDIAN =
+        | NUMBER ':' NUMBER MERIDIAN

                 {hh = $1; mm = $3; merid = $4;}
                 {hh = $1; mm = $3; merid = $4;}

-        | NUMBER ':' NUMBER NUMBER =
+        | NUMBER ':' NUMBER NUMBER

                 {hh = $1; mm = $3; merid = 24;
                 dayLight = STANDARD; ourzone = -($4%100 + 60*$4/100);}
                 {hh = $1; mm = $3; merid = 24;
                 dayLight = STANDARD; ourzone = -($4%100 + 60*$4/100);}

-        | NUMBER ':' NUMBER ':' NUMBER =
+        | NUMBER ':' NUMBER ':' NUMBER

                 {hh = $1; mm = $3; ss = $5; merid = 24;}
                 {hh = $1; mm = $3; ss = $5; merid = 24;}

-        | NUMBER ':' NUMBER ':' NUMBER MERIDIAN =
+        | NUMBER ':' NUMBER ':' NUMBER MERIDIAN

                 {hh = $1; mm = $3; ss = $5; merid = $6;}
                 {hh = $1; mm = $3; ss = $5; merid = $6;}

-        | NUMBER ':' NUMBER ':' NUMBER NUMBER =
+        | NUMBER ':' NUMBER ':' NUMBER NUMBER

                 {hh = $1; mm = $3; ss = $5; merid = 24;
                 dayLight = STANDARD; ourzone = -($6%100 + 60*$6/100);};
 
                 {hh = $1; mm = $3; ss = $5; merid = 24;
                 dayLight = STANDARD; ourzone = -($6%100 + 60*$6/100);};
 

-zone:   ZONE =
+zone:   ZONE

                 {ourzone = $1; dayLight = STANDARD;}
                 {ourzone = $1; dayLight = STANDARD;}

-        | DAYZONE =
+        | DAYZONE

                 {ourzone = $1; dayLight = DAYLIGHT;};
 
                 {ourzone = $1; dayLight = DAYLIGHT;};
 

-dyspec: DAY =
+dyspec: DAY

                 {dayord = 1; dayreq = $1;}
                 {dayord = 1; dayreq = $1;}

-        | DAY ',' =
+        | DAY ','

                 {dayord = 1; dayreq = $1;}
                 {dayord = 1; dayreq = $1;}

-        | NUMBER DAY =
+        | NUMBER DAY

                 {dayord = $1; dayreq = $2;};
 
                 {dayord = $1; dayreq = $2;};
 

-dtspec: NUMBER '/' NUMBER =
+dtspec: NUMBER '/' NUMBER

                 {month = $1; day = $3;}
                 {month = $1; day = $3;}

-        | NUMBER '/' NUMBER '/' NUMBER =
+        | NUMBER '/' NUMBER '/' NUMBER

                 {month = $1; day = $3; year = $5;}
                 {month = $1; day = $3; year = $5;}

-        | MONTH NUMBER =
+        | MONTH NUMBER

                 {month = $1; day = $2;}
                 {month = $1; day = $2;}

-        | MONTH NUMBER ',' NUMBER =
+        | MONTH NUMBER ',' NUMBER

                 {month = $1; day = $2; year = $4;}
                 {month = $1; day = $2; year = $4;}

-        | NUMBER MONTH =
+        | NUMBER MONTH

                 {month = $2; day = $1;}
                 {month = $2; day = $1;}

-        | NUMBER MONTH NUMBER =
+        | NUMBER MONTH NUMBER

                 {month = $2; day = $1; year = $3;};
 
 
                 {month = $2; day = $1; year = $3;};
 
 

-rspec:  NUMBER UNIT =
+rspec:  NUMBER UNIT

                 {relsec +=  60L * $1 * $2;}
                 {relsec +=  60L * $1 * $2;}

-        | NUMBER MUNIT =
+        | NUMBER MUNIT

                 {relmonth += $1 * $2;}
                 {relmonth += $1 * $2;}

-        | NUMBER SUNIT =
+        | NUMBER SUNIT

                 {relsec += $1;}
                 {relsec += $1;}

-        | UNIT =
+        | UNIT

                 {relsec +=  60L * $1;}
                 {relsec +=  60L * $1;}

-        | MUNIT =
+        | MUNIT

                 {relmonth += $1;}
                 {relmonth += $1;}

-        | SUNIT =
+        | SUNIT

                 {relsec++;}
                 {relsec++;}

-        | rspec AGO =
+        | rspec AGO

                 {relsec = -relsec; relmonth = -relmonth;};
 %%
 
                 {relsec = -relsec; relmonth = -relmonth;};
 %%
 


@@ -228,7 +228,7 @@ time_t daylcorr(future, now) time_t future, now;
 
 static char *lptr;
 
 
 static char *lptr;
 

-static
+//static

 yylex()
 {
 #ifndef YYSTYPE
 yylex()
 {
 #ifndef YYSTYPE

diff --git a/src/tclx/src/tclxint.h b/src/tclx/src/tclxint.h
index 6a1dfee2f54a69a3a3eb62c55bf468adb2213e26..5cacb4800be1653fa67e16e1fc0c21089192d595 100644 (file)
--- a/src/tclx/src/tclxint.h
+++ b/src/tclx/src/tclxint.h
@@ -67,7 +67,10 @@
 #    include <sys/times.h>
 #endif 
 
 #    include <sys/times.h>
 #endif 
 

-#include <values.h>
+//#include "values.h"
+#include <limits.h>
+#include <float.h>
+#define MAXDOUBLE       DBL_MAX

 #include <grp.h>
 /*
  * On some systems this is not included by tclUnix.h.
 #include <grp.h>
 /*
  * On some systems this is not included by tclUnix.h.