[BACK]Return to util.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / parse

Diff for /OpenXM_contrib2/asir2000/parse/util.c between version 1.19 and 1.20

version 1.19, 2017/02/07 08:30:31 version 1.20, 2018/03/27 06:29:19
Line 45 
Line 45 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *   *
  * $OpenXM: OpenXM_contrib2/asir2000/parse/util.c,v 1.18 2015/08/14 13:51:56 fujimoto Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/util.c,v 1.19 2017/02/07 08:30:31 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "base.h"  #include "base.h"
Line 399  V searchvar(char *str)
Line 399  V searchvar(char *str)
         return 0;          return 0;
 }  }
   
   void update_LASTCO()
   {
     VL vl;
   
     for ( vl = CO; NEXT(vl); vl = NEXT(vl) );
     LASTCO = vl;
   }
   
 void makevar(char *str,P *p)  void makevar(char *str,P *p)
 {  {
         VL vl;          VL vl;
Line 415  void makevar(char *str,P *p)
Line 423  void makevar(char *str,P *p)
                         strcpy(NAME(v),str);                          strcpy(NAME(v),str);
                         NEWVL(NEXT(vl)); VR(NEXT(vl)) = v; NEXT(NEXT(vl)) = 0;                          NEWVL(NEXT(vl)); VR(NEXT(vl)) = v; NEXT(NEXT(vl)) = 0;
                         MKV(v,t); *p = t;                          MKV(v,t); *p = t;
                           LASTCO = NEXT(vl);
                         return;                          return;
                 } else                  } else
                         vl = NEXT(vl);                          vl = NEXT(vl);
Line 437  void makesrvar(FUNC f,P *p)
Line 446  void makesrvar(FUNC f,P *p)
                         NAME(v) = (char *)CALLOC(strlen(str)+1,sizeof(char));                          NAME(v) = (char *)CALLOC(strlen(str)+1,sizeof(char));
                         strcpy(NAME(v),str);                          strcpy(NAME(v),str);
                         NEWVL(NEXT(vl)); VR(NEXT(vl)) = v; NEXT(NEXT(vl)) = 0;                          NEWVL(NEXT(vl)); VR(NEXT(vl)) = v; NEXT(NEXT(vl)) = 0;
                           LASTCO = NEXT(vl);
                         MKV(v,t); *p = t;                          MKV(v,t); *p = t;
                         return;                          return;
                 } else                  } else
Line 474  void appendvar(VL vl,V v)
Line 484  void appendvar(VL vl,V v)
                         return;                          return;
                 else if ( !NEXT(vl) ) {                  else if ( !NEXT(vl) ) {
                         NEWVL(NEXT(vl)); VR(NEXT(vl)) = v; NEXT(NEXT(vl)) = 0;                          NEWVL(NEXT(vl)); VR(NEXT(vl)) = v; NEXT(NEXT(vl)) = 0;
                           LASTCO = NEXT(vl);
                         return;                          return;
                 } else                  } else
                         vl = NEXT(vl);                          vl = NEXT(vl);
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>