protobuf

Check-in [9caf73d2af]
Login

Check-in [9caf73d2af]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:imported v1.1.2
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk | v1.1.2
Files: files | file ages | folders
SHA3-256: 9caf73d2af6b0861f820fdc29e4ed37211a65ce485fe6f1fc0542758ed8c54d3
User & Date: murphy 2018-08-18 20:06:54.904
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
Unified Diff Ignore Whitespace Patch
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")))