incrTcl/tools/genStubs.tcl

0 # genStubs.tcl --
11 # RCS: @(#) $Id: genStubs.tcl,v 1.1 2003/12/23 05:21:38 davygrvy 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} {
405 # genStubs::makeMacro --
417 proc genStubs::makeMacro {name decl index} {
446 # genStubs::makeStub --
458 proc genStubs::makeStub {name decl index} {
511 # genStubs::makeSlot --
523 proc genStubs::makeSlot {name decl index} {
556 # genStubs::makeInit --
568 proc genStubs::makeInit {name decl index} {
573 # genStubs::forAllStubs --
594 proc genStubs::forAllStubs {name slotProc onAll textVar \
724 # genStubs::emitDeclarations --
735 proc genStubs::emitDeclarations {name textVar} {
744 # genStubs::emitMacros --
755 proc genStubs::emitMacros {name textVar} {
764     forAllStubs $name makeMacro 0 text
770 # genStubs::emitHeader --
781 proc genStubs::emitHeader {name} {
814 # genStubs::emitStubs --
825 proc genStubs::emitStubs {name} {
835 # genStubs::emitInit --
846 proc genStubs::emitInit {name textVar} {
877 # genStubs::emitInits --
888 proc genStubs::emitInits {} {
916 # genStubs::init --
926 proc genStubs::init {} {
970 genStubs::init