Category : C Source Code
Archive : LH113SRC.ZIP
Filename : UTIL.C
Output of file : UTIL.C contained in archive : LH113SRC.ZIP
LHarc version 1.13 (c)Yoshi, 1988-89.
utility module : 1989/ 5/ 4
HTAB = 4
*************************************************/
#include
#include
#include
#define iskanji(c) ((uchar)(c) >= 0x80 && (uchar)(c) <= 0x9f || \
(uchar)(c) >= 0xe0 && (uchar)(c) <= 0xfd)
typedef unsigned char uchar;
typedef unsigned int uint;
typedef unsigned long ulong;
/*******************************
strupr for Japanese strings
*******************************/
uchar *j_strupr(uchar *p)
{
uchar *q;
for (q = p; *q; q++) {
if (iskanji(*q)) {
q++;
if (*q == 0)
break;
} else {
*q = toupper(*q);
}
}
return p;
}
/*******************************
strcmp for Japanese strings
*******************************/
int j_strcmp(char *p, char *q)
{
int c, md0, md1;
for (md0 = 0;
((c = (uchar)*p - (uchar)*q) == 0) && (*p != 0); p++, q++) {
if (md0) {
md0 = 0;
} else {
md0 = iskanji((uchar)*p);
}
}
if (md0 == 0) {
md0 = iskanji((uchar)*p);
md1 = iskanji((uchar)*q);
if (md0) {
if (md1 == 0) return 1;
} else {
if (md1) return -1;
}
}
return c;
}
/*******************************
strchr for Japanese strings
(subset of jstrchr)
can't search Kanji character
*******************************/
uchar *j_strchr(char *p, uint c)
{
uchar *q, a;
q = (uchar *)p;
while ((a = *q) != c) {
if (a == 0) return NULL;
if (iskanji(a)) {
if (*++q == 0) return NULL;
}
q++;
}
return q;
}
/*******************************
strrchr for Japanese strings
(subset of jstrrchr)
can't search Kanji character
*******************************/
uchar *j_strrchr(char *p, uint c)
{
uchar *q, *r;
q = p - 1;
while ((r = j_strchr(q + 1, c)) != NULL) {
q = r;
}
if (q < p) return NULL;
return q;
}
/*******************************
get file attributes
*******************************/
int getfattr(uchar *fn)
{
_DX = (uint)fn;
_CX = 0x8000;
_AX = 0x4300;
__int__(0x21);
return _CX;
}
/*******************************
set file attributes
*******************************/
void setfattr(uchar *fn, int attr)
{
_DX = (uint)fn;
_CX = attr;
_AX = 0x4301;
__int__(0x21);
}
/*******************************
get the setting of
switch character
*******************************/
uchar getswchar(void)
{
_AX = 0x3700;
__int__(0x21);
return _DL;
}
/*******************************
convert '/' to '\'
('\' code is assigned to
the Yen-mark in Japan.)
*******************************/
void slash2yen(uchar *p)
{
for (; *p != '\0'; p++) {
if (*p == '/')
*p = '\\';
}
}
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
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/