Changeset 4842 for src/gen_prelude.hs

Timestamp:

06/19/05 14:19:27 (4 years ago)

Author:

iblech

svk:copy_cache_prev:

6641

Message:

Perl 6 Prelude for -CPIR, putter++ for suggesting this.
* Added src/perl6/Prelude/PIR.pm with definitions of &prefix:<?>, &chomp, and

&chop, and removed these definitions from Emit.PIR.

* Modified src/gen_prelude.hs to use @*ARGS[0] as module name to output.
* Modified Pugs.Compile.PIR to load the Prelude and added the PIR/ directory to

the svn:ignore property of src/Pugs/Compile (because the Prelude.hs is saved
in src/Pugs/Compile/PIR/Prelude.hs).

* Modified Makefile.PL to generate the Prelude.

Files:

• src/gen_prelude.hs (modified) (4 diffs)

src/gen_prelude.hs

@@ -17 +17 @@
 
 module Main where
+import System (getArgs)
 
 main :: IO ()
 main = do
-    putStr preludeIntro
+    [moduleName] <- getArgs
+    putStr $ preludeIntro moduleName
     str <- getContents
     print . unlines . filter notComment . lines $ str
@@ -29 +31 @@
     notComment _            = True
 
-preludeIntro :: String
-preludeIntro = "\
+preludeIntro :: String -> String
+preludeIntro moduleName = "\
 \{-# OPTIONS -fglasgow-exts #-}\n\
 \ \n\
@@ -36 +38 @@
 \    *** NOTE ***\n\
 \    DO NOT EDIT THIS FILE.\n\
-\    This module is generated by src/gen_prelude.\n\
+\    This module is automatically generated by src/gen_prelude.hs.\n\
 \-}\n\
 \ \n\
@@ -52 +54 @@
 \ \n\
 \ \n\
-\module Pugs.Prelude (\n\
+\module " ++ moduleName ++ " (\n\
 \    preludeStr\n\
 \) where\n\