package main

import (
	"encoding/xml"
	"io/ioutil"
	"log"
)

type XML struct {
	// Root 'xcb' element properties.
	XMLName        xml.Name `xml:"xcb"`
	Header         string   `xml:"header,attr"`
	ExtensionXName string   `xml:"extension-xname,attr"`
	ExtensionName  string   `xml:"extension-name,attr"`
	MajorVersion   string   `xml:"major-version,attr"`
	MinorVersion   string   `xml:"minor-version,attr"`

	// Types for all top-level elements.
	// First are the simple ones.
	Imports     XMLImports     `xml:"import"`
	Enums       XMLEnums       `xml:"enum"`
	Xids        XMLXids        `xml:"xidtype"`
	XidUnions   XMLXids        `xml:"xidunion"`
	TypeDefs    XMLTypeDefs    `xml:"typedef"`
	EventCopies XMLEventCopies `xml:"eventcopy"`
	ErrorCopies XMLErrorCopies `xml:"errorcopy"`

	// Here are the complex ones, i.e., anything with "structure contents"
	Structs  XMLStructs  `xml:"struct"`
	Unions   XMLUnions   `xml:"union"`
	Requests XMLRequests `xml:"request"`
	Events   XMLEvents   `xml:"event"`
	Errors   XMLErrors   `xml:"error"`
}

type XMLImports []*XMLImport

func (imports XMLImports) Eval() {
	for _, imp := range imports {
		xmlBytes, err := ioutil.ReadFile(*protoPath + "/" + imp.Name + ".xml")
		if err != nil {
			log.Fatalf("Could not read X protocol description for import "+
				"'%s' because: %s", imp.Name, err)
		}

		imp.xml = &XML{}
		err = xml.Unmarshal(xmlBytes, imp.xml)
		if err != nil {
			log.Fatal("Could not parse X protocol description for import "+
				"'%s' because: %s", imp.Name, err)
		}

		// recursive imports...
		imp.xml.Imports.Eval()
	}
}

type XMLImport struct {
	Name string `xml:",chardata"`
	xml  *XML   `xml:"-"`
}

type XMLEnums []XMLEnum

type XMLEnum struct {
	Name  string         `xml:"name,attr"`
	Items []*XMLEnumItem `xml:"item"`
}

type XMLEnumItem struct {
	Name string         `xml:"name,attr"`
	Expr *XMLExpression `xml:",any"`
}

type XMLXids []*XMLXid

type XMLXid struct {
	XMLName xml.Name
	Name    string `xml:"name,attr"`
}

type XMLTypeDefs []*XMLTypeDef

type XMLTypeDef struct {
	Old string `xml:"oldname,attr"`
	New string `xml:"newname,attr"`
}

type XMLEventCopies []*XMLEventCopy

type XMLEventCopy struct {
	Name   string `xml:"name,attr"`
	Number int    `xml:"number,attr"`
	Ref    string `xml:"ref,attr"`
}

type XMLErrorCopies []*XMLErrorCopy

type XMLErrorCopy struct {
	Name   string `xml:"name,attr"`
	Number int    `xml:"number,attr"`
	Ref    string `xml:"ref,attr"`
}

type XMLStructs []*XMLStruct

type XMLStruct struct {
	Name   string    `xml:"name,attr"`
	Fields XMLFields `xml:",any"`
}

type XMLUnions []*XMLUnion

type XMLUnion struct {
	Name   string    `xml:"name,attr"`
	Fields XMLFields `xml:",any"`
}

type XMLRequests []*XMLRequest

type XMLRequest struct {
	Name    string    `xml:"name,attr"`
	Opcode  int       `xml:"opcode,attr"`
	Combine bool      `xml:"combine-adjacent,attr"`
	Fields  XMLFields `xml:",any"`
	Reply   *XMLReply `xml:"reply"`
}

type XMLReply struct {
	Fields XMLFields `xml:",any"`
}

type XMLEvents []*XMLEvent

type XMLEvent struct {
	Name       string    `xml:"name,attr"`
	Number     int       `xml:"number,attr"`
	NoSequence bool      `xml:"no-sequence-number,attr"`
	Fields     XMLFields `xml:",any"`
}

type XMLErrors []*XMLError

type XMLError struct {
	Name   string    `xml:"name,attr"`
	Number int       `xml:"number,attr"`
	Fields XMLFields `xml:",any"`
}