ciderpress/reformat/PascalFiles.h

/*
 * CiderPress
 * Copyright (C) 2007 by faddenSoft, LLC.  All Rights Reserved.
 * See the file LICENSE for distribution terms.
 */
/*
 * Reformat UCSD Pascal files.
 */
#ifndef __LR_PASCALFILES__
#define __LR_PASCALFILES__

#include "ReformatBase.h"

/*
 * Reformat a Pascal code file into its constituent parts.
 */
class ReformatPascalCode : public ReformatText {
public:
    ReformatPascalCode(void) {}
    virtual ~ReformatPascalCode(void) {}

    virtual void Examine(ReformatHolder* pHolder);
    virtual int Process(const ReformatHolder* pHolder,
        ReformatHolder::ReformatID id, ReformatHolder::ReformatPart part,
        ReformatOutput* pOutput);

    enum {
        // VC++6.0 demands this be public, probably because it's used to
        // determine the size of the object.
        kSegmentNameLen     = 8,
    };

private:
    enum {
        kSegmentHeaderLen   = 512,
        kNumSegments        = 16,
    };
    typedef enum SegmentKind {
        kSegmentLinked,
        kSegmentHostseg,
        kSegmentSegproc,
        kSegmentUnitseg,
        kSegmentSeprtseg,
        kSegmentUnlinkedIntrins,
        kSegmentLinkedIntrins,
        kSegmentDataseg
    } SegmentKind;
    typedef enum MachineType {
        kMTUnidentified = 0,
        kMTPCodeMSB         = 1,
        kMTPCodeLSB         = 2,
        kMTPAsm3            = 3,
        kMTPAsm4            = 4,
        kMTPAsm5            = 5,
        kMTPAsm6            = 6,
        kMTPAsmApple6502    = 7,
        kMTPAsm8            = 8,
        kMTPAsm9            = 9,
    } MachineType;
    typedef struct SegInfo {
        unsigned char segNum;
        MachineType   mType;
        unsigned char unused;
        unsigned char version;
    } SegInfo;
    typedef struct PCDSegment {
        unsigned short  codeLeng;
        unsigned short  codeAddr;
        char            name[kSegmentNameLen+1];
        SegmentKind     segmentKind;
        unsigned short  textAddr;
        SegInfo         segInfo;
    } PCDSegment;

    void PrintSegment(PCDSegment* pSegment, int segNum,
        const unsigned char* srcBuf, long srcLen);
};

/*
 * Reformat a Pascal text file into plain text.
 */
class ReformatPascalText : public ReformatText {
public:
    ReformatPascalText(void) {}
    virtual ~ReformatPascalText(void) {}

    virtual void Examine(ReformatHolder* pHolder);
    virtual int Process(const ReformatHolder* pHolder,
        ReformatHolder::ReformatID id, ReformatHolder::ReformatPart part,
        ReformatOutput* pOutput);

private:
    enum {
        kPTXBlockSize = 1024,
        kDLE = 0x10,
        kIndentSub = 32,
    };

private:
    void ProcessBlock(const unsigned char* srcBuf, long length);
};

#endif /*__LR_PASCALFILES__*/