[svn:parrot] r38408 - in branches/pmc_pct/compilers/pmc: src t

[bacek at svn.parrot.org]

Author: bacek
Date: Wed Apr 29 12:20:38 2009
New Revision: 38408
URL: https://trac.parrot.org/parrot/changeset/38408

Log:
Start generating C function definitions

Added:
   branches/pmc_pct/compilers/pmc/src/pmc_emitter.pir
Modified:
   branches/pmc_pct/compilers/pmc/t/04-header.t

Added: branches/pmc_pct/compilers/pmc/src/pmc_emitter.pir
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ branches/pmc_pct/compilers/pmc/src/pmc_emitter.pir	Wed Apr 29 12:20:38 2009	(r38408)
@@ -0,0 +1,118 @@
+# $Id$
+# Copyright (C) 2009, Parrot Foundation.
+
+=head1 Generic PMC emitter
+
+=cut
+
+.namespace ['PMC';'Emitter';'PMC']
+
+.sub '' :load :init
+    .local pmc p6meta
+
+    p6meta = new 'P6metaclass'
+
+    p6meta.'new_class'('PMC::Emitter::PMC')
+
+.end
+
+=item C<generate_h_file>
+
+Generate part of header file.
+
+=cut
+
+# "Template Method". Just override generate_h_file_functions in derived
+# classes.
+
+.sub 'generate_h_file' :method
+    .param pmc past
+    .local string res
+
+    .local string guard
+    .local string name
+
+    name = past.'name'()
+    $S0 = 'uc'(name)
+
+    guard = 'PARROT_PMC_'
+    concat guard, $S0
+    concat guard, '_H_GUARD'
+
+    res = '#ifndef '
+    concat res, guard
+    concat res, "\n"
+    concat res, '#define '
+    concat res, guard
+    concat res, "\n"
+
+    $S0 = self.'generate_h_file_functions'(past)
+    concat res, $S0
+    
+    concat res, '#endif /* '
+    concat res, guard
+    concat res, " */ \n"
+
+    .return (res)
+.end
+
+=item C<generate_h_file_functions>
+
+Generate C declarations for vtable functions
+
+=cut
+
+.sub 'generate_h_file_functions' :method
+    .param pmc past
+    .local string res
+    .local pmc vtable_info, vtable_hash
+    .local pmc vtables, it, entry
+    .local string pmc_name, vtable_name
+
+    pmc_name = past.'name'()
+
+    $P0 = get_hll_global ['PMC'; 'VTableInfo'], 'vtable_hash'
+    vtable_hash = $P0()
+    
+    vtables = self.'!vtables'(past)
+
+    it = iter vtables
+  loop:
+    unless it goto done
+    vtable_name = shift it
+    entry = vtables[vtable_name]
+    vtable_info = vtable_hash[vtable_name]
+
+    # Generate 2 methods. One for read, one for write.
+    $P1 = new 'ResizableStringArray'
+    push $P1, 'PARROT_EXPORT '
+    $S0 = vtable_info.'ret_type'()
+    push $P1, $S0
+    push $P1, ' Parrot_'
+    push $P1, pmc_name
+    push $P1, '_'
+    push $P1, vtable_name
+    push $P1, '(PARROT_INTERP, '
+    #$S0 = entry.'parameters'()
+    #push $P1, $S0
+    push $P1, ");\n"
+
+    $S0 = join '', $P1
+    concat res, $S0
+
+    goto loop
+
+  done:
+    .return (res)
+.end
+
+.sub '!vtables' :method
+    .param pmc past
+    .tailcall past.'vtables'()
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:

Modified: branches/pmc_pct/compilers/pmc/t/04-header.t
==============================================================================
--- branches/pmc_pct/compilers/pmc/t/04-header.t	Wed Apr 29 12:20:20 2009	(r38407)
+++ branches/pmc_pct/compilers/pmc/t/04-header.t	Wed Apr 29 12:20:38 2009	(r38408)
@@ -8,7 +8,7 @@
 load_bytecode 'compilers/pmc/pmc.pbc'
     .local int total
 
-    plan(2)
+    plan(3)
 
     .local string filename
     filename = 'compilers/pmc/t/data/class00.pmc'
@@ -17,6 +17,10 @@
 
     check_one_header(filename, $S0, "'PARROT_PMC_FOO_H_GUARD'", "Guard generated")
 
+    filename = 'compilers/pmc/t/data/class07.pmc'
+    $S0 = _slurp(filename)
+    check_one_header(filename, $S0, "'Parrot_Integer_instantiate'", "VTable method generated")
+
 .end
 
 # Check genrated header.