home *** CD-ROM | disk | FTP | other *** search
- /* */
-
- comment. = ''
- comment.1 = '// VSDDLL, PDDNAME, typ naƒítání DSP'
- comment.2 = '// 1= Naƒtení pouze DSP'
- comment.3 = '// 2= Naƒtení DSP s úvodními informacemi o proudu MPEG'
-
-
- outfile = 'VSDOM1.INI'
-
- info. = ''
- info.1.dll = 'VIDVCI'
- info.1.pdd = 'VIDRMS1'
- info.1.dsp = '1'
- info.2.dll = 'VIDVCI'
- info.2.pdd = 'VIDRMP1'
- info.2.dsp = '1'
- info.3.dll = 'TRIDVSD'
- info.3.pdd = 'VIDMP21'
- info.3.dsp = '1'
- info.4.dll = 'VIDVCI'
- info.4.pdd = 'VIDMPG1'
- info.4.dsp = '1'
- info.5.dll = 'VIDVCI'
- info.5.pdd = 'VIDZRN1'
- info.5.dsp = '2'
-
- mmbase = value( 'MMBASE', , 'OS2ENVIRONMENT' )
-
- if right( mmbase, 1 ) = ';' then mmbase = left( mmbase, length(mmbase)-1 )
-
- i = 1
- found = 0
-
- do while info.i.dll <> '' & found = 0
- say mmbase'\'info.i.pdd'.INI'
- if stream( mmbase'\'info.i.pdd'.INI', 'C', 'QUERY EXISTS' ) <> '' then
- found = 1
- else
- i = i + 1
- end
-
- if found then
- do
- outfile = mmbase'\'outfile
- '@del' outfile '>NUL: 2>&1'
- line = left( 'VSD='info.i.dll','info.i.pdd'$,'info.i.dsp, 35)||comment.1
- call lineout outfile, line
- call lineout outfile, left( ' ', 35 )||comment.2
- call lineout outfile, left( ' ', 35 )||comment.3
- end
-
- exit 0
-