原创 开发通用软件程序的模板开发

  if(ctlkey[n].dir==1)    /* IF, WHILE 等 */
  {
   INSERT_CTL_RECORD(i, ctlkey[n].keyword, ctlkey[n].type, i+1, LayerNum, CountNum);
   Type=funcctrl[k].Type;
   LayerNum++;
   printf("   keyword[%d]=%s line=%d Lay=%d\n",k,funcctrl[k].keyword,funcctrl[k].linenum,funcctrl[k].layernum);
   k++;
  }

  if(ctlkey[n].dir==2)    /* BREAK 等 , 规定：不允许这类语句夹在　IF　和　ENDIF之间　*/
  {
   INSERT_CTL_RECORD(i, ctlkey[n].keyword, ctlkey[n].type, i+1, LayerNum, CountNum);
   k++;
  }

  if(ctlkey[n].dir==3)    /* CONTINUE 等 , 规定：不允许这类语句夹在　IF　和　ENDIF之间　*/
  {
   INSERT_CTL_RECORD(i, ctlkey[n].keyword, ctlkey[n].type, i+1, LayerNum, CountNum);
   k++;
  }

  if(ctlkey[n].dir==4)    /* GOTO 等 , 规定：不允许这类语句夹在　IF　和　ENDIF之间　*/
  {
   INSERT_CTL_RECORD(i, ctlkey[n].keyword, ctlkey[n].type, i+1, LayerNum, CountNum);
   k++;
  }

  if(ctlkey[n].dir==5)    /* LINEMARK 等 */
  {
   if(ctlkey[n].type==3)
   {
    /* 根据参数Para 查找对应的GOTO，找到后，将行号　赋值到 GOTO的startline */
    m=FindLayerComm(k-1,"GOTO","");
    printf("FindLayerComm m=%d i=%d\n",m,i);
   }
   if(m>0)
   {
    funcctrl[m].tstartl=i;
    funcctrl[m].fstartl=i;
   }
  }

  if(ctlkey[n].dir==-1)    /* ENDIF, WEND 等 */
  {
   LayerNum--;
   /* 给 Break, Contine等 赋值 */
   if(ctlkey[n].type==2)
   {
    m0=FindSameLayerComm(k-1,LayerNum+1,"CONTINUE");
    m1=FindSameLayerComm(k-1,LayerNum+1,"BREAK");
   }

   m=FindSameLayer(k-1,LayerNum);
   if(m>=0)
   {
    if(funcctrl[m].fendl<0) funcctrl[m].fendl = i;
    if(funcctrl[m].tendl<0) funcctrl[m].tendl = i;
   }
   else
   {
    printf("语法错误，找不到对应的IF or WHILE\n");
    exit(-1);
   }
   if(ctlkey[n].type==2 && m0 > m)  /* Contiue 在 while　之后 */
   {
    funcctrl[m0].tstartl=funcctrl[m].tstartl-1;
    funcctrl[m0].fstartl=funcctrl[m0].linenum+1;
   }
   if(ctlkey[n].type==2 && m1 > m)  /* Contiue 在 while　之后 */
   {
    funcctrl[m1].fstartl=funcctrl[m1].linenum+1;
    funcctrl[m1].tstartl=funcctrl[m].fendl;
   }
  }

  if(ctlkey[n].dir==0)  /* ELSE 等 */
  {
   m=FindSameLayer(k-1,LayerNum-1);
   printf("FindSameLayer: Count:%d LayerNum:%d Find:%d L:%d\n",k,LayerNum,m,i);
   if(m>=0)
   {
    funcctrl[m].tendl = i;
    funcctrl[m].fstartl = i;
   }
   else
   {
    printf("语法错误，找不到对应的IF\n");
    exit(-1);
   }
  }
 }
 printf(" LayerNum=%d\n", LayerNum);
 return(k);
}

main()
{
 int i,FuncSum,n=0;
 char buf[100];
 /* 从数据库中读出共有N个函数 */

/*
 i=SysVarInit();

 i=PutVarSet(SYS_SYSTIME,"165020");

 i=GetVarSet(SYS_SYSTIME,buf);

 printf(" SYSTIME Buf=%s\n",buf); 

 i=PutStruct(SYS,4,"165021");
 i=GetStruct(SYS,4,buf);

 printf(" NO 4 Buf=%s\n",buf); 

 i=PutVarSeti(SYS_LEN,888);
 i=GetVarSeti(SYS_LEN);

 printf("INT=%d\n",i); 

 i=PutVar("SYS","SYSTIME","190020");
 
 i=GetVar("SYS","SYSTIME",buf);

 i=VarOper("SYS|SYSTIME|5=USER|NAME|2|5");

 i=ClrVar("SYS","SYSTIME");
 printf("Buf=%s\n",buf); 
*/

 FuncSum=GetFuncName(5);
 

 n=ParseCtl(1);
/*
 for(i=0;i<FuncSum;i++)
 {
  ParseCtl(FuncName,i);
 }
*/
 
 PrintCtlRecord(n);
exit(0);
 FuncSum=GetFuncName(5);
 for(i=0;i<FuncSum;i++)
 {
  if(i==2) i="12";
  printf("func num=%d\n",i);
  ExecFunc(FuncName);
 }
}