Chinaunix

标题: 生成转换字节序函数的工具 [打印本页]
作者: timespace    时间: 2008-08-13 13:29
标题: 生成转换字节序函数的工具
可用于网络编程时有很多结构体头文件，自动生成转换函数声明和定义，自己用Perl用写的，大家有时可能用得到


  2. #!/usr/bin/perl
  3. use strict;
  4. use warnings;

  6. my %to_net = (
  7.         "short" => "htons",
  8.         "int"        => "htonl",
  9.         "long"        => "htonl",
  10.         "INT16" => "htons",
  11.         "UINT16" => "htons",
  12.         "INT32" => "htonl",
  13.         "UINT32" => "htonl",
  14. );
  15. my %to_host = (
  16.         "short" => "ntohs",
  17.         "int"        => "ntohl",
  18.         "long"        => "ntohl",
  19.         "INT16" => "ntohs",
  20.         "UINT16" => "ntohs",
  21.         "INT32" => "ntohl",
  22.         "UINT32" => "ntohl",
  23. );
  24. my $definition = shift @ARGV;
  25. my $header        = "ByteOrderTrans.h";
  26. my $source  = "ByteOrderTrans.cpp";
  27. open DEF, "< $definition" or die "Can't open $definition: $!";
  28. open HEAD, "+> $header" or die "Can't open $header: $!";
  29. open BODY, "+> $source" or die "Can't open $source: $!";
  30. local $/;
  31. my $text = <DEF>;
  32. close DEF;

  34. my $var_re = qr/
  35.                    ^\s*
  36.                    (?:typedef\s+)?
  37.                    struct\s+
  38.                    (\w+)\s*        #struct variable name
  39.                    \{
  40.                        ([^}]+)     #member variables
  41.                    \}
  42.                    \s*\1?\s*;
  43.                /x;
  44. my $mem_re = qr{
  45.                    (\w+)\s+       #member variable type
  46.                    (\w+)\s*$      #member variable name
  47.                }x;
  48. my $hton_func;
  49. my $ntoh_func;
  50. while ( $text =~ /$var_re/msg ) {
  51.         print HEAD "void hton_$1( $1 *p );\n"."void ntoh_$1( $1 *p );\n\n";
  52.         $hton_func = "void hton_$1( $1 *p )\n{\n";
  53.         $ntoh_func = "void ntoh_$1( $1 *p )\n{\n";
  54.         foreach ( split /;/, $2 ) {
  55.                 if ( /$mem_re/ and exists $to_host{$1} ){
  56.                         $hton_func .= "\t p->$2 = $to_net{$1}(p->$2);\n";
  57.                         $ntoh_func .= "\t p->$2 = $to_host{$1}(p->$2);\n";
  58.                 }
  59.         }
  60.         print BODY $hton_func."}\n".$ntoh_func."}\n\n";
  61. }
  62. close HEAD;
  63. close BODY;
复制代码

[ 本帖最后由 timespace 于 2008-8-19 16:07 编辑 ]

ByteOrderTrans.rar

730 Bytes, 下载次数: 57
作者: MMMIX    时间: 2008-08-13 20:46
要是提供代码的可下载版本就更完美了。



欢迎光临 Chinaunix (http://bbs.chinaunix.net/) Powered by Discuz! X3.2