Lines of
xvfs.c.rvt
from check-in f74a2e47ab
that are changed by the sequence of edits moving toward
check-in 69e476dcd5:
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;
16: const unsigned char *data;
17: };
18:
19: <?
20: package require xvfs
21: xvfs::main $argv
22: ?>
23:
24: static const char **xvfs_<?= $::xvfs::fsName ?>_getChildren(const char *path, Tcl_WideInt limit) {
25: return(NULL);
26: }
27:
28: static const unsigned char *xvfs_<?= $::xvfs::fsName ?>_getData(const char *path, Tcl_WideInt start, Tcl_WideInt length) {
29: return(NULL);
30: }
31:
f74a2e47ab 2019-05-02 32: int Xvfs_<?= $::xvfs::fsName ?>_Init() {
33: int register_ret;
34:
f74a2e47ab 2019-05-02 35: register_ret = Xvfs_Register("<?= $::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: }