hraban

(defmacro make-coroutine ((&key (coroutine-done-value :done)) &body body)
  (alexandria:with-gensyms ((thrfn "thread body")
			    (c "channel"))
    `(let* ((,c (make-instance 'chanl:bounded-channel))
	    (,thrfn (lambda ()	  
		      (flet ((yield (&optional n)
			       (chanl:send ,c n)))
			,@body
			(yield ,coroutine-done-value)))))
       (let ((alive-p T) val thr)

hraban

using System;
using System.Threading;

namespace Locking
{
    internal interface IWaitableLock
    {
        /// <summary>
        /// Acquire the lock.
        /// </summary>

hraban

	.file	"test.c"
	.text
	.type	a, @function
a:
.LFB0:
	.cfi_startproc
	pushq	%rbp
	.cfi_def_cfa_offset 16
	movq	%rsp, %rbp
	.cfi_offset 6, -16

hraban

(add-to-list 'load-path "~/.emacs.d/plugins")

;; cl-* functions and macros
(require 'cl)

(cl-defmacro if-exists ((var fname) &rest body)
  `(let ((,var ,fname))
     (when (file-exists-p ,var)
       ,@body)))

hraban

        .file   "test.c"
        .text
        .p2align 4,,15
.globl my_test
        .type   my_test, @function
my_test:
.LFB11:
        .cfi_startproc
        subq    $8, %rsp
        .cfi_def_cfa_offset 16

hraban

        .file   "test.c"
        .text
        .p2align 4,,15
.globl inline_value_proper
        .type   inline_value_proper, @function
inline_value_proper:
.LFB7:
        .cfi_startproc
        movl    $5000, %eax
        ret

hraban

#include <assert.h>
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>

#define BUF_SIZE 256

/* source and destination buffers MUST NOT overlap */
char *
prune_spaces(char * dst, size_t dst_len, const char * src)

hraban

#!/usr/bin/env python

class Node(object):
    def __init__(self, name, next=None):
        self.next = next
        self.name = name
        self.l = 1 if next is None else next.l + 1

    def __iter__(self,):
        cur = self

hraban

package main

import (
        "fmt"
        "runtime"
        "time"
        "unsafe"
)

type foo struct {

hraban

<?php
define("UPLOAD_DIR", "/tmp/pobox-uploads/");
define("CODE", "secretcodehere");

if ($_SERVER['REQUEST_METHOD'] == "POST") {
    if ($_POST["code"] !== CODE) {
        die("upload denied: illegal code");
    }

    if (!(is_dir(UPLOAD_DIR) || mkdir(UPLOAD_DIR, 0700))) {