/usr/lib/hugs/oldlib/AnsiScreen.hs is in hugs 98.200609.21-5.3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | -----------------------------------------------------------------------------
-- Library of escape sequences for ANSI compatible screen I/O:
--
-- Suitable for use with Hugs 98
-----------------------------------------------------------------------------
module AnsiScreen(
Pos(..),
cls,
goto, at, home,
highlight
) where
-- Basic screen control codes:
type Pos = (Int,Int)
at :: Pos -> String -> String
highlight :: String -> String
goto :: Int -> Int -> String
home :: String
cls :: String
at (x,y) s = goto x y ++ s
highlight s = "\ESC[7m"++s++"\ESC[0m"
goto x y = '\ESC':'[':(show y ++(';':show x ++ "H"))
home = goto 1 1
-- Choose whichever of the following lines is suitable for your system:
cls = "\ESC[2J" -- for PC with ANSI.SYS
--cls = "\^L" -- for Sun window
-----------------------------------------------------------------------------
|