pike.git/ lib/ master.pike.in

1998-04-29

1998-04-29 13:11:01 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• c896b4bb0635660e659227c0d1c243390d1ca91a (25 lines) (+21/-4) ^{[ Show | Annotate ]}
  Branch: 7.9

stupid_describe() now uses the improved %O to describe strings.

Rev: lib/master.pike.in:1.22

1: - /* $Id: master.pike.in,v 1.21 1998/04/29 03:08:25 grubba Exp $ + /* $Id: master.pike.in,v 1.22 1998/04/29 13:11:01 grubba Exp $    *    * Master-file for Pike.    *    * Based on master.pike 1.67.    */    -  + // Some configurable parameters useful for debugging +  + // Used by describe_backtrace() et al. + #if !defined(BT_MAX_STRING_LEN) || (BT_MAX_STRING_LEN <= 0) + #undef BT_MAX_STRING_LEN + #define BT_MAX_STRING_LEN 60 + #endif /* !defined(BT_MAX_STRING_LEN) || (BT_MAX_STRING_LEN <= 0) */ +  + /* +  * Functions begin here. +  */ +    int is_absolute_path(string p)   {   #ifdef __NT__
795:    return (string)m;       case "string": -  if(sizeof(m) < 60 && sscanf(m,"%*[^\0-\037\177-\237\\\"]%n",int i) && i==sizeof(m)) +  if(sizeof(m) < BT_MAX_STRING_LEN)    { -  return "\""+m+"\""; +  string t = sprintf("%O", m); +  if (sizeof(t) < (BT_MAX_STRING_LEN + 2)) { +  return t;    } -  +  t = 0; +  }       case "array":    case "mapping":
806:    return typ+"["+sizeof(m)+"]";       default: -  return sprintf("%t",m); +  return typ;    }   }