maurer

{stdenv, libxml2, fetchurl}:

stdenv.mkDerivation rec {
  name = "igraph";
  version = "0.7.1";
  buildInputs = [libxml2];
  src = fetchurl {
    url = "http://igraph.org/nightly/get/c/igraph-0.7.1.tar.gz";
    sha256 = "1pxh8sdlirgvbvsw8v65h6prn7hlm45bfsl1yfcgd6rn4w706y6r";
  };

maurer

@0xaaef86128cdda946;

using Schema = import "schema.capnp";

interface Holmes {
  # Capnproto Type Description
  using Node = Schema.Node;

  # Dynamically typed holmes value (a pointer to anything non interface)
  using Val = AnyPointer;

maurer

extern crate capnpc;
use std::path::Path;

fn main() {
  ::capnpc::compile(Path::new("src"),
                    &[Path::new("src/holmes.capnp"),
                      Path::new("src/schema.capnp")]).unwrap();
}

maurer

[maurer@fragarach:~/Development/PersonalServices/irc]$ gcloud compute zones list
> NAME           REGION       STATUS NEXT_MAINTENANCE TURNDOWN_DATE
> asia-east1-c   asia-east1   UP
> asia-east1-a   asia-east1   UP
> asia-east1-b   asia-east1   UP
> europe-west1-d europe-west1 UP
> europe-west1-b europe-west1 UP
> europe-west1-c europe-west1 UP
> us-central1-b  us-central1  UP
> us-central1-c  us-central1  UP

maurer

{-
This works.
-}
{-
This doesn't: let x = y in z
-}

maurer

{-
This works.
-}
{-
This doesn't: let x = y in z
-}

maurer

echo isrs: # Handle to table
for n in `seq 0 255` # For each possible IRQ
do
echo .long isr_$n # emit a function pointer
done

maurer

running> *** ASSERTION ERROR:
  in /disk2/mp-local/simics-4.0/src/cpu/x86/p2_processor_class.c:2352
Simics core: 2590 Tue Dec 22 18:05:09 2009
Module:      2589 Wed Dec 16 18:05:13 2009
Please report this.
Simics will now self-signal an abort.
Abort (SIGABRT) in main thread
#0  0x00007f3d55e04a45 in gsignal + 0x35 (/lib64/libc.so.6 + 0x32a45)
#1  0x00007f3d55e4e6a0 in __default_morecore + 0x0 (/lib64/libc.so.6 + 0x7c6a0)
#2  0x00007f3d5615d8e3 in _IO_2_1_stderr_ + 0x83 (/lib64/libc.so.6 + 0x38b8e3)

maurer

maurer@caladbolg ~/CMU/411/lab1/haskell/bin $ ls -gh
total 0
lrwxrwxrwx 1 maurer 21 Aug 12 15:44 c0c -> ../dist/build/c0c/c0c
lrwxrwxrwx 1 maurer  3 Aug 12 15:45 l1c -> c0c
lrwxrwxrwx 1 maurer  3 Aug 12 15:45 l2c -> c0c
lrwxrwxrwx 1 maurer  3 Aug 12 15:45 l3c -> c0c
lrwxrwxrwx 1 maurer  3 Aug 12 15:45 l4c -> c0c
lrwxrwxrwx 1 maurer  3 Aug 12 15:45 l5c -> c0c

maurer

open Core_kernel.Std

(* Make a persistent graph where:
   A -> B
   B -> C
   C -> B *)
module G = Graph.Persistent.Digraph.ConcreteBidirectional(String)
let g = List.fold [("A", "B"); ("B", "C"); ("C", "B")] ~f:(fun g (x, y) ->
  G.add_edge g x y) ~init:G.empty;;