#include "dsp56k.hpp"

// simple wrapper class for syntactic sugar of member functions
// this class may have only simple member functions.
// virtual functions and data fields are forbidden, otherwise the class
// layout may change
class out_dsp56k_t : public outctx_t
{
  out_dsp56k_t(void) = delete; // not used
public:
  bool out_operand(const op_t &x);
  void out_insn(void);
  void out_proc_mnem(void);
  void outreg(int r) { out_register(ph.reg_names[r]); }
  bool out_port_address(ea_t addr);
  void out_bad_address(ea_t addr);
  void out_ip_rel(int displ);
  void out_operand_group(int idx, const op_t *x);
};
CASSERT(sizeof(out_dsp56k_t) == sizeof(outctx_t));

DECLARE_OUT_FUNCS(out_dsp56k_t)

//--------------------------------------------------------------------------
static const char *const cc_text[] =
{
  "cc", // carry clear (higher or same) C=0
  "ge", // greater than or equal N & V=0
  "ne", // not equal Z=0
  "pl", // plus N=0
  "nn", // not normalized Z+(U.E)=0
  "ec", // extension clear E=0
  "lc", // limit clear L=0
  "gt", // greater than Z+(N & V)=0
  "cs", // carry set (lower) C=1
  "lt", // less than N & V=1
  "eq", // equal Z=1
  "mi", // minus N=1
  "nr", // normalized Z+(U.E)=1
  "es", // extension set E=1
  "ls", // limit set L=1
  "le", // less than or equal Z+(N & V)=1
};

//--------------------------------------------------------------------------
static const char *const su_text[] =
{
  "ss", // signed * signed
  "su", // signed * unsigned
  "uu", // unsigned * unsigned
};

static const char *const formats[] =
{
  COLSTR("(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR(")-", SCOLOR_SYMBOL) COLSTR("n%d", SCOLOR_REG),
  COLSTR("(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR(")+", SCOLOR_SYMBOL) COLSTR("n%d", SCOLOR_REG),
  COLSTR("(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR(")-", SCOLOR_SYMBOL),
  COLSTR("(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR(")+", SCOLOR_SYMBOL),
  COLSTR("(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR(")", SCOLOR_SYMBOL),
  COLSTR("(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR("+", SCOLOR_SYMBOL) COLSTR("n%d", SCOLOR_REG) COLSTR(")", SCOLOR_SYMBOL),
  "internal error with o_phrase",
  COLSTR("-(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR(")", SCOLOR_SYMBOL),
  COLSTR("$+", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG),
  COLSTR("(", SCOLOR_SYMBOL) COLSTR("a1", SCOLOR_REG) COLSTR(")", SCOLOR_SYMBOL),
  COLSTR("(", SCOLOR_SYMBOL) COLSTR("b1", SCOLOR_REG) COLSTR(")", SCOLOR_SYMBOL),
};
// 0 (Rn)-Nn
// 1 (Rn)+Nn
// 2 (Rn)-
// 3 (Rn)+
// 4 (Rn)
// 5 (Rn+Nn)
// 7 -(Rn)
// 8 $+Rn
// 9 (a1)
// 10 (b1)


static const char *const formats2[] =
{
  COLSTR("(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR("+", SCOLOR_SYMBOL) COLSTR("$%X", SCOLOR_NUMBER) COLSTR(")", SCOLOR_SYMBOL),
  COLSTR("(", SCOLOR_SYMBOL) COLSTR("r%d", SCOLOR_REG) COLSTR("-", SCOLOR_SYMBOL) COLSTR("$%X", SCOLOR_NUMBER) COLSTR(")", SCOLOR_SYMBOL),
};


//----------------------------------------------------------------------
bool out_dsp56k_t::out_port_address(ea_t addr)
{
  dsp56k_t &pm = *static_cast<dsp56k_t *>(procmod);
  const ioport_t *port = pm.find_port(addr);
  if ( port != NULL && !port->name.empty() )
  {
    out_line(port->name.c_str(), COLOR_IMPNAME);
    return true;
  }
  return false;
}

//----------------------------------------------------------------------
void out_dsp56k_t::out_bad_address(ea_t addr)
{
  if ( !out_port_address(addr) )
  {
    out_tagon(COLOR_ERROR);
    out_btoa(addr, 16);
    out_tagoff(COLOR_ERROR);
    remember_problem(PR_NONAME, insn.ea);
  }
}

