diff options
| author | vbwagner <vbwagner@noemail.net> | 2004-03-05 14:06:55 (GMT) |
|---|---|---|
| committer | vbwagner <vbwagner@noemail.net> | 2004-03-05 14:06:55 (GMT) |
| commit | 0c0f652662b1fe807b3742baf699d00d904ac385 (patch) | |
| tree | 071856109fec29152f3bcfd3d92535ae562585e5 /unix/tclUnixFCmd.c | |
| parent | 867b92ca259fe96aabbc8b893527d8dd7bb195dd (diff) | |
| download | tcl-0c0f652662b1fe807b3742baf699d00d904ac385.zip tcl-0c0f652662b1fe807b3742baf699d00d904ac385.tar.gz tcl-0c0f652662b1fe807b3742baf699d00d904ac385.tar.bz2 | |
hidden unix-specific implementations of file volumes and file attributes
under
#ifndef DJGPP.
Added couple of undefs into tclUnixPort.h to avoid
confilct between Waterloo TCP and DJGPP system error constants
FossilOrigin-Name: 8616737a8ae6773b5d6ecdab3e29da1bfdb44415
Diffstat (limited to 'unix/tclUnixFCmd.c')
| -rw-r--r-- | unix/tclUnixFCmd.c | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c index fede131..4e2f429 100644 --- a/unix/tclUnixFCmd.c +++ b/unix/tclUnixFCmd.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixFCmd.c,v 1.34 2004/01/29 10:28:23 vincentdarley Exp $ + * RCS: @(#) $Id: tclUnixFCmd.c,v 1.35 2004/03/05 14:06:55 vbwagner Exp $ * * Portions of this code were derived from NetBSD source code which has * the following copyright notice: @@ -116,6 +116,13 @@ typedef int (TraversalProc) _ANSI_ARGS_((Tcl_DString *srcPtr, * and possibly elsewhere in Tcl's core. */ +#ifdef DJGPP + +/*See contrib/djgpp/tclDjgppFCmd.c for definitio*/ +extern TclFileAttrProcs tclpFileAttrProcs[]; +extern char *tclpFileAttrStrings[]; + +#else enum { UNIX_GROUP_ATTRIBUTE, UNIX_OWNER_ATTRIBUTE, @@ -161,7 +168,7 @@ CONST TclFileAttrProcs tclpFileAttrProcs[] = { {TclMacOSXGetFileAttribute, TclMacOSXSetFileAttribute}, #endif }; - +#endif /* * Declarations for local procedures defined in this file: */ @@ -1480,6 +1487,7 @@ SetPermissionsAttribute(interp, objIndex, fileName, attributePtr) return TCL_OK; } +#ifndef DJGPP /* *--------------------------------------------------------------------------- * @@ -1504,6 +1512,7 @@ TclpObjListVolumes(void) Tcl_IncrRefCount(resultPtr); return resultPtr; } +#endif /* *---------------------------------------------------------------------- |