123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105 |
- $
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- you can redistribute it and/or
- $
-
-
-
-
- without even the implied warranty of
- $
-
-
-
-
-
-
- if f$search ("vim:vim.exe") .eqs. ""
- $ then
- $ write sys$error "Error - Can't run tutorial. VIM not found."
- $ exit
- $ endif
- $
-
-
-
- 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
- $
-
-
-
- on error then goto exit
- $
-
-
-
- if f$type (vim) .eqs. "" then vim := $vim:vim
- $
-
-
-
- tutfil = "sys$login:vimtutor_" + -
- f$edit (f$getjpi (0, "pid"), "trim") + "."
- $ assign/nolog 'tutfil' TUTORCOPY
- $
-
-
-
- assign/nolog/user nla0: sys$error
- $ assign/nolog/user nla0: sys$output
- $ vim -u "NONE" -c "so $VIMRUNTIME/tutor/tutor.vim"
- $
-
-
-
- assign/nolog/user sys$command sys$input
- $ vim -u "NONE" -c "set nocp" 'p1' 'p2' 'p3' 'p4' 'p5' 'p6' 'p7' 'p8' 'tutfil'
- $
-
-
-
- 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
- $
-
-
-
-
-
-
-
-
-
-
-
|