/*    /secure/sefun/identify.c
 *    from the Foundation II LPC Library
 *    represent a variable of any type as a string, now out of date
 *    remains for backwards compat
 *    created by Pallando@Nightmare (Douglas Reay) 921212
 */

string identify( mixed a )
{
  int i, s;
  string ret;
  mapping RealMap;

  if( undefinedp( a ) ) return "UNDEFINED";
  if( nullp( a ) ) return "0";
  if( intp( a ) ) return "" + a;
  if( floatp( a ) ) return "" + a;
  if( objectp( a ) )
  {
    if( ret = a-> GetKeyName() ) ret += " ";
    else ret = "";
    return "OBJ(" + ret + file_name( a ) + ")";
  }
  if( stringp( a ) )
  {
    a = replace_string( a, "\"", "\\\"" );
    a = "\"" + a + "\"";
    a = replace_string( a, "\\", "\\\\" );
    a = replace_string( a, "\\\"", "\"" );
    a = replace_string( a, "\n", "\\n" );
    a = replace_string( a, "\t", "\\t" );
    return a;
  }
  if( pointerp( a ) ) 
  {
    ret = "({ ";
    s = sizeof( a );
    for( i = 0 ; i < s ; i++ )
    {
      if( i ) ret += ", ";
      ret += identify( a[i] );
    }
    return ret + ( s ? " " : "" ) + "})";
  }
  if( mapp( a ) )
  {
    ret = "([ ";
    RealMap = (mapping)(a);
    a = keys( RealMap );
    s = sizeof( a );
    for( i = 0 ; i < s ; i++ )
    {
      if( i ) ret += ", ";
      ret += identify( a[i] ) + " : " + identify( RealMap[a[i]] );
    }
    return ret + ( s ? " " : "" ) + "])";
  }
    if(functionp(a)) return sprintf("%O", a);
  return "UNKNOWN";
}