branches/mty-makai/special.c

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "special.h"
#include "util.h"
#include "key.h"
#include "makai.h"

#define TRIP_LEN 10

#define ST_ALLN 1      /* 全数 */
#define ST_NIKO 1<<0x1 /* 二構 */
#define ST_BUOO 1<<0x8 /* ぶお */
#define ST_DOSU 1<<0x9 /* 怒数 */
#define ST_CHIN 1<<0xb /* ちん */
#define ST_EROI 1<<0xc /* エロ */
#define ST_HREN 1<<0xd /* 飛連 */
#define ST_YAKU 1<<0xe /* 八雲 */

int     special;

static FILE     *nfp;   /* 全数 */
#define LOGNUM "lognum.txt"
static FILE     *cfp;   /* ち */
#define LOGCHI "logchi.txt"
static FILE     *tfp;   /* ↑以外の特殊検索 */
#define LOGSPE "logspe.txt"

void
dispSpecial()
{
  printf( "特殊検索オプション : " );
  if ( special & ST_DOSU ) {
   printf( "怒数 " );
  } else {
   if ( special & ST_ALLN ) {
    printf( "全数 " );
   }
  }
  if ( special & ST_EROI ) {
   printf( "エロ " );
  }
  if ( special & ST_NIKO ) {
   printf( "二構 " );
  }
  if ( special & ST_BUOO ) {
   printf( "ぶお " );
  }
  if ( special & ST_CHIN ) {
   printf( "ちん " );
  }
  if ( special & ST_HREN ) {
   printf( "飛連 " );
  }
  if ( special & ST_YAKU ) {
   printf( "八雲 " );
  }
  if ( special ) {
   printf( "オン！\n" );
  } else {
   printf( "オールオフ！\n" );
  }
}

void
initSpecial()
{
  special = 0;

  if ( (tfp = fopen( LOGSPE, "at" )) == NULL ) {
   perror( LOGSPE );
   exit( 1 );
  }
  setvbuf( tfp, NULL, _IONBF, BUFSIZ );

  if ( (nfp = fopen( LOGNUM, "at" )) == NULL ) {
   perror( LOGNUM );
   exit( 1 );
  }
  setvbuf( nfp, NULL, _IONBF, BUFSIZ );

  if ( (cfp = fopen( LOGCHI, "at" )) == NULL ) {
   perror( LOGCHI );
   exit( 1 );
  }
  setvbuf( cfp, NULL, _IONBF, BUFSIZ );
}

void
comment( str )
char    *str;
{
  if ( strlen( str ) >= 4 ) {
   if ( str[1] == '[' && str[3] == ']' ) {
    switch ( str[2] ) {
     case '0': special |= ST_ALLN; break;
     case '1': special |= ST_NIKO; break;
     case '8': special |= ST_BUOO; break;
     case '9': special |= (ST_DOSU | ST_ALLN); break;
     case 'd': special |= ST_HREN; break;
     case 'e': special |= ST_YAKU; break;
     case 'Y': special |= ST_CHIN; break;
     case 'Z': special |= ST_EROI; break;
#ifdef KEYLOG
     case 'K': keyLog = MAKAI_TRUE; break;
#endif /* KEYLOG */
#if 0
     case 'S':
      seedOffset = atoi( str + 4 );
      if ( seedOffset < MIN_SOFF || seedOffset > MAX_SOFF ) {
       fprintf( stderr, "乱数の種のオフセットは、%d 以上 %d 以下で指定してね。\n", MIN_SOFF, MAX_SOFF );
       fprintf( stderr, "%d は範囲外なので無視します。\n", seedOffset );
       seedOffset = 0;
      }
      break;
#endif /* 0 */
    }
   }
  }
}

