#97987 - 2002-07-07 02:40 AM
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear,
We have update our kixstrip tool. Current release is 3.13
- kixtart 4.10 rc 2 (build 95) compliancy.
- add: extension made to option "/Debug". it shows now
- which lines were executed
- what was the time of execution
- what was the kixtart error status by execution of each line
- actual environment information about os, user, etc.
- unique name based on @date, @msecs, @scriptname, @time and random number
- when was debugging starting and ending.
when necessary you only need to change line $_debug_file="kixdebug.txt" ; - %tmp% directory -with a new debugging information filename.
- add: other extensions made to option "/Debug". now
- it creates automatically the debug information file "%tmp%\kixdebug.txt"
- it isn't necessary to change your "RedirectOutput" statements in your code. automatically it will reset to specified debug information file
- with kixstrip directives ";($debug on)" and ";($debug off)" you can active and deactive debugging code
- with kixstrip directive ";($debug line)" you insert debugging code only once
other kixstrip directives:
- ;($begin)
- ;($end)
- change: kixstrip without options will show "help" instead of "date" information.
Example about new "/Debug" extensions:
- script1.kix (without debugging info)
code:
? "script 1 - start - @kix"
call "script2.kix"
sleep 1
call "script2.kix"
? "script 1 - end - @kix"
script2.kix (without debugging info)
code:
? "script 2 - @kix"
script1.kix (with debugging info)
code:
CLS
COLOR C+/N
AT (1,1) " "
$_debug_file="kixdebug.txt" ; - %tmp% directory -
;
IF (len($_debug_file) <> 0)
IF (substr(ExpandEnvironmentVars("%tmp%"),len(ExpandEnvironmentVars("%tmp%")),1) = "\")
$_debug_file=ExpandEnvironmentVars("%tmp%")+$_debug_file
ELSE
$_debug_file=ExpandEnvironmentVars("%tmp%")+"\"+$_debug_file
ENDIF
ENDIF
;$_debug_file="c:\kixdebug.txt"
$_debug_file=LCASE($_debug_file)
IF RedirectOutput($_debug_file)
ENDIF
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.13e script starting."
? "-"
? "-curdir: "+LCASE(@curdir)
? "-scriptdir: "+LCASE(@scriptdir)
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
? "-scriptname: "+LCASE(@scriptname)
ENDIF
? "-startdir: "+LCASE(@startdir)
? "-"
? "-userid: "+LCASE(@userid)+"/"+LCASE(@wuserid)
? "-user priv: "+LCASE(@priv)
IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
? "-version: inwin="+@inwin+"/dos="+@dos"/productsuite="+@productsuite+"/producttype="+@producttype"/csd="+LTRIM(RTRIM(@csd))
ELSE
? "-version: inwin="+@inwin+"/dos="+@dos
ENDIF
DIM $_debug_name
$_debug_name=""
IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
$_debug_name=@msecs
SELECT
CASE (len($_debug_name) = 1)
$_debug_name="00"+$_debug_name
CASE (len($_debug_name) = 2)
$_debug_name="0"+$_debug_name
ENDSELECT
$_debug_name="."+$_debug_name
IF srnd(@msecs)
ENDIF
ENDIF
$_debug_name=substr(@date,1,4)+substr(@date,6,2)+substr(@date,9,2)+"_"+substr(@time,1,2)+substr(@time,4,2)+substr(@time,7,2)+$_debug_name+"_"+rnd(32767)
IF (len($_debug_name) < 25)
$_debug_name=substr($_debug_name+" ",1,25)
ENDIF
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
IF (len(@scriptname) < 12)
$_debug_name=$_debug_name+" "+LCASE(substr(@scriptname+" ",1,12))
ELSE
$_debug_name=$_debug_name+" "+LCASE(@scriptname)
ENDIF
ENDIF
? "-debug file: "+$_debug_file
? "-debug name: "+$_debug_name
? "-"
?"----- start-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 1-"+@time+"-"+$_debug_name+"- @error @serror"? ? "script 1 - start - @kix"
?"- 2-"+@time+"-"+$_debug_name+"- @error @serror"? CALL "script2.kix"
?"- 3-"+@time+"-"+$_debug_name+"- @error @serror"? SLEEP 1
?"- 4-"+@time+"-"+$_debug_name+"- @error @serror"? CALL "script2.kix"
?"- 5-"+@time+"-"+$_debug_name+"- @error @serror"? ? "script 1 - end - @kix"
?"------- end-"+@time+"-"+$_debug_name+"- @error @serror"?
? "-"
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.13e script ending."
? "-"
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
? "-"+@cpu+" ("+@mhz+" Mhz, memory "+MemorySize()+" MB)"
ENDIF
? "-"
IF RedirectOutput("CON")
ENDIF
COLOR C+/N
?
? "debugging information "+CHR(34)+$_debug_file+CHR(34)
IF RedirectOutput($_debug_file)
ENDIF
;($begin)
;
; sat 06-jul-2002 23:12:02 (kix 4.10 vs 3.13e)
;
;Informative KIXSTRIP: no errors found (input=5 output=5 skip=0).
;
;Informative KIXSTRIP: no block_structures found.
;Informative KIXSTRIP: no UDF's found.
;Informative KIXSTRIP: no labels found.
;Summary KIXSTRIP: BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP: 2 CALL
;Informative KIXSTRIP: 1 SLEEP
;
;($end)
script2.kix (with debugging info)
code:
CLS
COLOR C+/N
AT (1,1) " "
$_debug_file="kixdebug.txt" ; - %tmp% directory -
;
IF (len($_debug_file) <> 0)
IF (substr(ExpandEnvironmentVars("%tmp%"),len(ExpandEnvironmentVars("%tmp%")),1) = "\")
$_debug_file=ExpandEnvironmentVars("%tmp%")+$_debug_file
ELSE
$_debug_file=ExpandEnvironmentVars("%tmp%")+"\"+$_debug_file
ENDIF
ENDIF
;$_debug_file="c:\kixdebug.txt"
$_debug_file=LCASE($_debug_file)
IF RedirectOutput($_debug_file)
ENDIF
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.13e script starting."
? "-"
? "-curdir: "+LCASE(@curdir)
? "-scriptdir: "+LCASE(@scriptdir)
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
? "-scriptname: "+LCASE(@scriptname)
ENDIF
? "-startdir: "+LCASE(@startdir)
? "-"
? "-userid: "+LCASE(@userid)+"/"+LCASE(@wuserid)
? "-user priv: "+LCASE(@priv)
IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
? "-version: inwin="+@inwin+"/dos="+@dos"/productsuite="+@productsuite+"/producttype="+@producttype"/csd="+LTRIM(RTRIM(@csd))
ELSE
? "-version: inwin="+@inwin+"/dos="+@dos
ENDIF
DIM $_debug_name
$_debug_name=""
IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
$_debug_name=@msecs
SELECT
CASE (len($_debug_name) = 1)
$_debug_name="00"+$_debug_name
CASE (len($_debug_name) = 2)
$_debug_name="0"+$_debug_name
ENDSELECT
$_debug_name="."+$_debug_name
IF srnd(@msecs)
ENDIF
ENDIF
$_debug_name=substr(@date,1,4)+substr(@date,6,2)+substr(@date,9,2)+"_"+substr(@time,1,2)+substr(@time,4,2)+substr(@time,7,2)+$_debug_name+"_"+rnd(32767)
IF (len($_debug_name) < 25)
$_debug_name=substr($_debug_name+" ",1,25)
ENDIF
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
IF (len(@scriptname) < 12)
$_debug_name=$_debug_name+" "+LCASE(substr(@scriptname+" ",1,12))
ELSE
$_debug_name=$_debug_name+" "+LCASE(@scriptname)
ENDIF
ENDIF
? "-debug file: "+$_debug_file
? "-debug name: "+$_debug_name
? "-"
?"----- start-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 1-"+@time+"-"+$_debug_name+"- @error @serror"? ? "script 2 - @kix"
?"------- end-"+@time+"-"+$_debug_name+"- @error @serror"?
? "-"
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.13e script ending."
? "-"
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
? "-"+@cpu+" ("+@mhz+" Mhz, memory "+MemorySize()+" MB)"
ENDIF
? "-"
IF RedirectOutput("CON")
ENDIF
COLOR C+/N
?
? "debugging information "+CHR(34)+$_debug_file+CHR(34)
IF RedirectOutput($_debug_file)
ENDIF
;($begin)
;
; sat 06-jul-2002 23:10:12 (kix 4.10 vs 3.13e)
;
;Informative KIXSTRIP: no errors found (input=1 output=1 skip=0).
;
;Informative KIXSTRIP: no block_structures found.
;Informative KIXSTRIP: no UDF's found.
;Informative KIXSTRIP: no labels found.
;Summary KIXSTRIP: BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;
;($end)
after kix32.exe run the file %windir%\kixdebug.txt contains
code:
-saturday 2002/07/06 23:12:22- kixtart 4.10 Release Candidate 2/3.13e script starting.
-
-curdir: d:\
-scriptdir: d:
-scriptname: script1.kix
-startdir: d:
-
-userid: -/-
-user priv: guest
-version: inwin=2/dos=4.90/productsuite=/producttype=Windows Me/csd=
-debug file: c:\temp\kixdebug.txt
-debug name: 20020706_231222.930_3075 script1.kix
-
----- start-23:12:22-20020706_231222.930_3075 script1.kix - 0 The operation completed successfully.
.
- 1-23:12:22-20020706_231222.930_3075 script1.kix - 0 The operation completed successfully.
.
script 1 - start - 4.10 Release Candidate 2
- 2-23:12:22-20020706_231222.930_3075 script1.kix - 0 The operation completed successfully.
.
-saturday 2002/07/06 23:12:22- kixtart 4.10 Release Candidate 2/3.13e script starting.
-
-curdir: d:\
-scriptdir: d:
-scriptname: script2.kix
-startdir: d:
-
-userid: -/-
-user priv: guest
-version: inwin=2/dos=4.90/productsuite=/producttype=Windows Me/csd=
-debug file: c:\temp\kixdebug.txt
-debug name: 20020706_231222.990_3271 script2.kix
-
----- start-23:12:22-20020706_231222.990_3271 script2.kix - 0 The operation completed successfully.
.
- 1-23:12:22-20020706_231222.990_3271 script2.kix - 0 The operation completed successfully.
.
script 2 - 4.10 Release Candidate 2
------- end-23:12:22-20020706_231222.990_3271 script2.kix - 0 The operation completed successfully.
.
-
-saturday 2002/07/06 23:12:22- kixtart 4.10 Release Candidate 2/3.13e script ending.
-
-Intel Pentium III (0 Mhz, memory 511 MB)
-
- 3-23:12:22-20020706_231222.930_3075 script1.kix - 0 The operation completed successfully.
.
- 4-23:12:23-20020706_231222.930_3075 script1.kix - 0 The operation completed successfully.
.
-saturday 2002/07/06 23:12:23- kixtart 4.10 Release Candidate 2/3.13e script starting.
-
-curdir: d:\
-scriptdir: d:
-scriptname: script2.kix
-startdir: d:
-
-userid: -/-
-user priv: guest
-version: inwin=2/dos=4.90/productsuite=/producttype=Windows Me/csd=
-debug file: c:\temp\kixdebug.txt
-debug name: 20020706_231223.980_3238 script2.kix
-
----- start-23:12:23-20020706_231223.980_3238 script2.kix - 0 The operation completed successfully.
.
- 1-23:12:23-20020706_231223.980_3238 script2.kix - 0 The operation completed successfully.
.
script 2 - 4.10 Release Candidate 2
------- end-23:12:24-20020706_231223.980_3238 script2.kix - 0 The operation completed successfully.
.
-
-saturday 2002/07/06 23:12:24- kixtart 4.10 Release Candidate 2/3.13e script ending.
-
-Intel Pentium III (0 Mhz, memory 511 MB)
-
- 5-23:12:24-20020706_231222.930_3075 script1.kix - 0 The operation completed successfully.
.
script 1 - end - 4.10 Release Candidate 2
------- end-23:12:24-20020706_231222.930_3075 script1.kix - 0 The operation completed successfully.
.
-
-saturday 2002/07/06 23:12:24- kixtart 4.10 Release Candidate 2/3.13e script ending.
-
-Intel Pentium III (0 Mhz, memory 511 MB)
-
Example with new "/Debug" kixstrip directives:
- script example [b]os.kix
code:
$os=""
$os_dos=@dos
SELECT
CASE ($NT_mode = "yes") AND ($os_dos = "5.1") ; - Windows XP -
$os="XP"
CASE ($NT_mode = "yes") AND ($os_dos = "5.0") ; - Windows 2000 -
$os="W2K"
CASE ($NT_mode = "yes") ; - Windows NT -
$os="NT4"
CASE ($NT_mode <> "yes") AND ($os_dos = "4.90") ; - Windows ME -
$os="ME"
CASE ($NT_mode <> "yes") AND ($os_dos = "4.10") ; - Windows 98 -
$os="W98"
CASE ($NT_mode <> "yes") AND ($os_dos = "4.0") ; - Windows 95 -
$os="W95"
CASE 1
$os="???" ; - undetermined -
ENDSELECT
$os=LTRIM(RTRIM(substr($os+" ",1,3)))
;
? "$$os "+$os
script without directives
code:
CLS
COLOR C+/N
AT (1,1) " "
$_debug_file="kixdebug.txt" ; - %tmp% directory -
;
IF (len($_debug_file) <> 0)
IF (substr(ExpandEnvironmentVars("%tmp%"),len(ExpandEnvironmentVars("%tmp%")),1) = "\")
$_debug_file=ExpandEnvironmentVars("%tmp%")+$_debug_file
ELSE
$_debug_file=ExpandEnvironmentVars("%tmp%")+"\"+$_debug_file
ENDIF
ENDIF
;$_debug_file="c:\kixdebug.txt"
$_debug_file=LCASE($_debug_file)
IF RedirectOutput($_debug_file)
ENDIF
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.13e script starting."
? "-"
? "-curdir: "+LCASE(@curdir)
? "-scriptdir: "+LCASE(@scriptdir)
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
? "-scriptname: "+LCASE(@scriptname)
ENDIF
? "-startdir: "+LCASE(@startdir)
? "-"
? "-userid: "+LCASE(@userid)+"/"+LCASE(@wuserid)
? "-user priv: "+LCASE(@priv)
IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
? "-version: inwin="+@inwin+"/dos="+@dos"/productsuite="+@productsuite+"/producttype="+@producttype"/csd="+LTRIM(RTRIM(@csd))
ELSE
? "-version: inwin="+@inwin+"/dos="+@dos
ENDIF
DIM $_debug_name
$_debug_name=""
IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
$_debug_name=@msecs
SELECT
CASE (len($_debug_name) = 1)
$_debug_name="00"+$_debug_name
CASE (len($_debug_name) = 2)
$_debug_name="0"+$_debug_name
ENDSELECT
$_debug_name="."+$_debug_name
IF srnd(@msecs)
ENDIF
ENDIF
$_debug_name=substr(@date,1,4)+substr(@date,6,2)+substr(@date,9,2)+"_"+substr(@time,1,2)+substr(@time,4,2)+substr(@time,7,2)+$_debug_name+"_"+rnd(32767)
IF (len($_debug_name) < 25)
$_debug_name=substr($_debug_name+" ",1,25)
ENDIF
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
IF (len(@scriptname) < 12)
$_debug_name=$_debug_name+" "+LCASE(substr(@scriptname+" ",1,12))
ELSE
$_debug_name=$_debug_name+" "+LCASE(@scriptname)
ENDIF
ENDIF
? "-debug file: "+$_debug_file
? "-debug name: "+$_debug_name
? "-"
?"----- start-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 1-"+@time+"-"+$_debug_name+"- @error @serror"? $os=""
?"- 2-"+@time+"-"+$_debug_name+"- @error @serror"? $os_dos=@dos
?"- 3-"+@time+"-"+$_debug_name+"- @error @serror"? SELECT
?"- 4-"+@time+"-"+$_debug_name+"- @error @serror"? CASE
($nt_mode = "yes") AND ($os_dos = "5.1") ; - Windows XP -
?"- 5-"+@time+"-"+$_debug_name+"- @error @serror"? $os="XP"
?"- 6-"+@time+"-"+$_debug_name+"- @error @serror"? CASE
($nt_mode = "yes") AND ($os_dos = "5.0") ; - Windows 2000 -
?"- 7-"+@time+"-"+$_debug_name+"- @error @serror"? $os="W2K"
?"- 8-"+@time+"-"+$_debug_name+"- @error @serror"? CASE
($nt_mode = "yes") ; - Windows NT -
?"- 9-"+@time+"-"+$_debug_name+"- @error @serror"? $os="NT4"
?"- 10-"+@time+"-"+$_debug_name+"- @error @serror"? CASE
($nt_mode <> "yes") AND ($os_dos = "4.90") ; - Windows ME -
?"- 11-"+@time+"-"+$_debug_name+"- @error @serror"? $os="ME"
?"- 12-"+@time+"-"+$_debug_name+"- @error @serror"? CASE
($nt_mode <> "yes") AND ($os_dos = "4.10") ; - Windows 98 -
?"- 13-"+@time+"-"+$_debug_name+"- @error @serror"? $os="W98"
?"- 14-"+@time+"-"+$_debug_name+"- @error @serror"? CASE
($nt_mode <> "yes") AND ($os_dos = "4.0") ; - Windows 95 -
?"- 15-"+@time+"-"+$_debug_name+"- @error @serror"? $os="W95"
?"- 16-"+@time+"-"+$_debug_name+"- @error @serror"? CASE
1
?"- 17-"+@time+"-"+$_debug_name+"- @error @serror"? $os="???" ; - undetermined -
?"- 18-"+@time+"-"+$_debug_name+"- @error @serror"? ENDSELECT
?"- 19-"+@time+"-"+$_debug_name+"- @error @serror"? $os=LTRIM(RTRIM(substr($os+" ",1,3)))
?"- 20-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"- 21-"+@time+"-"+$_debug_name+"- @error @serror"? ? "$$os "+$os
?"- 22-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"- 23-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"------- end-"+@time+"-"+$_debug_name+"- @error @serror"?
? "-"
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.13e script ending."
? "-"
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
? "-"+@cpu+" ("+@mhz+" Mhz, memory "+MemorySize()+" MB)"
ENDIF
? "-"
IF RedirectOutput("CON")
ENDIF
COLOR C+/N
?
? "debugging information "+CHR(34)+$_debug_file+CHR(34)
IF RedirectOutput($_debug_file)
ENDIF
;($begin)
;
; sat 06-jul-2002 23:57:16 (kix 4.10 vs 3.13e)
;
;Informative KIXSTRIP: no errors found (input=23 output=23 skip=0).
;
;Summary KIXSTRIP: block structures
; - do:until [0:0]
; - for|each:in|to:step|next [0|0:0|0:0|0]
; - function:endfunction [0:0]
; - if:else:endif [0:0:0]
; - select:case:endselect [1:7:1]
; - while:loop [0:0]
;Informative KIXSTRIP: 1 block_structure found.
;Informative KIXSTRIP: no UDF's found.
;Informative KIXSTRIP: no labels found.
;Summary KIXSTRIP: BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;
;($end)
[b]script with directives
code:
CLS
COLOR C+/N
AT (1,1) " "
$_debug_file="kixdebug.txt" ; - %tmp% directory -
;
IF (len($_debug_file) <> 0)
IF (substr(ExpandEnvironmentVars("%tmp%"),len(ExpandEnvironmentVars("%tmp%")),1) = "\")
$_debug_file=ExpandEnvironmentVars("%tmp%")+$_debug_file
ELSE
$_debug_file=ExpandEnvironmentVars("%tmp%")+"\"+$_debug_file
ENDIF
ENDIF
;$_debug_file="c:\kixdebug.txt"
$_debug_file=LCASE($_debug_file)
IF RedirectOutput($_debug_file)
ENDIF
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.13e script starting."
? "-"
? "-curdir: "+LCASE(@curdir)
? "-scriptdir: "+LCASE(@scriptdir)
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
? "-scriptname: "+LCASE(@scriptname)
ENDIF
? "-startdir: "+LCASE(@startdir)
? "-"
? "-userid: "+LCASE(@userid)+"/"+LCASE(@wuserid)
? "-user priv: "+LCASE(@priv)
IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
? "-version: inwin="+@inwin+"/dos="+@dos"/productsuite="+@productsuite+"/producttype="+@producttype"/csd="+LTRIM(RTRIM(@csd))
ELSE
? "-version: inwin="+@inwin+"/dos="+@dos
ENDIF
DIM $_debug_name
$_debug_name=""
IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
$_debug_name=@msecs
SELECT
CASE (len($_debug_name) = 1)
$_debug_name="00"+$_debug_name
CASE (len($_debug_name) = 2)
$_debug_name="0"+$_debug_name
ENDSELECT
$_debug_name="."+$_debug_name
IF srnd(@msecs)
ENDIF
ENDIF
$_debug_name=substr(@date,1,4)+substr(@date,6,2)+substr(@date,9,2)+"_"+substr(@time,1,2)+substr(@time,4,2)+substr(@time,7,2)+$_debug_name+"_"+rnd(32767)
IF (len($_debug_name) < 25)
$_debug_name=substr($_debug_name+" ",1,25)
ENDIF
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
IF (len(@scriptname) < 12)
$_debug_name=$_debug_name+" "+LCASE(substr(@scriptname+" ",1,12))
ELSE
$_debug_name=$_debug_name+" "+LCASE(@scriptname)
ENDIF
ENDIF
? "-debug file: "+$_debug_file
? "-debug name: "+$_debug_name
? "-"
?"----- start-"+@time+"-"+$_debug_name+"- @error @serror"?
;($debug off)
$os=""
$os_dos=@dos
SELECT
CASE
($nt_mode = "yes") AND ($os_dos = "5.1") ; - Windows XP -
$os="XP"
CASE
($nt_mode = "yes") AND ($os_dos = "5.0") ; - Windows 2000 -
$os="W2K"
CASE
($nt_mode = "yes") ; - Windows NT -
$os="NT4"
CASE
($nt_mode <> "yes") AND ($os_dos = "4.90") ; - Windows ME -
$os="ME"
CASE
($nt_mode <> "yes") AND ($os_dos = "4.10") ; - Windows 98 -
$os="W98"
CASE
($nt_mode <> "yes") AND ($os_dos = "4.0") ; - Windows 95 -
$os="W95"
CASE
1
?"- 18-"+@time+"-"+$_debug_name+"- @error @serror"? ;($debug line)
$os="???" ; - undetermined -
ENDSELECT
?"- 21-"+@time+"-"+$_debug_name+"- @error @serror"? ;($debug on)
?"- 22-"+@time+"-"+$_debug_name+"- @error @serror"? $os=LTRIM(RTRIM(substr($os+" ",1,3)))
?"- 23-"+@time+"-"+$_debug_name+"- @error @serror"? ;
?"- 24-"+@time+"-"+$_debug_name+"- @error @serror"? ? "$$os "+$os
;($debug off)
;
;
?"------- end-"+@time+"-"+$_debug_name+"- @error @serror"?
? "-"
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.13e script ending."
? "-"
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
? "-"+@cpu+" ("+@mhz+" Mhz, memory "+MemorySize()+" MB)"
ENDIF
? "-"
IF RedirectOutput("CON")
ENDIF
COLOR C+/N
?
? "debugging information "+CHR(34)+$_debug_file+CHR(34)
IF RedirectOutput($_debug_file)
ENDIF
;($begin)
;
; sun 07-jul-2002 00:01:46 (kix 4.10 vs 3.13e)
;
;Informative KIXSTRIP: no errors found (input=27 output=27 skip=0).
;
;Informative KIXSTRIP: 1 block_structure found.
;Informative KIXSTRIP: no UDF's found.
;Informative KIXSTRIP: no labels found.
;Summary KIXSTRIP: BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;
;($end)
Any comment or input is welcome.
greetings.
|
|
Top
|
|
|
|
KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2001-07-12 05:13 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2001-07-15 06:29 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2001-07-20 06:47 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2001-07-21 05:30 AM
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
Kdyer
|
2001-07-21 05:02 PM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2001-07-22 04:11 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2001-11-21 06:47 PM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2002-01-22 04:30 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2002-04-10 05:11 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2002-04-11 03:58 AM
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2002-07-07 02:40 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2002-07-12 09:32 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2002-07-28 10:36 PM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2002-08-02 09:44 PM
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
Lonkero
|
2002-08-29 11:33 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
Kdyer
|
2002-08-29 02:47 PM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
Sealeopard
|
2002-08-29 03:42 PM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
Lonkero
|
2002-08-29 05:01 PM
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
jngibert
|
2002-09-04 01:02 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2002-11-30 06:46 PM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
Kdyer
|
2002-11-30 07:08 PM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
Lonkero
|
2002-11-30 10:49 PM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2002-11-30 11:06 PM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
Lonkero
|
2002-11-30 11:17 PM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2002-11-30 11:38 PM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
Lonkero
|
2002-11-30 11:58 PM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2002-12-01 12:05 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
Kdyer
|
2002-12-01 07:37 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2002-12-01 08:22 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2003-01-20 02:06 AM
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
Kdyer
|
2003-01-23 12:13 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
Lonkero
|
2003-01-23 01:43 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2003-01-23 02:20 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
Kdyer
|
2003-01-23 09:59 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
Lonkero
|
2003-01-25 03:28 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2003-01-25 04:22 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2003-01-25 04:25 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
Lonkero
|
2003-01-25 04:29 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2003-01-25 04:38 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
Lonkero
|
2003-01-25 04:43 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2003-03-11 10:24 AM
|
|
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
|
2003-10-16 08:28 PM
|
|
Moderator: Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 388 anonymous users online.
|
|
|
