Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

PrManUtl.VRS@ 33

Last change on this file since 33 was 33, checked in by Alex Taylor, 12 years ago
Printer Manager, initial import.
File size: 26.6 KB

Line
1	/*:VRX DriverIsInstalled
2	*/
3	/* Checks if a given print driver (without extension) is installed, and if so
4	* returns the path to the active files. Returns '' if the driver is not
5	* installed.
6	*/
7	DriverIsInstalled: PROCEDURE
8	ARG driver
9	PARSE VALUE VRGetIni('PM_DEVICE_DRIVERS', driver, 'USER') WITH drv_path '00'x .
10	IF ( drv_path <> '') THEN
11	drv_path = STREAM( drv_path, 'C', 'QUERY EXISTS')
12	RETURN drv_path
13
14
15	/*:VRX GetDriverSource
16	*/
17	/* Figure out where to look for the PrinterPak driver files used as the install
18	* source. Preference is given to the local repository (PDR_DIR); if it's not
19	* there, we look in a couple of other places where it might have ended up.
20	* Note that we don't look for the actual installed driver files under \OS2\DLL;
21	* that logic is handled in LocateDriverFiles(), which calls this routine.
22	*
23	* Various global values are assumed to be set already:
24	* - globals.!prdrv: filespec of \OS2\INSTALL\PRDRV.LST
25	* - globals.!repository: value indicated by PM_INSTALL->PDR_DIR in OS2.INI
26	*
27	* Returns the path, or '' if not found. Also, 'pmdx' will be 0-9 if the
28	* driver is in the repository (indicating the repository subdirectory), or
29	* '' if the driver is not in the repository.
30	*/
31	GetDriverSource: PROCEDURE EXPOSE globals. pmdx
32	ARG driver
33	IF driver == '' THEN RETURN ''
34
35	drv_file = ''
36	IF globals.!repository <> '' THEN DO
37
38	/* See if the driver is defined in the local repository. (This is the
39	* directory where installable printer drivers are kept. OS/2 gets them
40	* from here when you select 'Printer driver included with OS/2'.)
41	*/
42	pmdx = GetDriverPMDD( driver, globals.!prdrv )
43	IF pmdx == '' THEN DO
44	/* Hmm, the driver isn't listed in PRDRV.LST. Let's check to see if
45	* it's in the default repository location anyway.
46	*/
47	IF WORDPOS( driver, 'ECUPS ECUPS-HP PSPRINT PSPRINT2') > 0 THEN
48	pmdx = '9'
49	ELSE
50	pmdx = '0'
51	drv_file = STREAM( globals.!repository'\PMDD_'pmdx'\'driver'.DRV', 'C', 'QUERY EXISTS')
52	IF drv_file <> '' THEN DO
53	/* We found the driver in the repository, even though it isn't
54	* defined as such. So let's add the proper definition to
55	* PRDRV.LST now.
56	*/
57	CALL LINEOUT globals.!prdrv, LEFT( driver'.DRV', 14 ) pmdx \|\|,
58	' (added automatically)'
59	CALL LINEOUT globals.!prdrv
60	END
61	ELSE
62	pmdx = ''
63	END
64	ELSE DO
65	/* The driver is listed; now make sure it's actually there.
66	*/
67	drv_file = STREAM( globals.!repository'\PMDD_'pmdx'\'driver'.DRV', 'C', 'QUERY EXISTS')
68	END
69	END
70
71	IF drv_file == '' THEN DO
72	CALL LINEOUT globals.!log1, 'Driver' driver 'is not in the local repository.'
73	/* If the driver really isn't in the repository, there are a couple of
74	* other places that various install utilities might have put it...
75	*/
76	PARSE VALUE VRGetIni('PM_INSTALL', driver'_DIR', 'USER') WITH drvr_dir '00'x .
77	IF drvr_dir == '' THEN
78	PARSE VALUE VRGetIni('InstPDR', 'PATH_TO_'driver, 'USER') WITH drvr_dir '00'x .
79	IF drvr_dir <> '' THEN DO
80	drv_file = drvr_dir'\'driver'.DRV'
81	CALL LINEOUT globals.!log1, 'Found driver in' drvr_dir'.'
82	END
83	END
84
85	RETURN drv_file
86
87
88	/*:VRX GetDriverPMDD
89	*/
90	/* Check to see which repository directory the specified driver resides in.
91	* Returns the number suffix of the PMDD_* subdirectory name, or '' if either
92	* the driver or the index file could not be located.
93	*/
94	GetDriverPMDD: PROCEDURE
95	PARSE ARG driver, prdrv_lst
96
97	IF prdrv_lst <> '' THEN DO
98	CALL LINEIN prdrv_lst, 1, 0
99	DO WHILE LINES( prdrv_lst ) > 0
100	PARSE VALUE LINEIN( prdrv_lst ) WITH (driver)'.DRV' pmdx .
101	IF pmdx <> '' THEN LEAVE
102	END
103	CALL STREAM prdrv_lst, 'C', 'CLOSE'
104	END
105	ELSE pmdx = ''
106
107	RETURN pmdx
108
109
110	/*:VRX LocateDriverFiles
111	*/
112	/* Returns:
113	* 0 - Driver files not found.
114	* 1 - Driver files found, path saved in 'driver_path'; 'driver_repo' will be 1
115	* if the driver is 'shipped' (i.e. defined in PRDRV.LST) or 0 otherwise.
116	* 2 - Only found installed driver files in (\OS2\DLL\xxx, saved in 'driver_path');
117	* will need to copy them somewhere for future installs.
118	*/
119	LocateDriverFiles: PROCEDURE EXPOSE globals. driver_path driver_repo
120	ARG driver
121	IF driver == '' THEN driver = 'PSCRIPT'
122
123	CALL LINEOUT globals.!log1, 'Looking for' driver 'files'
124
125	mustcopy = 0
126	driver_path = GetDriverSource( driver )
127
128	IF driver_path == '' THEN DO
129	/* No source found. We'll have to try copying the actual installed
130	* driver files from under \OS2\DLL.
131	*/
132	CALL LINEOUT globals.!log1, 'Driver source not found. Trying installed driver.'
133	PARSE VALUE VRGetIni('PM_DEVICE_DRIVERS', driver, 'USER') WITH drv_used '00'x .
134	IF ( drv_used <> '') & VRFileExists( drv_used ) THEN
135	driver_path = drv_used
136	END
137	IF driver_path <> '' THEN DO
138	srcdir = VRParseFilePath( driver_path, 'DP')
139	pin = STREAM( srcdir'\PIN.EXE', 'C', 'QUERY EXISTS')
140	ppdenc = STREAM( srcdir'\PPDENC.EXE', 'C', 'QUERY EXISTS')
141	/* TODO should we check for all the REQUIREDDRIVER FILES as well? */
142	END
143
144	IF pmdx == '' THEN
145	driver_repo = 0
146	ELSE
147	driver_repo = 1
148
149	/* Driver (or one of its required files) was not found.
150	*/
151	IF ( driver_path == '') \| ( pin == '') \| ( ppdenc == '') \| ,
152	( VerifyDriverEAs( driver_path ) == 0 ) THEN
153	DO
154	CALL LINEOUT globals.!log1, ' - Missing required driver files.'
155	RETURN 0
156	END
157
158	IF mustcopy THEN RETURN 2
159	RETURN 1
160
161
162	/*:VRX VerifyDriverEAs
163	*/
164	/* Make sure the driver has its extended attributes. If not, look for an
165	* accompanying .EA or .EA_ file, and join it to the driver.
166	*/
167	VerifyDriverEAs: PROCEDURE EXPOSE globals.
168	PARSE ARG driver
169	eas.0 = 0
170	CALL SysQueryEAList driver, 'eas.'
171	IF eas.0 == 0 THEN DO
172	ea_file = SUBSTR( driver, 1, LASTPOS('.', driver )) \|\| 'EA'
173	IF STREAM( ea_file, 'C', 'QUERY EXISTS') == '' THEN
174	ea_file = ea_file \|\| '_'
175	IF STREAM( ea_file, 'C', 'QUERY EXISTS') == '' THEN
176	RETURN 0
177
178	ADDRESS CMD '@UNLOCK' driver '2>NUL 1>NUL'
179	ADDRESS CMD '@EAUTIL' driver ea_file '/j /p 2>NUL 1>NUL'
180	END
181	RETURN 1
182
183
184	/*:VRX BldLevelVersion
185	*/
186	/* Parse the revision (version) number from a BLDLEVEL string
187	*/
188	BldLevelVersion: PROCEDURE EXPOSE globals.
189	ARG module
190	revision = ''
191
192	_nq = RXQUEUE('CREATE')
193	_oq = RXQUEUE('SET', _nq )
194
195	ADDRESS CMD '@bldlevel' module '2>&1 \| RXQUEUE' _nq
196	DO QUEUED()
197	PARSE PULL _blline
198	IF LEFT( _blline, 9 ) == 'Revision:' THEN DO
199	PARSE VAR _blline 'Revision:' revision .
200	LEAVE
201	END
202	END
203
204	CALL RXQUEUE 'SET', _oq
205	CALL RXQUEUE 'DELETE', _nq
206
207	IF revision == '' THEN revision = '-'
208
209	RETURN revision
210
211
212	/*:VRX CopyPrinterPak
213	*/
214	/* Copies a printerpak driver and all its dependent files from one directory
215	* to another.
216	*
217	* driver - The fully-qualified filename of the printerpak .DRV
218	* newdrvdir - The directory where the files will be copied; must exist
219	*
220	* Returns: 1 on success, 0 on failure
221	*/
222	CopyPrinterPak: PROCEDURE EXPOSE globals.
223	PARSE ARG driver, newdrvdir
224
225	drv_dir = VRParseFilePath( driver, 'DP')
226	IF drv_dir == '' THEN RETURN 0
227
228	IF VerifyDriverEAs( driver ) == 0 THEN RETURN 0
229
230	CALL LINEOUT globals.!log1, 'Copying driver files from' drv_dir 'to' newdrvdir'...'
231
232	/* Read the list of required driver files from the EAs, and copy them
233	* all to the target directory.
234	*/
235	IF SysGetEA( driver, 'REQUIREDDRIVERFILES', 'reqfiles') == 0 THEN DO
236	PARSE VAR reqfiles 5 filelist
237	filelist = TRANSLATE( filelist, ' ', ',')
238	DO i = 1 TO WORDS( filelist )
239	copyfile = drv_dir'\' \|\| WORD( filelist, i )
240	ok = VRCopyFile( copyfile, newdrvdir'\' \|\| WORD( filelist, i ))
241	CALL LINEOUT globals.!log1, ' -' copyfile '(REQUIRED):' ok
242	END
243	DROP copyfile
244	DROP filelist
245	END
246	ELSE RETURN 0
247
248	/* If there are optional files defined as well, try to copy those also.
249	*/
250	IF SysGetEA( driver, 'OPTIONALDRIVERFILES', 'reqfiles') == 0 THEN DO
251	PARSE VAR reqfiles 5 filelist
252	filelist = TRANSLATE( filelist, ' ', ',')
253	DO i = 1 TO WORDS( filelist )
254	copyfile = drv_dir'\' \|\| WORD( filelist, i )
255	IF STREAM( copyfile, 'C', 'QUERY EXISTS') == '' THEN ITERATE
256	ok = VRCopyFile( copyfile, newdrvdir'\' \|\| WORD( filelist, i ))
257	CALL LINEOUT globals.!log1, ' -' copyfile '(OPTIONAL):' ok
258	END
259	DROP copyfile
260	DROP filelist
261	END
262
263	RETURN 1
264
265
266	/*:VRX PrinterExistsInDRV
267	*/
268	/* Determine if the specified PrinterPak driver already contains support
269	* for the specified printer model.
270	*/
271	PrinterExistsInDRV: PROCEDURE EXPOSE globals.
272	PARSE UPPER ARG driver_name, printer_name
273	printer_name = TRANSLATE( printer_name, '_', '.')
274
275	printer_drv = globals.!os2dir'\DLL\'driver_name'\'driver_name'.DRV'
276	/* ?? TODO: install driver_name if not found (prompt first) ?? */
277
278	IF SysGetEA( printer_drv, '.EXPAND', 'exist_ea') <> 0 THEN RETURN 0
279	PARSE VAR exist_ea 1 _eatype 3 .
280	IF C2X( _eatype ) <> 'FDFF' THEN RETURN 0
281
282	PARSE VAR exist_ea 3 _ealen 5 exist_models
283	total_len = C2D( REVERSE( _ealen ))
284
285	/* The variable exist_models now contains a null-separated list of printer
286	* models supported by the driver (including those from previously-imported
287	* PPD files). Next we check each one against our requested printer name.
288	*/
289	start = 1
290	found = 0
291	DO WHILE ( found == 0 ) & ( start < total_len )
292	_strend = POS('0'x, exist_models, start )
293	IF _strend == 0 THEN LEAVE
294	_model = TRANSLATE( SUBSTR( exist_models, start, _strend - start ))
295	IF _model == printer_name THEN
296	found = 1
297	ELSE
298	start = _strend + 1
299	END
300
301	RETURN found
302
303
304	/*:VRX CreateDriverList
305	*/
306	/* Generate a driver listfile from the .EXPAND EA
307	*/
308	CreateDriverList: PROCEDURE EXPOSE globals.
309	ARG driver, listfile
310
311	IF STREAM( listfile, 'C', 'QUERY EXISTS') <> '' THEN
312	CALL SysFileDelete listfile
313
314	drv_name = FILESPEC('NAME', driver )
315	IF SysGetEA( driver, '.EXPAND', 'eaval') == 0 THEN DO
316	PARSE VAR eaval 3 ealen 5 models
317	offs = 1
318	datalen = C2D( REVERSE( ealen ))
319	DO WHILE offs <= datalen
320	start = SUBSTR( models, offs )
321	inc = POS('00'x, start )
322	IF inc > 1 THEN DO
323	current_name = STRIP( SUBSTR( start, 1, inc-1 ))
324	CALL LINEOUT listfile, current_name':' current_name '('drv_name')'
325	END
326	offs = offs + inc
327	END
328	CALL LINEOUT listfile
329	CALL LINEOUT globals.!log1, 'Created driver list' listfile 'for' driver'.'
330	END
331	ELSE
332	CALL LINEOUT globals.!log1, 'No drivers found in' driver '(missing .EXPAND extended attribute?)'
333
334	RETURN 1
335
336
337	/*:VRX AddPort_CUPS
338	*/
339	/* Adds a new CUPS port. Returns 0 on full success, 1 if the port was created
340	* but could not be configured, and an OS/2 or PM error code otherwise.
341	*/
342	AddPort_CUPS: PROCEDURE EXPOSE globals.
343	PARSE ARG portname, hostname, queuename
344	CALL LINEOUT globals.!log1, 'Creating new port' portname
345	ADDRESS CMD '@cupsport' portname hostname queuename '>>' globals.!log2
346	IF rc == 1 THEN DO
347	CALL VRSetIni 'PM_'portname, 'INITIALIZATION', hostname'#'queuename\|\|'00'x, 'SYSTEM', 'NoClose'
348	CALL VRSetIni 'PM_'portname, 'DESCRIPTION', hostname':'queuename\|\|'00'x, 'SYSTEM'
349	END
350	RETURN rc
351
352
353	/*:VRX DeletePort
354	*/
355	/* Deletes a printer port (any type).
356	*/
357	DeletePort: PROCEDURE EXPOSE globals.
358	PARSE ARG portname
359	CALL SysIni 'SYSTEM', 'PM_'portname, 'DELETE:'
360	CALL SysIni 'SYSTEM', 'PM_SPOOLER_PORT', portname, 'DELETE:'
361	RETURN 1
362
363
364	/*:VRX GetNextPortName
365	*/
366	/* Get the next unique (non-existing) port name for the specified port driver.
367	*/
368	GetNextPortName: PROCEDURE
369	ARG portdrv
370
371	maxports = 64 /* should be smarter about this if possible */
372	exists = 1
373	x = 0
374	DO WHILE ( x < maxports ) & ( exists == 1 )
375	x = x + 1
376	portname = portdrv \|\| x
377	nextport = SysIni('SYSTEM', 'PM_SPOOLER_PORT', portname )
378	IF LEFT( nextport, 6 ) == 'ERROR:' THEN exists = 0
379	END
380	IF exists == 1 THEN
381	portname = ''
382
383	RETURN portname
384
385
386	/*:VRX GetPortDrivers
387	*/
388	/* Get the list of currently-installed port drivers. NOTE: we exclude LPRPDRVR
389	* from this list, because it has to be managed via the TCP/IP configuration
390	* program.
391	*/
392	GetPortDrivers: PROCEDURE EXPOSE portdrivers.
393	ok = SysIni('SYSTEM', 'PM_PORT_DRIVER', 'ALL:', 'installed.')
394	IF LEFT( ok, 6 ) == 'ERROR:' THEN RETURN 0
395	count = 0
396	DO i = 1 TO installed.0
397	IF installed.i = 'LPRPDRVR' THEN ITERATE
398	fullpath = STRIP( SysIni('SYSTEM', 'PM_PORT_DRIVER', installed.i ), 'T', '00'x )
399	IF LEFT( fullpath, 6 ) == 'ERROR:' THEN fullpath = ''
400	fullpath = STREAM( fullpath , 'C', 'QUERY EXISTS')
401	count = count + 1
402	portdrivers.count = installed.i \|\| ' ' \|\| fullpath
403	END
404	portdrivers.0 = count
405	RETURN portdrivers.0
406
407
408	/*:VRX GetQueueName
409	*/
410	/* Generate a unique queue name from the specified printer name.
411	*/
412	GetQueueName: PROCEDURE
413	ARG queuename
414
415	DO UNTIL badchar = 0
416	badchar = VERIFY( queuename, 'ABCDEFGHIJKLMNOPQRSTUVWXYZ-_0123456789 ')
417	IF badchar > 0 THEN
418	queuename = OVERLAY(' ', queuename, badchar, 1 )
419	END
420	queuename = LEFT( SPACE( queuename, 0 ), 8 )
421
422	tail = 0
423	PARSE VALUE VRGetIni('PM_SPOOLER', 'DIR', 'SYSTEM') WITH spldir ';' .
424	DO WHILE VRFileExists( spldir'\'queuename ) == 1
425	tail = tail + 1
426	queuename = STRIP( LEFT( queuename, 8 - LENGTH( tail ))) \|\| tail
427	END
428
429	RETURN queuename
430
431
432	/*:VRX InstallPortDriver
433	*/
434	/* Installs a new port driver.
435	*
436	* Returns: 0 on success, 1 on error
437	*/
438	InstallPortDriver: PROCEDURE EXPOSE globals.
439	ARG new_pdr
440	filename = VRParseFileName( new_pdr, 'NE')
441	IF filename == '' THEN RETURN
442	installed_pdr = TRANSLATE( globals.!os2dir'\DLL\'filename )
443	IF installed_pdr <> new_pdr THEN DO
444	ok = VRCopyFile( new_pdr, installed_pdr )
445	IF ok == 0 THEN RETURN 1
446	/* Try to copy any optional files as well */
447	IF SysGetEA( new_pdr, 'OPTIONALDRIVERFILES', 'reqfiles') == 0 THEN DO
448	drv_dir = VRParseFilePath( new_pdr, 'DP')
449	PARSE VAR reqfiles 5 filelist
450	filelist = TRANSLATE( filelist, ' ', ',')
451	DO i = 1 TO WORDS( filelist )
452	copyfile = drv_dir'\' \|\| WORD( filelist, i )
453	IF STREAM( copyfile, 'C', 'QUERY EXISTS') == '' THEN ITERATE
454	ok = VRCopyFile( copyfile, newdrvdir'\' \|\| WORD( filelist, i ))
455	/CALL LINEOUT globals.!log1, ' -' copyfile '(OPTIONAL):' ok/
456	END
457	END
458	END
459
460	key = VRParseFileName( installed_pdr, 'N')
461	CALL VRSetIni 'PM_PORT_DRIVER', key, installed_pdr\|\|'00'x, 'SYSTEM'
462	RETURN 0
463
464
465	/*:VRX InstallPrintDriver
466	*/
467	/* 'Installs' (that is to say, registers with the spooler) an OS printer
468	* device driver/model. Installs the corresponding printerpak driver if
469	* necessary.
470	*
471	* driver - The name of the printerpak driver (without path or extension)
472	* driverfull - The fully-qualified filename of the printerpak driver
473	* model - The printer make/model name used by the driver
474	*
475	* Returns: 0 on success, 1 on error
476	*/
477	InstallPrintDriver: PROCEDURE EXPOSE globals.
478	PARSE ARG driver, driverfull, model
479
480	ok = 0
481	targetdir = globals.!os2dir'\DLL\'driver
482	targetdrv = targetdir'\'driver'.DRV'
483	IF ( VRFileExists( targetdrv ) == 0 ) THEN DO
484	CALL VRMkDir targetdir
485	r = CopyDriverToSource( driverfull, targetdir )
486	IF r <> 1 THEN ok = 1
487	END
488	IF ok == 0 THEN DO
489	IF VRGetIni('PM_DEVICE_DRIVERS', driver, 'USER') <> targetdrv THEN
490	CALL VRSetIni 'PM_DEVICE_DRIVERS', driver, targetdrv\|\|'00'x, 'USER'
491	CALL VRSetIni 'PM_SPOOLER_DD', driver'.'model, driver'.DRV;;;'\|\|'00'x, 'SYSTEM'
492	END
493	RETURN ok
494
495	/*:VRX CreatePrinterObject
496	*/
497	/* Create the specified printer using SysCreateObject (this should create the
498	* queue automatically).
499	*
500	* Returns: 0 on success or non-zero return code on error.
501	*/
502	CreatePrinterObject: PROCEDURE EXPOSE globals.
503	PARSE ARG driver, model, portname, queuename, printername
504
505	CALL LINEOUT globals.!log1, 'Creating new printer:' printername '('queuename')'
506	ok = RPUPrinterCreate( printername, queuename, portname, driver'.'model )
507	RETURN ok
508
509	/*:VRX GetNameFromPPD
510	*/
511	GetNameFromPPD: PROCEDURE
512	ARG ppd_file
513
514	IF STREAM( ppd_file, 'C', 'QUERY EXISTS') == '' THEN RETURN ''
515	nickname = ''
516	IF VRParseFilePath( ppd_file, 'E') == 'GZ' THEN DO
517	nq = RXQUEUE('CREATE')
518	oq = RXQUEUE('SET', nq )
519	ADDRESS CMD '@gzip -c -d' ppd_file '\| RXQUEUE' nq
520	DO QUEUED()
521	PARSE PULL line
522	line = STRIP( line )
523	IF LEFT( line, 15 ) == '*ShortNickName:' THEN DO
524	PARSE VAR line . ':' _nick '0D'x .
525	nickname = STRIP( _nick )
526	nickname = STRIP( nickname, 'B', '"')
527	LEAVE
528	END
529	END
530	CALL RXQUEUE 'SET', oq
531	CALL RXQUEUE 'DELETE', nq
532	END
533	ELSE DO
534	CALL LINEIN ppd_file, 1, 0
535	DO WHILE LINES( ppd_file ) <> 0
536	line = STRIP( LINEIN( ppd_file ))
537	IF LEFT( line, 15 ) == '*ShortNickName:' THEN DO
538	PARSE VAR line . ':' _nick '0D'x .
539	nickname = STRIP( _nick )
540	nickname = STRIP( nickname, 'B', '"')
541	LEAVE
542	END
543	END
544	CALL STREAM ppd_file, 'C', 'CLOSE'
545	END
546
547	RETURN nickname
548
549	/*:VRX CleanPPD
550	*/
551	/* Clean out lines from Gutenprint and Foomatic PPD files that are known to
552	* cause problems when importing with PIN. (Partially based on work by Paul
553	* Smedley and Peter Brown).
554	*/
555	CleanPPD: PROCEDURE
556	PARSE ARG in_ppd, logfile
557	IF logfile <> '' THEN
558	logfile = STREAM( logfile, 'C', 'QUERY EXISTS')
559
560	out_ppd = VRParseFilePath( in_ppd, 'DPN') \|\| '.TMP'
561	IF STREAM( out_ppd, 'C', 'QUERY EXISTS') \= '' THEN
562	CALL SysFileDelete out_ppd
563
564	IF logfile <> '' THEN
565	CALL CHAROUT logfile, 'Doing cleanup on' in_ppd '...'
566
567	skip_next = 0
568	DO WHILE LINES( in_ppd ) \= 0
569	line = LINEIN( in_ppd )
570	SELECT
571	WHEN skip_next == 1 THEN DO
572	line = STRIP( TRANSLATE( line ))
573	IF line == '*END' THEN skip_next = 0
574	END
575	WHEN LEFT( line, 11 ) == '*StpDefault' THEN NOP
576	WHEN LEFT( line, 7 ) == '*StpStp' THEN NOP
577	WHEN LEFT( line, 18 ) == '*StpResolutionMap:' THEN NOP
578	WHEN LEFT( line, 14 ) == '*OPOptionHints' THEN NOP
579	WHEN LEFT( line, 4 ) == '*da.' THEN NOP
580	WHEN LEFT( line, 4 ) == '*de.' THEN NOP
581	WHEN LEFT( line, 4 ) == '*es.' THEN NOP
582	WHEN LEFT( line, 4 ) == '*fi.' THEN NOP
583	WHEN LEFT( line, 4 ) == '*fr.' THEN NOP
584	WHEN LEFT( line, 4 ) == '*it.' THEN NOP
585	WHEN LEFT( line, 4 ) == '*ja.' THEN NOP
586	WHEN LEFT( line, 4 ) == '*ko.' THEN NOP
587	WHEN LEFT( line, 4 ) == '*nb.' THEN NOP
588	WHEN LEFT( line, 4 ) == '*nl.' THEN NOP
589	WHEN LEFT( line, 4 ) == '*pt.' THEN NOP
590	WHEN LEFT( line, 4 ) == '*sv.' THEN NOP
591	WHEN LEFT( line, 7 ) == '*zh_CN.' THEN NOP
592	WHEN LEFT( line, 7 ) == '*zh_TW.' THEN NOP
593	WHEN LEFT( line, 9 ) == '*Foomatic' THEN DO
594	line = STRIP( line )
595	IF RIGHT( line, 2 ) == '&&' THEN skip_next = 1
596	END
597	OTHERWISE DO
598	CALL LINEOUT out_ppd, line
599	skip_next = 0
600	END
601	END
602	END
603	CALL STREAM in_ppd, 'C', 'CLOSE'
604	CALL STREAM out_ppd, 'C', 'CLOSE'
605
606	ok = VRCopyFile( out_ppd, in_ppd )
607	IF logfile <> '' THEN DO
608	IF ok == 1 THEN
609	CALL LINEOUT logfile, 'OK'
610	ELSE DO
611	CALL LINEOUT logfile, 'Failed!'
612	CALL LINEOUT logfile, ' ->' VRError()
613	END
614	CALL LINEOUT logfile, ''
615	END
616	CALL SysFileDelete out_ppd
617
618	RETURN
619
620	/*:VRX MatchPrinterModel
621	*/
622	/* Find a set of printers supported by the OS/2 driver which mostly closely
623	* match the given name.
624	*/
625	MatchPrinterModel: PROCEDURE EXPOSE globals. models.
626	PARSE UPPER ARG driver_name, printer_name
627	printer_name = TRANSLATE( printer_name, '_', '.')
628	printer_drv = globals.!os2dir'\DLL\'driver_name'\'driver_name'.DRV'
629	models.0 = 0
630
631	IF SysGetEA( printer_drv, '.EXPAND', 'exist_ea') <> 0 THEN RETURN 0
632	PARSE VAR exist_ea 1 _eatype 3 .
633	IF C2X( _eatype ) <> 'FDFF' THEN RETURN 0
634
635	PARSE VAR exist_ea 3 _ealen 5 exist_models
636	total_len = C2D( REVERSE( _ealen ))
637
638	/* The variable exist_models now contains a null-separated list of printer
639	* models supported by the driver (including those from previously-imported
640	* PPD files). Next we check each one against our requested printer name.
641	*/
642	start = 1
643	count = 0
644	best = 0
645	DO WHILE start < total_len
646	_strend = POS('0'x, exist_models, start )
647	IF _strend == 0 THEN LEAVE
648	_model = TRANSLATE( SUBSTR( exist_models, start, _strend - start ))
649	_model = TRANSLATE( _model, ' ', '-')
650	_comp = COMPARE( _model, printer_name )
651	IF WORD( _model, 1 ) == WORD( printer_name, 1 ) THEN DO
652	count = count + 1
653	IF _comp == 0 THEN DO
654	_comp = 9999
655	best = count
656	END
657	ELSE IF ( best == 0 ) & ( _comp > LENGTH( printer_name )) THEN
658	best = count
659	/*
660	models.count = RIGHT( _comp, 4, '0') SUBSTR( exist_models, start, _strend - start )
661	*/
662	models.count = SUBSTR( exist_models, start, _strend - start )
663	END
664	start = _strend + 1
665	END
666	models.0 = count
667
668	/*
669	CALL SysStemSort 'models.', 'D', 'I',,, 1, 4
670	DO i = 1 TO count
671	models.i = SUBWORD( models.i, 2 )
672	END
673	*/
674	RETURN best
675
676
677	/*:VRX CheckWritablePath
678	*/
679	CheckWritablePath: PROCEDURE EXPOSE globals.
680	ARG path
681
682	/* Make sure path exists & is a directory */
683	IF \VRIsDir( path ) THEN RETURN 1
684
685	/* Make sure the drive is accessible */
686	di = SysDriveInfo( VRParseFilePath( path, 'DP'))
687	IF di == '' THEN RETURN 2
688
689	/* Make sure the drive has a supported filesystem */
690	fs = SysFileSystemType( prdrv )
691	IF WORDPOS( fs, 'HPFS JFS FAT FAT32') == 0 THEN RETURN 3
692
693	RETURN 0
694
695
696	/*:VRX QueryAvailableDrivers
697	*/
698	/* Determine which of our supported PrinterPak drivers are currently available.
699	*/
700	QueryAvailableDrivers: PROCEDURE EXPOSE globals. drv_list.
701	drv_list.0 = 0
702
703	test_drivers = 'ECUPS ECUPS-HP PSPRINT'
704	DO i = 1 TO WORDS( test_drivers )
705	driver = WORD( test_drivers, i )
706	ok = GetDriverSource( driver )
707	IF ok == '' THEN
708	ok = VRGetIni('PM_DEVICE_DRIVERS', driver, 'USER')
709	IF ok <> '' THEN
710	CALL SysStemInsert 'drv_list.', drv_list.0+1, driver
711	END
712
713	RETURN drv_list.0
714
715
716	/*:VRX UpdatePrDesc
717	*/
718	UpdatePrDesc: PROCEDURE EXPOSE globals.
719	ARG driver, fqn
720
721	IF globals.!prdesc == '' THEN RETURN 1
722
723	ok = RPUEnumModels( fqn, 'newdevs.')
724	IF ok == 0 THEN RETURN 2
725
726	_count = 0
727	CALL LINEIN globals.!prdesc, 1, 0
728	DO WHILE LINES( globals.!prdesc )
729	_next = LINEIN( globals.!prdesc )
730	PARSE UPPER VAR _next WITH . ':' . '('_prdrv')' .
731	IF _prdrv == driver THEN ITERATE
732	_count = _count + 1
733	prdefs.count = _next
734	END
735	CALL STREAM globals.!prdesc, 'C', 'CLOSE'
736
737	DO i = 1 TO devs.0
738	_count = _count + 1
739	prdefs._count = newdevs.i':' newdevs.i '('driver')'
740	END
741	prdefs.0 = count
742
743	CALL VRSortStem 'prdefs.'
744
745	_prdir = VRParseFileName( globals.!prdesc, 'DP')
746	CALL VRCopyFile globals.!prdesc, _prdir'\PRDESC.BAK'
747	CALL VRDeleteFile globals.!prdesc
748	DO i = 1 TO prdefs.0
749	CALL LINEOUT globals.!prdesc, prdefs.i
750	END
751	CALL LINEOUT globals.!prdesc
752
753	RETURN 0
754
755
756	/*:VRX NLSGetMessage
757	*/
758	/*
759	* Gets the message text associated with the given message number from the
760	* current language file.
761	*/
762	NLSGetMessage: PROCEDURE EXPOSE globals.
763	PARSE ARG msgnum, .
764	args = ARG()
765
766	msgfile = globals.!messages
767	IF msgnum == '' THEN RETURN ''
768
769	sub_parms = ''
770	DO i = 2 TO args
771	sub_parms = sub_parms', "'ARG( i )'"'
772	END
773
774	INTERPRET 'msgfromfile = SysGetMessage( msgnum, msgfile' sub_parms ')'
775
776	PARSE VAR msgfromfile message '0D'x .
777	IF SUBSTR( message, 1, 4 ) == 'SYS0' THEN message = ''
778
779	RETURN message
780
781
782	/*:VRX NLSSetText
783	*/
784	/*
785	* Sets the specified property of the specified control to the specified
786	* message text.
787	*/
788	NLSSetText: PROCEDURE EXPOSE globals.
789	PARSE ARG control, property, message, substitution
790	args = ARG()
791
792	success = 1
793	IF args < 4 THEN
794	text = NLSGetMessage( message )
795	ELSE DO
796	sub_parms = ''
797	DO i = 4 TO args
798	sub_parms = sub_parms '"'\|\| ARG( i ) \|\|'",'
799	END
800	sub_parms = STRIP( sub_parms, 'T', ',')
801	INTERPRET 'text = NLSGetMessage( message, 'sub_parms')'
802	END
803
804	IF text == '' THEN success = 0
805	ELSE CALL VRSet control, property, text
806
807	RETURN success
808

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format