XVFS
Check-in [e90770a5a7]
Login
HomeTimelineFilesBranchesTagsTicketsWiki
Overview
Comment:Ensure correct casting
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: e90770a5a7f477f2606d9d1364bc5b3bda337bca5fdd157f564b83b9d2bedb30
User & Date: rkeene on 2019-05-02 14:23:10
Other Links: manifest | tags
Context
2019-05-02
14:36
Start of a register interface check-in: f74a2e47ab user: rkeene tags: trunk
14:23
Ensure correct casting check-in: e90770a5a7 user: rkeene tags: trunk
14:21
Added bare example check-in: 0a9369ff13 user: rkeene tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified Makefile from [9eb3bcec6c] to [10ea439cf8]. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

all: example.so

example.c: $(shell find example -type f) $(shell find lib -type f) xvfs.c.rvt xvfs-create
	./xvfs-create --directory example --name example > example.c.new
	mv example.c.new example.c

example.o: example.c xvfs-core.h
	cc -I. -o example.o -c example.c

example.so: example.o
	cc -shared -o example.so example.o

test:
	@echo not implemented

clean:
	rm -f example.so example.o example.c



|



|
|

|








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

all: example.so

example.c: $(shell find example -type f) $(shell find lib -type f) xvfs.c.rvt xvfs-create Makefile
	./xvfs-create --directory example --name example > example.c.new
	mv example.c.new example.c

example.o: example.c xvfs-core.h Makefile
	cc -Wall -I. -o example.o -c example.c

example.so: example.o Makefile
	cc -shared -o example.so example.o

test:
	@echo not implemented

clean:
	rm -f example.so example.o example.c
︙︙

Modified lib/xvfs/xvfs.tcl from [8683a5cd47] to [5ab6120f9c].

︙︙
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94

		}
	}

	puts "\t\{"
	puts "\t\t.name = \"[sanitizeCString $outputFile]\","
	puts "\t\t.type = $type,"
	puts "\t\t.size = $size,"
	puts "\t\t.data = $data"
	puts "\t\},"
}

proc ::xvfs::processDirectory {fsName directory {subDirectory ""}} {
	set subDirectories [list]
	set outputFiles [list]
	set workingDirectory [file join $directory $subDirectory]








|








80
81
82
83
84
85
86
87
88
89
90
91
92
93
94

		}
	}

	puts "\t\{"
	puts "\t\t.name = \"[sanitizeCString $outputFile]\","
	puts "\t\t.type = $type,"
	puts "\t\t.size = $size,"
	puts "\t\t.data = (unsigned char *) $data"
	puts "\t\},"
}

proc ::xvfs::processDirectory {fsName directory {subDirectory ""}} {
	set subDirectories [list]
	set outputFiles [list]
	set workingDirectory [file join $directory $subDirectory]
︙︙

Powered by Fossil · RSS