生成转换字节序函数的工具

timespace

可用于网络编程时有很多结构体头文件，自动生成转换函数声明和定义，自己用Perl用写的，大家有时可能用得到

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
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;
    
33. 
    
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 编辑 ]

MMMIX

要是提供代码的可下载版本就更完美了。