Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Didier Verna
asdf
Commits
f17400a0
Commit
f17400a0
authored
Dec 08, 2016
by
Robert Goldman
Browse files
Fix regexps for version matching.
parent
e3748d63
Changes
1
Hide whitespace changes
Inline
Side-by-side
bin/bump-version
View file @
f17400a0
...
@@ -26,7 +26,7 @@ our @transform_ref =
...
@@ -26,7 +26,7 @@ our @transform_ref =
[
"
uiop/version.lisp
",
"
(defparameter *uiop-version*
\"
",
"
\"
)
"
],
[
"
uiop/version.lisp
",
"
(defparameter *uiop-version*
\"
",
"
\"
)
"
],
[
"
asdf.asd
",
"
:version
\"
",
"
\"
;; to be automatically updated by make bump-version
"
],
[
"
asdf.asd
",
"
:version
\"
",
"
\"
;; to be automatically updated by make bump-version
"
],
[
"
header.lisp
",
"
This is ASDF
",
"
: Another System Definition Facility.
"
],
[
"
header.lisp
",
"
This is ASDF
",
"
: Another System Definition Facility.
"
],
[
"
upgrade.lisp
",
"
\\
(asdf-version
\"
",
"
\"
\\
)
"
],
[
"
upgrade.lisp
",
"
(asdf-version
\"
",
"
\"
)
"
],
[
"
doc/asdf.texinfo
",
"
Manual for Version
",
""
],
);
[
"
doc/asdf.texinfo
",
"
Manual for Version
",
""
],
);
if
(
$#ARGV
==
1
)
{
if
(
$#ARGV
==
1
)
{
...
@@ -67,7 +67,7 @@ sub transform_files {
...
@@ -67,7 +67,7 @@ sub transform_files {
my
$file
=
$entry
[
0
];
my
$file
=
$entry
[
0
];
print
STDERR
"
Modifying file
$file
\n
";
print
STDERR
"
Modifying file
$file
\n
";
print
STDERR
"
Prefix is
$entry
[1], suffix is
$entry
[2]
\n
";
print
STDERR
"
Prefix is
$entry
[1], suffix is
$entry
[2]
\n
";
my
$regex
=
"
(
"
.
$entry
[
1
]
.
"
)
"
.
"
((
[0-9]+
\
.)+[0-9]
+)
"
.
"
(
"
.
$entry
[
2
]
.
"
)
";
my
$regex
=
"
(
"
.
quotemeta
(
$entry
[
1
]
)
.
"
)
"
.
"
((
\\
d+
\\
.)+
\\
d
+)
"
.
"
(
"
.
quotemeta
(
$entry
[
2
]
)
.
"
)
";
my
$filename
=
$asdf_dir
.
$file
;
my
$filename
=
$asdf_dir
.
$file
;
my
$data
=
read_text
(
$filename
);
my
$data
=
read_text
(
$filename
);
my
$count
=
(
$data
=~
s/$regex/$1$new$4/g
);
my
$count
=
(
$data
=~
s/$regex/$1$new$4/g
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment