用Perl来帮助生成C++版“自动属性”

用VS来使用C#的应该知道有个自动属性,类似于

public int MyProperty { get; set; }
他帮你自动生成get/set方法,还帮你把这些方法绑定到该属性上,很方便的说,但是C++的IDE里没有这个功能的,而且我们C++需要写
     _declspec(property(put=setJobID, get=getJobID))
        unsigned long jobID;
    void            setJobID(unsigned long inJobID);
    unsigned long   getJobID() const;
这么多代码来做这些事情,故我用perl写了个简单的脚本,根据变量类型、变量名字和变量读写属性帮我自动生成这些。

前提:
1.电脑上有安装perl,且能正常使用。
2.提供一个field.txt,里面的每行都包含 变量类型,变量名字,变量读写属性
例如string,version,rw
       unsigned long,length,r
       YourStructName,structName,w

简单知识点:
1.文件读写
 perl文件读需要用 到IO::File 或者输入重定向,这里用的模块是IO::File.
my $f = new IO::File("< field.txt");# the file contains type,name,rw/r/w
if(!$f)
{
   print("$!\n");
   exit(1);
}
 输出这块用的是输出重定向,可以 参考
# 创建STDOUT句柄的一个副本,之后可以关闭STDOUT
open my $oldout, '>&', \*STDOUT or die "Cannot dup STDOUT: $!";
# 重新将STDOUT打开为文件output.txt的句柄
# 在打开文件之前,Perl会将原来保存在STDOUT中的句柄关闭
open STDOUT, '>', 'output.txt' or die "Cannot reopen STDOUT: $!";
# 接下来的默认输出将会写入到output.txt
print "Hello, World!\n";
# 从原有的STDOUT副本中恢复默认的STDOUT
open STDOUT, '>&', $oldout or die "Cannot dup \$oldout: $!";

2.字符串包含
  用正则表达式就可以$a=~/w/ 表示$a包含“w”。

废话不多说,上全部代码:
#!/usr/bin/perl

use strict;
use warnings;
use IO::File;
my $f = new IO::File("< field.txt");# the file contains type,name,rw/r/w
if(!$f)
{
   print("$!\n");
   exit(1);
}
#stdout -> file
open my $oldout, '>&', \*STDOUT or die "Cannot dup STDOUT: $!";
open STDOUT, '>', 'output.txt' or die "Cannot reopen STDOUT: $!";

my $line;
my @array;
while($line=<$f>)
{
   chomp($line);
   $array[@array]=[split(/,/,$line,3)];
}
my $i;
#for $i ( 0 .. $#array ) 
#{            
#	print $array[$i][0]." ".$array[$i][1]." ".$array[$i][2]."\n";
#}

#    _declspec(property(put=setName,get=getname))               
#       type name;
for $i (0..$#array)
{ 
	my $result = "_declspec(property(";
	my $type = $array[$i][0];
	my $name = $array[$i][1];
	my $rw   = $array[$i][2];
	if ($rw =~ /w/)
	{
		$result = $result."put=set".$name.",";
	}
	if($rw =~ /r/)
	{
	$result = $result."get=get".$name."))";
	}
	$result = $result."\n    ".$type."  ".$name.";\n";
	print $result;
}
#  void            setProgress(unsigned long inPercentDone);
#unsigned char   getProgress() const;
for $i (0..$#array)
{ 
	
	my $type = $array[$i][0];
	my $name = $array[$i][1];
	my $rw   = $array[$i][2];
	my $result ="";
	if ($rw =~ /w/)
	{
		#w
		$result = $result."void    set".$name."(".$type." in".$name.");\n";
	}	
	if($rw =~ /r/)
	{
		#r
		$result = $result.$type."    get".$name."() const;\n";
	}
	print $result;
}
#file -> stdout
open STDOUT, '>&', $oldout or die "Cannot dup \$oldout: $!";
my $status = system( "notepad.exe output.txt" );
if ($status != 0)
{
	print "Failed to open output.txt";
	exit -1;
} else {
	print "Success to open output.txt,please check it !";
}
exit 0;

输出的文件是output.txt,里面上半部分是绑定,下半部分是 get/set函数声明。
全部代码见于: https://github.com/lcl-data/GeneratedAutoPropertyInCplusplus
LCL_data原创于CSDN blog,转载请注明。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值