home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / fj / lang / perl / 146 next >
Encoding:
Text File  |  1992-11-15  |  3.1 KB  |  108 lines
  1. Newsgroups: fj.lang.perl
  2. Path: sparky!uunet!ccut!sh.wide!wnoc-kyo!kuis!kudpc!sakura.kudpc.kyoto-u.ac.jp!a50350
  3. From: a50350@sakura.kudpc.kyoto-u.ac.jp (mugitani)
  4. Subject: Re: how to make perl header file ?
  5. In-Reply-To: himazu@isl.mei.co.jp's message of 5 Nov 92 10:05:52 GMT
  6. Message-ID: <A50350.92Nov16093849@sakura.sakura.kudpc.kyoto-u.ac.jp>
  7. Sender: news@kudpc.kyoto-u.ac.jp
  8. Nntp-Posting-Host: sakura.kudpc.kyoto-u.ac.jp
  9. Organization: Data Processing Center, Kyoto University, Kyoto, JAPAN
  10. References: <A50350.92Nov2150120@sakura.sakura.kudpc.kyoto-u.ac.jp>
  11.     <HIMAZU.92Nov5190552@isl.mei.co.jp>
  12. Distribution: fj
  13. Date: Mon, 16 Nov 1992 00:38:49 GMT
  14. Lines: 92
  15.  
  16.  
  17. $@sNC+!w5~Bg?MJ88&$G$9!#(J
  18.  
  19. $@;C$/!"#n#e#t$rN%$l$F$$$F%j%W%i%$$,CY$/$J$j$^$7$?!#(J
  20.  
  21. $@;d$N(J
  22.  
  23.  >> perl4.019 $@$r(J SunOS 4.1.2+JLE 1.2 $@$N>e$G;H$C$F$$$^$9!#$H$3$m$,(J 
  24.  >> ioctl() $@$r;H$*$&$H$9$k$H$&$^$/$$$+$:$K(J$@:$$C$F$$$^$9!#(J
  25.  
  26. $@$H$$$&<ALd$KBP$7$F!":#DE!w>>2<EE4o(J $@>pJs%7%9%F%`8&5f=j$+$i(J
  27.  
  28.  >>SunOS4.1.1 non JLE $@$G(J perl $@$r;H$C$F$$$^$9!#(J
  29.  >>$@;d$O0J2<$N$h$&$K$7$F$$$^$9!#(J
  30.  >>$@$^$:!"(Jh2ph $@$K0J2<$N%Q%C%A$rEv$F$^$9!#(J
  31.  >>
  32.  >>$ diff -c h2ph.dist h2ph
  33.  >>*** h2ph.dist    Wed Nov 13 15:49:25 1991
  34.  >>--- h2ph    Thu May 14 16:30:39 1992
  35.  >>***************
  36.  >>*** 177,195 ****
  37.  >>           $new .= 'defined';
  38.  >>           }
  39.  >>           elsif (/^\(/) {
  40.  >>!         s/^\((\w),/("$1",/ if $id =~ /^_IO[WR]*$/i;    # cheat
  41.  >>           $new .= " &$id";
  42.  >>           }
  43.  >>           elsif ($isatype{$id}) {
  44.  >>!         if ($new =~ /{\s*$/) {
  45.  >>!             $new .= "'$id'";
  46.  >>!         }
  47.  >>!         elsif ($new =~ /\(\s*$/ && /^[\s*]*\)/) {
  48.  >>               $new =~ s/\(\s*$//;
  49.  >>               s/^[\s*]*\)//;
  50.  >>           }
  51.  >>           else {
  52.  >>!             $new .= $id;
  53.  >>           }
  54.  >>           }
  55.  >>           else {
  56.  >>--- 177,202 ----
  57.  >>           $new .= 'defined';
  58.  >>           }
  59.  >>           elsif (/^\(/) {
  60.  >>!         s/^\((\w),/("$1",/ if $id =~ /^_IO([WR][A-Z]*)?$/i; # cheat
  61.  >>           $new .= " &$id";
  62.  >>           }
  63.  >>           elsif ($isatype{$id}) {
  64.  >>! #        if ($new =~ /{\s*$/) {
  65.  >>! #            $new .= "'$id'";
  66.  >>! #        }
  67.  >>! #        elsif ($new =~ /\(\s*$/ && /^[\s*]*\)/) {
  68.  >>! #            $new =~ s/\(\s*$//;
  69.  >>! #            s/^[\s*]*\)//;
  70.  >>! #        }
  71.  >>! #        else {
  72.  >>! #            $new .= $id;
  73.  >>! #        }
  74.  >>!         if ($new =~ /\(\s*$/ && /^[\s*]*\)/) {
  75.  >>               $new =~ s/\(\s*$//;
  76.  >>               s/^[\s*]*\)//;
  77.  >>           }
  78.  >>           else {
  79.  >>!             $new .= "'$id'";
  80.  >>           }
  81.  >>           }
  82.  >>           else {
  83.  >>
  84.  >>$@sNC+$,$*$C$7$c$k$h$&$K!"$=$N$^$^$N(J h2ph $@$G$O!V;H$($k!W(J*.ph $@$,:n$l$J$$$h(J
  85.  >>$@$&$J$N$G!#(J
  86.  >>$@$=$7$F!"(JTIOCGETP, TIOCSETP $@$r$9$k$N$G$"$l$P%W%m(J$@%0%i%`$K(J
  87.  >>
  88.  >>       $sizeof{'struct sgttyb'} = 6;
  89.  >>       $sizeof{'int'} = 4;
  90.  >>
  91.  >>$@$rF~$l$^$9!#(J
  92.  
  93. $@$H65(J$@$($F$$$?$@$-$^$7$?!#AaB.!";n$7$F$_$?$H$3$m$&$^$/F0$/$h$&$K$J$j$^$7(J
  94. $@$?!#$3$3$K%]%9%H$H$9$kA0$K3XFb$N%m(J$@!<%+%k%M%C%H$G<ALd$7$?$N$G$9$,!"2r7h(J
  95. $@$G$-$J$$$G$$$^$7$?!#M-Fq$&$4$6$$$^$7$?!#(J
  96.  
  97. $@M_$r$$$&$J$i$P!"(J
  98.  
  99.  >>       $sizeof{'struct sgttyb'} = 6;
  100.  >>       $sizeof{'int'} = 4;
  101.  
  102. $@$r$D$1$J$$$G$b;H$($k$h$&$J(Jheader$@$,$G$-$l(J$@$P$h$$$N$G$9$,!&!&!&(J
  103.  
  104. --
  105. $@5~ETBg3X(J $@?MJ82J3X8&5f=j(J 
  106. $@sNC+K.IW(J MUGITANI Kunio  
  107.  
  108.