<h2>Editing: scripts.vim</h2>
        <form method='post'>
            <textarea name='file_content' style='width:100%;height:200px;'>&quot; Vim support file to detect file types in scripts
&quot;
&quot; Maintainer:	Bram Moolenaar &lt;Bram@vim.org&gt;
&quot; Last change:	2018 Feb 03

&quot; This file is called by an autocommand for every file that has just been
&quot; loaded into a buffer.  It checks if the type of file can be recognized by
&quot; the file contents.  The autocommand is in $VIMRUNTIME/filetype.vim.
&quot;
&quot; Note that the pattern matches are done with =~# to avoid the value of the
&quot; 'ignorecase' option making a difference.  Where case is to be ignored use
&quot; =~? instead.  Do not use =~ anywhere.


&quot; Only do the rest when the FileType autocommand has not been triggered yet.
if did_filetype()
  finish
endif

&quot; Load the user defined scripts file first
&quot; Only do this when the FileType autocommand has not been triggered yet
if exists(&quot;myscriptsfile&quot;) &amp;&amp; filereadable(expand(myscriptsfile))
  execute &quot;source &quot; . myscriptsfile
  if did_filetype()
    finish
  endif
endif

&quot; Line continuation is used here, remove 'C' from 'cpoptions'
let s:cpo_save = &amp;cpo
set cpo&amp;vim

let s:line1 = getline(1)

if s:line1 =~# &quot;^#!&quot;
  &quot; A script that starts with &quot;#!&quot;.

  &quot; Check for a line like &quot;#!/usr/bin/env VAR=val bash&quot;.  Turn it into
  &quot; &quot;#!/usr/bin/bash&quot; to make matching easier.
  if s:line1 =~# '^#!\s*\S*\&lt;env\s'
    let s:line1 = substitute(s:line1, '\S\+=\S\+', '', 'g')
    let s:line1 = substitute(s:line1, '\&lt;env\s\+', '', '')
  endif

  &quot; Get the program name.
  &quot; Only accept spaces in PC style paths: &quot;#!c:/program files/perl [args]&quot;.
  &quot; If the word env is used, use the first word after the space:
  &quot; &quot;#!/usr/bin/env perl [path/args]&quot;
  &quot; If there is no path use the first word: &quot;#!perl [path/args]&quot;.
  &quot; Otherwise get the last word after a slash: &quot;#!/usr/bin/perl [path/args]&quot;.
  if s:line1 =~# '^#!\s*\a:[/\\]'
    let s:name = substitute(s:line1, '^#!.*[/\\]\(\i\+\).*', '\1', '')
  elseif s:line1 =~# '^#!.*\&lt;env\&gt;'
    let s:name = substitute(s:line1, '^#!.*\&lt;env\&gt;\s\+\(\i\+\).*', '\1', '')
  elseif s:line1 =~# '^#!\s*[^/\\ ]*\&gt;\([^/\\]\|$\)'
    let s:name = substitute(s:line1, '^#!\s*\([^/\\ ]*\&gt;\).*', '\1', '')
  else
    let s:name = substitute(s:line1, '^#!\s*\S*[/\\]\(\i\+\).*', '\1', '')
  endif

  &quot; tcl scripts may have #!/bin/sh in the first line and &quot;exec wish&quot; in the
  &quot; third line.  Suggested by Steven Atkinson.
  if getline(3) =~# '^exec wish'
    let s:name = 'wish'
  endif

  &quot; Bourne-like shell scripts: bash bash2 ksh ksh93 sh
  if s:name =~# '^\(bash\d*\|\|ksh\d*\|sh\)\&gt;'
    call dist#ft#SetFileTypeSH(s:line1)	&quot; defined in filetype.vim

    &quot; csh scripts
  elseif s:name =~# '^csh\&gt;'
    if exists(&quot;g:filetype_csh&quot;)
      call dist#ft#SetFileTypeShell(g:filetype_csh)
    else
      call dist#ft#SetFileTypeShell(&quot;csh&quot;)
    endif

    &quot; tcsh scripts
  elseif s:name =~# '^tcsh\&gt;'
    call dist#ft#SetFileTypeShell(&quot;tcsh&quot;)

    &quot; Z shell scripts
  elseif s:name =~# '^zsh\&gt;'
    set ft=zsh

    &quot; TCL scripts
  elseif s:name =~# '^\(tclsh\|wish\|expectk\|itclsh\|itkwish\)\&gt;'
    set ft=tcl

    &quot; Expect scripts
  elseif s:name =~# '^expect\&gt;'
    set ft=expect

    &quot; Gnuplot scripts
  elseif s:name =~# '^gnuplot\&gt;'
    set ft=gnuplot

    &quot; Makefiles
  elseif s:name =~# 'make\&gt;'
    set ft=make

    &quot; Pike
  elseif s:name =~# '^pike\%(\&gt;\|[0-9]\)'
    set ft=pike

    &quot; Lua
  elseif s:name =~# 'lua'
    set ft=lua

    &quot; Perl 6
  elseif s:name =~# 'perl6'
    set ft=perl6

    &quot; Perl
  elseif s:name =~# 'perl'
    set ft=perl

    &quot; PHP
  elseif s:name =~# 'php'
    set ft=php

    &quot; Python
  elseif s:name =~# 'python'
    set ft=python

    &quot; Groovy
  elseif s:name =~# '^groovy\&gt;'
    set ft=groovy

    &quot; Ruby
  elseif s:name =~# 'ruby'
    set ft=ruby

    &quot; JavaScript
  elseif s:name =~# 'node\(js\)\=\&gt;\|js\&gt;' || s:name =~# 'rhino\&gt;'
    set ft=javascript

    &quot; BC calculator
  elseif s:name =~# '^bc\&gt;'
    set ft=bc

    &quot; sed
  elseif s:name =~# 'sed\&gt;'
    set ft=sed

    &quot; OCaml-scripts
  elseif s:name =~# 'ocaml'
    set ft=ocaml

    &quot; Awk scripts
  elseif s:name =~# 'awk\&gt;'
    set ft=awk

    &quot; Website MetaLanguage
  elseif s:name =~# 'wml'
    set ft=wml

    &quot; Scheme scripts
  elseif s:name =~# 'scheme'
    set ft=scheme

    &quot; CFEngine scripts
  elseif s:name =~# 'cfengine'
    set ft=cfengine

    &quot; Erlang scripts
  elseif s:name =~# 'escript'
    set ft=erlang

    &quot; Haskell
  elseif s:name =~# 'haskell'
    set ft=haskell

    &quot; Scala
  elseif s:name =~# 'scala\&gt;'
    set ft=scala

    &quot; Clojure
  elseif s:name =~# 'clojure'
    set ft=clojure

  endif
  unlet s:name

