osa1

#include <stdint.h>
#include <stdio.h>

// Most strictly aligned component has alignment 1, so all fields should be
// alignment by 1
struct S1
{
    uint8_t f1;
    uint8_t f2;
};

osa1

{-# OPTIONS_GHC -Wall #-}

-- Idea: A good runtime system makes event-based systems easier to implement.

--------------------------------------------------------------------------------

import Control.Concurrent (threadDelay)
import qualified Control.Concurrent.Async as A
import Control.Concurrent.MVar (MVar, newEmptyMVar, putMVar, takeMVar)
import Control.Monad (unless, void)

osa1

# vim
./configure --with-features=huge \
            --enable-gui=qt \
            --prefix=/home/omer \
            --enable-pythoninterp \
            --enable-python3interp \
            --enable-rubyinterp \
            --enable-perlinterp \
            --with-python-config-dir=/usr/lib64/python2.7/config \
            --with-python3-config-dir=/usr/lib64/python3.4/config-3.4m/

osa1

#include <assert.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/time.h>

typedef struct CursorCursorProd_struct {
    char *field0;
    char *field1;
} CursorCursorProd;

osa1

{-# OPTIONS_GHC -Wall #-}

{-# LANGUAGE BangPatterns        #-}
{-# LANGUAGE DeriveAnyClass      #-}
{-# LANGUAGE DeriveGeneric       #-}
{-# LANGUAGE OverloadedStrings   #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE ViewPatterns        #-}

-- | Definition of a lattice, as described in section 4.2.

osa1

mod macros;

#[macro_use]
pub mod reply;

#[cfg(test)]
mod tests {
    #[test]
    fn it_works() {
    }

osa1

// It turns out people don't really know how to handle Alt+ch, or F[1, 12] keys
// etc. in ncurses apps. Even StackOverflow is full of wrong answers and ideas.
// The key idea is to skip ncurses' key handling and read stuff from the stdin
// buffer manually. Here's a demo. Run this and start typing. ESC to exit.
//
// To compile:
//
// $ gcc demo.c -o demo -lncurses -std=gnu11

#include <ncurses.h>

osa1

Glasgow Haskell Compiler, Version 8.1.20160805, stage 2 booted by GHC version 8.0.1
Using binary package database: /home/omer/haskell/ghc_2/inplace/lib/package.conf.d/package.cache
loading package database /home/omer/haskell/ghc_2/inplace/lib/package.conf.d
wired-in package ghc-prim mapped to ghc-prim-0.5.0.0
wired-in package integer-gmp mapped to integer-gmp-1.0.0.1
wired-in package base mapped to base-4.9.0.0
wired-in package rts mapped to rts
wired-in package template-haskell mapped to template-haskell-2.11.0.0
wired-in package ghc mapped to ghc-8.1
wired-in package dph-seq not found.

osa1

typedef struct {
  StgInt closure_type_off;
  StgInt closure_desc_off;
} StgProfInfo;

extern StgWord16 closure_flags[];

typedef struct {
  StgWord size;
  StgWord bitmap[];

osa1

==================== STG syntax: ====================
2016-06-06 08:13:50.663576479 UTC

Main.$WCons [InlPrag=INLINE]
  :: forall a_art. a_art -> Main.List a_art -> Main.List a_art
[GblId[DataConWrapper],
 Arity=2,
 Caf=NoCafRefs,
 Str=DmdType <S,U><S,U>m1,