- on *:load: { mkdir $mircdircmd }
-
- menu * {
- $iif( $active === @cmd, close,MS-DOS) : action $active
- }
-
- alias -l action window $iif( ($1 === @cmd), -c, -dek0) @cmd
-
- alias -l xr {
-
- var %s = $iif(($1), $1,$r(10,15))
- while (%s) var %r = $+(%r,$r(a,z)) ,%s = %s - 1
-
- return %r
- }
-
- alias -l report { var %report.file = $+($mircdircmd\,$1, .tmp)
-
- if ($hget(report, $1) < $lines(%report.file)) {
-
- if ($hget(zreport, $1)) hdel zreport $1
-
- var %report.read = $replace($read(%report.file, $hget(report, $1)), $chr(130),é,$chr(255), $chr(32), $chr(138),è, $chr(156), oe)
- hinc -m report $1
-
- echo @cmd $iif( (%report.read),%report.read,-)
- }
-
- else {
-
- if ($hget(zreport, $1-) > 5000) {
-
- hdel zreport $1-
- hdel report $1-
- return
- }
-
- hinc -m zreport $1-
- }
-
- .timer_report $+ $1 1 0 report $1
- }
-
- on *:input:@cmd: {
- $iif( ($left($1,1) == /), return, echo 9 -at 3*14 Traitement de la commande $qt($1-))
-
- var %output = $xr
- hinc -m report %output | report %output
-
- run -n cmd.exe /C $1- > $qt($+($mircdircmd\,%output, .tmp))
- }
on *:load: { mkdir $mircdircmd }
menu * {
$iif( $active === @cmd, close,MS-DOS) : action $active
}
alias -l action window $iif( ($1 === @cmd), -c, -dek0) @cmd
alias -l xr {
var %s = $iif(($1), $1,$r(10,15))
while (%s) var %r = $+(%r,$r(a,z)) ,%s = %s - 1
return %r
}
alias -l report { var %report.file = $+($mircdircmd\,$1, .tmp)
if ($hget(report, $1) < $lines(%report.file)) {
if ($hget(zreport, $1)) hdel zreport $1
var %report.read = $replace($read(%report.file, $hget(report, $1)), $chr(130),é,$chr(255), $chr(32), $chr(138),è, $chr(156), oe)
hinc -m report $1
echo @cmd $iif( (%report.read),%report.read,-)
}
else {
if ($hget(zreport, $1-) > 5000) {
hdel zreport $1-
hdel report $1-
return
}
hinc -m zreport $1-
}
.timer_report $+ $1 1 0 report $1
}
on *:input:@cmd: {
$iif( ($left($1,1) == /), return, echo 9 -at 3*14 Traitement de la commande $qt($1-))
var %output = $xr
hinc -m report %output | report %output
run -n cmd.exe /C $1- > $qt($+($mircdircmd\,%output, .tmp))
}