vimtutor.com

   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