#
# $Id: parsedfunction.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 ParsedFunction : ParsedObject(args,
                                    locals,
                                    statics,
                                    initial_node,
                                    body_node)
   method init(n)
      name := ""
      args := []
      locals := []
      statics := []
      initial_node := body_node := &null
   end

   method to_string_impl()
      s := name || "("
      every s ||:= !args || ","
      if *args > 0 then
         s[-1] := ""
      s ||:= ")"

      if *locals > 0 then {
         s ||:= " local "
         every s ||:= !locals || ","
         s[-1] := ""
      }

      if *statics > 0 then {
         s ||:= " static "
         every s ||:= !statics || ","
         s[-1] := ""
      }

      return s
   end

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