pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.208 2000/09/12 14:28:53 grubba Exp $"); + RCSID("$Id: las.c,v 1.209 2000/09/12 14:41:40 grubba Exp $");      #include "language.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"   #include "pike_types.h"
pike.git/src/las.c:1742:    }   }      int node_may_overload(node *n, int lfun)   {    if(!n) return 0;    if(!n->type) return 1;    return type_may_overload(n->type->str, lfun);   }    + /* FIXME: Ought to use parent pointer to avoid recursion. */   node **last_cmd(node **a)   {    node **n;    if(!a || !*a) return (node **)NULL;    if(((*a)->token == F_CAST) ||    ((*a)->token == F_SOFT_CAST) ||    ((*a)->token == F_POP_VALUE)) return last_cmd(&_CAR(*a));    if(((*a)->token != F_ARG_LIST) &&    ((*a)->token != F_COMMA_EXPR)) return a;    if(CDR(*a))