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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 查看源码
SCRCHK.C
资源名称：pccp047.zip　[点击查看]
上传用户：wesley
上传日期：2007-01-07
资源大小：266k
文件大小：8k
源码类别：

通讯/手机编程

开发平台：

C/C++

SCRCHK.C：源码内容
  1. #include<stdio.h>
  3. #define PROGSIZ 256
  5. struct
  6. {
  7. char type;
  8. unsigned char label;
  9. }
  10. miniprog[PROGSIZ];
  12. main(argc, argv)
  13. int argc;
  14. char **argv;
  15. {
  16. FILE *scriptfd;
  17. char fpname[256], str[81];
  18. int proglen, i, value[8], flag;
  19. short int labels[256];
  20. if(argc!=2)
  21. {
  22. printf("USAGE: scrchk <sourcefile>");
  23. exit(1);
  24. }
  25. if(getenv("TERMPATH")==NULL)
  26. sprintf(fpname, "%s.scr", argv[1]);
  27. else
  28. sprintf(fpname, "%s\%s.scr", getenv("TERMPATH"), argv[1]);
  29. if((scriptfd=fopen(fpname, "r"))==NULL)
  30. {
  31. printf("Error opening script file %s.n", fpname);
  32. exit(2);
  33. }
  34. fgets(str, 80, scriptfd); /* Flush init params */
  35. for(i=0;i<256;++i)
  36. labels[i]=-1;
  37. /* Parse */
  38. printf("Parsing...n");
  39. for(proglen=0;proglen<PROGSIZ;++proglen)
  40. {
  41. if(fgets(str, 80, scriptfd)==NULL)
  42. {
  43. flag=1;
  44. proglen++;
  45. break;
  46. }
  47. for(i=0;i<80;++i)
  48. if(str[i]=='n')
  49. {
  50. str[i]='';
  51. break;
  52. }
  53. else if(str[i]=='')
  54. break;
  55. if(!strlen(str))
  56. {
  57. printf("---n");
  58. proglen--;
  59. }
  60. else
  61. {
  62. if((str[0]!=':')&&(str[0]!=';'))
  63. printf("%03d %sn", proglen, str);
  64. else
  65. printf("--- %sn", str);
  66. if((str[0]!=';')&&(str[0]!='c')&&(str[0]!='+')&&(str[0]!='-')&&(str[1]!=' '))
  67. {
  68. printf("*** Missing first delimiting space.n");
  69. exit(11);
  70. }
  71. switch(str[0])
  72. {
  73. case ':':
  74. if(sscanf(str, "%*c %d", &value[0])!=1)
  75. {
  76. printf("*** Bad scan of label (:)n");
  77. exit(11);
  78. }
  79. if((value[0]<0)||(value[0]>255))
  80. {
  81. printf("*** Label out of rangen");
  82. exit(11);
  83. }
  84. if(labels[value[0]]!=-1)
  85. {
  86. printf("*** Label duplicatedn", value[0], proglen);
  87. exit(11);
  88. }
  89. labels[value[0]]=proglen;
  90. proglen--;
  91. break;
  92. case '*':
  93. miniprog[proglen].type='*';
  94. if(sscanf(str, "%*c %d", &value[0])!=1)
  95. {
  96. printf("*** Bad scan.n");
  97. exit(11);
  98. }
  99. if(value[0]>255)
  100. {
  101. printf("*** Label out of range.n");
  102. exit(11);
  103. }
  104. if(value[0]>=0)
  105. miniprog[proglen].label=(unsigned char)value[0];
  106. else
  107. miniprog[proglen].label=0;
  108. break;
  109. case 'g':
  110. case 'G':
  111. miniprog[proglen].type='g';
  112. if(sscanf(str, "%*c %d", &value[0])!=1)
  113. {
  114. printf("*** Bad scann");
  115. exit(11);
  116. }
  117. if((value[0]<0)||(value[0]>255))
  118. {
  119. printf("*** Label out of range.n");
  120. exit(11);
  121. }
  122. miniprog[proglen].label=(unsigned char)value[0];
  123. break;
  124. case 'r':
  125. case 'R':
  126. miniprog[proglen].type='r';
  127. if(sscanf(str, "%*c %d %d %d", &value[0], &value[1], &value[2])!=3)
  128. {
  129. printf("*** Bad scann");
  130. exit(11);
  131. }
  132. if((value[0]<0)||(value[0]>255))
  133. {
  134. printf("*** Label out of range.n");
  135. exit(11);
  136. }
  137. if((value[2]<0)||(value[2]>255))
  138. {
  139. printf("*** Retry Register out of range.n");
  140. exit(11);
  141. }
  142. miniprog[proglen].label=(unsigned char)value[0];
  143. break;
  144. case '0':
  145. miniprog[proglen].type='0';
  146. if(sscanf(str, "%*c %d", &value[0])!=1)
  147. {
  148. printf("*** Bad scann");
  149. exit(11);
  150. }
  151. if((value[0]<0)||(value[0]>255))
  152. {
  153. printf("*** Retry Register out of range.n");
  154. exit(11);
  155. }
  156. break;
  157. case 'p':
  158. case 'P':
  159. miniprog[proglen].type='p';
  160. if(sscanf(str, "%*c %d", &value[0])!=1)
  161. {
  162. printf("*** Bad scann");
  163. exit(11);
  164. }
  165. break;
  166. case 'w':
  167. case 'W':
  168. miniprog[proglen].type='w';
  169. if(sscanf(str, "%*c %d", &value[0])!=1)
  170. {
  171. printf("*** Bad scann");
  172. exit(11);
  173. }
  174. break;
  175. case '>':
  176. miniprog[proglen].type='>';
  177. if(sscanf(str, "%*c %d", &value[0])!=1)
  178. {
  179. printf("*** Bad scann");
  180. exit(11);
  181. }
  182. if((value[0]<0)||(value[0]>255))
  183. {
  184. printf("*** Label out of range.n");
  185. exit(11);
  186. }
  187. miniprog[proglen].label=(unsigned char)value[0];
  188. break;
  189. case 'k':
  190. case 'K':
  191. miniprog[proglen].type='k';
  192. if(sscanf(str, "%*c %d", &value[0])!=1)
  193. {
  194. printf("*** Bad scann");
  195. exit(11);
  196. }
  197. if((value[0]<0)||(value[0]>255))
  198. {
  199. printf("*** Label out of range.n");
  200. exit(11);
  201. }
  202. miniprog[proglen].label=(unsigned char)value[0];
  203. break;
  204. case '?':
  205. miniprog[proglen].type='?';
  206. if(sscanf(str, "%*c %d", &value[0])!=1)
  207. {
  208. printf("*** Bad scann");
  209. exit(11);
  210. }
  211. if((value[0]<0)||(value[0]>255))
  212. {
  213. printf("*** Label out of range.n");
  214. exit(11);
  215. }
  216. miniprog[proglen].label=value[0];
  217. break;
  218. case 'd':
  219. case 'D':
  220. miniprog[proglen].type='d';
  221. if(sscanf(str, "%*c %d", &value[0])!=1)
  222. {
  223. printf("*** Bad scann");
  224. exit(11);
  225. }
  226. if((value[0]<0)||(value[0]>255))
  227. {
  228. printf("*** Label out of range.n");
  229. exit(11);
  230. }
  231. miniprog[proglen].label=value[0];
  232. break;
  233. case '<':
  234. miniprog[proglen].type='<';
  235. break;
  236. case '+':
  237. miniprog[proglen].type='+';
  238. break;
  239. case 'c':
  240. miniprog[proglen].type='c';
  241. break;
  242. case '-':
  243. miniprog[proglen].type='-';
  244. break;
  245. case '!':
  246. miniprog[proglen].type='!';
  247. break;
  248. case 'x':
  249. case 'X':
  250. miniprog[proglen].type='s';
  251. if(sscanf(str, "%*c %d", &value[0])!=1)
  252. {
  253. printf("*** Bad scann");
  254. exit(11);
  255. }
  256. if((value[0]<0)||(value[0]>255))
  257. {
  258. printf("*** Label out of range.n");
  259. exit(11);
  260. }
  261. miniprog[proglen].label=value[0];
  262. break;
  263. case 's':
  264. case 'S':
  265. miniprog[proglen].type='s';
  266. if(sscanf(str, "%*c %d", &value[0])!=1)
  267. {
  268. printf("*** Bad scann");
  269. exit(11);
  270. }
  271. if((value[0]<0)||(value[0]>255))
  272. {
  273. printf("*** Label out of range.n");
  274. exit(11);
  275. }
  276. miniprog[proglen].label=value[0];
  277. break;
  278. case 'q':
  279. case 'Q':
  280. miniprog[proglen].type='q';
  281. if(sscanf(str, "%*c %d", &value[0])!=1)
  282. {
  283. printf("*** Bad scann");
  284. exit(11);
  285. }
  286. if((value[0]<128)&&(value[0]!=0))
  287. {
  288. printf("*** Quit with reserved exit code (!=0&&<128)n");
  289. exit(11);
  290. }
  291. break;
  292. case ';':
  293. proglen--;
  294. break;
  295. default:
  296. printf("*** Bad command charactern");
  297. exit(10);
  298. }
  299. }
  300. }
  301. if(!flag)
  302. {
  303. printf("Program too long.n");
  304. exit(11);
  305. }
  306. /* Check labels */
  307. printf("nnChecking branch label validity...n");
  308. for(i=0;i<proglen;i++)
  309. switch(miniprog[i].type)
  310. {
  311. case 'g':
  312. case '?':
  313. case 'd':
  314. if(labels[miniprog[i].label]==-1)
  315. printf("Unlisted label %d at statement %d (%c).n", miniprog[i].label, i, miniprog[i].type);
  316. break;
  317. case 'r':
  318. if(labels[miniprog[i].label]==-1)
  319. printf("Unlisted label %d at statement %d (%c).n", miniprog[i].label, i, miniprog[i].type);
  320. break;
  321. case '>':
  322. if(labels[miniprog[i].label]==-1)
  323. printf("Unlisted label %d at statement %d (%c).n", miniprog[i].label, i, miniprog[i].type);
  324. break;
  325. case 'k':
  326. if(labels[miniprog[i].label]==-1)
  327. printf("Unlisted label %d at statement %d (%c).n", miniprog[i].label, i, miniprog[i].type);
  328. case 'x':
  329. case 's':
  330. if(labels[miniprog[i].label]==-1)
  331. printf("Unlisted label %d at statement %d (%c).n", miniprog[i].label, i, miniprog[i].type);
  332. break;
  333. }
  334. printf("nnLabel Table:nn");
  335. printf("Lbl: Stmt:     Lbl: Stmt:     Lbl: Stmt:     Lbl: Stmt:     Lbl: Stmt:n ");
  336. for(i=0;i<256;++i)
  337. {
  338. if(labels[i]==-1)
  339. printf("%3d   ---", i);
  340. else
  341. printf("%3d   %3d", i, labels[i]);
  342. if((i+1)%5)
  343. printf("      ");
  344. else
  345. printf("n ");
  346. }
  347. printf("nDone.n");
  348. }