Mercurial Mercurial > oss > FCL > sftools > depl > docscontent / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Symbian3/Examples/guid-6013a680-57f9-415b-8851-c4fa63356636/riscos_8c_source.html
author Dominic Pinkman <Dominic.Pinkman@Nokia.com>
Tue, 30 Mar 2010 16:16:55 +0100
changeset 6 43e37759235e
permissions -rw-r--r--
Week 12 contribution of example code"
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
6
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
     1
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
     2
 
<html xmlns="http://www.w3.org/1999/xhtml">
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
     3
 
<head>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
     4
 
<meta http-equiv="Content-Type" content="text/xhtml;charset=UTF-8"/>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
     5
 
<title>TB9.2 Example Applications: examples/PIPS/antiword/src/riscos.c Source File</title>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
     6
 
<link href="tabs.css" rel="stylesheet" type="text/css"/>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
     7
 
<link href="doxygen.css" rel="stylesheet" type="text/css"/>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
     8
 
</head>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
     9
 
<body>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    10
 
<!-- Generated by Doxygen 1.6.2 -->
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    11
 
<h1>examples/PIPS/antiword/src/riscos.c</h1><div class="fragment"><pre class="fragment"><a name="l00001"></a>00001 <span class="comment">/*</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    12
 
<a name="l00002"></a>00002 <span class="comment"> * riscos.c</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    13
 
<a name="l00003"></a>00003 <span class="comment"> * Copyright (C) 2001,2002 A.J. van Os; Released under GPL</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    14
 
<a name="l00004"></a>00004 <span class="comment"> *</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    15
 
<a name="l00005"></a>00005 <span class="comment"> * Description:</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    16
 
<a name="l00006"></a>00006 <span class="comment"> * RISC OS only functions</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    17
 
<a name="l00007"></a>00007 <span class="comment"> */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    18
 
<a name="l00008"></a>00008
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    19
 
<a name="l00009"></a>00009 <span class="preprocessor">#include &lt;string.h&gt;</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    20
 
<a name="l00010"></a>00010 <span class="preprocessor">#include &lt;stdlib.h&gt;</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    21
 
<a name="l00011"></a>00011 <span class="preprocessor">#include &lt;stdarg.h&gt;</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    22
 
<a name="l00012"></a>00012 <span class="preprocessor">#include &quot;DeskLib:Error.h&quot;</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    23
 
<a name="l00013"></a>00013 <span class="preprocessor">#include &quot;DeskLib:SWI.h&quot;</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    24
 
<a name="l00014"></a>00014 <span class="preprocessor">#include &quot;antiword.h&quot;</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    25
 
<a name="l00015"></a>00015
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    26
 
<a name="l00016"></a>00016 <span class="preprocessor">#if !defined(DrawFile_Render)</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    27
 
<a name="l00017"></a>00017 <span class="preprocessor"></span><span class="preprocessor">#define DrawFile_Render         0x045540</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    28
 
<a name="l00018"></a>00018 <span class="preprocessor"></span><span class="preprocessor">#endif </span><span class="comment">/* !DrawFile_Render */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    29
 
<a name="l00019"></a>00019 <span class="preprocessor">#if !defined(JPEG_Info)</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    30
 
<a name="l00020"></a>00020 <span class="preprocessor"></span><span class="preprocessor">#define JPEG_Info               0x049980</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    31
 
<a name="l00021"></a>00021 <span class="preprocessor"></span><span class="preprocessor">#endif </span><span class="comment">/* !JPEG_Info */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    32
 
<a name="l00022"></a>00022
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    33
 
<a name="l00023"></a>00023 <span class="comment">/*</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    34
 
<a name="l00024"></a>00024 <span class="comment"> * werr - write an error message and exit if needed</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    35
 
<a name="l00025"></a>00025 <span class="comment"> */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    36
 
<a name="l00026"></a>00026 <span class="keywordtype">void</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    37
 