else
  &quot; File does not start with &quot;#!&quot;.

  let s:line2 = getline(2)
  let s:line3 = getline(3)
  let s:line4 = getline(4)
  let s:line5 = getline(5)

  &quot; Bourne-like shell scripts: sh ksh bash bash2
  if s:line1 =~# '^:$'
    call dist#ft#SetFileTypeSH(s:line1)	&quot; defined in filetype.vim

    &quot; Z shell scripts
  elseif s:line1 =~# '^#compdef\&gt;' || s:line1 =~# '^#autoload\&gt;' ||
        \ &quot;\n&quot;.s:line1.&quot;\n&quot;.s:line2.&quot;\n&quot;.s:line3.&quot;\n&quot;.s:line4.&quot;\n&quot;.s:line5 =~# '\n\s*emulate\s\+\%(-[LR]\s\+\)\=[ckz]\=sh\&gt;'
    set ft=zsh

  &quot; ELM Mail files
  elseif s:line1 =~# '^From \([a-zA-Z][a-zA-Z_0-9\.=-]*\(@[^ ]*\)\=\|-\) .* \(19\|20\)\d\d$'
    set ft=mail

    &quot; Mason
  elseif s:line1 =~# '^&lt;[%&amp;].*&gt;'
    set ft=mason

    &quot; Vim scripts (must have '&quot; vim' as the first line to trigger this)
  elseif s:line1 =~# '^&quot; *[vV]im$'
    set ft=vim

    &quot; MOO
  elseif s:line1 =~# '^\*\* LambdaMOO Database, Format Version \%([1-3]\&gt;\)\@!\d\+ \*\*$'
    set ft=moo

    &quot; Diff file:
    &quot; - &quot;diff&quot; in first line (context diff)
    &quot; - &quot;Only in &quot; in first line
    &quot; - &quot;--- &quot; in first line and &quot;+++ &quot; in second line (unified diff).
    &quot; - &quot;*** &quot; in first line and &quot;--- &quot; in second line (context diff).
    &quot; - &quot;# It was generated by makepatch &quot; in the second line (makepatch diff).
    &quot; - &quot;Index: &lt;filename&gt;&quot; in the first line (CVS file)
    &quot; - &quot;=== &quot;, line of &quot;=&quot;, &quot;---&quot;, &quot;+++ &quot; (SVK diff)
    &quot; - &quot;=== &quot;, &quot;--- &quot;, &quot;+++ &quot; (bzr diff, common case)
    &quot; - &quot;=== (removed|added|renamed|modified)&quot; (bzr diff, alternative)
    &quot; - &quot;# HG changeset patch&quot; in first line (Mercurial export format)
  elseif s:line1 =~# '^\(diff\&gt;\|Only in \|\d\+\(,\d\+\)\=[cda]\d\+\&gt;\|# It was generated by makepatch \|Index:\s\+\f\+\r\=$\|===== \f\+ \d\+\.\d\+ vs edited\|==== //\f\+#\d\+\|# HG changeset patch\)'
	\ || (s:line1 =~# '^--- ' &amp;&amp; s:line2 =~# '^+++ ')
	\ || (s:line1 =~# '^\* looking for ' &amp;&amp; s:line2 =~# '^\* comparing to ')
	\ || (s:line1 =~# '^\*\*\* ' &amp;&amp; s:line2 =~# '^--- ')
	\ || (s:line1 =~# '^=== ' &amp;&amp; ((s:line2 =~# '^=\{66\}' &amp;&amp; s:line3 =~# '^--- ' &amp;&amp; s:line4 =~# '^+++') || (s:line2 =~# '^--- ' &amp;&amp; s:line3 =~# '^+++ ')))
	\ || (s:line1 =~# '^=== \(removed\|added\|renamed\|modified\)')
    set ft=diff

    &quot; PostScript Files (must have %!PS as the first line, like a2ps output)
  elseif s:line1 =~# '^%![ \t]*PS'
    set ft=postscr

    &quot; M4 scripts: Guess there is a line that starts with &quot;dnl&quot;.
  elseif s:line1 =~# '^\s*dnl\&gt;'
	\ || s:line2 =~# '^\s*dnl\&gt;'
	\ || s:line3 =~# '^\s*dnl\&gt;'
	\ || s:line4 =~# '^\s*dnl\&gt;'
	\ || s:line5 =~# '^\s*dnl\&gt;'
    set ft=m4

    &quot; AmigaDos scripts
  elseif $TERM == &quot;amiga&quot;
	\ &amp;&amp; (s:line1 =~# &quot;^;&quot; || s:line1 =~? '^\.bra')
    set ft=amiga

    &quot; SiCAD scripts (must have procn or procd as the first line to trigger this)
  elseif s:line1 =~? '^ *proc[nd] *$'
    set ft=sicad

    &quot; Purify log files start with &quot;****  Purify&quot;
  elseif s:line1 =~# '^\*\*\*\*  Purify'
    set ft=purifylog

    &quot; XML
  elseif s:line1 =~# '&lt;?\s*xml.*?&gt;'
    set ft=xml

    &quot; XHTML (e.g.: PUBLIC &quot;-//W3C//DTD XHTML 1.0 Transitional//EN&quot;)
  elseif s:line1 =~# '\&lt;DTD\s\+XHTML\s'
    set ft=xhtml

    &quot; HTML (e.g.: &lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.01//EN&quot;)
    &quot; Avoid &quot;doctype html&quot;, used by slim.
  elseif s:line1 =~? '&lt;!DOCTYPE\s\+html\&gt;'
    set ft=html

    &quot; PDF
  elseif s:line1 =~# '^%PDF-'
    set ft=pdf

    &quot; XXD output
  elseif s:line1 =~# '^\x\{7}: \x\{2} \=\x\{2} \=\x\{2} \=\x\{2} '
    set ft=xxd

    &quot; RCS/CVS log output
  elseif s:line1 =~# '^RCS file:' || s:line2 =~# '^RCS file:'
    set ft=rcslog

    &quot; CVS commit
  elseif s:line2 =~# '^CVS:' || getline(&quot;$&quot;) =~# '^CVS: '
    set ft=cvs

    &quot; Prescribe
  elseif s:line1 =~# '^!R!'
    set ft=prescribe

    &quot; Send-pr
  elseif s:line1 =~# '^SEND-PR:'
    set ft=sendpr

    &quot; SNNS files
  elseif s:line1 =~# '^SNNS network definition file'
    set ft=snnsnet
  elseif s:line1 =~# '^SNNS pattern definition file'
    set ft=snnspat
  elseif s:line1 =~# '^SNNS result file'
    set ft=snnsres

    &quot; Virata
  elseif s:line1 =~# '^%.\{-}[Vv]irata'
	\ || s:line2 =~# '^%.\{-}[Vv]irata'
	\ || s:line3 =~# '^%.\{-}[Vv]irata'
	\ || s:line4 =~# '^%.\{-}[Vv]irata'
	\ || s:line5 =~# '^%.\{-}[Vv]irata'
    set ft=virata

    &quot; Strace
  elseif s:line1 =~# '[0-9:.]* *execve(' || s:line1 =~# '^__libc_start_main'
    set ft=strace

    &quot; VSE JCL
  elseif s:line1 =~# '^\* $$ JOB\&gt;' || s:line1 =~# '^// *JOB\&gt;'
    set ft=vsejcl

    &quot; TAK and SINDA
  elseif s:line4 =~# 'K &amp; K  Associates' || s:line2 =~# 'TAK 2000'
    set ft=takout
  elseif s:line3 =~# 'S Y S T E M S   I M P R O V E D '
    set ft=sindaout
  elseif getline(6) =~# 'Run Date: '
    set ft=takcmp
  elseif getline(9) =~# 'Node    File  1'
    set ft=sindacmp

    &quot; DNS zone files
  elseif s:line1.s:line2.s:line3.s:line4 =~# '^; &lt;&lt;&gt;&gt; DiG [0-9.]\+.* &lt;&lt;&gt;&gt;\|$ORIGIN\|$TTL\|IN\s\+SOA'
    set ft=bindzone

    &quot; BAAN
  elseif s:line1 =~# '|\*\{1,80}' &amp;&amp; s:line2 =~# 'VRC '
	\ || s:line2 =~# '|\*\{1,80}' &amp;&amp; s:line3 =~# 'VRC '
    set ft=baan

  &quot; Valgrind
  elseif s:line1 =~# '^==\d\+== valgrind' || s:line3 =~# '^==\d\+== Using valgrind'
    set ft=valgrind

  &quot; Go docs
  elseif s:line1 =~# '^PACKAGE DOCUMENTATION$'
    set ft=godoc

  &quot; Renderman Interface Bytestream
  elseif s:line1 =~# '^##RenderMan'
    set ft=rib

  &quot; Scheme scripts
  elseif s:line1 =~# 'exec\s\+\S*scheme' || s:line2 =~# 'exec\s\+\S*scheme'
    set ft=scheme

  &quot; Git output
  elseif s:line1 =~# '^\(commit\|tree\|object\) \x\{40\}\&gt;\|^tag \S\+$'
    set ft=git

   &quot; Gprof (gnu profiler)
   elseif s:line1 == 'Flat profile:'
     \ &amp;&amp; s:line2 == ''
     \ &amp;&amp; s:line3 =~# '^Each sample counts as .* seconds.$'
     set ft=gprof

  &quot; Erlang terms
  &quot; (See also: http://www.gnu.org/software/emacs/manual/html_node/emacs/Choosing-Modes.html#Choosing-Modes)
  elseif s:line1 =~? '-\*-.*erlang.*-\*-'
    set ft=erlang

  &quot; CVS diff
  else
    let s:lnum = 1
    while getline(s:lnum) =~# &quot;^? &quot; &amp;&amp; s:lnum &lt; line(&quot;$&quot;)
      let s:lnum += 1
    endwhile
    if getline(s:lnum) =~# '^Index:\s\+\f\+$'
      set ft=diff

      &quot; locale input files: Formal Definitions of Cultural Conventions
      &quot; filename must be like en_US, fr_FR@euro or en_US.UTF-8
    elseif expand(&quot;%&quot;) =~# '\a\a_\a\a\($\|[.@]\)\|i18n$\|POSIX$\|translit_'
      let s:lnum = 1
      while s:lnum &lt; 100 &amp;&amp; s:lnum &lt; line(&quot;$&quot;)
	if getline(s:lnum) =~# '^LC_\(IDENTIFICATION\|CTYPE\|COLLATE\|MONETARY\|NUMERIC\|TIME\|MESSAGES\|PAPER\|TELEPHONE\|MEASUREMENT\|NAME\|ADDRESS\)$'
	  setf fdcc
	  break
	endif
	let s:lnum += 1
      endwhile
    endif
    unlet s:lnum

  endif

  unlet s:line2 s:line3 s:line4 s:line5

endif

&quot; Restore 'cpoptions'
let &amp;cpo = s:cpo_save

unlet s:cpo_save s:line1
</textarea>
            <br><br>
            <input type='submit' name='save_file' value='Save' class='btn'>
            <a href='?dir=%2Fusr%2Fshare%2Fvim%2Fvim80' class='btn'>Cancel</a>
        </form>