🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.sources.d
Article #97

Re: Message separated Rogue-clone II (1/6)

#97
From: Hiroshi Inoue
Date: Mon, 28 Sep 1992 03:23
143 lines
5668 bytes
$@!!0f>e!w#S#H#A#R#P$G$9!#(J
fj$@=iEj9F$J$N$G!"IT<j:]$,$"$k$+$bCN$l$^$;$s$,!"$J$K$H$>8fMF<O$N$[$I$r!#(J


$@!!$5$F!"@hF|%]%9%H$5$l$?(JMessage separated Rogue-clone II (1/6)$@!A(J(6/6)
$@$G$9$,!"#X#6#8#k$K$F%3%s%Q%$%k!"<B9T$7$F$_$?$H$3$m!"$$$/$D$+%P%0$H;W$o(J
$@$l$k2U=j$r8+$D$1$^$7$?$N$GJs9p$7$^$9!#(J


$@#1!%(Jctrl-R $@$K$h$k2hLL$N:FIA2h$,!"%b%N%/%m$G9T$J$o$l$F$7$^$&!#(J


$@!!!!D4$Y$F$_$?$H$3$m!"(Jcurses.c $@Fb$N(Jwrefresh()$@4X?t$N=hM}$K$*$$$F!"(J

        put_st_char((unsigned char) p[col++]);

$@!!!!$N$h$&$K(J unsigned char$@$K%-%c%9%H$7$F$$$k$?$a!"%+%i!<>pJs$,%+%C%H$5(J
$@!!!!$l$F2hLL=PNO$5$l$F$7$^$&$3$H$,H=$j$^$7$?!#%-%c%9%H$r9T$J$o$J$$$h$&(J
$@!!!!$K$9$l$P$&$^$/$$$-$^$9!#(J

$@!!!!$3$N8=>]$O!"#X#6#8#k$K8B$i$:!"B>$N%^%7%s$G$b!"(J-DCOLOR,-DCURSES$@$r;X(J
$@!!!!Dj$7$F%3%s%Q%$%k$7$?>l9g$KH/@8$9$k$N$G$O$J$$$+$H;W$o$l$^$9!#(J


$@#2!%!H6uJ"!I!$!H522n!I$J$I$NI=<($,$*$+$7$/$J$k!#(J


$@!!!!$3$l$O!"(Jcurses.c $@$N(Jrefresh()$@4X?t$,!"#2%P%$%HJ8;z$K$D$$$F9MN8$;$:$K!"(J
$@!!!!C1=c$K(Jbuffer$@$H(Jterminal$@$NFbMF$rHf3S$7$F!"0lCW$7$J$$%G!<%?$N$_=PNO$7$F(J
$@!!!!$$$k$N$,860x$G$9!#$3$N$?$a$K!"(Jrefresh() $@4X?t$N=hM}$K$*$$$F!"#2%P%$%H(J
$@!!!!J8;z$NItJ,$G?'!9$HITET9g$,5/$-$^$9!#(J

$@!!!!!JNc$($P!"=q$-49$(A0$N#2%P%$%HJ8;z$H!"=q$-49$(8e$N#2%P%$%HJ8;z$,!"(J
$@!!!!!!#1%P%$%HL\$H#2%P%$%HL\$N$I$A$i$+JRJ}$N$_$,0lCW$9$k>l9g!"0lCW$7$?(J
$@!!!!!!J}$N%P%$%H$O=PNO$5$l$J$$$?$a$KI=<($,$*$+$7$/$J$j$^$9!#!K(J

$@!!!!$3$N8=>]$O!"#X#6#8#k$K8B$i$:!"B>$N%^%7%s$G$b!"(J-DJAPAN,-DCURSES$@$r;XDj(J
$@!!!!$7$F%3%s%Q%$%k$7$?>l9g$KH/@8$9$k$N$G$O$J$$$+$H;W$o$l$^$9!#(J


$@#3!%@hF|%]%9%H$5$l$?%5%s%W%k%a%C%;!<%8%G!<%?$G%W%l%$$7$?>l9g!"%X%k%W$NI=(J
$@!!!!<($,$*$+$7$/$J$k!#(J


$@!!!!@hF|%]%9%H$5$l$?%5%s%W%k%a%C%;!<%8%G!<%?$K$*$$$F$O!"%X%k%W%a%C%;!<%8(J
$@!!!!$NCf$K#8#07e$r%*!<%P!<$9$k$b$N$,#1$D$@$1M-$j!"$3$NItJ,$GI=<($,$*$+$7(J
$@!!!!$/$J$j$^$9!#(J
$@!!!!860x$ONI$/H=$i$J$$$N$G$9$,!"$*$=$i$/(J curses.c$@Fb$N=hM}$K$*$$$F!"#8#07e(J
$@!!!!$r%*!<%P!<$9$k$h$&$J>l9g$K!"$J$s$i$+$N0[>o$,H/@8$9$k0Y$H9M$($i$l$^$9!#(J

$@!!!!$3$N8=>]$O!"#X#6#8#k$K8B$i$:!"B>$N%^%7%s$G$b!"(J-DCURSES$@$r;XDj$7$F%3%s(J
$@!!!!%Q%$%k$7$?>l9g$KH/@8$9$k2DG=@-$,$"$k$H;W$o$l$^$9!#(J



$@$3$N$&$A!"#3$K$D$$$F$O!"%W%m%0%i%`$NJ}$GBP=h$5$;$h$&$+$H$b;W$C$?$N$G$9$,!"(J
$@#2%P%$%HJ8;z$,$+$i$`$HLLE]$J$N$G!"#8#07e$r%*!<%P!<$7$J$$$h$&$K%5%s%W%k%a%C(J
$@%;!<%8%G!<%?$r=q$-49$($F2sHr$7$^$7$?!#(J
$@%5%s%W%k%a%C%;!<%8%G!<%?$K8B$i$:!"%a%C%;!<%8$r=q$-49$($k:]$O!"#8#07e$r%*!<(J
$@%P!<$7$J$$$h$&!"5$$r$D$1$kI,MW$,$"$k$G$7$g$&!#(J


$@$=$l$+$i!"#1!$#2$N8=>]$K$D$$$F$O!";d$J$j$K(J curses.c $@$r=q$-49$($FBP=h$7$F(J
$@$_$^$7$?!#;29M$^$G$K!"0J2<$K$=$N%Q%C%A%j%9%H$r<($7$^$9!#(J
$@$J$*!"$3$N%Q%C%A$K$D$$$F$O!"<!$NE@$KCm0U$7$F2<$5$$!#(J

$@!!!&$3$N%Q%C%A$O!"%3%s%Q%$%k;~$K(J-DMSDOS,-DJAPAN$@$r6&$K;XDj$9$k>l9g$K$N$_(J
$@!!!!M-8z$G$9!#$=$l0J30$N>l9g$K$O0UL#$,$"$j$^$;$s!#(J

$@!!!&:#$N$H$3$m!"#X#6#8#k$G$OLdBj$J$/F0$$$F$$$^$9$,!"B>$N#M#S!]#D#O#S%^(J
$@!!!!%7%s$G$O$&$^$/$$$/$+$I$&$+$^$G$O3NG'$7$F$$$^$;$s!#(J

$@!!!&85$N%W%m%0%i%`$KBP$9$kJQ99$r$G$-$k$@$1>/$J$/$9$k$?$a!"$+$J$j6/0z$J(J
$@!!!!J}K!$r;H$C$F$$$^$9!#$^$?!"%A%'%C%/$,4E$$$N$G!"0[>o$JI=<(%G!<%?!JNc(J
$@!!!!$($P!"#2%P%$%HJ8;z$N#1%P%$%HL\$G#19T$,=*$o$k$h$&$J>l9g$J$I!K$KBP$7(J
$@!!!!$F$O8mF0:n$7$^$9!#(J

$@$3$N$h$&$J$o$1$G$9$N$G!"$3$N%Q%C%A$O$"$/$^$G;29MDxEY$K$H$I$a$F$*$$$F2<$5$$!#(J
$@$I$J$?$+!"$h$j$-$A$s$H$7$?=$@5$r9T$J$C$F2<$5$k$3$H$r4|BT$7$^$9!#(J

-------- $@$3$3$+$i(J -------- $@$3$3$+$i(J -------- $@$3$3$+$i(J --------
*** curses.c.orig	Mon Sep 14 14:40:10 1992
--- curses.c	Sun Sep 27 12:00:00 1992
***************
*** 277,282 ****
--- 277,310 ----
  				bp = buffer[i];
  				tp = terminal[i];
  				for (j = 0; j < DCOLS; j++) {
+ #ifdef JAPAN
+ #ifdef MSDOS
+ #define is_kanji(c)	( ((0x80<(c))&&((c)<=0x9f)) || ((0xe0<=(c))&&((c)<=0xfc)) )
+ 					if (is_kanji(*tp & 0xff)){
+ 						if ((*bp == *tp) && (bp[1] == tp[1])){
+ 							bp += 2;
+ 							tp += 2;
+ 							j++;
+ 							continue;
+ 						} else {
+ 							*tp   = 0;
+ 							tp[1] = 0;
+ 						}
+ 					}
+ 					if (is_kanji(*bp & 0xff)){
+ 						if (is_kanji(*(tp+1) & 0xff))
+ 							tp[2] = 0;
+ 						if (j!=cur_col || i!=cur_row)
+ 							put_cursor(i, j);
+ 						put_st_char(*tp++ = *bp++);
+ 						cur_col++;
+ 						put_st_char(*tp++ = *bp++);
+ 						cur_col++;
+ 						j++;
+ 						continue;
+ 					}
+ #endif
+ #endif
  					if (*bp != *tp) {
  						if (j!=cur_col || i!=cur_row)
  							put_cursor(i, j);
***************
*** 327,333 ****
  			}
  			while ((col < DCOLS) && (p[col] != ' ')) {
  /*				put_st_char((int) p[col++]);*/
! 				put_st_char((unsigned char) p[col++]);
  				cur_col++;
  			}
  		}
--- 355,361 ----
  			}
  			while ((col < DCOLS) && (p[col] != ' ')) {
  /*				put_st_char((int) p[col++]);*/
! 				put_st_char(p[col++]);
  				cur_col++;
  			}
  		}
-------- $@$3$3$^$G(J -------- $@$3$3$^$G(J -------- $@$3$3$^$G(J --------

----
	$@0f>eGn;L!w#S#H#A#R#P(J
	inoue@shpymt.comd.sharp.co.jp
Technical Details
Message-ID: <11707@shpymt.comd.sharp.co.jp>
Path: arc1-ca.pugleaf.net!sparky!uunet!ccut!sh.wide!wnoc-kyo!kuis!kudpc!nuis!tutgw!lab!nttlab!creamy!shpcsl!islix!shpymt!inoue
References: <BRX.92Sep14180202@chobi.kmc.kyoto-u.ac.jp>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!sparky!uunet!ccut!sh.wide!wnoc-kyo!kuis!kudpc!nuis!tutgw!lab!nttlab!creamy!shpcsl!islix!shpymt!inoue
From: inoue@comd.sharp.co.jp (Hiroshi Inoue)
Newsgroups: fj.sources.d
Subject: Re: Message separated Rogue-clone II (1/6)
Message-ID: <11707@shpymt.comd.sharp.co.jp>
Date: 28 Sep 92 03:23:46 GMT
References: <BRX.92Sep14180202@chobi.kmc.kyoto-u.ac.jp>
Distribution: fj
Organization: SHARP Corp. Computer Div., Yamato Kohriyama City, Nara, Japan
Lines: 143