Function: ede-proj-makefile-insert-variables-new

ede-proj-makefile-insert-variables-new is a byte-compiled function defined in pmake.el.gz.

Signature

(ede-proj-makefile-insert-variables-new ARG &rest ARGS)

Implementations

((this ede-proj-project)) in `ede/pmake.el'.

Undocumented

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/ede/pmake.el.gz
(cl-defmethod ede-proj-makefile-insert-variables-new ((_this ede-proj-project))
  "Insert variables needed by target THIS.

NOTE: Not yet in use!  This is part of an SRecode conversion of
      EDE that is in progress."
;  (let ((conf-table (ede-proj-makefile-configuration-variables
;		     this (oref this configuration-default)))
;	(conf-done nil))
;
;    (ede-srecode-insert-with-dictionary
;     "declaration:ede-vars"
;
;     ;; Insert all variables, and augment them with details from
;     ;; the current configuration.
;     (mapc (lambda (c)
;
;	     (let ((ldict (srecode-dictionary-add-section-dictionary
;			   dict "VARIABLE"))
;		   )
;	       (srecode-dictionary-set-value ldict "NAME" (car c))
;	       (if (assoc (car c) conf-table)
;		   (let ((vdict (srecode-dictionary-add-section-dictionary
;				 ldict "VALUE")))
;		     (srecode-dictionary-set-value
;		      vdict "VAL" (cdr (assoc (car c) conf-table)))
;		     (setq conf-done (cons (car c) conf-done))))
;	       (let ((vdict (srecode-dictionary-add-section-dictionary
;			     ldict "VALUE")))
;		 (srecode-dictionary-set-value vdict "VAL" (cdr c))))
;	     )
;
;	   (oref this variables))
;
;     ;; Add in all variables from the configuration not already covered.
;     (mapc (lambda (c)
;
;	     (if (member (car c) conf-done)
;		 nil
;	       (let* ((ldict (srecode-dictionary-add-section-dictionary
;			      dict "VARIABLE"))
;		      (vdict (srecode-dictionary-add-section-dictionary
;			      ldict "VALUE"))
;		      )
;		 (srecode-dictionary-set-value ldict "NAME" (car c))
;		 (srecode-dictionary-set-value vdict "VAL" (cdr c))))
;	     )
;
;	   conf-table)
;

     ;; @TODO - finish off this function, and replace the below fcn

;     ))
  )