Changeset 15842 in project


Ignore:
Timestamp:
09/12/09 22:05:07 (10 years ago)
Author:
sjamaan
Message:

Remove some pointless tedious ugly code for converting attribute values to strings, and rely on the new uri-common 0.9 to do that automatically

Location:
release/4/estraier-client
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/estraier-client/estraier-client.meta

    r15778 r15842  
    44 (license "BSD")
    55 (doc-from-wiki)
    6  (needs http-client (uri-common 0.8) intarweb)
     6 (needs http-client (uri-common 0.9) intarweb)
    77 (test-depends test)
    88 (hidden)
  • release/4/estraier-client/estraier-client.scm

    r15839 r15842  
    8282(define (id/uri->alist id uri)
    8383  (cond
    84    ((and id (not uri)) `((id . ,(->string id))))
     84   ((and id (not uri)) `((id . ,id)))
    8585   ((and uri (not id)) `((uri . ,uri)))
    8686   (else (error "You must supply either an id or a uri"))))
     
    123123
    124124(define (list-documents node #!key max prev)
    125   (exec (node-uri node "list"
    126                   query: `((max . ,(and max (->string max))) (prev . ,prev)))
     125  (exec (node-uri node "list" query: `((max . ,max) (prev . ,prev)))
    127126        #f
    128127        (lambda (in)
     
    198197
    199198(define (document-attribute node attrib #!key id uri)
    200   (exec (node-uri node "get_doc_attr" query: (cons `(attr . ,(->string attrib))
     199  (exec (node-uri node "get_doc_attr" query: (cons `(attr . ,attrib)
    201200                                                   (id/uri->alist id uri)))
    202201        #f read-line))
     
    232231    values
    233232    (exec (node-uri node "search"
    234                     query: `((phrase . ,phrase)
    235                              (order . ,order)
    236                              (max . ,(and max (->string max)))
    237                              (options . ,(and options (->string options)))
    238                              (auxiliary . ,(and auxiliary (->string auxiliary)))
     233                    query: `((phrase . ,phrase) (order . ,order)
     234                             (max . ,max)       (options . ,options)
     235                             (depth . ,depth)   (wwidth . ,wwidth)
     236                             (hwidth . ,hwidth) (awidth . ,awidth)
     237                             (skip . ,skip)     (mask . ,mask)
     238                             (auxiliary . ,auxiliary)
    239239                             (distinct . ,distinct)
    240                              (depth . ,(and depth (->string depth)))
    241                              (wwidth . ,(and wwidth (->string wwidth)))
    242                              (hwidth . ,(and hwidth (->string hwidth)))
    243                              (awidth . ,(and awidth (->string awidth)))
    244                              (skip . ,(and skip (->string skip)))
    245                              (mask . ,(and mask (->string mask)))
    246240                             ,@attrs))
    247241          #f
     
    289283
    290284(define (_set-user node name mode)
    291   (exec (node-uri node "_set_user" query: `((name . ,name)
    292                                             (mode . ,(->string mode))))
     285  (exec (node-uri node "_set_user" query: `((name . ,name) (mode . ,mode)))
    293286        #f read-lines))
    294287
Note: See TracChangeset for help on using the changeset viewer.