- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
如您所知,TCL 有一些数学函数,例如 罪 , 因 , Và 假设 hiện hữu 中调用的expr Với 的命令() 大括号如下:
puts [expr sin(1.57)]
proc add { a b } { return [expr $a+$b] } ;# string of a proc
puts [expr add(1.57, 1.43)]
1 Câu trả lời
从 C 创建一个函数并不难。为此,您必须编写将执行该操作的命令的实现,并将该实现注册为正确命名空间中的命令。 (在 8.4 和之前的版本中,功能是通过一个单独的接口(interface)完成的,使用起来有点麻烦;该机制在 8.5 中进行了全面检修。)
命令实现
请注意,签名已定义,ignored
此处不使用参数。 (它确实是 trống rỗng *
— 当您想要执行诸如将命令绑定(bind)到对象之类的操作时非常棒 — 但它根本不需要添加。)
static int AddCmd(ClientData ignored, Tcl_Interp *interp, int objc,
Tcl_Obj *const objv[]) {
double x, y, sum;
/* First, check number of arguments: command name is objv[0] always */
if (objc != 3) {
Tcl_WrongNumArgs(interp, 1, objv, "x y");
return TCL_ERROR;
}
/* Get our arguments as doubles */
if ( Tcl_GetDoubleFromObj(interp, objv[1], &x) != TCL_OK ||
Tcl_GetDoubleFromObj(interp, objv[2], &y) != TCL_OK) {
return TCL_ERROR;
}
/* Do the real operation */
sum = x + y;
/* Pass the result out */
Tcl_SetObjResult(interp, Tcl_NewDoubleObj(sum));
return TCL_OK;
}
Tcl_CreateInterp
,也可以直接进行手动。你做什么取决于你是如何与 Tcl 集成的,这本身就是一个很大的话题。所以我将展示如何创建一个初始化函数;在所有情况下,这通常都是一个好的开始。
int Add_Init(Tcl_Interp *interp) {
/* Use the fully-qualified name */
Tcl_CreateObjCommand(interp, "::tcl::mathfunc::add", AddCmd, NULL, NULL);
return TCL_OK;
}
VÔ GIÁ TRỊ
是作为第一个 (
ClientData
) 参数传递给实现的值。第二个是处理
ClientData
的回调。 (如果不需要任何操作,则为 NULL,如此处)。
Tcl_Eval
运行一个简单的脚本来运行
info body theCmdName
.过程实现确实非常复杂,因此它们的接口(interface)纯粹是在脚本级别(除非您实际上将自己与 Tcl 纠缠得比真正明智的要多得多)。
关于runtime - 将数学运算添加到标准 TCL 运算,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10985325/
我是 TCL 新手,正在努力访问其他模块。 SOURCE 命令帮助我包含了我在 TCL 程序中编写的其他代码。但是,我认为我在访问代码库时遇到了问题。 例如,当我引用一个数学函数时,找不到它。我认为在
我有两个 tcl 脚本。我想在第一个脚本完成后运行第二个脚本。我该怎么做? 最佳答案 取决于你的真正意思。 一种方法是编写第三个(“主”)脚本 source /the/path/to/the/firs
相比之下,使用 TCL C API 读取文件和填充 TCL 数组会快得多吗?对标准 TCL 做同样的事情。我有一个大约 100+MB 的大文件,我需要读取它并设置一些哈希条目。使用 TCL C API
相比之下,使用 TCL C API 读取文件和填充 TCL 数组会快得多吗?对标准 TCL 做同样的事情。我有一个大约 100+MB 的大文件,我需要读取它并设置一些哈希条目。使用 TCL C API
đóng cửa. Câu hỏi này không đáp ứng được hướng dẫn của Stack Overflow. Hiện tại câu hỏi này không chấp nhận câu trả lời. Bạn muốn cải thiện vấn đề này? Cập nhật câu hỏi để nó phù hợp với chủ đề của Stack Overflow. Đã đóng cửa 6 năm trước. Cải thiện điều này
我有以下基本代码: proc test {} { set my_var2 3 foreach iter {1 2 3} { set my_var1 4
例如,在 Perl 中,要获取从 1 到 10 的连续数字数组,您可以简单地执行以下操作: @myArray = (1 .. 10); 这两个句点用作此操作的简写,而不是制作 for 循环或手动写出整
我有一个列表,我正在尝试修改它并根据我想要实现的目标制作一个新列表。 原始列表 $> set a {123.4:xyz 123.4:pqr 123.4:xyz 123.4:abc 123.4:mno}
在TCL中是否可以将参数的默认值作为函数调用的返回值? proc GetParameterValue { } { # calculation for value... return v
有些东西在说谎...... 请记住,当我手动运行脚本时,这会按预期工作,但当它通过任务调度程序运行时则不会。 我有一个 TCL 脚本,用于检查网络驱动器上是否存在文件,如果存在则将其删除。我通过以下方
如果不是,它是什么? 我读到的关于 TCL 的所有内容都指出,所有内容都只是其中的一个字符串。解释器内部可以有一些其他类型和结构(为了性能),但在 TCL 语言级别,一切都必须表现得像一个字符串。还是
我已经开发了一些代码,但我在 Linux 机器上遇到了 Tcl 解释器的错误标记问题。 #!/usr/bin/tclsh if {1} { puts "abc1" } elseif {} {
我需要一些帮助来定义数组以及在 TCL 中显示和循环它们。 这是我将如何在 php 中执行它们。 $date =array(); $size=0; $date[$size] =$pre_event_d
Theo tình hình hiện tại, câu hỏi này không phù hợp với định dạng Hỏi & Đáp của chúng tôi. Chúng tôi mong đợi câu trả lời sẽ là
谁能解释一下init.tcl有什么用? TCL 解释器实际上何时加载它? 该文件的描述如下 startup file for TCL . 但据我所知.tclshrc是启动文件。 谁能解释一下吗? 最佳
我试图通过在函数外部声明它来使用全局变量 (gpio_out_set_3)(因为该变量将来也可能在其他函数中使用)。在函数内部,我已将相同的变量声明为“global”并尝试通过“$gpio_out_s
我在 TCL 中有代码: set a 1 set b 0 set c "Start" if { $a == 1 && ($b == 1 || $c == "Start") } { puts W
我正在实习,实习要求我学习和练习 TCL - OO,所以我一直在寻找有关 TCL - OO 的教程、示例和书籍,但我找不到任何东西,所以如果有人可以的话,我将非常感激给我一些关于 TCL - OO 的
我试图通过在函数外部声明它来使用全局变量 (gpio_out_set_3)(因为该变量将来也可能在其他函数中使用)。在函数内部,我已将相同的变量声明为“global”并尝试通过“$gpio_out_s
如何通过键盘向 Tcl 脚本提供输入? C 中有类似 scanf() 的东西吗? 最佳答案 gets命令可能就是您想要的。 set data [gets stdin] # or set numchar
Tôi là một lập trình viên xuất sắc, rất giỏi!