1// Macintosh port of J. Loewer's tDOM lib for Tcl
2// Author: Bernard Desgraupes
3// e-mail: bdesgraupes@easyconnect.fr
4// web-page: http://webperso.easyconnect.fr/bdesgraupes/
5// Last modification : 2003-02-16 19:36:06
6
7#include <Types.r>
8#include <SysTypes.r>
9
10#define TDOM_MAJOR 	0
11#define TDOM_MINOR 	7
12#define TDOM_SUBMINOR 6
13#define TCL_MAJOR 		8
14#define TCL_MINOR 		4
15
16// developStage, alphaStage, betaStage, finalStage
17#define TDOM_STAGE 		betaStage
18
19#if	(TDOM_STAGE == developStage)
20#		define	TDOM_STAGE_CODE	'd'
21#elif	(TDOM_STAGE == alphaStage)
22#		define	TDOM_STAGE_CODE	'a'
23#elif	(TDOM_STAGE == betaStage)
24#	 	define	TDOM_STAGE_CODE	'b'
25#elif	(TDOM_STAGE == finalStage)
26#	 	define	TDOM_STAGE_CODE	'f'
27#endif
28
29#define	TDOM_MAJOR_BCD	((TDOM_MAJOR / 10) * 16) + (TDOM_MAJOR % 10)
30#define	TDOM_MINOR_BCD	(TDOM_MINOR * 16)
31
32// #define	TDOM_VERSION_STRING	$$Format("%d.%d%c%d", TDOM_MAJOR, TDOM_MINOR, \
33// 											TDOM_STAGE_CODE, TDOM_SUBMINOR)
34
35#define	TDOM_VERSION_STRING	$$Format("%d.%d.%d", TDOM_MAJOR, TDOM_MINOR, TDOM_SUBMINOR)
36
37resource 'vers' (1) {
38	TDOM_MAJOR_BCD, 
39	TDOM_MINOR_BCD,
40	TDOM_STAGE, 
41	0x00, 
42	verUS,
43	TDOM_VERSION_STRING,
44	$$Format("%s %s � %d\nported to Mac by B. Desgraupes", 
45					"tDOM", TDOM_VERSION_STRING, $$YEAR)
46};
47
48
49resource 'vers' (2) {
50	TDOM_MAJOR_BCD, 
51	TDOM_MINOR_BCD,
52	TDOM_STAGE, 
53	0x00, 
54	verUS,
55	TDOM_VERSION_STRING,
56	"Mac port of J. Loewer's tDOM lib"
57};
58
59
60/*
61 * The -16397 string will be displayed by Finder when a user
62 * tries to open the shared library. The string should
63 * give the user a little detail about the library's capabilities
64 * and enough information to install the library in the correct location.  
65 * A similar string should be placed in all shared libraries.
66 */
67resource 'STR ' (-16397, purgeable) {
68	"tDOM  Library\n\n"
69	"This library provides an XML/DOM/XPath/XSLT implementation for Tcl."
70	" It should be placed in the �Tool Command Language� folder "
71	"within the Extensions folder. To load it: "
72	"'package require tdom'"
73};
74
75data 'TEXT' (1000,"pkgIndex",purgeable, preload) {
76		$$Format("# Tcl package index file, version 1.0\npackage ifneeded tdom %d.%d.%d \"load [list [file join $dir tDOM%d.%d[info sharedlibextension]]] Tdom\"\n", TDOM_MAJOR, TDOM_MINOR, TDOM_SUBMINOR, TCL_MAJOR, TCL_MINOR)
77};
78
79