#24293 - 2002-07-03 04:57 PM
Re: kixstrip410.exe (file not found)
|
MartinD
Fresh Scripter
Registered: 2002-05-07
Posts: 9
Loc: Germany
|
so far sa I know, the filename MUST be in 8.3-format ... !
Martin
|
|
Top
|
|
|
|
#24295 - 2002-07-03 05:12 PM
Re: kixstrip410.exe (file not found)
|
MartinD
Fresh Scripter
Registered: 2002-05-07
Posts: 9
Loc: Germany
|
and so I wrote a little batch (kixstrip.bat) , to make it easier ...
maybe some will use it as well
if "%1%"=="" Goto Fehler
:Aktion
set Ein=%1%
copy %Ein% temp_ein.kix /Y /N 2>nul
copy %Ein% %Ein%.bak /Y /N 2>nul
c:\nt-tools\kix\tools\kixstrip.exe temp_ein.kix temp_aus.kix /Block_Check
copy temp_aus.kix %Ein% /Y /N 2>nul
del temp_ein.kix /F /Q
del temp_aus.kix /F /Q
Goto EOF
:Fehler
echo.
echo Aufruf: kixstrip c:\nt-tools\kix\scripts\remapprinter.kix
echo.
:EOF
Martin
|
|
Top
|
|
|
|
#24297 - 2002-07-03 05:19 PM
Re: kixstrip410.exe (file not found)
|
MartinD
Fresh Scripter
Registered: 2002-05-07
Posts: 9
Loc: Germany
|
that's true, and my english isn't the best one ... but I had found so many hints und usefull tips here, that I'm glad, I could try my first reply.
Feel free to change all german words in the bat ... !
|
|
Top
|
|
|
|
#24299 - 2002-07-04 03:20 AM
Re: kixstrip410.exe (file not found)
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear Lonkero,
Is it the first time you are using the kixstrip tool?
Symbol  on our homepage has been linked to related http://kixtart.org topic,
which describes more of those restrictions.
Currently we are working on the latest page of our documentation
about this tool. Too many times the same question and the same "hidden"
possibilities with this tool. With one week we will release it on
our site.
greetings.
|
|
Top
|
|
|
|
|
#24300 - 2002-07-04 09:44 AM
Re: kixstrip410.exe (file not found)
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
MCA,
This tool good stuff as it formats your code. Most Developer Types would shy away from this type of thing as they would think it is like FrontPage, where it wants to format the way it thinks it needs it. This tool is not that way at all.. You put in the options you want and it gives you the results.
Back to lonkero's point.. Are you going to go beyond 8.3 support with this tool? Maybe even support Double Quotes "Longfilename" as a start? Or, is this a limitation of the code?
Thanks,
Kent
[ 04 July 2002, 09:44: Message edited by: kdyer ]
|
|
Top
|
|
|
|
|
#24302 - 2002-07-04 06:34 PM
Re: kixstrip410.exe (file not found)
|
Kdyer
KiX Supporter
Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
|
Lonkero,
I thought I asked for that in the update from MCA?
![[Big Grin]](images/icons/grin.gif)
Thanks,
Kent
|
|
Top
|
|
|
|
|
#24303 - 2002-07-05 04:25 AM
Re: kixstrip410.exe (file not found)
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
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.
|
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
1 registered
(Allen)
and 1263 anonymous users online.
|
|
|
