[project @ 1999-09-14 10:18:19 by simonmar]
authorsimonmar <unknown>
Tue, 14 Sep 1999 10:18:27 +0000 (10:18 +0000)
committersimonmar <unknown>
Tue, 14 Sep 1999 10:18:27 +0000 (10:18 +0000)
Replace all instances of fromInt in nofib with fromIntegral.

We generate the same code in most cases :-)

17 files changed:
imaginary/paraffins/Main.hs
imaginary/x2n1/Main.hs
real/HMMS/BatchAlign.lhs
real/HMMS/HmmDigraphs.lhs
real/HMMS/Viterbi.lhs
real/bspt/Euclid.lhs
real/bspt/EuclidGMS.lhs
real/bspt/GeomNum.lhs
real/bspt/Interpret.lhs
real/bspt/Render.lhs
real/compress2/Encode.hs
real/compress2/WriteRoutines.hs
real/ebnf2ps/Fonts.hs
real/symalg/Main.hs
spectral/knights/Sort.lhs
spectral/simple/Main.hs
spectral/simple/simple.stdout-linux

index 369c900..6a92159 100644 (file)
@@ -50,7 +50,7 @@ four_partitions m =
   [ (i,j,k,l)
   | i <- [0..(div m 4)],
     j <- [i..(div (m-i) 3)],
-    k <- [(max j (ceiling ((fromIntegral m)/(fromInt 2)) - i - j))..(div (m-i-j) 2)],
+    k <- [(max j (ceiling ((fromIntegral m)/(fromInteger 2)) - i - j))..(div (m-i-j) 2)],
     l <- [(m - (i+j+k))]]
 
 ccp_generator :: Array Int [Radical] -> Int -> [Paraffin]
index 63f69bb..d04cb9c 100644 (file)
@@ -29,4 +29,4 @@ import Complex
 main = print (round (realPart (sum [f n | n <- [1..10000]])))
 
 f :: Int -> Complex Double
-f n = mkPolar 1 ((2*pi)/fromInt n) ^ n
+f n = mkPolar 1 ((2*pi)/fromIntegral n) ^ n
index 878f5fc..e1974f6 100644 (file)
@@ -326,7 +326,7 @@ definition stands for ``tied-mixture continuation.''
 >         ts'            = ts  + score
 >       in
 >         appendChan stderr (printf "%4d%7.2f%7.2f  %s\n" [
->           UInt nfs', UFloat score, UFloat (ts' / fromInt nfs'),
+>           UInt nfs', UFloat score, UFloat (ts' / fromIntegral nfs'),
 >           UString fn ]) exit $
 >         writeFile (fn ++ ".algn") (showAlignment states) exit 
 >           (align_each_file  hmm_tms  hmm_dgs  nfs' ts' rfns)
@@ -354,7 +354,7 @@ definition stands for ``tied-mixture continuation.''
 >         ts'            = ts  + score
 >       in
 >         hPutStr stderr (printf "%4d%7.2f%7.2f  %s\n" [
->           UInt nfs', UFloat score, UFloat (ts' / fromInt nfs'),
+>           UInt nfs', UFloat score, UFloat (ts' / fromIntegral nfs'),
 >           UString fn ]) >>
 >         writeFile (fn ++ ".algn") (showAlignment states) >>
 >         align_each_file  hmm_tms  hmm_dgs  nfs' ts' rfns
index 098a14f..1e128b4 100644 (file)
@@ -371,7 +371,7 @@ probabilities.
 >       ts' = if j <= 1
 >             then ts        -- 0 or 1 successor nodes
 >             else let       -- 2 or more successor nodes
->                    log_of_divisor = log (fromInt j)
+>                    log_of_divisor = log (fromIntegral j)
 >                  in
 >                    [(i,ep - log_of_divisor) | (i,ep) <- ts]
 >
index 47abcb8..a189bdf 100644 (file)
@@ -245,7 +245,7 @@ aligned.  The second component is the optimal state path.
 > backtrace  (HmmTsA _ ts _)  (bss,(nu,fc))  =  (score',path)
 >       where
 >       (score, q_star)    = maximumfst [(nu!i, i) | (i,_) <- ts]
->       score'             = score / fromInt fc
+>       score'             = score / fromIntegral fc
 >       path               = foldr op [q_star] bss
 >       psi `op` qs@(q:_)  = (psi!!(q-1)) : qs
 
index 769691f..bf7ee77 100644 (file)
 
 > mkPoint :: String -> Point
 > mkPoint l = if and (map isDigit (a++b)) then
->                  Pt (fromInt (numval a-mouseDispx))
->                              (fromInt (numval b-mouseDispy))
+>                  Pt (fromIntegral (numval a-mouseDispx))
+>                              (fromIntegral (numval b-mouseDispy))
 >                 else (Pt 0 0) -- Null Point
 >                                         where
 >                                         (a,b)= splitAt_YORK gap l
index 8b13083..35dfbe8 100644 (file)
 >                                      Pt right bottom,
 >                                      Pt left bottom])
 >               where
