pythonami/include/py68k_ext.h at master · rozensoftware/pythonami · 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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
/* 2026 by Piotr Rozentreter (Rozsoft) */

/*
 * Public LoadSeg extension ABI for Amiga pythonami plugins (*.py68k).
 *
 * After LoadSeg(path), the first hunk is laid out as:
 *   ULONG next_seg;          // AmigaDOS seglist link (do not touch)
 *   Py68ExtHeader header;    // must begin immediately after next_seg
 *
 * Extension authors compile against this header (and py68k_types /
 * py68k_status / py68k_value) but do not link pythonami. Construct scalar
 * results with the helpers below. For owned str/list results, use
 * Py68ExtServices via py68_ext_services(runtime) (D-0048).
 * Arguments are borrowed; return one owned Py68Value. Keep the library
 * module reachable while calling exports.
 */

#ifndef PY68K_EXT_H
#define PY68K_EXT_H

#include "py68k_status.h"
#include "py68k_types.h"
#include "py68k_value.h"

#define PY68_EXT_MAGIC 0x50593638UL /* 'PY68' */
#define PY68_EXT_ABI_VERSION 1

struct Py68Runtime;

typedef Py68Status (*Py68ExtCallback)(struct Py68Runtime *runtime,
                                      Py68U16 argument_count,
                                      Py68Value *arguments,
                                      Py68Value *result);

typedef struct Py68ExtExport {
    const char *name;
    Py68U16 min_args;
    Py68U16 max_args;
    Py68ExtCallback function;
} Py68ExtExport;

typedef struct Py68ExtHeader {
    Py68U32 magic;
    Py68U16 abi_version;
    Py68U16 export_count;
    const Py68ExtExport *exports;
} Py68ExtHeader;

/*
 * Runtime services for plugins that cannot link the interpreter (D-0048).
 * Pointers are filled by pythonami; plugins only call through this table.
 * string_new_copy / list_new return one owned value in *out.
 * string_borrow returns 1 and writes borrowed data/length, or 0 if not a str.
 * list_append_copy retains a copy of item into list (list must be a list value).
 */
typedef struct Py68ExtServices {
    Py68Status (*string_new_copy)(struct Py68Runtime *runtime,
                                  const char *data, Py68U32 length,
                                  Py68Value *out);
    int (*string_borrow)(struct Py68Runtime *runtime, Py68Value value,
                         const char **data, Py68U32 *length);
    Py68Status (*list_new)(struct Py68Runtime *runtime, Py68Value *out);
    Py68Status (*list_append_copy)(struct Py68Runtime *runtime,
                                   Py68Value list, Py68Value item);
    Py68U32 (*list_count)(struct Py68Runtime *runtime, Py68Value list);
    Py68Status (*list_get_copy)(struct Py68Runtime *runtime, Py68Value list,
                                Py68I32 index, Py68Value *out);
    void (*value_release)(struct Py68Runtime *runtime, Py68Value value);
} Py68ExtServices;

/* Must match the first field of Py68Runtime. */
typedef struct Py68ExtRuntimeHead {
    const Py68ExtServices *ext_services;
} Py68ExtRuntimeHead;

/* Interpreter-only: install the default services table on a runtime. */
void py68_ext_services_install(struct Py68Runtime *runtime);

#ifndef PY68K_EXT_OMIT_HELPERS
static const Py68ExtServices *py68_ext_services(struct Py68Runtime *runtime)
{
    if (runtime == 0)
        return 0;
    return ((const Py68ExtRuntimeHead *)runtime)->ext_services;
}

/* Scalar result helpers (C89; safe to copy into extension TUs). */
static Py68Value py68_ext_value_none(void)
{
    Py68Value value;
    value.type = PY68_VALUE_NONE;
    value.reserved = 0;
    value.as.integer = 0;
    return value;
}

static Py68Value py68_ext_value_bool(int truth)
{
    Py68Value value;
    value.type = PY68_VALUE_BOOL;
    value.reserved = 0;
    value.as.integer = truth != 0;
    return value;
}

static Py68Value py68_ext_value_int(Py68I32 integer)
{
    Py68Value value;
    value.type = PY68_VALUE_INT;
    value.reserved = 0;
    value.as.integer = integer;
    return value;
}
#endif /* PY68K_EXT_OMIT_HELPERS */

#endif