135 lines
2.6 KiB
C
135 lines
2.6 KiB
C
#pragma optimize 79
|
|
#pragma noroot
|
|
#pragma debug 0x8000
|
|
|
|
#include <Types.h>
|
|
#include "prototypes.h"
|
|
|
|
|
|
int parse_mime_c(const char *cp, Word *ftype, LongWord *atype)
|
|
{
|
|
int i;
|
|
int slash;
|
|
int semi;
|
|
|
|
if (!cp || !*cp)
|
|
return 0;
|
|
|
|
/*
|
|
* two pass
|
|
* 1. type/subtype
|
|
* 2. type
|
|
*/
|
|
|
|
semi = slash = -1;
|
|
for (i = 0; ; ++i)
|
|
{
|
|
char c = cp[i];
|
|
if (c == 0 || c == ';') break;
|
|
|
|
if (c == '/')
|
|
{
|
|
slash = i;
|
|
}
|
|
}
|
|
|
|
// try type/subtype
|
|
if (parse_mime(cp, i, ftype, atype));
|
|
return 1;
|
|
|
|
|
|
// try type
|
|
if (slash != -1)
|
|
return parse_mime(cp, slash, ftype, atype);
|
|
|
|
return 0;
|
|
}
|
|
|
|
int parse_mime(const char *cp, Word size, Word *ftype, LongWord *atype)
|
|
{
|
|
Word *wp = (Word *)cp;
|
|
Word h;
|
|
|
|
if (!cp || !size) return 0;
|
|
|
|
retry:
|
|
|
|
h = ((*cp | 0x20) ^ size) & 0x0f;
|
|
|
|
switch (h)
|
|
{
|
|
case 0x00:
|
|
// text
|
|
if (size == 4
|
|
&& (wp[0] | 0x2020) == 0x6574 // 'te'
|
|
&& (wp[1] | 0x2020) == 0x7478 // 'xt'
|
|
) {
|
|
*ftype = 0x04;
|
|
*atype = 0x0000;
|
|
return 1;
|
|
}
|
|
break;
|
|
|
|
case 0x09:
|
|
// text/x-pascal
|
|
if (size == 13
|
|
&& (wp[0] | 0x2020) == 0x6574 // 'te'
|
|
&& (wp[1] | 0x2020) == 0x7478 // 'xt'
|
|
&& (wp[2] | 0x2020) == 0x782f // '/x'
|
|
&& (wp[3] | 0x2020) == 0x702d // '-p'
|
|
&& (wp[4] | 0x2020) == 0x7361 // 'as'
|
|
&& (wp[5] | 0x2020) == 0x6163 // 'ca'
|
|
&& (cp[12] | 0x20) == 0x6c // 'l'
|
|
) {
|
|
*ftype = 0xb0;
|
|
*atype = 0x0005;
|
|
return 1;
|
|
}
|
|
// application/octet-stream
|
|
if (size == 24
|
|
&& (wp[0] | 0x2020) == 0x7061 // 'ap'
|
|
&& (wp[1] | 0x2020) == 0x6c70 // 'pl'
|
|
&& (wp[2] | 0x2020) == 0x6369 // 'ic'
|
|
&& (wp[3] | 0x2020) == 0x7461 // 'at'
|
|
&& (wp[4] | 0x2020) == 0x6f69 // 'io'
|
|
&& (wp[5] | 0x2020) == 0x2f6e // 'n/'
|
|
&& (wp[6] | 0x2020) == 0x636f // 'oc'
|
|
&& (wp[7] | 0x2020) == 0x6574 // 'te'
|
|
&& (wp[8] | 0x2020) == 0x2d74 // 't-'
|
|
&& (wp[9] | 0x2020) == 0x7473 // 'st'
|
|
&& (wp[10] | 0x2020) == 0x6572 // 're'
|
|
&& (wp[11] | 0x2020) == 0x6d61 // 'am'
|
|
) {
|
|
*ftype = 0x02;
|
|
*atype = 0x0000;
|
|
return 1;
|
|
}
|
|
break;
|
|
|
|
case 0x0c:
|
|
// text/x-c
|
|
if (size == 8
|
|
&& (wp[0] | 0x2020) == 0x6574 // 'te'
|
|
&& (wp[1] | 0x2020) == 0x7478 // 'xt'
|
|
&& (wp[2] | 0x2020) == 0x782f // '/x'
|
|
&& (wp[3] | 0x2020) == 0x632d // '-c'
|
|
) {
|
|
*ftype = 0xb0;
|
|
*atype = 0x0008;
|
|
return 1;
|
|
}
|
|
break;
|
|
|
|
}
|
|
|
|
/*
|
|
// try again as type
|
|
while (--size)
|
|
{
|
|
if (cp[size] == '/') goto retry;
|
|
}
|
|
*/
|
|
|
|
return 0;
|
|
}
|