home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Exec 3 / CD_Magazyn_EXEC_nr_3.iso / Recent / util / misc / warpvers06.lha / warpvers / warpvers.rexx < prev   
OS/2 REXX Batch file  |  2000-07-20  |  4KB  |  137 lines
  1. /*
  2. ** $VER: warpvers.rexx 0.6 (20.7.00) Rolf Max Rotvel
  3. */
  4. address command
  5. call addlib('rexxsupport.library', 0, -30, 0)
  6.  
  7. tmpfile = 't:warpvers.tmp'
  8. tmpfile2 = 't:warpvers.tmp2'
  9. call delete(tmpfile)
  10. call delete(tmpfile2)
  11.  
  12. say 
  13. say 'WarpOS library versions:'
  14. say getit('libs:powerpc.library')
  15. say getit('libs:warp.library')
  16. say getit('libs:warphw.library')||gethw('libs:warphw.library')
  17. say getit('libs:ppc.library')
  18. say 
  19. say 'WarpOS env var settings:'
  20. say getit('powerpc/crashfile', 'env')
  21. say getit('powerpc/alertfile', 'env')
  22. say getit('powerpc/memprot', 'env')
  23. say getit('powerpc/hidewarning', 'env')
  24. say getit('powerpc/force', 'env')
  25. say getit('powerpc/nopatch', 'env')
  26. say getit('powerpc/earlyterm', 'env')
  27. say getit('powerpc/gfxaddr', 'env')
  28. say getit('powerpc/debug', 'env')
  29. say getit('powerpc/terminator', 'env')
  30. say getit('powerpc/seginfo', 'env')
  31. say 
  32. say 'Warp3D library versions:'
  33. say getit('libs:warp3d.library')
  34. say getit('libs:warp3dppc.library')
  35. 'list libs:warp3d ALL FILES LFORMAT %s%s TO 'tmpfile2
  36. if open('tmp2', tmpfile2, 'r') then do
  37.     gfxdriver? = 0 
  38.     hwdriver? = 0
  39.     do forever
  40.         line = readln('tmp2')
  41.         if line = '' then leave
  42.         say getit(line)
  43.         chk = upper(line)
  44.         if pos('/GFXDRIVERS/', chk) > 0 then gfxdriver? = 1
  45.         if pos('/HWDRIVERS/', chk) > 0 then hwdriver? = 1
  46.     end
  47.     call close('tmp2')
  48.     call delete(tmpfile2)
  49.     if ~gfxdriver? then say ' No Warp3D GFX driver found'
  50.     if ~hwdriver? then say ' No Warp3D HW driver found'
  51. end
  52. else say ' No Warp3D HW or GFX drivers found'
  53. say
  54. say 'Warp3D env var settings:'
  55. say getit('warp3d/cpudriver', 'env')
  56. say getit('warp3d/queuesize', 'env')
  57. say getit('warp3d/cybergfx/keeplock', 'env')
  58. say getit('warp3d/cybergfx/forbid', 'env')
  59. say getit('warp3d/cybergfx/disable', 'env')
  60. say getit('warp3d/permedia2/dither', 'env')
  61. say getit('warp3d/virge/fog', 'env')
  62. say getit('warp3d/virge/pass24', 'env')
  63. say getit('warp3d/virge/swap', 'env')
  64. say getit('warp3d/virge/fogsubdivide', 'env')
  65. say getit('warp3d/virge/texsubdivide', 'env')
  66. say getit('warp3d/virge/fastfilter', 'env')
  67. say 
  68. say 'StormMesa library versions:'
  69. say getit('libs:agl.library')
  70. say getit('libs:agle.library')
  71. say getit('libs:aglsmap.library')
  72. say getit('libs:aglu.library')
  73. say getit('libs:aglut.library')
  74. say getit('libs:aglppc.library')
  75. say getit('libs:agleppc.library')
  76. say getit('libs:aglsmapppc.library')
  77. say getit('libs:agluppc.library')
  78. say getit('libs:aglutppc.library')
  79. say
  80. say 'StormMesa env var settings:'
  81. say getit('mesa/debug', 'env')
  82. say getit('mesa/direct', 'env')
  83. say getit('mesa/nohw', 'env')
  84. say getit('mesa/force_db', 'env')
  85. say getit('mesa/force_ir', 'env')
  86. say getit('mesa/force_fs', 'env')
  87. say getit('mesa/fast', 'env')
  88. say getit('mesa/veryfast', 'env')
  89. say getit('mesa/stats', 'env')
  90. say getit('mesa/noclamp', 'env')
  91. say getit('mesa/nicefog', 'env')
  92. say getit('mesa/nicetex', 'env')
  93. say getit('mesa/nohwlines', 'env')
  94. say
  95. say 'GLUT env var settings:'
  96. say getit('glut/icon', 'env')
  97. say getit('glut/force_db', 'env')
  98. say getit('glut/force_ir', 'env')
  99. say getit('glut/force_fs', 'env')
  100. say
  101. exit
  102.  
  103.  
  104. GETIT:
  105. parse arg file, mode
  106. if mode ~= '' then mode = 'env:'
  107.  
  108. if ~exists(mode||file) then do
  109.     if mode = 'env:' then return ' 'file' not found'
  110.     parse var file 'libs:' file
  111.     return ' 'file' not found'
  112. end
  113.  
  114. if mode ~= 'env:' then 'version FILE FULL 'file' >'tmpfile
  115. else 'getenv 'file' >'tmpfile
  116.  
  117. if ~open('tmp', tmpfile, 'r') then return ' Error!'
  118. txt = translate(readch('tmp', 1000), ' ', '0a'x)
  119. call close('tmp')
  120. call delete(tmpfile)
  121.  
  122. if mode = 'env:' then return ' 'file' = 'txt
  123. else return ' 'txt
  124.  
  125.  
  126. GETHW:
  127. fs = word(statef(arg(1)), 2)
  128. hw = 'Board = '
  129. select
  130.     when fs = 1392 then hw = hw'BlizzardPPC'
  131.     when fs = 1396 then hw = hw'CyberStormPPC'
  132.     when fs = 1568 then hw = hw'P5DeveloperBoard'
  133.     when fs = '' then hw = hw'None?'
  134.     otherwise hw = hw'Unknown'
  135. end
  136. return hw
  137.