#
# $Id: parsedrecord.icn,v 1.1 2004/02/12 17:01:53 rparlett Exp $
#
# This file is in the public domain.
#
# Author: Robert Parlett (parlett@dial.pipex.com)
#

package parser

class ParsedRecord : ParsedObject(fields)
   method init(n)
      name := n.children[2].s
      fields := []
      every put(fields, tree_seq2(n.children[4], "idlist").s)
   end

   method to_string()
      s := "record " || name || "("
      every s ||:= !fields || ","
      if *fields > 0 then
         s[-1] := ""
      return s || ")"
   end

   initially(n, p)
      self.ParsedObject.initially(n, p)
end