Changeset 733

Show
Ignore:
Timestamp:
09/10/98 14:47:21 (16 years ago)
Author:
ucackha
Message:

Updated for windows and tcl/tk8

Location:
vic/trunk
Files:
6 modified

Legend:

Unmodified
Added
Removed
  • vic/trunk/iohandler.cc

    r702 r733  
    4343 
    4444#ifdef WIN32 
    45 extern "C" HINSTANCE TkWinGetAppInstance(); 
     45extern "C" HINSTANCE Tk_GetHINSTANCE(); 
    4646 
    4747LRESULT CALLBACK 
     
    9191    cl.cbClsExtra = 0; 
    9292    cl.cbWndExtra = 0; 
    93     cl.hInstance = TkWinGetAppInstance(); 
     93    cl.hInstance = Tk_GetHINSTANCE(); 
    9494    cl.hIcon = NULL; 
    9595    cl.hCursor = NULL; 
     
    122122                             CW_USEDEFAULT, CW_USEDEFAULT, 1, 1, 
    123123                             NULL, 
    124                              NULL, TkWinGetAppInstance(), this); 
     124                             NULL, Tk_GetHINSTANCE(), this); 
    125125 
    126126        ShowWindow(hwnd_, SW_HIDE); 
  • vic/trunk/main.cc

    r729 r733  
    178178                        Tk_Window tk = t.tkmain(); 
    179179                        Tk_Uid uid = Tk_GetUid((char*)argv[1]); 
    180                         XFontStruct* p = Tk_GetFontStruct(t.interp(), tk, uid); 
     180                        Tk_Font p = Tk_GetFont(t.interp(), tk, uid); 
    181181                        t.result(p != 0 ? "1" : "0"); 
    182182                } 
     
    427427        signal(SIGTERM, ciao); 
    428428 
    429 #ifdef WIN32 
     429#ifdef WIN32_NOT 
    430430        TkSetPlatformInit(TkPlatformInit); 
    431431#endif 
  • vic/trunk/mbus.h

    r732 r733  
    4343#include "iohandler.h" 
    4444#include "mbus_engine.h" 
    45 #ifdef win32 
     45#ifdef WIN32 
    4646#include <winsock.h> 
    4747#endif 
  • vic/trunk/source.cc

    r721 r733  
    601601 
    602602 
    603 inline u_int32_t  
     603u_int32_t  
    604604Source::convert_time(u_int32_t ts) 
    605605{ 
  • vic/trunk/source.h

    r721 r733  
    231231 
    232232        // DMIRAS: This bit for the elastic buffer 
    233         inline u_int32_t convert_time(u_int32_t ts); 
     233        u_int32_t convert_time(u_int32_t ts); 
    234234         
    235235        void add(u_char *pckt, struct rtphdr* rh, u_char *vh, 
  • vic/trunk/win32.c

    r702 r733  
    110110{ 
    111111    if (p) { 
    112         extern void TclGetTime(Tcl_Time*); 
     112        extern void TclpGetTime(Tcl_Time*); 
    113113        Tcl_Time tt; 
    114114 
    115         TclGetTime(&tt); 
     115        TclpGetTime(&tt); 
    116116        p->tv_sec = tt.sec; 
    117117        p->tv_usec = tt.usec; 
     
    286286 
    287287int 
    288 WinPutsCmd(clientData, interp, argc, argv) 
    289     ClientData clientData;              /* ConsoleInfo pointer. */ 
    290     Tcl_Interp *interp;                 /* Current interpreter. */ 
    291     int argc;                           /* Number of arguments. */ 
    292     char **argv;                        /* Argument strings. */ 
    293 { 
     288WinPutsCmd(ClientData clientData, Tcl_Interp *interp, int argc, char **argv) 
     289{ 
     290    FILE *f; 
    294291    int i, newline; 
    295292    char *fileId; 
     
    329326    if (strcmp(fileId, "stdout") == 0 || strcmp(fileId, "stderr") == 0) { 
    330327        char *result; 
    331         int level; 
    332          
     328 
    333329        if (newline) { 
    334330            int len = strlen(argv[i]); 
     
    340336            result = argv[i]; 
    341337        } 
    342         if (strcmp(fileId, "stdout") == 0) { 
    343             level = MB_ICONINFORMATION; 
    344         } else { 
    345             level = MB_ICONERROR; 
    346         } 
    347338        OutputDebugString(result); 
    348         ShowMessage(level, result); 
    349339        if (newline) 
    350340            ckfree(result); 
     341    } else { 
    351342        return TCL_OK; 
    352     } else { 
    353         extern int Tcl_PutsCmd(ClientData clientData, Tcl_Interp *interp, 
    354                                int argc, char **argv); 
    355  
    356         return (Tcl_PutsCmd(clientData, interp, argc, argv)); 
    357     } 
     343        clearerr(f); 
     344        fputs(argv[i], f); 
     345        if (newline) { 
     346            fputc('\n', f); 
     347        } 
     348        if (ferror(f)) { 
     349            Tcl_AppendResult(interp, "error writing \"", fileId, 
     350                    "\": ", Tcl_PosixError(interp), (char *) NULL); 
     351            return TCL_ERROR; 
     352        } 
     353    } 
     354    return TCL_OK; 
    358355} 
    359356