ciderpress/reformat/PascalFiles.h
2007-03-27 17:47:10 +00:00

104 lines
2.4 KiB
C++

/*
* 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__*/