Re: [PerlChina] 欢迎测试自动流程图生成脚本

Tue, 22 May 2012 22:29:25 -0700 

范例，如下。只是识别///后面的而已。而且标准只认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();////

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 [email protected]。
要取消订阅此网上论坛，请发送电子邮件至 [email protected]。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

回复