/*=================================================== CONS98.C =========*/
/*	ＰＣ９８用コンソールライブラリー				*/
/*				ver 1.2   H4/07/01 by S.F		*/
/*----------------------------------------------------------------------*/

#include <stdio.h>
#include <dos.h>
#include <conio.h>
#include <string.h>
#include <jctype.h>

#include "CONS98.H"

#define uchar unsigned char
#define uint  unsigned int

#define TGCMD	0x62		/* テキストＧＤＣコマンドポート */
#define TGPRA	0x60		/* テキストＧＤＣパラメータポート */
#define TGSTS	0x60		/* テキストＧＤＣステータスポート */

#define CRSFORM 0x4b		/* ＧＤＣのＣＲＳＦＯＲＭコマンド */
#define CRSRATE   10		/* カーソルのブリンクレート */

#define ABS(c)		( (c)<0 ? -(c) : (c) )

/*---------- ＢＩＯＳによる１文字入力 ----------*/
int cgetch( void )		/* 上位８ビットはスキャンコード */
{				/* 下位８ビットは内部コード */
    union REGS inregs,outregs;
    inregs.h.ah = 0; 
    int86( 0x18, &inregs, &outregs );
    return( outregs.x.ax );
}

/*---------- ＢＩＯＳによるキー入力チェック ----------*/
int cinkey( void )		/* キーが押されていなければ ０ を返す */
{				/* キーが押されていれば cgetch() と同じ */
    union REGS inregs,outregs;
    inregs.h.ah = 1; 
    int86( 0x18, &inregs, &outregs );
    if(outregs.h.bh) 
      return( cgetch() );
    return(0);
}

/*---------- ＤＯＳによるリアルタイムキー入力 ----------*/
int inkey()
{
    int c;
    if((c=kbhit()) != 0){
  	c = getch();
        if(c==27 && kbhit())
	  c = 256+getch(); 
    }
    return(c);
}

/*---------- キーバッファを空にする -------------*/

void kb_flash()
{
    while(kbhit()) getch();
}

/*---------- テキストカラー設定関数 ----------*/
void txt_color( int col )	/* 標準テキストカラーの指定 */
{				/* -7〜7 負の数は反転カラー */
    static char cc[]="\x1b[37m";
    static char cp[]="04152637";
    cc[2] = (col<0) ? '4' : '3' ;
    cc[3] = cp[( ABS(col) & 7 )];
    printf(cc);
}

/*---------- 現在のモードを調べます ----------*/
int txt_mode_ck( void )
{
    union REGS inregs,outregs;
    inregs.h.ah = 0x0b; 
    int86( 0x18, &inregs, &outregs );
    return( outregs.h.al & 0xff );
}

/*---------- テキスト画面表示を開始します ----------*/
void txt_disp_on( void )
{
    union REGS inregs,outregs;
    inregs.h.ah = 0x0c;
    int86( 0x18, &inregs, &outregs );
}

/*---------- テキスト画面を非表示にします ----------*/
void txt_disp_off( void )
{
    union REGS inregs,outregs;
    inregs.h.ah = 0x0d;
    int86( 0x18, &inregs, &outregs );
}

	/*----- カーソル形状の設定 -----*/
crsform(	int cstart,	/* カーソル開始ライン (0-31) */
		int cend,	/* カーソル終了ライン (0-31) */
		int crate,	/* カーソルブリンクレート(1-31) */
		int cdsp )	/* カーソル表示フラグ */
{
    int p[3];
    cstart &= 0x1f;
    cend   &= 0x1f;
    crate  &= 0x1f;
    if(cstart>cend) cstart = cend;
    p[0] = (cdsp << 7) + 15;
    p[1] = (cstart & 0x1f) + (crate << 6);
    p[2] = (crate >> 2) + (cend << 3);
    if(crate==0) p[1] |= 0x20;
    while(inportb(TGSTS) & 2);	outportb(TGCMD, CRSFORM);
    while(inportb(TGSTS) & 2);	outportb(TGPRA, p[0]);
    while(inportb(TGSTS) & 2);	outportb(TGPRA, p[1]);
    while(inportb(TGSTS) & 2);	outportb(TGPRA, p[2]);
}

	/*----- 文字列の移動（同じ文字列内で）-----*/
