TB9.2 Example Applications: examples/PIPS/antiword/src/wordmac.c Source File

00001 /*
-00002  * wordmac.c
-00003  * Copyright (C) 2002-2004 A.J. van Os; Released under GNU GPL
-00004  *
-00005  * Description:
-00006  * Deal with the MAC internals of a MS Word file
-00007  */
-00008 
-00009 #include "antiword.h"
-00010 
-00011 
-00012 /*
-00013  * bGetDocumentText - make a list of the text blocks of a Word document
-00014  *
-00015  * Return TRUE when succesful, otherwise FALSE
-00016  */
-00017 static BOOL
-00018 bGetDocumentText(FILE *pFile, const UCHAR *aucHeader)
-00019 {
-00020         text_block_type tTextBlock;
-00021         ULONG   ulBeginOfText, ulEndOfText;
-00022         ULONG   ulTextLen;
-00023         UCHAR   ucDocStatus;
-00024         BOOL    bFastSaved;
-00025 
-00026         fail(pFile == NULL);
-00027         fail(aucHeader == NULL);
-00028 
-00029         DBG_MSG("bGetDocumentText");
-00030 
-00031         NO_DBG_PRINT_BLOCK(aucHeader, 0x20);
-00032 
-00033         /* Get the status flags from the header */
-00034         ucDocStatus = ucGetByte(0x0a, aucHeader);
-00035         DBG_HEX(ucDocStatus);
-00036         bFastSaved = (ucDocStatus & BIT(5)) != 0;
-00037         DBG_MSG_C(bFastSaved, "This document is Fast Saved");
-00038         if (bFastSaved) {
-00039                 werr(0, "MacWord: fast saved documents are not supported yet");
-00040                 return FALSE;
-00041         }
-00042 
-00043         /* Get length information */
-00044         ulBeginOfText = ulGetLongBE(0x14, aucHeader);
-00045         DBG_HEX(ulBeginOfText);
-00046         ulEndOfText = ulGetLongBE(0x18, aucHeader);
-00047         DBG_HEX(ulEndOfText);
-00048         ulTextLen = ulEndOfText - ulBeginOfText;
-00049         DBG_DEC(ulTextLen);
-00050         tTextBlock.ulFileOffset = ulBeginOfText;
-00051         tTextBlock.ulCharPos = ulBeginOfText;
-00052         tTextBlock.ulLength = ulTextLen;
-00053         tTextBlock.bUsesUnicode = FALSE;
-00054         tTextBlock.usPropMod = IGNORE_PROPMOD;
-00055         if (!bAdd2TextBlockList(&tTextBlock)) {
-00056                 DBG_HEX(tTextBlock.ulFileOffset);
-00057                 DBG_HEX(tTextBlock.ulCharPos);
-00058                 DBG_DEC(tTextBlock.ulLength);
-00059                 DBG_DEC(tTextBlock.bUsesUnicode);
-00060                 DBG_DEC(tTextBlock.usPropMod);
-00061                 return FALSE;
-00062         }
-00063         return TRUE;
-00064 } /* end of bGetDocumentText */
-00065 
-00066 /*
-00067  * iInitDocumentMAC - initialize an MAC document
-00068  *
-00069  * Returns the version of Word that made the document or -1
-00070  */
-00071 int
-00072 iInitDocumentMAC(FILE *pFile, long lFilesize)
-00073 {
-00074         int     iWordVersion;
-00075         BOOL    bSuccess;
-00076         USHORT  usIdent;
-00077         UCHAR   aucHeader[256];
-00078 
-00079         fail(pFile == NULL);
-00080 
-00081         if (lFilesize < 256) {
-00082                 return -1;
-00083         }
-00084 
-00085         /* Read the headerblock */
-00086         if (!bReadBytes(aucHeader, 256, 0x00, pFile)) {
-00087                 return -1;
-00088         }
-00089         /* Get the "magic number" from the header */
-00090         usIdent = usGetWord(0x00, aucHeader);
-00091         DBG_HEX(usIdent);
-00092         fail(usIdent != 0x37fe);        /* MacWord 4 and 5 */
-00093         iWordVersion = iGetVersionNumber(aucHeader);
-00094         if (iWordVersion != 4 && iWordVersion != 5) {
-00095                 werr(0, "This file is not from ''Mac Word 4 or 5'.");
-00096                 return -1;
-00097         }
-00098         bSuccess = bGetDocumentText(pFile, aucHeader);
-00099         if (bSuccess) {
-00100                 vGetPropertyInfo(pFile, NULL,
-00101                                 NULL, 0, NULL, 0,
-00102                                 aucHeader, iWordVersion);
-00103                 vSetDefaultTabWidth(pFile, NULL,
-00104                                 NULL, 0, NULL, 0,
-00105                                 aucHeader, iWordVersion);
-00106         }
-00107         return bSuccess ? iWordVersion : -1;
-00108 } /* end of iInitDocumentMAC */
-