[move more names to data/names.txt from being hard coded in the source
John Meacham <john@repetae.net>**20070606003358] hunk ./E/FromHs.hs 288
+v_silly = toName Val ("Jhc@","silly")
hunk ./Name/Names.hs 81
-v_eqString = toName Val  ("Jhc.String","eqString")
-v_eqUnpackedString = toName Val  ("Jhc.String","eqUnpackedString")
-v_unpackString = toName Val  ("Jhc.String","unpackString")
-v_target = toName Val  ("Jhc.Options","target")
-v_error = toName Val ("Jhc.IO","error")
-v_toEnum = toName Val ("Jhc.Enum","toEnum")
-v_fromEnum = toName Val ("Jhc.Enum","fromEnum")
-v_minBound = toName Val ("Jhc.Enum","minBound")
-v_maxBound = toName Val ("Jhc.Enum","maxBound")
-v_fail = toName Val ("Jhc.Monad","fail")
-v_concatMap = toName Val ("Jhc.Basics","concatMap")
-v_map = toName Val ("Jhc.Basics","map")
-v_and = toName Val ("Jhc.Order","&&")
-v_filter = toName Val ("Jhc.List","filter")
-v_foldr = toName Val ("Jhc.Basics","foldr")
-v_undefined = toName Val ("Jhc.Basics","undefined")
-v_silly = toName Val ("Jhc@","silly")
hunk ./Name/Names.hs 83
-    func_bind = toName Val ("Jhc.Monad",">>="),
-    func_bind_ = toName Val ("Jhc.Monad",">>"),
-    func_concatMap = toName Val ("Jhc.Basics","concatMap"),
-    func_fromInteger = toName Val ("Jhc.Num","fromInteger"),
-    func_fromInt = toName Val ("Jhc.Num","fromInt"),
-    func_fromRational = toName Val ("Jhc.Num","fromRational"),
-    func_negate = toName Val ("Jhc.Num","negate"),
-    func_leq = toName Val ("Jhc.Order","<="),
-    func_geq = toName Val ("Jhc.Order",">="),
-    func_lt = toName Val ("Jhc.Order","<"),
-    func_gt = toName Val ("Jhc.Order",">"),
-    func_compare = toName Val ("Jhc.Order","compare"),
-    func_equals = toName Val ("Jhc.Order","=="),
-    func_neq = toName Val ("Jhc.Order","/="),
-    func_fromEnum = toName Val ("Jhc.Enum","fromEnum"),
-    func_toEnum = toName Val ("Jhc.Enum","toEnum"),
-    func_minBound = toName Val ("Jhc.Enum","minBound"),
-    func_maxBound = toName Val ("Jhc.Enum","maxBound"),
-    func_enumFrom = toName Val ("Jhc.Enum","enumFrom"),
-    func_enumFromThen = toName Val ("Jhc.Enum","enumFromThen"),
-    func_range = toName Val ("Data.Ix","range"),
-    func_index = toName Val ("Data.Ix","index"),
-    func_inRange = toName Val ("Data.Ix","inRange"),
-    func_runExpr = toName Val ("Prelude.IO","runExpr"),
-    func_runRaw = toName Val ("Jhc.Prim","runRaw"),
-    func_runMain = toName Val ("Jhc.IO","runMain"),
-    func_runNoWrapper = toName Val ("Jhc.Prim","runNoWrapper")
+    func_bind = v_bind,
+    func_bind_ = v_bind_,
+    func_concatMap = v_concatMap,
+    func_fromInteger = v_fromInteger,
+    func_fromInt = v_fromInt,
+    func_fromRational = v_fromRational,
+    func_negate = v_negate,
+    func_leq = v_leq,
+    func_geq = v_geq,
+    func_lt = v_lt,
+    func_gt = v_gt,
+    func_compare = v_compare,
+    func_equals = v_equals,
+    func_neq = v_neq,
+    func_fromEnum = v_fromEnum,
+    func_toEnum = v_toEnum,
+    func_minBound = v_minBound,
+    func_maxBound = v_maxBound,
+    func_enumFrom = v_enumFrom,
+    func_enumFromThen = v_enumFromThen,
+    func_range = v_range,
+    func_index = v_index,
+    func_inRange = v_inRange,
+    func_runExpr = v_runExpr,
+    func_runRaw = v_runRaw,
+    func_runMain = v_runMain,
+    func_runNoWrapper = v_runNoWrapper
hunk ./data/names.txt 69
+
+Val:v:
+eqString         Jhc.String.eqString
+eqUnpackedString Jhc.String.eqUnpackedString
+unpackString     Jhc.String.unpackString
+target           Jhc.Options.target
+error            Jhc.IO.error
+minBound         Jhc.Enum.minBound
+maxBound         Jhc.Enum.maxBound
+fail             Jhc.Monad.fail
+map              Jhc.Basics.map
+and              Jhc.Order.&&
+filter           Jhc.List.filter
+foldr            Jhc.Basics.foldr
+undefined        Jhc.Basics.undefined
+
+
+bind                 Jhc.Monad.>>=
+bind_                Jhc.Monad.>>
+concatMap            Jhc.Basics.concatMap
+fromInteger          Jhc.Num.fromInteger
+fromInt              Jhc.Num.fromInt
+fromRational         Jhc.Num.fromRational
+negate               Jhc.Num.negate
+leq                  Jhc.Order.<=
+geq                  Jhc.Order.>=
+lt                   Jhc.Order.<
+gt                   Jhc.Order.>
+compare              Jhc.Order.compare
+equals               Jhc.Order.==
+neq                  Jhc.Order./=
+fromEnum             Jhc.Enum.fromEnum
+toEnum               Jhc.Enum.toEnum
+enumFrom             Jhc.Enum.enumFrom
+enumFromThen         Jhc.Enum.enumFromThen
+range                Data.Ix.range
+index                Data.Ix.index
+inRange              Data.Ix.inRange
+runExpr              Prelude.IO.runExpr
+runRaw               Jhc.Prim.runRaw
+runMain              Jhc.IO.runMain
+runNoWrapper         Jhc.Prim.runNoWrapper
hunk ./utils/op_names.prl 66
-    /^([_A-Za-z0-9]+)\s+(([0-9_A-Za-z.@]+)\.)?([0-9)(#A-Za-z%:_\[\]]+)\s*$/ or die "unrecognized line $_";
+    /^([_A-Za-z0-9]+)\s+(([0-9_A-Za-z.@]+)\.)?([0-9)(#&|><=\/A-Za-z%:_\[\]]+)\s*$/ or die "unrecognized line $_";