pike.git/ src/ program.c

1998-01-28

1998-01-28 00:33:17 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• bcf946605767c36e4e14c44d64fc314f1722a8b1 (19 lines) (+18/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

File->pipe() now takes an argument

Rev: lib/master.pike:1.64
Rev: lib/modules/LR.pmod/Grammar_parser.pmod:1.5
Rev: lib/modules/Process.pmod:1.16
Rev: lib/modules/Stdio.pmod:1.10
Rev: src/callback.c:1.11
Rev: src/configure.in:1.154
Rev: src/fdlib.c:1.10
Rev: src/fdlib.h:1.7
Rev: src/modules/files/configure.in:1.39
Rev: src/modules/files/file.c:1.70
Rev: src/modules/files/file.h:1.6
Rev: src/modules/files/socket.c:1.26
Rev: src/modules/files/socktest.pike:1.8
Rev: src/modules/files/testsuite.in:1.11
Rev: src/program.c:1.58

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: program.c,v 1.57 1998/01/27 20:02:15 hubbe Exp $"); + RCSID("$Id: program.c,v 1.58 1998/01/28 00:31:17 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
914:    return;    }    +  if(!(p->flags & (PROGRAM_FINISHED | PROGRAM_PASS_1_DONE))) +  { +  yyerror("Cannot inherit program which is not fully compiled yet."); +  return; +  } +     inherit_offset = new_program->num_inherits;       storage_offset=new_program->storage_needed;
2154:   {    switch(s->type)    { +  case T_OBJECT: +  { +  struct program *p; +  push_svalue(s); +  f_object_program(1); +  p=program_from_svalue(sp-1); +  pop_stack(); +  return p; /* We trust that there is a reference somewhere... */ +  } +     case T_FUNCTION:    return program_from_function(s);    case T_PROGRAM: