Newsgroups: fj.lang.perl
Path: galaxy.trc.rwcp.or.jp!sparky!uunet!ccut!sh.wide!wnoc-kyo!kuis!kudpc!sakura.kudpc.kyoto-u.ac.jp!a50350
From: a50350@sakura.kudpc.kyoto-u.ac.jp (mugitani)
Subject: Re: how to make perl header file ?
In-Reply-To: himazu@isl.mei.co.jp's message of 5 Nov 92 10:05:52 GMT
Message-ID: <A50350.92Nov16093849@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
References: <A50350.92Nov2150120@sakura.sakura.kudpc.kyoto-u.ac.jp>
	<HIMAZU.92Nov5190552@isl.mei.co.jp>
Distribution: fj
Date: Mon, 16 Nov 1992 00:38:49 GMT
Lines: 92
Xref: galaxy.trc.rwcp.or.jp fj.lang.perl:3
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.lang.perl&nb=3&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!#(B

$B;C$/!"#n#e#t$rN%$l$F$$$F%j%W%i%$$,CY$/$J$j$^$7$?!#(B

$B;d$N(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!#(B

$B$H$$$&<ALd$KBP$7$F!":#DE!w>>2<EE4o(B $B>pJs%7%9%F%`8&5f=j$+$i(B

 >>SunOS4.1.1 non JLE $B$G(B perl $B$r;H$C$F$$$^$9!#(B
 >>$B;d$O0J2<$N$h$&$K$7$F$$$^$9!#(B
 >>$B$^$:!"(Bh2ph $B$K0J2<$N%Q%C%A$rEv$F$^$9!#(B
 >>
 >>$ diff -c h2ph.dist h2ph
 >>*** h2ph.distWed Nov 13 15:49:25 1991
 >>--- h2phThu May 14 16:30:39 1992
 >>***************
 >>*** 177,195 ****
 >>   $new .= 'defined';
 >>       }
 >>       elsif (/^\(/) {
 >>! s/^\((\w),/("$1",/ if $id =~ /^_IO[WR]*$/i;# cheat
 >>   $new .= " &$id";
 >>       }
 >>       elsif ($isatype{$id}) {
 >>! if ($new =~ /{\s*$/) {
 >>!     $new .= "'$id'";
 >>! }
 >>! elsif ($new =~ /\(\s*$/ && /^[\s*]*\)/) {
 >>       $new =~ s/\(\s*$//;
 >>       s/^[\s*]*\)//;
 >>   }
 >>   else {
 >>!     $new .= $id;
 >>   }
 >>       }
 >>       else {
 >>--- 177,202 ----
 >>   $new .= 'defined';
 >>       }
 >>       elsif (/^\(/) {
 >>! s/^\((\w),/("$1",/ if $id =~ /^_IO([WR][A-Z]*)?$/i; # cheat
 >>   $new .= " &$id";
 >>       }
 >>       elsif ($isatype{$id}) {
 >>! #if ($new =~ /{\s*$/) {
 >>! #    $new .= "'$id'";
 >>! #}
 >>! #elsif ($new =~ /\(\s*$/ && /^[\s*]*\)/) {
 >>! #    $new =~ s/\(\s*$//;
 >>! #    s/^[\s*]*\)//;
 >>! #}
 >>! #else {
 >>! #    $new .= $id;
 >>! #}
 >>! if ($new =~ /\(\s*$/ && /^[\s*]*\)/) {
 >>       $new =~ s/\(\s*$//;
 >>       s/^[\s*]*\)//;
 >>   }
 >>   else {
 >>!     $new .= "'$id'";
 >>   }
 >>       }
 >>       else {
 >>
 >>$BsNC+$,$*$C$7$c$k$h$&$K!"$=$N$^$^$N(B h2ph $B$G$O!V;H$($k!W(B*.ph $B$,:n$l$J$$$h(B
 >>$B$&$J$N$G!#(B
 >>$B$=$7$F!"(BTIOCGETP, TIOCSETP $B$r$9$k$N$G$"$l$P%W%m%0%i%`$K(B
 >>
 >>   $sizeof{'struct sgttyb'} = 6;
 >>   $sizeof{'int'} = 4;
 >>
 >>$B$rF~$l$^$9!#(B

$B$H65$($F$$$?$@$-$^$7$?!#AaB.!";n$7$F$_$?$H$3$m$&$^$/F0$/$h$&$K$J$j$^$7(B
$B$?!#$3$3$K%]%9%H$H$9$kA0$K3XFb$N%m!<%+%k%M%C%H$G<ALd$7$?$N$G$9$,!"2r7h(B
$B$G$-$J$$$G$$$^$7$?!#M-Fq$&$4$6$$$^$7$?!#(B

$BM_$r$$$&$J$i$P!"(B

 >>   $sizeof{'struct sgttyb'} = 6;
 >>   $sizeof{'int'} = 4;

$B$r$D$1$J$$$G$b;H$($k$h$&$J(Bheader$B$,$G$-$l$P$h$$$N$G$9$,!&!&!&(B

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

