/*
 * This file is subject to the terms and conditions defined in
 * file 'LICENSE.md', which is part of this source code package.
 */

package pdf

import (
	"fmt"
	"os"
	"path/filepath"
	"runtime"
	"sort"

	"github.com/unidoc/unidoc/common"
)

// Inspect analyzes the document object structure.
func (this *PdfReader) Inspect() (map[string]int, error) {
	return this.parser.inspect()
}

func getUniDocVersion() string {
	return common.Version
}

/*
 * Inspect object types.
 * Go through all objects in the cross ref table and detect the types.
 */
func (this *PdfParser) inspect() (map[string]int, error) {
	common.Log.Debug("--------INSPECT ----------")
	common.Log.Debug("Xref table:")

	objTypes := map[string]int{}
	objCount := 0
	failedCount := 0

	keys := []int{}
	for k, _ := range this.xrefs {
		keys = append(keys, k)
	}
	sort.Ints(keys)

	i := 0
	for _, k := range keys {
		xref := this.xrefs[k]
		if xref.objectNumber == 0 {
			continue
		}
		objCount++
		common.Log.Debug("==========")
		common.Log.Debug("Looking up object number: %d", xref.objectNumber)
		o, err := this.LookupByNumber(xref.objectNumber)
		if err != nil {
			common.Log.Error("Fail to lookup obj %d (%s)", xref.objectNumber, err)
			failedCount++
			continue
		}

		common.Log.Debug("obj: %s", o)

		iobj, isIndirect := o.(*PdfIndirectObject)
		if isIndirect {
			common.Log.Debug("IND OOBJ %d: %s", xref.objectNumber, iobj)
			dict, isDict := iobj.PdfObject.(*PdfObjectDictionary)
			if isDict {
				// Check if has Type parameter.
				if ot, has := (*dict)["Type"].(*PdfObjectName); has {
					otype := string(*ot)
					common.Log.Debug("---> Obj type: %s", otype)
					_, isDefined := objTypes[otype]
					if isDefined {
						objTypes[otype]++
					} else {
						objTypes[otype] = 1
					}
				} else if ot, has := (*dict)["Subtype"].(*PdfObjectName); has {
					// Check if subtype
					otype := string(*ot)
					common.Log.Debug("---> Obj subtype: %s", otype)
					_, isDefined := objTypes[otype]
					if isDefined {
						objTypes[otype]++
					} else {
						objTypes[otype] = 1
					}
				}
				if val, has := (*dict)["S"].(*PdfObjectName); has && *val == "JavaScript" {
					// Check if Javascript.
					_, isDefined := objTypes["JavaScript"]
					if isDefined {
						objTypes["JavaScript"]++
					} else {
						objTypes["JavaScript"] = 1
					}
				}

			}
		} else if sobj, isStream := o.(*PdfObjectStream); isStream {
			if otype, ok := (*(sobj.PdfObjectDictionary))["Type"].(*PdfObjectName); ok {
				common.Log.Debug("--> Stream object type: %s", *otype)
				k := string(*otype)
				if _, isDefined := objTypes[k]; isDefined {
					objTypes[k]++
				} else {
					objTypes[k] = 1
				}
			}
		} else { // Direct.
			dict, isDict := o.(*PdfObjectDictionary)
			if isDict {
				ot, isName := (*dict)["Type"].(*PdfObjectName)
				if isName {
					otype := string(*ot)
					common.Log.Debug("--- obj type %s", otype)
					objTypes[otype]++
				}
			}
			common.Log.Debug("DIRECT OBJ %d: %s", xref.objectNumber, o)
		}

		i++
	}
	common.Log.Debug("--------EOF INSPECT ----------")
	common.Log.Debug("=======")
	common.Log.Debug("Object count: %d", objCount)
	common.Log.Debug("Failed lookup: %d", failedCount)
	for t, c := range objTypes {
		common.Log.Debug("%s: %d", t, c)
	}
	common.Log.Debug("=======")

	if len(this.xrefs) < 1 {
		common.Log.Error("This document is invalid (xref table missing!)")
		return nil, fmt.Errorf("Invalid document (xref table missing)")
	}

	fontObjs, ok := objTypes["Font"]
	if !ok || fontObjs < 2 {
		common.Log.Debug("This document is probably scanned!")
	} else {
		common.Log.Debug("This document is valid for extraction!")
	}

	return objTypes, nil
}

