#98017 - 2003-03-11 10:24 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 Lonkero & Kent,
We have implement a search engine on our site. We have used a free version
of http://www.master.com, which returns after the indexing process best
search results. Also we have the possibility to use a "text" format as entry
point.
With the same account you can implement all kind of other things like message
board, feedback facility, site availability service and other things can be
done.
Direct link is: Search in our site
greetings.
|
|
Top
|
|
|
|
|
#98018 - 2003-10-16 08:28 PM
Re: KIX-TOOL: stripping, reformatting, debugging, performance analyze kix code (kixstrip)
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear,
update: version kixstrip420.exe is compliant with "KiXtart 2001 - 4.20 (build 129)"
and "KiXtart 2001 - 4.21 (build 136)".
new: version kixstrip422.exe is compliant with "KiXtart 2001 - 4.22 release candidate 1 (build 137)".
Only keyword table is different with the other kixstrip releases.
What has been changed?
- new macro's has been included for the latest kixtart release.
- some layout corrections. So as user it is much easier to see for which kixtart release it was
designed.
Example of kixstrip422.exe
code:
Kixstrip 4.03e - kixtart 4.22 (c) MCA - scripting@wanadoo.nl - 2003
.
1 .E(3)
.
Kixstrip 4.03e - kixtart 4.22 0.00 (sec)
.
input 3 input.kix
output 3 output.kix (skip: 0 blocks: 0 labels: 0)
block_check block_structures=0 labels=0
tab=6 (default)
.
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 UDF's found.
Informative KIXSTRIP: no errors found.
.
active options:
/Block_Check /Debug /Headers /Print /Show_Errors /Show_Structure /TAB=6 /Translate
inactive options:
/NoCombine /NoPerformance /NoProgress
/NoLicense: (not.specified)
Example of kixstrip420.exe
code:
Kixstrip 4.03e - kixtart 4.20/4.21 (c) MCA - scripting@wanadoo.nl - 2003
.
1 .E(3)
.
Warning KIXSTRIP: 3 "@color" line contains unknown function.
.
Kixstrip 4.03e - kixtart 4.20/4.21 0.00 (sec)
.
input 3 input.kix
output 3 output.kix (skip: 0 blocks: 0 labels: 0)
block_check block_structures=0 labels=0
tab=6 (default)
.
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 UDF's found.
Warning KIXSTRIP: 1 line contains unknown function.
Warning KIXSTRIP: some lines contains errors or possible errors.
.
active options:
/Block_Check /Debug /Headers /Print /Show_Errors /Show_Structure /TAB=6 /Translate
inactive options:
/NoCombine /NoPerformance /NoProgress
/NoLicense: (not.specified)
- the /Debug output gets a new layout, which can handle the new @kix macro output.
It is up- and downwards compatible.
Also it works for newer kixtart releases.
At least the MemorySize will be increment with one to show f.e. 512 instead 511 MB.
An example
code:
;CLS
$_debug_kix_info=Ltrim(Rtrim(Substr(@kix,InStr(@kix,'.')-1,Len(@kix)-InStr(@kix,'.')+2)))
IF (InStr("-3.0x-3.1x-3.2x-3.3x-","-"+Substr($_debug_kix_info,1,3)+"x-") <> 0)
IF MessageBox("sorry, your kixtart "+$_debug_kix_info+" release is too old."+" at least use kixtart 3.4x release."+Chr(13)+Chr(10)+Chr(13)+Chr(10)+" please upgrade.","KiXtart "+@kix+" info",4112,300)
ENDIF
EXIT
ENDIF
COLOR c+/n
;AT (1,1) " "
$_debug_file="kixdebug.txt" ; - %tmp% directory -
IF (Len($_debug_file) <> 0)
IF (Substr("%tmp%",Len("%tmp%"),1) = "\")
$_debug_file="%tmp%"+$_debug_file
ELSE
$_debug_file="%tmp%\"+$_debug_file
ENDIF
ENDIF
;$_debug_file="c:\kixdebug.txt"
IF RedirectOutput($_debug_file)
ENDIF
? "-"+Lcase(@day)+" "+@date+" "+@time+"- kixtart "+$_debug_kix_info+"/kixstrip 4.03e script starting"
IF (Val(Substr($_debug_kix_info,1,1)) >= 4)
IF (Len(@scriptname) <> 0)
" ("+Lcase(@scriptname)+")"
ENDIF
ENDIF
? "-"
IF ("$_debug_already_starting" <> "yes")
? "-curdir: "+Lcase(@curdir)
? "-scriptdir: "+Lcase(@scriptdir)
IF (Val(Substr($_debug_kix_info,1,1)+Substr($_debug_kix_info,3,2)) >= 422)
? "-scriptexe: "+Lcase(@scriptexe)+" (pid "+@pid+")"
ENDIF
IF (Val(Substr($_debug_kix_info,1,1)+Substr($_debug_kix_info,3,1)) >= 41)
? "-scriptname: "+Lcase(@scriptname)
ENDIF
? "-startdir: "+Lcase(@startdir)
? "-"
? "-userid/wuserid: "+Lcase(@userid)+"/"+Lcase(@wuserid)
? "-user priv: "+Lcase(@priv)
IF (Val(Substr($_debug_kix_info,1,1)) >= 4)
? "-version: inwin="+@inwin+"/dos="+@dos+"/productsuite="+@productsuite+"/producttype="+@producttype+"/csd="+Ltrim(Rtrim(@csd))
ELSE
? "-version: inwin="+@inwin+"/dos="+@dos
ENDIF
? "-"
IF (Val(Substr($_debug_kix_info,1,1)+Substr($_debug_kix_info,3,1)) >= 41)
? "-"+@cpu+" (memory "+Val(MemorySize()+1)+" MB)"
? "-"
ENDIF
ENDIF
$_debug_temp_name="" ; -format: yyyymmdd_hhmmss.sss_999 scriptname-
IF (Val(Substr($_debug_kix_info,1,1)+Substr($_debug_kix_info,3,1)) >= 36)
IF (Val(Substr($_debug_kix_info,1,1)) >= 4)
$_debug_temp_name=@msecs
SELECT
CASE (Len($_debug_temp_name) = 1)
$_debug_temp_name="00"+$_debug_temp_name
CASE (Len($_debug_temp_name) = 2)
$_debug_temp_name="0"+$_debug_temp_name
ENDSELECT
$_debug_temp_name="."+$_debug_temp_name
IF Srnd(@msecs)
ENDIF
SLEEP 0.050
ELSE
IF Srnd((-1)*32767/(Substr(@time,7,2)+1))
ENDIF
SLEEP 1
ENDIF
$_debug_temp_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_temp_name+"_"+Rnd()
IF (Len($_debug_temp_name) < 25)
$_debug_temp_name=Substr($_debug_temp_name+" ",1,25)
ENDIF
IF (Val(Substr($_debug_kix_info,1,1)+Substr($_debug_kix_info,3,1)) >= 41)
IF (Len(@scriptname) < 12)
$_debug_temp_name=$_debug_temp_name+" "+Substr(@scriptname+" ",1,12)
ELSE
$_debug_temp_name=$_debug_temp_name+" "+@scriptname
ENDIF
ENDIF
ENDIF
IF ("$_debug_already_starting" <> "yes")
? "-debug file: "+$_debug_file
? "-debug name: "+Lcase($_debug_temp_name)
ELSE
IF (Len($_debug_temp_name) <> 0)
? "-debug: "+Ltrim(Rtrim(Lcase($_debug_temp_name)))+" -> "+$_debug_file
ELSE
? "-debug-file: "+$_debug_file
ENDIF
ENDIF
IF (Val(Substr($_debug_kix_info,1,1)+Substr($_debug_kix_info,3,1)) < 36)
GOTO _debug_starting_point
ENDIF
DIM $_debug_name ; -create local variable-
:_debug_starting_point
$_debug_name=Lcase($_debug_temp_name)
$_debug_already_starting="yes"
? "-"
?"----- start-"+@time+"-"+$_debug_name+"- @error @serror"?
?"- 1-"+@time+"-"+$_debug_name+"- @error @serror"? ? @kix
?"------- end-"+@time+"-"+$_debug_name+"- @error @serror"
? "-"
? "-"+Lcase(@day)+" "+@date+" "+@time+"- kixtart "+$_debug_kix_info+"/kixstrip 4.03e script ending"
IF (Val(Substr($_debug_kix_info,1,1)) >= 4)
IF (Len(@scriptname) <> 0)
" ("+Lcase(@scriptname)+")"
ENDIF
ENDIF
? "-"
IF RedirectOutput("CON")
ENDIF
COLOR c+/n
?
? "Informative KIX "+$_debug_kix_info+":"+" debug info see "+Chr(34)+$_debug_file+Chr(34)
IF (Val(Substr($_debug_kix_info,1,1)) >= 4)
IF (Len(@scriptname) <> 0)
" ("+Lcase(@scriptname)+")"
ENDIF
ENDIF
IF RedirectOutput($_debug_file)
ENDIF
;($begin)
;
; kixstrip 4.03e - kixtart 4.22
;
; thu 16-oct-2003 19:45:38
;
;Informative KIXSTRIP: no errors found (input=1 output=11 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 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)
The output of above debug script can be
code:
-thursday 2003/10/16 21:00:34- kixtart 4.22 Release Candidate 1/kixstrip 4.03e script starting (kixtart.kix)
-
-curdir: c:\kix-scripts
-scriptdir: c:\kix-scripts
-scriptexe: kix32.exe (pid -891057)
-scriptname: kixtart.kix
-startdir: c:\windows
-
-userid/wuserid: administrator/administrator
-user priv: guest
-version: inwin=2/dos=4.90/productsuite=0/producttype=Windows Me/csd=
-
-Intel Pentium Celeron (memory 512 MB)
-
-debug file: c:\temp\kixdebug.txt
-debug name: 20031016_210034.650_2161 kixtart.kix
-
----- start-21:00:34-20031016_210034.650_2161 kixtart.kix - 0 The operation completed successfully.
- 1-21:00:34-20031016_210034.650_2161 kixtart.kix - 0 The operation completed successfully.
KiXtart 2001 4.22 Release Candidate 1
------- end-21:00:34-20031016_210034.650_2161 kixtart.kix - 0 The operation completed successfully.
-
-thursday 2003/10/16 21:00:34- kixtart 4.22 Release Candidate 1/kixstrip 4.03e script ending (kixtart.kix)
-
Now available by
Summary of Site
&
Home - Kix Tools
&
Home - Kix downloads
pages.
greetings.
[ 16. October 2003, 20:54: Message edited by: MCA ]
|
|
Top
|
|
|
|
Moderator: Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 229 anonymous users online.
|
|
|
