•HTTP Server/HttpServer.r

#include    "Types.r"
#include    "SysTypes.r"
 
 
#define vMajor  1 
#define vMinor  0 
#define vStage  32
#define vRev    0
 
#define rAPPL   128
#define owner   'dtsw'
 
type owner  {
        pstring;
};
 
resource owner  (0, purgeable)  {
    $$Format("Sample Http Server \n  Copyright (work in progress)\n Apple Computer, Inc All rights reserved.\n")
};
 
 
resource 'BNDL' (rAPPL, purgeable) {
        owner, 0,{
            'ICN#', {0, rAPPL}; 
            'ics#', {0, rAPPL}; 
            'icl4', {0, rAPPL}; 
            'icl8', {0, rAPPL}; 
            'ics4', {0, rAPPL}; 
            'ics8', {0, rAPPL}; 
            'FREF', {0, rAPPL}
            }
        };
 
 
resource 'FREF' (rAPPL, purgeable) { 'APPL',0, "" };
 
 
#if (vStage==0x20)
#define StageStr "(development)"
#define StageC  "d"
#elif (vStage==0x40)
#define StageStr "(alpha)"
#define StageC  "a"
#elif (vStage==0x60)
#define StageStr "(beta)"
#define StageC  "b"
#elif (vStage==0x80)
#define StageStr ""
#define StageC  ""
#endif
 
 
resource 'vers' (1) {           
    vMajor,                                             /* major revision       */
    vMinor,                                             /* minor revision       */
    vStage,                                             /* release stage        */
    vRev,                                               /* build number         */
    verUS,                                              /* Country code         */
    $$format("%d.%d%s%d",vMajor,vMinor,StageC,vRev),    /* Short version number */
    $$format("%d.%d%s%d,© (work in progress)\n Apple Computer",
                vMajor,vMinor,StageC,vRev)              /* Long version number  */
};
 
resource 'vers' (2) {
    vMajor,                                         /* major revision       */
    vMinor,                                         /* minor revision       */
    vStage,                                         /* release stage        */
    vRev,                                           /* build number         */
    verUS,                                          /* Country code         */
    $$format("%d.%d%s%d",vMajor,vMinor,StageC,vRev),/* Short version number */
    $$format("Sample Http Server %s",StageStr)/* Long version number    */
};
 
 
 
 
resource 'icl4' (rAPPL, purgeable) {
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"000F FFFF FFFF FFFF FFFF FFFF FFFF F000"
    $"000F 0000 0000 0000 0000 0000 0000 F000"
    $"000F 0000 0000 0000 0000 0000 0000 F000"
    $"000F 00FF F0FF F000 0000 0000 0000 F000"
    $"000F 0000 0000 0000 0000 0000 0000 F000"
    $"00FF 00FF F0FF FF00 0000 0000 0000 FF00"
    $"0F0F 0000 0000 0000 0000 0000 0000 F0F0"
    $"F00F 0000 0000 0000 0000 0000 0000 F00F"
    $"FF0F 000F FFF0 FFF0 0FFF FF0F F000 F0FF"
    $"F0FF 0000 0000 0000 0000 0000 0000 FF0F"
    $"F00F 000F FFFF 0FF0 FFFF 0FFF F000 F00F"
    $"F000 F000 0000 0000 0000 0000 000F 000F"
    $"F000 0F0F FFFF F0FF F0FF 0FFF F0F0 000F"
    $"F000 00FF 0000 0000 0000 0000 FF00 000F"
    $"F000 0000 F000 0000 0000 000F 0000 000F"
    $"F000 0000 0FF0 0000 0000 0FF0 0000 000F"
    $"F000 0000 0F0F 0000 0000 F0F0 0000 000F"
    $"F000 0000 F000 FF00 00FF 000F 0000 000F"
    $"F000 000F 0000 00F0 0F00 0000 F000 000F"
    $"F000 00F0 0000 000F F000 0000 0F00 000F"
    $"F000 0F00 0000 0000 0000 0000 00F0 000F"
    $"F000 F000 0000 0000 0000 0000 000F 000F"
    $"F00F 0000 0000 0000 0000 0000 0000 F00F"
    $"F0F0 0000 0000 0000 0000 0000 0000 0F0F"
    $"FF00 0000 0000 0000 0000 0000 0000 00FF"
    $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
};
 
