Message-ID: <399BE30E.AA1F3E6C@softhome.net>
Date: Thu, 17 Aug 2000 15:05:18 +0200
From: Laurynas Biveinis <lauras AT softhome DOT net>
X-Mailer: Mozilla 4.74 [en] (Win98; U)
X-Accept-Language: lt,en
MIME-Version: 1.0
To: DJGPP Workers <djgpp-workers AT delorie DOT com>
Subject: Patch: __internal_readlink()
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Reply-To: djgpp-workers AT delorie DOT com

Here is that new functions. If it is OK, I will make fstat()
use it.

Any comments?

Laurynas

Index: djgpp/include/libc/symlink.h
===================================================================
RCS file: /cvs/djgpp/djgpp/include/libc/symlink.h,v
retrieving revision 1.1
diff -u -r1.1 symlink.h
--- symlink.h	2000/08/14 08:51:28	1.1
+++ symlink.h	2000/08/17 13:05:31
@@ -17,6 +17,19 @@
 
 #ifndef _POSIX_SOURCE
 
+#include <sys/djtypes.h>
+
+__DJ_size_t
+#undef __DJ_size_t
+#define __DJ_size_t
+
+/* Semi-internal library function which reads symlink contents given  */
+/* either a file name or its handle.  Used by readlink(), fstat() and */
+/* user supplied (if any) file fstat handler.                         */
+
+int __internal_readlink(const char * __path, int __fhandle, char * __buf, 
+                        size_t  __max);
+
 /* A prototype for internal library function for fully resolving symlink   */
 /* chain. Standard function readlink() solves only one symlink level.      */
 /* If path name passed appears to be not a symlink, it is copied to result */
Index: djgpp/src/docs/kb/wc204.txi
===================================================================
RCS file: /cvs/djgpp/djgpp/src/docs/kb/wc204.txi,v
retrieving revision 1.20
diff -u -r1.20 wc204.txi
--- wc204.txi	2000/08/17 08:46:09	1.20
+++ wc204.txi	2000/08/17 13:05:32
@@ -93,14 +93,16 @@
 as if @code{it_interval.tv_usec} were set to the system clock
 granularity (55 AT dmn{msec} by default).
 
+@findex __internal_readlink AT r{, added to the library}
 @findex __solve_symlinks AT r{, added to the library}
 @findex lstat AT r{, added to the library}
 @findex readlink AT r{, added to the library}
 @findex S_ISLNK AT r{, added to the library}
 @findex S_IFLNK AT r{, added to the library}
-UNIX-style symbolic links are fully emulated by library.  As a part of this,
-new functions @code{__solve_symlinks}, @code{lstat} and @code{readlink};
-new macros @code{S_ISLNK} and @code{S_IFLNK} have been added to library.
+UNIX-style symbolic links are fully emulated by library.  As a part of 
+this, new functions @code{__internal_readlink}, @code{__solve_symlinks}, 
+@code{lstat} and @code{readlink}; new macros @code{S_ISLNK} and 
+@code{S_IFLNK} have been added to library.
 
 @findex O_NOLINK AT r{, new flag accepted by @code{open}}
 @findex O_NOFOLLOW AT r{, new flag accepted by @code{open}}
