danlei

(defpackage :newsgroups
  (:use :common-lisp :cl-ppcre :pcall))

(in-package :newsgroups)

(defun distribution (items)
  (loop with result = (make-hash-table :test #'equal)
        for item in items
        do (setf (gethash item result) (1+ (gethash item result 0)))
        finally (return result)))

danlei

----
---- loona.hs
----
---- Time-stamp: <2010-03-08 03:47:53 danlei>
----

module Loona
    where

import Text.ParserCombinators.Parsec

danlei

;;;;; -*- common-lisp -*-
;;;;;
;;;;; cl-init.lisp
;;;;;
;;;;; CL initialization file. Works for CCL, Allegro, CLISP, and
;;;;; probably SBCL.
;;;;;
;;;;; Time-stamp: <2013-01-27 01:35:53 dhl>
;;;;;

danlei

;;;;
;;;; cl-xine.lisp
;;;;
;;;; Time-stamp: <2008-11-09 11:23:11 danlei>
;;;;

(defpackage #:cl-xine
  (:use #:common-lisp
	#:cffi))

danlei

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

#include <glib.h>

// gcc -o gslist gslist.c `pkg-config --cflags --libs glib-2.0`

typedef struct {
  char *name;
  int size;

danlei

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

#include <glib.h>

typedef struct {
  char *name;
} Person;

void print_name(Person *pers) {

danlei

module ConstituentParser
    where

import Text.ParserCombinators.Parsec
import Control.Monad
import Control.Applicative ((<$>))


symbol = oneOf "!#$%&|*+-/:<=>?@^_~"

danlei

!!!!
!!!! .Xresources
!!!!
!!!! Time-stamp: <2010-07-25 01:22:58 danlei>
!!!!

!! xterm
XTerm*font:9x15
XTerm*background:black
XTerm*foreground:gray

danlei

(defvar mb-tab-width default-tab-width)

(defun mb-literal-tabs ()
  (interactive)
  (indent-tabs-mode 1)
  (local-set-key (kbd "TAB") 'self-insert-command)
  (setq tab-width mb-tab-width))

(add-hook 'html-mode-hook 'mb-literal-tabs)

danlei

;;;;
;;;; dhl-plink.el
;;;;
;;;; Time-stamp: <2010-09-11 23:58:02 danlei>
;;;;
;;;; (c) Daniel H. Leidisch
;;;;
;;;; License: LLGPL
;;;;