Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | added missing argv0 declaration |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-1-branch-old |
| Files: | files | file ages | folders |
| SHA1: | 25a525546f447f386efb36ba92787d7a |
| User & Date: | stanton 1999-03-25 23:29:19 |
Context
|
1999-03-26
| ||
| 00:13 | Added 7-bit ASCII to big5 and gb2312 encodings [Bug: 632] check-in: 2dc755cab2 user: stanton tags: core-8-1-branch-old | |
|
1999-03-25
| ||
| 23:29 | added missing argv0 declaration check-in: 25a525546f user: stanton tags: core-8-1-branch-old | |
| 23:28 | * generic/tclPkg.c (Tcl_PkgRequireEx): Fixed broken clientData initialization in package code. check-in: dab64840b0 user: stanton tags: core-8-1-branch-old | |
Changes
Changes to tools/genStubs.tcl.
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
...
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
|
# interface. # # # Copyright (c) 1998-1999 by Scriptics Corporation. # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # RCS: @(#) $Id: genStubs.tcl,v 1.2.2.1 1999/03/10 06:49:26 stanton Exp $ namespace eval genStubs { # libraryName -- # # The name of the entire library. This value is used to compute # the USE_*_STUB_PROCS macro and the name of the init file. ................................................................................ # Arguments: # None. # # Results: # None. proc genStubs::init {} { global argv variable outDir variable interfaces if {[llength $argv] < 2} { puts stderr "usage: $argv0 outDir declFile ?declFile...?" exit 1 } |
|
|
|
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
...
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
|
# interface. # # # Copyright (c) 1998-1999 by Scriptics Corporation. # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # RCS: @(#) $Id: genStubs.tcl,v 1.2.2.2 1999/03/25 23:29:19 stanton Exp $ namespace eval genStubs { # libraryName -- # # The name of the entire library. This value is used to compute # the USE_*_STUB_PROCS macro and the name of the init file. ................................................................................ # Arguments: # None. # # Results: # None. proc genStubs::init {} { global argv argv0 variable outDir variable interfaces if {[llength $argv] < 2} { puts stderr "usage: $argv0 outDir declFile ?declFile...?" exit 1 } |