home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 October / Chip_2000-10_cd1.bin / zkuste / SVET_OS2 / NETSPLUG / CESKY / NCPP30CZ.EXE / mkvsdini.cmd < prev    next >
OS/2 REXX Batch file  |  1999-09-16  |  1KB  |  54 lines
  1. /* */
  2.  
  3. comment.   = ''
  4. comment.1  = '// VSDDLL, PDDNAME, typ naƒítání DSP'
  5. comment.2  = '// 1= Naƒtení pouze DSP'
  6. comment.3  = '// 2= Naƒtení DSP s úvodními informacemi o proudu MPEG'
  7.  
  8.  
  9. outfile    = 'VSDOM1.INI'
  10.  
  11. info.      = ''
  12. info.1.dll = 'VIDVCI'
  13. info.1.pdd = 'VIDRMS1'
  14. info.1.dsp = '1'
  15. info.2.dll = 'VIDVCI'
  16. info.2.pdd = 'VIDRMP1'
  17. info.2.dsp = '1'
  18. info.3.dll = 'TRIDVSD'
  19. info.3.pdd = 'VIDMP21'
  20. info.3.dsp = '1'
  21. info.4.dll = 'VIDVCI'
  22. info.4.pdd = 'VIDMPG1'
  23. info.4.dsp = '1'
  24. info.5.dll = 'VIDVCI'
  25. info.5.pdd = 'VIDZRN1'
  26. info.5.dsp = '2'
  27.  
  28. mmbase = value( 'MMBASE', , 'OS2ENVIRONMENT' )
  29.  
  30. if right( mmbase, 1 ) = ';' then mmbase = left( mmbase, length(mmbase)-1 )
  31.  
  32. i = 1
  33. found = 0
  34.  
  35. do while info.i.dll <> '' & found = 0
  36.   say mmbase'\'info.i.pdd'.INI'
  37.   if stream( mmbase'\'info.i.pdd'.INI', 'C', 'QUERY EXISTS' ) <> '' then
  38.     found = 1
  39.   else
  40.     i = i + 1
  41. end
  42.  
  43. if found then
  44.   do
  45.   outfile = mmbase'\'outfile
  46.   '@del' outfile '>NUL: 2>&1'
  47.   line = left( 'VSD='info.i.dll','info.i.pdd'$,'info.i.dsp, 35)||comment.1
  48.   call lineout outfile, line
  49.   call lineout outfile, left( ' ', 35 )||comment.2
  50.   call lineout outfile, left( ' ', 35 )||comment.3
  51.   end
  52.  
  53. exit 0
  54.