pike.git / src / modules / Perl / perlmod.c

version» Context lines:

pike.git/src/modules/Perl/perlmod.c:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: perlmod.c,v 1.30 2002/11/26 11:39:11 stensson Exp $ + || $Id: perlmod.c,v 1.31 2002/11/26 14:18:34 nilsson Exp $   */      #define NO_PIKE_SHORTHAND      #include "builtin_functions.h"   #include "global.h"   #include "svalue.h"   #include "array.h"   #include "stralloc.h"   #include "interpret.h"
pike.git/src/modules/Perl/perlmod.c:950:      /*! @decl array get_array(string name)    *!    *! Get the contents of a Perl array variable as a Pike array. If the    *! size of the array is larger than the specified array size limit,    *! the returned Pike array will be truncated according to the limit.    *!    *! @param name    *! Name of the array variable, as an 8-bit string.    *! -  *! @seealso @[array_size_limit()] +  *! @seealso +  *! @[array_size_limit()]    */   static void perlmod_get_whole_array(INT32 args)   {    AV *av;    int i, n;    struct array *arr;       if (args != 1)    Pike_error("Wrong number of arguments.\n");   
pike.git/src/modules/Perl/perlmod.c:993:      /*! @decl array get_hash_keys(string name)    *!    *! Get the keys (indices) of a Perl hash variable as a Pike array. If    *! the size of the resulting array is larger than the specified array    *! size limit, an error will be thrown.    *!    *! @param name    *! Name of the hash variable, as an 8-bit string.    *! -  *! @seealso @[array_size_limit()] +  *! @seealso +  *! @[array_size_limit()]    */   static void perlmod_get_hash_keys(INT32 args)   {    HV *hv; HE *he; SV *sv;    int i, n;    I32 len;    struct array *arr;       if (args != 1)    Pike_error("Wrong number of arguments.\n");