Branch: Tag:

1998-11-22

1998-11-22 11:08:52 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

New module: Perl

Rev: src/ChangeLog:1.157
Rev: src/README:1.8
Rev: src/acconfig.h:1.35
Rev: src/array.c:1.42
Rev: src/array.h:1.14
Rev: src/backend.c:1.40
Rev: src/builtin_functions.c:1.140
Rev: src/callback.c:1.15
Rev: src/compilation.h:1.13
Rev: src/configure.in:1.254
Rev: src/cpp.c:1.30
Rev: src/docode.c:1.42
Rev: src/dynamic_buffer.c:1.9
Rev: src/encode.c:1.26
Rev: src/error.c:1.22
Rev: src/error.h:1.25
Rev: src/fd_control.c:1.22
Rev: src/fdlib.h:1.21
Rev: src/gc.c:1.39
Rev: src/gc.h:1.20
Rev: src/global.h:1.26
Rev: src/hashtable.c:1.5
Rev: src/interpret.c:1.111
Rev: src/interpret.h:1.24
Rev: src/language.yacc:1.108
Rev: src/las.c:1.71
Rev: src/las.h:1.17
Rev: src/lex.c:1.58
Rev: src/lex.h:1.12
Rev: src/main.c:1.60
Rev: src/mapping.c:1.37
Rev: src/modules/Odbc/odbc.c:1.12
Rev: src/modules/Perl/.cvsignore:1.1
Rev: src/modules/Perl/Makefile.in:1.1
Rev: src/modules/Perl/configure.in:1.1
Rev: src/modules/Perl/perlmod.c:1.1
Rev: src/modules/Perl/testsuite.in:1.1
Rev: src/modules/Postgres/postgres.c:1.10
Rev: src/modules/Regexp/pike_regexp.c:1.13
Rev: src/modules/call_out/call_out.c:1.23
Rev: src/modules/files/file.c:1.128
Rev: src/modules/files/socket.c:1.40
Rev: src/modules/spider/spider.c:1.76
Rev: src/modules/sprintf/sprintf.c:1.31
Rev: src/multiset.c:1.12
Rev: src/object.c:1.53
Rev: src/opcodes.c:1.32
Rev: src/operators.c:1.44
Rev: src/peep.c:1.25
Rev: src/pike_memory.c:1.28
Rev: src/pike_types.c:1.49
Rev: src/pike_types.h:1.16
Rev: src/port.c:1.18
Rev: src/port.h:1.20
Rev: src/program.c:1.105
Rev: src/program.h:1.46
Rev: src/signal_handler.c:1.89
Rev: src/stralloc.c:1.50
Rev: src/stralloc.h:1.26
Rev: src/svalue.c:1.39
Rev: src/svalue.h:1.19
Rev: src/threads.c:1.85
Rev: src/threads.h:1.60

22:   #include "builtin_functions.h"   #include "module_support.h"    - RCSID("$Id: opcodes.c,v 1.31 1998/10/09 23:33:39 grubba Exp $"); + RCSID("$Id: opcodes.c,v 1.32 1998/11/22 11:03:05 hubbe Exp $");      void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind)   {
340:    }    }    - #ifdef DEBUG + #ifdef PIKE_DEBUG    if(run_time_type != sp[-1].type)    fatal("Internal error: Cast failed (run_time_type = %d, sp[-1].type = %d.)\n",run_time_type,sp[-1].type);   #endif
367:    }else{    INT32 e,i;    struct pike_string *s; - #ifdef DEBUG + #ifdef PIKE_DEBUG    struct svalue *save_sp=sp+1;   #endif    push_array(a=allocate_array(tmp->size));
380:    array_set_index(a,e,sp-1);    pop_stack();    } - #ifdef DEBUG + #ifdef PIKE_DEBUG    if(save_sp!=sp)    fatal("o_cast left stack droppings.\n");   #endif
397:      void f_cast(void)   { - #ifdef DEBUG + #ifdef PIKE_DEBUG    struct svalue *save_sp=sp;   #endif    o_cast(sp[-2].u.string,    compile_type_to_runtime_type(sp[-2].u.string)); - #ifdef DEBUG + #ifdef PIKE_DEBUG    if(save_sp != sp)    fatal("Internal error: o_cast() left droppings on stack.\n");   #endif
607:    return matches;    }    - #ifdef DEBUG + #ifdef PIKE_DEBUG    if(match[cnt]!='%' || match[cnt+1]=='%')    {    fatal("Error in sscanf.\n");
1109:    }else{    check_stack(1);    *sp++=sval; - #ifdef DEBUG + #ifdef PIKE_DEBUG    sval.type=99;   #endif    }
1121:      void o_sscanf(INT32 args)   { - #ifdef DEBUG + #ifdef PIKE_DEBUG    extern int t_flag;   #endif    INT32 e,i;
1149:    assign_lvalue(save_sp-args+2+x*2,save_sp+x);    pop_n_elems(sp-save_sp +args);    - #ifdef DEBUG + #ifdef PIKE_DEBUG    if(t_flag >2)    {    int nonblock;
1166:      void f_sscanf(INT32 args)   { - #ifdef DEBUG + #ifdef PIKE_DEBUG    extern int t_flag;   #endif    INT32 e,i;