dmitryvk

$ cd ~/.mozilla/firefox/*.default
$ $ sqlite3 places.sqlite "select date(t0.visit_date / 1000000, 'unixepoch', 'localtime'), count(*) from moz_historyvisits t0 join moz_places t1 on t0.place_id=t1.id and t1.url='http://twitter.com/' group by date(t0.visit_date / 1000000, 'unixepoch', 'localtime') order by 1 desc limit 10"
2014-10-08|5
2014-10-07|12
2014-10-06|2
2014-10-05|3
2014-10-04|4
2014-10-03|13
2014-10-02|8
2014-10-01|10

dmitryvk

$ cd ~/.config/chromium/Default
$ sqlite3 History "select date(t0.visit_time / 1000000 - 11644473600, 'unixepoch', 'localtime'), count(*) from visits t0 join urls t1 on t0.url=t1.id and t1.url='https://twitter.com/' group by 1 order by 1 desc limit 10"
$ sqlite3 "Archived History" "select date(t0.visit_time / 1000000 - 11644473600, 'unixepoch', 'localtime'), count(*) from visits t0 join urls t1 on t0.url=t1.id and t1.url='https://twitter.com/' group by 1 order by 1 desc limit 10"
2013-06-19|1
2013-06-18|8
2013-06-17|35
2013-06-16|3
2013-06-15|11
2013-06-14|30
2013-06-13|34

dmitryvk

tree grammar HqlSqlWalker options {language=CSharp3; output=AST; tokenVocab=Hql; ASTLabelType=IASTNode; } ;

public statement : selectStatement | updateStatement
                  | deleteStatement | insertStatement;
selectStatement : query ;
updateStatement : ^(UPDATE VERSIONED? fromClause setClause whereClause?);
deleteStatement : ^(DELETE fromClause whereClause?) ;
insertStatement : ^(INSERT intoClause query) ;
intoClause : ^(INTO path insertablePropertySpec) ;
insertablePropertySpec : ^(RANGE IDENT+);

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)))

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

;(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

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

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

int repeats = 1;

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

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

(in-package #:q)

(defstruct line-width
  title width)

(defun main ()

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): "