1ecab39ce5 2019-05-02 rkeene: #include <xvfs-core.h>
303b2de493 2019-05-02 rkeene: #include <unistd.h>
32b55a907b 2019-05-02 rkeene: #include <string.h>
303b2de493 2019-05-02 rkeene: #include <tcl.h>
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: #define XVFS_NAME_LOOKUP_ERROR (-1)
32b55a907b 2019-05-02 rkeene: #define MIN(a, b) (((a) < (b)) ? (a) : (b))
303b2de493 2019-05-02 rkeene:
303b2de493 2019-05-02 rkeene: typedef enum {
303b2de493 2019-05-02 rkeene: XVFS_FILE_TYPE_REG,
303b2de493 2019-05-02 rkeene: XVFS_FILE_TYPE_DIR
303b2de493 2019-05-02 rkeene: } xvfs_file_type_t;
303b2de493 2019-05-02 rkeene:
303b2de493 2019-05-02 rkeene: typedef Tcl_WideInt xvfs_size_t;
303b2de493 2019-05-02 rkeene:
303b2de493 2019-05-02 rkeene: struct xvfs_file_data {
303b2de493 2019-05-02 rkeene: const char *name;
303b2de493 2019-05-02 rkeene: xvfs_file_type_t type;
303b2de493 2019-05-02 rkeene: xvfs_size_t size;
32b55a907b 2019-05-02 rkeene: union {
32b55a907b 2019-05-02 rkeene: const unsigned char *fileContents;
32b55a907b 2019-05-02 rkeene: const char **dirChildren;
32b55a907b 2019-05-02 rkeene: } data;
303b2de493 2019-05-02 rkeene: };
47dcf5fc27 2019-05-01 rkeene:
47dcf5fc27 2019-05-01 rkeene: <?
47dcf5fc27 2019-05-01 rkeene: package require xvfs
47dcf5fc27 2019-05-01 rkeene: xvfs::main $argv
47dcf5fc27 2019-05-01 rkeene: ?>
32b55a907b 2019-05-02 rkeene: static long xvfs_<?= $::xvfs::fsName ?>_nameToIndex(const char *path) {
32b55a907b 2019-05-02 rkeene: if (path == NULL) {
32b55a907b 2019-05-02 rkeene: return(XVFS_NAME_LOOKUP_ERROR);
32b55a907b 2019-05-02 rkeene: }
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: <? for {set index 0} {$index < [llength $::xvfs::outputFiles]} {incr index} {
32b55a907b 2019-05-02 rkeene: set outputFile [lindex $::xvfs::outputFiles $index]
32b55a907b 2019-05-02 rkeene: ?>
32b55a907b 2019-05-02 rkeene: if (strcmp(path, "<?= [::xvfs::sanitizeCString $outputFile] ?>") == 0) {
32b55a907b 2019-05-02 rkeene: return(<?= $index ?>);
32b55a907b 2019-05-02 rkeene: }
32b55a907b 2019-05-02 rkeene: <? } ?>
32b55a907b 2019-05-02 rkeene: return(XVFS_NAME_LOOKUP_ERROR);
32b55a907b 2019-05-02 rkeene: }
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: static const char **xvfs_<?= $::xvfs::fsName ?>_getChildren(const char *path, Tcl_WideInt *count) {
32b55a907b 2019-05-02 rkeene: struct xvfs_file_data *fileInfo;
32b55a907b 2019-05-02 rkeene: long inode;
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: /*
32b55a907b 2019-05-02 rkeene: * Validate input parameters
32b55a907b 2019-05-02 rkeene: */
32b55a907b 2019-05-02 rkeene: if (count == NULL) {
32b55a907b 2019-05-02 rkeene: return(NULL);
32b55a907b 2019-05-02 rkeene: }
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: /*
32b55a907b 2019-05-02 rkeene: * Get the inode from the lookup function
32b55a907b 2019-05-02 rkeene: */
32b55a907b 2019-05-02 rkeene: inode = xvfs_<?= $::xvfs::fsName ?>_nameToIndex(path);
32b55a907b 2019-05-02 rkeene: if (inode == XVFS_NAME_LOOKUP_ERROR) {
32b55a907b 2019-05-02 rkeene: return(NULL);
32b55a907b 2019-05-02 rkeene: }
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: fileInfo = &xvfs_<?= $::xvfs::fsName ?>_data[inode];
303b2de493 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: /*
32b55a907b 2019-05-02 rkeene: * Ensure this is a directory
32b55a907b 2019-05-02 rkeene: */
32b55a907b 2019-05-02 rkeene: if (fileInfo->type != XVFS_FILE_TYPE_DIR) {
32b55a907b 2019-05-02 rkeene: return(NULL);
32b55a907b 2019-05-02 rkeene: }
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: *count = fileInfo->size;
32b55a907b 2019-05-02 rkeene: return(fileInfo->data.dirChildren);
47dcf5fc27 2019-05-01 rkeene: }
47dcf5fc27 2019-05-01 rkeene:
32b55a907b 2019-05-02 rkeene: static const unsigned char *xvfs_<?= $::xvfs::fsName ?>_getData(const char *path, Tcl_WideInt start, Tcl_WideInt *length) {
32b55a907b 2019-05-02 rkeene: struct xvfs_file_data *fileInfo;
32b55a907b 2019-05-02 rkeene: Tcl_WideInt resultLength;
32b55a907b 2019-05-02 rkeene: long inode;
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: /*
32b55a907b 2019-05-02 rkeene: * Validate input parameters
32b55a907b 2019-05-02 rkeene: */
32b55a907b 2019-05-02 rkeene: if (start < 0) {
32b55a907b 2019-05-02 rkeene: return(NULL);
32b55a907b 2019-05-02 rkeene: }
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: if (length == NULL) {
32b55a907b 2019-05-02 rkeene: return(NULL);
32b55a907b 2019-05-02 rkeene: }
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: if (*length < 0) {
32b55a907b 2019-05-02 rkeene: return(NULL);
32b55a907b 2019-05-02 rkeene: }
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: /*
32b55a907b 2019-05-02 rkeene: * Get the inode from the lookup function
32b55a907b 2019-05-02 rkeene: */
32b55a907b 2019-05-02 rkeene: inode = xvfs_<?= $::xvfs::fsName ?>_nameToIndex(path);
32b55a907b 2019-05-02 rkeene: if (inode == XVFS_NAME_LOOKUP_ERROR) {
32b55a907b 2019-05-02 rkeene: return(NULL);
32b55a907b 2019-05-02 rkeene: }
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: fileInfo = &xvfs_<?= $::xvfs::fsName ?>_data[inode];
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: /*
32b55a907b 2019-05-02 rkeene: * Ensure this is a file that can be read
32b55a907b 2019-05-02 rkeene: */
32b55a907b 2019-05-02 rkeene: if (fileInfo->type != XVFS_FILE_TYPE_REG) {
32b55a907b 2019-05-02 rkeene: return(NULL);
32b55a907b 2019-05-02 rkeene: }
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: /*
32b55a907b 2019-05-02 rkeene: * Validate the length
32b55a907b 2019-05-02 rkeene: */
32b55a907b 2019-05-02 rkeene: if (start > fileInfo->size) {
32b55a907b 2019-05-02 rkeene: *length = -1;
32b55a907b 2019-05-02 rkeene: return(NULL);
32b55a907b 2019-05-02 rkeene: }
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: if (*length == 0) {
32b55a907b 2019-05-02 rkeene: resultLength = fileInfo->size - start;
32b55a907b 2019-05-02 rkeene: } else {
32b55a907b 2019-05-02 rkeene: resultLength = MIN(fileInfo->size - start, *length);
32b55a907b 2019-05-02 rkeene: }
32b55a907b 2019-05-02 rkeene: *length = resultLength;
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: /*
32b55a907b 2019-05-02 rkeene: * Return the data
32b55a907b 2019-05-02 rkeene: */
32b55a907b 2019-05-02 rkeene: return(fileInfo->data.fileContents + start);
47dcf5fc27 2019-05-01 rkeene: }
47dcf5fc27 2019-05-01 rkeene:
69e476dcd5 2019-05-02 rkeene: int Xvfs_<?= $::xvfs::fsName ?>_Init(Tcl_Interp *interp) {
f74a2e47ab 2019-05-02 rkeene: int register_ret;
32b55a907b 2019-05-02 rkeene:
32b55a907b 2019-05-02 rkeene: /* XXX:TODO: Stubs */
69e476dcd5 2019-05-02 rkeene:
69e476dcd5 2019-05-02 rkeene: register_ret = Xvfs_Register(interp, "<?= $::xvfs::fsName ?>", XVFS_PROTOCOL_VERSION, xvfs_<?= $::xvfs::fsName ?>_getChildren, xvfs_<?= $::xvfs::fsName ?>_getData);
f74a2e47ab 2019-05-02 rkeene: if (register_ret != TCL_OK) {
f74a2e47ab 2019-05-02 rkeene: return(register_ret);
f74a2e47ab 2019-05-02 rkeene: }
f74a2e47ab 2019-05-02 rkeene:
f74a2e47ab 2019-05-02 rkeene: return(TCL_OK);
47dcf5fc27 2019-05-01 rkeene: }