Itk - the [incr Tk] extension

Check-in [8b5571dcf5]
Login
Core Home Timeline Branches Tags Tickets Wiki

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Borrow genstubs tool from Itcl; Run it.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | dgp-linkage
Files: files | file ages | folders
SHA1: 8b5571dcf5f1f857ee2f8ea482664a6552dc9fed
User & Date: dgp 2015-02-24 17:55:12
Context
2015-02-25
13:16
Regenerate stubs declarations to get C++ linkage right. check-in: 4f4a0bbb92 user: dgp tags: itk-4-0-1-rc
2015-02-24
17:55
Borrow genstubs tool from Itcl; Run it. Closed-Leaf check-in: 8b5571dcf5 user: dgp tags: dgp-linkage
15:28
remove unreachable code check-in: 96f440d6e8 user: dgp tags: itk-4-0-1-rc
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to Makefile.in.

︙︙
126
127
128
129
130
131
132

133
134
135
136
137
138
139

SHLIB_LD_LIBS	= @SHLIB_LD_LIBS@
STLIB_LD	= @STLIB_LD@
TCL_DEFS	= @TCL_DEFS@
TCL_BIN_DIR	= @TCL_BIN_DIR@
TCL_SRC_DIR	= @TCL_SRC_DIR@
TK_SRC_DIR	= @TK_SRC_DIR@
TK_BIN_DIR	= @TK_BIN_DIR@


# Not used, but retained for reference of what libs Tcl required
TCL_LIBS	= @TCL_LIBS@

#========================================================================
# TCLLIBPATH seeds the auto_path in Tcl's init.tcl so we can test our
# package without installing.  The other environment variables allow us








>








126
127
128
129
130
131
132
133
134
135
136
137
138
139
140

SHLIB_LD_LIBS	= @SHLIB_LD_LIBS@
STLIB_LD	= @STLIB_LD@
TCL_DEFS	= @TCL_DEFS@
TCL_BIN_DIR	= @TCL_BIN_DIR@
TCL_SRC_DIR	= @TCL_SRC_DIR@
TK_SRC_DIR	= @TK_SRC_DIR@
TK_BIN_DIR	= @TK_BIN_DIR@
ITCL_TOOLS_DIR	= @itcl_SRC_DIR@/tools

# Not used, but retained for reference of what libs Tcl required
TCL_LIBS	= @TCL_LIBS@

#========================================================================
# TCLLIBPATH seeds the auto_path in Tcl's init.tcl so we can test our
# package without installing.  The other environment variables allow us
︙︙
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438

	  p=`basename $$p`; \
	  rm -f $(DESTDIR)$(pkglibdir)/$$p; \
	done
	list='$(bin_BINARIES)'; for p in $$list; do \
	  rm -f $(DESTDIR)$(bindir)/$$p; \
	done

genstubs: $(srcdir)/tools/genStubs.tcl $(srcdir)/generic/itk.decls
	@echo $(TCLSH) $(srcdir)/tools/genStubs.tcl $(srcdir)/generic $(srcdir)/generic/itk.decls
	@$(TCLSH) $(srcdir)/tools/genStubs.tcl $(srcdir)/generic $(srcdir)/generic/itk.decls


.PHONY: all binaries clean depend distclean doc install libraries test

# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:








|
|
|
<







423
424
425
426
427
428
429
430
431
432

433
434
435
436
437
438

	  p=`basename $$p`; \
	  rm -f $(DESTDIR)$(pkglibdir)/$$p; \
	done
	list='$(bin_BINARIES)'; for p in $$list; do \
	  rm -f $(DESTDIR)$(bindir)/$$p; \
	done

genstubs: $(ITCL_TOOLS_DIR)/genStubs.tcl $(srcdir)/generic/itk.decls
	@echo $(TCLSH) $(ITCL_TOOLS_DIR)/genStubs.tcl $(srcdir)/generic $(srcdir)/generic/itk.decls
	@$(TCLSH) $(ITCL_TOOLS_DIR)/genStubs.tcl $(srcdir)/generic $(srcdir)/generic/itk.decls


.PHONY: all binaries clean depend distclean doc install libraries test

# Tell versions [3.59,3.63) of GNU make to not export all variables.
# Otherwise a system limit (for SysV at least) may be exceeded.
.NOEXPORT:

Changes to generic/itkDecls.h. 

1
2
3
4
5
6




7
8
9
10
11
12
13


/* !BEGIN!: Do not edit below this line. */

#define ITK_STUBS_EPOCH 0
#define ITK_STUBS_REVISION 17





/*
 * Exported function declarations:
 */

/* 0 */
ITKAPI int		Itk_Init(Tcl_Interp *interp);
/* 1 */







>
>
>
>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17


/* !BEGIN!: Do not edit below this line. */

#define ITK_STUBS_EPOCH 0
#define ITK_STUBS_REVISION 17

