diff options
Diffstat (limited to 'runtime/tutor/vimtutor.com')
| -rwxr-xr-x | runtime/tutor/vimtutor.com | 104 |
1 files changed, 104 insertions, 0 deletions
diff --git a/runtime/tutor/vimtutor.com b/runtime/tutor/vimtutor.com new file mode 100755 index 000000000..0e6854be6 --- /dev/null +++ b/runtime/tutor/vimtutor.com @@ -0,0 +1,104 @@ +$ ! +$ !===================================================================== +$ ! +$ ! VimTutor.com version 29-Aug-2002 +$ ! +$ ! Author: Tom Wyant <Thomas.R.Wyant-III@usa.dupont.com> +$ ! +$ ! This DCL command procedure executes the vimtutor command +$ ! (suprise, suprise!) which gives you a brief tutorial on the VIM +$ ! editor. Languages other than the default are supported in the +$ ! usual way, as are at least some of the command qualifiers, +$ ! though you'll need to play some fairly serious games with DCL +$ ! to specify ones that need quoting. +$ ! +$ ! Copyright (c) 2002 E. I. DuPont de Nemours and Company, Inc +$ ! +$ ! This program is free software; you can redistribute it and/or +$ ! modify it under the terms of the VIM license as available from +$ ! the vim 6.1 ":help license" command or (at your option) the +$ ! license from any later version of vim. +$ ! +$ ! This program is distributed in the hope that it will be useful, +$ ! but WITHOUT ANY WARRANTY; without even the implied warranty of +$ ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. +$ ! +$ !===================================================================== +$ ! +$ ! +$ ! Check for the existence of VIM, and die if it isn't there. +$ ! +$ if f$search ("vim:vim.exe") .eqs. "" +$ then +$ write sys$error "Error - Can't run tutoral. VIM not found." +$ exit +$ endif +$ ! +$ ! +$ ! Pick up the argument, if any. +$ ! +$ inx = 0 +$ arg_loop: +$ inx = inx + 1 +$ if f$type (p'inx') .nes. "" +$ then +$ if p'inx' .nes. "" .and. f$locate ("-", p'inx') .ne. 0 +$ then +$ xx = p'inx' +$ assign/nolog "''xx'" xx +$ p'inx' = "" +$ endif +$ goto arg_loop +$ endif +$ ! +$ ! +$ ! Make sure we clean up our toys when we're through playing. +$ ! +$ on error then goto exit +$ ! +$ ! +$ ! Create the VIM foreign command if needed +$ ! +$ if f$type (vim) .eqs. "" then vim := $vim:vim +$ ! +$ ! +$ ! Build the name for our temp file. +$ ! +$ tutfil = "sys$login:vimtutor_" + - + f$edit (f$getjpi (0, "pid"), "trim") + "." +$ assign/nolog 'tutfil' TUTORCOPY +$ ! +$ ! +$ ! Copy the selected file to the temp file +$ ! +$ assign/nolog/user nla0: sys$error +$ assign/nolog/user nla0: sys$output +$ vim -u "NONE" -c "so $VIMRUNTIME/tutor/tutor.vim" +$ ! +$ ! +$ ! Run the tutorial +$ ! +$ assign/nolog/user sys$command sys$input +$ vim -u "NONE" -c "set nocp" 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' 'tutfil' +$ ! +$ ! +$ ! Ditch the copy. +$ ! +$ exit: +$ if f$type (tutfil) .nes. "" .and. f$search (tutfil) .nes. "" then - +$ delete 'tutfil';* +$ if f$type (xx) .nes. "" then deassign xx +$ deassign TUTORCOPY +$ exit +$ ! +$ !===================================================================== +$ ! +$ ! Modification history +$ ! +$ ! 29-Aug-2002 T. R. Wyant +$ ! Changed license to vim. +$ ! Fix error "input is not from a terminal" +$ ! Juggle documentation (copyright and contact to front, +$ ! modification history to end). +$ ! 25-Jul-2002 T. R. Wyant +$ ! Initial version |