//----------------------------------------------------------------------
void out_dsp56k_t::out_ip_rel(int displ)
{
  out_printf(COLSTR("%s+", SCOLOR_SYMBOL) COLSTR("%d", SCOLOR_NUMBER),
               ash.a_curip, displ);
}

//----------------------------------------------------------------------
bool out_dsp56k_t::out_operand(const op_t &x)
{
  dsp56k_t &pm = *static_cast<dsp56k_t *>(procmod);
  if ( x.type == o_imm )
  {
    out_symbol('#');
  }
  else
  {
    if ( x.amode & amode_x )
    {
      out_register("x");
      out_symbol(':');
    }
    if ( x.amode & amode_y )
    {
      out_register("y");
      out_symbol(':');
    }
    if ( x.amode & amode_p )
    {
      out_register("p");
      out_symbol(':');
    }
    if ( x.amode & amode_l )
    {
      out_register("l");
      out_symbol(':');
    }
  }
  if ( x.amode & amode_ioshort )
  {
    out_symbol('<');
    out_symbol('<');
  }
  if ( x.amode & amode_short )
    out_symbol('<');
  if ( x.amode & amode_long )
    out_symbol('>');
  if ( x.amode & amode_neg )
    out_symbol('-');

  switch ( x.type )
  {
    case o_void:
      return 0;

    case o_imm:
      out_value(x, OOFS_IFSIGN|OOFW_IMM);
      break;

    case o_reg:
      outreg(x.reg);
      break;

    case o_mem:
      // no break;
    case o_near:
      {
        ea_t ea = pm.calc_mem(insn, x);
        // xmem ioports
        if ( x.amode & (amode_x|amode_l) && out_port_address(x.addr) )
        {
          const ioport_t *port = pm.find_port(x.addr);
          if ( port != NULL && !has_user_name(get_flags(ea)) )
            set_name(ea, port->name.c_str(), SN_NODUMMY);
          break;
        }
        if ( ea == insn.ea+insn.size )
          out_ip_rel(insn.size);
        else if ( !out_name_expr(x, ea, x.addr) )
          out_bad_address(x.addr);
      }
      break;

    case o_phrase:
      {
        char buf[MAXSTR];
        nowarn_qsnprintf(buf, sizeof(buf), formats[uchar(x.phtype)], x.phrase, x.phrase);
        out_colored_register_line(buf);
      }
      break;

    case o_displ:
      {
        char buf[MAXSTR];
        nowarn_qsnprintf(buf, sizeof(buf), formats2[uchar(x.phtype)], x.phrase, x.addr);
        out_colored_register_line(buf);
      }
      break;

    case o_iftype:
      {
        char postfix[4];
        qstrncpy(postfix, cc_text[insn.auxpref & aux_cc], sizeof(postfix));
        if ( x.imode == imode_if )
          out_printf(COLSTR("IF%s", SCOLOR_SYMBOL), postfix);
        else
          out_printf(COLSTR("IF%s.U", SCOLOR_SYMBOL), postfix);
      }
      break;

    case o_vsltype:
      out_symbol((insn.auxpref & 1) + '0');
      break;

    default:
      interr(&insn, "out");
      break;
  }
  return 1;
}

//----------------------------------------------------------------------
void out_dsp56k_t::out_operand_group(int idx, const op_t *x)
{
  for ( int i=0; i < 2; i++,x++ )
  {
    if ( x->type == o_void )
      break;
    if ( i != 0 )
    {
      out_symbol(',');
    }
    else if ( insn.itype != DSP56_move || idx != 0 )
    {
      size_t n = 16;
      if ( idx == (insn.itype == DSP56_move) )
        n = tag_strlen(outbuf.c_str());
      do
        out_char(' ');
      while ( ++n < 20 );
    }
    out_operand(*x);
  }
}

