|
1 | 1 | module JPEG; |
2 | 2 |
|
3 | | -use Color8: { Color8, shape }; |
4 | | -use File: { File, fopen, fclose }; |
| 3 | +use Color8: { Color8, shape }; |
| 4 | +use File: { File, fopen, fclose }; |
5 | 5 | use RuntimeError: { error }; |
6 | | -use ScalarArith: { == }; |
7 | | -use String: { string }; |
| 6 | +use ScalarArith: { == }; |
| 7 | +use String: { string }; |
8 | 8 |
|
9 | | -export {readJPEG, writeJPEG}; |
| 9 | +export { readJPEG, writeJPEG }; |
10 | 10 |
|
11 | | -external Color8[.,.] readJPEGFile( File &stream ); |
| 11 | +external Color8[.,.] readJPEGFile(File &stream); |
12 | 12 | #pragma effect FileSystem::TheFileSystem |
13 | 13 | #pragma linkobj "JPEG/jpeg.o" |
14 | 14 | #pragma linkname "SAC_JPEG_jpeg2array" |
15 | 15 | #pragma linkwith "jpeg" |
16 | 16 | #pragma refcounting[0] |
17 | 17 |
|
18 | | -external void writeJPEGFile( File &stream , Color8[.,.] image, int[2] shp, int quality); |
| 18 | +external void writeJPEGFile(File &stream, Color8[.,.] image, int[2] shp, int quality); |
19 | 19 | #pragma effect FileSystem::TheFileSystem |
20 | 20 | #pragma linkobj "JPEG/jpeg.o" |
21 | 21 | #pragma linkname "SAC_JPEG_array2jpeg" |
22 | 22 | #pragma linkwith "jpeg" |
23 | 23 |
|
24 | 24 | inline |
25 | | -Color8[.,.] readJPEG( string name) |
| 25 | +Color8[.,.] readJPEG(string name) |
26 | 26 | { |
27 | | - err, fp = fopen( name, "rb"); |
28 | | - if ( SysErr::fail(err) == true) { |
29 | | - error( (int)err, "Error occured when trying to open file %s for reading", |
30 | | - name); |
31 | | - } |
32 | | - |
33 | | - ret = readJPEGFile( fp); |
34 | | - fclose( fp); |
35 | | - return( ret); |
| 27 | + err, fp = fopen(name, "rb"); |
| 28 | + if (SysErr::fail(err)) { |
| 29 | + error((int)err, "Error occured when trying to open file %s for reading", name); |
| 30 | + } |
| 31 | + |
| 32 | + ret = readJPEGFile(fp); |
| 33 | + fclose(fp); |
| 34 | + return(ret); |
36 | 35 | } |
37 | 36 |
|
38 | 37 | inline |
39 | | -void writeJPEG( Color8[.,.] img, string name, int quality) |
| 38 | +void writeJPEG(Color8[.,.] img, string name, int quality) |
40 | 39 | { |
41 | | - err, fp = fopen( name, "wb+"); |
42 | | - if ( SysErr::fail(err) == true) { |
43 | | - error( (int)err, "Error occured when trying to open file %s for writing", |
44 | | - name); |
45 | | - } |
46 | | - |
47 | | - writeJPEGFile( fp, img, shape(img), quality); |
48 | | - fclose( fp); |
| 40 | + err, fp = fopen(name, "wb+"); |
| 41 | + if (SysErr::fail(err)) { |
| 42 | + error((int)err, "Error occured when trying to open file %s for writing", name); |
| 43 | + } |
| 44 | + |
| 45 | + writeJPEGFile(fp, img, shape(img), quality); |
| 46 | + fclose(fp); |
49 | 47 | } |
0 commit comments