pike.git/ src/ modules/ Parser/ parser.c

1999-06-19

1999-06-19 20:26:55 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 07228a7d7400dbfaaa6239a820e65942c94f0450 (15 lines) (+9/-6) ^{[ Show | Annotate ]}
  Branch: 7.9

tNone added + other fixes for MSVC++

Rev: src/modules/Image/colors.c:1.23
Rev: src/modules/Image/colortable.c:1.72
Rev: src/modules/Image/encodings/tga.c:1.8
Rev: src/modules/Image/font.c:1.53
Rev: src/modules/Image/image.c:1.147
Rev: src/modules/Image/layers.c:1.18
Rev: src/modules/Image/orient.c:1.13
Rev: src/modules/Image/polyfill.c:1.30
Rev: src/modules/Image/search.c:1.13
Rev: src/modules/Oracle/oracle.c:1.17
Rev: src/modules/Parser/html.c:1.22
Rev: src/modules/Parser/parser.c:1.4
Rev: src/modules/Perl/perlmod.c:1.8
Rev: src/modules/Pipe/pipe.c:1.33
Rev: src/modules/_Charset/charsetmod.c:1.15
Rev: src/modules/_Charset/iso2022.c:1.10
Rev: src/modules/_Crypto/crypto.c:1.28
Rev: src/modules/_Crypto/des.c:1.14
Rev: src/modules/_Crypto/pipe.c:1.15
Rev: src/modules/_Image_TTF/image_ttf.c:1.17
Rev: src/modules/call_out/call_out.c:1.28
Rev: src/modules/files/efuns.c:1.72
Rev: src/modules/files/socket.c:1.43
Rev: src/modules/spider/dumudp.c:1.44
Rev: src/modules/spider/spider.c:1.82
Rev: src/modules/spider/xml.c:1.8
Rev: src/modules/system/nt.c:1.12
Rev: src/modules/system/system.c:1.72

1:   #include "global.h"   #include "stralloc.h"   #include "global.h" - RCSID("$Id: parser.c,v 1.3 1999/06/12 13:42:42 mirar Exp $"); + RCSID("$Id: parser.c,v 1.4 1999/06/19 20:25:22 hubbe Exp $");   #include "pike_macros.h"   #include "interpret.h"   #include "program.h"
55:   #define PARSER_CLASS(name,init,exit,prog)   #define PARSER_SUBMODULE(name,init,exit) { name,init,exit },   #include "initstuff.h" +  {0,0,0 }   };      static struct
71:   #define PARSER_SUBMODULE(a,b,c)   #define PARSER_SUBMODMAG(name,init,exit) { name,init,exit,NULL,NULL },   #include "initstuff.h" +  { 0,0,0,0,0 }   };      #ifdef PIKE_DEBUG
90:    if (sp[-1].type!=T_STRING)    error("Parser.`[]: Illegal type of argument\n");    -  for (i=0; i<(int)NELEM(submagic); i++) +  for (i=0; i<(int)NELEM(submagic)-1; i++)    if (sp[-1].u.string==submagic[i].ps)    {   #ifdef PIKE_DEBUG
168:    add_program_constant(initclass[i].name,initclass[i].dest[0],0);    }    -  for (i=0; i<(int)NELEM(initsubmodule); i++) +  for (i=0; i<(int)NELEM(initsubmodule)-1; i++)    {    struct program *p;    struct pike_string *s;
190:    pop_stack();    }    -  for (i=0; i<(int)NELEM(submagic); i++) +  for (i=0; i<(int)NELEM(submagic)-1; i++)    submagic[i].ps=make_shared_string(submagic[i].name);      #undef PARSER_FUNCTION
209:    (initclass[i].exit)();    free_program(initclass[i].dest[0]);    } -  for (i=0; i<(int)NELEM(initsubmodule); i++) +  for (i=0; i<(int)NELEM(initsubmodule)-1; i++)    (initsubmodule[i].exit)(); -  for (i=0; i<(int)NELEM(submagic); i++) +  for (i=0; i<(int)NELEM(submagic)-1; i++)    if (submagic[i].o)    {    (submagic[i].exit)();    free_object(submagic[i].o);    }   }