// File:        /adm/daemon/refs_d.c
// Mudlib:      Nightmare (but see credits)
// Purpose:     interface between /std/user/refs.c and ref commands
// Credits:     see _refs.c

mixed gtmp1, gtmp2;

void set_refs( mapping refs ) { this_player()-> set_refs( refs ); }

mapping get_refs() { return (mapping)this_player()-> get_refs(); }

void set_ref( string ref, mixed val ) { this_player()-> set_ref( ref, val ); }

mixed get_ref( string ref ) { return (mixed)this_player()-> get_ref( ref ); }

mixed resolv_ref( mixed a )
{
  mixed ret;
  string ref;

  if( !stringp( a ) ) return a;
  if( !sscanf( a, "#%s", ref ) ) return a;
// Nightmare does not support cwf
// if( ref == "#" ) return (string)this_player()-> query( "cwf" );
  if( undefinedp( ret = get_ref( ref ) ) ) return a;
  return ret;
}

mixed ref_ob( mixed a )
{
  mixed tmp;

  a = resolv_ref( a );
  if( stringp( a ) && ( tmp = get_objects( a, 0, 1 ) ) ) a = tmp;
  return a;
}

// NB arrays or mappings containing arrays, mappings or
// functions are liable to confuse this function.
// This could be made a simul_efun some time.
// Fixed to handle the case ([]) and ({})  93-02-05 Pallando
mixed resolv_str( string a )
{
  mapping v_m;
  mixed v_o; //object or array of objects 
  mixed *v_a, tmp1, tmp2;
  string v_s, sa, sb;
  int v_i, ia, ib;

  if( !a ) return a;
  if( a == "" || a == " " || a == "  " ) return a;
  if( sscanf( a, " %s", sa ) ) a = sa;
  ib = strlen( a ) - 1;
  if( a[ib..ib] == " " ) a = a[0..(ib-1)];
  if( sscanf( a, "\"%s\"", v_s ) ) return v_s;
// If you want to make resolv_str() a simul_efun, change the next line to
// tmp1 = REFS_D->resolv_ref( a );
  tmp1 = resolv_ref( a );
  if( tmp1 != a ) return tmp1;
  if( sscanf( a, "%d", v_i ) ) return v_i;
  if( v_o = get_objects( a ) ) return v_o;
  if( sscanf( a, "(:%s,%s:)", sa, sb ) == 2 )
  {
    gtmp1 = resolv_str( sa );
    gtmp2 = resolv_str( sb );
    if( objectp( tmp1 ) && stringp( tmp2 ) ) return (: gtmp1, gtmp2 :);
  }
  if( sscanf( a, "({%s})", sa ) )
  {
    v_a = explode( sa, "," );
    ib = sizeof( v_a );
    if( ib && !v_a[0] ) return ({ });
    for( ia = 0 ; ia < ib ; ia++ )
      v_a[ia] = resolv_str( v_a[ia] );
    return v_a;
  }
  if( sscanf( a, "([%s])", sa ) )
  {
    v_m = ([]);
    v_a = explode( sa, "," );
    ib = sizeof( v_a );
    if( ib && !v_a[0] ) return ([]);
    for( ia = 0 ; ia < ib ; ia++ )
      if( sscanf( v_a[ia], "%s:%s", sa, sb ) == 2 )
        v_m[resolv_str( sa )] = resolv_str( sb );
    return v_m;
  }
  return a;
}