Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!sparky!uunet!ccut!s.u-tokyo!kuis!kudpc!sakura.kudpc.kyoto-u.ac.jp!a50350
From: a50350@sakura.kudpc.kyoto-u.ac.jp (mugitani)
Subject: how to make perl header file ?
Message-ID: <A50350.92Nov2150120@sakura.sakura.kudpc.kyoto-u.ac.jp>
Sender: news@kudpc.kyoto-u.ac.jp
Nntp-Posting-Host: sakura.kudpc.kyoto-u.ac.jp
Organization: Data Processing Center, Kyoto University, Kyoto, JAPAN
Distribution: fj
Date: Mon, 2 Nov 1992 06:01:20 GMT
Lines: 58
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:9
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=9&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.


$BsNC+!w5~Bg?MJ88&$G$9!#=i$a$F$NEj9F$G$9$N$G$h$m$7$/!#(B

perl4.019 $B$r(B SunOS 4.1.2+JLE 1.2 $B$N>e$G;H$C$F$$$^$9!#$H$3$m$,(B ioctl() 
$B$r;H$*$&$H$9$k$H$&$^$/$$$+$:$K:$$C$F$$$^$9!#0l1~!"(B*.ph $B%U%!%$%k$O%$%s(B
$B%9%H!<%k$7$?$H$-$K(B h2ph $B$G:n$C$F$"$j$^$9!#(B

$BNc$($P(B perl $B$N%^%K%e%"%k$K:\$C$F$$$k(B

                  require 'ioctl.ph';
                  $sgttyb_t = "ccccs";          # 4 chars and a short
                  if (ioctl(STDIN,&TIOCGETP,$sgttyb)) {
                       @ary = unpack($sgttyb_t,$sgttyb);
                       $ary[2] = 127;
                       $sgttyb = pack($sgttyb_t,@ary);
                       ioctl(STDIN,&TIOCSETP,$sgttyb)
                            || die "Can't ioctl: $!";
                  }

$B$J$I$r<B9T$9$k$H3N<B$K%(%i!<$K$J$j$^$9!#%G%P%C%,!<$G%H%l!<%9$7$F$_$k$H!"(B
ttold.ph $B$N(B

if (!defined &_sys_ttold_h) {
    eval 'sub _sys_ttold_h {1;}';
    if (!defined &_SGTTYB_) {
eval 'sub _SGTTYB_ {1;}';
    }
    require 'sys/ioccom.ph';
    eval 'sub TIOCGETD { &_IOR("t", 0, int);}';
    eval 'sub TIOCSETD { &_IOW("t", 1, int);}';
    eval 'sub TIOCHPCL { &_IO("t", 2);}';
    eval 'sub TIOCMODG { &_IOR("t", 3, int);}';
    eval 'sub TIOCMODS { &_IOW("t", 4, int);}';
    eval 'sub TIOCGETP { &_IOR("t", 8,struct sgttyb);}';
                                      ^^^^^^^^^^^^^
    eval 'sub TIOCSETP { &_IOW("t", 9,struct sgttyb);}';
    eval 'sub TIOCSETN { &_IOW("t",10,struct sgttyb);}';
    eval 'sub TIOCEXCL { &_IO("t", 13);}';
    eval 'sub TIOCNXCL { &_IO("t", 14);}';
    eval 'sub TIOCFLUSH { &_IOW("t", 16, int);}';
    eval 'sub TIOCSETC { &_IOW("t",17,struct tchars);}';
    eval 'sub TIOCGETC { &_IOR("t",18,struct tchars);}';

$B$G%(%i!<$K$J$C$F$$$k$3$H$,J,$+$j$^$9!#(Bperl $B$K$O(B struct $B$O$J$$$o$1$G$9(B
$B$+$i!"$3$l$G$OF0$/$o$1$O$"$j$^$;$s$h$M!#(B*.ph $B%U%!%$%k$r(B grep struct $B$7(B
$B$F$_$k$H7k9=F1$8$h$&$J$H$3$m$,$"$j$^$9!#(B

$B$=$3$G!"(Bh2ph $B$G=PMh$k%U%!%$%k$O$=$N$^$^$G$O;H$($J$$$N$G$7$g$&$+!#$=$&(B
$B$G$"$l$P!"$I$N$h$&$K=$@5$9$k$N$G$7$g$&$+!#(Bstruct $B$r(B $ $B$KJQ$($l$P:Q$`$H(B
$B$$$C$?$b$N$G$O$"$j$^$;$s$h$M!#(B

$B0lHV$"$j$,$?$$$N$O!"(B SunOS 4.1.2 $BMQ$N(B $B$A$c$s$H;H$($k(B *.ph $B%U%!%$%k$r>y$C(B
$B$F$$$?$@$/$3$H$G$9$,!"=$@5J}K!$K4X$9$k>pJs$G$b=u$+$j$^$9!#(B

--
$B5~ETBg3X(B $B?MJ82J3X8&5f=j(B 
$BsNC+K.IW(B MUGITANI Kunio  