resource 'icl8' (rAPPL, purgeable) {
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"0000 00FF FFFF FFFF FFFF FFFF FFFF FFFF"
    $"FFFF FFFF FFFF FFFF FFFF FFFF FF00 0000"
    $"0000 00FF 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 FF00 0000"
    $"0000 00FF 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 FF00 0000"
    $"0000 00FF 0000 FFFF FF00 FFFF FF00 0000"
    $"0000 0000 0000 0000 0000 0000 FF00 0000"
    $"0000 00FF 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 FF00 0000"
    $"0000 FFFF 0000 FFFF FF00 FFFF FFFF 0000"
    $"0000 0000 0000 0000 0000 0000 FFFF 0000"
    $"00FF 00FF 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 FF00 FF00"
    $"FF00 00FF 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 FF00 00FF"
    $"FFFF 00FF 0000 00FF FFFF FF00 FFFF FF00"
    $"00FF FFFF FFFF 00FF FF00 0000 FF00 FFFF"
    $"FF00 FFFF 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 FFFF 00FF"
    $"FF00 00FF 0000 00FF FFFF FFFF 00FF FF00"
    $"FFFF FFFF 00FF FFFF FF00 0000 FF00 00FF"
    $"FF00 0000 FF00 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 00FF 0000 00FF"
    $"FF00 0000 00FF 00FF FFFF FFFF FF00 FFFF"
    $"FF00 FFFF 00FF FFFF FF00 FF00 0000 00FF"
    $"FF00 0000 0000 FFFF 0000 0000 0000 0000"
    $"0000 0000 0000 0000 FFFF 0000 0000 00FF"
    $"FF00 0000 0000 0000 FF00 0000 0000 0000"
    $"0000 0000 0000 00FF 0000 0000 0000 00FF"
    $"FF00 0000 0000 0000 00FF FF00 0000 0000"
    $"0000 0000 00FF FF00 0000 0000 0000 00FF"
    $"FF00 0000 0000 0000 00FF 00FF 0000 0000"
    $"0000 0000 FF00 FF00 0000 0000 0000 00FF"
    $"FF00 0000 0000 0000 FF00 0000 FFFF 0000"
    $"0000 FFFF 0000 00FF 0000 0000 0000 00FF"
    $"FF00 0000 0000 00FF 0000 0000 0000 FF00"
    $"00FF 0000 0000 0000 FF00 0000 0000 00FF"
    $"FF00 0000 0000 FF00 0000 0000 0000 00FF"
    $"FF00 0000 0000 0000 00FF 0000 0000 00FF"
    $"FF00 0000 00FF 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 FF00 0000 00FF"
    $"FF00 0000 FF00 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 00FF 0000 00FF"
    $"FF00 00FF 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 FF00 00FF"
    $"FF00 FF00 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 00FF 00FF"
    $"FFFF 0000 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 0000 FFFF"
    $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
    $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
};
 
resource 'ICN#' (rAPPL, purgeable) {
    {   /* array: 2 elements */
        /* [1] */
        $"0000 0000 0000 0000 0000 0000 0000 0000"
        $"1FFF FFF8 1000 0008 1000 0008 13B8 0008"
        $"1000 0008 33BC 000C 5000 000A 9000 0009"
        $"D1EE 7D8B B000 000D 91F6 F789 8800 0011"
        $"85FB B7A1 8300 00C1 8080 0101 8060 0601"
        $"8050 0A01 808C 3101 8102 4081 8201 8041"
        $"8400 0021 8800 0011 9000 0009 A000 0005"
        $"C000 0003 FFFF FFFF",
        /* [2] */
        $"0000 0000 0000 0000 0000 0000 0000 0000"
        $"1FFF FFF8 1FFF FFF8 1FFF FFF8 1FFF FFF8"
        $"1FFF FFF8 3FFF FFFC 7FFF FFFE FFFF FFFF"
        $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
        $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
        $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
        $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
        $"FFFF FFFF FFFF FFFF"
    }
};
 
resource 'ICON' (rAPPL, purgeable) {
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 FFFF FFF0 8000 0010"
    $"9780 01D0 8000 0150 9D80 0150 8000 01D0"
    $"8000 0010 8000 0010 8000 0010 81CD F810"
    $"8000 0010 81F7 7810 8000 0010 81DD F810"
    $"8000 0010 8000 0010 8000 0010 FFFF FFF0"
};
 
resource 'ics8' (rAPPL, purgeable) {
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"0000 FFFF FFFF FFFF FFFF FFFF FFFF 0000"
    $"0000 FF00 0000 0000 0000 0000 00FF 0000"
    $"0000 FF00 FFFF FF00 0000 0000 00FF 0000"
    $"0000 FF00 0000 00FF FFFF 0000 00FF 0000"
    $"00FF FF00 0000 0000 0000 0000 00FF FF00"
    $"00FF FF00 FFFF FFFF FFFF FF00 00FF FF00"
    $"00FF 00FF 0000 0000 0000 0000 FF00 FF00"
    $"00FF 0000 FFFF 0000 0000 FFFF 0000 FF00"
    $"00FF 0000 00FF FF00 00FF FF00 0000 FF00"
    $"00FF 0000 FF00 00FF FF00 00FF 0000 FF00"
    $"00FF 00FF 0000 0000 0000 0000 FF00 FF00"
    $"00FF FF00 0000 0000 0000 0000 00FF FF00"
    $"00FF FFFF FFFF FFFF FFFF FFFF FFFF FF"
};
 
resource 'ics4' (rAPPL, purgeable) {
    $"0000 0000 0000 0000 0000 0000 0000 0000"
    $"00FF FFFF FFFF FF00 00F0 0000 0000 0F00"
    $"00F0 FFF0 0000 0F00 00F0 000F FF00 0F00"
    $"0FF0 0000 0000 0FF0 0FF0 FFFF FFF0 0FF0"
    $"0F0F 0000 0000 F0F0 0F00 FF00 00FF 00F0"
    $"0F00 0FF0 0FF0 00F0 0F00 F00F F00F 00F0"
    $"0F0F 0000 0000 F0F0 0FF0 0000 0000 0FF0"
    $"0FFF FFFF FFFF FFF0"
};
 
resource 'ics#'  (rAPPL, purgeable) {
    {   /* array: 2 elements */
        /* [1] */
        $"0000 0000 3FFC 2004 2E04 21C4 6006 6FE6"
        $"500A 4C32 4662 4992 500A 6006 7FFE",
        /* [2] */
        $"0000 0000 3FFC 3FFC 3FFC 3FFC 7FFE 7FFE"
        $"7FFE 7FFE 7FFE 7FFE 7FFE 7FFE 7FFE"
    }
};