joeyadams

-- This gist provides a function to serialize JSON with indentation.  It uses the type's
-- toEncoding implementation, meaning it follows the property order defined by the type
-- when ToJSON is implemented with genericToEncoding.
--
-- See below for an example and license information.
--
{-# LANGUAGE DerivingVia #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NoFieldSelectors #-}
{-# LANGUAGE OverloadedRecordDot #-}

joeyadams

{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE ScopedTypeVariables #-}

import Prelude hiding (log)

import Control.Concurrent
import Control.Exception
import Control.Monad

joeyadams

#include <stdio.h>
#include <WinSock2.h>
#include <MSWSock.h>
#include <WS2tcpip.h>

#pragma comment(lib, "Ws2_32.lib")

struct mswsock_s {
    LPFN_CONNECTEX ConnectEx;
} mswsock;

joeyadams

#!/bin/bash

if [ $# -lt 1 ] ; then
	echo "Usage: $0 ./command" >& 2
	exit 1
fi

if [ $# -eq 1 ] ; then
	if [ ! -f "$(which "$1" 2>/dev/null)" ] ; then
		if [ -f "./$1" ] ; then

joeyadams

/*
  Copyright (C) 2011 Joseph A. Adams (joeyadams3.14159@gmail.com)
  All rights reserved.

  Permission is hereby granted, free of charge, to any person obtaining a copy
  of this software and associated documentation files (the "Software"), to deal
  in the Software without restriction, including without limitation the rights
  to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
  copies of the Software, and to permit persons to whom the Software is
  furnished to do so, subject to the following conditions:

joeyadams

import Prelude hiding (catch)

import Control.Applicative
import Control.Exception
import System.Directory
import System.Exit
import System.FilePath
import System.Posix.Files
import System.Random

joeyadams

/*
 * Copyright (C) 2011 Joseph Adams <joeyadams3.14159@gmail.com>
 * 
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 * 

joeyadams

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

void sort(const char **strings, size_t count, const char **out);

/* Macros grabbed from my darray module:
 *     http://ccan.ozlabs.org/info/darray.html */
#define darray(type) struct {type *item; size_t size; size_t alloc;}
#define darray_new() {0,0,0}

joeyadams

/*
 * Generate 1,000,000 lines of pseudorandom text.
 * Each line matches ([\x20-\x7E]|[\xA0-\xFF]){0,127}\n
 *
 * sha256sum of output:
 *    64a9d302d9fc1d0dc9d351c706153dfdd7821182ac8c3d7ed5581850c13ae240
 *
 * sha256sum of output, sorted with LC_ALL=C sort :
 *    6e1e5b2cdb848c02c304d08c565dbd34d394b5ee322019098e10a5b7210f314b
 */

joeyadams

/*
 * Copyright (C) 2011 Joseph Adams <joeyadams3.14159@gmail.com>
 * 
 * Permission is hereby granted, free of charge, to any person obtaining a copy
 * of this software and associated documentation files (the "Software"), to deal
 * in the Software without restriction, including without limitation the rights
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
 * copies of the Software, and to permit persons to whom the Software is
 * furnished to do so, subject to the following conditions:
 *