Halcon代码到Aardio代码自动转换工具

By admin at 2019-03-25 • 0人收藏 • 530人看过

Halcon代码一键转换为Aardio代码工具(第一版) , 终于写好了, 还有很多地方需要添加功能,比如转换for/while等等控制函数,  如果转换的代码里有Halcon的IDE专用函数, 默认也没有进行匹配转换, 这个工具目前版本可以省去五分之四的手动转换时间(大概) , 学习halcon 的可以用一用试试,


原理:

通过COM控件内的函数, 将需要前移的参数和不动的参数位分别设置为0和1, 其中0表示该位置的参数需要前移 , 1表示该位的参数不需要移动

这样将com中的所有函数都遍历一遍写入到ini文件, ini文件的key头就设置为函数的名字, value值就设置为参数位0或者1, 以逗号分隔, 

下面转换halcon代码的时候,一行一行进行转换, 遇到函数就转换, 不是函数就replace替换一些名称之后, 复制到下一行.

image.png


import win.ui;
import fsys.ini;
import win.clip;
/*DSG{{*/
mainForm = win.form(text="Halcon2AAR转换工具";right=959;bottom=505)
mainForm.add(
Halconclassname={cls="edit";text="HOperatorSetX";left=506;top=9;right=764;bottom=50;align="center";autohscroll=false;autovscroll=false;bgcolor=0;color=65280;dr=1;dt=1;edge=1;font=LOGFONT(h=-21);multiline=1;z=3};
["aar代码"]={cls="richedit";left=0;top=331;right=960;bottom=506;db=1;dl=1;dr=1;edge=1;hscroll=1;multiline=1;vscroll=1;z=8};
button={cls="button";text="生成匹配文件";left=778;top=4;right=953;bottom=50;dr=1;dt=1;font=LOGFONT(h=-24);z=2};
button2={cls="button";text='\u2193\u2193\u2193Halcon代码转换到Aardio代码\u2193\u2193\u2193';left=0;top=249;right=960;bottom=292;db=1;dl=1;dr=1;font=LOGFONT(h=-20);z=6};
button3={cls="button";text='\u2193清空';left=146;top=62;right=263;bottom=94;z=11};
button4={cls="button";text='\u2193清空';left=144;top=295;right=261;bottom=327;z=12};
button5={cls="button";text='\u2193黏贴剪切板内文本';left=292;top=62;right=433;bottom=94;z=13};
button6={cls="button";text='\u2193复制文本到剪切板';left=286;top=295;right=427;bottom=327;z=14};
comEdit={cls="edit";text="{6ebd90e2-d219-11d2-ade5-0000c00f4ef9}";left=129;top=9;right=350;bottom=48;align="center";autohscroll=false;autovscroll=false;bgcolor=0;color=65280;dl=1;dt=1;edge=1;font=LOGFONT(h=-21);z=1};
["halcon代码"]={cls="richedit";left=0;top=99;right=960;bottom=249;dl=1;dr=1;dt=1;edge=1;hscroll=1;multiline=1;vscroll=1;z=7};
static={cls="static";text="控件GUID:";left=0;top=0;right=125;bottom=60;center=1;dl=1;dt=1;font=LOGFONT(h=-24);transparent=1;z=4};
static2={cls="static";text="控件对象名:";left=363;top=0;right=504;bottom=60;center=1;dl=1;dr=1;dt=1;font=LOGFONT(h=-24);transparent=1;z=5};
static3={cls="static";text='Halcon代码\u2193';left=7;top=65;right=228;bottom=99;dl=1;dt=1;font=LOGFONT(h=-20);transparent=1;z=9};
static4={cls="static";text='Aardio代码\u2193';left=0;top=300;right=221;bottom=334;db=1;dl=1;font=LOGFONT(h=-20);transparent=1;z=10}
)
/*}}*/

var path;
 
