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

00001 /*
+00002  * riscos.c
+00003  * Copyright (C) 2001,2002 A.J. van Os; Released under GPL
+00004  *
+00005  * Description:
+00006  * RISC OS only functions
+00007  */
+00008 
+00009 #include <string.h>
+00010 #include <stdlib.h>
+00011 #include <stdarg.h>
+00012 #include "DeskLib:Error.h"
+00013 #include "DeskLib:SWI.h"
+00014 #include "antiword.h"
+00015 
+00016 #if !defined(DrawFile_Render)
+00017 #define DrawFile_Render         0x045540
+00018 #endif /* !DrawFile_Render */
+00019 #if !defined(JPEG_Info)
+00020 #define JPEG_Info               0x049980
+00021 #endif /* !JPEG_Info */
+00022 
+00023 /*
+00024  * werr - write an error message and exit if needed
+00025  */
+00026 void
+00027 werr(int iFatal, const char *szFormat, ...)
+00028 {
+00029         va_list tArg;
+00030 
+00031         va_start(tArg, szFormat);
+00032         Error_Report(iFatal, (char *)szFormat, tArg);
+00033         va_end(tArg);
+00034         switch (iFatal) {
+00035         case 0:         /* The message is just a warning, so no exit */
+00036                 return;
+00037         case 1:         /* Fatal error with a standard exit */
+00038                 exit(EXIT_FAILURE);
+00039         default:        /* Fatal error with a non-standard exit */
+00040                 exit(iFatal);
+00041         }
+00042 } /* end of werr */
+00043 
+00044 /*
+00045  * iGetFiletype
+00046  * This function will get the filetype of the given file.
+00047  * returns the filetype.
+00048  */
+00049 int
+00050 iGetFiletype(const char *szFilename)
+00051 {
+00052         os_error        *e;
+00053         int             iType;
+00054 
+00055         fail(szFilename == NULL || szFilename[0] == '\0');
+00056 
+00057         e = SWI(2, 7, SWI_OS_File | XOS_Bit,
+00058                 23, szFilename,
+00059                 NULL, NULL, NULL, NULL, NULL, NULL, &iType);
+00060         if (e == NULL) {
+00061                 return iType;
+00062         }
+00063         werr(0, "Get Filetype error %d: %s", e->errnum, e->errmess);
+00064         return -1;
+00065 } /* end of iGetFiletype */
+00066 
+00067 /*
+00068  * vSetFiletype
+00069  * This procedure will set the filetype of the given file to the given
+00070  * type.
+00071  */
+00072 void
+00073 vSetFiletype(const char *szFilename, int iFiletype)
+00074 {
+00075         os_error        *e;
+00076 
+00077         fail(szFilename == NULL || szFilename[0] == '\0');
+00078 
+00079         if (iFiletype < 0x000 || iFiletype > 0xfff) {
+00080                 return;
+00081         }
+00082         e = SWI(3, 0, SWI_OS_File | XOS_Bit,
+00083                 18, szFilename, iFiletype);
+00084         if (e != NULL) {
+00085                 switch (e->errnum) {
+00086                 case 0x000113:  /* ROM */
+00087                 case 0x0104e1:  /* Read-only floppy DOSFS */
+00088                 case 0x0108c9:  /* Read-only floppy ADFS */
+00089                 case 0x013803:  /* Read-only ArcFS */
+00090                 case 0x80344a:  /* CD-ROM */
+00091                         break;
+00092                 default:
+00093                         werr(0, "Set Filetype error %d: %s",
+00094                                 e->errnum, e->errmess);
+00095                         break;
+00096                 }
+00097         }
+00098 } /* end of vSetFileType */
+00099 
+00100 /*
+00101  * Check if the directory part of the given file exists, make the directory
+00102  * if it does not exist yet.
+00103  * Returns TRUE in case of success, otherwise FALSE.
+00104  */
+00105 BOOL
+00106 bMakeDirectory(const char *szFilename)
+00107 {
+00108         os_error        *e;
+00109         char    *pcLastDot;
+00110         int     iObjectType;
+00111         char    szDirectory[PATH_MAX+1];
+00112 
+00113         DBG_MSG("bMakeDirectory");
+00114         fail(szFilename == NULL || szFilename[0] == '\0');
+00115         DBG_MSG(szFilename);
+00116 
+00117         if (strlen(szFilename) >= sizeof(szDirectory)) {
+00118                 DBG_DEC(strlen(szFilename));
+00119                 return FALSE;
+00120         }
+00121         strcpy(szDirectory, szFilename);
+00122         pcLastDot = strrchr(szDirectory, '.');
+00123         if (pcLastDot == NULL) {
+00124                 /* No directory equals current directory */
+00125                 DBG_MSG("No directory part given");
+00126                 return TRUE;
+00127         }
+00128         *pcLastDot = '\0';
+00129         DBG_MSG(szDirectory);
+00130         /* Check if the name exists */
+00131         e = SWI(2, 1, SWI_OS_File | XOS_Bit,
+00132                 17, szDirectory,
+00133                 &iObjectType);
+00134         if (e != NULL) {
+00135                 werr(0, "Directory check %d: %s", e->errnum, e->errmess);
+00136                 return FALSE;
+00137         }
+00138         if (iObjectType == 2) {
+00139                 /* The name exists and it is a directory */
+00140                 DBG_MSG("The directory already exists");
+00141                 return TRUE;
+00142         }
+00143         if (iObjectType != 0) {
+00144                 /* The name exists and it is not a directory */
+00145                 DBG_DEC(iObjectType);
+00146                 return FALSE;
+00147         }
+00148         /* The name does not exist, make the directory */
+00149         e = SWI(5, 0, SWI_OS_File | XOS_Bit,
+00150                 8, szDirectory, 0, 0, 0);
+00151         if (e != NULL) {
+00152                 werr(0, "I can't make a directory %d: %s",
+00153                         e->errnum, e->errmess);
+00154                 return FALSE;
+00155         }
+00156         return TRUE;
+00157 } /* end of bMakeDirectory */
+00158 
+00159 /*
+00160  * iReadCurrentAlphabetNumber
+00161  * This function reads the current Alphabet number.
+00162  * Returns the current Alphabet number when successful, otherwise -1
+00163  */
+00164 int
+00165 iReadCurrentAlphabetNumber(void)
+00166 {
+00167         os_error        *e;
+00168         int             iAlphabetNumber;
+00169 
+00170         e = SWI(2, 2, SWI_OS_Byte | XOS_Bit,
+00171                 71, 127,
+00172                 NULL, &iAlphabetNumber);
+00173         if (e == NULL) {
+00174                 return iAlphabetNumber;
+00175         }
+00176         werr(0, "Read alphabet error %d: %s", e->errnum, e->errmess);
+00177         return -1;
+00178 } /* end of iReadCurrentAlphabetNumber */
+00179 
+00180 /*
+00181  * iGetRiscOsVersion - get the RISC OS version number
+00182  *
+00183  * returns the RISC OS version * 100
+00184  */
+00185 int
+00186 iGetRiscOsVersion(void)
+00187 {
+00188         os_error        *e;
+00189         int             iVersion;
+00190 
+00191         e = SWI(3, 2, SWI_OS_Byte | XOS_Bit,
+00192                 129, 0, 0xff,
+00193                 NULL, &iVersion);
+00194         if (e != NULL) {
+00195                 werr(0, "Read RISC OS version error %d: %s",
+00196                         e->errnum, e->errmess);
+00197                 return 0;
+00198         }
+00199         switch (iVersion) {
+00200         case 0xa0:      /* Arthur 1.20 */
+00201                 return 120;
+00202         case 0xa1:      /* RISC OS 2.00 */
+00203                 return 200;
+00204         case 0xa2:      /* RISC OS 2.01 */
+00205                 return 201;
+00206         case 0xa3:      /* RISC OS 3.00 */
+00207                 return 300;
+00208         case 0xa4:      /* RISC OS 3.1x */
+00209                 return 310;
+00210         case 0xa5:      /* RISC OS 3.50 */
+00211                 return 350;
+00212         case 0xa6:      /* RISC OS 3.60 */
+00213                 return 360;
+00214         case 0xa7:      /* RISC OS 3.7x */
+00215                 return 370;
+00216         case 0xa8:      /* RISC OS 4.0x */
+00217                 return 400;
+00218         default:
+00219                 if (iVersion >= 0xa9 && iVersion <= 0xaf) {
+00220                         /* RISC OS 4.10 and up */
+00221                         return 410;
+00222                 }
+00223                 /* Unknown version */
+00224                 return 0;
+00225         }
+00226 } /* end of iGetRiscOsVersion */
+00227 
+00228 #if defined(DEBUG)
+00229 BOOL
+00230 bGetJpegInfo(UCHAR *pucJpeg, size_t tJpegSize)
+00231 {
+00232         os_error        *e;
+00233         int     iReg0, iReg4, iReg5;
+00234 
+00235         e = SWI(3, 6, JPEG_Info | XOS_Bit,
+00236                 0x00, pucJpeg, tJpegSize,
+00237                 &iReg0, NULL, NULL, NULL, &iReg4, &iReg5);
+00238         if (e == NULL) {
+00239                 if (iReg0 & BIT(2)) {
+00240                         DBG_MSG("Pixel density is a simple ratio");
+00241                 } else {
+00242                         DBG_MSG("Pixel density is in dpi");
+00243                 }
+00244                 DBG_DEC(iReg4);
+00245                 DBG_DEC(iReg5);
+00246                 return TRUE;
+00247         }
+00248         werr(0, "JPEG Info error %d: %s", e->errnum, e->errmess);
+00249         return FALSE;
+00250 } /* end of bGetJpegInfo */
+00251 #endif /* DEBUG */
+