Dear,
Kent for the implementation of long filenames is more necessary.
the real problem is that double-space will translate to single-space in
command interpretation.
It is not a limitation of the code, but the way DOS interpretates double-
spaces in his commandline.
Of course it doesn't mean we have some ideas how to do it.
Lonkero your example bypasses the debugging facility. A solution
is that first you reformat your script and secondly you add debugging
code to it.
input
code:
; - start -
$time=@ticks+5000 DO SLEEP 0.2 $=execute($form.doevents(1)) $=execute($history.doevents(1)) UNTIL @error OR ($time < @ticks) $form.top = $toph
; - end -
first run: kixstrip input.kix output.kix /block_check /show_structure
code:
; - start -
$time=@ticks+5000
DO
SLEEP 0.2 $=execute($form.doevents(1)) $=execute($history.doevents(1))
UNTIL @error OR ($time < @ticks) $form.top = $toph
; - end -
;($begin)
;
; fri 05-jul-2002 04:20:17 (kix 4.10 vs 3.04e)
;
;Informative KIXSTRIP: no errors found (input=3 output=3 skip=0).
;
;Summary KIXSTRIP: block structures
; - do:until [1:1]
; - 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: 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
;Informative KIXSTRIP: 2 EXECUTE
;Informative KIXSTRIP: 1 SLEEP
;
;($end)
second run: kixstrip output.kix debug.kix /debug /show_structure
code:
CLS
COLOR C+/N
AT (1,1) " "
IF RedirectOutput("")
ENDIF
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.04e 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
? "-"
?"- start-"+@time+"- @error @serror "?
?"- 1-"+@time+"- @error @serror "? ; - start -
?"- 2-"+@time+"- @error @serror "? $time=@ticks+5000
?"- 3-"+@time+"- @error @serror "? DO
?"- 4-"+@time+"- @error @serror "? SLEEP 0.2 $=execute($form.doevents(1)) $=execute($history.doevents(1))
?"- 5-"+@time+"- @error @serror "? UNTIL @error OR ($time < @ticks) $form.top = $toph
?"- 6-"+@time+"- @error @serror "? ; - end -
?"- end-"+@time+"- @error @serror "?
? "-"
? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.04e script ending."
? "-"
IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
? "-"+@cpu+" ("+@mhz+" Mhz, memory "+MemorySize()+" MB)"
ENDIF
? "-"
;($begin)
;
; fri 05-jul-2002 04:20:33 (kix 4.10 vs 3.04e)
;
;Informative KIXSTRIP: no errors found (input=28 output=7 skip=21).
;
;Summary KIXSTRIP: block structures
; - do:until [1:1]
; - 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: 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
;Informative KIXSTRIP: 2 EXECUTE
;Informative KIXSTRIP: 1 SLEEP
;
;($end)
greetings.
btw: it is a good point for our documentation.