var loadFunc = function( comMsg ){
   path =  io.exist("/"++mainForm.Halconclassname.text++".ini")
   if(path){
         io.remove("/"++mainForm.Halconclassname.text++".ini");
   }
   import com;
    //调用COM组件
    obj = com.CreateObject( comMsg ); 
    //获取COM组件类型库信息
    var typeinfo = com.GetTypeInfo(obj)
    //准备存储获取到的类型库信息
    var funcTab = {};
    //下面直接调用函数总数目不准确,因为有写com组件里有空函数
    //winform.funcEdit.log("共有函数: "++typeinfo.GetTypeAttr().Funcs ++ " 个!",'\r\n');
    for(i=0;typeinfo.GetTypeAttr().Funcs-1;1){ 
        table.push(funcTab,table.clone(typeinfo.GetFuncDesc(i) )); 
    }
    //添加注释头部
    string.save("/"++mainForm.Halconclassname.text++".ini","["++mainForm.Halconclassname.text++"]"++'\r\n',true);
   for(i=1;#funcTab;1){
       var funcPara = "";//参数合成
       var headTab = "";
       if(funcTab[i].Params != null){
           //console.dump(funcTab[i]);
           //总共几个变量参数
           for(j=1;funcTab[i].Params;1){
               var parametersTab = (funcTab[i].parameters)[j];
               if( parametersTab != null ){
                   //console.dump(parametersTab);
                   if(j==1){
                       //funcPara = string.concat(funcPara,parametersTab._com_type," ",parametersTab.name);
                       if( string.indexOf(parametersTab._com_type,"&") ){
                             headTab = string.concat(headTab,"1");
                             funcPara = string.concat(funcPara,"0");
                       }else {
                             funcPara = string.concat(funcPara,"1");
                       }
                        
                        
                        
                   }else {
                       //funcPara = string.concat(funcPara,',',parametersTab._com_type," ",parametersTab.name);
                       if( string.indexOf(parametersTab._com_type,"&") ){
                           if(headTab != ""){
                                 headTab = string.concat(headTab,",","1");
                                  
                           }else {
                                 headTab = string.concat(headTab,"1");
                           }
                            
                           if(funcPara != ""){
                                 funcPara = string.concat(funcPara,",","0");
                           }else {
                                 funcPara = string.concat(funcPara,"0");   
                           }
                            
                              
                       }else {
                           if(funcPara != ""){
                                 funcPara = string.concat(funcPara,",","1");
                           }else {
                                 funcPara = string.concat(funcPara,"1");   
                           }
                            
                              
                       }
                        
                   }
                     
               }
             
           }
            
        if(funcPara != ""){
            string.save("/"++mainForm.Halconclassname.text++".ini",string.concat(funcTab[i].name ,"=",funcPara ,'\r\n') ,true);
        }
   
       }
   }
    
 }
      
          
mainForm.button.oncommand = function(id,event){
    loadFunc(mainForm.comEdit.text);
    mainForm.msgbox("生成完成!")
      
}
 
 

