$ !

$ !=====================================================================

$ !

$ ! VimTutor.com version 29-Aug-2002

$ !

$ ! Author: Tom Wyant <Thomas.R.Wyant-III@usa.dupont.com>

$ !

$ ! This DCL command procedure executes the vimtutor command

$ ! (surprise, surprise!) 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 tutorial. 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