[pypy-svn] r26285 - in pypy/dist/pypy/translator: . goal

[sanxiyn at codespeak.net]

Author: sanxiyn
Date: Tue Apr 25 05:24:25 2006
New Revision: 26285

Modified:
   pypy/dist/pypy/translator/driver.py
   pypy/dist/pypy/translator/goal/translate.py
Log:
(dialtone, sanxiyn)
Intermediate checkin, add Common Lisp source generation task to the translation driver


Modified: pypy/dist/pypy/translator/driver.py
==============================================================================
--- pypy/dist/pypy/translator/driver.py	(original)
+++ pypy/dist/pypy/translator/driver.py	Tue Apr 25 05:24:25 2006
@@ -357,6 +357,13 @@
                             "Running compiled llvm source",
                             idemp=True)
 
+    def task_source_cl(self):
+        from pypy.translator.cl.gencl import GenCL
+        self.gen = GenCL(self.translator, self.entry_point)
+        self.gen.emitcode()
+    task_source_cl = taskdef(task_source_cl, ['backendopt', 'rtype'],
+                             'Generating Common Lisp source')
+
     def proceed(self, goals):
         if not goals:
             if self.default_goal:

Modified: pypy/dist/pypy/translator/goal/translate.py
==============================================================================
--- pypy/dist/pypy/translator/goal/translate.py	(original)
+++ pypy/dist/pypy/translator/goal/translate.py	Tue Apr 25 05:24:25 2006
@@ -46,7 +46,7 @@
     '0_source': [OPT(('-s', '--source'), "Generate source code", GOAL),
                OPT(('--no-source',), "Don't generate source code", SKIP_GOAL)],
 
-    '1_backend': [OPT(('-b', '--backend'), "Backend", ['c', 'llvm'])],
+    '1_backend': [OPT(('-b', '--backend'), "Backend", ['c', 'llvm', 'cl'])],
 
     '2_gc': [OPT(('--gc',), "Garbage collector", ['boehm', 'ref', 'framework', 'none'])],
     '3_stackless': [OPT(('--stackless',), "Stackless code generation", True)],