OpenXM_contrib2/asir2000/builtin/array.c - diff

Return to array.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

version 1.45, 2005/01/23 14:03:47

version 1.46, 2005/02/08 18:06:05

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.44 2005/01/12 10:38:07 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.45 2005/01/23 14:03:47 noro Exp $

#include "ca.h"

#include "base.h"

Line 158 int generic_comp_obj(Obj *a,Obj *b)

}

void Pqsort(NODE arg,VECT *rp)

void Pqsort(NODE arg,LIST *rp)

{

VECT vect;

NODE n,n1;

Line 205 void Pqsort(NODE arg,VECT *rp)

for ( i = len - 1, n = 0; i >= 0; i-- ) {

MKNODE(n1,a[i],n); n = n1;

}

MKLIST((LIST)*rp,n);

MKLIST(*rp,n);

}else {

*rp = vect;

*rp = (LIST)vect;

}