home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / lang / tcl / 2147 < prev    next >
Encoding:
Text File  |  1992-12-21  |  2.9 KB  |  84 lines
  1. Newsgroups: comp.lang.tcl
  2. Path: sparky!uunet!mcsun!sunic!dkuug!daimi!tthorn
  3. From: tthorn@daimi.aau.dk (Tommy Thorn)
  4. Subject: patch to tk3.0 for HP-UX 8.0
  5. Message-ID: <1992Dec18.152612.23246@daimi.aau.dk>
  6. Sender: news@daimi.aau.dk
  7. Organization: DAIMI: Computer Science Department, Aarhus University, Denmark
  8. Date: Fri, 18 Dec 92 15:26:12 GMT
  9. Lines: 73
  10.  
  11. This is my attempt to compile tk3.0 on a snake (hp9000s700) with gcc 2.3.2
  12.  
  13.   make
  14.         gcc -O6 -I. -DTCL_LIBRARY=\"/users/tthorn/lib/tcl\" -c tclExpr.c
  15.   In file included from tclExpr.c:33:
  16.   tclUnix.h:297: conflicting types for `fseek'
  17.   /usr/local/include/stdio.h:136: previous declaration of `fseek'
  18.  
  19. int/long return type conflict. Fix: #if'defed
  20.  
  21.         gcc -O6 -I. -DTCL_LIBRARY=\"/users/tthorn/lib/tcl\" -c tclTest.c
  22.   tclTest.c:28: macro `Tcl_DumpActiveMemory' used without args
  23.  
  24. Fix: /* xx */
  25.  
  26. Passed all tests in tests.
  27.  
  28.   cd ..
  29.   make
  30.         gcc -I. -Itcl -O6 -DTK_LIBRARY=\"/users/tthorn/lib/tk\" -c tk3d.c
  31.   In file included from tk3d.c:21:
  32.   tkConfig.h:123: conflicting types for `select'
  33.   /usr/local/include/sys/time.h:146: previous declaration of `select'
  34.  
  35. Fix: #ifdef'ed select in tkConfig.h
  36.  
  37. As a patch to tk3.0:
  38. -----------------------------------------------------------
  39. diff -u +recur tk3.0/tcl/tclTest.c tk3.0-hpux/tcl/tclTest.c
  40. --- tk3.0/tcl/tclTest.c    Sun Dec 13 02:19:03 1992
  41. +++ tk3.0-hpux/tcl/tclTest.c    Fri Dec 18 11:58:21 1992
  42. @@ -25,7 +25,7 @@
  43.  #include <stdlib.h>
  44.  #include "tcl.h"
  45.  
  46. -extern int Tcl_DumpActiveMemory();
  47. +/*extern int Tcl_DumpActiveMemory();*/
  48.  
  49.  Tcl_Interp *interp;
  50.  Tcl_CmdBuf buffer;
  51. diff -u +recur tk3.0/tcl/tclUnix.h tk3.0-hpux/tcl/tclUnix.h
  52. --- tk3.0/tcl/tclUnix.h    Sat Aug 22 00:59:18 1992
  53. +++ tk3.0-hpux/tcl/tclUnix.h    Fri Dec 18 11:53:14 1992
  54. @@ -294,7 +294,9 @@
  55.  extern int    execvp       _ANSI_ARGS_((CONST char *name, char **argv));
  56.  extern void    _exit        _ANSI_ARGS_((int status));
  57.  extern pid_t    fork       _ANSI_ARGS_((void));
  58. +#ifndef __hpux__
  59.  extern long    fseek       _ANSI_ARGS_((FILE *stream, long offset, int base));
  60. +#endif
  61.  extern uid_t    geteuid       _ANSI_ARGS_((void));
  62.  extern pid_t    getpid       _ANSI_ARGS_((void));
  63.  extern char *    getcwd        _ANSI_ARGS_((char *buffer, int size));
  64. Only in tk3.0-hpux/tcl: tclUnix.h.bak
  65. diff -u +recur tk3.0/tkConfig.h tk3.0-hpux/tkConfig.h
  66. --- tk3.0/tkConfig.h    Wed Nov 11 00:11:22 1992
  67. +++ tk3.0-hpux/tkConfig.h    Fri Dec 18 14:19:24 1992
  68. @@ -118,8 +118,10 @@
  69.  #endif
  70.  extern void        panic _ANSI_ARGS_(VARARGS);
  71.  extern int        read _ANSI_ARGS_((int fd, char *buf, int numBytes));
  72. +#ifndef __hpux__
  73.  extern int        select _ANSI_ARGS_((int nfds, SELECT_MASK *readfds,
  74.                  SELECT_MASK *writefds, SELECT_MASK *exceptfds,
  75.                  struct timeval *timeout));
  76. +#endif
  77.  
  78.  #endif /* _TKCONFIG */
  79. --------------------------------------------------------
  80. -- 
  81. Tommy.Thorn@daimi.aau.dk | If you use a PC consider upgrading to a real OS.
  82. Join the League for Pro- | Linux is Posix (Unix). It has GCC,Emacs,X11,TCP,NFS,
  83. gramming Freedom, LPF    | Doc,Interviews,Prolog...(you name it) and it's free!
  84.