diff options
Diffstat (limited to 'oecho')
| -rw-r--r-- | oecho/Makefile | 7 | ||||
| -rw-r--r-- | oecho/oecho.ml | 10 | ||||
| -rw-r--r-- | oecho/oecho0.ml | 9 |
3 files changed, 26 insertions, 0 deletions
diff --git a/oecho/Makefile b/oecho/Makefile new file mode 100644 index 0000000..d47d838 --- /dev/null +++ b/oecho/Makefile @@ -0,0 +1,7 @@ +make: + ocamlopt oecho.ml -o oecho + ocamlopt oecho0.ml -o oecho0 + +static: + ocamlopt -ccopt -static oecho.ml -o oecho + ocamlopt -ccopt -static oecho0.ml -o oecho0
\ No newline at end of file diff --git a/oecho/oecho.ml b/oecho/oecho.ml new file mode 100644 index 0000000..eae9ffe --- /dev/null +++ b/oecho/oecho.ml @@ -0,0 +1,10 @@ +open Arg +open Unix +open Scanf +open Printf + +let num = Array.length Sys.argv +let _ = if num == 2 then + Printf.printf "%s\n" Sys.argv.(1) + else Printf.printf "\n" + diff --git a/oecho/oecho0.ml b/oecho/oecho0.ml new file mode 100644 index 0000000..fed5a00 --- /dev/null +++ b/oecho/oecho0.ml @@ -0,0 +1,9 @@ +open Arg +open Unix +open Scanf +open Printf + +let num = Array.length Sys.argv +let _ = if num >= 2 then + Printf.printf "%s\n" Sys.argv.(1) + else Printf.printf "\n" |