<a name="l00027"></a>00027 werr(<span class="keywordtype">int</span> iFatal, <span class="keyword">const</span> <span class="keywordtype">char</span> *szFormat, ...)
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    38
 
<a name="l00028"></a>00028 {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    39
 
<a name="l00029"></a>00029         va_list tArg;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    40
 
<a name="l00030"></a>00030
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    41
 
<a name="l00031"></a>00031         va_start(tArg, szFormat);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    42
 
<a name="l00032"></a>00032         Error_Report(iFatal, (<span class="keywordtype">char</span> *)szFormat, tArg);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    43
 
<a name="l00033"></a>00033         va_end(tArg);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    44
 
<a name="l00034"></a>00034         <span class="keywordflow">switch</span> (iFatal) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    45
 
<a name="l00035"></a>00035         <span class="keywordflow">case</span> 0:         <span class="comment">/* The message is just a warning, so no exit */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    46
 
<a name="l00036"></a>00036                 <span class="keywordflow">return</span>;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    47
 
<a name="l00037"></a>00037         <span class="keywordflow">case</span> 1:         <span class="comment">/* Fatal error with a standard exit */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    48
 
<a name="l00038"></a>00038                 exit(EXIT_FAILURE);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    49
 
<a name="l00039"></a>00039         <span class="keywordflow">default</span>:        <span class="comment">/* Fatal error with a non-standard exit */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    50
 
<a name="l00040"></a>00040                 exit(iFatal);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    51
 
<a name="l00041"></a>00041         }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    52
 
<a name="l00042"></a>00042 } <span class="comment">/* end of werr */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    53
 
<a name="l00043"></a>00043
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    54
 
<a name="l00044"></a>00044 <span class="comment">/*</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    55
 
<a name="l00045"></a>00045 <span class="comment"> * iGetFiletype</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    56
 
<a name="l00046"></a>00046 <span class="comment"> * This function will get the filetype of the given file.</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    57
 
<a name="l00047"></a>00047 <span class="comment"> * returns the filetype.</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    58
 
<a name="l00048"></a>00048 <span class="comment"> */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    59
 
<a name="l00049"></a>00049 <span class="keywordtype">int</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    60
 
<a name="l00050"></a>00050 iGetFiletype(<span class="keyword">const</span> <span class="keywordtype">char</span> *szFilename)
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    61
 
<a name="l00051"></a>00051 {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    62
 
<a name="l00052"></a>00052         os_error        *e;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    63
 
<a name="l00053"></a>00053         <span class="keywordtype">int</span>             iType;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    64
 
<a name="l00054"></a>00054
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    65
 
<a name="l00055"></a>00055         fail(szFilename == NULL || szFilename[0] == <span class="charliteral">&#39;\0&#39;</span>);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    66
 
<a name="l00056"></a>00056
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    67
 
<a name="l00057"></a>00057         e = SWI(2, 7, SWI_OS_File | XOS_Bit,
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    68
 
<a name="l00058"></a>00058                 23, szFilename,
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    69
 
<a name="l00059"></a>00059                 NULL, NULL, NULL, NULL, NULL, NULL, &amp;iType);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    70
 
<a name="l00060"></a>00060         <span class="keywordflow">if</span> (e == NULL) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    71
 
<a name="l00061"></a>00061                 <span class="keywordflow">return</span> iType;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    72
 
<a name="l00062"></a>00062         }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    73
 
<a name="l00063"></a>00063         werr(0, <span class="stringliteral">&quot;Get Filetype error %d: %s&quot;</span>, e-&gt;errnum, e-&gt;errmess);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    74
 
<a name="l00064"></a>00064         <span class="keywordflow">return</span> -1;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    75
 
<a name="l00065"></a>00065 } <span class="comment">/* end of iGetFiletype */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    76
 
<a name="l00066"></a>00066
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    77
 
