blob: 1fa3d84ceafbc5f6499acce00eeb896aaed0b7de (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
;; This file is part of scheme-extractor.
;; scheme-extractor is a partial Scheme port of libextractor.
;; A previous iteration of this file is part of libextractor.
;; Copyright (C) 2002-2017 Vidyut Samanta and Christian Grothoff
;; Copyright (C) 2020 GNUnet e.V.
;;
;; libextractor is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published
;; by the Free Software Foundation; either version 3, or (at your
;; option) any later version.
;;
;; libextractor is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with libextractor; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;; SPDX-License-Identifier: GPL-3.0-or-later
;; Upstream source: src/include/extractor.h
(library (gnu extractor metaformats)
(export meta-format?
meta-format->integer
integer->meta-format
METAFORMAT_UNKNOWN
METAFORMAT_UTF8
METAFORMAT_BINARY
METAFORMAT_C_STRING)
(import (gnu extractor enum))
(define-wrapped-enum (<meta-format> meta-format? integer->meta-format
meta-format->integer)
(#:max 4294967295)
(#:known
;; Format is unknown.
(METAFORMAT_UNKNOWN 0)
;; 0-terminated, UTF-8 encoded string. "data_len"
;; is strlen(data)+1.
(METAFORMAT_UTF8 1)
;; Some kind of binary format, see given Mime type.
(METAFORMAT_BINARY 2)
;; 0-terminated string. The specific encoding is unknown.
;; "data_len" is strlen (data)+1.
(METAFORMAT_C_STRING 3))))
|
