Changeset 9650 for trunk/tools


Ignore:
Timestamp:
Jan 10, 2003, 12:09:34 PM (23 years ago)
Author:
sandervl
Message:

HB: Updated to version 0.5.8

Location:
trunk/tools/OdinBug
Files:
12 added
8 edited

Legend:

Unmodified
Added
Removed

  • trunk/tools/OdinBug/ODINBUG.IPF

    r9104 r9650  
    1 :userdoc.:title.OdinBug Help 0.5.7
     1:userdoc.:title.OdinBug Help 0.5.8
    22:docprof toc=123.
    33.***************************************************

  • trunk/tools/OdinBug/OdinBug.VRP

    r9104 r9650  
    88VRXWindow: __VREMainWindow,1,1039,1987,994,7905
    99VRXWindow: __VREFileListWindow,1,602,10901,2665,3358
    10 VRXWindow: __VRESectionListWindow,1,5977,10901,2650,3342
    11 VRXWindow: __VREToolsWindow,1,2800,60,5505,1688
     10VRXWindow: __VRESectionListWindow,1,5914,8793,2650,3342
     11VRXWindow: __VREToolsWindow,1,626,48,7951,1659
    1212VRXWindow: __VREWindListWindow,1,3297,10901,2650,3150
    1313UserFile: 1
    1414UserWindow: OdinBugReport,1
    15 UserWindow: Progress,1
    16 UserWindow: AboutPage,1

  • trunk/tools/OdinBug/OdinBug.VRX

    r9104 r9650  
    115115                    FoundScitech = 1
    116116                end
     117                when Pos('SDDHELP.SYS',ConfigLine) > 0 then  SDDHelpSys=strip(substr(ConfigLine,8))
     118
    117119                when Pos('MGAX64', ConfigLine) > 0 then      Driver = "Matrox Driver"
    118120                when Pos('GENGRADD', ConfigLine) > 0 then    Driver = "Generic GRADD"
    … …  
    301303       SDDHELP.SYS and GRAPHICS.LOG */
    302304       
    303     SDDHelpSys = SysBootDrive()'\OS2\SDDHELP.SYS'
    304 
    305     LogLine = ''
    306     do until lines(SDDHelpSys) = 0
    307         LogLine = translate(linein(SDDHelpSys),' ', d2c(0))
    308         if pos('build',logline) > 0 then do
    309             SddBuildNr = substr(LogLine,pos('build',logline),10)
    310             IsSNAP = sign(Pos('SNAP',LogLine))
    311         end
    312     end
    313     ok = stream(SDDHelpSys,'c','CLOSE')
    314 
    315     GraphicsLog = SysBootDrive()'\OS2\DRIVERS\NUCLEUS\CONFIG\GRAPHICS.LOG'
     305    /* we get SDDHelpSys from Config.Sys now
     306       SDDHelpSys = SysBootDrive()'\OS2\SDDHELP.SYS' */
     307
     308    /* our new PREXX30 compliant SNAP detector */
     309    isSNAP = 0
     310    do until chars(SDDHelpSYS) = 0
     311        C = charin(SDDHELPSYS)
     312        select
     313            when C = 'b' then do
     314                SddBuildNr = C||charin(SDDHELPSYS,,8)
     315                if translate(word(SDDBuildNr,1)) <> 'BUILD' then iterate
     316                    else leave
     317            end
     318            when C = 'S' then do
     319                SciTechType = C||charin(SDDHELPSYS,,3)
     320                if translate(SciTechType) <> 'SNAP' then iterate
     321                else isSNAP = 1
     322            end
     323            when C = 'D' then do
     324                SciTechType = C||charin(SDDHELPSYS,,5)
     325                if translate(ScitechType) <> 'DOCTOR' then iterate
     326                    else isSNAP = 0
     327            end
     328            otherwise iterate
     329        end
     330    end
     331   
     332    ok = stream(SDDHelpsys,'c','close')
     333
     334    NUCLEUS_PATH = value('NUCLEUS_PATH',,'OS2ENVIRONMENT')
     335    if Nucleus_Path = '' then Nucleus_Path = SysBootDrive()'\OS2\DRIVERS\NUCLEUS\CONFIG'
     336    GraphicsLog = Nucleus_Path'\GRAPHICS.LOG'
     337
    316338    License = linein(GraphicsLog)
    317339    select
    318         when word(License,1)= 'Valid' & word(License,2) = 'IHV' & \IsSNAP then Driver = 'Scitech Display Doctor/SE'
    319         when word(License,1)= 'Valid' & word(License,2) = 'IHV' & IsSNAP  then Driver = 'Scitech SNAP/OEM'
    320         when word(License,1)= 'Registered' & word(License,2) = 'end' & \IsSNAP then Driver = 'Scitech Display Doctor/Pro'
    321         when word(License,1)= 'Registered' & word(License,2) = 'end' & IsSNAP  then Driver = 'Scitech SNAP'
     340        when (word(License,1)= 'Valid') & (word(License,2) = 'IHV') & (\IsSNAP) then Driver = 'Scitech Display Doctor/SE'
     341        when (word(License,1)= 'Valid') & (word(License,2) = 'IHV') & (IsSNAP)  then Driver = 'Scitech SNAP/OEM'
     342        when (word(License,1)= 'Registered') & (word(License,2) = 'end') & (\IsSNAP) then Driver = 'Scitech Display Doctor/Pro'
     343        when (word(License,1)= 'Registered') & (word(License,2) = 'end') & (IsSNAP)  then Driver = 'Scitech SNAP'
    322344        otherwise if IsSNAP then Driver = 'Scitech SNAP/Demo'
    323345            else Driver = 'Scitech Display Doctor/Demo'
    … …  
    336358return
    337359
     360/* old SDD
     361
     362    LogLine = ''
     363    IsSNAP  = 0
     364    LC = 0
     365    do until lines(SDDHelpSys) = 0
     366        LogLine = translate(linein(SDDHelpSys),' ', d2c(0))
     367        LC = LC + 1
     368        if pos('build',logline) > 0 then do
     369            SddBuildNr = substr(LogLine,pos('build',logline),10)
     370            IsSNAP = sign(Pos('SNAP',LogLine))
     371            leave
     372        end
     373    end
     374    ok = stream(SDDHelpSys,'c','CLOSE')
     375    do until chars(SDDHELPSYS)=0
     376 */
    338377/*:VRX         _AnalyseSyslevelFPK
    339378*/
    … …  
    538577*/
    539578_CheckForExpiredBuild:
     579    if UsingPrivateBuilds then return 1
    540580    if BuildFile = '' then return 0
    541581    AllowReport = 0
    … …  
    714754    if Foundxf86supsys then call lineout RptFileName, 'Yes, version 'XF86SupVersion
    715755                       else call lineout RptFileName, 'No'
    716     call lineout RptFileName, '  Display driver:         'VRGet("DDCB_DD","value")' 'VRGet("DDCB_DDVer","Value")
     756    call lineout RptFileName, '  Display driver:         'VRGet("DDCB_DD","value")' 'VRGet("DDCB_DDVer","Value")' ('LC')'
    717757    call lineout RptFileName, '  Video Chipset:          'VRGet("DDCB_chipset","Value")
    718758    call lineout RptFileName, '  '
    … …  
    10361076    ok = VRSet( "SPIN_BufferSize",   "Value", BufferSize     )
    10371077    ok = VRSet( "CB_AddException",   "set",   AddException   )
     1078    ok = VRSet( "CB_UsingPrivateBuilds",   "set", UsingPrivateBuilds)
    10381079    ok = VRSet( "CB_DontSaveAppDir", "set",   DontSaveAppDir )
    10391080    ok = VRSet( "CB_AskDeleteLog",   "set",   AskDeleteLog   )
    … …  
    12081249    BufferSize              = VRGetIni( "OdinBug", "BufferSize", our_ini, 'NoClose' )
    12091250    AddException            = VRGetIni( "OdinBug", "AddException", our_ini, 'NoClose' )
     1251    UsingPrivateBuilds      = VRGetIni( "OdinBug", "UsingPrivateBuilds", our_ini )
    12101252    OdinBugVersion          = VRGetIni( "OdinBug", "Version", our_ini )
    12111253
    … …  
    12371279    if BufferSize     = '' then BufferSize = 10
    12381280    if AddException   = '' then AddException = 1
    1239 
     1281    if UsingPrivateBuilds = '' then UsingPrivateBuilds = 0
    12401282    /* Now let us process the commandline */   
    12411283    call _CommandLineParse
    … …  
    12641306    ok = VRSetIni( "OdinBug", "BufferSize", BufferSize, our_ini, 'NoClose' )
    12651307    ok = VRSetIni( "OdinBug", "AddException", AddException, our_ini, 'NoClose' )
     1308    ok = VRSetIni( "OdinBug", "UsingPrivateBuilds", UsingPrivateBuilds, our_ini, 'NoClose' )
    12661309    ok = VRSetIni( "OdinBug", "Version", OdinBugVersion , our_ini )
    12671310return
    … …  
    15631606    ok = VRSet("TAB_"Nr,"Left",TabWidth*(Nr-1)+PageLeft)
    15641607    ok = VRSet("TAB_"Nr,"PicturePath", "#1"||Nr)
     1608    ok = VRSet("TAB_"Nr,"AutoSize",1)
    15651609    ok = VRset("DT_PageName", "Caption", VRGet("Page_"Nr, "Caption"))
    15661610    ok = VRSet("Page_"Nr,"Visible", 1)
    … …  
    16101654CB_ReplaceObjects_Click:
    16111655    ReplaceObjects = VRget("CB_replaceObjects","set")
     1656return
     1657
     1658/*:VRX         CB_UsingPrivateBuilds_Click
     1659*/
     1660CB_UsingPrivateBuilds_Click:
     1661    UsingPrivateBuilds = VRGet("CB_UsingPrivateBuilds","set")
    16121662return
    16131663
    … …  
    20512101    ok = SysFileTree(BuildDir"odin32bin-"Kernel32Date"*",Builds.,"FO")
    20522102    if Builds.0 = 1 & isStartup
    2053         then Filename = Builds.1
    2054         else FileName = VRFileDialog( VRWindow(), "Step 2: Search Odin Build file", "Open", BuildDir"odin32bin-"Kernel32Date"*", , ,  )
     2103    then Filename = Builds.1
     2104    else do
     2105        if \UsingPrivateBuilds then do
     2106            FileName = VRFileDialog( VRWindow(), "Step 2: Search Odin Build file", "Open", BuildDir"odin32bin-"Kernel32Date"*", , ,  )
     2107        end
     2108        else do
     2109            FileName = VRFileDialog( VRWindow(), "Step 2: Search Odin Build file", "Open", BuildDir"*", , ,  )
     2110        end
     2111    end
    20552112
    20562113    if Filename <> '' then do
    … …  
    21502207PushbackAll:
    21512208    Pages = 6
    2152     /* Tab distance from top */
    2153     TabTop = 25
    2154     TabWidth = 1180
    2155     TabHeight= 360
     2209    Delta = 400 /* This is the base distance between menubar an Page */
     2210
     2211    /* Tab Position */
     2212    TabWidth = VRget("TAB_1","Width")
     2213    TabHeight= VRget("TAB_1","Height")
     2214    TabTop = Delta - TabHeight
    21562215
    21572216    /* Page Position */
    21582217    PageLeft = 120
    2159     PageTop = PageLeft + TabTop + 330
     2218    PageTop = PageLeft + Delta
    21602219
    21612220    /* Page size */
    21622221    PageHeight = 4500
    2163     PageWidth = 7000
     2222    PageWidth  = 7000
    21642223    ok = VRset("DT_PageName", "Caption", "")
    21652224    ok = VRSet("GB_Main","Left", 0)
    2166     ok = VRSet("GB_Main","Top", TabTop+290)
     2225    ok = VRSet("GB_Main","Top", Delta - 60)
     2226
    21672227    do I = 1 to Pages
    21682228        ok = VRSet("TAB_"I,"Top", TabTop)
    21692229        ok = VRSet("TAB_"I,"PicturePath","#2"||I)
    21702230        ok = VRSet("TAB_"I,"Left",TabWidth*(I-1)+PageLeft)
    2171        ok = VRSet("TAB_"I,"Width",TabWidth)
    2172         ok = VRSet("TAB_"I,"Height",TabHeight)
     2231     /* ok = VRSet("TAB_"I,"Width",TabWidth)
     2232        ok = VRSet("TAB_"I,"Height",TabHeight) */
    21732233        ok = VRSet("Page_"I,"Height", PageHeight)
    21742234        ok = VRSet("Page_"I,"Width", PageWidth)
    … …  
    23982458    ok = VRSet("PB_CreateReport","Enabled",\_CheckInvalidReport())
    23992459return
    2400 

  • trunk/tools/OdinBug/readme.source

    r9104 r9650  
    1 Sourcecode for OdinBug 0.5.7
     1Sourcecode for OdinBug 0.5.8
    22============================
    33
    … …  
    88      VX-REXX projects folder.
    99   
    10    2. Unzip this OdinBugSrc057.ZIP in this folder.
     10   2. Unzip this OdinBugSrc058.ZIP in this folder.
    1111
    1212   3. Open OdinBug.VRP using VRXedit.
    … …  
    4242   3. User defined subroutines should start with an underscore.
    4343      Note: The VX-REXX IDE has a bug, which makes it crash
    44       if a routine beginning with underscore is deleted.
     44      if a routine beginning with underscore is deleted. So
     45      you have to rename it before deleteing it.
     46     
    4547      Sorry, I did not know that before I introduced this
    4648      convention.
    … …  
    5961   with different bugs/features.
    6062   
    61 D. AUTHOR:
     63D. Author:
    6264
    63 Herwig Bauernfeind, 11-08-2002
     65Herwig Bauernfeind, 10-01-2003
    6466EMail: herwig.bauernfeind@aon.at
Note: See TracChangeset for help on using the changeset viewer.