定义程序

全局程序

一旦定义了全局程序，您可以在任意位置调用它：从任意脚本文件、在任意函数中、或从命令行。全局程序声明的常规形式如下所示：

global proc 
 return_type
 
                  
 procedure_name
 ( 
                  
 arguments
 ) { 
                  	
                  
 MEL_statements 
                  }
                  

• global 关键字使新程序在任意位置可用。
• proc 关键字指示您正在定义程序。
• 可以在 proc 后为程序的返回类型添加关键字。例如，如果程序返回一个整数，请键入 int。如果程序不返回值，可以忽略。
• 程序的名称。
• 参数列表，包括在括号内，且之间用逗号分隔。每个参数都是一个前面带有其类型（例如 string）的变量名（以 $ 开头）。
• 要在调用程序时执行的代码块。

返回值

如果为程序指定了返回类型，则必须在程序代码块中的某位置使用 return 运算符才会返回值。

global proc float square(float $x) {
	return $x * $x;
}
square(5.0);
25

如果没有为程序指定返回类型（指示该程序将不会返回值），则您只能指定 return 运算符，而不返回值。在该上下文中使用的 return 运算符相当于函数中断符。

// This does not work. 
global proc add5(int $x) {return $x+5;}; 
// Error: global proc cc(int $x) {return $x+5;}; // 
// Error: This procedure has no return value. //
// This works. 
global proc add5(int $x) {return;};" 

示例

以下是一些程序声明示例：

global proc string sayHi() {
	return "Hello!\n";
}
global proc float square(float $x) {
	return $x * $x;
}
global proc int max(int $a, int $b) {
	if ($a > $b) {
		return $a;
	} else 
		return $b;
}
global proc msg() {
	print "This proc has no return value.\n";
}

局部程序

如果在程序声明的开头不使用 global 关键字，则该程序对于在其中定义它的文件是局部的。

// This is a local procedure
// that is only visible to the code in this file.
proc red5() {print("red5 standing by...\n");}

这对于生成对其他程序起作用的“辅助对象”程序非常有用。您可以对其他使用您的脚本的人员仅显示一个或两个全局程序，而隐藏辅助对象代码。

不能在“脚本编辑器”(Script Editor)中定义局部程序。它们仅在外部脚本文件中可用。

程序不能是未定义的

一旦定义了 MEL 程序，该程序将始终存在且无法删除。无论该程序是显式还是隐式创建都如此。通过使用 proc 指令（例如，proc foo(){})显式创建程序 foo。可通过执行下列任一操作隐式创建尚未显式创建的程序 foo：

• 尝试以交互方式将其用作程序，例如，在“脚本编辑器”(Script Editor)中：

  foo;
  // Error: line 1: Cannot find procedure "foo". //
  

• 将其用作其他程序的定义内的程序：

  proc bar()
    {
       foo;
    }
  

proc bar()
{
   if( `exists foo`){
    string $cmd = "foo -h";
    eval($cmd);
    }
}