mk-globals-c.pl
上传用户:liugui
上传日期:2007-01-04
资源大小:822k
文件大小:0k
源码类别:

代理服务器

开发平台:

Unix_Linux

  1. print "#include "squid.h"n";
  2. while (<>) {
  3. $init = undef;
  4. if (/^#/) {
  5. print;
  6. next;
  7. }
  8. if (/^.*/) {
  9. print;
  10. next;
  11. }
  12. next unless (/./);
  13. next if (/[];$/);
  14. die unless (/^externs+([^;]+);(.*)$/);
  15. $var = $1;
  16. $comments = $2;
  17. if ($comments =~ m+/*s*(.*)s**/+) {
  18. $init = $1;
  19. $init =~ s/s$// while ($init =~ /s$/);
  20. }
  21. print $var;
  22. print " = $init" if (defined $init);
  23. print ";n";
  24. }
  25. exit 0;