Category : Windows 3.X Files
Archive   : JWPSRC.ZIP
Filename : KINFOIDX.C

 
Output of file : KINFOIDX.C contained in archive : JWPSRC.ZIP
/* Copyright (C) Stephen Chung, 1991-1993. All rights reserved. */

#include

typedef struct {
unsigned char strokes;
unsigned char bushu;
unsigned short int index;
unsigned char grade;
unsigned char on:4;
unsigned char kun:4;
unsigned char unknown:4;
unsigned char meanings:4;
unsigned char padding; /* To pad it to 32-bits */
unsigned long int offset;
} KINFORECORD;

typedef struct {
unsigned char strokes;
unsigned char bushu;
short int index;
} IDXRECORD;

IDXRECORD rec[7000];


int BushuStrokes(IDXRECORD *s1, IDXRECORD *s2)
{
if (s1->bushu == s2->bushu) {
if (s1->strokes == s2->strokes) {
return (s1->index - s2->index);
} else {
return (s1->strokes - s2->strokes);
}
} else {
return (s1->bushu - s2->bushu);
}
}



int StrokesBushu(IDXRECORD *s1, IDXRECORD *s2)
{
if (s1->strokes == s2->strokes) {
if (s1->bushu == s2->bushu) {
return (s1->index - s2->index);
} else {
return (s1->bushu - s2->bushu);
}
} else {
return (s1->strokes - s2->strokes);
}
}


short int IndexToJIS(int index)
{
int div, rem;
short int ch;

div = index / 94;
rem = index % 94;

ch = (div << 8) | rem;
ch += 0x3021;

return (ch);
}



main()
{
long int i, j;
FILE *ifp, *ofp;
KINFORECORD record;
int num;

ifp = fopen("kinfo.dat", "rb");

fseek(ifp, 0L, 0);
fread(&record, sizeof(KINFORECORD), 1, ifp);
num = record.offset / sizeof(KINFORECORD);

printf("%d records...\n", num);

fseek(ifp, 0L, 0);

for (i = j = 0; i < num; i++) {
if (i % 10 == 9) printf("Record #%d...\r", i);
fread(&record, sizeof(KINFORECORD), 1, ifp);
if (record.strokes <= 0 || record.bushu <= 0) continue;

rec[j].index = IndexToJIS(i);
rec[j].bushu = record.bushu;
rec[j].strokes = record.strokes;
j++;
}

num = j;

printf("%d records indexed\n", j);

fclose(ifp);

printf("Creating index...\n");

ofp = fopen("kinfo.idx", "wb");

printf("Sorting Bushu / Strokes...\n");

qsort(rec, num, sizeof(IDXRECORD), StrokesBushu);

fseek(ofp, 0L, 0);
fwrite(rec, sizeof(IDXRECORD), num, ofp);

printf("Sorting Strokes / Bushu...\n");

qsort(rec, num, sizeof(IDXRECORD), BushuStrokes);

fwrite(rec, sizeof(IDXRECORD), num, ofp);

fclose(ofp);
}


  3 Responses to “Category : Windows 3.X Files
Archive   : JWPSRC.ZIP
Filename : KINFOIDX.C
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/