HDTenEightyP/NetNews huggingface dataset:
From: k_era@pluto.ai.kyutech.ac.jp (Koichi Era)
Newsgroups: fj.lang.lisp
Subject: Re: AKCL & PCL
Date: 13 Apr 92 05:24:13 GMT
	<THAYANO.92Mar19142735@elfin.elcom.nitech.ac.jp>
	<K_ERA.92Mar24153040@pluto510.pluto.ai.kyutech.ac.jp>
	<3766@kiwi.kuis.kyoto-u.ac.jp>
Reply-To: k_era@pluto.ai.kyutech.ac.jp
Distribution: fj
Organization: Kyushu Institute of Technology, Iizuka, JAPAN.
In-reply-to: harada@kuis.kyoto-u.ac.jp's message of 6 Apr 92 13:48:46 GMT

$@$I$b(J, $@9>NI!w6e(J$@9)Bg$G$9(J.

$@0J2<$N(J follow $@$K$h$C$F(J, PCL $@$r(J SUN3 $@>e$G(J make $@$9$k$3$H$,$G$-$^$7$?(J.
($@F0:n%F%9%H$O$^$@$G$9$,(J:-)

In article <3766@kiwi.kuis.kyoto-u.ac.jp> harada@kuis.kyoto-u.ac.jp (Michiaki Harada) writes:

>> $@86ED!w5~Bg$G$9(J. $@CY$$%U%)%m!<$G$9$,(J... $@AaLn!wL>9)Bg$5$s$K$O%a!<%k$GJV;v$r(J
>> $@$@$7$^$7$?$,(J, $@$=$N$"$HH=(J$@$C$?$3$H$b$"$j$^$9$N$G(J, $@$^$H$a$H$7$FEj9F$7$^$9(J.
	($@CfN,(J)
>> $@$O$C$-$j$$$&$H(J :-O $@$3$l$O%P%0$G$9(J. kcl-low.lisp$@$N$J$+$G(J proclaim-method $@$H(J, 
>> $@$D$E$j$,4V0c$C$F$^$9(J.

>> $@$=$l$+$i(J, sys-proclaim.lisp $@$b8E$$$b$N(J$@$,F~$C$F$$$kMM$G$9(J. $@$3$l$O(J KCL $@$G(J
>> $@%3%s%Q%$%k$N:GE,2=$N$?$a$K4X?t$N7?$r@k8@$7$F$$$k%U%!%$%k$G(J, $@<+F0(J$@@8@.(J
>> $@$5$l$F$$$^$9(J. $@@8@.$7D>$9$K$O(J, $@BgBN0J2<$NMM$J<j=g$rF'$a$P$G$-$^$9(J.
	($@CfN,(J)
>> $@$h$/$o$+$i$J$+$C(J$@$?$i(J, $AKCLDIR/makefile $@$H$+(J $AKCLDIR/cmpnew/collectfn.lsp
>> $@$rD/$a$F2<$5$$(J. $@$=$l$G$b$o$+$i$J$+$C$?$i(J, 0$@%P%$%H$N(J sys-proclaim.lisp $@$G(J
>> $@BeMQ$7$F$b(J, $@<B9T8zN($,Mn$A$k$N$r2fK}$9$l$P0l1~F0:n$7$^$9(J($@$@$$$?$$(J, $@0JA0$N(J
>> $@%P!<%8%g%s$G$O4X?t$N7?$N@k8@$H$+$O$5$\$C$F$F$d$C$F$J$+$C$?$7(J)

$@$3$N>l$r<Z$j$F(J, $@86ED!w5~Bg(J$@$5$s$HAaLn!wL>9)Bg$5$s$K8fNi$r?=$7$"$2$?$$$H(J
$@;W$$$^$9(J. 

$@$^$?$J$K$+$"$C$?$i(J, $@$3$A$i(J NG $@$r$?$h$j$K$7$?(J$@$$$H;W$$$^$9$N$G(J, $@$h$m$7$/(J
$@$*4j$$$7$^$9(J.

$@$G$o$G$o(J
---
		$@6e=#9)6HBg3XBg3X1!>pJs9)3X8&5f2J>pJs2J3X@l96(J
			$@CNG=9)3X9V:B5HED(J($@Ur(J)$@8&!!#M#1(J
				$@9>NI(J $@9@0l(J
		k_era@pluto.ai.kyutech.ac.jp
From: ntp@isl.mei.co.jp (Naoya TAKAO)
Newsgroups: fj.lang.perl
Subject: Re: setjmp & longjmp
Date: 9 Apr 92 12:42:48 GMT
Article-I.D.: gabriel.NTP.92Apr9214248
	<ENAMI.92Apr9200646@kitt.sys.ptg.sony.co.jp>
Reply-To: ntp@isl.mei.co.jp
Distribution: fj
Organization: Matsushita Electric Industrial Ltd. Kadoma, Japan.
In-reply-to: enami@sys.ptg.sony.co.jp's message of 9 Apr 92 11:06:46 GMT

>>>>> $@$($J$_$5$s$N(J <1992$@G/(J4$@7n(J9$@F|(J20$@;~(J6$@J,(J46$@IC(J> $@$N(J(fj.lang.perl)$@$G$N5-;v(J
>>>>>  <ENAMI.92Apr9200646@kitt.sys.ptg.sony.co.jp> :

>  	$@>\$7$/(J$@$O%^%K%e%"%k(J eval $@$@$+(J die $@$@$+$N9`$+(J, $@$b$7$/$O(J FAQ $@$N(J
> 	    27)  How can I do an atexit() or setjmp()/longjmp() in Perl?
> 	$@$r;2>H$7$F$_$?$i$I$&$G$7$g$&$+(J?

$@;d$b5$$K$J$C$F(J FAQ $@$r8+$F$$$?$i:\$C$F$$$k$N(J$@$r8+$D$1$^$7$?!#(J
$@;d$,@h$K=P$7$?5-;v$G=q$$$?$$$$$+$2$s$JFbMF$OK:$l$F$/$@$5$$!#(J(_ _)

# $@$*OM$S$K!"$b$7(J perl $@$N(J FAQ $@$r%]%9%H$7$m$H$$$&%j%/%(%9%H$,B??t$"$j$^(J
# $@$7$?$i%]%9%H$$$?$7$^$9!#(J

$@9bHx(J $@D>Lo(J	ntp@isl.mei.co.jp
$@>>2<EE4o;:6H(J($@3t(J)$@>pJs%7%9%F%`8&5f=j(J
Newsgroups: fj.lang.perl,fj.lang.c
From: utashiro@InterTech.COM (Kazumasa Utashiro)
Subject: Re: Credit Card Expire
Followup-To: fj.lang.c
Organization: InterTech Data Systems, Inc., Cupertino, CA
Date: Thu, 9 Apr 1992 19:07:09 GMT

In article <274@resgw.research.co.jp>
	mac@resgw.research.co.jp (Shigeru Makino) writes:
>$B$G$b!"(Butsshiro$B$5$s$N$KHf$Y$?;~!"(BC$B$7$+J,$+$i$J$$;d$O!"(B
>$BB?>/!J2?8N$+!K@oXK$r3P$($^$7$?$N$G(B :-)
>$B<:Ni$J$,$i!"(Bhack$B$5$;$F$$$?$@$-$^$7$?!#(B

$B$8$c!"$D$$$G$J$N$G!"$h$$$3$O??;w$7$F$O$$$1$J$$%W%m%0%i%`$N8+K\(B

i, s, l;
main(c, v)
char **v;
{
	char *cp = c > 1 ? *++v : (char*)exit(1);
	for (s = 0, l = strlen(cp); (i = *cp++ - '0') >= 0; s += i)
		if (--l&1 && i <<= 1) i = i/10 + i%10;
	printf("%d\n", s);
}

--utsshiro ($B$"!"$$$D$N$^$K$+(B fj.living $B$,$J$/$J$C$F$k!D(B)
Xref: sparky fj.lang.perl:40 fj.living:1013
From: maechan@crl.mei.co.jp (MAEDA -Drake- Toshiyuki)
Newsgroups: fj.lang.perl,fj.living
Subject: Re: Credit Card Expire
Date: 8 Apr 92 03:37:29 GMT
Article-I.D.: puffin.MAECHAN.92Apr8123729
	<1992Apr6.111049.5441@gssm.otsuka.tsukuba.ac.jp>
	<1992Apr6.185936.17336@InterTech.COM>
Followup-To: fj.lang.perl
Organization: Matsushita Electric Industrial Co.,Ltd.
In-reply-to: utashiro@InterTech.COM's message of 7 Apr 1992 03:59:36 JST

$@$^$($@!s$b$&$$$/$D$M$k$H!D!J0UL#ITL@!K!w$Q$J$=$K$C$/(J $@$G$9!#(J

## 7 Apr 1992 03:59:36 JST $@:"$K!"(J
## $@%a%C%;!<%8#I#D(J <1992Apr6.185936.17336@InterTech.COM> $@$G!"(J
## utashiro@InterTech.COM (Kazumasa Utashiro) $@$5$s(J ( as "utsshiro" ) $@[)$/!'(J
>AMEX$@$N$h$&$K!"7e?t$,4q?t$N$b$N$@$H$&$^$/F/$+$J$$$h$&$G$9!#(J
utsshiro> $@$J$k$[$I!"$=$l$G!V1&$+$i?t$($F!W$H$$$&$3$H$@$C$?$N$G$9$+!#;E(J
utsshiro> $@MM$r>!<j$K2r<a$7$F$O$$$1$J$$$H$$$&$h$$6571$G$7$?!#$G$O!"(J

 $@$*$J$B$/!#(J(;^_^)$@$H$$$&$3$H$G!"(J
$@!>!>!>$3$3$+$i!>!>!>(J
/*
@(#)* Copyright by Matsushita Electric Industrial Co.,Ltd. (1992)
@(#)* made 1st. on 03.Apr.'92
@(#)* modefied on 07.Apr.'92
@(#)* by Toshiyuki MAEDA (maechan@crl.mei.co.jp)
A_B_S_T_R_A_C_T
 This is a simple program for calculating check-sum for cradit-cards.
;;
*/
main (argc, argv)
int	argc;
char *argv[];
{
	int cnt, sum, length;
	if (argc != 2) {
		printf("Usage: check-sum <card No.>\n");
		exit (1);
	}
	sum = 0;
	length = strlen(argv[1]);
	for (cnt = length-1;cnt >= 0;cnt--) {
		sum += ((length - cnt ) % 2)
		? (argv[1][cnt] - '0')
		: translate(argv[1][cnt] - '0');
	}
	printf("%d\n",sum);
	exit (0);
}
int translate(i)
int i;
{
	switch  (i) {
	case 0: return 0;
	case 1: return 2;
	case 2: return 4;
	case 3: return 6;
	case 4: return 8;
	case 5: return 1;
	case 6: return 3;
	case 7: return 5;
	case 8: return 7;
	case 9: return 9;
	}
}
$@!>!>!>$3$3$^$G!>!>!>(J
utsshiro> $@$"$$$K$/$H(J AMEX $@$N%+!<%I$O;}$C$F$$$J$$$N$G!"4q?t7e$N%F%9%H$O(J
utsshiro> $@$7$F$$$^$;$s!#(J

 $@$*$J$B$/!#(J(;^_^)(;^_^)		$@$^$($@!w$Q$J$=$K$C$/(J
From: ntp@isl.mei.co.jp (Naoya TAKAO)
Newsgroups: fj.lang.perl
Subject: Re: setjmp & longjmp
Date: 9 Apr 92 09:23:47 GMT
Reply-To: ntp@isl.mei.co.jp
Distribution: fj
Organization: Matsushita Electric Industrial Ltd. Kadoma, Japan.
In-reply-to: kazu@csrd.nkk.co.JP's message of 8 Apr 92 00:05:23 GMT

>>>>> $@$J$+$`$i$5$s$N(J <1992$@G/(J4$@7n(J8$@F|(J9$@;~(J5$@J,(J23$@IC(J> $@$N(J(fj.lang.perl)$@$G$N5-;v(J
>>>>>  <KAZU.92Apr8090523@ribbon.csrd.nkk.co.JP> :

> perl$@$G(JSubject:$@$K=q$$$F$"$k$h$&$JBg0hC&=P$r$7$?$$$N$G$9$,!"$I!<(J$@$9$l$PNI(J
> $@$$$N$+NI$/H=$j$^$;$s!#(J

$@$$$^0l$D<+?.$,$J$$$N$G$9$,!"C!$-Bf$K$7$F$/$@$5$$!#(J

SIGINT $@$G<B9T$5(J$@$l$k%5%V%k!<%A%sFb$G(J redo $@$r9T$$!"%V%m%C%/@hF,$+$i:F<B(J
$@9T$9$k$N$O$I$&$G$7$g$&$+!#(J

$@%$%a!<%8$H$7$F$O!"(J$@!V%V%m%C%/$KF~$k$3$H!W$,(J setjmp $@$G!"(J'redo' $@$,(J 
longjmp $@$N$h$&$J$b$N$@$H;W$C$F$$$^$9!#(J

$@9bHx(J $@D>Lo(J	ntp@isl.mei.co.jp
$@>>2<EE4o;:6H(J($@3t(J)$@>pJs%7%9%F%`8&5f=j(J

$@%5%s%W%k"-(J
######################################################################
#!/usr/local/bin/perl

sub sigint {
    redo loop;
}

$SIG{'INT'} = 'sigint';

loop: {
    local($a) = ('default');
    print "\n";
    for($i=0 ; $i<100 ; $i++) {
	print "$a:enter key->";
	$a = <STDIN>;
	last loop if ($a eq '');
	chop $a;
        # $@F~NO$KBP$9$k=hM}!D(J
    }
}

$SIG{'INT'} = 'DEFAULT';

#....
Newsgroups: fj.lang.perl
From: kazu@csrd.nkk.co.JP (Kazunari "ISSEY" Nakamura)
Subject: Re: setjmp & longjmp
Organization: Computer System Research Group, Div. of Elec. Lab., NKK
	Corporation, Kawasaki, JAPAN
	<ENAMI.92Apr9200646@kitt.sys.ptg.sony.co.jp>
Distribution: fj
Date: Fri, 10 Apr 1992 00:24:47 GMT

$@$_$J$5$sAGAa$$(J$@%U%)%m!<$"$j$,$H$&$4$6$$$^$9!#(J

In article <ENAMI.92Apr9200646@kitt.sys.ptg.sony.co.jp> enami@sys.ptg.sony.co.jp (enami tsugutomo) writes:

 |> perl$@$G(JSubject:$@$K=q$$$F$"$k$h$&$JBg0hC&=P$r$7$?$$$N$G$9$,!"(J$@$I!<$9$l$PNI(J
 |> $@$$$N$+NI$/H=$j$^$;$s!#(J
 |	  $@<+J,$G;H$C$?$3$H$O$J$$$s$G$9$,(J, $@%^%K%e%"%k$H$+(J comp.lang.perl
 |	  $@$KN.$l$F$$$k(J FAQ $@$K$O(J eval $@$H(Jdie $@$,;H$($k$C$F=q$$$F$"$j$^$9$M(J.

$@$&$%$`!#;d$,(Jcomp.lang.perl$@$r$-$A$s$HFI$s$G$$$J$$$N$,$P$l$F$7$^$$$^$7$?(J
$@$M!#$$$D$b$O?7$7$$%Q%C%A$,N.$l$F$$$J$$$+$7$+%A%'%C%/$7$F(J$@$$$J$$$b$N$G!D(J

 |	  $@>\$7$/$O%^%K%e%"%k(J eval $@$@$+(J die $@$@$+$N9`$+(J, $@$b$7$/$O(J FAQ $@$N(J
 |	      27)  How can I do an atexit() or setjmp()/longjmp() in Perl?
 |	  $@$r;2>H$7$F$_$?$i$I$&$G$7$g$&$+(J?

comp.lang.perl$@$r8+$F$_$?$N$G$9$,(JFAQ$@$O(Jexpire$@$5$l$F$$$^$7$?!#;EJ}$,$J$$(J
$@$N$G%^%K%e%"%k$b8+$F$_$?$i=q$$$F$"$j$^$7$?!#(J

$@$5$C$=$/(Jeval$@$H(Jdie$@$G=q$$$F$_$?$i$"$C$5$j=PMh$F$7$^$$$^$7$?!#(J

$@$I$&$b!"3'$5$s$"$j$,$H$&$4$6$$$^$7$?!#(J
--
$@$J$+$`$i!w#N#K#K!'(JIFML#30 EtQlair#220756 TokyoTowers#10 $@$^$k(J#7 $@#1#9:P(J#12
$@#Q#l#a#i#r>pJs!'(J4/19$@"*(JCLUB CITTA$@$K(JLIVE, 5/21$@"*(J4th CDS$@!VbA$7$/$F!W(J<SR>$@H/Gd!*(J
From: mac@resgw.research.co.jp (Shigeru Makino)
Newsgroups: fj.lang.perl
Subject: Re: Credit Card Expire
Date: 9 Apr 92 09:39:09 GMT
    <1992Apr6.185936.17336@InterTech.COM>
    <MAECHAN.92Apr8123729@puffin.crl.mei.co.jp>
Organization: Research Inc., Saitama, Sakado, Japan.

In article <MAECHAN.92Apr8123729@puffin.crl.mei.co.jp>
    maechan@crl.mei.co.jp (MAEDA -Drake- Toshiyuki) writes:
>$B$^$($@!s$b$&$$$/$D$M$k$H!D!J0UL#ITL@!K!w$Q$J$=$K$C$/(J $B$G$9!#(J
...
> $B$*$J$B$/!#(J(;^_^)$B$H$$$&$3$H$G!"(J

$B!J3t!K%j%5!<%A$NKRLn$G$9!#(J

$BAaB.;H$o$;$F$$$?$@$$$F$^$9!#(J
quick hack$B$K$O!"7II~$7$^$9(J (_o_)

$B$G$b!"(Jutsshiro$B$5$s$N$KHf$Y$?;~!"(JC$B$7$+J,$+$i$J$$;d$O!"(J
$BB?>/!J2?8N$+!K@oXK$r3P$($^$7$?$N$G(J :-)
$B<:Ni$J$,$i!"(Jhack$B$5$;$F$$$?$@$-$^$7$?!#(J
/*
@(#)* Copyright by Matsushita Electric Industrial Co.,Ltd. (1992)
@(#)* made 1st. on 03.Apr.'92
@(#)* modefied on 07.Apr.'92
@(#)* by Toshiyuki MAEDA (maechan@crl.mei.co.jp)
@(#)* modefied on 09.Apr.'92
@(#)* by Shigeru Makino (mac@research.co.jp)
A_B_S_T_R_A_C_T
 This is a simple program for calculating check-sum for cradit-cards.
;;
*/
static char trans_tab[] = { 0, 2, 4, 6, 8, 1, 3, 5, 7, 9 };

void
main (argc, argv)
int argc;
char *argv[];
{
	int c, cnt, sum, length;
	register char *p;

	if (argc != 2) {
		printf("Usage: check-sum <card No.>\n");
		exit (1);
	}

	p = argv[1];
	length = strlen(p);
	p = &p[length-1];

	sum = 0;
	for (cnt = 0; cnt < length; cnt++, p--) {
		c = *p - '0';
		sum += (cnt & 1) ? trans_tab[c] : c;
	}
	printf("check-sum = %d\n",sum);
	printf("It's %s.\n", (sum % 10 == 0) ? "genuine" : "spurious");
	exit (0);
}
--
$B!J3t!K%j%5!<%A(J Tel:0492-89-0721  Fax:0492-89-0779
                                    $BKRLn!!HK(J
From: kim@gssm.otsuka.tsukuba.ac.jp (Kim Tong Ho)
Newsgroups: fj.lang.perl
Subject: Re: Credit Card Expire
Date: 6 Apr 92 11:10:49 GMT
Organization: GSSM Otsuka, Univ. of TSUKUBA, Tokyo, Japan

utashiro@InterTech.COM (Kazumasa Utashiro) writes:

>#!/usr/local/bin/perl
>grep($s += $i++%2 ? $_ : ($_*=2) && /(\d)?(\d)/ && $1+$2, shift=~/\d/g);
>print "$s\n";

AMEX$B$N$h$&$K!"7e?t$,4q?t$N$b$N$@$H$&$^$/F/$+$J$$$h$&$G$9!#(J

--
$B6b(J $BEl8W(J
Newsgroups: fj.lang.perl
From: kaoru@is.s.u-tokyo.ac.jp (Kaoru MAEDA)
Subject: Re: setjmp & longjmp
Reply-To: kaoru@is.s.u-tokyo.ac.jp
Organization: Dept. of Information Science, Univ. of Tokyo, Japan.
Distribution: fj
Date: Thu, 9 Apr 1992 10:09:35 GMT
X-Bytes: 771

In article <KAZU.92Apr8090523@ribbon.csrd.nkk.co.JP>
	kazu@csrd.nkk.co.JP (Kazunari "ISSEY" Nakamura) writes:

 >perl$@$G(JSubject:$@$K=q$$$F$"$k$h$&$JBg0hC&=P$r$7$?$$$N$G$9$,!"$I!<$9$l$PNI(J
 >$@$$$N$+NI$/H=$j$^$;$s!#(J
 >
 >$@$H$"$kBP(J$@OC7?$N%3%^%s%I%$%s%?%W%j%?$r:n$C$F$$$^$7$F!"%3%^%s%I<B9TCf$K3d(J
 >$@$j9~$_%7%0%J%k$,H/@8$7$?;~$K%3%^%s%I(J$@F~NOBT$A$KLa$7$?$$$N$G$9!#(J

Perl $@$N(J goto $@$OBg0hE*$KF0$1$k$H;W$$$^$9!#(J

hoehoe: while (1) {
    print ++$i;
    &whee;
    print "---\n";
    exit(0) if $i == 8;
}

sub whee {
    goto hoehoe if $i == 3;
}
--
----------------------------------------
 $@A0ED(J  $@70(J      kaoru@is.s.u-tokyo.ac.jp
 $@El5~Bg3XBg3X1!(J$@M}3X7O8&5f2J>pJs2J3X@l96(J
----------------------------------------
Newsgroups: fj.lang.perl,fj.living
From: utashiro@InterTech.COM (Kazumasa Utashiro)
Subject: Re: Credit Card Expire
Organization: InterTech Data Systems, Inc., Cupertino, CA
Date: Mon, 6 Apr 1992 18:59:36 GMT

In article <1992Apr6.111049.5441@gssm.otsuka.tsukuba.ac.jp>
	kim@gssm.otsuka.tsukuba.ac.jp (Kim Tong Ho) writes:
>>grep($s += $i++%2 ? $_ : ($_*=2) && /(\d)?(\d)/ && $1+$2, shift=~/\d/g);
>>print "$s\n";
>
>AMEX$B$N$h$&$K!"7e?t$,4q?t$N$b$N$@$H$&$^$/F/$+$J$$$h$&$G$9!#(B

$B$J$k$[$I!"$=$l$G!V1&$+$i?t$($F!W$H$$$&$3$H$@$C$?$N$G$9$+!#;E(B
$BMM$r>!<j$K2r<a$7$F$O$$$1$J$$$H$$$&$h$$6571$G$7$?!#$G$O!"(B

grep($s += ++$i%2 ? $_ : ($_*=2)&&/(\d)?(\d)/&&$1+$2, reverse(shift=~/\d/g));

grep($s += ($_<<=!($i^=1)) && /(.)?(.)/ && $1+$2, reverse(shift=~/\d/g));

$_=reverse(shift); s/(.)(.)/$1.$2*2/ge; $s+=$& while s/.//;

$B$"$$$K$/$H(B AMEX $B$N%+!<%I$O;}$C$F$$$J$$$N$G!"4q?t7e$N%F%9%H$O(B
$B$7$F$$$^$;$s!#(B

--utashiro
From: kumon@asami.stars.flab.Fujitsu.co.jp (Kouichi Kumon)
Newsgroups: fj.lang.perl
Subject: goto(Re: setjmp & longjmp)
Date: 10 Apr 92 09:50:49 GMT
	<1992Apr9.100938.569@kei.is.s.u-tokyo.ac.jp>
Reply-To: kumon@flab.fujitsu.co.jp
Distribution: fj
Organization: Fujitsu Laboratories Ltd., ...
In-reply-to: kaoru@is.s.u-tokyo.ac.jp's message of 9 Apr 92 10:09:35 GMT

$BIY;NDL8&$N5WLg$G$9!#(J

In article <1992Apr9.100938.569@kei.is.s.u-tokyo.ac.jp> kaoru@is.s.u-tokyo.ac.jp (Kaoru MAEDA) writes:

 |Perl $B$N(J goto $B$OBg0hE*$KF0$1$k$H;W$$$^$9!#(J

perl$B$N(Jgoto$B$OM>$j;H$o$J$$J}$,NI$$$H;W$$$^$9$h!#(J
	$B!V%^%K%e%"%k$K$b(Jlwall$B$,(Jawk/sed$B$+$i$N%H%i%s%9%l!<%?$N$?$a$KF~$l$?(J
	  $B$$$D;EMMJQ99$7$F$bJ86g8@$o$J$$$h$&$K!W(J
$B$H8@$C$?<q;]$N;v$,=q$$$FM-$k$7!"$=$l0J>e$K<!$N$h$&$JLdBj$,M-$j$^$9!#(J

kk:
print "enter foreach\n";
foreach (0..10) {
    print "$_\n";
    goto kk if ($_ == 5);
}
$B$3$N%W%m%0%i%`$O!"0l8+Dd;_$7$J$$%W%m%0%i%`$J$N$G$9$,!"(J
$B$^$"!"<B9T$7$F8+$F2<$5$$!#(J

$B$I$&$b!"(Jgoto$B$G(Jblock$B30$KC&=P$7$?;~$N=hM}$,4|BTDL$j$G$J$$$h$&$G$9!#(J

$B$=$l$,>Z5r$K(J

$l = "outside";
kk:
print "$l\n";
{
    local($l)="inside";
    goto kk;
}

$B$3$l$b:G=i$N(Jprint$B$r=|$$$F!"(J$l=inside$B$K$J$jB3$1$^$9!#(J
($BAv$i$;$k;~$K$O%Q%$%W$G8e$m$K(Jmore/head$B$J$I$r$+$^$;$F8+$F2<$5$$!K(J

goto$B$OC&=P$7$F$$$J$$$N$G$9!#$?$@Ht$s$G$$$k$@$18+$?$$!#(J
--

			$B5WLg9L0l!w?M9)CNG=8&5fIt(J.$BIY;NDL8&5f=j(J
						044-754-2665(dial-in)
						044-754-2664(fax)
			kumon@flab.fujitsu.co.jp
From: enami@sys.ptg.sony.co.jp (enami tsugutomo)
Newsgroups: fj.lang.perl
Subject: Re: setjmp & longjmp
Date: 9 Apr 92 11:06:46 GMT
Distribution: fj
Organization: Sony Corp. Production Technology Development Grp. R&D Div.
In-reply-to: kazu@csrd.nkk.co.JP's message of 8 Apr 92 00:05:23 GMT

In article <KAZU.92Apr8090523@ribbon.csrd.nkk.co.JP>,
	kazu@csrd.nkk.co.JP (Kazunari "ISSEY" Nakamura) writes:

> perl$@$G(JSubject:$@$K=q$$$F$"$k$h$&$JBg0hC&=P$r$7$?$$$N(B$@$G$9$,!"$I!<$9$l$PNI(B
> $@$$$N$+NI$/H=$j$^$;$s!#(B

	$B<+J,$G;H$C$?$3$H$O$J$$(B$B$s$G$9$,(B, $B%^%K%e%"%k$H$+(B comp.lang.perl
 	$B$KN.$l$F$$$k(B FAQ $B$K$O(B eval $B$H(Bdie $B$,;H(B$B$($k$C$F=q$$$F$"$j$^$9$M(B.
 	$B>\$7$/$O%^%K%e%"%k(B eval $B$@$+(B die $B$@$+$N9`$+(B, $B$b$7$/$O(B FAQ $B$N(B
	    27)  How can I do an atexit() or setjmp()/longjmp() in Perl?
	$B$r;2>H$7$F(B$B$_$?$i$I$&$G$7$g$&$+(B?

$B$($J$_(B $B$D$0$H$b(B / $B%=%K!<(B
From: kazu@csrd.nkk.co.JP (Kazunari "ISSEY" Nakamura)
Newsgroups: fj.lang.perl
Subject: setjmp & longjmp
Date: 8 Apr 92 00:05:23 GMT
Distribution: fj
Organization: Computer System Research Group, Div. of Elec. Lab., NKK
	Corporation, Kawasaki, JAPAN

perl$@$G(JSubject:$@$K=q$$$F$"$k$h$&$JBg0hC&=P$r$7$?$$$N$G$9$,!"$I!<$9$l$PNI(J
$@$$$N$+NI$/H=$j$^$;$s!#(J

$@$H$"$kBPOC7?$N%3%^%s%I%$%s%?%W%j%?$r:n$C$F$$$^$7$F!"%3%^%s%I<B9TCf$K3d(J
$@$j9~$_%7%0%J%k$,H/@8$7$?;~$K(J$@%3%^%s%IF~NOBT$A$KLa$7$?$$$N$G$9!#(J
--
$@$J$+$`$i!w#N#K#K!'(JIFML#30 EtQlair#220756 TokyoTowers#10 $@$^$k(J#7 $@#1#9:P(J#12
From: yas@gama.is.tsukuba.ac.jp (Yasushi Shinjo)
Newsgroups: fj.lang.c
Subject: Re: Type of functions that return a pointer to self
Date: 13 Apr 92 20:37:08 GMT

$@?7>k!wC^GHBg3X$G$9!#$3$s$K$A$O!#(J

From article <CHIK.92Apr13130919@ss38.icot.or.jp>,
	by chik@icot.or.jp (Takashi Chikayama):
> C $@$G<+J,$HF1$8$h$&$J4X?t$X$N%]%$%s%?$rJV$94X?t$C$F(J, $@$I$&=q$1$PNI$$$N$G(J
> $@$7$g$&(J.  $@=q$-$?$$$N$O(J:
> 	typedef functype (functype *)();
> $@$NITF0E@$K$J$C$F$$$k$h$&$J$b$N$J$s$G$9$,(J.

$@LLGr$$LdBj$G$9$M!#!J$I$&$$$&1~MQ$K;H$&$N$+$J!#!K(J

$@#C8@8l$G$O!"(Jstruct xxx * $@$N$h$&$J=j$G7?$N:F5"$,$G$-$^$9!#(J
$@MWAG$,#18D$7$+$J$$9=B$BN$H$$$&$N$bJQ$G$9$,!"<!$N$h$&$K$9$k$H(J
$@=q$1$^$9!#(J

struct func
{
	struct func	(*x)();
};

> $@KvHx8F=P$7(J (return f() $@$_$?$$$J$N(J) $@$r(J jump $@$K:GE,2=$7$F$/$l$J$$(J C $@8@8l(J
> $@=hM}7O(J ($@:GE,2=$7$F$/$l$k$N$O$R$H$D$b$*L\$K$+$+$C$F$$$J$$$N$G$9$,(J) $@$G(J,
> $@$J$s$H$+%9%?%C%/$r?-$P$5$:$KKvHx8F=P$7$5$;$?$/$F(J, continuation $@$rCM$H(J
> $@$7$FJV$5$;(J:
> 	functype f = $@=i4|CM(J;
> 	while (1) f = (*f)();
> $@$H$+$d$j$?$+$C$?$s$G$9$,(J

$@>e$N9=B$BN$r;H$($P!"$G$-$^$9!#$3$N5-;v$NKvHx$KIU$1$^$9!#(J
$@%^%/%m$r;H$C$F>/$7$*^/Mn$K=q$$$F$_$^$7$?!#(J

>($@:G8e$OL5O@(J longjmp $@$GH4$1$k(J).

$@$($C$H!"(Jlongjmp $@$r;H$&$J$i!"(J

$@!!!!!&%9%?%C%/$,?-$S$k$N$r5$$K$7$J$$(J

$@$H$$$&<j$,$"$j$^$9!#(Jlongjmp $@$GLa$k$H!"%9%?%C%/$r=L$a$kA`:n$,(J
$@$J$$J,$@$1B.$/$J$k$3$H$,$"$j$^$9!#$b$C$H$b!"%9%?%C%/$,?-$S2a(J
$@$.$F!"%Z!<%8%U%)!<%k%H5/$3$7$?F|$K$O!"6KC<$KCY$/$J$j$^$9$,!#(J
$@$"$H!"%9%?%C%/$r=L$a$J$$$H%o!<%-%s%0%;%C%H$,Bg$-$/$J$C$F!"%-%c%C(J
$@%7%e$,8z$+$J$/$J$C$FCY$/$J$C$?$j$9$k$+$b$7$l$^$;$s!#(J

$@!@!@!!?7>k!!Lw!!!J$7$s$8$g$&!!$d$9$7!K!!!@!@(J
$@!@!@!!C^GHBg3X!!EE;R!&>pJs!!!!!!!!!!!!!!!@!@(J

------------------------------------------------------------

struct func
{
	struct func	(*x)();
};
#define	cont( next )	{ struct func v ; v.x = next; return( v ); }

extern	struct func f(),g(),h();

struct func f()
{
	printf("This is f.\n");
	cont( g );
}

struct func g()
{
	printf("This is g.\n");
	cont( h );
}

struct func h()
{
	printf("This is h.\n");
	cont( 0 );
}

main()
{
    struct func v ;
	v.x = f ;
	while( v.x )
	    v = (*v.x)();
}
From: furuta@srarc2.sra.CO.JP (Atsushi Furuta)
Newsgroups: fj.lang.c
Subject: Re: Type of functions that return a pointer to self
Date: 13 Apr 92 05:52:14 GMT
Distribution: fj
Organization: Software Research Associates, Inc., Japan


  $B8EED!w(BSRA$B$H?=$7$^$9!#%-%c%9%H$r;H$C$FNI$$$J$i!"(B

	typedef void (voidfunc *)();
	typedef voidfunc (functype *) ();

$B$H$7$F$*$$$F!"(B

	functype f = $B=i4|CM(B;
	while (1) f = (functype) (*f)();

$B$G9=$o$J$$$N$G$O!)(B
--------
furuta@sra.co.jp ($B8EEDFX(B)                    $B#S#R#A@hC<5;=Q3+H/It(B
From: atumi@nara.sbc.sharp.co.jp (Atsumi Kensi)
Newsgroups: fj.lang.c
Subject: Re: Jyoho-shori siken
Date: 8 Apr 92 03:46:09 GMT
Distribution: fj
Organization: Sharp Business Computer Software Inc., Nara, Japan.
In-reply-to: tazawa@msisun.msi.co.jp's message of 6 Apr 92 04:43:10 GMT

$B8|8+!w#S#B#C$G$9!#(J

>>>>> "$BED_7$5$s(J" == tazawa  <tazawa@msisun.msi.co.jp> writes:

$BED_7$5$s(J> $B:#G/$N#1#07n$+$i$N>pJs=hM}5;=Q<T;n83$G!$(J
$BED_7$5$s(J> $B#C8@8l$,A*Br$G$-$k$h$&$K$J$k$H$$$&%&%o%5$rJ9$$$?$N$G$9$,!$(J
$BED_7$5$s(J> $BK\Ev$G$7$g$&$+!%(J

  $B#3!?#3#0$NF|7P$NFbMF$K$h$k$H!"<oJL$O#1<o!"#2<o$,BP>]$H$7!"#1#07n$N;n(J
$B83$+$i=g<!F3F~M=Dj$@$=$&$G$9!#8@8l;EMMEy$N>\:Y$O#67nH/9T$N41Js$K7G:\M=(J
$BDj$@$=$&$G$9!#(J

$BED_7$5$s(J> $B$I$J$?$+!$$3$l$K4X$9$k>pJs$r$*CN$j$NJ}!$65$($F$/$@$5$$!%(J
$BED_7$5$s(J> $B!J:#=U$N?7?M650i7W2h$r8+D>$5$J$$$H$$$1$J$$$+$J!)!K(J

  $B$&$A$O!"$[$H$s$I$N3+H/$,%"%;%s%V%i$+#C$@$+$i%i%C%-!<$+$J!*!)(J
--
				-----------------------------------------
				  $B8|8+(J $B8%;V!w#S#B#C(J 
				  E-Mail: atumi@nara.sbc.sharp.co.jp
From: bizenya@coins.is.tsukuba.ac.jp (Katsujiroh NAKANO)
Newsgroups: fj.lang.c
Subject: [C++]'template'
Date: 8 Apr 92 18:34:17 GMT
Distribution: fj
Organization: Coll. Of Info. Sci., U. of Tsukuba, Tsukuba-City, Ibaraki, Japan.

$@CfLn!wC^GHBg3X>pJs3XN`$G$9!#(J

gcc2.1$@$r;H$C$F$$$^$9$,!"(J
template$@5!G=$K$D$$$F!"$A$g$C$H$@$1<ALd$5$;$F(J$@2<$5$$!#(J

template$@5!G=$r;H$C$F(Jlibrary$@$r:n$k:]$K!"(J
member function $@Ey$rJ,3d(Jcompile$@$9$k$3$H$O$G$-$J$$$N(J$@$G$7$g$&$+!#(J

$@Nc$($P!"<!$N$h$&$J(Jsource$@$,$"$C$?$H$7$^$9!#(J
//temp.h

template <class T>
class Number{
    T a;
  public:
    Number(T _a);
    T plus(T b);
};

//temp.C

#include "temp.h"

template <class T> Number<T>::Number(T _a){
    a = _a;
}

template <class T> T Number<T>::plus(T b){
    return a+b;
}

//temp2.C

#include <iostream.h>
#include "temp.h"

main(){
    Number<int> a(3);
    cout << a.plus(3) << endl;
}

$@$3$l$r(Jcompile$@$9$k$H!"(J

 % g++ temp.C temp2.C
ld: Undefined symbol 
   ___t6Number1Zii 
   _plus__t6Number1Zii 
collect: /usr/bin/ld returned 2 exit status

$@$H$J$C$F$7$^$$$^$9!#(J
$@$3$l$O(J$@!";EMM$H$7$F$3$&$J$C$F$$$k$N$G$7$g$&$+!)(J
$@$=$l$H$b!"(Jgcc$@$O!"$^$@40`z$K(Jsuport $@$7$F$$$J$$$N$G$7$g$&$+!#(J

Stroustrup's 2nd Edition $@$O$3$&$$$&5-=R$O2DG=$G$"$k$H(J
$@=q$$$F$"$k$H;W$$$^$9$,!#(J
From: toshi@nml.t.u-tokyo.ac.jp (Toshio -Koutaishi- HORI)
Newsgroups: fj.lang.c
Subject: Re: Jyoho-shori siken
Date: 8 Apr 92 16:52:44 GMT
	<ATUMI.92Apr8124609@sbcmis.nara.sbc.sharp.co.jp>
Distribution: fj
Organization: Nagao&Mitsuishi Lab., Dept. of Mechanical Engineering, Univ. of
	Tokyo, Japan.

$@$I$b$I$b!"KY!wElBg5!3#$G$9(J$@!#(J

In article <ATUMI.92Apr8124609@sbcmis.nara.sbc.sharp.co.jp>
	atumi@nara.sbc.sharp.co.jp (Atsumi Kensi) writes:

$@ED_7$5$s(J> $@:#G/$N#1#07n$+$i$N>pJs=hM}5;=Q<T;n83$G!$(J
$@ED_7$5$s(J> $@#C8@8l$,A*Br$G$-$k$h$&$K$J(J$@$k$H$$$&%&%o%5$rJ9$$$?$N$G$9$,!$(J
$@ED_7$5$s(J> $@K\Ev$G$7$g$&$+!%(J
$@8|8+$5$s(J>  $@#3!?#3#0$NF|7P$NFbMF$K$h$k$H!"(J$@<oJL$O#1<o!"#2<o$,BP>]$H$7!"#1#07n$N;n(J
$@8|8+$5$s(J>$@83$+$i=g<!F3F~M=Dj$@$=$&$G$9!#8@8l;EMMEy$N>\:Y$O#67nH/(J$@9T$N41Js$K7G:\M=(J
$@8|8+$5$s(J>$@Dj$@$=$&$G$9!#(J

$@BP>]$,#1<o$H#2<o$C$F$$$&$N$OEvA3$G$9$h$M!)%*%s%i%$%s!?FC<o!?(J$@%7%9%F%`4F(J
$@::$K$O%W%m%0%i%`8@8l$NFbMF$d%W%m%0%i%_%s%0$K$D$$$F$I$&$N$3$&$N!"$H$$$&(J
$@=PBj$O$"$j$^$;$s$+$i(J$@!#(J

$@$^$:$O#1#07n$N#2<o$G;n9T$7$F!"$=$NMM;R$r8+$F#47n$N#1<o!?#2<o$K$b!%!%!%$C(J
$@$F$$$&46$8$J$N$G$7$g$&$+(J$@!)#1#07n$N=PMh$r8+$F:#8e$N=PBj%l%Y%k$rJQ$($k$H(J
$@$+!)$G$b!"$=$&$J$k$H:#EY$N=)$N;n83$OFq$7$$$+4JC1$+$N$I(J$@$A$i$+4s$j$K$J$C(J
$@$F$7$^$$$=$&$J5$$b$9$k$s$G$9$,!#(J

$@$^$!!"#2<o$N>l9g$O!"$=$N>l$G$$$m$$$m$J8@8lA*$Y$^$9(J$@$+$i$M!##1<o$O:GDc%"(J
$@%;%s%V%i$,I,=$$G$9$,!#$b$7#C$,2r$1$=$&$K$J$+$C$?$i#F#o#r#t#r#a#n$K$7$F(J
$@$7$^$&$3$H(J$@$b$G$-$^$9$7!J$3$N0lJ8$OCc!9$G$9(J :-p$@!K!#KM$O#C#O#B#O#L$OA4A3(J
$@J,$+$j$^$;$s$,!"#F#o#r#t#r#a#n$OBg3X#3G/(J$@$N;~$K<x6H$G=,$C$?CN<1!\A0F|$N(J
$@#1;~4V$NJY6/$G2r$1$F$7$^$$$^$7$?!#(J

$@!tKM$,#2<o<u$1$?;~$K$O!"$I$&$7$F$b(J$@%"%;%s%V%i$N#1Ld$,G<F@$$$/2rEz$,=q$1(J
$@!t$:!JIb$+$P$:!)(J:-)$@!K!"#2Ld%"%;%s%V%i!\#1Ld#F#o#r#t#r#a#n$K$7$^$7(J$@$?(J:-p

$@!t!tBg3X#4G/$N=)$K#2<o!J#4#8;~4V!K!"=$;N#1G/$N=U$K#1<o!J#2#4;~4V!K!"=$(J
$@!t!t;N#1G/$N=)$K%*%s%i%$(J$@%s!J#1#5;~4V!K$K<u$+$C$?$N$OKM(J:-)$@!J;~4V$O$=$l(J
$@!t!t$>$l$N=`Hw$KHq$d$7$?JY6/;~4V!K!#:#G/!J=)!K$OG/Np@)8B(J$@$GFC<o$O<u$1$i(J
$@!t!t$l$J$$$N(J ;-)

$@$G$O$G$O!#(J

--
--->> $@KY!!=SIW(J@$@El5~Bg3XBg3X1!9)3X7O8&5f2J;:6H5!3#9)3X(J$@@l96(J
               $@D9Hx!&8w@P8&5f<<(J  $@=$;N#2G/(J
      $@!{(JFrom$@9T$K?<$$0UL#$O$4$6$$$^$;$s!#(J:-)$@!J$$!K!_#4!J(J$@$5!K!_#2!J>]!K!_#1(J
      E-MAIL : toshi@nml.t.u-tokyo.ac.jp                 <<---