Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
R
riscv-gcc-1
Overview
Overview
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
lvzhengyang
riscv-gcc-1
Commits
84309a32
Commit
84309a32
authored
May 02, 2006
by
Daniel Jacobowitz
Committed by
Daniel Jacobowitz
May 02, 2006
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* texi2pod.pl: Handle -I.
From-SVN: r113462
parent
7aa20a86
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
18 additions
and
4 deletions
+18
-4
contrib/ChangeLog
+4
-0
contrib/texi2pod.pl
+14
-4
No files found.
contrib/ChangeLog
View file @
84309a32
2006
-
04
-
17
Daniel
Jacobowitz
<
dan
@codesourcery
.
com
>
*
texi2pod
.
pl
:
Handle
-
I
.
2006
-
02
-
28
Mark
Mitchell
<
mark
@codesourcery
.
com
>
*
gennews
(
files
)
:
Update
for
GCC
4
.
1
.
...
...
contrib/texi2pod.pl
View file @
84309a32
...
...
@@ -36,6 +36,7 @@ $shift = "";
$fnno
=
1
;
$inf
=
""
;
$ibase
=
""
;
@ipath
=
();
while
(
$_
=
shift
)
{
if
(
/^-D(.*)$/
)
{
...
...
@@ -51,6 +52,13 @@ while ($_ = shift) {
die
"flags may only contain letters, digits, hyphens, dashes and underscores\n"
unless
$flag
=~
/^[a-zA-Z0-9_-]+$/
;
$defs
{
$flag
}
=
$value
;
}
elsif
(
/^-I(.*)$/
)
{
if
(
$1
ne
""
)
{
$flag
=
$1
;
}
else
{
$flag
=
shift
;
}
push
(
@ipath
,
$flag
);
}
elsif
(
/^-/
)
{
usage
();
}
else
{
...
...
@@ -229,10 +237,12 @@ while(<$inf>) {
$inf
=
gensym
();
$file
=
postprocess
(
$1
);
# Try cwd and $ibase.
open
(
$inf
,
"<"
.
$file
)
or
open
(
$inf
,
"<"
.
$ibase
.
"/"
.
$file
)
or
die
"cannot open $file or $ibase/$file: $!\n"
;
# Try cwd and $ibase, then explicit -I paths.
$done
=
0
;
foreach
$path
(
"."
,
$ibase
,
@ipath
)
{
open
(
$inf
,
"<"
.
$path
.
"/"
.
$file
)
and
(
$done
=
1
,
last
);
}
die
"cannot find $file"
if
!
$done
;
next
;
};
...
...
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