Changeset 2958

Timestamp:

05/11/05 02:34:32 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4536

Message:

* "imc" renamed to "pir" to agree with leo and pmichaud's nomenclature.

Location:

src

Files:

• Pugs/Compile.hs (modified) (2 diffs)
• Pugs/Compile/Parrot.hs (modified) (3 diffs)
• pge/PGE-Hs.pbc (modified) (previous)
• pge/run_pge.pbc (modified) (previous)
• pge/run_pge.pir (moved) (moved from src/pge/run_pge.imc)

src/Pugs/Compile.hs

@@ -14 +14 @@
 import Pugs.Internals
 import Pugs.Compile.Pugs (genPugs)
-import Pugs.Compile.Parrot (genIMC)
+import Pugs.Compile.Parrot (genPIR)
 import Pugs.Compile.Haskell (genGHC)
 
@@ -20 +20 @@
 compile "Haskell" env = fmap vCast $ runEvalIO env genGHC
 compile "Pugs"    env = fmap vCast $ runEvalIO env genPugs
-compile "Parrot"  env = fmap vCast $ runEvalIO env genIMC
+compile "Parrot"  env = fmap vCast $ runEvalIO env genPIR
 compile s _ = fail $ "Cannot compile to " ++ s
 

src/Pugs/Compile/Parrot.hs

@@ -1 +1 @@
 {-# OPTIONS_GHC -fglasgow-exts #-}
 
-module Pugs.Compile.Parrot (genIMC) where
+module Pugs.Compile.Parrot (genPIR) where
 import Pugs.Internals
 import Pugs.Pretty
@@ -17 +17 @@
     compile x = fail ("Unrecognized construct: " ++ show x)
 
-genIMC :: Eval Val
-genIMC = do
+genPIR :: Eval Val
+genPIR = do
     exp  <- asks envBody
     glob <- askGlobal
@@ -177 +177 @@
             , label last
             ]
-    -- XXX broken! this needs to emit IMC *outside* of the main sub
+    -- XXX broken! this needs to emit PIR *outside* of the main sub
     -- compile (Syn "module" [Val (VStr ns)]) = do
     --    return $ text ".namespace ['_Pugs::" <> text ns <> text "']"