1ecab39ce5 2019-05-02 1: #include <xvfs-core.h>
9d3052c6f1 2019-05-08 2: #include <sys/stat.h>
303b2de493 2019-05-02 3: #include <unistd.h>
32b55a907b 2019-05-02 4: #include <string.h>
303b2de493 2019-05-02 5: #include <tcl.h>
32b55a907b 2019-05-02 6:
32b55a907b 2019-05-02 7: #define XVFS_NAME_LOOKUP_ERROR (-1)
fb9dd5d783 2019-05-03 8: #define XVFS_FILE_BLOCKSIZE 1024
9d3052c6f1 2019-05-08 9:
3a68a54e44 2019-09-17 10: /*
3a68a54e44 2019-09-17 11: * XXX:TODO: Determine this automatically rather than
3a68a54e44 2019-09-17 12: * by heuristics
3a68a54e44 2019-09-17 13: */
3a68a54e44 2019-09-17 14: #define HAVE_STRUCT_STAT_ST_BLKSIZE 1
3a68a54e44 2019-09-17 15: #define HAVE_STRUCT_STAT_ST_BLOCKS 1
3a68a54e44 2019-09-17 16: #ifdef WIN32
3a68a54e44 2019-09-17 17: # undef HAVE_STRUCT_STAT_ST_BLKSIZE
3a68a54e44 2019-09-17 18: # undef HAVE_STRUCT_STAT_ST_BLOCKS
3a68a54e44 2019-09-17 19: #endif
3a68a54e44 2019-09-17 20:
32b55a907b 2019-05-02 21: #define MIN(a, b) (((a) < (b)) ? (a) : (b))
303b2de493 2019-05-02 22:
303b2de493 2019-05-02 23: typedef enum {
303b2de493 2019-05-02 24: XVFS_FILE_TYPE_REG,
303b2de493 2019-05-02 25: XVFS_FILE_TYPE_DIR
303b2de493 2019-05-02 26: } xvfs_file_type_t;
303b2de493 2019-05-02 27:
303b2de493 2019-05-02 28: typedef Tcl_WideInt xvfs_size_t;
303b2de493 2019-05-02 29:
303b2de493 2019-05-02 30: struct xvfs_file_data {
303b2de493 2019-05-02 31: const char *name;
303b2de493 2019-05-02 32: xvfs_file_type_t type;
303b2de493 2019-05-02 33: xvfs_size_t size;
32b55a907b 2019-05-02 34: union {
32b55a907b 2019-05-02 35: const unsigned char *fileContents;
32b55a907b 2019-05-02 36: const char **dirChildren;
32b55a907b 2019-05-02 37: } data;
303b2de493 2019-05-02 38: };
47dcf5fc27 2019-05-01 39:
47dcf5fc27 2019-05-01 40: <?
47dcf5fc27 2019-05-01 41: package require xvfs
47dcf5fc27 2019-05-01 42: xvfs::main $argv
47dcf5fc27 2019-05-01 43: ?>
32b55a907b 2019-05-02 44: static long xvfs_<?= $::xvfs::fsName ?>_nameToIndex(const char *path) {
fb9dd5d783 2019-05-03 45: unsigned int pathHash;
73cbe7370b 2019-05-03 46: size_t pathLen;
fb9dd5d783 2019-05-03 47:
32b55a907b 2019-05-02 48: if (path == NULL) {
32b55a907b 2019-05-02 49: return(XVFS_NAME_LOOKUP_ERROR);
32b55a907b 2019-05-02 50: }
73cbe7370b 2019-05-03 51:
73cbe7370b 2019-05-03 52: pathLen = strlen(path);
73cbe7370b 2019-05-03 53: pathHash = Tcl_ZlibAdler32(0, (const unsigned char *) path, pathLen);
fb9dd5d783 2019-05-03 54: switch (pathHash) {
fb9dd5d783 2019-05-03 55: <?
fb9dd5d783 2019-05-03 56: for {set index 0} {$index < [llength $::xvfs::outputFiles]} {incr index} {
32b55a907b 2019-05-02 57: set outputFile [lindex $::xvfs::outputFiles $index]
fb9dd5d783 2019-05-03 58: set outputFileHash [zlib adler32 $outputFile 0]
fb9dd5d783 2019-05-03 59: lappend outputFileHashToIndex($outputFileHash) $index
32b55a907b 2019-05-02 60: }
fb9dd5d783 2019-05-03 61:
fb9dd5d783 2019-05-03 62: foreach {outputFileHash outputFileIndexes} [lsort -stride 2 -dictionary [array get outputFileHashToIndex]] {
fb9dd5d783 2019-05-03 63: ?> case <?= $outputFileHash ?>:
fb9dd5d783 2019-05-03 64: <?
fb9dd5d783 2019-05-03 65: foreach outputFileIndex $outputFileIndexes {
73cbe7370b 2019-05-03 66: set outputFileName [lindex $::xvfs::outputFiles $outputFileIndex]
73cbe7370b 2019-05-03 67: set outputFileNameLen [string length $outputFileName]
73cbe7370b 2019-05-03 68: ?> if (pathLen == <?= $outputFileNameLen ?> && memcmp(path, xvfs_<?= $::xvfs::fsName ?>_data[<?= $outputFileIndex ?>].name, pathLen) == 0) {
fb9dd5d783 2019-05-03 69: return(<?= $outputFileIndex ?>);
fb9dd5d783 2019-05-03 70: }
fb9dd5d783 2019-05-03 71: <?
fb9dd5d783 2019-05-03 72: }
fb9dd5d783 2019-05-03 73: ?> break;
32b55a907b 2019-05-02 74: <? } ?>
fb9dd5d783 2019-05-03 75: }
fb9dd5d783 2019-05-03 76:
32b55a907b 2019-05-02 77: return(XVFS_NAME_LOOKUP_ERROR);
32b55a907b 2019-05-02 78: }
32b55a907b 2019-05-02 79:
32b55a907b 2019-05-02 80: static const char **xvfs_<?= $::xvfs::fsName ?>_getChildren(const char *path, Tcl_WideInt *count) {
32b55a907b 2019-05-02 81: struct xvfs_file_data *fileInfo;
32b55a907b 2019-05-02 82: long inode;
32b55a907b 2019-05-02 83:
32b55a907b 2019-05-02 84: /*
32b55a907b 2019-05-02 85: * Validate input parameters
32b55a907b 2019-05-02 86: */
32b55a907b 2019-05-02 87: if (count == NULL) {
32b55a907b 2019-05-02 88: return(NULL);
32b55a907b 2019-05-02 89: }
32b55a907b 2019-05-02 90:
32b55a907b 2019-05-02 91: /*
32b55a907b 2019-05-02 92: * Get the inode from the lookup function
32b55a907b 2019-05-02 93: */
32b55a907b 2019-05-02 94: inode = xvfs_<?= $::xvfs::fsName ?>_nameToIndex(path);
32b55a907b 2019-05-02 95: if (inode == XVFS_NAME_LOOKUP_ERROR) {
149aa89b7d 2019-09-13 96: *count = XVFS_RV_ERR_ENOENT;
32b55a907b 2019-05-02 97: return(NULL);
32b55a907b 2019-05-02 98: }
32b55a907b 2019-05-02 99:
32b55a907b 2019-05-02 100: fileInfo = &xvfs_<?= $::xvfs::fsName ?>_data[inode];
32b55a907b 2019-05-02 101:
32b55a907b 2019-05-02 102: /*
32b55a907b 2019-05-02 103: * Ensure this is a directory
32b55a907b 2019-05-02 104: */
32b55a907b 2019-05-02 105: if (fileInfo->type != XVFS_FILE_TYPE_DIR) {
149aa89b7d 2019-09-13 106: *count = XVFS_RV_ERR_ENOTDIR;
32b55a907b 2019-05-02 107: return(NULL);
32b55a907b 2019-05-02 108: }
32b55a907b 2019-05-02 109:
32b55a907b 2019-05-02 110: *count = fileInfo->size;
32b55a907b 2019-05-02 111: return(fileInfo->data.dirChildren);
32b55a907b 2019-05-02 112: }
32b55a907b 2019-05-02 113:
32b55a907b 2019-05-02 114: static const unsigned char *xvfs_<?= $::xvfs::fsName ?>_getData(const char *path, Tcl_WideInt start, Tcl_WideInt *length) {
32b55a907b 2019-05-02 115: struct xvfs_file_data *fileInfo;
32b55a907b 2019-05-02 116: Tcl_WideInt resultLength;
32b55a907b 2019-05-02 117: long inode;
32b55a907b 2019-05-02 118:
32b55a907b 2019-05-02 119: /*
32b55a907b 2019-05-02 120: * Validate input parameters
32b55a907b 2019-05-02 121: */
149aa89b7d 2019-09-13 122: if (length == NULL) {
32b55a907b 2019-05-02 123: return(NULL);
32b55a907b 2019-05-02 124: }
32b55a907b 2019-05-02 125:
149aa89b7d 2019-09-13 126: if (start < 0) {
149aa89b7d 2019-09-13 127: *length = XVFS_RV_ERR_EINVAL;
32b55a907b 2019-05-02 128: return(NULL);
32b55a907b 2019-05-02 129: }
32b55a907b 2019-05-02 130:
32b55a907b 2019-05-02 131: if (*length < 0) {
149aa89b7d 2019-09-13 132: *length = XVFS_RV_ERR_EINVAL;
32b55a907b 2019-05-02 133: return(NULL);
32b55a907b 2019-05-02 134: }
32b55a907b 2019-05-02 135:
32b55a907b 2019-05-02 136: /*
32b55a907b 2019-05-02 137: * Get the inode from the lookup function
32b55a907b 2019-05-02 138: */
32b55a907b 2019-05-02 139: inode = xvfs_<?= $::xvfs::fsName ?>_nameToIndex(path);
32b55a907b 2019-05-02 140: if (inode == XVFS_NAME_LOOKUP_ERROR) {
149aa89b7d 2019-09-13 141: *length = XVFS_RV_ERR_ENOENT;
32b55a907b 2019-05-02 142: return(NULL);
32b55a907b 2019-05-02 143: }
32b55a907b 2019-05-02 144:
32b55a907b 2019-05-02 145: fileInfo = &xvfs_<?= $::xvfs::fsName ?>_data[inode];
32b55a907b 2019-05-02 146:
32b55a907b 2019-05-02 147: /*
32b55a907b 2019-05-02 148: * Ensure this is a file that can be read
32b55a907b 2019-05-02 149: */
32b55a907b 2019-05-02 150: if (fileInfo->type != XVFS_FILE_TYPE_REG) {
149aa89b7d 2019-09-13 151: *length = XVFS_RV_ERR_EISDIR;
32b55a907b 2019-05-02 152: return(NULL);
32b55a907b 2019-05-02 153: }
32b55a907b 2019-05-02 154:
32b55a907b 2019-05-02 155: /*
32b55a907b 2019-05-02 156: * Validate the length
32b55a907b 2019-05-02 157: */
32b55a907b 2019-05-02 158: if (start > fileInfo->size) {
149aa89b7d 2019-09-13 159: *length = XVFS_RV_ERR_EFAULT;
32b55a907b 2019-05-02 160: return(NULL);
32b55a907b 2019-05-02 161: }
32b55a907b 2019-05-02 162:
32b55a907b 2019-05-02 163: if (*length == 0) {
32b55a907b 2019-05-02 164: resultLength = fileInfo->size - start;
32b55a907b 2019-05-02 165: } else {
32b55a907b 2019-05-02 166: resultLength = MIN(fileInfo->size - start, *length);
32b55a907b 2019-05-02 167: }
32b55a907b 2019-05-02 168: *length = resultLength;
48adf54b98 2019-09-13 169:
32b55a907b 2019-05-02 170: /*
32b55a907b 2019-05-02 171: * Return the data
32b55a907b 2019-05-02 172: */
32b55a907b 2019-05-02 173: return(fileInfo->data.fileContents + start);
32b55a907b 2019-05-02 174: }
32b55a907b 2019-05-02 175:
daf25f5222 2019-05-03 176: static int xvfs_<?= $::xvfs::fsName ?>_getStat(const char *path, Tcl_StatBuf *statBuf) {
d121970301 2019-05-02 177: struct xvfs_file_data *fileInfo;
d121970301 2019-05-02 178: long inode;
d121970301 2019-05-02 179:
d121970301 2019-05-02 180: /*
d121970301 2019-05-02 181: * Validate input parameters
d121970301 2019-05-02 182: */
d121970301 2019-05-02 183: if (!statBuf) {
149aa89b7d 2019-09-13 184: return(XVFS_RV_ERR_EINVAL);
d121970301 2019-05-02 185: }
d121970301 2019-05-02 186:
d121970301 2019-05-02 187: /*
d121970301 2019-05-02 188: * Get the inode from the lookup function
d121970301 2019-05-02 189: */
d121970301 2019-05-02 190: inode = xvfs_<?= $::xvfs::fsName ?>_nameToIndex(path);
d121970301 2019-05-02 191: if (inode == XVFS_NAME_LOOKUP_ERROR) {
149aa89b7d 2019-09-13 192: return(XVFS_RV_ERR_ENOENT);
d121970301 2019-05-02 193: }
d121970301 2019-05-02 194:
d121970301 2019-05-02 195: fileInfo = &xvfs_<?= $::xvfs::fsName ?>_data[inode];
d121970301 2019-05-02 196:
f7a81bb10b 2019-09-17 197: statBuf->st_dev = <?= [zlib adler32 $::xvfs::fsName] ?>;
f7a81bb10b 2019-09-17 198: statBuf->st_rdev = <?= [zlib adler32 $::xvfs::fsName] ?>;
d121970301 2019-05-02 199: statBuf->st_ino = inode;
f7a81bb10b 2019-09-17 200: statBuf->st_uid = 0;
f7a81bb10b 2019-09-17 201: statBuf->st_gid = 0;
d121970301 2019-05-02 202: statBuf->st_atime = 0;
d121970301 2019-05-02 203: statBuf->st_ctime = 0;
d121970301 2019-05-02 204: statBuf->st_mtime = 0;
3a68a54e44 2019-09-17 205: #ifdef HAVE_STRUCT_STAT_ST_BLKSIZE
fb9dd5d783 2019-05-03 206: statBuf->st_blksize = XVFS_FILE_BLOCKSIZE;
3a68a54e44 2019-09-17 207: #endif
d121970301 2019-05-02 208:
d121970301 2019-05-02 209: if (fileInfo->type == XVFS_FILE_TYPE_REG) {
6b8ea28911 2019-09-16 210: statBuf->st_mode = 0100444;
d121970301 2019-05-02 211: statBuf->st_nlink = 1;
d121970301 2019-05-02 212: statBuf->st_size = fileInfo->size;
3a68a54e44 2019-09-17 213: #ifdef HAVE_STRUCT_STAT_ST_BLOCKS
d121970301 2019-05-02 214: statBuf->st_blocks = (fileInfo->size + statBuf->st_blksize - 1) / statBuf->st_blksize;
3a68a54e44 2019-09-17 215: #endif
d121970301 2019-05-02 216: } else if (fileInfo->type == XVFS_FILE_TYPE_DIR) {
6b8ea28911 2019-09-16 217: statBuf->st_mode = 040555;
d121970301 2019-05-02 218: statBuf->st_nlink = fileInfo->size;
d121970301 2019-05-02 219: statBuf->st_size = fileInfo->size;
3a68a54e44 2019-09-17 220: #ifdef HAVE_STRUCT_STAT_ST_BLOCKS
d121970301 2019-05-02 221: statBuf->st_blocks = 1;
3a68a54e44 2019-09-17 222: #endif
d121970301 2019-05-02 223: }
d121970301 2019-05-02 224:
d121970301 2019-05-02 225: return(0);
d121970301 2019-05-02 226: }
d121970301 2019-05-02 227:
d121970301 2019-05-02 228: static struct Xvfs_FSInfo xvfs_<?= $::xvfs::fsName ?>_fsInfo = {
d121970301 2019-05-02 229: .protocolVersion = XVFS_PROTOCOL_VERSION,
d121970301 2019-05-02 230: .name = "<?= $::xvfs::fsName ?>",
d121970301 2019-05-02 231: .getChildrenProc = xvfs_<?= $::xvfs::fsName ?>_getChildren,
d121970301 2019-05-02 232: .getDataProc = xvfs_<?= $::xvfs::fsName ?>_getData,
daf25f5222 2019-05-03 233: .getStatProc = xvfs_<?= $::xvfs::fsName ?>_getStat
d121970301 2019-05-02 234: };
d121970301 2019-05-02 235:
69e476dcd5 2019-05-02 236: int Xvfs_<?= $::xvfs::fsName ?>_Init(Tcl_Interp *interp) {
f74a2e47ab 2019-05-02 237: int register_ret;
e5b6962adf 2019-05-02 238:
e5b6962adf 2019-05-02 239: #ifdef USE_TCL_STUBS
e5b6962adf 2019-05-02 240: const char *tclInitStubs_ret;
e5b6962adf 2019-05-02 241: /* Initialize Stubs */
e5b6962adf 2019-05-02 242: tclInitStubs_ret = Tcl_InitStubs(interp, TCL_PATCH_LEVEL, 0);
e5b6962adf 2019-05-02 243: if (!tclInitStubs_ret) {
e5b6962adf 2019-05-02 244: return(TCL_ERROR);
e5b6962adf 2019-05-02 245: }
e5b6962adf 2019-05-02 246: #endif
f74a2e47ab 2019-05-02 247:
d121970301 2019-05-02 248: register_ret = Xvfs_Register(interp, &xvfs_<?= $::xvfs::fsName ?>_fsInfo);
f74a2e47ab 2019-05-02 249: if (register_ret != TCL_OK) {
f74a2e47ab 2019-05-02 250: return(register_ret);
f74a2e47ab 2019-05-02 251: }
f74a2e47ab 2019-05-02 252:
f74a2e47ab 2019-05-02 253: return(TCL_OK);
f74a2e47ab 2019-05-02 254: }
5f2895faba 2019-09-17 255: #undef XVFS_NAME_LOOKUP_ERROR
5f2895faba 2019-09-17 256: #undef XVFS_FILE_BLOCKSIZE