47dcf5fc27 2019-05-01 rkeene: #include <xvfs-common.h>
303b2de493 2019-05-02 rkeene: #include <unistd.h>
303b2de493 2019-05-02 rkeene: #include <tcl.h>
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;
303b2de493 2019-05-02 rkeene: const unsigned char *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: ?>
303b2de493 2019-05-02 rkeene:
47dcf5fc27 2019-05-01 rkeene: static const char **xvfs_<?= $::xvfs::fsName ?>_getChildren(const char *path, Tcl_WideInt limit) {
47dcf5fc27 2019-05-01 rkeene: }
47dcf5fc27 2019-05-01 rkeene:
47dcf5fc27 2019-05-01 rkeene: static const unsigned char *xvfs_<?= $::xvfs::fsName ?>_getData(const char *path, Tcl_WideInt start, Tcl_WideInt length) {
47dcf5fc27 2019-05-01 rkeene: }
47dcf5fc27 2019-05-01 rkeene:
47dcf5fc27 2019-05-01 rkeene: int Xvfs_<?= $::xvfs::fsName ?>_Init() {
47dcf5fc27 2019-05-01 rkeene: // Init->Register("<?= $::xvfs::fsName ?>", XVFS_PROTOCOL_VERSION, xvfs_<?= $::xvfs::fsName ?>_getChildren, xvfs_<?= $::xvfs::fsName ?>_getData)
47dcf5fc27 2019-05-01 rkeene: }