2019-02-04 22:26:45 +00:00
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
< html >
< head >
< title > 5/ee< / title >
2020-03-19 00:03:04 +00:00
< meta name = "viewport" content = "width=device-width initial-scale=1" >
2019-02-04 22:26:45 +00:00
< meta http-equiv = "Content-Type" content = "text/html; charset=utf-8" >
< meta http-equiv = "Content-Language" content = "en-gb" >
2020-03-19 00:03:04 +00:00
< link href = "../inweb.css" rel = "stylesheet" rev = "stylesheet" type = "text/css" >
2019-02-04 22:26:45 +00:00
< / head >
< body >
2020-03-19 00:03:04 +00:00
< nav role = "navigation" >
< h1 > < a href = "../webs.html" > Sources< / a > < / h1 >
< ul >
< li > < a href = "../inweb/index.html" > inweb< / a > < / li >
< / ul >
< h2 > Foundation< / h2 >
< ul >
< li > < a href = "../foundation-module/index.html" > foundation-module< / a > < / li >
< li > < a href = "../foundation-test/index.html" > foundation-test< / a > < / li >
< / ul >
< / nav >
< main role = "main" >
2019-02-09 12:33:40 +00:00
<!-- Weave of '6/bf' generated by 7 -->
2020-03-19 00:03:04 +00:00
< ul class = "crumbs" > < li > < a href = "../webs.html" > Source< / a > < / li > < li > < a href = "index.html" > foundation< / a > < / li > < li > < a href = "index.html#6" > Chapter 6: Media< / a > < / li > < li > < b > Binary Files< / b > < / li > < / ul > < p class = "purpose" > Routines for reading raw data from binary files.< / p >
2019-02-04 22:26:45 +00:00
< ul class = "toc" > < li > < a href = "#SP1" > § 1. Reading binary data< / a > < / li > < li > < a href = "#SP7" > § 7. Size< / a > < / li > < li > < a href = "#SP8" > § 8. Opening< / a > < / li > < li > < a href = "#SP9" > § 9. Copying< / a > < / li > < / ul > < hr class = "tocbar" >
< p class = "inwebparagraph" > < a id = "SP1" > < / a > < b > § 1. Reading binary data. < / b > To begin with, integers of 8, 16, 32 and 64 bit widths respectively,
arranged with most significant byte (MSB) first.
< / p >
< pre class = "display" >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > BinaryFiles::read_int8< / span > < span class = "plain" > (< / span > < span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > , < / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > *< / span > < span class = "identifier" > result< / span > < span class = "plain" > ) {< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > c1< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > c1< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > ) < / span > < span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
2020-04-05 00:03:36 +00:00
< span class = "plain" > *< / span > < span class = "identifier" > result< / span > < span class = "plain" > = (< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c1< / span > < span class = "plain" > ;< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > BinaryFiles::read_int16< / span > < span class = "plain" > (< / span > < span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > , < / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > *< / span > < span class = "identifier" > result< / span > < span class = "plain" > ) {< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > c1< / span > < span class = "plain" > , < / span > < span class = "identifier" > c2< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "identifier" > c1< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
< span class = "identifier" > c2< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > c1< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > || < / span > < span class = "identifier" > c2< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > ) < / span > < span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
2020-04-05 00:03:36 +00:00
< span class = "plain" > *< / span > < span class = "identifier" > result< / span > < span class = "plain" > = (((< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c1< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 8< / span > < span class = "plain" > ) + ((< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c2< / span > < span class = "plain" > );< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > BinaryFiles::read_int32< / span > < span class = "plain" > (< / span > < span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > , < / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > *< / span > < span class = "identifier" > result< / span > < span class = "plain" > ) {< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > c1< / span > < span class = "plain" > , < / span > < span class = "identifier" > c2< / span > < span class = "plain" > , < / span > < span class = "identifier" > c3< / span > < span class = "plain" > , < / span > < span class = "identifier" > c4< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "identifier" > c1< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
< span class = "identifier" > c2< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
< span class = "identifier" > c3< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
< span class = "identifier" > c4< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > c1< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > || < / span > < span class = "identifier" > c2< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > || < / span > < span class = "identifier" > c3< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > || < / span > < span class = "identifier" > c4< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > ) < / span > < span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
2020-04-05 00:03:36 +00:00
< span class = "plain" > *< / span > < span class = "identifier" > result< / span > < span class = "plain" > = (((< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c1< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 24< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > (((< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c2< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 16< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > (((< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c3< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 8< / span > < span class = "plain" > ) + ((< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c4< / span > < span class = "plain" > );< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > BinaryFiles::read_int64< / span > < span class = "plain" > (< / span > < span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > , < / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > *< / span > < span class = "identifier" > result< / span > < span class = "plain" > ) {< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > c1< / span > < span class = "plain" > , < / span > < span class = "identifier" > c2< / span > < span class = "plain" > , < / span > < span class = "identifier" > c3< / span > < span class = "plain" > , < / span > < span class = "identifier" > c4< / span > < span class = "plain" > , < / span > < span class = "identifier" > c5< / span > < span class = "plain" > , < / span > < span class = "identifier" > c6< / span > < span class = "plain" > , < / span > < span class = "identifier" > c7< / span > < span class = "plain" > , < / span > < span class = "identifier" > c8< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "identifier" > c1< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
< span class = "identifier" > c2< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
< span class = "identifier" > c3< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
< span class = "identifier" > c4< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
< span class = "identifier" > c5< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
< span class = "identifier" > c6< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
< span class = "identifier" > c7< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
< span class = "identifier" > c8< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > c1< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > || < / span > < span class = "identifier" > c2< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > || < / span > < span class = "identifier" > c3< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > || < / span > < span class = "identifier" > c4< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > || < / span > < span class = "identifier" > c5< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span >
2020-04-05 17:37:43 +00:00
< span class = "plain" > || < / span > < span class = "identifier" > c6< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > || < / span > < span class = "identifier" > c7< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > || < / span > < span class = "identifier" > c8< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > ) < / span > < span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
2020-04-05 00:03:36 +00:00
< span class = "plain" > *< / span > < span class = "identifier" > result< / span > < span class = "plain" > = (((< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c1< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 56< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > (((< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c2< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 48< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > (((< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c3< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 40< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > (((< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c4< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 32< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > (((< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c5< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 24< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > (((< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c6< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 16< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > (((< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c7< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 8< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > ((< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c8< / span > < span class = "plain" > );< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function BinaryFiles::read_int8 is used in 6/sd (< a href = "6-sd.html#SP2" > § 2< / a > , < a href = "6-sd.html#SP3" > § 3< / a > ).< / p >
< p class = "endnote" > The function BinaryFiles::read_int16 is used in 6/id (< a href = "6-id.html#SP1" > § 1< / a > ), 6/sd (< a href = "6-sd.html#SP1" > § 1< / a > , < a href = "6-sd.html#SP2" > § 2< / a > , < a href = "6-sd.html#SP3" > § 3< / a > ).< / p >
< p class = "endnote" > The function BinaryFiles::read_int32 is used in < a href = "#SP5" > § 5< / a > , 6/id (< a href = "6-id.html#SP2" > § 2< / a > ), 6/sd (< a href = "6-sd.html#SP1" > § 1< / a > , < a href = "6-sd.html#SP2" > § 2< / a > , < a href = "6-sd.html#SP3" > § 3< / a > ).< / p >
< p class = "endnote" > The function BinaryFiles::read_int64 is used in 6/sd (< a href = "6-sd.html#SP2" > § 2< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP2" > < / a > < b > § 2. < / b > < / p >
< pre class = "display" >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > BinaryFiles::write_int32< / span > < span class = "plain" > (< / span > < span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > , < / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > val< / span > < span class = "plain" > ) {< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > c1< / span > < span class = "plain" > = (< / span > < span class = "identifier" > int< / span > < span class = "plain" > ) ((< / span > < span class = "identifier" > val< / span > < span class = "plain" > > > < / span > < span class = "constant" > 24< / span > < span class = "plain" > ) & < / span > < span class = "constant" > 0xFF< / span > < span class = "plain" > );< / span >
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > c2< / span > < span class = "plain" > = (< / span > < span class = "identifier" > int< / span > < span class = "plain" > ) ((< / span > < span class = "identifier" > val< / span > < span class = "plain" > > > < / span > < span class = "constant" > 16< / span > < span class = "plain" > ) & < / span > < span class = "constant" > 0xFF< / span > < span class = "plain" > );< / span >
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > c3< / span > < span class = "plain" > = (< / span > < span class = "identifier" > int< / span > < span class = "plain" > ) ((< / span > < span class = "identifier" > val< / span > < span class = "plain" > > > < / span > < span class = "constant" > 8< / span > < span class = "plain" > ) & < / span > < span class = "constant" > 0xFF< / span > < span class = "plain" > );< / span >
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > c4< / span > < span class = "plain" > = (< / span > < span class = "identifier" > int< / span > < span class = "plain" > ) (< / span > < span class = "identifier" > val< / span > < span class = "plain" > & < / span > < span class = "constant" > 0xFF< / span > < span class = "plain" > );< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > putc< / span > < span class = "plain" > (< / span > < span class = "identifier" > c1< / span > < span class = "plain" > , < / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > ) < / span > < span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > putc< / span > < span class = "plain" > (< / span > < span class = "identifier" > c2< / span > < span class = "plain" > , < / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > ) < / span > < span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > putc< / span > < span class = "plain" > (< / span > < span class = "identifier" > c3< / span > < span class = "plain" > , < / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > ) < / span > < span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > putc< / span > < span class = "plain" > (< / span > < span class = "identifier" > c4< / span > < span class = "plain" > , < / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > ) == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > ) < / span > < span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
2020-04-05 00:03:36 +00:00
2020-04-05 17:37:43 +00:00
< span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function BinaryFiles::write_int32 appears nowhere else.< / p >
< p class = "inwebparagraph" > < a id = "SP3" > < / a > < b > § 3. < / b > We will sometimes need to toggle between MSB and LSB representation of
integers 32 or 64 bits wide:
< / p >
< pre class = "display" >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > void< / span > < span class = "plain" > < / span > < span class = "identifier" > BinaryFiles::swap_bytes32< / span > < span class = "plain" > (< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > *< / span > < span class = "identifier" > value< / span > < span class = "plain" > ) {< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > result< / span > < span class = "plain" > = (((*< / span > < span class = "identifier" > value< / span > < span class = "plain" > & < / span > < span class = "constant" > 0xff< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 24< / span > < span class = "plain" > ) +< / span >
2020-04-04 19:46:43 +00:00
< span class = "plain" > ((*< / span > < span class = "identifier" > value< / span > < span class = "plain" > & < / span > < span class = "constant" > 0xff00< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 8< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > ((*< / span > < span class = "identifier" > value< / span > < span class = "plain" > & < / span > < span class = "constant" > 0xff0000< / span > < span class = "plain" > ) > > < / span > < span class = "constant" > 8< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > ((*< / span > < span class = "identifier" > value< / span > < span class = "plain" > & < / span > < span class = "constant" > 0xff000000< / span > < span class = "plain" > ) > > < / span > < span class = "constant" > 24< / span > < span class = "plain" > ) );< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > *< / span > < span class = "identifier" > value< / span > < span class = "plain" > = < / span > < span class = "identifier" > result< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > void< / span > < span class = "plain" > < / span > < span class = "identifier" > BinaryFiles::swap_bytes64< / span > < span class = "plain" > (< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > *< / span > < span class = "identifier" > value< / span > < span class = "plain" > ) {< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > < / span > < span class = "identifier" > long< / span > < span class = "plain" > < / span > < span class = "identifier" > result< / span > < span class = "plain" > = (((*< / span > < span class = "identifier" > value< / span > < span class = "plain" > & < / span > < span class = "constant" > 0xff< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 56< / span > < span class = "plain" > ) +< / span >
2020-04-04 19:46:43 +00:00
< span class = "plain" > ((*< / span > < span class = "identifier" > value< / span > < span class = "plain" > & < / span > < span class = "constant" > 0xff00< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 40< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > ((*< / span > < span class = "identifier" > value< / span > < span class = "plain" > & < / span > < span class = "constant" > 0xff0000< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 24< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > ((*< / span > < span class = "identifier" > value< / span > < span class = "plain" > & < / span > < span class = "constant" > 0xff000000< / span > < span class = "plain" > ) < < < / span > < span class = "constant" > 8< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > ((*< / span > < span class = "identifier" > value< / span > < span class = "plain" > > > < / span > < span class = "constant" > 8< / span > < span class = "plain" > ) & < / span > < span class = "constant" > 0xff000000< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > ((*< / span > < span class = "identifier" > value< / span > < span class = "plain" > > > < / span > < span class = "constant" > 24< / span > < span class = "plain" > ) & < / span > < span class = "constant" > 0xff0000< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > ((*< / span > < span class = "identifier" > value< / span > < span class = "plain" > > > < / span > < span class = "constant" > 40< / span > < span class = "plain" > ) & < / span > < span class = "constant" > 0xff00< / span > < span class = "plain" > ) +< / span >
< span class = "plain" > ((*< / span > < span class = "identifier" > value< / span > < span class = "plain" > > > < / span > < span class = "constant" > 56< / span > < span class = "plain" > ) & < / span > < span class = "constant" > 0xff< / span > < span class = "plain" > ) );< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > *< / span > < span class = "identifier" > value< / span > < span class = "plain" > = < / span > < span class = "identifier" > result< / span > < span class = "plain" > ;< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function BinaryFiles::swap_bytes32 is used in 6/sd (< a href = "6-sd.html#SP2" > § 2< / a > ).< / p >
< p class = "endnote" > The function BinaryFiles::swap_bytes64 is used in 6/sd (< a href = "6-sd.html#SP2" > § 2< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP4" > < / a > < b > § 4. < / b > Some file formats also have variable-sized integers, as a sequence of
bytes (most significant first) in which each byte consists of seven bits
of data plus a most significant bit which marks that a continuation byte
follows:
< / p >
< pre class = "display" >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > BinaryFiles::read_variable_length_integer< / span > < span class = "plain" > (< / span > < span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > , < / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > *< / span > < span class = "identifier" > result< / span > < span class = "plain" > ) {< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > c< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
2020-04-04 19:46:43 +00:00
< span class = "plain" > *< / span > < span class = "identifier" > result< / span > < span class = "plain" > = < / span > < span class = "constant" > 0< / span > < span class = "plain" > ;< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > do< / span > < span class = "plain" > {< / span >
2019-02-04 22:26:45 +00:00
< span class = "identifier" > c< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > c< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > ) < / span > < span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
2020-04-05 00:03:36 +00:00
< span class = "plain" > *< / span > < span class = "identifier" > result< / span > < span class = "plain" > = (*< / span > < span class = "identifier" > result< / span > < span class = "plain" > < < < / span > < span class = "constant" > 7< / span > < span class = "plain" > ) + (((< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > char< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c< / span > < span class = "plain" > ) & < / span > < span class = "constant" > 0x7F< / span > < span class = "plain" > );< / span >
< span class = "plain" > } < / span > < span class = "identifier" > while< / span > < span class = "plain" > (((< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > char< / span > < span class = "plain" > ) < / span > < span class = "identifier" > c< / span > < span class = "plain" > ) & < / span > < span class = "constant" > 0x80< / span > < span class = "plain" > );< / span >
2019-02-04 22:26:45 +00:00
2020-04-05 17:37:43 +00:00
< span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function BinaryFiles::read_variable_length_integer is used in 6/sd (< a href = "6-sd.html#SP3" > § 3< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP5" > < / a > < b > § 5. < / b > Here we read just the mantissa of a particular representation of
floating-point numbers:
< / p >
< pre class = "display" >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > BinaryFiles::read_float80< / span > < span class = "plain" > (< / span > < span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > , < / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > *< / span > < span class = "identifier" > result< / span > < span class = "plain" > ) {< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > c1< / span > < span class = "plain" > , < / span > < span class = "identifier" > c2< / span > < span class = "plain" > , < / span > < span class = "identifier" > exp< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > prev< / span > < span class = "plain" > = < / span > < span class = "constant" > 0< / span > < span class = "plain" > , < / span > < span class = "identifier" > mantissa< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "identifier" > c1< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
< span class = "identifier" > c2< / span > < span class = "plain" > = < / span > < span class = "identifier" > getc< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > );< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > c1< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > || < / span > < span class = "identifier" > c2< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > ) < / span > < span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
< span class = "identifier" > if< / span > < span class = "plain" > (!< / span > < span class = "identifier" > BinaryFiles::read_int32< / span > < span class = "plain" > (< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > , & < / span > < span class = "identifier" > mantissa< / span > < span class = "plain" > )) < / span > < span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
2020-04-04 19:46:43 +00:00
< span class = "identifier" > exp< / span > < span class = "plain" > = < / span > < span class = "constant" > 30< / span > < span class = "plain" > - < / span > < span class = "identifier" > c2< / span > < span class = "plain" > ;< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > while< / span > < span class = "plain" > (< / span > < span class = "identifier" > exp< / span > < span class = "plain" > --) {< / span >
2019-02-04 22:26:45 +00:00
< span class = "identifier" > prev< / span > < span class = "plain" > = < / span > < span class = "identifier" > mantissa< / span > < span class = "plain" > ;< / span >
2020-04-04 19:46:43 +00:00
< span class = "identifier" > mantissa< / span > < span class = "plain" > > > = < / span > < span class = "constant" > 1< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > prev< / span > < span class = "plain" > & < / span > < span class = "constant" > 1< / span > < span class = "plain" > ) < / span > < span class = "identifier" > mantissa< / span > < span class = "plain" > ++;< / span >
2019-02-04 22:26:45 +00:00
2020-04-05 00:03:36 +00:00
< span class = "plain" > *< / span > < span class = "identifier" > result< / span > < span class = "plain" > = (< / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > ) < / span > < span class = "identifier" > mantissa< / span > < span class = "plain" > ;< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function BinaryFiles::read_float80 is used in 6/sd (< a href = "6-sd.html#SP1" > § 1< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP6" > < / a > < b > § 6. < / b > And lastly we read a string of a supplied length from the file, and
then null terminate it to make it valid C string. (< code class = "display" > < span class = "extract" > string< / span > < / code > must therefore
be at least < code class = "display" > < span class = "extract" > length< / span > < / code > plus 1 bytes long.)
< / p >
< pre class = "display" >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > BinaryFiles::read_string< / span > < span class = "plain" > (< / span > < span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > , < / span > < span class = "identifier" > char< / span > < span class = "plain" > *< / span > < span class = "identifier" > string< / span > < span class = "plain" > , < / span > < span class = "identifier" > unsigned< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > length< / span > < span class = "plain" > ) {< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > length< / span > < span class = "plain" > > < / span > < span class = "constant" > 0< / span > < span class = "plain" > ) {< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > fread< / span > < span class = "plain" > (< / span > < span class = "identifier" > string< / span > < span class = "plain" > , < / span > < span class = "constant" > 1< / span > < span class = "plain" > , < / span > < span class = "identifier" > length< / span > < span class = "plain" > , < / span > < span class = "identifier" > binary_file< / span > < span class = "plain" > ) != < / span > < span class = "identifier" > length< / span > < span class = "plain" > ) < / span > < span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
2020-04-04 19:46:43 +00:00
< span class = "identifier" > string< / span > < span class = "plain" > [< / span > < span class = "identifier" > length< / span > < span class = "plain" > ] = < / span > < span class = "constant" > 0< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
2020-04-05 17:37:43 +00:00
< span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function BinaryFiles::read_string is used in 6/sd (< a href = "6-sd.html#SP3" > § 3< / a > ).< / p >
< p class = "inwebparagraph" > < a id = "SP7" > < / a > < b > § 7. Size. < / b > < / p >
< pre class = "display" >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > long< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > BinaryFiles::size< / span > < span class = "plain" > (< / span > < span class = "identifier" > filename< / span > < span class = "plain" > *< / span > < span class = "identifier" > F< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > TEST_FILE< / span > < span class = "plain" > = < / span > < span class = "identifier" > BinaryFiles::try_to_open_for_reading< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > );< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > TEST_FILE< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > fseek< / span > < span class = "plain" > (< / span > < span class = "identifier" > TEST_FILE< / span > < span class = "plain" > , < / span > < span class = "constant" > 0< / span > < span class = "plain" > , < / span > < span class = "identifier" > SEEK_END< / span > < span class = "plain" > ) == < / span > < span class = "constant" > 0< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > long< / span > < span class = "plain" > < / span > < span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > file_size< / span > < span class = "plain" > = < / span > < span class = "identifier" > ftell< / span > < span class = "plain" > (< / span > < span class = "identifier" > TEST_FILE< / span > < span class = "plain" > );< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > file_size< / span > < span class = "plain" > == -1< / span > < span class = "identifier" > L< / span > < span class = "plain" > ) < / span > < span class = "identifier" > Errors::fatal_with_file< / span > < span class = "plain" > (< / span > < span class = "string" > "ftell failed on linked file"< / span > < span class = "plain" > , < / span > < span class = "identifier" > F< / span > < span class = "plain" > );< / span >
< span class = "identifier" > BinaryFiles::close< / span > < span class = "plain" > (< / span > < span class = "identifier" > TEST_FILE< / span > < span class = "plain" > );< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > file_size< / span > < span class = "plain" > ;< / span >
2020-04-05 17:37:43 +00:00
< span class = "plain" > } < / span > < span class = "identifier" > else< / span > < span class = "plain" > < / span > < span class = "identifier" > Errors::fatal_with_file< / span > < span class = "plain" > (< / span > < span class = "string" > "fseek failed on linked file"< / span > < span class = "plain" > , < / span > < span class = "identifier" > F< / span > < span class = "plain" > );< / span >
< span class = "identifier" > BinaryFiles::close< / span > < span class = "plain" > (< / span > < span class = "identifier" > TEST_FILE< / span > < span class = "plain" > );< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > return< / span > < span class = "plain" > -1< / span > < span class = "identifier" > L< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function BinaryFiles::size appears nowhere else.< / p >
< p class = "inwebparagraph" > < a id = "SP8" > < / a > < b > § 8. Opening. < / b > < / p >
< pre class = "display" >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > BinaryFiles::open_for_reading< / span > < span class = "plain" > (< / span > < span class = "identifier" > filename< / span > < span class = "plain" > *< / span > < span class = "identifier" > F< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > handle< / span > < span class = "plain" > = < / span > < span class = "identifier" > Filenames::fopen< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "string" > "rb"< / span > < span class = "plain" > );< / span >
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > handle< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > Errors::fatal_with_file< / span > < span class = "plain" > (< / span > < span class = "string" > "unable to read file"< / span > < span class = "plain" > , < / span > < span class = "identifier" > F< / span > < span class = "plain" > );< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > handle< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > BinaryFiles::try_to_open_for_reading< / span > < span class = "plain" > (< / span > < span class = "identifier" > filename< / span > < span class = "plain" > *< / span > < span class = "identifier" > F< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > Filenames::fopen< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "string" > "rb"< / span > < span class = "plain" > );< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > BinaryFiles::open_for_writing< / span > < span class = "plain" > (< / span > < span class = "identifier" > filename< / span > < span class = "plain" > *< / span > < span class = "identifier" > F< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > handle< / span > < span class = "plain" > = < / span > < span class = "identifier" > Filenames::fopen< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "string" > "wb"< / span > < span class = "plain" > );< / span >
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > handle< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) < / span > < span class = "identifier" > Errors::fatal_with_file< / span > < span class = "plain" > (< / span > < span class = "string" > "unable to write file"< / span > < span class = "plain" > , < / span > < span class = "identifier" > F< / span > < span class = "plain" > );< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > handle< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > BinaryFiles::try_to_open_for_writing< / span > < span class = "plain" > (< / span > < span class = "identifier" > filename< / span > < span class = "plain" > *< / span > < span class = "identifier" > F< / span > < span class = "plain" > ) {< / span >
< span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > Filenames::fopen< / span > < span class = "plain" > (< / span > < span class = "identifier" > F< / span > < span class = "plain" > , < / span > < span class = "string" > "wb"< / span > < span class = "plain" > );< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > void< / span > < span class = "plain" > < / span > < span class = "identifier" > BinaryFiles::close< / span > < span class = "plain" > (< / span > < span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > handle< / span > < span class = "plain" > ) {< / span >
2019-02-04 22:26:45 +00:00
< span class = "identifier" > fclose< / span > < span class = "plain" > (< / span > < span class = "identifier" > handle< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function BinaryFiles::open_for_reading appears nowhere else.< / p >
< p class = "endnote" > The function BinaryFiles::try_to_open_for_reading is used in < a href = "#SP7" > § 7< / a > , < a href = "#SP9" > § 9< / a > .< / p >
< p class = "endnote" > The function BinaryFiles::open_for_writing appears nowhere else.< / p >
< p class = "endnote" > The function BinaryFiles::try_to_open_for_writing is used in < a href = "#SP9" > § 9< / a > .< / p >
< p class = "endnote" > The function BinaryFiles::close is used in < a href = "#SP7" > § 7< / a > , < a href = "#SP9" > § 9< / a > .< / p >
< p class = "inwebparagraph" > < a id = "SP9" > < / a > < b > § 9. Copying. < / b > This achieves a binary copy of a file when we haven't got access to the shell,
or to system APIs.
< / p >
< pre class = "display" >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > BinaryFiles::copy< / span > < span class = "plain" > (< / span > < span class = "identifier" > filename< / span > < span class = "plain" > *< / span > < span class = "identifier" > from< / span > < span class = "plain" > , < / span > < span class = "identifier" > filename< / span > < span class = "plain" > *< / span > < span class = "identifier" > to< / span > < span class = "plain" > , < / span > < span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > suppress_error< / span > < span class = "plain" > ) {< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > ((< / span > < span class = "identifier" > from< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) || (< / span > < span class = "identifier" > to< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ))< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > Errors::fatal< / span > < span class = "plain" > (< / span > < span class = "string" > "files confused in copier"< / span > < span class = "plain" > );< / span >
2019-02-04 22:26:45 +00:00
2020-04-05 17:37:43 +00:00
< span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > FROM< / span > < span class = "plain" > = < / span > < span class = "identifier" > BinaryFiles::try_to_open_for_reading< / span > < span class = "plain" > (< / span > < span class = "identifier" > from< / span > < span class = "plain" > );< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > FROM< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) {< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > suppress_error< / span > < span class = "plain" > == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ) < / span > < span class = "identifier" > Errors::fatal_with_file< / span > < span class = "plain" > (< / span > < span class = "string" > "unable to read file"< / span > < span class = "plain" > , < / span > < span class = "identifier" > from< / span > < span class = "plain" > );< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > return< / span > < span class = "plain" > -1;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > FILE< / span > < span class = "plain" > *< / span > < span class = "identifier" > TO< / span > < span class = "plain" > = < / span > < span class = "identifier" > BinaryFiles::try_to_open_for_writing< / span > < span class = "plain" > (< / span > < span class = "identifier" > to< / span > < span class = "plain" > );< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > TO< / span > < span class = "plain" > == < / span > < span class = "identifier" > NULL< / span > < span class = "plain" > ) {< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > suppress_error< / span > < span class = "plain" > == < / span > < span class = "identifier" > FALSE< / span > < span class = "plain" > ) < / span > < span class = "identifier" > Errors::fatal_with_file< / span > < span class = "plain" > (< / span > < span class = "string" > "unable to write to file"< / span > < span class = "plain" > , < / span > < span class = "identifier" > to< / span > < span class = "plain" > );< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > return< / span > < span class = "plain" > -1;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > size< / span > < span class = "plain" > = < / span > < span class = "constant" > 0< / span > < span class = "plain" > ;< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > while< / span > < span class = "plain" > (< / span > < span class = "identifier" > TRUE< / span > < span class = "plain" > ) {< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > int< / span > < span class = "plain" > < / span > < span class = "identifier" > c< / span > < span class = "plain" > = < / span > < span class = "identifier" > fgetc< / span > < span class = "plain" > (< / span > < span class = "identifier" > FROM< / span > < span class = "plain" > );< / span >
< span class = "identifier" > if< / span > < span class = "plain" > (< / span > < span class = "identifier" > c< / span > < span class = "plain" > == < / span > < span class = "identifier" > EOF< / span > < span class = "plain" > ) < / span > < span class = "identifier" > break< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "identifier" > size< / span > < span class = "plain" > ++;< / span >
< span class = "identifier" > putc< / span > < span class = "plain" > (< / span > < span class = "identifier" > c< / span > < span class = "plain" > , < / span > < span class = "identifier" > TO< / span > < span class = "plain" > );< / span >
< span class = "plain" > }< / span >
2020-04-05 17:37:43 +00:00
< span class = "identifier" > BinaryFiles::close< / span > < span class = "plain" > (< / span > < span class = "identifier" > FROM< / span > < span class = "plain" > ); < / span > < span class = "identifier" > BinaryFiles::close< / span > < span class = "plain" > (< / span > < span class = "identifier" > TO< / span > < span class = "plain" > );< / span >
2020-04-05 00:03:36 +00:00
< span class = "identifier" > return< / span > < span class = "plain" > < / span > < span class = "identifier" > size< / span > < span class = "plain" > ;< / span >
2019-02-04 22:26:45 +00:00
< span class = "plain" > }< / span >
< / pre >
< p class = "inwebparagraph" > < / p >
< p class = "endnote" > The function BinaryFiles::copy appears nowhere else.< / p >
2019-03-12 23:32:12 +00:00
< hr class = "tocbar" >
< ul class = "toc" > < li > < i > (This section begins Chapter 6: Media.)< / i > < / li > < li > < a href = "6-id.html" > Continue with 'Image Dimensions'< / a > < / li > < / ul > < hr class = "tocbar" >
2019-03-18 11:16:10 +00:00
<!-- End of weave -->
2020-03-19 00:03:04 +00:00
< / main >
2019-02-04 22:26:45 +00:00
< / body >
< / html >