<a name="l00067"></a>00067 <span class="comment">/*</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    78
 
<a name="l00068"></a>00068 <span class="comment"> * vSetFiletype</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    79
 
<a name="l00069"></a>00069 <span class="comment"> * This procedure will set the filetype of the given file to the given</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    80
 
<a name="l00070"></a>00070 <span class="comment"> * type.</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    81
 
<a name="l00071"></a>00071 <span class="comment"> */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    82
 
<a name="l00072"></a>00072 <span class="keywordtype">void</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    83
 
<a name="l00073"></a>00073 vSetFiletype(<span class="keyword">const</span> <span class="keywordtype">char</span> *szFilename, <span class="keywordtype">int</span> iFiletype)
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    84
 
<a name="l00074"></a>00074 {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    85
 
<a name="l00075"></a>00075         os_error        *e;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    86
 
<a name="l00076"></a>00076
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    87
 
<a name="l00077"></a>00077         fail(szFilename == NULL || szFilename[0] == <span class="charliteral">&#39;\0&#39;</span>);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    88
 
<a name="l00078"></a>00078
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    89
 
<a name="l00079"></a>00079         <span class="keywordflow">if</span> (iFiletype &lt; 0x000 || iFiletype &gt; 0xfff) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    90
 
<a name="l00080"></a>00080                 <span class="keywordflow">return</span>;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    91
 
<a name="l00081"></a>00081         }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    92
 
<a name="l00082"></a>00082         e = SWI(3, 0, SWI_OS_File | XOS_Bit,
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    93
 
<a name="l00083"></a>00083                 18, szFilename, iFiletype);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    94
 
<a name="l00084"></a>00084         <span class="keywordflow">if</span> (e != NULL) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    95
 
<a name="l00085"></a>00085                 <span class="keywordflow">switch</span> (e-&gt;errnum) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    96
 
<a name="l00086"></a>00086                 <span class="keywordflow">case</span> 0x000113:  <span class="comment">/* ROM */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    97
 
<a name="l00087"></a>00087                 <span class="keywordflow">case</span> 0x0104e1:  <span class="comment">/* Read-only floppy DOSFS */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    98
 
<a name="l00088"></a>00088                 <span class="keywordflow">case</span> 0x0108c9:  <span class="comment">/* Read-only floppy ADFS */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
    99
 
<a name="l00089"></a>00089                 <span class="keywordflow">case</span> 0x013803:  <span class="comment">/* Read-only ArcFS */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   100
 
<a name="l00090"></a>00090                 <span class="keywordflow">case</span> 0x80344a:  <span class="comment">/* CD-ROM */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   101
 
<a name="l00091"></a>00091                         <span class="keywordflow">break</span>;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   102
 
<a name="l00092"></a>00092                 <span class="keywordflow">default</span>:
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   103
 
<a name="l00093"></a>00093                         werr(0, <span class="stringliteral">&quot;Set Filetype error %d: %s&quot;</span>,
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   104
 
<a name="l00094"></a>00094                                 e-&gt;errnum, e-&gt;errmess);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   105
 
<a name="l00095"></a>00095                         <span class="keywordflow">break</span>;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   106
 
<a name="l00096"></a>00096                 }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   107
 
<a name="l00097"></a>00097         }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   108
 
<a name="l00098"></a>00098 } <span class="comment">/* end of vSetFileType */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   109
 
<a name="l00099"></a>00099
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   110
 
<a name="l00100"></a>00100 <span class="comment">/*</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   111
 
<a name="l00101"></a>00101 <span class="comment"> * Check if the directory part of the given file exists, make the directory</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   112
 
<a name="l00102"></a>00102 <span class="comment"> * if it does not exist yet.</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   113
 
<a name="l00103"></a>00103 <span class="comment"> * Returns TRUE in case of success, otherwise FALSE.</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   114
 
<a name="l00104"></a>00104 <span class="comment"> */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   115
 
<a name="l00105"></a>00105 BOOL
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   116
 
