LeifAndersen

BEGIN:VCALENDAR
VERSION:2.0
PRODID:-//researchr.org//conf.researchr.org//EN
CALSCALE:GREGORIAN

BEGIN:VEVENT
DTSTART:20181104T133000Z
DTEND:20181104T140000Z
DTSTAMP:20181023T192926Z
UID:7b8d288d-3afc-47da-aadd-1bedc3362621@conf.researchr.org

LeifAndersen

BEGIN:VCALENDAR
VERSION:2.0
PRODID:-//researchr.org//conf.researchr.org//EN
CALSCALE:GREGORIAN

BEGIN:VEVENT
DTSTART:20181104T133000Z
DTEND:20181104T140000Z
DTSTAMP:20181023T192926Z
UID:7b8d288d-3afc-47da-aadd-1bedc3362621@conf.researchr.org

LeifAndersen

#lang racket

(require ffi/unsafe)

(define (addrof v) (cast v _pointer _intptr))

(define x (malloc _int 'interior))
(ptr-set! x _int 3)
(define y (malloc _int 'interior))
(ptr-set! y _int 5)

LeifAndersen

(module serialize-structs '#%kernel
  
  (#%declare #:cross-phase-persistent)

  ;; Exports just the structre info, which is needed in
  ;;  "class.rkt" (which is, in turn, ultimately required by
  ;;  "serialize.rkt")

  (#%provide (protect (all-defined)))
  

LeifAndersen

#lang racket

;; crosser.rkt
#|
(module crosser '#%kernel
  (#%declare #:cross-phase-persistent)
  (define-values (prop:p p? ~p) (make-struct-type-property 'p))
  (#%provide (protect (all-defined))))
|#

LeifAndersen

#lang scratch

(define old-hash
  (hash 1 2 3 4))

(define (my-updater k v)
  (values k "blue"))

(for/hash ([(k v) (in-hash old-hash)])
  (my-updater k v))

LeifAndersen

#lang scratch

(define optional-apply
  (make-keyword-procedure
   (λ (kws args . rest)
     (unless (= 1 (length rest))
       (raise-arguments-error 'optional-apply "Invalid argument list ~a" rest))
     (define proc (car rest))
     (match-define-values (_ accepted-kws) (procedure-keywords proc))
     (define-values (kws-to-apply args-to-apply)

LeifAndersen

[video14]fifo[video15];
[video15]fifo[video19];
[video19]scale=height=1080:width=1920[video3];
[video3]setdar=r=1.7777777777777777[video2];
[video2]fps=fps=25[video9];
[video9]settb=expr=1/25[video11];
[video11]format=pix_fmts=yuv420p[video13];
[video13]fifo[video21];
[video21]concat=n=1:v=1:a=0[video23];
[video23]scale=height=1080:width=1920[video7]

LeifAndersen

[video14]fifo[video15];
[video15]fifo[video19];
[video19]scale=height=1080:width=1920[video3];
[video3]setdar=r=1.7777777777777777[video2];
[video2]fps=fps=25[video9];
[video9]settb=expr=1/25[video11];
[video11]format=pix_fmts=yuv420p[video13];
[video13]fifo[video21];
[video21]concat=n=1:v=1:a=0[video23];
[video23]scale=height=1080:width=1920[video7]

LeifAndersen

[audio1]anull[audio0];[video3]scale=height=480:width=640[video2];[audio5]afifo[audio4];[video7]fifo[video6];[audio9]afifo[audio8];[video11]fifo[video10];[audio0]anull[audio12];[video2]setdar=r=1.3333333333333333[video13];[audio15]afifo[audio14];[video17]fifo[video16];[audio12]atrim=end=5:start=0[audio18];[video13]trim=end=5:start=0[video19];[audio18]asetpts=expr=PTS-STARTPTS[audio20];[video19]setpts=expr=PTS-STARTPTS[video21];[audio20]aformat=sample_rates=44100:channel_layouts=stereo:sample_fmts=s16[audio5];[video21]format=pix_fmts=rgb24[video7];[video22]fifo[video23];[audio24]afifo[audio25];[audio25]afifo[audio26];[video23]fifo[video27];[audio26]anull[audio28];[video27]scale=height=480:width=640[video29];[audio28]anull[audio30];[video29]setdar=r=1.3333333333333333[video31];[audio30]atrim=end=5:start=1[audio32];[video31]trim=end=5:start=1[video33];[audio32]asetpts=expr=PTS-STARTPTS[audio34];[video33]setpts=expr=PTS-STARTPTS[video35];[audio34]anull[audio36];[video35]fps=fps=25[video37];[audio38]aformat=sample_