#ifdef __cplusplus
extern "C" {
#endif

/*
 * Exported function declarations:
 */

/* 0 */
ITKAPI int		Itk_Init(Tcl_Interp *interp);
/* 1 */
︙︙
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

/* Slot 9 is reserved */
/* Slot 10 is reserved */
/* Slot 11 is reserved */
/* Slot 12 is reserved */
/* 13 */
ITKAPI int		Itk_ArchetypeInit(Tcl_Interp*interp);

typedef struct ItkStubHooks {
    const struct ItkIntStubs *itkIntStubs;
} ItkStubHooks;

typedef struct ItkStubs {
    int magic;
    int epoch;
    int revision;
    const struct ItkStubHooks *hooks;

    int (*itk_Init) (Tcl_Interp *interp); /* 0 */
    int (*itk_SafeInit) (Tcl_Interp *interp); /* 1 */
    void (*reserved2)(void);
    void (*reserved3)(void);
    void (*reserved4)(void);
    void (*reserved5)(void);
    void (*reserved6)(void);
    void (*reserved7)(void);
    void (*reserved8)(void);
    void (*reserved9)(void);
    void (*reserved10)(void);
    void (*reserved11)(void);
    void (*reserved12)(void);
    int (*itk_ArchetypeInit) (Tcl_Interp*interp); /* 13 */
} ItkStubs;

#ifdef __cplusplus
extern "C" {
#endif
extern const ItkStubs *itkStubsPtr;

#ifdef __cplusplus
}
#endif

#if defined(USE_ITK_STUBS)

/*








|







|

















<
<
<

>








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

/* Slot 9 is reserved */
/* Slot 10 is reserved */
/* Slot 11 is reserved */
/* Slot 12 is reserved */
/* 13 */
ITKAPI int		Itk_ArchetypeInit(Tcl_Interp*interp);

typedef struct {
    const struct ItkIntStubs *itkIntStubs;
} ItkStubHooks;

typedef struct ItkStubs {
    int magic;
    int epoch;
    int revision;
    const ItkStubHooks *hooks;

    int (*itk_Init) (Tcl_Interp *interp); /* 0 */
    int (*itk_SafeInit) (Tcl_Interp *interp); /* 1 */
    void (*reserved2)(void);
    void (*reserved3)(void);
    void (*reserved4)(void);
    void (*reserved5)(void);
    void (*reserved6)(void);
    void (*reserved7)(void);
    void (*reserved8)(void);
    void (*reserved9)(void);
    void (*reserved10)(void);
    void (*reserved11)(void);
    void (*reserved12)(void);
    int (*itk_ArchetypeInit) (Tcl_Interp*interp); /* 13 */
} ItkStubs;




extern const ItkStubs *itkStubsPtr;

#ifdef __cplusplus
}
#endif

#if defined(USE_ITK_STUBS)

/*
︙︙

Changes to generic/itkIntDecls.h. 

1
2
3
4
5
6




7
8
9
10
11
12
13


/* !BEGIN!: Do not edit below this line. */

#define ITKINT_STUBS_EPOCH 0
#define ITKINT_STUBS_REVISION 17





/*
 * Exported function declarations:
 */

/* Slot 0 is reserved */
/* Slot 1 is reserved */
/* 2 */







>
>
>
>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17


/* !BEGIN!: Do not edit below this line. */

#define ITKINT_STUBS_EPOCH 0
#define ITKINT_STUBS_REVISION 17

#ifdef __cplusplus
extern "C" {
#endif

/*
 * Exported function declarations:
 */

/* Slot 0 is reserved */
/* Slot 1 is reserved */
/* 2 */
︙︙
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72

ITKAPI void		Itk_OptListRemove(ItkOptList*olist,
				Tcl_HashEntry *entry);

typedef struct ItkIntStubs {
    int magic;
    int epoch;
    int revision;
    const struct ItkIntStubHooks *hooks;

    void (*reserved0)(void);
    void (*reserved1)(void);
    int (*itk_ConfigBodyCmd) (ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 2 */
    int (*itk_UsualCmd) (ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 3 */
    int (*itk_ClassOptionDefineCmd) (ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 4 */
    int (*itk_ClassOptionIllegalCmd) (ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 5 */








|








62
63
64
65
66
67
68
69
70
71
72
73
74
75
76

ITKAPI void		Itk_OptListRemove(ItkOptList*olist,
				Tcl_HashEntry *entry);

typedef struct ItkIntStubs {
    int magic;
    int epoch;
    int revision;
    void *hooks;

    void (*reserved0)(void);
    void (*reserved1)(void);
    int (*itk_ConfigBodyCmd) (ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 2 */
    int (*itk_UsualCmd) (ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 3 */
    int (*itk_ClassOptionDefineCmd) (ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 4 */
    int (*itk_ClassOptionIllegalCmd) (ClientData cdata, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]); /* 5 */
︙︙
80
81
82
83
84
85
86
87
88
89
90

91
92
93
94
95
96
97

    void (*reserved13)(void);
    void (*itk_OptListInit) (ItkOptList*olist, Tcl_HashTable *options); /* 14 */
    void (*itk_OptListFree) (ItkOptList*olist); /* 15 */
    void (*itk_OptListAdd) (ItkOptList*olist, Tcl_HashEntry *entry); /* 16 */
    void (*itk_OptListRemove) (ItkOptList*olist, Tcl_HashEntry *entry); /* 17 */
} ItkIntStubs;

#ifdef __cplusplus
extern "C" {
#endif
extern const ItkIntStubs *itkIntStubsPtr;

#ifdef __cplusplus
}
#endif

#if defined(USE_ITK_STUBS)

/*








<
<
<

>








84
85
86
87
88
89
90



91
92
93
94
95
96
97
98
99

    void (*reserved13)(void);
    void (*itk_OptListInit) (ItkOptList*olist, Tcl_HashTable *options); /* 14 */
    void (*itk_OptListFree) (ItkOptList*olist); /* 15 */
    void (*itk_OptListAdd) (ItkOptList*olist, Tcl_HashEntry *entry); /* 16 */
    void (*itk_OptListRemove) (ItkOptList*olist, Tcl_HashEntry *entry); /* 17 */
} ItkIntStubs;




extern const ItkIntStubs *itkIntStubsPtr;

#ifdef __cplusplus
}
#endif

#if defined(USE_ITK_STUBS)

/*
︙︙

This page was generated in about 0.011s by Fossil 2.24 [f4ffefe708] 2024-04-17 14:02:19