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)

samdphillips

#lang racket/base

;; uses https://github.com/samdphillips/racket-syncvar

(require racket/contract
         racket/match
         "ivar.rkt")

(provide mcast-channel?
         mcast-output?

samdphillips

#lang racket/base

(require racket/exn
         racket/set
         "util.rkt")

(provide supervise)

(define-logger supervise)