|
| This application is  1991-1999 Acorn Computers Ltd. 
|                      1999 RISC OS Ltd.
|                  All Rights Reserved.
|
RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
|
| Load CallASWI
Set CallASWI$Needed 0
RMEnsure UtilityModule 3.60 Set CallASWI$Needed 1
RMEnsure CallASWI 0.01 IF "<CallASWI$Needed>"="1" THEN RMLoad System:Modules.CallASWI
RMEnsure CallASWI 0.01 IF "<CallASWI$Needed>"="1" THEN Error !Printers requires the CallASWI module
Unset CallASWI$Needed
|
Set Printers$Dir  <Obey$Dir>
|
| Check for choices
Set Choices$Absent 0
IF "<Choices$Path>"="" THEN Set Choices$Absent 1
IF "<Choices$Write>"="" THEN Set Choices$Absent 1
IF "<Choices$Absent>"="1" THEN Error !Printers requires a Choices directory to operate
Unset Choices$Absent
|
| Note that this version of !Printers is totally disc based
Set PrinterSpecifics$Path ""
Set Printers$Path Choices:Printers2.,<Obey$Dir>.,PrinterSpecifics:
Set File$Type_FC6 PrntDefn
Set Alias$@RunType_FC6 Run <Obey$Dir> -pdf %%0
|
| Load the bugfixed !Printers
Set Printers$ppd 500
RMEnsure UtilityModule 5.00 Set Printers$ppd 403
IF "<Printers$ppd>"="403" THEN RMEnsure ParallelDeviceDriver 0.49 Set Printers$ppd 400
RMEnsure UtilityModule 4.00 Set Printers$ppd 350
RMEnsure UtilityModule 3.50 Set Printers$ppd 310
IF "<Printers$ppd>"<"403" THEN RMEnsure ParallelDeviceDriver 0.47 RMLoad Printers:Modules.<Printers$ppd>.Parallel
Unset Printers$ppd
|
| maximum memory to be used by PDriverDP (kbytes)
If "<PDriverDP$MaxMem>" = "" Then Set PDriverDP$MaxMem 8192
|
| Ensure that there is enough memory for !Printers, some modules and some workspace
|WimpSlot -min 192K -max 192K
WimpSlot -min 128K -max 128K
|
| If there isn't any PDriver module at all, load the one we've got. This ensures that
| the loading of RemotePrinterSupport will at least get past that point.
RMEnsure PDriver               0.00 RMLoad Printers:Modules.PDriver
|
RMEnsure RemotePrinterMessages 1.01 RMLoad Printers:Modules.RemPrnMsgs
RMEnsure RemotePrinterMessages 1.01 Error !Printers needs RemotePrinterMessages version 1.01 or later
RMEnsure RemotePrinterSupport  1.01 RMLoad Printers:Modules.RemPrnSpt
RMEnsure RemotePrinterSupport  1.01 Error !Printers needs RemotePrinterSupport 1.01 or later
|
Set PrintersPlus$Path <Printers$Path>
IconSprites PrintersPlus:!Sprites
Unset PrintersPlus$Path
/<Printers$Dir>.SetPrint
WimpSlot -min 400K -max 400K
/<Printers$Dir>.!RunImage %*0
