/dports/lang/tcl85/tcl8.5.19/generic/ |
H A D | tclEvent.c | 264 TclNewLiteralStringObj(keyPtr, "-errorinfo"); in HandleBgErrors() 326 TclNewLiteralStringObj(keyPtr, "-level"); in TclDefaultBgErrorHandlerObjCmd() 338 TclNewLiteralStringObj(keyPtr, "-code"); in TclDefaultBgErrorHandlerObjCmd() 365 TclNewLiteralStringObj(tempObjv[0], "bgerror"); in TclDefaultBgErrorHandlerObjCmd() 378 TclNewLiteralStringObj(tempObjv[1], in TclDefaultBgErrorHandlerObjCmd() 382 TclNewLiteralStringObj(tempObjv[1], in TclDefaultBgErrorHandlerObjCmd() 395 TclNewLiteralStringObj(keyPtr, "-errorcode"); in TclDefaultBgErrorHandlerObjCmd() 403 TclNewLiteralStringObj(keyPtr, "-errorinfo"); in TclDefaultBgErrorHandlerObjCmd() 554 TclNewLiteralStringObj(bgerrorObj, "::tcl::Bgerror"); in TclGetBgErrorHandler()
|
H A D | tclHistory.c | 135 TclNewLiteralStringObj(list[0], "history"); in Tcl_RecordAndEvalObj() 136 TclNewLiteralStringObj(list[1], "add"); in Tcl_RecordAndEvalObj()
|
H A D | tclCompExpr.c | 672 TclNewLiteralStringObj(msg, in ParseExpr() 884 TclNewLiteralStringObj(msg, "invalid character \"$\""); in ParseExpr() 918 TclNewLiteralStringObj(msg, "missing close-bracket"); in ParseExpr() 1069 TclNewLiteralStringObj(msg, "unbalanced open paren"); in ParseExpr() 1077 TclNewLiteralStringObj(msg, "empty expression"); in ParseExpr() 1081 TclNewLiteralStringObj(msg, "unbalanced close paren"); in ParseExpr() 1166 TclNewLiteralStringObj(msg, "unbalanced open paren"); in ParseExpr() 1186 TclNewLiteralStringObj(msg, in ParseExpr() 1249 TclNewLiteralStringObj(msg, "unbalanced close paren"); in ParseExpr() 1258 TclNewLiteralStringObj(msg, in ParseExpr() [all …]
|
H A D | tclTrace.c | 274 TclNewLiteralStringObj(opObj, "read"); in Tcl_TraceObjCmd() 276 TclNewLiteralStringObj(opObj, "write"); in Tcl_TraceObjCmd() 278 TclNewLiteralStringObj(opObj, "unset"); in Tcl_TraceObjCmd() 280 TclNewLiteralStringObj(opObj, "array"); in Tcl_TraceObjCmd() 579 TclNewLiteralStringObj(opObj, "enter"); in TraceExecutionObjCmd() 583 TclNewLiteralStringObj(opObj, "leave"); in TraceExecutionObjCmd() 786 TclNewLiteralStringObj(opObj, "rename"); in TraceCommandObjCmd() 971 TclNewLiteralStringObj(opObj, "array"); in TraceVariableObjCmd() 975 TclNewLiteralStringObj(opObj, "read"); in TraceVariableObjCmd() 979 TclNewLiteralStringObj(opObj, "write"); in TraceVariableObjCmd() [all …]
|
H A D | tclCmdAH.c | 323 TclNewLiteralStringObj(dir, "~"); in Tcl_CdObjCmd() 606 TclNewLiteralStringObj(options, "-code error -level 0"); in Tcl_ErrorObjCmd() 609 TclNewLiteralStringObj(optName, "-errorinfo"); in Tcl_ErrorObjCmd() 615 TclNewLiteralStringObj(optName, "-errorcode"); in Tcl_ErrorObjCmd() 1227 TclNewLiteralStringObj(typeName, "absolute"); in Tcl_FileObjCmd() 1230 TclNewLiteralStringObj(typeName, "relative"); in Tcl_FileObjCmd() 1233 TclNewLiteralStringObj(typeName, "volumerelative"); in Tcl_FileObjCmd() 1504 TclNewLiteralStringObj(field, fieldName); \ in StoreStatData()
|
H A D | tclResult.c | 1118 TclNewLiteralStringObj(keys[KEY_CODE], "-code"); in GetKeys() 1119 TclNewLiteralStringObj(keys[KEY_ERRORCODE], "-errorcode"); in GetKeys() 1120 TclNewLiteralStringObj(keys[KEY_ERRORINFO], "-errorinfo"); in GetKeys() 1121 TclNewLiteralStringObj(keys[KEY_ERRORLINE], "-errorline"); in GetKeys() 1122 TclNewLiteralStringObj(keys[KEY_LEVEL], "-level"); in GetKeys() 1123 TclNewLiteralStringObj(keys[KEY_OPTIONS], "-options"); in GetKeys()
|
H A D | tclFCmd.c | 574 TclNewLiteralStringObj(perm, "u+w"); in CopyRenameOneFile() 700 TclNewLiteralStringObj(cmdObj, "::tcl::CopyDirectory"); in CopyRenameOneFile() 703 TclNewLiteralStringObj(opObj, "copying"); in CopyRenameOneFile() 705 TclNewLiteralStringObj(opObj, "renaming"); in CopyRenameOneFile()
|
H A D | tclIORChan.c | 575 TclNewLiteralStringObj(err, "chan handler \""); in TclChanCreateObjCmd() 588 TclNewLiteralStringObj(err, "chan handler \""); in TclChanCreateObjCmd() 603 TclNewLiteralStringObj(err, "chan handler \""); in TclChanCreateObjCmd() 611 TclNewLiteralStringObj(err, "chan handler \""); in TclChanCreateObjCmd() 619 TclNewLiteralStringObj(err, "chan handler \""); in TclChanCreateObjCmd() 627 TclNewLiteralStringObj(err, "chan handler \""); in TclChanCreateObjCmd() 635 TclNewLiteralStringObj(err, "chan handler \""); in TclChanCreateObjCmd()
|
/dports/lang/tcl86/tcl8.6.12/generic/ |
H A D | tclEvent.c | 268 TclNewLiteralStringObj(keyPtr, "-errorinfo"); in HandleBgErrors() 330 TclNewLiteralStringObj(keyPtr, "-level"); in TclDefaultBgErrorHandlerObjCmd() 343 TclNewLiteralStringObj(keyPtr, "-code"); in TclDefaultBgErrorHandlerObjCmd() 378 TclNewLiteralStringObj(tempObjv[0], "bgerror"); in TclDefaultBgErrorHandlerObjCmd() 391 TclNewLiteralStringObj(tempObjv[1], in TclDefaultBgErrorHandlerObjCmd() 395 TclNewLiteralStringObj(tempObjv[1], in TclDefaultBgErrorHandlerObjCmd() 408 TclNewLiteralStringObj(keyPtr, "-errorcode"); in TclDefaultBgErrorHandlerObjCmd() 416 TclNewLiteralStringObj(keyPtr, "-errorinfo"); in TclDefaultBgErrorHandlerObjCmd() 568 TclNewLiteralStringObj(bgerrorObj, "::tcl::Bgerror"); in TclGetBgErrorHandler()
|
H A D | tclHistory.c | 142 TclNewLiteralStringObj(histObjsPtr->historyObj, "::history"); in Tcl_RecordAndEvalObj() 143 TclNewLiteralStringObj(histObjsPtr->addObj, "add"); in Tcl_RecordAndEvalObj()
|
H A D | tclCompExpr.c | 675 TclNewLiteralStringObj(msg, in ParseExpr() 906 TclNewLiteralStringObj(msg, "invalid character \"$\""); in ParseExpr() 941 TclNewLiteralStringObj(msg, "missing close-bracket"); in ParseExpr() 1097 TclNewLiteralStringObj(msg, "unbalanced open paren"); in ParseExpr() 1107 TclNewLiteralStringObj(msg, "empty expression"); in ParseExpr() 1111 TclNewLiteralStringObj(msg, "unbalanced close paren"); in ParseExpr() 1201 TclNewLiteralStringObj(msg, "unbalanced open paren"); in ParseExpr() 1222 TclNewLiteralStringObj(msg, in ParseExpr() 1287 TclNewLiteralStringObj(msg, "unbalanced close paren"); in ParseExpr() 1297 TclNewLiteralStringObj(msg, in ParseExpr() [all …]
|
H A D | tclTrace.c | 292 TclNewLiteralStringObj(opObj, "read"); in Tcl_TraceObjCmd() 294 TclNewLiteralStringObj(opObj, "write"); in Tcl_TraceObjCmd() 296 TclNewLiteralStringObj(opObj, "unset"); in Tcl_TraceObjCmd() 298 TclNewLiteralStringObj(opObj, "array"); in Tcl_TraceObjCmd() 592 TclNewLiteralStringObj(opObj, "enter"); in TraceExecutionObjCmd() 596 TclNewLiteralStringObj(opObj, "leave"); in TraceExecutionObjCmd() 795 TclNewLiteralStringObj(opObj, "rename"); in TraceCommandObjCmd() 799 TclNewLiteralStringObj(opObj, "delete"); in TraceCommandObjCmd() 984 TclNewLiteralStringObj(opObjPtr, "array"); in TraceVariableObjCmd() 988 TclNewLiteralStringObj(opObjPtr, "read"); in TraceVariableObjCmd() [all …]
|
H A D | tclResult.c | 1186 TclNewLiteralStringObj(keys[KEY_CODE], "-code"); in GetKeys() 1187 TclNewLiteralStringObj(keys[KEY_ERRORCODE], "-errorcode"); in GetKeys() 1188 TclNewLiteralStringObj(keys[KEY_ERRORINFO], "-errorinfo"); in GetKeys() 1189 TclNewLiteralStringObj(keys[KEY_ERRORLINE], "-errorline"); in GetKeys() 1190 TclNewLiteralStringObj(keys[KEY_ERRORSTACK],"-errorstack"); in GetKeys() 1191 TclNewLiteralStringObj(keys[KEY_LEVEL], "-level"); in GetKeys() 1192 TclNewLiteralStringObj(keys[KEY_OPTIONS], "-options"); in GetKeys()
|
H A D | tclCmdAH.c | 428 TclNewLiteralStringObj(dir, "~"); in Tcl_CdObjCmd() 917 TclNewLiteralStringObj(options, "-code error -level 0"); in Tcl_ErrorObjCmd() 920 TclNewLiteralStringObj(optName, "-errorinfo"); in Tcl_ErrorObjCmd() 926 TclNewLiteralStringObj(optName, "-errorcode"); in Tcl_ErrorObjCmd() 2277 TclNewLiteralStringObj(typeName, "absolute"); in PathTypeCmd() 2280 TclNewLiteralStringObj(typeName, "relative"); in PathTypeCmd() 2283 TclNewLiteralStringObj(typeName, "volumerelative"); in PathTypeCmd() 2505 TclNewLiteralStringObj(field, fieldName); \ in StoreStatData()
|
H A D | tclFCmd.c | 571 TclNewLiteralStringObj(perm, "u+w"); in CopyRenameOneFile() 698 TclNewLiteralStringObj(cmdObj, "::tcl::CopyDirectory"); in CopyRenameOneFile() 701 TclNewLiteralStringObj(opObj, "copying"); in CopyRenameOneFile() 703 TclNewLiteralStringObj(opObj, "renaming"); in CopyRenameOneFile()
|
H A D | tclOO.c | 347 TclNewLiteralStringObj(fPtr->unknownMethodNameObj, "unknown"); in InitFoundation() 348 TclNewLiteralStringObj(fPtr->constructorName, "<constructor>"); in InitFoundation() 349 TclNewLiteralStringObj(fPtr->destructorName, "<destructor>"); in InitFoundation() 350 TclNewLiteralStringObj(fPtr->clonedName, "<cloned>"); in InitFoundation() 351 TclNewLiteralStringObj(fPtr->defineName, "::oo::define"); in InitFoundation() 359 TclNewLiteralStringObj(namePtr, "::oo::UnknownDefinition"); in InitFoundation() 481 TclNewLiteralStringObj(argsPtr, "originObject"); in InitFoundation() 494 TclNewLiteralStringObj(namePtr, "new"); in InitFoundation()
|
H A D | tclZlib.c | 333 TclNewLiteralStringObj(objv[0], "TCL"); in ConvertErrorToList() 334 TclNewLiteralStringObj(objv[1], "ZLIB"); in ConvertErrorToList() 337 TclNewLiteralStringObj(objv[2], "STREAM"); in ConvertErrorToList() 340 TclNewLiteralStringObj(objv[2], "DATA"); in ConvertErrorToList() 343 TclNewLiteralStringObj(objv[2], "MEM"); in ConvertErrorToList() 346 TclNewLiteralStringObj(objv[2], "BUF"); in ConvertErrorToList() 349 TclNewLiteralStringObj(objv[2], "VERSION"); in ConvertErrorToList() 352 TclNewLiteralStringObj(objv[2], "POSIX"); in ConvertErrorToList() 356 TclNewLiteralStringObj(objv[2], "NEED_DICT"); in ConvertErrorToList() 376 TclNewLiteralStringObj(objv[2], "UNKNOWN"); in ConvertErrorToList()
|
/dports/lang/tcl87/tcl8.7a5/generic/ |
H A D | tclEvent.c | 271 TclNewLiteralStringObj(keyPtr, "-errorinfo"); in HandleBgErrors() 333 TclNewLiteralStringObj(keyPtr, "-level"); in TclDefaultBgErrorHandlerObjCmd() 346 TclNewLiteralStringObj(keyPtr, "-code"); in TclDefaultBgErrorHandlerObjCmd() 381 TclNewLiteralStringObj(tempObjv[0], "bgerror"); in TclDefaultBgErrorHandlerObjCmd() 394 TclNewLiteralStringObj(tempObjv[1], in TclDefaultBgErrorHandlerObjCmd() 398 TclNewLiteralStringObj(tempObjv[1], in TclDefaultBgErrorHandlerObjCmd() 411 TclNewLiteralStringObj(keyPtr, "-errorcode"); in TclDefaultBgErrorHandlerObjCmd() 419 TclNewLiteralStringObj(keyPtr, "-errorinfo"); in TclDefaultBgErrorHandlerObjCmd() 571 TclNewLiteralStringObj(bgerrorObj, "::tcl::Bgerror"); in TclGetBgErrorHandler()
|
H A D | tclHistory.c | 141 TclNewLiteralStringObj(histObjsPtr->historyObj, "::history"); in Tcl_RecordAndEvalObj() 142 TclNewLiteralStringObj(histObjsPtr->addObj, "add"); in Tcl_RecordAndEvalObj()
|
H A D | tclTrace.c | 290 TclNewLiteralStringObj(opObj, "read"); in Tcl_TraceObjCmd() 292 TclNewLiteralStringObj(opObj, "write"); in Tcl_TraceObjCmd() 294 TclNewLiteralStringObj(opObj, "unset"); in Tcl_TraceObjCmd() 296 TclNewLiteralStringObj(opObj, "array"); in Tcl_TraceObjCmd() 590 TclNewLiteralStringObj(opObj, "enter"); in TraceExecutionObjCmd() 594 TclNewLiteralStringObj(opObj, "leave"); in TraceExecutionObjCmd() 793 TclNewLiteralStringObj(opObj, "rename"); in TraceCommandObjCmd() 797 TclNewLiteralStringObj(opObj, "delete"); in TraceCommandObjCmd() 982 TclNewLiteralStringObj(opObjPtr, "array"); in TraceVariableObjCmd() 986 TclNewLiteralStringObj(opObjPtr, "read"); in TraceVariableObjCmd() [all …]
|
H A D | tclCompExpr.c | 686 TclNewLiteralStringObj(msg, in ParseExpr() 947 TclNewLiteralStringObj(msg, "invalid character \"$\""); in ParseExpr() 982 TclNewLiteralStringObj(msg, "missing close-bracket"); in ParseExpr() 1138 TclNewLiteralStringObj(msg, "unbalanced open paren"); in ParseExpr() 1148 TclNewLiteralStringObj(msg, "empty expression"); in ParseExpr() 1152 TclNewLiteralStringObj(msg, "unbalanced close paren"); in ParseExpr() 1242 TclNewLiteralStringObj(msg, "unbalanced open paren"); in ParseExpr() 1263 TclNewLiteralStringObj(msg, in ParseExpr() 1328 TclNewLiteralStringObj(msg, "unbalanced close paren"); in ParseExpr() 1338 TclNewLiteralStringObj(msg, in ParseExpr() [all …]
|
H A D | tclResult.c | 1202 TclNewLiteralStringObj(keys[KEY_CODE], "-code"); in GetKeys() 1203 TclNewLiteralStringObj(keys[KEY_ERRORCODE], "-errorcode"); in GetKeys() 1204 TclNewLiteralStringObj(keys[KEY_ERRORINFO], "-errorinfo"); in GetKeys() 1205 TclNewLiteralStringObj(keys[KEY_ERRORLINE], "-errorline"); in GetKeys() 1206 TclNewLiteralStringObj(keys[KEY_ERRORSTACK],"-errorstack"); in GetKeys() 1207 TclNewLiteralStringObj(keys[KEY_LEVEL], "-level"); in GetKeys() 1208 TclNewLiteralStringObj(keys[KEY_OPTIONS], "-options"); in GetKeys()
|
H A D | tclCmdAH.c | 410 TclNewLiteralStringObj(dir, "~"); in Tcl_CdObjCmd() 791 TclNewLiteralStringObj(options, "-code error -level 0"); in Tcl_ErrorObjCmd() 794 TclNewLiteralStringObj(optName, "-errorinfo"); in Tcl_ErrorObjCmd() 800 TclNewLiteralStringObj(optName, "-errorcode"); in Tcl_ErrorObjCmd() 2018 TclNewLiteralStringObj(typeName, "absolute"); in PathTypeCmd() 2021 TclNewLiteralStringObj(typeName, "relative"); in PathTypeCmd() 2024 TclNewLiteralStringObj(typeName, "volumerelative"); in PathTypeCmd() 2246 TclNewLiteralStringObj(field, fieldName); \ in StoreStatData()
|
H A D | tclFCmd.c | 571 TclNewLiteralStringObj(perm, "u+w"); in CopyRenameOneFile() 698 TclNewLiteralStringObj(cmdObj, "::tcl::CopyDirectory"); in CopyRenameOneFile() 701 TclNewLiteralStringObj(opObj, "copying"); in CopyRenameOneFile() 703 TclNewLiteralStringObj(opObj, "renaming"); in CopyRenameOneFile()
|
H A D | tclOO.c | 332 TclNewLiteralStringObj(fPtr->unknownMethodNameObj, "unknown"); in InitFoundation() 333 TclNewLiteralStringObj(fPtr->constructorName, "<constructor>"); in InitFoundation() 334 TclNewLiteralStringObj(fPtr->destructorName, "<destructor>"); in InitFoundation() 335 TclNewLiteralStringObj(fPtr->clonedName, "<cloned>"); in InitFoundation() 336 TclNewLiteralStringObj(fPtr->defineName, "::oo::define"); in InitFoundation() 344 TclNewLiteralStringObj(namePtr, "::oo::UnknownDefinition"); in InitFoundation() 393 TclNewLiteralStringObj(namePtr, "new"); in InitFoundation() 481 TclNewLiteralStringObj(defNsName, "::oo::objdefine"); in InitClassSystemRoots() 512 TclNewLiteralStringObj(defNsName, "::oo::define"); in InitClassSystemRoots()
|