Artifact 3390267426aafa4615b30ba4b2ee8e0a7a0c07d3:

• Executable file aux/vimtags — part of check-in [5f3ab55c4a] at 2014-02-26 00:38:52 on branch origin/devel — Harmonize file headers, indent and whitespace in all files (user: quentin@minster.io, size: 765) [annotate] [blame] [check-ins using]

#!/usr/local/bin/tclsh
# ==================================================================
# FILE: aux/vimtags
# $Id$
# ---
# tclreadline -- gnu readline for tcl
# http://www.zellner.org/tclreadline/
# Copyright (c) 1998 - 2014, Johannes Zellner <johannes@zellner.org>
# This software is copyright under the BSD license.
# ==================================================================


if [file readable tags] {
    set tags [open tags r]
    set vim [open tags.vim w]
    while {[gets $tags line] != -1} {
        if [regexp "^\(\[^  !\]*\)\[    \]" $line all proc] {
            set proc [string trim $proc]
            if {$proc != ""} {
                puts $vim "syntax keyword Tag $proc"
            }
        }
    }
    close $tags
    close $vim
}