ADT
        arm-eh
        ast-experimental
        enum
        forall-pointer-decay
        jacob/cs343-translation
        new-ast-unique-expr
        pthread-emulation
        qualifiedEnum
      
      
        
          | 
            Last change
 on this file since 84cd72d was             fd54fef, checked in by Michael Brooks <mlbrooks@…>, 5 years ago           | 
        
        
          | 
             
Converting the project to use the new syntax for otype, dtype and ttytpe. 
 
Changed prelude (gen), libcfa and test suite to use it.  Added a simple deprecation rule of the old syntax to the parser; we might wish to support both syntaxes "officially," like with an extra CLI switch, but this measure should serve as a simple reminder for our team to try the new syntax. 
 
           | 
        
        
          
            
              - 
Property                 mode
 set to                 
100644
               
             
           | 
        
        
          | 
            File size:
            442 bytes
           | 
        
      
      
| Line |   | 
|---|
| 1 | // Check that a cycle of polymorphic dtype structures can be instancated.
 | 
|---|
| 2 | 
 | 
|---|
| 3 | forall(T &)
 | 
|---|
| 4 | struct func_table;
 | 
|---|
| 5 | 
 | 
|---|
| 6 | forall(U &)
 | 
|---|
| 7 | struct object {
 | 
|---|
| 8 |         func_table(U) * virtual_table;
 | 
|---|
| 9 | };
 | 
|---|
| 10 | 
 | 
|---|
| 11 | forall(T &)
 | 
|---|
| 12 | struct func_table {
 | 
|---|
| 13 |         void (*object_func)(object(T) *);
 | 
|---|
| 14 | };
 | 
|---|
| 15 | 
 | 
|---|
| 16 | void func(object(int) *) {
 | 
|---|
| 17 |         printf("Success!\n");
 | 
|---|
| 18 | }
 | 
|---|
| 19 | 
 | 
|---|
| 20 | func_table(int) an_instance = { func };
 | 
|---|
| 21 | 
 | 
|---|
| 22 | int main(int argc, char * argv[]) {
 | 
|---|
| 23 |         object(int) x = { 0p };
 | 
|---|
| 24 |         an_instance.object_func( &x );
 | 
|---|
| 25 |         return 0;
 | 
|---|
| 26 | }
 | 
|---|
       
      
  Note:
 See   
TracBrowser
 for help on using the repository browser.