aboutsummaryrefslogtreecommitdiff
path: root/nexgb/xgbgen/xml.go
blob: f219c2d4617b990e949af36c6b0ad15ec008afac (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
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,true"`
	Fields     XMLFields `xml:",any"`
}

type XMLErrors []*XMLError

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