Return to tree_copy.h CVS log

Up to [Research Unix] / researchv10no / cmd / cfront / optcfront

Annotation of researchv10no/cmd/cfront/optcfront/tree_copy.h, revision 1.1

1.1     ! root        1: /* ident "@(#)ctrans:src/tree_copy.h   1.2" */
        !             2: /* -*- Mode: C -*- begin include file tree_copy.H 
        !             3:    argument class for copying trees. */
        !             4: 
        !             5: #include "hash.h"
        !             6: #include "tree_walk.h"
        !             7: 
        !             8: /* The copier procedure expects one of these as its 
        !             9:     info pointer */
        !            10: 
        !            11: class tree_copy_info {
        !            12:   public:
        !            13: /* If non-zero, this procedure is called at each node.
        !            14:    it returns an action. It cannot currently return
        !            15:    a node of a different class and also return an
        !            16:    action other than tna_stop, since the walker won't
        !            17:    notice that the rug has been removed from beneath its feet. 
        !            18:    The procedure must set the last argument to indicate whether
        !            19:    or not to register the node in the hash table and use the
        !            20:    replacement every future time it is encountered.
        !            21: */
        !            22: 
        !            23:     void (* node_hook) (void * info, Pnode&, node_class, tree_node_action&,
        !            24:                        int&);
        !            25: 
        !            26:     /* if this is nonzero it is used to allocate space for
        !            27:        the copies. We don't run constructors since we always
        !            28:        bit copy over the new copy. */
        !            29:     char * (* malloc_hook) (void * info, size_t);
        !            30:     void * hook_info;
        !            31:     tree_copy_info ()
        !            32:        {
        !            33:            hook_info = 0;
        !            34:            node_hook = 0;
        !            35:            malloc_hook = 0;
        !            36:        }; 
        !            37:     char * malloc (size_t s) {
        !            38:        return malloc_hook ? malloc_hook(hook_info, s) : ::malloc (s);
        !            39:     };
        !            40:     void check_node (Pnode& n,
        !            41:                     node_class cl, 
        !            42:                     tree_node_action& action, 
        !            43:                     int& never_see_again) {
        !            44:        if(node_hook)
        !            45:            node_hook(hook_info, n, cl, action, never_see_again);
        !            46:     };
        !            47: };
        !            48: 
        !            49: void copy_tree (Pnode& n, tree_copy_info& tci, Hash * cht = 0);
        !            50: 
        !            51: /* End tree_copy.H */
        !            52: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.