jeremyjh

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE FunctionalDependencies #-}
{-# LANGUAGE FlexibleInstances #-}

module Main where

import Control.Lens

declareFields [d|

jeremyjh

globalMonitor :: Process ()
globalMonitor = do
    let initState = [] :: [MxEvent]
    void $ mxAgent (MxAgentId "lifecycle-listener-agent") initState [
        mxSink $ \ev -> do
           let act =
                 case ev of

                   (MxProcessDied pid (DiedException msg)) -> liftMX $ say $ debug $ "[Error] " ++ show pid ++  " DiedException: " ++ msg
                   (MxProcessDied pid DiedDisconnect) -> liftMX $ say $ show pid ++ " DiedDisconnect"

jeremyjh

/* 
 * File:   cocos_ref.h
 * Author: jeremy
 *
 * Created on June 28, 2014, 8:38 PM
 */

#ifndef COCOS_REF_H
#define	COCOS_REF_H

jeremyjh

extern crate rand;

use std::thread;
use std::sync::Arc;
use std::sync::mpsc::{Sender, Receiver, channel};
use rand::Rng;


fn main() {
    let waiter = Waiter::new();

jeremyjh

desc "Regenerate tags (CTAGS)"
task :ctags do
  puts " * Regenerating Tags"
  excludes = %w{
      .git
      .git*
      *.yml
      app/views
      app/assets
      coverage

jeremyjh

-- Functions intended to make it easier to work with distributed-process
-- from the REPL.

module NodeProcess where


import Control.Distributed.Process
import Control.Distributed.Process.Serializable
import Control.Concurrent.MVar
import Control.Concurrent (threadDelay)

jeremyjh

defmodule BigappWeb do
  @moduledoc """
  The entrypoint for defining your web interface, such
  as controllers, views, channels and so on.

  This can be used in your application as:

      use BigappWeb, :controller
      use BigappWeb, :view

jeremyjh

  def view(opts) do
    quote do
      use Phoenix.View, unquote(opts)

      # Import convenience functions from controllers
      ...

jeremyjh

  def view(opts \\
      [root: "lib/bigapp_web/templates",
       namespace: BigappWeb]) do
    quote do
      use Phoenix.View, unquote(opts)

jeremyjh

  @webdir "bigapp_web"

  @doc """
  When used, dispatch to the appropriate controller/view/etc.
  """
  defmacro __using__(:view) do
    view_path =
      __CALLER__.file
      |> String.split(@webdir)
      |> List.last