tcl/tools/genStubs.tcl

0 # genStubs.tcl --
11 # RCS: @(#) $Id: genStubs.tcl,v 1.13 2002/10/04 08:25:14 dkf Exp $
15 namespace eval genStubs {
62 # genStubs::library --
74 proc genStubs::library {name} {
78 # genStubs::interface --
89 proc genStubs::interface {name} {
97 # genStubs::hooks --
109 proc genStubs::hooks {names} {
117 # genStubs::declare --
132 proc genStubs::declare {args} {
164 # genStubs::rewriteFile --
177 proc genStubs::rewriteFile {file text} {
208 # genStubs::addPlatformGuard --
218 proc genStubs::addPlatformGuard {plat text} {
242 # genStubs::emitSlots --
255 proc genStubs::emitSlots {name textVar} {
263 # genStubs::parseDecl --
276 proc genStubs::parseDecl {decl} {
318 # genStubs::parseArg --
329 proc genStubs::parseArg {arg} {
344 # genStubs::makeDecl --
356 proc genStubs::makeDecl {name decl index} {
404 # genStubs::makeMacro --
416 proc genStubs::makeMacro {name decl index} {
445 # genStubs::makeStub --
457 proc genStubs::makeStub {name decl index} {
510 # genStubs::makeSlot --
522 proc genStubs::makeSlot {name decl index} {
555 # genStubs::makeInit --
567 proc genStubs::makeInit {name decl index} {
572 # genStubs::forAllStubs --
593 proc genStubs::forAllStubs {name slotProc onAll textVar \
718 # genStubs::emitDeclarations --
729 proc genStubs::emitDeclarations {name textVar} {
738 # genStubs::emitMacros --
749 proc genStubs::emitMacros {name textVar} {
764 # genStubs::emitHeader --
775 proc genStubs::emitHeader {name} {
811 # genStubs::emitStubs --
822 proc genStubs::emitStubs {name} {
832 # genStubs::emitInit --
843 proc genStubs::emitInit {name textVar} {
868     forAllStubs $name makeInit 1 text {"    NULL, /* $i */\n"}
874 # genStubs::emitInits --
885 proc genStubs::emitInits {} {
913 # genStubs::init --
923 proc genStubs::init {} {
967 genStubs::init