e43b70b58f
Signed-off-by: Izuru Yakumo <yakumo.izuru@chaotic.ninja> git-svn-id: file:///srv/svn/repo/kosuzu/trunk@76 eb64cd80-c68d-6f47-b6a3-0ada418499da
18 lines
892 B
OCaml
18 lines
892 B
OCaml
let init_repo =
|
|
print_endline "Initializing repository...";
|
|
print_endline "It's required for the repository name and id.";
|
|
print_endline "Create one? (y/n)";
|
|
match input_line stdin with
|
|
|"y"->
|
|
let title =
|
|
print_endline "Title for repository: ";
|
|
input_line stdin in
|
|
let authors =
|
|
print_endline "Authors (format: name <name@email> <http://website>): ";
|
|
input_line stdin in
|
|
Kosuzu.File_store.file "txt.conf"
|
|
(Printf.sprintf "Id:%s\nTitle: %s\nAuthors: %s\n" (Kosuzu.Id.generate ()) title authors);
|
|
Kosuzu.File_store.of_kv_file ()
|
|
| _ ->
|
|
print_endline "Aborting..."; exit 1
|