简单的MForcal模块例子

简单的MForcal模块例子

MForcal在编译时，将源程序中的表达式编译为一个或多个模块，MForcal会对每一个模块进行加锁。编译时首先设置起始模块，也称主模块（并非Forcal的0#模块，恰恰相反，MForcal不会将任何一个表达式编译为0#模块，定义主模块是为了与源程序中的其他模块相区别），以后每当遇到#MODULE#，开始编译为一个新的模块，称为子模块，而每当遇到#END#，回到主模块的编译。即#MODULE#和#END#之间的表达式定义为一个子模块，子模块之间不能嵌套定义。注意#MODULE#和#END#必须位于表达式的开头。在模块中，以~开头的表达式被编译为正模块号表达式，能被其他模块访问到，其余的表达式均被编译为负模块号表达式，其他模块无法访问。所有模块的模块号由MForcal或程序员指定，不会重复，也不会被编译为0#模块。在源程序的任何地方，可用指令#USE#调用另一个模块。

建议模块公有表达式的命名格式为模块名加函数名，即：ModuleName_FunctionName。

#MODULE# //定义一个子模块，模块名为Module1；
i:set(x::add)= add=x; //模块号为负，只能被该模块的表达式所访问；
i:get(::add)= add; //模块号为负，只能被该模块的表达式所访问；
~i:Module1_set(x)= set(x); //模块号为正，任意模块包括本模块均可访问；
~i:Module1_get()= get(); //模块号为正，任意模块包括本模块均可访问；
#END# //子模块定义结束，可缺省；

#MODULE# //定义一个子模块，模块名为Module2；
i:set(x::add)= add=x; //模块号为负，只能被该模块的表达式所访问；
i:get(::add)= add; //模块号为负，只能被该模块的表达式所访问；
~i:Module2_set(x)= set(x); //模块号为正，任意模块包括本模块均可访问；
~i:Module2_get()= get(); //模块号为正，任意模块包括本模块均可访问；
#END# //子模块定义结束，不可缺省；

i:set(x::add)= add=x; //主模块中的表达式。
i:get(::add)= add; //主模块中的表达式。
i:set(33); //主模块中的表达式。

Module1_set(11); //主模块中的表达式。
Module2_set(22); //主模块中的表达式。
Module1_get(); //主模块中的表达式。
Module2_get(); //主模块中的表达式。

get(); //主模块中的表达式。