X-Git-Url: https://git.ucc.asn.au/?a=blobdiff_plain;f=Kernel%2Fvfs%2Fopen.c;h=f1a16f3f4c3a8f7b496babefbceea684be69a11e;hb=HEAD;hp=118380fd340e4160babee9a2aaaf229e5db8d262;hpb=73e8ed89c011abce9b0ae2c5a3eb232bdbe8660e;p=tpg%2Facess2.git diff --git a/Kernel/vfs/open.c b/Kernel/vfs/open.c deleted file mode 100644 index 118380fd..00000000 --- a/Kernel/vfs/open.c +++ /dev/null @@ -1,806 +0,0 @@ -/* - * AcessMicro VFS - * - Open, Close and ChDir - */ -#define DEBUG 0 -#include -#include -#include "vfs.h" -#include "vfs_int.h" -#include "vfs_ext.h" - -// === CONSTANTS === -#define OPEN_MOUNT_ROOT 1 -#define MAX_KERNEL_FILES 128 -#define MAX_PATH_SLASHES 256 - -// === IMPORTS === -extern tVFS_Node gVFS_MemRoot; -extern tVFS_Mount *gVFS_RootMount; - -// === GLOBALS === -tVFS_Handle *gaUserHandles = (void*)MM_PPD_VFS; -tVFS_Handle *gaKernelHandles = (void*)MM_KERNEL_VFS; - -// === CODE === -/** - * \fn char *VFS_GetAbsPath(const char *Path) - * \brief Create an absolute path from a relative one - */ -char *VFS_GetAbsPath(const char *Path) -{ - char *ret; - int pathLen = strlen(Path); - char *pathComps[MAX_PATH_SLASHES]; - char *tmpStr; - int iPos = 0; - int iPos2 = 0; - char *chroot = CFGPTR(CFG_VFS_CHROOT); - int chrootLen; - char *cwd = CFGPTR(CFG_VFS_CWD); - int cwdLen; - - ENTER("sPath", Path); - - // Memory File - if(Path[0] == '$') { - ret = malloc(strlen(Path)+1); - if(!ret) { - Warning("VFS_GetAbsPath - malloc() returned NULL"); - return NULL; - } - strcpy(ret, Path); - LEAVE('p', ret); - return ret; - } - - // - Fetch ChRoot - if( chroot == NULL ) { - chroot = ""; - chrootLen = 0; - } else { - chrootLen = strlen(chroot); - } - - // Check if the path is already absolute - if(Path[0] == '/') { - ret = malloc(pathLen + 1); - if(!ret) { - Warning("VFS_GetAbsPath - malloc() returned NULL"); - return NULL; - } - strcpy(ret, Path); - } else { - if(cwd == NULL) { - cwd = "/"; - cwdLen = 1; - } - else { - cwdLen = strlen(cwd); - } - // Prepend the current directory - ret = malloc( cwdLen + 1 + pathLen + 1 ); - strcpy(ret, cwd); - ret[cwdLen] = '/'; - strcpy(&ret[cwdLen+1], Path); - //Log("ret = '%s'\n", ret); - } - - // Parse Path - pathComps[iPos++] = tmpStr = ret+1; - while(*tmpStr) - { - if(*tmpStr++ == '/') - { - pathComps[iPos++] = tmpStr; - if(iPos == MAX_PATH_SLASHES) { - LOG("Path '%s' has too many elements", Path); - free(ret); - LEAVE('n'); - return NULL; - } - } - } - pathComps[iPos] = NULL; - - // Cleanup - iPos2 = iPos = 0; - while(pathComps[iPos]) - { - tmpStr = pathComps[iPos]; - // Always Increment iPos - iPos++; - // .. - if(tmpStr[0] == '.' && tmpStr[1] == '.' && (tmpStr[2] == '/' || tmpStr[2] == '\0') ) - { - if(iPos2 != 0) - iPos2 --; - continue; - } - // . - if(tmpStr[0] == '.' && (tmpStr[1] == '/' || tmpStr[1] == '\0') ) - { - continue; - } - // Empty - if(tmpStr[0] == '/' || tmpStr[0] == '\0') - { - continue; - } - - // Set New Position - pathComps[iPos2] = tmpStr; - iPos2++; - } - pathComps[iPos2] = NULL; - - // Build New Path - iPos2 = 1; iPos = 0; - ret[0] = '/'; - while(pathComps[iPos]) - { - tmpStr = pathComps[iPos]; - while(*tmpStr && *tmpStr != '/') - { - ret[iPos2++] = *tmpStr; - tmpStr++; - } - ret[iPos2++] = '/'; - iPos++; - } - if(iPos2 > 1) - ret[iPos2-1] = 0; - else - ret[iPos2] = 0; - - - // Prepend the chroot - tmpStr = malloc(chrootLen + strlen(ret) + 1); - strcpy( tmpStr, chroot ); - strcpy( tmpStr+chrootLen, ret ); - free(ret); - ret = tmpStr; - - LEAVE('s', ret); - //Log("VFS_GetAbsPath: RETURN '%s'", ret); - return ret; -} - -/** - * \fn char *VFS_ParsePath(char *Path, char **TruePath) - * \brief Parses a path, resolving sysmlinks and applying permissions - */ -tVFS_Node *VFS_ParsePath(const char *Path, char **TruePath) -{ - tVFS_Mount *mnt; - tVFS_Mount *longestMount = gVFS_RootMount; // Root is first - int cmp, retLength = 0; - int ofs, nextSlash; - tVFS_Node *curNode, *tmpNode; - char *tmp; - - ENTER("sPath pTruePath", Path, TruePath); - - // Memory File - if(Path[0] == '$') { - if(TruePath) { - *TruePath = malloc(strlen(Path)+1); - strcpy(*TruePath, Path); - } - curNode = gVFS_MemRoot.FindDir(&gVFS_MemRoot, Path); - LEAVE('p', curNode); - return curNode; - } - - // For root we always fast return - if(Path[0] == '/' && Path[1] == '\0') { - if(TruePath) { - *TruePath = malloc( gVFS_RootMount->MountPointLen+1 ); - strcpy(*TruePath, gVFS_RootMount->MountPoint); - } - LEAVE('p', gVFS_RootMount->RootNode); - return gVFS_RootMount->RootNode; - } - - // Check if there is an`ything mounted - if(!gVFS_Mounts) { - Warning("WTF! There's nothing mounted?"); - return NULL; - } - - // Find Mountpoint - for(mnt = gVFS_Mounts; - mnt; - mnt = mnt->Next) - { - // Quick Check - if( Path[mnt->MountPointLen] != '/' && Path[mnt->MountPointLen] != '\0') - continue; - // Length Check - If the length is smaller than the longest match sofar - if(mnt->MountPointLen < longestMount->MountPointLen) continue; - // String Compare - cmp = strcmp(Path, mnt->MountPoint); - - #if OPEN_MOUNT_ROOT - // Fast Break - Request Mount Root - if(cmp == 0) { - if(TruePath) { - *TruePath = malloc( mnt->MountPointLen+1 ); - strcpy(*TruePath, mnt->MountPoint); - } - LEAVE('p', mnt->RootNode); - return mnt->RootNode; - } - #endif - // Not a match, continue - if(cmp != '/') continue; - longestMount = mnt; - } - - // Sanity Check - /*if(!longestMount) { - Log("VFS_ParsePath - ERROR: No Root Node\n"); - return NULL; - }*/ - - // Save to shorter variable - mnt = longestMount; - - LOG("mnt = {MountPoint:\"%s\"}", mnt->MountPoint); - - // Initialise String - if(TruePath) - { - *TruePath = malloc( mnt->MountPointLen+1 ); - strcpy(*TruePath, mnt->MountPoint); - retLength = mnt->MountPointLen; - } - - curNode = mnt->RootNode; - curNode->ReferenceCount ++; - // Parse Path - ofs = mnt->MountPointLen+1; - for(; (nextSlash = strpos(&Path[ofs], '/')) != -1; ofs += nextSlash + 1) - { - char pathEle[nextSlash+1]; - - // Empty String - if(nextSlash == 0) continue; - - memcpy(pathEle, &Path[ofs], nextSlash); - pathEle[nextSlash] = 0; - - // Check permissions on root of filesystem - if( !VFS_CheckACL(curNode, VFS_PERM_EXECUTE) ) { - if(curNode->Close) curNode->Close( curNode ); - if(TruePath) { - free(*TruePath); - *TruePath = NULL; - } - //Log("Permissions fail on '%s'", Path); - LEAVE('n'); - return NULL; - } - - // Check if the node has a FindDir method - if( !curNode->FindDir ) - { - if(curNode->Close) curNode->Close(curNode); - if(TruePath) { - free(*TruePath); - *TruePath = NULL; - } - //Log("FindDir fail on '%s'", Path); - LEAVE('n'); - return NULL; - } - LOG("FindDir(%p, '%s')", curNode, pathEle); - // Get Child Node - tmpNode = curNode->FindDir(curNode, pathEle); - LOG("tmpNode = %p", tmpNode); - if(curNode->Close) curNode->Close(curNode); - curNode = tmpNode; - - // Error Check - if(!curNode) { - LOG("Node '%s' not found in dir '%s'", pathEle, Path); - if(TruePath) { - free(*TruePath); - *TruePath = NULL; - } - //Log("Child fail on '%s' ('%s)", Path, pathEle); - LEAVE('n'); - return NULL; - } - - // Handle Symbolic Links - if(curNode->Flags & VFS_FFLAG_SYMLINK) { - if(TruePath) { - free(*TruePath); - *TruePath = NULL; - } - if(!curNode->Read) { - Warning("VFS_ParsePath - Read of node %p is NULL (%s)", - curNode, Path); - if(curNode->Close) curNode->Close(curNode); - // No need to free *TruePath, see above - LEAVE('n'); - return NULL; - } - - tmp = malloc( curNode->Size + 1 ); - if(!tmp) { - Log_Warning("VFS", "VFS_ParsePath - Malloc failure"); - // No need to free *TruePath, see above - LEAVE('n'); - return NULL; - } - curNode->Read( curNode, 0, curNode->Size, tmp ); - tmp[ curNode->Size ] = '\0'; - - // Parse Symlink Path - curNode = VFS_ParsePath(tmp, TruePath); - if(TruePath) - LOG("VFS", "*TruePath='%s'", *TruePath); - - // Error Check - if(!curNode) { - Log_Debug("VFS", "Symlink fail '%s'", tmp); - free(tmp); // Free temp string - if(TruePath) free(TruePath); - LEAVE('n'); - return NULL; - } - - // Free temp link - free(tmp); - - // Set Path Variable - if(TruePath) { - retLength = strlen(*TruePath); - } - - continue; - } - - // Handle Non-Directories - if( !(curNode->Flags & VFS_FFLAG_DIRECTORY) ) - { - Warning("VFS_ParsePath - File in directory context"); - if(TruePath) free(*TruePath); - LEAVE('n'); - return NULL; - } - - // Check if path needs extending - if(!TruePath) continue; - - // Increase buffer space - tmp = realloc( *TruePath, retLength + strlen(pathEle) + 1 + 1 ); - // Check if allocation succeeded - if(!tmp) { - Warning("VFS_ParsePath - Unable to reallocate true path buffer"); - free(*TruePath); - *TruePath = NULL; - if(curNode->Close) curNode->Close(curNode); - LEAVE('n'); - return NULL; - } - *TruePath = tmp; - // Append to path - (*TruePath)[retLength] = '/'; - strcpy(*TruePath+retLength+1, pathEle); - - LOG("*TruePath = '%s'\n", *TruePath); - - // - Extend Path - retLength += nextSlash + 1; - } - - // Get last node - LOG("VFS_ParsePath: FindDir(%p, '%s')", curNode, &Path[ofs]); - tmpNode = curNode->FindDir(curNode, &Path[ofs]); - LOG("tmpNode = %p", tmpNode); - if(curNode->Close) curNode->Close(curNode); - // Check if file was found - if(!tmpNode) { - LOG("Node '%s' not found in dir '%s'", &Path[ofs], Path); - //Log("Child fail '%s' ('%s')", Path, &Path[ofs]); - if(TruePath) free(*TruePath); - if(curNode->Close) curNode->Close(curNode); - LEAVE('n'); - return NULL; - } - - if(TruePath) - { - // Increase buffer space - tmp = realloc(*TruePath, retLength + strlen(&Path[ofs]) + 1 + 1); - // Check if allocation succeeded - if(!tmp) { - Warning("VFS_ParsePath - Unable to reallocate true path buffer"); - free(*TruePath); - if(tmpNode->Close) tmpNode->Close(curNode); - LEAVE('n'); - return NULL; - } - *TruePath = tmp; - // Append to path - (*TruePath)[retLength] = '/'; - strcpy(*TruePath + retLength + 1, &Path[ofs]); - // - Extend Path - //retLength += strlen(tmpNode->Name) + 1; - } - - LEAVE('p', tmpNode); - return tmpNode; -} - -/** - * \fn int VFS_Open(char *Path, Uint Mode) - * \brief Open a file - */ -int VFS_Open(char *Path, Uint Mode) -{ - tVFS_Node *node; - char *absPath; - int i; - - ENTER("sPath xMode", Path, Mode); - - // Get absolute path - absPath = VFS_GetAbsPath(Path); - LOG("absPath = \"%s\"", absPath); - // Parse path and get mount point - node = VFS_ParsePath(absPath, NULL); - // Free generated path - free(absPath); - - if(!node) { - LOG("Cannot find node"); - LEAVE('i', -1); - return -1; - } - - // Check for symlinks - if( !(Mode & VFS_OPENFLAG_NOLINK) && (node->Flags & VFS_FFLAG_SYMLINK) ) - { - if( !node->Read ) { - Warning("No read method on symlink"); - LEAVE('i', -1); - return -1; - } - absPath = malloc(node->Size+1); // Allocate Buffer - node->Read( node, 0, node->Size, absPath ); // Read Path - - absPath[ node->Size ] = '\0'; // End String - if(node->Close) node->Close( node ); // Close old node - node = VFS_ParsePath(absPath, NULL); // Get new node - free( absPath ); // Free allocated path - } - - if(!node) { - LOG("Cannot find node"); - LEAVE('i', -1); - return -1; - } - - i = 0; - i |= (Mode & VFS_OPENFLAG_EXEC) ? VFS_PERM_EXECUTE : 0; - i |= (Mode & VFS_OPENFLAG_READ) ? VFS_PERM_READ : 0; - i |= (Mode & VFS_OPENFLAG_WRITE) ? VFS_PERM_WRITE : 0; - - LOG("i = 0b%b", i); - - // Permissions Check - if( !VFS_CheckACL(node, i) ) { - if(node->Close) node->Close( node ); - Log("VFS_Open: Permissions Failed"); - LEAVE('i', -1); - return -1; - } - - // Check for a user open - if(Mode & VFS_OPENFLAG_USER) - { - // Allocate Buffer - if( MM_GetPhysAddr( (Uint)gaUserHandles ) == 0 ) - { - Uint addr, size; - size = CFGINT(CFG_VFS_MAXFILES) * sizeof(tVFS_Handle); - for(addr = 0; addr < size; addr += 0x1000) - MM_Allocate( (Uint)gaUserHandles + addr ); - memset( gaUserHandles, 0, size ); - } - // Get a handle - for(i=0;iNode->Flags & VFS_FFLAG_DIRECTORY) ) { - Log_Warning("VFS", "VFS_OpenChild - Passed handle is not a directory", FD); - if(Errno) *Errno = ENOTDIR; - LEAVE('i', -1); - return -1; - } - - // Find Child - node = h->Node->FindDir(h->Node, Name); - if(!node) { - if(Errno) *Errno = ENOENT; - LEAVE('i', -1); - return -1; - } - - i = 0; - i |= (Mode & VFS_OPENFLAG_EXEC) ? VFS_PERM_EXECUTE : 0; - i |= (Mode & VFS_OPENFLAG_READ) ? VFS_PERM_READ : 0; - i |= (Mode & VFS_OPENFLAG_WRITE) ? VFS_PERM_WRITE : 0; - - // Permissions Check - if( !VFS_CheckACL(node, i) ) { - if(node->Close) node->Close( node ); - Log_Notice("VFS", "VFS_OpenChild - Permissions Failed"); - if(Errno) *Errno = EACCES; - LEAVE('i', -1); - return -1; - } - - // Check for a user open - if(Mode & VFS_OPENFLAG_USER) - { - // Allocate Buffer - if( MM_GetPhysAddr( (Uint)gaUserHandles ) == 0 ) - { - Uint addr, size; - size = CFGINT(CFG_VFS_MAXFILES) * sizeof(tVFS_Handle); - for(addr = 0; addr < size; addr += 0x1000) - MM_Allocate( (Uint)gaUserHandles + addr ); - memset( gaUserHandles, 0, size ); - } - // Get a handle - for(i=0;iNode->Close && !MM_GetPhysAddr(h->Node->Close)) { - Log_Warning("VFS", "Node %p's ->Close method is invalid (%p)", - h->Node, h->Node->Close); - return ; - } - #endif - - if(h->Node->Close) - h->Node->Close( h->Node ); - - h->Node = NULL; -} - -/** - * \brief Change current working directory - */ -int VFS_ChDir(char *Dest) -{ - char *buf; - int fd; - tVFS_Handle *h; - - // Create Absolute - buf = VFS_GetAbsPath(Dest); - if(buf == NULL) { - Log("VFS_ChDir: Path expansion failed"); - return -1; - } - - // Check if path exists - fd = VFS_Open(buf, VFS_OPENFLAG_EXEC); - if(fd == -1) { - Log("VFS_ChDir: Path is invalid"); - return -1; - } - - // Get node so we can check for directory - h = VFS_GetHandle(fd); - if( !(h->Node->Flags & VFS_FFLAG_DIRECTORY) ) { - Log("VFS_ChDir: Path is not a directory"); - VFS_Close(fd); - return -1; - } - - // Close file - VFS_Close(fd); - - // Free old working directory - if( CFGPTR(CFG_VFS_CWD) ) - free( CFGPTR(CFG_VFS_CWD) ); - // Set new - CFGPTR(CFG_VFS_CWD) = buf; - - Log("Updated CWD to '%s'", buf); - - return 1; -} - -/** - * \fn int VFS_ChRoot(char *New) - * \brief Change current root directory - */ -int VFS_ChRoot(char *New) -{ - char *buf; - int fd; - tVFS_Handle *h; - - if(New[0] == '/' && New[1] == '\0') - return 1; // What a useless thing to ask! - - // Create Absolute - buf = VFS_GetAbsPath(New); - if(buf == NULL) { - LOG("Path expansion failed"); - return -1; - } - - // Check if path exists - fd = VFS_Open(buf, VFS_OPENFLAG_EXEC); - if(fd == -1) { - LOG("Path is invalid"); - return -1; - } - - // Get node so we can check for directory - h = VFS_GetHandle(fd); - if( !(h->Node->Flags & VFS_FFLAG_DIRECTORY) ) { - LOG("Path is not a directory"); - VFS_Close(fd); - return -1; - } - - // Close file - VFS_Close(fd); - - // Free old working directory - if( CFGPTR(CFG_VFS_CHROOT) ) - free( CFGPTR(CFG_VFS_CHROOT) ); - // Set new - CFGPTR(CFG_VFS_CHROOT) = buf; - - LOG("Updated Root to '%s'", buf); - - return 1; -} - -/** - * \fn tVFS_Handle *VFS_GetHandle(int FD) - * \brief Gets a pointer to the handle information structure - */ -tVFS_Handle *VFS_GetHandle(int FD) -{ - tVFS_Handle *h; - - //Log_Debug("VFS", "VFS_GetHandle: (FD=0x%x)", FD); - - if(FD < 0) return NULL; - - if(FD & VFS_KERNEL_FLAG) { - FD &= (VFS_KERNEL_FLAG - 1); - if(FD >= MAX_KERNEL_FILES) return NULL; - h = &gaKernelHandles[ FD ]; - } else { - if(FD >= CFGINT(CFG_VFS_MAXFILES)) return NULL; - h = &gaUserHandles[ FD ]; - } - - if(h->Node == NULL) return NULL; - //Log_Debug("VFS", "VFS_GetHandle: RETURN %p", h); - return h; -} - -// === EXPORTS === -EXPORT(VFS_Open); -EXPORT(VFS_Close);