Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
cduce
cduce
Commits
4a0f8800
Commit
4a0f8800
authored
Oct 05, 2007
by
Pietro Abate
Browse files
[r2005-01-18 14:34:15 by afrisch] Error location with --stdin
Original author: afrisch Date: 2005-01-18 14:34:15+00:00
parent
13dfce6c
Changes
1
Hide whitespace changes
Inline
Side-by-side
driver/librarian.ml
View file @
4a0f8800
...
...
@@ -151,11 +151,10 @@ let rec compile verbose name id src =
check_loop
id
;
protect_op
"Compile external file"
;
let
ic
=
if
src
=
""
then
stdin
if
src
=
""
then
(
Location
.
push_source
`Stream
;
stdin
)
else
try
open_in
src
try
Location
.
push_source
(
`File
src
);
open_in
src
with
Sys_error
_
->
raise
(
CannotOpen
src
)
in
Location
.
push_source
(
`File
src
);
let
input
=
Stream
.
of_channel
ic
in
let
p
=
try
Parser
.
prog
input
...
...
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