<a name="l00106"></a>00106 bMakeDirectory(<span class="keyword">const</span> <span class="keywordtype">char</span> *szFilename)
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   117
 
<a name="l00107"></a>00107 {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   118
 
<a name="l00108"></a>00108         os_error        *e;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   119
 
<a name="l00109"></a>00109         <span class="keywordtype">char</span>    *pcLastDot;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   120
 
<a name="l00110"></a>00110         <span class="keywordtype">int</span>     iObjectType;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   121
 
<a name="l00111"></a>00111         <span class="keywordtype">char</span>    szDirectory[PATH_MAX+1];
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   122
 
<a name="l00112"></a>00112
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   123
 
<a name="l00113"></a>00113         DBG_MSG(<span class="stringliteral">&quot;bMakeDirectory&quot;</span>);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   124
 
<a name="l00114"></a>00114         fail(szFilename == NULL || szFilename[0] == <span class="charliteral">&#39;\0&#39;</span>);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   125
 
<a name="l00115"></a>00115         DBG_MSG(szFilename);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   126
 
<a name="l00116"></a>00116
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   127
 
<a name="l00117"></a>00117         <span class="keywordflow">if</span> (strlen(szFilename) &gt;= <span class="keyword">sizeof</span>(szDirectory)) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   128
 
<a name="l00118"></a>00118                 DBG_DEC(strlen(szFilename));
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   129
 
<a name="l00119"></a>00119                 <span class="keywordflow">return</span> FALSE;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   130
 
<a name="l00120"></a>00120         }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   131
 
<a name="l00121"></a>00121         strcpy(szDirectory, szFilename);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   132
 
<a name="l00122"></a>00122         pcLastDot = strrchr(szDirectory, <span class="charliteral">&#39;.&#39;</span>);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   133
 
<a name="l00123"></a>00123         <span class="keywordflow">if</span> (pcLastDot == NULL) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   134
 
<a name="l00124"></a>00124                 <span class="comment">/* No directory equals current directory */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   135
 
<a name="l00125"></a>00125                 DBG_MSG(<span class="stringliteral">&quot;No directory part given&quot;</span>);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   136
 
<a name="l00126"></a>00126                 <span class="keywordflow">return</span> TRUE;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   137
 
<a name="l00127"></a>00127         }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   138
 
<a name="l00128"></a>00128         *pcLastDot = <span class="charliteral">&#39;\0&#39;</span>;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   139
 
<a name="l00129"></a>00129         DBG_MSG(szDirectory);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   140
 
<a name="l00130"></a>00130         <span class="comment">/* Check if the name exists */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   141
 
<a name="l00131"></a>00131         e = SWI(2, 1, SWI_OS_File | XOS_Bit,
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   142
 
<a name="l00132"></a>00132                 17, szDirectory,
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   143
 
<a name="l00133"></a>00133                 &amp;iObjectType);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   144
 
<a name="l00134"></a>00134         <span class="keywordflow">if</span> (e != NULL) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   145
 
<a name="l00135"></a>00135                 werr(0, <span class="stringliteral">&quot;Directory check %d: %s&quot;</span>, e-&gt;errnum, e-&gt;errmess);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   146
 
<a name="l00136"></a>00136                 <span class="keywordflow">return</span> FALSE;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   147
 
<a name="l00137"></a>00137         }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   148
 
<a name="l00138"></a>00138         <span class="keywordflow">if</span> (iObjectType == 2) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   149
 
<a name="l00139"></a>00139                 <span class="comment">/* The name exists and it is a directory */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   150
 
<a name="l00140"></a>00140                 DBG_MSG(<span class="stringliteral">&quot;The directory already exists&quot;</span>);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   151
 
<a name="l00141"></a>00141                 <span class="keywordflow">return</span> TRUE;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   152
 
<a name="l00142"></a>00142         }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   153
 
