rahulmutt

reading file "/home/ubuntu/Development/zig/heaptrack.zig0.17870.gz" - please wait, this might take some time...
Debuggee command was: /home/ubuntu/Development/zig/build/zig0 src/stage1.zig -target native -mcpu=baseline --name zig1 --zig-lib-dir /home/ubuntu/Development/zig/lib -femit-bin=/home/ubuntu/Development/zig/build/zig1.o -fcompiler-rt -lc --pkg-begin build_options /home/ubuntu/Development/zig/build/config.zig --pkg-end --pkg-begin compiler_rt /home/ubuntu/Development/zig/lib/std/special/compiler_rt.zig --pkg-end
finished reading file, now analyzing data:

MOST CALLS TO ALLOCATION FUNCTIONS
82221641 calls to allocation functions with 5.34G peak consumption from
mem::os::calloc(unsigned long, unsigned long)
  at /home/ubuntu/Development/zig/src/stage1/mem.hpp:71
  in /home/ubuntu/Development/zig/build/zig0
2369219 calls with 113.63M peak consumption from:

rahulmutt

{-# LANGUAGE TypeFamilies
           , DataKinds
           , PolyKinds
           , UndecidableInstances
           , DeriveGeneric
           , TypeOperators #-}
module Main where

import           GHC.Generics
import           GHC.TypeLits

rahulmutt

lift2 :: (Applicative f) = > (a -> b -> c) -> f a -> f b -> f c

----------

(\a -> State (\s -> (p a s, S.insert a s))) 

=> Split up s function into component-wise functions [Definition of lift2 for (->)]
   lift2 :: (a -> b -> c) -> (s -> a) -> (s -> b) -> (s -> c)
   lift2 :: (a -> b -> (a, b)) -> (s -> a) -> (s -> b) -> (s -> (a, b))

rahulmutt

Eta REPL already provides functionality for getting several bits of information about loaded source code, most of which is available after running :set +c.

• :load will do a -O0 compilation of the specified file and directly load the class files into the underlying eta-serv's JVM process's heap.

Documentation: https://downloads.haskell.org/~ghc/latest/docs/html/users_guide/ghci.html#ghci-cmd-:load

Implementation: https://github.com/typelead/eta/blob/master/eta/Eta/REPL/UI.hs#L1721-L1723

rahulmutt

charSeqToStringBuffer :: CharSequence -> StringBuffer
charSeqToStringBuffer cs = unsafePerformJava $ do
  bytes <- charSequenceBytes cs
  len   <- bytes <.> alength
  buf   <- mallocForeignPtrArray len
  io $ withForeignPtr buf $ putBytesIntoPtr bytes
  return $ StringBuffer { cur = 0, .. }


foreign import java unsafe "@static Utils.charSequenceBytes" charSequenceBytes

rahulmutt

Eta FFI Specification

Architecture

The Eta FFI Generator will consist of support from three components:

• The Eta compiler
• The Etlas build tool
• The eta-ffi tool

Eta Compiler

rahulmutt

public static class id extends Function {
  public Closure enter(StgContext context) {
    // context.R(2) is the first argument of the function
    // All id simply does is evaluate the argument -
    // it cannot do much more!
    return context.R(2).evaluate(context);
  }

  public int arity() { return 1; }
}

rahulmutt

#!/usr/bin/env stack
{- stack
     --resolver lts-6.27
     --install-ghc
     runghc
     --package containers
-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE DataKinds #-}

rahulmutt

module Example.Transform where

import Java

import Control.Lens
import Data.Aeson
import Data.Aeson.Lens
import Data.Text (Text)
import qualified Data.Text as T

rahulmutt

{
    "id": 1,
    "first_name": "Jerrold",
    "last_name": "Hache",
    "email": "[email protected]",
    "gender": "Male",
    "ip_address": "149.180.165.206",
    "events": {
        "clicks": 99
    }