; This file is part of the nesC compiler.
; 
; This file is derived from the RC Compiler. It is thus
;    Copyright (C) 2000-2001 The Regents of the University of California.
; Changes for nesC are
;    Copyright (C) 2002 Intel Corporation
; 
; The attached "nesC" software is provided to you under the terms and
; conditions of the GNU General Public License Version 2 as published by the
; Free Software Foundation.
; 
; nesC is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
; 
; You should have received a copy of the GNU General Public License
; along with nesC; see the file COPYING.  If not, write to
; the Free Software Foundation, 59 Temple Place - Suite 330,
; Boston, MA 02111-1307, USA.

;; Build a function to set the parent and parent_ptr nodes in a tree

(load-file "build-basics.el")

(defun fill-buffer ()
  (copyright-notice)
  (mapc #'(lambda (type) (write-print (type-name type) type)) types)
  (mapc #'(lambda (node) (write-print (node-name node)
				      (assoc (node-type node) types))) nodes))

(defun write-print (name type)
  (write-print-case name)
  (let ((tree-fields 
	 (remove-if-not
	  #'(lambda (field)
	      (assoc 'tree (field-attributes (assoc field fields))))
	  (all-type-fields type))))
    (if tree-fields
	(progn
	  (insert (format "{\n  %s x = CAST(%s, n);\n\n" name name))
	  (insert (format "  puts(\"%s\");\n" name))
	  (mapcar #'write-print-field tree-fields)
	  (insert "  break;\n}\n"))
      (insert (format "puts(\"%s\"); break;\n" name)))))

(defun write-print-case (name)
  (insert (format "case kind_%s: " name)))

(defun write-print-field (field)
  (insert (format "  pindent(indent); puts(\"%s:\"); AST_print_list(indent + 1, x->%s);\n" field field)))

(build-file "print.c")