index 830ee25013730bccdf9cae25b7ed9974783d4e52..4f0a3fa991ab0dec6b1a94b58da5d95e2ddd8933 100644 (file)
# On first call prepare the plans
#-----------------------------------------------------------
if {![info exists p_mod]} {
- set p_mod [SPI_prepare \
+ set p_mod [spi_prepare \
"select modname from pltcl_modfuncs \
where funcname = \1ドル" name]
- set p_src [SPI_prepare \
+ set p_src [spi_prepare \
"select modseq, modsrc from pltcl_modules \
where modname = \1ドル \
order by modseq" name]
#-----------------------------------------------------------
# Lookup the requested function in pltcl_modfuncs
#-----------------------------------------------------------
- set n [SPI_execp -count 1 $p_mod [list [quote $proname]]]
+ set n [spi_execp -count 1 $p_mod [list [quote $proname]]]
if {$n != 1} {
#-----------------------------------------------------------
# Not found there either - now it's really unknown
# Collect the source pieces from pltcl_modules
#-----------------------------------------------------------
set src ""
- SPI_execp $p_src [list [quote $modname]] {
+ spi_execp $p_src [list [quote $modname]] {
append src $modsrc
}