Changeset 11 for trunk/gui/shared

Timestamp:

Nov 4, 2011, 8:32:10 AM (14 years ago)

Author:

Alex Taylor

Message:

Add support for drivers other than ECUPS.DRV.

File:

• trunk/gui/shared/PrintUtl.VRS (modified) (2 diffs)

trunk/gui/shared/PrintUtl.VRS

@@ -419 +419 @@
 */
 /* Clean out lines from Gutenprint and Foomatic PPD files that are known to
- * cause problems when importing with PIN.  (Partially based on work Paul
+ * cause problems when importing with PIN.  (Partially based on work by Paul
  * Smedley and Peter Brown).
  */
@@ -528 +528 @@
 */
 RETURN best
+
+/*:VRX         QueryAvailableDrivers
+*/
+/* Determine which of our supported PrinterPak drivers are currently available.
+ */
+QueryAvailableDrivers: PROCEDURE EXPOSE globals. drv_list.
+    drv_list.0 = 0
+
+    test_drivers = 'ECUPS ECUPS-HP PSPRINT'
+    DO i = 1 TO WORDS( test_drivers )
+        driver = WORD( test_drivers, i )
+        ok = GetDriverSource( driver )
+        IF ok == '' THEN
+            ok = VRGetIni('PM_DEVICE_DRIVERS', driver, 'USER')
+        IF ok <> '' THEN
+            CALL SysStemInsert 'drv_list.', drv_list.0+1, driver
+    END
+
+RETURN drv_list.0
+