Lines of
xvfs.c.rvt
from check-in 1ecab39ce5
that are changed by the sequence of edits moving toward
check-in f74a2e47ab:
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: }
26:
27: static const unsigned char *xvfs_<?= $::xvfs::fsName ?>_getData(const char *path, Tcl_WideInt start, Tcl_WideInt length) {
28: }
29:
30: int Xvfs_<?= $::xvfs::fsName ?>_Init() {
1ecab39ce5 2019-05-02 31: // Init->Register("<?= $::xvfs::fsName ?>", XVFS_PROTOCOL_VERSION, xvfs_<?= $::xvfs::fsName ?>_getChildren, xvfs_<?= $::xvfs::fsName ?>_getData)
32: }