Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

executable file 105 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.