new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/ast

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/backend

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/bin

\ No newline at end of file

@@ -2,8 +2,4 @@

 #

 # run cmu haskell

-if (`arch -k` == "sun4c") then

-  $CMUCLBIN -core $HASKELL/bin/sun4c-haskell.core

-else

-  $CMUCLBIN -core $HASKELL/bin/sun4m-haskell.core

-endif

+$CMUCLBIN -core $HASKELL/bin/sun4m-haskell.core

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/cfn

\ No newline at end of file

@@ -7,6 +7,7 @@

 ;;; files.

 (eval-when (:load-toplevel :compile-toplevel :execute)

+  (ext:unlock-all-packages)

   (unless (find-package "MUMBLE-IMPLEMENTATION")

     (make-package "MUMBLE-IMPLEMENTATION" :use '("LISP"))))

@@ -21,7 +22,7 @@

 ;;; CMU CL prints too many compiler progress messages.

-#+cmu

+#+(and null cmu)

 (progn

   (setq *compile-print* '())

   (setq *load-verbose* t)

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/cl-support/cl-support/..

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/cl-support

\ No newline at end of file

@@ -7,6 +7,7 @@ cd $Y2

 $CMUCL <<EOF

 (setf ext:*bytes-consed-between-gcs* 4000000)

 (proclaim '(optimize (speed 0) (safety 0) (debug 3) (ext:inhibit-warnings 0)))

+(ext:unlock-all-packages)

 (load "cl-support/cl-init")

 (quit)

 EOF

@@ -5,7 +5,7 @@

 #

 cd $Y2

 setenv PRELUDEBIN $Y2/progs/prelude/cmu

-if !(-e $PRELUDEBIN/Prelude.sparcf) then

+if !(-e $PRELUDEBIN/Prelude.x86f) then

   echo "Build the prelude first, stupid..."

   exit

   endif

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/command-interface

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/csys

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/depend

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/derived

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/doc

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/emacs-tools

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/flic

\ No newline at end of file

@@ -1,27 +1,27 @@

-#!/bin/csh

+#!/usr/bin/zsh

 #

 # Set up for Yale Haskell 2.x users.

 #

-setenv PRELUDE $HASKELL/progs/prelude

-setenv HASKELL_LIBRARY $HASKELL/progs/lib

+export PRELUDE=$HASKELL/progs/prelude

+export HASKELL_LIBRARY=$HASKELL/progs/lib

 # You may need to change this to point at the appropriate subdirectory,

 # depending on which Lisp is being used.

-#setenv PRELUDEBIN $PRELUDE/lucid

-setenv PRELUDEBIN $PRELUDE/cmu

+#export PRELUDEBIN=$PRELUDE/lucid

+export PRELUDEBIN=$PRELUDE/cmu

 # You may need to change this to point at the appropriate subdirectory,

 # depending on which Lisp is being used.

-#setenv LIBRARYBIN $HASKELL_LIBRARY/bin/lucid

-setenv LIBRARYBIN $HASKELL_LIBRARY/bin/cmu

+#setenv LIBRARYBIN=$HASKELL_LIBRARY/bin/lucid

+export LIBRARYBIN=$HASKELL_LIBRARY/bin/cmu

 # You may need to change this to point at the appropriate executable,

 # depending on which Lisp is being used.

-#setenv HASKELLPROG $HASKELL/bin/haskell

-setenv HASKELLPROG $HASKELL/bin/cmu-haskell

+#export HASKELLPROG $HASKELL/bin/haskell

+export HASKELLPROG=$HASKELL/bin/cmu-haskell

 # You only need this next definition if you are using the CMU CL version

 # of haskell and you have /tmp mounted on a tmpfs file system (it won't

 # be able to initialize itself otherwise).

-#setenv CMUCL_EMPTYFILE /var/tmp/empty

+#export CMUCL_EMPTYFILE=/var/tmp/empty

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/import-export

\ No newline at end of file

new file mode 100644

@@ -0,0 +1,9 @@

+export HASKELL="$PWD"

+export Y2="$HASKELL"

+export PRELUDE="$HASKELL/progs/prelude"

+export HASKELL_LIBRARY="$HASKELL/progs/lib"

+export LIBRARYBIN="$HASKELL_LIBRARY/bin/cmu"

+export HASKELLPROG="$HASKELL/bin/cmu-haskell"

+export CMUCL="`which cmucl`"

+export CMUCLBIN="$CMUCL"

+export CMUCLLIB="/usr/lib/cmucl/"

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/parser

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/prec

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/printers

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/progs

\ No newline at end of file

@@ -185,12 +185,13 @@ instance  (Ix a, Eq b)  => Eq (Array a b)  where

 instance  (Ix a, Ord b) => Ord (Array a b)  where

     a <=  a'  	    	=  assocs a <=  assocs a'

-instance  (Ix a, Text a, Text b) => Text (Array a b)  where

+instance  (Ix a, Show a, Show b) => Show (Array a b)  where

     showsPrec p a = showParen (p > 9) (

 		    showString "array " .

 		    shows (bounds a) . showChar ' ' .

 		    shows (assocs a)                  )

+instance  (Ix a, Read a, Read b) => Read (Array a b)  where

     readsPrec p = readParen (p > 9)

 	   (\r -> [(array b as, u) | ("array",s) <- lex r,

 				     (b,t)       <- reads s,

@@ -198,12 +198,9 @@ defaultEnumFromThenTo n n' m

 type  ReadS a = String -> [(a,String)]

 type  ShowS   = String -> String

-class  Text a  where

+class  Read a  where

     readsPrec :: Int -> ReadS a

-    showsPrec :: Int -> a -> ShowS

     readList  :: ReadS [a]

-    showList  :: [a] -> ShowS

-

     readList    = readParen False (\r -> [pr | ("[",s)	<- lex r,

 					       pr	<- readl s])

 	          where readl  s = [([],t)   | ("]",t)  <- lex s] ++

@@ -213,6 +210,11 @@ class  Text a  where

 			           [(x:xs,v) | (",",t)  <- lex s,

 					       (x,u)	<- reads t,

 					       (xs,v)   <- readl' u]

+

+class  Show a  where

+    showsPrec :: Int -> a -> ShowS

+    showList  :: [a] -> ShowS

+

     showList []	= showString "[]"

     showList (x:xs)

 		= showChar '[' . shows x . showl xs

@@ -232,17 +234,20 @@ class  Binary a  where

 -- data  ()  =  ()  deriving (Eq, Ord, Ix, Enum, Binary)

-instance  Text ()  where

+instance  Read ()  where

     readsPrec p    = readParen False

     	    	    	    (\r -> [((),t) | ("(",s) <- lex r,

 					     (")",t) <- lex s ] )

+instance  Show ()  where

     showsPrec p () = showString "()"

 -- Binary type

-instance  Text Bin  where

+instance  Read Bin  where

     readsPrec p s  =  error "readsPrec{PreludeText}: Cannot read Bin."

+

+instance  Show Bin  where

     showsPrec p b  =  showString "<<Bin>>"

@@ -288,14 +293,11 @@ charEnumFromThen c c'	=  map chr [ord c, ord c' .. ord lastChar]

 {-# charEnumFrom :: Inline #-}

 {-# charEnumFromThen :: Inline #-}

-instance  Text Char  where

+instance  Read Char  where

     readsPrec p      = readParen False

     	    	    	    (\r -> [(c,t) | ('\'':s,t)<- lex r,

 					    (c,_)     <- readLitChar s])

-    showsPrec p '\'' = showString "'\\''"

-    showsPrec p c    = showChar '\'' . showLitChar c . showChar '\''

-

     readList = readParen False (\r -> [(l,t) | ('"':s, t) <- lex r,

 					       (l,_)      <- readl s ])

 	       where readl ('"':s)	= [("",s)]

@@ -303,6 +305,10 @@ instance  Text Char  where

 		     readl s		= [(c:cs,u) | (c ,t) <- readLitChar s,

 						      (cs,u) <- readl t	      ]

+instance  Show Char  where

+    showsPrec p '\'' = showString "'\\''"

+    showsPrec p c    = showChar '\'' . showLitChar c . showChar '\''

+

     showList cs = showChar '"' . showl cs

 		 where showl ""       = showChar '"'

 		       showl ('"':cs) = showString "\\\"" . showl cs

@@ -418,12 +424,14 @@ numericEnumFromThen n m	=  iterate (+(m-n)) n

 {-# numericEnumFromThen :: Inline #-}

-instance  Text Int  where

+instance  Read Int  where

     readsPrec p		= readSigned readDec

+instance  Show Int  where

     showsPrec   	= showSigned showInt

-instance  Text Integer  where

+instance  Read Integer  where

     readsPrec p 	= readSigned readDec

+instance  Show Integer  where

     showsPrec		= showSigned showInt

@@ -584,12 +592,14 @@ instance  Enum Double  where

     {-# enumFromTo :: Inline #-}

     {-# enumFromThenTo :: Inline #-}

-instance  Text Float  where

+instance  Read Float  where

     readsPrec p		= readSigned readFloat

+instance  Show Float  where

     showsPrec   	= showSigned showFloat

-instance  Text Double  where

+instance  Read Double  where

     readsPrec p		= readSigned readFloat

+instance  Show Double  where

     showsPrec   	= showSigned showFloat

@@ -597,8 +607,9 @@ instance  Text Double  where

 -- data  [a]  =  [] | a : [a]  deriving (Eq, Ord, Binary)

-instance  (Text a) => Text [a]  where

+instance  (Read a) => Read [a]  where

     readsPrec p		= readList

+instance  (Show a) => Show [a]  where

     showsPrec p		= showList

@@ -621,8 +632,9 @@ instance  (Text a, Text b) => Text (a,b)  where

 -- Functions

-instance  Text (a -> b)  where

+instance  Read (a -> b)  where

     readsPrec p s  =  error "readsPrec{PreludeCore}: Cannot read functions."

+instance  Show (a -> b)  where

     showsPrec p f  =  showString "<<function>>"

 -- Support for class Bin

@@ -774,7 +786,7 @@ instance (Text a1, Text a2, Text a3) => Text (a1,a2,a3) where

 instance (Eq a1, Eq a2, Eq a3, Eq a4) => Eq (a1,a2,a3,a4) where

   (a1,a2,a3,a4) == (z1,z2,z3,z4) = a1==z1 && a2==z2 && a3==z3 && a4 == z4

-instance (Text a1, Text a2, Text a3, Text a4) => Text (a1,a2,a3,a4) where

+instance (Read a1, Read a2, Read a3, Read a4) => Read (a1,a2,a3,a4) where

   readsPrec p = readParen False

                           (\r0 -> [((a1,a2,a3,a4), w) |

                                                   ("(",r1) <- lex r0,

@@ -786,15 +798,20 @@ instance (Text a1, Text a2, Text a3, Text a4) => Text (a1,a2,a3,a4) where

 	                                          (",",r7) <- lex r6,

 						  (a4,r8)  <- reads r7,

                                                   (")",w)  <- lex r8 ])

+

+instance (Show a1, Show a2, Show a3, Show a4) => Show (a1,a2,a3,a4) where

   showsPrec p (a1,a2,a3,a4) = 

                         showChar '(' . shows a1 . showChar ',' .

                                        shows a2 . showChar ',' .

                                        shows a3 . showChar ',' .

                                        shows a4 . showChar ')'

-instance (Text a1, Text a2, Text a3, Text a4, Text a5) =>

-      Text (a1,a2,a3,a4,a5) where

+instance (Read a1, Read a2, Read a3, Read a4, Read a5) =>

+      Read (a1,a2,a3,a4,a5) where

   readsPrec p = error "Read of 5 tuples not implemented"

+

+instance (Show a1, Show a2, Show a3, Show a4, Show a5) =>

+      Show (a1,a2,a3,a4,a5) where

   showsPrec p (a1,a2,a3,a4,a5) = 

                         showChar '(' . shows a1 . showChar ',' .

                                        shows a2 . showChar ',' .

@@ -802,9 +819,12 @@ instance (Text a1, Text a2, Text a3, Text a4, Text a5) =>

                                        shows a4 . showChar ',' .

                                        shows a5 . showChar ')'

-instance (Text a1, Text a2, Text a3, Text a4, Text a5, Text a6) =>

-      Text (a1,a2,a3,a4,a5,a6) where

+instance (Read a1, Read a2, Read a3, Read a4, Read a5, Read a6) =>

+      Read (a1,a2,a3,a4,a5,a6) where

   readsPrec p = error "Read of 6 tuples not implemented"

+

+instance (Show a1, Show a2, Show a3, Show a4, Show a5, Show a6) =>

+      Show (a1,a2,a3,a4,a5,a6) where

   showsPrec p (a1,a2,a3,a4,a5,a6) = 

                         showChar '(' . shows a1 . showChar ',' .

                                        shows a2 . showChar ',' .

@@ -59,12 +59,13 @@ instance  (Integral a)	=> Enum (Ratio a)  where

     enumFrom		=  iterate ((+)1)

     enumFromThen n m	=  iterate ((+)(m-n)) n

-instance  (Integral a) => Text (Ratio a)  where

+instance  (Integral a) => Read (Ratio a)  where

     readsPrec p  =  readParen (p > prec)

 			      (\r -> [(x%y,u) | (x,s)   <- reads r,

 					        ("%",t) <- lex s,

 						(y,u)   <- reads t ])

+instance  (Integral a) => Show (Ratio a)  where

     showsPrec p (x:%y)	=  showParen (p > prec)

     	    	    	       (shows x . showString " % " . shows y)

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/progs/prelude

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/runtime

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/support

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/tdecl

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/top

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/type

\ No newline at end of file

new file mode 120000

@@ -0,0 +1 @@

+/home/edwlan/yhc/yale-haskell/util

\ No newline at end of file