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
c3349ce9
Commit
c3349ce9
authored
Oct 05, 2007
by
Pietro Abate
Browse files
[r2003-09-19 23:26:18 by cvscast] Empty log message
Original author: cvscast Date: 2003-09-19 23:26:18+00:00
parent
6f2a66b4
Changes
1
Hide whitespace changes
Inline
Side-by-side
driver/run.ml
View file @
c3349ce9
...
...
@@ -45,6 +45,11 @@ let specs =
]
let
ppf
=
if
!
Cduce
.
quiet
then
Format
.
formatter_of_buffer
(
Buffer
.
create
1023
)
else
Format
.
std_formatter
let
ppf_err
=
Format
.
err_formatter
let
specs
=
if
Load_xml
.
expat_support
then
(
"--expat"
,
Arg
.
Unit
(
fun
()
->
Load_xml
.
use_parser
:=
`Expat
)
,
...
...
@@ -53,9 +58,9 @@ let specs =
" use PXP parser"
)
::
specs
else
(
"--expat"
,
Arg
.
Unit
(
fun
()
->
()
)
,
(
"--expat"
,
Arg
.
Unit
(
fun
()
->
(
Format
.
fprintf
ppf
"WARNING: --expat unused option. CDuce compiled without expat support
\n\n
"
))
,
" option not available: CDuce was compiled without expat support"
)
::
(
"--pxp"
,
Arg
.
Unit
(
fun
()
->
()
)
,
(
"--pxp"
,
Arg
.
Unit
(
fun
()
->
(
Format
.
fprintf
ppf
"WARNING: --pxp useless option. CDuce compiled without expat support
\n\n
"
))
,
" useless option: CDuce was compiled without expat support"
)
::
specs
...
...
@@ -64,11 +69,6 @@ let () =
Arg
.
parse
specs
(
fun
s
->
src
:=
s
::
!
src
)
"
\n
Usage:
\n
cduce [OPTIONS ...] [FILE ...] [--arg argument ...]
\n\n
Options:"
let
ppf
=
if
!
Cduce
.
quiet
then
Format
.
formatter_of_buffer
(
Buffer
.
create
1023
)
else
Format
.
std_formatter
let
ppf_err
=
Format
.
err_formatter
let
bol
=
ref
true
...
...
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