简单的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();                                        //主模块中的表达式。