Index: djgpp/src/libc/compat/unistd/_irdlink.c
===================================================================
RCS file: _irdlink.c
diff -N _irdlink.c
--- /dev/null	Tue May  5 16:32:27 1998
+++ _irdlink.c	Thu Aug 17 09:05:36 2000
@@ -0,0 +1,121 @@
+/* Copyright (C) 2000 DJ Delorie, see COPYING.DJ for details */
+
+#include <libc/stubs.h>
+#include <libc/symlink.h>
+#include <sys/fsext.h>
+#include <dir.h>
+#include <errno.h>
+#include <fcntl.h>
+#include <io.h>
+#include <stddef.h>
+#include <stdio.h>
+#include <string.h>
+#include <unistd.h>
+
+#include "xsymlink.h"
+
+int __internal_readlink(const char * __path, int __fhandle, char * __buf, 
+                        size_t __max)
+{
+   ssize_t       bytes_read         = 0;
+   char          buf[_SYMLINK_FILE_LEN];
+   char        * data_buf;
+   int           fd;
+   struct ffblk  file_info;
+   int           ret;
+   off_t         old_pos = 0;
+   long          file_size;
+
+   /* Provide ability to hook symlink support */
+   if (__FSEXT_call_open_handlers(__FSEXT_readlink, &ret, &__path))
+      return ret;
+
+   /* Reject NULL and impossible arg combinations */
+   if (!__buf || (__path && __fhandle))
+   {
+      errno = EINVAL;
+      return -1;
+   }
+
+   /* Get file size */
+
+   if (__fhandle)
+      file_size = filelength(__fhandle);
+   else if (__path)
+   {
+      /* We will check if file exists by the way */
+      if (findfirst(__path, &file_info, 0))
+      {
+         errno = ENOENT;
+         return -1;
+      }
+      file_size = file_info.ff_fsize;
+   }
+   else
+   {
+      /* What the ?.. */
+      errno = EINVAL;
+      return -1;
+   }
+
+   /* Is symlink file size a fixed magic value? */
+   if (file_info.ff_fsize != _SYMLINK_FILE_LEN)
+   {
+      errno = EINVAL; /* Sad but true */
+      return -1;
+   }
+
+   /* Now we check for special DJGPP symlink format */
+
+   /* If we have file handle */
+   if (__fhandle)
+   {
+      /* Remember old file pos */
+      old_pos = tell(__fhandle);
+      if (old_pos == -1)
+         return -1;
+      lseek(__fhandle, 0, SEEK_SET);
+      fd = __fhandle;
+   }
+   else
+   {
+      fd = _open(__path, O_RDONLY);
+      if (fd < 0)
+      {
+         /* Retry with DENY-NONE share bit set. It might help in some cases
+          * when symlink file is opened by another program. We don't try with
+          * DENY-NONE set in the first _open() call, because it might fail under
+          * some circumstances. For details, see Ralf Brown's Interrupt List,
+          * description of INT 0x21, function 0x3D.
+          */
+         fd = _open(__path, O_RDONLY | SH_DENYNO);
+         if (fd < 0)
+            return -1; /* errno from _open() call */
+      } 
+   }
+
+   bytes_read = read(fd, &buf, _SYMLINK_FILE_LEN);
+
+   if (__fhandle)
+      lseek(__fhandle, old_pos, SEEK_SET);
+   else
+      _close(fd);
+
+   if (bytes_read == -1)
+      return -1; /* Return errno set by _read() (_close() in worse case) */
+      
+   /* Check for symlink file header */
+   if (strncmp(buf, _SYMLINK_PREFIX, _SYMLINK_PREFIX_LEN))
+   {
+      close(fd);
+      errno = EINVAL;
+      return -1;
+   }
+   
+   data_buf = buf + _SYMLINK_PREFIX_LEN;
+   bytes_read = strchr(data_buf, '\n') - data_buf;
+   bytes_read = ((unsigned)bytes_read > __max) ? __max : bytes_read;
+   memcpy(__buf, data_buf, bytes_read);
+   return bytes_read;
+}
+
Index: djgpp/src/libc/compat/unistd/_irdlink.txh
===================================================================
RCS file: _irdlink.txh
diff -N _irdlink.txh
--- /dev/null	Tue May  5 16:32:27 1998
+++ _irdlink.txh	Thu Aug 17 09:05:36 2000
@@ -0,0 +1,38 @@
+@node __internal_readlink, io
+@subheading Syntax
+
+@example
+#include <libc/symlink.h>
+
+int __internal_readlink(const char * path, int fhandle, char * buf, size_t max)
+@end example
+
+@subheading Description
+In general applications shouldn't call this function; use @code{readlink} 
+instead (@pxref{readlink}).  However, there is one exception: if you have
+a @code{FSEXT} @code{fstat} file handler, and do not want do anything special
+about symlinks.  In this case you should call this function from your handler
+to set properly @code{S_IFLNK} bit in @code{st_mode}.  This function operates
+on either @var{path} @strong{or} @var{fhandle}. In any case, the other arg
+should be set to @code{NULL} or 0.
+
+@subheading Return Value
+
+Number of copied characters; value -1 is returned in case of
+error and @code{errno} is set.  When value returned is equal to 
+@var{size}, you cannot determine if there was enough room to 
+copy whole name.  So increase @var{size} and try again.
+
+@subheading Portability
+
+@portability !ansi, !posix
+
+@subheading Example
+
+@example
+char buf[FILENAME_MAX + 1];
+if (__internal_readlink(0, "/dev/env/DJDIR/bin/sh.exe", buf, FILENAME_MAX) == -1)
+   if (errno == EINVAL)
+      puts("/dev/env/DJDIR/bin/sh.exe is not a symbolic link.");
+@end example
+
Index: djgpp/src/libc/compat/unistd/makefile
===================================================================
RCS file: /cvs/djgpp/djgpp/src/libc/compat/unistd/makefile,v
retrieving revision 1.6
diff -u -r1.6 makefile
--- makefile	2000/08/14 08:51:30	1.6
+++ makefile	2000/08/17 13:05:36
@@ -2,6 +2,7 @@
 # Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details
 TOP=../..
 
