1
2
3
4
5
6
7
8
9
10
11
12
13
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
|
#include <xvfs-common.h>
#include <unistd.h>
#include <tcl.h>
typedef enum {
XVFS_FILE_TYPE_REG,
XVFS_FILE_TYPE_DIR
} xvfs_file_type_t;
typedef Tcl_WideInt xvfs_size_t;
struct xvfs_file_data {
const char *name;
xvfs_file_type_t type;
xvfs_size_t size;
const unsigned char *data;
};
<?
package require xvfs
xvfs::main $argv
?>
static const char **xvfs_<?= $::xvfs::fsName ?>_getChildren(const char *path, Tcl_WideInt limit) {
}
static const unsigned char *xvfs_<?= $::xvfs::fsName ?>_getData(const char *path, Tcl_WideInt start, Tcl_WideInt length) {
}
int Xvfs_<?= $::xvfs::fsName ?>_Init() {
|