samdphillips

#lang racket/base

(require ffi/unsafe
         ffi/unsafe/custodian
         ffi/unsafe/define
         ffi/unsafe/schedule
         racket/struct)

(provide evdev-open
         evdev-read

samdphillips

(define (poll-evt poll-thunk
                  #:interval [interval-thunk (const 1000)]
                  #:cleanup  [cleanup-thunk  void])
  (poll-guard-evt
    (lambda (polling?)
      (if polling?
          (cond [(poll-thunk) =>
                 (lambda (v)
                   (wrap-evt always-evt (const v)))]
                [else never-evt])

samdphillips

(define-syntax-parse-rule (with-env ([var val] ...) body ...+)
  (call-with-env
   (make-environment-variables
    (~@ (string->bytes/locale var)
        (string->bytes/locale val)) ...)
   (λ () body ...)))

samdphillips

#lang racket/base

;; Works on Linux, doesn't work on Mac?  More minimal version.

(require ffi/unsafe
         ffi/unsafe/define)

(define-ffi-definer define-curl (ffi-lib "libcurl"))

(define CURL_GLOBAL_ALL #b11)

samdphillips

#lang racket/base

;; Works on Linux, doesn't work on Mac?

(require ffi/unsafe
         ffi/unsafe/define)

(define-ffi-definer define-curl (ffi-lib "libcurl")
  #:provide provide-protected)

samdphillips

#lang racket/base

(require (for-syntax racket/base
                     syntax/parse)
         racket/stxparam

         (only-in racket/format ~r)
         (only-in racket/port
                  call-with-input-bytes
                  call-with-input-string

samdphillips

Python allows a codec directive at the start of a file which allows for a hook to rewrite the content.

Here are some uses I've found of this in the wild using this github query.

• python-parsing-shenanigans - basic demonstration of the technique
• InlineC
• Pyxl4 - Embedding HTML in python
• Tilde - Supporting pattern matching
• future-fstrings - a package for supporting fstrings in older versions of Python 3.
• pythonql - embedding a LINQ like query language in Python
• dansk.py - translate Python keywords to Danish

samdphillips

#lang racket

(define-logger workin)

(struct queue (fore aft))

(define (enqueue q w)
  (match q
    [(queue a d) (queue a (cons w d))]))

samdphillips

#lang rhombus/static/and_meta

import:
  lib("racket/stream.rkt")

export:
  Stream

meta:
  namespace Stream:

samdphillips

#lang racket/base

(require mzlib/thread
         racket/match
         racket/port
         racket/string
         "mcast-channel.rkt")

(define-logger chat-server)