neotcl8.1.1-lite/CVS/ 40755 15471 0 0 6752362621 12667 5ustar damonwheelneotcl8.1.1-lite/CVS/Root100644 15471 0 26 6752336004 13564 0ustar damonwheelneoworld.net:/usr/cvs neotcl8.1.1-lite/CVS/Repository100644 15471 0 56 6752336004 15023 0ustar damonwheel/usr/cvs/NEOSOFT/nws/nws-3.2/neotcl8.1.1-lite neotcl8.1.1-lite/CVS/Entries100664 15471 0 475 6752362621 14310 0ustar damonwheel/Makefile.in/1.4/Thu Aug 5 16:29:56 1999// /configure/1.7/Thu Aug 5 16:29:56 1999// /configure.in/1.7/Thu Aug 5 16:29:56 1999// D/config//// D/gd1.2//// D/itcl3.0.1//// D/neo8.1.1//// D/tcl8.1.1//// D/tclX8.1.1//// D/tk8.1.1//// /README/1.2/Thu Aug 5 19:26:21 1999// /RELEASE_NOTES/1.2/Thu Aug 5 19:26:53 1999// neotcl8.1.1-lite/Makefile.in100664 15471 0 3521 6752336004 14375 0ustar damonwheel# # This file is the toplevel Makefile for [incr Tcl]. If it has the # name "Makefile.in" then it is a template for a Makefile; to generate # the actual Makefile, run "./configure", which is a configuration # script generated by the "autoconf" program (constructs like # "@foo@" will get replaced in the actual Makefile. # # RCS: $Id: Makefile.in,v 1.4 1999/07/07 20:26:31 damon Exp $ # Default top-level directories in which to install architecture- # specific files (exec_prefix) and machine-independent files such # as scripts (prefix). The values specified here may be overridden # at configure-time with the --exec-prefix and --prefix options # to the "configure" script. prefix = @prefix@ exec_prefix = @exec_prefix@ subdirs = @subdirs@ alldirs = @alldirs@ # Some versions of make, like SGI's, use the following variable to # determine which shell to use for executing commands: SHELL = /bin/sh all: for dir in $(subdirs) ; do \ (cd $$dir; $(MAKE) $@) \ done; test: for dir in $(subdirs) ; do \ (cd $$dir; $(MAKE) $@) \ done; install: for dir in $(subdirs) ; do \ (cd $$dir; $(MAKE) $@) \ done; install-binaries: for dir in $(subdirs) ; do \ (cd $$dir; $(MAKE) $@) \ done; install-libraries: for dir in $(subdirs) ; do \ (cd $$dir; $(MAKE) $@) \ done; clean: for dir in $(alldirs) ; do \ echo cleaning $$dir; \ (cd $$dir; $(MAKE) $@) \ done; distclean: rm -f Makefile config.log config.status config.cache for dir in $(alldirs) ; do \ echo dist cleaning $$dir; \ (cd $$dir; $(MAKE) $@) \ done; # # Target to create a proper Tcl distribution from information in the # master source directory. DISTDIR must be defined to indicate where # to put the distribution. # configure: configure.in autoconf for dir in $(subdirs) ; do \ (cd $$dir; autoconf) \ done; # DO NOT DELETE THIS LINE -- make depend depends on it. neotcl8.1.1-lite/README100664 15471 0 7306 6752362535 13225 0ustar damonwheelNeoSoft Tcl Lite Package Integration 1999 This is the NeoSoft, Inc. (Houston, TX, USA) release of tcl8.1-based software. It is available from ftp://ftp.neosoft.com/pub/tcl/neosoft/neotcl/. It consists of the following packages integrated together: Tcl8.1.1 Tk8.1.1 TclX8.1.1 Neo8.1.1 (NeoSoft-authored Tcl extensions, also includes db2.7.5) Itcl3.0.1 gd1.2 (a graphics drawing library) For more information on changes for this release, see the file RELEASE_NOTES in this directory. From the top (neotcl8.1.1/src) directory, it configures, builds and installs all of the above packages. We have tested the build on the following systems: Sparc Solaris 2.5/Sun Pro C compiler FreeBSD 2.2.2/gcc 2.7.2.1 SGI IRIX 6.2/SGI compiler Adding other packages is a relatively simple matter. Note the following general characteristics of NeoSoft integrated Tcl vs. Standard Tcl: 1. Written or extended configure scripts for dp, blt, and gd, including appropriate adjustments in Makefiles, adding or modifying install scripts, etc. You will find a new script in various places, called 'install-pkgindex', which will correctly slice out old information from the main pkgIndex.tcl file and replace it with the new pkgindex information. Also, while Dp's attempt at a graphical configuration and installation interface continues to be a noble (and interesting) attempt, we added back in the stuff to allow an installation to be done normally (and thus be integrated with our release). Note that BLT-unoff as delivered wants to install into its own hierarchy, and it has changed to install into all the same directories as everything else. 2. The Neo package continues to contain db2.7.5 which builds from the configure script. The Neo package supports Tcl commands for talking to a db file, and not all systems supply a useful db library. If you want to use your system-supplied libdb.a (or libdb.so) you may use the configure option --with-db=system. If your system has a libdb* file, it will use it (but no guarantees that yours is good). You may also use a db-2.x.y release in db185 compatability mode. IMPORTANT NOTE: Autoconf for db detects BYTE_ORDER. Some systems we have shipped with DB libraries did not configure the byte order explicitly, which means it defaulted to BIG_ENDIAN. If BYTE_ORDER == LITTLE_ENDIAN, DB swaps bytes around. This makes it slower, and incompatable. I can think of no reason to do this other than to support access from heterogeneous systems via NFS. If this turns out to be a problem for you, go to the auto directory (listed below) and modify the include/compat.h there manually to set the BYTE_ORDER. 4. See our Tcl web page at http://www.neosoft.com/tcl for information about NeoSoft commercial support and testing metrics. 5. See the individual packages' README, CHANGES (etc.) files for more information on restrictions, enhancements, etc. 6. In most cases, this should just configure and build. If you have any problems, please let us know at tcl-project@neosoft.com. ACKNOWLEDGMENTS Many thanks to the Tcl community, without which Tcl would not exist. Especially: John Ousterhout and the many - Tcl and Tk Sun Microsystems for their continuing support Mark Diekhans and Karl Lehenbauer - Extended Tcl (more and more of which keeps getting subsumed into core Tcl!) Michael McClennan - [incr tcl] Brian C. Smith/Cornell University and Lawrence A. Rowe/University of California at Berkeley Distributed Processing extensions Don Libes/NIST - Expect Tom Boutell and the Quest Center At Cold Spring Harbor Labs Graphics Drawing library (gd) Mark L. Ulferts/DSC Communications Corp and others - [incr Widgets] And the Tcl community at large, which continues to inspire and contribute to the cause. neotcl8.1.1-lite/RELEASE_NOTES100664 15471 0 14065 6752362575 14344 0ustar damonwheelAug 05, 1999: Release of NeoTcl8.1.1 Lite 1. Package versions: Updated: Tcl8.1.1 Tk8.1.1 TclX8.1.1 Neo8.1.1 Same as before: gd1.2 New packages added to integration: Itcl3.0.1 --------------------------------------------------------------------- Jan 23, 1998: Initial release of NeoTcl8.0.1998Q1 1. Package versions: Updated: tcl8.0p2 tk8.0p2 tclX8.0.3a1 dp4.0b2 neo8.0.0 (also includes db.1.85) Same as before: expect-5.25 gd1.2 New packages added to integration: blt8.0-unoff scotty-2.1.7 2. Change installation so that configure makes and installs tcl and tk before proceeding with configuration of the other packages. This was essential to get BLT and Scotty to configure correctly. 3. Neo8.0.0 has new Tcl interface: for LDAP. If you have LDAP libraries, such as the University of Michigan code built on your system (in /usr/local) Neo8.0.0's configure will detect this and include code to create LDAP commands. This is experimental code, and documentation is sketchy (see neoXldap.txt in neo8.0.0/generic) and could change in the future (or be dropped). Many of the commands in the Neo package have been rewritten to use the object interface. 4. Modified Blt8.0-unoff to install regularly. For some reason, the way it is relased, it wants to have its own hierarchy. Also modified enumeration definitions to remove trailing commas in bltInt.h and bltGraph.h to clean up warning noises from SGI's C compiler. Also modified bltInt.h to use take the C++ method of doing VARARGS for the SGI. Actually, it looks like this should be valid for C++ or ANSI C, but ANSI C does not accept a (...) prototype without a leading argument, and bltInt.h does this. 5. Modified Dp4.0, to add back in ability to install in the standard way. 6. Now the Neo package builds and installs a neowish executable. This is often needed since the Neo package may access static libraries, such as a db-2.3.16 libdb.a (it doesn't build a shared library), libldap.a and liblber.h (University of Michigan LDAP libraries). Since a 'package require Neo' would fail in these cases, use these instead. --------------------------------------------------------------------- Oct 20, 1997: Final release of NeoTcl7.6.1997Q4 1. Upgrades to newer packages: itcl2.2p2 tcl7.6 tk4.2 itcl2.2 (with itcl subdirs removed, includes iwidgets) tclX7.6.0 expect-5.25 dp4.0b1 gd1.2 (a graphics drawing library) neo7.6.0 (neosoft-authored tcl Extensions, also includes db.1.85) 2. Added --without-pkg commands to allow individual Tcl packages to be elided from the build from the configure command. 3. Now when --enable-shared is used, the DB package is also built as a shared library. 4. Added some self-defense into configure script so that certain wrong things (eg. $SHELL not an absolute path) are pointed out. 5. Added back in "make install" rules to Dp4.0b1, as well as fixed "package require Dp". 6. Modified Neo package to build a "neowish" executable (unless --without-x or --without-tk is given to its configure). Needed because Neo tends to use libraries which on some systems are only in static version (eg. libcrypt.a on Solaris 2.5.1), and besides, Tk isn't designed to load dynamically. --------------------------------------------------------------------- Oct 20, 1996: Final release of NeoTcl7.5.1996Q4 Changes in configure for tcl7.5 and tk4.1 to assist the correct config of Expect. (Needed changes that weren't in the Itcl2.1 versions). Modify 'make clean' of Expect to remove new file generated (pkgIndex.tcl). --------------------------------------------------------------------- Oct 13, 1996: NeoTcl7.5 Beta 2 release Move the Neo7.5.1 package to patch level 1. --------------------------------------------------------------------- Sep 27, 1996: NeoTcl7.5 Beta 1 release --------------------------------------------------------------------- CHANGES SINCE NeoSoft Tcl7.3e release of October 23, 1995 (there have been minor release changes since 10/23/95, but all features remain the same). This is a major release. In particular, it is based on [Incr Tcl] 2.1, Tcl7.5, Tk3.6, and tclX7.5.*. Our previous release was based on Tcl7.3, Tk3.6, [incr Tcl] 1.5, and tclX7.3b. Tcl7.3/Tk3.6 were for a long time the standard core upon which all other Tcl packages were based. The last two years have seen a flurry of activity which continues at breakneck pace. We will continue to track Tcl and the latest upgrades as they come out. One should examine the manual pages for Tcl and Tk to get an idea of how things have changed. To highlight a few changes and give anyone who hasn't been following them an idea of how different they are, some examples: Some new features of the core Tcl7.5/Tk4.1 vs Tcl7.3/Tk3.6: - The event loop has been moved from Tk to Tcl - The "fileevent" command for setting event triggers on files - The "load" and "package" commands for dynamically loading packages - Support for shared libraries. - Tk Bindings behave differently and sometimes incompatably. - The "socket" command has been added to core Tcl, subsuming some of the TclX "server*" commands. Incr Tcl 2.1 adds an entire namespace facility to the core Tcl. This feature is always present regardless of which interpreter you run. In addition, Incr Tcl builds Itcl, Itk, and Iwidgets which are all loadable packages. This is an incredibly brief list, so it cannot be understated that if you are porting Tcl7.3/Tk3.6/etc. to the new release, there are portability issues as well as new ways to use Tcl which can shorten the length of your existing code, and do things which you couldn't before. See the README and CHANGES files in the individual package distributions. NEOSOFT TCL CHANGES This is a final release, and has the following missing features: - Tcl Source Code Encryption subsystem You should contact neosoft at info@neosoft.com should you require this feature. It is also worth re-stating that the Berkeley DB library build may possibly build with a different byte order due to autoconf detecting the correct ENDIAN'ness of your machine, causing it to be unable to open db files written by previous versions. Randy Kunkee NeoSoft, Inc. neotcl8.1.1-lite/config/ 40755 15471 0 0 6752336005 13476 5ustar damonwheelneotcl8.1.1-lite/config/CVS/ 40755 15471 0 0 6752336005 14131 5ustar damonwheelneotcl8.1.1-lite/config/CVS/Root100644 15471 0 26 6752336005 15032 0ustar damonwheelneoworld.net:/usr/cvs neotcl8.1.1-lite/config/CVS/Repository100644 15471 0 65 6752336005 16271 0ustar damonwheel/usr/cvs/NEOSOFT/nws/nws-3.2/neotcl8.1.1-lite/config neotcl8.1.1-lite/config/CVS/Entries100644 15471 0 303 6752336005 15536 0ustar damonwheel/config.guess/1.1.1.1/Thu Aug 5 16:29:57 1999// /config.sub/1.1.1.1/Thu Aug 5 16:29:57 1999// /install-sh/1.1.1.1/Thu Aug 5 16:29:57 1999// /mkinstalldirs/1.1.1.1/Thu Aug 5 16:29:57 1999// D neotcl8.1.1-lite/config/config.guess100775 15471 0 32325 6752336005 16142 0ustar damonwheel#!/bin/sh # Attempt to guess a canonical system name. # Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. # # This file is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Written by Per Bothner . # The master version of this file is at the FSF in /home/gd/gnu/lib. # # This script attempts to guess a canonical system name similar to # config.sub. If it succeeds, it prints the system name on stdout, and # exits with 0. Otherwise, it exits with 1. # # The plan is that this can be called by configure scripts if you # don't specify an explicit system type (host/target name). # # Only a few systems have been added to this list; please add others # (but try to keep the structure clean). # # This is needed to find uname on a Pyramid OSx when run in the BSD universe. # (ghazi@noc.rutgers.edu 8/24/94.) if (test -f /.attbin/uname) >/dev/null 2>&1 ; then PATH=$PATH:/.attbin ; export PATH fi UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown trap 'rm -f dummy.c dummy.o dummy; exit 1' 1 2 15 # Note: order is significant - the case branches are not exclusive. case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in alpha:OSF1:V*:*) # After 1.2, OSF1 uses "V1.3" for uname -r. echo alpha-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^V//'` exit 0 ;; alpha:OSF1:*:*) # 1.2 uses "1.2" for uname -r. echo alpha-dec-osf${UNAME_RELEASE} exit 0 ;; arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) echo arm-acorn-riscix${UNAME_RELEASE} exit 0;; Pyramid*:OSx*:*:*) if test "`(/bin/universe) 2>/dev/null`" = att ; then echo pyramid-pyramid-sysv3 else echo pyramid-pyramid-bsd fi exit 0 ;; i86pc:SunOS:5.*:*) echo i486-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit 0 ;; sun4*:SunOS:5.*:*) echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit 0 ;; sun4*:SunOS:6*:*) # According to config.sub, this is the proper way to canonicalize # SunOS6. Hard to guess exactly what SunOS6 will be like, but # it's likely to be more like Solaris than SunOS4. echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit 0 ;; sun4*:SunOS:*:*) # Japanese Language versions have a version number like `4.1.3-JL'. echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` exit 0 ;; sun3*:SunOS:*:*) echo m68k-sun-sunos${UNAME_RELEASE} exit 0 ;; tp_s2*:SunOS:*:*) # Tadpole Sparcbook 2 running a modified 4.1.3 echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` exit 0 ;; RISC*:ULTRIX:*:*) echo mips-dec-ultrix${UNAME_RELEASE} exit 0 ;; VAX*:ULTRIX*:*:*) echo vax-dec-ultrix${UNAME_RELEASE} exit 0 ;; mips:*:5*:RISCos) echo mips-mips-riscos${UNAME_RELEASE} exit 0 ;; m88k:CX/UX:7*:*) echo m88k-harris-cxux7 exit 0 ;; m88k:*:4*:R4*) echo m88k-motorola-sysv4 exit 0 ;; m88k:*:3*:R3*) echo m88k-motorola-sysv3 exit 0 ;; AViiON:dgux:*:*) if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx \ -o ${TARGET_BINARY_INTERFACE}x = x ] ; then echo m88k-dg-dgux${UNAME_RELEASE} else echo m88k-dg-dguxbcs${UNAME_RELEASE} fi exit 0 ;; M88*:DolphinOS:*:*) # DolphinOS (SVR3) echo m88k-dolphin-sysv3 exit 0 ;; M88*:*:R3*:*) # Delta 88k system running SVR3 echo m88k-motorola-sysv3 exit 0 ;; XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) echo m88k-tektronix-sysv3 exit 0 ;; Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) echo m68k-tektronix-bsd exit 0 ;; *:IRIX:*:*) echo mips-sgi-irix${UNAME_RELEASE} exit 0 ;; i[34]86:AIX:*:*) echo i386-ibm-aix exit 0 ;; *:AIX:2:3) if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then sed 's/^ //' << EOF >dummy.c #include main() { if (!__power_pc()) exit(1); puts("powerpc-ibm-aix3.2.5"); exit(0); } EOF ${CC-cc} dummy.c -o dummy && ./dummy && rm dummy.c dummy && exit 0 rm -f dummy.c dummy echo rs6000-ibm-aix3.2.5 elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then echo rs6000-ibm-aix3.2.4 else echo rs6000-ibm-aix3.2 fi exit 0 ;; *:AIX:*:4) if /usr/sbin/lsattr -EHl proc0 | grep POWER >/dev/null 2>&1; then IBM_ARCH=rs6000 else IBM_ARCH=powerpc fi if grep bos410 /usr/include/stdio.h >/dev/null 2>&1; then IBM_REV=4.1 elif grep bos411 /usr/include/stdio.h >/dev/null 2>&1; then IBM_REV=4.1.1 else IBM_REV=4.${UNAME_RELEASE} fi echo ${IBM_ARCH}-ibm-aix${IBM_REV} exit 0 ;; *:AIX:*:*) echo rs6000-ibm-aix exit 0 ;; *:BOSX:*:*) echo rs6000-bull-bosx exit 0 ;; DPX/2?00:B.O.S.:*:*) echo m68k-bull-sysv3 exit 0 ;; 9000/[34]??:4.3bsd:1.*:*) echo m68k-hp-bsd exit 0 ;; hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) echo m68k-hp-bsd4.4 exit 0 ;; 9000/[3478]??:HP-UX:*:*) case "${UNAME_MACHINE}" in 9000/31? ) HP_ARCH=m68000 ;; 9000/[34]?? ) HP_ARCH=m68k ;; 9000/7?? | 9000/8?7 ) HP_ARCH=hppa1.1 ;; 9000/8?? ) HP_ARCH=hppa1.0 ;; esac HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` echo ${HP_ARCH}-hp-hpux${HPUX_REV} exit 0 ;; 3050*:HI-UX:*:*) sed 's/^ //' << EOF >dummy.c #include int main () { long cpu = sysconf (_SC_CPU_VERSION); /* The order matters, because CPU_IS_HP_MC68K erroneously returns true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct results, however. */ if (CPU_IS_PA_RISC (cpu)) { switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; default: puts ("hppa-hitachi-hiuxwe2"); break; } } else if (CPU_IS_HP_MC68K (cpu)) puts ("m68k-hitachi-hiuxwe2"); else puts ("unknown-hitachi-hiuxwe2"); exit (0); } EOF ${CC-cc} dummy.c -o dummy && ./dummy && rm dummy.c dummy && exit 0 rm -f dummy.c dummy echo unknown-hitachi-hiuxwe2 exit 0 ;; 9000/7??:4.3bsd:*:* | 9000/8?7:4.3bsd:*:* ) echo hppa1.1-hp-bsd exit 0 ;; 9000/8??:4.3bsd:*:*) echo hppa1.0-hp-bsd exit 0 ;; hp7??:OSF1:*:* | hp8?7:OSF1:*:* ) echo hppa1.1-hp-osf exit 0 ;; hp8??:OSF1:*:*) echo hppa1.0-hp-osf exit 0 ;; C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) echo c1-convex-bsd exit 0 ;; C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit 0 ;; C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) echo c34-convex-bsd exit 0 ;; C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) echo c38-convex-bsd exit 0 ;; C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) echo c4-convex-bsd exit 0 ;; CRAY*X-MP:UNICOS:*:*) echo xmp-cray-unicos exit 0 ;; CRAY*Y-MP:UNICOS:*:*) echo ymp-cray-unicos exit 0 ;; CRAY-2:UNICOS:*:*) echo cray2-cray-unicos exit 0 ;; hp3[0-9][05]:NetBSD:*:*) echo m68k-hp-netbsd${UNAME_RELEASE} exit 0 ;; i[34]86:BSD/386:*:*) echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} exit 0 ;; i[34]86:BSD/OS:*:*) echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} exit 0 ;; *:FreeBSD:*:*) echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` exit 0 ;; *:NetBSD:*:*) echo ${UNAME_MACHINE}-unknown-netbsd`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` exit 0 ;; *:GNU:*:*) echo `echo ${UNAME_MACHINE}|sed -e 's,/.*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'` exit 0 ;; *:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux exit 0 ;; # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. earlier versions # are messed up and put the nodename in both sysname and nodename. i[34]86:DYNIX/ptx:4*:*) echo i386-sequent-sysv4 exit 0 ;; i[34]86:*:4.*:* | i[34]86:SYSTEM_V:4.*:*) if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then echo ${UNAME_MACHINE}-univel-sysv${UNAME_RELEASE} else echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE} fi exit 0 ;; i[34]86:*:3.2:*) if /bin/uname -X 2>/dev/null >/dev/null ; then UNAME_REL=`(/bin/uname -X|egrep Release|sed -e 's/.*= //')` (/bin/uname -X|egrep i80486 >/dev/null) && UNAME_MACHINE=i486 echo ${UNAME_MACHINE}-unknown-sco$UNAME_REL elif test -f /usr/options/cb.name; then UNAME_REL=`sed -n 's/.*Version //p' /dev/null 2>&1 ; then echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4 else # Add other i860-SVR4 vendors below as they are discovered. echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4 fi exit 0 ;; mini*:CTIX:SYS*5:*) # "miniframe" echo m68010-convergent-sysv exit 0 ;; M680[234]0:*:R3V[567]*:*) test -r /sysV68 && echo 'm68k-motorola-sysv' && exit 0 ;; 3[34]??:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0) uname -p 2>/dev/null | grep 86 >/dev/null \ && echo i486-ncr-sysv4.3 && exit 0 ;; 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*) uname -p 2>/dev/null | grep 86 >/dev/null \ && echo i486-ncr-sysv4 && exit 0 ;; m680[234]0:LynxOS:2.2*:*) echo m68k-lynx-lynxos${UNAME_RELEASE} exit 0 ;; PowerPC:LynxOS:2.2*:*) echo powerpc-lynx-lynxos${UNAME_RELEASE} exit 0 ;; mc68030:UNIX_System_V:4.*:*) echo m68k-atari-sysv4 exit 0 ;; i[34]86:LynxOS:2.2*:*) echo i386-lynx-lynxos${UNAME_RELEASE} exit 0 ;; TSUNAMI:LynxOS:2.2*:*) echo sparc-lynx-lynxos${UNAME_RELEASE} exit 0 ;; rs6000:LynxOS:2.2*:*) echo rs6000-lynx-lynxos${UNAME_RELEASE} exit 0 ;; RM*:SINIX-*:*:*) echo mips-sni-sysv4 exit 0 ;; *:SINIX-*:*:*) if uname -p 2>/dev/null >/dev/null ; then UNAME_MACHINE=`(uname -p) 2>/dev/null` echo ${UNAME_MACHINE}-sni-sysv4 else echo ns32k-sni-sysv fi exit 0 ;; esac #echo '(No uname command or uname output not recognized.)' 1>&2 #echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2 cat >dummy.c </dev/null`; printf ("%s-next-nextstep%s\n", __ARCHITECTURE__, version==2 ? "2" : "3"); exit (0); #endif #if defined (MULTIMAX) || defined (n16) #if defined (UMAXV) printf ("ns32k-encore-sysv\n"); exit (0); #else #if defined (CMU) printf ("ns32k-encore-mach\n"); exit (0); #else printf ("ns32k-encore-bsd\n"); exit (0); #endif #endif #endif #if defined (__386BSD__) printf ("i386-unknown-bsd\n"); exit (0); #endif #if defined (sequent) #if defined (i386) printf ("i386-sequent-dynix\n"); exit (0); #endif #if defined (ns32000) printf ("ns32k-sequent-dynix\n"); exit (0); #endif #endif #if defined (_SEQUENT_) printf ("i386-sequent-ptx\n"); exit (0); #endif #if defined (vax) #if !defined (ultrix) printf ("vax-dec-bsd\n"); exit (0); #else printf ("vax-dec-ultrix\n"); exit (0); #endif #endif #if defined (alliant) && defined (i860) printf ("i860-alliant-bsd\n"); exit (0); #endif exit (1); } EOF ${CC-cc} dummy.c -o dummy 2>/dev/null && ./dummy && rm dummy.c dummy && exit 0 rm -f dummy.c dummy # Apollos put the system type in the environment. test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit 0; } # Convex versions that predate uname can use getsysinfo(1) if [ -x /usr/convex/getsysinfo ] then case `getsysinfo -f cpu_type` in c1*) echo c1-convex-bsd exit 0 ;; c2*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit 0 ;; c34*) echo c34-convex-bsd exit 0 ;; c38*) echo c38-convex-bsd exit 0 ;; c4*) echo c4-convex-bsd exit 0 ;; esac fi #echo '(Unable to guess system type)' 1>&2 exit 1 neotcl8.1.1-lite/config/config.sub100775 15471 0 37676 6752336005 15623 0ustar damonwheel#!/bin/sh # Configuration validation subroutine script, version 1.1. # Copyright (C) 1991, 1992, 1993, 1994 Free Software Foundation, Inc. # This file is (in principle) common to ALL GNU software. # The presence of a machine in this file suggests that SOME GNU software # can handle that machine. It does not imply ALL GNU software can. # # This file is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Configuration subroutine to validate and canonicalize a configuration type. # Supply the specified configuration type as an argument. # If it is invalid, we print an error message on stderr and exit with code 1. # Otherwise, we print the canonical config type on stdout and succeed. # This file is supposed to be the same for all GNU packages # and recognize all the CPU types, system types and aliases # that are meaningful with *any* GNU software. # Each package is responsible for reporting which valid configurations # it does not support. The user should be able to distinguish # a failure to support a valid configuration from a meaningless # configuration. # The goal of this file is to map all the various variations of a given # machine specification into a single specification in the form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM # It is wrong to echo any other type of specification. # First pass through any local machine types. case $1 in *local*) echo $1 exit 0 ;; *) ;; esac # Separate what the user gave into CPU-COMPANY and OS (if any). basic_machine=`echo $1 | sed 's/-[^-]*$//'` if [ $basic_machine != $1 ] then os=`echo $1 | sed 's/.*-/-/'` else os=; fi ### Let's recognize common machines as not being operating systems so ### that things like config.sub decstation-3100 work. We also ### recognize some manufacturers as not being operating systems, so we ### can provide default operating systems below. case $os in -sun*os*) # Prevent following clause from handling this invalid input. ;; -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \ -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \ -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \ -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\ -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \ -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp ) os= basic_machine=$1 ;; -hiux*) os=-hiuxwe2 ;; -sco4) os=-sco3.2v4 basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -sco3.2.[4-9]*) os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -sco3.2v[4-9]*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -sco*) os=-sco3.2v2 basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -isc) os=-isc2.2 basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -clix*) basic_machine=clipper-intergraph ;; -isc*) basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -lynx) os=-lynxos ;; -ptx*) basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'` ;; -windowsnt*) os=`echo $os | sed -e 's/windowsnt/winnt/'` ;; esac # Decode aliases for certain CPU-COMPANY combinations. case $basic_machine in # Recognize the basic CPU types without company name. # Some are omitted here because they have special meanings below. tahoe | i[345]86 | i860 | m68k | m68000 | m88k | ns32k | arm | pyramid \ | tron | a29k | 580 | i960 | h8300 | hppa1.0 | hppa1.1 \ | alpha | we32k | ns16k | clipper | sparclite | i370 | sh \ | powerpc | sparc64 | 1750a | dsp16xx | mips64 | mipsel \ | pdp11 | mips64el | mips64orion | mips64orionel ) basic_machine=$basic_machine-unknown ;; # Object if more than one company name word. *-*-*) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; # Recognize the basic CPU types with company name. vax-* | tahoe-* | i[345]86-* | i860-* | m68k-* | m68000-* | m88k-* \ | sparc-* | ns32k-* | fx80-* | arm-* | c[123]* \ | mips-* | pyramid-* | tron-* | a29k-* | romp-* | rs6000-* \ | none-* | 580-* | cray2-* | h8300-* | i960-* | xmp-* | ymp-* \ | hppa1.0-* | hppa1.1-* | alpha-* | we32k-* | cydra-* | ns16k-* \ | pn-* | np1-* | xps100-* | clipper-* | orion-* | sparclite-* \ | pdp11-* | sh-* | powerpc-* | sparc64-* | mips64-* | mipsel-* \ | mips64el-* | mips64orion-* | mips64orionel-* ) ;; # Recognize the various machine names and aliases which stand # for a CPU type and a company and sometimes even an OS. 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) basic_machine=m68000-att ;; 3b*) basic_machine=we32k-att ;; alliant | fx80) basic_machine=fx80-alliant ;; altos | altos3068) basic_machine=m68k-altos ;; am29k) basic_machine=a29k-none os=-bsd ;; amdahl) basic_machine=580-amdahl os=-sysv ;; amiga | amiga-*) basic_machine=m68k-cbm ;; amigados) basic_machine=m68k-cbm os=-amigados ;; amigaunix | amix) basic_machine=m68k-cbm os=-sysv4 ;; apollo68) basic_machine=m68k-apollo os=-sysv ;; balance) basic_machine=ns32k-sequent os=-dynix ;; convex-c1) basic_machine=c1-convex os=-bsd ;; convex-c2) basic_machine=c2-convex os=-bsd ;; convex-c32) basic_machine=c32-convex os=-bsd ;; convex-c34) basic_machine=c34-convex os=-bsd ;; convex-c38) basic_machine=c38-convex os=-bsd ;; cray | ymp) basic_machine=ymp-cray os=-unicos ;; cray2) basic_machine=cray2-cray os=-unicos ;; crds | unos) basic_machine=m68k-crds ;; da30 | da30-*) basic_machine=m68k-da30 ;; decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) basic_machine=mips-dec ;; delta | 3300 | motorola-3300 | motorola-delta \ | 3300-motorola | delta-motorola) basic_machine=m68k-motorola ;; delta88) basic_machine=m88k-motorola os=-sysv3 ;; dpx20 | dpx20-*) basic_machine=rs6000-bull os=-bosx ;; dpx2* | dpx2*-bull) basic_machine=m68k-bull os=-sysv3 ;; ebmon29k) basic_machine=a29k-amd os=-ebmon ;; elxsi) basic_machine=elxsi-elxsi os=-bsd ;; encore | umax | mmax) basic_machine=ns32k-encore ;; fx2800) basic_machine=i860-alliant ;; genix) basic_machine=ns32k-ns ;; gmicro) basic_machine=tron-gmicro os=-sysv ;; h3050r* | hiux*) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; h8300hms) basic_machine=h8300-hitachi os=-hms ;; harris) basic_machine=m88k-harris os=-sysv3 ;; hp300-*) basic_machine=m68k-hp ;; hp300bsd) basic_machine=m68k-hp os=-bsd ;; hp300hpux) basic_machine=m68k-hp os=-hpux ;; hp9k2[0-9][0-9] | hp9k31[0-9]) basic_machine=m68000-hp ;; hp9k3[2-9][0-9]) basic_machine=m68k-hp ;; hp9k7[0-9][0-9] | hp7[0-9][0-9] | hp9k8[0-9]7 | hp8[0-9]7) basic_machine=hppa1.1-hp ;; hp9k8[0-9][0-9] | hp8[0-9][0-9]) basic_machine=hppa1.0-hp ;; i370-ibm* | ibm*) basic_machine=i370-ibm os=-mvs ;; # I'm not sure what "Sysv32" means. Should this be sysv3.2? i[345]86v32) basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` os=-sysv32 ;; i[345]86v4*) basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` os=-sysv4 ;; i[345]86v) basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` os=-sysv ;; i[345]86sol2) basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` os=-solaris2 ;; iris | iris4d) basic_machine=mips-sgi case $os in -irix*) ;; *) os=-irix4 ;; esac ;; isi68 | isi) basic_machine=m68k-isi os=-sysv ;; m88k-omron*) basic_machine=m88k-omron ;; magnum | m3230) basic_machine=mips-mips os=-sysv ;; merlin) basic_machine=ns32k-utek os=-sysv ;; miniframe) basic_machine=m68000-convergent ;; mips3*-*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` ;; mips3*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown ;; ncr3000) basic_machine=i486-ncr os=-sysv4 ;; news | news700 | news800 | news900) basic_machine=m68k-sony os=-newsos ;; news1000) basic_machine=m68030-sony os=-newsos ;; news-3600 | risc-news) basic_machine=mips-sony os=-newsos ;; next | m*-next ) basic_machine=m68k-next case $os in -nextstep* ) ;; -ns2*) os=-nextstep2 ;; *) os=-nextstep3 ;; esac ;; nh3000) basic_machine=m68k-harris os=-cxux ;; nh[45]000) basic_machine=m88k-harris os=-cxux ;; nindy960) basic_machine=i960-intel os=-nindy ;; np1) basic_machine=np1-gould ;; pa-hitachi) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; paragon) basic_machine=i860-intel os=-osf ;; pbd) basic_machine=sparc-tti ;; pbb) basic_machine=m68k-tti ;; pc532 | pc532-*) basic_machine=ns32k-pc532 ;; pentium-*) # We will change tis to say i586 once there has been # time for various packages to start to recognize that. basic_machine=i486-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pn) basic_machine=pn-gould ;; ps2) basic_machine=i386-ibm ;; rtpc | rtpc-*) basic_machine=romp-ibm ;; sequent) basic_machine=i386-sequent ;; sh) basic_machine=sh-hitachi os=-hms ;; sps7) basic_machine=m68k-bull os=-sysv2 ;; spur) basic_machine=spur-unknown ;; sun2) basic_machine=m68000-sun ;; sun2os3) basic_machine=m68000-sun os=-sunos3 ;; sun2os4) basic_machine=m68000-sun os=-sunos4 ;; sun3os3) basic_machine=m68k-sun os=-sunos3 ;; sun3os4) basic_machine=m68k-sun os=-sunos4 ;; sun4os3) basic_machine=sparc-sun os=-sunos3 ;; sun4os4) basic_machine=sparc-sun os=-sunos4 ;; sun3 | sun3-*) basic_machine=m68k-sun ;; sun4) basic_machine=sparc-sun ;; sun386 | sun386i | roadrunner) basic_machine=i386-sun ;; symmetry) basic_machine=i386-sequent os=-dynix ;; tower | tower-32) basic_machine=m68k-ncr ;; ultra3) basic_machine=a29k-nyu os=-sym1 ;; vaxv) basic_machine=vax-dec os=-sysv ;; vms) basic_machine=vax-dec os=-vms ;; vxworks960) basic_machine=i960-wrs os=-vxworks ;; vxworks68) basic_machine=m68k-wrs os=-vxworks ;; xmp) basic_machine=xmp-cray os=-unicos ;; xps | xps100) basic_machine=xps100-honeywell ;; none) basic_machine=none-none os=-none ;; # Here we handle the default manufacturer of certain CPU types. It is in # some cases the only manufacturer, in others, it is the most popular. mips) basic_machine=mips-mips ;; romp) basic_machine=romp-ibm ;; rs6000) basic_machine=rs6000-ibm ;; vax) basic_machine=vax-dec ;; pdp11) basic_machine=pdp11-dec ;; we32k) basic_machine=we32k-att ;; sparc) basic_machine=sparc-sun ;; cydra) basic_machine=cydra-cydrome ;; orion) basic_machine=orion-highlevel ;; orion105) basic_machine=clipper-highlevel ;; *) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; esac # Here we canonicalize certain aliases for manufacturers. case $basic_machine in *-digital*) basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` ;; *-commodore*) basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` ;; *) ;; esac # Decode manufacturer-specific aliases for certain operating systems. if [ x"$os" != x"" ] then case $os in # -solaris* is a basic system type, with this one exception. -solaris1 | -solaris1.*) os=`echo $os | sed -e 's|solaris1|sunos4|'` ;; -solaris) os=-solaris2 ;; -gnu/linux*) os=`echo $os | sed -e 's|gnu/linux|linux|'` ;; # First accept the basic system types. # The portable systems comes first. # Each alternative must end in a *, to match a version number. # -sysv* is not here because it comes later, after sysvr4. -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ | -vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[345]* \ | -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \ | -amigados* | -msdos* | -newsos* | -unicos* | -aos* \ | -nindy* | -vxworks* | -ebmon* | -hms* | -mvs* | -clix* \ | -riscos* | -linux* | -uniplus* | -iris* | -rtu* | -xenix* \ | -hiux* | -386bsd* | -netbsd* | -freebsd* | -riscix* \ | -lynxos* | -bosx* | -nextstep* | -cxux* | -aout* | -elf* \ | -ptx* | -coff* | -winnt*) ;; -sunos5*) os=`echo $os | sed -e 's|sunos5|solaris2|'` ;; -sunos6*) os=`echo $os | sed -e 's|sunos6|solaris3|'` ;; -osfrose*) os=-osfrose ;; -osf*) os=-osf ;; -utek*) os=-bsd ;; -dynix*) os=-bsd ;; -acis*) os=-aos ;; -ctix* | -uts*) os=-sysv ;; -triton*) os=-sysv3 ;; -oss*) os=-sysv3 ;; -svr4) os=-sysv4 ;; -svr3) os=-sysv3 ;; -sysvr4) os=-sysv4 ;; # This must come after -sysvr4. -sysv*) ;; -xenix) os=-xenix ;; -none) ;; *) # Get rid of the `-' at the beginning of $os. os=`echo $os | sed 's/[^-]*-//'` echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 exit 1 ;; esac else # Here we handle the default operating systems that come with various machines. # The value should be what the vendor currently ships out the door with their # machine or put another way, the most popular os provided with the machine. # Note that if you're going to try to match "-MANUFACTURER" here (say, # "-sun"), then you have to tell the case statement up towards the top # that MANUFACTURER isn't an operating system. Otherwise, code above # will signal an error saying that MANUFACTURER isn't an operating # system, and we'll never get to this point. case $basic_machine in *-acorn) os=-riscix1.2 ;; pdp11-*) os=-none ;; *-dec | vax-*) os=-ultrix4.2 ;; i386-sun) os=-sunos4.0.2 ;; m68000-sun) os=-sunos3 # This also exists in the configure program, but was not the # default. # os=-sunos4 ;; *-tti) # must be before sparc entry or we get the wrong os. os=-sysv3 ;; sparc-* | *-sun) os=-sunos4.1.1 ;; *-ibm) os=-aix ;; *-hp) os=-hpux ;; *-hitachi) os=-hiux ;; i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) os=-sysv ;; *-cbm) os=-amigados ;; *-dg) os=-dgux ;; *-dolphin) os=-sysv3 ;; m68k-ccur) os=-rtu ;; m88k-omron*) os=-luna ;; *-sequent) os=-ptx ;; *-crds) os=-unos ;; *-ns) os=-genix ;; i370-*) os=-mvs ;; *-next) os=-nextstep3 ;; *-gould) os=-sysv ;; *-highlevel) os=-bsd ;; *-encore) os=-bsd ;; *-sgi) os=-irix ;; *-masscomp) os=-rtu ;; *) os=-none ;; esac fi # Here we handle the case where we know the os, and the CPU type, but not the # manufacturer. We pick the logical manufacturer. vendor=unknown case $basic_machine in *-unknown) case $os in -riscix*) vendor=acorn ;; -sunos*) vendor=sun ;; -lynxos*) vendor=lynx ;; -aix*) vendor=ibm ;; -hpux*) vendor=hp ;; -hiux*) vendor=hitachi ;; -unos*) vendor=crds ;; -dgux*) vendor=dg ;; -luna*) vendor=omron ;; -genix*) vendor=ns ;; -mvs*) vendor=ibm ;; -ptx*) vendor=sequent ;; esac basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` ;; esac echo $basic_machine$os neotcl8.1.1-lite/config/install-sh100775 15471 0 4212 6752336005 15600 0ustar damonwheel#!/bin/sh # # install - install a program, script, or datafile # This comes from X11R5; it is not part of GNU. # # $XConsortium: install.sh,v 1.2 89/12/18 14:47:22 jim Exp $ # # This script is compatible with the BSD install script, but was written # from scratch. # # set DOITPROG to echo to test this script # Don't use :- since 4.3BSD and earlier shells don't like it. doit="${DOITPROG-}" # put in absolute paths if you don't have them in your path; or use env. vars. mvprog="${MVPROG-mv}" cpprog="${CPPROG-cp}" chmodprog="${CHMODPROG-chmod}" chownprog="${CHOWNPROG-chown}" chgrpprog="${CHGRPPROG-chgrp}" stripprog="${STRIPPROG-strip}" rmprog="${RMPROG-rm}" instcmd="$mvprog" chmodcmd="" chowncmd="" chgrpcmd="" stripcmd="" rmcmd="$rmprog -f" mvcmd="$mvprog" src="" dst="" while [ x"$1" != x ]; do case $1 in -c) instcmd="$cpprog" shift continue;; -m) chmodcmd="$chmodprog $2" shift shift continue;; -o) chowncmd="$chownprog $2" shift shift continue;; -g) chgrpcmd="$chgrpprog $2" shift shift continue;; -s) stripcmd="$stripprog" shift continue;; *) if [ x"$src" = x ] then src=$1 else dst=$1 fi shift continue;; esac done if [ x"$src" = x ] then echo "install: no input file specified" exit 1 fi if [ x"$dst" = x ] then echo "install: no destination specified" exit 1 fi # If destination is a directory, append the input filename; if your system # does not like double slashes in filenames, you may need to add some logic if [ -d $dst ] then dst="$dst"/`basename $src` fi # Make a temp file name in the proper directory. dstdir=`dirname $dst` dsttmp=$dstdir/#inst.$$# # Move or copy the file name to the temp name $doit $instcmd $src $dsttmp # and set any options; do chmod last to preserve setuid bits if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; fi if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; fi if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; fi if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; fi # Now rename the file to the real destination. $doit $rmcmd $dst $doit $mvcmd $dsttmp $dst exit 0 neotcl8.1.1-lite/config/mkinstalldirs100775 15471 0 1212 6752336005 16377 0ustar damonwheel#! /bin/sh # mkinstalldirs --- make directory hierarchy # Author: Noah Friedman # Created: 1993-05-16 # Last modified: 1994-03-25 # Public domain errstatus=0 for file in ${1+"$@"} ; do set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` shift pathcomp= for d in ${1+"$@"} ; do pathcomp="$pathcomp$d" case "$pathcomp" in -* ) pathcomp=./$pathcomp ;; esac if test ! -d "$pathcomp"; then echo "mkdir $pathcomp" 1>&2 mkdir "$pathcomp" || errstatus=$? fi pathcomp="$pathcomp/" done done exit $errstatus # mkinstalldirs ends here neotcl8.1.1-lite/configure100775 15471 0 103613 6752336004 14302 0ustar damonwheel#! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated automatically using autoconf version 2.13 # Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc. # # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. # Defaults: ac_help= ac_default_prefix=/usr/local # Any additions from configure.in: ac_default_prefix=/usr/local ac_help="$ac_help --disable-make disable automatic make of tcl core" ac_help="$ac_help --without-tk do not build the Tk toolkit" ac_help="$ac_help --without-tclx do not build Extended Tcl (TclX)" ac_help="$ac_help --without-neo do not build the NeoSoft (Neo) package" ac_help="$ac_help --without-gd do not build Gd" ac_help="$ac_help --enable-shared Build a shared version" ac_help="$ac_help --without-x do not build Tk nor packages that use Tk" # Initialize some variables set by options. # The variables have the same names as the options, with # dashes changed to underlines. build=NONE cache_file=./config.cache exec_prefix=NONE host=NONE no_create= nonopt=NONE no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= target=NONE verbose= x_includes=NONE x_libraries=NONE bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datadir='${prefix}/share' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' libdir='${exec_prefix}/lib' includedir='${prefix}/include' oldincludedir='/usr/include' infodir='${prefix}/info' mandir='${prefix}/man' # Initialize some other variables. subdirs= MFLAGS= MAKEFLAGS= SHELL=${CONFIG_SHELL-/bin/sh} # Maximum number of lines to put in a shell here document. ac_max_here_lines=12 ac_prev= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval "$ac_prev=\$ac_option" ac_prev= continue fi case "$ac_option" in -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;; *) ac_optarg= ;; esac # Accept the important Cygnus configure options, so we can diagnose typos. case "$ac_option" in -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir="$ac_optarg" ;; -build | --build | --buil | --bui | --bu) ac_prev=build ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build="$ac_optarg" ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file="$ac_optarg" ;; -datadir | --datadir | --datadi | --datad | --data | --dat | --da) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ | --da=*) datadir="$ac_optarg" ;; -disable-* | --disable-*) ac_feature=`echo $ac_option|sed -e 's/-*disable-//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } fi ac_feature=`echo $ac_feature| sed 's/-/_/g'` eval "enable_${ac_feature}=no" ;; -enable-* | --enable-*) ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } fi ac_feature=`echo $ac_feature| sed 's/-/_/g'` case "$ac_option" in *=*) ;; *) ac_optarg=yes ;; esac eval "enable_${ac_feature}='$ac_optarg'" ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix="$ac_optarg" ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he) # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat << EOF Usage: configure [options] [host] Options: [defaults in brackets after descriptions] Configuration: --cache-file=FILE cache test results in FILE --help print this message --no-create do not create output files --quiet, --silent do not print \`checking...' messages --version print the version of autoconf that created configure Directory and file names: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [same as prefix] --bindir=DIR user executables in DIR [EPREFIX/bin] --sbindir=DIR system admin executables in DIR [EPREFIX/sbin] --libexecdir=DIR program executables in DIR [EPREFIX/libexec] --datadir=DIR read-only architecture-independent data in DIR [PREFIX/share] --sysconfdir=DIR read-only single-machine data in DIR [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data in DIR [PREFIX/com] --localstatedir=DIR modifiable single-machine data in DIR [PREFIX/var] --libdir=DIR object code libraries in DIR [EPREFIX/lib] --includedir=DIR C header files in DIR [PREFIX/include] --oldincludedir=DIR C header files for non-gcc in DIR [/usr/include] --infodir=DIR info documentation in DIR [PREFIX/info] --mandir=DIR man documentation in DIR [PREFIX/man] --srcdir=DIR find the sources in DIR [configure dir or ..] --program-prefix=PREFIX prepend PREFIX to installed program names --program-suffix=SUFFIX append SUFFIX to installed program names --program-transform-name=PROGRAM run sed PROGRAM on installed program names EOF cat << EOF Host type: --build=BUILD configure for building on BUILD [BUILD=HOST] --host=HOST configure for HOST [guessed] --target=TARGET configure for TARGET [TARGET=HOST] Features and packages: --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) --enable-FEATURE[=ARG] include FEATURE [ARG=yes] --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --x-includes=DIR X include files are in DIR --x-libraries=DIR X library files are in DIR EOF if test -n "$ac_help"; then echo "--enable and --with options recognized:$ac_help" fi exit 0 ;; -host | --host | --hos | --ho) ac_prev=host ;; -host=* | --host=* | --hos=* | --ho=*) host="$ac_optarg" ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir="$ac_optarg" ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir="$ac_optarg" ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir="$ac_optarg" ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir="$ac_optarg" ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst \ | --locals | --local | --loca | --loc | --lo) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* \ | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) localstatedir="$ac_optarg" ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir="$ac_optarg" ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir="$ac_optarg" ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix="$ac_optarg" ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix="$ac_optarg" ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix="$ac_optarg" ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name="$ac_optarg" ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir="$ac_optarg" ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir="$ac_optarg" ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site="$ac_optarg" ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir="$ac_optarg" ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir="$ac_optarg" ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target="$ac_optarg" ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers) echo "configure generated by autoconf version 2.13" exit 0 ;; -with-* | --with-*) ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } fi ac_package=`echo $ac_package| sed 's/-/_/g'` case "$ac_option" in *=*) ;; *) ac_optarg=yes ;; esac eval "with_${ac_package}='$ac_optarg'" ;; -without-* | --without-*) ac_package=`echo $ac_option|sed -e 's/-*without-//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } fi ac_package=`echo $ac_package| sed 's/-/_/g'` eval "with_${ac_package}=no" ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes="$ac_optarg" ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries="$ac_optarg" ;; -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; } ;; *) if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then echo "configure: warning: $ac_option: invalid host type" 1>&2 fi if test "x$nonopt" != xNONE; then { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } fi nonopt="$ac_option" ;; esac done if test -n "$ac_prev"; then { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; } fi trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 # File descriptor usage: # 0 standard input # 1 file creation # 2 errors and warnings # 3 some systems may open it to /dev/tty # 4 used on the Kubota Titan # 6 checking for... messages and results # 5 compiler messages saved in config.log if test "$silent" = yes; then exec 6>/dev/null else exec 6>&1 fi exec 5>./config.log echo "\ This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. " 1>&5 # Strip out --no-create and --no-recursion so they do not pile up. # Also quote any args containing shell metacharacters. ac_configure_args= for ac_arg do case "$ac_arg" in -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c) ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*) ac_configure_args="$ac_configure_args '$ac_arg'" ;; *) ac_configure_args="$ac_configure_args $ac_arg" ;; esac done # NLS nuisances. # Only set these to C if already set. These must not be set unconditionally # because not all systems understand e.g. LANG=C (notably SCO). # Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'! # Non-C LC_CTYPE values break the ctype check. if test "${LANG+set}" = set; then LANG=C; export LANG; fi if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -rf conftest* confdefs.h # AIX cpp loses on an empty file, so make sure it contains at least a newline. echo > confdefs.h # A filename unique to this package, relative to the directory that # configure is in, which we can look for to find out if srcdir is correct. ac_unique_file=tcl8.1.1/generic/tcl.h # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then its parent. ac_prog=$0 ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'` test "x$ac_confdir" = "x$ac_prog" && ac_confdir=. srcdir=$ac_confdir if test ! -r $srcdir/$ac_unique_file; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r $srcdir/$ac_unique_file; then if test "$ac_srcdir_defaulted" = yes; then { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; } else { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; } fi fi srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'` # Prefer explicitly selected file to automatically selected ones. if test -z "$CONFIG_SITE"; then if test "x$prefix" != xNONE; then CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" else CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" fi fi for ac_site_file in $CONFIG_SITE; do if test -r "$ac_site_file"; then echo "loading site script $ac_site_file" . "$ac_site_file" fi done if test -r "$cache_file"; then echo "loading cache $cache_file" . $cache_file else echo "creating cache $cache_file" > $cache_file fi ac_ext=c # CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. ac_cpp='$CPP $CPPFLAGS' ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' cross_compiling=$ac_cv_prog_cc_cross ac_exeext= ac_objext=o if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then ac_n= ac_c=' ' ac_t=' ' else ac_n=-n ac_c= ac_t= fi else ac_n= ac_c='\c' ac_t= fi # RCS: $Id: configure,v 1.7 1999/06/30 22:03:11 damon Exp $ ac_aux_dir= for ac_dir in config $srcdir/config; do if test -f $ac_dir/install-sh; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install-sh -c" break elif test -f $ac_dir/install.sh; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install.sh -c" break fi done if test -z "$ac_aux_dir"; then { echo "configure: error: can not find install-sh or install.sh in config $srcdir/config" 1>&2; exit 1; } fi ac_config_guess=$ac_aux_dir/config.guess ac_config_sub=$ac_aux_dir/config.sub ac_configure=$ac_aux_dir/configure # This should be Cygnus configure. case "$SHELL" in bash) echo "It's good you're using BASH for a shell, but you must" echo "export SHELL=/bin/bash, not just $SHELL" ;; */sh) echo "Looks like you're using an old Bourne shell. You are" echo "likely headed for trouble. If the build fails, get BASH" echo "from ftp://prep.ai.mit.edu/pub/gnu, build it and use it" echo "for your shell. You'll should also make sure to export" echo "CONFIG_SHELL=/bin/bash (or /usr/local/bin/bash)." echo "Ksh should work too." ;; */ksh) ;; */csh) echo "Running from the C-Shell, eh? I like your style, but" echo "you are about for sure headed for disaster. Use another" echo "shell (bash or ksh) to configure and build Neotcl8.1.1." exit 1 ;; esac cat << EOF ***Warning***" Some configure scripts included in these packages stretch the limits of stock tools delivered with many Unix vendors' systems. The tools that are taken to their limits are (in the order in which they should be prime suspects): the Bourne shell (/bin/sh), sed, and make. EOF # ----------------------------------------------------------------------- # # Set up a new default --prefix. If a previous installation of # [incr Tcl] can be found searching $PATH use that directory. # # ----------------------------------------------------------------------- # Check whether --enable-make or --disable-make was given. if test "${enable_make+set}" = set; then enableval="$enable_make" : fi # Check whether --with-tk or --without-tk was given. if test "${with_tk+set}" = set; then withval="$with_tk" : fi # Check whether --with-tclx or --without-tclx was given. if test "${with_tclx+set}" = set; then withval="$with_tclx" : fi # Check whether --with-neo or --without-neo was given. if test "${with_neo+set}" = set; then withval="$with_neo" : fi # Check whether --with-gd or --without-gd was given. if test "${with_gd+set}" = set; then withval="$with_gd" : fi # Check whether --with-sharedDummy or --without-sharedDummy was given. if test "${with_sharedDummy+set}" = set; then withval="$with_sharedDummy" : fi pkg_list="tclx neo itcl gd" pkg_tcl=tcl8.1.1/unix pkg_tk=tk8.1.1/unix pkg_tclx=tclX8.1.1/unix pkg_neo=neo8.1.1/generic pkg_itcl=itcl3.0.1/itcl/unix pkg_gd=gd1.2 # Check whether --with-x or --without-x was given. if test "${with_x+set}" = set; then withval="$with_x" use_x=$withval else use_x=yes fi if test "$use_x" = "no" then with_tk=no fi # Don't try to build if the directory is not there. dirlist="" for pkg in $pkg_list do eval withval=\$with_$pkg if test "$withval" != no then eval dir=\$pkg_$pkg if test -d $dir then dirlist="$dirlist $dir" else echo WARNING: $pkg cannot be built: $dir is missing fi fi done PREBUILD="$pkg_tcl" if test "$with_tk" != "no" then PREBUILD="$PREBUILD $pkg_tk" fi # New in release 8.1: configure core Tcl/Tk code first, then actually do a make. # This allows some packages which search for the Tcllib to configure correctly. alldirs="$PREBUILD $dirlist" if test "$enable_make" = no then dirlist="$PREBUILD $dirlist" fi ac_popdir=`pwd` for pkgdir in $PREBUILD do echo "Configuring in ($PREBUILD)" cd $pkgdir echo "running ${CONFIG_SHELL-/bin/sh} ./configure $ac_configure_args" # The eval makes quoting arguments work. if eval ${CONFIG_SHELL-/bin/sh} ./configure $ac_configure_args then : else { echo "configure: error: $ac_sub_configure failed for $ac_config_dir" 1>&2; exit 1; } fi if test "$enable_make" != no then echo "Building and installing in $pkgdir" make install fi cd $ac_popdir done echo Configuring $dirlist subdirs="$dirlist" trap '' 1 2 15 cat > confcache <<\EOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs. It is not useful on other systems. # If it contains results you don't want to keep, you may remove or edit it. # # By default, configure uses ./config.cache as the cache file, # creating it if it does not exist already. You can give configure # the --cache-file=FILE option to use a different cache file; that is # what configure does when it calls configure scripts in # subdirectories, so they share the cache. # Giving --cache-file=/dev/null disables caching, for debugging configure. # config.status only pays attention to the cache file if you give it the # --recheck option to rerun configure. # EOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, don't put newlines in cache variables' values. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. (set) 2>&1 | case `(ac_space=' '; set | grep ac_space) 2>&1` in *ac_space=\ *) # `set' does not quote correctly, so add quotes (double-quote substitution # turns \\\\ into \\, and sed turns \\ into \). sed -n \ -e "s/'/'\\\\''/g" \ -e "s/^\\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\\)=\\(.*\\)/\\1=\${\\1='\\2'}/p" ;; *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n -e 's/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=${\1=\2}/p' ;; esac >> confcache if cmp -s $cache_file confcache; then : else if test -w $cache_file; then echo "updating cache $cache_file" cat confcache > $cache_file else echo "not updating unwritable cache $cache_file" fi fi rm -f confcache trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' # Any assignment to VPATH causes Sun make to only execute # the first set of double-colon rules, so remove it if not needed. # If there is a colon in the path, we need to keep it. if test "x$srcdir" = x.; then ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d' fi trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15 # Transform confdefs.h into DEFS. # Protect against shell expansion while executing Makefile rules. # Protect against Makefile macro expansion. cat > conftest.defs <<\EOF s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%-D\1=\2%g s%[ `~#$^&*(){}\\|;'"<>?]%\\&%g s%\[%\\&%g s%\]%\\&%g s%\$%$$%g EOF DEFS=`sed -f conftest.defs confdefs.h | tr '\012' ' '` rm -f conftest.defs # Without the "./", some shells look in PATH for config.status. : ${CONFIG_STATUS=./config.status} echo creating $CONFIG_STATUS rm -f $CONFIG_STATUS cat > $CONFIG_STATUS </dev/null | sed 1q`: # # $0 $ac_configure_args # # Compiler output produced by configure, useful for debugging # configure, is in ./config.log if it exists. ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]" for ac_option do case "\$ac_option" in -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion" exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;; -version | --version | --versio | --versi | --vers | --ver | --ve | --v) echo "$CONFIG_STATUS generated by autoconf version 2.13" exit 0 ;; -help | --help | --hel | --he | --h) echo "\$ac_cs_usage"; exit 0 ;; *) echo "\$ac_cs_usage"; exit 1 ;; esac done ac_given_srcdir=$srcdir trap 'rm -fr `echo "Makefile" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15 EOF cat >> $CONFIG_STATUS < conftest.subs <<\\CEOF $ac_vpsub $extrasub s%@SHELL@%$SHELL%g s%@CFLAGS@%$CFLAGS%g s%@CPPFLAGS@%$CPPFLAGS%g s%@CXXFLAGS@%$CXXFLAGS%g s%@FFLAGS@%$FFLAGS%g s%@DEFS@%$DEFS%g s%@LDFLAGS@%$LDFLAGS%g s%@LIBS@%$LIBS%g s%@exec_prefix@%$exec_prefix%g s%@prefix@%$prefix%g s%@program_transform_name@%$program_transform_name%g s%@bindir@%$bindir%g s%@sbindir@%$sbindir%g s%@libexecdir@%$libexecdir%g s%@datadir@%$datadir%g s%@sysconfdir@%$sysconfdir%g s%@sharedstatedir@%$sharedstatedir%g s%@localstatedir@%$localstatedir%g s%@libdir@%$libdir%g s%@includedir@%$includedir%g s%@oldincludedir@%$oldincludedir%g s%@infodir@%$infodir%g s%@mandir@%$mandir%g s%@PREBUILD@%$PREBUILD%g s%@alldirs@%$alldirs%g s%@subdirs@%$subdirs%g CEOF EOF cat >> $CONFIG_STATUS <<\EOF # Split the substitutions into bite-sized pieces for seds with # small command number limits, like on Digital OSF/1 and HP-UX. ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script. ac_file=1 # Number of current file. ac_beg=1 # First line for current file. ac_end=$ac_max_sed_cmds # Line after last line for current file. ac_more_lines=: ac_sed_cmds="" while $ac_more_lines; do if test $ac_beg -gt 1; then sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file else sed "${ac_end}q" conftest.subs > conftest.s$ac_file fi if test ! -s conftest.s$ac_file; then ac_more_lines=false rm -f conftest.s$ac_file else if test -z "$ac_sed_cmds"; then ac_sed_cmds="sed -f conftest.s$ac_file" else ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file" fi ac_file=`expr $ac_file + 1` ac_beg=$ac_end ac_end=`expr $ac_end + $ac_max_sed_cmds` fi done if test -z "$ac_sed_cmds"; then ac_sed_cmds=cat fi EOF cat >> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". case "$ac_file" in *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; *) ac_file_in="${ac_file}.in" ;; esac # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories. # Remove last slash and all that follows it. Not all systems have dirname. ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then # The file is in a subdirectory. test ! -d "$ac_dir" && mkdir "$ac_dir" ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`" # A "../" for each directory in $ac_dir_suffix. ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'` else ac_dir_suffix= ac_dots= fi case "$ac_given_srcdir" in .) srcdir=. if test -z "$ac_dots"; then top_srcdir=. else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;; /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;; *) # Relative path. srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix" top_srcdir="$ac_dots$ac_given_srcdir" ;; esac echo creating "$ac_file" rm -f "$ac_file" configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure." case "$ac_file" in *Makefile*) ac_comsub="1i\\ # $configure_input" ;; *) ac_comsub= ;; esac ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` sed -e "$ac_comsub s%@configure_input@%$configure_input%g s%@srcdir@%$srcdir%g s%@top_srcdir@%$top_srcdir%g " $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file fi; done rm -f conftest.s* EOF cat >> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF exit 0 EOF chmod +x $CONFIG_STATUS rm -fr confdefs* $ac_clean_files test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1 if test "$no_recursion" != yes; then # Remove --cache-file and --srcdir arguments so they do not pile up. ac_sub_configure_args= ac_prev= for ac_arg in $ac_configure_args; do if test -n "$ac_prev"; then ac_prev= continue fi case "$ac_arg" in -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) ;; *) ac_sub_configure_args="$ac_sub_configure_args $ac_arg" ;; esac done for ac_config_dir in $dirlist; do # Do not complain, so a configure script can configure whichever # parts of a large source tree are present. if test ! -d $srcdir/$ac_config_dir; then continue fi echo configuring in $ac_config_dir case "$srcdir" in .) ;; *) if test -d ./$ac_config_dir || mkdir ./$ac_config_dir; then :; else { echo "configure: error: can not create `pwd`/$ac_config_dir" 1>&2; exit 1; } fi ;; esac ac_popdir=`pwd` cd $ac_config_dir # A "../" for each directory in /$ac_config_dir. ac_dots=`echo $ac_config_dir|sed -e 's%^\./%%' -e 's%[^/]$%&/%' -e 's%[^/]*/%../%g'` case "$srcdir" in .) # No --srcdir option. We are building in place. ac_sub_srcdir=$srcdir ;; /*) # Absolute path. ac_sub_srcdir=$srcdir/$ac_config_dir ;; *) # Relative path. ac_sub_srcdir=$ac_dots$srcdir/$ac_config_dir ;; esac # Check for guested configure; otherwise get Cygnus style configure. if test -f $ac_sub_srcdir/configure; then ac_sub_configure=$ac_sub_srcdir/configure elif test -f $ac_sub_srcdir/configure.in; then ac_sub_configure=$ac_configure else echo "configure: warning: no configuration information is in $ac_config_dir" 1>&2 ac_sub_configure= fi # The recursion is here. if test -n "$ac_sub_configure"; then # Make the cache file name correct relative to the subdirectory. case "$cache_file" in /*) ac_sub_cache_file=$cache_file ;; *) # Relative path. ac_sub_cache_file="$ac_dots$cache_file" ;; esac echo "running ${CONFIG_SHELL-/bin/sh} $ac_sub_configure $ac_sub_configure_args --cache-file=$ac_sub_cache_file --srcdir=$ac_sub_srcdir" # The eval makes quoting arguments work. if eval ${CONFIG_SHELL-/bin/sh} $ac_sub_configure $ac_sub_configure_args --cache-file=$ac_sub_cache_file --srcdir=$ac_sub_srcdir then : else { echo "configure: error: $ac_sub_configure failed for $ac_config_dir" 1>&2; exit 1; } fi fi cd $ac_popdir done fi neotcl8.1.1-lite/configure.in100775 15471 0 7266 6752336004 14656 0ustar damonwheeldnl This file is an input file used by the GNU "autoconf" program to dnl generate the file "configure", which is run during [incr Tcl] dnl installation to configure the system for the local environment. AC_INIT(tcl8.1.1/generic/tcl.h) # RCS: $Id: configure.in,v 1.7 1999/06/30 22:03:11 damon Exp $ AC_CONFIG_AUX_DIR(config) AC_PREREQ(2.0) case "$SHELL" in bash) echo "It's good you're using BASH for a shell, but you must" echo "export SHELL=/bin/bash, not just $SHELL" ;; */sh) echo "Looks like you're using an old Bourne shell. You are" echo "likely headed for trouble. If the build fails, get BASH" echo "from ftp://prep.ai.mit.edu/pub/gnu, build it and use it" echo "for your shell. You'll should also make sure to export" echo "CONFIG_SHELL=/bin/bash (or /usr/local/bin/bash)." echo "Ksh should work too." ;; */ksh) ;; */csh) echo "Running from the C-Shell, eh? I like your style, but" echo "you are about for sure headed for disaster. Use another" echo "shell (bash or ksh) to configure and build Neotcl8.1.1." exit 1 ;; esac cat << EOF ***Warning***" Some configure scripts included in these packages stretch the limits of stock tools delivered with many Unix vendors' systems. The tools that are taken to their limits are (in the order in which they should be prime suspects): the Bourne shell (/bin/sh), sed, and make. EOF # ----------------------------------------------------------------------- # # Set up a new default --prefix. If a previous installation of # [incr Tcl] can be found searching $PATH use that directory. # # ----------------------------------------------------------------------- AC_PREFIX_DEFAULT(/usr/local) dnl AC_PREFIX_PROGRAM(itclsh) AC_ARG_ENABLE(make, [ --disable-make disable automatic make of tcl core]) AC_ARG_WITH(tk, [ --without-tk do not build the Tk toolkit]) AC_ARG_WITH(tclx, [ --without-tclx do not build Extended Tcl (TclX)]) AC_ARG_WITH(neo, [ --without-neo do not build the NeoSoft (Neo) package]) AC_ARG_WITH(gd, [ --without-gd do not build Gd]) AC_ARG_WITH(sharedDummy, [ --enable-shared Build a shared version]) pkg_list="tclx neo itcl gd" pkg_tcl=tcl8.1.1/unix pkg_tk=tk8.1.1/unix pkg_tclx=tclX8.1.1/unix pkg_neo=neo8.1.1/generic pkg_itcl=itcl3.0.1/itcl/unix pkg_gd=gd1.2 AC_ARG_WITH(x, [ --without-x do not build Tk nor packages that use Tk], use_x=$withval, use_x=yes) if test "$use_x" = "no" then with_tk=no fi # Don't try to build if the directory is not there. dirlist="" for pkg in $pkg_list do eval withval=\$with_$pkg if test "$withval" != no then eval dir=\$pkg_$pkg if test -d $dir then dirlist="$dirlist $dir" else echo WARNING: $pkg cannot be built: $dir is missing fi fi done PREBUILD="$pkg_tcl" if test "$with_tk" != "no" then PREBUILD="$PREBUILD $pkg_tk" fi AC_SUBST(PREBUILD) # New in release 8.1: configure core Tcl/Tk code first, then actually do a make. # This allows some packages which search for the Tcllib to configure correctly. alldirs="$PREBUILD $dirlist" AC_SUBST(alldirs) if test "$enable_make" = no then dirlist="$PREBUILD $dirlist" fi ac_popdir=`pwd` for pkgdir in $PREBUILD do echo "Configuring in ($PREBUILD)" cd $pkgdir echo "running ${CONFIG_SHELL-/bin/sh} ./configure $ac_configure_args" # The eval makes quoting arguments work. if eval ${CONFIG_SHELL-/bin/sh} ./configure $ac_configure_args then : else { echo "configure: error: $ac_sub_configure failed for $ac_config_dir" 1>&2; exit 1; } fi if test "$enable_make" != no then echo "Building and installing in $pkgdir" make install fi cd $ac_popdir done echo Configuring $dirlist AC_CONFIG_SUBDIRS($dirlist) AC_OUTPUT(Makefile) neotcl8.1.1-lite/gd1.2/ 40755 15471 0 0 6752342320 13041 5ustar damonwheelneotcl8.1.1-lite/gd1.2/CVS/ 40755 15471 0 0 6752336011 13474 5ustar damonwheelneotcl8.1.1-lite/gd1.2/CVS/Root100644 15471 0 26 6752336005 14400 0ustar damonwheelneoworld.net:/usr/cvs neotcl8.1.1-lite/gd1.2/CVS/Repository100644 15471 0 64 6752336006 15637 0ustar damonwheel/usr/cvs/NEOSOFT/nws/nws-3.2/neotcl8.1.1-lite/gd1.2 neotcl8.1.1-lite/gd1.2/CVS/Entries100644 15471 0 2521 6752336011 15125 0ustar damonwheel/Makefile.in/1.13/Thu Aug 5 16:29:58 1999// /README/1.2/Thu Aug 5 16:29:58 1999// /README-tcl/1.1.1.1/Thu Aug 5 16:29:58 1999// /configure/1.12/Thu Aug 5 16:29:58 1999// /configure.in/1.12/Thu Aug 5 16:29:58 1999// /demoin.gif/1.1.1.1/Thu Aug 5 16:29:58 1999// /demoout.gif/1.1.1.1/Thu Aug 5 16:29:58 1999// /gd.c/1.1.1.1/Thu Aug 5 16:29:58 1999// /gd.h/1.1.1.1/Thu Aug 5 16:29:58 1999// /gd.html/1.1.1.1/Thu Aug 5 16:29:58 1999// /gdCmd.c/1.6/Thu Aug 5 16:29:59 1999// /gdConfig.sh.in/1.1/Thu Aug 5 16:29:59 1999// /gddemo.c/1.1.1.1/Thu Aug 5 16:29:59 1999// /gdfontg.c/1.1.1.1/Thu Aug 5 16:29:59 1999// /gdfontg.h/1.1.1.1/Thu Aug 5 16:29:59 1999// /gdfontl.c/1.1.1.1/Thu Aug 5 16:30:00 1999// /gdfontl.h/1.1.1.1/Thu Aug 5 16:30:00 1999// /gdfontmb.c/1.1.1.1/Thu Aug 5 16:30:00 1999// /gdfontmb.h/1.1.1.1/Thu Aug 5 16:30:00 1999// /gdfonts.c/1.1.1.1/Thu Aug 5 16:30:00 1999// /gdfonts.h/1.1.1.1/Thu Aug 5 16:30:00 1999// /gdfontt.c/1.1.1.1/Thu Aug 5 16:30:00 1999// /gdfontt.h/1.1.1.1/Thu Aug 5 16:30:01 1999// /giftogd.c/1.1.1.1/Thu Aug 5 16:30:01 1999// /install-pkgindex/1.5/Thu Aug 5 16:30:01 1999// /install-sh/1.1/Thu Aug 5 16:30:01 1999// /mathmake.c/1.1.1.1/Thu Aug 5 16:30:01 1999// /mtables.c/1.1.1.1/Thu Aug 5 16:30:01 1999// /pkgIndex.tcl.in/1.3/Thu Aug 5 16:30:01 1999// /webgif.c/1.1.1.1/Thu Aug 5 16:30:01 1999// D neotcl8.1.1-lite/gd1.2/Makefile.in100664 15471 0 17114 6752336006 15235 0ustar damonwheel# Current Gd version; used in various names. VERSION = @GD_VERSION@ LIBNAME = @GD_SHARED_LIB_FILE@ #---------------------------------------------------------------- # Things you can change to personalize the Makefile for your own # site (you can make these changes in either Makefile.in or # Makefile, but changes to Makefile will get lost if you re-run # the configuration script). #---------------------------------------------------------------- # Default top-level directories in which to install architecture- # specific files (exec_prefix) and machine-independent files such # as scripts (prefix). The values specified here may be overridden # at configure-time with the --exec-prefix and --prefix options # to the "configure" script. prefix = @prefix@ exec_prefix = @exec_prefix@ # The following definition can be set to non-null for special systems # like AFS with replication. It allows the pathnames used for installation # to be different than those used for actually reference files at # run-time. INSTALL_ROOT is prepended to $prefix and $exec_prefix # when installing files. INSTALL_ROOT = # Directory in which to install libtcl.so or libtcl.a: LIB_INSTALL_DIR = $(INSTALL_ROOT)$(exec_prefix)/lib # Directory in which to install scripts SCRIPT_INSTALL_DIR = $(INSTALL_ROOT)$(prefix)/lib/gd${VERSION} # Directory in which to install the program tclsh: BIN_INSTALL_DIR = $(INSTALL_ROOT)$(exec_prefix)/bin # Directory in which to install the include file tcl.h: INCLUDE_INSTALL_DIR = $(INSTALL_ROOT)$(prefix)/include # Top-level directory in which to install manual entries: MAN_INSTALL_DIR = $(INSTALL_ROOT)$(prefix)/man # Directory in which to install manual entry for tclsh: MAN1_INSTALL_DIR = $(MAN_INSTALL_DIR)/man1 # Directory in which to install manual entries for Tcl's C library # procedures: MAN3_INSTALL_DIR = $(MAN_INSTALL_DIR)/man3 # Directory in which to install manual entries for the built-in # Tcl commands: MANN_INSTALL_DIR = $(MAN_INSTALL_DIR)/mann # To change the compiler switches, for example to change from -O # to -g, change the following lines: CFLAGS = @CFLAGS@ # To enable memory debugging reverse the comment characters on the following # lines. Warning: if you enable memory debugging, you must do it # *everywhere*, including all the code that calls Tcl, and you must use # ckalloc and ckfree everywhere instead of malloc and free. MEM_DEBUG_FLAGS = #MEM_DEBUG_FLAGS = -DTCL_MEM_DEBUG # Some versions of make, like SGI's, use the following variable to # determine which shell to use for executing commands: SHELL = /bin/sh # Tcl used to let the configure script choose which program to use # for installing, but there are just too many different versions of # "install" around; better to use the install-sh script that comes # with the distribution, which is slower but guaranteed to work. INSTALL = @srcdir@/install-sh -c INSTALL_PROGRAM = ${INSTALL} INSTALL_DATA = ${INSTALL} -m 644 MKINSTALLDIRS = $(TOP_DIR)/../config/mkinstalldirs # The following symbol defines additional compiler flags to enable # Tcl itself to be a shared library. SHLIB_CFLAGS = @SHLIB_CFLAGS@ #SHLIB_CFLAGS = # The symbols below provide support for dynamic loading and shared # libraries. See configure.in for a description of what the # symbols mean. The values of the symbols are normally set by the # configure script. You shouldn't normally need to modify any of # these definitions by hand. SHLIB_LD = @TCL_SHLIB_LD@ SHLIB_SUFFIX = @TCL_SHLIB_SUFFIX@ #SHLIB_SUFFIX = .so GD_SHARED_LIB_FILE = @GD_SHARED_LIB_FILE@ #GD_SHARED_LIB_FILE = libgd$(VERSION)${SHLIB_SUFFIX} GD_UNSHARED_LIB_FILE = @GD_UNSHARED_LIB_FILE@ #GD_UNSHARED_LIB_FILE = libgd$(VERSION).a GD_LIB_FILE = @GD_LIB_FILE@ #GD_LIB_FILE = ${GD_UNSHARED_LIB_FILE} #---------------------------------------------------------------- # The information below is modified by the configure script when # Makefile is generated from Makefile.in. You shouldn't normally # modify any of this stuff by hand. #---------------------------------------------------------------- AC_FLAGS = @TCL_DEFS@ RANLIB = @TCL_RANLIB@ LN_S = ln -s TOP_DIR = @TOP_DIR@ CC = @TCL_CC@ #---------------------------------------------------------------- # The information below should be usable as is. The configure # script won't modify it and you shouldn't need to modify it # either. #---------------------------------------------------------------- CC_SWITCHES = ${CFLAGS} @SHLIB_CFLAGS@ -I. ${AC_FLAGS} OBJS= gd.o gdfontt.o gdfonts.o gdfontmb.o gdfontl.o gdfontg.o gdCmd.o HEADERS= gd.h gdfontt.h gdfonts.h gdfontmb.h gdfontl.h gdfontg.h # Note: building the programs with the shared libraries causes the # ld command to want Tcl resolved, since gdCmd.o is part of the # shared library. GD_PROGS = @GD_PROGS@ all: ${GD_LIB_FILE} ${GD_PROGS} # The following target is configured by autoconf to generate either # a shared library or non-shared library for Gd. @GD_UNSHARED_LIB_FILE@: $(OBJS) rm -f $(GD_UNSHARED_LIB_FILE) ar cr $(GD_UNSHARED_LIB_FILE) $(OBJS) $(RANLIB) $(GD_UNSHARED_LIB_FILE) @GD_SHARED_LIB_FILE@: $(OBJS) rm -f ${GD_SHARED_LIB_FILE} PATH=$(GD_BIN_DIR):${PATH}; export PATH; \ LD_LIBRARY_PATH=${exec_prefix}/lib:${LD_LIBRARY_PATH}; \ export LD_LIBRARY_PATH; \ @TCL_SHLIB_LD@ -o $@ @TCL_LIB_HNAME@ $(OBJS) chmod 555 ${GD_SHARED_LIB_FILE} LIBS=@GD_BUILD_LIB_SPEC@ -lm gddemo: gddemo.o $(GD_LIB_FILE) gd.h gdfonts.h gdfontl.h $(CC) gddemo.o -o gddemo $(LIBS) giftogd: giftogd.o $(GD_LIB_FILE) gd.h $(CC) giftogd.o -o giftogd $(LIBS) TCL_GENERIC_DIR = @TCL_TOP_DIR@/generic TCLX_GENERIC_DIR = @TCLX_TOP_DIR@/tcl/generic gdCmd.o: gdCmd.c ${CC} -c ${CC_SWITCHES} -I${TCL_GENERIC_DIR} \ -I${TCLX_GENERIC_DIR} -I@includedir@ -DTCLX_SUPPORT ${MEM_DEBUG_FLAGS} \ -DGD_VERSION=\"${VERSION}\" -c gdCmd.c webgif: webgif.o $(GD_LIB_FILE) gd.h $(CC) webgif.o -o webgif $(LIBS) clean: rm -f *.o *.a gddemo giftogd webgif so_locations if test -n "$(SHLIB_SUFFIX)" ; then rm -f *$(SHLIB_SUFFIX); fi distclean: clean rm -f config.status config.log config.cache Makefile pkgIndex.tcl gdConfig.sh install: install-binaries install-binaries: install-$(GD_LIB_FILE) ${GD_PROGS} @if test -n "$(GD_PROGS)" ; \ then \ echo "Installing webgif" ; \ $(INSTALL_PROGRAM) webgif $(BIN_INSTALL_DIR)/webgif ; \ echo "Installing giftogd" ; \ $(INSTALL_PROGRAM) giftogd $(BIN_INSTALL_DIR)/giftogd ; \ echo "Installing gddemo" ; \ $(INSTALL_PROGRAM) gddemo $(BIN_INSTALL_DIR)/gddemo ; \ fi @echo "Installing gd.h" @$(INSTALL_DATA) gd.h ${INCLUDE_INSTALL_DIR} @echo "Installing gdConfig.sh" @$(INSTALL_DATA) gdConfig.sh ${LIB_INSTALL_DIR} install-$(GD_UNSHARED_LIB_FILE): $(GD_UNSHARED_LIB_FILE) @echo "Installing $(GD_UNSHARED_LIB_FILE)" @$(INSTALL_DATA) $(GD_UNSHARED_LIB_FILE) \ $(LIB_INSTALL_DIR)/$(GD_UNSHARED_LIB_FILE) @$(RANLIB) $(LIB_INSTALL_DIR)/$(GD_UNSHARED_LIB_FILE) @cd $(LIB_INSTALL_DIR); \ rm -f libgd.a; \ ln -s $(GD_UNSHARED_LIB_FILE) libgd.a install-$(GD_SHARED_LIB_FILE): $(GD_SHARED_LIB_FILE) @echo "Installing $(GD_SHARED_LIB_FILE)" @$(INSTALL_DATA) $(GD_SHARED_LIB_FILE) \ $(LIB_INSTALL_DIR)/$(GD_SHARED_LIB_FILE) @cd $(LIB_INSTALL_DIR); \ rm -f libgd@TCL_SHLIB_SUFFIX@; \ ln -s $(GD_SHARED_LIB_FILE) libgd@TCL_SHLIB_SUFFIX@ @for i in $(SCRIPT_INSTALL_DIR); \ do \ if [ ! -d $$i ] ; then \ echo "Making directory $$i"; \ mkdir $$i; \ chmod 755 $$i; \ else true; \ fi; \ done; @echo "Installing pkgIndex.tcl" @$(INSTALL_DATA) pkgIndex.tcl $(SCRIPT_INSTALL_DIR)/pkgIndex.tcl Makefile: Makefile.in $(SHELL) config.status .c.o: $(CC) -c $(CC_SWITCHES) $< # DO NOT DELETE THIS LINE -- make depend depends on it. neotcl8.1.1-lite/gd1.2/README100664 15471 0 6235 6752336006 14032 0ustar damonwheelThis is the gd gif-manipulating library, version 1.2. It was created to allow graphs, charts and the like to be generated on the fly for use on the World wide Web, but is useful for any application in which custom .GIFs are useful. It is not a paint program; it is a library. If you are looking for a paint program for the X Window System, check out David Koblas "xpaint", available by anonymous FTP from ftp.netcom.com in pub/ko/koblas. (I'm just a fan of Dave's code.) 1/15/98: gdCmd.c patched to fix certain invocations of the polygon code which would cause it to free an invalid pointer. NOTE TO THE IMPATIENT: the Sun 'cc' compiler shipped standard with SunOS 4.1.3 is NOT AN ANSI C COMPILER and will not compile gd. Get and use gcc if you don't already have it, or use Sun's own commercial-grade ANSI C compiler if you prefer to purchase it. "What's new in gd 1.2?" Many bug fixes, ANSI C compliance, several new fonts and more. "Where's the manual?" Load gd.html into your web browser. Print it if you like, but every single reference to a function is a hyperlink, so the manual is especially good when read online! Note that the entire manual is one document, so it should be reasonably pleasant to read offline when printed. COPYRIGHT 1994,1995 BY THE QUEST CENTER AT COLD SPRING HARBOR LABS. Permission granted for unlimited use, provided that Thomas Boutell and the Quest Center at Cold Spring Harbor Labs are given credit for the library in the user-visible documentation of your software. If you modify gd, we ask that you share the modifications with us so they can be added to the distribution. See gd.html for details. gd has been compiled in various forms on all major platforms. It is happiest on a machine with 32-bit addressing and a proper stack (ie, anything running Unix, VMS, Windows NT or any other modern operating system), but is entirely usable under DOS and Windows. Note, however, that the flood-fill routines are mildly recursive and may fail on machines with tiny stack areas. Also, the fonts require a significant amount of memory (they are optimized more for speed than for size), but they need not be linked by applications that do not use them. Otherwise the code is highly portable as long as you have an ANSI C compiler. Full documentation is provided in HTML (World Wide Web) format in the file gd.html (part of this distribution). You can access the latest version of the file at the URL "http://siva.cshl.org/gd/gd.html". If you are unfamiliar with the World Wide Web, consult the Frequently Asked Questions posting of the appropriate comp.infosystems.www.browsers subgroup for your operating system to obtain more information on where to locate a hypertext browser. The text-based browser "Lynx" does a particularly good job of navigating the manual and will run on nearly anything. Netscape works fine too. If you don't have the patience to consult the manual first, build and examine gddemo.c (see the Makefile) and run it. It will read in demoin.gif and output demoout.gif, which you will want to examine with your GIF viewer to see the results. Tom Boutell, boutell@boutell.com http://sunsite.unc.edu/boutell/index.html P.O. Box 20837 Seattle, WA 98102 neotcl8.1.1-lite/gd1.2/README-tcl100664 15471 0 34510 6752336006 14627 0ustar damonwheel TCL GD 1.1.1 EXTENSION Thomas Boutell's Gd 1.1.1 package provides a convenient way to generate GIF images with a C program. If you, like me, prefer Tcl for CGI applications, you'll want my TCL GD extension. You can get it on the web at http://www.umich.edu/~spencer/guraldi/gdtcl.html. Here's a quick overview of the package. * Overview * Credits and license terms * Installation * Reference * Examples + gdsample -- sample program written in Tcl. + Gddemo -- demo program written in Tcl. + gdshow -- procedure to display an image. * Changes from version 1.1 to 1.1.1. * Changes from version 1.0 to 1.1. Spencer W. Thomas Human Genome Center University of Michigan Ann Arbor, MI 48109 spencer@umich.edu Overview This package provides a simple Tcl interface to the gd (GIF drawing) package, version 1.1. It includes an interface to all the gd functions and data structures from Tcl commands. Detailed documentation for GD is available at the CSHL site. CREDITS AND LICENSE TERMS Gdtcl is copyright, 1994, The Regents of the University of Michigan. Permission is granted to copy and distribute this work provided that this notice remains intact. gd 1.1 is copyright 1994, Quest Protein Database Center, Cold Spring Harbor Labs. Permission granted to copy and distribute this work provided that this notice remains intact. Credit for the library must be given to the Quest Protein Database Center, Cold Spring Harbor Labs, in all derived works. ("Derived works" includes all programs that utilize the library. Credit must be given in user-visible documentation.) If you wish to release modified versions of gd, please clear them through Quest first by sending email to boutell@netcom.com; if this is not done, any modified version of the gd library must be clearly labeled as such. The Quest Protein Database Center is funded under Grant P41-RR02188 by the National Institutes of Health. Written by Thomas Boutell, 2/94 - 11/94. The GIF compression and decompression is based on that found in the pbmplus utilities, which in turn is based on GIFENCOD by David Rowley. See the notice below: /* ** Based on GIFENCOD by David Rowley .A ** Lempel-Zim compression based on "compress". ** ** Modified by Marcel Wijkstra ** ** Copyright (C) 1989 by Jef Poskanzer. ** ** Permission to use, copy, modify, and distribute this software and its ** documentation for any purpose and without fee is hereby granted, provided ** that the above copyright notice appear in all copies and that both that ** copyright notice and this permission notice appear in supporting ** documentation. This software is provided "as is" without express or ** implied warranty. ** ** The Graphics Interchange Format(c) is the Copyright property of ** CompuServe Incorporated. GIF(sm) is a Service Mark property of ** CompuServe Incorporated. */ Installation Place gdCmd.c in your gd1.1 directory. If you have installed tclX, see below. Copy tclAppInit.c from the tcl source directory, and add Gdtcl_Init(interp); right after /* * Call Tcl_CreateCommand for application-specific commands, if * they weren't already created by the init procedures called above. */ Then add these lines to the Makefile in the gd1.1 directory (modifying TCL_DIR appropriately for your installation) TCL_DIR = /usr/hgp/tcl/tcl7.3 TCL_INCLUDE = -I$(TCL_DIR) TCL_LIB = $(TCL_DIR)/libtcl.a CC = gcc CFLAGS = -g $(TCL_INCLUDE) gdtcl: tclAppInit.o gdCmd.o libgd.a gcc -o gdtcl $(CFLAGS) tclAppInit.o gdCmd.o libgd.a $(TCL_LIB) -lm Alternatively, you can modify tclAppInit.c in place, and add references to the gd '.o' files into the tcl makefile (read the instructions with the tcl distribution for details). INSTALLING WITH TCLX If you have installed tclX, edit gdCmd.c and uncomment the line /* #define TCLX_SUPPORT */ The gd interface uses the Handles package from tclX, so you need tcl and tclX. Copy tclXAppInit.c from the tclX/src directory, and add Gdtcl_Init(interp); right after /* * Call Tcl_CreateCommand for application-specific commands, if * they weren't already created by the init procedures called above. */ Then add these lines to the Makefile in the gd1.1 directory (modifying TCL_DIR appropriately for your installation) TCL_DIR = /usr/hgp/tcl/tclX/7.3b TCL_INCLUDE = -I$(TCL_DIR)/include TCL_LIB = $(TCL_DIR)/lib/libtclx.a $(TCL_DIR)/lib/libtcl.a CC = gcc CFLAGS = -g $(TCL_INCLUDE) gdtcl: tclXAppInit.o gdCmd.o libgd.a gcc -o gdtcl $(CFLAGS) tclXAppInit.o gdCmd.o libgd.a $(TCL_LIB) -lm Alternatively, you can modify tclXAppInit.c in place, and add references to the gd '.o' files into the tclX makefile (read the instructions with the tclX distribution for details). Reference One Tcl command, 'gd', is added. All gd package actions are sub-commands (or "options" in Tcl terminology) of this command. Each active gd image is referred to with a "handle". The handle is a name of the form gd# (e.g., gd0) returned by the gd create options. Almost all the gd commands take a handle as the first argument (after the option). All the drawing commands take a color index as the next argument. The color index is a number, or may be one of the strings styled, brushed, tiled, "styled brushed" or "brushed styled". The style, brush, or tile currently in effect will be used. Brushing and styling apply to lines, tiling to filled areas. gd create Return a handle to a new gdImage that is width X height. gd createFromGIF gd createFromGD gd createFromXBM Return a handle to a new gdImage created by reading a GIF (resp. GD or XBM) image from the file open on filehandle. gd destroy Destroy the gdImage referred to by gdhandle. gd writeGIF gd writeGD Write the image in gdhandle to filehandle as a GIF (resp. GD) file. gd interlace Make the output image interlaced (if on-off is true) or not (if on-off is false). gd color new Allocate a new color with the given RGB values. Return the color index. Returns -1 on failure. gd color exact gd color closest Find a color in the image that exactly matches (resp., is closest to) the given RGB color. Returns the index (or -1 if no exact match). gd color free Free the color at the given index for reuse. gd color transparent [] Mark the color index as the transparent background color. Or, return the transparent color index if no index specified. gd color get [] Return the RGB value at , or {} if it is not allocated. If is not specified, return a list of {index R G B} values for all allocated colors. gd brush Set the brush image to be used for brushed lines. Transparent pixels in the brush will not change the image when the brush is applied. gd style ... Set the line style to the list of color indices. This is interpreted in one of two ways. For a simple styled line, each color index is applied to points along the line in turn. The transparent index value may be used to leave gaps in the line. For a styled, brushed line, a 0 (or the transparent index) means not to fill the pixel, and a non-zero value means to apply the brush. gd tile Set the tile image to be used for tiled fills. Transparent pixels in the tile will not change the underlying image during tiling. gd set Set the pixel at (x,y) to index. gd line gd rectangle gd fillrectangle Draw the outline of (resp. fill) a rectangle in color with corners at (x1,y1) and (x2,y2). gd arc Draw an arc in index, centered at (cx,cy) in a rectangle width x height, starting at start degrees and ending at end degrees. start must be > end. gd polygon ... gd fillpolygon ... Draw the outline of, or fill, a polygon specified by the x, y coordinate list. There must be at least 3 points specified. gd fill gd fill Fill with color index, starting from (x,y) within a region of pixels all the color of the pixel at (x,y) (resp., within a border colored borderindex). gd size Returns a list {width height} of the image. gd fonts Returns a list of available fonts: {fontname width height} gd text gd textup Draw text with font fontname, in color index, with upper left corner at (x,y). textup draws text rotated 90 degrees, running up. gd copy gd copy \ Copy a subimage from srchandle(srcx, srcy) to desthandle(destx, desty), size w x h. Or, resize the subimage in copying from srcw x srch to destw x desth. Examples The sample program from the gd documentation can be written thusly: ################################################################ # Sample gdtcl program # # Create a 64 x 64 image set im [gd create 64 64] # Get black and white as colors. Black is the background color because # it is allocated first from a new image. set black [gd color new $im 0 0 0] set white [gd color new $im 255 255 255] # Draw a line from upper left to lower right gd line $im $white 0 0 63 63 # Open a file for writing (Tcl on Unix, at least, doesn't support 'wb' mode) set out [open test.gif w] # Output the image to the disk file gd writeGIF $im $out # Close the file close $out # Destroy the image in memory gd destroy $im GDDEMO Here's the gddemo.c program translated to tcl. You can even run it on my machine. ################################################################ # # gddemo in tcl # # Create output image 128 x 128 set im_out [gd create 128 128] # First color is background set white [gd color new $im_out 255 255 255] # Set transparent gd color transparent $im_out $white # Load demoin.gif and paste part of it into the output image. if {[catch {set in [open demoin.gif]}]} { puts stderr "Can't load source image; this demo is much"; puts stderr "more impressive if demoin.gif is available"; set im_in ""; } else { set im_in [gd createFromGIF $in] close $in # Copy and shrink gd copy $im_out $im_in 16 16 0 0 96 96 128 128 } # Get some colors set red [gd color new $im_out 255 0 0] set green [gd color new $im_out 0 255 0] set blue [gd color new $im_out 0 0 255] # Draw a rectangle gd line $im_out $green 8 8 120 8 gd line $im_out $green 120 8 120 120 gd line $im_out $green 120 120 8 120 gd line $im_out $green 8 120 8 8 # Text gd text $im_out $red large 16 16 hi gd textup $im_out $red small 23 23 hi # Circle gd arc $im_out $blue 64 64 30 10 0 360 # Arc gd arc $im_out $blue 64 64 20 20 45 135 # Flood fill gd fill $im_out $blue 4 4 # Polygon gd fillpolygon $im_out $green 32 0 0 64 64 64 # Brush. A fairly wild example also involving a line style! if {$im_in != ""} { set brush [gd create 8 8]; eval [concat gd copy $brush $im_in 0 0 0 0 [gd size $brush] [gd size $im_in]] gd brush $im_out $brush # Style so they won't overprint each other. gd style $im_out [concat [replicate "0 " 7] 1] gd line $im_out "styled brushed" 0 0 128 128 } # Interlace the result for "fade in" in viewers that support it gd interlace $im_out true # Write GIF set out [open demoout.gif w] gd writeGIF $im_out $out close $out gd destroy $im_out GDSHOW A quick Tcl procedure to display a GD image using the xv program. ################################################################ # gdshow -- use xv to display an image. # # Waits until xv quits to return. # proc gdshow {gd} { set f [open "|xv -" w] catch {gd writeGIF $gd $f} catch {close $f} xx if {$xx != {}} { error "XV error: $xx" } } Changes from Version 1.1 to 1.1.1 The major change in this release is that you can now install the extension without tclX. I've written emulation functions for the tclX "handle" routines that the extension uses. If you do have tclX, be sure to see the installation instructions above. It's also updated to remain compatible with the changes in gd 1.1.1. Changes from Version 1.0 to 1.1 Most of the changes involve adding new functionality to support the new functionality in gd1.1. These are: * The polygon and fillpolygon commands, * The style, brush, and tile commands, * Addition of brushed, styled, and tiled "colors," and * The interlace command. The dash command has been deleted, as this functionality is now available through the use of line styles. _________________________________________________________________ Spencer W. Thomas -- spencer@umich.edu This page last changed on 9 August, 1995. neotcl8.1.1-lite/gd1.2/configure100775 15471 0 110504 6752336006 15114 0ustar damonwheel#! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated automatically using autoconf version 2.13 # Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc. # # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. # Defaults: ac_help= ac_default_prefix=/usr/local # Any additions from configure.in: ac_help="$ac_help --enable-shared build libtk as a shared library" # Initialize some variables set by options. # The variables have the same names as the options, with # dashes changed to underlines. build=NONE cache_file=./config.cache exec_prefix=NONE host=NONE no_create= nonopt=NONE no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= target=NONE verbose= x_includes=NONE x_libraries=NONE bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datadir='${prefix}/share' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' libdir='${exec_prefix}/lib' includedir='${prefix}/include' oldincludedir='/usr/include' infodir='${prefix}/info' mandir='${prefix}/man' # Initialize some other variables. subdirs= MFLAGS= MAKEFLAGS= SHELL=${CONFIG_SHELL-/bin/sh} # Maximum number of lines to put in a shell here document. ac_max_here_lines=12 ac_prev= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval "$ac_prev=\$ac_option" ac_prev= continue fi case "$ac_option" in -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;; *) ac_optarg= ;; esac # Accept the important Cygnus configure options, so we can diagnose typos. case "$ac_option" in -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir="$ac_optarg" ;; -build | --build | --buil | --bui | --bu) ac_prev=build ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build="$ac_optarg" ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file="$ac_optarg" ;; -datadir | --datadir | --datadi | --datad | --data | --dat | --da) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ | --da=*) datadir="$ac_optarg" ;; -disable-* | --disable-*) ac_feature=`echo $ac_option|sed -e 's/-*disable-//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } fi ac_feature=`echo $ac_feature| sed 's/-/_/g'` eval "enable_${ac_feature}=no" ;; -enable-* | --enable-*) ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } fi ac_feature=`echo $ac_feature| sed 's/-/_/g'` case "$ac_option" in *=*) ;; *) ac_optarg=yes ;; esac eval "enable_${ac_feature}='$ac_optarg'" ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix="$ac_optarg" ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he) # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat << EOF Usage: configure [options] [host] Options: [defaults in brackets after descriptions] Configuration: --cache-file=FILE cache test results in FILE --help print this message --no-create do not create output files --quiet, --silent do not print \`checking...' messages --version print the version of autoconf that created configure Directory and file names: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [same as prefix] --bindir=DIR user executables in DIR [EPREFIX/bin] --sbindir=DIR system admin executables in DIR [EPREFIX/sbin] --libexecdir=DIR program executables in DIR [EPREFIX/libexec] --datadir=DIR read-only architecture-independent data in DIR [PREFIX/share] --sysconfdir=DIR read-only single-machine data in DIR [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data in DIR [PREFIX/com] --localstatedir=DIR modifiable single-machine data in DIR [PREFIX/var] --libdir=DIR object code libraries in DIR [EPREFIX/lib] --includedir=DIR C header files in DIR [PREFIX/include] --oldincludedir=DIR C header files for non-gcc in DIR [/usr/include] --infodir=DIR info documentation in DIR [PREFIX/info] --mandir=DIR man documentation in DIR [PREFIX/man] --srcdir=DIR find the sources in DIR [configure dir or ..] --program-prefix=PREFIX prepend PREFIX to installed program names --program-suffix=SUFFIX append SUFFIX to installed program names --program-transform-name=PROGRAM run sed PROGRAM on installed program names EOF cat << EOF Host type: --build=BUILD configure for building on BUILD [BUILD=HOST] --host=HOST configure for HOST [guessed] --target=TARGET configure for TARGET [TARGET=HOST] Features and packages: --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) --enable-FEATURE[=ARG] include FEATURE [ARG=yes] --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --x-includes=DIR X include files are in DIR --x-libraries=DIR X library files are in DIR EOF if test -n "$ac_help"; then echo "--enable and --with options recognized:$ac_help" fi exit 0 ;; -host | --host | --hos | --ho) ac_prev=host ;; -host=* | --host=* | --hos=* | --ho=*) host="$ac_optarg" ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir="$ac_optarg" ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir="$ac_optarg" ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir="$ac_optarg" ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir="$ac_optarg" ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst \ | --locals | --local | --loca | --loc | --lo) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* \ | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) localstatedir="$ac_optarg" ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir="$ac_optarg" ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir="$ac_optarg" ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix="$ac_optarg" ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix="$ac_optarg" ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix="$ac_optarg" ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name="$ac_optarg" ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir="$ac_optarg" ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir="$ac_optarg" ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site="$ac_optarg" ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir="$ac_optarg" ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir="$ac_optarg" ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target="$ac_optarg" ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers) echo "configure generated by autoconf version 2.13" exit 0 ;; -with-* | --with-*) ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } fi ac_package=`echo $ac_package| sed 's/-/_/g'` case "$ac_option" in *=*) ;; *) ac_optarg=yes ;; esac eval "with_${ac_package}='$ac_optarg'" ;; -without-* | --without-*) ac_package=`echo $ac_option|sed -e 's/-*without-//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } fi ac_package=`echo $ac_package| sed 's/-/_/g'` eval "with_${ac_package}=no" ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes="$ac_optarg" ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries="$ac_optarg" ;; -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; } ;; *) if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then echo "configure: warning: $ac_option: invalid host type" 1>&2 fi if test "x$nonopt" != xNONE; then { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } fi nonopt="$ac_option" ;; esac done if test -n "$ac_prev"; then { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; } fi trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 # File descriptor usage: # 0 standard input # 1 file creation # 2 errors and warnings # 3 some systems may open it to /dev/tty # 4 used on the Kubota Titan # 6 checking for... messages and results # 5 compiler messages saved in config.log if test "$silent" = yes; then exec 6>/dev/null else exec 6>&1 fi exec 5>./config.log echo "\ This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. " 1>&5 # Strip out --no-create and --no-recursion so they do not pile up. # Also quote any args containing shell metacharacters. ac_configure_args= for ac_arg do case "$ac_arg" in -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c) ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*) ac_configure_args="$ac_configure_args '$ac_arg'" ;; *) ac_configure_args="$ac_configure_args $ac_arg" ;; esac done # NLS nuisances. # Only set these to C if already set. These must not be set unconditionally # because not all systems understand e.g. LANG=C (notably SCO). # Fixing LC_MESSAGES prevents Solaris sh from translating var values in `set'! # Non-C LC_CTYPE values break the ctype check. if test "${LANG+set}" = set; then LANG=C; export LANG; fi if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi if test "${LC_MESSAGES+set}" = set; then LC_MESSAGES=C; export LC_MESSAGES; fi if test "${LC_CTYPE+set}" = set; then LC_CTYPE=C; export LC_CTYPE; fi # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -rf conftest* confdefs.h # AIX cpp loses on an empty file, so make sure it contains at least a newline. echo > confdefs.h # A filename unique to this package, relative to the directory that # configure is in, which we can look for to find out if srcdir is correct. ac_unique_file=gd.c # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then its parent. ac_prog=$0 ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'` test "x$ac_confdir" = "x$ac_prog" && ac_confdir=. srcdir=$ac_confdir if test ! -r $srcdir/$ac_unique_file; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r $srcdir/$ac_unique_file; then if test "$ac_srcdir_defaulted" = yes; then { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; } else { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; } fi fi srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'` # Prefer explicitly selected file to automatically selected ones. if test -z "$CONFIG_SITE"; then if test "x$prefix" != xNONE; then CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" else CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" fi fi for ac_site_file in $CONFIG_SITE; do if test -r "$ac_site_file"; then echo "loading site script $ac_site_file" . "$ac_site_file" fi done if test -r "$cache_file"; then echo "loading cache $cache_file" . $cache_file else echo "creating cache $cache_file" > $cache_file fi ac_ext=c # CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. ac_cpp='$CPP $CPPFLAGS' ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' cross_compiling=$ac_cv_prog_cc_cross ac_exeext= ac_objext=o if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then ac_n= ac_c=' ' ac_t=' ' else ac_n=-n ac_c= ac_t= fi else ac_n= ac_c='\c' ac_t= fi TOP_DIR=`pwd` if test "${prefix}" = "NONE"; then prefix=/usr/local fi if test "${exec_prefix}" = "NONE"; then exec_prefix=$prefix fi echo "checking for tclConfig.sh" 1>&6 echo "configure:538: checking for tclConfig.sh" >&5 for tcldir in tcl8.1.1 tcl8.0.4 tcl8.0.3 tcl8.0 tcl7.6 tcl7.5 do if test -d ../$tcldir then TCL_TOP_DIR=`(cd ../$tcldir; pwd)` break fi done if test -z "$TCL_TOP_DIR" then eval "TCL_CONFIG_FILE=$libdir/tclConfig.sh" if test -f $TCL_CONFIG_FILE then echo "$ac_t""$TCL_CONFIG_FILE" 1>&6 . $TCL_CONFIG_FILE else echo "$ac_t""not found" 1>&6 { echo "configure: error: Cannot locate tclConfig.sh" 1>&2; exit 1; } fi else echo "$ac_t""$TCL_TOP_DIR/unix/tclConfig.sh" 1>&6 . $TCL_TOP_DIR/unix/tclConfig.sh fi echo "checking for tclxConfig.sh" 1>&6 echo "configure:566: checking for tclxConfig.sh" >&5 for tclxdir in tclX8.1.1 tclX8.0.4 tclX8.0.3 tclX8.0.2 tclX7.6.0 tclX7.5.3-a1 tclX7.5.2 do if test -d ../$tclxdir then TCLX_TOP_DIR=`(cd ../$tclxdir; pwd)` break fi done if test -z "$TCLX_TOP_DIR" then eval "TCLX_CONFIG_FILE=$libdir/tclxConfig.sh" if test -f $TCLX_CONFIG_FILE then echo "$ac_t""$TCLX_CONFIG_FILE" 1>&6 . $TCLX_CONFIG_FILE else echo "$ac_t""not found" 1>&6 { echo "configure: error: Cannot locate tclxConfig.sh" 1>&2; exit 1; } fi else echo "$ac_t""$TCLX_TOP_DIR/unix/tclxConfig.sh" 1>&6 . $TCLX_TOP_DIR/tcl/unix/tclxConfig.sh fi GD_VERSION='1.2' GD_MAJOR_VERSION='1' GD_MINOR_VERSION='2' VERSION=$GD_VERSION # Extract the first word of "gcc", so it can be a program name with args. set dummy gcc; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 echo "configure:604: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_CC="gcc" break fi done IFS="$ac_save_ifs" fi fi CC="$ac_cv_prog_CC" if test -n "$CC"; then echo "$ac_t""$CC" 1>&6 else echo "$ac_t""no" 1>&6 fi if test -z "$CC"; then # Extract the first word of "cc", so it can be a program name with args. set dummy cc; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 echo "configure:634: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_prog_rejected=no ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then if test "$ac_dir/$ac_word" = "/usr/ucb/cc"; then ac_prog_rejected=yes continue fi ac_cv_prog_CC="cc" break fi done IFS="$ac_save_ifs" if test $ac_prog_rejected = yes; then # We found a bogon in the path, so make sure we never use it. set dummy $ac_cv_prog_CC shift if test $# -gt 0; then # We chose a different compiler from the bogus one. # However, it has the same basename, so the bogon will be chosen # first if we set CC to just the basename; use the full file name. shift set dummy "$ac_dir/$ac_word" "$@" shift ac_cv_prog_CC="$@" fi fi fi fi CC="$ac_cv_prog_CC" if test -n "$CC"; then echo "$ac_t""$CC" 1>&6 else echo "$ac_t""no" 1>&6 fi if test -z "$CC"; then case "`uname -s`" in *win32* | *WIN32*) # Extract the first word of "cl", so it can be a program name with args. set dummy cl; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 echo "configure:685: checking for $ac_word" >&5 if eval "test \"`echo '$''{'ac_cv_prog_CC'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else if test -n "$CC"; then ac_cv_prog_CC="$CC" # Let the user override the test. else IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS=":" ac_dummy="$PATH" for ac_dir in $ac_dummy; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_prog_CC="cl" break fi done IFS="$ac_save_ifs" fi fi CC="$ac_cv_prog_CC" if test -n "$CC"; then echo "$ac_t""$CC" 1>&6 else echo "$ac_t""no" 1>&6 fi ;; esac fi test -z "$CC" && { echo "configure: error: no acceptable cc found in \$PATH" 1>&2; exit 1; } fi echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works""... $ac_c" 1>&6 echo "configure:717: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) works" >&5 ac_ext=c # CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. ac_cpp='$CPP $CPPFLAGS' ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' cross_compiling=$ac_cv_prog_cc_cross cat > conftest.$ac_ext << EOF #line 728 "configure" #include "confdefs.h" main(){return(0);} EOF if { (eval echo configure:733: \"$ac_link\") 1>&5; (eval $ac_link) 2>&5; } && test -s conftest${ac_exeext}; then ac_cv_prog_cc_works=yes # If we can't run a trivial program, we are probably using a cross compiler. if (./conftest; exit) 2>/dev/null; then ac_cv_prog_cc_cross=no else ac_cv_prog_cc_cross=yes fi else echo "configure: failed program was:" >&5 cat conftest.$ac_ext >&5 ac_cv_prog_cc_works=no fi rm -fr conftest* ac_ext=c # CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. ac_cpp='$CPP $CPPFLAGS' ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' ac_link='${CC-cc} -o conftest${ac_exeext} $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' cross_compiling=$ac_cv_prog_cc_cross echo "$ac_t""$ac_cv_prog_cc_works" 1>&6 if test $ac_cv_prog_cc_works = no; then { echo "configure: error: installation or configuration problem: C compiler cannot create executables." 1>&2; exit 1; } fi echo $ac_n "checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler""... $ac_c" 1>&6 echo "configure:759: checking whether the C compiler ($CC $CFLAGS $LDFLAGS) is a cross-compiler" >&5 echo "$ac_t""$ac_cv_prog_cc_cross" 1>&6 cross_compiling=$ac_cv_prog_cc_cross echo $ac_n "checking whether we are using GNU C""... $ac_c" 1>&6 echo "configure:764: checking whether we are using GNU C" >&5 if eval "test \"`echo '$''{'ac_cv_prog_gcc'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else cat > conftest.c <&5; (eval $ac_try) 2>&5; }; } | egrep yes >/dev/null 2>&1; then ac_cv_prog_gcc=yes else ac_cv_prog_gcc=no fi fi echo "$ac_t""$ac_cv_prog_gcc" 1>&6 if test $ac_cv_prog_gcc = yes; then GCC=yes else GCC= fi ac_test_CFLAGS="${CFLAGS+set}" ac_save_CFLAGS="$CFLAGS" CFLAGS= echo $ac_n "checking whether ${CC-cc} accepts -g""... $ac_c" 1>&6 echo "configure:792: checking whether ${CC-cc} accepts -g" >&5 if eval "test \"`echo '$''{'ac_cv_prog_cc_g'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else echo 'void f(){}' > conftest.c if test -z "`${CC-cc} -g -c conftest.c 2>&1`"; then ac_cv_prog_cc_g=yes else ac_cv_prog_cc_g=no fi rm -f conftest* fi echo "$ac_t""$ac_cv_prog_cc_g" 1>&6 if test "$ac_test_CFLAGS" = set; then CFLAGS="$ac_save_CFLAGS" elif test $ac_cv_prog_cc_g = yes; then if test "$GCC" = yes; then CFLAGS="-g -O2" else CFLAGS="-g" fi else if test "$GCC" = yes; then CFLAGS="-O2" else CFLAGS= fi fi VERSION=$GD_VERSION SHLIB_SUFFIX=${TCL_SHLIB_SUFFIX} eval "GD_SHARED_LIB_FILE=libgd${TCL_SHARED_LIB_SUFFIX}" eval "GD_UNSHARED_LIB_FILE=libgd${TCL_UNSHARED_LIB_SUFFIX}" # Check whether --enable-shared or --disable-shared was given. if test "${enable_shared+set}" = set; then enableval="$enable_shared" ok=$enableval else ok=no fi if test "$ok" = "yes" -a "${TCL_SHLIB_SUFFIX}" != ""; then SHLIB_CFLAGS="${TCL_SHLIB_CFLAGS}" eval "GD_LIB_FILE=libgd${TCL_SHARED_LIB_SUFFIX}" GD_UNSHARED_LIB_FILE=dont_build_shared GD_PROGS="" else SHLIB_CFLAGS="" eval "GD_LIB_FILE=libgd${TCL_UNSHARED_LIB_SUFFIX}" GD_SHARED_LIB_FILE=dont_build_shared GD_PROGS="webgif giftogd gddemo" fi # Note: in the following variable, it's important to use the absolute # path name of the Tcl directory rather than "..": this is because # AIX remembers this path and will attempt to use it at run-time to look # up the Tcl library. # Also note: this code pulled in from tk's configure, but maybe not very # useful right now. if test "${TCL_LIB_VERSIONS_OK}" = "ok"; then GD_BUILD_LIB_SPEC="-L`pwd` -lgd${VERSION}" GD_LIB_SPEC="-L\${GD_EXEC_PREFIX}/lib -lgd${VERSION}" else GD_BUILD_LIB_SPEC="-L`pwd` -lgd`echo ${VERSION} | tr -d .`" GD_LIB_SPEC="-L\${GD_EXEC_PREFIX}/lib -lgd`echo ${VERSION} | tr -d .`" fi #------------------------------------------------------------------- # Use data from *Config.sh files instead of figuring it out #------------------------------------------------------------------- trap '' 1 2 15 cat > confcache <<\EOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs. It is not useful on other systems. # If it contains results you don't want to keep, you may remove or edit it. # # By default, configure uses ./config.cache as the cache file, # creating it if it does not exist already. You can give configure # the --cache-file=FILE option to use a different cache file; that is # what configure does when it calls configure scripts in # subdirectories, so they share the cache. # Giving --cache-file=/dev/null disables caching, for debugging configure. # config.status only pays attention to the cache file if you give it the # --recheck option to rerun configure. # EOF # The following way of writing the cache mishandles newlines in values, # but we know of no workaround that is simple, portable, and efficient. # So, don't put newlines in cache variables' values. # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. (set) 2>&1 | case `(ac_space=' '; set | grep ac_space) 2>&1` in *ac_space=\ *) # `set' does not quote correctly, so add quotes (double-quote substitution # turns \\\\ into \\, and sed turns \\ into \). sed -n \ -e "s/'/'\\\\''/g" \ -e "s/^\\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\\)=\\(.*\\)/\\1=\${\\1='\\2'}/p" ;; *) # `set' quotes correctly as required by POSIX, so do not add quotes. sed -n -e 's/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=${\1=\2}/p' ;; esac >> confcache if cmp -s $cache_file confcache; then : else if test -w $cache_file; then echo "updating cache $cache_file" cat confcache > $cache_file else echo "not updating unwritable cache $cache_file" fi fi rm -f confcache trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' # Any assignment to VPATH causes Sun make to only execute # the first set of double-colon rules, so remove it if not needed. # If there is a colon in the path, we need to keep it. if test "x$srcdir" = x.; then ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d' fi trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15 # Transform confdefs.h into DEFS. # Protect against shell expansion while executing Makefile rules. # Protect against Makefile macro expansion. cat > conftest.defs <<\EOF s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%-D\1=\2%g s%[ `~#$^&*(){}\\|;'"<>?]%\\&%g s%\[%\\&%g s%\]%\\&%g s%\$%$$%g EOF DEFS=`sed -f conftest.defs confdefs.h | tr '\012' ' '` rm -f conftest.defs # Without the "./", some shells look in PATH for config.status. : ${CONFIG_STATUS=./config.status} echo creating $CONFIG_STATUS rm -f $CONFIG_STATUS cat > $CONFIG_STATUS </dev/null | sed 1q`: # # $0 $ac_configure_args # # Compiler output produced by configure, useful for debugging # configure, is in ./config.log if it exists. ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]" for ac_option do case "\$ac_option" in -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion" exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;; -version | --version | --versio | --versi | --vers | --ver | --ve | --v) echo "$CONFIG_STATUS generated by autoconf version 2.13" exit 0 ;; -help | --help | --hel | --he | --h) echo "\$ac_cs_usage"; exit 0 ;; *) echo "\$ac_cs_usage"; exit 1 ;; esac done ac_given_srcdir=$srcdir trap 'rm -fr `echo "Makefile pkgIndex.tcl gdConfig.sh" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15 EOF cat >> $CONFIG_STATUS < conftest.subs <<\\CEOF $ac_vpsub $extrasub s%@SHELL@%$SHELL%g s%@CFLAGS@%$CFLAGS%g s%@CPPFLAGS@%$CPPFLAGS%g s%@CXXFLAGS@%$CXXFLAGS%g s%@FFLAGS@%$FFLAGS%g s%@DEFS@%$DEFS%g s%@LDFLAGS@%$LDFLAGS%g s%@LIBS@%$LIBS%g s%@exec_prefix@%$exec_prefix%g s%@prefix@%$prefix%g s%@program_transform_name@%$program_transform_name%g s%@bindir@%$bindir%g s%@sbindir@%$sbindir%g s%@libexecdir@%$libexecdir%g s%@datadir@%$datadir%g s%@sysconfdir@%$sysconfdir%g s%@sharedstatedir@%$sharedstatedir%g s%@localstatedir@%$localstatedir%g s%@libdir@%$libdir%g s%@includedir@%$includedir%g s%@oldincludedir@%$oldincludedir%g s%@infodir@%$infodir%g s%@mandir@%$mandir%g s%@GD_VERSION@%$GD_VERSION%g s%@GD_MAJOR_VERSION@%$GD_MAJOR_VERSION%g s%@GD_MINOR_VERSION@%$GD_MINOR_VERSION%g s%@CC@%$CC%g s%@TOP_DIR@%$TOP_DIR%g s%@TCL_TOP_DIR@%$TCL_TOP_DIR%g s%@TCLX_TOP_DIR@%$TCLX_TOP_DIR%g s%@TCL_PREFIX@%$TCL_PREFIX%g s%@TCL_EXEC_PREFIX@%$TCL_EXEC_PREFIX%g s%@TCL_LIBS@%$TCL_LIBS%g s%@TCL_DL_LIBS@%$TCL_DL_LIBS%g s%@TCL_LD_FLAGS@%$TCL_LD_FLAGS%g s%@TCL_BUILD_LIB_SPEC@%$TCL_BUILD_LIB_SPEC%g s%@TCL_SHLIB_LD@%$TCL_SHLIB_LD%g s%@TCL_SHLIB_SUFFIX@%$TCL_SHLIB_SUFFIX%g s%@TCL_SHLIB_LD_LIBS@%$TCL_SHLIB_LD_LIBS%g s%@TCL_LD_SEARCH_FLAGS@%$TCL_LD_SEARCH_FLAGS%g s%@TCL_LIB_HNAME@%$TCL_LIB_HNAME%g s%@TCL_RANLIB@%$TCL_RANLIB%g s%@TCL_CC@%$TCL_CC%g s%@TCL_DEFS@%$TCL_DEFS%g s%@GD_SHARED_LIB_FILE@%$GD_SHARED_LIB_FILE%g s%@GD_UNSHARED_LIB_FILE@%$GD_UNSHARED_LIB_FILE%g s%@GD_LIB_FILE@%$GD_LIB_FILE%g s%@GD_LIB_SPEC@%$GD_LIB_SPEC%g s%@GD_BUILD_LIB_SPEC@%$GD_BUILD_LIB_SPEC%g s%@GD_PROGS@%$GD_PROGS%g s%@SHLIB_CFLAGS@%$SHLIB_CFLAGS%g CEOF EOF cat >> $CONFIG_STATUS <<\EOF # Split the substitutions into bite-sized pieces for seds with # small command number limits, like on Digital OSF/1 and HP-UX. ac_max_sed_cmds=90 # Maximum number of lines to put in a sed script. ac_file=1 # Number of current file. ac_beg=1 # First line for current file. ac_end=$ac_max_sed_cmds # Line after last line for current file. ac_more_lines=: ac_sed_cmds="" while $ac_more_lines; do if test $ac_beg -gt 1; then sed "1,${ac_beg}d; ${ac_end}q" conftest.subs > conftest.s$ac_file else sed "${ac_end}q" conftest.subs > conftest.s$ac_file fi if test ! -s conftest.s$ac_file; then ac_more_lines=false rm -f conftest.s$ac_file else if test -z "$ac_sed_cmds"; then ac_sed_cmds="sed -f conftest.s$ac_file" else ac_sed_cmds="$ac_sed_cmds | sed -f conftest.s$ac_file" fi ac_file=`expr $ac_file + 1` ac_beg=$ac_end ac_end=`expr $ac_end + $ac_max_sed_cmds` fi done if test -z "$ac_sed_cmds"; then ac_sed_cmds=cat fi EOF cat >> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then # Support "outfile[:infile[:infile...]]", defaulting infile="outfile.in". case "$ac_file" in *:*) ac_file_in=`echo "$ac_file"|sed 's%[^:]*:%%'` ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; *) ac_file_in="${ac_file}.in" ;; esac # Adjust a relative srcdir, top_srcdir, and INSTALL for subdirectories. # Remove last slash and all that follows it. Not all systems have dirname. ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then # The file is in a subdirectory. test ! -d "$ac_dir" && mkdir "$ac_dir" ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`" # A "../" for each directory in $ac_dir_suffix. ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'` else ac_dir_suffix= ac_dots= fi case "$ac_given_srcdir" in .) srcdir=. if test -z "$ac_dots"; then top_srcdir=. else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;; /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;; *) # Relative path. srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix" top_srcdir="$ac_dots$ac_given_srcdir" ;; esac echo creating "$ac_file" rm -f "$ac_file" configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure." case "$ac_file" in *Makefile*) ac_comsub="1i\\ # $configure_input" ;; *) ac_comsub= ;; esac ac_file_inputs=`echo $ac_file_in|sed -e "s%^%$ac_given_srcdir/%" -e "s%:% $ac_given_srcdir/%g"` sed -e "$ac_comsub s%@configure_input@%$configure_input%g s%@srcdir@%$srcdir%g s%@top_srcdir@%$top_srcdir%g " $ac_file_inputs | (eval "$ac_sed_cmds") > $ac_file fi; done rm -f conftest.s* EOF cat >> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF exit 0 EOF chmod +x $CONFIG_STATUS rm -fr confdefs* $ac_clean_files test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1 neotcl8.1.1-lite/gd1.2/configure.in100664 15471 0 7135 6752336006 15463 0ustar damonwheelAC_INIT(gd.c) TOP_DIR=`pwd` if test "${prefix}" = "NONE"; then prefix=/usr/local fi if test "${exec_prefix}" = "NONE"; then exec_prefix=$prefix fi AC_CHECKING(for tclConfig.sh) for tcldir in tcl8.1.1 tcl8.0.4 tcl8.0.3 tcl8.0 tcl7.6 tcl7.5 do if test -d ../$tcldir then TCL_TOP_DIR=`(cd ../$tcldir; pwd)` break fi done if test -z "$TCL_TOP_DIR" then eval "TCL_CONFIG_FILE=$libdir/tclConfig.sh" if test -f $TCL_CONFIG_FILE then AC_MSG_RESULT($TCL_CONFIG_FILE) . $TCL_CONFIG_FILE else AC_MSG_RESULT(not found) AC_MSG_ERROR(Cannot locate tclConfig.sh) fi else AC_MSG_RESULT($TCL_TOP_DIR/unix/tclConfig.sh) . $TCL_TOP_DIR/unix/tclConfig.sh fi AC_CHECKING(for tclxConfig.sh) for tclxdir in tclX8.1.1 tclX8.0.4 tclX8.0.3 tclX8.0.2 tclX7.6.0 tclX7.5.3-a1 tclX7.5.2 do if test -d ../$tclxdir then TCLX_TOP_DIR=`(cd ../$tclxdir; pwd)` break fi done if test -z "$TCLX_TOP_DIR" then eval "TCLX_CONFIG_FILE=$libdir/tclxConfig.sh" if test -f $TCLX_CONFIG_FILE then AC_MSG_RESULT($TCLX_CONFIG_FILE) . $TCLX_CONFIG_FILE else AC_MSG_RESULT(not found) AC_MSG_ERROR(Cannot locate tclxConfig.sh) fi else AC_MSG_RESULT($TCLX_TOP_DIR/unix/tclxConfig.sh) . $TCLX_TOP_DIR/tcl/unix/tclxConfig.sh fi GD_VERSION='1.2' GD_MAJOR_VERSION='1' GD_MINOR_VERSION='2' VERSION=$GD_VERSION AC_SUBST(GD_VERSION) AC_SUBST(GD_MAJOR_VERSION) AC_SUBST(GD_MINOR_VERSION) AC_PROG_CC VERSION=$GD_VERSION SHLIB_SUFFIX=${TCL_SHLIB_SUFFIX} eval "GD_SHARED_LIB_FILE=libgd${TCL_SHARED_LIB_SUFFIX}" eval "GD_UNSHARED_LIB_FILE=libgd${TCL_UNSHARED_LIB_SUFFIX}" AC_ARG_ENABLE(shared, [ --enable-shared build libtk as a shared library], [ok=$enableval], [ok=no]) if test "$ok" = "yes" -a "${TCL_SHLIB_SUFFIX}" != ""; then SHLIB_CFLAGS="${TCL_SHLIB_CFLAGS}" eval "GD_LIB_FILE=libgd${TCL_SHARED_LIB_SUFFIX}" GD_UNSHARED_LIB_FILE=dont_build_shared GD_PROGS="" else SHLIB_CFLAGS="" eval "GD_LIB_FILE=libgd${TCL_UNSHARED_LIB_SUFFIX}" GD_SHARED_LIB_FILE=dont_build_shared GD_PROGS="webgif giftogd gddemo" fi # Note: in the following variable, it's important to use the absolute # path name of the Tcl directory rather than "..": this is because # AIX remembers this path and will attempt to use it at run-time to look # up the Tcl library. # Also note: this code pulled in from tk's configure, but maybe not very # useful right now. if test "${TCL_LIB_VERSIONS_OK}" = "ok"; then GD_BUILD_LIB_SPEC="-L`pwd` -lgd${VERSION}" GD_LIB_SPEC="-L\${GD_EXEC_PREFIX}/lib -lgd${VERSION}" else GD_BUILD_LIB_SPEC="-L`pwd` -lgd`echo ${VERSION} | tr -d .`" GD_LIB_SPEC="-L\${GD_EXEC_PREFIX}/lib -lgd`echo ${VERSION} | tr -d .`" fi #------------------------------------------------------------------- # Use data from *Config.sh files instead of figuring it out #------------------------------------------------------------------- AC_SUBST(TOP_DIR) AC_SUBST(TCL_TOP_DIR) AC_SUBST(TCLX_TOP_DIR) AC_SUBST(TCL_PREFIX) AC_SUBST(TCL_EXEC_PREFIX) AC_SUBST(TCL_LIBS) AC_SUBST(TCL_DL_LIBS) AC_SUBST(TCL_LD_FLAGS) AC_SUBST(TCL_BUILD_LIB_SPEC) AC_SUBST(TCL_SHLIB_LD) AC_SUBST(TCL_SHLIB_SUFFIX) AC_SUBST(TCL_SHLIB_LD_LIBS) AC_SUBST(TCL_DL_LIBS) AC_SUBST(TCL_LD_FLAGS) AC_SUBST(TCL_LD_SEARCH_FLAGS) AC_SUBST(TCL_LIB_HNAME) AC_SUBST(TCL_RANLIB) AC_SUBST(TCL_CC) AC_SUBST(TCL_DEFS) AC_SUBST(GD_VERSION) AC_SUBST(GD_MAJOR_VERSION) AC_SUBST(GD_MINOR_VERSION) AC_SUBST(GD_SHARED_LIB_FILE) AC_SUBST(GD_UNSHARED_LIB_FILE) AC_SUBST(GD_LIB_FILE) AC_SUBST(GD_LIB_SPEC) AC_SUBST(GD_BUILD_LIB_SPEC) AC_SUBST(GD_PROGS) AC_SUBST(SHLIB_CFLAGS) AC_OUTPUT(Makefile pkgIndex.tcl gdConfig.sh) neotcl8.1.1-lite/gd1.2/demoin.gif100664 15471 0 26271 6752336006 15136 0ustar damonwheelGIF87a€€çÿÿÿÿÿÌÿÿ™ÿÿfÿÿ3ÿÿÿÌÿÿÌÌÿÌ™ÿÌfÿÌ3ÿÌÿ™Ìÿ™™ÿ™fÿ™3ÿ™ÿf™ÿffÿf3ÿfÿ3fÿ33ÿ3ÿ3ÿÌÿÿÌÿÌÌÿ™ÌÿfÌÿ3ÌÌÿÌÌÌÌÌ™ÌÌfÌÌ3ÌÌÌ™ÿÌ™ÌÌ™™Ì™fÌ™3Ì™ÌfÌÌf™ÌffÌf3ÌfÌ3fÌ33Ì3ÌfÌ3Ì™ÿÿ™ÿÌ™ÿ™™Ìÿ™Ì̙̙™Ìf™Ì3™™ÿ™™Ì™™™™™f™™3™™™fÿ™fÌ™f™™ff™f3™f™3f™33™3™f™3™fÌÿfÌÌfÌ™fÌff™ÿf™Ìf™™f™ff™3f™ffÿffÌff™fffff3fff3™f3ff33f3f™fff3f3™Ì3™™3™f3fÌ3f™3ff3f33f33Ì33™33f333333™3f333™™™ffÌf™fff33™3f333f3îÝ»ªˆwUD"UD"ˆwUD"îîîÝÝÝ»»»ªªªˆˆˆwwwUUUDDD""",€€@þÅÌHg¨9ÅD¸¡s BDH1Å9Ÿ"RlHb¨¡Ä¼Hç#Â&ç„Z™R%Ê‹A丒áÉMê"‹Ì!/á\APr¹¦¸„L< ıâ’üüÈs{½MZ&3ˆ4­P!È|ØÒ‘§àÕ)…zËRõ¹æ1D-šùȲ–‰"?›íÌ X…?dÁþJ¾(ÈD¯²ÁRCŸÙ.Æ!+™Èf{²N&¬”9MSP†9„á,bàBä…1$j<”BA'†0žîªìµ7Q)M¨(È„'á”üÈ$RWYÉ}ÊÒÞ«ˆu¹c=HFÚ˪È!b½J³òr†d¢'8Á ^ ,á @A„PÖÌÅ*"qlB–œ—<úÈ:§Æ„zb»Ñ@€“úöçspYŠ†C±Ú`xÃA@`Õ‚ € 8À",´@q-„–.á1L€LbH·ª…Å,à¥Ú„e"H™{ŠU(2<‘ÄHŠÄþvÔ#ŒB ›Pɱ蔇ŒÁ f@7„ „ :𠢃!¸À O`Ùn‚ ˆ"A €¸I X¬Bà€Š88l¹¦„ˆ%?¢yõĘ̀H+GžÃ2¨ Ÿ ß(TôM rÑêÁ&„‚u8š<,¬XµJaqSÜ®°78à8pA „ ($R'ÆÓ÷ Ú7y95€?„.x ÔA…Ä „#¸ž8a'Hʲñˆge™ˆÌP ‚¡¥@qÐɶª¢ö³¦).iªJS"8æÿ>…¾Fj‰l-#/ˆà ’þDP,¤`hºŠU¯ &µ¥­å}“š,à‚%ðæsã]Ôöf4¤e{i(Ï·ìƒb×ì$lM¡í€ÛšµÅ¤¶ Ÿ¸‘ýØ…HÀÈ­Z˜¨æ€ðjhQ‹d µ¹éxëÙu‡7àÜhRƒÕ&þ\•0BzjaÖs¬œD¸³aÉÿÈ…6€ …·ŸÁð¿ÿu¡Ð ÚÀ²9@`ûÚG±; ø+MR ƒ‚ @£°vd²F,PÀu}~<ç"#mVä&ºmb;‡@úž ÙÚw¹¬P:²2ìC‡X+„§c_á?Á†úU–!C]èäþ†1.’Vì>ªÂ€*ú u ?ª>q~T`ú倨§ýí7?üÝÿýSDdŽDRùÔ|V°¦d€"CR¥$>Â÷IdvôN@ l@àIàó=zdJØ ÜQH?¤VÀB5>;2\þƒ:QG?RÇxôE\0ƒmP?ïá½ä\¢S?]0Eö#Uà(° ÍtIŽ$RU0^´:tB?À 3dRV(l`…äI9@L@ =E?䣈$>rà þcŠô=›¤.ëbRƒ4„Äô[€U å„zDšdJ ˆR[³„> ¸xóQJèBþ¹VÂçBxÄ åtM!€CŠX†"ˆm°QÔSK$¹ô‚h˜êÓôM›`) ðšu”—ØQ€MR`N^A |;`V¥kÀ!x-:0IÙ‚Oâ£]èñäPUÀ R ‰Ü“B$…Cì²MUL`„‘X*NPí²›%¥R*e'° Ç4LÃd„;Àuôà.ŽxL°;ð™âT܉Rhbcd:K4‚•ˆR;ÕB•B—‚V€Í'UœðÀ 25Vc6s@&ƒZ&áIB‡±WsÀ…Âuá8w +qwgþ’VF¥õ#‰…Xhƒ‘#Q1¨`$¹qÅ&†…¯Ñj¥q“qwEjæ’XÑ^Q#”å+á’: …’1Q­aGH1õá§1”¥‘Sgk)_™HQá[i•1 ÅŸ C2$œsX³%)áz‘²!n)–#r–´Ç–³7“™3=N91³'ˆåwO—ß&šáVy"`@á“ÙÇb5CÂ_…!™¢‘!q‘‰!Y½Ñ1Fc¹•ñ0tA#2DÅ=J¢$x`$ÓÁ¡91RX·™Ë£”ÃÕtG¡(þtôã’±@ tjo™Y…ùw<ÁöqÃÁ2(#°c!ž¦c.ðƒ„ÀŸ0HwÐ#ž@F*  $•g–1bKA¡™lA–'FM9{'–›HÒ é•(° €Fæcà%‰] …Ò\ûd£ò*¨"ráñ¤±j™ ¼åVèq‘x5v”JA\l1xi=)!H±DZ:6* 0 œ÷ ,Š3 `lI"ê!Ö¹£%¨‚"ÐeâQ#}A¼Õ'}g—ð˜4‚Zo¹’Egu¥6É•"pvazHp3zþGæ 0Ïá56r±S&hb^b^XÆ+Ò~—1Ù™X©Vq9":8ò ‡Ÿ{±Vó£2] ñ £0rG‹/Uò{úpu!‚H 5©1L€6®‚P" Æm‚"’ ¬Eƒ5=˜‰jfqDQ¢aPc‘ #]$íE1 A“¡€*À¨b^' -šÒ "Ð!p]€27¨"£À6÷ €3G"À$Gi%‡*¸qƒ~õ°É‘¸%;²faÐûÆ£ÀÜZ6Jr pîò‹'pþL€Œ€pz¨rp3§Â`¢«Tƒ"žF04±Â3 +”–7#oQg‹9–›š—}¢,KQ(cY᤟P+Ú(]à$‘ొ°^ìØ^° A0 M…³Ä’ ÿ:"P÷rBÃpÿ8RÃpRS4 4G†%r,ŒŸµJ!¡À^Ô/æW¢óq"‡iEë°’+#5-8ÙÆ7Ó;7—ÆFcv¹Ã;-8«Â*qãšt09Cù`5{LQfþ@ÙYsðN§5»':aP »™&—7T&5Ù+¿rr|37v£v½“Æ9·vt“ÉE ÆåQggµ•3ú¼ ± œcfKKfÝg?\ ƒ¿„rð"prK³0»r·™v7`&š—vi÷7‚“ÆH£;çk·¶Ú‘Ãô“sž*q7a›šU›™«£Dˆ¤Š¢":æ³Dap „pÄŸ\v€Ã &~žç+(0è»*qãuÛÖ\4@"Á@’ÁnU»YH1”Za® q_x‰‚"Ã?;UË¿´>K´Dl°Dð™L5"¦¿¢ðÀò©_€þ?Q'¢£@¢C@Ñ@£3:îñm„Ë_A±@‘¤è!\=š9œA¡š±-ž€UÝÈ NøVhÆ8>$ä›`wÈ=ØI¡‚lPR¥dK¥´K]À>ªØKŸÀx›}ôÇëG à~ôç~¦]êG~ü]P~üÇ~ì×b€Ú3#œ¦ä„J-CE Ip)ÐgJÜ| µ½ÍwG9¤C94D<ÄCe‚ þ˜-;Uø@³ÔDXd?íÃDd~ ´ÙST?¨ƒ/Ög e×_d\´@ײJ=ÒHÛÃRºQAt>eH}$3ù„OK9àBt¤A…¨[.êBB«´G|Í'‰kÐ hJ©4>ͧ©d:©ã?˜2üüs>çç]â¨T:„Cò ÐOvÄ™"P'$U!QIˆGà?PJŸ°ðôI>¾›à–b:¦#>•-᥅@P™=—´P¹vRÝÓP%ÕÔšH¡TR¡$2°´ÕV =Kr€âªSæ'„NIuÕL^…˜$Q› ˆ4´=þ†M@° š)Û´ ïLS5GôØ Q¯\ÀaožÐ„š0…—:5Èx¦ÓB't.ô=—„U‚íãÛ³| èPBJ]x•DVEŽ5ðÂ.0'àÌÝ(:ÐQ¾öç9¤Œ”Ü‘(!ÐP‘xMÉ8GV° ^^`JsÀO½®ˆÍ÷8äHšp)N%lÂmU4žDQåG¥Ô[À 9 I 4>µá›¤P©‚ÙÂP|¸JÃGƒC+•OÈiÐh;ÐmÐLŽC¤ ˆÄ?dtHI$Ñ4:Z®C;à×¥¨½lÐ@Àcp¹;Àìr¹QLnL˜þ)›ÐSaÀ=l…š O"œžDåˆÐDQÁTÃ4I”Ô.;0ó¸AÐQ.$Q; CîB^¨â¬5?Gæ´Q@Qs$ïÈóî‚CËÍPV€Jˆôƒo͉¡s>D}¨ƒH³”C<Ð.Zxíœ`¿Ø €žÂöH†Î š0òäUŠsò8ðçuU°¹nRXµPeN€F^'t¹ UôÏdNÆ$ÎÄ å 2Ñ ‘RsÞóäå.å„óõô8+ƒ*  ðŽJ¨CQ@zé• ÕÔá3B@€‡"œKGÌZ‘LYŠi*³eàÀ(5žËÒëÑ’ñµ(†ÑÚ¶±q&¥ø™¨[£YÓN~=ÐnËŸ4!~J¹“¡^1a¢R/ËŸ"[ä[®Üî jŠE$¡^Sm53V* ·Ù2úl1ʨc®¼ äø$ Òæ0Ã<¨BJ©šz+Ž»0‚Š+€HBX+(£zÚk*£Œh:…Ä »¥fÌ !A¼+ȹ¢n¨1Æ ð1Yè¢@¤*îºË®Ã+ȡ檉­ÕX¤k:¦Ë £‹ð¥©:›Í(¡è#Œçä°"PÂè"ŒÐþd¹Â8` x»$”Q@ñ„ +¸ñG‚ÜS<úN+j@ŒPH5ïŠ °Î\Kêš{j;»B»h@P´ó Q2É$ 2Ñ€U ^Íb B…4I¡‹.:é„3:Ùd Tce P@¡ƒ´Pú,»¾jÓkÙ)ÅÛ Ùƒ62o -\ <ĸÜØÜÈβø ò¥äB!D“LDÀõ@a ŽpÀP!€P¼ÅÈ.ÚÃP¡c‰Y[PTêÂ(tcš ¯Šˆ²/£ÓTBè9ZLñB/”e/¡fU¢£A<ÐÅI)ñÚ8 ˆAˆ¼ØW„žp@ B"þö¿¹<ñ‚ô†:"wcVâ1R¤ò.F_ÒkÉø–•6RpÓRѧ(ïâmAò ªt/º`hà @ÁìmÁñÐŒ+,³ 哈Z¢…àUX31ÑeCÒˆddZ«¥ UT,7‰•r/ì–%e ŸY6%Èw 3b@¡B°›Ž;®]\ýèð"”%ÐW€~€i–‚šòÒ½Q¢Î¼Žt5È-;³Åe}’²¶ ˆÖ!“ 48@Q ¿ŒZpÁT ÆM¼%˜c ¹È$€úXÕb5rÂ8~‰]:ŠO|¢  E#þ.šžô)‰gÅDMIW?È„ïp‚ @A Ì>HàrÓW½RÒ“@,Ás^à] Z‚à!@ð|÷»b'ýÛåÄÓ3Ìg-=l#¢2º˜‰6‘M(a¨² * ‚p&€à&zêê¦/' w)@ç°1xá}.˜!R0€à… ÐDà»LØ (cHÔœ¨7E±f=CA~.‘$Ë$Ê+¢ƒ–"H*†9 vlÀ8„ÒíK_HÈ—Zp3ºàGˆDüä‡>$`ôó]7   ™`‚D  ž¸l;̧(þbO„a]E'\3†ýµåL:S/O2‡SéQi™ØD&œ°„Q0¡£lÁ¾Dy/€p »C Ö(?ò¡@à#þ Z ‡!@€øn"•¯$Å,Yà‘‚xb wˆD#ºà‰NXa(‘ÀI³"õ›ky§ÒÄA€ªMa™@@PÐÍž`_¥<‚xç†%8u Ad*€ê1–y¤gì¸?NG QÍæ,ê¼¾PÄ žhzŽPÀ.,BAbÊ’˜ ¤Œšy @'¼‚MdÑ£èT0 ¸ áD‚ëî(€¬Ñ)x€ö˜ûÑt§ àÀ<óþK=¶@"‘RQÿÒ¥R)É™Ã':$yÂxàŠµ¤ŠTp@ Á(@ NÁ±ŽUDÇp€Q @!‚œÁ1˜@\Ù*S|ÊT® HÁdºÛæs—h‹„x%=(z¡¹lóƒ l‹Öº`„ªQV ‰Mè@œØÄ&F> p"šHÂwzf"ptÁnЂ²·)€+ bŠFÈU¨\¡¬  CË’"!²'kd›Ít­ÐØ1tÁ žP¬kBá‚ Œ"Hè„@PÞ ì\}'4›Ï š=À'˜à‚þ¸:à"hAòÕߢ oµ±D@ÃÛ/…ƒL¦²åB…å SDâ9f%¤Ÿð„®ò×0<øhV(8w=‚€àŠbA&P R;j‹pt0÷ÀïŽS`ãÚX¨[ àbh;ii¢B™»¬ä1 ñ þBrÁ V€Z€„€Uᘲ @G7Á‰NŒbn~6¡ÝMÜvì„8  Ü8òzÀW<‹@{t~€FëQ5ðÜ’í!9O%ºè±Æ¹)Ëb¡P(€Ð‰hÕ ©DÁGS°‰nAÄ@ØÄ'<^UþwB MÝ>àÖ3ܳä7ÄVnÀ°ï<} ™Ö–XY‚:Ø\‡CˆF^GN£¨ù ˆWœøÁ`h/Þ}U\BFÁ €|VøÁÌ}œaVÃ:[‰çaûÇhüq b × ¹@Ÿ¾A½)]¥EQáI— ³\€eq¤Ñ’ó”-‡#táG %Ò{™¬žý©0¨tt<Õ¬@½6™â·Æ»~ÀÐçÓ].Àô…F\'`‘G¯pþêúì²QÒ Ò^8“F÷­ )ý Âê +Àp‹’õ,v„´ÀL;/ÛÀsòMþ n?ž€Þóå½ë Ž?o=~U 1¸éþ”ÙnCÙg=ü. úáOÞ˜M%2YcéB\–ÐÎa«Š®ŸW³Úäüʸ2®øEßàúcP¾zo=ÇÔ³žû‚‚—(EžGáä²`B×Ä¢¼’æxa8\àB'ÊÈ U/ŸЄ€·y%˜êµÝê¯PíÓ>}‰- “Ö¿p*?}i@£;º#6€K@.¨ˆˆ‡ðŠy Q(iÙŽäQˆ ‘‹añ?¦™«üò$z+øŠ;¬;ÖóÁ¹£»¸éÀ´€B»K= D£ˆÊ"í8ŒÒG£Ìðþ)Å°ŠÆ1’O¦Qˆ)Ð1¾£9ðB#Ô¹×¢;#d=0»›€ð³ PC°Ã0B ÈÀ,l²„ˆœã‚Ƙ‘Ù0,y $5AaA€€)w‚)ø³$L= È;5ŒC=¬C=”×’€(B=|-=4E½CÅU4BT¼;¼{ð”‰$˜šŠâ ŒY*1&Ì |@sM\=½?œ#¶8ÊMЄ°Mhï[ÃùrÈ1¹R€Ý²O!3¸„A( ã¬Û Mé–M¡?(Ûˆí(ÇÀ‰o”–eÙ.˜Ð-˜P0À¿BÍ8À?ŽLMÔœ@‚ ÌùܳÛµZ£„6ƒ6àÐ yMµRMyŽjÙ–½à–c‘¶5QÇ5–ÜS))“Œ¡Œâú‰*øüë„*¨‚&­.(þ‚-pÒ*˜P.`Ôlƒ.hƒ,]̲ͤ.;xŽîìKÓŒËdüËK6éËç˜ÑÜ# Ä2 9`;5Pµx6QG>;  ÑŃ@HˆÈh´ú „°‚'‚PÒN0 ­+‚ˆRü³P+å‚LåÔíNîƒ,µº@í‚;EÊ6Ñ.…8ø9ÈK¦rÕ0€¤ P€Õ´Lçø[ T;% c©ÕßT á–Ä #Q‹½€© »hROPÒ µ‚ mRLÅÔ hÔ- í¶Ø‚N(‚@Á¿%eÒAéÐ.Ž»´º;ý„Ò¬SËŒƒ4©9ˆ“SíÕ|- þƒ|Í×9øð|½U‚% Ëô‚mÖ¨ xR†ê6kõ„0‚0‚‚ Û„ü3r㶆VnûÏ”)ÍÔA!W P6xU¦jÑ@õ¿iïlÑXe“4- QÇ×ÜS iƒ?mƒ4±ÌzÕ–WÖWU ?-Ðp©RÇêT. ‚Ú&í('¥T©5Nà'ÕNpX%­VAÁÔ(5×JÐO”JÅR.àÐ8yÕ0ÐÎÕ´Wu¥ÛÝÒá0ÚZ“5QP`Qç(`@ýÕmÑ”FÅ¿*]Û§mÒõV0·h¨Ð`0³®mÒjU&'Ý‚A™Öþ‘U¦ íÎJm¨-(‚A”,5Ê.Y¤ü3H\6`Q¼ Ú í,M–­Ó»|UU}“@%^¡e“ܽÓNà”3]'e(Aá‚5hÛ@±0üë0àÐ,½´mã‚0‚ò ß0lÙn•ƒnkƒ ¥R‡mÒ"°R6¨Ö(µÐ-@*ÕT/…U aíÅÓðT“4qÑá°W´^½SºåÒ") A9+à¶- W'mÔF¥`Æ}Z,•V,íN+èRî„].V+èZ/¨‚à6’ã6Ø* `%Í*à¿ü›ß+Û´íP6 ^6Å]´¡, T½\ÓÝEM{µSúNSµT. þ9’†µÔ®Å¸Qãð^ÊCƒÆ ”,ÅÞà„-Ð/ÞaUíTiÅTøï1’û€nËi¥R*U1ÌÝAAƒ5 ÖúµP ­V %cße*.`Q e“8PUÜàQM߆%9¸T0Ö¶òÒQ‹dÌEáI1+ ·*°­‚™¥RH¹0Í6‚Õ*ÞJÝÈ_jT’ãn»TO‚"Û‘-»* ‚+½RÑíT+ÝÔ+]Ü?žÙw5Ö™íÎ,…Õ™ s»M(;NÈ àªM0K½´†å6°ýÞ±YRû€Ký.N²+¯2KåØM åòêUÛøƒ™þÃÝœ=ÕD–Z©½Tt èçM0%Åä&U& ÕÔ_îTØÜ‚4`ƒ4Ø‚~WBŽ{ÍRNïÚKR¹èhNàª`çè®ú0#µ²ÙM i>i•“f*¯Kéï2·ð:]¾Ô èÖNî eO`vNÕØUüó.ÞØ‘%e”ÛP5'Þ(MÛ´Õj+¸^AÙ6ééP5ðê¨J&ë)Æi•Ó¢\æ„ é³kŒãÚ† °Eé åæ}RLvØ4ÚJ¯2±¸fQƒ`AA7XR)®‚Oð`±Rsi ðÐÝ‚ø+uRþLÝf Æ?×mR k‘æZïri3Ó,­ÍXe²;¥Ž[)`ƒ†º´A‰‚*°åw ÝÎò`ª èÜ5·Q „ü+`e¢¼°ÔV5­ê¨Ö¶ræ„L’k\ÛN6Ø‚99 ÍMøX©Í?*愾´b¾VõîT+HRƒ`i•æ`QN@2F.HÜ}¶[¹Mb´Á0´Á2+(»²Ó>0·­½¢@ÒíÔÎÚnsžgs ±*¨dPã«æƒùæ‚7æ\~W¯Eï‚a^f(r­àmmìKs¬K“mÙ~oÓv]Òݶï"Ö¾"ü›YN Ógu5 ÂÅ"þ×,uØ]!áNP9°%¹@í]Æ8+`ƒ=èÞ´5Ì]5,×ø »ïUÒJuë à*¹–f¸£MÐVáF×ÝîìÞ„ à€RA[+èíFm(Pp)æ€+Â" hOW,—_Žô„.åÒ eY0¸ƒNh^MêÐmºÎ88çïò.©ÕU“aLÍUC®U¹ ø掂 8;/»;ï®â>g õp³C[?ôóÚ€Yr3{"kAi*ô†òéâÎn; ЬMm{oA rö–m[,•ß|.ÍÒŽÌ=k¿&åjÞî0÷ÇЀï"ë\é•Þíî=9²vä¨n^³¦r*¯KÒ,ævö„)×Úðòk1æíè kîêªkžëMà€ °§{ž§ÐÚÞ&äî¼?îäÈ(õbî­ÔK]XwMh•ƒd‰W9ðâ¹U+;)hRáF7Œƒò”ÛæàÔ”Ö”/í^K%ëi†^ óó‚[¿s®ÚÔVì 8;ØøÒ [ÿU¡kS׬ØÚHƒ*ìoïP4°R(µ‚€;neotcl8.1.1-lite/gd1.2/demoout.gif100664 15471 0 14767 6752336006 15346 0ustar damonwheelGIF89a€€çÿÿÿDDD333f33f3"""33333D33Uff33""ff™UUUf3f33ff3ÿÿÌÌÌ™www™™Ìf™ÌÌ™ÌfffÝÝÝÿÌÌ"f™™3f3îîîÿÌfÌÿÌÌÿÿ™™fÌfÌ™3ˆˆˆ»»»Ì™fÌÌÌÌÌfÿÌ™Ìf33ff3ÿ™3™f3™33™ffÌ33™™3Ìff™ÿ™f3f™ÿÿfÿ™™fÌÌ3ÿÿ™ff™3Ì™™Uÿf3™3fÌÿ™™™™™3ÿ™ffÿffÌ3f™f™™Ì™ªÌ™™ÌfªªªÿÌ3Ìÿf™ÌÌ™f™ÿÌÌ33fˆ»Ìf™ÿ33ÿfÌ3ÿÌÿw3fÿÌf3™Ìÿ™Ìf3™™fffÌ33™3fff™fÌ3fÌ3™Ìf™ÿ™Ìÿf™fÌÌÿ™™ÿ™ÿÿ3™3™™fÌ™fÌÌf™fÌÿÿÿ!ù,€€@þ H° Áƒÿ \È°¡Ã‡B0c£ˆ„2jÜȱ£Ç CŠI²dƉpàá0c r€˜Ì¨R@Î*øJ´fO@‡(´@ÎœHUB`3ªTŸØ@À§(-®< €Bˆ/ËàÇÎŒm7ÆÕèçOÛ¹@P™ôèP«lpJuêU Ž. Ôéöæ «’eÔjcžu™y'Ü»w?R¨P9…_ä$д©T¦G1w°`‹ -.¸ <ƒ‚` € 2ÃÜì0­YÏÐ9n=@½çTpÈ ˆŽ!8þŒXQa…‹C^ðfIƒƒ/p ááî, ï©ÜlÄè†4[ \`/¤0C.¼0à 3ô`ÁzaAw’p„@¸`¡#àÐ×J=ýÔs¨bI#ðà#Œ@! EÈ0Þ +0à 6°˜6å¤Àˆƒ!ÀP<¦Š­èäH¾P 8¼`¥@´HO 0ØUÕ}é“ðå”SDø_fD !_•+¬Æ6¼À„!®PDžEd‘§ „¾0(…UiåŸ(4¦—5%õe_®éÚT°¥¹äšjIàé@Dƒ˜*+ Ðª…þ"tÐQž0Ÿ1ÆHÅ iLP©šV¦˜FSÇúDSNUF”aV1B’ÉmŠVf)h H¤`E N¬‘mH 1âRø†Ûf°k¼+Á‘‰º©JÀ 0€z*SÀ¯ª;ÀðÈF`l± `*M™6EÜfj^«–æZDçvLa· ¨Á&kX‘Á@C¤j°C€@ªh0Å·äb€Ä#¡‚r¼û®¶k0Ýô»€B¼¥Þ, ¤î@A0dÌ™Z)ˆJ!Ë ä‘Ùªð„ÁSì°ƒ¨h Cð[°ZÓþÝ`Pò*ð„S\À ˆêóàS°ÀÂàV´Ü u¨9CÁ,hÁ-Ça…xÝLö§úꬷîúë°û·…OÖnûíE¤»AíîûïÀT•L}ý:I±'¯¼ëà  Se1¹s2 ÐÂoE'˜™&…U%òåë,ë2%ƒb0•CµH#™IÕ©V³P¹©TðyP€ØQP/ÈÂWY¨øÈ@Q­P ƒˆY\ò_aÄ@¾¥D¤Ž¦6i<™h HÐ@ÂÖ´m ^þ€Ú9P†{¹ ` @ÝNÅ6m-Uø’€R•Ÿ¹&ù @@)€¬äǨÂh²P„a/H5±I S”™)€€\ÙÂ@Ø ‡%²ATR ¹¦à„!8!ò,æ©4Žië 6›¼Ö‡¦Á«`[£ÀÊÀ€©ÊM0x©@ýe0€Í­n LÕHy—Â!a‰j{ÜÌu˜Õ *0Á~¶V$”u *`àÆš‚'Àu)xÃæp® øU^bË€ @©)€kÀé2à2 ì!'Câ¶EÙ¦ikØjAÒ²D$˜@°€C †@À‘@V  ž0„!‹GPþÁ†:@t€@°«ž0Ö Z ?‘(†/Û; HCšOE £,‘èvÐ. Àβ05 КMˆ/ù‡†­D5]B ó.#åêPb@ lpƒ­ 9Ðvê,ÝÀ°#¨á'E a™¤—«šáôFjò*)>Œ“Fô`xA^i 3 ( A—šˆp¨C5¬J¦’agp1ƒ1€PChBp·d ƒn¿ 3 õ„ H% à>ðÀl`U®à™Í1·Hª+° †Hx‚‚°‚ ¬CXAµ3lƒ´ F@ðˆþ€„Ùt` Á0I”¤Œ /Iã†Pƒ$`.˜.r~ëûšmdæxx¸ eF“Í”é˜{F.8# @m,[[Ül•d°§kvгN>Jj«NPy°ÌŸÛ‘Ft¬£"±ìåÌ€Æ ’}È´Cgã9Á‘”˜ 0áq Ât¥+$ö,±CÁ<Û/3Iê’®?ùÉѱNÊ´R|¤4¥ 2‘‰D< V z+é»~BÁ‹GaòH@Š¥Ô ˜%*/‡yf ð"ât‡NR²£ž”ÉzB9ßùª,ŸlxäÉ ƒ¯¨þÐê¦:] €ÿ ”Ç÷ÏÔѪ<Â/¯–2S¢eÈ(ܨE½‘(`%5¡ï|}Û Jy‹2+—]jâ>×d­‘I¼Äw–gA™3øB*sƒ5žRP18#Íg%yR}Y@u;òq(ðqÖÞD%,¦±@¯‘€h¢N.ö%?±½¦<æN‘“OpOPS*©R*WeÐnPx/ oeð)ÿBQ©â&‰v*Â20Äs, Ã@Ùñ>ƒfm¦~¾Ôƒ1qYù5-ò”3k˜XP}g#6ýâ\…*rCQlà)Å@•©"ˆƒhþ¶P 5ˆuQ #ˆpˆ;¸hRCYÛÚÒ†b“X`úöNù6ù”8î2OðR3g³‰C]ÒÕ/Hˆ/ó9ó„§*nSˆW#0§PÂQ,òg0Áw?0±òÄ-pYSÕ—8€`Vt7b³-§rR £ÇU~•î¢-÷ÄXùD:o#O; 4b³pà6ëè6o²T¡r7oã‡0Œ]…f5sPVƒåV*p_8&]'5)À„³Z*0ð8‚Õ3u\$€+ÓÒUˆ¼èWäB.`~¥ìÂX‘CO¢2„0/ypŽýò9ÐT`j6Pþ}ŽÓ]Êu63*) ;p6R³—…; ç"5/C)°ƒ3m(PaOp\¾õ2åB8ÃeŠ3*j%]k ¶à~…O¥Óƒ-½õ &]0å2O5¨È-05I—RqõqßVP …¢r*£â6]2‹ySAx˜*•Op/¢F®e„Š“éW$ Xà’Õ÷2¿õR#5žù£&u’iV†s€ÓO€…Šj³[Þ2OrÐfTV, !$PtŠ&õ–lI*Ñ5*6#6š(5k`å’úFaÐÆÕ'ÖyªókúþÖ_ÜÙÞùàžýõkâYž€pS Pü_æÙžq,CôÕ;îùMÖ ÁûUŸÝy$ °WÆ: šè)PS Ù ¡0Ÿ@`Rº$#!¡vŸù©aä©iÇSª`* ;ÆIÕ3g² x+ÊaÐÖÑAææóbÏ‚~5& p~¸D?´dehlOq&‰‘j¡&•¤zV¡AOê’eÇVdG+¦ƒá<_ñè†$‰±B*ᣪŸâã’þeáa+flJ(v$NS6ƒDºw±1’ƒÙÀ': -Hf Lja¨‰:ª#qwV±=j&ئ§=ñCB2£ $áƒ$Fz0V†ŸJR{ds¡¦`@™2«ÕAov P˜ c[Jƒ‘bcz¡ `„Z=Ùc¿ÚÔw¶‚@†QpŽ†0¢‚8¨dâA“Š«ë'¡Úg!Q©$RwžF©FÑf*Tv×#$PC%P°›š¢<“)P) 5$ûq­ÁÆCÅòiËØA1ædÉÖ>1 -ÐŒ44°5ðµz@ðþLdCÄ1ûƒd@Ä"N#¯Ô>) ®ÒHræQ> 0ÓjR…1w!;‰v¦ËanÍ#«”A¢±` ÐJ=P`ìš$àhÀ4r0á©ñz–knT¬6!ƒáÓ%À"@%àpä :=p°TJBm:À5”Më¶gÈI~> ­Ù‘DÐCÐC`.0F7;Òm=²ÛV(# +·‰FU„Ýã’~ÇVFl;7¤Ò€&` 7õ§50G ĸ$½É BPvš¹œ»q9þ1 ’kK 8P;®(@4À|$w!š¼jä.¦cr&ÃH½Ãf»PRpFÉÙP°:`¸@Aw¾UÐ@@tì¹#`K.o‹ò»·y& — 0ïqI Z.@¦ë¡t‚(Ǿâ·b'&d­¹ºYÌ*0U2gd8à%·ñ1Åûy-ð³ç-0D©Ð7¡àr/Ln1ÜŽ“F÷1â»LsÄz\Wx|‚À\`wÏÒ=.&RO sQìjän>0G Àpqu„¢õ†J©ë^pf,g)yœ)šuÆ !rþ?#2`º§·'tô/@À`PI\Bb–J†H=/ìÇ!az«‡?üyÌô?€Sáh,f·óc&k¦0LÉ!¾©—H¡H/p+ œI±a“ÄK‹Ñw¨Ì?Ê©`zñz8Ò(€ £5hƒf&>wF†N¢ä–+ =k|1[C.È·"TÀLÝǨ$ 8 ‰$¸¢gº‚·#( *á(eø?§6?F†lc·Ì•¸Àp1 ¼uTG8zŠ¤(Ô$zØG­œ'Å‹J®"&0£Œ)¼7ADNåtpÒ µ1+èl*ÈÏ:€HrR_pxƒB(®4þ(L҄®ü‡çz¶ªfç]êß7£\B)ôÌ¢-D 1Ò!Í##`ˆDÇ# HÓg,ý|„âÆÎ7}‹Òà(q€ï“³F†Õ1<¿×{=Íao‚* ÃLÀ#­Bx#ðÌ$ /àY‚ªt…B(¦k ¡·Wdæ­×aâSe—äΪ1³`hxˆÁ*¨D8®"%f@ÏWÐ/P¼#à·~¢}ƒûÚ%á7™'Ø7Zjv{¥ìkõ*€X*sC7¨B„  z'm%.ýh€ÔuÔ"¢×mn=²ú…pŸ†0Íz£Í¯df¬@zËeþÜÌjá&¡‚„2£Qîw5ob‚Ç´á!íÆ¢·'|²L»â*?Ðà‡/h1SpIBÅ ­E‘b ˆlˆ /ü]D/5*õZ`ŠrË„²žG:Ų‹mRˆÈ‚0Þ‚E&•*UQwuK~ýbü1ÝM’Іڒ-T›X‘Xó6XƒP Å Œ¡ò„…/-h1drhòGQÏì)È‚huh~{˜$hfhÊòZlȉÞ84ãYüÍ„Ÿúi*C‹³*0‹îW„ü2‹ƒ(ˆÅ4æù`£P‚¨P Q1•ˆˆˆØñ¤°¨NpN \þ”.s¸Ëë7ø$6”6T7³@¨Qts*‡ö„nRÛ…¨Ü-¨Qc… 1ué€hCˆ­-”Ö.~¥qµ-rˆZ¦+T8uO,³4ÕèŒ/…*Jµ‹uc*‡Æ/Ä)0¥0¨b#áÓãVûíWŸ™3“¢r”bS¼EW‰¥†“µ-)µ‚.6Qó6©*MU‡6Qµ‡Ö如hå);.PˆØ•ÖÎ2È®ì„÷"3o7ç ‡ W! 2Þ8:à˜sX95÷”8®Î–ö‚5 ä\PÜíPh*½HçBù3C—>ãÆçªð)0k TØ^0,ƒþ®Ú(™“Y)0ùdYÐ]Ú’8q ìS/ñRóÚ*e0ñ§/°x5e€Øc+ 6 2¦ëðäV0“*PR©qUÒEïB*¢BÁÑj¨-E³ŒÐ88qÅXÅŠüÍ2hŸ‰kÀo£’¥ˆ­’©F¼U›eU¼uE.&ƒ6¾q~¯Fle4*0~\Ш°*À£7:OðV•0V.ó2v`9¹‰ù$Š¬ˆõ €Ø¼5ìz.?Søð4&pœÉ[ CO&ó ƒ6ŒOyÀXfµÃ55²…SÊUX0•pu_¤˜u𗸉ˆþ½&åÆåR8jõ”o“8U‘SõO;uÃNW,Ð8à&ü²S vWžå–?ëÈêM•…%*heŸY".|@àÀ 8É€ €À)$J¤8q¢$V¦°pÅ`@À'ÂJ0vD€ A„%w ÑÀÄ”OR ™rÁʦ€ØÑVTLqÊb‡•9%2€È !Ã@®ÿVìØ?]"AbÉ@]ŠQâš O¦¨ $…Š÷h¨b¨ž OŽˆ´PC†5;v€à€FK—ʤ¡! 0KJêL׊ˆ C†yâÑJ† ,ŠÎÉjvà×±µÃ–  @-èÕŠE ªŸ ¹pDÅä#…^ 1äÂôÂO†4%ŠZ…Š'R–SŸõ ‰'ÓŸ²8>§F˜'uî€"‡<<²ˆ°Ç:²½Ú·H¡ˆ8@ÿd°A„0Âi,Rˆ!‡$ä°C?l o;‹-·,8 DWd1ÄuãÍ7àZ¤±FgqÀLðFôPÄÚ0\¨¡FD2I%—d²I'“\«­·@x²J+¯Ä2K-·ä²K/¿3L0;neotcl8.1.1-lite/gd1.2/gd.c100664 15471 0 165341 6752336006 13754 0ustar damonwheel#include #include #include #include #include #include #include "gd.h" #include "mtables.c" static void gdImageBrushApply(gdImagePtr im, int x, int y); static void gdImageTileApply(gdImagePtr im, int x, int y); gdImagePtr gdImageCreate(int sx, int sy) { int i; gdImagePtr im; im = (gdImage *) malloc(sizeof(gdImage)); im->pixels = (unsigned char **) malloc(sizeof(unsigned char *) * sx); im->polyInts = 0; im->polyAllocated = 0; im->brush = 0; im->tile = 0; im->style = 0; for (i=0; (ipixels[i] = (unsigned char *) calloc( sy, sizeof(unsigned char)); } im->sx = sx; im->sy = sy; im->colorsTotal = 0; im->transparent = (-1); im->interlace = 0; return im; } void gdImageDestroy(gdImagePtr im) { int i; for (i=0; (isx); i++) { free(im->pixels[i]); } free(im->pixels); if (im->polyInts) { free(im->polyInts); } if (im->style) { free(im->style); } free(im); } int gdImageColorClosest(gdImagePtr im, int r, int g, int b) { int i; long rd, gd, bd; int ct = (-1); long mindist = 0; for (i=0; (i<(im->colorsTotal)); i++) { long dist; if (im->open[i]) { continue; } rd = (im->red[i] - r); gd = (im->green[i] - g); bd = (im->blue[i] - b); dist = rd * rd + gd * gd + bd * bd; if ((i == 0) || (dist < mindist)) { mindist = dist; ct = i; } } return ct; } int gdImageColorExact(gdImagePtr im, int r, int g, int b) { int i; for (i=0; (i<(im->colorsTotal)); i++) { if (im->open[i]) { continue; } if ((im->red[i] == r) && (im->green[i] == g) && (im->blue[i] == b)) { return i; } } return -1; } int gdImageColorAllocate(gdImagePtr im, int r, int g, int b) { int i; int ct = (-1); for (i=0; (i<(im->colorsTotal)); i++) { if (im->open[i]) { ct = i; break; } } if (ct == (-1)) { ct = im->colorsTotal; if (ct == gdMaxColors) { return -1; } im->colorsTotal++; } im->red[ct] = r; im->green[ct] = g; im->blue[ct] = b; im->open[ct] = 0; return ct; } void gdImageColorDeallocate(gdImagePtr im, int color) { /* Mark it open. */ im->open[color] = 1; } void gdImageColorTransparent(gdImagePtr im, int color) { im->transparent = color; } void gdImageSetPixel(gdImagePtr im, int x, int y, int color) { int p; switch(color) { case gdStyled: if (!im->style) { /* Refuse to draw if no style is set. */ return; } else { p = im->style[im->stylePos++]; } if (p != (gdTransparent)) { gdImageSetPixel(im, x, y, p); } im->stylePos = im->stylePos % im->styleLength; break; case gdStyledBrushed: if (!im->style) { /* Refuse to draw if no style is set. */ return; } p = im->style[im->stylePos++]; if ((p != gdTransparent) && (p != 0)) { gdImageSetPixel(im, x, y, gdBrushed); } im->stylePos = im->stylePos % im->styleLength; break; case gdBrushed: gdImageBrushApply(im, x, y); break; case gdTiled: gdImageTileApply(im, x, y); break; default: if (gdImageBoundsSafe(im, x, y)) { im->pixels[x][y] = color; } break; } } static void gdImageBrushApply(gdImagePtr im, int x, int y) { int lx, ly; int hy; int hx; int x1, y1, x2, y2; int srcx, srcy; if (!im->brush) { return; } hy = gdImageSY(im->brush)/2; y1 = y - hy; y2 = y1 + gdImageSY(im->brush); hx = gdImageSX(im->brush)/2; x1 = x - hx; x2 = x1 + gdImageSX(im->brush); srcy = 0; for (ly = y1; (ly < y2); ly++) { srcx = 0; for (lx = x1; (lx < x2); lx++) { int p; p = gdImageGetPixel(im->brush, srcx, srcy); /* Allow for non-square brushes! */ if (p != gdImageGetTransparent(im->brush)) { gdImageSetPixel(im, lx, ly, im->brushColorMap[p]); } srcx++; } srcy++; } } static void gdImageTileApply(gdImagePtr im, int x, int y) { int srcx, srcy; int p; if (!im->tile) { return; } srcx = x % gdImageSX(im->tile); srcy = y % gdImageSY(im->tile); p = gdImageGetPixel(im->tile, srcx, srcy); /* Allow for transparency */ if (p != gdImageGetTransparent(im->tile)) { gdImageSetPixel(im, x, y, im->tileColorMap[p]); } } int gdImageGetPixel(gdImagePtr im, int x, int y) { if (gdImageBoundsSafe(im, x, y)) { return im->pixels[x][y]; } else { return 0; } } /* Bresenham as presented in Foley & Van Dam */ void gdImageLine(gdImagePtr im, int x1, int y1, int x2, int y2, int color) { int dx, dy, incr1, incr2, d, x, y, xend, yend, xdirflag, ydirflag; dx = abs(x2-x1); dy = abs(y2-y1); if (dy <= dx) { d = 2*dy - dx; incr1 = 2*dy; incr2 = 2 * (dy - dx); if (x1 > x2) { x = x2; y = y2; ydirflag = (-1); xend = x1; } else { x = x1; y = y1; ydirflag = 1; xend = x2; } gdImageSetPixel(im, x, y, color); if (((y2 - y1) * ydirflag) > 0) { while (x < xend) { x++; if (d <0) { d+=incr1; } else { y++; d+=incr2; } gdImageSetPixel(im, x, y, color); } } else { while (x < xend) { x++; if (d <0) { d+=incr1; } else { y--; d+=incr2; } gdImageSetPixel(im, x, y, color); } } } else { d = 2*dx - dy; incr1 = 2*dx; incr2 = 2 * (dx - dy); if (y1 > y2) { y = y2; x = x2; yend = y1; xdirflag = (-1); } else { y = y1; x = x1; yend = y2; xdirflag = 1; } gdImageSetPixel(im, x, y, color); if (((x2 - x1) * xdirflag) > 0) { while (y < yend) { y++; if (d <0) { d+=incr1; } else { x++; d+=incr2; } gdImageSetPixel(im, x, y, color); } } else { while (y < yend) { y++; if (d <0) { d+=incr1; } else { x--; d+=incr2; } gdImageSetPixel(im, x, y, color); } } } } /* As above, plus dashing */ #define dashedSet \ { \ dashStep++; \ if (dashStep == gdDashSize) { \ dashStep = 0; \ on = !on; \ } \ if (on) { \ gdImageSetPixel(im, x, y, color); \ } \ } void gdImageDashedLine(gdImagePtr im, int x1, int y1, int x2, int y2, int color) { int dx, dy, incr1, incr2, d, x, y, xend, yend, xdirflag, ydirflag; int dashStep = 0; int on = 1; dx = abs(x2-x1); dy = abs(y2-y1); if (dy <= dx) { d = 2*dy - dx; incr1 = 2*dy; incr2 = 2 * (dy - dx); if (x1 > x2) { x = x2; y = y2; ydirflag = (-1); xend = x1; } else { x = x1; y = y1; ydirflag = 1; xend = x2; } dashedSet; if (((y2 - y1) * ydirflag) > 0) { while (x < xend) { x++; if (d <0) { d+=incr1; } else { y++; d+=incr2; } dashedSet; } } else { while (x < xend) { x++; if (d <0) { d+=incr1; } else { y--; d+=incr2; } dashedSet; } } } else { d = 2*dx - dy; incr1 = 2*dx; incr2 = 2 * (dx - dy); if (y1 > y2) { y = y2; x = x2; yend = y1; xdirflag = (-1); } else { y = y1; x = x1; yend = y2; xdirflag = 1; } dashedSet; if (((x2 - x1) * xdirflag) > 0) { while (y < yend) { y++; if (d <0) { d+=incr1; } else { x++; d+=incr2; } dashedSet; } } else { while (y < yend) { y++; if (d <0) { d+=incr1; } else { x--; d+=incr2; } dashedSet; } } } } int gdImageBoundsSafe(gdImagePtr im, int x, int y) { return (!(((y < 0) || (y >= im->sy)) || ((x < 0) || (x >= im->sx)))); } void gdImageChar(gdImagePtr im, gdFontPtr f, int x, int y, int c, int color) { int cx, cy; int px, py; int fline; cx = 0; cy = 0; if ((c < f->offset) || (c >= (f->offset + f->nchars))) { return; } fline = (c - f->offset) * f->h * f->w; for (py = y; (py < (y + f->h)); py++) { for (px = x; (px < (x + f->w)); px++) { if (f->data[fline + cy * f->w + cx]) { gdImageSetPixel(im, px, py, color); } cx++; } cx = 0; cy++; } } void gdImageCharUp(gdImagePtr im, gdFontPtr f, int x, int y, char c, int color) { int cx, cy; int px, py; int fline; cx = 0; cy = 0; if ((c < f->offset) || (c >= (f->offset + f->nchars))) { return; } fline = (c - f->offset) * f->h * f->w; for (py = y; (py > (y - f->w)); py--) { for (px = x; (px < (x + f->h)); px++) { if (f->data[fline + cy * f->w + cx]) { gdImageSetPixel(im, px, py, color); } cy++; } cy = 0; cx++; } } void gdImageString(gdImagePtr im, gdFontPtr f, int x, int y, char *s, int color) { int i; int l; l = strlen(s); for (i=0; (iw; } } void gdImageStringUp(gdImagePtr im, gdFontPtr f, int x, int y, char *s, int color) { int i; int l; l = strlen(s); for (i=0; (iw; } } /* s and e are integers modulo 360 (degrees), with 0 degrees being the rightmost extreme and degrees changing clockwise. cx and cy are the center in pixels; w and h are the horizontal and vertical diameter in pixels. Nice interface, but slow, since I don't yet use Bresenham (I'm using an inefficient but simple solution with too much work going on in it; generalizing Bresenham to ellipses and partial arcs of ellipses is non-trivial, at least for me) and there are other inefficiencies (small circles do far too much work). */ void gdImageArc(gdImagePtr im, int cx, int cy, int w, int h, int s, int e, int color) { int i; int lx = 0, ly = 0; int w2, h2; w2 = w/2; h2 = h/2; while (e < s) { e += 360; } for (i=s; (i <= e); i++) { int x, y; x = ((long)cost[i % 360] * (long)w2 / costScale) + cx; y = ((long)sint[i % 360] * (long)h2 / sintScale) + cy; if (i != s) { gdImageLine(im, lx, ly, x, y, color); } lx = x; ly = y; } } #if 0 /* Bresenham octant code, which I should use eventually */ int x, y, d; x = 0; y = w; d = 3-2*w; while (x < y) { gdImageSetPixel(im, cx+x, cy+y, color); if (d < 0) { d += 4 * x + 6; } else { d += 4 * (x - y) + 10; y--; } x++; } if (x == y) { gdImageSetPixel(im, cx+x, cy+y, color); } #endif void gdImageFillToBorder(gdImagePtr im, int x, int y, int border, int color) { int lastBorder; /* Seek left */ int leftLimit, rightLimit; int i; leftLimit = (-1); if (border < 0) { /* Refuse to fill to a non-solid border */ return; } for (i = x; (i >= 0); i--) { if (gdImageGetPixel(im, i, y) == border) { break; } gdImageSetPixel(im, i, y, color); leftLimit = i; } if (leftLimit == (-1)) { return; } /* Seek right */ rightLimit = x; for (i = (x+1); (i < im->sx); i++) { if (gdImageGetPixel(im, i, y) == border) { break; } gdImageSetPixel(im, i, y, color); rightLimit = i; } /* Look at lines above and below and start paints */ /* Above */ if (y > 0) { lastBorder = 1; for (i = leftLimit; (i <= rightLimit); i++) { int c; c = gdImageGetPixel(im, i, y-1); if (lastBorder) { if ((c != border) && (c != color)) { gdImageFillToBorder(im, i, y-1, border, color); lastBorder = 0; } } else if ((c == border) || (c == color)) { lastBorder = 1; } } } /* Below */ if (y < ((im->sy) - 1)) { lastBorder = 1; for (i = leftLimit; (i <= rightLimit); i++) { int c; c = gdImageGetPixel(im, i, y+1); if (lastBorder) { if ((c != border) && (c != color)) { gdImageFillToBorder(im, i, y+1, border, color); lastBorder = 0; } } else if ((c == border) || (c == color)) { lastBorder = 1; } } } } void gdImageFill(gdImagePtr im, int x, int y, int color) { int lastBorder; int old; int leftLimit, rightLimit; int i; old = gdImageGetPixel(im, x, y); if (color == gdTiled) { /* Tile fill -- got to watch out! */ int p, tileColor; int srcx, srcy; if (!im->tile) { return; } /* Refuse to flood-fill with a transparent pattern -- I can't do it without allocating another image */ if (gdImageGetTransparent(im->tile) != (-1)) { return; } srcx = x % gdImageSX(im->tile); srcy = y % gdImageSY(im->tile); p = gdImageGetPixel(im->tile, srcx, srcy); tileColor = im->tileColorMap[p]; if (old == tileColor) { /* Nothing to be done */ return; } } else { if (old == color) { /* Nothing to be done */ return; } } /* Seek left */ leftLimit = (-1); for (i = x; (i >= 0); i--) { if (gdImageGetPixel(im, i, y) != old) { break; } gdImageSetPixel(im, i, y, color); leftLimit = i; } if (leftLimit == (-1)) { return; } /* Seek right */ rightLimit = x; for (i = (x+1); (i < im->sx); i++) { if (gdImageGetPixel(im, i, y) != old) { break; } gdImageSetPixel(im, i, y, color); rightLimit = i; } /* Look at lines above and below and start paints */ /* Above */ if (y > 0) { lastBorder = 1; for (i = leftLimit; (i <= rightLimit); i++) { int c; c = gdImageGetPixel(im, i, y-1); if (lastBorder) { if (c == old) { gdImageFill(im, i, y-1, color); lastBorder = 0; } } else if (c != old) { lastBorder = 1; } } } /* Below */ if (y < ((im->sy) - 1)) { lastBorder = 1; for (i = leftLimit; (i <= rightLimit); i++) { int c; c = gdImageGetPixel(im, i, y+1); if (lastBorder) { if (c == old) { gdImageFill(im, i, y+1, color); lastBorder = 0; } } else if (c != old) { lastBorder = 1; } } } } #ifdef TEST_CODE void gdImageDump(gdImagePtr im) { int i, j; for (i=0; (i < im->sy); i++) { for (j=0; (j < im->sx); j++) { printf("%d", im->pixels[j][i]); } printf("\n"); } } #endif /* Code drawn from ppmtogif.c, from the pbmplus package ** ** Based on GIFENCOD by David Rowley . A ** Lempel-Zim compression based on "compress". ** ** Modified by Marcel Wijkstra ** ** Copyright (C) 1989 by Jef Poskanzer. ** ** Permission to use, copy, modify, and distribute this software and its ** documentation for any purpose and without fee is hereby granted, provided ** that the above copyright notice appear in all copies and that both that ** copyright notice and this permission notice appear in supporting ** documentation. This software is provided "as is" without express or ** implied warranty. ** ** The Graphics Interchange Format(c) is the Copyright property of ** CompuServe Incorporated. GIF(sm) is a Service Mark property of ** CompuServe Incorporated. */ /* * a code_int must be able to hold 2**GIFBITS values of type int, and also -1 */ typedef int code_int; #ifdef SIGNED_COMPARE_SLOW typedef unsigned long int count_int; typedef unsigned short int count_short; #else /*SIGNED_COMPARE_SLOW*/ typedef long int count_int; #endif /*SIGNED_COMPARE_SLOW*/ static int colorstobpp(int colors); static void BumpPixel (void); static int GIFNextPixel (gdImagePtr im); static void GIFEncode (FILE *fp, int GWidth, int GHeight, int GInterlace, int Background, int Transparent, int BitsPerPixel, int *Red, int *Green, int *Blue, gdImagePtr im); static void Putword (int w, FILE *fp); static void compress (int init_bits, FILE *outfile, gdImagePtr im); static void output (code_int code); static void cl_block (void); static void cl_hash (register count_int hsize); static void char_init (void); static void char_out (int c); static void flush_char (void); /* Allows for reuse */ static void init_statics(void); void gdImageGif(gdImagePtr im, FILE *out) { int interlace, transparent, BitsPerPixel; interlace = im->interlace; transparent = im->transparent; BitsPerPixel = colorstobpp(im->colorsTotal); /* Clear any old values in statics strewn through the GIF code */ init_statics(); /* All set, let's do it. */ GIFEncode( out, im->sx, im->sy, interlace, 0, transparent, BitsPerPixel, im->red, im->green, im->blue, im); } static int colorstobpp(int colors) { int bpp = 0; if ( colors <= 2 ) bpp = 1; else if ( colors <= 4 ) bpp = 2; else if ( colors <= 8 ) bpp = 3; else if ( colors <= 16 ) bpp = 4; else if ( colors <= 32 ) bpp = 5; else if ( colors <= 64 ) bpp = 6; else if ( colors <= 128 ) bpp = 7; else if ( colors <= 256 ) bpp = 8; return bpp; } /***************************************************************************** * * GIFENCODE.C - GIF Image compression interface * * GIFEncode( FName, GHeight, GWidth, GInterlace, Background, Transparent, * BitsPerPixel, Red, Green, Blue, gdImagePtr ) * *****************************************************************************/ #define TRUE 1 #define FALSE 0 static int Width, Height; static int curx, cury; static long CountDown; static int Pass = 0; static int Interlace; /* * Bump the 'curx' and 'cury' to point to the next pixel */ static void BumpPixel(void) { /* * Bump the current X position */ ++curx; /* * If we are at the end of a scan line, set curx back to the beginning * If we are interlaced, bump the cury to the appropriate spot, * otherwise, just increment it. */ if( curx == Width ) { curx = 0; if( !Interlace ) ++cury; else { switch( Pass ) { case 0: cury += 8; if( cury >= Height ) { ++Pass; cury = 4; } break; case 1: cury += 8; if( cury >= Height ) { ++Pass; cury = 2; } break; case 2: cury += 4; if( cury >= Height ) { ++Pass; cury = 1; } break; case 3: cury += 2; break; } } } } /* * Return the next pixel from the image */ static int GIFNextPixel(gdImagePtr im) { int r; if( CountDown == 0 ) return EOF; --CountDown; r = gdImageGetPixel(im, curx, cury); BumpPixel(); return r; } /* public */ static void GIFEncode(FILE *fp, int GWidth, int GHeight, int GInterlace, int Background, int Transparent, int BitsPerPixel, int *Red, int *Green, int *Blue, gdImagePtr im) { int B; int RWidth, RHeight; int LeftOfs, TopOfs; int Resolution; int ColorMapSize; int InitCodeSize; int i; Interlace = GInterlace; ColorMapSize = 1 << BitsPerPixel; RWidth = Width = GWidth; RHeight = Height = GHeight; LeftOfs = TopOfs = 0; Resolution = BitsPerPixel; /* * Calculate number of bits we are expecting */ CountDown = (long)Width * (long)Height; /* * Indicate which pass we are on (if interlace) */ Pass = 0; /* * The initial code size */ if( BitsPerPixel <= 1 ) InitCodeSize = 2; else InitCodeSize = BitsPerPixel; /* * Set up the current x and y position */ curx = cury = 0; /* * Write the Magic header */ fwrite( Transparent < 0 ? "GIF87a" : "GIF89a", 1, 6, fp ); /* * Write out the screen width and height */ Putword( RWidth, fp ); Putword( RHeight, fp ); /* * Indicate that there is a global colour map */ B = 0x80; /* Yes, there is a color map */ /* * OR in the resolution */ B |= (Resolution - 1) << 5; /* * OR in the Bits per Pixel */ B |= (BitsPerPixel - 1); /* * Write it out */ fputc( B, fp ); /* * Write out the Background colour */ fputc( Background, fp ); /* * Byte of 0's (future expansion) */ fputc( 0, fp ); /* * Write out the Global Colour Map */ for( i=0; i= 0 ) { fputc( '!', fp ); fputc( 0xf9, fp ); fputc( 4, fp ); fputc( 1, fp ); fputc( 0, fp ); fputc( 0, fp ); fputc( (unsigned char) Transparent, fp ); fputc( 0, fp ); } /* * Write an Image separator */ fputc( ',', fp ); /* * Write the Image header */ Putword( LeftOfs, fp ); Putword( TopOfs, fp ); Putword( Width, fp ); Putword( Height, fp ); /* * Write out whether or not the image is interlaced */ if( Interlace ) fputc( 0x40, fp ); else fputc( 0x00, fp ); /* * Write out the initial code size */ fputc( InitCodeSize, fp ); /* * Go and actually compress the data */ compress( InitCodeSize+1, fp, im ); /* * Write out a Zero-length packet (to end the series) */ fputc( 0, fp ); /* * Write the GIF file terminator */ fputc( ';', fp ); } /* * Write out a word to the GIF file */ static void Putword(int w, FILE *fp) { fputc( w & 0xff, fp ); fputc( (w / 256) & 0xff, fp ); } /*************************************************************************** * * GIFCOMPR.C - GIF Image compression routines * * Lempel-Ziv compression based on 'compress'. GIF modifications by * David Rowley (mgardi@watdcsu.waterloo.edu) * ***************************************************************************/ /* * General DEFINEs */ #define GIFBITS 12 #define HSIZE 5003 /* 80% occupancy */ #ifdef NO_UCHAR typedef char char_type; #else /*NO_UCHAR*/ typedef unsigned char char_type; #endif /*NO_UCHAR*/ /* * * GIF Image compression - modified 'compress' * * Based on: compress.c - File compression ala IEEE Computer, June 1984. * * By Authors: Spencer W. Thomas (decvax!harpo!utah-cs!utah-gr!thomas) * Jim McKie (decvax!mcvax!jim) * Steve Davies (decvax!vax135!petsd!peora!srd) * Ken Turkowski (decvax!decwrl!turtlevax!ken) * James A. Woods (decvax!ihnp4!ames!jaw) * Joe Orost (decvax!vax135!petsd!joe) * */ #include #define ARGVAL() (*++(*argv) || (--argc && *++argv)) static int n_bits; /* number of bits/code */ static int maxbits = GIFBITS; /* user settable max # bits/code */ static code_int maxcode; /* maximum code, given n_bits */ static code_int maxmaxcode = (code_int)1 << GIFBITS; /* should NEVER generate this code */ #ifdef COMPATIBLE /* But wrong! */ # define MAXCODE(n_bits) ((code_int) 1 << (n_bits) - 1) #else /*COMPATIBLE*/ # define MAXCODE(n_bits) (((code_int) 1 << (n_bits)) - 1) #endif /*COMPATIBLE*/ static count_int htab [HSIZE]; static unsigned short codetab [HSIZE]; #define HashTabOf(i) htab[i] #define CodeTabOf(i) codetab[i] static code_int hsize = HSIZE; /* for dynamic table sizing */ /* * To save much memory, we overlay the table used by compress() with those * used by decompress(). The tab_prefix table is the same size and type * as the codetab. The tab_suffix table needs 2**GIFBITS characters. We * get this from the beginning of htab. The output stack uses the rest * of htab, and contains characters. There is plenty of room for any * possible stack (stack used to be 8000 characters). */ #define tab_prefixof(i) CodeTabOf(i) #define tab_suffixof(i) ((char_type*)(htab))[i] #define de_stack ((char_type*)&tab_suffixof((code_int)1< 0 ) goto probe; nomatch: output ( (code_int) ent ); ++out_count; ent = c; #ifdef SIGNED_COMPARE_SLOW if ( (unsigned) free_ent < (unsigned) maxmaxcode) { #else /*SIGNED_COMPARE_SLOW*/ if ( free_ent < maxmaxcode ) { /* } */ #endif /*SIGNED_COMPARE_SLOW*/ CodeTabOf (i) = free_ent++; /* code -> hashtable */ HashTabOf (i) = fcode; } else cl_block(); } /* * Put out the final code. */ output( (code_int)ent ); ++out_count; output( (code_int) EOFCode ); } /***************************************************************** * TAG( output ) * * Output the given code. * Inputs: * code: A n_bits-bit integer. If == -1, then EOF. This assumes * that n_bits =< (long)wordsize - 1. * Outputs: * Outputs code to the file. * Assumptions: * Chars are 8 bits long. * Algorithm: * Maintain a GIFBITS character long buffer (so that 8 codes will * fit in it exactly). Use the VAX insv instruction to insert each * code in turn. When the buffer fills up empty it and start over. */ static unsigned long cur_accum = 0; static int cur_bits = 0; static unsigned long masks[] = { 0x0000, 0x0001, 0x0003, 0x0007, 0x000F, 0x001F, 0x003F, 0x007F, 0x00FF, 0x01FF, 0x03FF, 0x07FF, 0x0FFF, 0x1FFF, 0x3FFF, 0x7FFF, 0xFFFF }; static void output(code_int code) { cur_accum &= masks[ cur_bits ]; if( cur_bits > 0 ) cur_accum |= ((long)code << cur_bits); else cur_accum = code; cur_bits += n_bits; while( cur_bits >= 8 ) { char_out( (unsigned int)(cur_accum & 0xff) ); cur_accum >>= 8; cur_bits -= 8; } /* * If the next entry is going to be too big for the code size, * then increase it, if possible. */ if ( free_ent > maxcode || clear_flg ) { if( clear_flg ) { maxcode = MAXCODE (n_bits = g_init_bits); clear_flg = 0; } else { ++n_bits; if ( n_bits == maxbits ) maxcode = maxmaxcode; else maxcode = MAXCODE(n_bits); } } if( code == EOFCode ) { /* * At EOF, write the rest of the buffer. */ while( cur_bits > 0 ) { char_out( (unsigned int)(cur_accum & 0xff) ); cur_accum >>= 8; cur_bits -= 8; } flush_char(); fflush( g_outfile ); if( ferror( g_outfile ) ) return; } } /* * Clear out the hash table */ static void cl_block (void) /* table clear for block compress */ { cl_hash ( (count_int) hsize ); free_ent = ClearCode + 2; clear_flg = 1; output( (code_int)ClearCode ); } static void cl_hash(register count_int hsize) /* reset code table */ { register count_int *htab_p = htab+hsize; register long i; register long m1 = -1; i = hsize - 16; do { /* might use Sys V memset(3) here */ *(htab_p-16) = m1; *(htab_p-15) = m1; *(htab_p-14) = m1; *(htab_p-13) = m1; *(htab_p-12) = m1; *(htab_p-11) = m1; *(htab_p-10) = m1; *(htab_p-9) = m1; *(htab_p-8) = m1; *(htab_p-7) = m1; *(htab_p-6) = m1; *(htab_p-5) = m1; *(htab_p-4) = m1; *(htab_p-3) = m1; *(htab_p-2) = m1; *(htab_p-1) = m1; htab_p -= 16; } while ((i -= 16) >= 0); for ( i += 16; i > 0; --i ) *--htab_p = m1; } /****************************************************************************** * * GIF Specific routines * ******************************************************************************/ /* * Number of characters so far in this 'packet' */ static int a_count; /* * Set up the 'byte output' routine */ static void char_init(void) { a_count = 0; } /* * Define the storage for the packet accumulator */ static char accum[ 256 ]; /* * Add a character to the end of the current packet, and if it is 254 * characters, flush the packet to disk. */ static void char_out(int c) { accum[ a_count++ ] = c; if( a_count >= 254 ) flush_char(); } /* * Flush the packet to disk, and reset the accumulator */ static void flush_char(void) { if( a_count > 0 ) { fputc( a_count, g_outfile ); fwrite( accum, 1, a_count, g_outfile ); a_count = 0; } } static void init_statics(void) { /* Some of these are properly initialized later. What I'm doing here is making sure code that depends on C's initialization of statics doesn't break when the code gets called more than once. */ Width = 0; Height = 0; curx = 0; cury = 0; CountDown = 0; Pass = 0; Interlace = 0; a_count = 0; cur_accum = 0; cur_bits = 0; g_init_bits = 0; g_outfile = 0; ClearCode = 0; EOFCode = 0; free_ent = 0; clear_flg = 0; offset = 0; in_count = 1; out_count = 0; hsize = HSIZE; n_bits = 0; maxbits = GIFBITS; maxcode = 0; maxmaxcode = (code_int)1 << GIFBITS; } /* +-------------------------------------------------------------------+ */ /* | Copyright 1990, 1991, 1993, David Koblas. (koblas@netcom.com) | */ /* | Permission to use, copy, modify, and distribute this software | */ /* | and its documentation for any purpose and without fee is hereby | */ /* | granted, provided that the above copyright notice appear in all | */ /* | copies and that both that copyright notice and this permission | */ /* | notice appear in supporting documentation. This software is | */ /* | provided "as is" without express or implied warranty. | */ /* +-------------------------------------------------------------------+ */ #define MAXCOLORMAPSIZE 256 #define TRUE 1 #define FALSE 0 #define CM_RED 0 #define CM_GREEN 1 #define CM_BLUE 2 #define MAX_LWZ_BITS 12 #define INTERLACE 0x40 #define LOCALCOLORMAP 0x80 #define BitSet(byte, bit) (((byte) & (bit)) == (bit)) #define ReadOK(file,buffer,len) (fread(buffer, len, 1, file) != 0) #define LM_to_uint(a,b) (((b)<<8)|(a)) /* We may eventually want to use this information, but def it out for now */ #if 0 static struct { unsigned int Width; unsigned int Height; unsigned char ColorMap[3][MAXCOLORMAPSIZE]; unsigned int BitPixel; unsigned int ColorResolution; unsigned int Background; unsigned int AspectRatio; } GifScreen; #endif static struct { int transparent; int delayTime; int inputFlag; int disposal; } Gif89 = { -1, -1, -1, 0 }; static int ReadColorMap (FILE *fd, int number, unsigned char (*buffer)[256]); static int DoExtension (FILE *fd, int label, int *Transparent); static int GetDataBlock (FILE *fd, unsigned char *buf); static int GetCode (FILE *fd, int code_size, int flag); static int LWZReadByte (FILE *fd, int flag, int input_code_size); static void ReadImage (gdImagePtr im, FILE *fd, int len, int height, unsigned char (*cmap)[256], int interlace, int ignore); int ZeroDataBlock; gdImagePtr gdImageCreateFromGif(FILE *fd) { int imageNumber; int BitPixel; int ColorResolution; int Background; int AspectRatio; int Transparent = (-1); unsigned char buf[16]; unsigned char c; unsigned char ColorMap[3][MAXCOLORMAPSIZE]; unsigned char localColorMap[3][MAXCOLORMAPSIZE]; int imw, imh; int useGlobalColormap; int bitPixel; int imageCount = 0; char version[4]; gdImagePtr im = 0; ZeroDataBlock = FALSE; imageNumber = 1; if (! ReadOK(fd,buf,6)) { return 0; } if (strncmp((char *)buf,"GIF",3) != 0) { return 0; } strncpy(version, (char *)buf + 3, 3); version[3] = '\0'; if ((strcmp(version, "87a") != 0) && (strcmp(version, "89a") != 0)) { return 0; } if (! ReadOK(fd,buf,7)) { return 0; } BitPixel = 2<<(buf[4]&0x07); ColorResolution = (int) (((buf[4]&0x70)>>3)+1); Background = buf[5]; AspectRatio = buf[6]; if (BitSet(buf[4], LOCALCOLORMAP)) { /* Global Colormap */ if (ReadColorMap(fd, BitPixel, ColorMap)) { return 0; } } for (;;) { if (! ReadOK(fd,&c,1)) { return 0; } if (c == ';') { /* GIF terminator */ int i; if (imageCount < imageNumber) { return 0; } /* Terminator before any image was declared! */ if (!im) { return 0; } /* Check for open colors at the end, so we can reduce colorsTotal and ultimately BitsPerPixel */ for (i=((im->colorsTotal-1)); (i>=0); i--) { if (im->open[i]) { im->colorsTotal--; } else { break; } } return im; } if (c == '!') { /* Extension */ if (! ReadOK(fd,&c,1)) { return 0; } DoExtension(fd, c, &Transparent); continue; } if (c != ',') { /* Not a valid start character */ continue; } ++imageCount; if (! ReadOK(fd,buf,9)) { return 0; } useGlobalColormap = ! BitSet(buf[8], LOCALCOLORMAP); bitPixel = 1<<((buf[8]&0x07)+1); imw = LM_to_uint(buf[4],buf[5]); imh = LM_to_uint(buf[6],buf[7]); if (!(im = gdImageCreate(imw, imh))) { return 0; } im->interlace = BitSet(buf[8], INTERLACE); if (! useGlobalColormap) { if (ReadColorMap(fd, bitPixel, localColorMap)) { return 0; } ReadImage(im, fd, imw, imh, localColorMap, BitSet(buf[8], INTERLACE), imageCount != imageNumber); } else { ReadImage(im, fd, imw, imh, ColorMap, BitSet(buf[8], INTERLACE), imageCount != imageNumber); } if (Transparent != (-1)) { gdImageColorTransparent(im, Transparent); } } } static int ReadColorMap(FILE *fd, int number, unsigned char (*buffer)[256]) { int i; unsigned char rgb[3]; for (i = 0; i < number; ++i) { if (! ReadOK(fd, rgb, sizeof(rgb))) { return TRUE; } buffer[CM_RED][i] = rgb[0] ; buffer[CM_GREEN][i] = rgb[1] ; buffer[CM_BLUE][i] = rgb[2] ; } return FALSE; } static int DoExtension(FILE *fd, int label, int *Transparent) { static unsigned char buf[256]; switch (label) { case 0xf9: /* Graphic Control Extension */ (void) GetDataBlock(fd, (unsigned char*) buf); Gif89.disposal = (buf[0] >> 2) & 0x7; Gif89.inputFlag = (buf[0] >> 1) & 0x1; Gif89.delayTime = LM_to_uint(buf[1],buf[2]); if ((buf[0] & 0x1) != 0) *Transparent = buf[3]; while (GetDataBlock(fd, (unsigned char*) buf) != 0) ; return FALSE; default: break; } while (GetDataBlock(fd, (unsigned char*) buf) != 0) ; return FALSE; } static int GetDataBlock(FILE *fd, unsigned char *buf) { unsigned char count; if (! ReadOK(fd,&count,1)) { return -1; } ZeroDataBlock = count == 0; if ((count != 0) && (! ReadOK(fd, buf, count))) { return -1; } return count; } static int GetCode(FILE *fd, int code_size, int flag) { static unsigned char buf[280]; static int curbit, lastbit, done, last_byte; int i, j, ret; unsigned char count; if (flag) { curbit = 0; lastbit = 0; done = FALSE; return 0; } if ( (curbit+code_size) >= lastbit) { if (done) { if (curbit >= lastbit) { /* Oh well */ } return -1; } buf[0] = buf[last_byte-2]; buf[1] = buf[last_byte-1]; if ((count = GetDataBlock(fd, &buf[2])) == 0) done = TRUE; last_byte = 2 + count; curbit = (curbit - lastbit) + 16; lastbit = (2+count)*8 ; } ret = 0; for (i = curbit, j = 0; j < code_size; ++i, ++j) ret |= ((buf[ i / 8 ] & (1 << (i % 8))) != 0) << j; curbit += code_size; return ret; } static int LWZReadByte(FILE *fd, int flag, int input_code_size) { static int fresh = FALSE; int code, incode; static int code_size, set_code_size; static int max_code, max_code_size; static int firstcode, oldcode; static int clear_code, end_code; static int table[2][(1<< MAX_LWZ_BITS)]; static int stack[(1<<(MAX_LWZ_BITS))*2], *sp; register int i; if (flag) { set_code_size = input_code_size; code_size = set_code_size+1; clear_code = 1 << set_code_size ; end_code = clear_code + 1; max_code_size = 2*clear_code; max_code = clear_code+2; GetCode(fd, 0, TRUE); fresh = TRUE; for (i = 0; i < clear_code; ++i) { table[0][i] = 0; table[1][i] = i; } for (; i < (1< stack) return *--sp; while ((code = GetCode(fd, code_size, FALSE)) >= 0) { if (code == clear_code) { for (i = 0; i < clear_code; ++i) { table[0][i] = 0; table[1][i] = i; } for (; i < (1< 0) ; if (count != 0) return -2; } incode = code; if (code >= max_code) { *sp++ = firstcode; code = oldcode; } while (code >= clear_code) { *sp++ = table[1][code]; if (code == table[0][code]) { /* Oh well */ } code = table[0][code]; } *sp++ = firstcode = table[1][code]; if ((code = max_code) <(1<= max_code_size) && (max_code_size < (1< stack) return *--sp; } return code; } static void ReadImage(gdImagePtr im, FILE *fd, int len, int height, unsigned char (*cmap)[256], int interlace, int ignore) { unsigned char c; int v; int xpos = 0, ypos = 0, pass = 0; int i; /* Stash the color map into the image */ for (i=0; (ired[i] = cmap[CM_RED][i]; im->green[i] = cmap[CM_GREEN][i]; im->blue[i] = cmap[CM_BLUE][i]; im->open[i] = 1; } /* Many (perhaps most) of these colors will remain marked open. */ im->colorsTotal = gdMaxColors; /* ** Initialize the Compression routines */ if (! ReadOK(fd,&c,1)) { return; } if (LWZReadByte(fd, TRUE, c) < 0) { return; } /* ** If this is an "uninteresting picture" ignore it. */ if (ignore) { while (LWZReadByte(fd, FALSE, c) >= 0) ; return; } while ((v = LWZReadByte(fd,FALSE,c)) >= 0 ) { /* This how we recognize which colors are actually used. */ if (im->open[v]) { im->open[v] = 0; } gdImageSetPixel(im, xpos, ypos, v); ++xpos; if (xpos == len) { xpos = 0; if (interlace) { switch (pass) { case 0: case 1: ypos += 8; break; case 2: ypos += 4; break; case 3: ypos += 2; break; } if (ypos >= height) { ++pass; switch (pass) { case 1: ypos = 4; break; case 2: ypos = 2; break; case 3: ypos = 1; break; default: goto fini; } } } else { ++ypos; } } if (ypos >= height) break; } fini: if (LWZReadByte(fd,FALSE,c)>=0) { /* Ignore extra */ } } void gdImageRectangle(gdImagePtr im, int x1, int y1, int x2, int y2, int color) { gdImageLine(im, x1, y1, x2, y1, color); gdImageLine(im, x1, y2, x2, y2, color); gdImageLine(im, x1, y1, x1, y2, color); gdImageLine(im, x2, y1, x2, y2, color); } void gdImageFilledRectangle(gdImagePtr im, int x1, int y1, int x2, int y2, int color) { int x, y; for (y=y1; (y<=y2); y++) { for (x=x1; (x<=x2); x++) { gdImageSetPixel(im, x, y, color); } } } void gdImageCopy(gdImagePtr dst, gdImagePtr src, int dstX, int dstY, int srcX, int srcY, int w, int h) { int c; int x, y; int tox, toy; int i; int colorMap[gdMaxColors]; for (i=0; (ired[c], src->green[c], src->blue[c]); } if (nc == (-1)) { /* No, so try to allocate it */ nc = gdImageColorAllocate(dst, src->red[c], src->green[c], src->blue[c]); /* If we're out of colors, go for the closest color */ if (nc == (-1)) { nc = gdImageColorClosest(dst, src->red[c], src->green[c], src->blue[c]); } } colorMap[c] = nc; } gdImageSetPixel(dst, tox, toy, colorMap[c]); tox++; } toy++; } } void gdImageCopyResized(gdImagePtr dst, gdImagePtr src, int dstX, int dstY, int srcX, int srcY, int dstW, int dstH, int srcW, int srcH) { int c; int x, y; int tox, toy; int ydest; int i; int colorMap[gdMaxColors]; /* Stretch vectors */ int *stx; int *sty; /* We only need to use floating point to determine the correct stretch vector for one line's worth. */ double accum; stx = (int *) malloc(sizeof(int) * srcW); sty = (int *) malloc(sizeof(int) * srcH); accum = 0; for (i=0; (i < srcW); i++) { int got; accum += (double)dstW/(double)srcW; got = floor(accum); stx[i] = got; accum -= got; } accum = 0; for (i=0; (i < srcH); i++) { int got; accum += (double)dstH/(double)srcH; got = floor(accum); sty[i] = got; accum -= got; } for (i=0; (ired[c], src->green[c], src->blue[c]); } if (nc == (-1)) { /* No, so try to allocate it */ nc = gdImageColorAllocate(dst, src->red[c], src->green[c], src->blue[c]); /* If we're out of colors, go for the closest color */ if (nc == (-1)) { nc = gdImageColorClosest(dst, src->red[c], src->green[c], src->blue[c]); } } colorMap[c] = nc; } for (i=0; (i < stx[x - srcX]); i++) { gdImageSetPixel(dst, tox, toy, colorMap[c]); tox++; } } toy++; } } free(stx); free(sty); } int gdGetWord(int *result, FILE *in) { int r; r = getc(in); if (r == EOF) { return 0; } *result = r << 8; r = getc(in); if (r == EOF) { return 0; } *result += r; return 1; } void gdPutWord(int w, FILE *out) { putc((unsigned char)(w >> 8), out); putc((unsigned char)(w & 0xFF), out); } int gdGetByte(int *result, FILE *in) { int r; r = getc(in); if (r == EOF) { return 0; } *result = r; return 1; } gdImagePtr gdImageCreateFromGd(FILE *in) { int sx, sy; int x, y; int i; gdImagePtr im; if (!gdGetWord(&sx, in)) { goto fail1; } if (!gdGetWord(&sy, in)) { goto fail1; } im = gdImageCreate(sx, sy); if (!gdGetByte(&im->colorsTotal, in)) { goto fail2; } if (!gdGetWord(&im->transparent, in)) { goto fail2; } if (im->transparent == 257) { im->transparent = (-1); } for (i=0; (ired[i], in)) { goto fail2; } if (!gdGetByte(&im->green[i], in)) { goto fail2; } if (!gdGetByte(&im->blue[i], in)) { goto fail2; } } for (y=0; (ypixels[x][y] = ch; } } return im; fail2: gdImageDestroy(im); fail1: return 0; } void gdImageGd(gdImagePtr im, FILE *out) { int x, y; int i; int trans; gdPutWord(im->sx, out); gdPutWord(im->sy, out); putc((unsigned char)im->colorsTotal, out); trans = im->transparent; if (trans == (-1)) { trans = 257; } gdPutWord(trans, out); for (i=0; (ired[i], out); putc((unsigned char)im->green[i], out); putc((unsigned char)im->blue[i], out); } for (y=0; (y < im->sy); y++) { for (x=0; (x < im->sx); x++) { putc((unsigned char)im->pixels[x][y], out); } } } gdImagePtr gdImageCreateFromXbm(FILE *fd) { gdImagePtr im; int bit; int w, h; int bytes; int ch; int i, x, y; char *sp; char s[161]; if (!fgets(s, 160, fd)) { return 0; } sp = &s[0]; /* Skip #define */ sp = strchr(sp, ' '); if (!sp) { return 0; } /* Skip width label */ sp++; sp = strchr(sp, ' '); if (!sp) { return 0; } /* Get width */ w = atoi(sp + 1); if (!w) { return 0; } if (!fgets(s, 160, fd)) { return 0; } sp = s; /* Skip #define */ sp = strchr(sp, ' '); if (!sp) { return 0; } /* Skip height label */ sp++; sp = strchr(sp, ' '); if (!sp) { return 0; } /* Get height */ h = atoi(sp + 1); if (!h) { return 0; } /* Skip declaration line */ if (!fgets(s, 160, fd)) { return 0; } bytes = (w * h / 8) + 1; im = gdImageCreate(w, h); gdImageColorAllocate(im, 255, 255, 255); gdImageColorAllocate(im, 0, 0, 0); x = 0; y = 0; for (i=0; (i < bytes); i++) { char h[3]; int b; /* Skip spaces, commas, CRs, 0x */ while(1) { ch = getc(fd); if (ch == EOF) { goto fail; } if (ch == 'x') { break; } } /* Get hex value */ ch = getc(fd); if (ch == EOF) { goto fail; } h[0] = ch; ch = getc(fd); if (ch == EOF) { goto fail; } h[1] = ch; h[2] = '\0'; sscanf(h, "%x", &b); for (bit = 1; (bit <= 128); (bit = bit << 1)) { gdImageSetPixel(im, x++, y, (b & bit) ? 1 : 0); if (x == im->sx) { x = 0; y++; if (y == im->sy) { return im; } /* Fix 8/8/95 */ break; } } } /* Shouldn't happen */ fprintf(stderr, "Error: bug in gdImageCreateFromXbm!\n"); return 0; fail: gdImageDestroy(im); return 0; } void gdImagePolygon(gdImagePtr im, gdPointPtr p, int n, int c) { int i; int lx, ly; if (!n) { return; } lx = p->x; ly = p->y; gdImageLine(im, lx, ly, p[n-1].x, p[n-1].y, c); for (i=1; (i < n); i++) { p++; gdImageLine(im, lx, ly, p->x, p->y, c); lx = p->x; ly = p->y; } } int gdCompareInt(const void *a, const void *b); void gdImageFilledPolygon(gdImagePtr im, gdPointPtr p, int n, int c) { int i; int y; int y1, y2; int ints; if (!n) { return; } if (!im->polyAllocated) { im->polyInts = (int *) malloc(sizeof(int) * n); im->polyAllocated = n; } if (im->polyAllocated < n) { while (im->polyAllocated < n) { im->polyAllocated *= 2; } im->polyInts = (int *) realloc(im->polyInts, sizeof(int) * im->polyAllocated); } y1 = p[0].y; y2 = p[0].y; for (i=1; (i < n); i++) { if (p[i].y < y1) { y1 = p[i].y; } if (p[i].y > y2) { y2 = p[i].y; } } for (y=y1; (y <= y2); y++) { int interLast = 0; int dirLast = 0; int interFirst = 1; ints = 0; for (i=0; (i <= n); i++) { int x1, x2; int y1, y2; int dir; int ind1, ind2; int lastInd1 = 0; if ((i == n) || (!i)) { ind1 = n-1; ind2 = 0; } else { ind1 = i-1; ind2 = i; } y1 = p[ind1].y; y2 = p[ind2].y; if (y1 < y2) { y1 = p[ind1].y; y2 = p[ind2].y; x1 = p[ind1].x; x2 = p[ind2].x; dir = -1; } else if (y1 > y2) { y2 = p[ind1].y; y1 = p[ind2].y; x2 = p[ind1].x; x1 = p[ind2].x; dir = 1; } else { /* Horizontal; just draw it */ gdImageLine(im, p[ind1].x, y1, p[ind2].x, y1, c); continue; } if ((y >= y1) && (y <= y2)) { int inter = (y-y1) * (x2-x1) / (y2-y1) + x1; /* Only count intersections once except at maxima and minima. Also, if two consecutive intersections are endpoints of the same horizontal line that is not at a maxima or minima, discard the leftmost of the two. */ if (!interFirst) { if ((p[ind1].y == p[lastInd1].y) && (p[ind1].x != p[lastInd1].x)) { if (dir == dirLast) { if (inter > interLast) { /* Replace the old one */ im->polyInts[ints] = inter; } else { /* Discard this one */ } continue; } } if (inter == interLast) { if (dir == dirLast) { continue; } } } if (i > 0) { im->polyInts[ints++] = inter; } lastInd1 = i; dirLast = dir; interLast = inter; interFirst = 0; } } qsort(im->polyInts, ints, sizeof(int), gdCompareInt); for (i=0; (i < (ints-1)); i+=2) { gdImageLine(im, im->polyInts[i], y, im->polyInts[i+1], y, c); } } } int gdCompareInt(const void *a, const void *b) { return (*(const int *)a) - (*(const int *)b); } void gdImageSetStyle(gdImagePtr im, int *style, int noOfPixels) { if (im->style) { free(im->style); } im->style = (int *) malloc(sizeof(int) * noOfPixels); memcpy(im->style, style, sizeof(int) * noOfPixels); im->styleLength = noOfPixels; im->stylePos = 0; } void gdImageSetBrush(gdImagePtr im, gdImagePtr brush) { int i; im->brush = brush; for (i=0; (i < gdImageColorsTotal(brush)); i++) { int index; index = gdImageColorExact(im, gdImageRed(brush, i), gdImageGreen(brush, i), gdImageBlue(brush, i)); if (index == (-1)) { index = gdImageColorAllocate(im, gdImageRed(brush, i), gdImageGreen(brush, i), gdImageBlue(brush, i)); if (index == (-1)) { index = gdImageColorClosest(im, gdImageRed(brush, i), gdImageGreen(brush, i), gdImageBlue(brush, i)); } } im->brushColorMap[i] = index; } } void gdImageSetTile(gdImagePtr im, gdImagePtr tile) { int i; im->tile = tile; for (i=0; (i < gdImageColorsTotal(tile)); i++) { int index; index = gdImageColorExact(im, gdImageRed(tile, i), gdImageGreen(tile, i), gdImageBlue(tile, i)); if (index == (-1)) { index = gdImageColorAllocate(im, gdImageRed(tile, i), gdImageGreen(tile, i), gdImageBlue(tile, i)); if (index == (-1)) { index = gdImageColorClosest(im, gdImageRed(tile, i), gdImageGreen(tile, i), gdImageBlue(tile, i)); } } im->tileColorMap[i] = index; } } void gdImageInterlace(gdImagePtr im, int interlaceArg) { im->interlace = interlaceArg; } neotcl8.1.1-lite/gd1.2/gd.h100664 15471 0 12115 6752336006 13727 0ustar damonwheel#ifndef GD_H #define GD_H 1 /* gd.h: declarations file for the gifdraw module. Written by Tom Boutell, 5/94. Copyright 1994, Cold Spring Harbor Labs. Permission granted to use this code in any fashion provided that this notice is retained and any alterations are labeled as such. It is requested, but not required, that you share extensions to this module with us so that we can incorporate them into new versions. */ /* stdio is needed for file I/O. */ #include /* This can't be changed, it's part of the GIF specification. */ #define gdMaxColors 256 /* Image type. See functions below; you will not need to change the elements directly. Use the provided macros to access sx, sy, the color table, and colorsTotal for read-only purposes. */ typedef struct gdImageStruct { unsigned char ** pixels; int sx; int sy; int colorsTotal; int red[gdMaxColors]; int green[gdMaxColors]; int blue[gdMaxColors]; int open[gdMaxColors]; int transparent; int *polyInts; int polyAllocated; struct gdImageStruct *brush; struct gdImageStruct *tile; int brushColorMap[gdMaxColors]; int tileColorMap[gdMaxColors]; int styleLength; int stylePos; int *style; int interlace; } gdImage; typedef gdImage * gdImagePtr; typedef struct { /* # of characters in font */ int nchars; /* First character is numbered... (usually 32 = space) */ int offset; /* Character width and height */ int w; int h; /* Font data; array of characters, one row after another. Easily included in code, also easily loaded from data files. */ char *data; } gdFont; /* Text functions take these. */ typedef gdFont *gdFontPtr; /* For backwards compatibility only. Use gdImageSetStyle() for MUCH more flexible line drawing. Also see gdImageSetBrush(). */ #define gdDashSize 4 /* Special colors. */ #define gdStyled (-2) #define gdBrushed (-3) #define gdStyledBrushed (-4) #define gdTiled (-5) /* NOT the same as the transparent color index. This is used in line styles only. */ #define gdTransparent (-6) /* Functions to manipulate images. */ gdImagePtr gdImageCreate(int sx, int sy); gdImagePtr gdImageCreateFromGif(FILE *fd); gdImagePtr gdImageCreateFromGd(FILE *in); gdImagePtr gdImageCreateFromXbm(FILE *fd); void gdImageDestroy(gdImagePtr im); void gdImageSetPixel(gdImagePtr im, int x, int y, int color); int gdImageGetPixel(gdImagePtr im, int x, int y); void gdImageLine(gdImagePtr im, int x1, int y1, int x2, int y2, int color); /* For backwards compatibility only. Use gdImageSetStyle() for much more flexible line drawing. */ void gdImageDashedLine(gdImagePtr im, int x1, int y1, int x2, int y2, int color); /* Corners specified (not width and height). Upper left first, lower right second. */ void gdImageRectangle(gdImagePtr im, int x1, int y1, int x2, int y2, int color); /* Solid bar. Upper left corner first, lower right corner second. */ void gdImageFilledRectangle(gdImagePtr im, int x1, int y1, int x2, int y2, int color); int gdImageBoundsSafe(gdImagePtr im, int x, int y); void gdImageChar(gdImagePtr im, gdFontPtr f, int x, int y, int c, int color); void gdImageCharUp(gdImagePtr im, gdFontPtr f, int x, int y, char c, int color); void gdImageString(gdImagePtr im, gdFontPtr f, int x, int y, char *s, int color); void gdImageStringUp(gdImagePtr im, gdFontPtr f, int x, int y, char *s, int color); /* Point type for use in polygon drawing. */ typedef struct { int x, y; } gdPoint, *gdPointPtr; void gdImagePolygon(gdImagePtr im, gdPointPtr p, int n, int c); void gdImageFilledPolygon(gdImagePtr im, gdPointPtr p, int n, int c); int gdImageColorAllocate(gdImagePtr im, int r, int g, int b); int gdImageColorClosest(gdImagePtr im, int r, int g, int b); int gdImageColorExact(gdImagePtr im, int r, int g, int b); void gdImageColorDeallocate(gdImagePtr im, int color); void gdImageColorTransparent(gdImagePtr im, int color); void gdImageGif(gdImagePtr im, FILE *out); void gdImageGd(gdImagePtr im, FILE *out); void gdImageArc(gdImagePtr im, int cx, int cy, int w, int h, int s, int e, int color); void gdImageFillToBorder(gdImagePtr im, int x, int y, int border, int color); void gdImageFill(gdImagePtr im, int x, int y, int color); void gdImageCopy(gdImagePtr dst, gdImagePtr src, int dstX, int dstY, int srcX, int srcY, int w, int h); /* Stretches or shrinks to fit, as needed */ void gdImageCopyResized(gdImagePtr dst, gdImagePtr src, int dstX, int dstY, int srcX, int srcY, int dstW, int dstH, int srcW, int srcH); void gdImageSetBrush(gdImagePtr im, gdImagePtr brush); void gdImageSetTile(gdImagePtr im, gdImagePtr tile); void gdImageSetStyle(gdImagePtr im, int *style, int noOfPixels); /* On or off (1 or 0) */ void gdImageInterlace(gdImagePtr im, int interlaceArg); /* Macros to access information about images. READ ONLY. Changing these values will NOT have the desired result. */ #define gdImageSX(im) ((im)->sx) #define gdImageSY(im) ((im)->sy) #define gdImageColorsTotal(im) ((im)->colorsTotal) #define gdImageRed(im, c) ((im)->red[(c)]) #define gdImageGreen(im, c) ((im)->green[(c)]) #define gdImageBlue(im, c) ((im)->blue[(c)]) #define gdImageGetTransparent(im) ((im)->transparent) #define gdImageGetInterlaced(im) ((im)->interlace) #endif neotcl8.1.1-lite/gd1.2/gd.html100664 15471 0 261401 6752336006 14470 0ustar damonwheel gd 1.2

gd 1.2

A graphics library for fast GIF creation

Follow this link to the latest version of this document.

Table of Contents

Up to the Quest Home Page

Credits and license terms

gd 1.2 is copyright 1994, 1995, Quest Protein Database Center, Cold Spring Harbor Labs. Permission granted to copy and distribute this work provided that this notice remains intact. Credit for the library must be given to the Quest Protein Database Center, Cold Spring Harbor Labs, in all derived works. This does not affect your ownership of the derived work itself, and the intent is to assure proper credit for Quest, not to interfere with your use of gd. If you have questions, ask. ("Derived works" includes all programs that utilize the library. Credit must be given in user-visible documentation.)

If you wish to release modifications to gd, please clear them first by sending email to boutell@boutell.com; if this is not done, any modified version of the gd library must be clearly labeled as such.

The Quest Protein Database Center is funded under Grant P41-RR02188 by the National Institutes of Health.

Written by Thomas Boutell, 2/94 - 7/95.

The GIF compression code is based on that found in the pbmplus utilities, which in turn is based on GIFENCOD by David Rowley. See the notice below: 

/*
** Based on GIFENCOD by David Rowley .A
** Lempel-Zim compression based on "compress".
**
** Modified by Marcel Wijkstra 
**
** Copyright (C) 1989 by Jef Poskanzer.
**
** Permission to use, copy, modify, and distribute this software and its
** documentation for any purpose and without fee is hereby granted, provided
** that the above copyright notice appear in all copies and that both that
** copyright notice and this permission notice appear in supporting
** documentation.  This software is provided "as is" without express or
** implied warranty.
**
** The Graphics Interchange Format(c) is the Copyright property of
** CompuServe Incorporated.  GIF(sm) is a Service Mark property of
** CompuServe Incorporated.
*/

The GIF decompression is based on that found in the pbmplus utilities, which in turn is based on GIFDECOD by David Koblas. See the notice below: 

/* +-------------------------------------------------------------------+ */
/* | Copyright 1990, 1991, 1993, David Koblas.  (koblas@netcom.com)    | */
/* |   Permission to use, copy, modify, and distribute this software   | */
/* |   and its documentation for any purpose and without fee is hereby | */
/* |   granted, provided that the above copyright notice appear in all | */
/* |   copies and that both that copyright notice and this permission  | */
/* |   notice appear in supporting documentation.  This software is    | */
/* |   provided "as is" without express or implied warranty.           | */
/* +-------------------------------------------------------------------+ */

What is gd?

gd is a graphics library. It allows your code to quickly draw images complete with lines, arcs, text, multiple colors, cut and paste from other images, and flood fills, and write out the result as a .GIF file. This is particularly useful in World Wide Web applications, where .GIF is the format used for inline images.

gd is not a paint program. If you are looking for a paint program, try xpaint by David Koblas, available by anonymous FTP from ftp.netcom.com in pub/ko/koblas. (That package is for the X Window System; for the Mac and the PC, paint programs are considerably easier to find.)

gd does not provide for every possible desirable graphics operation. It is not necessary or desirable for gd to become a kitchen-sink graphics package, but version 1.2 incorporates most of the commonly requested features for a 2D package. Font support does need improvement, and support for the PNG graphics format will arrive in a forthcoming release.

What if I want to use Perl instead of C?

gd can also be used from Perl, courtesy of Lincoln Stein's GD.pm library, which uses gd as the basis for a set of Perl 5.x classes. GD.pm is based on gd 1.1.1 but gd 1.2 should be compatible.

What if I want to use Tcl instead of C?

 gd can also be used from Tcl by way of the gdtcl Tcl extension.

What if I want to use another scripting language?

 There are, at the moment, at least three simple interpreters that perform gd operations. You can output the desired commands to a simple text file from whatever scripting language you prefer to use, then invoke the interpreter.

These packages are based on gd 1.1.1 as of this writing but should be compatible with gd 1.2 with minimal tweaking.

  • gdit, by David Harvey-George
  • tgd, by Bradley K. Sherman
  • fly, by Martin Gleeson

What's new in version 1.2?

Version 1.2 is another fine-tuning release. The next major release will after 1.2 will be version 2.0 and will feature support for the new PNG graphics format as well as improved font support. gd 1.2 does add several new fonts in the meantime.

Version 1.2 moves gd to ANSI standard C. Non-ANSI C compilers, such as the old SunOS 4.1.3 cc compiler, will not work. The use of pre-ANSI C led to several long-standing bugs, and the ANSI C standard has been with us for nearly ten years now. If your compiler does not support ANSI, upgrade to a recent release of your compiler, or get gcc, which is free and does support ANSI C.

The provided Unix Makefile has been changed to be a bit more broadly compatible, and to acknowledge the changes that may be necessary on various systems.

Version 1.2 also includes the following improvements:

  • gdImageCopy and gdImageCopyResized now ignore pixels which are transparent in the source image. This is allows easy copying of non-square regions, which could previously be accomplished only with brushes.
  • gdImageFilledPolygon now draws horizontal edges correctly, correcting a long-standing bug. In addition, gdImageFilledPolygon copes with polygons which have several horizontal segments on the same scan line. There can still be a few pixels of disagreement between gdImagePolygon and gdImageFilledPolygon with regard to the borders of the polygon, however.
  • Several new public-domain fonts are included, courtesy of Joseph M. Orost at AT&T.
  • gd now properly recognizes an existing image with a high color slot number transparent.
  • Bugs in the gdImageCreateFromXbm function have been corrected. Previously the function was incorrect for image widths not evenly divisible by eight.

What's new in version 1.1.1?

A fine-tuning and bug-fixing release.

gdImageSetStyle now copies the style array to make it easier to take advantage of the line styling feature; it is now safe to free the memory associated with your style array after setting a style (or allocate styles on the stack...). This should not break existing code.

webgif, a small but powerful GIF-manipulating utility program, has been added as an additional code example.

An access macro to determine whether an image is interlaced has been added; see gdImageGetInterlaced.

A better Unix Makefile, provided by Mark Scott. Note that an actual library (libgd.a) is now produced; you will want to link with this library in your own gd apps, in the same manner that gddemo and giftogd link with it. You no longer need to explicitly list the standard font files on the link line. No doubt many users have already made this enhancement themselves.

Important: depending on your system you may need to rewrite this Makefile. Basic code-compiling skills are expected for the use of this library.

David Koblas has been given proper credit for the original GIF decoding routine; previously I erroneously credited David Rowley with both the encoder and the decoder.

gdImageFill no longer crashes when attempting to fill a region with the color it already has. Also, attempting to fill a region with the special color gdTiled no longer crashes.

However, filling a region with a transparent tile has been forbidden (gdImageFill simply draws nothing in this case). Otherwise, gd would not know when to stop drawing without the use of an additional image to keep track of which pixels have been visited.

Invoking gdImageFillToBorder with a special border color such as gdTiled now fails, for similar reasons. However, the color you are filling with can be gdTiled, even if it is transparent. See the discussion of gdImageFillToBorder for additional caveats.

Many documentation fixes.

What's new in version 1.1?

What else do I need to use gd?

To use gd, you will need an ANSI C compiler. Any full-ANSI-standard C compiler should be adequate, although those with PCs will need to replace the Makefile with one of their own. The cc compiler released with SunOS 4.1.3 is not an ANSI C compiler. Get gcc, which is freely available. See the Sun-related newsgroups for more information.

You will also want a GIF viewer, if you do not already have one for your system, since you will need a good way to check the results of your work. lview is a good package for Windows PCs; xv is a good package for X11. There are GIF viewers available for every graphics-capable computer out there, so consult newsgroups relevant to your particular system.

How do I get gd?

You can fetch gd as a compressed tar file, Or you can FTP it directly from isis.cshl.org, in the subdirectory pub/gd.

How do I build gd?

In order to build gd, first uncompress and untar the gd.tar file with the following commands:

Note: if you have a non-Unix system, you will need to acquire versions of "uncompress" and "tar" suitable for your system. Both have been ported to PC and Mac environments. Consult newsgroups relevant to your particular system. 

uncompress gd1.2.tar.Z
tar -xf gd1.2.tar
This will create the directory "gd1.2" beneath the current directory.

cd to this directory and examine the Makefile, which you may need to change slightly depending on your installation (or more than slightly for a Windows or Mac environment).

Now, to build the demonstration program, just type "make gddemo" if you are working in a command-line environment. If all goes well, the program "gddemo" will be compiled and linked without incident. Depending on your system you may need to edit the Makefile. Understanding the basic techniques of compiling and linking programs on your system is up to you.

You have now built a demonstration program which shows off the capabilities of gd. To see it in action, type "gddemo".

gddemo should execute without incident, creating the file demoout.gif. (Note there is also a file named demoin.gif, which is provided in the package as part of the demonstration.)

Display demoout.gif in your GIF viewer. The image should be 128x128 pixels and should contain an image of the space shuttle with the word "hi" written in the upper left corner twice (once across and once upwards), an arc in the middle and an oval intersecting the arc (these are somewhat faint).

In addition, a diagonal line made up of tiny space shuttle images should appear from the lower left to the upper right corner. A blue frame with green interior trim should surround the picture.

(If you are missing the demoin.gif file, the other items should appear anyway.)

Look at demoin.gif to see the original space shuttle image which was scaled and copied into the output image.

gd basics: using gd in your program

gd lets you create GIF images on the fly. To use gd in your program, include the file gd.h, and link with the libgd.a library produced by "make libgd.a", under Unix. You will need to adapt the makefile for your needs if you are using a non-Unix operating system, but this is very straightforward.

If you want to use the provided fonts, include gdfontt.h, gdfonts.h, gdfontmb.h, gdfontl.h and/or gdfontg.h. If you are not using the provided Makefile and/or a library-based approach, be sure to include the source modules as well in your project. (They may be too large for 16-bit memory models, that is, 16-bit DOS and Windows.)

Here is a short example program. (For a more advanced example, see gddemo.c, included in the distribution. gddemo.c is NOT the same program; it demonstrates additional features!) 

/* Bring in gd library functions */
#include "gd.h"

/* Bring in standard I/O so we can output the GIF to a file */
#include <stdio.h>

int main() {
	/* Declare the image */
	gdImagePtr im;
	/* Declare an output file */
	FILE *out;
	/* Declare color indexes */
	int black;
	int white;

	/* Allocate the image: 64 pixels across by 64 pixels tall */
	im = gdImageCreate(64, 64);

	/* Allocate the color black (red, green and blue all minimum).
		Since this is the first color in a new image, it will
		be the background color. */
	black = gdImageColorAllocate(im, 0, 0, 0);	

	/* Allocate the color white (red, green and blue all maximum). */
	white = gdImageColorAllocate(im, 255, 255, 255);	
	
	/* Draw a line from the upper left to the lower right,
		using white color index. */
	gdImageLine(im, 0, 0, 63, 63, white);	

	/* Open a file for writing. "wb" means "write binary", important
		under MSDOS, harmless under Unix. */
	out = fopen("test.gif", "wb");

	/* Output the image to the disk file. */
	gdImageGif(im, out);	

	/* Close the file. */
	fclose(out);

	/* Destroy the image in memory. */
	gdImageDestroy(im);
}
When executed, this program creates an image, allocates two colors (the first color allocated becomes the background color), draws a diagonal line (note that 0, 0 is the upper left corner), writes the image to a GIF file, and destroys the image.

The above example program should give you an idea of how the package works. gd provides many additional functions, which are listed in the following reference chapters, complete with code snippets demonstrating each. There is also an alphabetical index.

Webgif: a more powerful gd example

Webgif is a simple utility program to manipulate GIFs from the command line. It is written for Unix and similar command-line systems, but should be easily adapted for other environments. Webgif allows you to set transparency and interlacing and output interesting information about the GIF in question.

webgif.c is provided in the distribution. Unix users can simply type "make webgif" to compile the program. Type "webgif" with no arguments to see the available options. A discussion of the code follows. 

/* Bring in the gd library functions */
#include "gd.h"

/* Bring in standard I/O and string manipulation functions */
#include 
#include 

int main(argc, argv) 
	int argc;
	char *argv[];
{
	FILE *in;
	FILE *out;
	/* Declare our image pointer */
	gdImagePtr im = 0;
	int i;
       /* We'll clear 'no' once we know the user has made a
		reasonable request. */
	int no = 1;
	/* We'll set 'write' once we know the user's request
		requires that the image be written back to disk. */
	int write = 0;
	/* C programs always get at least one argument; we want at
		least one more (the image), more in practice. */
	if (argc < 2) {
		no = 1;	
		goto usage;
	}
	/* The last argument should be the image. Open the file. */
	in = fopen(argv[argc-1], "rb");	
	if (!in) {
		fprintf(stderr,
			"Error: can't open file %s.\n", argv[argc-1]);
	}
	/* Now load the image. */	
	im = gdImageCreateFromGif(in);
	fclose(in);
	/* If the load failed, it must not be a GIF file. */
	if (!im) {
		fprintf(stderr,
			"Error: %s is not a valid gif file.\n", argv[1]);
		exit(1);	
	}
	/* Consider each argument in turn. */
	for (i=1; (i < (argc-1)); i++) {
		/* -i turns on and off interlacing. */
		if (!strcmp(argv[i], "-i")) {
			if (i == (argc-2)) {
				fprintf(stderr, 
				"Error: -i specified without y or n.\n");
				no = 1;
				goto usage;
			}
			if (!strcmp(argv[i+1], "y")) {
				/* Set interlace. */
				gdImageInterlace(im, 1);
			} else if (!strcmp(argv[i+1], "n")) {
				/* Clear interlace. */
				gdImageInterlace(im, 0);
			} else {
				fprintf(stderr,
				"Error: -i specified without y or n.\n");
				no = 1;
				goto usage;
			}
			i++;
			no = 0;
			write = 1;
		} else if (!strcmp(argv[i], "-t")) {
			/* Set transparent index (or none). */
			int index;
			if (i == (argc-2)) {
				fprintf(stderr,
		"Error: -t specified without a color table index.\n");
				no = 1;
				goto usage;
			}
			if (!strcmp(argv[i+1], "none")) {
				/* -1 means not transparent. */
				gdImageColorTransparent(im, -1);
			} else {
				/* OK, get an integer and set the index. */
				index = atoi(argv[i+1]);
				gdImageColorTransparent(im, index);
			}
			i++;
			write = 1;
			no = 0;
		} else if (!strcmp(argv[i], "-l")) {
			/* List the colors in the color table. */
			int j;
			/* Tabs used below. */
			printf("Index	Red	Green	Blue\n");
			for (j=0; (j < gdImageColorsTotal(im)); j++) {
				/* Use access macros to learn colors. */
				printf("%d	%d	%d	%d\n",
					j, 
					gdImageRed(im, j),
					gdImageGreen(im, j),
					gdImageBlue(im, j));
			}
			no = 0;
		} else if (!strcmp(argv[i], "-d")) {
			/* Output dimensions, etc. */
			int t;
			printf("Width: %d Height: %d Colors: %d\n",
				gdImageSX(im), gdImageSY(im),
				gdImageColorsTotal(im));
			t = gdImageGetTransparent(im);
			if (t != (-1)) {
				printf("Transparent index: %d\n", t);
			} else {
				/* -1 means the image is not transparent. */
				printf("Transparent index: none\n");
			}
			if (gdImageGetInterlaced(im)) {
				printf("Interlaced: yes\n");	
			} else {
				printf("Interlaced: no\n");	
			}
			no = 0;
		} else {
			fprintf(stderr, "Unknown argument: %s\n", argv[i]);
			break;	
		}
	}
usage:
	if (no) {
		/* If the command failed, output an explanation. */
		fprintf(stderr, 
	"Usage: webgif [-i y|n ] [-l] [-t index|off ] [-d] gifname.gif\n");
		fprintf(stderr, 
	"Where -i controls interlace (specify y or n for yes or no),\n");
		fprintf(stderr, 
	"-l outputs a table of color indexes, -t sets the specified\n");
		fprintf(stderr, 
	"color index (0-255 or none) to be the transparent color, and\n");
		fprintf(stderr,
	"-d reports the dimensions and other characteristics of the image.\n");
		fprintf(stderr, 
	"Note: you may wish to pipe to \"more\" when using the -l option.\n");
	} 
	if (write) {
		/* Open a temporary file. */
		out = fopen("temp.tmp", "wb");
		if (!out) {
			fprintf(stderr,
				"Unable to write to temp.tmp -- exiting\n");
			exit(1);
		}
		/* Write the new gif. */
		gdImageGif(im, out);
		fclose(out);
		/* Erase the old gif. */
		unlink(argv[argc-1]);
		/* Rename the new to the old. */
		rename("temp.tmp", argv[argc-1]);
	}
	/* Delete the image from memory. */
	if (im) {
		gdImageDestroy(im);
	}
	/* All's well that ends well. */
	return 0;
}

Function and type reference

Types

gdImage(TYPE)
The data structure in which gd stores images. gdImageCreate returns a pointer to this type, and the other functions expect to receive a pointer to this type as their first argument. You may read the members sx (size on X axis), sy (size on Y axis), colorsTotal (total colors), red (red component of colors; an array of 256 integers between 0 and 255), green (green component of colors, as above), blue (blue component of colors, as above), and transparent (index of transparent color, -1 if none); please do so using the macros provided. Do NOT set the members directly from your code; use the functions provided. 
typedef struct {
	unsigned char ** pixels;
	int sx;
	int sy;
	int colorsTotal;
	int red[gdMaxColors];
	int green[gdMaxColors];
	int blue[gdMaxColors]; 
	int open[gdMaxColors];
	int transparent;
} gdImage;
gdImagePtr (TYPE)
A pointer to an image structure. gdImageCreate returns this type, and the other functions expect it as the first argument.
gdFont (TYPE)
A font structure. Used to declare the characteristics of a font. Plese see the files gdfontl.c and gdfontl.h for an example of the proper declaration of this structure. You can provide your own font data by providing such a structure and the associated pixel array. You can determine the width and height of a single character in a font by examining the w and h members of the structure. If you will not be creating your own fonts, you will not need to concern yourself with the rest of the components of this structure. 
typedef struct {
	/* # of characters in font */
	int nchars;
	/* First character is numbered... (usually 32 = space) */
	int offset;
	/* Character width and height */
	int w;
	int h;
	/* Font data; array of characters, one row after another.
		Easily included in code, also easily loaded from
		data files. */
	char *data;
} gdFont;
gdFontPtr (TYPE)
A pointer to a font structure. Text-output functions expect these as their second argument, following the gdImagePtr argument. Two such pointers are declared in the provided include files gdfonts.h and gdfontl.h.
gdPoint (TYPE)
Represents a point in the coordinate space of the image; used by gdImagePolygon and gdImageFilledPolygon. 
typedef struct {
        int x, y;
} gdPoint, *gdPointPtr;
gdPointPtr (TYPE)
A pointer to a gdPoint structure; passed as an argument to gdImagePolygon and gdImageFilledPolygon.

Image creation, destruction, loading and saving

gdImageCreate(sx, sy) (FUNCTION)
gdImageCreate is called to create images. Invoke gdImageCreate with the x and y dimensions of the desired image. gdImageCreate returns a gdImagePtr to the new image, or NULL if unable to allocate the image. The image must eventually be destroyed using gdImageDestroy(). 
... inside a function ...
gdImagePtr im;
im = gdImageCreate(64, 64);
/* ... Use the image ... */
gdImageDestroy(im);
gdImageCreateFromGif(FILE *in) (FUNCTION)
gdImageCreateFromGif is called to load images from GIF format files. Invoke gdImageCreateFromGif with an already opened pointer to a file containing the desired image. gdImageCreateFromGif returns a gdImagePtr to the new image, or NULL if unable to load the image (most often because the file is corrupt or does not contain a GIF image). gdImageCreateFromGif does not close the file. You can inspect the sx and sy members of the image to determine its size. The image must eventually be destroyed using gdImageDestroy(). 
gdImagePtr im;
... inside a function ...
FILE *in;
in = fopen("mygif.gif", "rb");
im = gdImageCreateFromGif(in);
fclose(in);
/* ... Use the image ... */
gdImageDestroy(im);
gdImageCreateFromGd(FILE *in) (FUNCTION)
gdImageCreateFromGd is called to load images from gd format files. Invoke gdImageCreateFromGd with an already opened pointer to a file containing the desired image in the gd file format, which is specific to gd and intended for very fast loading. (It is not intended for compression; for compression, use GIF.) gdImageCreateFromGd returns a gdImagePtr to the new image, or NULL if unable to load the image (most often because the file is corrupt or does not contain a gd format image). gdImageCreateFromGd does not close the file. You can inspect the sx and sy members of the image to determine its size. The image must eventually be destroyed using gdImageDestroy(). 
... inside a function ...
gdImagePtr im;
FILE *in;
in = fopen("mygd.gd", "rb");
im = gdImageCreateFromGd(in);
fclose(in);
/* ... Use the image ... */
gdImageDestroy(im);
gdImageCreateFromXbm(FILE *in) (FUNCTION)
gdImageCreateFromXbm is called to load images from X bitmap format files. Invoke gdImageCreateFromXbm with an already opened pointer to a file containing the desired image. gdImageCreateFromXbm returns a gdImagePtr to the new image, or NULL if unable to load the image (most often because the file is corrupt or does not contain an X bitmap format image). gdImageCreateFromXbm does not close the file. You can inspect the sx and sy members of the image to determine its size. The image must eventually be destroyed using gdImageDestroy(). 
... inside a function ...
gdImagePtr im;
FILE *in;
in = fopen("myxbm.xbm", "rb");
im = gdImageCreateFromXbm(in);
fclose(in);
/* ... Use the image ... */
gdImageDestroy(im);
gdImageDestroy(gdImagePtr im) (FUNCTION)
gdImageDestroy is used to free the memory associated with an image. It is important to invoke gdImageDestroy before exiting your program or assigning a new image to a gdImagePtr variable. 
... inside a function ...
gdImagePtr im;
im = gdImageCreate(10, 10);
/* ... Use the image ... */
/* Now destroy it */
gdImageDestroy(im);
void gdImageGif(gdImagePtr im, FILE *out) (FUNCTION)
gdImageGif outputs the specified image to the specified file in GIF format. The file must be open for writing. Under MSDOS, it is important to use "wb" as opposed to simply "w" as the mode when opening the file, and under Unix there is no penalty for doing so. gdImageGif does not close the file; your code must do so. 
... inside a function ...
gdImagePtr im;
int black, white;
FILE *out;
/* Create the image */
im = gdImageCreate(100, 100);
/* Allocate background */
white = gdImageColorAllocate(im, 255, 255, 255);
/* Allocate drawing color */
black = gdImageColorAllocate(im, 0, 0, 0);
/* Draw rectangle */
gdImageRectangle(im, 0, 0, 99, 99, black);
/* Open output file in binary mode */
out = fopen("rect.gif", "wb");
/* Write GIF */
gdImageGif(im, out);
/* Close file */
fclose(out);
/* Destroy image */
gdImageDestroy(im);
void gdImageGd(gdImagePtr im, FILE *out) (FUNCTION)
gdImageGd outputs the specified image to the specified file in the gd image format. The file must be open for writing. Under MSDOS, it is important to use "wb" as opposed to simply "w" as the mode when opening the file, and under Unix there is no penalty for doing so. gdImageGif does not close the file; your code must do so.

The gd image format is intended for fast reads and writes of images your program will need frequently to build other images. It is not a compressed format, and is not intended for general use. 

... inside a function ...
gdImagePtr im;
int black, white;
FILE *out;
/* Create the image */
im = gdImageCreate(100, 100);
/* Allocate background */
white = gdImageColorAllocate(im, 255, 255, 255);
/* Allocate drawing color */
black = gdImageColorAllocate(im, 0, 0, 0);
/* Draw rectangle */
gdImageRectangle(im, 0, 0, 99, 99, black);
/* Open output file in binary mode */
out = fopen("rect.gd", "wb");
/* Write gd format file */
gdImageGd(im, out);
/* Close file */
fclose(out);
/* Destroy image */
gdImageDestroy(im);

Drawing Functions

void gdImageSetPixel(gdImagePtr im, int x, int y, int color) (FUNCTION)
gdImageSetPixel sets a pixel to a particular color index. Always use this function or one of the other drawing functions to access pixels; do not access the pixels of the gdImage structure directly. 
... inside a function ...
gdImagePtr im;
int black;
int white;
im = gdImageCreate(100, 100);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
/* Allocate the color white (red, green and blue all maximum). */
white = gdImageColorAllocate(im, 255, 255, 255);	
/* Set a pixel near the center. */
gdImageSetPixel(im, 50, 50, white);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
void gdImageLine(gdImagePtr im, int x1, int y1, int x2, int y2, int color) (FUNCTION)
gdImageLine is used to draw a line between two endpoints (x1,y1 and x2, y2). The line is drawn using the color index specified. Note that the color index can be an actual color returned by gdImageColorAllocate or one of gdStyled, gdBrushed or gdStyledBrushed. 
... inside a function ...
gdImagePtr im;
int black;
int white;
im = gdImageCreate(100, 100);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
/* Allocate the color white (red, green and blue all maximum). */
white = gdImageColorAllocate(im, 255, 255, 255);	
/* Draw a line from the upper left corner to the lower right corner. */
gdImageLine(im, 0, 0, 99, 99, white);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
void gdImageDashedLine(gdImagePtr im, int x1, int y1, int x2, int y2, int color) (FUNCTION)
gdImageDashedLine is provided solely for backwards compatibility with gd 1.0. New programs should draw dashed lines using the normal gdImageLine function and the new gdImageSetStyle function.

gdImageDashedLine is used to draw a dashed line between two endpoints (x1,y1 and x2, y2). The line is drawn using the color index specified. The portions of the line that are not drawn are left transparent so the background is visible. 

... inside a function ...
gdImagePtr im;
int black;
int white;
im = gdImageCreate(100, 100);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
/* Allocate the color white (red, green and blue all maximum). */
white = gdImageColorAllocate(im, 255, 255, 255);	
/* Draw a dashed line from the upper left corner to the lower right corner. */
gdImageDashedLine(im, 0, 0, 99, 99);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
void gdImagePolygon(gdImagePtr im, gdPointPtr points, int pointsTotal, int color) (FUNCTION)
gdImagePolygon is used to draw a polygon with the verticies (at least 3) specified, using the color index specified. See also gdImageFilledPolygon. 
... inside a function ...
gdImagePtr im;
int black;
int white;
/* Points of polygon */
gdPoint points[3];
im = gdImageCreate(100, 100);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
/* Allocate the color white (red, green and blue all maximum). */
white = gdImageColorAllocate(im, 255, 255, 255);	
/* Draw a triangle. */
points[0].x = 50;
points[0].y = 0;
points[1].x = 99;
points[1].y = 99;
points[2].x = 0;
points[2].y = 99;
gdImagePolygon(im, points, 3, white);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
void gdImageRectangle(gdImagePtr im, int x1, int y1, int x2, int y2, int color) (FUNCTION)
gdImageRectangle is used to draw a rectangle with the two corners (upper left first, then lower right) specified, using the color index specified. 
... inside a function ...
gdImagePtr im;
int black;
int white;
im = gdImageCreate(100, 100);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
/* Allocate the color white (red, green and blue all maximum). */
white = gdImageColorAllocate(im, 255, 255, 255);	
/* Draw a rectangle occupying the central area. */
gdImageRectangle(im, 25, 25, 74, 74, white);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
void gdImageFilledPolygon(gdImagePtr im, gdPointPtr points, int pointsTotal, int color) (FUNCTION)
gdImageFilledPolygon is used to fill a polygon with the verticies (at least 3) specified, using the color index specified. See also gdImagePolygon. 
... inside a function ...
gdImagePtr im;
int black;
int white;
int red;
/* Points of polygon */
gdPoint points[3];
im = gdImageCreate(100, 100);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
/* Allocate the color white (red, green and blue all maximum). */
white = gdImageColorAllocate(im, 255, 255, 255);	
/* Allocate the color red. */
red = gdImageColorAllocate(im, 255, 0, 0);	
/* Draw a triangle. */
points[0].x = 50;
points[0].y = 0;
points[1].x = 99;
points[1].y = 99;
points[2].x = 0;
points[2].y = 99;
/* Paint it in white */
gdImageFilledPolygon(im, points, 3, white);
/* Outline it in red; must be done second */
gdImagePolygon(im, points, 3, red);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
void gdImageFilledRectangle(gdImagePtr im, int x1, int y1, int x2, int y2, int color) (FUNCTION)
gdImageFilledRectangle is used to draw a solid rectangle with the two corners (upper left first, then lower right) specified, using the color index specified. 
... inside a function ...
gdImagePtr im;
int black;
int white;
im = gdImageCreate(100, 100);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
/* Allocate the color white (red, green and blue all maximum). */
white = int gdImageColorAllocate(im, 255, 255, 255);	
/* Draw a filled rectangle occupying the central area. */
gdImageFilledRectangle(im, 25, 25, 74, 74, white);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
void gdImageArc(gdImagePtr im, int cx, int cy, int w, int h, int s, int e, int color) (FUNCTION)
gdImageArc is used to draw a partial ellipse centered at the given point, with the specified width and height in pixels. The arc begins at the position in degrees specified by s and ends at the position specified by e. The arc is drawn in the color specified by the last argument. A circle can be drawn by beginning from 0 degrees and ending at 360 degrees, with width and height being equal. e must be greater than s. Values greater than 360 are interpreted modulo 360. 
... inside a function ...
gdImagePtr im;
int black;
int white;
im = gdImageCreate(100, 50);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
/* Allocate the color white (red, green and blue all maximum). */
white = gdImageColorAllocate(im, 255, 255, 255);	
/* Inscribe an ellipse in the image. */
gdImageArc(im, 50, 25, 98, 48, 0, 360, white);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
void gdImageFillToBorder(gdImagePtr im, int x, int y, int border, int color) (FUNCTION)
gdImageFillToBorder floods a portion of the image with the specified color, beginning at the specified point and stopping at the specified border color. For a way of flooding an area defined by the color of the starting point, see gdImageFill.

The border color cannot be a special color such as gdTiled; it must be a proper solid color. The fill color can be, however.

Note that gdImageFillToBorder is recursive. It is not the most naive implementation possible, and the implementation is expected to improve, but there will always be degenerate cases in which the stack can become very deep. This can be a problem in MSDOS and MS Windows environments. (Of course, in a Unix or NT environment with a proper stack, this is not a problem at all.) 

... inside a function ...
gdImagePtr im;
int black;
int white;
int red;
im = gdImageCreate(100, 50);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
/* Allocate the color white (red, green and blue all maximum). */
white = gdImageColorAllocate(im, 255, 255, 255);	
/* Allocate the color red. */
red = gdImageColorAllocate(im, 255, 0, 0);	
/* Inscribe an ellipse in the image. */
gdImageArc(im, 50, 25, 98, 48, 0, 360, white);
/* Flood-fill the ellipse. Fill color is red, border color is 
	white (ellipse). */
gdImageFillToBorder(im, 50, 50, white, red);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
void gdImageFill(gdImagePtr im, int x, int y, int color) (FUNCTION)
gdImageFill floods a portion of the image with the specified color, beginning at the specified point and flooding the surrounding region of the same color as the starting point. For a way of flooding a region defined by a specific border color rather than by its interior color, see gdImageFillToBorder.

The fill color can be gdTiled, resulting in a tile fill using another image as the tile. However, the tile image cannot be transparent. If the image you wish to fill with has a transparent color index, call gdImageTransparent on the tile image and set the transparent color index to -1 to turn off its transparency.

Note that gdImageFill is recursive. It is not the most naive implementation possible, and the implementation is expected to improve, but there will always be degenerate cases in which the stack can become very deep. This can be a problem in MSDOS and MS Windows environments. (Of course, in a Unix or NT environment with a proper stack, this is not a problem at all.) 

... inside a function ...
gdImagePtr im;
int black;
int white;
int red;
im = gdImageCreate(100, 50);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
/* Allocate the color white (red, green and blue all maximum). */
white = gdImageColorAllocate(im, 255, 255, 255);	
/* Allocate the color red. */
red = gdImageColorAllocate(im, 255, 0, 0);	
/* Inscribe an ellipse in the image. */
gdImageArc(im, 50, 25, 98, 48, 0, 360, white);
/* Flood-fill the ellipse. Fill color is red, and will replace the
	black interior of the ellipse. */
gdImageFill(im, 50, 50, red);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
void gdImageSetBrush(gdImagePtr im, gdImagePtr brush) (FUNCTION)
A "brush" is an image used to draw wide, shaped strokes in another image. Just as a paintbrush is not a single point, a brush image need not be a single pixel. Any gd image can be used as a brush, and by setting the transparent color index of the brush image with gdImageColorTransparent, a brush of any shape can be created. All line-drawing functions, such as gdImageLine and gdImagePolygon, will use the current brush if the special "color" gdBrushed or gdStyledBrushed is used when calling them.

gdImageSetBrush is used to specify the brush to be used in a particular image. You can set any image to be the brush. If the brush image does not have the same color map as the first image, any colors missing from the first image will be allocated. If not enough colors can be allocated, the closest colors already available will be used. This allows arbitrary GIFs to be used as brush images. It also means, however, that you should not set a brush unless you will actually use it; if you set a rapid succession of different brush images, you can quickly fill your color map, and the results will not be optimal.

You need not take any special action when you are finished with a brush. As for any other image, if you will not be using the brush image for any further purpose, you should call gdImageDestroy. You must not use the color gdBrushed if the current brush has been destroyed; you can of course set a new brush to replace it. 

... inside a function ...
gdImagePtr im, brush;
FILE *in;
int black;
im = gdImageCreate(100, 100);
/* Open the brush GIF. For best results, portions of the
	brush that should be transparent (ie, not part of the
	brush shape) should have the transparent color index. */
in = fopen("star.gif", "rb");
brush = gdImageCreateFromGif(in);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
gdImageSetBrush(im, brush);
/* Draw a line from the upper left corner to the lower right corner
	using the brush. */
gdImageLine(im, 0, 0, 99, 99, gdBrushed);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
/* Destroy the brush image */
gdImageDestroy(brush);
void gdImageSetTile(gdImagePtr im, gdImagePtr tile) (FUNCTION)
A "tile" is an image used to fill an area with a repeated pattern. Any gd image can be used as a tile, and by setting the transparent color index of the tile image with gdImageColorTransparent, a tile that allows certain parts of the underlying area to shine through can be created. All region-filling functions, such as gdImageFill and gdImageFilledPolygon, will use the current tile if the special "color" gdTiled is used when calling them.

gdImageSetTile is used to specify the tile to be used in a particular image. You can set any image to be the tile. If the tile image does not have the same color map as the first image, any colors missing from the first image will be allocated. If not enough colors can be allocated, the closest colors already available will be used. This allows arbitrary GIFs to be used as tile images. It also means, however, that you should not set a tile unless you will actually use it; if you set a rapid succession of different tile images, you can quickly fill your color map, and the results will not be optimal.

You need not take any special action when you are finished with a tile. As for any other image, if you will not be using the tile image for any further purpose, you should call gdImageDestroy. You must not use the color gdTiled if the current tile has been destroyed; you can of course set a new tile to replace it. 

... inside a function ...
gdImagePtr im, tile;
FILE *in;
int black;
im = gdImageCreate(100, 100);
/* Open the tile GIF. For best results, portions of the
	tile that should be transparent (ie, allowing the
	background to shine through) should have the transparent 
	color index. */
in = fopen("star.gif", "rb");
tile = gdImageCreateFromGif(in);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
gdImageSetTile(im, tile);
/* Fill an area using the tile. */
gdImageFilledRectangle(im, 25, 25, 75, 75, gdTiled);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
/* Destroy the tile image */
gdImageDestroy(tile);
void gdImageSetStyle(gdImagePtr im, int *style, int styleLength) (FUNCTION)
It is often desirable to draw dashed lines, dotted lines, and other variations on a broken line. gdImageSetStyle can be used to set any desired series of colors, including a special color that leaves the background intact, to be repeated during the drawing of a line.

To use gdImageSetStyle, create an array of integers and assign them the desired series of color values to be repeated. You can assign the special color value gdTransparent to indicate that the existing color should be left unchanged for that particular pixel (allowing a dashed line to be attractively drawn over an existing image).

Then, to draw a line using the style, use the normal gdImageLine function with the special color value gdStyled.

As of version 1.1.1, the style array is copied when you set the style, so you need not be concerned with keeping the array around indefinitely. This should not break existing code that assumes styles are not copied.

You can also combine styles and brushes to draw the brush image at intervals instead of in a continuous stroke. When creating a style for use with a brush, the style values are interpreted differently: zero (0) indicates pixels at which the brush should not be drawn, while one (1) indicates pixels at which the brush should be drawn. To draw a styled, brushed line, you must use the special color value gdStyledBrushed. For an example of this feature in use, see gddemo.c (provided in the distribution). 

gdImagePtr im;
int styleDotted[2], styleDashed[6];
FILE *in;
int black;
int red;
im = gdImageCreate(100, 100);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
red = gdImageColorAllocate(im, 255, 0, 0);	
/* Set up dotted style. Leave every other pixel alone. */
styleDotted[0] = red;
styleDotted[1] = gdTransparent;
/* Set up dashed style. Three on, three off. */
styleDashed[0] = red;
styleDashed[1] = red;
styleDashed[2] = red;
styleDashed[3] = gdTransparent;
styleDashed[4] = gdTransparent;
styleDashed[5] = gdTransparent;
/* Set dotted style. Note that we have to specify how many pixels are
	in the style! */
gdImageSetStyle(im, styleDotted, 2);
/* Draw a line from the upper left corner to the lower right corner. */
gdImageLine(im, 0, 0, 99, 99, gdStyled);
/* Now the dashed line. */
gdImageSetStyle(im, styleDashed, 6);
gdImageLine(im, 0, 99, 0, 99, gdStyled);

/* ... Do something with the image, such as saving it to a file ... */

/* Destroy it */
gdImageDestroy(im);

Query Functions

int gdImageBlue(gdImagePtr im, int color) (MACRO)
gdImageBlue is a macro which returns the blue component of the specified color index. Use this macro rather than accessing the structure members directly.
int gdImageGetPixel(gdImagePtr im, int x, int y) (FUNCTION)
gdImageGetPixel() retrieves the color index of a particular pixel. Always use this function to query pixels; do not access the pixels of the gdImage structure directly. 
... inside a function ...
FILE *in;
gdImagePtr im;
int c;
in = fopen("mygif.gif", "rb");
im = gdImageCreateFromGif(in);
fclose(in);
c = gdImageGetPixel(im, gdImageSX(im) / 2, gdImageSY(im) / 2);
printf("The value of the center pixel is %d; RGB values are %d,%d,%d\n",
	c, im->red[c], im->green[c], im->blue[c]);
gdImageDestroy(im);
int gdImageBoundsSafe(gdImagePtr im, int x, int y) (FUNCTION)
gdImageBoundsSafe returns true (1) if the specified point is within the bounds of the image, false (0) if not. This function is intended primarily for use by those who wish to add functions to gd. All of the gd drawing functions already clip safely to the edges of the image. 
... inside a function ...
gdImagePtr im;
int black;
int white;
im = gdImageCreate(100, 100);
if (gdImageBoundsSafe(im, 50, 50)) {
	printf("50, 50 is within the image bounds\n");
} else {
	printf("50, 50 is outside the image bounds\n");
}
gdImageDestroy(im);
int gdImageGreen(gdImagePtr im, int color) (MACRO)
gdImageGreen is a macro which returns the green component of the specified color index. Use this macro rather than accessing the structure members directly.
int gdImageRed(gdImagePtr im, int color) (MACRO)
gdImageRed is a macro which returns the red component of the specified color index. Use this macro rather than accessing the structure members directly.
int gdImageSX(gdImagePtr im) (MACRO)
gdImageSX is a macro which returns the width of the image in pixels. Use this macro rather than accessing the structure members directly.
int gdImageSY(gdImagePtr im) (MACRO)
gdImageSY is a macro which returns the height of the image in pixels. Use this macro rather than accessing the structure members directly.

Fonts and text-handling functions

void gdImageChar(gdImagePtr im, gdFontPtr font, int x, int y, int c, int color) (FUNCTION)
gdImageChar is used to draw single characters on the image. (To draw multiple characters, use gdImageString.) The second argument is a pointer to a font definition structure; five fonts are provided with gd, gdFontTiny, gdFontSmall, gdFontMediumBold, gdFontLarge, and gdFontGiant. You must include the files "gdfontt.h", "gdfonts.h", "gdfontmb.h", "gdfontl.h" and "gdfontg.h" respectively and (if you are not using a library-based approach) link with the corresponding .c files to use the provided fonts. The character specified by the fifth argument is drawn from left to right in the specified color. (See gdImageCharUp for a way of drawing vertical text.) Pixels not set by a particular character retain their previous color. 
#include "gd.h"
#include "gdfontl.h"
... inside a function ...
gdImagePtr im;
int black;
int white;
im = gdImageCreate(100, 100);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
/* Allocate the color white (red, green and blue all maximum). */
white = gdImageColorAllocate(im, 255, 255, 255);	
/* Draw a character. */
gdImageChar(im, gdFontLarge, 0, 0, 'Q', white);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
void gdImageCharUp(gdImagePtr im, gdFontPtr font, int x, int y, int c, int color) (FUNCTION)
gdImageCharUp is used to draw single characters on the image, rotated 90 degrees. (To draw multiple characters, use gdImageStringUp.) The second argument is a pointer to a font definition structure; five fonts are provided with gd, gdFontTiny, gdFontSmall, gdFontMediumBold, gdFontLarge, and gdFontGiant. You must include the files "gdfontt.h", "gdfonts.h", "gdfontmb.h", "gdfontl.h" and "gdfontg.h" respectively and (if you are not using a library-based approach) link with the corresponding .c files to use the provided fonts. The character specified by the fifth argument is drawn from bottom to top, rotated at a 90-degree angle, in the specified color. (See gdImageChar for a way of drawing horizontal text.) Pixels not set by a particular character retain their previous color. 
#include "gd.h"
#include "gdfontl.h"
... inside a function ...
gdImagePtr im;
int black;
int white;
im = gdImageCreate(100, 100);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
/* Allocate the color white (red, green and blue all maximum). */
white = gdImageColorAllocate(im, 255, 255, 255);	
/* Draw a character upwards so it rests against the top of the image. */
gdImageCharUp(im, gdFontLarge, 
	0, gdFontLarge->h, 'Q', white);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
void gdImageString(gdImagePtr im, gdFontPtr font, int x, int y, char *s, int color) (FUNCTION)
gdImageString is used to draw multiple characters on the image. (To draw single characters, use gdImageChar.) The second argument is a pointer to a font definition structure; five fonts are provided with gd, gdFontTiny, gdFontSmall, gdFontMediumBold, gdFontLarge, and gdFontGiant. You must include the files "gdfontt.h", "gdfonts.h", "gdfontmb.h", "gdfontl.h" and "gdfontg.h" respectively and (if you are not using a library-based approach) link with the corresponding .c files to use the provided fonts. The null-terminated C string specified by the fifth argument is drawn from left to right in the specified color. (See gdImageStringUp for a way of drawing vertical text.) Pixels not set by a particular character retain their previous color. 
#include "gd.h"
#include "gdfontl.h"
#include <string.h>
... inside a function ...
gdImagePtr im;
int black;
int white;
/* String to draw. */
char *s = "Hello.";
im = gdImageCreate(100, 100);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
/* Allocate the color white (red, green and blue all maximum). */
white = gdImageColorAllocate(im, 255, 255, 255);	
/* Draw a centered string. */
gdImageString(im, gdFontLarge,
	im->w / 2 - (strlen(s) * gdFontLarge->w / 2),
	im->h / 2 - gdFontLarge->h / 2,
	s, white);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
void gdImageStringUp(gdImagePtr im, gdFontPtr font, int x, int y, char *s, int color) (FUNCTION)
gdImageStringUp is used to draw multiple characters on the image, rotated 90 degrees. (To draw single characters, use gdImageCharUp.) The second argument is a pointer to a font definition structure; five fonts are provided with gd, gdFontTiny, gdFontSmall, gdFontMediumBold, gdFontLarge, and gdFontGiant. You must include the files "gdfontt.h", "gdfonts.h", "gdfontmb.h", "gdfontl.h" and "gdfontg.h" respectively and (if you are not using a library-based approach) link with the corresponding .c files to use the provided fonts.The null-terminated C string specified by the fifth argument is drawn from bottom to top (rotated 90 degrees) in the specified color. (See gdImageString for a way of drawing horizontal text.) Pixels not set by a particular character retain their previous color. 
#include "gd.h"
#include "gdfontl.h"
#include <string.h>
... inside a function ...
gdImagePtr im;
int black;
int white;
/* String to draw. */
char *s = "Hello.";
im = gdImageCreate(100, 100);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
/* Allocate the color white (red, green and blue all maximum). */
white = gdImageColorAllocate(im, 255, 255, 255);	
/* Draw a centered string going upwards. Axes are reversed,
	and Y axis is decreasing as the string is drawn. */
gdImageStringUp(im, gdFontLarge,
	im->w / 2 - gdFontLarge->h / 2,
	im->h / 2 + (strlen(s) * gdFontLarge->w / 2),
	s, white);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);

Color-handling functions

int gdImageColorAllocate(gdImagePtr im, int r, int g, int b) (FUNCTION)
gdImageColorAllocate finds the first available color index in the image specified, sets its RGB values to those requested (255 is the maximum for each), and returns the index of the new color table entry. When creating a new image, the first time you invoke this function, you are setting the background color for that image.

In the event that all gdMaxColors colors (256) have already been allocated, gdImageColorAllocate will return -1 to indicate failure. (This is not uncommon when working with existing GIF files that already use 256 colors.) Note that gdImageColorAllocate does not check for existing colors that match your request; see gdImageColorExact and gdImageColorClosest for ways to locate existing colors that approximate the color desired in situations where a new color is not available. 

... inside a function ...
gdImagePtr im;
int black;
int red;
im = gdImageCreate(100, 100);
/* Background color (first allocated) */
black = gdImageColorAllocate(im, 0, 0, 0);	
/* Allocate the color red. */
red = gdImageColorAllocate(im, 255, 0, 0);	
/* Draw a dashed line from the upper left corner to the lower right corner. */
gdImageDashedLine(im, 0, 0, 99, 99, red);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
int gdImageColorClosest(gdImagePtr im, int r, int g, int b) (FUNCTION)
gdImageColorClosest searches the colors which have been defined thus far in the image specified and returns the index of the color with RGB values closest to those of the request. (Closeness is determined by Euclidian distance, which is used to determine the distance in three-dimensional color space between colors.)

If no colors have yet been allocated in the image, gdImageColorClosest returns -1.

This function is most useful as a backup method for choosing a drawing color when an image already contains gdMaxColors (256) colors and no more can be allocated. (This is not uncommon when working with existing GIF files that already use many colors.) See gdImageColorExact for a method of locating exact matches only. 

... inside a function ...
gdImagePtr im;
FILE *in;
int red;
/* Let's suppose that photo.gif is a scanned photograph with
	many colors. */
in = fopen("photo.gif", "rb");
im = gdImageCreateFromGif(in);
fclose(in);
/* Try to allocate red directly */
red = gdImageColorAllocate(im, 255, 0, 0);	
/* If we fail to allocate red... */
if (red == (-1)) {
	/* Find the closest color instead. */
	red = gdImageColorClosest(im, 255, 0, 0);
}
/* Draw a dashed line from the upper left corner to the lower right corner */
gdImageDashedLine(im, 0, 0, 99, 99, red);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
int gdImageColorExact(gdImagePtr im, int r, int g, int b) (FUNCTION)
gdImageColorExact searches the colors which have been defined thus far in the image specified and returns the index of the first color with RGB values which exactly match those of the request. If no allocated color matches the request precisely, gdImageColorExact returns -1. See gdImageColorClosest for a way to find the color closest to the color requested. 
... inside a function ...
gdImagePtr im;
int red;
in = fopen("photo.gif", "rb");
im = gdImageCreateFromGif(in);
fclose(in);
/* The image may already contain red; if it does, we'll save a slot
	in the color table by using that color. */
/* Try to allocate red directly */
red = gdImageColorExact(im, 255, 0, 0);
/* If red isn't already present... */
if (red == (-1)) {
	/* Second best: try to allocate it directly. */
	red = gdImageColorAllocate(im, 255, 0, 0);	
	/* Out of colors, so find the closest color instead. */
	red = gdImageColorClosest(im, 255, 0, 0);
}
/* Draw a dashed line from the upper left corner to the lower right corner */
gdImageDashedLine(im, 0, 0, 99, 99, red);
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
int gdImageColorsTotal(gdImagePtr im) (MACRO)
gdImageColorsTotal is a macro which returns the number of colors currently allocated in the image. Use this macro to obtain this information; do not access the structure directly.
int gdImageColorRed(gdImagePtr im, int c) (MACRO)
gdImageColorRed is a macro which returns the red portion of the specified color in the image. Use this macro to obtain this information; do not access the structure directly.
int gdImageColorGreen(gdImagePtr im, int c) (MACRO)
gdImageColorGreen is a macro which returns the green portion of the specified color in the image. Use this macro to obtain this information; do not access the structure directly.
int gdImageColorBlue(gdImagePtr im, int c) (MACRO)
gdImageColorBlue is a macro which returns the green portion of the specified color in the image. Use this macro to obtain this information; do not access the structure directly.
int gdImageGetInterlaced(gdImagePtr im) (MACRO)
gdImageGetInterlaced is a macro which returns true (1) if the image is interlaced, false (0) if not. Use this macro to obtain this information; do not access the structure directly. See gdImageInterlace for a means of interlacing images.
int gdImageGetTransparent(gdImagePtr im) (MACRO)
gdImageGetTransparent is a macro which returns the current transparent color index in the image. If there is no transparent color, gdImageGetTransparent returns -1. Use this macro to obtain this information; do not access the structure directly.
void gdImageColorDeallocate(gdImagePtr im, int color) (FUNCTION)
gdImageColorDeallocate marks the specified color as being available for reuse. It does not attempt to determine whether the color index is still in use in the image. After a call to this function, the next call to gdImageColorAllocate for the same image will set new RGB values for that color index, changing the color of any pixels which have that index as a result. If multiple calls to gdImageColorDeallocate are made consecutively, the lowest-numbered index among them will be reused by the next gdImageColorAllocate call. 
... inside a function ...
gdImagePtr im;
int red, blue;
in = fopen("photo.gif", "rb");
im = gdImageCreateFromGif(in);
fclose(in);
/* Look for red in the color table. */
red = gdImageColorExact(im, 255, 0, 0);
/* If red is present... */
if (red != (-1)) {
	/* Deallocate it. */
	gdImageColorDeallocate(im, red);
	/* Allocate blue, reusing slot in table.
		Existing red pixels will change color. */
	blue = gdImageColorAllocate(im, 0, 0, 255);
} 
/* ... Do something with the image, such as saving it to a file... */
/* Destroy it */
gdImageDestroy(im);
void gdImageColorTransparent(gdImagePtr im, int color) (FUNCTION)
gdImageColorTransparent sets the transparent color index for the specified image to the specified index. To indicate that there should be no transparent color, invoke gdImageColorTransparent with a color index of -1.

The color index used should be an index allocated by gdImageColorAllocate, whether explicitly invoked by your code or implicitly invoked by loading an image. In order to ensure that your image has a reasonable appearance when viewed by users who do not have transparent background capabilities, be sure to give reasonable RGB values to the color you allocate for use as a transparent color, even though it will be transparent on systems that support transparency. 

... inside a function ...
gdImagePtr im;
int black;
FILE *in, *out;
in = fopen("photo.gif", "rb");
im = gdImageCreateFromGif(in);
fclose(in);
/* Look for black in the color table and make it transparent. */
black = gdImageColorExact(im, 0, 0, 0);
/* If black is present... */
if (black != (-1)) {
	/* Make it transparent */
	gdImageColorTransparent(im, black);
} 
/* Save the newly-transparent image back to the file */
out = fopen("photo.gif", "wb");
gdImageGif(im, out);
fclose(out);
/* Destroy it */
gdImageDestroy(im);

Copying and resizing functions

void gdImageCopy(gdImagePtr dst, gdImagePtr src, int dstX, int dstY, int srcX, int srcY, int w, int h) (FUNCTION)
gdImageCopy is used to copy a rectangular portion of one image to another image. (For a way of stretching or shrinking the image in the process, see gdImageCopyResized.)

The dst argument is the destination image to which the region will be copied. The src argument is the source image from which the region is copied. The dstX and dstY arguments specify the point in the destination image to which the region will be copied. The srcX and srcY arguments specify the upper left corner of the region in the source image. The w and h arguments specify the width and height of the region.

When you copy a region from one location in an image to another location in the same image, gdImageCopy will perform as expected unless the regions overlap, in which case the result is unpredictable.

Important note on copying between images: since different images do not necessarily have the same color tables, pixels are not simply set to the same color index values to copy them. gdImageCopy will attempt to find an identical RGB value in the destination image for each pixel in the copied portion of the source image by invoking gdImageColorExact. If such a value is not found, gdImageCopy will attempt to allocate colors as needed using gdImageColorAllocate. If both of these methods fail, gdImageCopy will invoke gdImageColorClosest to find the color in the destination image which most closely approximates the color of the pixel being copied. 

... Inside a function ...
gdImagePtr im_in;
gdImagePtr im_out;
int x, y;
FILE *in;
FILE *out;
/* Load a small gif to tile the larger one with */
in = fopen("small.gif", "rb");
im_in = gdImageCreateFromGif(in);
fclose(in);
/* Make the output image four times as large on both axes */
im_out = gdImageCreate(im_in->sx * 4, im_in->sy * 4); 
/* Now tile the larger image using the smaller one */
for (y = 0; (y < 4); y++) {
	for (x = 0; (x < 4); x++) {
		gdImageCopy(im_out, im_in, 
			x * im_in->sx, y * im_in->sy,
			0, 0,
			im_in->sx, im_in->sy);
	}
}
out = fopen("tiled.gif", "wb");
gdImageGif(im_out, out);
fclose(out);
gdImageDestroy(im_in);
gdImageDestroy(im_out);
void gdImageCopyResized(gdImagePtr dst, gdImagePtr src, int dstX, int dstY, int srcX, int srcY, int destW, int destH, int srcW, int srcH) (FUNCTION)
gdImageCopyResized is used to copy a rectangular portion of one image to another image. The X and Y dimensions of the original region and the destination region can vary, resulting in stretching or shrinking of the region as appropriate. (For a simpler version of this function which does not deal with resizing, see gdImageCopy.)

The dst argument is the destination image to which the region will be copied. The src argument is the source image from which the region is copied. The dstX and dstY arguments specify the point in the destination image to which the region will be copied. The srcX and srcY arguments specify the upper left corner of the region in the source image. The dstW and dstH arguments specify the width and height of the destination region. The srcW and srcH arguments specify the width and height of the source region and can differ from the destination size, allowing a region to be scaled during the copying process.

When you copy a region from one location in an image to another location in the same image, gdImageCopy will perform as expected unless the regions overlap, in which case the result is unpredictable. If this presents a problem, create a scratch image in which to keep intermediate results.

Important note on copying between images: since images do not necessarily have the same color tables, pixels are not simply set to the same color index values to copy them. gdImageCopy will attempt to find an identical RGB value in the destination image for each pixel in the copied portion of the source image by invoking gdImageColorExact. If such a value is not found, gdImageCopy will attempt to allocate colors as needed using gdImageColorAllocate. If both of these methods fail, gdImageCopy will invoke gdImageColorClosest to find the color in the destination image which most closely approximates the color of the pixel being copied. 

... Inside a function ...
gdImagePtr im_in;
gdImagePtr im_out;
int x, y;
FILE *in;
FILE *out;
/* Load a small gif to expand in the larger one */
in = fopen("small.gif", "rb");
im_in = gdImageCreateFromGif(in);
fclose(in);
/* Make the output image four times as large on both axes */
im_out = gdImageCreate(im_in->sx * 4, im_in->sy * 4); 
/* Now copy the smaller image, but four times larger */
gdImageCopyResized(im_out, im_in, 0, 0, 0, 0, 
	im_out->sx, im_out->sy,
	im_in->sx, im_in->sy);	 
out = fopen("large.gif", "wb");
gdImageGif(im_out, out);
fclose(out);
gdImageDestroy(im_in);
gdImageDestroy(im_out);

Miscellaneous Functions

gdImageInterlace(gdImagePtr im, int interlace) (FUNCTION)
gdImageInterlace is used to determine whether an image should be stored in a linear fashion, in which lines will appear on the display from first to last, or in an interlaced fashion, in which the image will "fade in" over several passes. By default, images are not interlaced.

A nonzero value for the interlace argument turns on interlace; a zero value turns it off. Note that interlace has no effect on other functions, and has no meaning unless you save the image in GIF format; the gd and xbm formats do not support interlace.

When a GIF is loaded with gdImageCreateFromGif , interlace will be set according to the setting in the GIF file.

Note that many GIF viewers and web browsers do not support interlace. However, the interlaced GIF should still display; it will simply appear all at once, just as other images do. 

gdImagePtr im;
FILE *out;
/* ... Create or load the image... */

/* Now turn on interlace */
gdImageInterlace(im, 1); 
/* And open an output file */
out = fopen("test.gif", "wb");
/* And save the image */
gdImageGif(im, out);
fclose(out);
gdImageDestroy(im);

Constants

gdBrushed (CONSTANT)
Used in place of a color when invoking a line-drawing function such as gdImageLine or gdImageRectangle. When gdBrushed is used as the color, the brush image set with gdImageSetBrush is drawn in place of each pixel of the line (the brush is usually larger than one pixel, creating the effect of a wide paintbrush). See also gdStyledBrushed for a way to draw broken lines with a series of distinct copies of an image.
gdMaxColors(CONSTANT)
The constant 256. This is the maximum number of colors in a GIF file according to the GIF standard, and is also the maximum number of colors in a gd image.
gdStyled (CONSTANT)
Used in place of a color when invoking a line-drawing function such as gdImageLine or gdImageRectangle. When gdStyled is used as the color, the colors of the pixels are drawn successively from the style that has been set with gdImageSetStyle. If the color of a pixel is equal to gdTransparent, that pixel is not altered. (This mechanism is completely unrelated to the "transparent color" of the image itself; see gdImageColorTransparent gdImageColorTransparent for that mechanism.) See also gdStyledBrushed.
gdStyledBrushed (CONSTANT)
Used in place of a color when invoking a line-drawing function such as gdImageLine or gdImageRectangle. When gdStyledBrushed is used as the color, the brush image set with gdImageSetBrush is drawn at each pixel of the line, providing that the style set with gdImageSetStyle contains a nonzero value (OR gdTransparent, which does not equal zero but is supported for consistency) for the current pixel. (Pixels are drawn successively from the style as the line is drawn, returning to the beginning when the available pixels in the style are exhausted.) Note that this differs from the behavior of gdStyled, in which the values in the style are used as actual pixel colors, except for gdTransparent.
gdDashSize (CONSTANT)
The length of a dash in a dashed line. Defined to be 4 for backwards compatibility with programs that use gdImageDashedLine. New programs should use gdImageSetStyle and call the standard gdImageLine function with the special "color" gdStyled or gdStyledBrushed.
gdTiled (CONSTANT)
Used in place of a normal color in gdImageFilledRectangle, gdImageFilledPolygon, gdImageFill, and gdImageFillToBorder. gdTiled selects a pixel from the tile image set with gdImageSetTile in such a way as to ensure that the filled area will be tiled with copies of the tile image. See the discussions of gdImageFill and gdImageFillToBorder for special restrictions regarding those functions.
gdTransparent (CONSTANT)
Used in place of a normal color in a style to be set with gdImageSetStyle. gdTransparent is not the transparent color index of the image; for that functionality please see gdImageColorTransparent.

About the additional .gd image file format

 In addition to reading and writing the GIF format and reading the X Bitmap format, gd has the capability to read and write its own ".gd" format. This format is not intended for general purpose use and should never be used to distribute images. It is not a compressed format. Its purpose is solely to allow very fast loading of images your program needs often in order to build other images for output. If you are experiencing performance problems when loading large, fixed GIF images your program needs to produce its output images, you may wish to examine the functions gdImageCreateFromGd and gdImageGd, which read and write .gd format images.

The program "giftogd.c" is provided as a simple way of converting .gif files to .gd format. I emphasize again that you will not need to use this format unless you have a need for high-speed loading of a few frequently-used images in your program.

Please tell us you're using gd!

When you contact us and let us know you are using gd, you help us justify the time spent in maintaining and improving it. So please let us know. If the results are publicly visible on the web, a URL is a wonderful thing to receive, but if it's not a publicly visible project, a simple note is just as welcome.

Using gd with TCL

 If you prefer TCL to C, you can use gd from your tcl program thanks to the TCL gd extension by Spencer W. Thomas, available at the link above or by anonymous FTP to guraldi.hgp.med.umich.edu in the directory pub/gdtcl.shar.

If you have problems

 If you have any difficulties with gd, feel free to contact the author, Thomas Boutell. Be sure to read this manual carefully first.

Alphabetical quick index

gdBrushed | gdDashSize | gdFont | gdFontPtr | gdImage | gdImageArc | gdImageBlue | gdImageBoundsSafe | gdImageChar | gdImageCharUp | gdImageColorAllocate | gdImageColorClosest | gdImageColorDeallocate | gdImageColorExact | gdImageColorTransparent | gdImageCopy | gdImageCopyResized | gdImageCreate | gdImageCreateFromGd | gdImageCreateFromGif | gdImageCreateFromXbm | gdImageDashedLine | gdImageDestroy | gdImageFill | gdImageFillToBorder | gdImageFilledRectangle | gdImageGd | gdImageGetInterlaced | gdImageGetPixel | gdImageGetTransparent | gdImageGif | gdImageGreen | gdImageInterlace | gdImageLine | gdImageFilledPolygon | gdImagePolygon | gdImagePtr | gdImageRectangle | gdImageRed | gdImageSetBrush | gdImageSetPixel | gdImageSetStyle | gdImageSetTile | gdImageString | gdImageStringUp | gdMaxColors | gdPoint | gdStyled | gdStyledBrushed | gdTiled | gdTransparent

Thomas Boutell, boutell@netcom.com neotcl8.1.1-lite/gd1.2/gdCmd.c100664 15471 0 76777 6752336007 14377 0ustar damonwheel/* * gdCmd.c - Interface gd to Tcl. * * Author: Spencer W. Thomas * Information Technology and Networking * University of Michigan * Date: Fri Aug 19 1994 * Copyright (c) 1994, University of Michigan */ /* #define TCLX_SUPPORT */ #include #include #ifdef TCLX_SUPPORT #include #if TCL_MAJOR_VERSION >= 8 #define Tcl_HandleTblInit TclX_HandleTblInit #define Tcl_HandleAlloc TclX_HandleAlloc #define Tcl_HandleXlate TclX_HandleXlate #define Tcl_HandleFree TclX_HandleFree #endif #else typedef void * void_pt; #define Tcl_HandleTblInit TclX_HandleTblInit #define Tcl_HandleAlloc TclX_HandleAlloc #define Tcl_HandleXlate TclX_HandleXlate #define Tcl_HandleFree TclX_HandleFree void_pt Tcl_HandleTblInit(const char *handleBase, int entrySize, int initEntries); void_pt Tcl_HandleAlloc(void_pt headerPtr, char *handlePtr); void_pt Tcl_HandleXlate(Tcl_Interp *interp, void_pt headerPtr, const char *handle); void Tcl_HandleFree(void_pt headerPtr, void_pt entryPtr); #endif #include "gd.h" #include "gdfonts.h" #include "gdfontl.h" #include "gdfontg.h" #include "gdfontmb.h" #include "gdfontt.h" /* Fonts table. */ static struct { char *fontname; gdFontPtr *fontp; } fontTbl[] = { "tiny", &gdFontTiny, "small", &gdFontSmall, "mediumbold", &gdFontMediumBold, "large", &gdFontLarge, "giant", &gdFontGiant }; static void_pt GDHandleTable = 0; static int tclGdCreateCmd(), tclGdDestroyCmd(), tclGdWriteCmd(), tclGdColorCmd(), tclGdInterlaceCmd(), tclGdSetCmd(), tclGdLineCmd(), tclGdRectCmd(), tclGdArcCmd(), tclGdFillCmd(), tclGdSizeCmd(), tclGdFontsCmd(), tclGdTextCmd(), tclGdCopyCmd(), tclGdGetCmd(), tclGdBrushCmd(), tclGdStyleCmd(), tclGdTileCmd(), tclGdPolygonCmd(); static int tclGdColorNewCmd(), tclGdColorExactCmd(), tclGdColorClosestCmd(), tclGdColorFreeCmd(), tclGdColorTranspCmd(), tclGdColorGetCmd(); typedef struct { char *cmd; int (*f)(); int minargs, maxargs; int subcmds; int ishandle; char *usage; } cmdOptions; static cmdOptions subcmdVec[] = { {"create", tclGdCreateCmd, 2, 2, 0, 0, "width height"}, {"createFromGIF", tclGdCreateCmd, 1, 1, 0, 0, "filehandle"}, {"createFromGD", tclGdCreateCmd, 1, 1, 0, 0, "filehandle"}, {"createFromXBM", tclGdCreateCmd, 1, 1, 0, 0, "filehandle"}, {"destroy", tclGdDestroyCmd, 1, 1, 0, 1, "gdhandle"}, {"writeGIF", tclGdWriteCmd, 2, 2, 0, 1, "gdhandle filehandle"}, {"writeGD", tclGdWriteCmd, 2, 2, 0, 1, "gdhandle filehandle"}, {"interlace", tclGdInterlaceCmd, 1, 2, 0, 1, "gdhandle ?on-off?"}, {"color", tclGdColorCmd, 2, 5, 1, 1, "option values..."}, {"brush", tclGdBrushCmd, 2, 2, 0, 2, "gdhandle brushhandle"}, {"style", tclGdStyleCmd, 2, 999, 0, 1, "gdhandle color..."}, {"tile", tclGdTileCmd, 2, 2, 0, 2, "gdhandle tilehandle"}, {"set", tclGdSetCmd, 4, 4, 0, 1, "gdhandle color x y"}, {"line", tclGdLineCmd, 6, 6, 0, 1, "gdhandle color x1 y1 x2 y2"}, {"rectangle", tclGdRectCmd, 6, 6, 0, 1, "gdhandle color x1 y1 x2 y2"}, {"fillrectangle", tclGdRectCmd, 6, 6, 0, 1, "gdhandle color x1 y1 x2 y2"}, {"arc", tclGdArcCmd, 8, 8, 0, 1, "gdhandle color cx cy width height start end"}, {"polygon", tclGdPolygonCmd, 2, 999, 0, 1, "gdhandle color x1 y1 x2 y2 x3 y3 ..."}, {"fillpolygon", tclGdPolygonCmd, 3, 999, 0, 1, "gdhandle color x1 y1 x2 y2 x3 y3 ..."}, {"fill", tclGdFillCmd, 4, 5, 0, 1, "gdhandle color x y ?bordercolor?"}, {"text", tclGdTextCmd, 6, 6, 0, 1, "gdhandle color fontname x y string"}, {"textup", tclGdTextCmd, 6, 6, 0, 1, "gdhandle color fontname x y string"}, {"copy", tclGdCopyCmd, 8, 10, 0, 2, "desthandle srchandle destx desty srcx srcy destw desth ?srcw srch?"}, {"get", tclGdGetCmd, 3, 3, 0, 1, "gdhandle x y"}, {"size", tclGdSizeCmd, 1, 1, 0, 1, "gdhandle"}, {"fonts", tclGdFontsCmd, 0, 0, 0, 0, ""} }; static cmdOptions colorCmdVec[] = { {"new", tclGdColorNewCmd, 5, 5, 1, 1, "gdhandle red green blue"}, {"exact", tclGdColorExactCmd, 5, 5, 1, 1, "gdhandle red green blue"}, {"closest", tclGdColorClosestCmd, 5, 5, 1, 1, "gdhandle red green blue"}, {"free", tclGdColorFreeCmd, 3, 3, 1, 1, "gdhandle color"}, {"transparent", tclGdColorTranspCmd, 2, 3, 1, 1, "gdhandle ?color?"}, {"get", tclGdColorGetCmd, 2, 3, 1, 1, "gdhandle ?color?"} }; /* * Helper function to interpret color index values. */ static int tclGd_GetColor( Tcl_Interp *interp, char *arg, int *color ) { int nlist, retval = TCL_OK; char **theList; /* Assume it's an integer, check other cases on failure. */ if ( Tcl_GetInt( interp, arg, color ) == TCL_OK ) return TCL_OK; else { Tcl_ResetResult( interp ); retval = Tcl_SplitList( interp, arg, &nlist, &theList ); if (retval != TCL_ERROR) { if (nlist < 1 || nlist > 2) retval = TCL_ERROR; else { switch ( theList[0][0] ) { case 'b': *color = gdBrushed; if ( nlist == 2 ) if ( theList[1][0] == 's' ) *color = gdStyledBrushed; else retval = TCL_ERROR; break; case 's': *color = gdStyled; if ( nlist == 2 ) if ( theList[1][0] == 'b' ) *color = gdStyledBrushed; else retval = TCL_ERROR; break; case 't': *color = gdTiled; break; default: retval = TCL_ERROR; } } free( (char *)theList); } } if ( retval == TCL_ERROR ) sprintf( interp->result, "Malformed special color value" ); return retval; } /* * GD composite command: * * gd create * Return a handle to a new gdImage that is width X height. * gd createFromGIF * gd createFromGD * gd createFromXBM * Return a handle to a new gdImage created by reading a GIF * (resp. GD or XBM) image from the file open on filehandle. * * gd destroy * Destroy the gdImage referred to by gdhandle. * * gd writeGIF * gd writeGD * Write the image in gdhandle to filehandle as a GIF (resp. GD) * file. * * gd color new * Allocate a new color with the given RGB values. Return the color * index. Returns -1 on failure. * gd color exact * gd color closest * Find a color in the image that exactly matches (resp., is closest to) * the given RGB color. Returns the index (or -1 if no exact match). * gd color free * Free the color at the given index for reuse. * gd color transparent * Mark the color index as the transparent background color. * gd color get [] * Return the RGB value at , or {} if it is not allocated. * If is not specified, return a list of {index R G B} values * for all allocated colors. * gd color gettransparent * Return the transparent color index. * * gd brush * Set the brush image to be used for brushed lines. Transparent * pixels in the brush will not change the image when the brush * is applied. * gd style ... * Set the line style to the list of color indices. This is interpreted * in one of two ways. For a simple styled line, each color index is * applied to points along the line in turn. The transparent index * value may be used to leave gaps in the line. For a styled, brushed * line, a 0 (or the transparent index) means not to fill the pixel, * and a non-zero value means to apply the brush. * gd tile * Set the tile image to be used for tiled fills. Transparent pixels in * the tile will not change the underlying image during tiling. * * In all drawing functions, the color index is a number, or may be one of the * strings styled, brushed, tiled, "styled brushed" or "brushed styled". The * style, brush, or tile currently in effect will be used. Brushing and * styling apply to lines, tiling to filled areas. * * gd set * Set the pixel at (x,y) to index. * gd line * Draw a line in color from (x1,y1) to (x2,y2). * gd rectangle * gd fillrectangle * Draw the outline of (resp. fill) a rectangle in color * with corners at (x1,y1) and (x2,y2). * gd arc * Draw an arc in color , centered at (cx,cy) in a rectangle * width x height, starting at start degrees and ending at end degrees. * start must be > end. * gd polygon ... * gd fillpolygon ... * Draw the outline of, or fill, a polygon specified by the x, y * coordinate list. * * gd fill * gd fill * Fill with color index, starting from (x,y) within a region * of pixels all the color of the pixel at (x,y) (resp., within a * border colored borderindex). * * gd size * Returns a list {width height} of the image. * * gd fonts * Returns a list of available fonts: {fontname width height} * * gd text * gd textup * Draw text with font fontname, in color index, with upper left * corner at (x,y). textup draws text rotated 90 degrees, running up. * * gd copy * gd copy \ * * Copy a subimage from srchandle(srcx, srcy) to * desthandle(destx, desty), size w x h. Or, resize the subimage * in copying from srcw x srch to destw x desth. * */ int gdCmd( ClientData clientData, Tcl_Interp *interp, int argc, char *argv[] ) { int argi, subi; /* Check for subcommand. */ if ( argc < 2 ) { interp->result = "wrong # args: should be \"gd option ...\""; return TCL_ERROR; } /* Find the subcommand. */ for (subi = 0; subi < (sizeof subcmdVec) / (sizeof subcmdVec[0]); subi++) { if ( strcmp( subcmdVec[subi].cmd, argv[1] ) == 0 ) { /* Check arg count. */ if ( argc - 2 < subcmdVec[subi].minargs || argc - 2 > subcmdVec[subi].maxargs ) { Tcl_AppendResult( interp, "wrong # args: should be \"gd ", subcmdVec[subi].cmd, " ", subcmdVec[subi].usage, "\"", 0 ); return TCL_ERROR; } /* Check for valid handle(s). */ if ( subcmdVec[subi].ishandle > 0 ) { /* Are any handles allocated? */ if ( GDHandleTable == 0 ) { sprintf( interp->result, "no such handle%s: ", subcmdVec[subi].ishandle > 1 ? "s" : "" ); for ( argi = 2 + subcmdVec[subi].subcmds; argi < 2 + subcmdVec[subi].subcmds + subcmdVec[subi].ishandle; argi++ ) { Tcl_AppendResult( interp, argv[argi], " ", 0 ); } return TCL_ERROR; } /* Check each handle to see if it's a valid handle. */ if ( 2 + subcmdVec[subi].subcmds + subcmdVec[subi].ishandle > argc ) { interp->result = "GD handle(s) not specified"; return TCL_ERROR; } for ( argi = 2 + subcmdVec[subi].subcmds; argi < (2 + subcmdVec[subi].subcmds + subcmdVec[subi].ishandle); argi++ ) { if (! Tcl_HandleXlate( interp, GDHandleTable, argv[argi] )) return TCL_ERROR; } } /* Call the subcommand function. */ return (*subcmdVec[subi].f)( interp, argc, argv ); } } /* If we get here, the option doesn't match. */ Tcl_AppendResult( interp, "bad option \"", argv[1], "\": should be ", 0 ); for (subi = 0; subi < (sizeof subcmdVec) / (sizeof subcmdVec[0]); subi++) Tcl_AppendResult( interp, (subi > 0 ? ", " : ""), subcmdVec[subi].cmd, 0 ); return TCL_ERROR; } static int tclGdCreateCmd( Tcl_Interp *interp, int argc, char *argv[] ) { int w, h; gdImagePtr im; FILE *f; int *style; if ( strcmp(argv[1], "create") == 0 ) { if ( Tcl_GetInt( interp, argv[2], &w ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[3], &h ) != TCL_OK ) return TCL_ERROR; im = gdImageCreate( w, h ); if ( im == NULL ) { sprintf( interp->result, "GD unable to allocate %d X %d image", w, h ); return TCL_ERROR; } } else { if ( Tcl_GetOpenFile(interp, argv[2], 0, 1, &f ) != TCL_OK ) return TCL_ERROR; /* Read GIF, XBM, or GD file? */ if ( argv[1][11] == 'I' ) { im = gdImageCreateFromGif( f ); } else if ( argv[1][10] == 'X' ) { im = gdImageCreateFromXbm( f ); } else { im = gdImageCreateFromGd( f ); } if ( im == NULL ) { interp->result = "GD unable to read image file"; return TCL_ERROR; } } /* Turn the pointer into a handle. */ if ( GDHandleTable == 0 ) { GDHandleTable = Tcl_HandleTblInit( "gd", sizeof(gdImagePtr), 1 ); if ( GDHandleTable == 0 ) { interp->result = "unable to create table for GD handles."; return TCL_ERROR; } } *(gdImagePtr *)(Tcl_HandleAlloc( GDHandleTable, interp->result)) = im; return TCL_OK; } static int tclGdDestroyCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im; void_pt *hdl; /* Get the handle, and the image pointer. */ hdl = Tcl_HandleXlate( interp, GDHandleTable, argv[2] ); im = *(gdImagePtr *)hdl; /* Release the handle, destroy the image. */ Tcl_HandleFree( GDHandleTable, hdl ); gdImageDestroy(im); return TCL_OK; } static int tclGdWriteCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im; FILE *f; /* Get the image pointer. */ im = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[2] ); /* Get the file reference. */ if ( Tcl_GetOpenFile(interp, argv[3], 1, 1, &f ) != TCL_OK ) return TCL_ERROR; /* Do it. */ if (argv[1][6] == 'I') { gdImageGif( im,f ); } else { gdImageGd( im, f ); } return TCL_OK; } static int tclGdInterlaceCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im; int on_off; /* Get the image pointer. */ im = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[2] ); if (argc == 4) { /* Get the on_off values. */ if ( Tcl_GetBoolean( interp, argv[3], &on_off ) != TCL_OK ) return TCL_ERROR; /* Do it. */ gdImageInterlace( im, on_off ); } else { /* Get the current state. */ sprintf(interp->result, "%d", gdImageGetInterlaced( im ) ); } return TCL_OK; } static int tclGdColorCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im; int subi, i, nsub, args[3]; if ( argc >= 3 ) { nsub = (sizeof colorCmdVec) / (sizeof colorCmdVec[0]); /* Find the subcommand. */ for (subi = 0; subi < nsub; subi++) { if ( strcmp( colorCmdVec[subi].cmd, argv[2] ) == 0 ) { /* Check arg count. */ if ( argc - 2 < colorCmdVec[subi].minargs || argc - 2 > colorCmdVec[subi].maxargs ) { Tcl_AppendResult( interp, "wrong # args: should be \"gd color ", colorCmdVec[subi].cmd, " ", colorCmdVec[subi].usage, "\"", 0 ); return TCL_ERROR; } /* Get the image pointer. */ im = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[3] ); /* Parse off integer arguments. * 1st 4 are gd color */ for ( i = 0; i < argc - 4; i++ ) { if ( Tcl_GetInt( interp, argv[i+4], &args[i] ) != TCL_OK ) return TCL_ERROR; if ( args[i] < 0 || args[i] > 255 ) { interp->result = "argument out of range 0-255"; return TCL_ERROR; } } /* Call the subcommand function. */ return (*colorCmdVec[subi].f)( interp, im, argc - 4, args ); } } } /* If we get here, the option doesn't match. */ if ( argc > 2 ) Tcl_AppendResult( interp, "bad option \"", argv[2], "\": ", 0 ); else Tcl_AppendResult( interp, "wrong # args: ", 0 ); Tcl_AppendResult( interp, "should be ", 0 ); for (subi = 0; subi < nsub; subi++) Tcl_AppendResult( interp, (subi > 0 ? ", " : ""), colorCmdVec[subi].cmd, 0 ); return TCL_ERROR; } static int tclGdColorNewCmd( Tcl_Interp *interp, gdImagePtr im, int argc, int args[] ) { int color; color = gdImageColorAllocate( im, args[0], args[1], args[2] ); sprintf( interp->result, "%d", color ); return TCL_OK; } static int tclGdColorExactCmd( Tcl_Interp *interp, gdImagePtr im, int argc, int args[] ) { int color; color = gdImageColorExact( im, args[0], args[1], args[2] ); sprintf( interp->result, "%d", color ); return TCL_OK; } static int tclGdColorClosestCmd( Tcl_Interp *interp, gdImagePtr im, int argc, int args[] ) { int color; color = gdImageColorClosest( im, args[0], args[1], args[2] ); sprintf( interp->result, "%d", color ); return TCL_OK; } static int tclGdColorFreeCmd( Tcl_Interp *interp, gdImagePtr im, int argc, int args[] ) { int color; gdImageColorDeallocate( im, args[0] ); return TCL_OK; } static int tclGdColorTranspCmd( Tcl_Interp *interp, gdImagePtr im, int argc, int args[] ) { int color; if ( argc > 0 ) gdImageColorTransparent( im, args[0] ); else sprintf( interp->result, "%d", gdImageGetTransparent(im) ); return TCL_OK; } static int tclGdColorGetCmd( Tcl_Interp *interp, gdImagePtr im, int argc, int args[] ) { char buf[30]; int i; /* IF one arg, return the single color, else return list of all colors. */ if ( argc == 1 ) { if ( args[0] >= gdImageColorsTotal(im) || im->open[args[0]] ) return TCL_OK; /* No such color */ sprintf( interp->result, "%d %d %d", gdImageRed(im,args[0]), gdImageGreen(im,args[0]), gdImageBlue(im,args[0]) ); } else { for ( i = 0; i < gdImageColorsTotal(im); i++ ) { if ( im->open[i] ) continue; sprintf( buf, "%d %d %d %d", i, gdImageRed(im,i), gdImageGreen(im,i), gdImageBlue(im,i) ); Tcl_AppendElement( interp, buf ); } } return TCL_OK; } static int tclGdBrushCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im, imbrush; /* Get the image pointers. */ im = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[2] ); imbrush = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[3] ); /* Do it. */ gdImageSetBrush( im, imbrush ); return TCL_OK; } static int tclGdTileCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im, tile; /* Get the image pointers. */ im = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[2] ); tile = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[3] ); /* Do it. */ gdImageSetTile( im, tile ); return TCL_OK; } static int tclGdStyleCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im; int ncolor, *colors = NULL, i; char **colorArgv = argv+3; /* By default, colors are listed in argv. */ int retval = TCL_OK; /* Get the image pointer. */ im = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[2] ); /* Figure out how many colors in the style list and allocate memory. */ ncolor = argc - 3; /* If only one argument, treat it as a list. */ if ( ncolor == 1 ) if ( Tcl_SplitList( interp, argv[3], &ncolor, &colorArgv ) != TCL_OK ) return TCL_ERROR; colors = (int *)calloc( ncolor, sizeof(int) ); if ( colors == NULL ) { sprintf( interp->result, "Memory allocation failed" ); retval = TCL_ERROR; goto out; } /* Get the color values. */ for ( i = 0; i < ncolor; i++ ) if ( Tcl_GetInt( interp, colorArgv[i], &colors[i] ) != TCL_OK ) { retval = TCL_ERROR; break; } /* Call the Style function if no error. */ if ( retval == TCL_OK ) gdImageSetStyle( im, colors, ncolor ); out: /* Free the colors. */ if (colors != NULL) free((char *)colors); if ( colorArgv != argv + 3 ) free( (char *)colorArgv ); return retval; } static int tclGdSetCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im; int color, x, y; /* Get the image pointer. */ im = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[2] ); /* Get the color, x, y values. */ if ( tclGd_GetColor( interp, argv[3], &color ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[4], &x ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[5], &y ) != TCL_OK ) return TCL_ERROR; /* Call the Set function. */ gdImageSetPixel( im, x, y, color ); return TCL_OK; } static int tclGdLineCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im; int color, x1, y1, x2, y2; /* Get the image pointer. */ im = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[2] ); /* Get the color, x, y values. */ if ( tclGd_GetColor( interp, argv[3], &color ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[4], &x1 ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[5], &y1 ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[6], &x2 ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[7], &y2 ) != TCL_OK ) return TCL_ERROR; /* Call the appropriate Line function. */ gdImageLine( im, x1, y1, x2, y2, color ); return TCL_OK; } static int tclGdRectCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im; int color, x1, y1, x2, y2; /* Get the image pointer. */ im = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[2] ); /* Get the color, x, y values. */ if ( tclGd_GetColor( interp, argv[3], &color ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[4], &x1 ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[5], &y1 ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[6], &x2 ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[7], &y2 ) != TCL_OK ) return TCL_ERROR; /* Call the appropriate rectangle function. */ if ( argv[1][0] == 'r' ) gdImageRectangle( im, x1, y1, x2, y2, color ); else gdImageFilledRectangle( im, x1, y1, x2, y2, color ); return TCL_OK; } static int tclGdArcCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im; int color, cx, cy, width, height, start, end; /* Get the image pointer. */ im = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[2] ); /* Get the color, x, y values. */ if ( tclGd_GetColor( interp, argv[3], &color ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[4], &cx ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[5], &cy ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[6], &width ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[7], &height ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[8], &start ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[9], &end ) != TCL_OK ) return TCL_ERROR; /* Call the arc function. */ gdImageArc( im, cx, cy, width, height, start, end, color ); return TCL_OK; } static int tclGdPolygonCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im; int color, npoints, i; char **pointArgv = &argv[4]; gdPointPtr points = NULL; int retval = TCL_OK; /* Get the image pointer. */ im = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[2] ); /* Get the color, x, y values. */ if ( tclGd_GetColor( interp, argv[3], &color ) != TCL_OK ) return TCL_ERROR; /* Figure out how many points in the list and allocate memory. */ npoints = argc - 4; /* If only one argument, treat it as a list. */ if ( npoints == 1 ) if ( Tcl_SplitList( interp, argv[4], &npoints, &pointArgv ) != TCL_OK ) return TCL_ERROR; /* Error check size of point list. */ if ( npoints % 2 != 0 ) { sprintf( interp->result, "Number of coordinates must be even" ); retval = TCL_ERROR; goto out; } /* Divide by 2 to get number of points, and final error check. */ npoints /= 2; if ( npoints < 3 ) { sprintf( interp->result, "Must specify at least 3 points." ); retval = TCL_ERROR; goto out; } points = (gdPointPtr)calloc( npoints, sizeof(gdPoint) ); if ( points == NULL ) { sprintf( interp->result, "Memory allocation failed" ); retval = TCL_ERROR; goto out; } /* Get the point values. */ for ( i = 0; i < npoints; i++ ) if ( Tcl_GetInt( interp, pointArgv[i*2], &points[i].x ) != TCL_OK || Tcl_GetInt( interp, pointArgv[i*2+1], &points[i].y ) != TCL_OK ) { retval = TCL_ERROR; break; } /* Call the appropriate polygon function. */ if ( argv[1][0] == 'p' ) gdImagePolygon( im, points, npoints, color ); else gdImageFilledPolygon( im, points, npoints, color ); out: /* Free the points. */ if ( pointArgv != &argv[4] ) free( (char *)pointArgv ); if ( points != NULL ) free( (char *)points ); return TCL_OK; } static int tclGdFillCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im; int color, x, y, border; /* Get the image pointer. */ im = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[2] ); /* Get the color, x, y and possibly bordercolor values. */ if ( tclGd_GetColor( interp, argv[3], &color ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[4], &x ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[5], &y ) != TCL_OK ) return TCL_ERROR; /* Call the appropriate fill function. */ if ( argc - 2 == 5 ) { if ( Tcl_GetInt( interp, argv[6], &border ) != TCL_OK ) return TCL_ERROR; gdImageFillToBorder( im, x, y, border, color ); } else { gdImageFill( im, x, y, color ); } return TCL_OK; } static int tclGdTextCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im; int color, x, y, i; gdFontPtr font; /* Get the image pointer. */ im = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[2] ); /* Get the color, x, y values. */ if ( tclGd_GetColor( interp, argv[3], &color ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[5], &x ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[6], &y ) != TCL_OK ) return TCL_ERROR; for ( i = 0; i < (sizeof fontTbl) / (sizeof fontTbl[0]); i++ ) { if ( strcmp(argv[4], fontTbl[i].fontname) == 0 ) { font = *fontTbl[i].fontp; break; } } if ( i >= (sizeof fontTbl) / (sizeof fontTbl[0]) ) { Tcl_AppendResult( interp, "invalid font specified: ", argv[4], 0 ); return TCL_ERROR; } /* Call the appropriate text function. */ if ( argv[1][4] == 'u' ) { gdImageStringUp( im, font, x, y, argv[7], color ); } else { gdImageString( im, font, x, y, argv[7], color ); } return TCL_OK; } static int tclGdCopyCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr imdest, imsrc; int destx, desty, srcx, srcy, destw, desth, srcw, srch; /* Get the image pointer. */ imdest = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[2] ); imsrc = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[3] ); /* Get the x, y, etc. values. */ if ( Tcl_GetInt( interp, argv[4], &destx ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[5], &desty ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[6], &srcx ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[7], &srcy ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[8], &destw ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[9], &desth ) != TCL_OK ) return TCL_ERROR; /* Call the appropriate copy function. */ if ( argc - 2 == 10 ) { if ( Tcl_GetInt( interp, argv[10], &srcw ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[11], &srch ) != TCL_OK ) return TCL_ERROR; gdImageCopyResized( imdest, imsrc, destx, desty, srcx, srcy, destw, desth, srcw, srch); } else gdImageCopy( imdest, imsrc, destx, desty, srcx, srcy, destw, desth ); return TCL_OK; } static int tclGdGetCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im; int color, x, y; /* Get the image pointer. */ im = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[2] ); /* Get the x, y values. */ if ( Tcl_GetInt( interp, argv[3], &x ) != TCL_OK ) return TCL_ERROR; if ( Tcl_GetInt( interp, argv[4], &y ) != TCL_OK ) return TCL_ERROR; /* Call the Get function. */ color = gdImageGetPixel( im, x, y ); sprintf( interp->result, "%d", color ); return TCL_OK; } static int tclGdSizeCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im; /* Get the image pointer. */ im = *(gdImagePtr *)Tcl_HandleXlate( interp, GDHandleTable, argv[2] ); sprintf( interp->result, "%d %d", gdImageSX(im), gdImageSY(im) ); return TCL_OK; } static int tclGdFontsCmd( Tcl_Interp *interp, int argc, char *argv[] ) { gdImagePtr im; gdFontPtr fp; char buf[30]; int i; for ( i = 0; i < (sizeof fontTbl) / (sizeof fontTbl[0]); i++ ) { fp = *fontTbl[i].fontp; sprintf( buf, "%s %d %d", fontTbl[i].fontname, fp->w, fp->h ); Tcl_AppendElement( interp, buf ); } return TCL_OK; } /* * Initialize the package. */ int Gd_Init( Tcl_Interp *interp ) { Tcl_CreateCommand( interp, "gd", gdCmd, (ClientData)NULL, (Tcl_CmdDeleteProc *)NULL ); return Tcl_PkgProvide( interp, "Gd", GD_VERSION); } int Gd_SafeInit( Tcl_Interp *interp ) { return Gd_Init(interp); } #ifndef TCLX_SUPPORT typedef struct { char *handleBase; int entrySize; Tcl_HashTable theTable; } HandleTable; /***************************************************************** * Simulate TclX Handle routines using hash tables. * */ void_pt Tcl_HandleTblInit(const char *handleBase, int entrySize, int initEntries) { HandleTable *ht; ht = (HandleTable *)calloc(1, sizeof(HandleTable)); if (ht == 0) { return (void_pt)0; } Tcl_InitHashTable(&ht->theTable, TCL_STRING_KEYS); ht->entrySize = entrySize; if ((ht->handleBase = (char *)calloc(strlen(handleBase)+1, 1)) == 0) { free(ht); return (void_pt)0; } strcpy(ht->handleBase, handleBase); return (void_pt)ht; } void_pt Tcl_HandleAlloc(void_pt headerPtr, char *handlePtr) { HandleTable *hp = (HandleTable *)headerPtr; int n, new; Tcl_HashEntry *p; void_pt *data; /* First create a new handle name. */ n = 0; do { sprintf(handlePtr, "%s%u", hp->handleBase, n); n++; p = Tcl_CreateHashEntry(&hp->theTable, handlePtr, &new); } while (!new); data = (void_pt) calloc(1, hp->entrySize); Tcl_SetHashValue( p, data); return data; } void_pt Tcl_HandleXlate(Tcl_Interp *interp, void_pt headerPtr, const char *handle) { Tcl_HashEntry *ep; HandleTable *hp = (HandleTable *)headerPtr; ep = Tcl_FindHashEntry(&hp->theTable, handle); if (ep == NULL) { Tcl_AppendResult(interp, "No handle named \"", handle, "\"", NULL); return NULL; } return (void_pt)Tcl_GetHashValue(ep); } void Tcl_HandleFree(void_pt headerPtr, void_pt entryPtr) { HandleTable *hp = (HandleTable *)headerPtr; Tcl_HashEntry *ep; Tcl_HashSearch srch; void_pt data; /* Have to search the hash table to find an entry equal to the pointer. */ for (ep = Tcl_FirstHashEntry(&hp->theTable, &srch); ep != NULL && entryPtr != Tcl_GetHashValue(ep); ep = Tcl_NextHashEntry(&srch)) ; if (ep == NULL) return; /* Found it, now delete it. */ Tcl_DeleteHashEntry(ep); free(entryPtr); } #endif neotcl8.1.1-lite/gd1.2/gdConfig.sh.in100664 15471 0 2450 6752336007 15627 0ustar damonwheel# neoConfig.sh -- # # This shell script (for sh) is generated automatically by Gd's # configure script. It will create shell variables for most of # the configuration options discovered by the configure script. # This script is intended to be included by the configure scripts # for Gd extensions so that they don't have to figure this all # out for themselves. This file does not duplicate information # already provided by tclConfig.sh, so you may need to use that # file in addition to this one. # # The information in this file is specific to a single platform. # # SCCS: @(#) neoConfig.sh.in 1.5 96/04/15 09:49:11 # Gd's version number. GD_VERSION='@GD_VERSION@' GD_MAJOR_VERSION='@GD_MAJOR_VERSION@' GD_MINOR_VERSION='@GD_MINOR_VERSION@' # The name of the Gd library (may be either a .a file or a shared library): GD_LIB_FILE=@GD_LIB_FILE@ # Top-level directory in which Tcl's platform-independent files are # installed. GD_PREFIX='@prefix@' # Top-level directory in which Tcl's platform-specific files (e.g. # executables) are installed. GD_EXEC_PREFIX='@exec_prefix@' # String to pass to linker to pick up the Gd library from its # installed directory. GD_LIB_SPEC='@GD_LIB_SPEC@' # String to pass to linker to pick up the Gd library from its # build directory. GD_BUILD_LIB_SPEC='@GD_BUILD_LIB_SPEC@' neotcl8.1.1-lite/gd1.2/gddemo.c100664 15471 0 5516 6752336007 14557 0ustar damonwheel#include #include "gd.h" #include "gdfontg.h" #include "gdfonts.h" int main(void) { /* Input and output files */ FILE *in; FILE *out; /* Input and output images */ gdImagePtr im_in, im_out; /* Brush image */ gdImagePtr brush; /* Color indexes */ int white; int blue; int red; int green; /* Points for polygon */ gdPoint points[3]; /* Create output image, 128 by 128 pixels. */ im_out = gdImageCreate(128, 128); /* First color allocated is background. */ white = gdImageColorAllocate(im_out, 255, 255, 255); /* Set transparent color. */ gdImageColorTransparent(im_out, white); /* Try to load demoin.gif and paste part of it into the output image. */ in = fopen("demoin.gif", "rb"); if (!in) { fprintf(stderr, "Can't load source image; this demo\n"); fprintf(stderr, "is much more impressive if demoin.gif\n"); fprintf(stderr, "is available.\n"); im_in = 0; } else { im_in = gdImageCreateFromGif(in); fclose(in); /* Now copy, and magnify as we do so */ gdImageCopyResized(im_out, im_in, 16, 16, 0, 0, 96, 96, 127, 127); } red = gdImageColorAllocate(im_out, 255, 0, 0); green = gdImageColorAllocate(im_out, 0, 255, 0); blue = gdImageColorAllocate(im_out, 0, 0, 255); /* Rectangle */ gdImageLine(im_out, 8, 8, 120, 8, green); gdImageLine(im_out, 120, 8, 120, 120, green); gdImageLine(im_out, 120, 120, 8, 120, green); gdImageLine(im_out, 8, 120, 8, 8, green); /* Circle */ gdImageArc(im_out, 64, 64, 30, 10, 0, 360, blue); /* Arc */ gdImageArc(im_out, 64, 64, 20, 20, 45, 135, blue); /* Flood fill */ gdImageFill(im_out, 4, 4, blue); /* Polygon */ points[0].x = 32; points[0].y = 0; points[1].x = 0; points[1].y = 64; points[2].x = 64; points[2].y = 64; gdImageFilledPolygon(im_out, points, 3, green); /* Brush. A fairly wild example also involving a line style! */ if (im_in) { int style[8]; brush = gdImageCreate(8, 8); gdImageCopyResized(brush, im_in, 0, 0, 0, 0, gdImageSX(brush), gdImageSY(brush), gdImageSX(im_in), gdImageSY(im_in)); gdImageSetBrush(im_out, brush); /* With a style, so they won't overprint each other. Normally, they would, yielding a fat-brush effect. */ style[0] = 0; style[1] = 0; style[2] = 0; style[3] = 0; style[4] = 0; style[5] = 0; style[6] = 0; style[7] = 1; gdImageSetStyle(im_out, style, 8); /* Draw the styled, brushed line */ gdImageLine(im_out, 0, 127, 127, 0, gdStyledBrushed); } /* Text */ gdImageString(im_out, gdFontGiant, 16, 16, "hi", red); gdImageStringUp(im_out, gdFontSmall, 32, 32, "hi", red); /* Make output image interlaced (allows "fade in" in some viewers, and in the latest web browsers) */ gdImageInterlace(im_out, 1); out = fopen("demoout.gif", "wb"); /* Write GIF */ gdImageGif(im_out, out); fclose(out); gdImageDestroy(im_out); if (im_in) { gdImageDestroy(im_in); } return 0; } neotcl8.1.1-lite/gd1.2/gdfontg.c100664 15471 0 107636 6752336007 15016 0ustar damonwheel#include "gdfontg.h" char gdFontGiantData[] = { 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,1,1,0,0, 0,0,1,1,1,1,1,1,0, 0,1,1,1,1,1,1,1,1, 0,0,1,1,1,1,1,1,0, 0,0,0,1,1,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,1,1,0,1,1, 0,0,1,1,0,0,1,1,0, 0,1,1,0,1,1,0,1,1, 0,0,1,1,0,0,1,1,0, 0,1,1,0,1,1,0,1,1, 0,0,1,1,0,0,1,1,0, 0,1,1,0,1,1,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,1,1,0,0, 0,1,1,0,0,1,1,0,0, 0,1,1,1,1,1,1,0,0, 0,1,1,0,0,1,1,0,0, 0,1,1,0,0,1,1,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,1,1,1,1,1,1, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,1,1,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,1,1,1, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,1,1,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,0,0, 0,1,1,0,0,0,1,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,1,0,0, 0,0,1,1,1,1,1,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,1,1,1,1,1,0, 0,0,0,1,1,0,0,1,1, 0,0,0,1,1,1,1,1,0, 0,0,0,1,1,0,0,1,1, 0,0,0,1,1,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,1,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,1,1,1, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,1,1,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,1,1,1,1,0,0, 0,0,1,1,0,0,1,1,0, 0,0,1,1,0,0,1,1,0, 0,0,0,1,1,1,1,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,1,1,1,1,1,1,1,1, 0,1,1,1,1,1,1,1,1, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,1,1,0,0, 0,1,1,1,0,1,1,0,0, 0,1,1,1,1,1,1,0,0, 0,1,1,0,1,1,1,0,0, 0,1,1,0,0,1,1,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,1,1,0,0, 0,1,1,0,0,1,1,0,0, 0,1,1,0,0,1,1,0,0, 0,0,1,1,1,1,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,1,1,1,1,1,1, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 1,1,1,1,1,1,0,0,0, 1,1,1,1,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 1,1,1,1,1,1,0,0,0, 1,1,1,1,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,1,1,1, 0,0,0,0,1,1,1,1,1, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,1,1,1, 0,0,0,0,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,1,1,1, 0,0,0,0,1,1,1,1,1, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 1,1,1,1,1,1,0,0,0, 1,1,1,1,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,1,1,1, 0,0,0,0,1,1,1,0,0, 0,0,1,1,1,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,0,1,1,1,0,0,0,0, 0,0,0,0,1,1,1,0,0, 0,0,0,0,0,0,1,1,1, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,0,0,0,0,0, 0,0,0,1,1,1,0,0,0, 0,0,0,0,0,1,1,1,0, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,1,1,1,0, 0,0,0,1,1,1,0,0,0, 0,1,1,1,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,1,1,1,1,1,1,1,1, 0,0,0,1,0,0,1,1,0, 0,0,0,1,0,0,1,1,0, 0,0,0,1,0,0,1,1,0, 0,1,1,1,0,0,1,1,0, 0,1,1,1,0,0,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,1,1,0, 0,1,1,1,1,1,1,1,1, 0,1,1,1,1,1,1,1,1, 0,0,0,0,1,1,0,0,0, 0,1,1,1,1,1,1,1,1, 0,1,1,1,1,1,1,1,1, 0,0,1,1,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,1,1,0, 0,0,0,1,1,0,0,1,1, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,1,1,1,1,1,0,0,0, 0,1,0,1,1,1,1,1,1, 0,1,1,1,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,1,1,0,1,1,0, 0,0,0,1,1,0,1,1,0, 0,0,0,1,1,0,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,0,1,1,0,0, 0,0,1,1,0,1,1,0,0, 0,1,1,1,1,1,1,1,0, 0,0,1,1,0,1,1,0,0, 0,0,1,1,0,1,1,0,0, 0,1,1,1,1,1,1,1,0, 0,0,1,1,0,1,1,0,0, 0,0,1,1,0,1,1,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,1,0,0,0, 0,0,0,1,1,1,1,1,0, 0,0,1,1,0,1,0,1,1, 0,0,1,1,0,1,0,0,0, 0,0,1,1,1,1,0,0,0, 0,0,0,1,1,1,1,1,0, 0,0,0,0,0,1,1,1,1, 0,0,0,0,0,1,0,1,1, 0,0,1,1,0,1,0,1,1, 0,0,0,1,1,1,1,1,0, 0,0,0,0,0,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,0,0,0,1,1, 0,1,1,1,1,0,1,1,0, 0,1,1,1,1,0,1,1,0, 0,0,1,1,0,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,0,1,1,0, 0,0,1,1,0,1,1,1,1, 0,0,1,1,0,1,1,1,1, 0,1,1,0,0,0,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,0,0,0, 0,1,1,0,0,1,1,0,0, 0,1,1,0,0,1,1,0,0, 0,1,1,0,0,1,1,0,0, 0,0,1,1,1,1,0,0,0, 0,1,1,0,0,1,1,0,0, 0,1,1,0,0,1,1,1,1, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,1,1,1,0, 0,0,1,1,1,1,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,1,1,0, 0,0,0,0,1,1,1,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,0,0,0,0, 0,1,1,0,1,0,1,1,0, 0,0,1,1,1,1,1,0,0, 0,0,0,1,1,1,0,0,0, 0,1,1,1,0,1,1,1,0, 0,0,0,1,1,1,0,0,0, 0,0,1,1,1,1,1,0,0, 0,1,1,0,1,0,1,1,0, 0,0,0,0,1,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,1,1,1,1,1,1,1,1, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,1,1,1,1,0,0, 0,0,0,1,1,1,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,1,1,1,1,0,0, 0,0,1,1,0,0,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,0,0,1,1,0, 0,0,0,1,1,1,1,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,1,0,0,0, 0,0,1,1,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,1,1,0,0, 0,0,0,1,1,1,0,0,0, 0,0,1,1,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,1,1,1,1,0, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,1,1,1,0, 0,0,0,0,1,1,1,1,0, 0,0,0,1,1,0,1,1,0, 0,0,1,1,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,0, 0,1,1,1,0,0,0,1,1, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,1,1,1,1,1,0, 0,0,1,1,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,0, 0,1,1,1,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,1,1,1, 0,0,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,1,1,0, 0,0,1,1,1,1,1,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,1,1,1,1,0,0, 0,0,0,1,1,1,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,1,1,1,1,1, 0,1,1,1,1,0,0,1,1, 0,1,1,1,1,0,1,1,1, 0,1,1,0,1,1,1,1,1, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,1,1,0,0, 0,0,1,1,0,0,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,1,1,1,1,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,0, 0,0,1,1,0,0,0,1,1, 0,0,1,1,0,0,0,1,1, 0,0,1,1,0,0,0,1,1, 0,0,1,1,1,1,1,1,0, 0,0,1,1,0,0,0,1,1, 0,0,1,1,0,0,0,1,1, 0,0,1,1,0,0,0,1,1, 0,0,1,1,0,0,0,1,1, 0,1,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,1,1, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,0, 0,0,1,1,0,0,0,1,1, 0,0,1,1,0,0,0,1,1, 0,0,1,1,0,0,0,1,1, 0,0,1,1,0,0,0,1,1, 0,0,1,1,0,0,0,1,1, 0,0,1,1,0,0,0,1,1, 0,0,1,1,0,0,0,1,1, 0,0,1,1,0,0,0,1,1, 0,1,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,1,1,1,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,1,1,1,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,1,1,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,1,1,1,1,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,1,1,1, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,0,1,1,1,1,1,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,1,1,0,0, 0,1,1,0,1,1,0,0,0, 0,1,1,1,1,0,0,0,0, 0,1,1,1,1,0,0,0,0, 0,1,1,0,1,1,0,0,0, 0,1,1,0,0,1,1,0,0, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,1,0,0,1,1,1, 0,1,1,1,1,1,1,1,1, 0,1,1,1,1,1,1,1,1, 0,1,1,0,1,1,0,1,1, 0,1,1,0,1,1,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,1,0,0,0,1,1, 0,1,1,1,1,0,0,1,1, 0,1,1,0,1,1,0,1,1, 0,1,1,0,0,1,1,1,1, 0,1,1,0,0,0,1,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,1,1,0,1,1, 0,1,1,0,0,1,1,1,1, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,1,1,1,1,1,0, 0,1,1,0,1,1,0,0,0, 0,1,1,0,0,1,1,0,0, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,0,0,1,1,0, 0,0,1,1,0,0,1,1,0, 0,0,1,1,0,0,1,1,0, 0,0,0,1,1,1,1,0,0, 0,0,0,1,1,1,1,0,0, 0,0,0,1,1,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,1,1,0,1,1, 0,1,1,0,1,1,0,1,1, 0,1,1,0,1,1,0,1,1, 0,1,1,0,1,1,0,1,1, 0,1,1,1,1,1,1,1,1, 0,0,1,1,0,0,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,0,0,1,1,0, 0,0,0,1,1,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,1,1,0,0, 0,0,1,1,0,0,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,0,0,1,1,0, 0,0,0,1,1,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,1,1,1,1,1,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,1,1,0,0, 0,0,1,1,1,1,1,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,1,1,0,0, 0,0,1,1,0,0,1,1,0, 0,1,1,0,0,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,0,0,0, 0,0,0,1,1,1,0,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,0,1,1, 0,0,1,1,1,1,1,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,1,1,1, 0,0,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,0, 0,1,1,1,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,1,0,0,0,1,1, 0,1,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,1,1, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,0,1,1, 0,0,1,1,1,1,1,1,1, 0,1,1,0,0,0,1,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,1,1,1, 0,0,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,1,1,1,1,1,1, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,1,1,0, 0,0,0,1,1,0,0,1,1, 0,0,0,1,1,0,0,1,1, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,1,1,1,1,1,1,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,1, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,0,1,1,1,1,1,0,0, 0,1,1,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,0, 0,1,1,1,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,1,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,1,1,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,0,1,1,1,1,1,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,1,1,1,0, 0,1,1,1,1,1,0,0,0, 0,1,1,1,0,0,0,0,0, 0,1,1,1,1,1,0,0,0, 0,1,1,0,0,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,1,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,0, 0,1,1,0,1,1,0,1,1, 0,1,1,0,1,1,0,1,1, 0,1,1,0,1,1,0,1,1, 0,1,1,0,1,1,0,1,1, 0,1,1,0,1,1,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,0, 0,1,1,1,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,0, 0,1,1,1,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,1,0,0,0,1,1, 0,1,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,1, 0,1,1,0,0,0,1,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,1,1,1, 0,0,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,1,1,1,1,0, 0,0,1,1,1,0,0,1,1, 0,0,1,1,0,0,0,1,1, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,0,0, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,1,1,1,1,1,1,1,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,1,1,0,0,1,1, 0,0,0,0,1,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,0,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,0,1,1,0,0,1,1,0, 0,0,1,1,0,0,1,1,0, 0,0,0,1,1,1,1,0,0, 0,0,0,1,1,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,1,1, 0,1,1,0,0,0,0,1,1, 0,1,1,0,1,1,0,1,1, 0,1,1,0,1,1,0,1,1, 0,1,1,0,1,1,0,1,1, 0,1,1,1,1,1,1,1,1, 0,0,1,1,0,0,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,1,1, 0,0,1,1,0,0,1,1,0, 0,0,0,1,1,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,1,1,0,0, 0,0,1,1,0,0,1,1,0, 0,1,1,0,0,0,0,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,1,1,0,0,1,1,1,0, 0,0,1,1,1,1,1,1,0, 0,0,0,0,0,0,1,1,0, 0,1,1,0,0,0,1,1,0, 0,0,1,1,1,1,1,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,1,1,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,1,1,0,0,0,0,0, 0,1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,1,1,1,1, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,1,1,1,0,0,0, 0,0,0,1,1,1,0,0,0, 0,0,0,0,0,1,1,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,1,1,1,1, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,1,1,1,1,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,0,1,1,1,0,0, 0,0,0,0,1,1,1,0,0, 0,0,0,1,1,0,0,0,0, 0,0,0,0,1,1,0,0,0, 0,0,0,0,1,1,0,0,0, 0,1,1,1,1,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,1,1,1,0,0,1,1, 0,1,1,0,1,1,0,1,1, 0,1,1,0,0,1,1,1,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0,0 }; gdFont gdFontGiantRep = { 128, 0, 9, 15, gdFontGiantData }; gdFontPtr gdFontGiant = &gdFontGiantRep; neotcl8.1.1-lite/gd1.2/gdfontg.h100664 15471 0 467 6752336007 14735 0ustar damonwheel#ifndef GDFONTG_H #define GDFONTG_H 1 /* gdfontg.h: brings in the largest of the provided fonts. Also link with gdfontg.c. */ #include "gd.h" /* 9x15B font derived from a public domain font in the X distribution. Contains the 127 standard ascii characters. */ extern gdFontPtr gdFontGiant; #endif neotcl8.1.1-lite/gd1.2/gdfontl.c100664 15471 0 71376 6752336010 14776 0ustar damonwheel#include "gdfontl.h" char gdFontLargeData[] = { 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,0,0, 0,0,1,1,1,0,0,0, 0,0,1,1,1,0,0,0, 0,0,1,1,1,0,0,0, 0,0,1,1,1,0,0,0, 0,0,1,1,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,1,1,0,0,0, 0,0,0,1,0,0,0,0, 0,1,1,0,1,1,0,0, 0,1,1,0,1,1,0,0, 0,0,1,0,0,1,0,0, 0,0,1,0,0,1,0,0, 0,1,0,0,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,1,0,0,1,0, 0,0,0,1,0,0,1,0, 0,0,0,1,0,0,1,0, 0,1,1,1,1,1,1,1, 0,0,1,0,0,1,0,0, 0,0,1,0,0,1,0,0, 0,0,1,0,0,1,0,0, 0,0,1,0,0,1,0,0, 0,0,1,0,0,1,0,0, 1,1,1,1,1,1,1,0, 0,1,0,0,1,0,0,0, 0,1,0,0,1,0,0,0, 0,1,0,0,1,0,0,0, 0,1,0,0,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,1,1,0,0,0, 0,1,0,1,0,1,0,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,1,1,0, 1,0,0,1,0,0,0,0, 0,1,0,1,0,0,0,0, 0,0,1,1,1,0,0,0, 0,0,0,1,0,1,0,0, 0,0,0,1,0,0,1,0, 1,1,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,1,0,0, 0,1,1,1,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,0,0,0,1,0, 0,1,1,0,0,0,1,0, 1,0,0,1,0,1,0,0, 1,0,0,1,0,1,0,0, 1,0,0,1,0,1,0,0, 1,0,0,1,1,0,0,0, 0,1,1,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,0,1,1,0,0, 0,0,1,1,0,0,1,0, 0,1,0,1,0,0,1,0, 0,1,0,1,0,0,1,0, 0,1,0,1,0,0,1,0, 1,0,0,0,1,1,0,0, 1,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,0,0,0,0, 0,1,0,0,1,0,0,0, 0,1,0,0,1,0,0,0, 0,1,0,0,1,0,0,0, 0,1,0,1,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,1,1,1,0, 0,1,0,1,0,1,0,0, 0,1,0,1,0,1,0,0, 1,0,0,1,0,1,0,0, 1,0,0,0,1,0,0,0, 1,0,0,0,1,1,0,0, 0,1,1,1,0,0,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,0,0,0,0,0, 1,1,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 1,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,1,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,0,1,0,0, 0,0,0,0,0,0,1,0, 1,0,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,1,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,1,1,0,0,0, 1,0,0,1,0,0,1,0, 1,1,0,1,0,1,1,0, 0,0,1,1,1,0,0,0, 1,1,0,1,0,1,1,0, 1,0,0,1,0,0,1,0, 0,0,1,1,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 1,1,1,1,1,1,1,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,0,0,0,0,0, 1,1,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 1,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 1,1,1,0,0,0,0,0, 1,1,1,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,1,0,0, 0,0,0,0,0,1,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,1,1,0,0,0, 0,0,1,0,0,1,0,0, 0,0,1,0,0,1,0,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,0,1,0,0,1,0,0, 0,0,1,0,0,1,0,0, 0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,1,0,0,0,0, 0,1,1,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,1,1,1,1,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,1,1,0,0,0, 0,0,1,0,0,1,0,0, 0,1,0,0,0,0,1,0, 0,1,1,0,0,0,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,1,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,0,0, 0,1,0,0,0,1,0,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,1,0,0, 0,0,1,1,1,0,0,0, 0,0,0,0,0,1,0,0, 0,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,0,1,1,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,1,1,0,0,0, 0,0,1,0,1,0,0,0, 0,0,1,0,1,0,0,0, 0,1,0,0,1,0,0,0, 0,1,0,0,1,0,0,0, 1,0,0,0,1,0,0,0, 1,0,0,0,1,0,0,0, 1,1,1,1,1,1,1,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,1,1,1,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,1,0,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 1,0,1,1,1,0,0,0, 1,1,0,0,0,1,0,0, 1,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 1,1,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,0,1,1,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,1,0,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,1,1,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 1,0,1,1,1,0,0,0, 1,1,0,0,0,1,0,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,0,1,1,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,0,0,0,0,1,0,0, 0,0,0,0,0,1,0,0, 0,0,0,0,0,1,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,0,0, 0,1,0,0,0,1,0,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,0,1,1,1,0,0,0, 0,1,0,0,0,1,0,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,0,1,1,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,0,0, 0,1,0,0,0,1,0,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,1,1,0, 0,0,1,1,1,0,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,0,1,1,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,0,0, 0,0,1,1,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,0,0, 0,0,1,1,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,0,0, 0,0,1,1,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,0,0, 0,0,1,1,1,0,0,0, 0,0,0,1,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,1,0,0,0,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,1,0,0, 0,0,0,0,0,1,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,0,1,0,0, 0,0,0,0,0,1,0,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,0,0, 0,1,0,0,0,1,0,0, 1,0,0,0,0,0,1,0, 1,1,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,1,0,0, 0,0,0,0,0,1,0,0, 0,0,0,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,1,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,1,0,0, 0,1,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,1,1,0,1,0, 1,0,1,0,0,1,1,0, 1,0,1,0,0,0,1,0, 1,0,1,0,0,0,1,0, 1,0,1,0,0,0,1,0, 1,0,1,0,0,1,1,0, 1,0,0,1,1,0,1,0, 1,0,0,0,0,0,0,0, 0,1,0,0,0,0,1,0, 0,0,1,1,1,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,0,1,0,0,0, 0,0,1,0,1,0,0,0, 0,0,1,0,1,0,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,1,1,1,1,1,0,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,1,0,0,0,1,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,0,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,1,1,1,1,0,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 1,1,1,1,1,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,1,0, 0,1,0,0,0,1,1,0, 0,1,0,0,0,0,1,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,0,1,1,1,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,0,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 1,1,1,1,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,0,0, 0,1,0,0,1,0,0,0, 0,1,0,0,1,0,0,0, 0,1,1,1,1,0,0,0, 0,1,0,0,1,0,0,0, 0,1,0,0,1,0,0,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 1,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,0,0, 0,1,0,0,1,0,0,0, 0,1,0,0,1,0,0,0, 0,1,1,1,1,0,0,0, 0,1,0,0,1,0,0,0, 0,1,0,0,1,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 1,1,1,1,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,1,1,0,1,0, 0,0,1,0,0,1,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 1,0,0,0,1,1,1,1, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,1,0,0,1,1,0, 0,0,0,1,1,0,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,0,0,1,1,1, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,1,1,1,1,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 1,1,1,0,0,1,1,1, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 1,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,1,1,1,1,1, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,0,1,1,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,0,0,1,1,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,1,0,0,0, 0,1,0,0,1,0,0,0, 0,1,1,1,0,0,0,0, 0,1,0,1,0,0,0,0, 0,1,0,0,1,0,0,0, 0,1,0,0,1,0,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,0,1,0, 1,1,1,0,0,0,1,1, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,1,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 1,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,0,0,0,0,0,1,0, 1,1,0,0,0,1,1,0, 1,0,1,0,1,0,1,0, 1,0,1,0,1,0,1,0, 1,0,1,0,1,0,1,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,1,0,0,0,1,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,0,0,0,0,1,1,1, 1,1,0,0,0,0,1,0, 1,0,1,0,0,0,1,0, 1,0,1,0,0,0,1,0, 1,0,1,0,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,0,0,1,0,1,0, 1,0,0,0,1,0,1,0, 1,0,0,0,1,0,1,0, 1,0,0,0,0,1,1,0, 1,1,0,0,0,0,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,0,0, 0,1,0,0,0,1,0,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,0,1,1,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,0,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,1,1,1,1,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 1,1,1,1,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,1,1,1,0,1,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,0,1,1,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,0,1,1,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,0,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,1,1,1,1,0,0,0, 0,1,0,0,1,0,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,0,1,0, 1,1,1,0,0,0,1,1, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,0,1,0,0, 0,1,0,0,1,1,0,0, 1,0,0,0,0,1,0,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 0,1,1,0,0,0,0,0, 0,0,0,1,1,0,0,0, 0,0,0,0,0,1,0,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,1,0,0,0,1,0,0, 1,0,1,1,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,1,1,1,1,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,0,0,1,1,1, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,0,1,1,1,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,0,0,0,1,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,0,1,0,1,0,0,0, 0,0,1,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,0,0,0,1,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,1,0,1,0,1,0, 1,0,1,0,1,0,1,0, 1,0,1,0,1,0,1,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,0,1,1,1,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,0,1,0,1,0,0,0, 0,0,1,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,0,1,0,0,0, 0,0,1,0,1,0,0,0, 0,0,1,0,1,0,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 1,0,0,0,0,0,1,0, 1,1,0,0,0,1,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,0,0,0,1,1,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,0,1,0,1,0,0,0, 0,0,1,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,1,1,1,1,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,0, 1,0,0,0,0,1,0,0, 1,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,1,1,1,1,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,1,1,1,0, 0,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,0,1,0,0, 0,0,0,0,0,1,0,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,0,0, 1,1,1,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 1,1,1,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,0,1,0,0,0, 0,1,0,0,0,1,0,0, 1,0,0,0,0,0,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,1,1,0, 0,0,1,1,0,0,0,0, 0,0,1,1,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,1,0,0, 0,1,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 0,0,1,1,1,1,1,0, 0,1,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,1,1,0, 0,1,1,1,1,0,1,1, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,1,1,1,0,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,1,1,1,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,1,0, 0,1,0,0,0,1,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,0,1,1,1,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,1,1,0, 0,0,0,0,0,1,0,0, 0,0,0,0,0,1,0,0, 0,0,0,0,0,1,0,0, 0,0,1,1,1,1,0,0, 0,1,0,0,0,1,0,0, 1,0,0,0,0,1,0,0, 1,0,0,0,0,1,0,0, 1,0,0,0,0,1,0,0, 1,0,0,0,0,1,0,0, 1,0,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,0,1,1,1,1,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,0,0, 0,1,0,0,0,1,0,0, 1,0,0,0,0,0,1,0, 1,1,1,1,1,1,1,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,0,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,0,1,1,1,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,1,1,1,0, 0,0,0,1,0,0,0,1, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 1,1,1,1,1,1,1,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,1,1,1,1,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,1,1, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,0,1,1,1,0,0,0, 0,1,0,0,0,0,0,0, 0,1,1,1,1,0,0,0, 1,0,0,0,0,1,0,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,1,1,1,1,1,0,0, 0,0,0,0,0,0,0,0, 1,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,1,1,1,0,0, 0,1,1,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 1,1,1,0,0,1,1,1, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,1,1,0,0,0, 0,0,0,1,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,1,1,1,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,1,1,0, 0,0,0,0,0,1,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 0,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,0,1,1,1,0,0,0, 0,0,0,0,0,0,0,0, 1,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,1,0,0,1,0,0,0, 0,1,0,1,1,0,0,0, 0,1,1,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 1,1,1,0,0,0,1,1, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,1,1,1,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 1,1,1,1,1,1,1,1, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,1,1,0,1,1,0,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 1,1,0,1,1,0,1,1, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,0,1,1,1,0,0, 0,1,1,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 1,1,1,0,0,1,1,1, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,0,0, 0,1,0,0,0,1,0,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,0,1,1,1,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,1,1,0,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,1,1,1,1,0,0,0, 0,1,0,0,0,0,0,0, 0,1,0,0,0,0,0,0, 1,1,1,1,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,1,1,0, 0,1,0,0,0,1,0,0, 1,0,0,0,0,1,0,0, 1,0,0,0,0,1,0,0, 1,0,0,0,0,1,0,0, 1,0,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,0,1,1,1,1,0,0, 0,0,0,0,0,1,0,0, 0,0,0,0,0,1,0,0, 0,0,0,1,1,1,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,0,1,1,0,0, 0,0,1,1,0,0,1,0, 0,0,1,0,0,0,1,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 1,1,1,1,1,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,1,1,0,1,0, 0,1,0,0,0,1,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,0,0, 0,0,1,1,1,1,0,0, 0,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 1,1,0,0,0,0,1,0, 1,0,1,1,1,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 1,1,1,1,1,1,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,1,0, 0,0,1,0,0,0,1,0, 0,0,0,1,1,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,0,0,0,1,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,0,1,0, 0,1,0,0,0,1,1,0, 0,0,1,1,1,0,0,1, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,0,0,0,1,1,0, 1,0,0,0,0,0,1,0, 1,0,0,0,0,0,1,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,0,1,0,1,0,0,0, 0,0,1,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,0,1,0,0,1,0, 1,0,1,0,1,0,1,0, 1,0,1,0,1,0,1,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,1,0,0,0,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,0,1,1,1,0, 0,1,0,0,0,1,0,0, 0,0,1,0,1,0,0,0, 0,0,1,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,0,1,0,0,0, 0,0,1,0,1,0,0,0, 0,1,0,0,0,1,0,0, 1,1,1,0,1,1,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 1,1,1,0,0,1,1,1, 0,1,0,0,0,0,1,0, 0,0,1,0,0,0,1,0, 0,0,1,0,0,1,0,0, 0,0,0,1,0,1,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,1,0,0,0,0, 1,0,0,1,0,0,0,0, 1,0,1,0,0,0,0,0, 0,1,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,1,1,1,1,1,1,0, 0,1,0,0,0,1,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,0,0,0,1,0, 0,1,0,0,0,0,1,0, 1,1,1,1,1,1,1,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,1,1,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,0,0,1,1,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,1,0,0,0,0, 1,1,0,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,0,1,0,0,0,0, 0,0,0,0,1,0,0,0, 0,0,0,1,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 0,0,1,0,0,0,0,0, 1,1,0,0,0,0,0,0, 0,1,1,0,0,0,0,0, 1,0,0,1,0,0,1,0, 0,0,0,0,1,1,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0, 0,0,0,0,0,0,0,0 }; gdFont gdFontLargeRep = { 96, 32, 8, 16, gdFontLargeData }; gdFontPtr gdFontLarge = &gdFontLargeRep; neotcl8.1.1-lite/gd1.2/gdfontl.h100664 15471 0 552 6752336010 14727 0ustar damonwheel#ifndef GDFONTL_H #define GDFONTL_H 1 /* gdfontl.h: brings in the larger of the two provided fonts. Also link with gdfontl.c. */ #include "gd.h" /* 8x16 font derived from a public domain font in the X distribution. Only contains the 96 standard ascii characters, sorry. Feel free to improve on this. */ extern gdFontPtr gdFontLarge; #endif neotcl8.1.1-lite/gd1.2/gdfontmb.c100664 15471 0 61271 6752336010 15132 0ustar damonwheel#include "gdfontmb.h" char gdFontMediumBoldData[] = { 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,1,1,1,1,0,0, 1,1,1,1,1,1,0, 0,1,1,1,1,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,0,1,1,0,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,0,1,1,0,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,1,1,0,0, 1,1,0,1,1,0,0, 1,1,1,1,1,0,0, 1,1,0,1,1,0,0, 1,1,0,1,1,0,0, 0,0,0,0,0,0,0, 0,0,1,1,1,1,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,0,0,0, 1,1,0,0,0,0,0, 1,1,1,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,1,1,0, 0,0,1,1,0,0,0, 0,0,1,1,1,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 0,1,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,1,0,0, 0,0,1,1,0,1,0, 0,0,1,1,1,0,0, 0,0,1,1,0,1,0, 0,0,1,1,0,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,1,1,0, 0,0,1,1,0,0,0, 0,0,1,1,1,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 1,1,1,1,1,1,0, 1,1,1,1,1,1,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,0, 1,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,1,1,0, 1,1,1,0,1,1,0, 1,1,1,1,1,1,0, 1,1,0,1,1,1,0, 1,1,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,0,0,1,0,0, 0,1,1,1,1,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,1,1,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 1,1,1,1,0,0,0, 1,1,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,0,0,0, 1,1,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,1,1,1, 0,0,1,1,1,1,1, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,1,1,1, 0,0,1,1,1,1,1, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 1,1,1,1,1,1,1, 1,1,1,1,1,1,1, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,1, 1,1,1,1,1,1,1, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,1, 1,1,1,1,1,1,1, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,1, 1,1,1,1,1,1,1, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,1, 1,1,1,1,1,1,1, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,1, 1,1,1,1,1,1,1, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,1,1,1, 0,0,1,1,1,1,1, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 1,1,1,1,0,0,0, 1,1,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 1,1,1,1,1,1,1, 1,1,1,1,1,1,1, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,1, 1,1,1,1,1,1,1, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,1,1,0, 0,0,0,1,1,0,0, 0,1,1,0,0,0,0, 1,1,0,0,0,0,0, 0,1,1,0,0,0,0, 0,0,0,1,1,0,0, 0,0,0,0,1,1,0, 1,1,1,1,1,1,0, 1,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,0,0,0, 0,1,1,0,0,0,0, 0,0,0,1,1,0,0, 0,0,0,0,1,1,0, 0,0,0,1,1,0,0, 0,1,1,0,0,0,0, 1,1,0,0,0,0,0, 1,1,1,1,1,1,0, 1,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,0, 0,1,1,0,1,1,0, 0,1,1,0,1,1,0, 0,1,1,0,1,1,0, 1,1,1,0,1,1,0, 1,1,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,1,0, 0,0,0,0,1,1,0, 1,1,1,1,1,1,0, 1,1,1,1,1,1,0, 0,0,1,1,0,0,0, 1,1,1,1,1,1,0, 1,1,1,1,1,1,0, 1,1,0,0,0,0,0, 1,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,1,0,0, 0,1,1,0,1,1,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 1,1,1,1,0,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 0,1,1,0,1,1,0, 1,0,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,0,1,1,0, 0,1,1,0,1,1,0, 0,1,1,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,0,1,0,0, 0,0,1,0,1,0,0, 0,1,1,1,1,1,0, 0,1,1,1,1,1,0, 0,0,1,0,1,0,0, 0,1,1,1,1,1,0, 0,1,1,1,1,1,0, 0,0,1,0,1,0,0, 0,0,1,0,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,1,1,1,1,0,0, 1,0,1,1,0,1,0, 1,0,1,1,0,0,0, 0,1,1,1,1,0,0, 0,0,1,1,0,1,0, 1,0,1,1,0,1,0, 0,1,1,1,1,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,0,0,1,0, 1,0,1,0,1,1,0, 1,1,1,0,1,0,0, 0,0,0,1,1,0,0, 0,0,1,1,0,0,0, 0,1,1,0,0,0,0, 0,1,0,1,1,1,0, 1,1,0,1,0,1,0, 1,0,0,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,0,0,0, 1,1,0,1,1,0,0, 1,1,0,1,1,0,0, 1,1,0,1,1,0,0, 0,1,1,1,0,0,0, 1,1,0,1,0,1,0, 1,1,0,1,1,1,0, 1,1,0,1,1,0,0, 0,1,1,1,0,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,1,0,0, 0,0,1,1,1,0,0, 0,0,1,1,0,0,0, 0,1,1,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,1,1,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,0,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,1,1,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,0,0,1,0,0, 0,0,1,1,0,0,0, 1,1,1,1,1,1,0, 1,1,1,1,1,1,0, 0,0,1,1,0,0,0, 0,1,0,0,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 1,1,1,1,1,1,0, 1,1,1,1,1,1,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,1,0,0, 0,0,1,1,1,0,0, 0,0,1,1,0,0,0, 0,1,1,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,0, 1,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,1,1,1,1,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,1,1,0,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,1,0,0,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,0,0,1,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,1,1,1,0,0,0, 1,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 1,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,1,1,1,0,0, 0,1,1,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,1,1,1,0,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,1,1,0, 0,0,0,1,1,1,0, 0,0,1,1,1,1,0, 0,1,1,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,1,1,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,1,1,1,0,0, 1,1,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,1,1,1,1,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,1,1,1,1,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,1,1,1,1,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,1,0,0, 0,0,1,1,1,0,0, 0,0,1,1,0,0,0, 0,1,1,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,1,1,0, 0,0,0,1,1,0,0, 0,0,1,1,0,0,0, 0,1,1,0,0,0,0, 1,1,0,0,0,0,0, 0,1,1,0,0,0,0, 0,0,1,1,0,0,0, 0,0,0,1,1,0,0, 0,0,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,0, 1,1,1,1,1,1,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,0, 1,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,0,0,0, 0,1,1,0,0,0,0, 0,0,1,1,0,0,0, 0,0,0,1,1,0,0, 0,0,0,0,1,1,0, 0,0,0,1,1,0,0, 0,0,1,1,0,0,0, 0,1,1,0,0,0,0, 1,1,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,1,1,1,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,0,0,0,1,1,0, 1,0,0,0,1,1,0, 1,0,1,1,1,1,0, 1,0,1,0,1,1,0, 1,0,1,1,1,1,0, 1,0,0,0,0,0,0, 1,0,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,1,1,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,1,1,1,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,1,1,1,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,1,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,1,1,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 1,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,0,1,0, 1,1,0,0,1,1,0, 1,1,0,1,1,0,0, 1,1,1,1,0,0,0, 1,1,1,0,0,0,0, 1,1,1,1,0,0,0, 1,1,0,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,0,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,0,0,0,0,1,0, 1,1,0,0,1,1,0, 1,1,1,1,1,1,0, 1,1,1,1,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,1,0,1,1,0, 1,1,1,0,1,1,0, 1,1,1,1,1,1,0, 1,1,0,1,1,1,0, 1,1,0,1,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,1,1,1,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,1,0,1,1,0, 1,1,0,1,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,1,1,1,0,0, 1,1,1,1,0,0,0, 1,1,0,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,0,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 0,1,1,1,1,0,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,0,0,1,0,0, 0,1,0,0,1,0,0, 0,1,1,1,1,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,1,1,1,1,0, 1,1,1,1,1,1,0, 1,1,0,0,1,1,0, 1,0,0,0,0,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,0,0,0,0,1,0, 1,1,0,0,1,1,0, 0,1,0,0,1,0,0, 0,1,1,1,1,0,0, 0,0,1,1,0,0,0, 0,1,1,1,1,0,0, 0,1,0,0,1,0,0, 1,1,0,0,1,1,0, 1,0,0,0,0,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,1,1,1,1,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,1,1,0,0, 0,0,1,1,0,0,0, 0,1,1,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 0,0,1,1,0,0,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,0,0,0,0,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,0, 1,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,0,0,0, 0,1,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 0,0,0,0,1,1,0, 0,1,1,1,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,1,1,1,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,1,1,1,1,0, 1,1,0,0,0,0,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,1,0,0, 0,1,1,0,1,1,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 1,1,1,1,0,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,0,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 1,1,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 1,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,1,1,0, 1,1,0,1,1,0,0, 1,1,1,1,0,0,0, 1,1,1,1,0,0,0, 1,1,0,1,1,0,0, 1,1,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 1,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,1,1,0,0, 1,1,1,1,1,1,0, 1,1,1,1,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,1,1,1,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 0,1,1,0,0,0,0, 0,0,0,1,1,0,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,1,1,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,0,0,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,1,1,1,1,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,1,1,1,1,0, 1,1,1,1,1,1,0, 0,1,0,0,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,1,1,1,1,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,1,0, 0,0,0,0,1,1,0, 1,1,0,0,1,1,0, 0,1,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 1,1,1,1,1,1,0, 0,0,0,0,1,1,0, 0,0,0,1,1,0,0, 0,1,1,0,0,0,0, 1,1,0,0,0,0,0, 1,1,1,1,1,1,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,1,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 0,0,1,1,0,0,0, 0,1,1,0,0,0,0, 0,0,1,1,0,0,0, 0,1,1,0,0,0,0, 0,1,1,0,0,0,0, 0,0,1,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,1,0,0,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,0,1,1,0,0,0, 0,0,0,1,1,0,0, 0,0,1,1,0,0,0, 0,0,0,1,1,0,0, 0,0,0,1,1,0,0, 0,1,1,1,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,1,0,0,1,0, 1,1,1,1,1,1,0, 1,0,0,1,1,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,0,0,0,0,0,0, 0,1,0,1,0,1,0, 0,0,1,0,1,0,0, 0,1,0,1,0,1,0, 0,0,1,0,1,0,0, 0,1,0,1,0,1,0, 0,0,1,0,1,0,0, 0,1,0,1,0,1,0, 0,0,1,0,1,0,0, 0,1,0,1,0,1,0, 0,0,1,0,1,0,0, 0,1,0,1,0,1,0, 0,0,1,0,1,0,0, 0,1,0,1,0,1,0 }; gdFont gdFontMediumBoldRep = { 128, 0, 7, 13, gdFontMediumBoldData }; gdFontPtr gdFontMediumBold = &gdFontMediumBoldRep; neotcl8.1.1-lite/gd1.2/gdfontmb.h100664 15471 0 476 6752336010 15077 0ustar damonwheel#ifndef GDFONTMB_H #define GDFONTMB_H 1 /* gdfontmb.h: brings in the middle of the provided fonts. Also link with gdfonth.c. */ #include "gd.h" /* 7x13B font derived from a public domain font in the X distribution. Contains the 127 standard ascii characters. */ extern gdFontPtr gdFontMediumBold; #endif neotcl8.1.1-lite/gd1.2/gdfonts.c100664 15471 0 42176 6752336010 15001 0ustar damonwheel#include "gdfonts.h" char gdFontSmallData[] = { 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,0,0,0,0, 0,0,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,0,1,0,0, 0,1,0,1,0,0, 0,1,0,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,0,1,0,0, 1,1,1,1,1,0, 0,1,0,1,0,0, 0,1,0,1,0,0, 1,1,1,1,1,0, 0,1,0,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,1,0,0,0, 0,1,1,1,0,0, 1,0,1,0,1,0, 1,0,1,0,0,0, 0,1,1,1,0,0, 0,0,1,0,1,0, 1,0,1,0,1,0, 0,1,1,1,0,0, 0,0,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,1,1,0, 1,1,0,0,1,0, 0,0,0,1,0,0, 0,0,1,0,0,0, 0,1,0,0,0,0, 1,0,0,1,1,0, 1,0,0,1,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,0,0,0,0, 1,0,1,0,0,0, 1,0,1,0,0,0, 0,1,0,0,0,0, 1,0,1,0,1,0, 1,0,0,1,0,0, 0,1,1,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,0,0,0, 0,1,1,0,0,0, 1,1,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,1,0, 0,0,0,1,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,0,1,0,0, 0,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,0,0, 0,1,0,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,1,0,0,0,0, 1,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,1,0,0,0, 1,0,1,0,1,0, 0,1,1,1,0,0, 0,0,1,0,0,0, 0,1,1,1,0,0, 1,0,1,0,1,0, 0,0,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 1,1,1,1,1,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,0,0,0, 0,1,1,0,0,0, 1,1,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,1,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,0,0,0, 0,1,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,1,0, 0,0,0,1,0,0, 0,0,1,0,0,0, 0,1,0,0,0,0, 1,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,1,1,0, 1,0,1,0,1,0, 1,1,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,1,0,0,0, 0,1,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 0,0,0,0,1,0, 0,0,0,1,0,0, 0,0,1,0,0,0, 0,1,0,0,0,0, 1,1,1,1,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 0,0,0,0,1,0, 0,0,1,1,0,0, 0,0,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,1,0,0, 0,0,1,1,0,0, 0,1,0,1,0,0, 1,0,0,1,0,0, 1,1,1,1,1,0, 0,0,0,1,0,0, 0,0,0,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,1,1,0, 1,0,0,0,0,0, 1,1,1,1,0,0, 0,0,0,0,1,0, 0,0,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,1,1,0,0, 0,1,0,0,0,0, 1,0,0,0,0,0, 1,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,1,1,0, 0,0,0,0,1,0, 0,0,0,1,0,0, 0,0,0,1,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,1,0, 0,0,0,0,1,0, 0,0,0,1,0,0, 0,1,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,0,0,0, 0,1,1,0,0,0, 0,0,0,0,0,0, 0,1,1,0,0,0, 0,1,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,0,0,0, 0,1,1,0,0,0, 0,0,0,0,0,0, 0,1,1,0,0,0, 0,1,1,0,0,0, 1,1,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,1,0,0, 0,0,1,0,0,0, 0,1,0,0,0,0, 0,0,1,0,0,0, 0,0,0,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,1,1,0, 0,0,0,0,0,0, 1,1,1,1,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,0,0,0,0, 0,0,1,0,0,0, 0,0,0,1,0,0, 0,0,1,0,0,0, 0,1,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 0,0,0,1,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,0,0,0,0, 0,0,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 1,0,1,1,1,0, 1,0,1,0,1,0, 1,0,1,1,1,0, 1,0,0,0,0,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,1,1,1,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,1,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,1,0,0, 0,1,0,0,1,0, 0,1,0,0,1,0, 0,1,0,0,1,0, 0,1,0,0,1,0, 0,1,0,0,1,0, 1,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,1,1,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,1,1,1,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,1,1,1,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,1,1,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,1,1,1,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,1,1,0, 1,0,0,0,1,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,1,1,1,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,1,0, 0,0,0,0,1,0, 0,0,0,0,1,0, 0,0,0,0,1,0, 0,0,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,1,0, 1,0,0,1,0,0, 1,0,1,0,0,0, 1,1,0,0,0,0, 1,0,1,0,0,0, 1,0,0,1,0,0, 1,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,1,1,1,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,1,0, 1,1,0,1,1,0, 1,0,1,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,1,0,0,1,0, 1,0,1,0,1,0, 1,0,0,1,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,1,1,1,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,1,0,1,0, 1,0,0,1,0,0, 0,1,1,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,1,1,1,0,0, 1,0,1,0,0,0, 1,0,0,1,0,0, 1,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,0,0, 0,1,1,1,0,0, 0,0,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,1,1,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,1,0,1,0,0, 0,1,0,1,0,0, 0,0,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,1,0,1,0, 1,1,0,1,1,0, 1,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,1,0,1,0,0, 0,0,1,0,0,0, 0,1,0,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,1,0,1,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,1,1,0, 0,0,0,0,1,0, 0,0,0,1,0,0, 1,1,1,1,1,0, 0,1,0,0,0,0, 1,0,0,0,0,0, 1,1,1,1,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,1,1,1,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,1,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,0,0, 0,1,0,0,0,0, 0,0,1,0,0,0, 0,0,0,1,0,0, 0,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 1,1,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,1,0,0,0, 0,1,0,1,0,0, 1,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,1,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,1,1,0,0, 0,0,1,1,0,0, 0,0,0,1,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 0,0,0,0,1,0, 0,1,1,1,1,0, 1,0,0,0,1,0, 0,1,1,1,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 0,1,1,1,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,1,0, 0,0,0,0,1,0, 0,1,1,1,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 1,1,1,1,0,0, 1,0,0,0,0,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,1,1,0,0, 0,1,0,0,1,0, 0,1,0,0,0,0, 1,1,1,0,0,0, 0,1,0,0,0,0, 0,1,0,0,0,0, 0,1,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,1,0, 0,0,0,0,1,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,1,0,0,0, 0,0,0,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,1,0, 0,0,0,0,1,0, 0,0,0,0,1,0, 0,0,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,1,0, 1,0,0,1,0,0, 1,1,1,0,0,0, 1,0,0,1,0,0, 1,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,0,1,0,0, 1,0,1,0,1,0, 1,0,1,0,1,0, 1,0,1,0,1,0, 1,0,1,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,1,1,0,0, 1,1,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,1,1,1,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,1,0, 0,0,0,0,1,0, 0,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,1,1,0,0, 1,1,0,0,1,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,1,1,0, 1,0,0,0,0,0, 0,1,1,1,0,0, 0,0,0,0,1,0, 1,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 1,1,1,1,1,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,0,1,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,1,0,1,0,0, 0,0,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,1,0,1,0, 1,0,1,0,1,0, 0,1,0,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,1,0, 0,1,0,1,0,0, 0,0,1,0,0,0, 0,1,0,1,0,0, 1,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 0,1,0,1,0,0, 0,0,1,0,0,0, 0,1,0,0,0,0, 1,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,1,1,1,1,0, 0,0,0,1,0,0, 0,1,1,1,0,0, 0,1,0,0,0,0, 1,1,1,1,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,1,0, 0,0,0,1,0,0, 0,0,0,1,0,0, 0,0,0,1,0,0, 0,0,1,0,0,0, 0,0,0,1,0,0, 0,0,0,1,0,0, 0,0,0,1,0,0, 0,0,0,0,1,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,1,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,0,0, 0,1,0,0,0,0, 0,1,0,0,0,0, 0,1,0,0,0,0, 0,0,1,0,0,0, 0,1,0,0,0,0, 0,1,0,0,0,0, 0,1,0,0,0,0, 1,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,1,1,0,1,0, 1,0,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 1,0,0,0,0,0, 1,0,0,0,0,0, 1,1,1,1,0,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,0,0,0,1,0, 1,1,1,1,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0, 0,0,0,0,0,0 }; gdFont gdFontSmallRep = { 96, 32, 6, 12, gdFontSmallData }; gdFontPtr gdFontSmall = &gdFontSmallRep; neotcl8.1.1-lite/gd1.2/gdfonts.h100664 15471 0 553 6752336010 14737 0ustar damonwheel#ifndef GDFONTS_H #define GDFONTS_H 1 /* gdfonts.h: brings in the smaller of the two provided fonts. Also link with gdfonts.c. */ #include "gd.h" /* 6x12 font derived from a public domain font in the X distribution. Only contains the 96 standard ascii characters, sorry. Feel free to improve on this. */ extern gdFontPtr gdFontSmall; #endif neotcl8.1.1-lite/gd1.2/gdfontt.c100664 15471 0 26432 6752336010 14777 0ustar damonwheel#include "gdfontt.h" char gdFontTinyData[] = { 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,1,1,1,0, 1,1,1,1,1, 0,1,1,1,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,1, 0,1,0,1,0, 0,0,1,0,1, 0,1,0,1,0, 0,0,1,0,1, 0,1,0,1,0, 0,0,1,0,1, 0,1,0,1,0, 0,1,0,1,0, 0,1,1,1,0, 0,1,0,1,0, 0,1,0,1,0, 0,0,1,1,1, 0,0,0,1,0, 0,0,0,1,0, 1,1,1,0,0, 1,0,0,0,0, 1,1,0,0,0, 1,0,1,1,1, 1,0,1,0,0, 0,0,1,1,0, 0,0,1,0,0, 0,0,1,0,0, 0,1,1,0,0, 1,0,0,0,0, 0,1,1,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,0,1,0,1, 0,0,1,1,0, 0,0,1,0,1, 1,0,0,0,0, 1,0,0,0,0, 1,0,0,0,0, 1,1,1,0,0, 0,0,1,1,1, 0,0,1,0,0, 0,0,1,1,0, 0,0,1,0,0, 0,0,0,0,0, 0,1,1,1,0, 0,1,0,1,0, 0,1,0,1,0, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,1,1,1,0, 0,0,1,0,0, 0,0,0,0,0, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 1,0,0,1,0, 1,1,0,1,0, 1,0,1,1,0, 1,0,0,1,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,1,1, 1,0,1,0,0, 1,0,1,0,0, 1,0,1,0,0, 0,1,0,0,0, 0,0,1,1,1, 0,0,0,1,0, 0,0,0,1,0, 0,0,0,1,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 1,1,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 1,1,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,1, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,1,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 1,1,1,1,1, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,1,1,1,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,1,1, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 1,1,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 1,1,1,1,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 1,1,1,1,1, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,1,0, 0,0,1,0,0, 0,1,0,0,0, 0,0,1,0,0, 0,0,0,1,0, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,0, 0,0,1,0,0, 0,0,0,1,0, 0,0,1,0,0, 0,1,0,0,0, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 1,1,1,1,1, 0,1,0,1,0, 0,1,0,1,0, 0,1,0,1,0, 0,1,0,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,1,0, 1,1,1,1,1, 0,0,1,0,0, 1,1,1,1,1, 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,0,0,1, 1,1,1,0,0, 0,1,0,0,0, 0,1,1,1,0, 1,1,0,1,1, 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,1,0, 0,1,0,1,0, 0,1,0,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,1,0, 0,1,0,1,0, 1,1,1,1,1, 0,1,0,1,0, 1,1,1,1,1, 0,1,0,1,0, 0,1,0,1,0, 0,0,0,0,0, 0,0,1,0,0, 0,1,1,1,0, 1,0,1,0,0, 0,1,1,1,0, 0,0,1,0,1, 0,1,1,1,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,0, 0,1,0,1,0, 0,0,1,0,0, 0,1,0,1,0, 0,0,0,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,1,0,1,0, 0,1,0,1,0, 0,0,1,0,0, 0,1,0,1,0, 0,1,0,1,0, 0,0,1,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,0,1,0,0, 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,1,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,0,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,1, 0,0,1,1,0, 0,1,1,1,1, 0,0,1,1,0, 0,1,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,0,1,0,0, 1,1,1,1,1, 0,0,1,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,0,1,0,0, 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,1,1,1,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,1, 0,0,0,0,1, 0,0,0,1,0, 0,0,1,0,0, 0,1,0,0,0, 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,1,0,1,0, 0,1,0,1,0, 0,1,0,1,0, 0,1,0,1,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,1,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,0,0,1, 0,0,0,0,1, 0,0,1,1,0, 0,1,0,0,0, 0,1,1,1,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,0,0,1, 0,0,0,1,0, 0,0,0,0,1, 0,1,0,0,1, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,1,0, 0,0,1,1,0, 0,1,0,1,0, 0,1,1,1,1, 0,0,0,1,0, 0,0,0,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,1, 0,1,0,0,0, 0,1,1,1,0, 0,0,0,0,1, 0,1,0,0,1, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,0,0,0, 0,1,0,1,0, 0,1,1,0,1, 0,1,0,0,1, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,1, 0,0,0,0,1, 0,0,0,1,0, 0,0,0,1,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,0,0,1, 0,0,1,1,0, 0,1,0,0,1, 0,1,0,0,1, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,0,0,1, 0,1,0,1,1, 0,0,1,0,1, 0,0,0,0,1, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,0,1,1,0, 0,0,0,0,0, 0,0,1,1,0, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,0,1,1,0, 0,0,0,0,0, 0,0,1,1,0, 0,0,1,0,0, 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,1,0, 0,0,1,0,0, 0,1,0,0,0, 0,1,0,0,0, 0,0,1,0,0, 0,0,0,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,0, 0,0,0,0,0, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,0, 0,0,1,0,0, 0,0,0,1,0, 0,0,0,1,0, 0,0,1,0,0, 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,1,0,1,0, 0,0,0,1,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,0,0,1, 1,0,0,1,1, 1,0,1,0,1, 1,0,1,0,1, 1,0,0,1,0, 0,1,0,0,0, 0,0,1,1,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,0,0,1, 0,1,0,0,1, 0,1,1,1,1, 0,1,0,0,1, 0,1,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,0, 0,1,0,0,1, 0,1,1,1,0, 0,1,0,0,1, 0,1,0,0,1, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,0,0,1, 0,1,0,0,0, 0,1,0,0,0, 0,1,0,0,1, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,0, 0,1,0,0,1, 0,1,0,0,1, 0,1,0,0,1, 0,1,0,0,1, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,1, 0,1,0,0,0, 0,1,1,1,0, 0,1,0,0,0, 0,1,0,0,0, 0,1,1,1,1, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,1, 0,1,0,0,0, 0,1,1,1,0, 0,1,0,0,0, 0,1,0,0,0, 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,0,0,1, 0,1,0,0,0, 0,1,0,1,1, 0,1,0,0,1, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,1, 0,1,0,0,1, 0,1,1,1,1, 0,1,0,0,1, 0,1,0,0,1, 0,1,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,1, 0,0,0,0,1, 0,0,0,0,1, 0,0,0,0,1, 0,1,0,0,1, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,1, 0,1,0,1,0, 0,1,1,0,0, 0,1,0,1,0, 0,1,0,1,0, 0,1,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,0, 0,1,0,0,0, 0,1,0,0,0, 0,1,0,0,0, 0,1,0,0,0, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,1, 0,1,1,1,1, 0,1,1,1,1, 0,1,0,0,1, 0,1,0,0,1, 0,1,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,1, 0,1,1,0,1, 0,1,1,1,1, 0,1,0,1,1, 0,1,0,1,1, 0,1,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,0,0,1, 0,1,0,0,1, 0,1,0,0,1, 0,1,0,0,1, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,0, 0,1,0,0,1, 0,1,0,0,1, 0,1,1,1,0, 0,1,0,0,0, 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,0,0,1, 0,1,0,0,1, 0,1,1,0,1, 0,1,0,1,1, 0,0,1,1,0, 0,0,0,0,1, 0,0,0,0,0, 0,1,1,1,0, 0,1,0,0,1, 0,1,0,0,1, 0,1,1,1,0, 0,1,0,1,1, 0,1,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,0,0,1, 0,0,1,0,0, 0,0,0,1,0, 0,1,0,0,1, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 1,1,1,1,1, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,1, 0,1,0,0,1, 0,1,0,0,1, 0,1,0,0,1, 0,1,0,0,1, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,1, 0,1,0,0,1, 0,1,0,0,1, 0,1,0,0,1, 0,0,1,1,0, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,1, 0,1,0,0,1, 0,1,0,0,1, 0,1,1,1,1, 0,1,1,1,1, 0,1,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,1, 0,1,0,0,1, 0,0,1,1,0, 0,0,1,1,0, 0,1,0,0,1, 0,1,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 1,0,0,0,1, 1,0,0,0,1, 0,1,0,1,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,1, 0,0,0,0,1, 0,0,0,1,0, 0,0,1,0,0, 0,1,0,0,0, 0,1,1,1,1, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,0, 0,1,0,0,0, 0,1,0,0,0, 0,1,0,0,0, 0,1,0,0,0, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,0, 0,1,0,0,0, 0,0,1,0,0, 0,0,0,1,0, 0,0,0,0,1, 0,0,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,0, 0,0,0,1,0, 0,0,0,1,0, 0,0,0,1,0, 0,0,0,1,0, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,1,0,1,0, 0,1,0,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 1,1,1,1,1, 0,0,0,0,0, 0,1,1,0,0, 0,1,0,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,1, 0,1,0,1,1, 0,1,0,1,1, 0,0,1,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,0, 0,1,0,0,0, 0,1,1,1,0, 0,1,0,0,1, 0,1,0,0,1, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,0,0,0, 0,1,0,0,0, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,1, 0,0,0,0,1, 0,0,1,0,1, 0,1,0,1,1, 0,1,0,1,1, 0,0,1,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,1,1,1, 0,1,0,0,0, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,1,0, 0,0,1,0,1, 0,0,1,0,0, 0,1,1,1,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,0,0,1, 0,0,1,1,1, 0,0,0,0,1, 0,0,1,1,0, 0,0,0,0,0, 0,1,0,0,0, 0,1,0,0,0, 0,1,1,1,0, 0,1,0,0,1, 0,1,0,0,1, 0,1,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,1,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,1,0, 0,0,0,0,0, 0,0,0,1,0, 0,0,0,1,0, 0,0,0,1,0, 0,1,0,1,0, 0,0,1,0,0, 0,0,0,0,0, 0,1,0,0,0, 0,1,0,0,0, 0,1,0,0,1, 0,1,1,1,0, 0,1,0,0,1, 0,1,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,1,0, 1,0,1,0,1, 1,0,1,0,1, 1,0,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,0, 0,1,0,0,1, 0,1,0,0,1, 0,1,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,0, 0,1,0,0,1, 0,1,0,0,1, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,0, 0,1,0,0,1, 0,1,1,1,0, 0,1,0,0,0, 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,1,1, 0,1,0,0,1, 0,0,1,1,1, 0,0,0,0,1, 0,0,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,1,0, 0,1,1,0,1, 0,1,0,0,0, 0,1,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,0, 0,1,1,0,0, 0,0,0,1,0, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,1,1,1,0, 0,0,1,0,0, 0,0,1,0,1, 0,0,0,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,1, 0,1,0,0,1, 0,1,0,0,1, 0,0,1,1,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,1,0, 0,1,0,1,0, 0,1,0,1,0, 0,0,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 1,0,0,0,1, 1,0,1,0,1, 1,0,1,0,1, 0,1,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,1, 0,0,1,1,0, 0,0,1,1,0, 0,1,0,0,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,0,0,1, 0,1,0,0,1, 0,0,1,1,1, 0,1,0,0,1, 0,0,1,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,1,1,1,1, 0,0,0,1,0, 0,0,1,0,0, 0,1,1,1,1, 0,0,0,0,0, 0,0,0,1,1, 0,0,1,0,0, 0,0,0,1,0, 0,1,1,0,0, 0,0,0,1,0, 0,0,1,0,0, 0,0,0,1,1, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,1,0,0, 0,0,0,0,0, 0,1,1,0,0, 0,0,0,1,0, 0,0,1,0,0, 0,0,0,1,1, 0,0,1,0,0, 0,0,0,1,0, 0,1,1,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,1,0,1, 0,1,0,1,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0, 0,0,0,0,0 }; gdFont gdFontTinyRep = { 128, 0, 5, 8, gdFontTinyData }; gdFontPtr gdFontTiny = &gdFontTinyRep; neotcl8.1.1-lite/gd1.2/gdfontt.h100664 15471 0 465 6752336011 14743 0ustar damonwheel#ifndef GDFONTT_H #define GDFONTT_H 1 /* gdfontt.h: brings in the tinyest of the provided fonts. Also link with gdfontt.c. */ #include "gd.h" /* 5x8 font derived from a public domain font in the X distribution. Contains the 127 standard ascii characters. */ extern gdFontPtr gdFontTiny; #endif neotcl8.1.1-lite/gd1.2/giftogd.c100664 15471 0 1527 6752336011 14734 0ustar damonwheel#include #include "gd.h" /* A short program which converts a .gif file into a .gd file, for your convenience in creating images on the fly from a basis image that must be loaded quickly. The .gd format is not intended to be a general-purpose format. */ int main(int argc, char **argv) { gdImagePtr im; FILE *in, *out; if (argc != 3) { fprintf(stderr, "Usage: giftogd filename.gif filename.gd\n"); exit(1); } in = fopen(argv[1], "rb"); if (!in) { fprintf(stderr, "Input file does not exist!\n"); exit(1); } im = gdImageCreateFromGif(in); fclose(in); if (!im) { fprintf(stderr, "Input is not in GIF format!\n"); exit(1); } out = fopen(argv[2], "wb"); if (!out) { fprintf(stderr, "Output file cannot be written to!\n"); gdImageDestroy(im); exit(1); } gdImageGd(im, out); fclose(out); gdImageDestroy(im); } neotcl8.1.1-lite/gd1.2/install-pkgindex100775 15471 0 1453 6752336011 16346 0ustar damonwheel#!/bin/sh # # install-pkgindex package version installdir pkgfile # package="$1" version="$2" installdir="$3" pkgfile=${4:-pkgIndex.tcl} if [ -s $installdir/pkgIndex.tcl ] then echo "Updating $installdir/pkgIndex.tcl" cp $installdir/pkgIndex.tcl $installdir/pkgIndex.tcl.old sed -e "/^# -- $package $version package ifneeded script --\$/,/^# end of $package $version package ifneeded script --\$/d" < $installdir/pkgIndex.tcl > newpkgIndex.tcl else echo "Creating $installdir/pkgIndex.tcl" fi echo >> newpkgIndex.tcl echo "# -- $package $version package ifneeded script --" >> newpkgIndex.tcl egrep -v '^#|^$' $pkgfile >> newpkgIndex.tcl echo "# -- end of $package $version package ifneeded script --" >> newpkgIndex.tcl cp newpkgIndex.tcl $installdir/pkgIndex.tcl rm -f newpkgIndex.tcl exit 0 neotcl8.1.1-lite/gd1.2/install-sh100775 15471 0 4212 6752336011 15143 0ustar damonwheel#!/bin/sh # # install - install a program, script, or datafile # This comes from X11R5; it is not part of GNU. # # $XConsortium: install.sh,v 1.2 89/12/18 14:47:22 jim Exp $ # # This script is compatible with the BSD install script, but was written # from scratch. # # set DOITPROG to echo to test this script # Don't use :- since 4.3BSD and earlier shells don't like it. doit="${DOITPROG-}" # put in absolute paths if you don't have them in your path; or use env. vars. mvprog="${MVPROG-mv}" cpprog="${CPPROG-cp}" chmodprog="${CHMODPROG-chmod}" chownprog="${CHOWNPROG-chown}" chgrpprog="${CHGRPPROG-chgrp}" stripprog="${STRIPPROG-strip}" rmprog="${RMPROG-rm}" instcmd="$mvprog" chmodcmd="" chowncmd="" chgrpcmd="" stripcmd="" rmcmd="$rmprog -f" mvcmd="$mvprog" src="" dst="" while [ x"$1" != x ]; do case $1 in -c) instcmd="$cpprog" shift continue;; -m) chmodcmd="$chmodprog $2" shift shift continue;; -o) chowncmd="$chownprog $2" shift shift continue;; -g) chgrpcmd="$chgrpprog $2" shift shift continue;; -s) stripcmd="$stripprog" shift continue;; *) if [ x"$src" = x ] then src=$1 else dst=$1 fi shift continue;; esac done if [ x"$src" = x ] then echo "install: no input file specified" exit 1 fi if [ x"$dst" = x ] then echo "install: no destination specified" exit 1 fi # If destination is a directory, append the input filename; if your system # does not like double slashes in filenames, you may need to add some logic if [ -d $dst ] then dst="$dst"/`basename $src` fi # Make a temp file name in the proper directory. dstdir=`dirname $dst` dsttmp=$dstdir/#inst.$$# # Move or copy the file name to the temp name $doit $instcmd $src $dsttmp # and set any options; do chmod last to preserve setuid bits if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; fi if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; fi if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; fi if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; fi # Now rename the file to the real destination. $doit $rmcmd $dst $doit $mvcmd $dsttmp $dst exit 0 neotcl8.1.1-lite/gd1.2/mathmake.c100664 15471 0 1563 6752336011 15100 0ustar damonwheel#include #include #define scale 1024 int basis[91]; int cost[360]; main(void) { int i; printf("#define costScale %d\n", scale); printf("int cost[] = {\n "); for (i=0; (i <= 90); i++) { basis[i] = cos((double)i * .0174532925) * scale; } for (i=0; (i < 90); i++) { printf("%d,\n ", cost[i] = basis[i]); } for (i=90; (i < 180); i++) { printf("%d,\n ", cost[i] = -basis[180-i]); } for (i=180; (i < 270); i++) { printf("%d,\n ", cost[i] = -basis[i-180]); } for (i=270; (i < 359); i++) { printf("%d,\n ", cost[i] = basis[360-i]); } printf("%d\n", cost[359] = basis[1]); printf("};\n"); printf("#define sintScale %d\n", scale); printf("int sint[] = {\n "); for (i=0; (i<360); i++) { int val; val = cost[(i + 270) % 360]; if (i != 359) { printf("%d,\n ", val); } else { printf("%d\n", val); } } printf("};\n"); } neotcl8.1.1-lite/gd1.2/mtables.c100664 15471 0 12632 6752336011 14757 0ustar damonwheel#define costScale 1024 int cost[] = { 1024, 1023, 1023, 1022, 1021, 1020, 1018, 1016, 1014, 1011, 1008, 1005, 1001, 997, 993, 989, 984, 979, 973, 968, 962, 955, 949, 942, 935, 928, 920, 912, 904, 895, 886, 877, 868, 858, 848, 838, 828, 817, 806, 795, 784, 772, 760, 748, 736, 724, 711, 698, 685, 671, 658, 644, 630, 616, 601, 587, 572, 557, 542, 527, 512, 496, 480, 464, 448, 432, 416, 400, 383, 366, 350, 333, 316, 299, 282, 265, 247, 230, 212, 195, 177, 160, 142, 124, 107, 89, 71, 53, 35, 17, 0, -17, -35, -53, -71, -89, -107, -124, -142, -160, -177, -195, -212, -230, -247, -265, -282, -299, -316, -333, -350, -366, -383, -400, -416, -432, -448, -464, -480, -496, -512, -527, -542, -557, -572, -587, -601, -616, -630, -644, -658, -671, -685, -698, -711, -724, -736, -748, -760, -772, -784, -795, -806, -817, -828, -838, -848, -858, -868, -877, -886, -895, -904, -912, -920, -928, -935, -942, -949, -955, -962, -968, -973, -979, -984, -989, -993, -997, -1001, -1005, -1008, -1011, -1014, -1016, -1018, -1020, -1021, -1022, -1023, -1023, -1024, -1023, -1023, -1022, -1021, -1020, -1018, -1016, -1014, -1011, -1008, -1005, -1001, -997, -993, -989, -984, -979, -973, -968, -962, -955, -949, -942, -935, -928, -920, -912, -904, -895, -886, -877, -868, -858, -848, -838, -828, -817, -806, -795, -784, -772, -760, -748, -736, -724, -711, -698, -685, -671, -658, -644, -630, -616, -601, -587, -572, -557, -542, -527, -512, -496, -480, -464, -448, -432, -416, -400, -383, -366, -350, -333, -316, -299, -282, -265, -247, -230, -212, -195, -177, -160, -142, -124, -107, -89, -71, -53, -35, -17, 0, 17, 35, 53, 71, 89, 107, 124, 142, 160, 177, 195, 212, 230, 247, 265, 282, 299, 316, 333, 350, 366, 383, 400, 416, 432, 448, 464, 480, 496, 512, 527, 542, 557, 572, 587, 601, 616, 630, 644, 658, 671, 685, 698, 711, 724, 736, 748, 760, 772, 784, 795, 806, 817, 828, 838, 848, 858, 868, 877, 886, 895, 904, 912, 920, 928, 935, 942, 949, 955, 962, 968, 973, 979, 984, 989, 993, 997, 1001, 1005, 1008, 1011, 1014, 1016, 1018, 1020, 1021, 1022, 1023, 1023 }; #define sintScale 1024 int sint[] = { 0, 17, 35, 53, 71, 89, 107, 124, 142, 160, 177, 195, 212, 230, 247, 265, 282, 299, 316, 333, 350, 366, 383, 400, 416, 432, 448, 464, 480, 496, 512, 527, 542, 557, 572, 587, 601, 616, 630, 644, 658, 671, 685, 698, 711, 724, 736, 748, 760, 772, 784, 795, 806, 817, 828, 838, 848, 858, 868, 877, 886, 895, 904, 912, 920, 928, 935, 942, 949, 955, 962, 968, 973, 979, 984, 989, 993, 997, 1001, 1005, 1008, 1011, 1014, 1016, 1018, 1020, 1021, 1022, 1023, 1023, 1024, 1023, 1023, 1022, 1021, 1020, 1018, 1016, 1014, 1011, 1008, 1005, 1001, 997, 993, 989, 984, 979, 973, 968, 962, 955, 949, 942, 935, 928, 920, 912, 904, 895, 886, 877, 868, 858, 848, 838, 828, 817, 806, 795, 784, 772, 760, 748, 736, 724, 711, 698, 685, 671, 658, 644, 630, 616, 601, 587, 572, 557, 542, 527, 512, 496, 480, 464, 448, 432, 416, 400, 383, 366, 350, 333, 316, 299, 282, 265, 247, 230, 212, 195, 177, 160, 142, 124, 107, 89, 71, 53, 35, 17, 0, -17, -35, -53, -71, -89, -107, -124, -142, -160, -177, -195, -212, -230, -247, -265, -282, -299, -316, -333, -350, -366, -383, -400, -416, -432, -448, -464, -480, -496, -512, -527, -542, -557, -572, -587, -601, -616, -630, -644, -658, -671, -685, -698, -711, -724, -736, -748, -760, -772, -784, -795, -806, -817, -828, -838, -848, -858, -868, -877, -886, -895, -904, -912, -920, -928, -935, -942, -949, -955, -962, -968, -973, -979, -984, -989, -993, -997, -1001, -1005, -1008, -1011, -1014, -1016, -1018, -1020, -1021, -1022, -1023, -1023, -1024, -1023, -1023, -1022, -1021, -1020, -1018, -1016, -1014, -1011, -1008, -1005, -1001, -997, -993, -989, -984, -979, -973, -968, -962, -955, -949, -942, -935, -928, -920, -912, -904, -895, -886, -877, -868, -858, -848, -838, -828, -817, -806, -795, -784, -772, -760, -748, -736, -724, -711, -698, -685, -671, -658, -644, -630, -616, -601, -587, -572, -557, -542, -527, -512, -496, -480, -464, -448, -432, -416, -400, -383, -366, -350, -333, -316, -299, -282, -265, -247, -230, -212, -195, -177, -160, -142, -124, -107, -89, -71, -53, -35, -17 }; neotcl8.1.1-lite/gd1.2/pkgIndex.tcl.in100664 15471 0 152 6752336011 16000 0ustar damonwheelpackage ifneeded Gd @GD_VERSION@ "package require Tclx; load [file join $dir .. @GD_SHARED_LIB_FILE@] Gd" neotcl8.1.1-lite/gd1.2/webgif.c100664 15471 0 10224 6752336011 14566 0ustar damonwheel/* Bring in the gd library functions */ #include "gd.h" /* Bring in standard I/O and string manipulation functions */ #include #include int main(int argc, char **argv) { FILE *in; FILE *out; /* Declare our image pointer */ gdImagePtr im = 0; int i; /* We'll clear 'no' once we know the user has made a reasonable request. */ int no = 1; /* We'll set 'write' once we know the user's request requires that the image be written back to disk. */ int write = 0; /* C programs always get at least one argument; we want at least one more (the image), more in practice. */ if (argc < 2) { no = 1; goto usage; } /* The last argument should be the image. Open the file. */ in = fopen(argv[argc-1], "rb"); if (!in) { fprintf(stderr, "Error: can't open file %s.\n", argv[argc-1]); } /* Now load the image. */ im = gdImageCreateFromGif(in); fclose(in); /* If the load failed, it must not be a GIF file. */ if (!im) { fprintf(stderr, "Error: %s is not a valid gif file.\n", argv[1]); exit(1); } /* Consider each argument in turn. */ for (i=1; (i < (argc-1)); i++) { /* -i turns on and off interlacing. */ if (!strcmp(argv[i], "-i")) { if (i == (argc-2)) { fprintf(stderr, "Error: -i specified without y or n.\n"); no = 1; goto usage; } if (!strcmp(argv[i+1], "y")) { /* Set interlace. */ gdImageInterlace(im, 1); } else if (!strcmp(argv[i+1], "n")) { /* Clear interlace. */ gdImageInterlace(im, 0); } else { fprintf(stderr, "Error: -i specified without y or n.\n"); no = 1; goto usage; } i++; no = 0; write = 1; } else if (!strcmp(argv[i], "-t")) { /* Set transparent index (or none). */ int index; if (i == (argc-2)) { fprintf(stderr, "Error: -t specified without a color table index.\n"); no = 1; goto usage; } if (!strcmp(argv[i+1], "none")) { /* -1 means not transparent. */ gdImageColorTransparent(im, -1); } else { /* OK, get an integer and set the index. */ index = atoi(argv[i+1]); gdImageColorTransparent(im, index); } i++; write = 1; no = 0; } else if (!strcmp(argv[i], "-l")) { /* List the colors in the color table. */ int j; /* Tabs used below. */ printf("Index Red Green Blue\n"); for (j=0; (j < gdImageColorsTotal(im)); j++) { /* Use access macros to learn colors. */ printf("%d %d %d %d\n", j, gdImageRed(im, j), gdImageGreen(im, j), gdImageBlue(im, j)); } no = 0; } else if (!strcmp(argv[i], "-d")) { /* Output dimensions, etc. */ int t; printf("Width: %d Height: %d Colors: %d\n", gdImageSX(im), gdImageSY(im), gdImageColorsTotal(im)); t = gdImageGetTransparent(im); if (t != (-1)) { printf("Transparent index: %d\n", t); } else { /* -1 means the image is not transparent. */ printf("Transparent index: none\n"); } if (gdImageGetInterlaced(im)) { printf("Interlaced: yes\n"); } else { printf("Interlaced: no\n"); } no = 0; } else { fprintf(stderr, "Unknown argument: %s\n", argv[i]); break; } } usage: if (no) { /* If the command failed, output an explanation. */ fprintf(stderr, "Usage: webgif [-i y|n ] [-l] [-t index|off ] [-d] gifname.gif\n"); fprintf(stderr, "Where -i controls interlace (specify y or n for yes or no),\n"); fprintf(stderr, "-l outputs a table of color indexes, -t sets the specified\n"); fprintf(stderr, "color index (0-255 or none) to be the transparent color, and\n"); fprintf(stderr, "-d reports the dimensions and other characteristics of the image.\n"); fprintf(stderr, "Note: you may wish to pipe to \"more\" when using the -l option.\n"); } if (write) { /* Open a temporary file. */ out = fopen("temp.tmp", "wb"); if (!out) { fprintf(stderr, "Unable to write to temp.tmp -- exiting\n"); exit(1); } /* Write the new gif. */ gdImageGif(im, out); fclose(out); /* Erase the old gif. */ unlink(argv[argc-1]); /* Rename the new to the old. */ rename("temp.tmp", argv[argc-1]); } /* Delete the image from memory. */ if (im) { gdImageDestroy(im); } /* All's well that ends well. */ return 0; } neotcl8.1.1-lite/itcl3.0.1/ 40755 15471 0 0 6752336076 13554 5ustar damonwheelneotcl8.1.1-lite/itcl3.0.1/CVS/ 40755 15471 0 0 6752360662 14205 5ustar damonwheelneotcl8.1.1-lite/itcl3.0.1/CVS/Root100644 15471 0 26 6752336011 15075 0ustar damonwheelneoworld.net:/usr/cvs neotcl8.1.1-lite/itcl3.0.1/CVS/Repository100644 15471 0 70 6752336011 16330 0ustar damonwheel/usr/cvs/NEOSOFT/nws/nws-3.2/neotcl8.1.1-lite/itcl3.0.1 neotcl8.1.1-lite/itcl3.0.1/CVS/Entries100664 15471 0 1042 6752360662 15635 0ustar damonwheel/CHANGES/1.1.1.1/Thu Aug 5 16:30:02 1999// /INCOMPATIBLE/1.1.1.1/Thu Aug 5 16:30:02 1999// /Makefile.in/1.1.1.1/Thu Aug 5 16:30:02 1999// /README/1.1.1.1/Thu Aug 5 16:30:02 1999// /TODO/1.1.1.1/Thu Aug 5 16:30:02 1999// /configure/1.3/Thu Aug 5 16:30:02 1999// /configure.in/1.1.1.1/Thu Aug 5 16:30:02 1999// /license.terms/1.1.1.1/Thu Aug 5 16:30:02 1999// /makefile.bc/1.1.1.1/Thu Aug 5 16:30:02 1999// /makefile.vc/1.1.1.1/Thu Aug 5 16:30:02 1999// D/config//// D/doc//// D/itcl//// D/itk//// D/iwidgets2.2.0//// D/iwidgets3.0.0//// neotcl8.1.1-lite/itcl3.0.1/config/ 40755 15471 0 0 6752336013 15010 5ustar damonwheelneotcl8.1.1-lite/itcl3.0.1/config/CVS/ 40755 15471 0 0 6752336013 15443 5ustar damonwheelneotcl8.1.1-lite/itcl3.0.1/config/CVS/Root100644 15471 0 26 6752336012 16343 0ustar damonwheelneoworld.net:/usr/cvs neotcl8.1.1-lite/itcl3.0.1/config/CVS/Repository100644 15471 0 77 6752336012 17605 0ustar damonwheel/usr/cvs/NEOSOFT/nws/nws-3.2/neotcl8.1.1-lite/itcl3.0.1/config neotcl8.1.1-lite/itcl3.0.1/config/CVS/Entries100644 15471 0 303 6752336013 17050 0ustar damonwheel/config.guess/1.1.1.1/Thu Aug 5 16:30:02 1999// /config.sub/1.1.1.1/Thu Aug 5 16:30:03 1999// /install-sh/1.1.1.1/Thu Aug 5 16:30:03 1999// /mkinstalldirs/1.1.1.1/Thu Aug 5 16:30:03 1999// D neotcl8.1.1-lite/itcl3.0.1/config/config.guess100664 15471 0 32325 6752336012 17450 0ustar damonwheel#!/bin/sh # Attempt to guess a canonical system name. # Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. # # This file is free software; you can redistribute it and/or modify it # under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Written by Per Bothner . # The master version of this file is at the FSF in /home/gd/gnu/lib. # # This script attempts to guess a canonical system name similar to # config.sub. If it succeeds, it prints the system name on stdout, and # exits with 0. Otherwise, it exits with 1. # # The plan is that this can be called by configure scripts if you # don't specify an explicit system type (host/target name). # # Only a few systems have been added to this list; please add others # (but try to keep the structure clean). # # This is needed to find uname on a Pyramid OSx when run in the BSD universe. # (ghazi@noc.rutgers.edu 8/24/94.) if (test -f /.attbin/uname) >/dev/null 2>&1 ; then PATH=$PATH:/.attbin ; export PATH fi UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown UNAME_RELEASE=`(uname -r) 2>/dev/null` || UNAME_RELEASE=unknown UNAME_SYSTEM=`(uname -s) 2>/dev/null` || UNAME_SYSTEM=unknown UNAME_VERSION=`(uname -v) 2>/dev/null` || UNAME_VERSION=unknown trap 'rm -f dummy.c dummy.o dummy; exit 1' 1 2 15 # Note: order is significant - the case branches are not exclusive. case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in alpha:OSF1:V*:*) # After 1.2, OSF1 uses "V1.3" for uname -r. echo alpha-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^V//'` exit 0 ;; alpha:OSF1:*:*) # 1.2 uses "1.2" for uname -r. echo alpha-dec-osf${UNAME_RELEASE} exit 0 ;; arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) echo arm-acorn-riscix${UNAME_RELEASE} exit 0;; Pyramid*:OSx*:*:*) if test "`(/bin/universe) 2>/dev/null`" = att ; then echo pyramid-pyramid-sysv3 else echo pyramid-pyramid-bsd fi exit 0 ;; i86pc:SunOS:5.*:*) echo i486-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit 0 ;; sun4*:SunOS:5.*:*) echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit 0 ;; sun4*:SunOS:6*:*) # According to config.sub, this is the proper way to canonicalize # SunOS6. Hard to guess exactly what SunOS6 will be like, but # it's likely to be more like Solaris than SunOS4. echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` exit 0 ;; sun4*:SunOS:*:*) # Japanese Language versions have a version number like `4.1.3-JL'. echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` exit 0 ;; sun3*:SunOS:*:*) echo m68k-sun-sunos${UNAME_RELEASE} exit 0 ;; tp_s2*:SunOS:*:*) # Tadpole Sparcbook 2 running a modified 4.1.3 echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` exit 0 ;; RISC*:ULTRIX:*:*) echo mips-dec-ultrix${UNAME_RELEASE} exit 0 ;; VAX*:ULTRIX*:*:*) echo vax-dec-ultrix${UNAME_RELEASE} exit 0 ;; mips:*:5*:RISCos) echo mips-mips-riscos${UNAME_RELEASE} exit 0 ;; m88k:CX/UX:7*:*) echo m88k-harris-cxux7 exit 0 ;; m88k:*:4*:R4*) echo m88k-motorola-sysv4 exit 0 ;; m88k:*:3*:R3*) echo m88k-motorola-sysv3 exit 0 ;; AViiON:dgux:*:*) if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx \ -o ${TARGET_BINARY_INTERFACE}x = x ] ; then echo m88k-dg-dgux${UNAME_RELEASE} else echo m88k-dg-dguxbcs${UNAME_RELEASE} fi exit 0 ;; M88*:DolphinOS:*:*) # DolphinOS (SVR3) echo m88k-dolphin-sysv3 exit 0 ;; M88*:*:R3*:*) # Delta 88k system running SVR3 echo m88k-motorola-sysv3 exit 0 ;; XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) echo m88k-tektronix-sysv3 exit 0 ;; Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) echo m68k-tektronix-bsd exit 0 ;; *:IRIX:*:*) echo mips-sgi-irix${UNAME_RELEASE} exit 0 ;; i[34]86:AIX:*:*) echo i386-ibm-aix exit 0 ;; *:AIX:2:3) if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then sed 's/^ //' << EOF >dummy.c #include main() { if (!__power_pc()) exit(1); puts("powerpc-ibm-aix3.2.5"); exit(0); } EOF ${CC-cc} dummy.c -o dummy && ./dummy && rm dummy.c dummy && exit 0 rm -f dummy.c dummy echo rs6000-ibm-aix3.2.5 elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then echo rs6000-ibm-aix3.2.4 else echo rs6000-ibm-aix3.2 fi exit 0 ;; *:AIX:*:4) if /usr/sbin/lsattr -EHl proc0 | grep POWER >/dev/null 2>&1; then IBM_ARCH=rs6000 else IBM_ARCH=powerpc fi if grep bos410 /usr/include/stdio.h >/dev/null 2>&1; then IBM_REV=4.1 elif grep bos411 /usr/include/stdio.h >/dev/null 2>&1; then IBM_REV=4.1.1 else IBM_REV=4.${UNAME_RELEASE} fi echo ${IBM_ARCH}-ibm-aix${IBM_REV} exit 0 ;; *:AIX:*:*) echo rs6000-ibm-aix exit 0 ;; *:BOSX:*:*) echo rs6000-bull-bosx exit 0 ;; DPX/2?00:B.O.S.:*:*) echo m68k-bull-sysv3 exit 0 ;; 9000/[34]??:4.3bsd:1.*:*) echo m68k-hp-bsd exit 0 ;; hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) echo m68k-hp-bsd4.4 exit 0 ;; 9000/[3478]??:HP-UX:*:*) case "${UNAME_MACHINE}" in 9000/31? ) HP_ARCH=m68000 ;; 9000/[34]?? ) HP_ARCH=m68k ;; 9000/7?? | 9000/8?7 ) HP_ARCH=hppa1.1 ;; 9000/8?? ) HP_ARCH=hppa1.0 ;; esac HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` echo ${HP_ARCH}-hp-hpux${HPUX_REV} exit 0 ;; 3050*:HI-UX:*:*) sed 's/^ //' << EOF >dummy.c #include int main () { long cpu = sysconf (_SC_CPU_VERSION); /* The order matters, because CPU_IS_HP_MC68K erroneously returns true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct results, however. */ if (CPU_IS_PA_RISC (cpu)) { switch (cpu) { case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; default: puts ("hppa-hitachi-hiuxwe2"); break; } } else if (CPU_IS_HP_MC68K (cpu)) puts ("m68k-hitachi-hiuxwe2"); else puts ("unknown-hitachi-hiuxwe2"); exit (0); } EOF ${CC-cc} dummy.c -o dummy && ./dummy && rm dummy.c dummy && exit 0 rm -f dummy.c dummy echo unknown-hitachi-hiuxwe2 exit 0 ;; 9000/7??:4.3bsd:*:* | 9000/8?7:4.3bsd:*:* ) echo hppa1.1-hp-bsd exit 0 ;; 9000/8??:4.3bsd:*:*) echo hppa1.0-hp-bsd exit 0 ;; hp7??:OSF1:*:* | hp8?7:OSF1:*:* ) echo hppa1.1-hp-osf exit 0 ;; hp8??:OSF1:*:*) echo hppa1.0-hp-osf exit 0 ;; C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) echo c1-convex-bsd exit 0 ;; C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit 0 ;; C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) echo c34-convex-bsd exit 0 ;; C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) echo c38-convex-bsd exit 0 ;; C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) echo c4-convex-bsd exit 0 ;; CRAY*X-MP:UNICOS:*:*) echo xmp-cray-unicos exit 0 ;; CRAY*Y-MP:UNICOS:*:*) echo ymp-cray-unicos exit 0 ;; CRAY-2:UNICOS:*:*) echo cray2-cray-unicos exit 0 ;; hp3[0-9][05]:NetBSD:*:*) echo m68k-hp-netbsd${UNAME_RELEASE} exit 0 ;; i[34]86:BSD/386:*:*) echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} exit 0 ;; i[34]86:BSD/OS:*:*) echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} exit 0 ;; *:FreeBSD:*:*) echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` exit 0 ;; *:NetBSD:*:*) echo ${UNAME_MACHINE}-unknown-netbsd`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` exit 0 ;; *:GNU:*:*) echo `echo ${UNAME_MACHINE}|sed -e 's,/.*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'` exit 0 ;; *:Linux:*:*) echo ${UNAME_MACHINE}-unknown-linux exit 0 ;; # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. earlier versions # are messed up and put the nodename in both sysname and nodename. i[34]86:DYNIX/ptx:4*:*) echo i386-sequent-sysv4 exit 0 ;; i[34]86:*:4.*:* | i[34]86:SYSTEM_V:4.*:*) if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then echo ${UNAME_MACHINE}-univel-sysv${UNAME_RELEASE} else echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE} fi exit 0 ;; i[34]86:*:3.2:*) if /bin/uname -X 2>/dev/null >/dev/null ; then UNAME_REL=`(/bin/uname -X|egrep Release|sed -e 's/.*= //')` (/bin/uname -X|egrep i80486 >/dev/null) && UNAME_MACHINE=i486 echo ${UNAME_MACHINE}-unknown-sco$UNAME_REL elif test -f /usr/options/cb.name; then UNAME_REL=`sed -n 's/.*Version //p' /dev/null 2>&1 ; then echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4 else # Add other i860-SVR4 vendors below as they are discovered. echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4 fi exit 0 ;; mini*:CTIX:SYS*5:*) # "miniframe" echo m68010-convergent-sysv exit 0 ;; M680[234]0:*:R3V[567]*:*) test -r /sysV68 && echo 'm68k-motorola-sysv' && exit 0 ;; 3[34]??:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0) uname -p 2>/dev/null | grep 86 >/dev/null \ && echo i486-ncr-sysv4.3 && exit 0 ;; 3[34]??:*:4.0:* | 3[34]??,*:*:4.0:*) uname -p 2>/dev/null | grep 86 >/dev/null \ && echo i486-ncr-sysv4 && exit 0 ;; m680[234]0:LynxOS:2.2*:*) echo m68k-lynx-lynxos${UNAME_RELEASE} exit 0 ;; PowerPC:LynxOS:2.2*:*) echo powerpc-lynx-lynxos${UNAME_RELEASE} exit 0 ;; mc68030:UNIX_System_V:4.*:*) echo m68k-atari-sysv4 exit 0 ;; i[34]86:LynxOS:2.2*:*) echo i386-lynx-lynxos${UNAME_RELEASE} exit 0 ;; TSUNAMI:LynxOS:2.2*:*) echo sparc-lynx-lynxos${UNAME_RELEASE} exit 0 ;; rs6000:LynxOS:2.2*:*) echo rs6000-lynx-lynxos${UNAME_RELEASE} exit 0 ;; RM*:SINIX-*:*:*) echo mips-sni-sysv4 exit 0 ;; *:SINIX-*:*:*) if uname -p 2>/dev/null >/dev/null ; then UNAME_MACHINE=`(uname -p) 2>/dev/null` echo ${UNAME_MACHINE}-sni-sysv4 else echo ns32k-sni-sysv fi exit 0 ;; esac #echo '(No uname command or uname output not recognized.)' 1>&2 #echo "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" 1>&2 cat >dummy.c </dev/null`; printf ("%s-next-nextstep%s\n", __ARCHITECTURE__, version==2 ? "2" : "3"); exit (0); #endif #if defined (MULTIMAX) || defined (n16) #if defined (UMAXV) printf ("ns32k-encore-sysv\n"); exit (0); #else #if defined (CMU) printf ("ns32k-encore-mach\n"); exit (0); #else printf ("ns32k-encore-bsd\n"); exit (0); #endif #endif #endif #if defined (__386BSD__) printf ("i386-unknown-bsd\n"); exit (0); #endif #if defined (sequent) #if defined (i386) printf ("i386-sequent-dynix\n"); exit (0); #endif #if defined (ns32000) printf ("ns32k-sequent-dynix\n"); exit (0); #endif #endif #if defined (_SEQUENT_) printf ("i386-sequent-ptx\n"); exit (0); #endif #if defined (vax) #if !defined (ultrix) printf ("vax-dec-bsd\n"); exit (0); #else printf ("vax-dec-ultrix\n"); exit (0); #endif #endif #if defined (alliant) && defined (i860) printf ("i860-alliant-bsd\n"); exit (0); #endif exit (1); } EOF ${CC-cc} dummy.c -o dummy 2>/dev/null && ./dummy && rm dummy.c dummy && exit 0 rm -f dummy.c dummy # Apollos put the system type in the environment. test -d /usr/apollo && { echo ${ISP}-apollo-${SYSTYPE}; exit 0; } # Convex versions that predate uname can use getsysinfo(1) if [ -x /usr/convex/getsysinfo ] then case `getsysinfo -f cpu_type` in c1*) echo c1-convex-bsd exit 0 ;; c2*) if getsysinfo -f scalar_acc then echo c32-convex-bsd else echo c2-convex-bsd fi exit 0 ;; c34*) echo c34-convex-bsd exit 0 ;; c38*) echo c38-convex-bsd exit 0 ;; c4*) echo c4-convex-bsd exit 0 ;; esac fi #echo '(Unable to guess system type)' 1>&2 exit 1 neotcl8.1.1-lite/itcl3.0.1/config/config.sub100664 15471 0 37676 6752336013 17132 0ustar damonwheel#!/bin/sh # Configuration validation subroutine script, version 1.1. # Copyright (C) 1991, 1992, 1993, 1994 Free Software Foundation, Inc. # This file is (in principle) common to ALL GNU software. # The presence of a machine in this file suggests that SOME GNU software # can handle that machine. It does not imply ALL GNU software can. # # This file is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # As a special exception to the GNU General Public License, if you # distribute this file as part of a program that contains a # configuration script generated by Autoconf, you may include it under # the same distribution terms that you use for the rest of that program. # Configuration subroutine to validate and canonicalize a configuration type. # Supply the specified configuration type as an argument. # If it is invalid, we print an error message on stderr and exit with code 1. # Otherwise, we print the canonical config type on stdout and succeed. # This file is supposed to be the same for all GNU packages # and recognize all the CPU types, system types and aliases # that are meaningful with *any* GNU software. # Each package is responsible for reporting which valid configurations # it does not support. The user should be able to distinguish # a failure to support a valid configuration from a meaningless # configuration. # The goal of this file is to map all the various variations of a given # machine specification into a single specification in the form: # CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM # It is wrong to echo any other type of specification. # First pass through any local machine types. case $1 in *local*) echo $1 exit 0 ;; *) ;; esac # Separate what the user gave into CPU-COMPANY and OS (if any). basic_machine=`echo $1 | sed 's/-[^-]*$//'` if [ $basic_machine != $1 ] then os=`echo $1 | sed 's/.*-/-/'` else os=; fi ### Let's recognize common machines as not being operating systems so ### that things like config.sub decstation-3100 work. We also ### recognize some manufacturers as not being operating systems, so we ### can provide default operating systems below. case $os in -sun*os*) # Prevent following clause from handling this invalid input. ;; -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \ -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \ -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \ -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\ -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \ -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp ) os= basic_machine=$1 ;; -hiux*) os=-hiuxwe2 ;; -sco4) os=-sco3.2v4 basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -sco3.2.[4-9]*) os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -sco3.2v[4-9]*) # Don't forget version if it is 3.2v4 or newer. basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -sco*) os=-sco3.2v2 basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -isc) os=-isc2.2 basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -clix*) basic_machine=clipper-intergraph ;; -isc*) basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` ;; -lynx) os=-lynxos ;; -ptx*) basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'` ;; -windowsnt*) os=`echo $os | sed -e 's/windowsnt/winnt/'` ;; esac # Decode aliases for certain CPU-COMPANY combinations. case $basic_machine in # Recognize the basic CPU types without company name. # Some are omitted here because they have special meanings below. tahoe | i[345]86 | i860 | m68k | m68000 | m88k | ns32k | arm | pyramid \ | tron | a29k | 580 | i960 | h8300 | hppa1.0 | hppa1.1 \ | alpha | we32k | ns16k | clipper | sparclite | i370 | sh \ | powerpc | sparc64 | 1750a | dsp16xx | mips64 | mipsel \ | pdp11 | mips64el | mips64orion | mips64orionel ) basic_machine=$basic_machine-unknown ;; # Object if more than one company name word. *-*-*) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; # Recognize the basic CPU types with company name. vax-* | tahoe-* | i[345]86-* | i860-* | m68k-* | m68000-* | m88k-* \ | sparc-* | ns32k-* | fx80-* | arm-* | c[123]* \ | mips-* | pyramid-* | tron-* | a29k-* | romp-* | rs6000-* \ | none-* | 580-* | cray2-* | h8300-* | i960-* | xmp-* | ymp-* \ | hppa1.0-* | hppa1.1-* | alpha-* | we32k-* | cydra-* | ns16k-* \ | pn-* | np1-* | xps100-* | clipper-* | orion-* | sparclite-* \ | pdp11-* | sh-* | powerpc-* | sparc64-* | mips64-* | mipsel-* \ | mips64el-* | mips64orion-* | mips64orionel-* ) ;; # Recognize the various machine names and aliases which stand # for a CPU type and a company and sometimes even an OS. 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) basic_machine=m68000-att ;; 3b*) basic_machine=we32k-att ;; alliant | fx80) basic_machine=fx80-alliant ;; altos | altos3068) basic_machine=m68k-altos ;; am29k) basic_machine=a29k-none os=-bsd ;; amdahl) basic_machine=580-amdahl os=-sysv ;; amiga | amiga-*) basic_machine=m68k-cbm ;; amigados) basic_machine=m68k-cbm os=-amigados ;; amigaunix | amix) basic_machine=m68k-cbm os=-sysv4 ;; apollo68) basic_machine=m68k-apollo os=-sysv ;; balance) basic_machine=ns32k-sequent os=-dynix ;; convex-c1) basic_machine=c1-convex os=-bsd ;; convex-c2) basic_machine=c2-convex os=-bsd ;; convex-c32) basic_machine=c32-convex os=-bsd ;; convex-c34) basic_machine=c34-convex os=-bsd ;; convex-c38) basic_machine=c38-convex os=-bsd ;; cray | ymp) basic_machine=ymp-cray os=-unicos ;; cray2) basic_machine=cray2-cray os=-unicos ;; crds | unos) basic_machine=m68k-crds ;; da30 | da30-*) basic_machine=m68k-da30 ;; decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) basic_machine=mips-dec ;; delta | 3300 | motorola-3300 | motorola-delta \ | 3300-motorola | delta-motorola) basic_machine=m68k-motorola ;; delta88) basic_machine=m88k-motorola os=-sysv3 ;; dpx20 | dpx20-*) basic_machine=rs6000-bull os=-bosx ;; dpx2* | dpx2*-bull) basic_machine=m68k-bull os=-sysv3 ;; ebmon29k) basic_machine=a29k-amd os=-ebmon ;; elxsi) basic_machine=elxsi-elxsi os=-bsd ;; encore | umax | mmax) basic_machine=ns32k-encore ;; fx2800) basic_machine=i860-alliant ;; genix) basic_machine=ns32k-ns ;; gmicro) basic_machine=tron-gmicro os=-sysv ;; h3050r* | hiux*) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; h8300hms) basic_machine=h8300-hitachi os=-hms ;; harris) basic_machine=m88k-harris os=-sysv3 ;; hp300-*) basic_machine=m68k-hp ;; hp300bsd) basic_machine=m68k-hp os=-bsd ;; hp300hpux) basic_machine=m68k-hp os=-hpux ;; hp9k2[0-9][0-9] | hp9k31[0-9]) basic_machine=m68000-hp ;; hp9k3[2-9][0-9]) basic_machine=m68k-hp ;; hp9k7[0-9][0-9] | hp7[0-9][0-9] | hp9k8[0-9]7 | hp8[0-9]7) basic_machine=hppa1.1-hp ;; hp9k8[0-9][0-9] | hp8[0-9][0-9]) basic_machine=hppa1.0-hp ;; i370-ibm* | ibm*) basic_machine=i370-ibm os=-mvs ;; # I'm not sure what "Sysv32" means. Should this be sysv3.2? i[345]86v32) basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` os=-sysv32 ;; i[345]86v4*) basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` os=-sysv4 ;; i[345]86v) basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` os=-sysv ;; i[345]86sol2) basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` os=-solaris2 ;; iris | iris4d) basic_machine=mips-sgi case $os in -irix*) ;; *) os=-irix4 ;; esac ;; isi68 | isi) basic_machine=m68k-isi os=-sysv ;; m88k-omron*) basic_machine=m88k-omron ;; magnum | m3230) basic_machine=mips-mips os=-sysv ;; merlin) basic_machine=ns32k-utek os=-sysv ;; miniframe) basic_machine=m68000-convergent ;; mips3*-*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` ;; mips3*) basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown ;; ncr3000) basic_machine=i486-ncr os=-sysv4 ;; news | news700 | news800 | news900) basic_machine=m68k-sony os=-newsos ;; news1000) basic_machine=m68030-sony os=-newsos ;; news-3600 | risc-news) basic_machine=mips-sony os=-newsos ;; next | m*-next ) basic_machine=m68k-next case $os in -nextstep* ) ;; -ns2*) os=-nextstep2 ;; *) os=-nextstep3 ;; esac ;; nh3000) basic_machine=m68k-harris os=-cxux ;; nh[45]000) basic_machine=m88k-harris os=-cxux ;; nindy960) basic_machine=i960-intel os=-nindy ;; np1) basic_machine=np1-gould ;; pa-hitachi) basic_machine=hppa1.1-hitachi os=-hiuxwe2 ;; paragon) basic_machine=i860-intel os=-osf ;; pbd) basic_machine=sparc-tti ;; pbb) basic_machine=m68k-tti ;; pc532 | pc532-*) basic_machine=ns32k-pc532 ;; pentium-*) # We will change tis to say i586 once there has been # time for various packages to start to recognize that. basic_machine=i486-`echo $basic_machine | sed 's/^[^-]*-//'` ;; pn) basic_machine=pn-gould ;; ps2) basic_machine=i386-ibm ;; rtpc | rtpc-*) basic_machine=romp-ibm ;; sequent) basic_machine=i386-sequent ;; sh) basic_machine=sh-hitachi os=-hms ;; sps7) basic_machine=m68k-bull os=-sysv2 ;; spur) basic_machine=spur-unknown ;; sun2) basic_machine=m68000-sun ;; sun2os3) basic_machine=m68000-sun os=-sunos3 ;; sun2os4) basic_machine=m68000-sun os=-sunos4 ;; sun3os3) basic_machine=m68k-sun os=-sunos3 ;; sun3os4) basic_machine=m68k-sun os=-sunos4 ;; sun4os3) basic_machine=sparc-sun os=-sunos3 ;; sun4os4) basic_machine=sparc-sun os=-sunos4 ;; sun3 | sun3-*) basic_machine=m68k-sun ;; sun4) basic_machine=sparc-sun ;; sun386 | sun386i | roadrunner) basic_machine=i386-sun ;; symmetry) basic_machine=i386-sequent os=-dynix ;; tower | tower-32) basic_machine=m68k-ncr ;; ultra3) basic_machine=a29k-nyu os=-sym1 ;; vaxv) basic_machine=vax-dec os=-sysv ;; vms) basic_machine=vax-dec os=-vms ;; vxworks960) basic_machine=i960-wrs os=-vxworks ;; vxworks68) basic_machine=m68k-wrs os=-vxworks ;; xmp) basic_machine=xmp-cray os=-unicos ;; xps | xps100) basic_machine=xps100-honeywell ;; none) basic_machine=none-none os=-none ;; # Here we handle the default manufacturer of certain CPU types. It is in # some cases the only manufacturer, in others, it is the most popular. mips) basic_machine=mips-mips ;; romp) basic_machine=romp-ibm ;; rs6000) basic_machine=rs6000-ibm ;; vax) basic_machine=vax-dec ;; pdp11) basic_machine=pdp11-dec ;; we32k) basic_machine=we32k-att ;; sparc) basic_machine=sparc-sun ;; cydra) basic_machine=cydra-cydrome ;; orion) basic_machine=orion-highlevel ;; orion105) basic_machine=clipper-highlevel ;; *) echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 exit 1 ;; esac # Here we canonicalize certain aliases for manufacturers. case $basic_machine in *-digital*) basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` ;; *-commodore*) basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` ;; *) ;; esac # Decode manufacturer-specific aliases for certain operating systems. if [ x"$os" != x"" ] then case $os in # -solaris* is a basic system type, with this one exception. -solaris1 | -solaris1.*) os=`echo $os | sed -e 's|solaris1|sunos4|'` ;; -solaris) os=-solaris2 ;; -gnu/linux*) os=`echo $os | sed -e 's|gnu/linux|linux|'` ;; # First accept the basic system types. # The portable systems comes first. # Each alternative must end in a *, to match a version number. # -sysv* is not here because it comes later, after sysvr4. -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ | -vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[345]* \ | -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \ | -amigados* | -msdos* | -newsos* | -unicos* | -aos* \ | -nindy* | -vxworks* | -ebmon* | -hms* | -mvs* | -clix* \ | -riscos* | -linux* | -uniplus* | -iris* | -rtu* | -xenix* \ | -hiux* | -386bsd* | -netbsd* | -freebsd* | -riscix* \ | -lynxos* | -bosx* | -nextstep* | -cxux* | -aout* | -elf* \ | -ptx* | -coff* | -winnt*) ;; -sunos5*) os=`echo $os | sed -e 's|sunos5|solaris2|'` ;; -sunos6*) os=`echo $os | sed -e 's|sunos6|solaris3|'` ;; -osfrose*) os=-osfrose ;; -osf*) os=-osf ;; -utek*) os=-bsd ;; -dynix*) os=-bsd ;; -acis*) os=-aos ;; -ctix* | -uts*) os=-sysv ;; -triton*) os=-sysv3 ;; -oss*) os=-sysv3 ;; -svr4) os=-sysv4 ;; -svr3) os=-sysv3 ;; -sysvr4) os=-sysv4 ;; # This must come after -sysvr4. -sysv*) ;; -xenix) os=-xenix ;; -none) ;; *) # Get rid of the `-' at the beginning of $os. os=`echo $os | sed 's/[^-]*-//'` echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 exit 1 ;; esac else # Here we handle the default operating systems that come with various machines. # The value should be what the vendor currently ships out the door with their # machine or put another way, the most popular os provided with the machine. # Note that if you're going to try to match "-MANUFACTURER" here (say, # "-sun"), then you have to tell the case statement up towards the top # that MANUFACTURER isn't an operating system. Otherwise, code above # will signal an error saying that MANUFACTURER isn't an operating # system, and we'll never get to this point. case $basic_machine in *-acorn) os=-riscix1.2 ;; pdp11-*) os=-none ;; *-dec | vax-*) os=-ultrix4.2 ;; i386-sun) os=-sunos4.0.2 ;; m68000-sun) os=-sunos3 # This also exists in the configure program, but was not the # default. # os=-sunos4 ;; *-tti) # must be before sparc entry or we get the wrong os. os=-sysv3 ;; sparc-* | *-sun) os=-sunos4.1.1 ;; *-ibm) os=-aix ;; *-hp) os=-hpux ;; *-hitachi) os=-hiux ;; i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) os=-sysv ;; *-cbm) os=-amigados ;; *-dg) os=-dgux ;; *-dolphin) os=-sysv3 ;; m68k-ccur) os=-rtu ;; m88k-omron*) os=-luna ;; *-sequent) os=-ptx ;; *-crds) os=-unos ;; *-ns) os=-genix ;; i370-*) os=-mvs ;; *-next) os=-nextstep3 ;; *-gould) os=-sysv ;; *-highlevel) os=-bsd ;; *-encore) os=-bsd ;; *-sgi) os=-irix ;; *-masscomp) os=-rtu ;; *) os=-none ;; esac fi # Here we handle the case where we know the os, and the CPU type, but not the # manufacturer. We pick the logical manufacturer. vendor=unknown case $basic_machine in *-unknown) case $os in -riscix*) vendor=acorn ;; -sunos*) vendor=sun ;; -lynxos*) vendor=lynx ;; -aix*) vendor=ibm ;; -hpux*) vendor=hp ;; -hiux*) vendor=hitachi ;; -unos*) vendor=crds ;; -dgux*) vendor=dg ;; -luna*) vendor=omron ;; -genix*) vendor=ns ;; -mvs*) vendor=ibm ;; -ptx*) vendor=sequent ;; esac basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` ;; esac echo $basic_machine$os neotcl8.1.1-lite/itcl3.0.1/config/install-sh100775 15471 0 4212 6752336013 17112 0ustar damonwheel#!/bin/sh # # install - install a program, script, or datafile # This comes from X11R5; it is not part of GNU. # # $XConsortium: install.sh,v 1.2 89/12/18 14:47:22 jim Exp $ # # This script is compatible with the BSD install script, but was written # from scratch. # # set DOITPROG to echo to test this script # Don't use :- since 4.3BSD and earlier shells don't like it. doit="${DOITPROG-}" # put in absolute paths if you don't have them in your path; or use env. vars. mvprog="${MVPROG-mv}" cpprog="${CPPROG-cp}" chmodprog="${CHMODPROG-chmod}" chownprog="${CHOWNPROG-chown}" chgrpprog="${CHGRPPROG-chgrp}" stripprog="${STRIPPROG-strip}" rmprog="${RMPROG-rm}" instcmd="$mvprog" chmodcmd="" chowncmd="" chgrpcmd="" stripcmd="" rmcmd="$rmprog -f" mvcmd="$mvprog" src="" dst="" while [ x"$1" != x ]; do case $1 in -c) instcmd="$cpprog" shift continue;; -m) chmodcmd="$chmodprog $2" shift shift continue;; -o) chowncmd="$chownprog $2" shift shift continue;; -g) chgrpcmd="$chgrpprog $2" shift shift continue;; -s) stripcmd="$stripprog" shift continue;; *) if [ x"$src" = x ] then src=$1 else dst=$1 fi shift continue;; esac done if [ x"$src" = x ] then echo "install: no input file specified" exit 1 fi if [ x"$dst" = x ] then echo "install: no destination specified" exit 1 fi # If destination is a directory, append the input filename; if your system # does not like double slashes in filenames, you may need to add some logic if [ -d $dst ] then dst="$dst"/`basename $src` fi # Make a temp file name in the proper directory. dstdir=`dirname $dst` dsttmp=$dstdir/#inst.$$# # Move or copy the file name to the temp name $doit $instcmd $src $dsttmp # and set any options; do chmod last to preserve setuid bits if [ x"$chowncmd" != x ]; then $doit $chowncmd $dsttmp; fi if [ x"$chgrpcmd" != x ]; then $doit $chgrpcmd $dsttmp; fi if [ x"$stripcmd" != x ]; then $doit $stripcmd $dsttmp; fi if [ x"$chmodcmd" != x ]; then $doit $chmodcmd $dsttmp; fi # Now rename the file to the real destination. $doit $rmcmd $dst $doit $mvcmd $dsttmp $dst exit 0 neotcl8.1.1-lite/itcl3.0.1/config/mkinstalldirs100775 15471 0 1212 6752336013 17711 0ustar damonwheel#! /bin/sh # mkinstalldirs --- make directory hierarchy # Author: Noah Friedman # Created: 1993-05-16 # Last modified: 1994-03-25 # Public domain errstatus=0 for file in ${1+"$@"} ; do set fnord `echo ":$file" | sed -ne 's/^:\//#/;s/^://;s/\// /g;s/^#/\//;p'` shift pathcomp= for d in ${1+"$@"} ; do pathcomp="$pathcomp$d" case "$pathcomp" in -* ) pathcomp=./$pathcomp ;; esac if test ! -d "$pathcomp"; then echo "mkdir $pathcomp" 1>&2 mkdir "$pathcomp" || errstatus=$? fi pathcomp="$pathcomp/" done done exit $errstatus # mkinstalldirs ends here neotcl8.1.1-lite/itcl3.0.1/CHANGES100664 15471 0 227413 6752336012 14705 0ustar damonwheel [incr Tcl] - CHANGE LOG ========================================================================== ----------------------- CHANGES FROM itcl-1.5 -------------------------- ========================================================================== Release itcl-2.0 provides a new syntax for defining classes. The new syntax is accessed using the new "itcl::class" command. For the time being, the old syntax will be supported via the old "itcl_class" command, but support for this will be phased out over time. Because both syntaxes are supported, the new version is "backward compatible" with the previous itcl-1.5 release. However, there are some semantic changes that may break existing scripts. These are listed in detail in the section "INCOMPATIBLE CHANGES". CATALOG OF NEW COMMANDS -------------------------------------------------------------------------- Following is a brief catalog of new commands available in this release. == Tcl with Namespaces ================================================= delete namespace name ?name...? Deletes one or more namespaces, destroying all commands, variables, and child namespaces within it. ensemble name { option optName arglist body option optName arglist body ... ensemble optName { option subOptName arglist body option subOptName arglist body ... } } Adds options to an ensemble called "name". If the ensemble does not already exist, it is created automatically. An "ensemble" is a toplevel command that groups a collection of sub-commands. For example, the usual Tcl "info" command is an ensemble with options like "globals", "level", "tclversion", etc. Ensembles are good for two reasons. First, new options can be integrated in without modifying any source code or "switch" statements. For example, [incr Tcl] adds the "info classes" and "info objects" commands simply by adding options to the "info" ensemble. Second, error messages are generated automatically by the ensemble mechanism. Try invoking "info" with no options and see the result. Each option declaration is just like a Tcl proc declaration, with an option name, arglist and body. Ensembles can also contain sub-ensembles with more options. import add name ?name...? ?-where pos...? import all ?name? import list ?importList? import remove name ?name...? Used to manipulate the "import" list for the current namespace. When one namespace imports another, it gains access to all of its public commands/variables as if they were part of the same namespace. In other words, one namespace can be integrated seamlessly into another by adding it to the import list of the other namespace. By default, each namespace imports its parent, so most namespaces import the global scope in some fashion. The form "import list" is used to query or set the import list for the current namespace. The form "import all" returns the namespace search path that is consulted when commands/variables are accessed. info context Returns the current namespace context. The global namespace context is reported here as "", so it is easy to build namespace paths like this: set path "[info context]::name" info namespace all ?pattern? Returns a list of namespaces found in the current namespace context, whose names match an optional string pattern. This includes children of the current namespace, and children of all imported namespaces. info namespace children ?name? Returns a list of child namespaces for namespace "name", or for the current namespace if "name" is not specified. info namespace parent ?name? Returns the parent namespace for namespace "name", or for the current namespace if "name" is not specified. info namespace qualifiers string Parses a string of the form "namesp::namesp::name", and returns the leading "namesp::namesp" scope qualifiers. info namespace tail string Parses a string of the form "namesp::namesp::name", and returns the trailing "name" element. info protection ?-command? ?-variable? name Returns the protection level for an element. By default, "name" is treated as a command name, but the "-command" or "-variable" flags can be used to request a specific treatment. info which ?-command? ?-variable? ?-namespace? name Reports the full namespace path (e.g., "::namesp::namesp::name") for an element. By default, "name" is treated as a command name, but the "-command", "-variable" and "-namespace" flags can be used to request a specific treatment. namespace name ?-local? ?-enforced val? ?--? ?commands? This is the usual mechanism for creating a namespace and defining elements within it. If namespace "name" does not exist, it is created automatically. The namespace name may include a full namespace path (e.g., "namesp::namesp::namesp"). During the search for this namespace, all imported namespaces are consulted. If the "-local" flag is specified, then the search is restricted to the local namespace; this prevents against accidentally importing a namespace if the intent is to create a child namespace. If the "-enforced" flag is specified, then "val" is treated as a boolean value; if true, then command/variable enforcement is turned on for this namespace. Each time a new command is referenced within the namespace, Tcl automatically calls a procedure: enforce_cmd with the of the command that is about to be executed. The "enforce_cmd" proc can return an error, and access to that command will be denied. It can return another command name, or a more specific namespace path, and that command will be used instead. Or it can return "", and command lookup will continue via the normal namespace rules (i.e., in local scope, imported namespaces, etc.). Each time a new variable is referenced within an enforced namespace, Tcl automatically calls a procedure: enforce_var with the of a global variable that is being referenced. The "enforce_var" proc can return an error, and access to that variable will be denied. It can return another variable name, or a more specific namespace path, and that variable will be used instead. Or it can return "", and variable lookup will continue via the normal namespace rules (i.e., in local scope, imported namespaces, etc.). Note that command/variable enforcement done at the Tcl language level can be slow. There is also a C language interface for the same functionality, which offers much better performance. The namespace is first found and updated with whatever flags were specified. After that, if a "commands" string was specified, it is executed in the context of the namespace. public command ?arg arg...? protected command ?arg arg...? private command ?arg arg...? These commands attach a particular protection level to whatever commands or variables are created while executing the specified command. They are used in conjunction with commands like "proc" and "variable" to create public/protected/private elements. scope string code ?-namespace name? command ?arg arg ...? @scope namespace value The "scope" command takes a string and encodes it into an "@scope" declaration. The "code" command performs a similar function, but accepts multiple arguments and is usually used to wrap up code fragments. The "@scope" declaration keeps a value (like a variable name or code fragment) together with its context namespace. It can be executed like an ordinary command: set cmd {@scope :: puts} $cmd "hello world!" or used as an ordinary variable name: set var {@scope :: auto_path} lappend $var /usr/local/mylib The difference, however, is that an "@scope" value bypasses the usual access protections and guarantees that values have the proper scope. Ordinary variable names refer to variables in the global namespace. Ordinary code fragments are usually interpreted by extensions like Tk in the global namespace. The "scope" and "code" commands are used to wrap up variable names and code fragments to preserve the namespace context. For example: namespace foo { private variable state 0 private proc show_state {mesg} { global state puts "$mesg: $state" } checkbutton .cb -text "Toggle" \ -variable [scope state] \ -command [code show_state "current state"] pack .cb } In this example, the checkbutton is tied to the variable "foo::state" and executes the command "foo::show_state" whenever it is pressed. When a Tk widget uses commands and variables within a namespace, these names should be wrapped up as scoped values, as shown above. variable name ?value? Creates a variable called "name" and initializes it to an optional value. This is normally used in conjunction with public, protected and private commands to declare variables within a namespace: namespace foo { public variable x 0 private variable y 1 } If the variable "name" already exists, it updated to have the protection level that is currently active. == Tk with Namespaces ================================================== bind... Recognizes and expands the following fields within command strings: %q => Replaced with the fully-qualified access command for the widget receiving the event. For example, namespace foo { namespace bar { button .b -text "Hello World!" } } The fully-qualified access command for this widget is "::foo::bar::.b". The "%q" field should be used instead of "%W" as the widget access command: bind Button "%q flash; %q invoke" %M => Replaced with the window path name of the mega-widget containing the window receiving the event. For example, if an "entryfield" mega-widget ".x" contains an entry widget ".x.entry", bindings added to ".x.entry" will replace "%M" with ".x". This allows generic bindings to be added to component widgets which affect the mega-widget as a whole. For this to work properly, mega-widget packages must register their component widgets using Itk_SetMegaWidget(). winfo command window Returns the fully-qualified access command for the widget "window". This is equivalent to the "%q" field in bindings, and is useful in procedures where the only the window name is known: foreach kid [winfo children $win] { [winfo command $kid] configure -bg blue } winfo megawidget window Returns the window path name of the mega-widget containing "window" as a component. This is equivalent to the "%M" field in bindings, and is useful in procedures where only the component window name is known. For this to work properly, mega-widget packages must register their component widgets using Itk_SetMegaWidget(). == [incr Tcl] ========================================================== delete class name ?name...? Deletes one or more object classes. Deleting a class also causes all derived classes, and all objects belonging to the class, to be deleted as well. delete object name ?name...? Deletes one or more objects. If the access command for an object resides in another namespace, then the full namespace path should be used: delete object foo::bar::x info classes ?pattern? Returns a list of all classes in the current namespace whose names match an optional string pattern. info objects ?-class className? ?-isa className? ?pattern? Returns a list of all objects whose names match an optional string pattern. If the "-class" option is specified, then the list is further restricted to those objects whose most-specific class is "className". If the "-isa" option is specified, then the list is further restricted to those objects who belong to class "className". itcl::class name { definition } Used to create define a new class "name". The "definition" commands include: inherit baseClass ?baseClass...? constructor arglist ?init? body destructor body method name ?arglist? ?body? proc name ?arglist? ?body? variable name ?init? ?config? common name ?init? public command ?arg arg...? protected command ?arg arg...? private command ?arg arg...? Note that the constructor statement has changed to include an optional "init" argument. This is an initialization statement that can be used to call out base class constructors. If it is not included, base classes are constructors are invoked automatically without any arguments. The "variable" statement is now used to create object-specific data members. The "common" statement is used to create "common" variables, which are global within the class namespace. Both types of variables can be designated public, protected or private. itcl::body class::func arglist body Used to define the body of a class member function outside of the class definition. If "body" declarations are kept in a separate file, they can be sourced again and again to test changes as bugs are fixed. If an "arglist" is specified in the class definition, then the "arglist" for the body definition must have the same meaning. itcl::configbody class::option body Similar to the "body" command, but used to define the configuration code for a public variable. itcl_class name { old-style-definition } \__ backward compatibility itcl_info option ?arg arg...? / == [incr Tk] =========================================================== itcl::class name { ... itk_option define -switch resName resClass initVal ?configCode? } The "itk_option define" command is recognized at the level of the class definition. It defines a new mega-widget option with the given switch name and X11 resource database names. The "initVal" is used as a last resort to initialize the option if no other value can be queried from the X11 resource database. If "configCode" is specified, it is executed whenever the option is modified via the "configure" method. The "configCode" can also be specified outside of the class definition via the "itcl::configbody" command. Methods provided by itk::Archetype base class: component component name component name command ?arg arg...? Used to query or access components within a mega-widget. With no arguments, this returns a list of component widgets that are accessible in the current scope. Note that component widgets obey any public/protected/private access restriction that is in force when the component is created. With one argument, this returns the window path name for a component with the symbolic name "name". In any other case, the remaining arguments are invoked as a method on the component with the symbolic name "name". configure configure option configure option value ?-switch value...? Works just like the usual Tk configure method, but for mega-widgets. Here options are really composite widget options. When set, they trigger changes to many different internal components, and may invoke many bits of "configCode" for options defined by "itk_option define". However, there is only one value for the composite option. cget option Works just like the usual Tk cget method, but for mega-widgets. Returns the current value for a composite widget option. itk_component add name {create-commands} ?{option-commands}? Adds a new mega-widget component with the symbolic name "name". Invokes the "create-commands" to create the component, and invokes "option-commands" to integrate its options into the composite list. By default, no options are integrated. Options may be added using the following commands: keep option ?option...? ignore option ?option...? rename oldswitch newswitch resname resclass usual ?tag? itk_component delete name ?name...? Deletes an existing mega-widget component with the symbolic name "name". The component will still exist as a widget, but it will no longer be accessible as a component for this mega-widget. Any options associated with the component are removed from the composite list. Note that you can destroy a component like any ordinary widget: destroy .foo.bar.b Components automatically detach themselves from their mega-widget parent when destroyed, so "itk_component delete" is not used very often. itk_option add option ?option...? \__ class::option itk_option remove option ?option...? / component.option Adds or removes an option from the composite option list for a mega-widget. These commands cannot be used at the level of the class definition; they must be invoked for a particular mega-widget. They usually appear in the constructor for a mega-widget class, to add or redefine options in components created by a base class. For example, the base classes itk::Toplevel and itk::Widget keep only the bare minimum options for their "hull" component: -background and -cursor. If you want your mega-widget to have a border around it, you can add the hull options back in: itcl::class MyWidget { inherit itk::Widget constructor {args} { itk_option add hull.borderwidth hull.relief } } itk_initialize ?option value option value...? Initializes the composite option list for a mega-widget. This method should be invoked within the constructor for each mega-widget class. It is usually included the end of the constructor, below the component creation code. It integrates all "itk_option" options defined in the current class into the composite configuration list, and includes "-option value" settings usually received as arguments to the constructor. When this is executed in the most-specific class, it scans through the composite option list and makes sure that all options have been properly initialized. itk::usual tag ?commands? Used outside of a mega-widget class definition to declare the "usual" option-handling commands for the mega-widget. These commands suggest how the configuration options should be handled if the mega-widget becomes a component of an even larger mega-widget. They include commands like "keep" and "rename". INCOMPATIBLE CHANGES -------------------------------------------------------------------------- >> Object construction/destruction now follows C++ model. In the previous release, object construction started at the most-specific constructor. Base class constructors could be called out explicitly within the body of a constructor. If they were not, they were invoked implicitly when the constructor finished executing. This led to a construction model that was backward from C++, and contrary to what most people expected. Destructors were backwards in a similar manner. In the current release, object construction starts at the least-specific class in the hierarchy, and proceeds to the most-specific class. Therefore, each base class is fully constructed before the derived class constructor is executed. Arguments are now passed to base class constructors through an optional "initialization" statement. This statement is included between the argument list and the body of the constructor, so the syntax is reminiscent of C++: class Base { constructor {x y} { ...constructor body... } } class Derived { inherit Base constructor {x y z} { Base::constructor $x $y << "initialization" } { ...constructor body... } } Note that variables from the argument list (e.g., $x and $y) can be referenced within the initialization statement. With multiple inheritance, each of the base class constructors can be called out individually. Object destruction is the exact opposite of construction. It proceeds from most-specific to least-specific class. >> All class methods are now implicitly virtual In the previous release, all method names were interpreted with respect to the current class scope and its base classes. If you wanted a method to act virtual, you had to explicitly preface it with the "virtual" command each time you used it. This proved to be error prone. In the new release, all methods are virtual by default. If you invoke a method with a simple name, the most-specific method with that name will be invoked, regardless of your class scope: class Base { constructor {} {show} method show {} {puts "Base::show"} } class Derived { inherit Base constructor {} {show} method show {} {puts "Derived::show"} } The method "show" called out in the constructors for both of these classes is virtual. When Base::constructor is executed it finds the most-specific "show" method and prints "Derived::show". When Derived::constructor is executed, it finds the most-specific "show" method and prints "Derived::show" again. If you want to invoke a particular method, you have to scope it explicity: class Base { constructor {} {Base::show} method show {} {puts "Base::show"} } class Derived { inherit Base constructor {} {Derived::show} method show {} {puts "Derived::show"} } >> Within class methods/procs the "global" command now refers to variables within the class namespace. In the previous release, the "global" command was used to access variables at the global scope. The "global" command now refers to variables that are "global" within the current namespace context. Within the scope of a class, this refers to "global" class variables. Note that common data members are global variables, but they can be accessed transparently, without any special "global" declaration. You can also create ordinary global variables within a class, but you will have to declare them each time they are used with a "global" statement. The new scheme will allow classes to have their own private global variables (e.g., for interacting with widgets) without flooding the global namespace. If you really want to access a variable at the "::" global scope, use its complete path name: itcl::class Foo { method getenv {name} { global ::env return $env($name) } } >> "this" variable used to be included in every class scope In the previous release, each class scope included a separate "this" variable containing the object name. There is now only one "this" variable, kept in the most-specific class scope. It can still be referenced as if it belongs to all classes, e.g., "Base::this", "Derived::this". This change is probably not important to most applications. But it did break my test suite, which expected to find many different "this" variables coming back from the "info" command. >> "this" variable now contains complete namespace path for the object access command This change will break many scripts written for mega-widgets. In the previous release, mega-widgets had a window name and an access command name that were interchangeable. For example, you would create a widget ".dialog" and configure it using the ".dialog" command. Inside of this widget there was a "this" variable containing the name ".dialog". In the current release, an object can exist in any namespace, so the complete namespace path is a part of the object's identity. Instead of just ".dialog", the "this" variable will now contain a name like "::.dialog" or "::foo::.dialog". But the window name is still just ".dialog". Scripts that used to use "$this" as a window name: wm title $this "Dialog" must now use the [incr Tk] "hull" component instead: wm title $itk_component(hull) "Dialog" If for some other reason you need the simple object name at the end of the namespace path, you can get at it using the "info namespace tail" command: set oldthis [info namespace tail $this] >> "#auto" generated names now start with lower-case letter In the previous release, "#auto" could be used in place of an object name to produce an automatically generated name: Toaster #auto -heat light The names were generated by adding a unique number onto the class name: "Toaster0", "Toaster1", etc. The current release supports the same functionality, except that the names generated are guaranteed to start with a lowercase letter: "toaster0", "toaster1", etc. This helps out in the mega-widget arena, where window names must start with lowercase letters. >> "config" argument used to allow multiple default values The magic "config" argument used to allow multiple default values, which were simply concatenated into a single value before processing. For example, in the previous release you could say: itcl_class Foo { method test {x y {config -foo 0 -bar 0}} { ... } } and if the "test" method was used without extra configuration arguments, they would default to "-foo 0 -bar 0". In the current release, you must make the default value for a "config" argument a single string: itcl::class Foo { method test {x y {config "-foo 0 -bar 0"}} { ... } } >> "info class" now acts "virtual" In the previous release, the "info class" command would report the current class context. In a base class method, it would report the base class name, and in a derived class method, it would report the derived class name. If you wanted to know the most-specific class for an object, you would have to use the "virtual" command explicitly: itcl_class Base { method whatAmI {} { return [virtual info class] } } The "info" command is now virtual by default, as long as an object context is present. This means that you can drop the "virtual" command: itcl::class Base { method whatAmI {} { return [info class] } } If you really want to know the current class scope, use the "info context" command instead to query the current namespace context. If an object context is not present (i.e., in the body of a common class "proc"), the "info class" command reverts to the current class context, the same as the "info context" command. >> Library procedures "itcl_unload" and "itcl_reload" have been removed In the previous release, the library procedure "itcl_unload" provided a way of deleting a class. You can now do the same thing using the "delete class" command: delete class Toaster This deletes the specified class, all derived classes, and all objects belonging to this class. If autoloading is set up, you can reload a deleted class just by invoking its name. The old "itcl_reload" function is now trivial: proc itcl_reload {class} { delete class $class $class } >> Class definition no longer recognizes ordinary Tcl commands. As an undocumented "feature" of the previous release, you could include ordinary Tcl commands in the body of your class definition. For example: itcl_class Foo { ... if {$somevar} { public foo } } In the new release, only class definition commands are allowed within the body of a class definition. You can, however, use Tcl commands outside of the class definition to modify the class definition as a string, and then define the class: set defn { method test {} {return "test"} } if {$somevar} { append defn "public variable foo" } class Foo $defn IMPROVEMENTS -------------------------------------------------------------------------- >> an object can be renamed by renaming its access command In the previous release, an object's identity was fixed when it was created. In the new release, the object is tied directly to its access command. If you rename the access command, you have renamed the object. The "this" variable automatically keeps in sync with name changes. If you delete the access command, you automatically delete the object. Toaster new -heat light rename new fred << rename Toaster fred toast 2 fred toast 1 rename fred "" << delete Toaster >> Bodies of methods, procs and public variables can be defined outside of the class definition, and can be redefined on the fly. In the previous release, all of the code related to a class was defined within the class definition. This kept everything together in one place, but it made it difficult to get an overview of the class interface. In the new release, bodies can be defined outside of the class definition, perhaps in a separate file. When debugging, the implementations can be fixed and sourced again and again, without having to delete existing objects and classes. Use the "itcl::body" command to redefine the body of a class method or proc. Use "itcl::configbody" to redefine the configuration code associated with a public variable. For example: itcl::class Toaster { constructor {args} { eval configure $args } destructor { if {$crumbs > 0} { error "cannot destroy dirty toaster: clean first" } } method toast {nslices} method clean {} public variable heat 3 protected variable crumbs 0 } itcl::body Toaster::toast {nslices} { if {$nslices < 1 || $nslices > 2} { error "bad number of slices: should be 1 or 2" } set crumbs [expr $crumbs+$heat*$nslices] if {$crumbs >= 50} { puts stderr "== FIRE! FIRE! ==" } } itcl::body Toaster::clean {} { set crumbs 0 } itcl::configbody Toaster::heat { if {$heat < 1 || $heat > 5} { error "invalid setting \"$heat\": should be 1-5" } } If an argument list is specified in the class definition, then the same argument list must be used when the implementation is redefined. The variable names can change, but the meaning of the arguments must be the same. If you leave the argument list out of the class definition, or if you include the "args" argument, the argument list can change. >> C procedures can be integrated into class definitions Any method body that is specified as "@symbol" is treated as a reference to a C procedure with the symbolic name "symbol". Symbolic names are established by registering C procedures via the Itcl_RegisterC() procedure. This is usually done when the interpreter starts up in the Tcl_AppInit() procedure: if (Itcl_RegisterC(interp, "foo", My_FooCmd) != TCL_OK) { return TCL_ERROR; } This registers a procedure My_FooCmd() with the symbolic name "foo". It can be used as the implementation for a class method, proc, or bit of configuration code simply by specifying "@foo" in place of the Tcl code body. These C procedures are just like ordinary Tcl command handlers. They take the usual arguments: int My_FooCmd(ClientData cdata, Tcl_Interp *interp, int argc, char** argv) { ... return TCL_OK; } including the (argc,argv) arguments from the command line. But before these procedures are invoked, the proper class scope is established so that object data members can be accessed as if they were ordinary variables via Tcl_GetVar() and Tcl_SetVar(). Look at the [incr Tk] base class itk::Archetype as an example for integrating C code. >> "#auto" can be buried within an object name: ".x.y.z.#auto" In the previous release, "#auto" was a keyword that could be used in place of an object name. It can now be used as a part of the object name, making it easier to generate automatic names for mega-widgets. >> Every object now has built-in "configure" and "cget" methods that follow the Tk paradigm. For [incr Tk] widgets, they follow the paradigm exactly. The ordinary [incr Tcl] objects, the X11 resource values are missing. >> There is no longer a built-in "delete" method, so classes can define their own "delete" operations. Instead of "objName delete", use the new "delete object" command: Toaster fred -heat dark delete object fred >> All data members can be declared public, protected or private. Private data members can only be accessed in the class where they are defined. Protected data members can be accessed in the defining class and all derived classes. Public data members can be accessed like protected data members, but are also recognized as configuration options by the built-in "configure" and "cget" methods. >> In [incr Tk], options are now defined outside of the constructor, at the level of the class definition. >> In [incr Tk], configuration options belonging to components created in a base class can be added or removed in derived classes. The base classes "itk::Toplevel" and "itk::Widget" are now stripped down to the bare minimum options. For example, if you want to add "-width" and "-height" options for the hull component, do this using the "itk_option" command in the body of the constructor: class MyWidget { inherit itk::Widget constructor {args} { itk_option add hull.widget hull.height ... } } Options can be added and removed on-the-fly during normal operation, but this is not recommended, since it could lead to a confusing interface. >> In [incr Tk], components can now be added or removed on-the-fly. The "itk_component" method now supports "add" and "delete" operations that are used to add/delete components. >> All [incr Tk] widgets can be destroyed like normal Tk widgets. If you destroy a component widget, for example, it will automatically remove itself from its parent via "itk_component delete". Likewise, when a parent widget is destroyed, it will automatically destroy all component widgets. >> In [incr Tk], the "itk::Archetype::component" method now provides access to mega-widget components. In the previous [incr Tk] prototype, the "component" method had a different syntax and only supported query operations. You can now access an internal component via the "component" method using its symbolic name: .dialog component hull configure -width 450 -height 500 This example accesses the "hull" component of the ".dialog" mega-widget, and sets the width and height options. ========================================================================== ---------------------- RELEASE 2.0beta - 9/6/95 ------------------------ ========================================================================== 9/8/95 (bug fix) Fixed menus to work properly within namespaces. Menu library code now recognizes the proper namespace context for all "-menu" options. 9/8/95 (new feature) Added "winfo command name" option to report the scoped access command for a given window. 9/8/95 (configuration changes) - fixed "sed" invocation in iwidgets Makefile - added configuration guesses for Tadpole Sparcbook - added George Howlett's test for "gcc", so that "-fwritable-strings" is added even if gcc is masquerading as "cc" - fixed tcl/tk configure scripts to have default prefix "/usr/local/itcl" or wherever itclsh/itkwish is installed - fixed makefiles to use $(MAKE) instead of "make" 9/9/95 (bug fix) Protected references to obj->accessCmd to avoid seg faults when an object is being destroyed. 9/9/95 (new features) Changed the syntax of the "namespace" command: namespace name ?-local? ?-hidden val? ?-enforced val? ?--? ?commands? Flags now follow the namespace name, and the "commands" body is optional. The "-hidden" option allows a namespace to be hidden during "info namespace all" queries. The "-enforced" option turns command/variable enforcement on or off. Update "info namespaces all" command to allow for display of hidden namespaces: info namespaces all ?-hidden? ?pattern? 9/10/95 (bug fix) Fixed "auto_mkindex" to work properly for procs defined within namespaces. Added support for itcl::class, itcl::body and itcl::configbody as well. Added tests for tclIndex file generation. 9/11/95 (configuration changes) Fixed makefiles to reference sources and libraries properly, so it should be possible to build different object trees for different platforms with "gmake". 9/13/95 (configuration changes) Added "AC_C_CROSS" to configure files, so configuration should work properly on Solaris 2.4. 9/13/95 (bug fix) Changed option configuration to work synchronously, and added "itk_initialize" command to initialize the configuration options for each mega-widget class. The original behavior of handling option changes via "do-when-idle" has been removed. 9/13/95 (bug fix) Changed all structure members called "namespace" to "namesp". This allows the code to compile correctly under C++. 9/13/95 (configuration changes) - added support for "i[34]86:BSD/OS" in "config/config.guess" - fixed "test" target for iwidgets 9/13/95 (bug fix) Fixed "global" command and other places where namespace paths are parsed to allow for a single ":" in command/variable names. 9/13/95 (bug fix) Fixed a problem which caused class-based options to be lost when a widget class was defined within a proc. 9/14/95 (bug fix) Fixed class access command so that when it is deleted, it automatically destroys the class. This also fixed a seg fault that occurred when an object's access command stomped on the class access command. 9/14/95 (enhancement) Fixed "scope" command and the @scope facility so that null strings can be passed around without all of the extra scoping info. ========================================================================== ----------------------- RELEASE 2.0b2 - 9/14/95 ------------------------ ========================================================================== 9/15/95 (enhancement) Changed error messages reported when a class method/proc gets the wrong number of arguments to report the usage information, like: {wrong # args: should be "obj foo x y ?arg arg...?"} 9/18/95 (bug fix) Fixed a seg fault that occurred when the "cget" method was called with no args. 9/18/95 (bug fix) Fixed a bug that caused private variables in a base class to be uninitialized, even if an initial value was specified in the class definition. 9/22/95 (configuration changes) Added the "SHELL=/bin/sh" statement to the main makefile. This fixes build problems on SGI machines. 10/9/95 (paradigm shift) Removed the implicit scoping from any facility that takes a command or variable name. Implicit scoping made it difficult to pass a command string or variable name into a wrapper proc and yet preserve the scope that it came from. All scoping is now explicit. All commands and variables are interpreted in the global "::" scope unless they are wrapped in an "@scope" declaration. Commands can be wrapped up like this: button .b -text "Push Me" -command [code .b configure -bg red] Variable names can be wrapped up like this: radiobutton .rb1 -text "Choice #1" -variable [scope mode] -value 1 The "code" and "scope" commands wrap up strings with an "@scope" specification which preserves the namespace context. 10/17/95 (paradigm shift) Changed the "%C" option of the "bind" command to return a scoped command of the form "@scope namespace widget" that can be used to access the widget. "%C" should be used instead of the usual "%W" window name when attempting to access the widget. Bindings should be written like this: bind Entry {%C configure -bg white} bind Entry {%C configure -bg gray} The command "%C" can be used to access the widget regardless which namespace it belongs to. 10/31/95 (enhancement) Fixed "unknown" command to support a general facility for adding unknown command handlers. The "unknown_handler" proc is used to register new handlers. Each time an unknown command is encountered, each of the handlers is invoked to attempt to handle the command. If a handler returns "-code continue", control passes to the next handler on the list. Handlers are invoked in the order opposite to the way they were registered. Extensions can use this facility to add their own handlers into the "unknown" scheme. 11/7/95 (enhancement) Added a "backward-compatibility" mode to [incr Tcl]. By default, widget names can now be used as access commands in any namespace, even if the widget access command exists in another namespace. This emulates the normal Tk behavior that widgets are global resources in the application that can be accessed anywhere. This behavior can be disabled by setting the global variable "itcl_purist" to "1". When this variable is set non-zero, care must be used to use "%C" or "[winfo command %W]" as an access command when the widget is used outside of the namespace that contains it. From the standpoint of the object-oriented paradigm, the "purist" mode is better since it supports encapsulation. The "backward-compatible" mode, however, allows [incr Tcl] to work better with existing Tk applications and extensions. 11/22/95 (bug fix and enhancement) Fixed the built-in "info" command for classes to include the "info classes" and "info objects" queries. These were initially overlooked in a hard-wired list of "info" queries. Fixed the ensemble facility in general to support unknown options via an "@error" handler. Any option registered with the name "@error" is treated as an error handler for the ensemble. Arguments passed to the option include the ensemble name, the unknown option, and all remaining arguments. For the built-in "info" command, the "@error" handler passes any unknown options to the usual Tcl "info" command, so all of the standard options are automatically available. 11/23/95 (bug fix) Fixed usual tkerror dialog to truncate error messages at 5 lines. The usage information returned by an ensemble or itcl object can be much longer, causing the "Stack Trace" button to get lost in many cases. 11/27/95 (bug fix) Removed the constructor/destructor from the list of public methods returned as usage information when an unknown method is encountered on an object. 12/2/95 (bug fix) Fixed error reporting for object construction. Used to say something like "object constructor x y z" which made it look like a method invocation. Now says "class object x y z" which looks more like the call that the user made to trigger the error. 12/4/95 (bug fix) Fixed class creation and object creation to avoid clobbering existing commands with new class/object access commands. This prevents all hell from breaking loose when a command like "class set {...}" is invoked. 12/6/95 (configuration changes) Fixed parsing of namespace paths to use local storage instead of assuming that strings are writable. This means that the "-fwritable-strings" option is no longer necessary for GCC and other compilers that store static strings in the program text segment. This option has been removed from all "configure.in" files. Linux users will no longer see core dumps on start-up. 12/8/95 (bug fix) Fixed "upvar" so that class data members can be accessed from another calling procedure. This fixed a problem with using "parray" from within class methods. 12/9/95 (bug fix) Fixed "@scope" variable references so that variables can be created using "@scope" in any context and referenced later. 12/9/95 (feature change) Removed "-hidden" option from namespaces. It seemed to complicated and quirky to explain on the man page. Instead, all parser namespaces like "scope-parser" and "mkindex-parser" are grouped into a "::tcl" namespace. This keeps them somewhat hidden even without any special treatment. 12/9/95 (minor enhancement) Added "array" command to class definition parser, so it can be used along with "set" to initialize common arrays. 12/10/95 (paradigm shift) Removed the "%C" pattern from the expansions recognized by the "bind" command, in favor of the following scheme: %W ........ name of widget receiving event %M ........ name of mega-widget containing widget receiving event %q ........ fully-qualified command name of widget receiving event %Q ........ fully-qualified command name of mega-widget receiving event Fixed "winfo command" to return the fully-qualified command name of a widget (instead of a scoped access command) to be consistent with the "%q" bind pattern. 12/10/95 (bug fix) Fixed Tk library code to use "%q" and "winfo command", so that the default widget behaviors will work even in "itcl_purist" mode. 12/11/95 (minor enhancement) Added "winfo megawidget" query, which will return the name of the mega-widget containing a specified component widget. In order for this to work, a mega-widget package must use the procedure Itcl_SetMegaWidget() to register each component as it is added to a mega-widget. 12/12/95 (bug fix) Fixed Archetype base class to keep all options sorted in alphabetical order. This way they can be reported back by the "configure" method in alphabetical order. Options are now initialized by "itk_initialize" in alphabetical order as well. 12/12/95 (bug fix) Fixed the Archetype base class to register each component widget with Tk via Itk_SetMegaWidget(). This means that "winfo megawidget" and "%Q" can be used to reference the containing mega-widget for any component. 12/12/95 (bug fix) Fixed the "configure" method in the Archetype base class so that when an error is encountered while setting a configuration option, the option is set back to its previous value. 12/12/95 (bug fix) Fixed the "itk_component add" method to find access commands for components even if they are created in the global scope. Components that are meant to be shared can be created using "uplevel #0". The access command for this component will be installed in the global scope, and therefore available to all other namespaces. Syntactic sugar like a "-global" option would be nice, but references like $itk_component(...) must be substituted in the calling scope, and it is not possible to get these properly substituted and still maintain the boundaries around arguments. 12/12/95 (bug fix) Fixed Archetype base class to handle public/protected/private components properly. The usual public/protected/private commands can be used in conjunction with "itk_component add" to set the protection level of a component. The protection level affects the action of the "component" method. Public components are reported in any namespace, and are accessible from any namespace. Protected components are accessible within a base class and derived classes. Private components are accessible only within the class where they are defined. This feature can be used to keep unimportant components (such as frames) off of the component list that a client would see. 12/13/95 (enhancement) Added "usual" and "ignore" commands for processing component widget configuration options. The "usual" command finds the usual code fragment for the widget class of the component, and executes it. The command "itk::usual" can be used to register option code for new widget classes. The "ignore" command can be used to override previous "keep" and "rename" commands. This is useful for removing options that the "usual" code keeps or renames. Fixed the "itk_component add" command so that if the option handling code is not specified, the "usual" command is invoked automatically. 12/13/95 (bug fix) Fixed the Archetype base class to handle the immutable Tk options properly. Options like -class, -colormap, -screen and -visual can only be set at creation time. The itk_option array is now properly initialized to report their creation value. 12/14/95 (bug fix) Fixed "itk_option add" command to report errors properly for unknown options. 12/14/95 (bug fix) Fixed "body" command to report errors properly for unknown functions. 12/14/95 (bug fix) Fixed a bug in the handling of TCL_GLOBAL_ONLY flag when looking up class variables. Previously, this was ignored, so object-specific variables could be accessed in a "global" context by Tk widgets. This caused some strange behavior when object-specific variables were used in conjunction with widget options like "-textvariable". Tk widgets now properly interact with classes via global variables. 12/14/95 (bug fix) Fixed "auto_mkindex" to recognize procs within class definitions and add them to the "tclIndex" file. 12/15/95 (bug fix) Fixed "body" command to find functions only in the specified class. The bug caused a base class method to be redefined whenever a "body" command was issued for a derived class if the method was not declared in the derived class. Made a corresponding fix to the "configbody" command for public variables. 12/15/95 (enhancement) Added the following commands to the class definition parser: bind, scope and code. This allows generic class bindings to be included in the body of a class definition. 12/15/95 (enhancement) Added "-clientdata" option in itk::Archetype base class so that all widgets will have an extra field for client data. For application developers, this may come in handy. 12/16/95 (bug fix) Fixed the itk::Archetype base class so that if "itk_option add" or "itk_option remove" is called for ordinary class-based options before "itk_initialize" (which normally integrates them in) it does not cause a problem. 12/17/95 (bug fix) Fixed namespace resolution so that a command/variable with a specific path like "itk::body" will not be found in another imported namespace. For the import list to be followed, the command name must be generic like "body". 12/19/95 (configuration changes) Changed from generic directories like "tcl" and "tk" to directory names with version numbers like "tcl7.4" and "tk4.0". 12/19/95 (bug fix) Changed names like "itcl_library" and "itcl_purist" to "itcl::library" and "itcl::purist". This makes more sense in the documentation, since the underbar stuff is no longer needed with namespaces, and extension writers are discouraged from using it. 12/21/95 (bug fix) Changed handling of argument lists for functions with Tcl or C implementations. All argument lists are now treated as Tcl argument specifications. For Tcl implementations, this determines what arguments are available in the body of the procedure; for C implementations, this merely gives the intended usage information for the function (the C implementation may choose to ignore this and do something else). This fix makes it easier to override C implementations with Tcl procedure bodies. 12/25/95 (bug fix) Split the usual TCL_GLOBAL_ONLY flag into two meanings: TCL_GLOBAL_ONLY now means "a global variable in the global namespace", and ITCL_GLOBAL_VAR means "a global variable in the current namespace". This enhancement fixes Tk (and many other extensions) which request global variables. A plain variable name together with TCL_GLOBAL_ONLY is now interpreted as an ordinary Tcl global variable, so the behavior is backward-compatible. A scoped variable reference will work properly with namespaces. If extension writers get more ambitious, they can start using the ITCL_GLOBAL_VAR flag, which will make their extensions namespace-friendly. 12/26/95 (bug fix) Fixed "@scope" command so that extra arguments added at the end are kept as proper list elements when added to the command string. This makes sure that boundaries around Tcl words are not lost when the scoped command is interpreted. 12/28/95 (minor enhancement) Added "config" method to the Archetype base class as an alias for the usual "configure" method. Many Tk applications use "config" as an abbreviation for "configure", so this fix improves compatibility with other packages. 12/28/95 (bug fix) Fixed Itcl_SaveInterpState() and Itcl_RestoreInterpState() to properly save/restore the interp state even for commands like Tcl_SetCmd(), which are sloppy about setting the interpreter result. This fixed bad memory references that were encountered in enforced namespaces. 12/28/95 (bug fix) Fixed Itcl_DeleteNamesp() to allow variable traces to be fired off properly when a namespace is destroyed. 12/30/95 (bug fix) Fixed the Archetype base class to do the "ignore" operation properly for mega-widget options. A bug was causing a single "ignore" request not only to eliminate the desired option, but to eliminate options that were renamed to the "ignore" name as well. ========================================================================== ------------------------ RELEASE 2.0 - 12/31/95 ------------------------ ========================================================================== 1/2/96 (cleanup) Fixed some compiler warnings reported by Christopher Hylands (cxh@EECS.Berkeley.EDU) 1/4/96 (cleanup) Fixed the description of the last test in itk/tests/option.test. 1/4/96 (cleanup) Fixed code examples in man pages. Lines starting with "." now start with the null character "\&", to avoid errors with troff. 1/5/96 (bug fix) Fixed a bug in tkMenuUnpost. Popup menus associated with something other than a menubutton can now be unposted properly. 1/10/96 (bug fix) If an error occurs during construction, all destructors are now invoked--even if an error is encountered. All destructor errors are completely ignored. This fixed a core dump reported by Christopher Hylands (cxh@EECS.Berkeley.EDU). 2/5/96 (cleanup) Fixed memory leaks reported by Forest Rouse (rouse@flash.icemcfd.com). Also fixed a problem in Itcl_DeleteNamesp() with the way that the variable cache was destroyed. This caused a core dump on Solaris systems when a namespace was deleted. 2/8/96 (cleanup) Fixed itk tests to ignore any resources that the user might have on the desktop (e.g., *background: red) 2/11/96 (bug fix) Fixed auto_mkindex so that the "proc" command accepts arglist and body as optional arguments. Within class definitions, these parameters may not be specified. Also, fixed the "source" command so that it is ignored within the file being indexed. Otherwise, it brought in program elements that confused the index. 2/15/96 (bug fix) Fixed the unknown command to save errorInfo and restore it before invoking each handler. This fixed an irritating bug that caused the first error message to be lost as "tkerror" was autoloaded. 2/20/96 (bug fix) Fixed a bug in variable lookup that allowed private/protected variables to be set from outside the normal context. On initial lookup variables were being passed over, but since they did not appear to exist, they were being created. Variables are now protected from being set or redeclared from an improper context. 3/1/96 (enhancement) Changed namespaces to import from their parent in "protected" mode instead of "public" mode. This is a better default, since it emphasizes the strong relationship between a parent and a child. They can share variables that are hidden from anyone else. 3/5/96 (bug fix) Fixed the "info objects" to autoload any classes referenced by "-isa" or "-class" that are not yet defined. 3/12/96 (enhancement) Fixed class parser to recognize commands at the global scope. This makes it possible to embed normal Tcl commands like an "if" statement within a class definition. It also makes it easy to extend the class parser by defining procs in the ::itcl::parser namespace. 3/17/96 (enhancement) Fixed "usual" command so that with no arguments, it returns a list of all known tags. Each tag name can be used to query its associated code. 3/19/96 (enhancement) Fixed the "configure" method for mega-widgets to include public variables as configuration options. Normally, mega-widget classes use "itk_option define" to define configuration options. However, if a mega-widget includes an ordinary itcl class as a base class, it should provide access to the base class options. Public variables are now integrated into the composite option list by "itk_initialize". 4/2/96 (enhancement) Added a "chain" command to the built-ins available in each class. A command like "chain 1 2 3" invokes the next implementation of the current method/proc found looking up the inheritance hierarchy toward base classes. This can be used to invoke a base class method in a generic way, without hard-coding the base class name. 4/10/96 (bug fix) Fixed "configure" operation for mega-widgets. Previously, if an error was encountered during configuration, the value in itk_option was set back to the previous value, but some parts of the mega-widget might be left in a partially configured state. Now, if an error is encountered and the option is set back to its previous value, the change is propagated down to all parts, so the widget remains in a consistent state. 4/15/96 (bug fix) Fixed a bug reported by Karel Zuiderveld (karel.zuiderveld@cv.ruu.nl) related to virtual method selection in "itcl_methods.c". If for some reason a method name was not found in the virtual table, the table access caused a core dump. This is now fixed. 5/13/96 (bug fix) Fixed "itk_initialize" to recognize errors when executing the "config" code associated with configuration options. Any error immediately causes itk_initialize to abort, which usually aborts construction. 5/13/96 (bug fix) Fixed a bug in Itcl_SaveInterpState() and Itcl_RestoreInterpState() which caused error information to get lost during object construction when errors were encountered. The new iPtr->appendResult buffer was being ignored, and results in this buffer were getting lost. 6/1/96 (bug fix) Changed the internal Interp and TkWindow data structures so that all of the extra [incr Tcl] data members are at the bottom of the structure. This should prevent errors when modules that have been compiled against vanilla Tcl/Tk are dynamically loaded into [incr Tcl]. 6/12/96 (enhancement) Integrated changes for "itcl2.0+3" release by Karel Zuiderveld, Jan Nijtmans and Vince Darley. This added support for tcl7.5/tk4.1, dynamic loading, canvas improvements, and support for Macintosh environments. Many thanks to these guys for all of their hard work! 6/22/96 (installation) Changed the way things are installed: - the startup file "init.itcl" is now called "itcl.tcl" - the startup file "init.itk" is now called "itk.tcl" - libraries, include files and man pages are now installed under a special "itcl" directory to avoid conflicts with a vanilla Tcl/Tk installation. For example, if your --prefix is set to /usr/local, things would be installed as follows: /usr/local/bin ............ executables: ish = tclsh with namespaces iwish = wish with namespaces itclwish = tclsh with namespaces and classes itkwish = wish with namespaces and classes /usr/local/include/itcl ... include files /usr/local/lib/itcl ....... libraries /usr/local/man/itcl ....... manual pages 6/24/96 (bug fix) Fixed "itkwish" so that it requires the Iwidgets package automatically during initialization. For all other shells, you must specifically request Iwidgets with a statement like "package require Iwidgets" 6/26/96 (bug fix) Fixed Tk_CanvasTagsParseProc to avoid dumping core when an item is configured with a null tag string. 6/26/96 (bug fix) Fixed PolygonToPoint() in tkCanvPoly.c so that invisible polygons (with no outline and no fill) are still considered when picking the closest item. Without this fix, programs like the "floor plan" in the Tk widget demo will not work. 6/26/96 (bug fix) Fixed the [incr Widgets] "feedback" widget to do a full update on each step. Without this, changes appear from time to time, but the bar does not grow smoothly. 6/26/96 (bug fix) Fixed fileselectiondialog and fileselectionbox to update directory list properly when "-directory" option is configured. 6/28/96 (bug fix) Fixed "itk_option define" to properly preserve a "config" code body so that it can be released if it is redefined later. ========================================================================== ------------------------ RELEASE 2.1 - 6/28/96 ------------------------- ========================================================================== 7/22/96 (bug fix) Fixed C-level variable access so flags like ITCL_FIND_LOCAL_ONLY can be passed into Tcl_GetVar() and Tcl_SetVar(). 7/25/96 (bug fix) Fixed the "notebook" widget in the [incr Widgets] set. The "index" method now supports pattern matching and index names with spaces in them. 8/1/96 (bug fix) Fixed destructor invocation so that if an object is being destructed and you try to delete it again, it will report an error. 8/7/96 (bug fix) Fixed the "inherit" command to make sure all names are really valid classes. Previously, trying to inherit from a proc would dump core. 8/29/96 (enhancement) Integrated with itcl2.1+2 (tcl7.5p1/tk4.1p1). 9/1/96 (bug fix) Fixed the Itcl_RegisterC() procedure so that the same name can be registered more than once, as long as it has the same function pointer. 9/7/96 (bug fix) Fixed a bug in method access for protected methods. There was a problem when a base class defined a method, and a derived class overloaded the method, and the method was accessed from the base class namespace. Added function Itcl_CanAccessMethod() to check for overloaded methods and allow access accordingly. 9/13/96 (bug fix) Fixed the Itcl_RestoreInterpState() procedure so that the "errorCode" variable is restored properly. There was a problem when the error code contained a list of elements. 9/20/96 (bug fix) Fixed a bug in the way namespaces were deleted. The hash table of child namespaces was being traversed while elements within it were being deleted. This caused a core dump when you tried to exit the application with a command like "destroy .". 9/28/96 (bug fix) Fixed the way that errors are reported when a base class is constructed with the wrong arguments. Previously, the error message showed the object creation command like "wrong # args: should be Foo name val1 val2". Now, it shows the base class constructor name, so it is more obvious where the error is coming from. 10/5/96 (bug fix) Fixed a bug in constructor invocations. All base class constructors are now invoked properly, even if a derived class does not have a constructor. 10/9/96 (enhancement) Added proper support for safe interpreters. You can now use namespace commands in a safe interpreter, and you can load Itcl as a safe package. 10/11/96 (bug fix) Fixed a core dump with "namespace foo {info locals}". The namespace call frame was not being set up properly, so the local variable table was garbage. Normally, you don't access local variables at the namespace level. But now it is fixed. 10/14/96 (bug fix) Fixed the Itcl_RegisterC() procedure so that each interpreter has its own list of symbolic function names. This avoids global data and makes more sense for people using multiple interpreters. 10/20/96 (bug fix) Fixed variable lookup so that when you try to access a variable like "::foo::x" inside of a procedure, you get an error instead of a local variable named "::foo::x". Variables like this need to be declared global. 10/22/96 (enhancement) Fixed the built-in "isa" method to autoload class definitions as needed for each "isa" test. If a class is not defined and cannot be autoloaded, it is an error. 10/26/96 (enhancement) Fixed "delete object" command so that objects can be deleted using scoped values for the object name. 10/29/96 (enhancement) Integrated with itcl2.1+5 (tcl7.6/tk4.2). 11/1/96 (porting) Removed "plus" and "dash" patches to allow for porting to Windows95 and Macintosh platforms. Simplified configuration and makefiles for Unix platforms. 11/4/96 (installation) Fixed configuration and makefiles to support building in a separate directory. There is a bug in "autoconf" which prevents this from going smoothly. You have to copy all of the configure scripts to a separate tree (e.g., using a tar file), and then build. 11/5/96 (bug fix) Fixed a bug in the way variables were reported by the built-in "info" command for classes and objects. Private variables in a base class were incorrectly reported as "". They are now reported properly. 11/10/96 (bug fix) Fixed the "this" variable so that if an object is deleted while it is still in use, its name is properly reported as the null string. 11/10/96 (bug fix) Fixed the way namespaces are deleted so that the "::errorInfo" and "::errorCode" variables remain intact until everything else has been destroyed. These variables are needed if any errors are encountered as an interpreter is being destroyed. 11/11/96 (installation) Split the "itclConfig.sh" file into separate "itclConfig.sh" and "itkConfig.sh" files. 11/11/96 (installation) Fixed the package installation to conform to tcl7.6/tk4.2. The pkgIndex.tcl files are now stored in the library directory for each package. 11/13/96 (enhancement) Overhauled the scrolledcanvas widget. It is now about an order of magnitude faster. 11/14/96 (enhancement) Overhauled the [incr Widgets] "catalog" demo. When you pick any mega-widget class, the demo displays an example widget, the code used to build it, the class hierarchy, and the man page. 11/23/96 (bug fix) Fixed the way the "inherit" command autoloads class definitions. Previously, it invoked the class name as a command. Now, it uses the "auto_load" command. 11/23/96 (installation) Fixed the "configure" files to use "mkinstalldirs" instead of "mkdir" so that the entire distribution can be built in a separate directory starting with a single "configure" file. Fixed the way the distribution is created to make this patch for each new distribution. 11/23/96 (installation) Fixed the iwidgets installation so that the installed files (instead of the source files) are chmod'd to have the proper permissions. 11/29/96 (installation) Fixed iwidgets (combobox, optionmenu, shell) so that they don't rely on "tkwait visibility" before doing a grab. On the Macintosh, this only works the first time a window is mapped. After that, this command does not return control, even when a window is remapped. 11/30/96 (bug fix) Fixed "tk4.2/library/menu.tcl", moving a comment in a switch statement above the default case into the default case. When the comment is above the case, it is treated as a list element and a parsing error occurs. You can trigger the error with a command like "tkMenuFind . x". When the comment is inside the case, everything works fine. 11/30/96 (bug fix) Fixed a memory error that occured when an interpreter was destroyed. One namespace (e.g., base class) caused another (e.g., derived class) to be destroyed. Then the namespace was destroyed again later on. Now, as we iteration through the safeCopy list, we check to make sure the namespace still exists. 11/30/96 (bug fix) Fixed entryfield mega-widget to avoid using the "%s" state field for key presses. It was using it to find out whether or not Control, Shift, or Alt keys were being held down during a key press. But this field confuses Alt with NumLock when you go between Unix and Windows platforms. The entryfield appeared to be broken when NumLock was turned on. Nothing is lost if we simply ignore it and let all keypresses through. 12/1/96 (installation) Fixed the way that "pkgIndex.tcl" files are built for Itcl/Itk. When you build with "--enable-shared", the package files load the shared library, but when you build without, the package files use {load "" Itcl} to get the static package. This lets you do "package require" commands in slave interpreters, even if things were built with static packages. 12/1/96 (bug fix) Fixed how namespaces are deleted when an interpreter is deleted. Previously, namespaces were deleted after the assocData for the interp. If any background errors occurred while the namespace was being deleted, they caused seg faults later on. Now, the global namespace is cleared (but not deleted) *before* deleting the assocData. Any background errors are deleted, and the global namespace is finally deleted at that point. 12/2/96 (enhancement) JCI Defined "tkOpenDocument" in tk.tcl so that Macintosh users can double-click on an [incr Tcl] source file, and itkwish will be invoked to execute it. 12/2/96 (bug fix) Fixed the entryfield widget so that characters like: " [ ] { } \ & are substituted properly into the "%c" field when doing character validation. 12/2/96 (enhancement) **POTENTIAL INCOMPATIBILITY** Changed the HTML parsing in the scrolledhtml widget to speed it up. Also, changed the "-feedback" option so that it appends two numbers on the end of the feedback command: the current position and the maximum position. This frees the caller from having to figure out the maximum position. 12/2/96 (enhancement) Added "-borderwidth", "-relief" and "-elementborderwidth" options to the feedback widget, so you can control its appearance a little better. ========================================================================== ------------------------ RELEASE 2.2 - 12/3/96 ------------------------- ========================================================================== 12/12/96 (installation) Fixed "iwidgets.tcl" initialization file to rely on the environment variable IWIDGETS_LIBRARY (if it exists), and use the compiled-in path as a last resort. That way, the user can override the iwidgets library with an environment variable setting. 12/12/96 (installation) Fixed the "catalog" demo for [incr Widgets] to help support Windows3.1. The code is now arranged to make it easy to translate between the real demo names and DOS 8.3 file names. 12/13/96 (bug fix) Added a "usual" test for all of the [incr Widgets]. This checks to make sure that there is a bit of "usual" code for each widget, that the options in the "usual" code are valid, and that all of the widgets mix together without errors. 4/11/97 (enhancement) Merged in patches for tcl7.6p2/tk4.2p2 (jingham) 5/17/97 (bug fix) Fixed itk::Toplevel to have the hull keep the -takefocus option. This fixed a problem with the tab ring in iwidget dialogs. 6/1/98 (complete rewrite) Rewrote the entire package to work with Tcl8.0 namespaces and the new byte code compiler. ========================================================================== ----------------------- RELEASE 3.0a1 - 6/16/98 ------------------------ ========================================================================== 7/23/98 (bug fix) Removed references to Tcl internal macros such as TclDecrRefCount. This was causing problems under Windows, since those macros use global variables that are not available outside of tcl80.dll. 7/23/98 (bug fix) Added my own definition of the assert macro. Since Tcl/Tk doesn't use assert, the default version was causing build problems with gcc. 7/27/98 (configuration change) Changed all "configure" scripts to rely on tclConfig.sh and tkConfig.sh for compile options. 7/27/98 (configuration change) Changed the initialization process for Itcl/Itk. Both packages now key off of tcl_library to find their initialization scripts. 7/27/98 (configuration change) Removed IWIDGETS_LIBRARY environment variable from the Iwidgets package. If Iwidgets is installed properly, this variable is not needed. 7/29/98 (configuration change) Added Scott Stanton's patch to the initialization process. The last-ditch installation directory is no longer compiled into the itcl sources. Instead, itcl searches for the installation directory starting from $tcl_library. Also, if the variable itcl::library is set before loading itcl, then itcl aborts the search and uses that as its library directory. 7/30/98 (Macintosh) Added Jim Ingham's patches for the Mac. 7/30/98 (configuration) Fixed Makefiles for Iwidgets 2.2/3.0 to avoid a problem while installing the demo images/html. The INSTALL_DATA program may have a relative name (../../config/install-sh) so we must be careful to "cd" into library, demos, etc., but not into other directories below them. 8/8/98 (bug fix) Fixed "namespace import" to work with autoloading. If you execute "namespace import iwidgets::*", the auto_import proc will create stubs for all of the iwidgets commands. Executing one of the stubs triggers autoloading for the appropriate command. 8/10/98 (bug fix) Integrated changes from Scriptics team to work seamlessly with Tcl 8.0.3. 8/10/98 (bug fix) Fixed the iwidgets::optionmenu to work properly under Windows 95/NT. Extended the "get" method in iwidgets3.0 so that you can query existing elements from an optionmenu. ========================================================================== ------------------------ RELEASE 3.0 - 8/11/98 ------------------------- ========================================================================== 8/16/98 (bug fix) Fixed the windows pkgIndex.tcl files for Itcl and Itk to properly load their .dll. Also fixed iwidgets/catalog to package require Itcl, Itk, and to import ::itcl::* to get "class" defined. (BW) ========================================================================== ----------------------- RELEASE 3.0.1 - 10/19/98 ----------------------- ========================================================================== neotcl8.1.1-lite/itcl3.0.1/INCOMPATIBLE100664 15471 0 12074 6752336012 15456 0ustar damonwheel As much as possible, I've tried to make itcl3.0 backward-compatible with earlier releases. The class definition syntax has not changed at all from itcl2.2, and the old itcl1.x syntax is still supported. But you'll notice changes related to namespaces. John Ousterhout adopted a slightly different namespace model for Tcl8. The syntax of the "namespace" command is different, as well as the semantics for command/variable lookups and imports. Also, John Ousterhout failed to adopt ensembles into the Tcl core, so itcl can't add functions like "info objects" and "info classes" into the usual "info" command. These functions have been moved to a new "itcl::find" command. The [incr Widgets] package has changed quite a bit. There are many new widgets, and some of the existing widgets were streamlined--some of the widget options were removed to improve performance. For details, see the "CHANGES" file in the iwidgets3.0.0 directory. Because there are a lot of changes, this distribution contains the iwidgets2.2.0 package, which is backward-compatible with the existing [incr Widgets]. Following is a quick summary of changes, to serve as a porting guide. ----------------------------------|------------------------------------- You have code like this... | change to this... ----------------------------------|------------------------------------- namespace foo {...} | namespace eval foo {...} | delete namespace foo | namespace delete foo | info which -namespace $name | if {![string match ::* $name]} { | set name [namespace current]::$name | } | info context | namespace current | info objects ... | itcl::find objects ... | info classes ... | itcl::find classes ... | In itcl2.2, commands/classes | In Tcl8.0, all commands/classes that could be found in any namespace | are not in the global namespace must in a hierarchy. So within a | be qualified. For example, the namespace like "iwidgets" you | "iwidgets" namespace has a bunch of could use simple names like: | classes within it. You must always | refer to these classes with qualified | names, like this: | Labeledwidget::alignlabels ... | iwidgets::Labeledwidget::alignlabels ... Pane #auto | iwidgets::Pane #auto | | In itcl2.2, the "global" | In Tcl8.0, the "variable" command is command was used to access | used to access variables in a namespace: variables in a namespace: | | namespace foo { | namespace eval foo { variable x 0 | variable x 0 proc example {} { | proc example {} { global x | variable x return $x | return $x } | } } | } | | public itk_component add... | itk_component add ... protected itk_component add... | itk_component add -protected ... private itk_component add... | itk_component add -private ... | | OTHER DIFFERENCES ------------------------------------------------------------------------ - You can now use instance variables (along with the usual common variables) with the "scope" command. Thus, you're no longer forced to use the trick with a common array like: [scope modes($this)] - All widget/mega-widget access commands (e.g., ".foo.bar") are installed in the global namespace. Therefore, they can be accessed from any namespace context. - The [incr Widgets] package used to be loaded by default. You must now use the "package require" command to load it explicitly: package require Iwidgets <-- loads the lastest (iwidgets3.0.0) package require -exact Iwidgets 2.2 <-- loads the older release - Command/variable names are now reported with fully-qualified names in "info" inquiries and in error messages. - No public/protected/private declarations outside of class definitions - The "scope" command used to be more or less the same as the "code" command. In itcl3.x, "scope" is only for variables, and if a variable is not recognized, you'll get an error. - The "code" command used to return a value like "@scope ...". It now returns "namespace inscope ...", to be compatible with Tcl8. - The prototypes for Itcl_RegisterC and Itcl_FindC have changed. You can now include ClientData when you register C functions. Also, there is a new Itcl_RegisterObjC function for (objc,objv)-style command handlers. neotcl8.1.1-lite/itcl3.0.1/Makefile.in100664 15471 0 3752 6752336012 15715 0ustar damonwheel# # This file is the toplevel Makefile for [incr Tcl]. If it has the # name "Makefile.in" then it is a template for a Makefile; to generate # the actual Makefile, run "./configure", which is a configuration # script generated by the "autoconf" program (constructs like # "@foo@" will get replaced in the actual Makefile. # # RCS: $Id: Makefile.in,v 1.1.1.1 1999/03/31 20:39:32 damon Exp $ # Default top-level directories in which to install architecture- # specific files (exec_prefix) and machine-independent files such # as scripts (prefix). The values specified here may be overridden # at configure-time with the --exec-prefix and --prefix options # to the "configure" script. prefix = @prefix@ exec_prefix = @exec_prefix@ subdirs = @subdirs@ # Some versions of make, like SGI's, use the following variable to # determine which shell to use for executing commands: SHELL = /bin/sh all: for dir in $(subdirs) ; do \ (cd $$dir; $(MAKE) $@) \ done; test: for dir in $(subdirs) ; do \ (cd $$dir; $(MAKE) $@) \ done; static: for dir in $(subdirs) ; do \ (cd $$dir; $(MAKE) $@) \ done; standalone: for dir in $(subdirs) ; do \ (cd $$dir; $(MAKE) $@) \ done; plusplus: for dir in $(subdirs) ; do \ (cd $$dir; $(MAKE) $@) \ done; install: for dir in $(subdirs) ; do \ (cd $$dir; $(MAKE) $@) \ done; install-binaries: for dir in $(subdirs) ; do \ (cd $$dir; $(MAKE) $@) \ done; install-libraries: for dir in $(subdirs) ; do \ (cd $$dir; $(MAKE) $@) \ done; clean: for dir in $(subdirs) ; do \ (cd $$dir; $(MAKE) $@) \ done; distclean: rm -f Makefile config.log config.status config.cache for dir in $(subdirs) ; do \ (cd $$dir; $(MAKE) $@) \ done; # # Target to create a proper Tcl distribution from information in the # master source directory. DISTDIR must be defined to indicate where # to put the distribution. # configure: configure.in autoconf for dir in $(subdirs) ; do \ (cd $$dir; autoconf) \ done; # DO NOT DELETE THIS LINE -- make depend depends on it. neotcl8.1.1-lite/itcl3.0.1/README100664 15471 0 32233 6752336012 14544 0ustar damonwheel------------------------------------------------------------------------ [incr Tcl] - version 3.0 for Tcl/Tk 8.0.3 ------------------------------------------------------------------------ As much as possible, I've tried to make itcl3.0 backward-compatible with earlier releases. The class definition syntax has not changed at all from itcl2.2, and the old itcl1.x syntax is still supported. But you'll notice changes related to the new namespace mechanism in Tcl 8.0. For information on incompatibilities and porting to itcl3.0, read the INCOMPATIBLE file in this directory, or check out the itcl web site: http://www.tcltk.com/itcl/ Many people through the years have helped me with [incr Tcl] development, and I thank them for their contributions. Please read the acknowledgements section below. Send comments or suggestions to the [incr Tcl] mailing list (itcl@tcltk.com) or directly to me (mmclennan@lucent.com). If you want to subscribe to the mailing list, send a message with the subject "subscribe" to "itcl-request@tcltk.com". ======================================================================== Copyright (c) 1993-1998 Lucent Technologies, Inc. ======================================================================== OVERVIEW ------------------------------------------------------------------------ - What is [incr Tcl]? - Getting started - Installation - Integrating [incr Tcl] with other extensions - Acknowledgements ------------------------------------------------------------------------ What is [incr Tcl]? ------------------------------------------------------------------------ [incr Tcl] is an object-oriented extension of the Tcl language. It was created to support more structured programming in Tcl. Tcl scripts that grow beyond a few thousand lines become extremely difficult to maintain. This is because the building blocks of vanilla Tcl are procedures and global variables, and all of these building blocks must reside in a single global namespace. There is no support for protection or encapsulation. [incr Tcl] introduces the notion of objects. Each object is a bag of data with a set of procedures or "methods" that are used to manipulate it. Objects are organized into "classes" with identical characteristics, and classes can inherit functionality from one another. This object-oriented paradigm adds another level of organization on top of the basic variable/procedure elements, and the resulting code is easier to understand and maintain. Among other things, [incr Tcl] can be used to create new widgets that look and work like the usual Tk widgets, but are written entirely at the Tcl language level (C code is optional). These "mega-widgets" can be created using [incr Tk], a set of base classes which provide the core mega-widget functionality. [incr Widgets] is a set of high-level mega-widgets built using [incr Tk]. It has more than 50 widget classes, and can be used right out of the box to create: - fileselectiondialog - tabnotebook - panedwindow - scrolledhtml - combobox - optionmenu - scrolledlistbox - scrolledframe - messagedialog - and many others... Classes and/or related procedures can also be encapsulated in their own "namespace". A namespace is a collection of commands, variables, classes and other namespaces that is set apart from the usual global scope. Elements within a namespace can be "private" or "protected", so that access to them is restricted. An "import" command allows all of the elements from one namespace to be integrated into another. Extension writers will immediately see the benefit of namespaces. With vanilla Tcl, each extension must add its commands and variables at the global scope. Extension writers are encouraged to add a unique prefix to all of the names in their package, to avoid naming collisions. Extensions can now sit in their own namespace of commands and variables, and sensitive elements can be protected from accidental access. For example, the current release of [incr Tcl] has a namespace "itcl" for object-oriented support, a namespace "itk" for mega-widget support, and a namespace "iwidgets" for the [incr Widgets] package. Each of these namespaces has its own collection of commands and variables. Developers can then pick and choose among the extensions, and integrate the parts that they need for their application by importing various namespaces at the global scope. Getting started ------------------------------------------------------------------------ Read the first part of the CHANGES file for a brief overview of new commands, and a summary of important changes. Consult the man pages for detailed information on particular commands. Check out our web site on WebNet for the latest news: http://www.tcltk.com/itcl/ >> NOTE <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< >> << >> If you are just getting started with [incr Tcl], be sure << >> to download the TUTORIAL on our web site. This has over << >> 100 pages of introductory text and code examples. << >> << >> Also, run the "catalog" demo to get an overview of the << >> [incr Widgets] package. On Windows and Macintosh << >> systems, this is installed as one of the executables. << >> On Unix systems, this is installed in the << >> "lib/itcl/iwidgets3.0.0/demos" library directory. << >> << >><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< The file "iwidgets3.0.0/doc/iwidgets.ps" contains a tutorial introduction to the [incr Widgets] package. The mega-widget classes in this package show off most of the functionality in this release. You can use them as a pattern to create your own widget classes. Installation on Unix Systems ------------------------------------------------------------------------ 1) Obtain this distribution from an archive site like this: ftp ftp.tcltk.com cd pub/itcl binary get itcl3.0.tar.gz quit 2) Uncompress and untar the distribution: gunzip itcl3.0.tar.gz tar xvf itcl3.0.tar 3) Run the configuration script: cd itcl3.0 ./configure or, for systems that don't recognize "#!" in shell scripts: cd itcl3.0 /bin/sh ./configure The "configure" script finds the appropriate compiler flags and generates new Makefiles from template files (Makefile.in). By default, the configuration script will set things up so that everything is installed in "/usr/local". You can change this by specifying a different "prefix" in the "configure" command: ./configure --prefix=/your/install/path By default, everything will be build with non-shared libraries. You can request shared libraries and dynamic loading like this: ./configure --enable-shared 4) Build the libraries and the executables. From the toplevel directory type: make all 5) Install the libraries, executables, man pages and script files. From the toplevel directory type: make install 6) Use the final product. This distribution creates and installs four executables: tclsh8.0 ......... tclsh for Tcl8.0 wish8.0 .......... wish for Tk8.0 itclsh3.0 ........ tclsh + namespaces + classes itkwish3.0 ....... wish + namespaces + classes + megawidgets If you configured this distribution with "--enabled-shared" to request dynamic loading, you can use "tclsh" or "wish" as the core program and load everything else as needed. If you did not configure for dynamic loading, you will probably want to use the "itkwish3.0" program instead. This includes everything you need to use [incr Widgets], and you won't have to worry about LD_LIBRARY_PATH at all. Installation on Windows 95, NT, and 3.1.x ------------------------------------------------------------------------ This distribution has been built for Windows 95/NT systems using the makefiles in the "win" directory. These makefiles are for Visual C++, version 4.0 or beyond. Just edit the "makefile.vc" in the toplevel directory to include the appropriate paths on your system. Then, type: nmake dist -f makefile.vc nmake dist-install -f makefile.vc nmake dist-clean -f makefile.vc Installation on Macintosh Systems ------------------------------------------------------------------------ This distribution has been built on Macintosh systems, but still needs some work to get things running smoothly. If anyone has access to a Macintosh machine, I invite them to help with this porting effort. Integrating [incr Tcl] with other extensions ------------------------------------------------------------------------ [incr Tcl] is now a pure extension to Tcl/Tk. Therefore, if you build the Tcl/Tk core and this package with the "--enable-shared" option, you can load [incr Tcl] into a vanilla tclsh, as follows: package require Itcl Similarly, you can load [incr Tcl] along with the [incr Tk] mega-widget facility into a vanilla wish, as follows: package require Itk You can load [incr Tcl], [incr Tk], and the [incr Widgets] package like this: package require Iwidgets If you require the earlier release of [incr Widgets] for some reason, you can specify the version number: package require Iwidgets 2.2 Other packages should plug-and-play in the same fashion. >> NOTE: If you have any trouble with dynamic loading on UNIX >> systems, you may need to set your LD_LIBRARY_PATH environment >> variable to include the "lib" directory for your Tcl/Tk >> installation. For example: >> >> LD_LIBRARY_PATH="/usr/local/tcl/lib:$LD_LIBRARY_PATH" >> export LD_LIBRARY_PATH Acknowledgements ------------------------------------------------------------------------ Thanks to everyone for being patient with me while I put together this release. It took much longer than expected, due to a series of other interruptions. Thanks to Matt Newman for providing the Tcl-only "tcl++" package that helped so many people move forward while they were waiting for this release. Thanks to John Ousterhout and the Scriptics team for bundling this package with their TclPro product. It's gratifying to see [incr Tcl] accepted as a mainstream product. Thanks to Mark Ulferts, Sue Yockey, John Sigler, Bill Scott, Alfredo Jahn, Bret Schuhmacher, Tako Schotanus and Kris Raney for building the [incr Widgets] package. With a sketchy overview and a crappy prototype of [incr Tk], they managed to build a nice set of mega-widgets. Their initial designs helped me smooth out the rough spots in [incr Tk]. Thanks especially to Mark Ulferts for keeping things up over the past few years, and for streamlining the package for itcl3.0. Thanks to Jan Nijtmans, Karel Zuiderveld, and Vince Darley for helping to keep up with Tcl/Tk releases, and for supporting the "plus" and "dash" patches under [incr Tcl]. Thanks to Forest Rouse and ICEM CFD Engineering for integrating [incr Tcl] into their Tcl/Tk compiler. This is a large undertaking, and they have done an excellent job. Thanks to Alfredo Jahn and Bret Schuhmacher at WebNet for helping to create the [incr Tcl] web site, and for maintaining the [incr Tcl] mailing list. Thanks to extension writers like Mark Diekhans (tclX) and Ioi Lam (Tix) for making their packages compatible with [incr Tcl]. Thanks to George Howlett for teaching me how namespaces should really work. He has been a constant source of inspiration, and has kept a careful watch against many bad ideas. Jim Ingham fleshed out the notion of explicit scoping, added many nice features to [incr Tk], and has helped tremendously with porting. Lee Bernhard worked on distributed systems with Iclient/Iserver, and also helped with porting. Bill Scott, with a steady stream of bug reports, helped me understand the questions that a typical user might have. He forced me to reinvent the paradigm on more than one occasion. Thanks to all of the alpha-testers that helped me polish this release. Thanks to Mark Harrison for his enthusiasm and support. Due in large part to his evangelism, I have been able to make [incr Tcl] development a mainstream activity. And many thanks to my wife Maria and my children Maxwell and Katie for putting up with all of this. --Michael ... --------------------------------------------------------- ':'...''. --- Michael J. McLennan 2C-226 mmclennan@lucent.com '::.''''':;: Lucent Technologies '::; ;;: 1247 S Cedar Crest Blvd :::,, :;; Allentown, PA 18103 Lucent Technologies ;:;' ;:; phone: 610-712-2842 Bell Labs Innovations ;;: .;: fax: 610-712-2773 :;:, ,:;: ':;;;:;:' neotcl8.1.1-lite/itcl3.0.1/TODO100664 15471 0 14203 6752336012 14351 0ustar damonwheel======================================================================= Following is a list of notes describing things which might be fixed or changed in a future release of [incr Tcl] ======================================================================= Handle this case more elegantly: class Foo { constructor {args} { _init } proc _init {} { puts "once!" proc _init {} {} } } Foo #auto Foo #auto itcl "wish" list ------------------------------------------------------------------ - add virtual inheritance - add "border" type to canvas widget - add "validate" and "valid" commands for type validation - add "unknownvar" and provide access to object data members: "obj.var" - check namespace [info class] {...} as a replacement for "virtual" - fix "auto_load_all" problem in Tcl-DP (Their implementation uses "info commands" to verify that a command has been successfully autoloaded, but absolute command names like "::iwidgets::fileselectiondialog" don't show up.) - fix "auto_load" mechanism to be extensible like "unknown" - fix Itcl_RegisterC() to support ClientData - core dump with "cmdtrace" (tclX thing?) - ideas from Nelson Macy: - add "delegate" keyword for inheritance via composition? - add "forward" keyword for implementing error handlers - add "get" code to public variables for "cget" access - equivalent of constructor/destructor for classes - protected/private recognized for constructor/destructor - add something like Tk_CreateWidgetCommand() for widget developers itcl documentation cleanup ------------------------------------------------------------------ - add "Finance: Trading Systems" to commercial uses of Itcl (Deshaw) - update doc: "config" code also gets invoked on startup for itk widgets - update doc: add to FAQ: class with common array interacts with Tk widget itcl "to do" list ------------------------------------------------------------------ - write "auto_load_all" proc for Tcl-DP - bad errorInfo: > More specifically, the constructor for the class did the following: > > set hull [info namespace tail $this] > ::frame $hull > > One of the class variables had a configuration script: > > public variable textvariable "" { > if { $textvariable != "" } { > regsub "\\(.*\\)" $textvariable "" global > global ::$global > trace variable $textvariable w "$hull adjust" > } > } - add "@body" in as many places as possible to support Tcl compiler - check out itcl with Tix: lappend auto_path $env(TIX_LIBRARY) source "$env(IWIDGETS_LIBRARY)/init.iwidgets" iwidgets::Dialog ._Arcattributes -title "Code: Arc Annotations" -modality application set attrframe [._Arcattributes childsite] tixScrolledHList $attrframe.ports [$attrframe.ports subwidget hlist] configure -selectmode browse pack $attrframe.ports -expand yes -fill both -padx 10 -pady 10 ._Arcattributes activate ------------------------------------------------------------------ To: ig4!att!cas.org!lvirden (Larry W. Virden) (lvirden@cas.org) cc: michael.mclennan@att.com Subject: Re: Question concerning the Japanese patches for Tcl 7.4 In-reply-to: Your message of "Fri, 05 Jan 1996 06:43:46 EST." <9601051143.AA15368@cas.org> -------- Your message dated: Fri, 05 Jan 1996 06:43:46 EST > > The following instructions refer to the software which enables one to > build a KANJI supporting version of Tcl/Tk. Perhaps a note in the itcl > instructions letting folk know this package is also compatible would be > useful. > > > ----- Begin Included Message ----- > > >From nisinaka@sra.co.jp Thu Jan 4 00:09:52 1996 > Received: from srv07s4m by srv99dr.cas.org (5.65/CAS-1.23) > id AA29886; Thu, 4 Jan 1996 00:09:52 -0500 > Received: from srv01s4.cas.org by srv07s4m.cas.org (5.0/CAS-1.23) > id AA11865; Thu, 4 Jan 1996 00:09:50 +0500 > Received: from sraigw.sra.co.jp by srv01s4.cas.org (4.1/CAS-1.23) > id AA25691; Thu, 4 Jan 96 00:09:39 EST > Received: from sranhe.sra.co.jp by sraigw.sra.co.jp > (8.6.12+2.4W3/3.4W-2.1) > id OAA06131; Thu, 4 Jan 1996 14:09:32 +0900 > Received: from srashc.sra.co.jp (srashc [133.137.44.5]) by > sranhe.sra.co.jp (8.6.12+2.4W3/3.4W-srambox) with ESMTP id OAA00935; > Thu, 4 Jan 1996 14:06:26 +0900 > Received: from srashc.sra.co.jp (localhost [127.0.0.1]) by > srashc.sra.co.jp (8.6.12+2.4W3/3.4W-sra) with ESMTP id OAA25546; Thu, 4 > Jan 1996 14:09:30 +0900 > To: lvirden (Larry W. Virden, x2487) > Cc: tcl-jp-bugs@sra.co.jp > Reply-To: nisinaka@sra.co.jp > Subject: Re: Question concerning the Japanese patches for Tcl 7.4 > In-Reply-To: Your message of Tue, 02 Jan 1996 10:32:32 EST. > <9601021032.AA2226@cas.org> > Date: Thu, 04 Jan 1996 14:09:29 +0900 > Message-Id: <25544.820732169@srashc.sra.co.jp> > From: NISHINAKA Yoshiyuki > Status: RO > X-Lines: 31 > > > I notice that incr tcl 2.0 has been released with it's own, > customized, > > version of Tcl 7.4/Tk 4.0. Do any of you use itcl? If so, I > wondered if you > > had thought of constructing a specialized set of patches which could > be > > used with itcl. > > I have just got itcl2.0 and tried it with our Japanization > patches. Seems it works fine. > > What I really did was as follows: > > (1) Unpack itcl2.0.tar.gz. > > (2) Run `configure' at the directory `itcl2.0'. > > (3) Apply `tcl7.4p3jp-patch' at the directory `itcl2.0/tcl7.4'. > `Makefile.in.rej' was the only rejected file, so apply it > manually. > > (4) Apply `tk4.0p3jp-patch' at the directory `itcl2.0/tk4.0'. > There was no rejected file. > > (5) Make symbolic link from `tcl7.4' to `tcl7.4jp'. > > (6) Make all. > > > I haven't seriously tested yet though, `make test' was passed > and the Japanese translation of `demos/widgets' works fine. > > > Yosh Nishinaka (nisinaka@sra.co.jp) > > > ----- End Included Message ----- > > > -- > :s Larry W. Virden INET: lvirden@cas.org > :s <*> > :s Unless explicitly stated to the contrary, nothing in this posting should > :s be construed as representing my employer's opinions. neotcl8.1.1-lite/itcl3.0.1/configure100775 15471 0 71737 6752336012 15607 0ustar damonwheel#! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated automatically using autoconf version 2.9 # Copyright (C) 1992, 93, 94, 95, 96 Free Software Foundation, Inc. # # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. # Defaults: ac_help= ac_default_prefix=/usr/local # Any additions from configure.in: ac_default_prefix=/usr/local # Initialize some variables set by options. # The variables have the same names as the options, with # dashes changed to underlines. build=NONE cache_file=./config.cache exec_prefix=NONE host=NONE no_create= nonopt=NONE no_recursion= prefix=NONE program_prefix=NONE program_suffix=NONE program_transform_name=s,x,x, silent= site= srcdir= target=NONE verbose= x_includes=NONE x_libraries=NONE bindir='${exec_prefix}/bin' sbindir='${exec_prefix}/sbin' libexecdir='${exec_prefix}/libexec' datadir='${prefix}/share' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' libdir='${exec_prefix}/lib' includedir='${prefix}/include' oldincludedir='/usr/include' infodir='${prefix}/info' mandir='${prefix}/man' # Initialize some other variables. subdirs= MFLAGS= MAKEFLAGS= build_tk=yes ac_prev= for ac_option do # If the previous option needs an argument, assign it. if test -n "$ac_prev"; then eval "$ac_prev=\$ac_option" ac_prev= continue fi case "$ac_option" in -*=*) ac_optarg=`echo "$ac_option" | sed 's/[-_a-zA-Z0-9]*=//'` ;; *) ac_optarg= ;; esac # Accept the important Cygnus configure options, so we can diagnose typos. case "$ac_option" in -bindir | --bindir | --bindi | --bind | --bin | --bi) ac_prev=bindir ;; -bindir=* | --bindir=* | --bindi=* | --bind=* | --bin=* | --bi=*) bindir="$ac_optarg" ;; -build | --build | --buil | --bui | --bu) ac_prev=build ;; -build=* | --build=* | --buil=* | --bui=* | --bu=*) build="$ac_optarg" ;; -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) cache_file="$ac_optarg" ;; -datadir | --datadir | --datadi | --datad | --data | --dat | --da) ac_prev=datadir ;; -datadir=* | --datadir=* | --datadi=* | --datad=* | --data=* | --dat=* \ | --da=*) datadir="$ac_optarg" ;; -disable-* | --disable-*) ac_feature=`echo $ac_option|sed -e 's/-*disable-//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_feature| sed 's/[-a-zA-Z0-9_]//g'`"; then { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } fi ac_feature=`echo $ac_feature| sed 's/-/_/g'` eval "enable_${ac_feature}=no" ;; -enable-* | --enable-*) ac_feature=`echo $ac_option|sed -e 's/-*enable-//' -e 's/=.*//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_feature| sed 's/[-_a-zA-Z0-9]//g'`"; then { echo "configure: error: $ac_feature: invalid feature name" 1>&2; exit 1; } fi ac_feature=`echo $ac_feature| sed 's/-/_/g'` case "$ac_option" in *=*) ;; *) ac_optarg=yes ;; esac eval "enable_${ac_feature}='$ac_optarg'" ;; -exec-prefix | --exec_prefix | --exec-prefix | --exec-prefi \ | --exec-pref | --exec-pre | --exec-pr | --exec-p | --exec- \ | --exec | --exe | --ex) ac_prev=exec_prefix ;; -exec-prefix=* | --exec_prefix=* | --exec-prefix=* | --exec-prefi=* \ | --exec-pref=* | --exec-pre=* | --exec-pr=* | --exec-p=* | --exec-=* \ | --exec=* | --exe=* | --ex=*) exec_prefix="$ac_optarg" ;; -gas | --gas | --ga | --g) # Obsolete; use --with-gas. with_gas=yes ;; -help | --help | --hel | --he) # Omit some internal or obsolete options to make the list less imposing. # This message is too long to be a string in the A/UX 3.1 sh. cat << EOF Usage: configure [options] [host] Options: [defaults in brackets after descriptions] Configuration: --cache-file=FILE cache test results in FILE --help print this message --no-create do not create output files --quiet, --silent do not print \`checking...' messages --version print the version of autoconf that created configure Directory and file names: --prefix=PREFIX install architecture-independent files in PREFIX [$ac_default_prefix] --exec-prefix=EPREFIX install architecture-dependent files in EPREFIX [same as prefix] --bindir=DIR user executables in DIR [EPREFIX/bin] --sbindir=DIR system admin executables in DIR [EPREFIX/sbin] --libexecdir=DIR program executables in DIR [EPREFIX/libexec] --datadir=DIR read-only architecture-independent data in DIR [PREFIX/share] --sysconfdir=DIR read-only single-machine data in DIR [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data in DIR [PREFIX/com] --localstatedir=DIR modifiable single-machine data in DIR [PREFIX/var] --libdir=DIR object code libraries in DIR [EPREFIX/lib] --includedir=DIR C header files in DIR [PREFIX/include] --oldincludedir=DIR C header files for non-gcc in DIR [/usr/include] --infodir=DIR info documentation in DIR [PREFIX/info] --mandir=DIR man documentation in DIR [PREFIX/man] --srcdir=DIR find the sources in DIR [configure dir or ..] --program-prefix=PREFIX prepend PREFIX to installed program names --program-suffix=SUFFIX append SUFFIX to installed program names --program-transform-name=PROGRAM run sed PROGRAM on installed program names EOF cat << EOF Host type: --build=BUILD configure for building on BUILD [BUILD=HOST] --host=HOST configure for HOST [guessed] --target=TARGET configure for TARGET [TARGET=HOST] Features and packages: --disable-FEATURE do not include FEATURE (same as --enable-FEATURE=no) --enable-FEATURE[=ARG] include FEATURE [ARG=yes] --with-PACKAGE[=ARG] use PACKAGE [ARG=yes] --without-PACKAGE do not use PACKAGE (same as --with-PACKAGE=no) --x-includes=DIR X include files are in DIR --x-libraries=DIR X library files are in DIR EOF if test -n "$ac_help"; then echo "--enable and --with options recognized:$ac_help" fi exit 0 ;; -host | --host | --hos | --ho) ac_prev=host ;; -host=* | --host=* | --hos=* | --ho=*) host="$ac_optarg" ;; -includedir | --includedir | --includedi | --included | --include \ | --includ | --inclu | --incl | --inc) ac_prev=includedir ;; -includedir=* | --includedir=* | --includedi=* | --included=* | --include=* \ | --includ=* | --inclu=* | --incl=* | --inc=*) includedir="$ac_optarg" ;; -infodir | --infodir | --infodi | --infod | --info | --inf) ac_prev=infodir ;; -infodir=* | --infodir=* | --infodi=* | --infod=* | --info=* | --inf=*) infodir="$ac_optarg" ;; -libdir | --libdir | --libdi | --libd) ac_prev=libdir ;; -libdir=* | --libdir=* | --libdi=* | --libd=*) libdir="$ac_optarg" ;; -libexecdir | --libexecdir | --libexecdi | --libexecd | --libexec \ | --libexe | --libex | --libe) ac_prev=libexecdir ;; -libexecdir=* | --libexecdir=* | --libexecdi=* | --libexecd=* | --libexec=* \ | --libexe=* | --libex=* | --libe=*) libexecdir="$ac_optarg" ;; -localstatedir | --localstatedir | --localstatedi | --localstated \ | --localstate | --localstat | --localsta | --localst \ | --locals | --local | --loca | --loc | --lo) ac_prev=localstatedir ;; -localstatedir=* | --localstatedir=* | --localstatedi=* | --localstated=* \ | --localstate=* | --localstat=* | --localsta=* | --localst=* \ | --locals=* | --local=* | --loca=* | --loc=* | --lo=*) localstatedir="$ac_optarg" ;; -mandir | --mandir | --mandi | --mand | --man | --ma | --m) ac_prev=mandir ;; -mandir=* | --mandir=* | --mandi=* | --mand=* | --man=* | --ma=* | --m=*) mandir="$ac_optarg" ;; -nfp | --nfp | --nf) # Obsolete; use --without-fp. with_fp=no ;; -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c) no_create=yes ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) no_recursion=yes ;; -oldincludedir | --oldincludedir | --oldincludedi | --oldincluded \ | --oldinclude | --oldinclud | --oldinclu | --oldincl | --oldinc \ | --oldin | --oldi | --old | --ol | --o) ac_prev=oldincludedir ;; -oldincludedir=* | --oldincludedir=* | --oldincludedi=* | --oldincluded=* \ | --oldinclude=* | --oldinclud=* | --oldinclu=* | --oldincl=* | --oldinc=* \ | --oldin=* | --oldi=* | --old=* | --ol=* | --o=*) oldincludedir="$ac_optarg" ;; -prefix | --prefix | --prefi | --pref | --pre | --pr | --p) ac_prev=prefix ;; -prefix=* | --prefix=* | --prefi=* | --pref=* | --pre=* | --pr=* | --p=*) prefix="$ac_optarg" ;; -program-prefix | --program-prefix | --program-prefi | --program-pref \ | --program-pre | --program-pr | --program-p) ac_prev=program_prefix ;; -program-prefix=* | --program-prefix=* | --program-prefi=* \ | --program-pref=* | --program-pre=* | --program-pr=* | --program-p=*) program_prefix="$ac_optarg" ;; -program-suffix | --program-suffix | --program-suffi | --program-suff \ | --program-suf | --program-su | --program-s) ac_prev=program_suffix ;; -program-suffix=* | --program-suffix=* | --program-suffi=* \ | --program-suff=* | --program-suf=* | --program-su=* | --program-s=*) program_suffix="$ac_optarg" ;; -program-transform-name | --program-transform-name \ | --program-transform-nam | --program-transform-na \ | --program-transform-n | --program-transform- \ | --program-transform | --program-transfor \ | --program-transfo | --program-transf \ | --program-trans | --program-tran \ | --progr-tra | --program-tr | --program-t) ac_prev=program_transform_name ;; -program-transform-name=* | --program-transform-name=* \ | --program-transform-nam=* | --program-transform-na=* \ | --program-transform-n=* | --program-transform-=* \ | --program-transform=* | --program-transfor=* \ | --program-transfo=* | --program-transf=* \ | --program-trans=* | --program-tran=* \ | --progr-tra=* | --program-tr=* | --program-t=*) program_transform_name="$ac_optarg" ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q \ | -silent | --silent | --silen | --sile | --sil) silent=yes ;; -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ | --sbi=* | --sb=*) sbindir="$ac_optarg" ;; -sharedstatedir | --sharedstatedir | --sharedstatedi \ | --sharedstated | --sharedstate | --sharedstat | --sharedsta \ | --sharedst | --shareds | --shared | --share | --shar \ | --sha | --sh) ac_prev=sharedstatedir ;; -sharedstatedir=* | --sharedstatedir=* | --sharedstatedi=* \ | --sharedstated=* | --sharedstate=* | --sharedstat=* | --sharedsta=* \ | --sharedst=* | --shareds=* | --shared=* | --share=* | --shar=* \ | --sha=* | --sh=*) sharedstatedir="$ac_optarg" ;; -site | --site | --sit) ac_prev=site ;; -site=* | --site=* | --sit=*) site="$ac_optarg" ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) srcdir="$ac_optarg" ;; -sysconfdir | --sysconfdir | --sysconfdi | --sysconfd | --sysconf \ | --syscon | --sysco | --sysc | --sys | --sy) ac_prev=sysconfdir ;; -sysconfdir=* | --sysconfdir=* | --sysconfdi=* | --sysconfd=* | --sysconf=* \ | --syscon=* | --sysco=* | --sysc=* | --sys=* | --sy=*) sysconfdir="$ac_optarg" ;; -target | --target | --targe | --targ | --tar | --ta | --t) ac_prev=target ;; -target=* | --target=* | --targe=* | --targ=* | --tar=* | --ta=* | --t=*) target="$ac_optarg" ;; -v | -verbose | --verbose | --verbos | --verbo | --verb) verbose=yes ;; -version | --version | --versio | --versi | --vers) echo "configure generated by autoconf version 2.9" exit 0 ;; -with-* | --with-*) ac_package=`echo $ac_option|sed -e 's/-*with-//' -e 's/=.*//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_package| sed 's/[-_a-zA-Z0-9]//g'`"; then { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } fi ac_package=`echo $ac_package| sed 's/-/_/g'` case "$ac_option" in *=*) ;; *) ac_optarg=yes ;; esac eval "with_${ac_package}='$ac_optarg'" ;; --without-tk ) build_tk=no ;; -without-* | --without-*) ac_package=`echo $ac_option|sed -e 's/-*without-//'` # Reject names that are not valid shell variable names. if test -n "`echo $ac_package| sed 's/[-a-zA-Z0-9_]//g'`"; then { echo "configure: error: $ac_package: invalid package name" 1>&2; exit 1; } fi ac_package=`echo $ac_package| sed 's/-/_/g'` eval "with_${ac_package}=no" ;; --x) # Obsolete; use --with-x. with_x=yes ;; -x-includes | --x-includes | --x-include | --x-includ | --x-inclu \ | --x-incl | --x-inc | --x-in | --x-i) ac_prev=x_includes ;; -x-includes=* | --x-includes=* | --x-include=* | --x-includ=* | --x-inclu=* \ | --x-incl=* | --x-inc=* | --x-in=* | --x-i=*) x_includes="$ac_optarg" ;; -x-libraries | --x-libraries | --x-librarie | --x-librari \ | --x-librar | --x-libra | --x-libr | --x-lib | --x-li | --x-l) ac_prev=x_libraries ;; -x-libraries=* | --x-libraries=* | --x-librarie=* | --x-librari=* \ | --x-librar=* | --x-libra=* | --x-libr=* | --x-lib=* | --x-li=* | --x-l=*) x_libraries="$ac_optarg" ;; -*) { echo "configure: error: $ac_option: invalid option; use --help to show usage" 1>&2; exit 1; } ;; *) if test -n "`echo $ac_option| sed 's/[-a-z0-9.]//g'`"; then echo "configure: warning: $ac_option: invalid host type" 1>&2 fi if test "x$nonopt" != xNONE; then { echo "configure: error: can only configure for one host and one target at a time" 1>&2; exit 1; } fi nonopt="$ac_option" ;; esac done if test -n "$ac_prev"; then { echo "configure: error: missing argument to --`echo $ac_prev | sed 's/_/-/g'`" 1>&2; exit 1; } fi trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 # File descriptor usage: # 0 standard input # 1 file creation # 2 errors and warnings # 3 some systems may open it to /dev/tty # 4 used on the Kubota Titan # 6 checking for... messages and results # 5 compiler messages saved in config.log if test "$silent" = yes; then exec 6>/dev/null else exec 6>&1 fi exec 5>./config.log echo "\ This file contains any messages produced by compilers while running configure, to aid debugging if configure makes a mistake. " 1>&5 # Strip out --no-create and --no-recursion so they do not pile up. # Also quote any args containing shell metacharacters. ac_configure_args= for ac_arg do case "$ac_arg" in -no-create | --no-create | --no-creat | --no-crea | --no-cre \ | --no-cr | --no-c) ;; -no-recursion | --no-recursion | --no-recursio | --no-recursi \ | --no-recurs | --no-recur | --no-recu | --no-rec | --no-re | --no-r) ;; *" "*|*" "*|*[\[\]\~\#\$\^\&\*\(\)\{\}\\\|\;\<\>\?]*) ac_configure_args="$ac_configure_args '$ac_arg'" ;; *) ac_configure_args="$ac_configure_args $ac_arg" ;; esac done # NLS nuisances. # Only set LANG and LC_ALL to C if already set. # These must not be set unconditionally because not all systems understand # e.g. LANG=C (notably SCO). if test "${LC_ALL+set}" = set; then LC_ALL=C; export LC_ALL; fi if test "${LANG+set}" = set; then LANG=C; export LANG; fi # confdefs.h avoids OS command line length limits that DEFS can exceed. rm -rf conftest* confdefs.h # AIX cpp loses on an empty file, so make sure it contains at least a newline. echo > confdefs.h # A filename unique to this package, relative to the directory that # configure is in, which we can look for to find out if srcdir is correct. ac_unique_file=itcl/generic/itcl.h # Find the source files, if location was not specified. if test -z "$srcdir"; then ac_srcdir_defaulted=yes # Try the directory containing this script, then its parent. ac_prog=$0 ac_confdir=`echo $ac_prog|sed 's%/[^/][^/]*$%%'` test "x$ac_confdir" = "x$ac_prog" && ac_confdir=. srcdir=$ac_confdir if test ! -r $srcdir/$ac_unique_file; then srcdir=.. fi else ac_srcdir_defaulted=no fi if test ! -r $srcdir/$ac_unique_file; then if test "$ac_srcdir_defaulted" = yes; then { echo "configure: error: can not find sources in $ac_confdir or .." 1>&2; exit 1; } else { echo "configure: error: can not find sources in $srcdir" 1>&2; exit 1; } fi fi srcdir=`echo "${srcdir}" | sed 's%\([^/]\)/*$%\1%'` # Prefer explicitly selected file to automatically selected ones. if test -z "$CONFIG_SITE"; then if test "x$prefix" != xNONE; then CONFIG_SITE="$prefix/share/config.site $prefix/etc/config.site" else CONFIG_SITE="$ac_default_prefix/share/config.site $ac_default_prefix/etc/config.site" fi fi for ac_site_file in $CONFIG_SITE; do if test -r "$ac_site_file"; then echo "loading site script $ac_site_file" . "$ac_site_file" fi done if test -r "$cache_file"; then echo "loading cache $cache_file" . $cache_file else echo "creating cache $cache_file" > $cache_file fi ac_ext=c # CFLAGS is not in ac_cpp because -g, -O, etc. are not valid cpp options. ac_cpp='$CPP $CPPFLAGS' ac_compile='${CC-cc} -c $CFLAGS $CPPFLAGS conftest.$ac_ext 1>&5' ac_link='${CC-cc} -o conftest $CFLAGS $CPPFLAGS $LDFLAGS conftest.$ac_ext $LIBS 1>&5' if (echo "testing\c"; echo 1,2,3) | grep c >/dev/null; then # Stardent Vistra SVR4 grep lacks -e, says ghazi@caip.rutgers.edu. if (echo -n testing; echo 1,2,3) | sed s/-n/xn/ | grep xn >/dev/null; then ac_n= ac_c=' ' ac_t=' ' else ac_n=-n ac_c= ac_t= fi else ac_n= ac_c='\c' ac_t= fi # RCS: $Id: configure,v 1.3 1999/04/01 22:00:09 damon Exp $ ac_aux_dir= for ac_dir in config $srcdir/config; do if test -f $ac_dir/install-sh; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install-sh -c" break elif test -f $ac_dir/install.sh; then ac_aux_dir=$ac_dir ac_install_sh="$ac_aux_dir/install.sh -c" break fi done if test -z "$ac_aux_dir"; then { echo "configure: error: can not find install-sh or install.sh in config $srcdir/config" 1>&2; exit 1; } fi ac_config_guess=$ac_aux_dir/config.guess ac_config_sub=$ac_aux_dir/config.sub ac_configure=$ac_aux_dir/configure # This should be Cygnus configure. # ----------------------------------------------------------------------- # # Set up a new default --prefix. If a previous installation of # [incr Tcl] can be found searching $PATH use that directory. # # ----------------------------------------------------------------------- if test "x$prefix" = xNONE; then echo $ac_n "checking for prefix by ""... $ac_c" 1>&6 # Extract the first word of "itclsh", so it can be a program name with args. set dummy itclsh; ac_word=$2 echo $ac_n "checking for $ac_word""... $ac_c" 1>&6 if eval "test \"`echo '$''{'ac_cv_path_ITCLSH'+set}'`\" = set"; then echo $ac_n "(cached) $ac_c" 1>&6 else case "$ITCLSH" in /*) ac_cv_path_ITCLSH="$ITCLSH" # Let the user override the test with a path. ;; *) IFS="${IFS= }"; ac_save_ifs="$IFS"; IFS="${IFS}:" for ac_dir in $PATH; do test -z "$ac_dir" && ac_dir=. if test -f $ac_dir/$ac_word; then ac_cv_path_ITCLSH="$ac_dir/$ac_word" break fi done IFS="$ac_save_ifs" ;; esac fi ITCLSH="$ac_cv_path_ITCLSH" if test -n "$ITCLSH"; then echo "$ac_t""$ITCLSH" 1>&6 else echo "$ac_t""no" 1>&6 fi if test -n "$ac_cv_path_ITCLSH"; then prefix=`echo $ac_cv_path_ITCLSH|sed 's%/[^/][^/]*//*[^/][^/]*$%%'` fi fi if test $build_tk = "yes"; then subdirs="itcl/unix itk/unix iwidgets2.2.0/unix iwidgets3.0.0/unix" else subdirs="itcl/unix" fi trap '' 1 2 15 cat > confcache <<\EOF # This file is a shell script that caches the results of configure # tests run on this system so they can be shared between configure # scripts and configure runs. It is not useful on other systems. # If it contains results you don't want to keep, you may remove or edit it. # # By default, configure uses ./config.cache as the cache file, # creating it if it does not exist already. You can give configure # the --cache-file=FILE option to use a different cache file; that is # what configure does when it calls configure scripts in # subdirectories, so they share the cache. # Giving --cache-file=/dev/null disables caching, for debugging configure. # config.status only pays attention to the cache file if you give it the # --recheck option to rerun configure. # EOF # Ultrix sh set writes to stderr and can't be redirected directly, # and sets the high bit in the cache file unless we assign to the vars. (set) 2>&1 | sed -n "s/^\([a-zA-Z0-9_]*_cv_[a-zA-Z0-9_]*\)=\(.*\)/\1=\${\1='\2'}/p" \ >> confcache if cmp -s $cache_file confcache; then : else if test -w $cache_file; then echo "updating cache $cache_file" cat confcache > $cache_file else echo "not updating unwritable cache $cache_file" fi fi rm -f confcache trap 'rm -fr conftest* confdefs* core core.* *.core $ac_clean_files; exit 1' 1 2 15 test "x$prefix" = xNONE && prefix=$ac_default_prefix # Let make expand exec_prefix. test "x$exec_prefix" = xNONE && exec_prefix='${prefix}' # Any assignment to VPATH causes Sun make to only execute # the first set of double-colon rules, so remove it if not needed. # If there is a colon in the path, we need to keep it. if test "x$srcdir" = x.; then ac_vpsub='/^[ ]*VPATH[ ]*=[^:]*$/d' fi trap 'rm -f $CONFIG_STATUS conftest*; exit 1' 1 2 15 # Transform confdefs.h into DEFS. # Protect against shell expansion while executing Makefile rules. # Protect against Makefile macro expansion. cat > conftest.defs <<\EOF s%#define \([A-Za-z_][A-Za-z0-9_]*\) *\(.*\)%-D\1=\2%g s%[ `~#$^&*(){}\\|;'"<>?]%\\&%g s%\[%\\&%g s%\]%\\&%g s%\$%$$%g EOF DEFS=`sed -f conftest.defs confdefs.h | tr '\012' ' '` rm -f conftest.defs # Without the "./", some shells look in PATH for config.status. : ${CONFIG_STATUS=./config.status} echo creating $CONFIG_STATUS rm -f $CONFIG_STATUS cat > $CONFIG_STATUS </dev/null | sed 1q`: # # $0 $ac_configure_args # # Compiler output produced by configure, useful for debugging # configure, is in ./config.log if it exists. ac_cs_usage="Usage: $CONFIG_STATUS [--recheck] [--version] [--help]" for ac_option do case "\$ac_option" in -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r) echo "running \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion" exec \${CONFIG_SHELL-/bin/sh} $0 $ac_configure_args --no-create --no-recursion ;; -version | --version | --versio | --versi | --vers | --ver | --ve | --v) echo "$CONFIG_STATUS generated by autoconf version 2.9" exit 0 ;; -help | --help | --hel | --he | --h) echo "\$ac_cs_usage"; exit 0 ;; *) echo "\$ac_cs_usage"; exit 1 ;; esac done ac_given_srcdir=$srcdir trap 'rm -fr `echo "Makefile" | sed "s/:[^ ]*//g"` conftest*; exit 1' 1 2 15 EOF cat >> $CONFIG_STATUS < conftest.subs <<\\CEOF $ac_vpsub $extrasub s%@CFLAGS@%$CFLAGS%g s%@CPPFLAGS@%$CPPFLAGS%g s%@CXXFLAGS@%$CXXFLAGS%g s%@DEFS@%$DEFS%g s%@LDFLAGS@%$LDFLAGS%g s%@LIBS@%$LIBS%g s%@exec_prefix@%$exec_prefix%g s%@prefix@%$prefix%g s%@program_transform_name@%$program_transform_name%g s%@bindir@%$bindir%g s%@sbindir@%$sbindir%g s%@libexecdir@%$libexecdir%g s%@datadir@%$datadir%g s%@sysconfdir@%$sysconfdir%g s%@sharedstatedir@%$sharedstatedir%g s%@localstatedir@%$localstatedir%g s%@libdir@%$libdir%g s%@includedir@%$includedir%g s%@oldincludedir@%$oldincludedir%g s%@infodir@%$infodir%g s%@mandir@%$mandir%g s%@ITCLSH@%$ITCLSH%g s%@subdirs@%$subdirs%g CEOF EOF cat >> $CONFIG_STATUS <> $CONFIG_STATUS <<\EOF for ac_file in .. $CONFIG_FILES; do if test "x$ac_file" != x..; then # Support "outfile[:infile]", defaulting infile="outfile.in". case "$ac_file" in *:*) ac_file_in=`echo "$ac_file"|sed 's%.*:%%'` ac_file=`echo "$ac_file"|sed 's%:.*%%'` ;; *) ac_file_in="${ac_file}.in" ;; esac # Adjust relative srcdir, etc. for subdirectories. # Remove last slash and all that follows it. Not all systems have dirname. ac_dir=`echo $ac_file|sed 's%/[^/][^/]*$%%'` if test "$ac_dir" != "$ac_file" && test "$ac_dir" != .; then # The file is in a subdirectory. test ! -d "$ac_dir" && $srcdir/config/mkinstalldirs "$ac_dir" ac_dir_suffix="/`echo $ac_dir|sed 's%^\./%%'`" # A "../" for each directory in $ac_dir_suffix. ac_dots=`echo $ac_dir_suffix|sed 's%/[^/]*%../%g'` else ac_dir_suffix= ac_dots= fi case "$ac_given_srcdir" in .) srcdir=. if test -z "$ac_dots"; then top_srcdir=. else top_srcdir=`echo $ac_dots|sed 's%/$%%'`; fi ;; /*) srcdir="$ac_given_srcdir$ac_dir_suffix"; top_srcdir="$ac_given_srcdir" ;; *) # Relative path. srcdir="$ac_dots$ac_given_srcdir$ac_dir_suffix" top_srcdir="$ac_dots$ac_given_srcdir" ;; esac echo creating "$ac_file" rm -f "$ac_file" configure_input="Generated automatically from `echo $ac_file_in|sed 's%.*/%%'` by configure." case "$ac_file" in *Makefile*) ac_comsub="1i\\ # $configure_input" ;; *) ac_comsub= ;; esac sed -e "$ac_comsub s%@configure_input@%$configure_input%g s%@srcdir@%$srcdir%g s%@top_srcdir@%$top_srcdir%g " -f conftest.subs $ac_given_srcdir/$ac_file_in > $ac_file fi; done rm -f conftest.subs exit 0 EOF chmod +x $CONFIG_STATUS rm -fr confdefs* $ac_clean_files test "$no_create" = yes || ${CONFIG_SHELL-/bin/sh} $CONFIG_STATUS || exit 1 if test "$no_recursion" != yes; then # Remove --cache-file and --srcdir arguments so they do not pile up. ac_sub_configure_args= ac_prev= for ac_arg in $ac_configure_args; do if test -n "$ac_prev"; then ac_prev= continue fi case "$ac_arg" in -cache-file | --cache-file | --cache-fil | --cache-fi \ | --cache-f | --cache- | --cache | --cach | --cac | --ca | --c) ac_prev=cache_file ;; -cache-file=* | --cache-file=* | --cache-fil=* | --cache-fi=* \ | --cache-f=* | --cache-=* | --cache=* | --cach=* | --cac=* | --ca=* | --c=*) ;; -srcdir | --srcdir | --srcdi | --srcd | --src | --sr) ac_prev=srcdir ;; -srcdir=* | --srcdir=* | --srcdi=* | --srcd=* | --src=* | --sr=*) ;; *) ac_sub_configure_args="$ac_sub_configure_args $ac_arg" ;; esac done for ac_config_dir in $subdirs; do # Do not complain, so a configure script can configure whichever # parts of a large source tree are present. if test ! -d $srcdir/$ac_config_dir; then continue fi echo configuring in $ac_config_dir case "$srcdir" in .) ;; *) if test -d ./$ac_config_dir || $srcdir/config/mkinstalldirs ./$ac_config_dir; then :; else { echo "configure: error: can not create `pwd`/$ac_config_dir" 1>&2; exit 1; } fi ;; esac ac_popdir=`pwd` cd $ac_config_dir case "$srcdir" in .) # No --srcdir option. We are building in place. ac_sub_srcdir=$srcdir ;; /*) # Absolute path. ac_sub_srcdir=$srcdir/$ac_config_dir ;; *) # Relative path. ac_sub_srcdir=../$srcdir/$ac_config_dir ;; esac # Check for guested configure; otherwise get Cygnus style configure. if test -f $ac_sub_srcdir/configure; then ac_sub_configure=$ac_sub_srcdir/configure elif test -f $ac_sub_srcdir/configure.in; then ac_sub_configure=$ac_configure else echo "configure: warning: no configuration information is in $ac_config_dir" 1>&2 ac_sub_configure= fi # The recursion is here. if test -n "$ac_sub_configure"; then # Make the cache file name correct relative to the subdirectory. # A "../" for each directory in /$ac_config_dir. ac_dots=`echo $ac_config_dir|sed -e 's%^\./%%' -e 's%[^/]$%&/%' -e 's%[^/]*/%../%g'` case "$cache_file" in /*) ac_sub_cache_file=$cache_file ;; *) # Relative path. ac_sub_cache_file="$ac_dots$cache_file" ;; esac echo "running ${CONFIG_SHELL-/bin/sh} $ac_sub_configure $ac_sub_configure_args --cache-file=$ac_sub_cache_file --srcdir=$ac_sub_srcdir" # The eval makes quoting arguments work. if eval ${CONFIG_SHELL-/bin/sh} $ac_sub_configure $ac_sub_configure_args --cache-file=$ac_sub_cache_file --srcdir=$ac_sub_srcdir then : else { echo "configure: error: $ac_sub_configure failed for $ac_config_dir" 1>&2; exit 1; } fi fi cd $ac_popdir done fi neotcl8.1.1-lite/itcl3.0.1/configure.in100664 15471 0 1415 6752336012 16153 0ustar damonwheeldnl This file is an input file used by the GNU "autoconf" program to dnl generate the file "configure", which is run during [incr Tcl] dnl installation to configure the system for the local environment. AC_INIT(itcl/generic/itcl.h) # RCS: $Id: configure.in,v 1.1.1.1 1999/03/31 20:39:31 damon Exp $ AC_CONFIG_AUX_DIR(config) AC_PREREQ(2.0) # ----------------------------------------------------------------------- # # Set up a new default --prefix. If a previous installation of # [incr Tcl] can be found searching $PATH use that directory. # # ----------------------------------------------------------------------- AC_PREFIX_DEFAULT(/usr/local) AC_PREFIX_PROGRAM(itclsh) AC_CONFIG_SUBDIRS(itcl/unix itk/unix iwidgets2.2.0/unix iwidgets3.0.0/unix) AC_OUTPUT(Makefile) neotcl8.1.1-lite/itcl3.0.1/license.terms100664 15471 0 11001 6752336012 16350 0ustar damonwheelThis software is copyrighted by Lucent Technologies, Inc., and other parties. The following terms apply to all files associated with the software unless explicitly disclaimed in individual files. The authors hereby grant permission to use, copy, modify, distribute, and license this software and its documentation for any purpose, provided that existing copyright notices are retained in all copies and that this notice is included verbatim in any distributions. No written agreement, license, or royalty fee is required for any of the authorized uses. Modifications to this software may be copyrighted by their authors and need not follow the licensing terms described here, provided that the new terms are clearly indicated on the first page of each file where they apply. IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. GOVERNMENT USE: If you are acquiring this software on behalf of the U.S. government, the Government shall have only "Restricted Rights" in the software and related documentation as defined in the Federal Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2). If you are acquiring the software on behalf of the Department of Defense, the software shall be classified as "Commercial Computer Software" and the Government shall have only "Restricted Rights" as defined in Clause 252.227-7013 (c) (1) of DFARs. Notwithstanding the foregoing, the authors grant the U.S. Government and others acting in its behalf permission to use and distribute the software in accordance with the terms specified in this license. ----------------------------------------------------------------------- Following is the original agreement for the Tcl/Tk software from Sun Microsystems. ----------------------------------------------------------------------- This software is copyrighted by the Regents of the University of California, Sun Microsystems, Inc., and other parties. The following terms apply to all files associated with the software unless explicitly disclaimed in individual files. The authors hereby grant permission to use, copy, modify, distribute, and license this software and its documentation for any purpose, provided that existing copyright notices are retained in all copies and that this notice is included verbatim in any distributions. No written agreement, license, or royalty fee is required for any of the authorized uses. Modifications to this software may be copyrighted by their authors and need not follow the licensing terms described here, provided that the new terms are clearly indicated on the first page of each file where they apply. IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. GOVERNMENT USE: If you are acquiring this software on behalf of the U.S. government, the Government shall have only "Restricted Rights" in the software and related documentation as defined in the Federal Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2). If you are acquiring the software on behalf of the Department of Defense, the software shall be classified as "Commercial Computer Software" and the Government shall have only "Restricted Rights" as defined in Clause 252.227-7013 (c) (1) of DFARs. Notwithstanding the foregoing, the authors grant the U.S. Government and others acting in its behalf permission to use and distribute the software in accordance with the terms specified in this license. neotcl8.1.1-lite/itcl3.0.1/makefile.bc100664 15471 0 4047 6752336012 15731 0ustar damonwheel# Borland 5.01 Makefile for Itcl 2.2 Distribution # # This is the main Borland makefile for the Windows distribution # of [incr Tcl] version 2.2. # # TOOLS -- path to root of Borland Directory # TARGET_ROOT -- Target Directory for installation # SOURCE_ROOT -- Path to root of source tree TOOLS = c:\bc45 TARGET_ROOT = c:\Program files\Itcl2.2 SOURCE_ROOT = c:\Itcl2.2 # # You should not have to modify anything further in this makefile # # # Borland C++ tools # BORLAND = $(TOOLS) IMPLIB = $(BORLAND)\bin\Implib BCC32 = $(BORLAND)\bin\Bcc32 TLINK32 = $(BORLAND)\bin\tlink32 RC = $(BORLAND)\bin\brcc32 BCC = $(BORLAND)\bin\Bcc TLINK = $(BORLAND)\bin\tlink RC16 = $(BORLAND)\bin\brcc32 -31 MAKE = $(BORLAND)\bin\make -fmakefile.bc # # System calls # CP = copy RM = del MKDIR = -mkdir # # Source and Build Paths # TCLDIR = $(SOURCE_ROOT)\Tcl7.6 TKDIR = $(SOURCE_ROOT)\Tk4.2 ITCLDIR = $(SOURCE_ROOT)\Itcl ITKDIR = $(SOURCE_ROOT)\Itk IWIDGETSDIR = $(SOURCE_ROOT)\Iwidgets2.2.0 # # Target Paths # TARGET_BIN = $(TARGET_ROOT)\Bin TARGET_LIB_ROOT = $(TARGET_ROOT)\Lib TARGET_LIB = $(TARGET_LIB_ROOT)\Itcl TARGET_INCLUDE_ROOT = $(TARGET_ROOT)\Include TARGET_INCLUDE = $(TARGET_INCLUDE_ROOT)\Itcl TARGET_DOC = $(TARGET_ROOT)\Html # # Shared Target Files: # TCLLIB = Tcl76i.lib TCLDLL = Tcl76i.dll TKLIB = Tk42i.lib TKDLL = Tk42i.dll ITCLLIB = Itcl22.lib ITCLDLL = Itcl22.dll ITKLIB = Itk22.lib ITKDLL = Itk22.dll # # Paths to Build locations of libraries # TCLLIBDIR = $(TCLDIR)\Win TKLIBDIR = $(TKDIR)\Win ITCLLIBDIR = $(ITCLDIR)\Win ITKLIBDIR = $(ITKDIR)\Win dist: cd $(TCLDIR)\Win $(MAKE) all cd $(TKDIR)\Win $(MAKE) all cd $(ITCLDIR)\Win $(MAKE) all cd $(ITKDIR)\Win $(MAKE) all dist-install: cd $(TCLDIR)\Win $(MAKE) install cd $(TKDIR)\Win $(MAKE) install cd $(ITCLDIR)\Win $(MAKE) install cd $(ITKDIR)\Win $(MAKE) install cd $(IWIDGETSDIR)\Win $(MAKE) install dist-clean: cd $(TCLDIR)\Win $(MAKE) clean cd $(TKDIR)\Win $(MAKE) clean cd $(ITCLDIR)\Win $(MAKE) clean cd $(ITKDIR)\Win $(MAKE) clean neotcl8.1.1-lite/itcl3.0.1/makefile.vc100664 15471 0 4574 6752336012 15762 0ustar damonwheel# # Visual C++ 4.1 makefile # # This is the main Visual C++ makefile for the Windows distribution # of [incr Tcl] version 3.0. To compile the distribution using Visual # C++, copy "makefile.vc" to "makefile". Then set the macros for the # location of the source directory, installation directory, and the # Microsoft Compilers. You may then "make dist" to build the distribution, # and "make dist-install" to install it to the target directory you specify # below, and "make dist-clean" to clean up. # # Project directories # # ROOT = top of source tree # # TMPDIR = location where .obj files should be stored during build # # TOOLS32 = location of VC++ 32-bit development tools. Note that the # VC++ 2.0 header files are broken, so you need to use the # ones that come with the developer network CD's, or later # versions of VC++. # # INSTALLDIR = where the install- targets should copy the binaries and # support files # TOOLS32 = c:\progra~1\devstudio\vc TOOLS32_rc = c:\progra~1\devstudio\sharedide SOURCE_ROOT = c:\tcl\itcl3.0 INSTALLDIR = c:\progra~1\Tcl TCLDIR = c:\tcl\tcl8.0.3 TKDIR = c:\tcl\tk8.0.3 # Set this to the appropriate value of /MACHINE: for your platform MACHINE = IX86 # Set NODEBUG to 0 to compile with symbols NODEBUG = 1 # uncomment one of the following lines to compile with TCL_MEM_DEBUG, # TCL_MEM_DEBUG, or TCL_COMPILE_DEBUG #DEBUGDEFINES = -DTCL_MEM_DEBUG #DEBUGDEFINES = -DTCL_MEM_DEBUG -DTCL_COMPILE_DEBUG #DEBUGDEFINES = -DTCL_MEM_DEBUG -DTCL_COMPILE_STATS #DEBUGDEFINES = -DTCL_MEM_DEBUG -DTCL_COMPILE_DEBUG -DTCL_COMPILE_STATS # # You should not have to modify anything further in this makefile # MAKE = $(TOOLS32)\bin\nmake -fmakefile.vc # # System calls # CP = copy RM = del MKDIR = -mkdir # # Source and Build Paths # ITCLDIR = $(SOURCE_ROOT)\Itcl ITKDIR = $(SOURCE_ROOT)\Itk IWIDGETS2DIR = $(SOURCE_ROOT)\Iwidgets2.2.0 IWIDGETS3DIR = $(SOURCE_ROOT)\Iwidgets3.0.0 dist: cd $(ITCLDIR)\Win $(MAKE) all cd $(ITKDIR)\Win $(MAKE) all dist-install: cd $(ITCLDIR)\Win $(MAKE) install cd $(ITKDIR)\Win $(MAKE) install cd $(IWIDGETS2DIR)\Win $(MAKE) install cd $(IWIDGETS3DIR)\Win $(MAKE) install dist-clean: cd $(ITCLDIR)\Win $(MAKE) clean cd $(ITKDIR)\Win $(MAKE) clean neotcl8.1.1-lite/itcl3.0.1/doc/ 40755 15471 0 0 6752336013 14310 5ustar damonwheelneotcl8.1.1-lite/itcl3.0.1/doc/CVS/ 40755 15471 0 0 6752336013 14743 5ustar damonwheelneotcl8.1.1-lite/itcl3.0.1/doc/CVS/Root100644 15471 0 26 6752336013 15644 0ustar damonwheelneoworld.net:/usr/cvs neotcl8.1.1-lite/itcl3.0.1/doc/CVS/Repository100644 15471 0 74 6752336013 17103 0ustar damonwheel/usr/cvs/NEOSOFT/nws/nws-3.2/neotcl8.1.1-lite/itcl3.0.1/doc neotcl8.1.1-lite/itcl3.0.1/doc/CVS/Entries100644 15471 0 55 6752336013 16334 0ustar damonwheel/README/1.1.1.1/Thu Aug 5 16:30:03 1999// D neotcl8.1.1-lite/itcl3.0.1/doc/README100664 15471 0 757 6752336013 15260 0ustar damonwheel OVERVIEW ------------------------------------------------------------------------ If you are just getting started with [incr Tcl], download the "tutorial" from the itcl web site: http://www.tcltk.com/itcl/ This has over 100 pages of introductory text and code examples. I didn't include it here, since it adds another megabyte to the distribution, and long-time users won't need it. You can find the same tutorial in the book "Tcl/Tk Tools" published by O'Reilly and Associates. neotcl8.1.1-lite/itcl3.0.1/itcl/ 40755 15471 0 0 6752336026 14502 5ustar damonwheelneotcl8.1.1-lite/itcl3.0.1/itcl/CVS/ 40755 15471 0 0 6752360662 15140 5ustar damonwheelneotcl8.1.1-lite/itcl3.0.1/itcl/CVS/Root100644 15471 0 26 6752336013 16032 0ustar damonwheelneoworld.net:/usr/cvs neotcl8.1.1-lite/itcl3.0.1/itcl/CVS/Repository100644 15471 0 75 6752336013 17272 0ustar damonwheel/usr/cvs/NEOSOFT/nws/nws-3.2/neotcl8.1.1-lite/itcl3.0.1/itcl neotcl8.1.1-lite/itcl3.0.1/itcl/CVS/Entries100664 15471 0 203 6752360662 16546 0ustar damonwheel/license.terms/1.1.1.1/Thu Aug 5 16:30:04 1999// D/doc//// D/generic//// D/library//// D/mac//// D/tests//// D/unix//// D/win//// neotcl8.1.1-lite/itcl3.0.1/itcl/doc/ 40755 15471 0 0 6752336015 15245 5ustar damonwheelneotcl8.1.1-lite/itcl3.0.1/itcl/doc/CVS/ 40755 15471 0 0 6752336015 15700 5ustar damonwheelneotcl8.1.1-lite/itcl3.0.1/itcl/doc/CVS/Root100644 15471 0 26 6752336014 16600 0ustar damonwheelneoworld.net:/usr/cvs neotcl8.1.1-lite/itcl3.0.1/itcl/doc/CVS/Repository100644 15471 0 101 6752336014 20046 0ustar damonwheel/usr/cvs/NEOSOFT/nws/nws-3.2/neotcl8.1.1-lite/itcl3.0.1/itcl/doc neotcl8.1.1-lite/itcl3.0.1/itcl/doc/CVS/Entries100644 15471 0 1335 6752336015 17333 0ustar damonwheel/body.n/1.1.1.1/Thu Aug 5 16:30:04 1999// /class.n/1.1.1.1/Thu Aug 5 16:30:04 1999// /code.n/1.1.1.1/Thu Aug 5 16:30:04 1999// /configbody.n/1.1.1.1/Thu Aug 5 16:30:04 1999// /delete.n/1.1.1.1/Thu Aug 5 16:30:04 1999// /ensemble.n/1.1.1.1/Thu Aug 5 16:30:04 1999// /find.n/1.1.1.1/Thu Aug 5 16:30:04 1999// /itcl.n/1.1.1.1/Thu Aug 5 16:30:04 1999// /itcl_class.n/1.1.1.1/Thu Aug 5 16:30:04 1999// /itcl_info.n/1.1.1.1/Thu Aug 5 16:30:04 1999// /itclsh.1/1.1.1.1/Thu Aug 5 16:30:05 1999// /itclvars.n/1.1.1.1/Thu Aug 5 16:30:05 1999// /license.terms/1.1.1.1/Thu Aug 5 16:30:05 1999// /local.n/1.1.1.1/Thu Aug 5 16:30:05 1999// /man.macros/1.1.1.1/Thu Aug 5 16:30:05 1999// /scope.n/1.1.1.1/Thu Aug 5 16:30:05 1999// D neotcl8.1.1-lite/itcl3.0.1/itcl/doc/class.n100664 15471 0 47665 6752336014 16671 0ustar damonwheel'\" '\" Copyright (c) 1993-1998 Lucent Technologies, Inc. '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" '\" RCS: $Id: class.n,v 1.1.1.1 1999/03/31 20:39:46 damon Exp $ '\" .so man.macros .TH class n "" itcl "[incr\ Tcl]" .BS '\" Note: do not modify the .SH NAME line immediately below! .SH NAME class \- create a class of objects .SH SYNOPSIS \fBclass \fIclassName\fR \fB{ .br \fBinherit \fIbaseClass\fR ?\fIbaseClass\fR...? .br \fBconstructor \fIargs\fR ?\fIinit\fR? \fIbody\fR .br \fBdestructor \fIbody\fR .br \fBmethod \fIname\fR ?\fIargs\fR? ?\fIbody\fR? .br \fBproc \fIname ?\fIargs\fR? ?\fIbody\fR? .br \fBvariable \fIvarName\fR ?\fIinit\fR? ?\fIconfig\fR? .br \fBcommon \fIvarName\fR ?\fIinit\fR? .sp \fBpublic \fIcommand\fR ?\fIarg arg ...\fR? .br \fBprotected \fIcommand\fR ?\fIarg arg ...\fR? .br \fBprivate \fIcommand\fR ?\fIarg arg ...\fR? .sp \fBset \fIvarName\fR ?\fIvalue\fR? .br \fBarray \fIoption\fR ?\fIarg arg ...\fR? .br \fB}\fR .sp \fIclassName objName\fR ?\fIarg arg ...\fR? .sp \fIobjName method\fR ?\fIarg arg ...\fR? .sp \fIclassName::proc ?\fIarg arg ...\fR? .BE .SH DESCRIPTION .PP The fundamental construct in \fB[incr\ Tcl]\fR is the class definition. Each class acts as a template for actual objects that can be created. The class itself is a namespace which contains things common to all objects. Each object has its own unique bundle of data which contains instances of the "variables" defined in the class definition. Each object also has a built-in variable named "this", which contains the name of the object. Classes can also have "common" data members that are shared by all objects in a class. .PP Two types of functions can be included in the class definition. "Methods" are functions which operate on a specific object, and therefore have access to both "variables" and "common" data members. "Procs" are ordinary procedures in the class namespace, and only have access to "common" data members. .PP If the body of any method or proc starts with "\fB@\fR", it is treated as the symbolic name for a C procedure. Otherwise, it is treated as a Tcl code script. See below for details on registering and using C procedures. .PP A class can only be defined once, although the bodies of class methods and procs can be defined again and again for interactive debugging. See the \fBbody\fR and \fBconfigbody\fR commands for details. .PP Each namespace can have its own collection of objects and classes. The list of classes available in the current context can be queried using the "\fBitcl::find classes\fR" command, and the list of objects, with the "\fBitcl::find objects\fR" command. .PP A class can be deleted using the "\fBdelete class\fR" command. Individual objects can be deleted using the "\fBdelete object\fR" command. .SH CLASS DEFINITIONS .TP \fBclass \fIclassName definition\fR Provides the definition for a class named \fIclassName\fR. If the class \fIclassName\fR already exists, or if a command called \fIclassName\fR exists in the current namespace context, this command returns an error. If the class definition is successfully parsed, \fIclassName\fR becomes a command in the current context, handling the creation of objects for this class. .PP The class \fIdefinition\fR is evaluated as a series of Tcl statements that define elements within the class. The following class definition commands are recognized: .RS .TP \fBinherit \fIbaseClass\fR ?\fIbaseClass\fR...? Causes the current class to inherit characteristics from one or more base classes. Classes must have been defined by a previous \fBclass\fR command, or must be available to the auto-loading facility (see "AUTO-LOADING" below). A single class definition can contain no more than one \fBinherit\fR command. .sp The order of \fIbaseClass\fR names in the \fBinherit\fR list affects the name resolution for class members. When the same member name appears in two or more base classes, the base class that appears first in the \fBinherit\fR list takes precedence. For example, if classes "Foo" and "Bar" both contain the member "x", and if another class has the "\fBinherit\fR" statement: .CS inherit Foo Bar .CE then the name "x" means "Foo::x". Other inherited members named "x" must be referenced with their explicit name, like "Bar::x". .TP \fBconstructor \fIargs\fR ?\fIinit\fR? \fIbody\fR Declares the \fIargs\fR argument list and \fIbody\fR used for the constructor, which is automatically invoked whenever an object is created. .sp Before the \fIbody\fR is executed, the optional \fIinit\fR statement is used to invoke any base class constructors that require arguments. Variables in the \fIargs\fR specification can be accessed in the \fIinit\fR code fragment, and passed to base class constructors. After evaluating the \fIinit\fR statement, any base class constructors that have not been executed are invoked automatically without arguments. This ensures that all base classes are fully constructed before the constructor \fIbody\fR is executed. By default, this scheme causes constructors to be invoked in order from least- to most-specific. This is exactly the opposite of the order that classes are reported by the \fBinfo heritage\fR command. .sp If construction is successful, the constructor always returns the object name\-regardless of how the \fIbody\fR is defined\-and the object name becomes a command in the current namespace context. If construction fails, an error message is returned. .TP \fBdestructor \fIbody\fR Declares the \fIbody\fR used for the destructor, which is automatically invoked when an object is deleted. If the destructor is successful, the object data is destroyed and the object name is removed as a command from the interpreter. If destruction fails, an error message is returned and the object remains. .sp When an object is destroyed, all destructors in its class hierarchy are invoked in order from most- to least-specific. This is the order that the classes are reported by the "\fBinfo heritage\fR" command, and it is exactly the opposite of the default constructor order. .TP \fBmethod \fIname\fR ?\fIargs\fR? ?\fIbody\fR? Declares a method called \fIname\fR. When the method \fIbody\fR is executed, it will have automatic access to object-specific variables and common data members. .sp If the \fIargs\fR list is specified, it establishes the usage information for this method. The \fBbody\fR command can be used to redefine the method body, but the \fIargs\fR list must match this specification. .sp Within the body of another class method, a method can be invoked like any other command\-simply by using its name. Outside of the class context, the method name must be prefaced an object name, which provides the context for the data that it manipulates. Methods in a base class that are redefined in the current class, or hidden by another base class, can be qualified using the "\fIclassName\fR::\fImethod\fR" syntax. .TP \fBproc \fIname\fR ?\fIargs\fR? ?\fIbody\fR? Declares a proc called \fIname\fR. A proc is an ordinary procedure within the class namespace. Unlike a method, a proc is invoked without referring to a specific object. When the proc \fIbody\fR is executed, it will have automatic access only to common data members. .sp If the \fIargs\fR list is specified, it establishes the usage information for this proc. The \fBbody\fR command can be used to redefine the proc body, but the \fIargs\fR list must match this specification. .sp Within the body of another class method or proc, a proc can be invoked like any other command\-simply by using its name. In any other namespace context, the proc is invoked using a qualified name like "\fIclassName\fB::\fIproc\fR". Procs in a base class that are redefined in the current class, or hidden by another base class, can also be accessed via their qualified name. .TP \fBvariable \fIvarName\fR ?\fIinit\fR? ?\fIconfig\fR? Defines an object-specific variable named \fIvarName\fR. All object-specific variables are automatically available in class methods. They need not be declared with anything like the \fBglobal\fR command. .sp If the optional \fIinit\fR string is specified, it is used as the initial value of the variable when a new object is created. Initialization forces the variable to be a simple scalar value; uninitialized variables, on the other hand, can be set within the constructor and used as arrays. .sp The optional \fIconfig\fR script is only allowed for public variables. If specified, this code fragment is executed whenever a public variable is modified by the built-in "configure" method. The \fIconfig\fR script can also be specified outside of the class definition using the \fBconfigbody\fR command. .TP \fBcommon \fIvarName\fR ?\fIinit\fR? Declares a common variable named \fIvarName\fR. Common variables reside in the class namespace and are shared by all objects belonging to the class. They are just like global variables, except that they need not be declared with the usual \fBglobal\fR command. They are automatically visible in all class methods and procs. .sp If the optional \fIinit\fR string is specified, it is used as the initial value of the variable. Initialization forces the variable to be a simple scalar value; uninitialized variables, on the other hand, can be set with subsequent \fBset\fR and \fBarray\fR commands and used as arrays. .sp Once a common data member has been defined, it can be set using \fBset\fR and \fBarray\fR commands within the class definition. This allows common data members to be initialized as arrays. For example: .CS class Foo { common boolean set boolean(true) 1 set boolean(false) 0 } .CE Note that if common data members are initialized within the constructor, they get initialized again and again whenever new objects are created. .TP \fBpublic \fIcommand\fR ?\fIarg arg ...\fR? .TP \fBprotected \fIcommand\fR ?\fIarg arg ...\fR? .TP \fBprivate \fIcommand\fR ?\fIarg arg ...\fR? These commands are used to set the protection level for class members that are created when \fIcommand\fR is evaluated. The \fIcommand\fR is usually \fBmethod\fR, \fBproc\fR, \fBvariable\fR or\fBcommon\fR, and the remaining \fIarg\fR's complete the member definition. However, \fIcommand\fR can also be a script containing many different member definitions, and the protection level will apply to all of the members that are created. .SH CLASS USAGE .PP Once a class has been defined, the class name can be used as a command to create new objects belonging to the class. .TP \fIclassName objName\fR ?\fIargs...\fR? Creates a new object in class \fIclassName\fR with the name \fIobjName\fR. Remaining arguments are passed to the constructor of the most-specific class. This in turn passes arguments to base class constructors before invoking its own body of commands. If construction is successful, a command called \fIobjName\fR is created in the current namespace context, and \fIobjName\fR is returned as the result of this operation. If an error is encountered during construction, the destructors are automatically invoked to free any resources that have been allocated, the object is deleted, and an error is returned. .sp If \fIobjName\fR contains the string "\fB#auto\fR", that string is replaced with an automatically generated name. Names have the form \fIclassName\fR, where the \fIclassName\fR part is modified to start with a lowercase letter. In class "Toaster", for example, the "\fB#auto\fR" specification would produce names like toaster0, toaster1, etc. Note that "\fB#auto\fR" can be also be buried within an object name: .CS fileselectiondialog .foo.bar.#auto -background red .CE This would generate an object named ".foo.bar.fileselectiondialog0". .SH OBJECT USAGE Once an object has been created, the object name can be used as a command to invoke methods that operate on the object. .TP \fIobjName method\fR ?\fIargs...\fR? Invokes a method named \fImethod\fR on an object named \fIobjName\fR. Remaining arguments are passed to the argument list for the method. The method name can be "constructor", "destructor", any method name appearing in the class definition, or any of the following built-in methods. .SH BUILT-IN METHODS .TP \fIobjName\fR \fBcget option\fR Provides access to public variables as configuration options. This mimics the behavior of the usual "cget" operation for Tk widgets. The \fIoption\fR argument is a string of the form "\fB-\fIvarName\fR", and this method returns the current value of the public variable \fIvarName\fR. .TP \fIobjName\fR \fBconfigure\fR ?\fIoption\fR? ?\fIvalue option value ...\fR? Provides access to public variables as configuration options. This mimics the behavior of the usual "configure" operation for Tk widgets. With no arguments, this method returns a list of lists describing all of the public variables. Each list has three elements: the variable name, its initial value and its current value. .sp If a single \fIoption\fR of the form "\fB-\fIvarName\fR" is specified, then this method returns the information for that one variable. .sp Otherwise, the arguments are treated as \fIoption\fR/\fIvalue\fR pairs assigning new values to public variables. Each variable is assigned its new value, and if it has any "config" code associated with it, it is executed in the context of the class where it was defined. If the "config" code generates an error, the variable is set back to its previous value, and the \fBconfigure\fR method returns an error. .TP \fIobjName\fR \fBisa \fIclassName\fR Returns non-zero if the given \fIclassName\fR can be found in the object's heritage, and zero otherwise. .TP \fIobjName\fR \fBinfo \fIoption\fR ?\fIargs...\fR? Returns information related to a particular object named \fIobjName\fR, or to its class definition. The \fIoption\fR parameter includes the following things, as well as the options recognized by the usual Tcl "info" command: .RS .TP \fIobjName\fR \fBinfo class\fR Returns the name of the most-specific class for object \fIobjName\fR. .TP \fIobjName\fR \fBinfo inherit\fR Returns the list of base classes as they were defined in the "\fBinherit\fR" command, or an empty string if this class has no base classes. .TP \fIobjName\fR \fBinfo heritage\fR Returns the current class name and the entire list of base classes in the order that they are traversed for member lookup and object destruction. .TP \fIobjName\fR \fBinfo function\fR ?\fIcmdName\fR? ?\fB-protection\fR? ?\fB-type\fR? ?\fB-name\fR? ?\fB-args\fR? ?\fB-body\fR? With no arguments, this command returns a list of all class methods and procs. If \fIcmdName\fR is specified, it returns information for a specific method or proc. If no flags are specified, this command returns a list with the following elements: the protection level, the type (method/proc), the qualified name, the argument list and the body. Flags can be used to request specific elements from this list. .TP \fIobjName\fR \fBinfo variable\fR ?\fIvarName\fR? ?\fB-protection\fR? ?\fB-type\fR? ?\fB-name\fR? ?\fB-init\fR? ?\fB-value\fR? ?\fB-config\fR? With no arguments, this command returns a list of all object-specific variables and common data members. If \fIvarName\fR is specified, it returns information for a specific data member. If no flags are specified, this command returns a list with the following elements: the protection level, the type (variable/common), the qualified name, the initial value, and the current value. If \fIvarName\fR is a public variable, the "config" code is included on this list. Flags can be used to request specific elements from this list. .SH CHAINING METHODS/PROCS Sometimes a base class has a method or proc that is redefined with the same name in a derived class. This is a way of making the derived class handle the same operations as the base class, but with its own specialized behavior. For example, suppose we have a Toaster class that looks like this: .CS class Toaster { variable crumbs 0 method toast {nslices} { if {$crumbs > 50} { error "== FIRE! FIRE! ==" } set crumbs [expr $crumbs+4*$nslices] } method clean {} { set crumbs 0 } } .CE We might create another class like SmartToaster that redefines the "toast" method. If we want to access the base class method, we can qualify it with the base class name, to avoid ambiguity: .CS class SmartToaster { inherit Toaster method toast {nslices} { if {$crumbs > 40} { clean } return [Toaster::toast $nslices] } } .CE Instead of hard-coding the base class name, we can use the "chain" command like this: .CS class SmartToaster { inherit Toaster method toast {nslices} { if {$crumbs > 40} { clean } return [chain $nslices] } } .CE The chain command searches through the class hierarchy for a slightly more generic (base class) implementation of a method or proc, and invokes it with the specified arguments. It starts at the current class context and searches through base classes in the order that they are reported by the "info heritage" command. If another implementation is not found, this command does nothing and returns the null string. .SH AUTO-LOADING .PP Class definitions need not be loaded explicitly; they can be loaded as needed by the usual Tcl auto-loading facility. Each directory containing class definition files should have an accompanying "tclIndex" file. Each line in this file identifies a Tcl procedure or \fB[incr\ Tcl]\fR class definition and the file where the definition can be found. .PP For example, suppose a directory contains the definitions for classes "Toaster" and "SmartToaster". Then the "tclIndex" file for this directory would look like: .CS # Tcl autoload index file, version 2.0 for [incr Tcl] # This file is generated by the "auto_mkindex" command # and sourced to set up indexing information for one or # more commands. Typically each line is a command that # sets an element in the auto_index array, where the # element name is the name of a command and the value is # a script that loads the command. set auto_index(::Toaster) "source $dir/Toaster.itcl" set auto_index(::SmartToaster) "source $dir/SmartToaster.itcl" .PP The \fBauto_mkindex\fR command is used to automatically generate "tclIndex" files. .CE The auto-loader must be made aware of this directory by appending the directory name to the "auto_path" variable. When this is in place, classes will be auto-loaded as needed when used in an application. .SH C PROCEDURES .PP C procedures can be integrated into an \fB[incr\ Tcl]\fR class definition to implement methods, procs, and the "config" code for public variables. Any body that starts with "\fB@\fR" is treated as the symbolic name for a C procedure. .PP Symbolic names are established by registering procedures via \fBItcl_RegisterC()\fR. This is usually done in the \fBTcl_AppInit()\fR procedure, which is automatically called when the interpreter starts up. In the following example, the procedure \fCMy_FooCmd()\fR is registered with the symbolic name "foo". This procedure can be referenced in the \fBbody\fR command as "\fC@foo\fR". .CS int Tcl_AppInit(interp) Tcl_Interp *interp; /* Interpreter for application. */ { if (Itcl_Init(interp) == TCL_ERROR) { return TCL_ERROR; } if (Itcl_RegisterC(interp, "foo", My_FooCmd) != TCL_OK) { return TCL_ERROR; } } .CE C procedures are implemented just like ordinary Tcl commands. See the \fBCrtCommand\fR man page for details. Within the procedure, class data members can be accessed like ordinary variables using \fBTcl_SetVar()\fR, \fBTcl_GetVar()\fR, \fBTcl_TraceVar()\fR, etc. Class methods and procs can be executed like ordinary commands using \fBTcl_Eval()\fR. \fB[incr\ Tcl]\fR makes this possible by automatically setting up the context before executing the C procedure. .PP This scheme provides a natural migration path for code development. Classes can be developed quickly using Tcl code to implement the bodies. An entire application can be built and tested. When necessary, individual bodies can be implemented with C code to improve performance. .SH KEYWORDS class, object, object-oriented neotcl8.1.1-lite/itcl3.0.1/itcl/doc/body.n100664 15471 0 7671 6752336014 16472 0ustar damonwheel'\" '\" Copyright (c) 1993-1998 Lucent Technologies, Inc. '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" '\" RCS: $Id: body.n,v 1.1.1.1 1999/03/31 20:39:46 damon Exp $ '\" .so man.macros .TH body n 3.0 itcl "[incr\ Tcl]" .BS '\" Note: do not modify the .SH NAME line immediately below! .SH NAME body \- change the body for a class method/proc .SH SYNOPSIS \fBbody \fIclassName\fB::\fIfunction args body\fR .BE .SH DESCRIPTION .PP The \fBbody\fR command is used outside of an \fB[incr\ Tcl]\fR class definition to define or redefine the body of a class method or proc. This facility allows a class definition to have separate "interface" and "implementation" parts. The "interface" part is a \fBclass\fR command with declarations for methods, procs, instance variables and common variables. The "implementation" part is a series of \fBbody\fR and \fBconfigbody\fR commands. If the "implementation" part is kept in a separate file, it can be sourced again and again as bugs are fixed, to support interactive development. When using the "tcl" mode in the \fBemacs\fR editor, the "interface" and "implementation" parts can be kept in the same file; as bugs are fixed, individual bodies can be highlighted and sent to the test application. .PP The name "\fIclassName\fB::\fIfunction\fR" identifies the method/proc being changed. .PP If an \fIargs\fR list was specified when the \fIfunction\fR was defined in the class definition, the \fIargs\fR list for the \fBbody\fR command must match in meaning. Variable names can change, but the argument lists must have the same required arguments and the same default values for optional arguments. The special \fBargs\fR argument acts as a wildcard when included in the \fIargs\fR list in the class definition; it will match zero or more arguments of any type when the body is redefined. .PP If the \fIbody\fR string starts with "\fB@\fR", it is treated as the symbolic name for a C procedure. The \fIargs\fR list has little meaning for the C procedure, except to document the expected usage. (The C procedure is not guaranteed to use arguments in this manner.) If \fIbody\fR does not start with "\fB@\fR", it is treated as a Tcl command script. When the function is invoked, command line arguments are matched against the \fIargs\fR list, and local variables are created to represent each argument. This is the usual behavior for a Tcl-style proc. .PP Symbolic names for C procedures are established by registering procedures via \fBItcl_RegisterC()\fR. This is usually done in the \fBTcl_AppInit()\fR procedure, which is automatically called when the interpreter starts up. In the following example, the procedure \fCMy_FooCmd()\fR is registered with the symbolic name "foo". This procedure can be referenced in the \fBbody\fR command as "\fC@foo\fR". .CS int Tcl_AppInit(interp) Tcl_Interp *interp; /* Interpreter for application. */ { if (Itcl_Init(interp) == TCL_ERROR) { return TCL_ERROR; } if (Itcl_RegisterC(interp, "foo", My_FooCmd) != TCL_OK) { return TCL_ERROR; } } .CE .SH EXAMPLE In the following example, a "File" class is defined to represent open files. The method bodies are included below the class definition via the \fBbody\fR command. Note that the bodies of the constructor/destructor must be included in the class definition, but they can be redefined via the \fBbody\fR command as well. .CS class File { private variable fid "" constructor {name access} { set fid [open $name $access] } destructor { close $fid } method get {} method put {line} method eof {} } body File::get {} { return [gets $fid] } body File::put {line} { puts $fid $line } body File::eof {} { return [::eof $fid] } # # See the File class in action: # File x /etc/passwd "r" while {![x eof]} { puts "=> [x get]" } delete object x .CE .SH KEYWORDS class, object, procedure neotcl8.1.1-lite/itcl3.0.1/itcl/doc/delete.n100664 15471 0 4613 6752336014 16770 0ustar damonwheel'\" '\" Copyright (c) 1993-1998 Lucent Technologies, Inc. '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" '\" RCS: $Id: delete.n,v 1.1.1.1 1999/03/31 20:39:46 damon Exp $ '\" .so man.macros .TH delete n 3.0 itcl "[incr\ Tcl]" .BS '\" Note: do not modify the .SH NAME line immediately below! .SH NAME delete \- delete things in the interpreter .SH SYNOPSIS \fBdelete \fIoption\fR ?\fIarg arg ...\fR? .BE .SH DESCRIPTION .PP The \fBdelete\fR command is used to delete things in the interpreter. It is implemented as an ensemble, so extensions can add their own options and extend the behavior of this command. By default, the \fBdelete\fR command handles the destruction of namespaces. .PP The \fIoption\fR argument determines what action is carried out by the command. The legal \fIoptions\fR (which may be abbreviated) are: .TP \fBdelete class \fIname\fR ?\fIname...\fR? Deletes one or more \fB[incr\ Tcl]\fR classes called \fIname\fR. This deletes all objects in the class, and all derived classes as well. .sp If an error is encountered while destructing an object, it will prevent the destruction of the class and any remaining objects. To destroy the entire class without regard for errors, use the "\fBdelete namespace\fR" command. .TP \fBdelete object \fIname\fR ?\fIname...\fR? Deletes one or more \fB[incr\ Tcl]\fR objects called \fIname\fR. An object is deleted by invoking all destructors in its class hierarchy, in order from most- to least-specific. If all destructors are successful, data associated with the object is deleted and the \fIname\fR is removed as a command from the interpreter. .sp If the access command for an object resides in another namespace, then its qualified name can be used: .CS delete object foo::bar::x .CE If an error is encountered while destructing an object, the \fBdelete\fR command is aborted and the object remains alive. To destroy an object without regard for errors, use the "\fBrename\fR" command to destroy the object access command. .TP \fBdelete namespace \fIname\fR ?\fIname...\fR? Deletes one or more namespaces called \fIname\fR. This deletes all commands and variables in the namespace, and deletes all child namespaces as well. When a namespace is deleted, it is automatically removed from the import lists of all other namespaces. .SH KEYWORDS namespace, proc, variable, ensemble neotcl8.1.1-lite/itcl3.0.1/itcl/doc/code.n100664 15471 0 5736 6752336014 16447 0ustar damonwheel'\" '\" Copyright (c) 1993-1998 Lucent Technologies, Inc. '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" '\" RCS: $Id: code.n,v 1.1.1.1 1999/03/31 20:39:46 damon Exp $ '\" .so man.macros .TH code n 3.0 itcl "[incr\ Tcl]" .BS '\" Note: do not modify the .SH NAME line immediately below! .SH NAME code \- capture the namespace context for a code fragment .SH SYNOPSIS \fBcode \fR?\fB-namespace \fIname\fR? \fIcommand \fR?\fIarg arg ...\fR? .BE .SH DESCRIPTION .PP Creates a scoped value for the specified \fIcommand\fR and its associated \fIarg\fR arguments. A scoped value is a list with three elements: the "\fC@scope\fR" keyword, a namespace context, and a value string. For example, the command .CS namespace foo { code puts "Hello World!" } .CE produces the scoped value: .CS @scope ::foo {puts {Hello World!}} .CE Note that the \fBcode\fR command captures the current namespace context. If the \fB-namespace\fR flag is specified, then the current context is ignored, and the \fIname\fR string is used as the namespace context. .PP Extensions like Tk execute ordinary code fragments in the global namespace. A scoped value captures a code fragment together with its namespace context in a way that allows it to be executed properly later. It is needed, for example, to wrap up code fragments when a Tk widget is used within a namespace: .CS namespace foo { private proc report {mesg} { puts "click: $mesg" } button .b1 -text "Push Me" \ -command [code report "Hello World!"] pack .b1 } .CE The code fragment associated with button \fC.b1\fR only makes sense in the context of namespace "foo". Furthermore, the "report" procedure is private, and can only be accessed within that namespace. The \fBcode\fR command wraps up the code fragment in a way that allows it to be executed properly when the button is pressed. .PP Also, note that the \fBcode\fR command preserves the integrity of arguments on the command line. This makes it a natural replacement for the \fBlist\fR command, which is often used to format Tcl code fragments. In other words, instead of using the \fBlist\fR command like this: .CS after 1000 [list puts "Hello $name!"] .CE use the \fBcode\fR command like this: .CS after 1000 [code puts "Hello $name!"] .CE This not only formats the command correctly, but also captures its namespace context. .PP Scoped commands can be invoked like ordinary code fragments, with or without the \fBeval\fR command. For example, the following statements work properly: .CS set cmd {@scope ::foo .b1} $cmd configure -background red set opts {-bg blue -fg white} eval $cmd configure $opts .CE Note that scoped commands by-pass the usual protection mechanisms; the command: .CS @scope ::foo {report {Hello World!}} .CE can be used to access the "foo::report" proc from any namespace context, even though it is private. .SH KEYWORDS scope, callback, namespace, public, protected, private neotcl8.1.1-lite/itcl3.0.1/itcl/doc/configbody.n100664 15471 0 7257 6752336014 17660 0ustar damonwheel'\" '\" Copyright (c) 1993-1998 Lucent Technologies, Inc. '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" '\" RCS: $Id: configbody.n,v 1.1.1.1 1999/03/31 20:39:46 damon Exp $ '\" .so man.macros .TH configbody n 3.0 itcl "[incr\ Tcl]" .BS '\" Note: do not modify the .SH NAME line immediately below! .SH NAME configbody \- change the "config" code for a public variable .SH SYNOPSIS \fBconfigbody \fIclassName\fB::\fIvarName body\fR .BE .SH DESCRIPTION .PP The \fBconfigbody\fR command is used outside of an \fB[incr\ Tcl]\fR class definition to define or redefine the configuration code associated with a public variable. Public variables act like configuration options for an object. They can be modified outside the class scope using the built-in \fBconfigure\fR method. Each variable can have a bit of "config" code associate with it that is automatically executed when the variable is configured. The \fBconfigbody\fR command can be used to define or redefine this body of code. .PP Like the \fBbody\fR command, this facility allows a class definition to have separate "interface" and "implementation" parts. The "interface" part is a \fBclass\fR command with declarations for methods, procs, instance variables and common variables. The "implementation" part is a series of \fBbody\fR and \fBconfigbody\fR commands. If the "implementation" part is kept in a separate file, it can be sourced again and again as bugs are fixed, to support interactive development. When using the "tcl" mode in the \fBemacs\fR editor, the "interface" and "implementation" parts can be kept in the same file; as bugs are fixed, individual bodies can be highlighted and sent to the test application. .PP The name "\fIclassName\fB::\fIvarName\fR" identifies the public variable being updated. If the \fIbody\fR string starts with "\fB@\fR", it is treated as the symbolic name for a C procedure. Otherwise, it is treated as a Tcl command script. .PP Symbolic names for C procedures are established by registering procedures via \fBItcl_RegisterC()\fR. This is usually done in the \fBTcl_AppInit()\fR procedure, which is automatically called when the interpreter starts up. In the following example, the procedure \fCMy_FooCmd()\fR is registered with the symbolic name "foo". This procedure can be referenced in the \fBconfigbody\fR command as "\fC@foo\fR". .CS int Tcl_AppInit(interp) Tcl_Interp *interp; /* Interpreter for application. */ { if (Itcl_Init(interp) == TCL_ERROR) { return TCL_ERROR; } if (Itcl_RegisterC(interp, "foo", My_FooCmd) != TCL_OK) { return TCL_ERROR; } } .CE .SH EXAMPLE In the following example, a "File" class is defined to represent open files. Whenever the "-name" option is configured, the existing file is closed, and a new file is opened. Note that the "config" code for a public variable is optional. The "-access" option, for example, does not have it. .CS class File { private variable fid "" public variable name "" public variable access "r" constructor {args} { eval configure $args } destructor { if {$fid != ""} { close $fid } } method get {} method put {line} method eof {} } body File::get {} { return [gets $fid] } body File::put {line} { puts $fid $line } body File::eof {} { return [::eof $fid] } configbody File::name { if {$fid != ""} { close $fid } set fid [open $name $access] } # # See the File class in action: # File x x configure -name /etc/passwd while {![x eof]} { puts "=> [x get]" } delete object x .CE .SH KEYWORDS class, object, variable, configure neotcl8.1.1-lite/itcl3.0.1/itcl/doc/ensemble.n100664 15471 0 13441 6752336014 17337 0ustar damonwheel'\" '\" Copyright (c) 1993-1998 Lucent Technologies, Inc. '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" '\" RCS: $Id: ensemble.n,v 1.1.1.1 1999/03/31 20:39:46 damon Exp $ '\" .so man.macros .TH ensemble n 3.0 itcl "[incr\ Tcl]" .BS '\" Note: do not modify the .SH NAME line immediately below! .SH NAME ensemble \- create or modify a composite command .SH SYNOPSIS \fBensemble \fIensName\fR ?\fIcommand arg arg...\fR? .br or .br \fBensemble \fIensName\fR { .br \fBpart \fIpartName args body\fR .br \fI...\fR .br \fBensemble \fIpartName\fR { .br \fBpart \fIsubPartName args body\fR .br \fBpart \fIsubPartName args body\fR .br \fI...\fR } .br } .BE .SH DESCRIPTION .PP The \fBensemble\fR command is used to create or modify a composite command. See the section \fBWHAT IS AN ENSEMBLE?\fR below for a brief overview of ensembles. .PP If the \fBensemble\fR command finds an existing ensemble called \fIensName\fR, it updates that ensemble. Otherwise, it creates an ensemble called \fIensName\fR. If the \fIensName\fR is a simple name like "foo", then an ensemble command named "foo" is added to the current namespace context. If a command named "foo" already exists in that context, then it is deleted. If the \fIensName\fR contains namespace qualifiers like "a::b::foo", then the namespace path is resolved, and the ensemble command is added that namespace context. Parent namespaces like "a" and "b" are created automatically, as needed. .PP If the \fIensName\fR contains spaces like "a::b::foo bar baz", then additional words like "bar" and "baz" are treated as sub-ensembles. Sub-ensembles are merely parts within an ensemble; they do not have a Tcl command associated with them. An ensemble like "foo" can have a sub-ensemble called "foo bar", which in turn can have a sub-ensemble called "foo bar baz". In this case, the sub-ensemble "foo bar" must be created before the sub-ensemble "foo bar baz" that resides within it. .PP If there are any arguments following \fIensName\fR, then they are treated as commands, and they are executed to update the ensemble. The following commands are recognized in this context: \fBpart\fR and \fBensemble\fR. .PP The \fBpart\fR command defines a new part for the ensemble. Its syntax is identical to the usual \fBproc\fR command, but it defines a part within an ensemble, instead of a Tcl command. If a part called \fIpartName\fR already exists within the ensemble, then the \fBpart\fR command returns an error. .PP The \fBensemble\fR command can be nested inside another \fBensemble\fR command to define a sub-ensemble. .SH "WHAT IS AN ENSEMBLE?" The usual "info" command is a composite command--the command name \fBinfo\fR must be followed by a sub-command like \fBbody\fR or \fBglobals\fR. We will refer to a command like \fBinfo\fR as an \fIensemble\fR, and to sub-commands like \fBbody\fR or \fBglobals\fR as its \fIparts\fR. .PP Ensembles can be nested. For example, the \fBinfo\fR command has an ensemble \fBinfo namespace\fR within it. This ensemble has parts like \fBinfo namespace all\fR and \fBinfo namespace children\fR. .PP With ensembles, composite commands can be created and extended in an automatic way. Any package can find an existing ensemble and add new parts to it. So extension writers can add their own parts, for example, to the \fBinfo\fR command. .PP The ensemble facility manages all of the part names and keeps track of unique abbreviations. Normally, you can abbreviate \fBinfo complete\fR to \fBinfo comp\fR. But if an extension adds the part \fBinfo complexity\fR, the minimum abbreviation for \fBinfo complete\fR becomes \fBinfo complet\fR. .PP The ensemble facility not only automates the construction of composite commands, but it automates the error handling as well. If you invoke an ensemble command without specifying a part name, you get an automatically generated error message that summarizes the usage information. For example, when the \fBinfo\fR command is invoked without any arguments, it produces the following error message: .CS wrong # args: should be one of... info args procname info body procname info cmdcount info commands ?pattern? info complete command info context info default procname arg varname info exists varName info globals ?pattern? info level ?number? info library info locals ?pattern? info namespace option ?arg arg ...? info patchlevel info procs ?pattern? info protection ?-command? ?-variable? name info script info tclversion info vars ?pattern? info which ?-command? ?-variable? ?-namespace? name\fR .CE You can also customize the way an ensemble responds to errors. When an ensemble encounters an unspecified or ambiguous part name, it looks for a part called \fB@error\fR. If it exists, then it is used to handle the error. This part will receive all of the arguments on the command line starting with the offending part name. It can find another way of resolving the command, or generate its own error message. .SH EXAMPLE We could use an ensemble to clean up the syntax of the various "wait" commands in Tcl/Tk. Instead of using a series of strange commands like this: .CS vwait x tkwait visibility .top tkwait window . .CE we could use commands with a uniform syntax, like this: .CS wait variable x wait visibility .top wait window . .CE The Tcl package could define the following ensemble: .CS ensemble wait part variable {name} { uplevel vwait $name } .CE The Tk package could add some options to this ensemble, with a command like this: .CS ensemble wait { part visibility {name} { tkwait visibility $name } part window {name} { tkwait window $name } } .CE Other extensions could add their own parts to the \fBwait\fR command too. .SH KEYWORDS ensemble, part, info neotcl8.1.1-lite/itcl3.0.1/itcl/doc/find.n100664 15471 0 5056 6752336014 16450 0ustar damonwheel'\" '\" Copyright (c) 1993-1998 Lucent Technologies, Inc. '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" '\" RCS: $Id: find.n,v 1.1.1.1 1999/03/31 20:39:46 damon Exp $ '\" .so man.macros .TH find n 3.0 itcl "[incr\ Tcl]" .BS '\" Note: do not modify the .SH NAME line immediately below! .SH NAME find \- search for classes and objects .SH SYNOPSIS \fBfind \fIoption\fR ?\fIarg arg ...\fR? .BE .SH DESCRIPTION .PP The \fBfind\fR command is used to find classes and objects that are available in the current context. A class or object is "available" if its access command can be found in the current namespace context or in the global namespace. Therefore, classes and objects created in the global namespace are available to all other namespaces in a program. Classes and objects created in one namespace can also be imported into another using the \fBnamespace import\fR command. .PP The \fIoption\fR argument determines what action is carried out by the command. The legal \fIoptions\fR (which may be abbreviated) are: .TP \fBfind classes ?\fIpattern\fR? Returns a list of classes found in the current namespace context. If the optional \fIpattern\fR is specified, then the reported names are compared using the rules of the "\fBstring match\fR" command, and only matching names are reported. .sp If a class resides in the current namespace context, this command reports its simple name--without any qualifiers. However, if the \fIpattern\fR contains \fB::\fR qualifiers, or if the class resides in another context, this command reports its fully-qualified name. .TP \fBfind objects ?\fIpattern\fR? ?\fB-class \fIclassName\fR? ?\fB-isa \fIclassName\fR? Returns a list of objects found in the current namespace context. If the optional \fIpattern\fR is specified, then the reported names are compared using the rules of the "\fBstring match\fR" command, and only matching names are reported. If the optional "\fB-class\fR" parameter is specified, this list is restricted to objects whose most-specific class is \fIclassName\fR. If the optional "\fB-isa\fR" parameter is specified, this list is further restricted to objects having the given \fIclassName\fR anywhere in their heritage. .sp If an object resides in the current namespace context, this command reports its simple name--without any qualifiers. However, if the \fIpattern\fR contains \fB::\fR qualifiers, or if the object resides in another context, this command reports its fully-qualified name. .SH KEYWORDS class, object, search, import neotcl8.1.1-lite/itcl3.0.1/itcl/doc/itcl.n100664 15471 0 16252 6752336014 16503 0ustar damonwheel'\" '\" Copyright (c) 1993-1998 Lucent Technologies, Inc. '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" '\" RCS: $Id: itcl.n,v 1.1.1.1 1999/03/31 20:39:46 damon Exp $ '\" .so man.macros .TH itcl n 3.0 itcl "[incr\ Tcl]" .BS '\" Note: do not modify the .SH NAME line immediately below! .SH NAME itcl \- object-oriented extensions to Tcl .BE .SH DESCRIPTION .PP \fB[incr\ Tcl]\fR provides object-oriented extensions to Tcl, much as C++ provides object-oriented extensions to C. The emphasis of this work, however, is not to create a whiz-bang object-oriented programming environment. Rather, it is to support more structured programming practices in Tcl without changing the flavor of the language. More than anything else, \fB[incr\ Tcl]\fR provides a means of encapsulating related procedures together with their shared data in a namespace that is hidden from the outside world. It encourages better programming by promoting the object-oriented "library" mindset. It also allows for code re-use through inheritance. .SH CLASSES .PP The fundamental construct in \fB[incr\ Tcl]\fR is the class definition. Each class acts as a template for actual objects that can be created. Each object has its own unique bundle of data, which contains instances of the "variables" defined in the class. Special procedures called "methods" are used to manipulate individual objects. Methods are just like the operations that are used to manipulate Tk widgets. The "\fBbutton\fR" widget, for example, has methods such as "flash" and "invoke" that cause a particular button to blink and invoke its command. .PP Within the body of a method, the "variables" defined in the class are automatically available. They need not be declared with anything like the \fBglobal\fR command. Within another class method, a method can be invoked like any other command\-simply by using its name. From any other context, the method name must be prefaced by an object name, which provides a context for the data that the method can access. .PP Each class has its own namespace containing things that are common to all objects which belong to the class. For example, "common" data members are shared by all objects in the class. They are global variables that exist in the class namespace, but since they are included in the class definition, they need not be declared using the \fBglobal\fR command; they are automatically available to any code executing in the class context. A class can also create ordinary global variables, but these must be declared using the \fBglobal\fR command each time they are used. .PP Classes can also have ordinary procedures declared as "procs". Within another class method or proc, a proc can be invoked like any other command\-simply by using its name. From any other context, the procedure name should be qualified with the class namespace like "\fIclassName\fB::\fIproc\fR". Class procs execute in the class context, and therefore have automatic access to all "common" data members. However, they cannot access object-specific "variables", since they are invoked without reference to any specific object. They are usually used to perform generic operations which affect all objects belonging to the class. .PP Each of the elements in a class can be declared "public", "protected" or "private". Public elements can be accessed by the class, by derived classes (other classes that inherit this class), and by external clients that use the class. Protected elements can be accessed by the class, and by derived classes. Private elements are only accessible in the class where they are defined. .PP The "public" elements within a class define its interface to the external world. Public methods define the operations that can be used to manipulate an object. Public variables are recognized as configuration options by the "configure" and "cget" methods that are built into each class. The public interface says \fIwhat\fR an object will do but not \fIhow\fR it will do it. Protected and private members, along with the bodies of class methods and procs, provide the implementation details. Insulating the application developer from these details leaves the class designer free to change them at any time, without warning, and without affecting programs that rely on the class. It is precisely this encapsulation that makes object-oriented programs easier to understand and maintain. .PP The fact that \fB[incr\ Tcl]\fR objects look like Tk widgets is no accident. \fB[incr\ Tcl]\fR was designed this way, to blend naturally into a Tcl/Tk application. But \fB[incr\ Tcl]\fR extends the Tk paradigm from being merely object-based to being fully object-oriented. An object-oriented system supports inheritance, allowing classes to share common behaviors by inheriting them from an ancestor or base class. Having a base class as a common abstraction allows a programmer to treat related classes in a similar manner. For example, a toaster and a blender perform different (specialized) functions, but both share the abstraction of being appliances. By abstracting common behaviors into a base class, code can be \fIshared\fR rather than \fIcopied\fR. The resulting application is easier to understand and maintain, and derived classes (e.g., specialized appliances) can be added or removed more easily. .PP This description was merely a brief overview of object-oriented programming and \fB[incr\ Tcl]\fR. A more tutorial introduction is presented in the paper included with this distribution. See the \fBclass\fR command for more details on creating and using classes. .SH NAMESPACES .PP \fB[incr\ Tcl]\fR now includes a complete namespace facility. A namespace is a collection of commands and global variables that is kept apart from the usual global scope. This allows Tcl code libraries to be packaged in a well-defined manner, and prevents unwanted interactions with other libraries. A namespace can also have child namespaces within it, so one library can contain its own private copy of many other libraries. A namespace can also be used to wrap up a group of related classes. The global scope (named "\fC::\fR") is the root namespace for an interpreter; all other namespaces are contained within it. .PP See the \fBnamespace\fR command for details on creating and using namespaces. .SH MEGA-WIDGETS .PP Mega-widgets are high-level widgets that are constructed using Tk widgets as component parts, usually without any C code. A fileselectionbox, for example, may have a few listboxes, some entry widgets and some control buttons. These individual widgets are put together in a way that makes them act like one big widget. .PP \fB[incr\ Tk]\fR is a framework for building mega-widgets. It uses \fB[incr\ Tcl]\fR to support the object paradigm, and adds base classes which provide default widget behaviors. See the \fBitk\fR man page for more details. .PP \fB[incr\ Widgets]\fR is a library of mega-widgets built using \fB[incr\ Tk]\fR. It contains more than 30 different widget classes that can be used right out of the box to build Tcl/Tk applications. Each widget class has its own man page describing the features available. .SH KEYWORDS class, object, object-oriented, namespace, mega-widget neotcl8.1.1-lite/itcl3.0.1/itcl/doc/itcl_class.n100664 15471 0 42375 6752336014 17675 0ustar damonwheel'\" '\" Copyright (c) 1993-1998 Lucent Technologies, Inc. '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" '\" RCS: $Id: itcl_class.n,v 1.1.1.1 1999/03/31 20:39:46 damon Exp $ '\" .so man.macros .TH itcl_class n 3.0 itcl "[incr\ Tcl]" .BS '\" Note: do not modify the .SH NAME line immediately below! .SH NAME itcl_class \- create a class of objects (obsolete) .SH SYNOPSIS \fBitcl_class \fIclassName\fR \fB{ .br \fBinherit \fIbaseClass\fR ?\fIbaseClass\fR...? .br \fBconstructor \fIargs\fR ?\fIinit\fR? \fIbody\fR .br \fBdestructor \fIbody\fR .br \fBmethod \fIname args body\fR .br \fBproc \fIname args body\fR .br \fBpublic \fIvarName\fR ?\fIinit\fR? ?\fIconfig\fR? .br \fBprotected \fIvarName\fR ?\fIinit\fR? .br \fBcommon \fIvarName\fR ?\fIinit\fR? .br \fB}\fR .sp \fIclassName objName\fR ?\fIargs...\fR? .br \fIclassName\fR \fB#auto\fR ?\fIargs...\fR? .br \fIclassName\fR \fB::\fR \fIproc\fR ?\fIargs...\fR? .sp \fIobjName method\fR ?\fIargs...\fR? .sp \fICommands available within class methods/procs:\fR .br \fBglobal \fIvarName\fR ?\fIvarName...\fR? .br \fBprevious \fIcommand\fR ?\fIargs...\fR? .br \fBvirtual \fIcommand\fR ?\fIargs...\fR? .BE .SH DESCRIPTION .PP This command is considered obsolete, but is retained for backward-compatibility with earlier versions of \fB[incr\ Tcl]\fR. It has been replaced by the \fBclass\fR command, which should be used for any new development. .TP \fBitcl_class \fIclassName definition\fR Provides the definition for a class named \fIclassName\fR. If \fIclassName\fR is already defined, then this command returns an error. If the class definition is successfully parsed, \fIclassName\fR becomes a command in the current namespace context, handling the creation of objects and providing access to class scope. The class \fIdefinition\fR is evaluated as a series of Tcl statements that define elements within the class. In addition to the usual commands, the following class definition commands are recognized: .RS .TP \fBinherit \fIbaseClass\fR ?\fIbaseClass\fR...? Declares one or more base classes, causing the current class to inherit their characteristics. Classes must have been defined by a previous \fBitcl_class\fR command, or must be available to the auto-loading facility (see "AUTO-LOADING" below). A single class definition can contain no more than one \fBinherit\fR command. .RS .LP When the same member name appears in two or more base classes, the base class that appears first in the \fBinherit\fR list takes precedence. For example, if classes "Foo" and "Bar" both contain the member "x", then the "\fBinherit\fR" statement: .CS inherit Foo Bar .CE allows "Foo::x" to be accessed simply as "x" but forces "Bar::x" (and all other inherited members named "x") to be referenced with their explicit "\fIclass\fR::\fImember\fR" name. .RE .TP \fBconstructor \fIargs\fR ?\fIinit\fR? \fIbody\fR Declares the argument list and body used for the constructor, which is automatically invoked whenever an object is created. Before .VS the \fIbody\fR is executed, the optional \fIinit\fR statement is used to invoke any base class constructors that require arguments. Variables in the \fIargs\fR specification can be accessed in the \fIinit\fR code fragment, and passed to base class constructors. After evaluating the \fIinit\fR statement, any base class constructors that have not been executed are invoked without arguments. This ensures that all base classes are fully constructed before the constructor \fIbody\fR is executed. .VE If construction is successful, the constructor always returns the object name\-regardless of how the \fIbody\fR is defined\-and the object name becomes a command in the current namespace context. If construction fails, an error message is returned. .TP \fBdestructor \fIbody\fR Declares the body used for the destructor, which is automatically invoked whenever an object is deleted. If the destructor is successful, the object data is destroyed and the object name is removed as a command from the interpreter. If destruction fails, an error message is returned and the object remains. .RS .LP .VS When an object is destroyed, all destructors in a class hierarchy are invoked in order from most- to least-specific. This is the order that the classes are reported by the "\fBinfo heritage\fR" command, and it is exactly the opposite of the default constructor order. .VE .RE .TP \fBmethod \fIname args body\fR Declares a method called \fIname\fR with an argument list \fIargs\fR and a \fIbody\fR of Tcl statements. A method is just like the usual Tcl "proc" except that it has transparent access to .VS object-specific variables, as well as .VE common variables. Within the class scope, a method can be invoked like any other command\-simply by using its name. Outside of the class scope, the method name must be prefaced by an object name. Methods in a base class that are redefined in the current class or hidden by another base class can be explicitly scoped using the "\fIclass\fR::\fImethod\fR" syntax. .TP \fBproc \fIname args body\fR Declares a proc called \fIname\fR with an argument list \fIargs\fR and a \fIbody\fR of Tcl statements. A proc is similar to a method, except that it can be invoked without referring to a specific object, and therefore has access only to common variables\-not .VS to object-specific variables declared with the \fBpublic\fR and \fBprotected\fR commands. .VE Within the class scope, a proc can be invoked like any other command\-simply by using its name. In any other namespace context, the proc is invoked using a qualified name like "\fIclassName\fB::\fIproc\fR". Procs in a base class that are redefined in the current class, or hidden by another base class, can also be accessed via their qualified name. .TP \fBpublic \fIvarName\fR ?\fIinit\fR? ?\fIconfig\fR? Declares a public variable named \fIvarName\fR. Public variables are visible in methods within the scope of their class and any derived class. In addition, they can be modified outside of the class scope using the special "config" formal argument (see "ARGUMENT LISTS" above). If the optional \fIinit\fR is specified, it is used as the initial value of the variable when a new object is created. If the optional \fIconfig\fR command is specified, it is invoked whenever a public variable is modified via the "config" formal argument; if the \fIconfig\fR command returns an error, the public variable is reset to its value before configuration, and the method handling the configuration returns an error. .TP \fBprotected \fIvarName\fR ?\fIinit\fR? Declares a protected variable named \fIvarName\fR. Protected variables are visible in methods within the scope of their class and any derived class, but cannot be modified outside of the class scope. If the optional \fIinit\fR is specified, it is used as the initial value of the variable when a new object is created. Initialization forces the variable to be a simple scalar value; uninitialized variables, on the other hand, can be used as arrays. All objects have a built-in protected variable named "this" which is initialized to the instance name for the object. .TP \fBcommon \fIvarName\fR ?\fIinit\fR? Declares a common variable named \fIvarName\fR. Common variables are shared among all objects in a class. They are visible in methods and procs in the scope of their class and any derived class, but cannot be modified outside of the class scope. If the optional \fIinit\fR is specified, it is used as the initial value of the variable. Initialization forces the variable to be a simple scalar value; uninitialized variables, on the other hand, can be used as arrays. .RS .LP Once a common variable has been declared, it can be configured using ordinary Tcl code within the class definition. This facility is particularly useful when the initialization of the variable is non-trivial\-when the variable contains an array of values, for example: .CS itcl_class Foo { . . common boolean set boolean(true) 1 set boolean(false) 0 } .CE .RE .RE .SH CLASS USAGE .PP When a class definition has been loaded (or made available to the auto-loader), the class name can be used as a command. .TP \fIclassName objName\fR ?\fIargs...\fR? Creates a new object in class \fIclassName\fR with the name \fIobjName\fR. Remaining arguments are passed to the constructor. If construction is successful, the object name is returned and this name becomes a command in the current namespace context. Otherwise, an error is returned. .TP \fIclassName\fR #auto ?\fIargs...\fR? Creates a new object in class \fIclassName\fR with an automatically generated name. Names are of the form \fIclassName\fR, .VS where the \fIclassName\fR part is modified to start with a lowercase letter. In class "Toaster", for example, the "\fB#auto\fR" specification would produce names toaster0, toaster1, etc. Remaining arguments are .VE passed to the constructor. If construction is successful, the object name is returned and this name becomes a command in the current namespace context. Otherwise, an error is returned. .TP \fIclassName\fR :: \fIproc\fR ?\fIargs...\fR? Used outside of the class scope to invoke a class proc named \fIproc\fR. Class procs are like ordinary Tcl procs, except that they are executed in the scope of the class and therefore have transparent access to common data members. .RS .LP .VS Notice that, unlike any other scope qualifier in \fB[incr\ Tcl]\fR, the "::" shown above is surrounded by spaces. This is unnecessary with the new namespace facility, and is considered obsolete. The capability is still supported, however, to provide backward-compatibility with earlier versions. .VE .RE .SH OBJECT USAGE .TP \fIobjName method\fR ?\fIargs...\fR? Invokes a method named \fImethod\fR to operate on the specified object. Remaining arguments are passed to the method. The method name can be "constructor", "destructor", any method name appearing in the class definition, or any of the following built-in methods. .SH BUILT-IN METHODS .TP \fIobjName\fR \fBisa \fIclassName\fR Returns non-zero if the given \fIclassName\fR can be found in the object's heritage, and zero otherwise. .TP \fIobjName\fR \fBdelete\fR Invokes the destructor associated with an object. If the destructor is successful, data associated with the object is deleted and \fIobjName\fR is removed as a command from the interpreter. Returns the empty string, regardless of the destructor body. .RS .LP .VS The built-in \fBdelete\fR method has been replaced by the "\fBdelete object\fR" command in the global namespace, and is considered obsolete. The capability is still supported, however, to provide backward-compatibility with earlier versions. .VE .RE .TP \fIobjName\fR \fBinfo \fIoption\fR ?\fIargs...\fR? Returns information related to the class definition or to a particular object named \fIobjName\fR. The \fIoption\fR parameter includes the following things, as well as the options recognized by the usual Tcl "info" command: .RS .TP \fIobjName\fR \fBinfo class\fR .VS Returns the name of the most-specific class for object \fIobjName\fR. .VE .TP \fIobjName\fR \fBinfo inherit\fR Returns the list of base classes as they were defined in the "\fBinherit\fR" command, or an empty string if this class has no base classes. .TP \fIobjName\fR \fBinfo heritage\fR Returns the current class name and the entire list of base classes in the order that they are traversed for member lookup and object destruction. .TP \fIobjName\fR \fBinfo method\fR ?\fImethodName\fR? ?\fB-args\fR? ?\fB-body\fR? With no arguments, this command returns a list of all class methods. If \fImethodName\fR is specified, it returns information for a specific method. If neither of the optional \fB-args\fR or \fB-body\fR flags is specified, a complete method definition is returned as a list of three elements including the method name, argument list and body. Otherwise, the requested information is returned without the method name. If the \fImethodName\fR is not recognized, an empty string is returned. .TP \fIobjName\fR \fBinfo proc\fR ?\fIprocName\fR? ?\fB-args\fR? ?\fB-body\fR? With no arguments, this command returns a list of all class procs. If \fIprocName\fR is specified, it returns information for a specific proc. If neither of the optional \fB-args\fR or \fB-body\fR flags is specified, a complete proc definition is returned as a list of three elements including the proc name, argument list and body. Otherwise, the requested information is returned without the proc name. If the \fIprocName\fR is not recognized, an empty string is returned. .TP \fIobjName\fR \fBinfo public\fR ?\fIvarName\fR? ?\fB-init\fR? ?\fB-value\fR? ?\fB-config\fR? With no arguments, this command returns a list of all public variables. If \fIvarName\fR is specified, it returns information for a specific public variable. If none of the optional \fB-init\fR, \fB-value\fR or \fB-config\fR flags are specified, all available information is returned as a list of four elements including the variable name, initial value, current value, and configuration commands. Otherwise, the requested information is returned without the variable name. If the \fIvarName\fR is not recognized, an empty string is returned. .TP \fIobjName\fR \fBinfo protected\fR ?\fIvarName\fR? ?\fB-init\fR? ?\fB-value\fR? With no arguments, this command returns a list of all protected variables. If \fIvarName\fR is specified, it returns information for a specific protected variable. If neither of the optional \fB-init\fR or \fB-value\fR flags is specified, all available information is returned as a list of three elements including the variable name, initial value and current value. Otherwise, the requested information is returned without the variable name. If the \fIvarName\fR is not recognized, an empty string is returned. .TP \fIobjName\fR \fBinfo common\fR ?\fIvarName\fR? ?\fB-init\fR? ?\fB-value\fR? With no arguments, this command returns a list of all common variables. If \fIvarName\fR is specified, it returns information for a specific common variable. If neither of the optional \fB-init\fR or \fB-value\fR flags is specified, all available information is returned as a list of three elements including the variable name, initial value and current value. Otherwise, the requested information is returned without the variable name. If the \fIvarName\fR is not recognized, an empty string is returned. .RE .SH OTHER BUILT-IN COMMANDS The following commands are also available within the scope of each class. They cannot be accessed from outside of the class as proper methods or procs; rather, they are useful inside the class when implementing its functionality. .TP \fBglobal \fIvarName\fR ?\fIvarName...\fR? Creates a link to one or more global variables in the current namespace context. Global variables can also be accessed in other namespaces by including namespace qualifiers in \fIvarName\fR. This is useful when communicating with Tk widgets that rely on global variables. .TP \fBprevious \fIcommand\fR ?\fIargs...\fR? Invokes \fIcommand\fR in the scope of the most immediate base class .VS (i.e., the "previous" class) for the object. For classes using single .VE inheritance, this facility can be used to avoid hard-wired base class references of the form "\fIclass\fR::\fIcommand\fR", making code easier to maintain. For classes using multiple inheritance, the utility of this function is dubious. If the class at the relevant scope has no base class, an error is returned. .TP \fBvirtual \fIcommand\fR ?\fIargs...\fR? .VS Invokes \fIcommand\fR in the scope of the most-specific class for the object. The methods within a class are automatically virtual; whenever an unqualified method name is used, it always refers to the most-specific implementation for that method. This function provides a way of evaluating code fragments in a base class that have access to the most-specific object information. It is useful, for example, for creating base classes that can capture and save an object's state. It inverts the usual notions of object-oriented programming, however, and should therefore be used sparingly. .VE .SH AUTO-LOADING .PP Class definitions need not be loaded explicitly; they can be loaded as needed by the usual Tcl auto-loading facility. Each directory containing class definition files should have an accompanying "tclIndex" file. Each line in this file identifies a Tcl procedure or \fB[incr\ Tcl]\fR class definition and the file where the definition can be found. .PP For example, suppose a directory contains the definitions for classes "Toaster" and "SmartToaster". Then the "tclIndex" file for this directory would look like: .CS # Tcl autoload index file, version 2.0 for [incr Tcl] # This file is generated by the "auto_mkindex" command # and sourced to set up indexing information for one or # more commands. Typically each line is a command that # sets an element in the auto_index array, where the # element name is the name of a command and the value is # a script that loads the command. set auto_index(::Toaster) "source $dir/Toaster.itcl" set auto_index(::SmartToaster) "source $dir/SmartToaster.itcl" .PP The \fBauto_mkindex\fR command is used to automatically generate "tclIndex" files. .CE The auto-loader must be made aware of this directory by appending the directory name to the "auto_path" variable. When this is in place, classes will be auto-loaded as needed when used in an application. .SH KEYWORDS class, object, object-oriented neotcl8.1.1-lite/itcl3.0.1/itcl/doc/itcl_info.n100664 15471 0 4515 6752336014 17475 0ustar damonwheel'\" '\" Copyright (c) 1993-1998 Lucent Technologies, Inc. '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" '\" RCS: $Id: itcl_info.n,v 1.1.1.1 1999/03/31 20:39:46 damon Exp $ '\" .so man.macros .TH itcl_info n 3.0 itcl "[incr\ Tcl]" .BS '\" Note: do not modify the .SH NAME line immediately below! .SH NAME itcl_info \- query info regarding classes and objects (obsolete) .SH SYNOPSIS \fBitcl_info classes ?\fIpattern\fR? .br \fBitcl_info objects ?\fIpattern\fR? ?\fB-class \fIclassName\fR? ?\fB-isa \fIclassName\fR? .BE .SH DESCRIPTION .PP This command is considered obsolete, but is retained for backward-compatibility with earlier versions of \fB[incr\ Tcl]\fR. It has been replaced by the "\fBinfo classes\fR" and "\fBinfo objects\fR" commands, which should be used for any new development. .PP The following commands are available in the global namespace to query information about classes and objects that have been created. .TP \fBitcl_info classes ?\fIpattern\fR? Returns a list of classes available in the current namespace context. .VS If a class belongs to the current namespace context, its simple name is reported; otherwise, if a class is imported from another namespace, its fully-qualified name is reported. .VE .sp If the optional \fIpattern\fR is specified, then the reported names are compared using the rules of the "\fBstring match\fR" command, and only matching names are reported. .TP \fBitcl_info objects ?\fIpattern\fR? ?\fB-class \fIclassName\fR? ?\fB-isa \fIclassName\fR? Returns a list of objects available in the current namespace context. .VS If an object belongs to the current namespace context, its simple name is reported; otherwise, if an object is imported from another namespace, its fully-qualified access command is reported. .VE .sp If the optional \fIpattern\fR is specified, then the reported names are compared using the rules of the "\fBstring match\fR" command, and only matching names are reported. If the optional "\fB-class\fR" parameter is specified, this list is restricted to objects whose most-specific class is \fIclassName\fR. If the optional "\fB-isa\fR" parameter is specified, this list is further restricted to objects having the given \fIclassName\fR anywhere in their heritage. .SH KEYWORDS class, object, object-oriented neotcl8.1.1-lite/itcl3.0.1/itcl/doc/itclsh.1100664 15471 0 1630 6752336015 16714 0ustar damonwheel'\" '\" Copyright (c) 1996 Lucent Technologies '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" '\" $Id: itclsh.1,v 1.1.1.1 1999/03/31 20:39:46 damon Exp $ '\" .so man.macros .TH itclsh 1 "" itcl "[incr\ Tcl]" .BS '\" Note: do not modify the .SH NAME line immediately below! .SH NAME itclsh \- Simple shell for [incr Tcl] .SH SYNOPSIS \fBitclsh\fR ?\fIfileName arg arg ...\fR? .BE .SH DESCRIPTION .PP \fBitclsh\fR is a shell-like application that reads Tcl commands from its standard input, or from a file, and evaluates them. It is just like \fBtclsh\fR, but includes the \fB[incr\ Tcl]\fR extensions for object-oriented programming. .PP See the \fBtclsh\fR man page for details concerning usage. See the \fBitcl\fR man page for an overview of \fB[incr\ Tcl]\fR. .SH KEYWORDS Tcl, itcl, interpreter, script file, shell neotcl8.1.1-lite/itcl3.0.1/itcl/doc/itclvars.n100664 15471 0 7273 6752336015 17363 0ustar damonwheel'\" '\" Copyright (c) 1993-1998 Lucent Technologies, Inc. '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" '\" RCS: $Id: itclvars.n,v 1.1.1.1 1999/03/31 20:39:46 damon Exp $ '\" .so man.macros .TH itclvars n 3.0 itcl "[incr\ Tcl]" .BS '\" Note: do not modify the .SH NAME line immediately below! .SH NAME itclvars \- variables used by [incr\ Tcl] .BE .SH DESCRIPTION .PP The following global variables are created and managed automatically by the \fB[incr\ Tcl]\fR library. Except where noted below, these variables should normally be treated as read-only by application-specific code and by users. .TP \fBitcl::library\fR When an interpreter is created, \fB[incr\ Tcl]\fR initializes this variable to hold the name of a directory containing the system library of \fB[incr\ Tcl]\fR scripts. The initial value of \fBitcl::library\fR is set from the ITCL_LIBRARY environment variable if it exists, or from a compiled-in value otherwise. .TP \fBitcl::patchLevel\fR When an interpreter is created, \fB[incr\ Tcl]\fR initializes this variable to hold the current patch level for \fB[incr\ Tcl]\fR. For example, the value "\fB2.0p1\fR" indicates \fB[incr\ Tcl]\fR version 2.0 with the first set of patches applied. .TP \fBitcl::purist\fR When an interpreter is created containing Tcl/Tk and the \fB[incr\ Tcl]\fR namespace facility, this variable controls a "backward-compatibility" mode for widget access. .sp In vanilla Tcl/Tk, there is a single pool of commands, so the access command for a widget is the same as the window name. When a widget is created within a namespace, however, its access command is installed in that namespace, and should be accessed outside of the namespace using a qualified name. For example, .CS namespace foo { namespace bar { button .b -text "Testing" } } foo::bar::.b configure -background red pack .b .CE Note that the window name "\fC.b\fR" is still used in conjunction with commands like \fBpack\fR and \fBdestroy\fR. However, the access command for the widget (i.e., name that appears as the \fIfirst\fR argument on a command line) must be more specific. .sp The "\fBwinfo command\fR" command can be used to query the fully-qualified access command for any widget, so one can write: .CS [winfo command .b] configure -background red .CE and this is good practice when writing library procedures. Also, in conjunction with the \fBbind\fR command, the "%q" field can be used in place of "%W" as the access command: .CS bind Button {%q flash; %q invoke} .CE While this behavior makes sense from the standpoint of encapsulation, it causes problems with existing Tcl/Tk applications. Many existing applications are written with bindings that use "%W". Many library procedures assume that the window name is the access command. .sp The \fBitcl::purist\fR variable controls a backward-compatibility mode. By default, this variable is "0", and the window name can be used as an access command in any context. Whenever the \fBunknown\fR procedure stumbles across a widget name, it simply uses "\fBwinfo command\fR" to determine the appropriate command name. If this variable is set to "1", this backward-compatibility mode is disabled. This gives better encapsulation, but using the window name as the access command may lead to "invalid command" errors. .TP \fBitcl::version\fR When an interpreter is created, \fB[incr\ Tcl]\fR initializes this variable to hold the version number of the form \fIx.y\fR. Changes to \fIx\fR represent major changes with probable incompatibilities and changes to \fIy\fR represent small enhancements and bug fixes that retain backward compatibility. .SH KEYWORDS itcl, variables neotcl8.1.1-lite/itcl3.0.1/itcl/doc/license.terms100664 15471 0 2751 6752336015 20047 0ustar damonwheel------------------------------------------------------------------------ >>>>>>>>>>>>>>>>>>>>>>>>>>>>>> [incr Tcl] <<<<<<<<<<<<<<<<<<<<<<<<<<<<<< AUTHOR: Michael J. McLennan Bell Labs Innovations for Lucent Technologies mmclennan@lucent.com http://www.tcltk.com/itcl ======================================================================== Copyright (c) 1993-1996 Lucent Technologies ======================================================================== Permission to use, copy, modify, and distribute this software and its documentation for any purpose and without fee is hereby granted, provided that the above copyright notice appear in all copies and that both that the copyright notice and warranty disclaimer appear in supporting documentation, and that the names of Lucent Technologies any of their entities not be used in advertising or publicity pertaining to distribution of the software without specific, written prior permission. Lucent Technologies disclaims all warranties with regard to this software, including all implied warranties of merchantability and fitness. In no event shall Lucent be liable for any special, indirect or consequential damages or any damages whatsoever resulting from loss of use, data or profits, whether in an action of contract, negligence or other tortuous action, arising out of or in connection with the use or performance of this software. ======================================================================== neotcl8.1.1-lite/itcl3.0.1/itcl/doc/local.n100664 15471 0 3567 6752336015 16630 0ustar damonwheel'\" '\" Copyright (c) 1993-1998 Lucent Technologies, Inc. '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" '\" RCS: $Id: local.n,v 1.1.1.1 1999/03/31 20:39:46 damon Exp $ '\" .so man.macros .TH local n "" itcl "[incr\ Tcl]" .BS '\" Note: do not modify the .SH NAME line immediately below! .SH NAME local \- create an object local to a procedure .SH SYNOPSIS \fBlocal \fIclassName objName\fR ?\fIarg arg ...\fR? .BE .SH DESCRIPTION .PP The \fBlocal\fR command creates an \fB[incr\ Tcl]\fR object that is local to the current call frame. When the call frame goes away, the object is automatically deleted. This command is useful for creating objects that are local to a procedure. .PP As a side effect, this command creates a variable named "\fCitcl-local-\fIxxx\fR", where \fIxxx\fR is the name of the object that is created. This variable detects when the call frame is destroyed and automatically deletes the associated object. .SH EXAMPLE In the following example, a simple "counter" object is used within the procedure "test". The counter is created as a local object, so it is automatically deleted each time the procedure exits. The \fBputs\fR statements included in the constructor/destructor show the object coming and going as the procedure is called. .CS class counter { private variable count 0 constructor {} { puts "created: $this" } destructor { puts "deleted: $this" } method bump {{by 1}} { incr count $by } method get {} { return $count } } proc test {val} { local counter x for {set i 0} {$i < $val} {incr i} { x bump } return [x get] } set result [test 5] puts "test: $result" set result [test 10] puts "test: $result" puts "objects: [info objects]" .CE .SH KEYWORDS class, object, procedure neotcl8.1.1-lite/itcl3.0.1/itcl/doc/man.macros100664 15471 0 11503 6752336015 17345 0ustar damonwheel'\" The definitions below are for supplemental macros used in Tcl/Tk '\" manual entries. '\" '\" .AP type name in/out ?indent? '\" Start paragraph describing an argument to a library procedure. '\" type is type of argument (int, etc.), in/out is either "in", "out", '\" or "in/out" to describe whether procedure reads or modifies arg, '\" and indent is equivalent to second arg of .IP (shouldn't ever be '\" needed; use .AS below instead) '\" '\" .AS ?type? ?name? '\" Give maximum sizes of arguments for setting tab stops. Type and '\" name are examples of largest possible arguments that will be passed '\" to .AP later. If args are omitted, default tab stops are used. '\" '\" .BS '\" Start box enclosure. From here until next .BE, everything will be '\" enclosed in one large box. '\" '\" .BE '\" End of box enclosure. '\" '\" .CS '\" Begin code excerpt. '\" '\" .CE '\" End code excerpt. '\" '\" .VS ?version? ?br? '\" Begin vertical sidebar, for use in marking newly-changed parts '\" of man pages. The first argument is ignored and used for recording '\" the version when the .VS was added, so that the sidebars can be '\" found and removed when they reach a certain age. If another argument '\" is present, then a line break is forced before starting the sidebar. '\" '\" .VE '\" End of vertical sidebar. '\" '\" .DS '\" Begin an indented unfilled display. '\" '\" .DE '\" End of indented unfilled display. '\" '\" .SO '\" Start of list of standard options for a Tk widget. The '\" options follow on successive lines, in four columns separated '\" by tabs. '\" '\" .SE '\" End of list of standard options for a Tk widget. '\" '\" .OP cmdName dbName dbClass '\" Start of description of a specific option. cmdName gives the '\" option's name as specified in the class command, dbName gives '\" the option's name in the option database, and dbClass gives '\" the option's class in the option database. '\" '\" .UL arg1 arg2 '\" Print arg1 underlined, then print arg2 normally. '\" '\" SCCS: @(#) man.macros 1.9 97/08/22 18:50:59 '\" '\" # Set up traps and other miscellaneous stuff for Tcl/Tk man pages. .if t .wh -1.3i ^B .nr ^l \n(.l .ad b '\" # Start an argument description .de AP .ie !"\\$4"" .TP \\$4 .el \{\ . ie !"\\$2"" .TP \\n()Cu . el .TP 15 .\} .ie !"\\$3"" \{\ .ta \\n()Au \\n()Bu \&\\$1 \\fI\\$2\\fP (\\$3) .\".b .\} .el \{\ .br .ie !"\\$2"" \{\ \&\\$1 \\fI\\$2\\fP .\} .el \{\ \&\\fI\\$1\\fP .\} .\} .. '\" # define tabbing values for .AP .de AS .nr )A 10n .if !"\\$1"" .nr )A \\w'\\$1'u+3n .nr )B \\n()Au+15n .\" .if !"\\$2"" .nr )B \\w'\\$2'u+\\n()Au+3n .nr )C \\n()Bu+\\w'(in/out)'u+2n .. .AS Tcl_Interp Tcl_CreateInterp in/out '\" # BS - start boxed text '\" # ^y = starting y location '\" # ^b = 1 .de BS .br .mk ^y .nr ^b 1u .if n .nf .if n .ti 0 .if n \l'\\n(.lu\(ul' .if n .fi .. '\" # BE - end boxed text (draw box now) .de BE .nf .ti 0 .mk ^t .ie n \l'\\n(^lu\(ul' .el \{\ .\" Draw four-sided box normally, but don't draw top of .\" box if the box started on an earlier page. .ie !\\n(^b-1 \{\ \h'-1.5n'\L'|\\n(^yu-1v'\l'\\n(^lu+3n\(ul'\L'\\n(^tu+1v-\\n(^yu'\l'|0u-1.5n\(ul' .\} .el \}\ \h'-1.5n'\L'|\\n(^yu-1v'\h'\\n(^lu+3n'\L'\\n(^tu+1v-\\n(^yu'\l'|0u-1.5n\(ul' .\} .\} .fi .br .nr ^b 0 .. '\" # VS - start vertical sidebar '\" # ^Y = starting y location '\" # ^v = 1 (for troff; for nroff this doesn't matter) .de VS .if !"\\$2"" .br .mk ^Y .ie n 'mc \s12\(br\s0 .el .nr ^v 1u .. '\" # VE - end of vertical sidebar .de VE .ie n 'mc .el \{\ .ev 2 .nf .ti 0 .mk ^t \h'|\\n(^lu+3n'\L'|\\n(^Yu-1v\(bv'\v'\\n(^tu+1v-\\n(^Yu'\h'-|\\n(^lu+3n' .sp -1 .fi .ev .\} .nr ^v 0 .. '\" # Special macro to handle page bottom: finish off current '\" # box/sidebar if in box/sidebar mode, then invoked standard '\" # page bottom macro. .de ^B .ev 2 'ti 0 'nf .mk ^t .if \\n(^b \{\ .\" Draw three-sided box if this is the box's first page, .\" draw two sides but no top otherwise. .ie !\\n(^b-1 \h'-1.5n'\L'|\\n(^yu-1v'\l'\\n(^lu+3n\(ul'\L'\\n(^tu+1v-\\n(^yu'\h'|0u'\c .el \h'-1.5n'\L'|\\n(^yu-1v'\h'\\n(^lu+3n'\L'\\n(^tu+1v-\\n(^yu'\h'|0u'\c .\} .if \\n(^v \{\ .nr ^x \\n(^tu+1v-\\n(^Yu \kx\h'-\\nxu'\h'|\\n(^lu+3n'\ky\L'-\\n(^xu'\v'\\n(^xu'\h'|0u'\c .\} .bp 'fi .ev .if \\n(^b \{\ .mk ^y .nr ^b 2 .\} .if \\n(^v \{\ .mk ^Y .\} .. '\" # DS - begin display .de DS .RS .nf .sp .. '\" # DE - end display .de DE .fi .RE .sp .. '\" # SO - start of list of standard options .de SO .SH "STANDARD OPTIONS" .LP .nf .ta 4c 8c 12c .ft B .. '\" # SE - end of list of standard options .de SE .fi .ft R .LP See the \\fBoptions\\fR manual entry for details on the standard options. .. '\" # OP - start of full description for a single option .de OP .LP .nf .ta 4c Command-Line Name: \\fB\\$1\\fR Database Name: \\fB\\$2\\fR Database Class: \\fB\\$3\\fR .fi .IP .. '\" # CS - begin code excerpt .de CS .RS .nf .ta .25i .5i .75i 1i .. '\" # CE - end code excerpt .de CE .fi .RE .. .de UL \\$1\l'|0\(ul'\\$2 .. neotcl8.1.1-lite/itcl3.0.1/itcl/doc/scope.n100664 15471 0 5064 6752336015 16641 0ustar damonwheel'\" '\" Copyright (c) 1993-1998 Lucent Technologies, Inc. '\" '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" '\" RCS: $Id: scope.n,v 1.1.1.1 1999/03/31 20:39:46 damon Exp $ '\" .so man.macros .TH scope n "" itcl "[incr\ Tcl]" .BS '\" Note: do not modify the .SH NAME line immediately below! .SH NAME scope \- capture the namespace context for a variable .SH SYNOPSIS \fBscope \fIname\fR .BE .SH DESCRIPTION .PP Creates a scoped value for the specified \fIname\fR, which must be a variable name. If the \fIname\fR is an instance variable, then the scope command returns a string of the following form: .CS @itcl \fIobject varName\fP .CE This is recognized in any context as an instance variable belonging to \fIobject\fR. So with itcl3.0 and beyond, it is possible to use instance variables in conjunction with widgets. For example, if you have an object with a private variable \fCx\fR, and you can use \fCx\fR in conjunction with the \fC-textvariable\fR option of an entry widget. Before itcl3.0, only common variables could be used in this manner. .PP If the \fIname\fR is not an instance variable, then it must be a common variable or a global variable. In that case, the scope command returns the fully qualified name of the variable, e.g., \fC::foo::bar::x\fR. .PP If the \fIname\fR is not recognized as a variable, the scope command returns an error. .PP Ordinary variable names refer to variables in the global namespace. A scoped value captures a variable name together with its namespace context in a way that allows it to be referenced properly later. It is needed, for example, to wrap up variable names when a Tk widget is used within a namespace: .CS namespace foo { private variable mode 1 radiobutton .rb1 -text "Mode #1" \ -variable [scope mode] -value 1 pack .rb1 radiobutton .rb2 -text "Mode #2" \ -variable [scope mode] -value 2 pack .rb2 } .CE Radiobuttons \fC.rb1\fR and \fC.rb2\fR interact via the variable "mode" contained in the namespace "foo". The \fBscope\fR command guarantees this by returning the fully qualified variable name \fC::foo::mode\fR. .PP You should never use the \fC@itcl\fR syntax directly. For example, it is a bad idea to write code like this: .CS set {@itcl ::fred x} 3 puts "value = ${@itcl ::fred x}" .CE Instead, you should always use the scope command to generate the variable name dynamically. Then, you can pass that name to a widget or to any other bit of code in your program. .SH KEYWORDS code, namespace, variable neotcl8.1.1-lite/itcl3.0.1/itcl/mac/ 40755 15471 0 0 6752336020 15234 5ustar damonwheelneotcl8.1.1-lite/itcl3.0.1/itcl/mac/CVS/ 40755 15471 0 0 6752336020 15667 5ustar damonwheelneotcl8.1.1-lite/itcl3.0.1/itcl/mac/CVS/Root100644 15471 0 26 6752336020 16570 0ustar damonwheelneoworld.net:/usr/cvs neotcl8.1.1-lite/itcl3.0.1/itcl/mac/CVS/Repository100644 15471 0 101 6752336020 20036 0ustar damonwheel/usr/cvs/NEOSOFT/nws/nws-3.2/neotcl8.1.1-lite/itcl3.0.1/itcl/mac neotcl8.1.1-lite/itcl3.0.1/itcl/mac/CVS/Entries100644 15471 0 662 6752336020 17304 0ustar damonwheel/MW_ItclHeader.pch/1.1.1.1/Thu Aug 5 16:30:08 1999// /itclMacApplication.r/1.1.1.1/Thu Aug 5 16:30:08 1999// /itclMacLibrary.r/1.1.1.1/Thu Aug 5 16:30:08 1999// /itclMacResource.r/1.1.1.1/Thu Aug 5 16:30:08 1999// /itclMacTclCode.r/1.1.1.1/Thu Aug 5 16:30:08 1999// /itclStaticApplication.r/1.1.1.1/Thu Aug 5 16:30:08 1999// /pkgIndex.tcl/1.1.1.1/Thu Aug 5 16:30:08 1999// /tclMacAppInit.c/1.1.1.1/Thu Aug 5 16:30:08 1999// D neotcl8.1.1-lite/itcl3.0.1/itcl/mac/MW_ItclHeader.pch100664 15471 0 4311 6752336020 20435 0ustar damonwheel/* * MW_TclHeader.pch -- * * This file is the source for a pre-compilied header that gets used * for all files in the Tcl projects. This make compilies go a bit * faster. This file is only intended to be used in the MetroWerks * CodeWarrior environment. It essentially acts as a place to set * compiler flags. See MetroWerks documention for more details. * * Copyright (c) 1995-1997 Sun Microsystems, Inc. * * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * * SCCS: @(#) MW_TclHeader.pch 1.27 97/11/20 18:45:25 */ /* * To use the compilied header you need to set the "Prefix file" in * the "C/C++ Language" preference panel to point to the created * compilied header. The name of the header depends on the * architecture we are compiling for (see the code below). For * example, for a 68k app the prefix file should be: MW_TclHeader68K. */ #if __POWERPC__ #pragma precompile_target "MW_ItclHeaderPPC" #include "MW_TclHeaderPPC" #elif __CFM68K__ #pragma precompile_target "MW_ItclHeaderCFM68K" #include "MW_TclHeaderCFM68K" #else #pragma precompile_target "MW_ItclHeader68K" #include "MW_TclHeader68K" #endif /* * Macintosh Tcl must be compiled with certain compiler options to * ensure that it will work correctly. The following pragmas are * used to ensure that those options are set correctly. An error * will occur at compile time if they are not set correctly. */ #if !__option(enumsalwaysint) #error Tcl requires the Metrowerks setting "Enums always ints". #endif #if !defined(__POWERPC__) #if !__option(far_data) #error Tcl requires the Metrowerks setting "Far data". #endif #endif #if !defined(__POWERPC__) #if !__option(fourbyteints) #error Tcl requires the Metrowerks setting "4 byte ints". #endif #endif #if !defined(__POWERPC__) #if !__option(IEEEdoubles) #error Tcl requires the Metrowerks setting "8 byte doubles". #endif #endif /* * Place any includes below that will are needed by the majority of the * and is OK to be in any file in the system. The pragma's are used * to control what functions are exported in the Tcl shared library. */ #pragma export on #include "itcl.h" #pragma export reset neotcl8.1.1-lite/itcl3.0.1/itcl/mac/itclMacApplication.r100664 15471 0 5221 6752336020 21256 0ustar damonwheel/* * tclMacApplication.r -- * * This file creates resources for use Tcl Shell application. * It should be viewed as an example of how to create a new * Tcl application using the shared Tcl libraries. * * Copyright (c) 1996 Sun Microsystems, Inc. * * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * * SCCS: @(#) tclMacApplication.r 1.1 96/09/11 21:12:54 */ #include #include /* * The folowing include and defines help construct * the version string for Tcl. */ #define RESOURCE_INCLUDED #include "tcl.h" #include "itcl.h" #include "itclPatch.h" /* Should really have one of these in itcl too, but for now... */ #if (TCL_RELEASE_LEVEL == 0) # define RELEASE_LEVEL alpha #elif (TCL_RELEASE_LEVEL == 1) # define RELEASE_LEVEL beta #elif (TCL_RELEASE_LEVEL == 2) # define RELEASE_LEVEL final #endif #if (TCL_RELEASE_LEVEL == 2) # define MINOR_VERSION (ITCL_MINOR_VERSION * 16) + TCL_RELEASE_SERIAL #else # define MINOR_VERSION ITCL_MINOR_VERSION * 16 #endif resource 'vers' (1) { ITCL_MAJOR_VERSION, MINOR_VERSION, RELEASE_LEVEL, 0x00, verUS, ITCL_PATCH_LEVEL, ITCL_PATCH_LEVEL ", by Michael McLennan © Lucent Technologies, Inc." }; resource 'vers' (2) { ITCL_MAJOR_VERSION, MINOR_VERSION, RELEASE_LEVEL, 0x00, verUS, ITCL_PATCH_LEVEL, "Itcl Shell " ITCL_PATCH_LEVEL " © 1993-1998" }; #define ITCL_APP_CREATOR 'ITcL' type ITCL_APP_CREATOR as 'STR '; resource ITCL_APP_CREATOR (0, purgeable) { "Itcl Shell " ITCL_PATCH_LEVEL " © 1993-1998" }; /* * The 'kind' resource works with a 'BNDL' in Macintosh Easy Open * to affect the text the Finder displays in the "kind" column and * file info dialog. This information will be applied to all files * with the listed creator and type. */ resource 'kind' (128, "Itcl kind", purgeable) { ITCL_APP_CREATOR, 0, /* region = USA */ { 'APPL', "Itcl Shell", } }; /* * The following resource is used when creating the 'env' variable in * the Macintosh environment. The creation mechanisim looks for the * 'STR#' resource named "Tcl Environment Variables" rather than a * specific resource number. (In other words, feel free to change the * resource id if it conflicts with your application.) Each string in * the resource must be of the form "KEYWORD=SOME STRING". See Tcl * documentation for futher information about the env variable. * * A good example of something you may want to set is: "TCL_LIBRARY=My * disk:etc." */ resource 'STR#' (128, "Tcl Environment Variables") { { "SCHEDULE_NAME=Agent Controller Schedule", "SCHEDULE_PATH=Lozoya:System Folder:Tcl Lib:Tcl-Scheduler" }; }; neotcl8.1.1-lite/itcl3.0.1/itcl/mac/itclMacLibrary.r100664 15471 0 10410 6752336020 20433 0ustar damonwheel/* * tclMacLibrary.r -- * * This file creates resources used by the Tcl shared library. * Many thanks go to "Jay Lieske, Jr." who * wrote the initial version of this file. * * Copyright (c) 1996 Sun Microsystems, Inc. * * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * * SCCS: @(#) tclMacLibrary.r 1.3 96/09/12 17:40:07 */ #include #include /* * The folowing include and defines help construct * the version string for Tcl. */ #define RESOURCE_INCLUDED #include "tcl.h" #include "itcl.h" #if (TCL_RELEASE_LEVEL == 0) # define RELEASE_LEVEL alpha #elif (TCL_RELEASE_LEVEL == 1) # define RELEASE_LEVEL beta #elif (TCL_RELEASE_LEVEL == 2) # define RELEASE_LEVEL final #endif #if (TCL_RELEASE_LEVEL == 2) # define MINOR_VERSION (ITCL_MINOR_VERSION * 16) + TCL_RELEASE_SERIAL #else # define MINOR_VERSION ITCL_MINOR_VERSION * 16 #endif resource 'vers' (1) { ITCL_MAJOR_VERSION, MINOR_VERSION, RELEASE_LEVEL, 0x00, verUS, ITCL_PATCH_LEVEL, ITCL_PATCH_LEVEL ", by Michael McLennan © Lucent Technologies, Inc." }; resource 'vers' (2) { ITCL_MAJOR_VERSION, MINOR_VERSION, RELEASE_LEVEL, 0x00, verUS, ITCL_PATCH_LEVEL, "Itcl Shell " ITCL_PATCH_LEVEL " © 1993-1998" }; /* * Currently the creator for all Tcl/Tk libraries and extensions * should be 'TclL'. This will allow those extension and libraries * to use the common icon for Tcl extensions. However, this signature * still needs to be approved by the signature police at Apple and may * change. */ #define ITCL_CREATOR 'ITcL' #define TCL_LIBRARY_RESOURCES 2000 #define ITCL_LIBRARY_RESOURCES 2000 /* * The 'BNDL' resource is the primary link between a file's * creator/type and its icon. This resource acts for all Tcl shared * libraries; other libraries will not need one and ought to use * custom icons rather than new file types for a different appearance. */ resource 'BNDL' (TCL_LIBRARY_RESOURCES, "Tcl bundle", purgeable) { ITCL_CREATOR, 0, { /* array TypeArray: 2 elements */ /* [1] */ 'FREF', { /* array IDArray: 1 elements */ /* [1] */ 0, TCL_LIBRARY_RESOURCES }, /* [2] */ 'ICN#', { /* array IDArray: 1 elements */ /* [1] */ 0, TCL_LIBRARY_RESOURCES } } }; resource 'FREF' (TCL_LIBRARY_RESOURCES, purgeable) { 'shlb', 0, "" }; type ITCL_CREATOR as 'STR '; resource ITCL_CREATOR (0, purgeable) { "Itcl Library " ITCL_PATCH_LEVEL " © 1993-1998" }; /* * The 'kind' resource works with a 'BNDL' in Macintosh Easy Open * to affect the text the Finder displays in the "kind" column and * file info dialog. This information will be applied to all files * with the listed creator and type. */ resource 'kind' (TCL_LIBRARY_RESOURCES, "Itcl kind", purgeable) { ITCL_CREATOR, 0, /* region = USA */ { 'shlb', "Itcl Library" } }; /* * The -16397 string will be displayed by Finder when a user * tries to open the shared library. The string should * give the user a little detail about the library's capabilities * and enough information to install the library in the correct location. * A similar string should be placed in all shared libraries. */ resource 'STR ' (-16397, purgeable) { "Itcl Library\n\n" "This is one of the libraries needed to run the Itcl flavor of the Tool Command Language programs. " "To work properly, it should be placed in the ŒTool Command Language¹ folder " "within the Extensions folder." }; /* * The mechanisim below loads Tcl source into the resource fork of the * application. The example below creates a TEXT resource named * "Init" from the file "init.tcl". This allows applications to use * Tcl to define the behavior of the application without having to * require some predetermined file structure - all needed Tcl "files" * are located within the application. To source a file for the * resource fork the source command has been modified to support * sourcing from resources. In the below case "source -rsrc {Init}" * will load the TEXT resource named "Init". */ #include "itclMacTclCode.r" data 'TEXT' (ITCL_LIBRARY_RESOURCES+1,"pkgIndex",purgeable, preload) { "# Tcl package index file, version 1.0\n" "package ifneeded Itcl 3.0 [list load [file join $dir itcl30[info sharedlibextension]] Itcl]\n" }; neotcl8.1.1-lite/itcl3.0.1/itcl/mac/itclMacResource.r100664 15471 0 6036 6752336020 20607 0ustar damonwheel/* * tclMacResource.r -- * * This file creates resources for use in a simple shell. * This is designed to be an example of using the Tcl libraries * statically in a Macintosh Application. For an example of * of using the dynamic libraries look at tclMacApplication.r. * * Copyright (c) 1993-94 Lockheed Missle & Space Company * Copyright (c) 1994-96 Sun Microsystems, Inc. * * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * * SCCS: @(#) tclMacResource.r 1.14 96/09/11 21:14:36 */ #include #include /* * The folowing include and defines help construct * the version string for Tcl. */ #define RESOURCE_INCLUDED #include "tcl.h" #include "itcl.h" #include "itclPatch.h" #if (TCL_RELEASE_LEVEL == 0) # define RELEASE_LEVEL alpha #elif (TCL_RELEASE_LEVEL == 1) # define RELEASE_LEVEL beta #elif (TCL_RELEASE_LEVEL == 2) # define RELEASE_LEVEL final #endif #if (TCL_RELEASE_LEVEL == 2) # define MINOR_VERSION (ITCL_MINOR_VERSION * 16) + TCL_RELEASE_SERIAL #else # define MINOR_VERSION ITCL_MINOR_VERSION * 16 #endif resource 'vers' (1) { ITCL_MAJOR_VERSION, MINOR_VERSION, RELEASE_LEVEL, 0x00, verUS, ITCL_PATCH_LEVEL, ITCL_PATCH_LEVEL ", by Michael McLennan © Lucent Technologies, Inc." }; resource 'vers' (2) { ITCL_MAJOR_VERSION, MINOR_VERSION, RELEASE_LEVEL, 0x00, verUS, ITCL_PATCH_LEVEL, "Simple Itcl Shell " ITCL_PATCH_LEVEL " © 1993-1998" }; #define TCL_LIBRARY_RESOURCES 1000 #define ITCL_LIBRARY_RESOURCES 2000 /* * The mechanisim below loads Tcl source into the resource fork of the * application. The example below creates a TEXT resource named * "Init" from the file "init.tcl". This allows applications to use * Tcl to define the behavior of the application without having to * require some predetermined file structure - all needed Tcl "files" * are located within the application. To source a file for the * resource fork the source command has been modified to support * sourcing from resources. In the below case "source -rsrc {Init}" * will load the TEXT resource named "Init". */ read 'TEXT' (TCL_LIBRARY_RESOURCES, "Init", purgeable, preload) ":::tcl" TCL_VERSION ":library:init.tcl"; read 'TEXT' (ITCL_LIBRARY_RESOURCES, "itcl", purgeable,preload) "::library:itcl.tcl"; /* * The following resource is used when creating the 'env' variable in * the Macintosh environment. The creation mechanisim looks for the * 'STR#' resource named "Tcl Environment Variables" rather than a * specific resource number. (In other words, feel free to change the * resource id if it conflicts with your application.) Each string in * the resource must be of the form "KEYWORD=SOME STRING". See Tcl * documentation for futher information about the env variable. * * A good example of something you may want to set is: "TCL_LIBRARY=My * disk:etc." */ resource 'STR#' (128, "Tcl Environment Variables") { { "SCHEDULE_NAME=Agent Controller Schedule", "SCHEDULE_PATH=Lozoya:System Folder:Tcl Lib:Tcl-Scheduler" }; }; neotcl8.1.1-lite/itcl3.0.1/itcl/mac/itclMacTclCode.r100664 15471 0 2060 6752336020 20326 0ustar damonwheel/* * itclMacTclCode.r * * This file includes the Itcl code that is needed to startup Tcl. * It is to be included either in the resource fork of the shared library, or in the * resource fork of the application for a statically bound application. * * Jim Ingham * Lucent Technologies 1996 * */ #include #include #define ITCL_LIBRARY_RESOURCES 2500 /* * The mechanisim below loads Tcl source into the resource fork of the * application. The example below creates a TEXT resource named * "Init" from the file "init.tcl". This allows applications to use * Tcl to define the behavior of the application without having to * require some predetermined file structure - all needed Tcl "files" * are located within the application. To source a file for the * resource fork the source command has been modified to support * sourcing from resources. In the below case "source -rsrc {Init}" * will load the TEXT resource named "Init". */ read 'TEXT' (ITCL_LIBRARY_RESOURCES, "itcl", purgeable,preload) "::library:itcl.tcl"; neotcl8.1.1-lite/itcl3.0.1/itcl/mac/itclStaticApplication.r100664 15471 0 1240 6752336020 22002 0ustar damonwheel/* * itkStaticPkgIndex.r -- * * This file creates resources which bind in the static version of the * pkgIndex files. * * Copyright (c) 1996 Sun Microsystems, Inc. * * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * * SCCS: @(#) tkMacLibrary.r 1.5 96/10/03 17:54:21 */ #include #include #include #define ITCL_LIBRARY_RESOURCES 2500 #include "itclMacTclCode.r" data 'TEXT' (ITCL_LIBRARY_RESOURCES+20,"itcl:pkgIndex",purgeable, preload) { "# Tcl package index file, version 1.0\n" "package ifneeded Itcl 2.2 {load {} Itcl}\n" }; neotcl8.1.1-lite/itcl3.0.1/itcl/mac/pkgIndex.tcl100664 15471 0 203 6752336020 17563 0ustar damonwheel# Tcl package index file, version 1.0 package ifneeded Itcl 3.0 [list load [file join $dir itcl30[info sharedlibextension]] Itcl] neotcl8.1.1-lite/itcl3.0.1/itcl/mac/tclMacAppInit.c100664 15471 0 13543 6752336020 20215 0ustar damonwheel/* * tclMacAppInit.c -- * * Provides a version of the Tcl_AppInit procedure for the example shell. * * Copyright (c) 1993-1994 Lockheed Missle & Space Company, AI Center * Copyright (c) 1995-1997 Sun Microsystems, Inc. * * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * * SCCS: @(#) tclMacAppInit.c 1.20 97/07/28 11:03:58 */ /* include tclInt.h for access to namespace API */ #include "tclInt.h" #include "tclInt.h" #include "tclPort.h" #include "tclMac.h" #include "tclMacInt.h" #include "itcl.h" #if defined(THINK_C) # include #elif defined(__MWERKS__) # include short InstallConsole _ANSI_ARGS_((short fd)); #endif #ifdef TCL_TEST EXTERN int TclObjTest_Init _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN int Tcltest_Init _ANSI_ARGS_((Tcl_Interp *interp)); #endif /* TCL_TEST */ /* * Forward declarations for procedures defined later in this file: */ static int MacintoshInit _ANSI_ARGS_((void)); /* *---------------------------------------------------------------------- * * main -- * * Main program for tclsh. This file can be used as a prototype * for other applications using the Tcl library. * * Results: * None. This procedure never returns (it exits the process when * it's done. * * Side effects: * This procedure initializes the Macintosh world and then * calls Tcl_Main. Tcl_Main will never return except to exit. * *---------------------------------------------------------------------- */ void main( int argc, /* Number of arguments. */ char **argv) /* Array of argument strings. */ { char *newArgv[2]; if (MacintoshInit() != TCL_OK) { Tcl_Exit(1); } argc = 1; newArgv[0] = "itclsh"; newArgv[1] = NULL; Tcl_Main(argc, newArgv, Tcl_AppInit); } /* *---------------------------------------------------------------------- * * Tcl_AppInit -- * * This procedure performs application-specific initialization. * Most applications, especially those that incorporate additional * packages, will have their own version of this procedure. * * Results: * Returns a standard Tcl completion code, and leaves an error * message in interp->result if an error occurs. * * Side effects: * Depends on the startup script. * *---------------------------------------------------------------------- */ int Tcl_AppInit( Tcl_Interp *interp) /* Interpreter for application. */ { if (Tcl_Init(interp) == TCL_ERROR) { return TCL_ERROR; } #ifdef TCL_TEST if (Tcltest_Init(interp) == TCL_ERROR) { return TCL_ERROR; } Tcl_StaticPackage(interp, "Tcltest", Tcltest_Init, (Tcl_PackageInitProc *) NULL); if (TclObjTest_Init(interp) == TCL_ERROR) { return TCL_ERROR; } #endif /* TCL_TEST */ /* * Call the init procedures for included packages. Each call should * look like this: * * if (Mod_Init(interp) == TCL_ERROR) { * return TCL_ERROR; * } * * where "Mod" is the name of the module. */ if (Itcl_Init(interp) == TCL_ERROR) { return TCL_ERROR; } Tcl_StaticPackage(interp, "Itcl", Itcl_Init, Itcl_SafeInit); /* * This is itclsh, so import all [incr Tcl] commands by * default into the global namespace. Fix up the autoloader * to do the same. */ if (Tcl_Import(interp, Tcl_GetGlobalNamespace(interp), "::itcl::*", /* allowOverwrite */ 1) != TCL_OK) { return TCL_ERROR; } if (Tcl_Eval(interp, "auto_mkindex_parser::slavehook { _%@namespace import -force ::itcl::* }") != TCL_OK) { return TCL_ERROR; } /* * Call Tcl_CreateCommand for application-specific commands, if * they weren't already created by the init procedures called above. * Each call would loo like this: * * Tcl_CreateCommand(interp, "tclName", CFuncCmd, NULL, NULL); */ /* * Specify a user-specific startup script to invoke if the application * is run interactively. On the Mac we can specifiy either a TEXT resource * which contains the script or the more UNIX like file location * may also used. (I highly recommend using the resource method.) */ Tcl_SetVar(interp, "tcl_rcRsrcName", "itclshrc", TCL_GLOBAL_ONLY); /* Tcl_SetVar(interp, "tcl_rcFileName", "~/.itclshrc", TCL_GLOBAL_ONLY); */ return TCL_OK; } /* *---------------------------------------------------------------------- * * MacintoshInit -- * * This procedure calls initalization routines to set up a simple * console on a Macintosh. This is necessary as the Mac doesn't * have a stdout & stderr by default. * * Results: * Returns TCL_OK if everything went fine. If it didn't the * application should probably fail. * * Side effects: * Inits the appropiate console package. * *---------------------------------------------------------------------- */ static int MacintoshInit() { #if GENERATING68K && !GENERATINGCFM SetApplLimit(GetApplLimit() - (TCL_MAC_68K_STACK_GROWTH)); #endif MaxApplZone(); #if defined(THINK_C) /* Set options for Think C console package */ /* The console package calls the Mac init calls */ console_options.pause_atexit = 0; console_options.title = "\pTcl Interpreter"; #elif defined(__MWERKS__) /* Set options for CodeWarrior SIOUX package */ SIOUXSettings.autocloseonquit = true; SIOUXSettings.showstatusline = true; SIOUXSettings.asktosaveonclose = false; InstallConsole(0); SIOUXSetTitle("\pTcl Interpreter"); #elif defined(applec) /* Init packages used by MPW SIOW package */ InitGraf((Ptr)&qd.thePort); InitFonts(); InitWindows(); InitMenus(); TEInit(); InitDialogs(nil); InitCursor(); #endif Tcl_MacSetEventProc((Tcl_MacConvertEventPtr) SIOUXHandleOneEvent); /* No problems with initialization */ return TCL_OK; } neotcl8.1.1-lite/itcl3.0.1/itcl/license.terms100664 15471 0 4170 6752336014 17276 0ustar damonwheelThis software is copyrighted by Lucent Technologies, Inc., and other parties. The following terms apply to all files associated with the software unless explicitly disclaimed in individual files. The authors hereby grant permission to use, copy, modify, distribute, and license this software and its documentation for any purpose, provided that existing copyright notices are retained in all copies and that this notice is included verbatim in any distributions. No written agreement, license, or royalty fee is required for any of the authorized uses. Modifications to this software may be copyrighted by their authors and need not follow the licensing terms described here, provided that the new terms are clearly indicated on the first page of each file where they apply. IN NO EVENT SHALL THE AUTHORS OR DISTRIBUTORS BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OF THIS SOFTWARE, ITS DOCUMENTATION, OR ANY DERIVATIVES THEREOF, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. THE AUTHORS AND DISTRIBUTORS SPECIFICALLY DISCLAIM ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, AND NON-INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. GOVERNMENT USE: If you are acquiring this software on behalf of the U.S. government, the Government shall have only "Restricted Rights" in the software and related documentation as defined in the Federal Acquisition Regulations (FARs) in Clause 52.227.19 (c) (2). If you are acquiring the software on behalf of the Department of Defense, the software shall be classified as "Commercial Computer Software" and the Government shall have only "Restricted Rights" as defined in Clause 252.227-7013 (c) (1) of DFARs. Notwithstanding the foregoing, the authors grant the U.S. Government and others acting in its behalf permission to use and distribute the software in accordance with the terms specified in this license. neotcl8.1.1-lite/itcl3.0.1/itcl/generic/ 40755 15471 0 0 6752336017 16116 5ustar damonwheelneotcl8.1.1-lite/itcl3.0.1/itcl/generic/CVS/ 40755 15471 0 0 6752336017 16551 5ustar damonwheelneotcl8.1.1-lite/itcl3.0.1/itcl/generic/CVS/Root100644 15471 0 26 6752336015 17450 0ustar damonwheelneoworld.net:/usr/cvs neotcl8.1.1-lite/itcl3.0.1/itcl/generic/CVS/Repository100644 15471 0 105 6752336015 20722 0ustar damonwheel/usr/cvs/NEOSOFT/nws/nws-3.2/neotcl8.1.1-lite/itcl3.0.1/itcl/generic neotcl8.1.1-lite/itcl3.0.1/itcl/generic/CVS/Entries100644 15471 0 1177 6752336017 20210 0ustar damonwheel/itcl.h/1.1.1.1/Thu Aug 5 16:30:05 1999// /itclInt.h/1.1.1.1/Thu Aug 5 16:30:05 1999// /itcl_bicmds.c/1.1.1.1/Thu Aug 5 16:30:05 1999// /itcl_class.c/1.1.1.1/Thu Aug 5 16:30:06 1999// /itcl_cmds.c/1.1.1.1/Thu Aug 5 16:30:06 1999// /itcl_ensemble.c/1.2/Thu Aug 5 16:30:07 1999// /itcl_linkage.c/1.1.1.1/Thu Aug 5 16:30:07 1999// /itcl_methods.c/1.1.1.1/Thu Aug 5 16:30:07 1999// /itcl_migrate.c/1.1.1.1/Thu Aug 5 16:30:07 1999// /itcl_objects.c/1.1.1.1/Thu Aug 5 16:30:07 1999// /itcl_obsolete.c/1.1.1.1/Thu Aug 5 16:30:07 1999// /itcl_parse.c/1.1.1.1/Thu Aug 5 16:30:07 1999// /itcl_util.c/1.1.1.1/Thu Aug 5 16:30:07 1999// D neotcl8.1.1-lite/itcl3.0.1/itcl/generic/itclInt.h100664 15471 0 57047 6752336015 20027 0ustar damonwheel/* * ------------------------------------------------------------------------ * PACKAGE: [incr Tcl] * DESCRIPTION: Object-Oriented Extensions to Tcl * * [incr Tcl] provides object-oriented extensions to Tcl, much as * C++ provides object-oriented extensions to C. It provides a means * of encapsulating related procedures together with their shared data * in a local namespace that is hidden from the outside world. It * promotes code re-use through inheritance. More than anything else, * it encourages better organization of Tcl applications through the * object-oriented paradigm, leading to code that is easier to * understand and maintain. * * ADDING [incr Tcl] TO A Tcl-BASED APPLICATION: * * To add [incr Tcl] facilities to a Tcl application, modify the * Tcl_AppInit() routine as follows: * * 1) Include this header file near the top of the file containing * Tcl_AppInit(): * * #include "itcl.h" * * 2) Within the body of Tcl_AppInit(), add the following lines: * * if (Itcl_Init(interp) == TCL_ERROR) { * return TCL_ERROR; * } * * 3) Link your application with libitcl.a * * NOTE: An example file "tclAppInit.c" containing the changes shown * above is included in this distribution. * * ======================================================================== * AUTHOR: Michael J. McLennan * Bell Labs Innovations for Lucent Technologies * mmclennan@lucent.com * http://www.tcltk.com/itcl * * RCS: $Id: itclInt.h,v 1.1.1.1 1999/03/31 20:39:45 damon Exp $ * ======================================================================== * Copyright (c) 1993-1998 Lucent Technologies, Inc. * ------------------------------------------------------------------------ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. */ #ifndef ITCLINT_H #define ITCLINT_H #include "itcl.h" #include "tclInt.h" #ifdef BUILD_itcl # undef TCL_STORAGE_CLASS # define TCL_STORAGE_CLASS DLLEXPORT #endif /* * Since the Tcl/Tk distribution doesn't perform any asserts, * dynamic loading can fail to find the __assert function. * As a workaround, we'll include our own. */ #undef assert #ifdef NDEBUG #define assert(EX) ((void)0) #else EXTERN void Itcl_Assert _ANSI_ARGS_((char *testExpr, char *fileName, int lineNum) ); #if defined(__STDC__) #define assert(EX) (void)((EX) || (Itcl_Assert(#EX, __FILE__, __LINE__), 0)) #else #define assert(EX) (void)((EX) || (Itcl_Assert("EX", __FILE__, __LINE__), 0)) #endif /* __STDC__ */ #endif /* NDEBUG */ /* * Common info for managing all known objects. * Each interpreter has one of these data structures stored as * clientData in the "itcl" namespace. It is also accessible * as associated data via the key ITCL_INTERP_DATA. */ struct ItclObject; typedef struct ItclObjectInfo { Tcl_Interp *interp; /* interpreter that manages this info */ Tcl_HashTable objects; /* list of all known objects */ Itcl_Stack transparentFrames; /* stack of call frames that should be * treated transparently. When * Itcl_EvalMemberCode is invoked in * one of these contexts, it does an * "uplevel" to get past the transparent * frame and back to the calling context. */ Tcl_HashTable contextFrames; /* object contexts for active call frames */ int protection; /* protection level currently in effect */ Itcl_Stack cdefnStack; /* stack of class definitions currently * being parsed */ } ItclObjectInfo; #define ITCL_INTERP_DATA "itcl_data" /* * Representation for each [incr Tcl] class. */ typedef struct ItclClass { char *name; /* class name */ char *fullname; /* fully qualified class name */ Tcl_Interp *interp; /* interpreter that manages this info */ Tcl_Namespace *namesp; /* namespace representing class scope */ Tcl_Command accessCmd; /* access command for creating instances */ struct ItclObjectInfo *info; /* info about all known objects */ Itcl_List bases; /* list of base classes */ Itcl_List derived; /* list of all derived classes */ Tcl_HashTable heritage; /* table of all base classes. Look up * by pointer to class definition. This * provides fast lookup for inheritance * tests. */ Tcl_Obj *initCode; /* initialization code for new objs */ Tcl_HashTable variables; /* definitions for all data members in this class. Look up simple string names and get back ItclVarDefn* ptrs */ Tcl_HashTable functions; /* definitions for all member functions in this class. Look up simple string names and get back ItclMemberFunc* ptrs */ int numInstanceVars; /* number of instance vars in variables table */ Tcl_HashTable resolveVars; /* all possible names for variables in * this class (e.g., x, foo::x, etc.) */ Tcl_HashTable resolveCmds; /* all possible names for functions in * this class (e.g., x, foo::x, etc.) */ int unique; /* unique number for #auto generation */ int flags; /* maintains class status */ } ItclClass; typedef struct ItclHierIter { ItclClass *current; /* current position in hierarchy */ Itcl_Stack stack; /* stack used for traversal */ } ItclHierIter; /* * Representation for each [incr Tcl] object. */ typedef struct ItclObject { ItclClass *classDefn; /* most-specific class */ Tcl_Command accessCmd; /* object access command */ int dataSize; /* number of elements in data array */ Var** data; /* all object-specific data members */ Tcl_HashTable* constructed; /* temp storage used during construction */ Tcl_HashTable* destructed; /* temp storage used during destruction */ } ItclObject; #define ITCL_IGNORE_ERRS 0x002 /* useful for construction/destruction */ /* * Implementation for any code body in an [incr Tcl] class. */ typedef struct ItclMemberCode { int flags; /* flags describing implementation */ CompiledLocal *arglist; /* list of arg names and initial values */ int argcount; /* number of args in arglist */ Proc *procPtr; /* Tcl proc representation (needed to * handle compiled locals) */ union { Tcl_CmdProc *argCmd; /* (argc,argv) C implementation */ Tcl_ObjCmdProc *objCmd; /* (objc,objv) C implementation */ } cfunc; ClientData clientData; /* client data for C implementations */ } ItclMemberCode; /* * Basic representation for class members (commands/variables) */ typedef struct ItclMember { Tcl_Interp* interp; /* interpreter containing the class */ ItclClass* classDefn; /* class containing this member */ char* name; /* member name */ char* fullname; /* member name with "class::" qualifier */ int protection; /* protection level */ int flags; /* flags describing member (see below) */ ItclMemberCode *code; /* code associated with member */ } ItclMember; /* * Flag bits for ItclMemberCode and ItclMember: */ #define ITCL_IMPLEMENT_NONE 0x001 /* no implementation */ #define ITCL_IMPLEMENT_TCL 0x002 /* Tcl implementation */ #define ITCL_IMPLEMENT_ARGCMD 0x004 /* (argc,argv) C implementation */ #define ITCL_IMPLEMENT_OBJCMD 0x008 /* (objc,objv) C implementation */ #define ITCL_IMPLEMENT_C 0x00c /* either kind of C implementation */ #define ITCL_CONSTRUCTOR 0x010 /* non-zero => is a constructor */ #define ITCL_DESTRUCTOR 0x020 /* non-zero => is a destructor */ #define ITCL_COMMON 0x040 /* non-zero => is a "proc" */ #define ITCL_ARG_SPEC 0x080 /* non-zero => has an argument spec */ #define ITCL_OLD_STYLE 0x100 /* non-zero => old-style method * (process "config" argument) */ #define ITCL_THIS_VAR 0x200 /* non-zero => built-in "this" variable */ /* * Representation of member functions in an [incr Tcl] class. */ typedef struct ItclMemberFunc { ItclMember *member; /* basic member info */ Tcl_Command accessCmd; /* Tcl command installed for this function */ CompiledLocal *arglist; /* list of arg names and initial values */ int argcount; /* number of args in arglist */ } ItclMemberFunc; /* * Instance variables. */ typedef struct ItclVarDefn { ItclMember *member; /* basic member info */ char* init; /* initial value */ } ItclVarDefn; /* * Instance variable lookup entry. */ typedef struct ItclVarLookup { ItclVarDefn* vdefn; /* variable definition */ int usage; /* number of uses for this record */ int accessible; /* non-zero => accessible from class with * this lookup record in its resolveVars */ char *leastQualName; /* simplist name for this variable, with * the fewest qualifiers. This string is * taken from the resolveVars table, so * it shouldn't be freed. */ union { int index; /* index into virtual table (instance data) */ Tcl_Var common; /* variable (common data) */ } var; } ItclVarLookup; /* * Representation for the context in which a body of [incr Tcl] * code executes. In ordinary Tcl, this is a CallFrame. But for * [incr Tcl] code bodies, we must be careful to set up the * CallFrame properly, to plug in instance variables before * executing the code body. */ typedef struct ItclContext { ItclClass *classDefn; /* class definition */ CallFrame frame; /* call frame for object context */ Var *compiledLocals; /* points to storage for compiled locals */ Var localStorage[20]; /* default storage for compiled locals */ } ItclContext; /* * Functions used within the package, but not considered "public" */ EXTERN int Itcl_IsClassNamespace _ANSI_ARGS_((Tcl_Namespace *namesp)); EXTERN int Itcl_IsClass _ANSI_ARGS_((Tcl_Command cmd)); EXTERN ItclClass* Itcl_FindClass _ANSI_ARGS_((Tcl_Interp* interp, char* path, int autoload)); EXTERN int Itcl_FindObject _ANSI_ARGS_((Tcl_Interp *interp, char *name, ItclObject **roPtr)); EXTERN int Itcl_IsObject _ANSI_ARGS_((Tcl_Command cmd)); EXTERN int Itcl_ObjectIsa _ANSI_ARGS_((ItclObject *contextObj, ItclClass *cdefn)); EXTERN int Itcl_Protection _ANSI_ARGS_((Tcl_Interp *interp, int newLevel)); EXTERN char* Itcl_ProtectionStr _ANSI_ARGS_((int pLevel)); EXTERN int Itcl_CanAccess _ANSI_ARGS_((ItclMember* memberPtr, Tcl_Namespace* fromNsPtr)); EXTERN int Itcl_CanAccessFunc _ANSI_ARGS_((ItclMemberFunc* mfunc, Tcl_Namespace* fromNsPtr)); EXTERN Tcl_Namespace* Itcl_GetTrueNamespace _ANSI_ARGS_((Tcl_Interp *interp, ItclObjectInfo *info)); EXTERN void Itcl_ParseNamespPath _ANSI_ARGS_((char *name, Tcl_DString *buffer, char **head, char **tail)); EXTERN int Itcl_DecodeScopedCommand _ANSI_ARGS_((Tcl_Interp *interp, char *name, Tcl_Namespace **rNsPtr, char **rCmdPtr)); EXTERN int Itcl_EvalArgs _ANSI_ARGS_((Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN Tcl_Obj* Itcl_CreateArgs _ANSI_ARGS_((Tcl_Interp *interp, char *string, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_PushContext _ANSI_ARGS_((Tcl_Interp *interp, ItclMember *member, ItclClass *contextClass, ItclObject *contextObj, ItclContext *contextPtr)); EXTERN void Itcl_PopContext _ANSI_ARGS_((Tcl_Interp *interp, ItclContext *contextPtr)); EXTERN int Itcl_GetContext _ANSI_ARGS_((Tcl_Interp *interp, ItclClass **cdefnPtr, ItclObject **odefnPtr)); EXTERN void Itcl_InitHierIter _ANSI_ARGS_((ItclHierIter *iter, ItclClass *cdefn)); EXTERN void Itcl_DeleteHierIter _ANSI_ARGS_((ItclHierIter *iter)); EXTERN ItclClass* Itcl_AdvanceHierIter _ANSI_ARGS_((ItclHierIter *iter)); EXTERN int Itcl_FindClassesCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_FindObjectsCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_ProtectionCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_DelClassCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_DelObjectCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_ScopeCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_CodeCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_StubCreateCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_StubExistsCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_IsStub _ANSI_ARGS_((Tcl_Command cmd)); /* * Functions for manipulating classes */ EXTERN int Itcl_CreateClass _ANSI_ARGS_((Tcl_Interp* interp, char* path, ItclObjectInfo *info, ItclClass **rPtr)); EXTERN int Itcl_DeleteClass _ANSI_ARGS_((Tcl_Interp *interp, ItclClass *cdefnPtr)); EXTERN Tcl_Namespace* Itcl_FindClassNamespace _ANSI_ARGS_((Tcl_Interp* interp, char* path)); EXTERN int Itcl_HandleClass _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_ClassCmdResolver _ANSI_ARGS_((Tcl_Interp *interp, char* name, Tcl_Namespace *context, int flags, Tcl_Command *rPtr)); EXTERN int Itcl_ClassVarResolver _ANSI_ARGS_((Tcl_Interp *interp, char* name, Tcl_Namespace *context, int flags, Tcl_Var *rPtr)); EXTERN int Itcl_ClassCompiledVarResolver _ANSI_ARGS_((Tcl_Interp *interp, char* name, int length, Tcl_Namespace *context, Tcl_ResolvedVarInfo **rPtr)); EXTERN void Itcl_BuildVirtualTables _ANSI_ARGS_((ItclClass* cdefnPtr)); EXTERN int Itcl_CreateVarDefn _ANSI_ARGS_((Tcl_Interp *interp, ItclClass* cdefn, char* name, char* init, char* config, ItclVarDefn** vdefnPtr)); EXTERN void Itcl_DeleteVarDefn _ANSI_ARGS_((ItclVarDefn *vdefn)); EXTERN char* Itcl_GetCommonVar _ANSI_ARGS_((Tcl_Interp *interp, char *name, ItclClass *contextClass)); EXTERN ItclMember* Itcl_CreateMember _ANSI_ARGS_((Tcl_Interp* interp, ItclClass *cdefn, char* name)); EXTERN void Itcl_DeleteMember _ANSI_ARGS_((ItclMember *memPtr)); /* * Functions for manipulating objects */ EXTERN int Itcl_CreateObject _ANSI_ARGS_((Tcl_Interp *interp, char* name, ItclClass *cdefn, int objc, Tcl_Obj *CONST objv[], ItclObject **roPtr)); EXTERN int Itcl_DeleteObject _ANSI_ARGS_((Tcl_Interp *interp, ItclObject *contextObj)); EXTERN int Itcl_DestructObject _ANSI_ARGS_((Tcl_Interp *interp, ItclObject *contextObj, int flags)); EXTERN int Itcl_HandleInstance _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN char* Itcl_GetInstanceVar _ANSI_ARGS_((Tcl_Interp *interp, char *name, ItclObject *contextObj, ItclClass *contextClass)); EXTERN int Itcl_ScopedVarResolver _ANSI_ARGS_((Tcl_Interp *interp, char *name, Tcl_Namespace *contextNs, int flags, Tcl_Var *rPtr)); /* * Functions for manipulating methods and procs */ EXTERN int Itcl_BodyCmd _ANSI_ARGS_((ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_ConfigBodyCmd _ANSI_ARGS_((ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_CreateMethod _ANSI_ARGS_((Tcl_Interp* interp, ItclClass *cdefn, char* name, char* arglist, char* body)); EXTERN int Itcl_CreateProc _ANSI_ARGS_((Tcl_Interp* interp, ItclClass *cdefn, char* name, char* arglist, char* body)); EXTERN int Itcl_CreateMemberFunc _ANSI_ARGS_((Tcl_Interp* interp, ItclClass *cdefn, char* name, char* arglist, char* body, ItclMemberFunc** mfuncPtr)); EXTERN int Itcl_ChangeMemberFunc _ANSI_ARGS_((Tcl_Interp* interp, ItclMemberFunc* mfunc, char* arglist, char* body)); EXTERN void Itcl_DeleteMemberFunc _ANSI_ARGS_((char* cdata)); EXTERN int Itcl_CreateMemberCode _ANSI_ARGS_((Tcl_Interp* interp, ItclClass *cdefn, char* arglist, char* body, ItclMemberCode** mcodePtr)); EXTERN void Itcl_DeleteMemberCode _ANSI_ARGS_((char* cdata)); EXTERN int Itcl_GetMemberCode _ANSI_ARGS_((Tcl_Interp* interp, ItclMember* member)); EXTERN int Itcl_CompileMemberCodeBody _ANSI_ARGS_((Tcl_Interp *interp, ItclMember *member, char *desc, Tcl_Obj *bodyPtr)); EXTERN int Itcl_EvalMemberCode _ANSI_ARGS_((Tcl_Interp *interp, ItclMemberFunc *mfunc, ItclMember *member, ItclObject *contextObj, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_CreateArgList _ANSI_ARGS_((Tcl_Interp* interp, char* decl, int* argcPtr, CompiledLocal** argPtr)); EXTERN CompiledLocal* Itcl_CreateArg _ANSI_ARGS_((char* name, char* init)); EXTERN void Itcl_DeleteArgList _ANSI_ARGS_((CompiledLocal *arglist)); EXTERN Tcl_Obj* Itcl_ArgList _ANSI_ARGS_((int argc, CompiledLocal* arglist)); EXTERN int Itcl_EquivArgLists _ANSI_ARGS_((CompiledLocal* arg1, int arg1c, CompiledLocal* arg2, int arg2c)); EXTERN void Itcl_GetMemberFuncUsage _ANSI_ARGS_((ItclMemberFunc *mfunc, ItclObject *contextObj, Tcl_Obj *objPtr)); EXTERN int Itcl_ExecMethod _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_ExecProc _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_AssignArgs _ANSI_ARGS_((Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[], ItclMemberFunc *mfunc)); EXTERN int Itcl_ConstructBase _ANSI_ARGS_((Tcl_Interp *interp, ItclObject *contextObj, ItclClass *contextClass)); EXTERN int Itcl_InvokeMethodIfExists _ANSI_ARGS_((Tcl_Interp *interp, char *name, ItclClass *contextClass, ItclObject *contextObj, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_EvalBody _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *bodyPtr)); EXTERN int Itcl_ReportFuncErrors _ANSI_ARGS_((Tcl_Interp* interp, ItclMemberFunc *mfunc, ItclObject *contextObj, int result)); /* * Commands for parsing class definitions */ EXTERN int Itcl_ParseInit _ANSI_ARGS_((Tcl_Interp *interp, ItclObjectInfo *info)); EXTERN int Itcl_ClassCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_ClassInheritCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_ClassProtectionCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_ClassConstructorCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_ClassDestructorCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_ClassMethodCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_ClassProcCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_ClassVariableCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_ClassCommonCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_ParseVarResolver _ANSI_ARGS_((Tcl_Interp *interp, char* name, Tcl_Namespace *contextNs, int flags, Tcl_Var* rPtr)); /* * Commands in the "builtin" namespace */ EXTERN int Itcl_BiInit _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN int Itcl_InstallBiMethods _ANSI_ARGS_((Tcl_Interp *interp, ItclClass *cdefn)); EXTERN int Itcl_BiIsaCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_BiConfigureCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_BiCgetCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_BiChainCmd _ANSI_ARGS_((ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_BiInfoClassCmd _ANSI_ARGS_((ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_BiInfoInheritCmd _ANSI_ARGS_((ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_BiInfoHeritageCmd _ANSI_ARGS_((ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_BiInfoFunctionCmd _ANSI_ARGS_((ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_BiInfoVariableCmd _ANSI_ARGS_((ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_BiInfoBodyCmd _ANSI_ARGS_((ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_BiInfoArgsCmd _ANSI_ARGS_((ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_DefaultInfoCmd _ANSI_ARGS_((ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); /* * Ensembles */ EXTERN int Itcl_EnsembleInit _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN int Itcl_CreateEnsemble _ANSI_ARGS_((Tcl_Interp *interp, char* ensName)); EXTERN int Itcl_AddEnsemblePart _ANSI_ARGS_((Tcl_Interp *interp, char* ensName, char* partName, char* usageInfo, Tcl_ObjCmdProc *objProc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc)); EXTERN int Itcl_GetEnsemblePart _ANSI_ARGS_((Tcl_Interp *interp, char *ensName, char *partName, Tcl_CmdInfo *infoPtr)); EXTERN int Itcl_IsEnsemble _ANSI_ARGS_((Tcl_CmdInfo* infoPtr)); EXTERN int Itcl_GetEnsembleUsage _ANSI_ARGS_((Tcl_Interp *interp, char *ensName, Tcl_Obj *objPtr)); EXTERN int Itcl_GetEnsembleUsageForObj _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *ensObjPtr, Tcl_Obj *objPtr)); EXTERN int Itcl_EnsembleCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_EnsPartCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); EXTERN int Itcl_EnsembleErrorCmd _ANSI_ARGS_((ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])); /* * Commands provided for backward compatibility */ EXTERN int Itcl_OldInit _ANSI_ARGS_((Tcl_Interp* interp, ItclObjectInfo* info)); EXTERN int Itcl_InstallOldBiMethods _ANSI_ARGS_((Tcl_Interp *interp, ItclClass *cdefn)); /* * Things that should be in the Tcl core. */ EXTERN Tcl_CallFrame* _Tcl_GetCallFrame _ANSI_ARGS_((Tcl_Interp *interp, int level)); EXTERN Tcl_CallFrame* _Tcl_ActivateCallFrame _ANSI_ARGS_((Tcl_Interp *interp, Tcl_CallFrame *framePtr)); EXTERN Var* _TclNewVar _ANSI_ARGS_((void)); #undef TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS DLLIMPORT #endif /* ITCLINT_H */ neotcl8.1.1-lite/itcl3.0.1/itcl/generic/itcl.h100664 15471 0 15245 6752336015 17346 0ustar damonwheel/* * ------------------------------------------------------------------------ * PACKAGE: [incr Tcl] * DESCRIPTION: Object-Oriented Extensions to Tcl * * [incr Tcl] provides object-oriented extensions to Tcl, much as * C++ provides object-oriented extensions to C. It provides a means * of encapsulating related procedures together with their shared data * in a local namespace that is hidden from the outside world. It * promotes code re-use through inheritance. More than anything else, * it encourages better organization of Tcl applications through the * object-oriented paradigm, leading to code that is easier to * understand and maintain. * * ADDING [incr Tcl] TO A Tcl-BASED APPLICATION: * * To add [incr Tcl] facilities to a Tcl application, modify the * Tcl_AppInit() routine as follows: * * 1) Include this header file near the top of the file containing * Tcl_AppInit(): * * #include "itcl.h" * * 2) Within the body of Tcl_AppInit(), add the following lines: * * if (Itcl_Init(interp) == TCL_ERROR) { * return TCL_ERROR; * } * * 3) Link your application with libitcl.a * * NOTE: An example file "tclAppInit.c" containing the changes shown * above is included in this distribution. * * ======================================================================== * AUTHOR: Michael J. McLennan * Bell Labs Innovations for Lucent Technologies * mmclennan@lucent.com * http://www.tcltk.com/itcl * * RCS: $Id: itcl.h,v 1.1.1.1 1999/03/31 20:39:45 damon Exp $ * ======================================================================== * Copyright (c) 1993-1998 Lucent Technologies, Inc. * ------------------------------------------------------------------------ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. */ #ifndef ITCL_H #define ITCL_H #include "tcl.h" #ifdef BUILD_itcl # undef TCL_STORAGE_CLASS # define TCL_STORAGE_CLASS DLLEXPORT #endif #define ITCL_VERSION "3.0" #define ITCL_PATCH_LEVEL "3.0.1" #define ITCL_MAJOR_VERSION 3 #define ITCL_MINOR_VERSION 0 #define ITCL_RELEASE_LEVEL 0 /* * A special definition used to allow this header file to be included * in resource files so that they can get obtain version information from * this file. Resource compilers don't like all the C stuff, like typedefs * and procedure declarations, that occur below. */ #ifndef RESOURCE_INCLUDED /* * Protection levels: * * ITCL_PUBLIC - accessible from any namespace * ITCL_PROTECTED - accessible from namespace that imports in "protected" mode * ITCL_PRIVATE - accessible only within the namespace that contains it */ #define ITCL_PUBLIC 1 #define ITCL_PROTECTED 2 #define ITCL_PRIVATE 3 #define ITCL_DEFAULT_PROTECT 4 /* * Generic stack. */ typedef struct Itcl_Stack { ClientData *values; /* values on stack */ int len; /* number of values on stack */ int max; /* maximum size of stack */ ClientData space[5]; /* initial space for stack data */ } Itcl_Stack; #define Itcl_GetStackSize(stackPtr) ((stackPtr)->len) /* * Generic linked list. */ struct Itcl_List; typedef struct Itcl_ListElem { struct Itcl_List* owner; /* list containing this element */ ClientData value; /* value associated with this element */ struct Itcl_ListElem *prev; /* previous element in linked list */ struct Itcl_ListElem *next; /* next element in linked list */ } Itcl_ListElem; typedef struct Itcl_List { int validate; /* validation stamp */ int num; /* number of elements */ struct Itcl_ListElem *head; /* previous element in linked list */ struct Itcl_ListElem *tail; /* next element in linked list */ } Itcl_List; #define Itcl_FirstListElem(listPtr) ((listPtr)->head) #define Itcl_LastListElem(listPtr) ((listPtr)->tail) #define Itcl_NextListElem(elemPtr) ((elemPtr)->next) #define Itcl_PrevListElem(elemPtr) ((elemPtr)->prev) #define Itcl_GetListLength(listPtr) ((listPtr)->num) #define Itcl_GetListValue(elemPtr) ((elemPtr)->value) /* * Token representing the state of an interpreter. */ typedef struct Itcl_InterpState_ *Itcl_InterpState; /* * Exported functions */ EXTERN int Itcl_Init _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN int Itcl_SafeInit _ANSI_ARGS_((Tcl_Interp *interp)); EXTERN int Itcl_RegisterC _ANSI_ARGS_((Tcl_Interp *interp, char *name, Tcl_CmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc)); EXTERN int Itcl_RegisterObjC _ANSI_ARGS_((Tcl_Interp *interp, char *name, Tcl_ObjCmdProc *proc, ClientData clientData, Tcl_CmdDeleteProc *deleteProc)); EXTERN int Itcl_FindC _ANSI_ARGS_((Tcl_Interp *interp, char *name, Tcl_CmdProc **argProcPtr, Tcl_ObjCmdProc **objProcPtr, ClientData *cDataPtr)); EXTERN void Itcl_InitStack _ANSI_ARGS_((Itcl_Stack *stack)); EXTERN void Itcl_DeleteStack _ANSI_ARGS_((Itcl_Stack *stack)); EXTERN void Itcl_PushStack _ANSI_ARGS_((ClientData cdata, Itcl_Stack *stack)); EXTERN ClientData Itcl_PopStack _ANSI_ARGS_((Itcl_Stack *stack)); EXTERN ClientData Itcl_PeekStack _ANSI_ARGS_((Itcl_Stack *stack)); EXTERN ClientData Itcl_GetStackValue _ANSI_ARGS_((Itcl_Stack *stack, int pos)); EXTERN void Itcl_InitList _ANSI_ARGS_((Itcl_List *listPtr)); EXTERN void Itcl_DeleteList _ANSI_ARGS_((Itcl_List *listPtr)); EXTERN Itcl_ListElem* Itcl_CreateListElem _ANSI_ARGS_((Itcl_List *listPtr)); EXTERN Itcl_ListElem* Itcl_DeleteListElem _ANSI_ARGS_((Itcl_ListElem *elemPtr)); EXTERN Itcl_ListElem* Itcl_InsertList _ANSI_ARGS_((Itcl_List *listPtr, ClientData val)); EXTERN Itcl_ListElem* Itcl_InsertListElem _ANSI_ARGS_((Itcl_ListElem *pos, ClientData val)); EXTERN Itcl_ListElem* Itcl_AppendList _ANSI_ARGS_((Itcl_List *listPtr, ClientData val)); EXTERN Itcl_ListElem* Itcl_AppendListElem _ANSI_ARGS_((Itcl_ListElem *pos, ClientData val)); EXTERN void Itcl_SetListValue _ANSI_ARGS_((Itcl_ListElem *elemPtr, ClientData val)); EXTERN void Itcl_EventuallyFree _ANSI_ARGS_((ClientData cdata, Tcl_FreeProc *fproc)); EXTERN void Itcl_PreserveData _ANSI_ARGS_((ClientData cdata)); EXTERN void Itcl_ReleaseData _ANSI_ARGS_((ClientData cdata)); EXTERN Itcl_InterpState Itcl_SaveInterpState _ANSI_ARGS_((Tcl_Interp* interp, int status)); EXTERN int Itcl_RestoreInterpState _ANSI_ARGS_((Tcl_Interp* interp, Itcl_InterpState state)); EXTERN void Itcl_DiscardInterpState _ANSI_ARGS_((Itcl_InterpState state)); #endif /* RESOURCE INCLUDED */ #undef TCL_STORAGE_CLASS #define TCL_STORAGE_CLASS DLLIMPORT #endif /* ITCL_H */ neotcl8.1.1-lite/itcl3.0.1/itcl/generic/itcl_bicmds.c100664 15471 0 153501 6752336015 20700 0ustar damonwheel/* * ------------------------------------------------------------------------ * PACKAGE: [incr Tcl] * DESCRIPTION: Object-Oriented Extensions to Tcl * * [incr Tcl] provides object-oriented extensions to Tcl, much as * C++ provides object-oriented extensions to C. It provides a means * of encapsulating related procedures together with their shared data * in a local namespace that is hidden from the outside world. It * promotes code re-use through inheritance. More than anything else, * it encourages better organization of Tcl applications through the * object-oriented paradigm, leading to code that is easier to * understand and maintain. * * These procedures handle built-in class methods, including the * "isa" method (to query hierarchy info) and the "info" method * (to query class/object data). * * ======================================================================== * AUTHOR: Michael J. McLennan * Bell Labs Innovations for Lucent Technologies * mmclennan@lucent.com * http://www.tcltk.com/itcl * * RCS: $Id: itcl_bicmds.c,v 1.1.1.1 1999/03/31 20:39:45 damon Exp $ * ======================================================================== * Copyright (c) 1993-1998 Lucent Technologies, Inc. * ------------------------------------------------------------------------ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. */ #include "itclInt.h" /* * Standard list of built-in methods for all objects. */ typedef struct BiMethod { char* name; /* method name */ char* usage; /* string describing usage */ char* registration; /* registration name for C proc */ Tcl_ObjCmdProc *proc; /* implementation C proc */ } BiMethod; static BiMethod BiMethodList[] = { { "cget", "-option", "@itcl-builtin-cget", Itcl_BiCgetCmd }, { "configure", "?-option? ?value -option value...?", "@itcl-builtin-configure", Itcl_BiConfigureCmd }, { "isa", "className", "@itcl-builtin-isa", Itcl_BiIsaCmd }, }; static int BiMethodListLen = sizeof(BiMethodList)/sizeof(BiMethod); /* * FORWARD DECLARATIONS */ static Tcl_Obj* ItclReportPublicOpt _ANSI_ARGS_((Tcl_Interp *interp, ItclVarDefn *vdefn, ItclObject *contextObj)); /* * ------------------------------------------------------------------------ * Itcl_BiInit() * * Creates a namespace full of built-in methods/procs for [incr Tcl] * classes. This includes things like the "isa" method and "info" * for querying class info. Usually invoked by Itcl_Init() when * [incr Tcl] is first installed into an interpreter. * * Returns TCL_OK/TCL_ERROR to indicate success/failure. * ------------------------------------------------------------------------ */ int Itcl_BiInit(interp) Tcl_Interp *interp; /* current interpreter */ { int i; Tcl_Namespace *itclBiNs; /* * Declare all of the built-in methods as C procedures. */ for (i=0; i < BiMethodListLen; i++) { if (Itcl_RegisterObjC(interp, BiMethodList[i].registration+1, BiMethodList[i].proc, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL) != TCL_OK) { return TCL_ERROR; } } /* * Create the "::itcl::builtin" namespace for built-in class * commands. These commands are imported into each class * just before the class definition is parsed. */ Tcl_CreateObjCommand(interp, "::itcl::builtin::chain", Itcl_BiChainCmd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL); if (Itcl_CreateEnsemble(interp, "::itcl::builtin::info") != TCL_OK) { return TCL_ERROR; } if (Itcl_AddEnsemblePart(interp, "::itcl::builtin::info", "class", "", Itcl_BiInfoClassCmd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL) != TCL_OK || Itcl_AddEnsemblePart(interp, "::itcl::builtin::info", "inherit", "", Itcl_BiInfoInheritCmd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL) != TCL_OK || Itcl_AddEnsemblePart(interp, "::itcl::builtin::info", "heritage", "", Itcl_BiInfoHeritageCmd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL) != TCL_OK || Itcl_AddEnsemblePart(interp, "::itcl::builtin::info", "function", "?name? ?-protection? ?-type? ?-name? ?-args? ?-body?", Itcl_BiInfoFunctionCmd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL) != TCL_OK || Itcl_AddEnsemblePart(interp, "::itcl::builtin::info", "variable", "?name? ?-protection? ?-type? ?-name? ?-init? ?-value? ?-config?", Itcl_BiInfoVariableCmd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL) != TCL_OK || Itcl_AddEnsemblePart(interp, "::itcl::builtin::info", "args", "procname", Itcl_BiInfoArgsCmd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL) != TCL_OK || Itcl_AddEnsemblePart(interp, "::itcl::builtin::info", "body", "procname", Itcl_BiInfoBodyCmd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL) != TCL_OK ) { return TCL_ERROR; } /* * Add an error handler to support all of the usual inquiries * for the "info" command in the global namespace. */ if (Itcl_AddEnsemblePart(interp, "::itcl::builtin::info", "@error", "", Itcl_DefaultInfoCmd, (ClientData)NULL, (Tcl_CmdDeleteProc*)NULL) != TCL_OK ) { return TCL_ERROR; } /* * Export all commands in the built-in namespace so we can * import them later on. */ itclBiNs = Tcl_FindNamespace(interp, "::itcl::builtin", (Tcl_Namespace*)NULL, TCL_LEAVE_ERR_MSG); if (!itclBiNs || Tcl_Export(interp, itclBiNs, "*", /* resetListFirst */ 1) != TCL_OK) { return TCL_ERROR; } return TCL_OK; } /* * ------------------------------------------------------------------------ * Itcl_InstallBiMethods() * * Invoked when a class is first created, just after the class * definition has been parsed, to add definitions for built-in * methods to the class. If a method already exists in the class * with the same name as the built-in, then the built-in is skipped. * Otherwise, a method definition for the built-in method is added. * * Returns TCL_OK if successful, or TCL_ERROR (along with an error * message in the interpreter) if anything goes wrong. * ------------------------------------------------------------------------ */ int Itcl_InstallBiMethods(interp, cdefn) Tcl_Interp *interp; /* current interpreter */ ItclClass *cdefn; /* class definition to be updated */ { int result = TCL_OK; Tcl_HashEntry *entry = NULL; int i; ItclHierIter hier; ItclClass *cdPtr; /* * Scan through all of the built-in methods and see if * that method already exists in the class. If not, add * it in. * * TRICKY NOTE: The virtual tables haven't been built yet, * so look for existing methods the hard way--by scanning * through all classes. */ for (i=0; i < BiMethodListLen; i++) { Itcl_InitHierIter(&hier, cdefn); cdPtr = Itcl_AdvanceHierIter(&hier); while (cdPtr) { entry = Tcl_FindHashEntry(&cdPtr->functions, BiMethodList[i].name); if (entry) { break; } cdPtr = Itcl_AdvanceHierIter(&hier); } Itcl_DeleteHierIter(&hier); if (!entry) { result = Itcl_CreateMethod(interp, cdefn, BiMethodList[i].name, BiMethodList[i].usage, BiMethodList[i].registration); if (result != TCL_OK) { break; } } } return result; } /* * ------------------------------------------------------------------------ * Itcl_BiIsaCmd() * * Invoked whenever the user issues the "isa" method for an object. * Handles the following syntax: * * isa * * Checks to see if the object has the given anywhere * in its heritage. Returns 1 if so, and 0 otherwise. * ------------------------------------------------------------------------ */ /* ARGSUSED */ int Itcl_BiIsaCmd(clientData, interp, objc, objv) ClientData clientData; /* class definition */ Tcl_Interp *interp; /* current interpreter */ int objc; /* number of arguments */ Tcl_Obj *CONST objv[]; /* argument objects */ { ItclClass *contextClass, *cdefn; ItclObject *contextObj; char *token; /* * Make sure that this command is being invoked in the proper * context. */ if (Itcl_GetContext(interp, &contextClass, &contextObj) != TCL_OK) { return TCL_ERROR; } if (!contextObj) { Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "improper usage: should be \"object isa className\"", (char*)NULL); return TCL_ERROR; } if (objc != 2) { token = Tcl_GetStringFromObj(objv[0], (int*)NULL); Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "wrong # args: should be \"object ", token, " className\"", (char*)NULL); return TCL_ERROR; } /* * Look for the requested class. If it is not found, then * try to autoload it. If it absolutely cannot be found, * signal an error. */ token = Tcl_GetStringFromObj(objv[1], (int*)NULL); cdefn = Itcl_FindClass(interp, token, /* autoload */ 1); if (cdefn == NULL) { return TCL_ERROR; } if (Itcl_ObjectIsa(contextObj, cdefn)) { Tcl_SetIntObj(Tcl_GetObjResult(interp), 1); } else { Tcl_SetIntObj(Tcl_GetObjResult(interp), 0); } return TCL_OK; } /* * ------------------------------------------------------------------------ * Itcl_BiConfigureCmd() * * Invoked whenever the user issues the "configure" method for an object. * Handles the following syntax: * * configure ?-