File: c_api.h

package info (click to toggle)
libmath-int128-perl 0.22-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 604 kB
  • sloc: perl: 2,614; ansic: 340; makefile: 3
file content (29 lines) | stat: -rw-r--r-- 892 bytes parent folder | download
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

/*
 * c_api.h - This file is in the public domain
 * Author: "Salvador Fandino <sfandino@yahoo.com>, Dave Rolsky <autarch@urth.org>"
 *
 * Generated on: 2015-04-07 16:08:19
 * Math::Int128 version: 0.22
 */

#if !defined (C_API_H_INCLUDED)
#define C_API_H_INCLUDED

static void
init_c_api(pTHX) {
    HV *hv = get_hv("Math::Int128::C_API", TRUE|GV_ADDMULTI);
    hv_store(hv, "min_version", 11, newSViv(1), 0);
    hv_store(hv, "max_version", 11, newSViv(1), 0);
    hv_store(hv, "SvI128", 6, newSViv(PTR2IV(&SvI128)), 0);
    hv_store(hv, "SvI128OK", 8, newSViv(PTR2IV(&SvI128OK)), 0);
    hv_store(hv, "SvU128", 6, newSViv(PTR2IV(&SvU128)), 0);
    hv_store(hv, "SvU128OK", 8, newSViv(PTR2IV(&SvU128OK)), 0);
    hv_store(hv, "newSVi128", 9, newSViv(PTR2IV(&newSVi128)), 0);
    hv_store(hv, "newSVu128", 9, newSViv(PTR2IV(&newSVu128)), 0);

}

#define INIT_C_API init_c_api(aTHX)

#endif