var halcon2AAR = function( str ){
    var FuncList = fsys.ini(path)
    var ListFun = FuncList.getSection("HOperatorSetX");
     
    var replaceStr = function(s){
		
		var ret = string.split(s,",");
		var retStr;	
		if(#ret>1){
			for(i=1;#ret;1){
				ret[i] = string.replace(ret[i],"@[","{");
				ret[i] = string.replace(ret[i],"@]","}");
				if(retStr == null){
					retStr = string.concat(retStr,ret[i]);	
				}else {
					retStr = string.concat(retStr,";",ret[i]);
				}	
			}
		}else {
			var retss = string.replace(ret[1]," ","");
			if(retss=="[]"){
				return "{}";
			}else {
				return s;
			}
		}
		return retStr; 
	}


     
    //替换规则
    var replaceFun = function(strr){
        strr = string.replace(strr,"@:=","=");
        
        for s in string.gmatch( strr, "%\[\]" ){
			var ret = replaceStr(s);
			strr = string.replace(strr,"@"++s,ret);
		}
        
        strr = string.replace(strr,"()mean(%())","HOperatorSetX.TupleMean\2");
        strr = string.replace(strr,"()rad(%())","math.rad\2");
        strr = string.replace(strr,"()sin(%())","math.sin\2");
        strr = string.replace(strr,"()cos(%())","math.cos\2");
        strr = string.replace(strr,"()tan(%())","math.tan\2");
        strr = string.replace(strr,"()asin(%())","math.asin\2");
        strr = string.replace(strr,"()acos(%())","math.acos\2");
        strr = string.replace(strr,"()atan(%())","math.atan\2");
        strr = string.replace(strr,"()atan2(%())","math.atan2\2");
        strr = string.replace(strr,"()sinh(%())","math.sinh\2");
        strr = string.replace(strr,"()cosh(%())","math.cosh\2");
        strr = string.replace(strr,"()tanh(%())","math.tanh\2");
        strr = string.replace(strr,"()exp(%())","math.exp\2");
        strr = string.replace(strr,"()log(%())","math.log\2");
        strr = string.replace(strr,"()pow(%())","HOperatorSetX.TuplePow\2");
        strr = string.replace(strr,"()subset(%())","HOperatorSetX.TupleSelect\2");
        strr = string.replace(strr,"()firstn(%())","HOperatorSetX.TupleFirstN\2");
        strr = string.replace(strr,"()lastn(%())","HOperatorSetX.TupleLastN\2");
        strr = string.replace(strr,"()select_mask(%())","HOperatorSetX.TupleSelectMask\2");
        strr = string.replace(strr,"()remove(%())","HOperatorSetX.TupleRemove\2");
        strr = string.replace(strr,"()find(%())","HOperatorSetX.TupleFind\2");
        strr = string.replace(strr,"()replace(%())","HOperatorSetX.TupleReplace\2");
        strr = string.replace(strr,"()find_first(%())","HOperatorSetX.TupleFindFirst\2");
        strr = string.replace(strr,"()find_last(%())","HOperatorSetX.TupleFindLast\2");
        strr = string.replace(strr,"()uniq(%())","HOperatorSetX.TupleUniq\2");
        strr = string.replace(strr,"()gen_tuple_const(%())","HOperatorSetX.TupleGenTupleConst\2");
        strr = string.replace(strr,"()lsh(%())","HOperatorSetX.TupleLsh\2");
        strr = string.replace(strr,"()rsh(%())","HOperatorSetX.TupleRsh\2");
        strr = string.replace(strr,"()strchr(%())","HOperatorSetX.TupleStrchr\2");
        strr = string.replace(strr,"()strrchr(%())","HOperatorSetX.TupleStrrchr\2");
        strr = string.replace(strr,"()strstr(%())","HOperatorSetX.TupleStrstr\2");
        strr = string.replace(strr,"()strrstr(%())","HOperatorSetX.TupleStrrstr\2");
        strr = string.replace(strr,"()strlen(%())","HOperatorSetX.TupleStrlen\2");
        strr = string.replace(strr,"()split(%())","HOperatorSetX.TupleSplit\2");
        strr = string.replace(strr,"()difference(%())","HOperatorSetX.TupleDifference\2");
        strr = string.replace(strr,"()intersection(%())","HOperatorSetX.TupleIntersection\2");
        strr = string.replace(strr,"()symmdiff(%())","HOperatorSetX.TupleSymmdiff\2");
        strr = string.replace(strr,"()union(%())","HOperatorSetX.TupleUnion\2");
        strr = string.replace(strr,"()sum(%())","HOperatorSetX.TupleSum\2");
        
        strr = string.replace(strr,"^\s*dev_.*?%()","//\1",1);
        strr = string.replace(strr,"()set_display_font\s*(%())","//set_display_font\2");
        strr = string.replace(strr,"()disp_message\s*(%())","//disp_message\2");
        strr = string.replace(strr,"()disp_continue_message\s*(%())","//disp_continue_message\2");
        strr = string.replace(strr,"()stop\s*(%())","//stop\2");
        
        strr = string.replace(strr,"^\s*\*\s*","//");
        
        strr = string.replace(strr,"()(%\|\|)","HOperatorSetX.TupleLength(\2)");
        strr = string.replace(strr,"@(|","(");
        strr = string.replace(strr,"@|)",")");
        
        return strr;
    }
     
    //匹配括号
    var ss = string.match(str,"%()");
    if(!ss){
        //不是设定的函数
        str = replaceFun(str);
        return str; 
    }
    //取函数名称
    var funcName = string.trim(string.replace(str,"@"++ss,""));
    //转换函数名 
    var strP = string.split(funcName,"_");
    var retName;
    for(i=1;#strP;1){
        var sstr = string.split(strP[i])
        for(i=1;#sstr;1){
            if(i==1){
                retName = string.concat(retName,string.upper(sstr[1]));
            }else {
                retName = string.concat(retName,sstr[i]);
            }
        }
    }
    retName = string.trim(retName);
    //取出参数部分
    var leftss = string.left(ss,#ss-1,true );
    var retSS = string.right(leftss,#leftss-1,true)
    
    
    var returnPlace={};
    var i =1;
    for s in string.gmatch( retSS, "%\[\]" ){
		returnPlace[i] = replaceStr(s);
		retSS = string.replace(retSS,"@"++s,"SSSSYYSSSS");
		i++;
	}
    
    
    var ssP = string.split(retSS,",");
    for(i=1;#ssP;1){
        ssP[i] = replaceFun(ssP[i]);
    }
     
    //匹配转换规则
    var guize = ListFun[retName];
    if(guize){
        var guizeP = string.split(guize,",");
        var retStr = "";
        var header = "";
        var tailer = "";
        for(i=1;#guizeP;1){
            if(guizeP[i] == 0){
                if(header == ""){
                    header = string.concat(header,ssP[i])
                }else {
                    header = string.concat(header,",",ssP[i])
                }   
            }else {
                if(tailer == ""){
                    tailer = string.concat(tailer,ssP[i])
                }else {
                    tailer = string.concat(tailer,",",ssP[i])
                }
                

                
                
            }
        }
        if(header == ""){
            retStr = string.concat(retStr,"HOperatorSetX.",retName,"( ",tailer," );");
        }else {
            retStr = string.concat(retStr,"var ",header," = HOperatorSetX.",retName,"( ",tailer," );");
        }
        
        if(#returnPlace){
            var j=1;
             	for m in string.gmatch(retStr ,"SSSSYYSSSS") { 
             	    retStr = string.replace(retStr,"SSSSYYSSSS",returnPlace[j],1);
             	    j++;
             	}
        }
        return retStr;
    }else {
        //不是设定的函数
        str = replaceFun(str);
        return str; 
    }
}
//示例代码
mainForm.halcon代码.text=/****
read_image (Image, 'progres')
get_image_size (Image, Width, Height)
dev_close_window ()
dev_open_window (0, 0, Width, Height, 'white', WindowID)
dev_set_color ('red')
gen_rectangle1 (Rectangle, 260, 90, 360, 350)
reduce_domain (Image, Rectangle, ImageReduced)
threshold (ImageReduced, Dark, 0, 150)
connection (Dark, ConnectedRegions)
select_shape (ConnectedRegions, SelectedRegions, 'area', 'and', 10, 100)
elliptic_axis (SelectedRegions, Ra, Rb, Phi)
area_center (SelectedRegions, Area, Row, Column)
dev_set_draw ('margin')
dev_display (Image)
* dev_set_colored (12)
dev_set_color ('green')
dev_display (SelectedRegions)
MeanRadius := sum(Ra) / |Ra|
VarianceRadius := sum(Ra * Ra - MeanRadius * MeanRadius) / (|Ra| - 1)
****/
 
mainForm.halcon代码.enablePopMenu();
mainForm.aar代码.enablePopMenu();
 
mainForm.button2.oncommand = function(id,event){
    path =  io.exist("/"++mainForm.Halconclassname.text++".ini")
    if(!path){
         mainForm.msgboxErr("匹配库文件不存在 , 请先点击头部按钮 , 生成匹配库文件!");
         return;
     }
      
    for line in mainForm.halcon代码.lines(true){ 
        var str = halcon2AAR( line );
        mainForm.aar代码.log(str ,'\r\n' )
    }
}

mainForm.button3.oncommand = function(id,event){
	mainForm.halcon代码.text = "";
}

mainForm.button4.oncommand = function(id,event){
	mainForm.aar代码.text = "";
}

mainForm.button5.oncommand = function(id,event){
	mainForm.halcon代码.text = win.clip.read();
}

mainForm.button6.oncommand = function(id,event){
	win.clip.write( mainForm.aar代码.text )
}

mainForm.show();
return win.loopMessage();

使用中遇到其他问题, 可以回帖, 当然有人能精简下代码,有更好的方案分享就更好了.


更新日志:

2019-03-30 更新部分dev_开头函数前面自动加 // 注释掉此行

2019-04-03 更新自动转化[4,5,6]这样的参数为{4;5;6},修正几处连带错误

2019-04-03 更新dev_开头注释方法, 增加|a|匹配方法

遗留问题:

if 和for 等控制语句还未分析

登录后方可回帖

登 录
信息栏
本站永久域名:HtmLayout.Cn
纯私人站,当笔记本用的,学到哪写到哪,目前正在学aardio+halcon机器视觉.
本 站 主 站:Stm32cube中文网
Aardio 官方站:Aardio官方
Aardio最新功能:Aardio官方更新日志
aardio在线手册Aardio在线手册
黑猫Aar教程网:简码编程
C大Aardio论坛:Aar爱好者论坛
AARDIO语言QQ群:70517368
赞助商:才仁机械
下载站:非凡软件站
Loading...