et4te

 
deleteBucket c b = do                                                                                                                                                                                     
  ks ← foldKeys c b (λ ks k → return (k:ks)) []                                                                                                                                                           
  mapM (λ k → deleteRV c b k) ks                                                                                                                                                                          
                                                                                                                                                                                                          
main = do                                                                                                                                                                                                 
  conn 

et4te

écrire en Français c'est pas si difficile que ca, c'est facile de\
 faire les accents. Ce qui est difficle c'est de trouvé les bon mots et \
corriger ce que l'on érit. Moi j'écrit le texte en HTML avant, et\
 après si j'ai besoin de l'exporter je peut. Ce lien te montre le messag\
e que j'ai écrit: https://gist.github.com/963699



Toi aussi tu peut le faire, si tu visite: http://webdesign.about.com/od/localization/l/blhtmlcodes-fr.htm

et4te

defmacro with-open-file { ?:var ?path is file-path ... } =>
  `def ?var = open(?path)
   ...
   close(?var)`

et4te

;;-- abstract state machine model                                                                                      
                                                                                                                       
;; types
defclass state
defclass input

def transition (state input)
  documentation: "Transition from a state to another state"

defmacro defstate { ?:name } =>

et4te

{-# LANGUAGE OverloadedStrings #-}
module MapReduce ( 
    queryGetMany
  , queryGetBucket
  , queryAuthUsers
  , queryAuthPToken
  ) where

import Data.Aeson
import Data.Aeson.Types

et4te

etate@etate-K61IC:~/snap-extension-riak-example$ mkdir config
etate@etate-K61IC:~/snap-extension-riak-example$ touch config/site-key.txt
etate@etate-K61IC:~/snap-extension-riak-example$ snap-extension-riak-example -p 8080
Initializing Heist/Impl... done.
Initializing Session/CookieSession... done.
Initializing Riak/Riak... done.
Initializing Timer/Timer... done.
Listening on http://0.0.0.0:8080/

et4te

;;--------------------------------------------------------------------
;;-- Types

;; slot-number type 
(defun within-slot-number-rangep (n)
  (not (or (< n 0) (> n 255))))

(deftype slot-number ()
  `(and fixnum (satisfies within-slot-number-rangep)))

et4te

USING: csv grouping io io.encodings.utf8 io.files namespaces sequences         
;
IN: csv-test

! ---------------------------------------------------------------------------  
: sample-data ( data -- )
    utf8 file-lines 4 group output-stream get write-csv ;

et4te

USING: io io.encodings.binary io.sockets byte-arrays.hex ;
IN: riak

! ----------------------------------------------------------------------------                                                                   
CONSTANT: rpb-ping-req  HEX{ 00 00 00 01 01 }
CONSTANT: rpb-ping-resp HEX{ 00 00 00 01 02 }
CONSTANT: rpb-get-client-id-req  HEX{ 00 00 00 01 03 }
CONSTANT: rpb-get-client-id-resp HEX{ 00 00 00 07 04 0A 04 01 65 01 B5 }

: request ( req -- resp )

et4te

USING: assocs byte-arrays.hex io io.binary io.encodings.binary                                                                  
io.sockets kernel sequences ;
IN: riak

! ----------------------------------------------------------------------------                                                  
CONSTANT: rpb-ping-req  HEX{ 00 00 00 01 01 }

: decode-ping-response ( -- n )
    0 ;