<a name="l00143"></a>00143         <span class="keywordflow">if</span> (iObjectType != 0) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   154
 
<a name="l00144"></a>00144                 <span class="comment">/* The name exists and it is not a directory */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   155
 
<a name="l00145"></a>00145                 DBG_DEC(iObjectType);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   156
 
<a name="l00146"></a>00146                 <span class="keywordflow">return</span> FALSE;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   157
 
<a name="l00147"></a>00147         }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   158
 
<a name="l00148"></a>00148         <span class="comment">/* The name does not exist, make the directory */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   159
 
<a name="l00149"></a>00149         e = SWI(5, 0, SWI_OS_File | XOS_Bit,
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   160
 
<a name="l00150"></a>00150                 8, szDirectory, 0, 0, 0);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   161
 
<a name="l00151"></a>00151         <span class="keywordflow">if</span> (e != NULL) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   162
 
<a name="l00152"></a>00152                 werr(0, <span class="stringliteral">&quot;I can&#39;t make a directory %d: %s&quot;</span>,
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   163
 
<a name="l00153"></a>00153                         e-&gt;errnum, e-&gt;errmess);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   164
 
<a name="l00154"></a>00154                 <span class="keywordflow">return</span> FALSE;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   165
 
<a name="l00155"></a>00155         }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   166
 
<a name="l00156"></a>00156         <span class="keywordflow">return</span> TRUE;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   167
 
<a name="l00157"></a>00157 } <span class="comment">/* end of bMakeDirectory */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   168
 
<a name="l00158"></a>00158
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   169
 
<a name="l00159"></a>00159 <span class="comment">/*</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   170
 
<a name="l00160"></a>00160 <span class="comment"> * iReadCurrentAlphabetNumber</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   171
 
<a name="l00161"></a>00161 <span class="comment"> * This function reads the current Alphabet number.</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   172
 
<a name="l00162"></a>00162 <span class="comment"> * Returns the current Alphabet number when successful, otherwise -1</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   173
 
<a name="l00163"></a>00163 <span class="comment"> */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   174
 
<a name="l00164"></a>00164 <span class="keywordtype">int</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   175
 
<a name="l00165"></a>00165 iReadCurrentAlphabetNumber(<span class="keywordtype">void</span>)
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   176
 
<a name="l00166"></a>00166 {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   177
 
<a name="l00167"></a>00167         os_error        *e;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   178
 
<a name="l00168"></a>00168         <span class="keywordtype">int</span>             iAlphabetNumber;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   179
 
<a name="l00169"></a>00169
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   180
 
<a name="l00170"></a>00170         e = SWI(2, 2, SWI_OS_Byte | XOS_Bit,
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   181
 
<a name="l00171"></a>00171                 71, 127,
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   182
 
<a name="l00172"></a>00172                 NULL, &amp;iAlphabetNumber);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   183
 
<a name="l00173"></a>00173         <span class="keywordflow">if</span> (e == NULL) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   184
 
<a name="l00174"></a>00174                 <span class="keywordflow">return</span> iAlphabetNumber;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   185
 
<a name="l00175"></a>00175         }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   186
 
<a name="l00176"></a>00176         werr(0, <span class="stringliteral">&quot;Read alphabet error %d: %s&quot;</span>, e-&gt;errnum, e-&gt;errmess);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   187
 
<a name="l00177"></a>00177         <span class="keywordflow">return</span> -1;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   188
 
<a name="l00178"></a>00178 } <span class="comment">/* end of iReadCurrentAlphabetNumber */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   189
 
<a name="l00179"></a>00179
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   190
 
<a name="l00180"></a>00180 <span class="comment">/*</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   191
 
<a name="l00181"></a>00181 <span class="comment"> * iGetRiscOsVersion - get the RISC OS version number</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   192
 
<a name="l00182"></a>00182 <span class="comment"> *</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   193
 
<a name="l00183"></a>00183 <span class="comment"> * returns the RISC OS version * 100</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   194
 
<a name="l00184"></a>00184 <span class="comment"> */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   195
 