// ShowDict prints dict `o` to file `w`
func ShowDict(w *os.File, name string, o PdfObject) {
	_, file, line, ok := runtime.Caller(1)
	if !ok {
		file = "???"
		line = 0
	} else {
		file = filepath.Base(file)
	}

	if o == nil {
		fmt.Fprintf(w, "ShowDict: %s:%d %q nil\n", file, line, name)
		return
	}
	ref := ""
	if io, isIndirect := o.(*PdfIndirectObject); isIndirect {
		o = io.PdfObject
		ref = (*io).PdfObjectReference.String()
	}
	d := o.(*PdfObjectDictionary)
	fmt.Fprintf(w, "ShowDict: %s:%d %q %d %s\n", file, line, name, len(*d), ref)
	showDict(w, d, "")
}

func showDict(w *os.File, d *PdfObjectDictionary, indent string) {
	for i, k := range sortedKeys(d) {
		v := (*d)[PdfObjectName(k)]
		if e, ok := v.(*PdfObjectDictionary); ok {
			fmt.Fprintf(w, indent+"%4d: %#10q:\n", i, k)
			showDict(w, e, indent+"  ")
		} else {
			fmt.Fprintf(w, indent+"%4d: %#10q: %s\n", i, k, ObjStr(v))
		}
	}
}

func sortedKeys(d *PdfObjectDictionary) []string {
	keys := []string{}
	for k := range *d {
		keys = append(keys, string(k))
	}
	sort.Strings(keys)
	return keys
}

func ObjStr(v PdfObject) string {
	ref := "--- ---"
	if io, ok := v.(*PdfIndirectObject); ok {
		v = (*io).PdfObject
		ref = (*io).PdfObjectReference.String()
	}
	s := fmt.Sprintf("%T", v)
	if i, ok := v.(*PdfObjectInteger); ok {
		s = fmt.Sprintf("%d", *i)
	} else if n, ok := v.(*PdfObjectName); ok {
		s = fmt.Sprintf("%#q", *n)
	} else if n, ok := v.(*PdfObjectString); ok {
		s = fmt.Sprintf("%q", *n)
	} else if x, ok := v.(*PdfObjectFloat); ok {
		s = fmt.Sprintf("%f", *x)
	} else if b, ok := v.(*PdfObjectBool); ok {
		s = fmt.Sprintf("%t", *b)
	} else if x, ok := v.(*PdfObjectStream); ok {
		s = fmt.Sprintf("%s %s", s, (*x).PdfObjectDictionary)
	} else if d, ok := v.(*PdfObjectDictionary); ok {
		s = fmt.Sprintf("%s %s", s, *d)
	} else if d, ok := v.(*PdfObjectArray); ok {
		s = fmt.Sprintf("%s %s", s, *d)
	}

	return fmt.Sprintf("%-9s %s", ref, s)
}

func Trace(obj PdfObject) PdfObject {
	refList := map[PdfObjectReference]bool{}
	return traceToObject(obj, refList)
}

func traceToObject(obj PdfObject, refList map[PdfObjectReference]bool) PdfObject {
	io, isIndirect := obj.(*PdfIndirectObject)
	if !isIndirect {
		// Not a reference, an object.  Can be indirect or any direct pdf object (other than reference).
		return obj
	}

	// Make sure not already visited (circular ref).
	if _, alreadyTraversed := refList[io.PdfObjectReference]; alreadyTraversed {
		panic("Circular reference")
	}
	refList[io.PdfObjectReference] = true
	if len(refList) > 1 {
		common.Log.Error("traceToObject: refList=%#v", refList)
		panic("Reference to reference")
	}

	return traceToObject(io.PdfObject, refList)
}