Stub compose functions for all REPRs.

Raku · Jan 19, 2013 · 0255f36 · 0255f36
1 parent bb97781
commit 0255f36
Show file tree

Hide file tree

Showing 13 changed files with 78 additions and 0 deletions.
diff --git a/src/6model/reprs/CArray.c b/src/6model/reprs/CArray.c
@@ -108,6 +108,11 @@ static PMC * type_object_for(PARROT_INTERP, PMC *HOW) {
     return st->WHAT;
 }
 
+/* Composes the representation. */
+static void compose(PARROT_INTERP, STable *st, PMC *repr_info) {
+    /* TODO */
+}
+
 /* Creates a new instance based on the type object. */
 static PMC * allocate(PARROT_INTERP, STable *st) {
     CArrayInstance *obj       = mem_allocate_zeroed_typed(CArrayInstance);
@@ -450,6 +455,7 @@ REPROps * CArray_initialize(PARROT_INTERP,
     /* Allocate and populate the representation function table. */
     this_repr = mem_allocate_zeroed_typed(REPROps);
     this_repr->type_object_for = type_object_for;
+    this_repr->compose = compose;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
     this_repr->copy_to = copy_to;

diff --git a/src/6model/reprs/CPointer.c b/src/6model/reprs/CPointer.c
@@ -32,6 +32,11 @@ static PMC * type_object_for(PARROT_INTERP, PMC *HOW) {
     return st->WHAT;
 }
 
+/* Composes the representation. */
+static void compose(PARROT_INTERP, STable *st, PMC *repr_info) {
+    /* Nothing to do. */
+}
+
 /* Creates a new instance based on the type object. */
 static PMC * allocate(PARROT_INTERP, STable *st) {
     CPointerInstance *obj = mem_allocate_zeroed_typed(CPointerInstance);
@@ -78,6 +83,7 @@ REPROps * CPointer_initialize(PARROT_INTERP,
     /* Allocate and populate the representation function table. */
     this_repr = mem_allocate_zeroed_typed(REPROps);
     this_repr->type_object_for = type_object_for;
+    this_repr->compose = compose;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
     this_repr->copy_to = copy_to;

diff --git a/src/6model/reprs/CStr.c b/src/6model/reprs/CStr.c
@@ -74,6 +74,11 @@ static PMC *type_object_for(PARROT_INTERP, PMC *HOW) {
     return st->WHAT;
 }
 
+/* Composes the representation. */
+static void compose(PARROT_INTERP, STable *st, PMC *repr_info) {
+    /* TODO: move encoding stuff into here */
+}
+
 static PMC *allocate(PARROT_INTERP, STable *st) {
     CStrInstance *obj = (CStrInstance *) Parrot_gc_allocate_fixed_size_storage(interp, sizeof(CStrInstance));
 
@@ -113,6 +118,7 @@ REPROps *CStr_initialize(PARROT_INTERP,
     /* Allocate and populate the representation function table. */
     this_repr = mem_allocate_zeroed_typed(REPROps);
     this_repr->type_object_for  = type_object_for;
+    this_repr->compose          = compose;
     this_repr->allocate         = allocate;
     this_repr->initialize       = initialize;
     this_repr->gc_free          = gc_free;

diff --git a/src/6model/reprs/CStruct.c b/src/6model/reprs/CStruct.c
@@ -346,6 +346,11 @@ static PMC * type_object_for(PARROT_INTERP, PMC *HOW) {
     return st->WHAT;
 }
 
+/* Composes the representation. */
+static void compose(PARROT_INTERP, STable *st, PMC *repr_info) {
+    /* TODO: move allocation strategy stuff here. */
+}
+
 /* Creates a new instance based on the type object. */
 static PMC * allocate(PARROT_INTERP, STable *st) {
     CStructInstance * obj;
@@ -654,6 +659,7 @@ REPROps * CStruct_initialize(PARROT_INTERP,
     /* Allocate and populate the representation function table. */
     this_repr = mem_allocate_zeroed_typed(REPROps);
     this_repr->type_object_for = type_object_for;
+    this_repr->compose = compose;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
     this_repr->copy_to = copy_to;

diff --git a/src/6model/reprs/HashAttrStore.c b/src/6model/reprs/HashAttrStore.c
@@ -33,6 +33,11 @@ static PMC * type_object_for(PARROT_INTERP, PMC *HOW) {
     return st->WHAT;
 }
 
+/* Composes the representation. */
+static void compose(PARROT_INTERP, STable *st, PMC *repr_info) {
+    /* Nothing to do. */
+}
+
 /* Creates a new instance based on the type object. */
 static PMC * allocate(PARROT_INTERP, STable *st) {
     HashAttrStoreInstance *obj;
@@ -111,6 +116,7 @@ REPROps * HashAttrStore_initialize(PARROT_INTERP) {
     /* Allocate and populate the representation function table. */
     this_repr = mem_allocate_zeroed_typed(REPROps);
     this_repr->type_object_for = type_object_for;
+    this_repr->compose = compose;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
     this_repr->copy_to = copy_to;

diff --git a/src/6model/reprs/KnowHOWREPR.c b/src/6model/reprs/KnowHOWREPR.c
@@ -32,6 +32,11 @@ static PMC * type_object_for(PARROT_INTERP, PMC *HOW) {
     return st->WHAT;
 }
 
+/* Composes the representation. */
+static void compose(PARROT_INTERP, STable *st, PMC *repr_info) {
+    /* Nothing to do. */
+}
+
 /* Creates a new instance based on the type object. */
 static PMC * allocate(PARROT_INTERP, STable *st) {
     KnowHOWREPRInstance *obj = mem_allocate_zeroed_typed(KnowHOWREPRInstance);
@@ -103,6 +108,7 @@ REPROps * KnowHOWREPR_initialize(PARROT_INTERP) {
     /* Allocate and populate the representation function table. */
     this_repr = mem_allocate_zeroed_typed(REPROps);
     this_repr->type_object_for = type_object_for;
+    this_repr->compose = compose;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
     this_repr->copy_to = copy_to;

diff --git a/src/6model/reprs/NativeCall.c b/src/6model/reprs/NativeCall.c
@@ -32,6 +32,11 @@ static PMC * type_object_for(PARROT_INTERP, PMC *HOW) {
     return st->WHAT;
 }
 
+/* Composes the representation. */
+static void compose(PARROT_INTERP, STable *st, PMC *repr_info) {
+    /* Nothing to do. */
+}
+
 /* Creates a new instance based on the type object. */
 static PMC * allocate(PARROT_INTERP, STable *st) {
     NativeCallInstance *obj = mem_allocate_zeroed_typed(NativeCallInstance);
@@ -129,6 +134,7 @@ REPROps * NativeCall_initialize(PARROT_INTERP,
     /* Allocate and populate the representation function table. */
     this_repr = mem_allocate_zeroed_typed(REPROps);
     this_repr->type_object_for = type_object_for;
+    this_repr->compose = compose;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
     this_repr->copy_to = copy_to;

diff --git a/src/6model/reprs/P6bigint.c b/src/6model/reprs/P6bigint.c
@@ -35,6 +35,11 @@ static PMC * type_object_for(PARROT_INTERP, PMC *HOW) {
     return st->WHAT;
 }
 
+/* Composes the representation. */
+static void compose(PARROT_INTERP, STable *st, PMC *repr_info) {
+    /* Nothing to do. */
+}
+
 /* Creates a new instance based on the type object. */
 static PMC * allocate(PARROT_INTERP, STable *st) {
     P6bigintInstance *obj = mem_allocate_zeroed_typed(P6bigintInstance);
@@ -176,6 +181,7 @@ REPROps * P6bigint_initialize(PARROT_INTERP,
     /* Allocate and populate the representation function table. */
     this_repr = mem_allocate_zeroed_typed(REPROps);
     this_repr->type_object_for = type_object_for;
+    this_repr->compose = compose;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
     this_repr->copy_to = copy_to;

diff --git a/src/6model/reprs/P6int.c b/src/6model/reprs/P6int.c
@@ -31,6 +31,11 @@ static PMC * type_object_for(PARROT_INTERP, PMC *HOW) {
     return st->WHAT;
 }
 
+/* Composes the representation. */
+static void compose(PARROT_INTERP, STable *st, PMC *repr_info) {
+    /* Nothing to do yet (but later, size). */
+}
+
 /* Creates a new instance based on the type object. */
 static PMC * allocate(PARROT_INTERP, STable *st) {
     P6intInstance *obj = mem_allocate_zeroed_typed(P6intInstance);
@@ -127,6 +132,7 @@ REPROps * P6int_initialize(PARROT_INTERP) {
     /* Allocate and populate the representation function table. */
     this_repr = mem_allocate_zeroed_typed(REPROps);
     this_repr->type_object_for = type_object_for;
+    this_repr->compose = compose;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
     this_repr->copy_to = copy_to;

diff --git a/src/6model/reprs/P6num.c b/src/6model/reprs/P6num.c
@@ -31,6 +31,11 @@ static PMC * type_object_for(PARROT_INTERP, PMC *HOW) {
     return st->WHAT;
 }
 
+/* Composes the representation. */
+static void compose(PARROT_INTERP, STable *st, PMC *repr_info) {
+    /* Nothing to do yet (but later, size). */
+}
+
 /* Creates a new instance based on the type object. */
 static PMC * allocate(PARROT_INTERP, STable *st) {
     P6numInstance *obj = mem_allocate_zeroed_typed(P6numInstance);
@@ -128,6 +133,7 @@ REPROps * P6num_initialize(PARROT_INTERP) {
     /* Allocate and populate the representation function table. */
     this_repr = mem_allocate_zeroed_typed(REPROps);
     this_repr->type_object_for = type_object_for;
+    this_repr->compose = compose;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
     this_repr->copy_to = copy_to;

diff --git a/src/6model/reprs/P6opaque.c b/src/6model/reprs/P6opaque.c
@@ -415,6 +415,11 @@ static PMC * type_object_for(PARROT_INTERP, PMC *HOW) {
     return st->WHAT;
 }
 
+/* Composes the representation. */
+static void compose(PARROT_INTERP, STable *st, PMC *repr_info) {
+    /* TODO: move allocation strategy here. */
+}
+
 /* Creates a new instance based on the type object. */
 static PMC * allocate(PARROT_INTERP, STable *st) {
     P6opaqueInstance * obj;
@@ -1072,6 +1077,7 @@ REPROps * P6opaque_initialize(PARROT_INTERP) {
     /* Allocate and populate the representation function table. */
     this_repr = mem_allocate_zeroed_typed(REPROps);
     this_repr->type_object_for = type_object_for;
+    this_repr->compose = compose;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
     this_repr->copy_to = copy_to;

diff --git a/src/6model/reprs/P6str.c b/src/6model/reprs/P6str.c
@@ -31,6 +31,11 @@ static PMC * type_object_for(PARROT_INTERP, PMC *HOW) {
     return st->WHAT;
 }
 
+/* Composes the representation. */
+static void compose(PARROT_INTERP, STable *st, PMC *repr_info) {
+    /* Nothing to do. */
+}
+
 /* Creates a new instance based on the type object. */
 static PMC * allocate(PARROT_INTERP, STable *st) {
     P6strInstance *obj = mem_allocate_zeroed_typed(P6strInstance);
@@ -135,6 +140,7 @@ REPROps * P6str_initialize(PARROT_INTERP) {
     /* Allocate and populate the representation function table. */
     this_repr = mem_allocate_zeroed_typed(REPROps);
     this_repr->type_object_for = type_object_for;
+    this_repr->compose = compose;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
     this_repr->copy_to = copy_to;

diff --git a/src/6model/reprs/Uninstantiable.c b/src/6model/reprs/Uninstantiable.c
@@ -31,6 +31,11 @@ static PMC * type_object_for(PARROT_INTERP, PMC *HOW) {
     return st->WHAT;
 }
 
+/* Composes the representation. */
+static void compose(PARROT_INTERP, STable *st, PMC *repr_info) {
+    /* Nothing to do. */
+}
+
 /* Creates a new instance based on the type object. */
 static PMC * allocate(PARROT_INTERP, STable *st) {
     Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,
@@ -67,6 +72,7 @@ REPROps * Uninstantiable_initialize(PARROT_INTERP) {
     /* Allocate and populate the representation function table. */
     this_repr = mem_allocate_zeroed_typed(REPROps);
     this_repr->type_object_for = type_object_for;
+    this_repr->compose = compose;
     this_repr->allocate = allocate;
     this_repr->initialize = initialize;
     this_repr->copy_to = copy_to;