diff options
author | das <das> | 2007-08-14 06:32:55 (GMT) |
---|---|---|
committer | das <das> | 2007-08-14 06:32:55 (GMT) |
commit | 1d3c3ca5bc5a27b8810c6653a5cdafd895a64c0b (patch) | |
tree | 85b24d056d0a9723d0d81dde23cd24241372e6b9 /unix/dltest/pkgua.c | |
parent | a789ab33c1944041459d117c719d57c44582b717 (diff) | |
download | tcl-1d3c3ca5bc5a27b8810c6653a5cdafd895a64c0b.zip tcl-1d3c3ca5bc5a27b8810c6653a5cdafd895a64c0b.tar.gz tcl-1d3c3ca5bc5a27b8810c6653a5cdafd895a64c0b.tar.bz2 |
* unix/dltest/pkga.c: whitespace & comment cleanup, remove
* unix/dltest/pkgb.c: unused pkgf.c.
* unix/dltest/pkgc.c:
* unix/dltest/pkge.c:
* unix/dltest/pkgf.c (removed):
* unix/dltest/pkgua.c:
* macosx/Tcl.xcodeproj/project.pbxproj:
Diffstat (limited to 'unix/dltest/pkgua.c')
-rw-r--r-- | unix/dltest/pkgua.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/unix/dltest/pkgua.c b/unix/dltest/pkgua.c index 4c2c713..de200a8 100644 --- a/unix/dltest/pkgua.c +++ b/unix/dltest/pkgua.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: pkgua.c,v 1.5 2007/05/29 14:05:53 dgp Exp $ + * RCS: @(#) $Id: pkgua.c,v 1.6 2007/08/14 06:32:55 das Exp $ */ #include "tcl.h" @@ -50,7 +50,7 @@ PkguaInitTokensHashTable(void) Tcl_InitHashTable(&interpTokenMap, TCL_ONE_WORD_KEYS); interpTokenMapInitialised = 1; } - + void PkguaFreeTokensHashTable(void) { @@ -63,7 +63,7 @@ PkguaFreeTokensHashTable(void) } interpTokenMapInitialised = 0; } - + static Tcl_Command * PkguaInterpToTokens( Tcl_Interp *interp) @@ -85,7 +85,7 @@ PkguaInterpToTokens( } return cmdTokens; } - + static void PkguaDeleteTokens( Tcl_Interp *interp) @@ -235,7 +235,7 @@ Pkgua_Init( * Pkgua_SafeInit -- * * This is a package initialization procedure, which is called by Tcl - * when this package is to be added to an unsafe interpreter. + * when this package is to be added to a safe interpreter. * * Results: * None. @@ -260,7 +260,7 @@ Pkgua_SafeInit( * Pkgua_Unload -- * * This is a package unloading initialization procedure, which is called - * by Tcl when this package is to be unloaded form an interpreter. + * by Tcl when this package is to be unloaded from an interpreter. * * Results: * None. @@ -313,7 +313,7 @@ Pkgua_Unload( * Pkgua_SafeUnload -- * * This is a package unloading initialization procedure, which is called - * by Tcl when this package is to be unloaded form an interpreter. + * by Tcl when this package is to be unloaded from an interpreter. * * Results: * None. |