#50804 - 2001-05-06 03:54 AM
Re: KIXTART-TOOL: stripping kix code/reformatting kix code
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear,A new version has been created.
A list of changes are:
- add: output of option /debug shows which linenumber was executed & what was the time of execution.
- add: handle parameters of USE command (use /del /delete /password:[pw] /persistent /user:[user]).
- add: recognize "USE /delete" and "USE /del".
- fix: compression of unused spaces was sometimes incorrect. f.e. "copy file1 file2 /h" was transformed to "copy file1file2/h".
Program: kixstrip400.exe 2.23
Site: http://home.wanadoo.nl/scripting An example of input is:
code:
:part1
copy $file1 $file2 /H
copy %macro% %macro% /H
copy @userid \backup\@userid /H
copy file1 file2 /H
:part2
use l: /del /persistent /password:yes /user:yes /delete
use l: /persistent
use list
:part3
set "a=1"
setl "b=2"
setm "c=3"
password "pw"
color N/W
color N+/W
color n/w+
Output of previous version 2.17
code:
:part1 copy $file1$file2/h copy %macro%%macro%/h copy @userid\backup\@userid/h copy file1file2/h
:part2 use l:/del/persistent/password:yes/user:yes/delete use l:/persistent use list
:part3 set "a=1" setl "b=2" setm "c=3" password "pw" color N/W color N+/w color n/w+
;($begin)
;
; sat 05-may-2001 01:11:15 (kix 4.00 vs 2.17e)
;
;Informative KIXSTRIP: no errors found (input=17 output=17 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 [0:0:0]
; - while:loop [0:0]
;Informative KIXSTRIP: no block_structures found.
;Informative KIXSTRIP: no functions found.
;Informative KIXSTRIP: 3 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: 3 USE
;
;($end)
Output of actual version 2.23
code:
:part1 copy $file1 $file2 /h copy %macro% %macro% /h copy @userid\backup\@userid /h copy file1 file2 /h
:part2 use l: /del /persistent /password:yes /user:yes /delete use l: /persistent use list
:part3 set "a=1" setl "b=2" setm "c=3" password "pw" color N/W color N+/w color n/w+
;($begin)
;
; sat 05-may-2001 01:18:38 (kix 4.00 vs 2.23e)
;
;Informative KIXSTRIP: no errors found (input=17 output=17 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 [0:0:0]
; - while:loop [0:0]
;Informative KIXSTRIP: no block_structures found.
;Informative KIXSTRIP: no functions found.
;Informative KIXSTRIP: 3 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: 3 USE
;
;($end)
The screen output of version 2.23 is:
code:
Kixstrip 4.00 (vs 2.23e) (c) MCA - scripting@wanadoo.nl - 2000, 2001 1 .E(17)
Kixstrip 4.00 (vs 2.23e) 0.05 (sec)
input 17 example.kix
output 17 example.223 (skip: 0 blocks: 0 labels: 3) 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 [0:0:0]
- while:loop [0:0]
no block_structures found.
Informative KIXSTRIP: no functions found.
Informative KIXSTRIP: no errors found. active options:
/Combine /Headers /Show_Structure
/License: MCA - scripting@wanadoo.nl - 2000, 2001
inactive options:
/NoBlock_Check /NoDebug /NoPerformance /NoPrint /NoProgress /NoShow_Errors /NoTAB /NoTranslate
The new output of kixstrip.exe /debug is:
code:
CLS
AT (1,1) " "
IF RedirectOutput("")
ENDIF
?"- 1-"+@time+"- " IF setconsole("hide")
?"- 2-"+@time+"- " ENDIF
?"- 3-"+@time+"- " ;
?"- 4-"+@time+"- " ; NT/95 calculates os - Kixtart 3.62, 3.63, 4.00
?"- 5-"+@time+"- " ;
?"- 6-"+@time+"- " ; (c) scripting@wanadoo.nl - 2000, 2001
?"- 7-"+@time+"- " ;
?"- 8-"+@time+"- " ; vs 2.02 - program (calculates OS version with service pack)
?"- 9-"+@time+"- " ;
?"- 10-"+@time+"- " ; 1.00 (20000715) original version
?"- 11-"+@time+"- " ; 2.00 (20010330) - add "windows ME"
?"- 12-"+@time+"- " ; - returns $os + $os_type values
?"- 13-"+@time+"- " ; 2.01 (20010401) - kixtart 2001 beta1 compliancy
?"- 14-"+@time+"- " ; 2.02 (20010405) - remove cutting $os value
?"- 15-"+@time+"- " ;
?"- 16-"+@time+"- " $prgm_version="2.02"
?"- 17-"+@time+"- "
?"- 18-"+@time+"- " IF (@inwin = 1)
?"- 19-"+@time+"- " $nt_mode="yes"
?"- 20-"+@time+"- " ELSE
?"- 21-"+@time+"- " $nt_mode="no"
?"- 22-"+@time+"- " ENDIF
?"- 23-"+@time+"- "
?"- 24-"+@time+"- " $os=""
?"- 25-"+@time+"- " $os_dos=@dos
?"- 26-"+@time+"- " $os_product=ReadValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptions","ProductType")
?"- 27-"+@time+"- " $os_service_pack=""
?"- 28-"+@time+"- " $os_subversion=ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion","SubVersionNumber")
?"- 29-"+@time+"- " SELECT
?"- 30-"+@time+"- " CASE
($nt_mode = "yes") AND ($os_product <> "WinNT") AND ($os_dos = "5.0") ; - Windows 2000 -
?"- 31-"+@time+"- " $os="W2K_Server"
?"- 32-"+@time+"- " CASE
($nt_mode = "yes") AND ($os_product = "WinNT") AND ($os_dos = "5.0")
?"- 33-"+@time+"- " $os="W2K_Professional"
?"- 34-"+@time+"- " CASE
($nt_mode = "yes") AND ($os_product = "LANMANNT") ; - Windows NT -
?"- 35-"+@time+"- " $os="NT4_Domain_Controller"
?"- 36-"+@time+"- " CASE
($nt_mode = "yes") AND ($os_product = "ServerNT")
?"- 37-"+@time+"- " $os="NT4_Member_Server"
?"- 38-"+@time+"- " CASE
($nt_mode = "yes") AND ($os_product = "WinNT")
?"- 39-"+@time+"- " $os="NT4"
?"- 40-"+@time+"- " CASE
($nt_mode <> "yes") AND (@dos = "4.90")
?"- 41-"+@time+"- " $os="ME"
?"- 42-"+@time+"- " CASE
($nt_mode <> "yes") AND ($os_dos = "4.10") AND (INSTR(LCASE($os_subversion),"c") <> 0) ; - Windows 98 -
?"- 43-"+@time+"- " $os="W98c"
?"- 44-"+@time+"- " CASE
($nt_mode <> "yes") AND ($os_dos = "4.10") AND (INSTR(LCASE($os_subversion),"b") <> 0)
?"- 45-"+@time+"- " $os="W98b"
?"- 46-"+@time+"- " CASE
($nt_mode <> "yes") AND ($os_dos = "4.10") AND (INSTR(LCASE($os_subversion),"a") <> 0)
?"- 47-"+@time+"- " $os="W98a"
?"- 48-"+@time+"- " CASE
($nt_mode <> "yes") AND ($os_dos = "4.10")
?"- 49-"+@time+"- " $os="W98"
?"- 50-"+@time+"- " CASE
($nt_mode <> "yes") AND ($os_dos = "4.0") AND (INSTR(LCASE($os_subversion),"c") <> 0) ; - Windows 95 -
?"- 51-"+@time+"- " $os="W95c"
?"- 52-"+@time+"- " CASE
($nt_mode <> "yes") AND ($os_dos = "4.0") AND (INSTR(LCASE($os_subversion),"b") <> 0)
?"- 53-"+@time+"- " $os="W95b"
?"- 54-"+@time+"- " CASE
($nt_mode <> "yes") AND ($os_dos = "4.0") AND (INSTR(LCASE($os_subversion),"a") <> 0)
?"- 55-"+@time+"- " $os="W95a"
?"- 56-"+@time+"- " CASE
($nt_mode <> "yes") AND ($os_dos = "4.0")
?"- 57-"+@time+"- " $os="W95"
?"- 58-"+@time+"- " CASE
1
?"- 59-"+@time+"- " $os="???" ; - undetermined -
?"- 60-"+@time+"- " ENDSELECT
?"- 61-"+@time+"- " ;
?"- 62-"+@time+"- " $os_service_pack=""
?"- 63-"+@time+"- " IF ($nt_mode = "yes")
?"- 64-"+@time+"- " $os_service_pack=ReadValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion","CSDVersion")
?"- 65-"+@time+"- " IF (len($os_service_pack) <> 0)
?"- 66-"+@time+"- " $os=substr($os,1,3)+"_"+substr($os_service_pack,len($os_service_pack),1)
?"- 67-"+@time+"- " ENDIF
?"- 68-"+@time+"- " ENDIF
?"- 69-"+@time+"- " ;
?"- 70-"+@time+"- " $os_type=""
?"- 71-"+@time+"- " $os_dos=@dos
?"- 72-"+@time+"- " SELECT
?"- 73-"+@time+"- " CASE
($nt_mode = "yes") AND ($os_dos = "5.0") ; - Windows 2000 -
?"- 74-"+@time+"- " $os_type="W2K"
?"- 75-"+@time+"- " CASE
($nt_mode = "yes") ; - Windows NT -
?"- 76-"+@time+"- " $os_type="NT4"
?"- 77-"+@time+"- " CASE
($nt_mode <> "yes") AND ($os_dos = "4.90") ; - Windows ME -
?"- 78-"+@time+"- " $os_type="ME"
?"- 79-"+@time+"- " CASE
($nt_mode <> "yes") AND ($os_dos = "4.10") ; - Windows 98 -
?"- 80-"+@time+"- " $os_type="W98"
?"- 81-"+@time+"- " CASE
($nt_mode <> "yes") AND ($os_dos = "4.0") ; - Windows 95 -
?"- 82-"+@time+"- " $os_type="W95"
?"- 83-"+@time+"- " CASE
1
?"- 84-"+@time+"- " $os_type="???" ; - undetermined -
?"- 85-"+@time+"- " ENDSELECT
?"- 86-"+@time+"- " $os_type=LTRIM(RTRIM(substr($os_type+" ",1,3)))
?"- 87-"+@time+"- " ;
?"- 88-"+@time+"- " ? "os "+$os ; <--- $os_type + service pack code
?"- 89-"+@time+"- " ? "os_type "+$os_type;($begin)
;
; sat 05-may-2001 01:46:27 (kix 4.00 vs 2.23e)
;
;Informative KIXSTRIP: no errors found (input=89 output=89 skip=0).
;
;Informative KIXSTRIP: 6 block_structures found.
;Informative KIXSTRIP: no functions 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)
New output of kixstrip /performance is:
code:
CLS
AT (1,1) " "
IF RedirectOutput("")
ENDIF
DIM $perf_hits[101]
$perf_cur= 1 gosub "perf_info" IF setconsole("hide")
$perf_cur= 2 gosub "perf_info" ENDIF
$perf_cur= 3 gosub "perf_info" ;
$perf_cur= 4 gosub "perf_info" ; NT/95 calculates os - Kixtart 3.62, 3.63, 4.00
$perf_cur= 5 gosub "perf_info" ;
$perf_cur= 6 gosub "perf_info" ; (c) scripting@wanadoo.nl - 2000, 2001
$perf_cur= 7 gosub "perf_info" ;
$perf_cur= 8 gosub "perf_info" ; vs 2.02 - program (calculates OS version with service pack)
$perf_cur= 9 gosub "perf_info" ;
$perf_cur= 10 gosub "perf_info" ; 1.00 (20000715) original version
$perf_cur= 11 gosub "perf_info" ; 2.00 (20010330) - add "windows ME"
$perf_cur= 12 gosub "perf_info" ; - returns $os + $os_type values
$perf_cur= 13 gosub "perf_info" ; 2.01 (20010401) - kixtart 2001 beta1 compliancy
$perf_cur= 14 gosub "perf_info" ; 2.02 (20010405) - remove cutting $os value
$perf_cur= 15 gosub "perf_info" ;
$perf_cur= 16 gosub "perf_info" $prgm_version="2.02"
$perf_cur= 17 gosub "perf_info"
$perf_cur= 18 gosub "perf_info" IF (@inwin = 1)
$perf_cur= 19 gosub "perf_info" $nt_mode="yes"
$perf_cur= 20 gosub "perf_info" ELSE
$perf_cur= 21 gosub "perf_info" $nt_mode="no"
$perf_cur= 22 gosub "perf_info" ENDIF
$perf_cur= 23 gosub "perf_info"
$perf_cur= 24 gosub "perf_info" $os=""
$perf_cur= 25 gosub "perf_info" $os_dos=@dos
$perf_cur= 26 gosub "perf_info" $os_product=ReadValue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptions","ProductType")
$perf_cur= 27 gosub "perf_info" $os_service_pack=""
$perf_cur= 28 gosub "perf_info" $os_subversion=ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion","SubVersionNumber")
$perf_cur= 29 gosub "perf_info" SELECT
$perf_cur= 30 gosub "perf_info" CASE
($nt_mode = "yes") AND ($os_product <> "WinNT") AND ($os_dos = "5.0") ; - Windows 2000 -
$perf_cur= 31 gosub "perf_info" $os="W2K_Server"
$perf_cur= 32 gosub "perf_info" CASE
($nt_mode = "yes") AND ($os_product = "WinNT") AND ($os_dos = "5.0")
$perf_cur= 33 gosub "perf_info" $os="W2K_Professional"
$perf_cur= 34 gosub "perf_info" CASE
($nt_mode = "yes") AND ($os_product = "LANMANNT") ; - Windows NT -
$perf_cur= 35 gosub "perf_info" $os="NT4_Domain_Controller"
$perf_cur= 36 gosub "perf_info" CASE
($nt_mode = "yes") AND ($os_product = "ServerNT")
$perf_cur= 37 gosub "perf_info" $os="NT4_Member_Server"
$perf_cur= 38 gosub "perf_info" CASE
($nt_mode = "yes") AND ($os_product = "WinNT")
$perf_cur= 39 gosub "perf_info" $os="NT4"
$perf_cur= 40 gosub "perf_info" CASE
($nt_mode <> "yes") AND (@dos = "4.90")
$perf_cur= 41 gosub "perf_info" $os="ME"
$perf_cur= 42 gosub "perf_info" CASE
($nt_mode <> "yes") AND ($os_dos = "4.10") AND (INSTR(LCASE($os_subversion),"c") <> 0) ; - Windows 98 -
$perf_cur= 43 gosub "perf_info" $os="W98c"
$perf_cur= 44 gosub "perf_info" CASE
($nt_mode <> "yes") AND ($os_dos = "4.10") AND (INSTR(LCASE($os_subversion),"b") <> 0)
$perf_cur= 45 gosub "perf_info" $os="W98b"
$perf_cur= 46 gosub "perf_info" CASE
($nt_mode <> "yes") AND ($os_dos = "4.10") AND (INSTR(LCASE($os_subversion),"a") <> 0)
$perf_cur= 47 gosub "perf_info" $os="W98a"
$perf_cur= 48 gosub "perf_info" CASE
($nt_mode <> "yes") AND ($os_dos = "4.10")
$perf_cur= 49 gosub "perf_info" $os="W98"
$perf_cur= 50 gosub "perf_info" CASE
($nt_mode <> "yes") AND ($os_dos = "4.0") AND (INSTR(LCASE($os_subversion),"c") <> 0) ; - Windows 95 -
$perf_cur= 51 gosub "perf_info" $os="W95c"
$perf_cur= 52 gosub "perf_info" CASE
($nt_mode <> "yes") AND ($os_dos = "4.0") AND (INSTR(LCASE($os_subversion),"b") <> 0)
$perf_cur= 53 gosub "perf_info" $os="W95b"
$perf_cur= 54 gosub "perf_info" CASE
($nt_mode <> "yes") AND ($os_dos = "4.0") AND (INSTR(LCASE($os_subversion),"a") <> 0)
$perf_cur= 55 gosub "perf_info" $os="W95a"
$perf_cur= 56 gosub "perf_info" CASE
($nt_mode <> "yes") AND ($os_dos = "4.0")
$perf_cur= 57 gosub "perf_info" $os="W95"
$perf_cur= 58 gosub "perf_info" CASE
1
$perf_cur= 59 gosub "perf_info" $os="???" ; - undetermined -
$perf_cur= 60 gosub "perf_info" ENDSELECT
$perf_cur= 61 gosub "perf_info" ;
$perf_cur= 62 gosub "perf_info" $os_service_pack=""
$perf_cur= 63 gosub "perf_info" IF ($nt_mode = "yes")
$perf_cur= 64 gosub "perf_info" $os_service_pack=ReadValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion","CSDVersion")
$perf_cur= 65 gosub "perf_info" IF (len($os_service_pack) <> 0)
$perf_cur= 66 gosub "perf_info" $os=substr($os,1,3)+"_"+substr($os_service_pack,len($os_service_pack),1)
$perf_cur= 67 gosub "perf_info" ENDIF
$perf_cur= 68 gosub "perf_info" ENDIF
$perf_cur= 69 gosub "perf_info" ;
$perf_cur= 70 gosub "perf_info" $os_type=""
$perf_cur= 71 gosub "perf_info" $os_dos=@dos
$perf_cur= 72 gosub "perf_info" SELECT
$perf_cur= 73 gosub "perf_info" CASE
($nt_mode = "yes") AND ($os_dos = "5.0") ; - Windows 2000 -
$perf_cur= 74 gosub "perf_info" $os_type="W2K"
$perf_cur= 75 gosub "perf_info" CASE
($nt_mode = "yes") ; - Windows NT -
$perf_cur= 76 gosub "perf_info" $os_type="NT4"
$perf_cur= 77 gosub "perf_info" CASE
($nt_mode <> "yes") AND ($os_dos = "4.90") ; - Windows ME -
$perf_cur= 78 gosub "perf_info" $os_type="ME"
$perf_cur= 79 gosub "perf_info" CASE
($nt_mode <> "yes") AND ($os_dos = "4.10") ; - Windows 98 -
$perf_cur= 80 gosub "perf_info" $os_type="W98"
$perf_cur= 81 gosub "perf_info" CASE
($nt_mode <> "yes") AND ($os_dos = "4.0") ; - Windows 95 -
$perf_cur= 82 gosub "perf_info" $os_type="W95"
$perf_cur= 83 gosub "perf_info" CASE
1
$perf_cur= 84 gosub "perf_info" $os_type="???" ; - undetermined -
$perf_cur= 85 gosub "perf_info" ENDSELECT
$perf_cur= 86 gosub "perf_info" $os_type=LTRIM(RTRIM(substr($os_type+" ",1,3)))
$perf_cur= 87 gosub "perf_info" ;
$perf_cur= 88 gosub "perf_info" ? "os "+$os ; <--- $os_type + service pack code
$perf_cur= 89 gosub "perf_info" ? "os_type "+$os_type;($begin)
;
; sat 05-may-2001 01:43:36 (kix 4.00 vs 2.23e)
;
;Informative KIXSTRIP: no errors found (input=89 output=89 skip=0).
;
;Informative KIXSTRIP: 6 block_structures found.
;Informative KIXSTRIP: no functions 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) :perf_report
IF (RedirectOutput("") = 0)
ENDIF
CLS
at(2,26) "Kixtart Performance Report "+@kix
box(3,5,5,75,"single")
$perf_column=6
DO
at(4,$perf_column) " "
$perf_column=$perf_column+1
UNTIL ($perf_column >= 75)
box(7,5,9,75,"single")
$perf_percentage=(100*$perf_cur)/$perf_stop
at(6,30) substr(" ",1,3-len("$perf_percentage")) $perf_percentage " %"
at(8,26) substr(" ",1,7-len("$perf_cur")) $perf_cur " .. " $perf_stop
at(8,49) "total lines: " $perf_total
$perf_stop_time=@time
$perf_start_stime=3600*substr($perf_start_time,1,2)+60*substr($perf_start_time,4,2)+substr($perf_start_time,7,2)
$perf_stop_stime=3600*substr($perf_stop_time,1,2)+60*substr($perf_stop_time,4,2)+substr($perf_stop_time,7,2)
$perf_elapse_time=$perf_stop_stime - $perf_start_stime
at(4,25) $perf_start_time " .. " $perf_stop_time
at(4,55) "elapse: " $perf_elapse_time " sec"
IF ($perf_elapse_time = 0)
$perf_elapse_time=1
ENDIF
at(6,49) "lines/second: " $perf_total/$perf_elapse_time
at(11,0)
$perf_info=" %% hits %% hits %% hits %% hits %% hits %% hits %% hits %% hits %% hits %% hits"
$perf_info
$perf_count1=1
DO
$perf_info=""
$perf_count2=1
DO
$perf_hits_pos=$perf_count1+$perf_count2-1
$perf_hits_value=$perf_hits[$perf_hits_pos]
$perf_info=$perf_info+substr(" ",1,3-len("$perf_hits_pos"))+$perf_hits_pos
$perf_info=$perf_info+substr(" ",1,5-len("$perf_hits_value"))+$perf_hits_value
$perf_count2=$perf_count2+1
UNTIL ($perf_count2 > 10)
at(11+$perf_count1/10+1,0) $perf_info
$perf_count1=$perf_count1+10
UNTIL ($perf_count1 > 100)
at(22,0)
EXIT
:perf_info ; - performance -
$perf_stop=89
IF ($perf_cur <= 1)
$perf_count1=0
DO
$perf_hits[$perf_count1]=0
$perf_count1=$perf_count1+1
UNTIL ($perf_count1 > 100)
$perf_start_time=@time
$perf_total=0
ENDIF
$perf_percentage=(100*$perf_cur)/$perf_stop
$perf_hits[$perf_percentage]=$perf_hits[$perf_percentage]+1
$perf_total=$perf_total+1
RETURN
Additional information about some parameters:
- /debug (= duration of each line)
- shows which line was executed.
- shows what the time of execution is. it is possible that the
time is the same. That means the script is running fast.
The time value was just added to it to see which statement make
your script slow. Some kixtart functions & commands can be
relative slow.
Kixstrip shows the usage of those commands & functions:
code:
;Summary KIXSTRIP: BREAK
CALL
DEBUG
DISPLAY
ENDFUNCTION
EXECUTE
EXIT
FUNCTION
GET
GETS
GOSUB
GOTO
OLExxx
PLAY
QUIT
RETURN
RUN
SHELL
SLEEP
THEN
USE
This summary is added to the output file as comment.
- /performance (= only total time)
- shows how long your script was running.
- shows how many lines per second were executed.
- shows how much lines the script contains and how much lines were
executed. Sometime the number of lines executed can be enormous. Mostly
after using DO/UNTIL & WHILE/LOOP structures.
- shows in terms of percentages (f.e. your scripts is 1000 lines long,
50% means the group of lines 501 till 510) which part of your script
was running most.
f.e. 50% runs 34 times means: in the range 501 till 510 there were
34 lines executed.
exceptional cases can be traced.
- /progress (= only total time)
- /performance with an extension.
- shows during the execution the progress of your script.
Any comment or question is welcome.
Greetings.
|
|
Top
|
|
|
|
Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 611 anonymous users online.
|
|
|
