7
|
1 $ !
|
|
2 $ !=====================================================================
|
|
3 $ !
|
|
4 $ ! VimTutor.com version 29-Aug-2002
|
|
5 $ !
|
|
6 $ ! Author: Tom Wyant <Thomas.R.Wyant-III@usa.dupont.com>
|
|
7 $ !
|
|
8 $ ! This DCL command procedure executes the vimtutor command
|
|
9 $ ! (suprise, suprise!) which gives you a brief tutorial on the VIM
|
|
10 $ ! editor. Languages other than the default are supported in the
|
|
11 $ ! usual way, as are at least some of the command qualifiers,
|
|
12 $ ! though you'll need to play some fairly serious games with DCL
|
|
13 $ ! to specify ones that need quoting.
|
|
14 $ !
|
|
15 $ ! Copyright (c) 2002 E. I. DuPont de Nemours and Company, Inc
|
|
16 $ !
|
|
17 $ ! This program is free software; you can redistribute it and/or
|
|
18 $ ! modify it under the terms of the VIM license as available from
|
|
19 $ ! the vim 6.1 ":help license" command or (at your option) the
|
|
20 $ ! license from any later version of vim.
|
|
21 $ !
|
|
22 $ ! This program is distributed in the hope that it will be useful,
|
|
23 $ ! but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
24 $ ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
25 $ !
|
|
26 $ !=====================================================================
|
|
27 $ !
|
|
28 $ !
|
|
29 $ ! Check for the existence of VIM, and die if it isn't there.
|
|
30 $ !
|
|
31 $ if f$search ("vim:vim.exe") .eqs. ""
|
|
32 $ then
|
|
33 $ write sys$error "Error - Can't run tutoral. VIM not found."
|
|
34 $ exit
|
|
35 $ endif
|
|
36 $ !
|
|
37 $ !
|
|
38 $ ! Pick up the argument, if any.
|
|
39 $ !
|
|
40 $ inx = 0
|
|
41 $ arg_loop:
|
|
42 $ inx = inx + 1
|
|
43 $ if f$type (p'inx') .nes. ""
|
|
44 $ then
|
|
45 $ if p'inx' .nes. "" .and. f$locate ("-", p'inx') .ne. 0
|
|
46 $ then
|
|
47 $ xx = p'inx'
|
|
48 $ assign/nolog "''xx'" xx
|
|
49 $ p'inx' = ""
|
|
50 $ endif
|
|
51 $ goto arg_loop
|
|
52 $ endif
|
|
53 $ !
|
|
54 $ !
|
|
55 $ ! Make sure we clean up our toys when we're through playing.
|
|
56 $ !
|
|
57 $ on error then goto exit
|
|
58 $ !
|
|
59 $ !
|
|
60 $ ! Create the VIM foreign command if needed
|
|
61 $ !
|
|
62 $ if f$type (vim) .eqs. "" then vim := $vim:vim
|
|
63 $ !
|
|
64 $ !
|
|
65 $ ! Build the name for our temp file.
|
|
66 $ !
|
|
67 $ tutfil = "sys$login:vimtutor_" + -
|
|
68 f$edit (f$getjpi (0, "pid"), "trim") + "."
|
|
69 $ assign/nolog 'tutfil' TUTORCOPY
|
|
70 $ !
|
|
71 $ !
|
|
72 $ ! Copy the selected file to the temp file
|
|
73 $ !
|
|
74 $ assign/nolog/user nla0: sys$error
|
|
75 $ assign/nolog/user nla0: sys$output
|
|
76 $ vim -u "NONE" -c "so $VIMRUNTIME/tutor/tutor.vim"
|
|
77 $ !
|
|
78 $ !
|
|
79 $ ! Run the tutorial
|
|
80 $ !
|
|
81 $ assign/nolog/user sys$command sys$input
|
|
82 $ vim -u "NONE" -c "set nocp" 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' 'tutfil'
|
|
83 $ !
|
|
84 $ !
|
|
85 $ ! Ditch the copy.
|
|
86 $ !
|
|
87 $ exit:
|
|
88 $ if f$type (tutfil) .nes. "" .and. f$search (tutfil) .nes. "" then -
|
|
89 $ delete 'tutfil';*
|
|
90 $ if f$type (xx) .nes. "" then deassign xx
|
|
91 $ deassign TUTORCOPY
|
|
92 $ exit
|
|
93 $ !
|
|
94 $ !=====================================================================
|
|
95 $ !
|
|
96 $ ! Modification history
|
|
97 $ !
|
|
98 $ ! 29-Aug-2002 T. R. Wyant
|
|
99 $ ! Changed license to vim.
|
|
100 $ ! Fix error "input is not from a terminal"
|
|
101 $ ! Juggle documentation (copyright and contact to front,
|
|
102 $ ! modification history to end).
|
|
103 $ ! 25-Jul-2002 T. R. Wyant
|
|
104 $ ! Initial version
|