12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265 |
- /** \file
- * \brief Source: directory cache support
- *
- * So that you do not have copy of this in each and every filesystem.
- *
- * Very loosely based on tar.c from midnight and archives.[ch] from
- * avfs by Miklos Szeredi (mszeredi@inf.bme.hu)
- *
- * Unfortunately, I was unable to keep all filesystems
- * uniform. tar-like filesystems use tree structure where each
- * directory has pointers to its subdirectories. We can do this
- * because we have full information about our archive.
- *
- * At ftp-like filesystems, situation is a little bit different. When
- * you cd /usr/src/linux/drivers/char, you do _not_ want /usr,
- * /usr/src, /usr/src/linux and /usr/src/linux/drivers to be
- * listed. That means that we do not have complete information, and if
- * /usr is symlink to /4, we will not know. Also we have to time out
- * entries and things would get messy with tree-like approach. So we
- * do different trick: root directory is completely special and
- * completely fake, it contains entries such as 'usr', 'usr/src', ...,
- * and we'll try to use custom find_entry function.
- *
- * \author Pavel Machek <pavel@ucw.cz>, distribute under LGPL.
- * \date 1998
- *
- * \warning Paths here do _not_ begin with '/', so root directory of
- * archive/site is simply "".
- */
- #include <config.h>
- #include <errno.h>
- #include <sys/fcntl.h>
- #include <time.h>
- #include <sys/time.h> /* gettimeofday() */
- #include "../src/global.h"
- #include "../src/tty/tty.h" /* enable/disable interrupt key */
- #include "../src/wtools.h" /* message() */
- #include "../src/main.h" /* print_vfs_message */
- #include "utilvfs.h"
- #include "vfs-impl.h"
- #include "gc.h" /* vfs_rmstamp */
- #include "xdirentry.h"
- #define CALL(x) if (MEDATA->x) MEDATA->x
- static volatile int total_inodes = 0, total_entries = 0;
- struct vfs_s_inode *
- vfs_s_new_inode (struct vfs_class *me, struct vfs_s_super *super, struct stat *initstat)
- {
- struct vfs_s_inode *ino;
- ino = g_try_new0 (struct vfs_s_inode, 1);
- if (ino == NULL)
- return NULL;
- if (initstat)
- ino->st = *initstat;
- ino->super = super;
- ino->st.st_nlink = 0;
- ino->st.st_ino = MEDATA->inode_counter++;
- ino->st.st_dev = MEDATA->rdev;
- super->ino_usage++;
- total_inodes++;
- CALL (init_inode) (me, ino);
- return ino;
- }
- struct vfs_s_entry *
- vfs_s_new_entry (struct vfs_class *me, const char *name, struct vfs_s_inode *inode)
- {
- struct vfs_s_entry *entry;
- entry = g_new0 (struct vfs_s_entry, 1);
- total_entries++;
- if (name)
- entry->name = g_strdup (name);
- entry->ino = inode;
- entry->ino->ent = entry;
- CALL (init_entry) (me, entry);
- return entry;
- }
- static void
- vfs_s_free_inode (struct vfs_class *me, struct vfs_s_inode *ino)
- {
- if (!ino)
- vfs_die ("Don't pass NULL to me");
- /* ==0 can happen if freshly created entry is deleted */
- if (ino->st.st_nlink <= 1){
- while (ino->subdir){
- vfs_s_free_entry (me, ino->subdir);
- }
- CALL (free_inode) (me, ino);
- g_free (ino->linkname);
- if (ino->localname){
- unlink (ino->localname);
- g_free(ino->localname);
- }
- total_inodes--;
- ino->super->ino_usage--;
- g_free(ino);
- } else ino->st.st_nlink--;
- }
- void
- vfs_s_free_entry (struct vfs_class *me, struct vfs_s_entry *ent)
- {
- if (ent->prevp){ /* It is possible that we are deleting freshly created entry */
- *ent->prevp = ent->next;
- if (ent->next)
- ent->next->prevp = ent->prevp;
- }
- g_free (ent->name);
- ent->name = NULL;
-
- if (ent->ino){
- ent->ino->ent = NULL;
- vfs_s_free_inode (me, ent->ino);
- ent->ino = NULL;
- }
- total_entries--;
- g_free(ent);
- }
- void
- vfs_s_insert_entry (struct vfs_class *me, struct vfs_s_inode *dir, struct vfs_s_entry *ent)
- {
- struct vfs_s_entry **ep;
- (void) me;
- for (ep = &dir->subdir; *ep != NULL; ep = &((*ep)->next))
- ;
- ent->prevp = ep;
- ent->next = NULL;
- ent->dir = dir;
- *ep = ent;
- ent->ino->st.st_nlink++;
- }
- struct stat *
- vfs_s_default_stat (struct vfs_class *me, mode_t mode)
- {
- static struct stat st;
- int myumask;
- (void) me;
- myumask = umask (022);
- umask (myumask);
- mode &= ~myumask;
- st.st_mode = mode;
- st.st_ino = 0;
- st.st_dev = 0;
- st.st_rdev = 0;
- st.st_uid = getuid ();
- st.st_gid = getgid ();
- st.st_size = 0;
- st.st_mtime = st.st_atime = st.st_ctime = time (NULL);
- return &st;
- }
- struct vfs_s_entry *
- vfs_s_generate_entry (struct vfs_class *me, const char *name, struct vfs_s_inode *parent, mode_t mode)
- {
- struct vfs_s_inode *inode;
- struct stat *st;
- st = vfs_s_default_stat (me, mode);
- inode = vfs_s_new_inode (me, parent->super, st);
- return vfs_s_new_entry (me, name, inode);
- }
- /* We were asked to create entries automagically */
- static struct vfs_s_entry *
- vfs_s_automake (struct vfs_class *me, struct vfs_s_inode *dir, char *path, int flags)
- {
- struct vfs_s_entry *res;
- char *sep = strchr (path, PATH_SEP);
-
- if (sep)
- *sep = 0;
- res = vfs_s_generate_entry (me, path, dir, flags & FL_MKDIR ? (0777 | S_IFDIR) : 0777);
- vfs_s_insert_entry (me, dir, res);
- if (sep)
- *sep = PATH_SEP;
- return res;
- }
- /* If the entry is a symlink, find the entry for its target */
- static struct vfs_s_entry *
- vfs_s_resolve_symlink (struct vfs_class *me, struct vfs_s_entry *entry,
- int follow)
- {
- char *linkname;
- char *fullname = NULL;
- struct vfs_s_entry *target;
- if (follow == LINK_NO_FOLLOW)
- return entry;
- if (follow == 0)
- ERRNOR (ELOOP, NULL);
- if (!entry)
- ERRNOR (ENOENT, NULL);
- if (!S_ISLNK (entry->ino->st.st_mode))
- return entry;
- linkname = entry->ino->linkname;
- if (linkname == NULL)
- ERRNOR (EFAULT, NULL);
- /* make full path from relative */
- if (*linkname != PATH_SEP) {
- char *fullpath = vfs_s_fullpath (me, entry->dir);
- if (fullpath) {
- fullname = g_strconcat (fullpath, "/", linkname, (char *) NULL);
- linkname = fullname;
- g_free (fullpath);
- }
- }
- target =
- (MEDATA->find_entry) (me, entry->dir->super->root, linkname,
- follow - 1, 0);
- g_free (fullname);
- return target;
- }
- /*
- * Follow > 0: follow links, serves as loop protect,
- * == -1: do not follow links
- */
- static struct vfs_s_entry *
- vfs_s_find_entry_tree (struct vfs_class *me, struct vfs_s_inode *root,
- const char *a_path, int follow, int flags)
- {
- size_t pseg;
- struct vfs_s_entry *ent = NULL;
- char * const pathref = g_strdup (a_path);
- char *path = pathref;
- /* canonicalize as well, but don't remove '../' from path */
- custom_canonicalize_pathname (path, CANON_PATH_ALL & (~CANON_PATH_REMDOUBLEDOTS));
- while (root) {
- while (*path == PATH_SEP) /* Strip leading '/' */
- path++;
- if (!path[0]) {
- g_free (pathref);
- return ent;
- }
- for (pseg = 0; path[pseg] && path[pseg] != PATH_SEP; pseg++);
- for (ent = root->subdir; ent != NULL; ent = ent->next)
- if (strlen (ent->name) == pseg
- && (!strncmp (ent->name, path, pseg)))
- /* FOUND! */
- break;
- if (!ent && (flags & (FL_MKFILE | FL_MKDIR)))
- ent = vfs_s_automake (me, root, path, flags);
- if (!ent) {
- me->verrno = ENOENT;
- goto cleanup;
- }
- path += pseg;
- /* here we must follow leading directories always;
- only the actual file is optional */
- ent =
- vfs_s_resolve_symlink (me, ent,
- strchr (path,
- PATH_SEP) ? LINK_FOLLOW :
- follow);
- if (!ent)
- goto cleanup;
- root = ent->ino;
- }
- cleanup:
- g_free (pathref);
- return NULL;
- }
- static void
- split_dir_name (struct vfs_class *me, char *path, char **dir, char **name, char **save)
- {
- char *s;
- (void) me;
- s = strrchr (path, PATH_SEP);
- if (s == NULL) {
- *save = NULL;
- *name = path;
- *dir = path + strlen(path); /* an empty string */
- } else {
- *save = s;
- *dir = path;
- *s++ = '\0';
- *name = s;
- }
- }
- static struct vfs_s_entry *
- vfs_s_find_entry_linear (struct vfs_class *me, struct vfs_s_inode *root,
- const char *a_path, int follow, int flags)
- {
- struct vfs_s_entry *ent = NULL;
- char * const path = g_strdup (a_path);
- struct vfs_s_entry *retval = NULL;
- if (root->super->root != root)
- vfs_die ("We have to use _real_ root. Always. Sorry.");
- /* canonicalize as well, but don't remove '../' from path */
- custom_canonicalize_pathname (path, CANON_PATH_ALL & (~CANON_PATH_REMDOUBLEDOTS));
- if (!(flags & FL_DIR)) {
- char *dirname, *name, *save;
- struct vfs_s_inode *ino;
- split_dir_name (me, path, &dirname, &name, &save);
- ino =
- vfs_s_find_inode (me, root->super, dirname, follow,
- flags | FL_DIR);
- if (save)
- *save = PATH_SEP;
- retval = vfs_s_find_entry_tree (me, ino, name, follow, flags);
- g_free (path);
- return retval;
- }
- for (ent = root->subdir; ent != NULL; ent = ent->next)
- if (!strcmp (ent->name, path))
- break;
- if (ent && (!(MEDATA->dir_uptodate) (me, ent->ino))) {
- #if 1
- print_vfs_message (_("Directory cache expired for %s"), path);
- #endif
- vfs_s_free_entry (me, ent);
- ent = NULL;
- }
- if (!ent) {
- struct vfs_s_inode *ino;
- ino =
- vfs_s_new_inode (me, root->super,
- vfs_s_default_stat (me, S_IFDIR | 0755));
- ent = vfs_s_new_entry (me, path, ino);
- if ((MEDATA->dir_load) (me, ino, path) == -1) {
- vfs_s_free_entry (me, ent);
- g_free (path);
- return NULL;
- }
- vfs_s_insert_entry (me, root, ent);
- for (ent = root->subdir; ent != NULL; ent = ent->next)
- if (!strcmp (ent->name, path))
- break;
- }
- if (!ent)
- vfs_die ("find_linear: success but directory is not there\n");
- #if 0
- if (!vfs_s_resolve_symlink (me, ent, follow)) {
- g_free (path);
- return NULL;
- }
- #endif
- g_free (path);
- return ent;
- }
- struct vfs_s_inode *
- vfs_s_find_inode (struct vfs_class *me, const struct vfs_s_super *super,
- const char *path, int follow, int flags)
- {
- struct vfs_s_entry *ent;
- if (((MEDATA->flags & VFS_S_REMOTE) == 0) && (*path == '\0'))
- return super->root;
- ent = (MEDATA->find_entry) (me, super->root, path, follow, flags);
- return (ent != NULL) ? ent->ino : NULL;
- }
- /* Ook, these were functions around directory entries / inodes */
- /* -------------------------------- superblock games -------------------------- */
- static struct vfs_s_super *
- vfs_s_new_super (struct vfs_class *me)
- {
- struct vfs_s_super *super;
- super = g_new0 (struct vfs_s_super, 1);
- super->me = me;
- return super;
- }
- static void
- vfs_s_insert_super (struct vfs_class *me, struct vfs_s_super *super)
- {
- super->next = MEDATA->supers;
- super->prevp = &MEDATA->supers;
- if (MEDATA->supers != NULL)
- MEDATA->supers->prevp = &super->next;
- MEDATA->supers = super;
- }
- static void
- vfs_s_free_super (struct vfs_class *me, struct vfs_s_super *super)
- {
- if (super->root){
- vfs_s_free_inode (me, super->root);
- super->root = NULL;
- }
- #if 0
- /* FIXME: We currently leak small ammount of memory, sometimes. Fix it if you can. */
- if (super->ino_usage)
- message (D_ERROR, " Direntry warning ",
- "Super ino_usage is %d, memory leak",
- super->ino_usage);
- if (super->want_stale)
- message (D_ERROR, " Direntry warning ", "Super has want_stale set");
- #endif
- if (super->prevp){
- *super->prevp = super->next;
- if (super->next)
- super->next->prevp = super->prevp;
- }
- CALL (free_archive) (me, super);
- g_free (super->name);
- g_free(super);
- }
- /*
- * Dissect the path and create corresponding superblock. Note that inname
- * can be changed and the result may point inside the original string.
- */
- const char *
- vfs_s_get_path_mangle (struct vfs_class *me, char *inname,
- struct vfs_s_super **archive, int flags)
- {
- const char *retval;
- char *local, *op;
- const char *archive_name;
- int result = -1;
- struct vfs_s_super *super;
- void *cookie = NULL;
- archive_name = inname;
- vfs_split (inname, &local, &op);
- retval = (local) ? local : "";
- if (MEDATA->archive_check)
- if (!(cookie = MEDATA->archive_check (me, archive_name, op)))
- return NULL;
- for (super = MEDATA->supers; super != NULL; super = super->next) {
- /* 0 == other, 1 == same, return it, 2 == other but stop scanning */
- int i = MEDATA->archive_same (me, super, archive_name, op, cookie);
- if (i != 0) {
- if (i == 1)
- goto return_success;
- else
- break;
- }
- }
- if (flags & FL_NO_OPEN)
- ERRNOR (EIO, NULL);
- super = vfs_s_new_super (me);
- result = MEDATA->open_archive (me, super, archive_name, op);
- if (result == -1) {
- vfs_s_free_super (me, super);
- ERRNOR (EIO, NULL);
- }
- if (!super->name)
- vfs_die ("You have to fill name\n");
- if (!super->root)
- vfs_die ("You have to fill root inode\n");
- vfs_s_insert_super (me, super);
- vfs_stamp_create (me, super);
- return_success:
- *archive = super;
- return retval;
- }
- /*
- * Dissect the path and create corresponding superblock.
- * The result should be freed.
- */
- static char *
- vfs_s_get_path (struct vfs_class *me, const char *inname,
- struct vfs_s_super **archive, int flags)
- {
- char *buf, *retval;
- buf = g_strdup (inname);
- retval = g_strdup (vfs_s_get_path_mangle (me, buf, archive, flags));
- g_free (buf);
- return retval;
- }
- void
- vfs_s_invalidate (struct vfs_class *me, struct vfs_s_super *super)
- {
- if (!super->want_stale){
- vfs_s_free_inode (me, super->root);
- super->root = vfs_s_new_inode (me, super, vfs_s_default_stat (me, S_IFDIR | 0755));
- }
- }
- char *
- vfs_s_fullpath (struct vfs_class *me, struct vfs_s_inode *ino)
- {
- if (!ino->ent)
- ERRNOR (EAGAIN, NULL);
- if (!(MEDATA->flags & VFS_S_REMOTE)) {
- /* archives */
- char *newpath;
- char *path = g_strdup (ino->ent->name);
- while (1) {
- ino = ino->ent->dir;
- if (ino == ino->super->root)
- break;
- newpath = g_strconcat (ino->ent->name, "/", path, (char *) NULL);
- g_free (path);
- path = newpath;
- }
- return path;
- }
- /* remote systems */
- if ((!ino->ent->dir) || (!ino->ent->dir->ent))
- return g_strdup (ino->ent->name);
- return g_strconcat (ino->ent->dir->ent->name, PATH_SEP_STR,
- ino->ent->name, (char *) NULL);
- }
- /* Support of archives */
- /* ------------------------ readdir & friends ----------------------------- */
- static struct vfs_s_inode *
- vfs_s_inode_from_path (struct vfs_class *me, const char *name, int flags)
- {
- struct vfs_s_super *super;
- struct vfs_s_inode *ino;
- char *q;
- if (!(q = vfs_s_get_path (me, name, &super, 0)))
- return NULL;
- ino =
- vfs_s_find_inode (me, super, q,
- flags & FL_FOLLOW ? LINK_FOLLOW : LINK_NO_FOLLOW,
- flags & ~FL_FOLLOW);
- if ((!ino) && (!*q))
- /* We are asking about / directory of ftp server: assume it exists */
- ino =
- vfs_s_find_inode (me, super, q,
- flags & FL_FOLLOW ? LINK_FOLLOW :
- LINK_NO_FOLLOW,
- FL_DIR | (flags & ~FL_FOLLOW));
- g_free (q);
- return ino;
- }
- struct dirhandle {
- struct vfs_s_entry *cur;
- struct vfs_s_inode *dir;
- };
- static void *
- vfs_s_opendir (struct vfs_class *me, const char *dirname)
- {
- struct vfs_s_inode *dir;
- struct dirhandle *info;
- dir = vfs_s_inode_from_path (me, dirname, FL_DIR | FL_FOLLOW);
- if (!dir)
- return NULL;
- if (!S_ISDIR (dir->st.st_mode))
- ERRNOR (ENOTDIR, NULL);
- dir->st.st_nlink++;
- #if 0
- if (!dir->subdir) /* This can actually happen if we allow empty directories */
- ERRNOR (EAGAIN, NULL);
- #endif
- info = g_new (struct dirhandle, 1);
- info->cur = dir->subdir;
- info->dir = dir;
- return info;
- }
- static void *
- vfs_s_readdir(void *data)
- {
- static union vfs_dirent dir;
- struct dirhandle *info = (struct dirhandle *) data;
- if (!(info->cur))
- return NULL;
- if (info->cur->name) {
- g_strlcpy (dir.dent.d_name, info->cur->name, MC_MAXPATHLEN);
- } else {
- vfs_die("Null in structure-cannot happen");
- }
- compute_namelen(&dir.dent);
- info->cur = info->cur->next;
- return (void *) &dir;
- }
- static int
- vfs_s_closedir (void *data)
- {
- struct dirhandle *info = (struct dirhandle *) data;
- struct vfs_s_inode *dir = info->dir;
- vfs_s_free_inode (dir->super->me, dir);
- g_free (data);
- return 0;
- }
- static int
- vfs_s_chdir (struct vfs_class *me, const char *path)
- {
- void *data;
- if (!(data = vfs_s_opendir (me, path)))
- return -1;
- vfs_s_closedir (data);
- return 0;
- }
- /* --------------------------- stat and friends ---------------------------- */
- static int
- vfs_s_internal_stat (struct vfs_class *me, const char *path, struct stat *buf, int flag)
- {
- struct vfs_s_inode *ino;
- if (!(ino = vfs_s_inode_from_path (me, path, flag)))
- return -1;
- *buf = ino->st;
- return 0;
- }
- static int
- vfs_s_stat (struct vfs_class *me, const char *path, struct stat *buf)
- {
- return vfs_s_internal_stat (me, path, buf, FL_FOLLOW);
- }
- static int
- vfs_s_lstat (struct vfs_class *me, const char *path, struct stat *buf)
- {
- return vfs_s_internal_stat (me, path, buf, FL_NONE);
- }
- static int
- vfs_s_fstat (void *fh, struct stat *buf)
- {
- *buf = FH->ino->st;
- return 0;
- }
- static int
- vfs_s_readlink (struct vfs_class *me, const char *path, char *buf, size_t size)
- {
- struct vfs_s_inode *ino;
- size_t len;
- ino = vfs_s_inode_from_path (me, path, 0);
- if (!ino)
- return -1;
- if (!S_ISLNK (ino->st.st_mode))
- ERRNOR (EINVAL, -1);
- if (ino->linkname == NULL)
- ERRNOR (EFAULT, -1);
- len = strlen (ino->linkname);
- if (size < len)
- len = size;
- /* readlink() does not append a NUL character to buf */
- memcpy (buf, ino->linkname, len);
- return len;
- }
- void *
- vfs_s_open (struct vfs_class *me, const char *file, int flags, int mode)
- {
- int was_changed = 0;
- struct vfs_s_fh *fh;
- struct vfs_s_super *super;
- char *q;
- struct vfs_s_inode *ino;
- if ((q = vfs_s_get_path (me, file, &super, 0)) == NULL)
- return NULL;
- ino = vfs_s_find_inode (me, super, q, LINK_FOLLOW, FL_NONE);
- if (ino && ((flags & (O_CREAT | O_EXCL)) == (O_CREAT | O_EXCL))) {
- g_free (q);
- ERRNOR (EEXIST, NULL);
- }
- if (!ino) {
- char *dirname, *name, *save;
- struct vfs_s_entry *ent;
- struct vfs_s_inode *dir;
- int tmp_handle;
- /* If the filesystem is read-only, disable file creation */
- if (!(flags & O_CREAT) || !(me->write)) {
- g_free (q);
- return NULL;
- }
- split_dir_name (me, q, &dirname, &name, &save);
- /* FIXME: check if vfs_s_find_inode returns NULL */
- dir = vfs_s_find_inode (me, super, dirname, LINK_FOLLOW, FL_DIR);
- if (save)
- *save = PATH_SEP;
- ent = vfs_s_generate_entry (me, name, dir, 0755);
- ino = ent->ino;
- vfs_s_insert_entry (me, dir, ent);
- tmp_handle = vfs_mkstemps (&ino->localname, me->name, name);
- if (tmp_handle == -1) {
- g_free (q);
- return NULL;
- }
- close (tmp_handle);
- was_changed = 1;
- }
- g_free (q);
- if (S_ISDIR (ino->st.st_mode))
- ERRNOR (EISDIR, NULL);
- fh = g_new (struct vfs_s_fh, 1);
- fh->pos = 0;
- fh->ino = ino;
- fh->handle = -1;
- fh->changed = was_changed;
- fh->linear = 0;
- if (IS_LINEAR (flags)) {
- if (MEDATA->linear_start) {
- print_vfs_message (_("Starting linear transfer..."));
- fh->linear = LS_LINEAR_PREOPEN;
- }
- } else if ((MEDATA->fh_open)
- && (MEDATA->fh_open (me, fh, flags, mode))) {
- g_free (fh);
- return NULL;
- }
- if (fh->ino->localname) {
- fh->handle = open (fh->ino->localname, NO_LINEAR (flags), mode);
- if (fh->handle == -1) {
- g_free (fh);
- ERRNOR (errno, NULL);
- }
- }
- /* i.e. we had no open files and now we have one */
- vfs_rmstamp (me, (vfsid) super);
- super->fd_usage++;
- fh->ino->st.st_nlink++;
- return fh;
- }
- static ssize_t
- vfs_s_read (void *fh, char *buffer, int count)
- {
- int n;
- struct vfs_class *me = FH_SUPER->me;
- if (FH->linear == LS_LINEAR_PREOPEN) {
- if (!MEDATA->linear_start (me, FH, FH->pos))
- return -1;
- }
- if (FH->linear == LS_LINEAR_CLOSED)
- vfs_die ("linear_start() did not set linear_state!");
- if (FH->linear == LS_LINEAR_OPEN)
- return MEDATA->linear_read (me, FH, buffer, count);
-
- if (FH->handle != -1){
- n = read (FH->handle, buffer, count);
- if (n < 0)
- me->verrno = errno;
- return n;
- }
- vfs_die ("vfs_s_read: This should not happen\n");
- return -1;
- }
- static ssize_t
- vfs_s_write (void *fh, const char *buffer, int count)
- {
- int n;
- struct vfs_class *me = FH_SUPER->me;
-
- if (FH->linear)
- vfs_die ("no writing to linear files, please");
-
- FH->changed = 1;
- if (FH->handle != -1){
- n = write (FH->handle, buffer, count);
- if (n < 0)
- me->verrno = errno;
- return n;
- }
- vfs_die ("vfs_s_write: This should not happen\n");
- return 0;
- }
- static off_t
- vfs_s_lseek (void *fh, off_t offset, int whence)
- {
- off_t size = FH->ino->st.st_size;
- if (FH->linear == LS_LINEAR_OPEN)
- vfs_die ("cannot lseek() after linear_read!");
- if (FH->handle != -1){ /* If we have local file opened, we want to work with it */
- int retval = lseek (FH->handle, offset, whence);
- if (retval == -1)
- FH->ino->super->me->verrno = errno;
- return retval;
- }
- switch (whence){
- case SEEK_CUR:
- offset += FH->pos; break;
- case SEEK_END:
- offset += size; break;
- }
- if (offset < 0)
- FH->pos = 0;
- else if (offset < size)
- FH->pos = offset;
- else
- FH->pos = size;
- return FH->pos;
- }
- static int
- vfs_s_close (void *fh)
- {
- int res = 0;
- struct vfs_class *me = FH_SUPER->me;
- FH_SUPER->fd_usage--;
- if (!FH_SUPER->fd_usage)
- vfs_stamp_create (me, FH_SUPER);
- if (FH->linear == LS_LINEAR_OPEN)
- MEDATA->linear_close (me, fh);
- if (MEDATA->fh_close)
- res = MEDATA->fh_close (me, fh);
- if (FH->changed && MEDATA->file_store){
- char *s = vfs_s_fullpath (me, FH->ino);
- if (!s)
- res = -1;
- else {
- res = MEDATA->file_store (me, fh, s, FH->ino->localname);
- g_free (s);
- }
- vfs_s_invalidate (me, FH_SUPER);
- }
- if (FH->handle != -1)
- close (FH->handle);
-
- vfs_s_free_inode (me, FH->ino);
- g_free (fh);
- return res;
- }
- static void
- vfs_s_print_stats (const char *fs_name, const char *action,
- const char *file_name, off_t have, off_t need)
- {
- static const char *i18n_percent_transf_format = NULL;
- static const char *i18n_transf_format = NULL;
- if (i18n_percent_transf_format == NULL) {
- i18n_percent_transf_format =
- _("%s: %s: %s %3d%% (%lu bytes transferred)");
- i18n_transf_format = _("%s: %s: %s %lu bytes transferred");
- }
- if (need)
- print_vfs_message (i18n_percent_transf_format, fs_name, action,
- file_name, (int) ((double) have * 100 / need),
- (unsigned long) have);
- else
- print_vfs_message (i18n_transf_format, fs_name, action, file_name,
- (unsigned long) have);
- }
- int
- vfs_s_retrieve_file (struct vfs_class *me, struct vfs_s_inode *ino)
- {
- /* If you want reget, you'll have to open file with O_LINEAR */
- off_t total = 0;
- char buffer[8192];
- int handle, n;
- off_t stat_size = ino->st.st_size;
- struct vfs_s_fh fh;
- memset (&fh, 0, sizeof (fh));
- fh.ino = ino;
- fh.handle = -1;
- handle = vfs_mkstemps (&ino->localname, me->name, ino->ent->name);
- if (handle == -1) {
- me->verrno = errno;
- goto error_4;
- }
- if (!MEDATA->linear_start (me, &fh, 0))
- goto error_3;
- /* Clear the interrupt status */
- tty_got_interrupt ();
- tty_enable_interrupt_key ();
- while ((n = MEDATA->linear_read (me, &fh, buffer, sizeof (buffer)))) {
- int t;
- if (n < 0)
- goto error_1;
- total += n;
- vfs_s_print_stats (me->name, _("Getting file"), ino->ent->name,
- total, stat_size);
- if (tty_got_interrupt ())
- goto error_1;
- t = write (handle, buffer, n);
- if (t != n) {
- if (t == -1)
- me->verrno = errno;
- goto error_1;
- }
- }
- MEDATA->linear_close (me, &fh);
- close (handle);
- tty_disable_interrupt_key ();
- return 0;
- error_1:
- MEDATA->linear_close (me, &fh);
- error_3:
- tty_disable_interrupt_key ();
- close (handle);
- unlink (ino->localname);
- error_4:
- g_free (ino->localname);
- ino->localname = NULL;
- return -1;
- }
- /* ------------------------------- mc support ---------------------------- */
- static void
- vfs_s_fill_names (struct vfs_class *me, fill_names_f func)
- {
- struct vfs_s_super *a = MEDATA->supers;
- char *name;
-
- while (a){
- name = g_strconcat ( a->name, "#", me->prefix, "/",
- /* a->current_dir->name, */ (char *) NULL);
- (*func)(name);
- g_free (name);
- a = a->next;
- }
- }
- static int
- vfs_s_ferrno (struct vfs_class *me)
- {
- return me->verrno;
- }
- /*
- * Get local copy of the given file. We reuse the existing file cache
- * for remote filesystems. Archives use standard VFS facilities.
- */
- static char *
- vfs_s_getlocalcopy (struct vfs_class *me, const char *path)
- {
- struct vfs_s_fh *fh;
- char *local;
- fh = vfs_s_open (me, path, O_RDONLY, 0);
- if (!fh || !fh->ino || !fh->ino->localname)
- return NULL;
- local = g_strdup (fh->ino->localname);
- vfs_s_close (fh);
- return local;
- }
- /*
- * Return the local copy. Since we are using our cache, we do nothing -
- * the cache will be removed when the archive is closed.
- */
- static int
- vfs_s_ungetlocalcopy (struct vfs_class *me, const char *path,
- const char *local, int has_changed)
- {
- (void) me;
- (void) path;
- (void) local;
- (void) has_changed;
- return 0;
- }
- static int
- vfs_s_setctl (struct vfs_class *me, const char *path, int ctlop, void *arg)
- {
- switch (ctlop) {
- case VFS_SETCTL_STALE_DATA:
- {
- struct vfs_s_inode *ino = vfs_s_inode_from_path (me, path, 0);
- if (!ino)
- return 0;
- if (arg)
- ino->super->want_stale = 1;
- else {
- ino->super->want_stale = 0;
- vfs_s_invalidate (me, ino->super);
- }
- return 1;
- }
- case VFS_SETCTL_LOGFILE:
- MEDATA->logfile = fopen ((char *) arg, "w");
- return 1;
- case VFS_SETCTL_FLUSH:
- MEDATA->flush = 1;
- return 1;
- }
- return 0;
- }
- /* ----------------------------- Stamping support -------------------------- */
- static vfsid
- vfs_s_getid (struct vfs_class *me, const char *path)
- {
- struct vfs_s_super *archive;
- char *p;
- if (!(p = vfs_s_get_path (me, path, &archive, FL_NO_OPEN)))
- return NULL;
- g_free(p);
- return (vfsid) archive;
- }
- static int
- vfs_s_nothingisopen (vfsid id)
- {
- (void) id;
- /* Our data structures should survive free of superblock at any time */
- return 1;
- }
- static void
- vfs_s_free (vfsid id)
- {
- vfs_s_free_super (((struct vfs_s_super *)id)->me, (struct vfs_s_super *)id);
- }
- static int
- vfs_s_dir_uptodate (struct vfs_class *me, struct vfs_s_inode *ino)
- {
- struct timeval tim;
- if (MEDATA->flush) {
- MEDATA->flush = 0;
- return 0;
- }
- gettimeofday(&tim, NULL);
- if (tim.tv_sec < ino->timestamp.tv_sec)
- return 1;
- return 0;
- }
- /* Initialize one of our subclasses - fill common functions */
- void
- vfs_s_init_class (struct vfs_class *vclass, struct vfs_s_subclass *sub)
- {
- vclass->data = sub;
- vclass->fill_names = vfs_s_fill_names;
- vclass->open = vfs_s_open;
- vclass->close = vfs_s_close;
- vclass->read = vfs_s_read;
- if (!(sub->flags & VFS_S_READONLY)) {
- vclass->write = vfs_s_write;
- }
- vclass->opendir = vfs_s_opendir;
- vclass->readdir = vfs_s_readdir;
- vclass->closedir = vfs_s_closedir;
- vclass->stat = vfs_s_stat;
- vclass->lstat = vfs_s_lstat;
- vclass->fstat = vfs_s_fstat;
- vclass->readlink = vfs_s_readlink;
- vclass->chdir = vfs_s_chdir;
- vclass->ferrno = vfs_s_ferrno;
- vclass->lseek = vfs_s_lseek;
- vclass->getid = vfs_s_getid;
- vclass->nothingisopen = vfs_s_nothingisopen;
- vclass->free = vfs_s_free;
- if (sub->flags & VFS_S_REMOTE) {
- vclass->getlocalcopy = vfs_s_getlocalcopy;
- vclass->ungetlocalcopy = vfs_s_ungetlocalcopy;
- sub->find_entry = vfs_s_find_entry_linear;
- } else {
- sub->find_entry = vfs_s_find_entry_tree;
- }
- vclass->setctl = vfs_s_setctl;
- sub->dir_uptodate = vfs_s_dir_uptodate;
- }
- /* ----------- Utility functions for networked filesystems -------------- */
- #ifdef USE_NETCODE
- int
- vfs_s_select_on_two (int fd1, int fd2)
- {
- fd_set set;
- struct timeval timeout;
- int v;
- int maxfd = (fd1 > fd2 ? fd1 : fd2) + 1;
- timeout.tv_sec = 1;
- timeout.tv_usec = 0;
- FD_ZERO (&set);
- FD_SET (fd1, &set);
- FD_SET (fd2, &set);
- v = select (maxfd, &set, 0, 0, &timeout);
- if (v <= 0)
- return v;
- if (FD_ISSET (fd1, &set))
- return 1;
- if (FD_ISSET (fd2, &set))
- return 2;
- return -1;
- }
- int
- vfs_s_get_line (struct vfs_class *me, int sock, char *buf, int buf_len, char term)
- {
- FILE *logfile = MEDATA->logfile;
- int i;
- char c;
- for (i = 0; i < buf_len - 1; i++, buf++){
- if (read (sock, buf, sizeof(char)) <= 0)
- return 0;
- if (logfile){
- fwrite (buf, 1, 1, logfile);
- fflush (logfile);
- }
- if (*buf == term){
- *buf = 0;
- return 1;
- }
- }
- /* Line is too long - terminate buffer and discard the rest of line */
- *buf = 0;
- while (read (sock, &c, sizeof (c)) > 0) {
- if (logfile){
- fwrite (&c, 1, 1, logfile);
- fflush (logfile);
- }
- if (c == '\n')
- return 1;
- }
- return 0;
- }
- int
- vfs_s_get_line_interruptible (struct vfs_class *me, char *buffer, int size, int fd)
- {
- int n;
- int i;
- (void) me;
- tty_enable_interrupt_key ();
- for (i = 0; i < size-1; i++){
- n = read (fd, buffer+i, 1);
- tty_disable_interrupt_key ();
- if (n == -1 && errno == EINTR){
- buffer [i] = 0;
- return EINTR;
- }
- if (n == 0){
- buffer [i] = 0;
- return 0;
- }
- if (buffer [i] == '\n'){
- buffer [i] = 0;
- return 1;
- }
- }
- buffer [size-1] = 0;
- return 0;
- }
- #endif /* USE_NETCODE */
|