strmov(		char *str, 	/* 対象となる文字列 */
		int d, 		/* 文字列の移動先の位置 */
		int s)		/* 移動文字列の開始位置 */
{
    int ls,i,j;
    ls = strlen(str);
    if(d>s)				/* 後ろのデータから移動 */
	for(i=ls-d+s-1,j=ls-1;j>=d;j--,i--) 
	    str[j] = str[i];
    else				/* 前のデータから移動 */
	for(i=s;i<ls;i++) 
	    str[d++] = str[s++];
}

	/*----- 文字の種類の検査（文字列内で、nthctype()とほぼ同じ）-----*/
ktype(		char *str,	/* 対象となる文字列 */
		int px)		/* 調べたい文字列の位置（先頭は０から） */
{
  int i,d;
  uchar uc;
  d = 0; 
  for(i=0;i<=px;i++){
     uc = (uchar)str[i] & 0xE0;		/* 上位３ビットをマスク */
     switch(uc){
	case 0x80: case 0xE0:		/* 0x80-0x9f,0xe0-0xff */
	  if(d == 1) d = 2; 		/* 前のバイトが漢字の１バイト目か */
	    else     d = 1;		/* 漢字でなければ１バイト目とする */
	  break;
	default:
	  if(d == 1) d = 2; 		/* 前のバイトが漢字の１バイト目か */
	    else     d = 0;		/* 漢字でなければアスキー文字とする */
	  break;
     }					/* アスキー文字は０ */
  }					/* 漢字の１バイト目は１ */
  return(d);				/* 漢字の２バイト目は２を返す */
}

	/*----- 整数型の変数の上位・下位バイトを交換する -----*/
iswap(int x)
{
  return((x<<8)|((x>>8)&0xff));
}

	/*----- 整数型の漢字を画面に出力する -----*/
kputch(int x)
{
  if(x<0) putch(x>>8); 
  putch(x);
}

	/*---- 文字列のコピー（漢字対応）-----*/
strkcpy(char *dst, char *src, char n)		/* add H4/8/10 */
{
  int i,sn;
  char *dp;
  sn = strlen(src);
  dp = dst;
  if(sn>=n){
    for(i=0;i<n;i++){
      *dst++ = *src++;
    }
    if(ktype(dp,n-1)==1) dp[n-1]=' ';
  }else{
    for(i=0;i<sn;i++){
      *dst++ = *src++;
    }
    for(i=sn;i<n;i++)
      *dst++ = ' ';
  }
}

/*=========================================================================
'   ＜　画面上での文字列行編集ファンクション（漢字対応）　＞
'           dfs はデフォルトの入力データを与えます。（長さは自由）
'           rts は編集後の文字列をいれる変数です。（必ずbl+1以上確保すること）
'           bl  は戻される文字列(rts)の長さを与えます。（ＱＢ版にはなし）
'           px  は文字列中の最初のカーソル位置をバイト単位で指定します。
'           現在のカーソル位置を文字列の先頭として編集を行います。
'           関数の戻り値は最後に押されたキーコードです。
'               （ESC 付き２バイトキーは第２バイトに100Hを加えた値を返す）
'		（漢字の場合、入力文字がはみ出さない時の戻り値はＪＩＳで、
'		　はみ出す時は rtsに入らなかった文字をシフトＪＩＳで返す）
'           ｢左右の矢印キー｣で文字列の範囲を越えると元のルーチンに戻ります。
'           ｢INS｣,｢DEL｣,｢HOME｣以外の制御キーで元のルーチンに戻ります。
'           ｢ESC｣の場合はrts を変更せずに元のルーチンに戻ります。（戻り値27）
'           ｢INS｣を押す毎に置換・挿入モードが切り替わり置換モードではブロック
'           　　カーソル、挿入モードではアンダーラインカーソルになります。
'           ｢DEL｣を押すと現在カーソル位置の文字が消えます。
'           ｢HOME｣を押すと先頭からの再入力になります。
'---------------------------------------------------------------------------*/

