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
100
101
102
103
|
#!@PERL@
#
# vg - Vi Grepped - edit a file at a line specified in a cg search.
# Copyright 2000-2002 by Joshua Uziel <uzi@uzix.org> - version @VERSION@
#
# Usage: vg number
#
# Helper script to go with cg for opening a editor conveniently
# with the correct file and line as shown in cg's log. Run this
# with a single numerical argument (ie. "vg 3") to edit the desired
# log entry.
#
# This script seems to work fine with a number of editors, including
# vi, vim, emacs, pico, joe, etc. (Despite it's name.)
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
# Include our general functions and variables.
use File::Basename;
BEGIN { $prefix = "@prefix@" }
use lib dirname($0), "@datadir@/cgvg";
require 'cgvg-common.pl';
&parse_rcfile;
# We can't edit if the editor doesn't exist.
`which $EDITOR`;
$no_editor = $?;
die "Error: Editor $EDITOR isn't in your path.\n" if ($no_editor != 0);
# One argument can be numerical only.
if ($#ARGV == 0) {
$num = $ARGV[0];
die "Error: Non-numerical argument.\n"
unless (($num =~ /\d+/) && ($num !~ /\D+/));
# Two arguments must be '-l' and then a number.
} elsif ($#ARGV == 1) {
die "Error: Unknown option.\n" unless ($ARGV[0] == '-l');
$num = $ARGV[1];
die "Error: Non-numerical argument.\n"
unless (($num =~ /\d+/) && ($num !~ /\D+/));
$LOGFILE = $LASTLOG;
# Can't have three or more, or zero arguments.
} else {
die "Bad argument(s). Usage: ", basename($0), " [-l] number\n";
}
# Default to LASTLOG if LOGFILE doesn't exist, else error.
$LOGFILE = $LASTLOG unless (-f $LOGFILE);
die "Error: No existing logfile.\n" unless (-f $LOGFILE);
&edit($num);
# If we're here, there was a problem.
die "Error: Numerical argument invalid.\n";
### END
#--------------------------------------------------------------------------#
## Subroutines ##
#--------------------------------------------------------------------------#
sub edit {
my $num = shift(@_);
open (IN, "<$LOGFILE");
# Check if our current path is the path when the log was taken. If so,
# then nullify $path, else set it to $path/ so we can use anywhere.
$PWD="$ENV{PWD}\n";
$path=(split(/=/, <IN>))[1];
if ($PWD eq $path) {
$path="";
} else {
chomp($path);
$path="$path/";
}
# Find the line we want and open up vi to that line.
foreach $line (<IN>) {
($this, $file, $line) = (split(/:/, $line))[0,1,2];
# Change this to execute the editor.
if ($num == $this) {
close (IN);
exec "$EDITOR +$line $path$file"
}
}
}
|
