Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | imported v1.1.2 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk | v1.1.2 |
| Files: | files | file ages | folders |
| SHA3-256: | 9caf73d2af6b0861f820fdc29e4ed372 |
| User & Date: | murphy 2018-08-18 20:06:54 |
Context
|
2018-08-19
| ||
| 02:08 | Ported the egg to CHICKEN 5 check-in: 3b4b1696e6 user: murphy tags: chicken-5 | |
|
2018-08-18
| ||
| 20:06 | imported v1.1.2 Leaf check-in: 9caf73d2af user: murphy tags: trunk, v1.1.2 | |
| 20:05 | imported v1.1.1 check-in: 8e3da7a570 user: murphy tags: trunk, v1.1.1 | |
Changes
Changes to generic.scm.
49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 |
(let ([obj->ref (serialization-context-obj->ref context)]
[ref->obj (serialization-context-ref->obj context)])
(lambda (v)
(cond
[(hash-table-ref/default obj->ref v #f)
=> values]
[else
(let ([ref (hash-table-size obj->ref)])
(hash-table-set! obj->ref v ref)
(hash-table-set! ref->obj ref v))
#f]))))
(define-record-property prop:serialization-info
#f)
|
| |
49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 |
(let ([obj->ref (serialization-context-obj->ref context)]
[ref->obj (serialization-context-ref->obj context)])
(lambda (v)
(cond
[(hash-table-ref/default obj->ref v #f)
=> values]
[else
(let ([ref (hash-table-size ref->obj)])
(hash-table-set! obj->ref v ref)
(hash-table-set! ref->obj ref v))
#f]))))
(define-record-property prop:serialization-info
#f)
|
Changes to protobuf.setup.
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
..
30
31
32
33
34
35
36
37
|
'protobuf
'("protobuf.so"
"protobuf-encoding.import.so"
"protobuf-reflection.import.so"
"protobuf-syntax.import.so"
"protobuf.import.so"
"protobuf-generic.import.so")
'((version "1.1.1")))
(compile -O2 ,-d* "protoc-gen-chicken.scm")
(install-program
'protoc-gen-chicken
`("protoc-gen-chicken"
("extend/protobuf/bigint.proto"
................................................................................
,(make-pathname
(list (installation-prefix) "include/extend/protobuf")
"bigint.proto"))
("extend/protobuf/chicken.proto"
,(make-pathname
(list (installation-prefix) "include/extend/protobuf")
"chicken.proto")))
'((version "1.1.1")))
|
|
|
|
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
..
30
31
32
33
34
35
36
37
|
'protobuf
'("protobuf.so"
"protobuf-encoding.import.so"
"protobuf-reflection.import.so"
"protobuf-syntax.import.so"
"protobuf.import.so"
"protobuf-generic.import.so")
'((version "1.1.2")))
(compile -O2 ,-d* "protoc-gen-chicken.scm")
(install-program
'protoc-gen-chicken
`("protoc-gen-chicken"
("extend/protobuf/bigint.proto"
................................................................................
,(make-pathname
(list (installation-prefix) "include/extend/protobuf")
"bigint.proto"))
("extend/protobuf/chicken.proto"
,(make-pathname
(list (installation-prefix) "include/extend/protobuf")
"chicken.proto")))
'((version "1.1.2")))
|