->               top = fromInt renderTop
->                bottom = fromInt renderHeight
->                left = fromInt renderLeft
->                right = fromInt windowWidth
+>               top = fromIntegral renderTop
+>                bottom = fromIntegral renderHeight
+>                left = fromIntegral renderLeft
+>                right = fromIntegral windowWidth
 
 
 
index 2d6197d..2ebb5c3 100644 (file)
@@ -45,8 +45,8 @@
 >       ratio x 0 = if (positive x) then (1,0) else (-1,0)
 >       ratio x y = (signum x*(n:%%1),signum y*(d:%%1))
 >                       where (n:%%d)= abs x/abs y 
->      xCoordInRange x = (fromInt renderLeft) <= x && x <= (fromInt windowWidth)
->      yCoordInRange x = (fromInt renderTop) <= x && x <= (fromInt renderHeight)
+>      xCoordInRange x = (fromIntegral renderLeft) <= x && x <= (fromIntegral windowWidth)
+>      yCoordInRange x = (fromIntegral renderTop) <= x && x <= (fromIntegral renderHeight)
 
 > rnd2 :: Numb -> Numb
 > rnd2 a = rnd a :%% 1
index d7e01bb..1436eb0 100644 (file)
@@ -82,8 +82,8 @@
                buttons, otherwise returns the Null button.
 
 > toCommand :: Point -> Command 
-> toCommand (Pt x y) | x<fromInt buttonIndent || 
->                              x>fromInt (buttonIndent+buttonWidth)
+> toCommand (Pt x y) | x<fromIntegral buttonIndent || 
+>                              x>fromIntegral (buttonIndent+buttonWidth)
 >                                       = Null
 >                 | otherwise = command
 >                              where (command,_,_) = search (y::Numb) buttons
@@ -95,6 +95,6 @@
 
 > search :: Numb -> [Button] -> Button
 > search y [] = (Null,0,"")
-> search y ((command,d,str):butts) | between (fromInt d)
->                               (fromInt buttonHeight) y = (command,d,str)
+> search y ((command,d,str):butts) | between (fromIntegral d)
+>                               (fromIntegral buttonHeight) y = (command,d,str)
 > search y ((command,d,str):butts) = search y butts
index b79b1af..5aef578 100644 (file)
@@ -23,7 +23,7 @@
  
 > render :: BSPT -> String
 > render btree = drawFaces (mapcat (scanLine btree) scanLines)
->      where scanLines = rules (fromInt renderLeft) (fromInt windowWidth) (fromInt (renderTop+1))
+>      where scanLines = rules (fromIntegral renderLeft) (fromIntegral windowWidth) (fromIntegral (renderTop+1))
   
        rules - create the list of lines across the screen
                between current and max lines skipping every
@@ -31,7 +31,7 @@
   
 > rules :: Numb -> Numb -> Numb -> Faces
 > rules left right = rules'
->                      where rules' current | current > (fromInt renderHeight) = []
+>                      where rules' current | current > (fromIntegral renderHeight) = []
 >                            rules' current = mkFace ((Pt left current),(Pt right current)):rules' (current+15) 
   
   
index 62787af..c25cbda 100644 (file)
@@ -97,7 +97,7 @@ build_table lo hi
      = if lo > hi then
            PTNil
        else let mid = (lo + hi) `div` 2 in
-             trace (show (lo,hi,mid))
+             --trace (show (lo,hi,mid))
               PT (toEnum mid) mid PTNil
                    (build_table lo (mid - 1))
                    (build_table (mid + 1) hi)
