|
||||
|
||||||||
ＰＲＧ文件的结构检测及格式编排 |
|
李志伟 河南省军区司令部自动化站（４５０００３） ＵＰＰＥＲ（）将程序行非引号（包括单引号、双引号）内的字母转换为大写，因 为引号内的字母或字符串常作为查询、判断条件用，所以不应进行大小写转换； ＯＵＴＦＩＬＥ（）将程序行根据格式编排并输出到临时文件中。 考虑到ＰＲＧ程序中ＴＥＸＴ…ＥＮＤＴ之间的内容多为菜单或说明等，所以不应剔 除前导空格和进行大小写转换，以免影响屏幕格式。 程序中还扩充了通配符文件查询功能，一次可处理一批ＰＲＧ文件，并且充分考虑了 ＰＲＧ文件的结构特点，使输出文件结构整齐美观，便于读写和查错。＊＊＊＊＊ ／＊Ｆｏｘｃｈｅｃｋ．ｃ＊／ ＃ｉｎｃｌｕｄｅ＜ｄｏｓ．ｈ＞ ＃ｉｎｃｌｕｄｅ＜ｓｔｄｉｏ．ｈ＞ ＃ｉｎｃｌｕｄｅ＜ｓｔｒｉｎｇ．ｈ＞ ＃ｉｎｃｌｕｄｅ＜ｄｉｒ．ｈ＞ ＃ｄｅｆｉｎｅ ＬＩＮＥＬＥＮ ２５６ ＃ｄｅｆｉｎｅ ＳＴＡＣＫ １０００ ｃｈａｒ ＊（ｌｔｒｉｍ（ｃｈａｒ＊）； ｃｈａｒ ＊ｓｕｂｓｔｒ（ｃｈａｒ＊ｓ，ｉｎｔ ｎｌ，ｉｎｔ ｎ２）； ｉｎｔ ａｔ（ｃｈａｒ＊ｓｌ，ｃｈａｒ ＊ｓ２）； ｉｎｔ ｐｕｓｈ（ｉｎｔ ｔａｇ，ｉｎｔ ｌｉｎｅ），ｐｏｐ（ｖｏｉｄ）； ｖｏｉｄ ｏｕｔｆｉｌｅ（ｉｎｔ，ｃｈａｒ＊）； ｃｈａｒ＊ｕｐｐｅｒ（ｃｈａｒ ＊）； ｉｎｔ ｂｚ［ＳＴＡＣＫ］，ｈｈ［ＳＴＡＣＫ］，ｓｐ＝０； ＦＩＬＥ ＊ｆｐ３； ｍａｉｎ（ｉｎｔ ａｒｇｃ，ｃｈａｒ＊ａｒｇｖ［］） ｛ ｃｈａｒ ｉｎ［８０］，ｏｕｔ［４］，ｓ［ＬＩＮＥＬＥＮ］； ｉｎｔ ｔａｇ＝０，ｌｉｎｅ＝０，ｋ＝０，ｉ； ｉｎｔ ｇｓ； ｃｈａｒ ｌｂｚ； ｃｈａｒ ｕｂｚ； ｓｔｒｕｃｔ ｆｆｂｌｋ ｐｒｇ； ｃｈａｒ ＊ｎ＝“＞ｎｕｌｌ”； ｃｈａｒ ＊ｄｅｌ＝“ｄｅｌ ｃｘｂｐ ｔｘｔ＞ｎｕｌｌ”； ｃｈａｒ ＊ｎａｍｅ＝：“ｃｘｂｐ ｔｘｔ”； ｃｈａｒ ｃｏｐｙ［３０］； ｉｎｔ ｄｏｎｅ； ＦＩＬＥ ＊ｆｐｌ；＊ｆｐ２； ｉｆ（ａｒｇｃ＜２｜｜ａｒｇ＞３）｛ ｐｒｉｎｔｆ（ＵＳＡＧＥ：ＦｏｘｃｈｅｃｋＩＰＲＧ－ＦＩＬＥ Ｉ－Ｐ［ｐ］．＼ｎ）； ｅｘｉｔ（１）； ｝ ｓｔｒｃｐｙ（ｏｕｔ，“ｃｏｎ”）； ｆｏｒ（ｉ＝１；ｉ＜ａｒｇｃ；ｉ＋＋）｛ ｉｆ（！ｓｔｒｉｃｍｐ（ａｒｇｖ［ｉ］，“－ｐ”）） ｝ ｓｔｒｃｐｙ（ｏｕｔ，“ｐｒｎ”）； ｓｔｒｃｐｙ（ｉｎ，ａｒｇｖ［１］）； ｉｆ（！ｓｔｒｓｔｒ（ｓｔｒｌｗｒ（ｉｎ），“ｐｒｇ”）） ｓｔｒｃａｔ（ｉｎ．“ｐｒｇ”）； ｄｏｎｅ＝ｆｉｎｄｆｉｒｓｔ（ｉｎ，＆ｐｒｇ，０）； ｉｆ（ｄｏｎｅ）｛ ｐｒｉｎｔｆ（“Ｆｉｌｅ ＆ｓ ｎｏｔ ｆｏｕｎｄ”，ｉｎ）； ｅｘｉｔ（１）： ｝ ｗｈｉｌｅ（｜ｄｏｎｅ） ｛ ｉｆ（（ｆｐｌ＝ｆｏｐｅｎ（ｐｒｇ．ｆｆ－ｎａｍｅ， “ｒ”））＝＝ＮＵＬＬ）｛ ｐｒｉｎｔｆ（“Ｃａｎｎｏｔ ｏｐｅｎ ｆｉｌｅ：％ｓ． ＼ｎ”，ｐｒｇ．ｆｆ－ｎａｍｅ）； ｅｘｉｔ（１）； ｝ ｉｆ（（ｆｐ２＝ｆｏｐｅｎ（ｏｕｔ，“ｗ”））＝＝ＮＵＬＬ）｛ ｐｒｉｎｔｆ（“ｃａｎｎｏｔ ｏｐｅｎ ｄｅｖｉｃｅ ：％ｓ＼ｎ”，ｏｕｔ）； ｅｘｉｔ（１）； ｝ ｆｐｒｉｎｔｆ（ｆｐ２，“正在检测文件％ｓ… ＼ｎ”，ｐｒｇ．ｆｆ－ｎａｍｅ）； ｉｆ（（ｆｐ３＝ｆｏｐｅｎ（ｎａｍｅ，“ｗ））＝＝ＮＵＬＬ）｛ ｐｒｉｎｔｆ（“ｃａｎｎｏｔ ｏｐｅｎ ｆｉｌｅ ：％ｓ＼ｎ”，ｎａｍｅ）； ｅｘｉｔ（１）； ｝ ｇｓ＝０； ｌｂｚ＝０； ｕｂｚ＝０； ｗｈｉｌｅ（ｆｇｅｔｓ（ｓ，ＬＩＮＥＬＥＮ，ｆｐｌ））｛ ｌｉｎｅ＋＋； ｉｆ（！ｕｂｚ） ｕｐｐｅｒ（ｓ）； ｉｆ（ａｔ（“ＴＥＸＴ”，ｓ）＝＝１｜｜ａｔ （“ＥＮＤＴ”，Ｓ）＝＝１） ｛ｌｂｚ＝！ｌｂｚ；ｕｂｚ＝！ｕｂｚ；｝ ｉｆ（！ｌｂｚ） ｌｔｒｉｍ（ｓ）； ｉｆ（ａｔ（“ＣＡＳＥ”，ｓ）＝＝１｜｜ａｔ（“ＯＴＨＥ”， ｓ）＝＝１｜｜ａｔ（“ＥＬＳＥ”，ｓ）＝＝１｜｜ａｔ（ ＥＮＤＤ”，ｓ）＝＝１｜｜ａｔ（“ＥＮＤＩ”，ｓ）＝＝１） ｏｕｔｆｉｌｅ（ｇｓ－４，ｓ）； ｅｌｓｅ ｉｆ（ａｔ（“ＥＮＤＣ”，ｓ）＝＝１） ｏｕｔｆｉｌｅ（ｇｓ－８，ｓ）； ｅｌｓｅ ｏｕｔｆｉｌｅ（ｇｓ，ｓ）； ｉｆ（ａｔ（“ＩＦ”，ｓ）＝＝１） ｛ｔａｇ＝１０；ｇｓ＋＝４；｝ ｅｌｓｅ ｉｆ（ａｔ（“ＥＮＤＩ”，ｓ）＝＝１） ｛ｔａｇ＝１１；ｇｓ－＝４；｝ ｅｌｓｅ ｉｆ（ａｔ（“ＤＯ”，ｓ）＝＝！＆＆ａｔ（“ＣＡＳＥ” ｌｔｒｉｍ（ｓｕｂｓｔｒ（ｓ，３，０）））＝＝１ ｛ｔａｇ＝２０；ｇｓ＋＝８；｝ ｅｌｓｅ ｉｆ（ａｔ（“ＥＮＤＣ”，ｓ）＝＝１ ｛ｔａｇ＝２１；ｇｓ－＝８；｝ ｅｌｓｅ ｉｆ （ａｔ（“ＤＯ”，ｓ）＝＝１ ＆＆ ａｔ （“ＷＨ！Ｌ”．ｌｔｒｉｍ（ｓｕｂｓｔｒ（ｓ，３，ｏ））） ｛ｔａｇ＝３０；ｇｓ＋ｇ４；｝ ｅｌｓｅ ｉｆ（ａｔ（“ＥＮＤＤ”，ｓ）＝＝１） ｛ｔａｇ＝３１；ｇｓ－＝４；｝ ｅｌｓｅ ｉｆ（ａｔ（“ＴＥＸＴ”，ｓ）＝＝１） ｔａｇ＝４０； ｅｌｓｅ ｉｆ（ａｔ（“ＥＮＤＴ”，ｓ）＝＝１） ｔａｇ＝４１； ｅｌｓｅ ｔａｇ＝０； ｉｆ（ｔａｇ）｛ ｉｆ（ｔａｇ－ｂｚ［ｓｐ］＝＝１）ｐｏｐ（）； ｅｌｓｅ ｐｕｓｈ（ｔａｇ，ｌｉｎｅ）； ｝ ｝／＊ｅｎｄｗｈｉｌｅ＊／ ｉｆ（ｓｐ）｛ ｐｒｉｎｔｆ（“程序中不匹配的行如下： ＼００７＼ｎ）； ｒｅｗｉｎｄ（ｆｐｌ）； ｌｉｎｅ＝０；ｋ＝１； ｗｈｉｌｅ（ｆｇｅｔｓ（ｓ，ＬＩＮＥＬＥＮ，ｆｐｌ） ＆＆ ｋ＜＝ｓｐ）｛ ｌｉｎｅ＋＋； ｉｆ（ｌｉｎｅ＝＝ｈｈ［ｋ］）｛ ｆｐｒｉｎｔｆ（ｆｐ２， ‘％－３ｄ：％ｓ’，ｌｉｎｅ，ｓ）； ｋ＋＋； ｝ ｝ ｝ ｅｌｓｅ ｆｐｒｉｎｔｆ（ｆｐ２，“没有发现语法错误，文件检测编排完成， ＼ｎ”）； ｆｐｕｔｃ（０ｘｌａ，ｆｐ３）； ｆｃｌｏｓｅ（ｆｐｌ）；ｆｃｌｏｓｅ（ｆｐ２）；ｆｃｌｏｓｅ（ｆｐ３）； ｓｔｒｃｐｙ（ｃｏｐｙ，“ｃｏｐｙ”）； ｃｏｐｙ［５］＝’＼０’； ｓｔｒｃａｔ（ｃｏｐｙ，ｃｘｂｐ．ｔｘｔ）； ｓｔｒｃａｔ（ｃｏｐｙ，ｐｒｇ．ｆｆ－ｎａｍｅ）； ｓｔｒｃａｔ（ｃｏｐｙ，ｎ）； ｓｔｒｃａｔ（ｃｏｐｙ，’＼０’）； ｓｙｓｔｅｍ（ｃｏｐｙ）； ｉｆ（ｋｂｈｉｔ（））ｅｘｉｔ（２）； ｄｏｎｅ＝ｆｉｎｄｎｅｘｔ（＆ｐｒｇ）； ｝ ｓｙｓｔｅｍ（ｄｅｌ）； ｝ ｉｎｔ ｐｕｓｈ（ｉｎｔ ｔａｇ，ｉｎｔ ｌｉｎｅ） ｛ ｉｆ（ｓｐ＜ＳＴＡＣＫ－１）｝ ｓｐ＋＋； ｂｚ［ｓｐ］＝ｔａｇ； ｈｈ［ｓｐ］＝ｌｉｎｅ； ｝ ｒｅｔｕｒｎ（ｓｐ）； ｝ ｉｎｔ ｐｏｐ（ｖｏｉｄ） ｛ ｉｆ（ｓｐ＞０）ｓｐ－－； ｒｅｔｕｒｎ（ｓｐ）； ｝ ｃｈａｒ ＊ｌｔｒｉｍ（ｃｈａｒ ＊ｓ） ｛ ｃｈａｒ ＊ｐ＝ｓ； ｗｈｉｌｅ（＊ｐ＝＝’’｜｜＊ｐ＝＝’＼ｔ’） ｐ＋＋； ｓｔｒｃｐｙ（ｓ，ｐ）； ｒｅｔｕｒｎ（ｓ）； ｝ ｉｎｔ ａｔ（ｃｈａｒ ＊ｓｌ， ｃｈａｒ ＊ｓ２） ｛ ｉｎｔ ｎ１，ｎ２； ｎｌ＝ｓｔｒｌｅｎ（ｓ２）； ｎ２＝ｓｔｒｌｅｎ（ｓｔｒｓｔｒ（ｓ２，ｓｌ） ）； ｒｅｔｕｒｎ（ｎ２＝＝０？０：ｎｌ－ｎ２＋１） ； ｝ ｃｈａｒ ＊ｓｕｂｓｔｒ（ｃｈａｒ ＊ｓ，ｉｎｔ ｎｌ，ｉｎｔ ｎ２） ｛ ｉｎｔ ｌｅｎ＝ｓｔｒｌｅｎ（ｓ ）； ｓｔａｔｉｃ ｃｈａｒ ｓｓ［ＬＩＮＥＬＥＮ］ ； ｉｆ（ｎｌ＞ｌｅｎ）ｒｅｔｕｒｎ（ＮＵＬＬ）； ｉｆ（ｎ２＞ｌｅｎ－ｎｌ＋１｜｜ｎ２＝＝０） ｎ２＝ｌｅｎ－ｎｌ＋１； ｓｔｒｎｃｐｙ（ｓｓ，＆ｓ［ｎｌ－１］，ｎ２） ； ｓｓ［ｎ２］＝’＼０’； ｒｅｔｕｒｎ（ｓｓ）； ｝ ｖｏｉｄ ｏｕｔｆｉｌｅ（ｉｎｔ ｇｓ，ｃｈａｒ ＊ｓ） ｛ ｉｎｔ ｌｅｎ＝ｓｔｒｌｅｎ（ｓ）； ｓｔａｔｉｃ ｃｈａｒ ｓｓ［ＬＩＮＥＥＮ］； ｉｆ（ｎｌ＞ｌｅｎ）ｒｅｔｕｒｎ（ＮＵＬＬ）； ｉｆ（ｎ２＞ｌｅｎ－ｎｌ＋１｜｜ｎ２＝＝０） ｎ２＝ｌｅｎ－ｎｌ＋１； ｓｔｒｎｃｐｙ（ｓｓ，＆ｓ［ｎｌ－１］，ｎ２） ； ｓｓ［ｎ２］＝’＼０’； ｒｔｕｒｎ（ｓｓ）； ｝ ｖｏｉｄ ｏｕｔｆｉｌｅ （ｉｎｔ ｇｓ，ｃｈａｒ ＊ｓ） ｛ ｉｎｔ ｉ； ｆｏｒ（ｉ＝１；ｉ＜＝ｇｓ；＋＋ｉ） ｆｐｕｔｃ（０ｘ２０，ｆｐ３） ； ｆｐｕｔｓ（ｓ，ｆｐ３） ｝ ｃｈａｒ ＊ｕｐｐｅｒ（ｃｈａｒ ＊ｓ） ｛ ｉｎｔ ｉ； ｃｈａｒ ｓｓ［ＬＩＮＥＬＥＮ］； ｃｈａｒ ｂｚ＝０； ｉｎｔ ｌｅｎ； ｌｅｎ＝ｓｔｒｌｅｎ（ｓ）； ｆｏｒ（ｉ＝０；ｉ＜ｌｅｎ；ｉ＋＋） ｛ ｉｆ（（ｓ［ｉ］＝＝’＼’’）｜｜（ｓ［ｉ］＝＝’ ＼’’）） ｂｚ＝！ｂｚ； ｉｆ（ｂｚ＝＝０） ｓｓ［ｉ］＝ｔｏｕｐｐｅｒ（ｓ［ ｉ］）； ｅｌｓｅ ｓｓ［ｉ］＝ｓ［ｉ］； ｝ ｓｓ［ｉ］＝’＼０’ ｓｔｒｃｐｙ（ｓ，ｓｓ）； ｒｅｔｕｒｎ（ｓ）； ＊＊＊＊＊ （计算机世界报 1994年 第5期） |
周报全文频道联系方式：010-68130909 |
||||||
| 【关于我们】 【广告服务】 【周报发行】 【投稿指南】 【投稿声明】 【联系方式】 【法律声明】 【媒体手册】 【编读往来】 |
||||||
| Copyright© ccw.com.cn,All rights reserved | ||||||
| 中国计算机世界出版服务公司版权所有 | ||||||