diff options
| author | davygrvy <davygrvy@pobox.com> | 2001-09-06 00:39:59 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2001-09-06 00:39:59 (GMT) |
| commit | 7128255d3077088ff7154ac8da168469a0a4d7d8 (patch) | |
| tree | a0ad87d0d7e74f6bab8b433b5cf00ce04bf198d5 /generic/tclPlatDecls.h | |
| parent | 21d9b73e7f3b78beaddbca2dba1e19b4bc98b470 (diff) | |
| download | tcl-7128255d3077088ff7154ac8da168469a0a4d7d8.zip tcl-7128255d3077088ff7154ac8da168469a0a4d7d8.tar.gz tcl-7128255d3077088ff7154ac8da168469a0a4d7d8.tar.bz2 | |
* generic/tclPlatDecls.h: Another small trim finalizing Borland support.
Diffstat (limited to 'generic/tclPlatDecls.h')
| -rw-r--r-- | generic/tclPlatDecls.h | 27 |
1 files changed, 14 insertions, 13 deletions
diff --git a/generic/tclPlatDecls.h b/generic/tclPlatDecls.h index 0201034..215eb8e 100644 --- a/generic/tclPlatDecls.h +++ b/generic/tclPlatDecls.h @@ -6,7 +6,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclPlatDecls.h,v 1.9 2001/09/05 03:34:22 davygrvy Exp $ + * RCS: @(#) $Id: tclPlatDecls.h,v 1.10 2001/09/06 00:39:59 davygrvy Exp $ */ #ifndef _TCLPLATDECLS @@ -20,7 +20,8 @@ #if defined(__WIN32__) && (!defined(_TCHAR_DEFINED) && !defined(__TCHAR_DEFINED)) # include <tchar.h> # ifndef _TCHAR_DEFINED - /* tchar.h doesn't set this. winnt.h checks this. */ + /* Borland seems to forget to set this. */ + typedef wchar_t TCHAR; # define _TCHAR_DEFINED # endif #endif @@ -33,42 +34,42 @@ #ifdef __WIN32__ /* 0 */ -EXTERN TCHAR * Tcl_WinUtfToTChar _ANSI_ARGS_((CONST char * str, +EXTERN(TCHAR *) Tcl_WinUtfToTChar _ANSI_ARGS_((CONST char * str, int len, Tcl_DString * dsPtr)); /* 1 */ -EXTERN char * Tcl_WinTCharToUtf _ANSI_ARGS_((CONST TCHAR * str, +EXTERN(char *) Tcl_WinTCharToUtf _ANSI_ARGS_((CONST TCHAR * str, int len, Tcl_DString * dsPtr)); #endif /* __WIN32__ */ #ifdef MAC_TCL /* 0 */ -EXTERN void Tcl_MacSetEventProc _ANSI_ARGS_(( +EXTERN(void) Tcl_MacSetEventProc _ANSI_ARGS_(( Tcl_MacConvertEventPtr procPtr)); /* 1 */ -EXTERN char * Tcl_MacConvertTextResource _ANSI_ARGS_(( +EXTERN(char *) Tcl_MacConvertTextResource _ANSI_ARGS_(( Handle resource)); /* 2 */ -EXTERN int Tcl_MacEvalResource _ANSI_ARGS_((Tcl_Interp * interp, +EXTERN(int) Tcl_MacEvalResource _ANSI_ARGS_((Tcl_Interp * interp, char * resourceName, int resourceNumber, char * fileName)); /* 3 */ -EXTERN Handle Tcl_MacFindResource _ANSI_ARGS_((Tcl_Interp * interp, +EXTERN(Handle) Tcl_MacFindResource _ANSI_ARGS_((Tcl_Interp * interp, long resourceType, char * resourceName, int resourceNumber, char * resFileRef, int * releaseIt)); /* 4 */ -EXTERN int Tcl_GetOSTypeFromObj _ANSI_ARGS_(( +EXTERN(int) Tcl_GetOSTypeFromObj _ANSI_ARGS_(( Tcl_Interp * interp, Tcl_Obj * objPtr, OSType * osTypePtr)); /* 5 */ -EXTERN void Tcl_SetOSTypeObj _ANSI_ARGS_((Tcl_Obj * objPtr, +EXTERN(void) Tcl_SetOSTypeObj _ANSI_ARGS_((Tcl_Obj * objPtr, OSType osType)); /* 6 */ -EXTERN Tcl_Obj * Tcl_NewOSTypeObj _ANSI_ARGS_((OSType osType)); +EXTERN(Tcl_Obj *) Tcl_NewOSTypeObj _ANSI_ARGS_((OSType osType)); /* 7 */ -EXTERN int strncasecmp _ANSI_ARGS_((CONST char * s1, +EXTERN(int) strncasecmp _ANSI_ARGS_((CONST char * s1, CONST char * s2, size_t n)); /* 8 */ -EXTERN int strcasecmp _ANSI_ARGS_((CONST char * s1, +EXTERN(int) strcasecmp _ANSI_ARGS_((CONST char * s1, CONST char * s2)); #endif /* MAC_TCL */ |