;;
;; MODULE: rename.pp
;;
;; DESCRIPTION: this module contains the propagation patterns which
;;              traverse rename-cd.
;;
;; PPs:
;;     Rename
;;     GetOldIdent
;;     GetNewIdent
;;
;; History:
;;         Cristina Lopes, Dec. 92 - created from an old version
;;                                   of cd-learn.

;;
;; Rename (*in* Cd_graph *cd_out)
;;
;; WHAT : modify all names in the learned cdg according to the
;;        convertion rules in the Renames object.
;; INDEP: 1
*interface* void Rename (Cd_graph *cd_out)
*from*      Renames
*to-stop*   Conversion
*primary*   Conversion
(@
    cd_out->ReplaceName (this) ;
@)

;;
;; GetOldIdent (*out* Ident *&old)
;;
;; WHAT : return the target old identifier.
;; INDEP: 1
;;
*interface* void GetOldIdent (Ident *&old)
*from*      Conversion
*to*        Ident
*bypassing* -> *, new_name, *
*primary*   Ident
(@  old = this; @)

;;
;; GetNewIdent (*out* Ident *&old)
;;
;; WHAT : return the target new identifier.
;; INDEP: 1
;;
*interface* void GetNewIdent (Ident *&nw)
*from*      Conversion
*to*        Ident
*bypassing* -> *, old_name, *
*primary*   Ident
(@  nw = this; @)