r-r.rep

来自「Object-Oriented Programming With ANSI-C这」· REP 代码 · 共 35 行

// differences from r.rep:
//	there is no superclass header to include
//	we generate `root and `metaroot at % root in `{dcl, because
//	we explicitely insert the `root `{%- into struct `metaroot
//
% -r			// implement -r option for root class

#  ifndef  `class _r `n
#  define  `class _r `n `n

`{prot
  `{if `class `
    `line `n
  `} `{else `{if `class `root `n
    struct  `root  { `n
      `{struct `root
	`t	`const `type  `name ; `n
      `}
    }; `n `n

    struct  `metaroot  {  struct  `root  _; `n
      `{struct `metaroot
	`t	`const `type  `name ; `n
      `}n

      `{%- `t `%link `n `}
    }; `n `n

    `{%- `%super-header ; `n `}n

  `}fi `}fi
`}n

#  endif `n