blob: ca15743a23a9c9d40d9de053bcc5887f6bda288e (
plain)
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
#ifdef __cplusplus
extern "C" {
#endif
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#if !defined(_AIX) && !defined(__DragonFly__)
#include <sys/termios.h>
#else
#include <termios.h>
#endif
#ifdef __cplusplus
}
#endif
MODULE = Term::Size PACKAGE = Term::Size
PROTOTYPES: DISABLE
void
chars( f = PerlIO_stdin() )
PerlIO *f;
PREINIT:
struct winsize w = { 0, 0, 0, 0 };
PPCODE:
if (ioctl(PerlIO_fileno(f), TIOCGWINSZ, &w) == -1)
XSRETURN(0);
XPUSHs(sv_2mortal(newSViv(w.ws_col)));
if (GIMME != G_SCALAR)
XPUSHs(sv_2mortal(newSViv(w.ws_row)));
void
pixels( f = PerlIO_stdin() )
PerlIO *f;
PREINIT:
struct winsize w = { 0, 0, 0, 0 };
PPCODE:
if (ioctl(PerlIO_fileno(f), TIOCGWINSZ, &w) == -1)
XSRETURN(0);
XPUSHs(sv_2mortal(newSViv(w.ws_xpixel)));
if (GIMME != G_SCALAR)
XPUSHs(sv_2mortal(newSViv(w.ws_ypixel)));
|