Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more

CORNELIUS / Vimana-2.24 / lib / Vimana / Util.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
—
89
90
91
92
93
94
95
96
97
98
99

              
package Vimana::Util;
use warnings;
use strict;
use parent qw(Exporter::Lite);
use File::Type;
our @EXPORT = qw(canonical_script_name find_vim get_vim_rtp);
our @EXPORT_OK = qw(findbin find_vim runtime_path);
sub canonical_script_name {
    my $name = shift;
    $name = lc $name;
    $name =~ s/\s+/-/g;
    $name =~ s/-?\(.*\)$//;
    $name =~ s{[!]}{}g;
    $name =~ tr/_<>[],{/-/;
    $name =~ s/-+/-/g;
    $name;
}
sub get_mine_type {
    my $type = File::Type->new->checktype_filename( $_[ 0 ] );
    die "can not found file type from @{[ $_[0] ]}" unless $type;
    return $type;
}
sub findbin {
    my $which = shift;
    my $path = $ENV{PATH};
    if ($^O eq 'MSWin32') {
        my @exts = split /;/,$ENV{PATHEXT};
        my @paths = split /;/,$path;
        for my $p ( @paths ) {
            for my $e ( @exts ) {
                my $bin = $p . '/' . $which . $e;
                return $bin if( -x $bin ) ;
            }
        }
    } else {
        my @paths = split /:/,$path;
        for ( @paths ) {
            my $bin = $_ . '/' . $which;
            return $bin if( -x $bin ) ;
        }
    }
}
sub find_vim {
    return $ENV{VIMPATH} || findbin('vim');
}
sub get_vim_rtp {
    my $file = 'rtp.tmp';
    # XXX: check vim binary
    if ($^O eq 'MSWin32') {
        system(qq{vim -c "redir > $file" -c "echo &rtp" -c "silent! q" 2> NUL });
    } else {
        system(qq{vim -c "redir > $file" -c "echo &rtp" -c "q" });
        }
    open FILE, "<" , $file;
    local $/;
    my $content = <FILE>;
    close FILE;
    $content =~ s{[\n\r]}{}g;
    $content =~ s/^ *(.*?) *$/$1/;
    unlink $file;
    return split /,/,$content;
}
sub runtime_path {
    return $ENV{VIMANA_RUNTIME_PATH} ||
        do {
            my @rtps = get_vim_rtp();
            $rtps[0]
        };
}
use File::Spec;
use File::Path qw'mkpath rmtree';
sub init_vim_runtime {
    my $runtime_path = shift || runtime_path();
    map { File::Path::mkpath([ File::Spec->join( $runtime_path , $_ )])  }
        (qw(after autoload colors
                compiler doc ftplugin indent
                keymap lang plugin print
                spell syntax tutor)); 
}
=head2 runtime_path
You can export enviroment variable VIMANA_RUNTIME_PATH to override default
runtime path.
=head2 init_vim_runtime 
=cut
1;