646 

   647 

   648 

   649 /* ref_spec:  REF_TO (non_generic_type_name | function_block_type_name) */

   650 // SYM_REF1(ref_spec_c, type_name)

   651 void *visit(ref_spec_c *symbol) {

   652   s4o.print("REF_TO ");

   653   symbol->type_name->accept(*this);

   654   return NULL;

   655 }

   656 

   657 

   658 /* For the moment, we do not support initialising reference data types */

   659 /* ref_spec_init: ref_spec; */ 

   660 /* SYM_REF0(ref_spec_init_c) */

   661 

   662 /* ref_type_decl: identifier ':' ref_spec_init */

   663 // SYM_REF2(ref_type_decl_c, ref_type_name, ref_spec_init)

   664 void *visit(ref_type_decl_c *symbol) {

   665   symbol->ref_type_name->accept(*this);

   666   s4o.print(" : ");

   667   symbol->ref_spec_init->accept(*this);

   668   return NULL;

   669 }

   670 

   671 

   672 

   673 

   674