开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
ptypes2tcl.cc
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：2k
源码类别：

通讯编程

开发平台：

Visual C++

ptypes2tcl.cc：源码内容
  1. #include <stdio.h>
  2. #include <ctype.h>
  3. #include "packet.h"
  5. // The following copied from ~tclcl/tcl2c++.c
  6. /*
  7.  * Define TCL2C_INT if your compiler has problems with long strings.
  8.  */
  9. #if defined(WIN32) || defined(_WIN32) || defined(__alpha__) || defined(__hpux)
  10. #define TCL2C_INT
  11. #endif
  13. char** p_info::name_;
  14. unsigned int p_info::nPkt_ = 0;
  15. PacketClassifier *p_info::pc_ = 0;
  16. int p_info::addPacket(char *name)
  17. {
  18. if(!nPkt_)
  19. initName();
  21. int newID = nPkt_-1;
  22. PT_NTYPE = nPkt_;
  23. initName();
  24. name_[newID] = name;
  25. return newID;
  26. }
  28. void
  29. printLine(char *s) {
  30. #ifdef TCL2C_INT
  31. for (unsigned int i = 0; i < strlen(s); i++) 
  32. if ((i > 0) && ((i % 20) == 0))
  33. printf("%u,n", s[i]);
  34. else
  35. printf("%u,", s[i]);
  36. printf("%u,%u,n", '\', 'n');
  37. #else
  38. printf("%s\n\n", s);
  39. #endif
  40. }
  42. char *
  43. lcase(const char *s) {
  44. static char charbuf[512];
  45. char* to = charbuf;
  46. while ((*to++ = tolower(*s++)))
  47. /* NOTHING */;
  48. *to = '';
  49. return charbuf;
  50. }
  52. int main() {
  53. p_info pinfo;
  55. #ifdef TCL2C_INT
  56. printf("static const char code[] = {n");
  57. #else
  58. printLine("static const char code[] = "");
  59. #endif
  60. printLine("global ptype pvals");
  61. printLine("set ptype(error) -1");
  62. printLine("set pvals(-1) error");
  63. char strbuf[512];
  64. for (unsigned int i = 0; i < PT_NTYPE; i++) {
  65. sprintf(strbuf, "set ptype(%s) %d", lcase(pinfo.name(packet_t(i))), i);
  66. printLine(strbuf);
  67. sprintf(strbuf, "set pvals(%d) %s", i, pinfo.name(packet_t(i)));
  68. printLine(strbuf);
  69. }
  70. printLine("proc ptype2val {str} {");
  71. printLine("global ptype");
  72. printLine("set str [string tolower $str]");
  73. printLine("if ![info exists ptype($str)] {");
  74. printLine("set str error");
  75. printLine("}");
  76. printLine("set ptype($str)");
  77. printLine("}");
  78. printLine("proc pval2type {val} {");
  79. printLine("global pvals");
  80. printLine("if ![info exists pvals($val)] {");
  81. printLine("set val -1");
  82. printLine("}");
  83. printLine("set pvals($val)");
  84. printLine("}");
  85. #ifdef TCL2C_INT
  86. printf("0 };n");
  87. #else
  88. printf("";n");
  89. #endif
  90. printf("#include "config.h"n");
  91. printf("EmbeddedTcl et_ns_ptypes(code);n");
  92. return 0;
  93. }