RiscOS-only/!Run

   1 | !Run file for !Antiword
   2 | (C) Adri van Os 1998-2002
   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 SharedCLibrary 0.00 RMLoad System:Modules.Clib
  22 RMEnsure SharedCLibrary 3.75 Error You need Clib 3.75 or later
  23 |
  24 if "<File$Type_AE6>" = "" then Set File$Type_AE6 MSWord
  25 |
  26 WimpSlot -min 256K -max 256K
  27 Run <Antiword$Dir>.!RunImage %*0