Lines of
xvfs.c.rvt
from check-in 69e476dcd5
that are changed by the sequence of edits moving toward
check-in 32b55a907b:
1: #include <xvfs-core.h>
2: #include <unistd.h>
3: #include <tcl.h>
4:
5: typedef enum {
6: XVFS_FILE_TYPE_REG,
7: XVFS_FILE_TYPE_DIR
8: } xvfs_file_type_t;
9:
10: typedef Tcl_WideInt xvfs_size_t;
11:
12: struct xvfs_file_data {
13: const char *name;
14: xvfs_file_type_t type;
15: xvfs_size_t size;
69e476dcd5 2019-05-02 16: const unsigned char *data;
17: };
18:
19: <?
20: package require xvfs
21: xvfs::main $argv
22: ?>
69e476dcd5 2019-05-02 23:
69e476dcd5 2019-05-02 24: static const char **xvfs_<?= $::xvfs::fsName ?>_getChildren(const char *path, Tcl_WideInt limit) {
69e476dcd5 2019-05-02 25: return(NULL);
69e476dcd5 2019-05-02 26: }
69e476dcd5 2019-05-02 27:
69e476dcd5 2019-05-02 28: static const unsigned char *xvfs_<?= $::xvfs::fsName ?>_getData(const char *path, Tcl_WideInt start, Tcl_WideInt length) {
69e476dcd5 2019-05-02 29: return(NULL);
30: }
31:
32: int Xvfs_<?= $::xvfs::fsName ?>_Init(Tcl_Interp *interp) {
33: int register_ret;
34:
35: register_ret = Xvfs_Register(interp, "<?= $::xvfs::fsName ?>", XVFS_PROTOCOL_VERSION, xvfs_<?= $::xvfs::fsName ?>_getChildren, xvfs_<?= $::xvfs::fsName ?>_getData);
36: if (register_ret != TCL_OK) {
37: return(register_ret);
38: }
39:
40: return(TCL_OK);
41: }