<a name="l00185"></a>00185 <span class="keywordtype">int</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   196
 
<a name="l00186"></a>00186 iGetRiscOsVersion(<span class="keywordtype">void</span>)
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   197
 
<a name="l00187"></a>00187 {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   198
 
<a name="l00188"></a>00188         os_error        *e;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   199
 
<a name="l00189"></a>00189         <span class="keywordtype">int</span>             iVersion;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   200
 
<a name="l00190"></a>00190
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   201
 
<a name="l00191"></a>00191         e = SWI(3, 2, SWI_OS_Byte | XOS_Bit,
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   202
 
<a name="l00192"></a>00192                 129, 0, 0xff,
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   203
 
<a name="l00193"></a>00193                 NULL, &amp;iVersion);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   204
 
<a name="l00194"></a>00194         <span class="keywordflow">if</span> (e != NULL) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   205
 
<a name="l00195"></a>00195                 werr(0, <span class="stringliteral">&quot;Read RISC OS version error %d: %s&quot;</span>,
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   206
 
<a name="l00196"></a>00196                         e-&gt;errnum, e-&gt;errmess);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   207
 
<a name="l00197"></a>00197                 <span class="keywordflow">return</span> 0;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   208
 
<a name="l00198"></a>00198         }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   209
 
<a name="l00199"></a>00199         <span class="keywordflow">switch</span> (iVersion) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   210
 
<a name="l00200"></a>00200         <span class="keywordflow">case</span> 0xa0:      <span class="comment">/* Arthur 1.20 */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   211
 
<a name="l00201"></a>00201                 <span class="keywordflow">return</span> 120;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   212
 
<a name="l00202"></a>00202         <span class="keywordflow">case</span> 0xa1:      <span class="comment">/* RISC OS 2.00 */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   213
 
<a name="l00203"></a>00203                 <span class="keywordflow">return</span> 200;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   214
 
<a name="l00204"></a>00204         <span class="keywordflow">case</span> 0xa2:      <span class="comment">/* RISC OS 2.01 */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   215
 
<a name="l00205"></a>00205                 <span class="keywordflow">return</span> 201;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   216
 
<a name="l00206"></a>00206         <span class="keywordflow">case</span> 0xa3:      <span class="comment">/* RISC OS 3.00 */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   217
 
<a name="l00207"></a>00207                 <span class="keywordflow">return</span> 300;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   218
 
<a name="l00208"></a>00208         <span class="keywordflow">case</span> 0xa4:      <span class="comment">/* RISC OS 3.1x */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   219
 
<a name="l00209"></a>00209                 <span class="keywordflow">return</span> 310;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   220
 
<a name="l00210"></a>00210         <span class="keywordflow">case</span> 0xa5:      <span class="comment">/* RISC OS 3.50 */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   221
 
<a name="l00211"></a>00211                 <span class="keywordflow">return</span> 350;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   222
 
<a name="l00212"></a>00212         <span class="keywordflow">case</span> 0xa6:      <span class="comment">/* RISC OS 3.60 */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   223
 
<a name="l00213"></a>00213                 <span class="keywordflow">return</span> 360;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   224
 
<a name="l00214"></a>00214         <span class="keywordflow">case</span> 0xa7:      <span class="comment">/* RISC OS 3.7x */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   225
 
<a name="l00215"></a>00215                 <span class="keywordflow">return</span> 370;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   226
 
<a name="l00216"></a>00216         <span class="keywordflow">case</span> 0xa8:      <span class="comment">/* RISC OS 4.0x */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   227
 
<a name="l00217"></a>00217                 <span class="keywordflow">return</span> 400;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   228
 
<a name="l00218"></a>00218         <span class="keywordflow">default</span>:
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   229
 
