OpenXM_contrib2/asir2000/engine/str.c - diff

Return to str.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

Diff for /OpenXM_contrib2/asir2000/engine/str.c between version 1.3 and 1.4

-version 1.3, 2000/08/22 05:04:06
+version 1.4, 2000/11/08 08:02:49
 Line 45
 Line 45
 Line 45
   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
   *
-  * $OpenXM: OpenXM_contrib2/asir2000/engine/str.c,v 1.2 2000/08/21 08:31:28 noro Exp $
+  * $OpenXM: OpenXM_contrib2/asir2000/engine/str.c,v 1.3 2000/08/22 05:04:06 noro Exp $
  */
  #include "ca.h"
 Line 66  VL vl;
 Line 66  VL vl;
 Line 66  VL vl;
  STRING a,b;
  {
          return a ? (b?strcmp(BDY(a),BDY(b)):1) : (b?-1:0);
+ }
+ /* primitive functions for BYTEARRAY */
+ int compbytearray(vl,a,b)
+ VL vl;
+ BYTEARRAY a,b;
+ {
+         int i;
+         if ( !a )
+                 if ( b )
+                         return -1;
+                 else
+                         return 0;
+         else if ( !b )
+                 return 1;
+         else if ( a->len > b->len )
+                 return 1;
+         else if ( a->len < b->len )
+                 return -1;
+         else {
+                 for ( i = 0; i < a->len; i++ )
+                         if ( a->body[i] > b->body[i] )
+                                 return 1;
+                         else if ( a->body[i] < b->body[i] )
+                                 return -1;
+                 return 0;
+         }
  }

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>