RiscOS-only/!Run

   1 | !Run file for !Antiword
   2 | (C) Adri van Os 1998-2005
   3 |
   4 if "<System$Path>" = "" then Error 0 System resources cannot be found
   5 if "<Font$Path>" = "" then Error 0 There are no fonts available
   6 |
   7 Set      Antiword$Dir  <Obey$Dir>
   8 IconSprites <Antiword$Dir>.!Sprites
   9 |
  10 SetMacro Antiword$Path Choices:Antiword.,<Antiword$Dir>.,<Wimp$ScrapDir>.Antiword.
  11 |
  12 SetMacro Antiword$ChoicesFile Antiword:Choices
  13 if "<Choices$Write>" <> "" then Set Antiword$ChoicesSave <Choices$Write>.Antiword.Choices else Set Antiword$ChoicesSave <Antiword$Dir>.Choices
  14 |
  15 SetMacro Antiword$FontNamesFile Antiword:FontNames
  16 if "<Choices$Write>" <> "" then Set Antiword$FontNamesSave <Choices$Write>.Antiword.FontNames else Set Antiword$FontNamesSave <Antiword$Dir>.FontNames
  17 |
  18 Set Antiword$Latin1 <Antiword$Dir>.Resources.Unicode01
  19 Set Antiword$Latin9 <Antiword$Dir>.Resources.Unicode15
  20 |
  21 RMEnsure UtilityModule 3.10 Error You need RISC OS 3.10 or later
  22 RMEnsure UtilityModule 5.00 RMEnsure CallASWI 0.03 RMLoad System:Modules.CallASWI
  23 RMEnsure UtilityModule 5.00 RMEnsure CallASWI 0.03 Error You need CallASWI 0.03 or later
  24 RMEnsure FPEmulator 4.03 RMLoad System:Modules.FPEmulator
  25 RMEnsure FPEmulator 4.03 Error You need FPEmulator 4.03 or later
  26 RMEnsure SharedCLibrary 5.17 RMLoad System:Modules.CLib
  27 RMEnsure SharedCLibrary 5.34 Error You need SharedCLibrary 5.34 or later
  28 RMEnsure DrawFile 1.43 RMLoad System:Modules.DrawFile
  29 RMEnsure DrawFile 1.43 Error You need DrawFile 1.43 or later
  30 |
  31 if "<File$Type_AE6>" = "" then Set File$Type_AE6 MSWord
  32 |
  33 WimpSlot -min 360K -max 360K
  34 Run <Antiword$Dir>.!RunImage %*0