/************************************************************/
/*                         xrefct                           */
/************************************************************/

/* :SUMMARY: XREF and constructed types
:PRIORITY: 3
:STATUS: ok
:FEATURE: 
XREFs into a constructed type are not possible, however, the
other direction should work
:MODEL: 
?M T DateType #C
   N ?N

?C inner T Int ?N XREF M    // XREF out of constructed type

?N T Int Int
   R Text Text
   M ?M ?C

:DATA:mini.consxref.ace:
M Acx1
T 1995 T 9 Bcx1

:RESULT:
cxfindm: expected result:
M mcx1
  T   1995    inner   T   9   ncx1

cxfindn: expected result:
N ncx1
  M   mcx1

works in: ace950522a4n, 4_7h, 4_8-990507
:SCRIPT: */
xrefct: dbinit wspec.mini  // XREF and constructed types
  tace
    parse: do parse $data/mini.consxref.ace // load object Acx1, creating Bcx1 by XREF
    cxfinda: do find M Acx1         // check that both are in good shape
                show
    cxfindb: do find N Bcx1
                show
  exit