Commit07ffc46

Jan Wieck

authored and

Jan Wieck

committed

Fixed bug in the unknown module. Module still tried to call

builtin SPI commands by their old SPI_* names. New names are spi_*.Jan - 11/23/1998

1 parent6fef1a2 commit07ffc46Copy full SHA for 07ffc46

File tree

-4

lines changed

-4

lines changed

Lines changed: 4 additions & 4 deletions

Original file line number	Diff line number	Diff line change
`@@ -10,10 +10,10 @@ proc unknown {proname args} {`
`10`	`10`	`# On first call prepare the plans`
`11`	`11`	`#-----------------------------------------------------------`
`12`	`12`	`if {![info exists p_mod]} {`
`13`		`- set p_mod [SPI_prepare \`
	`13`	`+ set p_mod [spi_prepare \`
`14`	`14`	`"select modname from pltcl_modfuncs\`
`15`	`15`	`where funcname = \$1" name]`
`16`		`- set p_src [SPI_prepare\`
	`16`	`+ set p_src [spi_prepare\`
`17`	`17`	`"select modseq, modsrc from pltcl_modules\`
`18`	`18`	`where modname = \$1\`
`19`	`19`	`order by modseq" name]`
`@@ -22,7 +22,7 @@ proc unknown {proname args} {`
`22`	`22`	`#-----------------------------------------------------------`
`23`	`23`	`# Lookup the requested function in pltcl_modfuncs`
`24`	`24`	`#-----------------------------------------------------------`
`25`		`- set n [SPI_execp -count 1 $p_mod [list [quote $proname]]]`
	`25`	`+ set n [spi_execp -count 1 $p_mod [list [quote $proname]]]`
`26`	`26`	`if {$n != 1} {`
`27`	`27`	`#-----------------------------------------------------------`
`28`	`28`	`# Not found there either - now it's really unknown`
`@@ -34,7 +34,7 @@ proc unknown {proname args} {`
`34`	`34`	`# Collect the source pieces from pltcl_modules`
`35`	`35`	`#-----------------------------------------------------------`
`36`	`36`	`set src ""`
`37`		`-SPI_execp $p_src [list [quote $modname]] {`
	`37`	`+spi_execp $p_src [list [quote $modname]] {`
`38`	`38`	`append src $modsrc`
`39`	`39`	`}`
`40`	`40`

Comments

(0)