/* ヒット時には出力ファイルへのポインタを返す */
FILE *
checkSpecial( trip, kind )
char    *trip;
unsigned char   *kind;
{
  OLDPRINT( "trip %s\n", trip );

  if ( special & ST_CHIN ) {
   /* ^Chi(r */
   if ( trip[0] == 'C' && trip[1] == 'h' && trip[2] == 'i' &&
        trip[3] == 'n' && trip[4] == 'k' && trip[5] == 'o' ) {
    strcpy( kind, "ち" );
    return( cfp );
   }
  }

  if ( special & ST_BUOO ) {
   /* ぶお [A-Za-z]aoo[A-Za-z]uoo$ */
   if ( trip[3] == 'a' && trip[4] == 'o' && trip[5] == 'o' &&
        trip[7] == 'u' && trip[8] == 'o' && trip[9] == 'o' &&
        isalpha( trip[2] ) && isalpha( trip[6] ) ) {
    strcpy( kind, "ぶ" );
    return( tfp );
   }
  }

  if ( special & ST_EROI ) {
   int  i;
   /* エロい人型二構 その 1 looooloooo */
   if ( trip[0] == trip[5] &&
        trip[1] == trip[2] && trip[1] == trip[3] && trip[1] == trip[4] &&
        trip[1] == trip[6] && trip[1] == trip[7] && trip[1] == trip[8] &&
        trip[1] == trip[9] ) {
    strcpy( kind, "エ" );
    return( tfp );
   }
   /* エロい人型二構 その 2 [./] */
   for ( i = 0; i < TRIP_LEN; i++ ) {
    if ( trip[i] != '.' && trip[i] != '/' ) {
     goto NOEROI;
    }
   }
   strcpy( kind, "エ" );
   return( tfp );
  }
  NOEROI:

  if ( special & ST_NIKO ) {
   /* 二構 */
   int  i;
   char ch1, ch2;
   ch1 = trip[0];
   for ( i = 1; i < TRIP_LEN; i++ ) {
    if ( trip[i] != ch1 ) break;
   }
   ch2 = trip[i];
   for ( ; i < TRIP_LEN; i++ ) {
    if ( trip[i] != ch1 && trip[i] != ch2 ) goto NONIKO;
   }
   strcpy( kind, "二" );
   return( tfp );
  }
  NONIKO:

  if ( special & ST_YAKU ) {
   /* 八雲 */
   if ( trip[0] == trip[1] && trip[0] == trip[2] &&
        trip[3] == trip[4] && trip[3] == trip[5] &&
        trip[6] == trip[7] && trip[6] == trip[8] && trip[9] == '.' ) {
    strcpy( kind, "八" );
    return( tfp );
   }
  }

  /* 飛連関連のコードは、ｾﾛﾘﾝ ◆Celeron/rc 作 */
  if ( special & ST_HREN ) {
   /* 飛連 */
   int  w, x = 0, y = 0;
   for ( w = 0; w < TRIP_LEN; w++ ) {
    if ( trip[w] == trip[0] ) x += 1;
    if ( trip[w] == trip[1] ) y += 1;
    if ( x >= 8 || y >= 8 ) {
     strcpy( kind, "飛" );
     return( tfp );
    }
   }
  }

  if ( special & ST_ALLN ) {
   /* 全数 か 怒数 */
   if ( isdigit( trip[0] ) && isdigit( trip[1] ) && isdigit( trip[2] ) &&
        isdigit( trip[3] ) && isdigit( trip[4] ) && isdigit( trip[5] ) &&
        isdigit( trip[6] ) && isdigit( trip[7] ) && isdigit( trip[8] ) &&
        isdigit( trip[9] ) ) {
    if ( special & ST_DOSU ) {
     /* 全数 & 回文 */
     if ( trip[0] == trip[9] && trip[1] == trip[8] && trip[2] == trip[7] &&
          trip[3] == trip[6] && trip[4] == trip[5] ) {
      strcpy( kind, "怒" );
      return( tfp );
     }
     /* 全数 & 双連 */
     if ( trip[0] == trip[1] && trip[2] == trip[3] && trip[4] == trip[5] &&
          trip[6] == trip[7] && trip[8] == trip[9] ) {
      strcpy( kind, "怒" );
      return( tfp );
     }
     /* 全数 & 山彦 */
     if ( trip[0] == trip[5] && trip[1] == trip[6] && trip[2] == trip[7] &&
          trip[3] == trip[8] && trip[4] == trip[9] ) {
      strcpy( kind, "怒" );
      return( tfp );
     }
     /* 最大と最小は、純 8 連で出るので削除 */
    } else {
     strcpy( kind, "数" );
     return( nfp );
    }
   }
  }

  return( NULL );
}