index 2a2669d..b788463 100644 (file)
@@ -15,7 +15,7 @@ intRsh (I# x) (I# y) = I# (w2i (shiftRL# (i2w x) y))
 -- End of code added for ghc
 
 outputCodes :: [CodeEvent] -> (String, [Int])
-outputCodes cs = (map (\x -> trace (show x) (toEnum x)) (fst result), snd result)
+outputCodes cs = (map (\x -> {-trace (show x)-} (toEnum x)) (fst result), snd result)
                where result = output 9 8 0 0 cs       -- assume 9 bit start
 
 output :: Int -> Int -> Int -> Int -> [CodeEvent] -> ([Int], [Int])
index e12162b..64a5058 100644 (file)
@@ -1,6 +1,11 @@
 --------------------------------------------------------------------------------
 -- Copyright 1994 by Peter Thiemann
 -- $Log: Fonts.hs,v $
+-- Revision 1.4  1999/09/14 10:18:24  simonmar
+-- Replace all instances of fromInt in nofib with fromIntegral.
+--
+-- We generate the same code in most cases :-)
+--
 -- Revision 1.3  1997/03/14 08:08:05  simonpj
 -- Major update to more-or-less 2.02
 --
@@ -30,11 +35,11 @@ readDec = readInt 10 isDigit (\d -> ord d - ord_0)
 
 readInt :: (Integral a) => a -> (Char -> Bool) -> (Char -> Int) -> ReadS a
 readInt radix isDig digToInt s =
-    [(foldl1 (\n d -> n * radix + d) (map (fromInt . digToInt) ds), r)
+    [(foldl1 (\n d -> n * radix + d) (map (fromIntegral . digToInt) ds), r)
        | (ds,r) <- nonnull isDig s ]
 
 ord_0 :: Num a => a
-ord_0 = fromInt (ord '0')
+ord_0 = fromIntegral (ord '0')
 
 nonnull                 :: (Char -> Bool) -> ReadS String
 nonnull p s             =  [(cs,t) | (cs@(_:_),t) <- [span p s]]
index da23072..a0a4d87 100644 (file)
@@ -29,23 +29,6 @@ main = cmdloop (initEnv [])
           putStrLn res
           cmdloop nenv
 
-#if 0
-    -- partain: getLine isn't in 1.3 I/O any more
-    getLine :: IO String
-    getLine =  get ""
-       where
-         get s
-           = isEOF      >>= \ is_eof ->
-             if is_eof then
-                return (reverse s)
-             else
-                getChar >>= \ c ->
-                if c == '\n' then
-                   return (reverse s)
-                else
-                   get (c:s)
-#endif
-
 ----------------------------------------------------------------------------
 
 -- process the command line
index 9ef1579..a6a4960 100644 (file)
@@ -162,7 +162,7 @@ list of Doubles uniformly distibuted in (0,1).
 
 \begin{code}
 randomDoubles :: Int -> Int -> [Double]
-randomDoubles s1 s2 = map (\x -> fromInt x * 4.6566130638969828e-10)
+randomDoubles s1 s2 = map (\x -> (fromIntegral x * 4.6566130638969828e-10)
                          (randomInts s1 s2)
 \end{code}
 
index 7b1e158..99e92ca 100644 (file)
@@ -235,9 +235,9 @@ compute_initial_state _ =
           let {
               interior_position (k, l) = 
                  let {
-                     rp = fromInt (lmax - lmin) ;
-                     z1 = fromInt ((10 + k) - kmin) ;
-                     zz = ((- (0.5::Double)) + (fromInt (l - lmin)) 
+                     rp = fromIntegral (lmax - lmin) ;
+                     z1 = fromIntegral ((10 + k) - kmin) ;
+                     zz = ((- (0.5::Double)) + (fromIntegral (l - lmin)) 
                           / rp) * (pi::Double)
                      } in ((z1::Double) * (cos (zz::Double)), z1 * (sin zz))
               } in make_position_matrix interior_position ;
index 8c06c25..74e30ed 100644 (file)
@@ -1,3 +1,3 @@
 Run_simple :  "RESULT u,v,r,z,alpha,s,rho,p,q,epsilon,theta,deltat err"
-"<"-2.266221850718138,-9.367506770274758e-16,371360.5981170048,1.9820459029489257e-2,18910.179268515803,5420373.03809818,14000.10270147848,9871.00152949301,1.4319026901564584,9975.269961008133,95907.23515697247,1.0e-2,25580.958466109605>
+"<"-2.266221850718138,-5.551115123125783e-17,371360.5981170048,1.9820459029489257e-2,18910.179268515814,5420373.03809818,14000.10270147848,9871.00152949301,1.4319026901564575,9975.269961008136,95907.23515697247,1.0e-2,25580.958466109605>
 done