Changeset 4891

Timestamp:

06/20/05 22:41:48 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6641

Message:

* globals: @*ARGS, $*PROGRAM_NAME, $*IN, $*OUT, $*ERR

Location:

src

Files:

• Emit/PIR.hs (modified) (3 diffs)
• Pugs/Compile/PIR.hs (modified) (1 diff)

src/Emit/PIR.hs

@@ -57 +57 @@
 {-| A PMC type, which, for example, can be given as an argument to the @new@
     opcode (e.g. @new .PerlScalar@). -}
-data ObjType    = PerlScalar | PerlArray | PerlHash | PerlInt | PerlPair | PerlRef
+data ObjType
+    = PerlScalar | PerlArray | PerlHash
+    | PerlInt | PerlPair | PerlRef | PerlEnv
     deriving (Show, Eq, Typeable, Read)
 
@@ -231 +233 @@
 (<-&) = InsFun
 (.&)  = InsFun []
+
+{-| Literal zero -}
+lit0 :: Expression
+lit0 = lit (0 :: Int)
 
 {-| @$P0@ register -}
@@ -607 +613 @@
 preludePIR :: Doc
 preludePIR = emit $
-    -- [ include "interpinfo.pasm"
+    [ include "iglobals.pasm"
     -- Control flowy
-    [ sub "&return" [slurpy arg0]
+    , sub "&return" [slurpy arg0]
         [ InsNew tempPMC PerlArray
         , (KEYED tempPMC (lit False)) <:= arg0

src/Pugs/Compile/PIR.hs

@@ -687 +687 @@
             -- [ emit $ namespace "main"
             [ emit globPIR
-            , text ".sub init @MAIN, @ANON"
-            , text "    new_pad 0"
-            -- Eventually, we'll have to write our own find_name wrapper (or
-            -- fix Parrot's find_name appropriately). See Pugs.Eval.Var.
-            -- For now, we simply store $P0 twice.
-            , text "    $P0 = new .PerlEnv"
-            , text "    store_global '%*ENV', $P0"
-            , text "    store_global '%ENV', $P0"
-            , text "    $P0 = new .PerlArray"
-            , text "    store_global '@*END', $P0"
-            , text "    store_global '@END', $P0"
-            , text "    main()"
-            , nest 4 $ emit $ InsFun [] (lit "&exit") [lit (0 :: Int)]
-            , text ".end"
+            , emit $ DeclSub "init" [SubMAIN, SubANON] $ map StmtIns
+                -- Eventually, we'll have to write our own find_name wrapper (or
+                -- fix Parrot's find_name appropriately). See Pugs.Eval.Var.
+                -- For now, we simply store $P0 twice.
+                [ "new_pad" .- [lit0]
+                , InsNew tempPMC PerlEnv
+                , "store_global"    .- [lit "%*ENV", tempPMC]
+                , "store_global"    .- [lit "%ENV", tempPMC]
+                , InsNew tempPMC PerlArray
+                , "store_global"    .- [lit "@*END", tempPMC]
+                , "store_global"    .- [lit "@END", tempPMC]
+                , "getstdin"        .- [tempPMC]
+                , "store_global"    .- [lit "$*IN", tempPMC]
+                , "store_global"    .- [lit "$IN", tempPMC]
+                , "getstdout"       .- [tempPMC]
+                , "store_global"    .- [lit "$*OUT", tempPMC]
+                , "store_global"    .- [lit "$OUT", tempPMC]
+                , "getstderr"       .- [tempPMC]
+                , "store_global"    .- [lit "$*ERR", tempPMC]
+                , "store_global"    .- [lit "$ERR", tempPMC]
+                , "getinterp"       .- [tempPMC]
+                , tempPMC   <:= ExpLV (KEYED tempPMC (bare ".IGLOBALS_ARGV_LIST"))
+                , tempPMC2  <-- "shift" $ [tempPMC]
+                , "store_global"    .- [lit "@*ARGS", tempPMC]
+                , "store_global"    .- [lit "@ARGS", tempPMC]
+                , "store_global"    .- [lit "$*PROGRAM_NAME", tempPMC2]
+                , "store_global"    .- [lit "$PROGRAM_NAME", tempPMC2]
+                ] ++ [ StmtRaw (text "main()"), StmtIns (lit "&exit" .& [lit0]) ]
             , text ".sub main @ANON"
             , nest 4 (emit mainPIR)