Nicolas Trangez NicolasT

Cloud-native product builder, former Principal Architect @scality. #Haskell'ist, music-lover and startup-minded.

NicolasT / testepoll.c

Created February 7, 2017 01:55

	/*
	* $ make testepoll CFLAGS="-Wall -Werror -ggdb3"
	*
	* One console:
	*
	* $ nc -l 8000
	*
	* Other console:
	*
	* $ ./testepoll

NicolasT / slice_xor.c

Created January 23, 2017 11:24

Slicing XOR hashing

	#include <stdint.h>
	#include <stdlib.h>
	#include <string.h>

	#include <x86intrin.h>
	#include <avx2intrin.h>

	#ifdef __cplusplus
	extern "C" {
	void slice_xor(const unsigned char data, size_t len, uint64_t p1, uint64_t *p2);

NicolasT / cryptosplice.c

Created May 10, 2016 17:52

Demonstration of splice, tee and AF_ALG hashing for zero-copy storage and data hash calculation

	/* Usage:
	*
	* $ make cryptosplice
	* cc cryptosplice.c -o cryptosplice
	*
	* $ rm -f cryptosplice.out
	* $ ./cryptosplice
	*
	* Now, in another terminal:
	*

NicolasT / .gitignore

Last active October 15, 2015 23:10

CRC32 benchmark

NicolasT / crc32_prop.hs

Created October 15, 2015 21:49

Combining intermediate CRC32 results

	module Main where

	import Data.Word (Word8, Word32)
	import Foreign.C (CUInt(..), CULong(..))
	import Foreign.Ptr (Ptr)
	import System.IO.Unsafe (unsafePerformIO)

	import qualified Data.ByteString as BS

	import Test.QuickCheck

NicolasT / .gitignore

Last active September 29, 2015 23:35

Vector XOR Benchmark Game

.stack-work/

NicolasT / langs.hs

Created September 16, 2015 10:35

	{-# LANGUAGE DataKinds #-}
	{-# LANGUAGE GADTs #-}
	{-# LANGUAGE KindSignatures #-}
	{-# LANGUAGE PolyKinds #-}
	{-# LANGUAGE ScopedTypeVariables #-}
	{-# LANGUAGE StandaloneDeriving #-}

	module Langs where

	import Data.Proxy

NicolasT / active.hs

Created September 8, 2015 22:54

Haskell representation of F#-style Active Patterns

	-- https://www.reddit.com/r/haskell/comments/3huexy/what_are_haskellers_critiques_of_f_and_ocaml/cuisrmj

	{-# LANGUAGE PatternSynonyms #-}
	{-# LANGUAGE ViewPatterns #-}

	module Main where

	import Text.Read (readMaybe)

	pattern Even <- ((`mod` 2) -> 0)

NicolasT / .gitignore

Last active August 31, 2015 22:24

Expressive logging with meta-data in C

	main
	*.o

NicolasT / .gitignore

Last active August 29, 2015 14:23

	preload-statfs.so
	test-preload-statfs