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 ]
_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA