|
265
|
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 <config.h>
|
|
|
26
|
|
|
27 #include "lisp.h"
|
|
|
28
|
|
|
29 DEFUN ("compress", Fcompress, 1, 6, 0, /*
|
|
|
30 Return the compressed version of an object.
|
|
|
31 OBJECT is either a string or a buffer.
|
|
|
32 Optional argument LEVEL specifies how much to compress - valid range is 0 - 9.
|
|
|
33 Optional arguments START and END denote buffer positions for compressing
|
|
|
34 a portion of OBJECT. The optional CODING argument specifies the coding
|
|
|
35 system the text is to be represented in while computing the digest. This only
|
|
|
36 has meaning with MULE, and defaults to the current format of the data.
|
|
|
37 If ERROR-ME-NOT is nil, report an error if the coding system can't be
|
|
|
38 determined. Else assume binary coding if all else fails.
|
|
|
39 */
|
|
|
40 (object, level, start, end, coding, error_me_not))
|
|
|
41 {
|
|
|
42 return(Qnil);
|
|
|
43 }
|
|
|
44
|
|
|
45 DEFUN ("decompress", Fdecompress, 1, 5, 0, /*
|
|
|
46 Uncompress an object.
|
|
|
47 OBJECT is either a string or a buffer.
|
|
|
48 Optional arguments START and END denote buffer positions for decompressing
|
|
|
49 a portion of OBJECT. The optional CODING argument specifies the coding
|
|
|
50 system the text is to be represented in while computing the digest. This only
|
|
|
51 has meaning with MULE, and defaults to the current format of the data.
|
|
|
52 If ERROR-ME-NOT is nil, report an error if the coding system can't be
|
|
|
53 determined. Else assume binary coding if all else fails.
|
|
|
54 */
|
|
|
55 (object, start, end, coding, error_me_not))
|
|
|
56 {
|
|
|
57 return(Qnil);
|
|
|
58 }
|
|
|
59
|
|
|
60 void
|
|
|
61 syms_of (void)
|
|
|
62 {
|
|
|
63 DEFSUBR(Fcompress);
|
|
|
64 DEFSUBR(Fdecompress);
|
|
|
65 }
|
|
|
66
|
|
|
67 void
|
|
|
68 vars_of (void)
|
|
|
69 {
|
|
|
70 Fprovide (intern ("zlib"));
|
|
|
71 }
|
