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