557
558
559
560
561
562
563
564
565
566
567
568
569
570
|
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
|
+
+
+
+
+
+
+
+
|
}
puts "}"
puts ""
puts "int Cvfs_data_${hashkey}_Init(Tcl_Interp *interp) {"
puts "\tTcl_Command tclCreatComm_ret;"
puts "\tint tclPkgProv_ret;"
puts ""
puts "#ifdef USE_TCL_STUBS"
puts "\tif (!Tcl_InitStubs(interp, TCL_VERSION, 0)) {"
puts "#else"
puts "\tif (!Tcl_PkgRequire(interp, \"Tcl\", TCL_VERSION, 0)) {"
puts "#endif /* USE_TCL_STUBS */"
puts "\t\treturn(TCL_ERROR);"
puts "\t}"
puts ""
puts "\ttclCreatComm_ret = Tcl_CreateObjCommand(interp, \"::vfs::cvfs::data::${hashkey}::getMetadata\", getMetadata, NULL, NULL);"
puts "\tif (!tclCreatComm_ret) {"
puts "\t\treturn(TCL_ERROR);"
puts "\t}"
puts ""
puts "\ttclCreatComm_ret = Tcl_CreateObjCommand(interp, \"::vfs::cvfs::data::${hashkey}::getData\", getData, NULL, NULL);"
|