wavewave

{-# LANGUAGE RecordWildCards, DeriveDataTypeable, ScopedTypeVariables #-}

module Main where 

import           Control.Category
import           Control.Lens hiding ((<.>))
import qualified Data.ByteString.Char8 as B 
import           Data.Monoid 
import           Data.Time.Clock 
import           Graphics.Rendering.Cairo 

wavewave

import Control.Monad 
import Data.Int
import Data.Word
import LLVM.Core
import LLVM.ExecutionEngine
import Foreign.C.Types 

main = do 
  initializeNativeTarget 
  m <- readBitcodeFromFile "SFMT.bc"

wavewave

#ifndef __MACROPATTERNMATCH__
#define __MACROPATTERNMATCH__ 


#define CAT(a,...) PRIMITIVE_CAT(a, __VA_ARGS__ )
#define PRIMITIVE_CAT(a,...) a ## __VA_ARGS__ 

#define IIF(c) PRIMITIVE_CAT(IIF_, c)
#define IIF_0(t, ...) __VA_ARGS__
#define IIF_1(t, ...) t 

wavewave

{-# LANGUAGE OverloadedStrings #-}

import           Control.Applicative 
import           Data.Attoparsec
import qualified Data.Attoparsec.ByteString.Char8 as AC
import qualified Data.ByteString as B
import qualified Data.ByteString.Char8 as C
import           Data.List 
import           Data.Monoid
import           System.Environment

wavewave

import Control.Concurrent 
import Control.Monad
import Control.Monad.Loops
import System.IO 
import System.Posix.Files 

main = do 
  -- createNamedPipe "/tmp/test.fifo" $ unionFileModes ownerReadMode ownerWriteMode
  -- forever (hGetLine pipe >>= putStrLn) 

wavewave

{-# LANGUAGE ScopedTypeVariables #-}

import Control.Concurrent
import Control.Monad
import Control.Monad.Loops 
import qualified Data.ByteString.Lazy as B
import Data.Monoid
-- import Data.UUID
import Data.UUID.V4 
import Graphics.Rendering.Cairo 

wavewave

-- 
-- drag and drop test gist
-- 
-- created by D.Wagner
-- 

import Control.Monad.IO.Class
import Graphics.UI.Gtk 

main = do 

wavewave

{-# LANGUAGE PackageImports #-}

module Main where

import Control.Applicative
import Control.Monad
import "mtl" Control.Monad.Reader 
import "mtl" Control.Monad.Error
import System.FilePath 
import System.Directory 

wavewave

{-# LANGUAGE RecordWildCards, GADTs #-}

import Codec.Compression.GZip
import Control.Applicative
import Control.Monad
import qualified Data.ByteString.Lazy.Char8 as LB
import Data.Function (on)
import Data.List
import Data.Maybe
-- 

wavewave

import Control.Concurrent
import System.IO
import System.Posix.Files 
import System.Posix.IO 
import System.Posix.Types

main = do 
    putStrLn "file lock test" 
    let fp = "test.txt"
    fd <- openFd fp ReadWrite mode defaultFileFlags