开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > 查看源码
unknown.pltcl
资源名称：postgresql-6.5.2.tar.gz　[点击查看]
上传用户：blenddy
上传日期：2007-01-07
资源大小：6495k
文件大小：2k
源码类别：

数据库系统

开发平台：

Unix_Linux

unknown.pltcl：源码内容
  1. #---------------------------------------------------------------------
  2. # Support for unknown command
  3. #---------------------------------------------------------------------
  5. proc unknown {proname args} {
  6.     upvar #0 __PLTcl_unknown_support_plan_modname p_mod
  7.     upvar #0 __PLTcl_unknown_support_plan_modsrc p_src
  9.     #-----------------------------------------------------------
  10.     # On first call prepare the plans
  11.     #-----------------------------------------------------------
  12.     if {![info exists p_mod]} {
  13.         set p_mod [spi_prepare 
  14. "select modname from pltcl_modfuncs
  15.  where funcname = $1" name]
  16.         set p_src [spi_prepare
  17. "select modseq, modsrc from pltcl_modules
  18.  where modname = $1
  19.  order by modseq" name]
  20.     }
  22.     #-----------------------------------------------------------
  23.     # Lookup the requested function in pltcl_modfuncs
  24.     #-----------------------------------------------------------
  25.     set n [spi_execp -count 1 $p_mod [list [quote $proname]]]
  26.     if {$n != 1} {
  27. #-----------------------------------------------------------
  28. # Not found there either - now it's really unknown
  29. #-----------------------------------------------------------
  30.         return -code error "unknown command '$proname'"
  31.     }
  33.     #-----------------------------------------------------------
  34.     # Collect the source pieces from pltcl_modules
  35.     #-----------------------------------------------------------
  36.     set src ""
  37.     spi_execp $p_src [list [quote $modname]] {
  38.         append src $modsrc
  39.     }
  41.     #-----------------------------------------------------------
  42.     # Load the source into the interpreter
  43.     #-----------------------------------------------------------
  44.     if {[catch {
  45.             uplevel #0 "$src"
  46.         } msg]} {
  47. elog NOTICE "pltcl unknown: error while loading module $modname"
  48. elog WARN $msg
  49.     }
  51.     #-----------------------------------------------------------
  52.     # This should never happen
  53.     #-----------------------------------------------------------
  54.     if {[catch {info args $proname}]} {
  55.         return -code error 
  56.     "unknown command '$proname' (still after loading module $modname)"
  57.     }
  59.     #-----------------------------------------------------------
  60.     # Finally simulate the initial procedure call
  61.     #-----------------------------------------------------------
  62.     return [uplevel 1 $proname $args]
  63. }