fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

MiB/MB

Browse Source
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
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) ()