alexander-yakushev

;;; javad.el --- Java decompiler

(defun javad-buffer ()
  "run jad on contents of buffer"
  (interactive)
  (lexical-let* ((f-name (buffer-file-name))
                 (new-f-name (concat temporary-file-directory "jad/" (file-name-base f-name) ".jad"))
                 (old-buf (buffer-name))
                 (done (lambda (&rest args)
                         (interactive)

alexander-yakushev

(ns test.leindroid.sample.main
  (:use [neko.activity :only [defactivity set-content-view!]]
        [neko.threading :only [on-ui]]
        [neko.ui :only [make-ui]])
  (:import android.widget.EditText
           android.net.Uri
           android.content.Intent))

(declare ^EditText edit
         ^android.app.Activity a)

alexander-yakushev

-- Automatically downloads and sets wallpapers from 4walled.com.
-- Requires asyncshell (https://gist.github.com/alexander-yakushev/1466863)
-- For configuration details see http://awesome.naquadah.org/wiki/Picturesque
-- How to use:
--    local picturesque = require('picturesque')
--    local t = timer { timeout = 3600 }
--    t:connect_signal("timeout", picturesque.change_image)
--    t:start()

local awful = require('awful')

alexander-yakushev

(def c (a/chan 10 cat))

(go-loop [i 0]
  (let [batch (range i (+ i 3))]
    (when (>! c batch)
      (println "Put succeeded:" batch)
      (recur (+ i 3)))))

;; Put succeeded: (0 1 2)
;; Put succeeded: (3 4 5)

alexander-yakushev

-- Toggable tray, for those who don't like to see it all the time.
-- http://awesome.naquadah.org/wiki/Minitray
-- Usage: after requiring a module, bind minitray.toggle() to a key.

local wibox = require("wibox")

-- Module minitray
local minitray = { geometry = {} }

local function show()

alexander-yakushev

(ns tetris.core
  (:import (java.awt Color Dimension BorderLayout)
    (javax.swing JPanel JFrame JOptionPane JButton JLabel)
    (java.awt.event KeyListener))
  (:use clojure.contrib.import-static deflayout.core
        clojure.contrib.swing-utils)
  (:gen-class))

(import-static java.awt.event.KeyEvent VK_LEFT VK_RIGHT VK_DOWN VK_UP VK_SPACE)

alexander-yakushev

(set-env!
 :dependencies
 '[[http-kit "LATEST"]
   [hiccup "LATEST"]
   [cheshire "LATEST"]
   [compojure "LATEST"]])

alexander-yakushev

package bench;

import org.openjdk.jmh.annotations.*;
import org.openjdk.jmh.infra.Blackhole;
import java.util.concurrent.*;
import io.lacuna.bifurcan.LinearMap;

@BenchmarkMode(Mode.AverageTime)
@Warmup(iterations = 3, time = 5, timeUnit = TimeUnit.SECONDS)
@Measurement(iterations = 5, time = 5, timeUnit = TimeUnit.SECONDS)

alexander-yakushev

Trigger: Free (5631M) is below minimum threshold (5632M)
Free: 5631M (460 regions), Max regular: 16384K, Max humongous: 425984K, External frag: 93%, Internal frag: 23%
Evacuation Reserve: 2816M (176 regions), Max regular: 16384K
2019-01-08T16:47:04.358+0000: 340115.832: [Concurrent resetUsing 25 of 25 workers for concurrent reset
Failed to allocate 2048K
Cancelling GC: Allocation Failure
 46G->52G(55G), 11069.097 ms]
2019-01-08T16:47:15.433+0000: 340126.907: [Pause Init Mark (process weakrefs)Using 25 of 25 workers for init marking
Pacer for Mark. Expected Live: 1917M, Free: 0M, Non-Taxable: 0M, Alloc Tax Rate: infx
, 4.328 ms]

alexander-yakushev

Trigger: Free (5628M) is below minimum threshold (5632M)
Free: 5628M (475 regions), Max regular: 16384K, Max humongous: 1032192K, External frag: 83%, Internal frag: 25%
Evacuation Reserve: 2816M (176 regions), Max regular: 16384K
2019-01-07T18:02:57.639+0000: 258123.203: [Concurrent resetUsing 25 of 25 workers for concurrent reset
 46G->46G(55G), 13.614 ms]
2019-01-07T18:02:57.657+0000: 258123.220: [Pause Init MarkUsing 25 of 25 workers for init marking
Pacer for Mark. Expected Live: 1626M, Free: 5597M, Non-Taxable: 559M, Alloc Tax Rate: 1.1x
, 2.929 ms]
2019-01-07T18:02:57.660+0000: 258123.223: [Concurrent markingUsing 25 of 25 workers for concurrent marking
 46G->47G(55G), 102.880 ms]