gopher/ftype.c
2012-04-27 21:18:31 -04:00

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;
}