Inline::C的typedef struct 出错问题

aef25u

script2.rar (474 Bytes, 下载次数: 22)

2010-05-22 00:01 上传

点击文件名下载附件

script.rar (322 Bytes, 下载次数: 12)

2010-05-21 23:52 上传

点击文件名下载附件
传错了，以下一个为准

在学习《谭浩强c语言》第11章11.7.3结构指针变量作函数参数时，想顺便学习Inline::C下使用struct。
结果发现定义结构时：
如果采用#define STU struct stu运行不出错
但是采用typedef struct{}STU;运行出错,想知道是什么原因，所以在这请大家帮忙。

以下是不出错的代码：

1. #!usr/bin/perl-w
   
2. fun_re();
   
3. use Inline C => <<'END_C';
   
4. #include <stdio.h>
   
5. #define STU struct stu
   
6. 
   
7. struct stu
   
8. {
   
9.     int num;
   
10.     char *name;
    
11.     char sex;
    
12.     float score;}boy[5]={
    
13.         {101,"Li ping",'M',45},
    
14.         {102,"Zhang ping",'M',62.5},
    
15.         {103,"He fang",'F',92.5},
    
16.         {104,"Cheng ling",'F',87},
    
17.         {105,"Wang ming",'M',58},
    
18.       };
    
19. void fun_re(){
    
20. 
    
21.     STU *ps;
    
22.     void ave(STU *ps);
    
23.     ps=boy;
    
24.     ave(ps);
    
25. 
    
26. void ave(STU *ps)
    
27. {
    
28.     int c=0,i;
    
29.     float ave,s=0;
    
30.     for(i=0;i<5;i++,ps++)
    
31.       {
    
32.         s+=ps->score;
    
33.         if(ps->score<60) c+=1;
    
34.       }
    
35.     printf("s=%f\n",s);
    
36.     ave=s/5;
    
37.     printf("average=%f\ncount=%d\n",ave,c);
    
38. 
    
39. }
    
40. 
    
41. }
    
42. END_C
    

复制代码

出错的代码

toniz

  首先，正确代码是错误的。

1. fun_re(){
   
2. void ave(STU *ps)
   
3. {
   
4. 
   
5. }
   
6. }
   

复制代码

函数里的函数？！



其次，没有明白这句是什么意思：

1. struct stu
   
2. {
   
3.     int num;
   
4.     char *name;
   
5.     char sex;
   
6.     float score;}boy[5]={
   
7.         {101,"Li ping",'M',45},
   
8.         {102,"Zhang ping",'M',62.5},
   
9.         {103,"He fang",'F',92.5},
   
10.         {104,"Cheng ling",'F',87},
    
11.         {105,"Wang ming",'M',58},
    
12.       };

复制代码

所以你会写出这样的CODE：

1. typedef struct
   
2. {
   
3.     int num;
   
4.     char *name;
   
5.     char sex;
   
6.     float score;}boy[5]={
   
7.         {101,"Li ping",'M',45},
   
8.         {102,"Zhang ping",'M',62.5},
   
9.         {103,"He fang",'F',92.5},
   
10.         {104,"Cheng ling",'F',87},
    
11.         {105,"Wang ming",'M',58},
    
12.       }STU;

复制代码

照你的原意修改的代码：

1. use Inline C => <<'END_C';
   
2. #include <stdio.h>
   
3. 
   
4. typedef struct
   
5. {
   
6.   int num;
   
7.   char *name;
   
8.   char sex;
   
9.   float score
   
10. }STU;
    
11. 
    
12. 
    
13. void fun_re(){
    
14.   STU boy[5]= {
    
15.     {101,"Li ping",'M',45},
    
16.     {102,"Zhang ping",'M',62.5},
    
17.     {103,"He fang",'F',92.5},
    
18.     {104,"Cheng ling",'F',87},
    
19.     {105,"Wang ming",'M',58},
    
20.     };
    
21.   STU *ps;
    
22.   void ave(STU *ps);
    
23.   ps=boy;
    
24.   ave(ps);
    
25. }
    
26. 
    
27. void ave(STU *ps)
    
28. {
    
29.   int c=0,i;
    
30.   float ave,s=0;
    
31.   for(i=0;i<5;i++,ps++)
    
32.     {
    
33.     s+=ps->score;
    
34.     if(ps->score<60) c+=1;
    
35.     }
    
36.   printf("s=%f\n",s);
    
37.   ave=s/5;
    
38.   printf("average=%f\ncount=%d\n",ave,c);
    
39. }
    
40. 
    
41. END_C
    
42. fun_re;

复制代码

aef25u

回复 2# toniz


非常感谢！这么耐心指出了我的错误。

dqjgood

请教， 有没有什么方式， 使C中的结构体，可以在perl中使用？

zhlong8

请教， 有没有什么方式， 使C中的结构体，可以在perl中使用？
dqjgood 发表于 2011-05-20 10:10

    通过 XS 扩展来实现，重点看 perlxs 的 typemap 那一节

toniz

回复 4# dqjgood


    unpack

py

请教， 有没有什么方式， 使C中的结构体，可以在perl中使用？
dqjgood 发表于 2011-05-20 10:10

有几种办法，其中一个就是上面牛人提到的typemap
对于结构体还可以用XS构造Perl对象，这样比较容易扩展和维护。我目前是采用这种方法。
typemap感觉太强大了，typemap不但可以对付结构体，指针也没问题。perldoc上的那点东西说的实在太不够了，看看CPAN上typemap实际的应用跟看天书一样。。。