pike.git / src / array.c

version» Context lines:

pike.git/src/array.c:15:   #include "error.h"   #include "pike_types.h"   #include "fsort.h"   #include "builtin_functions.h"   #include "pike_memory.h"   #include "gc.h"   #include "main.h"   #include "security.h"   #include "stuff.h"    - RCSID("$Id: array.c,v 1.54 1999/09/16 23:56:08 hubbe Exp $"); + RCSID("$Id: array.c,v 1.55 1999/09/24 13:03:01 noring Exp $");      struct array empty_array=   {    1, /* Never free */   #ifdef PIKE_SECURITY    0,   #endif    &empty_array, /* Next */    &empty_array, /* previous (circular) */    0, /* Size = 0 */
pike.git/src/array.c:1505:    for(e=0;p;e++,p=p->next)    {    if(p->pointer_a == (void *)a)    {    sprintf(buf,"@%ld",(long)e);    my_strcat(buf);    return;    }    }    -  sprintf(buf,"({ /* %ld elements */\n",(long)a->size); +  sprintf(buf, a->size == 1 ? "({ /* %ld element */\n" : +  "({ /* %ld elements */\n", +  (long)a->size);    my_strcat(buf);    describe_array_low(a,&doing,indent);    my_putchar('\n');    for(e=2; e<indent; e++) my_putchar(' ');    my_strcat("})");   }      struct array *aggregate_array(INT32 args)   {    struct array *a;