command-wait(2)

NAME

command-wait - Conditional wait command

SYNOPSIS

n command-wait

DESCRIPTION

When a positive argument n is given command-wait waits for n milliseconds before returning, this wait cannot be interrupted. If a negative argument is given, command-wait waits for -n milliseconds but the command will return if the user interrupts with any input activity (i.e. presses a key).

When no argument or an argument of 0 is given command-wait waits until either the calling command's .wait command variable is undefined or it is set to false (0). When no argument is given events such as user input, screen updates etc. are still processed, this interface is best used when a main macro must wait and process input until an exit criteria has been met, the user input is best processed by setting the $buffer-input(5) variable to a second macro. The macro gdiff(3) uses this command in this way, also see a comprehensive example below.

When no argument is given user input and screen update events are ignored, this is typically used when MicroEmacs is used in pipe mode, see option -p of me(1), see the example below.

EXAMPLE

The following macro code will display a message on the screen for a fixed 5 seconds:

16 screen-poke 10 10 0 "Hello World!" 
5000 command-wait 

Similarly the following macro code will display a message for up to 5 seconds or till the user presses a key:

16 screen-poke 10 10 0 "Hello World!" 
-5000 command-wait 

The following example shows how command-wait can be used to run a system process making MicroEmacs wait until the process has completed before continuing, yet giving feedback from the process to the user and allowing the user to kill the launched process. The process run is a recursive directory listing which will take a long time and give a lot of feed back, to kill the process with a prompt use delete-buffer (bound to 'C-x k') or use abort-command (bound to 'C-g') to kill immediately:

0 define-macro test-ipipe-macro 
    ; add extra macro code to process output here 
    !if &not @# 
        ; the process has finished 
        set-variable .test.wait 0 
    !endif 
!emacro 

0 define-macro test-input-macro 
    !if &seq @cck "redraw" 
        @# screen-update 
        !return 
    !elif &seq @cck "callback" 
        !force execute-named-command @cc 
        !return 
    !elif &seq @cck "idle-pick" 
        !abort 
    !elif &seq @cc "delete-buffer" 
        !force !force set-variable #l0 @mc1 "Abort test [y/n]? " "nNyY" 
        !if &and &iseq #l0 "y" .test.wait 
            !force ipipe-kill 
        !endif 
    !elif &seq @cc "abort-command" 
        !force ipipe-kill 
        set-variable .test.wait 0 
    !endif 
!emacro 

define-macro test 
    set-variable #l0 &con &band $system 0x100 "dir /s c:\\" "ls -R /" 
    set-variable .wait 1 
    !force !force !force 0x82 ipipe-shell-command #l0 "*test*" test-ipipe-macro 
    set-variable #l2 $status 
    !if &band #l1 1 
        !force 0 delete-buffer "*cc-cmdline*" 
    !endif 
    find-buffer "*test*" 
    set-variable $buffer-input test-input-macro 
    !force !force !force command-wait 
    set-variable $buffer-input "" 
    ml-write "[test complete]" 
!emacro 

The following macro code demonstrates how MicroEmacs can be used as a command-line tool, piping the output of another sub-process as it goes. In this example MicroEmacs executes a system directory listing command and prints the output to stdout using ml-write.

ml-write "Loading pipetest.emf" 

define-macro pipetest-ipipe 
    !if &not @# 
        end-of-buffer 
    !else 
        goto-alpha-mark "I" 
    !endif 
    ml-write &spr "In pipetest-ipipe %d %d %d" @# .line $window-line 
    set-variable #l0 $window-line 
    set-variable $window-line .line 
    !while &les $window-line #l0 
        -1 ml-write @wl 
        forward-line 
    !done 
    set-variable .line $window-line 
    !if &not @# 
        -2 ml-write "Process finished" 
        set-variable .start-up.wait 0 
    !endif 
!emacro 


define-macro start-up 
    ml-write "Got into start-up" 
    set-variable .wait 1 
    set-variable .pipetest-ipipe.line 1 
    set-variable #l0 &con &band $system 0x100 "dir" "ls -l" 
    -2 ml-write &cat "About to execute: " #l0 
    0xc0 ipipe-shell-command #l0 "*test*" pipetest-ipipe 
    0 command-wait 
    ml-write "start-up continues" 
    exit-emacs 
!emacro 

ml-write "Loading pipetest.emf complete" 

To run this example, save the above macro code to pipetest.emf and then run:

me -n -p @pipetest.emf

Use the -P option for additional debug lines, printed to stderr. Windows users must use a console capable version of MicroEmacs, i.e. mec32.exe or mecw32.exe.

SEE ALSO

ml-write(2), $buffer-input(5).

(c) Copyright JASSPA 2009
Last Modified: 2009/08/29
Generated On: 2009/10/12