(defmacro c-file (&rest args)
  (let ((ptr args))
    ;;(debug)
    ;;(insert "*** fuck1\n")
    (while ptr
      ;; for c-typedef 
      (find-file global-hh)
      (message "*** global-hh=%s" global-hh)
      (goto-char (point-max))
      (eval (car ptr))
      (setq ptr (cdr ptr)))
    ;;(debug)
    ;;(insert "*** fuck3\n")
    (save-some-buffers 'NO-QUESTIONS)
    (kill-buffer (find-file global-hh))
    (kill-buffer (find-file global-cc))
    nil))
