tcldom/tools/genStubs.tcl

0 # genStubs.tcl --
11 # RCS: @(#) $Id: genStubs.tcl,v 1.1 2002/09/26 20:20:56 andreas_kupries Exp $
13 namespace eval genStubs {
60 # genStubs::library --
72 proc genStubs::library {name} {
76 # genStubs::interface --
87 proc genStubs::interface {name} {
95 # genStubs::hooks --
107 proc genStubs::hooks {names} {
115 # genStubs::declare --
130 proc genStubs::declare {args} {
162 # genStubs::rewriteFile --
175 proc genStubs::rewriteFile {file text} {
209 # genStubs::addPlatformGuard --
219 proc genStubs::addPlatformGuard {plat text} {
234 # genStubs::emitSlots --
247 proc genStubs::emitSlots {name textVar} {
255 # genStubs::parseDecl --
268 proc genStubs::parseDecl {decl} {
310 # genStubs::parseArg --
321 proc genStubs::parseArg {arg} {
336 # genStubs::makeDecl --
348 proc genStubs::makeDecl {name decl index} {
396 # genStubs::makeMacro --
408 proc genStubs::makeMacro {name decl index} {
437 # genStubs::makeStub --
449 proc genStubs::makeStub {name decl index} {
502 # genStubs::makeSlot --
514 proc genStubs::makeSlot {name decl index} {
547 # genStubs::makeInit --
559 proc genStubs::makeInit {name decl index} {
564 # genStubs::forAllStubs --
585 proc genStubs::forAllStubs {name slotProc onAll textVar \
645 # genStubs::emitDeclarations --
656 proc genStubs::emitDeclarations {name textVar} {
665 # genStubs::emitMacros --
676 proc genStubs::emitMacros {name textVar} {
691 # genStubs::emitHeader --
702 proc genStubs::emitHeader {name} {
738 # genStubs::emitStubs --
749 proc genStubs::emitStubs {name} {
759 # genStubs::emitInit --
770 proc genStubs::emitInit {name textVar} {
795     forAllStubs $name makeInit 1 text {"    NULL, /* $i */\n"}
801 # genStubs::emitInits --
812 proc genStubs::emitInits {} {
840 # genStubs::init --
850 proc genStubs::init {} {
894 genStubs::init