pike.git / lib / master.pike.in

version» Context lines:

pike.git/lib/master.pike.in:1:   // -*- Pike -*-   //   // Master Control Program for Pike.   //   // 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: master.pike.in,v 1.258 2004/05/03 12:26:44 grubba Exp $ + // $Id: master.pike.in,v 1.259 2004/12/08 15:02:08 mast Exp $      #pike __REAL_VERSION__      // Some programs destroys character pairs beginning with the currency   // symbol when running in chinese locale.   #if "ยค/" != "\244/"   #error "master.pike.in is corrupted."   #endif      // --- Some configurable parameters
pike.git/lib/master.pike.in:2606:    if (stringp (ident[m])) return [string]ident[m];    else if (intp (ident[m]) && ident[m] > 1)    ident[m] = "@" + identcount++;       string res;    if (catch (res=sprintf("%t",m)))    res = "object"; // Object with a broken _sprintf(), probably.    switch(res)    {    case "int": +  if (!m && zero_type (m) == 1) +  return "UNDEFINED";    case "float":    return (string)m;    case "string":    return describe_string ([string]m, maxlen);    case "array":    res = describe_array ([array]m, maxlen);    break;    case "mapping":    res = describe_mapping ([mapping]m, maxlen);    break;