fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

MiB/MB

This commit is contained in:
John Whitington 2023-10-26 17:33:10 +01:00
parent 33eb99fe39
commit a3745be835
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
cpdfcommand.ml
View File

@ -1077,9 +1077,12 @@ let displaydoctitle b =
let read_file_size s =
let read_int s = int_of_string (implode (rev s)) in
match rev (explode (String.uppercase_ascii s)) with
| 'B'::'G'::s -> 1024 * 1024 * 1024 * read_int s
| 'B'::'M'::s -> 1024 * 1024 * read_int s
| 'B'::'K'::s -> 1024 * read_int s
| 'B'::'I'::'G'::s -> 1024 * 1024 * 1024 * read_int s
| 'B'::'G'::s -> 1000 * 1000 * 1000 * read_int s
| 'B'::'I'::'M'::s -> 1024 * 1024 * read_int s
| 'B'::'M'::s -> 1000 * 1000 * read_int s
| 'B'::'I'::'K'::s -> 1024 * read_int s
| 'B'::'K'::s -> 1000 * read_int s
| s -> read_int s
let setsplitbookmarks i = setop (SplitOnBookmarks i) ()