pike.git / src / modules / Image / togif.c

version» Context lines:

pike.git/src/modules/Image/togif.c:1:   /*      togif    - $Id: togif.c,v 1.27 1997/11/11 22:17:52 mirar Exp $ + $Id: togif.c,v 1.28 1997/11/26 15:41:35 mirar Exp $      old GIF API compat stuff      */      /*   **! module Image   **! note - **! $Id: togif.c,v 1.27 1997/11/11 22:17:52 mirar Exp $ + **! $Id: togif.c,v 1.28 1997/11/26 15:41:35 mirar Exp $   **! class image   */      #include "global.h"      #include <math.h>   #include <ctype.h>      #include "stralloc.h"   #include "global.h"
pike.git/src/modules/Image/togif.c:136:    image_gif_netscape_loop_block(args);   }      static void img_gif_add(INT32 args,int fs,int lm,    rgb_group *transparent)   {    INT32 x=0,y=0;    int delay=0;    struct object *ncto=NULL;    +  struct svalue *msp=sp; +     if (args==0) x=y=0;    else if (args<2    || sp[-args].type!=T_INT    || sp[1-args].type!=T_INT)    error("Illegal argument(s) to image->gif_add()\n");    else    {    x=sp[-args].u.integer;    y=sp[1-args].u.integer;    }       if (args>2 && sp[2-args].type==T_ARRAY)    {    struct svalue *sv=sp+2-args;    push_svalue(sv); -  ncto=clone_object(image_colortable_program,2); +  ncto=clone_object(image_colortable_program,1);    }    else if (args>3 && sp[2-args].type==T_INT)    {    INT32 i=sp[2-args].u.integer;    THISOBJ->refs++;    push_object(THISOBJ);    push_int(i);    ncto=clone_object(image_colortable_program,2);    }