Improved scripts

Author: kevinlano

cg/cobol2UML.cstl

@@ -2318,6 +2318,7 @@ MOVE _1  |-->_1
 
 moveToStatement::
 _1 TO _2  |-->    _2 := StringLib.leftAlignInto("" + _1, _2`fieldWidth);\n<when> _1 String
+_1 TO _2  |-->    _2 := StringLib.padLeftWithInto("" + _1, " ", _2`fieldWidth);\n<when> _1 real, _2 String
 _1 TO _2  |-->    _2 := _1 ;\n
 _1 TO _2 _*  |-->    (var _moveTmp : OclAny ; _moveTmp := _1;\n _2 := _moveTmp;\n_*`moveAssignments      skip) ; \n
 

cg/mathocl2mamba.cstl

@@ -49,6 +49,8 @@ formula::
 Define _1 |-->
 Define _1 = _2 |-->\n\n  function double _1`operationName(_1`operationParameters)\n  { return _2; }
 Define _1 ~ _2 |--> 
+Define _1 : _2 |-->
+Define _1 : _2 = _3 |-->\n\n  function _2 _1`operationName(_1`operationParameters)\n  { return _3; }
 
 
 operationName::
@@ -101,15 +103,18 @@ _1 , _* |-->_1,_*`recurse
 
 
 type::
-Sequence ( _1 ) |-->Sequence(_1)  
-Set ( _1 ) |-->Set(_1)  
-OrderedSet ( _1 ) |-->OrderedSet(_1)  
-Bag ( _1 ) |-->Bag(_1)  
-Map ( _1 , _2 ) |-->Map(_1,_2) 
-Function ( _1 , _2 ) |-->Function(_1,_2) 
+Sequence ( _1 ) |-->Array[_1]  
+Set ( _1 ) |-->Collection[_1]  
+OrderedSet ( _1 ) |-->Array[_1]  
+Bag ( _1 ) |-->Array[_1]  
+Map ( _1 , _2 ) |-->Dictionary[_1,_2] 
+Function ( _1 , _2 ) |-->Func[_1,_2] 
 � |-->int
 � |-->int
 � |-->double
+boolean |-->bool
+String |-->string
+Date |-->OclDate
 _1 |-->_1
 
 
@@ -351,6 +356,13 @@ max ( _1 ) |-->(_1).Max(x => x)
 Binomial ( _1 ) |-->excel.Binom_Dist_Range(_1`third,_1`last,_1`first,_1`third)
 
 var ( _1 ) |-->_1.variance()
+Date ( _1 ) |-->OclDate.newOclDate_String(_1)
+Time ( _1 ) |-->OclDate.newOclDate_Time(_1)
+
+accumulatedInterest ( _1 ) |-->financeLib.accumulatedInterest(_1)
+Binomial ( _1 ) |-->excel.Binom_Dist_Range(_1`third,_1`last,_1`first,_1`third)
+bondPrice ( _1 ) |-->financeLib.bondPrice(_1)
+bondPriceClean ( _1 ) |-->financeLib.bondPriceClean(_1)
 
 _1 ( _2 ) |-->_1(_2)
 _1 ( ) |-->_1()

cg/python2UML.cstl

@@ -1786,11 +1786,13 @@ _* |-->
 
 
 classdef::
-class _1 ( _2 ) : _3 |-->class _1 extends _2 {\n  static operation new_1() : _1\n  pre: true post: true\n  activity: var $x : _1 := create_1(); return $x;\n\n_3`classcontent}\n\n<action> _1 Class
+class _1 ( Enum ) : _3 |-->class _1 {\n  static operation new_1() : _1\n  pre: true post: true\n  activity: var _x : _1 := create_1(); return _x;\n\n_3`classcontent}\n\n<action> _1 Class
 
-class _1 ( ) : _2 |-->class _1 {\n  static operation new_1() : _1\n  pre: true post: true\n  activity: var $x : _1 := create_1(); return $x;\n\n_2`classcontent}\n\n<action> _1 Class
+class _1 ( _2 ) : _3 |-->class _1 extends _2 {\n  static operation new_1() : _1\n  pre: true post: true\n  activity: var _x : _1 := create_1(); return _x;\n\n_3`classcontent}\n\n<action> _1 Class
 
-class _1 : _2 |-->class _1 {\n  static operation new_1() : _1\n  pre: true post: true\n  activity: var $x : _1 := create_1(); return $x;\n\n_2`classcontent}\n\n<action> _1 Class
+class _1 ( ) : _2 |-->class _1 {\n  static operation new_1() : _1\n  pre: true post: true\n  activity: var _x : _1 := create_1(); return _x;\n\n_2`classcontent}\n\n<action> _1 Class
+
+class _1 : _2 |-->class _1 {\n  static operation new_1() : _1\n  pre: true post: true\n  activity: var _x : _1 := create_1(); return _x;\n\n_2`classcontent}\n\n<action> _1 Class
 
 
 classcontent::

cg/restructure.cstl

@@ -8,21 +8,36 @@ return |-->return
 continue |-->continue
 break |-->break 
 var _1 : _2 |-->var _1 : _2
+var _1 : _2 := _3 |-->var _1 : _2 := _3
+
+if true then _1 else _2 |-->_1
+if false then _1 else _2 |-->_2
+if _1 then _2 else _2 |-->_2
 
 if _1 then _2 else skip |-->if _1 then _2 else skip  
 if _1 then _2 else _3 |-->if _1 then _2 else skip; _3<when> _2`endsWithReturn true
 if _1 then _2 else _3 |-->if _1 then _2 else _3  
 
-
+while false do _1 |-->skip
 while _1 do _2 |-->while _1 do _2 
 for _1 : _2 do _3 |-->for _1 : _2 do _3 
 return _1 |-->return _1 
 _1 := _2 |-->_1 := _2 
+
+skip ; _1 |-->_1
+_1 ; skip |-->_1
+return ; _1 |-->return
+continue ; _1 |-->continue
+break ; _1 |-->break
+
 _1 ; _2 |-->_1 ; _2  
 execute _1 |-->execute _1 
 call _1 |-->call _1 
+( skip ) |-->skip
 ( _1 ) |-->(_1)
 
+
+
 recursiveCall::
 skip |--> 
 return |-->