From: Issac Trotts <ijtrotts@ucdavis.edu>
To: caml-list@inria.fr
Subject: Re: [Caml-list] camlp4 in script
Date: Mon, 3 Nov 2003 11:45:59 -0800 [thread overview]
Message-ID: <20031103194559.GB9184@ucdavis.edu> (raw)
In-Reply-To: <oprx2hkaaaafbmjd@uaapc442>
On Mon, Nov 03, 2003 at 05:06:00PM +0200, Artem Prisyznuk wrote:
> Hello,
>
> If I want call ocaml script from shell I type next header for
> this script:
>
> #!/usr/bin/ocamlrun /usr/bin/ocaml
>
> print_string "Hello\n";;
> .....
>
>
> But if I want use camlp4 for source of script, I try next source
>
> #!/usr/bin/ocamlrun /usr/bin/ocaml -I `camlp4 -where`
>
> #load "camlp4r.cma";
> print_string "Hello\n";
> .....
>
>
> When I try execute this script shell print next error:
>
> Fatal error: cannot find file /usr/bin/ocaml -I /usr/lib/ocaml/camlp4
>
> How I can execute script witch revised syntax?
It works if you make an executable that wraps the call to ocaml with the
desired arguments:
ijtrotts@beech:/tmp$ cat c4.ml
let () =
let includes = "-I /usr/lib/ocaml/camlp4" in
let args =
List.fold_left (^) "" (List.tl (Array.to_list Sys.argv))
in
let cmd =
Printf.sprintf "ocaml %s camlp4r.cma %s" includes args
in
match Sys.command cmd with
0 -> ()
| _ -> prerr_endline ("Couldn't run "^cmd)
ijtrotts@beech:/tmp$ ocamlopt -o c4 c4.ml
ijtrotts@beech:/tmp$ su
Password:
beech:/tmp# mv c4 /usr/local/bin/c4
ijtrotts@beech:/tmp$ cat foo.ml
#!/usr/local/bin/c4
print_string "Hello\n";
ijtrotts@beech:/tmp$ chmod +x foo.ml
ijtrotts@beech:/tmp$ ./foo.ml
Hello
-ijt
--
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners
next prev parent reply other threads:[~2003-11-03 19:36 UTC|newest]
Thread overview: 10+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-11-03 15:06 Artem Prisyznuk
2003-11-03 19:45 ` Issac Trotts [this message]
2003-11-03 21:11 ` William Lovas
2003-11-04 1:01 ` Issac Trotts
2003-11-04 9:16 ` Remi Vanicat
2003-11-04 9:46 ` Artem Prisyznuk
2003-11-04 14:59 ` Lars Nilsson
2003-11-04 20:10 ` Issac Trotts
[not found] ` <16296.2885.478524.117242@gargle.gargle.HOWL>
2003-11-04 21:24 ` Issac Trotts
2003-11-05 7:54 ` Stefano Zacchiroli
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20031103194559.GB9184@ucdavis.edu \
--to=ijtrotts@ucdavis.edu \
--cc=caml-list@inria.fr \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox