dmitryvk

#!/usr/bin/python
import re
import random
import json

class Lexicon:
    def __init__(self):
        self.pos = {}
    def add_pos_tag(self, word, tag):
        self.pos[word.lower()] = tag

dmitryvk

#include <gtk/gtk.h>

int main (int argc, char * argv[])
{
  gtk_init(&argc, &argv);

  GtkListStore* store = gtk_list_store_new(1, G_TYPE_VALUE);
  GValue v = { 0 };
  GtkTreeIter iter;
  gtk_list_store_append(store, &iter);

dmitryvk

#!/bin/sh
echo '#include <boost/date_time/gregorian/gregorian.hpp>' > pch-benchmark.h
echo '#include "pch-benchmark.h"' > pch-benchmark.cpp
rm -fv pch-benchmark.h.gch pch-benchmark.o

echo -n "bare preprocessing (with cpp): "
time=$((time cpp pch-benchmark.cpp > /dev/null) 2>&1 | grep real | cut -f 2)
echo $time

echo -n "bare preprocessing (with g++ -E): "

dmitryvk

(defpackage #:q
  (:use #:cl #:gtk)
  (:export #:main))

(in-package #:q)

(defstruct line-width
  title width)

(defun main ()

dmitryvk

(defpackage #:q
  (:use #:cl #:gtk)
  (:export #:main))

(in-package #:q)

(defun main ()
  (within-main-loop
    (let ((scale (make-instance 'v-scale
                                :adjustment (make-instance 'adjustment

dmitryvk

#include <stdio.h>
#include <pthread.h>

struct data {
  int c1;
  int padding[1024*1024*64];
  int c2;
} data;

int repeats = 1;

dmitryvk

;(sb-alien:define-alien-routine ("odprint" odprint) sb-alien:void (msg sb-alien:c-string))

(defun cons-lot (stream char)
  ;(odprint (format nil "in cons-lot, char is ~A" char))
  (sleep 2)
  (loop
    (loop repeat 1
      for ar = (make-array (* 1024 1024 1) :initial-element 0)
      do (loop for i from 0 below (length ar) do (setf (aref ar i) 123)))
    (format stream "~A" char)

dmitryvk

//Built with `g++-3 -Wall -g -O2 -o test-sockets.exe -mno-cygwin test-sockets.cpp -l ws2_32`


#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#include <Winsock2.h>

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

dmitryvk

(in-package :lisp-ide)

(defparameter *src-location* (asdf:component-pathname (asdf:find-system :lisp-ide)))

(defclass listener ()
  ((window :reader listener-window)
   (package-label :reader listener-package-label)
   (history-text-view :reader listener-history-text-view)
   (next-command-text-view :reader listener-next-command-text-view)
   (package :initarg :package :initform (find-package :cl-user) :accessor listener-package)))