Merge branch 'vim' into feat/emb-common-lisp
[vim_extended.git] / vimtutor.com
blob0e6854be6a4a0c6f3a6da20ea99a74f2bef71057
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