ledit(		char *dfs,	/* デフォルト文字列 */
		char *rts,	/* 入力結果文字列 */
		int bl, 	/* 要求文字列長さ */
		int px )	/* カーソル初期位置 (0- ) */
{
    union bw{  	uchar b[2];	/* 入力データ作業用共用体 */
	  	uint  w;
	    }a;
    uint 	k;		/* キー入力データ（バイト） */
    int 	lx,ly;		/* カーソルの初期位置(1-80,1-25) */
    int		ins;		/* 置換(0)、挿入(1)モードフラグ */
    char 	bf[80];		/* 作業用文字配列 */
    int 	sc;		/* 現在カーソル位置の文字の種類 */
    int		sc2;		/* カーソルの次の位置の文字の種類 */
    int		ec;		/* 文字列バッファの最後の文字の種類 */

    lx = wherex(); ly = wherey();	/* 現在カーソル位置の取得 */
    strkcpy(bf,dfs,bl);			/* 作業用の文字列を準備 */
    bf[bl] = '\0';
    ins = 0;				/* 置換モードで開始 */
    cputs(bf);				/* デフォルト文字列表示 */
    if(px>bl-1)   px = bl-1;		/* pxの範囲チェック */
      else if(px<0) px = 0;
    crsform(ins,15,CRSRATE,1);		/* ブロックカーソルに */

    do{
      gotoxy(lx+px,ly);			/* カーソル表示と位置の設定 */
      while(!kbhit());			/* 何か押されるまで待つ */
      k = getch();			/* リアルタイムキー入力 */
      if(iskanji(k)){			/* 漢字が入力されたなら mod H41215 */
	a.w = (k<<8) | getch();		/* 次のバイトと合成する */
      }
      else if((k==27)&&(kbhit())){	/* escに続く拡張キーなら */
	k = getch();
	a.w = 0x100 + k;            	/* 次のバイトに100Hを加える */
      }else{
	a.w = k;			/* その他のキー入力はそのまま */
      }
      sc = ktype(bf,px);		/* 現在カーソル位置の文字の種類は？ */
      switch(a.w){
	case 0x1a:			/* - HOMEキーの処理  */
	    strnset(bf,' ',bl);		/*   文字列バッファ内を消去 */
	    px = 0;			/*   先頭から再入力 */
	    break;
	case 0x08:			/* - 左矢印カーソルキー処理 */
	    if(px>0) px--;
	    else{			/* -- 文字列の先頭より左の指示は */
	      strcpy(rts,bf);		/*    変更データを有効にして */
	      return(a.w);		/*    呼出ルーチンへ戻る */
	    }
	    break;
	case 0x0c:			/* - 右矢印カーソルキー処理 */
	    if(px<bl-1) px++;
	    else{			/* -- 文字列の終わりより右の指示は */
	      strcpy(rts,bf);		/*    変更データを有効にして */
	      return(a.w);		/*    呼出ルーチンへ戻る */
	    }
	    break;
	case 0x150:			/* - 挿入(insert)キー処理 */
	    if(ins==0) ins = 10;
	      else     ins = 0;
      	    crsform(ins,15,CRSRATE,1);	/*   カーソル形状の変更 */
	    break;
	case 0x144:			/* - 削除(delete)キー処理 */
	    if(ins==0){			/* -- 置換モード */
	      bf[px] = ' ';
	      if(sc==2)	 		/* --- 削除文字が漢字２バイト目 */
		  bf[px-1] = ' ';
	      else if(sc==1)		/* --- 削除文字が漢字１バイト目 */
		  bf[px+1] = ' ';
	    }else{			/* -- 挿入モード */
	      if(sc==0){		/* --- 削除文字がアスキーコード */
		strmov(bf,px,px+1);	/*     文字列の最後のバイトを空白に */
		bf[bl-1]=' ';
	      }
	      else{			/* --- 削除文字が漢字 */
	        if(sc==2) px--;		/* --- 削除文字が漢字２バイト目 */
		strmov(bf,px,px+2);
		bf[bl-2]=' ';		/*     文字列の最後２バイトを空白に */
		bf[bl-1]=' ';
	      }
	    }
	    break;

	default:			/* - 上記以外の文字が入力されたとき */
	  if(a.w>512){			/*   入力文字が漢字 */
	    if(px==bl-1){		/* -- 行の最後にカーソルがある場合 */
	      bf[px] = ' ';		/*    入力漢字ではなく空白１文字 */
	      strcpy(rts,bf);		/*    変更データを有効にして */
      	      gotoxy(lx,ly);		/*    変更データを再表示 */
              cputs(bf);
	      return(a.w);		/*    はみ出し文字はシフトＪＩＳで */
	    }
	    else{
              if(ins==0){		/* -- 置換モード */
	        sc2=ktype(bf,px+1);	/* --- 次文字の種類は？ */
	        bf[px]   = a.b[1];
	        bf[px+1] = a.b[0];
	        if(sc==2)		/* --- 現在文字が漢字２バイト目 */
	          bf[px-1]= ' ';
	        if(sc2==2) 		/* --- 次文字が漢字２バイト目なら */
		  bf[px+2]= ' ';
	      }else{			/* -- 挿入モード */
                if(sc==2) px--;		/* --- 現在文字が漢字２バイト目 */
	        ec=ktype(bf,bl-2); 	/* --- 行末の２バイト目チェック */
	        strmov(bf,px+2,px);
	        bf[px]   = a.b[1];
	        bf[px+1] = a.b[0];
      	        if(ec==2)		/* --- ２バイト目が漢字の後半 */
	          bf[bl]=' ';
   	      }
	      if(px+2<bl) px += 2;	/* - カーソル位置を右へ２つ移動 */
	      else{			/* -- 文字列の終わりより右の指示は */
	        strcpy(rts,bf);		/*    変更データを有効にして */
      	        gotoxy(lx,ly);		/*    変更データを再表示 */
                cputs(bf);
	        return(jmstojis(a.w));	/*    ぴったしはＪＩＳ(2120-7FFF) */
	      }
 	    }
	  }
	  else if( a.w > 255 ){		/* - 入力文字がesc２バイト文字 */
	        strcpy(rts,bf);		/*    変更データを有効にして */
	        return(a.w);		/*    呼出ルーチンへ戻る */
	  }
	  else if( a.w > 31 ){		/* - 入力文字がアスキーコード */
            if(ins==0){			/* -- 置換モード */
	      bf[px] = a.b[0];
	      if(sc==2){		/* --- 現在文字が漢字２バイト目 */
	        bf[px-1] = ' ';
	      }else if(sc==1){		/* --- 現在文字が漢字１バイト目 */
	        bf[px+1] = ' ';
	      }
	    }
	    else{			/* -- 挿入モード */
              if(sc==2) px--;		/* --- 現在文字が漢字２バイト目 */
	      ec = ktype(bf,bl-1); 	/* --- 行末のバイトをチェック */
 	      strmov(bf,px+1,px);
	      bf[px] = a.b[0];
	      if(ec==2)			/* --- 行末が漢字の後半の場合 */
	        bf[bl-1]=' ';
	    }
	    if(px<bl-1) px++;		/* - カーソル位置を右へ１つ移動 */
	    else{			/* -- 文字列の終わりより右の指示は */
	      strcpy(rts,bf);		/*    変更データを有効にして */
      	      gotoxy(lx,ly);		/*    変更データを再表示 */
              cputs(bf);
	      return(a.w);		/*    呼出ルーチンへ戻る */
	    }
	  }
	  else if(a.w!=27){		/* - ESC以外のコントロールキー */
      	    strcpy(rts,bf);		/* - 変更データを有効にして */
	    return( a.w );		/* - 呼出ルーチンへ戻る */
	  }
	  break;
      }					/*---- case 文の終わり ----*/

      gotoxy(lx,ly);			/* 変更データを再表示 */
      cputs(bf);
    }while(a.w!=27);			/* 入力がescの場合は */
    return( a.w ); 			/* データを変更せずに */
}					/* 呼出ルーチンへ戻る */

/*---------------- 文字列の右側のスペースを取る -------------------*/
trimr(char *str)
{
    int i,n;
    n = strlen(str);
    for(i=n-1;i>=0;i--){
      if(str[i]==0x20)  str[i]='\0';
      else  return(i);
    }
}

/*====================== e n d ========================( CONS98.C )======*/