libu8/libu8fns.c at main · beingmeta/libu8 · GitHub

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
49
50
51
52
53
54
55
56
57
58
/* -*- Mode: C; Character-encoding: utf-8; -*- */

/* Copyright (C) 2004-2019 beingmeta, inc.
   Copyright (C) 2020-2022 Kenneth Haase (ken.haase@alum.mit.edu)
   This file is part of the libu8 UTF-8 unicode library.

   This program comes with absolutely NO WARRANTY, including implied
   warranties of merchantability or fitness for any particular
   purpose.

    Use, modification, and redistribution of this program is permitted
    under any of the licenses found in the the 'licenses' directory
    accompanying this distribution, including the GNU General Public License
    (GPL) Version 2 or the GNU Lesser General Public License.
*/

#include "libu8/u8source.h"
#include "libu8/libu8.h"

#ifndef _FILEINFO
#define _FILEINFO __FILE__
#endif

void init_timefns_c(void);
void init_filefns_c(void);
void init_netfns_c(void);
void init_srvfns_c(void);

void init_pathfns_c(void);
void init_fileio_c(void);
void init_rusage_c(void);
void init_digestfns_c(void);
void init_cryptofns_c(void);

U8_EXPORT int u8_initialize_fns()
{
  u8_register_source_file(_FILEINFO);

  init_timefns_c();
  init_filefns_c();
  init_netfns_c();
  init_srvfns_c();

  init_pathfns_c();
  init_fileio_c();
  init_rusage_c();
  init_digestfns_c();
  init_cryptofns_c();

  return 8069;
}

/* Emacs local variables
   ;;;  Local variables: ***
   ;;;  compile-command: "make debugging;" ***
   ;;;  indent-tabs-mode: nil ***
   ;;;  End: ***
*/