| 因為想讀一下nmap的源代碼，代碼的內(nèi)容雖好，可規(guī)范性可不敢恭維
所以就寫了這個小程序，感覺不錯，就拿來與大家分享一下
聲明：本程序代碼公開，您可以對其進行修改和再次發(fā)布，但請保留作者信息
* 作者：林子深 * 日期：2003-03-22 * 郵件：lzs@army.com 子程序：格式化代碼返回值類型：文本型 參數(shù)：代碼文本 數(shù)據(jù)類型：文本型
局部容器：文件號 數(shù)據(jù)類型：整數(shù)型
局部容器：循環(huán)容器 數(shù)據(jù)類型：整數(shù)型
局部容器：級別 數(shù)據(jù)類型：整數(shù)型
局部容器：存在空行 數(shù)據(jù)類型：整數(shù)型
局部容器：文本行 數(shù)據(jù)類型：文本型
局部容器：返回容器 數(shù)據(jù)類型：文本型 級別 ＝ -1
文件號 ＝ 打開內(nèi)存文件 () 如果真 (文件號 ＝ 0)
返回 (“”)
如果真結(jié)束 代碼文本 ＝ 子文本替換 (代碼文本, 字符 (9), , , , 真)
代碼文本 ＝ 子文本替換 (代碼文本, “//”, #換行符 ＋ “//”, , , 真)
代碼文本 ＝ 子文本替換 (代碼文本, “/*”, #換行符 ＋ “/*”, , , 真)
代碼文本 ＝ 子文本替換 (代碼文本, “{” ＋ #換行符, #換行符 ＋ “{” ＋ #換行符, , , 真)
代碼文本 ＝ 子文本替換 (代碼文本, “}” ＋ #換行符, #換行符 ＋ “}” ＋ #換行符, , , 真) 寫出文本 (文件號, 代碼文本)
移到文件首 (文件號) 判斷循環(huán)首 (是否在文件尾 (文件號, 真) ＝ 假)
文本行 ＝ 刪首尾空 (讀入一行 (文件號)) 如果 (文本行 ＝ “”)
存在空行 ＝ 存在空行 ＋ 1
否則 存在空行 ＝ 0
如果結(jié)束 如果真 (取文本左邊 (文本行, 1) ＝ “{”)
級別 ＝ 級別 ＋ 1
如果真結(jié)束 如果真 (存在空行 ＜ 2)
返回容器 ＝ 返回容器 ＋ 取重復文本 (級別, 字符 (9)) ＋ 刪首尾空 (文本行) ＋ #換行符
如果真結(jié)束 如果真 (取文本左邊 (文本行, 1) ＝ “}”)
級別 ＝ 級別 － 1
如果真結(jié)束 判斷循環(huán)尾 () 關(guān)閉文件 (文件號) 返回 (返回容器) |