+SRC += _irdlink.c
 SRC += basename.c
 SRC += dirname.c
 SRC += fsync.c
Index: djgpp/src/libc/compat/unistd/readlink.c
===================================================================
RCS file: /cvs/djgpp/djgpp/src/libc/compat/unistd/readlink.c,v
retrieving revision 1.3
diff -u -r1.3 readlink.c
--- readlink.c	2000/08/16 18:29:37	1.3
+++ readlink.c	2000/08/17 13:05:36
@@ -2,84 +2,13 @@
 /* Copyright (C) 1999 DJ Delorie, see COPYING.DJ for details */
 
 #include <libc/stubs.h>
-#include <sys/fsext.h>
-#include <dir.h>
-#include <errno.h>
-#include <fcntl.h>
-#include <io.h>
-#include <stddef.h>
-#include <stdio.h>
-#include <string.h>
+#include <libc/symlink.h>
 #include <unistd.h>
 
 #include "xsymlink.h"
 
 int readlink(const char * filename, char * buffer, size_t size)
 {
-   ssize_t       bytes_read         = 0;
-   char          buf[_SYMLINK_FILE_LEN];
-   char        * data_buf;
-   int           fd;
-   struct ffblk  file_info;
-   int           ret;
-
-   /* Reject NULLs */
-   if (!filename || !buffer)
-   {
-      errno = EINVAL;
-      return -1;
-   }
-
-   /* Provide ability to hook symlink support */
-   if (__FSEXT_call_open_handlers(__FSEXT_readlink, &ret, &filename))
-      return ret;
-
-   /* Does symlink file exist at all? */
-   if (findfirst(filename, &file_info, 0))
-   {
-      errno = ENOENT;
-      return -1;
-   }
-
-   /* Is symlink file size a fixed magic value? */
-   if (file_info.ff_fsize != _SYMLINK_FILE_LEN)
-   {
-      errno = EINVAL; /* Sad but true */
-      return -1;
-   }
-
-   /* Now we check for special DJGPP symlink format */
-   fd = _open(filename, O_RDONLY);
-   if (fd < 0)
-   {
-      /* Retry with DENY-NONE share bit set. It might help in some cases
-       * when symlink file is opened by another program. We don't try with
-       * DENY-NONE set in the first _open() call, because it might fail under
-       * some circumstances. For details, see Ralf Brown's Interrupt List,
-       * description of INT 0x21, function 0x3D.
-       */
-      fd = _open(filename, O_RDONLY | SH_DENYNO);
-      if (fd < 0)
-         return -1; /* errno from open() call */
-   } 
-
-   bytes_read = read(fd, &buf, _SYMLINK_FILE_LEN);
-   _close(fd);
-   if (bytes_read == -1)
-      return -1; /* Return errno set by _read() (_close() in worse case) */
-      
-   /* Check for symlink file header */
-   if (strncmp(buf, _SYMLINK_PREFIX, _SYMLINK_PREFIX_LEN))
-   {
-      close(fd);
-      errno = EINVAL;
-      return -1;
-   }
-   
-   data_buf = buf + _SYMLINK_PREFIX_LEN;
-   bytes_read = strchr(data_buf, '\n') - data_buf;
-   bytes_read = ((unsigned)bytes_read > size) ? size : bytes_read;
-   memcpy(buffer, data_buf, bytes_read);
-   return bytes_read;
+   return __internal_readlink(filename, 0, buffer, size);
 }
 
Index: djgpp/src/libc/fsext/fsext.txh
===================================================================
RCS file: /cvs/djgpp/djgpp/src/libc/fsext/fsext.txh,v
retrieving revision 1.8
diff -u -r1.8 fsext.txh
--- fsext.txh	2000/08/16 18:30:38	1.8
+++ fsext.txh	2000/08/17 13:05:40
@@ -117,8 +117,8 @@
 
 @item __FSEXT_readlink
 
-A file readlink handler (@pxref{readlink}).  This extension should be
-used to provide support for symlinks in some other than DJGPP format.
+A file readlink handler (@pxref{__internal_readlink}).  This extension 
+should be used to provide support for symlinks in some other than DJGPP format.
 
 @item __FSEXT_symlink