{"id":7370,"date":"2022-12-20T19:37:51","date_gmt":"2022-12-20T22:37:51","guid":{"rendered":"http:\/\/lode.uno\/linux-man\/index.php\/2022\/12\/20\/tcl_eval-man3-3\/"},"modified":"2022-12-20T19:37:51","modified_gmt":"2022-12-20T22:37:51","slug":"tcl_eval-man3-3","status":"publish","type":"post","link":"https:\/\/lode.uno\/linux-man\/2022\/12\/20\/tcl_eval-man3-3\/","title":{"rendered":"Tcl_Eval (man3)"},"content":{"rendered":"

Tcl_Eval<\/h1>\n

NAME<\/a>
SYNOPSIS<\/a>
ARGUMENTS<\/a>
DESCRIPTION<\/a>
FLAG BITS<\/a>
MISCELLANEOUS DETAILS<\/a>
KEYWORDS<\/a> <\/p>\n

\n

______________________________________________________________________________<\/p>\n

NAME <\/a> <\/h2>\n

Tcl_EvalObjEx, Tcl_EvalFile, Tcl_EvalObjv, Tcl_Eval, Tcl_EvalEx, Tcl_GlobalEval, Tcl_GlobalEvalObj, Tcl_VarEval, Tcl_VarEvalVA \u2212 execute Tcl scripts<\/p>\n

SYNOPSIS <\/a> <\/h2>\n

#include <\/b><\/p>\n

int
Tcl_EvalObjEx<\/b>(interp, objPtr, flags<\/i>)<\/p>\n

int
Tcl_EvalFile<\/b>(interp, fileName<\/i>)<\/p>\n

int
Tcl_EvalObjv<\/b>(interp, objc, objv, flags<\/i>)<\/p>\n

int
Tcl_Eval<\/b>(interp, script<\/i>)<\/p>\n

int
Tcl_EvalEx<\/b>(interp, script, numBytes, flags<\/i>)<\/p>\n

int
Tcl_GlobalEval<\/b>(interp, script<\/i>)<\/p>\n

int
Tcl_GlobalEvalObj<\/b>(interp, objPtr<\/i>)<\/p>\n

int
Tcl_VarEval<\/b>(interp, part, part, …<\/i> (char *) NULL<\/b>)<\/p>\n

int
Tcl_VarEvalVA<\/b>(interp, argList<\/i>)<\/p>\n

ARGUMENTS <\/a> <\/h2>\n\n\n\n\n\n\n\n\n\n\n\n
<\/td>\n\n

Tcl_Interp *interp<\/i> (in)<\/p>\n<\/td>\n

<\/td>\n\n

Interpreter in which to execute the script. The interpreter\u2019s result is modified to hold the result or error message from the script.<\/p>\n<\/td>\n<\/tr>\n

<\/td>\n\n

Tcl_Obj *objPtr<\/i> (in)<\/p>\n<\/td>\n

<\/td>\n\n

A Tcl value containing the script to execute.<\/p>\n<\/td>\n<\/tr>\n

<\/td>\n\n

int flags<\/i> (in)<\/p>\n<\/td>\n

<\/td>\n\n

ORed combination of flag bits that specify additional options. TCL_EVAL_GLOBAL<\/b> and TCL_EVAL_DIRECT<\/b> are currently supported.<\/p>\n<\/td>\n<\/tr>\n

<\/td>\n\n

const char *fileName<\/i> (in)<\/p>\n<\/td>\n

<\/td>\n\n

Name of a file containing a Tcl script.<\/p>\n<\/td>\n<\/tr>\n

<\/td>\n\n

int objc<\/i> (in)<\/p>\n<\/td>\n

<\/td>\n\n

The number of values in the array pointed to by objPtr<\/i>; this is also the number of words in the command.<\/p>\n<\/td>\n<\/tr>\n

<\/td>\n\n

Tcl_Obj **objv<\/i> (in)<\/p>\n<\/td>\n

<\/td>\n\n

Points to an array of pointers to values; each value holds the value of a single word in the command to execute.<\/p>\n<\/td>\n<\/tr>\n

<\/td>\n\n

int numBytes<\/i> (in)<\/p>\n<\/td>\n

<\/td>\n\n

The number of bytes in script<\/i>, not including any null terminating character. If \u22121, then all characters up to the first null byte are used.<\/p>\n<\/td>\n<\/tr>\n

<\/td>\n\n

const char *script<\/i> (in)<\/p>\n<\/td>\n

<\/td>\n\n

Points to first byte of script to execute (null-terminated and UTF-8).<\/p>\n<\/td>\n<\/tr>\n

<\/td>\n\n

char *part<\/i> (in)<\/p>\n<\/td>\n

<\/td>\n\n

String forming part of a Tcl script.<\/p>\n<\/td>\n<\/tr>\n

<\/td>\n\n

va_list argList<\/i> (in)<\/p>\n<\/td>\n

<\/td>\n\n

An argument list which must have been initialized using va_start<\/b>, and cleared using va_end<\/b>.<\/p>\n<\/td>\n<\/tr>\n<\/table>\n

______________________________________________________________________________<\/p>\n

DESCRIPTION <\/a> <\/h2>\n

The procedures described here are invoked to execute Tcl scripts in various forms. Tcl_EvalObjEx<\/b> is the core procedure and is used by many of the others. It executes the commands in the script stored in objPtr<\/i> until either an error occurs or the end of the script is reached. If this is the first time objPtr<\/i> has been executed, its commands are compiled into bytecode instructions which are then executed. The bytecodes are saved in objPtr<\/i> so that the compilation step can be skipped if the value is evaluated again in the future.<\/p>\n

The return value from Tcl_EvalObjEx<\/b> (and all the other procedures described here) is a Tcl completion code with one of the values TCL_OK<\/b>, TCL_ERROR<\/b>, TCL_RETURN<\/b>, TCL_BREAK<\/b>, or TCL_CONTINUE<\/b>, or possibly some other integer value originating in an extension. In addition, a result value or error message is left in interp<\/i>\u2019s result; it can be retrieved using Tcl_GetObjResult<\/b>.<\/p>\n

Tcl_EvalFile<\/b> reads the file given by fileName<\/i> and evaluates its contents as a Tcl script. It returns the same information as Tcl_EvalObjEx<\/b>. If the file could not be read then a Tcl error is returned to describe why the file could not be read. The eofchar for files is \u201c32\u201d (^Z) for all platforms. If you require a \u201c^Z\u201d in code for string comparison, you can use \u201c\u000032\u201d or \u201cu001a\u201d, which will be safely substituted by the Tcl interpreter into \u201c^Z\u201d.<\/p>\n

Tcl_EvalObjv<\/b> executes a single pre-parsed command instead of a script. The objc<\/i> and objv<\/i> arguments contain the values of the words for the Tcl command, one word in each value in objv<\/i>. Tcl_EvalObjv<\/b> evaluates the command and returns a completion code and result just like Tcl_EvalObjEx<\/b>. The caller of Tcl_EvalObjv<\/b> has to manage the reference count of the elements of objv<\/i>, insuring that the values are valid until Tcl_EvalObjv<\/b> returns.<\/p>\n

Tcl_Eval<\/b> is similar to Tcl_EvalObjEx<\/b> except that the script to be executed is supplied as a string instead of a value and no compilation occurs. The string should be a proper UTF-8 string as converted by Tcl_ExternalToUtfDString<\/b> or Tcl_ExternalToUtf<\/b> when it is known to possibly contain upper ASCII characters whose possible combinations might be a UTF-8 special code. The string is parsed and executed directly (using Tcl_EvalObjv<\/b>) instead of compiling it and executing the bytecodes. In situations where it is known that the script will never be executed again, Tcl_Eval<\/b> may be faster than Tcl_EvalObjEx<\/b>.
Tcl_Eval<\/b> returns a completion code and result just like Tcl_EvalObjEx<\/b>. Note: for backward compatibility with versions before Tcl 8.0, Tcl_Eval<\/b> copies the value result in interp<\/i> to interp->result<\/i> (use is deprecated) where it can be accessed directly.
This makes Tcl_Eval<\/b> somewhat slower than Tcl_EvalEx<\/b>, which does not do the copy.<\/p>\n

Tcl_EvalEx<\/b> is an extended version of Tcl_Eval<\/b> that takes additional arguments numBytes<\/i> and flags<\/i>. For the efficiency reason given above, Tcl_EvalEx<\/b> is generally preferred over Tcl_Eval<\/b>.<\/p>\n

Tcl_GlobalEval<\/b> and Tcl_GlobalEvalObj<\/b> are older procedures that are now deprecated. They are similar to Tcl_EvalEx<\/b> and Tcl_EvalObjEx<\/b> except that the script is evaluated in the global namespace and its variable context consists of global variables only (it ignores any Tcl procedures that are active). These functions are equivalent to using the TCL_EVAL_GLOBAL<\/b> flag (see below).<\/p>\n

Tcl_VarEval<\/b> takes any number of string arguments of any length, concatenates them into a single string, then calls Tcl_Eval<\/b> to execute that string as a Tcl command. It returns the result of the command and also modifies interp->result<\/i> in the same way as Tcl_Eval<\/b>. The last argument to Tcl_VarEval<\/b> must be NULL to indicate the end of arguments. Tcl_VarEval<\/b> is now deprecated.<\/p>\n

Tcl_VarEvalVA<\/b> is the same as Tcl_VarEval<\/b> except that instead of taking a variable number of arguments it takes an argument list. Like Tcl_VarEval<\/b>, Tcl_VarEvalVA<\/b> is deprecated.<\/p>\n

FLAG BITS <\/a> <\/h2>\n

Any ORed combination of the following values may be used for the flags<\/i> argument to procedures such as Tcl_EvalObjEx<\/b>:<\/p>\n\n\n\n
<\/td>\n\n

TCL_EVAL_DIRECT<\/b><\/p>\n<\/td>\n

<\/td>\n\n

This flag is only used by Tcl_EvalObjEx<\/b>; it is ignored by other procedures. If this flag bit is set, the script is not compiled to bytecodes; instead it is executed directly as is done by Tcl_EvalEx<\/b>. The TCL_EVAL_DIRECT<\/b> flag is useful in situations where the contents of a value are going to change immediately, so the bytecodes will not be reused in a future execution. In this case, it is faster to execute the script directly.<\/p>\n<\/td>\n<\/tr>\n

<\/td>\n\n

TCL_EVAL_GLOBAL<\/b><\/p>\n<\/td>\n

<\/td>\n\n

If this flag is set, the script is evaluated in the global namespace instead of the current namespace and its variable context consists of global variables only (it ignores any Tcl procedures that are active).<\/p>\n<\/td>\n<\/tr>\n<\/table>\n

MISCELLANEOUS DETAILS <\/a> <\/h2>\n

During the processing of a Tcl command it is legal to make nested calls to evaluate other commands (this is how procedures and some control structures are implemented). If a code other than TCL_OK<\/b> is returned from a nested Tcl_EvalObjEx<\/b> invocation, then the caller should normally return immediately, passing that same return code back to its caller, and so on until the top-level application is reached. A few commands, like for<\/b>, will check for certain return codes, like TCL_BREAK<\/b> and TCL_CONTINUE<\/b>, and process them specially without returning.<\/p>\n

Tcl_EvalObjEx<\/b> keeps track of how many nested Tcl_EvalObjEx<\/b> invocations are in progress for interp<\/i>. If a code of TCL_RETURN<\/b>, TCL_BREAK<\/b>, or TCL_CONTINUE<\/b> is about to be returned from the topmost Tcl_EvalObjEx<\/b> invocation for interp<\/i>, it converts the return code to TCL_ERROR<\/b> and sets interp<\/i>\u2019s result to an error message indicating that the return<\/b>, break<\/b>, or continue<\/b> command was invoked in an inappropriate place. This means that top-level applications should never see a return code from Tcl_EvalObjEx<\/b> other than TCL_OK<\/b> or TCL_ERROR<\/b>.<\/p>\n

KEYWORDS <\/a> <\/h2>\n

execute, file, global, result, script, value<\/p>\n

\n","protected":false},"excerpt":{"rendered":"

Tcl_EvalObjEx, Tcl_EvalFile, Tcl_EvalObjv, Tcl_Eval, Tcl_EvalEx, Tcl_GlobalEval, Tcl_GlobalEvalObj, Tcl_VarEval, Tcl_VarEvalVA \u2212 execute Tcl scripts <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2536],"tags":[2538,3007,3684],"class_list":["post-7370","post","type-post","status-publish","format-standard","hentry","category-3-llamadas-de-bibliotecas","tag-2538","tag-man3","tag-tcl_evalobjex"],"gutentor_comment":0,"_links":{"self":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/posts\/7370","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/comments?post=7370"}],"version-history":[{"count":0,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/posts\/7370\/revisions"}],"wp:attachment":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/media?parent=7370"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/categories?post=7370"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/tags?post=7370"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}