开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 界面编程 > 组合框控件 > 查看源码
GRMRPARS.Cpp
资源名称：ictprop.rar　[点击查看]
上传用户：tenhai
上传日期：2021-02-19
资源大小：492k
文件大小：4k
源码类别：

组合框控件

开发平台：

Visual C++

GRMRPARS.Cpp：源码内容
  1. #include "stdafx.h"
  2. #include "error.h"
  3. #include "symbol.h"
  4. #include "grmrgrph.h"
  5. #include "grmrpars.h"
  6. #include "sntncelex.h"
  8. FILE *pfg;
  9. FILE *pfd;
  10. FILE *pft;
  11. int verbose;
  12. int ntrees=0;
  14. char *cuttoken(char **lhd){
  15.   char c, *token;
  17.   /*skip all blanks*/
  18.   while ((c=**lhd)!='' && (c==' ' || c=='t' || c=='n'))
  19.         (*lhd)++;
  20.   token=*lhd;
  22.   /*forward*/
  23.   while ((c=**lhd)!='' && !(c==' ' || c=='t' || c=='n'))
  24.         (*lhd)++;
  26.   /*terminate and proceed*/
  27.   if (**lhd!=''){
  28.      **lhd='';
  29.      (*lhd)++;
  30.   }    
  32.   return token;
  33. }
  35. char *uncuttoken(char **lhd, char *token){
  36. char *tmplhd;
  38. tmplhd=(*lhd);
  40. *lhd=token;
  41. *(--tmplhd)=' ';
  43. return *lhd;
  44. }
  47. parseg(){
  48.   char line[MAXLINELEN], *linehead=line, *token;
  49.   symbol_node_t *left, *prer, *curr;
  50.   unsigned int rolcount;
  51.   double pval;
  53.   grmrindxinit();
  54.   /*install the finishing symbol*/
  55.   ECHK(instfinode();, return -1;)
  57.   /*repeatedly reading rules*/
  58.   for (;fgets(line, MAXLINELEN, pfg)!=NULL;linehead=line){
  59.         /*reading left part*/
  60.         token=cuttoken(&linehead);
  61.         if (*token=='')
  62.            /*skip blank lines*/
  63.            continue;
  65.         if (*token=='%')
  66.            break;
  68. /*probability of the rule*/
  69. pval=atof(token);
  72. token=cuttoken(&linehead);
  73.         /*left part read, build it into graph*/
  74.         ECHK(left=instnode(token, linehead-token, 'L');, return -1;)
  75.         /*memorize start symbol*/
  76.         if (strcmp(token, START)==0)
  77.            ssym=left;
  79.         /*reading mid part*/
  80.         token=cuttoken(&linehead);
  81.         /*mismatch*/
  82.  if (strcmp(token, GENERATOR)!=0){
  83.  errcode=NOGENERATOR;
  84.  return -1;
  85.  }
  86.         //EGEN(strcmp(token, GENERATOR)!=0, NOGENERATOR, return -1;)
  88.         do{
  89.            /*mid part read, reading first component of right part*/
  90.            rulcount++;
  91.            rolcount=0;
  92.    ruleindex[rulcount].probability=pval;
  94.            token=cuttoken(&linehead);
  95.            /*missing right part*/
  96.            EGEN(*token==''||strcmp(token, SEPARATOR)==0, 
  97.                NORIGHTPART, return -1;)
  99.            /*first right component read, build it into graph*/ 
  100.            ECHK(curr=prer=instnode(token, linehead-token, 'R');, 
  101.                return -1;)
  103.            serialize(left);
  104.            /*draw an arc of "first" type, update role counter*/
  105.            ECHK(reltnodes(curr, left, rulcount, rolcount++, 'f');, 
  106.                return -1;)
  107.            serialize(curr);
  109.            /*repeatedly read the following right conponents*/
  110.            while (*(token=cuttoken(&linehead))!='' &&
  111.                  strcmp(token, SEPARATOR)!=0){
  112.                  ECHK(curr=instnode(token, linehead-token, 'R');,
  113.                      return -1;) 
  114.               
  115.                  /*draw an arc of "adjacent" type*/
  116.                  ECHK(reltnodes(curr, prer, rulcount, rolcount++, 'a');,
  117.                      return -1;)
  118.                  serialize(curr);
  120.                  prer=curr;
  121.            }
  122.         
  123.            /*draw an arc of "last" type, from left to the most right*/
  124.            ECHK(reltnodes(left, curr, rulcount, rolcount, 'l');, 
  125.                return -1;)
  127.        }while(*token!=''); 
  128.   }
  130.   /*missing starting nonterminal*/
  131.   EGEN(ssym==NULL, NOSTART, return -1;)
  132.   /*draw an arc of "adjacent" type, from fininshing symbol to starting symbol*/
  133.   ECHK(reltnodes(fsym, ssym, 0, 1, 'a');, return -1;)
  135.   /*number all the symbols*/
  136.   numnodes();
  137.   grmrindxfini();
  138.   rulupbound=(unsigned int)(rulcount+1);
  140.   return 0;
  141. }
  143.  // extern int maxlink, fufiled;
  145. installdict(){
  146.   char line[MAXLINELEN], *linehead=line, *token;
  147.   wentry_t *wentry;
  148.   unsigned int term;
  150.   for (;fgets(line, MAXLINELEN, pfd)!=NULL;linehead=line){
  151.       token=cuttoken(&linehead);
  152.       if (*token=='')
  153.            continue;
  154.       wentry=dictinsert(token);
  156.       while (*(token=cuttoken(&linehead))!=''){
  157. //  if ((term=token2tcode(token))==-1)
  158. //  printf("%s", token);
  159.   EGEN((term=token2tcode(token))==-1, UNKNOWNTERM, {return -1;})
  160.             adddef(wentry, term);
  161.       }
  162.   }
  164.   wentry=dictinsert("");
  165.   adddef(wentry, fsym->sid);
  167. //  printf("%dn", maxlink);
  168. //  printf("%dn", fufiled);
  169.   return 0;
  170. }