diff options
| author | Hans Hagen <pragma@wxs.nl> | 2011-04-19 22:49:00 +0200 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2011-04-19 22:49:00 +0200 |
| commit | 2a7dc895b9ca40a38cc4bdb36be94f59bdbe5e4f (patch) | |
| tree | d3fd1915eb03161d81a6c3cbcb2970c921b25a3f /tex/context/base/l-io.lua | |
| parent | 690c595285ba89968a8af887cf2a074ebc943402 (diff) | |
| download | context-2a7dc895b9ca40a38cc4bdb36be94f59bdbe5e4f.tar.gz | |
beta 2011.04.19 22:49
Diffstat (limited to 'tex/context/base/l-io.lua')
| -rw-r--r-- | tex/context/base/l-io.lua | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tex/context/base/l-io.lua b/tex/context/base/l-io.lua index 88816648d..290dcec42 100644 --- a/tex/context/base/l-io.lua +++ b/tex/context/base/l-io.lua @@ -215,6 +215,12 @@ local function readnumber(f,n,m) elseif n == 12 then local a, b, c = readnumber(f,4), readnumber(f,4), readnumber(f,4) return 256*256 * a + 256 * b + c + elseif n == -2 then + local b, a = byte(f:read(2),1,2) + return 256*a + b + elseif n == -4 then + local d, c, b, a = byte(f:read(4),1,4) + return 256*256*256 * a + 256*256 * b + 256*c + d else return 0 end |