jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added a usage message.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4914 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Art Yerkes 2003-06-19 21:29:08 +00:00
commit 649893ed17
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
SWIG/Examples/ocaml/argout_ref/example_prog.ml
View file

@ -4,6 +4,15 @@ open Example
exception BadReturn exception BadReturn
let _ = if Array.length Sys.argv < 3 then
begin
print_endline
("Usage: " ^ Sys.argv.(0) ^ " n1 n2\n" ^
" Displays the least factors of the numbers that have the same\n" ^
" relationship, 16 12 -> 4 3\n") ;
exit 0
end
let x = int_of_string Sys.argv.(1) let x = int_of_string Sys.argv.(1)
let y = int_of_string Sys.argv.(2) let y = int_of_string Sys.argv.(2)
let (xf,yf) = match _factor (C_list [ C_int x ; C_int y ]) with let (xf,yf) = match _factor (C_list [ C_int x ; C_int y ]) with