// cmd/9l/list.c from Vita Nuova.
//
//	Copyright © 1994-1999 Lucent Technologies Inc.  All rights reserved.
//	Portions Copyright © 1995-1997 C H Forsyth (forsyth@terzarima.net)
//	Portions Copyright © 1997-1999 Vita Nuova Limited
//	Portions Copyright © 2000-2008 Vita Nuova Holdings Limited (www.vitanuova.com)
//	Portions Copyright © 2004,2006 Bruce Ellis
//	Portions Copyright © 2005-2007 C H Forsyth (forsyth@terzarima.net)
//	Revisions Copyright © 2000-2008 Lucent Technologies Inc. and others
//	Portions Copyright © 2009 The Go Authors.  All rights reserved.
//
// Permission is hereby granted, free of charge, to any person obtaining a copy
// of this software and associated documentation files (the "Software"), to deal
// in the Software without restriction, including without limitation the rights
// to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
// copies of the Software, and to permit persons to whom the Software is
// furnished to do so, subject to the following conditions:
//
// The above copyright notice and this permission notice shall be included in
// all copies or substantial portions of the Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
// FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
// AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
// LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
// THE SOFTWARE.

package ppc64

import (
	"cmd/internal/obj"
	"fmt"
)

const (
	STRINGSZ = 1000
)

//
// Format conversions
//	%A int		Opcodes (instruction mnemonics)
//
//	%D Addr*	Addresses (instruction operands)
//
//	%P Prog*	Instructions
//
//	%R int		Registers
//
//	%$ char*	String constant addresses (for internal use only)
//	%^ int   	C_* classes (for liblink internal use)

var bigP *obj.Prog

func Pconv(p *obj.Prog) string {
	var str string
	var fp string

	var a int

	a = int(p.As)

	str = ""
	if a == obj.ADATA {
		str = fmt.Sprintf("%.5d (%v)\t%v\t%v/%d,%v", p.Pc, p.Line(), Aconv(a), Dconv(p, 0, &p.From), p.From3.Offset, Dconv(p, 0, &p.To))
	} else if a == obj.ATEXT || a == obj.AGLOBL {
		if p.From3.Offset != 0 {
			str = fmt.Sprintf("%.5d (%v)\t%v\t%v,%d,%v", p.Pc, p.Line(), Aconv(a), Dconv(p, 0, &p.From), p.From3.Offset, Dconv(p, 0, &p.To))
		} else {
			str = fmt.Sprintf("%.5d (%v)\t%v\t%v,%v", p.Pc, p.Line(), Aconv(a), Dconv(p, 0, &p.From), Dconv(p, 0, &p.To))
		}
	} else {
		if p.Mark&NOSCHED != 0 {
			str += fmt.Sprintf("*")
		}
		if p.Reg == 0 && p.From3.Type == obj.TYPE_NONE {
			str += fmt.Sprintf("%.5d (%v)\t%v\t%v,%v", p.Pc, p.Line(), Aconv(a), Dconv(p, 0, &p.From), Dconv(p, 0, &p.To))
		} else if a != obj.ATEXT && p.From.Type == obj.TYPE_MEM {
			str += fmt.Sprintf("%.5d (%v)\t%v\t%d(%v+%v),%v", p.Pc, p.Line(), Aconv(a), p.From.Offset, Rconv(int(p.From.Reg)), Rconv(int(p.Reg)), Dconv(p, 0, &p.To))
		} else if p.To.Type == obj.TYPE_MEM {
			str += fmt.Sprintf("%.5d (%v)\t%v\t%v,%d(%v+%v)", p.Pc, p.Line(), Aconv(a), Dconv(p, 0, &p.From), p.To.Offset, Rconv(int(p.To.Reg)), Rconv(int(p.Reg)))
		} else {
			str += fmt.Sprintf("%.5d (%v)\t%v\t%v", p.Pc, p.Line(), Aconv(a), Dconv(p, 0, &p.From))
			if p.Reg != 0 {
				str += fmt.Sprintf(",%v", Rconv(int(p.Reg)))
			}
			if p.From3.Type != obj.TYPE_NONE {
				str += fmt.Sprintf(",%v", Dconv(p, 0, &p.From3))
			}
			str += fmt.Sprintf(",%v", Dconv(p, 0, &p.To))
		}

		if p.Spadj != 0 {
			fp += fmt.Sprintf("%s # spadj=%d", str, p.Spadj)
			return fp
		}
	}

	fp += str
	return fp
}

func Aconv(a int) string {
	var s string
	var fp string

	s = "???"
	if a >= obj.AXXX && a < ALAST {
		s = Anames[a]
	}
	fp += s
	return fp
}

