|
|
- ErListItem = {}
- local ErListItem = ErListItem
- ErListItem.__index = ErListItem
-
- function ErListItem.New()
- local self = {}
- self.item_type = ErlangParser.ErListItemType.Unknown
- self.data = nil
-
- setmetatable(self, ErListItem)
- return self
- end
-
- function ErListItem:InitAsType(type)
- self.item_type = type
- if type == ErlangParser.ErListItemType.DataType then
- self.data = nil
- elseif type == ErlangParser.ErListItemType.Tuple then
- self.data = ErTuple.New()
- elseif type == ErlangParser.ErListItemType.List then
- self.data = ErList.New()
- end
- end
-
- function ErListItem:Release()
- self.item_type = ErlangParser.ErListItemType.Unknown
- self.data = nil
- end
|