[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.3 and 1.4

version 1.3, 2000/08/22 05:04:28 version 1.4, 2000/11/08 08:02:52
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.2 2000/08/21 08:31:47 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/util.c,v 1.3 2000/08/22 05:04:28 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "base.h"  #include "base.h"
Line 124  pointer *vp;
Line 124  pointer *vp;
         int i,l;          int i,l;
         NODE n,n0;          NODE n,n0;
         VECT v;          VECT v;
           Q q;
   
           if ( a && OID(a) == O_BYTEARRAY ) {
                   len = (Obj)BDY(ind);
                   if ( !rangecheck(len,((BYTEARRAY)a)->len) )
                           error("getarray : Out of range");
                   else if ( NEXT(ind) )
                           error("getarray : invalid index");
                   else {
                           i = (int)BDY((BYTEARRAY)a)[QTOS((Q)len)];
                           STOQ(i,q);
                           *vp = (pointer)q;
                   }
                   return;
           }
         for ( ; ind; ind = NEXT(ind) ) {          for ( ; ind; ind = NEXT(ind) ) {
                 if ( !a )                  if ( !a )
                         error("getarray : array or list expected");                          error("getarray : array or list expected");
Line 180  pointer b;
Line 194  pointer b;
         int i,l;          int i,l;
         NODE n,n0;          NODE n,n0;
   
           if ( a && OID(a) == O_BYTEARRAY ) {
                   len = (Obj)BDY(ind);
                   if ( !rangecheck(len,((BYTEARRAY)a)->len) )
                           error("putarray : Out of range");
                   else if ( NEXT(ind) )
                           error("putarray : invalid index");
                   else
                           BDY((BYTEARRAY)a)[QTOS((Q)len)] = (unsigned char)QTOS((Q)b);
                   return;
           }
         for ( ; ind; ind = NEXT(ind) ) {          for ( ; ind; ind = NEXT(ind) ) {
                 if ( !a )                  if ( !a )
                         error("putarray : array expected");                          error("putarray : array expected");
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>