//----------------------------------------------------------------------
void out_dsp56k_t::out_proc_mnem(void)
{
  // output instruction mnemonics
  char postfix[4];
  postfix[0] = '\0';
  switch ( insn.itype )
  {
    case DSP56_tcc:
    case DSP56_debugcc:
    case DSP56_jcc:
    case DSP56_jscc:
    case DSP56_bcc:
    case DSP56_bscc:
    case DSP56_trapcc:
      qstrncpy(postfix, cc_text[insn.auxpref & aux_cc], sizeof(postfix));
      break;

    case DSP56_dmac:
    case DSP56_mac_s_u:
    case DSP56_mpy_s_u:
      qstrncpy(postfix, su_text[insn.auxpref & aux_su], sizeof(postfix));
      break;
  }

  out_mnem(8, postfix);
}

//----------------------------------------------------------------------
void out_dsp56k_t::out_insn(void)
{
  dsp56k_t &pm = *static_cast<dsp56k_t *>(procmod);
  out_mnemonic();
  bool comma = out_one_operand(0);
  if ( insn.Op2.type != o_void )
  {
    if ( comma )
      out_symbol(',');
    out_one_operand(1);
  }
  if ( insn.Op3.type != o_void )
  {
    out_symbol(',');
    out_one_operand(2);
  }

  pm.fill_additional_args(insn);
  for ( int i=0; i < pm.aa.nargs; i++ )
    out_operand_group(i, pm.aa.args[i]);

  out_immchar_cmts();
  flush_outbuf();
}

//--------------------------------------------------------------------------
//lint -e{818} seg could be made const
void dsp56k_t::segstart(outctx_t &ctx, segment_t *seg) const
{
  if ( is_spec_segm(seg->type) )
    return;

  qstring sname;
  qstring sclas;
  get_segm_name(&sname, seg);
  get_segm_class(&sclas, seg);

  if ( ash.uflag & UAS_GNU )
  {
    const char *predefined[] =
    {
      ".text",    // Text section
      ".data",    // Data sections
      ".rdata",
      ".comm",
    };
    if ( !print_predefined_segname(ctx, &sname, predefined, qnumber(predefined)) )
      ctx.gen_printf(DEFAULT_INDENT,
                     COLSTR(".section %s", SCOLOR_ASMDIR) " " COLSTR("%s %s", SCOLOR_AUTOCMT),
                     sname.c_str(),
                     ash.cmnt,
                     sclas.c_str());
  }
  else
  {
    validate_name(&sname, VNT_IDENT);
    if ( sname == "XMEM" || sname == "YMEM" )
    {
      char buf[MAX_NUMBUF];
      btoa(buf, sizeof(buf), seg->start_ea-get_segm_base(seg));
      ctx.gen_printf(DEFAULT_INDENT,
                     COLSTR("%s %c:%s", SCOLOR_ASMDIR),
                     ash.origin,
                     qtolower(sname[0]),
                     buf);
    }
    else
    {
      ctx.gen_printf(DEFAULT_INDENT,
                     COLSTR("section %s", SCOLOR_ASMDIR) " " COLSTR("%s %s", SCOLOR_AUTOCMT),
                     sname.c_str(),
                     ash.cmnt,
                     sclas.c_str());
    }
  }
}

//--------------------------------------------------------------------------
//lint -e{818} seg could be made const
void dsp56k_t::segend(outctx_t &ctx, segment_t *seg) const
{
  if ( is_spec_segm(seg->type) )
    return;

  if ( (ash.uflag & UAS_GNU) == 0 )
  {
    qstring sname;
    get_segm_name(&sname, seg);
    if ( sname != "XMEM" && sname != "YMEM" )
      ctx.gen_printf(DEFAULT_INDENT, "endsec");
  }
}

//--------------------------------------------------------------------------
void dsp56k_t::header(outctx_t &ctx)
{
  ctx.gen_header(GH_PRINT_ALL, NULL, ioh.device.c_str());
}

//--------------------------------------------------------------------------
void dsp56k_t::footer(outctx_t &ctx) const
{
  qstring nbuf = get_colored_name(inf_get_start_ea());
  const char *name = nbuf.c_str();
  const char *end = ash.end;
  if ( end == NULL )
    ctx.gen_printf(DEFAULT_INDENT, COLSTR("%s end %s",SCOLOR_AUTOCMT), ash.cmnt, name);
  else
    ctx.gen_printf(DEFAULT_INDENT,
                   COLSTR("%s",SCOLOR_ASMDIR) " " COLSTR("%s %s",SCOLOR_AUTOCMT),
                   ash.end, ash.cmnt, name);
}