peteb

#!/usr/bin/env ruby

require 'erb'
require 'open3'

# == Code generation ====================================================================================
def scenario_multi_call(callsite_count)
  ERB.new(<<-HERE).result(binding)
    #include "continuable/continuable.hpp"

peteb

int hash(const char *data) {
  const char *pos = data;
  int bit_num = 1;
  int xored = 0;

  while (*pos) {
    int value = (int)*pos << bit_num;
    int msb = value >> 15;
    value = (value & 0x7FFF) | msb;

peteb

#include <iostream>

int main() {
  std::cout << &1["strump"] << std::endl;
}

peteb

def esc(text)
  text.upcase
end

def esc_sub(text, patterns)
  patterns.each do |pattern, replacement|
    if text =~ /^(.*)#{pattern}(.*)$/
      return [esc_sub($1, patterns), replacement, esc_sub($2, patterns)].join
    end
  end  

peteb

nums = (1..3).to_a
nums.zip(nums.drop(1)).map { |_, x2| x2 }  #=> [2, 3, nil]

peteb

@implementation NSArray (FunctionalKit)

- (NSDictionary *)collectWithBlock:(id (^)(id value)) valueIdentifier {
   NSMutableDictionary *dict = [NSMutableDictionary new];
   
   for (id object in self) {
      id ident = valueIdentifier(object);
      NSMutableArray *array = [dict objectForKey:ident];
      
      if (!array) {

peteb

#include <stdio.h>
#include <inttypes.h>

typedef struct node {
    void *link;
    int value;
} node_t;

#define LINK(prev, next) (void *)((uintptr_t)(prev) ^ (uintptr_t)(next))

peteb

#include <iostream>
#include <vector>
#include <string>
#include <algorithm>

namespace {
    std::string rotl(const std::string &s) {
        return s.substr(1) + s.at(0);
    }
}

peteb

alias mkc "mkdir \!^ && cd \!^"
alias mkt 'cd `~/bin/mktest`'

peteb

<% 
#include <stdio.h> 

GLOBAL_SYM(add);
%>

val my_printer = fun(a) => <%|a|
  printf("--> %p\n", a);
  //RET(string_object("en katt"));
  object_t params = array_object(1);