Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 104 lines (104 sloc) 2.898 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 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
Something went wrong with that request. Please try again.