protobuf

Check-in [934690e320]
Login

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

Overview
Comment:CHICKEN 5.0.2 compatibility patch (thanks to Peter Bex for spotting this)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.2.1 | chicken-5
Files: files | file ages | folders
SHA3-256: 934690e32050c43a2d51431f3dab4c5a781b8a04acaf768123b08ea8f9c03e30
User & Date: murphy 2019-05-05 11:21:48
Context
2019-05-05
11:26
Updated release information file check-in: d7c35dde69 user: murphy tags: chicken-5
11:21
CHICKEN 5.0.2 compatibility patch (thanks to Peter Bex for spotting this) check-in: 934690e320 user: murphy tags: v1.2.1, chicken-5
2018-08-27
22:59
Support for nested generators in SRFI-4 comprehensions check-in: 416afe4af3 user: murphy tags: chicken-5
Changes
Hide Diffs Unified Diffs Show Whitespace Changes Patch

Changes to generic.scm.

101
102
103
104
105
106
107






108
109
110
111
112
113
114
115
116
117
118

119
120
121
122
123
124
125
...
213
214
215
216
217
218
219



220
221
222
223
224
225
226
          [imag (imag-part v)])
      (unless (zero? real)
        (write-tag/type 1 'sized port)
        (write-sized write-real real port))
      (unless (zero? imag)
        (write-tag/type 2 'sized port)
        (write-sized write-real imag port))))







  (define (write-symbol v port)
    (write-tag/type 1 'sized port)
    (write-sized-string (symbol->string v) port)
    (cond
     [(not (##sys#interned-symbol? v))
      (write-tag/type 2 'int* port)
      (write-int* 2 port)]
     [(keyword? v)
      (write-tag/type 2 'int* port)
      (write-int* 3 port)]))


  (define (write-pair v port)
    (write-tag/type 1 'sized port)
    (write-sized write-value (car v) port)
    (write-tag/type 2 'sized port)
    (write-sized write-value (cdr v) port))

................................................................................

     [(number? v)
      (write-tag/type 5 'sized port)
      (write-sized write-complex v port)]
     [(string? v)
      (write-tag/type 6 'sized port)
      (write-sized-string v port)]



     [(symbol? v)
      (write-tag/type 7 'sized port)
      (write-sized write-symbol v port)]
     [(pair? v)
      (write-tag/type 8 'sized port)
      (write-sized write-pair v port)]
     [(vector? v)







>
>
>
>
>
>




<
<
|
<
<
<
<
>







 







>
>
>







101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117


118




119
120
121
122
123
124
125
126
...
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
          [imag (imag-part v)])
      (unless (zero? real)
        (write-tag/type 1 'sized port)
        (write-sized write-real real port))
      (unless (zero? imag)
        (write-tag/type 2 'sized port)
        (write-sized write-real imag port))))

  (define (write-keyword v port)
    (write-tag/type 1 'sized port)
    (write-sized-string (symbol->string v) port)
    (write-tag/type 2 'int* port)
    (write-int* 3 port))

  (define (write-symbol v port)
    (write-tag/type 1 'sized port)
    (write-sized-string (symbol->string v) port)


    (write-tag/type 2 'int* port)




    (write-int* (if (##sys#interned-symbol? v) 1 2) port))

  (define (write-pair v port)
    (write-tag/type 1 'sized port)
    (write-sized write-value (car v) port)
    (write-tag/type 2 'sized port)
    (write-sized write-value (cdr v) port))

................................................................................

     [(number? v)
      (write-tag/type 5 'sized port)
      (write-sized write-complex v port)]
     [(string? v)
      (write-tag/type 6 'sized port)
      (write-sized-string v port)]
     [(keyword? v)
      (write-tag/type 7 'sized port)
      (write-sized write-keyword v port)]
     [(symbol? v)
      (write-tag/type 7 'sized port)
      (write-sized write-symbol v port)]
     [(pair? v)
      (write-tag/type 8 'sized port)
      (write-sized write-pair v port)]
     [(vector? v)

Changes to protobuf.egg.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
((category data io)
 (synopsis "Protocol buffer serialization")
 (author "Thomas Chust")
 (license "BSD")
 (version "1.2.0")
 (dependencies
   srfi-4
   srfi-13
   srfi-18
   srfi-42
   srfi-69
   srfi-99)
 (test-dependencies
   test)




|

<







1
2
3
4
5
6

7
8
9
10
11
12
13
((category data io)
 (synopsis "Protocol buffer serialization")
 (author "Thomas Chust")
 (license "BSD")
 (version "1.2.1")
 (dependencies

   srfi-13
   srfi-18
   srfi-42
   srfi-69
   srfi-99)
 (test-dependencies
   test)