uses OpParser

data Entry {
	char name[]
	int offset
}

component provides TypeTable requires data.adt.List {
	List list

	TypeTable:TypeTable()
		{
		list = new List()
		}
	
	void TypeTable:add(store char name[], int offset)
		{
		list.add(new Entry(name, offset))
		}

	int TypeTable:getOffsetOf(char name[])
		{
		for (Entry l = list.getFirst(); l != null; l = list.getNext())
			{
			if (l.name == name) return l.offset
			}
		
		throw new Exception("type record '$name' not found in type table")
		}
	
	TypeOffsetEntry[] TypeTable:getOffsets()
		{
		TypeOffsetEntry result[] = new TypeOffsetEntry[list.getLength()]

		int i = 0
		for (Entry l = list.getFirst(); l != null; l = list.getNext())
			{
			result[i] = new TypeOffsetEntry(l.name, l.offset)
			i ++
			}
		
		return result
		}
	
	}