mirror of
https://github.com/ksherlock/gopher.git
synced 2024-12-21 21:29:19 +00:00
112 lines
2.0 KiB
C
112 lines
2.0 KiB
C
#pragma optimize 79
|
|
#pragma noroot
|
|
|
|
#include <Types.h>
|
|
|
|
int parse_ftype(const char *cp, Word size, Word *ftype, Word *atype)
|
|
{
|
|
Word *wp = (Word *)cp;
|
|
Word h;
|
|
|
|
*ftype = 0;
|
|
*atype = 0;
|
|
|
|
if (!cp || !size) return 0;
|
|
|
|
h = ((*cp | 0x20) ^ size) & 0x0f;
|
|
|
|
switch (h)
|
|
{
|
|
case 0x00:
|
|
// shk
|
|
if (size == 3
|
|
&& (wp[0] | 0x2020) == 0x6873 // 'sh'
|
|
&& (cp[2] | 0x20) == 0x6b // 'k'
|
|
) {
|
|
*ftype = 0xe0;
|
|
*atype = 0x8002;
|
|
return 1;
|
|
}
|
|
// text
|
|
if (size == 4
|
|
&& (wp[0] | 0x2020) == 0x6574 // 'te'
|
|
&& (wp[1] | 0x2020) == 0x7478 // 'xt'
|
|
) {
|
|
*ftype = 0x04;
|
|
*atype = 0x0000;
|
|
return 1;
|
|
}
|
|
break;
|
|
|
|
case 0x01:
|
|
// bxy
|
|
if (size == 3
|
|
&& (wp[0] | 0x2020) == 0x7862 // 'bx'
|
|
&& (cp[2] | 0x20) == 0x79 // 'y'
|
|
) {
|
|
*ftype = 0xe0;
|
|
*atype = 0x8000;
|
|
return 1;
|
|
}
|
|
break;
|
|
|
|
case 0x02:
|
|
// c
|
|
if (size == 1
|
|
&& (cp[0] | 0x20) == 0x63 // 'c'
|
|
) {
|
|
*ftype = 0xb0;
|
|
*atype = 0x0008;
|
|
return 1;
|
|
}
|
|
// asm
|
|
if (size == 3
|
|
&& (wp[0] | 0x2020) == 0x7361 // 'as'
|
|
&& (cp[2] | 0x20) == 0x6d // 'm'
|
|
) {
|
|
*ftype = 0xb0;
|
|
*atype = 0x0003;
|
|
return 1;
|
|
}
|
|
break;
|
|
|
|
case 0x03:
|
|
// pas
|
|
if (size == 3
|
|
&& (wp[0] | 0x2020) == 0x6170 // 'pa'
|
|
&& (cp[2] | 0x20) == 0x73 // 's'
|
|
) {
|
|
*ftype = 0xb0;
|
|
*atype = 0x0005;
|
|
return 1;
|
|
}
|
|
break;
|
|
|
|
case 0x07:
|
|
// txt
|
|
if (size == 3
|
|
&& (wp[0] | 0x2020) == 0x7874 // 'tx'
|
|
&& (cp[2] | 0x20) == 0x74 // 't'
|
|
) {
|
|
*ftype = 0x04;
|
|
*atype = 0x0000;
|
|
return 1;
|
|
}
|
|
break;
|
|
|
|
case 0x09:
|
|
// h
|
|
if (size == 1
|
|
&& (cp[0] | 0x20) == 0x68 // 'h'
|
|
) {
|
|
*ftype = 0xb0;
|
|
*atype = 0x0008;
|
|
return 1;
|
|
}
|
|
break;
|
|
|
|
}
|
|
|
|
return 0;
|
|
}
|