path: root/mbbsd/indict.c

/* $Id: indict.c,v 1.2 2002/04/28 19:35:29 in2 Exp $ */
#include <stdio.h>
#include <string.h>
#include <sys/types.h>
#include "config.h"
#include "pttstruct.h"
#include "perm.h"
#include "common.h"
#include "modes.h"
#include "proto.h"

#define REFER "etc/dicts"

extern userec_t cuser;
char dict[41],database[41];

static void addword(char word[]) {
    char buf[150],temp[150],a[3];
    FILE *fp = fopen(database,"r+");

    fgets(buf,130,fp);
    fseek(fp,0,2);
    if(HAVE_PERM(PERM_LOGINOK)) {
    clear();
    move(4,0);
    outs(" \033[31m警告\033[m:若蓄意填寫假資料將\033[36m砍id\033[m處份\n");
    sprintf(temp, "\n輸入範利\n:\033[33m%s\033[m", buf);
    outs(temp);
    outs("\n請依上列範例輸入一行資料(直接enter放棄)\n");
    getdata(10, 0, ":", buf, 65, DOECHO);
    if(buf[0]) {
        getdata(13, 0, "確定新增?(Y/n)", a, sizeof(a), LCECHO);
        if(a[0] != 'n')
        fprintf(fp, "%-65s[%s]\n", buf, cuser.userid);
    }
    }
    fclose(fp);
    clear();
}

static int choose_dict(void) {
    int c;
    FILE *fp;
    char buf[10][21], data[10][21], cho[130];

    move(12, 0);
    clrtobot();
    outs("                        "
     "● \033[45;33m字典唷 ◇ 要查哪一本？\033[m ●");

    if((fp = fopen(REFER, "r"))) {
    for(c = 0; fscanf(fp, "%s %s", buf[c], data[c]) != EOF; c++ ) {
            sprintf(cho,"\n                     "
            "(\033[36m%d\033[m) %-20s大字典",c+1,buf[c]);
            outs(cho);
    }
    
    getdata(22, 14, "          ★ 請選擇，[Enter]離開：", cho, 3, LCECHO);
    cho[0] -= '1';
    if(cho[1])
        cho[0] = (cho[0] + 1) * 10 + (cho[1] - '1');
    
    if(cho[0] >= 0 && cho[0] < c) {
        strcpy(dict, buf[(int)cho[0]]);
        strcpy(database, data[(int)cho[0]]);
        return 1;
    } else
        return 0;
    }
    return 0;
}

static char *lower(char str[]) {
    int c;
    static char temp[200];

    strcpy(temp,str);
    for(c = 0; temp[c] !=0; c++)
    if(temp[c] >= 'A' && temp[c] <= 'Z')
        temp[c] += 'a' - 'A';
    return temp;
}

int use_dict() {
    FILE *fp;
    char lang[150], word[80] = "";
    char j, f, buf[120], sys[] = "|\033[31me\033[m:編籍字典";
    int i = 0;
    
    setutmpmode(DICT);
    if(!HAS_PERM(PERM_SYSOP))
    sys[0]=0;
    
    clear();
    
    sprintf(buf,"\033[45m                           ●\033[1;44;33m"
        "  %-14s\033[3;45m ●                              ", dict);
    strcpy(&buf[100],"\033[m\n");
    for(;;) {
    move(0, 0);
    sprintf(lang, "  請輸入關鍵字串(%s) 或指令(h,t,a)\n", dict);
    outs(lang);
    sprintf(lang, "[\033[32m<關鍵字>\033[m|\033[32mh\033[m:help|\033[32m"
        "t\033[m:所有資料|\033[32ma\033[m:新增資料%s]\n:", sys);
    outs(lang);
    getdata(2, 0, ":", word, 18, DOECHO);
    outs("資料搜尋中請稍候....");
    strcpy(word,lower(word));
    if(word[0] == 0)
        return 0;
    clear();
    move(4, 0);
    outs(buf);
    if(strlen(word) == 1) {
        if(word[0] == 'a') {
        clear();
        move(4,0);
        outs(buf);
        addword(word);
        continue;
        } else if(word[0] == 't')
        word[0] = 0;
        else if(word[0] == 'h') {
        more("etc/dict.hlp",YEA);
        clear();
        continue;
        } else if(word[0]=='e') {
        vedit(database,NA, NULL);
        clear();
        continue;
        } else {
        outs("字串太短,請輸入多一點關鍵字");
        continue;
        }
    }

    if((fp = fopen(database,"r"))) {
        i = 0;
        while(fgets(lang,150,fp) != NULL) {
        if(lang[65] == '[') {
            lang[65] = 0;
            f = 1;
        } else
            f = 0;
        if(strstr(lower(lang),word)) {
            if(f == 1)
            lang[65] = '[';
            outs(lang);
            i++;
            if(!((i+1)%17)) {
            move(23, 0);
            outs("\033[45m                               "
                 "任意鍵繼續  Q:離開                             "
                 "\033[m ");
            j = igetch();
                        if(j == 'q')
                break;
                        else {
                clear();
                move(4,0);
                outs(buf);
                        }
            }
        }
        }
    }
    fclose(fp);
    if(i == 0) {
        getdata(5, 0, "沒這個資料耶,新增嗎?(y/N)", lang, 3, LCECHO);
        if(lang[0] == 'y') {
        clear();
        move(4,0);
        outs(buf);
        addword(word);
        }
    }
    }
}

int x_dict() {
    if(choose_dict())
    use_dict();
    return 0;
}