<a name="l00219"></a>00219                 <span class="keywordflow">if</span> (iVersion &gt;= 0xa9 &amp;&amp; iVersion &lt;= 0xaf) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   230
 
<a name="l00220"></a>00220                         <span class="comment">/* RISC OS 4.10 and up */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   231
 
<a name="l00221"></a>00221                         <span class="keywordflow">return</span> 410;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   232
 
<a name="l00222"></a>00222                 }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   233
 
<a name="l00223"></a>00223                 <span class="comment">/* Unknown version */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   234
 
<a name="l00224"></a>00224                 <span class="keywordflow">return</span> 0;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   235
 
<a name="l00225"></a>00225         }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   236
 
<a name="l00226"></a>00226 } <span class="comment">/* end of iGetRiscOsVersion */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   237
 
<a name="l00227"></a>00227
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   238
 
<a name="l00228"></a>00228 <span class="preprocessor">#if defined(DEBUG)</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   239
 
<a name="l00229"></a>00229 <span class="preprocessor"></span>BOOL
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   240
 
<a name="l00230"></a>00230 bGetJpegInfo(UCHAR *pucJpeg, <span class="keywordtype">size_t</span> tJpegSize)
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   241
 
<a name="l00231"></a>00231 {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   242
 
<a name="l00232"></a>00232         os_error        *e;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   243
 
<a name="l00233"></a>00233         <span class="keywordtype">int</span>     iReg0, iReg4, iReg5;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   244
 
<a name="l00234"></a>00234
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   245
 
<a name="l00235"></a>00235         e = SWI(3, 6, JPEG_Info | XOS_Bit,
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   246
 
<a name="l00236"></a>00236                 0x00, pucJpeg, tJpegSize,
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   247
 
<a name="l00237"></a>00237                 &amp;iReg0, NULL, NULL, NULL, &amp;iReg4, &amp;iReg5);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   248
 
<a name="l00238"></a>00238         <span class="keywordflow">if</span> (e == NULL) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   249
 
<a name="l00239"></a>00239                 <span class="keywordflow">if</span> (iReg0 &amp; BIT(2)) {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   250
 
<a name="l00240"></a>00240                         DBG_MSG(<span class="stringliteral">&quot;Pixel density is a simple ratio&quot;</span>);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   251
 
<a name="l00241"></a>00241                 } <span class="keywordflow">else</span> {
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   252
 
<a name="l00242"></a>00242                         DBG_MSG(<span class="stringliteral">&quot;Pixel density is in dpi&quot;</span>);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   253
 
<a name="l00243"></a>00243                 }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   254
 
<a name="l00244"></a>00244                 DBG_DEC(iReg4);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   255
 
<a name="l00245"></a>00245                 DBG_DEC(iReg5);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   256
 
<a name="l00246"></a>00246                 <span class="keywordflow">return</span> TRUE;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   257
 
<a name="l00247"></a>00247         }
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   258
 
<a name="l00248"></a>00248         werr(0, <span class="stringliteral">&quot;JPEG Info error %d: %s&quot;</span>, e-&gt;errnum, e-&gt;errmess);
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   259
 
<a name="l00249"></a>00249         <span class="keywordflow">return</span> FALSE;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   260
 
<a name="l00250"></a>00250 } <span class="comment">/* end of bGetJpegInfo */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   261
 
<a name="l00251"></a>00251 <span class="preprocessor">#endif </span><span class="comment">/* DEBUG */</span>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   262
 
</pre></div></div>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   263
 
<hr size="1"/><address style="text-align: right;"><small>Generated by&nbsp;
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   264
 
<a href="http://www.doxygen.org/index.html">
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   265
 
<img class="footer" src="doxygen.png" alt="doxygen"/></a> 1.6.2 </small></address>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   266
 
</body>
43e37759235e Week 12 contribution of example code"
Dominic Pinkman <Dominic.Pinkman@Nokia.com>
parents:
diff changeset 
   267
 
</html>
FCL/sftools/depl/docscontent