simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 11:15:35 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

missing option in vfs-pack

Browse source
This commit is contained in:
Simon Cruanes 2022-03-03 22:16:50 -05:00
parent 93ef8c689a
commit 6a7164810b
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/bin/vfs_pack.ml
View file

@ -135,6 +135,7 @@ let () =
let vfs_path, path = split_comma s in let vfs_path, path = split_comma s in
let vfs_path, path = if path="" then "", vfs_path else vfs_path, path in let vfs_path, path = if path="" then "", vfs_path else vfs_path, path in
add_entry (Mirror (vfs_path, path)) add_entry (Mirror (vfs_path, path))
and add_source f = add_entry (Source_file f)
and add_url s = and add_url s =
let vfs_path, path = split_comma s in let vfs_path, path = split_comma s in
if is_url path then add_entry (Url(vfs_path, path)) if is_url path then add_entry (Url(vfs_path, path))
@ -147,6 +148,7 @@ let () =
"--file", Arg.String add_file, " <name,file> adds name=file to the VFS"; "--file", Arg.String add_file, " <name,file> adds name=file to the VFS";
"--url", Arg.String add_url, " <name,url> adds name=url to the VFS"; "--url", Arg.String add_url, " <name,url> adds name=url to the VFS";
"--mirror", Arg.String add_mirror, " <prefix,dir> copies directory dir into the VFS under prefix"; "--mirror", Arg.String add_mirror, " <prefix,dir> copies directory dir into the VFS under prefix";
"-F", Arg.String add_source, " <file> reads entries from the file, on per line";
] |> Arg.align in ] |> Arg.align in
Arg.parse opts (fun _ -> raise (Arg.Help "no positional arg")) help; Arg.parse opts (fun _ -> raise (Arg.Help "no positional arg")) help;