func Dconv(p *obj.Prog, flag int, a *obj.Addr) string {
	var str string
	var fp string

	var v int32

	switch a.Type {
	default:
		str = fmt.Sprintf("GOK-type(%d)", a.Type)

	case obj.TYPE_NONE:
		str = ""
		if a.Name != obj.TYPE_NONE || a.Reg != 0 || a.Sym != nil {
			str = fmt.Sprintf("%v(%v)(NONE)", Mconv(a), Rconv(int(a.Reg)))
		}

	case obj.TYPE_CONST,
		obj.TYPE_ADDR:
		if a.Reg != 0 {
			str = fmt.Sprintf("$%v(%v)", Mconv(a), Rconv(int(a.Reg)))
		} else {
			str = fmt.Sprintf("$%v", Mconv(a))
		}

	case obj.TYPE_TEXTSIZE:
		if a.U.Argsize == obj.ArgsSizeUnknown {
			str = fmt.Sprintf("$%d", a.Offset)
		} else {
			str = fmt.Sprintf("$%d-%d", a.Offset, a.U.Argsize)
		}

	case obj.TYPE_MEM:
		if a.Reg != 0 {
			str = fmt.Sprintf("%v(%v)", Mconv(a), Rconv(int(a.Reg)))
		} else {
			str = fmt.Sprintf("%v", Mconv(a))
		}

	case obj.TYPE_REG:
		str = fmt.Sprintf("%v", Rconv(int(a.Reg)))
		if a.Name != obj.TYPE_NONE || a.Sym != nil {
			str = fmt.Sprintf("%v(%v)(REG)", Mconv(a), Rconv(int(a.Reg)))
		}

	case obj.TYPE_BRANCH:
		if p.Pcond != nil {
			v = int32(p.Pcond.Pc)

			//if(v >= INITTEXT)
			//	v -= INITTEXT-HEADR;
			if a.Sym != nil {
				str = fmt.Sprintf("%s+%.5x(BRANCH)", a.Sym.Name, uint32(v))
			} else {
				str = fmt.Sprintf("%.5x(BRANCH)", uint32(v))
			}
		} else if a.U.Branch != nil {
			str = fmt.Sprintf("%d", a.U.Branch.Pc)
		} else if a.Sym != nil {
			str = fmt.Sprintf("%s+%d(APC)", a.Sym.Name, a.Offset)
		} else {
			str = fmt.Sprintf("%d(APC)", a.Offset)
		}

		//sprint(str, "$%lux-%lux", a->ieee.h, a->ieee.l);
	case obj.TYPE_FCONST:
		str = fmt.Sprintf("$%.17g", a.U.Dval)

	case obj.TYPE_SCONST:
		str = fmt.Sprintf("$%q", a.U.Sval)
	}

	fp += str
	return fp
}

func Mconv(a *obj.Addr) string {
	var str string
	var fp string

	var s *obj.LSym
	var l int32

	s = a.Sym

	//if(s == nil) {
	//	l = a->offset;
	//	if((vlong)l != a->offset)
	//		sprint(str, "0x%llux", a->offset);
	//	else
	//		sprint(str, "%lld", a->offset);
	//	goto out;
	//}
	switch a.Name {
	default:
		str = fmt.Sprintf("GOK-name(%d)", a.Name)

	case obj.TYPE_NONE:
		l = int32(a.Offset)
		if int64(l) != a.Offset {
			str = fmt.Sprintf("0x%x", uint64(a.Offset))
		} else {
			str = fmt.Sprintf("%d", a.Offset)
		}

	case obj.NAME_EXTERN:
		if a.Offset != 0 {
			str = fmt.Sprintf("%s+%d(SB)", s.Name, a.Offset)
		} else {
			str = fmt.Sprintf("%s(SB)", s.Name)
		}

	case obj.NAME_STATIC:
		str = fmt.Sprintf("%s<>+%d(SB)", s.Name, a.Offset)

	case obj.NAME_AUTO:
		if s == nil {
			str = fmt.Sprintf("%d(SP)", -a.Offset)
		} else {
			str = fmt.Sprintf("%s-%d(SP)", s.Name, -a.Offset)
		}

	case obj.NAME_PARAM:
		if s == nil {
			str = fmt.Sprintf("%d(FP)", a.Offset)
		} else {
			str = fmt.Sprintf("%s+%d(FP)", s.Name, a.Offset)
		}
	}

	//out:
	fp += str
	return fp
}

func Rconv(r int) string {
	var fp string

	if r == 0 {
		fp += "NONE"
		return fp
	}
	if REG_R0 <= r && r <= REG_R31 {
		fp += fmt.Sprintf("R%d", r-REG_R0)
		return fp
	}
	if REG_F0 <= r && r <= REG_F31 {
		fp += fmt.Sprintf("F%d", r-REG_F0)
		return fp
	}
	if REG_C0 <= r && r <= REG_C7 {
		fp += fmt.Sprintf("C%d", r-REG_C0)
		return fp
	}
	if r == REG_CR {
		fp += "CR"
		return fp
	}
	if REG_SPR0 <= r && r <= REG_SPR0+1023 {
		switch r {
		case REG_XER:
			fp += "XER"
			return fp

		case REG_LR:
			fp += "LR"
			return fp

		case REG_CTR:
			fp += "CTR"
			return fp
		}

		fp += fmt.Sprintf("SPR(%d)", r-REG_SPR0)
		return fp
	}

	if REG_DCR0 <= r && r <= REG_DCR0+1023 {
		fp += fmt.Sprintf("DCR(%d)", r-REG_DCR0)
		return fp
	}
	if r == REG_FPSCR {
		fp += "FPSCR"
		return fp
	}
	if r == REG_MSR {
		fp += "MSR"
		return fp
	}

	fp += fmt.Sprintf("badreg(%d)", r)
	return fp
}

func DRconv(a int) string {
	var s string
	var fp string

	s = "C_??"
	if a >= C_NONE && a <= C_NCLASS {
		s = cnames9[a]
	}
	fp += s
	return fp
}