protobuf

Check-in [da6d67bd6f]
Login

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

Overview
Comment:Code cosmetics
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | chicken-5
Files: files | file ages | folders
SHA3-256: da6d67bd6f1763112880f8d07879ab1fbfe25844d7d1bb1b46afa9e855ea6abb
User & Date: murphy 2018-08-19 16:00:33
Context
2018-08-27
14:06
Corrections of SRFI-4 comprehensions check-in: 3876586c85 user: murphy tags: chicken-5
2018-08-19
16:00
Code cosmetics check-in: da6d67bd6f user: murphy tags: chicken-5
02:43
Updated copyright years check-in: a732bce3c5 user: murphy tags: chicken-5
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic.scm.

29
30
31
32
33
34
35



36
37
38
39
40
41
42
  #f #t
  obj->ref
  ref->obj)

(define current-serialization-context
  (make-parameter #f))




(define %eq?-hash
  (foreign-lambda* int ([scheme-object v] [int bound])
    "C_return((((intptr_t) v) >> C_FIXNUM_SHIFT) % bound);"))

(define make-serialization-context
  (let ([make-serialization-context* (rtd-constructor serialization-context)])
    (lambda vs







>
>
>







29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
  #f #t
  obj->ref
  ref->obj)

(define current-serialization-context
  (make-parameter #f))

;; FIXME this workaround for crashes in hash functions provided by
;; srfi-69 may interact badly with the garbage collector and should
;; be removed as soon as the implementation of hash tables is fixed.
(define %eq?-hash
  (foreign-lambda* int ([scheme-object v] [int bound])
    "C_return((((intptr_t) v) >> C_FIXNUM_SHIFT) % bound);"))

(define make-serialization-context
  (let ([make-serialization-context* (rtd-constructor serialization-context)])
    (lambda vs

Changes to protobuf.egg.

10
11
12
13
14
15
16
17

18
19
20
21
22
23
24

25

26
27
28
29
   srfi-42
   srfi-69
   srfi-99)
 (test-dependencies
   test)
 (components
   (extension protobuf
     (modules protobuf

              srfi-4-comprehensions
              protobuf-generic
              protobuf-reflection
              protobuf-syntax
              protobuf-encoding))
   (program protoc-gen-chicken
     (component-dependencies protobuf))

   (c-include extend/protobuf

     (files "extend/protobuf/bigint.proto"
            "extend/protobuf/chicken.proto"))))

;; vim: set ai et ts=8 sts=2 sw=2 ft=scheme: ;;







|
>
|
|
|
|
|

|
>

>
|
|


10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
   srfi-42
   srfi-69
   srfi-99)
 (test-dependencies
   test)
 (components
   (extension protobuf
     (modules
       protobuf
       srfi-4-comprehensions
       protobuf-encoding
       protobuf-reflection
       protobuf-syntax
       protobuf-generic))
   (program protoc-gen-chicken
     (component-dependencies
       protobuf))
   (c-include extend/protobuf
     (files
       "extend/protobuf/bigint.proto"
       "extend/protobuf/chicken.proto"))))

;; vim: set ai et ts=8 sts=2 sw=2 ft=scheme: ;;