phoe

;;; Matrix utilities.

(defun matrix= (matrix-1 matrix-2)
  (destructuring-bind (m1y m1x) (array-dimensions matrix-1)
    (destructuring-bind (m2y m2x) (array-dimensions matrix-2)
      (and (= m1y m2y)
           (= m1x m2x)
           (loop for y below m1y
                 always (loop for x below m1x
                              always (= (aref matrix-1 y x)

phoe

// based on a keyboard map from an 'xkb/symbols/pl' file

default  partial alphanumeric_keys
xkb_symbols "basic" {

    // Visualisation and description: http://podziemie.net/xkb/pl
    // Contact: Michał Górny <zrchos+freedesktop@gmail.com>

    include "latin"

phoe

(defun ssl-connect () ;; this is a god damn hack
  (let* ((socket (usocket:socket-connect "lightbringer.furcadia.com" 80))
         (stream (usocket:socket-stream socket)))
    (sleep 1)
    (loop while (listen stream)
          for line = (read-line stream nil stream)
          until (eq line stream)
          do (format t "S> ~A~%" line))
    (format t "C> ~A~%" "starttls")
    (format stream "starttls~C~C" #\Return #\Linefeed)

phoe

List otwarty

prof. dr hab. Włodzimierz Zwonek
Dziekan Wydziału Matematyki i Informatyki
Uniwersytetu Jagiellońskiego
Łojasiewicza 6
30-348 Kraków

Szanowny Panie Dziekanie,

phoe

Qtools UI - Drag and Drop

This module contains classes implementing drag and drop functionality inside Qtools UI.

Concept

Drag and drop functionality in Qt revolves around MIME types. A single drag can contain data in multiple formats, each of them described by a single MIME type in form of a string.

For simplicity, the mechanism used in this implementation uses only a single MIME type, which, by default, is "application/qtools-mime-data-with-object", being the value of *MIME-DATA-WITH-OBJECT-TYPE*.

phoe

;; NOTE: absolutely non-portable

* (sb-alien:alien-funcall 
   (sb-alien:extern-alien "syscall" (function sb-alien:unsigned int)) 186)
3288 ;; this is the correct PID of the main SBCL thread

* (bt:make-thread (lambda () 
                    (sb-alien:alien-funcall 
                     (sb-alien:extern-alien "syscall"  (function sb-alien:unsigned int)) 186)))
#<SB-THREAD:THREAD "Anonymous thread" FINISHED values: 3412 {100364B363}> 

phoe

Kitterspeak Reference

This document is meant to be a reference for users and implementers of Kitterspeak, a scripting language for animating graphical shapes used by the MMOSG Furcadia.

Quick jump

• Concept
• Delay mechanism
• Structure
  • Internal structure
• Rules
• Frame order

phoe

;;; (ql:quickload :qtools)

(defmacro with-qimage-from-vector ((image-var vector width height) &body body)
  "Establishes a lexical environment, in which IMAGE-VAR is bound to a QImage
created from the ARGB contents of VECTOR, with width WIDTH and height HEIGHT."
  (with-gensyms (length v)
    `(let* ((,length (array-dimension ,vector 0))
            (,v (make-static-vector ,length :initial-contents vector)))
       (unwind-protect
            (with-finalizing

phoe

;;;; CL-FOX5 2017 © Michał "phoe" Herda
;;;; MIT license

;; (ql:quickload :fast-io)
;; (ql:quickload :cl-lzma)
;; (ql:quickload :alexandria)

;;; UTILS

(defun make-byte-array (n &rest options)

phoe

contrib/swank-arglists.lisp:1136:(defslimefun autodoc (raw-form &key print-right-margin)
contrib/swank-arglists.lisp:1185:(defslimefun complete-form (raw-form)
contrib/swank-arglists.lisp:1201:(defslimefun completions-for-keyword (keyword-string raw-form)
contrib/swank-asdf.lisp:335:(defslimefun who-depends-on (system)
contrib/swank-asdf.lisp:362:(defslimefun operate-on-system-for-emacs (system-name operation &rest keywords)
contrib/swank-asdf.lisp:385:(defslimefun list-all-systems-in-central-registry ()
contrib/swank-asdf.lisp:408:(defslimefun list-all-systems-known-to-asdf ()
contrib/swank-asdf.lisp:413:(defslimefun list-asdf-systems ()
contrib/swank-asdf.lisp:438:(defslimefun asdf-system-files (name)
contrib/swank-asdf.lisp:451:(defslimefun asdf-system-loaded-p (name)