欢迎测试自动流程图生成脚本

[eexpress]

wget https://raw.github.com/eexpress/eexp-bin/master/flow.pl

支持各种源码，写几行注释，生成流程图。依赖graphviz。欢迎测试，找出不方便的地方或者bug。

图例在 http://forum.ubuntu.com.cn/download/file.php?id=157490&mode=view/t.png

btw: 对 perl...@googlegroups.com 发邮件不能发贴了？

[yixf]

最好能同时给一个输入文件的范例。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要在网络上查看此讨论，请访问 https://groups.google.com/d/msg/perlchina/-/SyfEw9OgHTUJ。
要向此网上论坛发帖，请发送电子邮件至 perl...@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+...@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
世事浮沉如落木，人生聚散似漂萍。
个人博客：http://yixf.name
程序代码：http://code.google.com/p/yixf-codes/

[eexpress]

范例，如下。只是识别///后面的而已。而且标准只认utf8。

● grep '///.*' gsm.c
{ ///GSM_Do_FB>
R.S_FB.Head=SmsFB; ///设置缺省值
/// 复制结构到内存
/// 阀门关闭?马达状态2号:马达状态1号
///获取验证数据
/// Gsm_Wait_S>
leng=get_strlen(ack); ///取得ack长度
while(timeout--) //等待接收完毕///超时检查?:>返回超时
if(U6RecCount>oldint)oldint=U6RecCount; ///计数大于保留?保留等于计数
delay_1ms(6); ///延时6毫秒
if(U6RecCount==oldint) ///xxxx保留?:>返回超时
a=find_arr(GSM_RT,U6RecCount,ack,leng); ///接收信息
if(a==SUCCESS){return SUCCESS;} ///接收Ack成功?>返回成功
///接收错误信息
if(a==SUCCESS)return ACK_ERROR;///接收Err成功?>返回错误
} ///测试
return ACK_TIMEOUT;///>返回超时
{///Gsm_Send_AT>
i=get_strlen(Send_AT); ///获取发送长度
UART6_SendData(Send_AT,i); ///发送数据
if(Flag_Order) ///order标志?:>等待返回
tmp[0]=Flag_Order/10+0x30;tmp[1]=Flag_Order%10+0x30;///根据order格式化数据
UART6_SendData(tmp,4);///发送格式化数据
i=Gsm_Wait_S(Find_AT,Gsm_de_search_cnt);///>等待返回
Telephone_NO = GSM_RT+DoubleChar[3]-6 ;////
if(f>1)FlagBit.F_GsmAllRead=1;////
Gsm_Order=0;FlagBit.F_GsmReadEn=0;FlagBit.F_GsmAllRead=0;////
Gsm_AgainStart();////