|
428
|
1 /* zlib interface for XEmacs.
|
|
|
2 Copyright (C) 1998 Free Software Foundation, Inc.
|
|
|
3
|
|
|
4 This file is part of XEmacs.
|
|
|
5
|
|
|
6 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
7 under the terms of the GNU General Public License as published by the
|
|
|
8 Free Software Foundation; either version 2, or (at your option) any
|
|
|
9 later version.
|
|
|
10
|
|
|
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
14 for more details.
|
|
|
15
|
|
|
16 You should have received a copy of the GNU General Public License
|
|
|
17 along with XEmacs; see the file COPYING. If not, write to
|
|
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
19 Boston, MA 02111-1307, USA. */
|
|
|
20
|
|
|
21 /* Synched up with: Not in FSF. */
|
|
|
22
|
|
|
23 /* Author: William Perry <wmperry@aventail.com> */
|
|
|
24
|
|
|
25 #include <emodules.h>
|
|
|
26
|
|
|
27 DEFUN ("compress", Fcompress, 1, 6, 0, /*
|
|
|
28 Return the compressed version of an object.
|
|
|
29 OBJECT is either a string or a buffer.
|
|
|
30 Optional argument LEVEL specifies how much to compress - valid range is 0 - 9.
|
|
|
31 Optional arguments START and END denote buffer positions for compressing
|
|
|
32 a portion of OBJECT. The optional CODING argument specifies the coding
|
|
|
33 system the text is to be represented in while computing the digest. This only
|
|
|
34 has meaning with MULE, and defaults to the current format of the data.
|
|
|
35 If ERROR-ME-NOT is nil, report an error if the coding system can't be
|
|
|
36 determined. Else assume binary coding if all else fails.
|
|
|
37 */
|
|
|
38 (object, level, start, end, coding, error_me_not))
|
|
|
39 {
|
|
|
40 return(Qnil);
|
|
|
41 }
|
|
|
42
|
|
|
43 DEFUN ("decompress", Fdecompress, 1, 5, 0, /*
|
|
|
44 Uncompress an object.
|
|
|
45 OBJECT is either a string or a buffer.
|
|
|
46 Optional arguments START and END denote buffer positions for decompressing
|
|
|
47 a portion of OBJECT. The optional CODING argument specifies the coding
|
|
|
48 system the text is to be represented in while computing the digest. This only
|
|
|
49 has meaning with MULE, and defaults to the current format of the data.
|
|
|
50 If ERROR-ME-NOT is nil, report an error if the coding system can't be
|
|
|
51 determined. Else assume binary coding if all else fails.
|
|
|
52 */
|
|
|
53 (object, start, end, coding, error_me_not))
|
|
|
54 {
|
|
|
55 return(Qnil);
|
|
|
56 }
|
|
|
57
|
|
|
58 void
|
|
|
59 syms_of_zlib (void)
|
|
|
60 {
|
|
|
61 DEFSUBR(Fcompress);
|
|
|
62 DEFSUBR(Fdecompress);
|
|
|
63 }
|
|
|
64
|
|
|
65 void
|
|
|
66 vars_of_zlib (void)
|
|
|
67 {
|
|
|
68 Fprovide (intern ("zlib"));
|
|
|
69 }
|
