hcurses, После инициализации библиотеки вы можете использоватьscrSize чтобы получить количество строк и столбцов на экране.

ИспользоватьSystem.Posix.IOCtlВы должны определить тип данных для представленияTIOCGWINSZ запрос, который заполняет следующую структуру:

struct winsize {
    unsigned short ws_row;
    unsigned short ws_col;
    unsigned short ws_xpixel;   /* unused */
    unsigned short ws_ypixel;   /* unused */
};

Вам потребуется определить тип данных Haskell для хранения этой информации и сделать его экземпляромStorable:

{-# LANGUAGE RecordWildCards #-}
import Foreign.Storable
import Foreign.Ptr
import Foreign.C

data Winsize = Winsize { ws_row    :: CUShort
                       , ws_col    :: CUShort
                       , ws_xpixel :: CUShort
                       , ws_ypixel :: CUShort
                       }

instance Storable Winsize where
  sizeOf _ = 8
  alignment _ = 2
  peek p = do { ws_row    <- peekByteOff p 0
              ; ws_col    <- peekByteOff p 2
              ; ws_xpixel <- peekByteOff p 4
              ; ws_ypixel <- peekByteOff p 6
              ; return $ Winsize {..}
              }
  poke p Winsize {..} = do { pokeByteOff p 0 ws_row
                           ; pokeByteOff p 2 ws_col
                           ; pokeByteOff p 4 ws_xpixel
                           ; pokeByteOff p 6 ws_ypixel
                           }

Теперь вам нужно создать фиктивный тип данных для представления вашего запроса:

data TIOCGWINSZ = TIOCGWINSZ

Наконец, вам нужно сделать ваш запрос типа экземпляраIOControlи связать его сWinsize тип данных.

instance IOControl TIOCGWINSZ Winsize where
  ioctlReq _ = ??

Вам нужно будет заменить?? с константой, представленнойTIOCGWINSZ в ваших заголовочных файлах (0x5413 в моей системе).

Теперь вы готовы выпуститьioctl, Эта команда не заботится о входных данных, поэтому вы хотите использоватьioctl' форма:

main = do { ws <- ioctl' 1 TIOCGWINSZ
          ; putStrLn $ "My terminal is " ++ show (ws_col ws) ++ " columns wide"
          }

Обратите внимание, что 1 относится к STDOUT.

Уф!

resizeOutput <- readProcess "/usr/X11/bin/resize" [] ""

А потом немного разбираем вывод. Это не может быть на 100% портативным, но я верю, что вы можете предоставитьresize с аргументами (проверить-u в частности), так что вы получите довольно последовательный вывод.