soegaard

;; jas-match.scm  --  Jens Axel Søgaard  -- 13/14 dec 2003

;;; PURPOSE

; This is a very naïve implementation of a subset of
; the pattern matcher plt-match.ss, which builds upon
; Wright's pattern matcher, but uses constructor notation
; in the patterns. 

; The idea was too see, how far I could get using nothing

soegaard

#lang racket
;;;
;;; This library provides functions to:
;;;     1. Take a screenshot of an entire screen
;;;     2. Get a list of all windows, window ids and window names
;;;     3. Capture a single window as an image.
;;;     4. Examples: Recreation of the widget gallery.
;;;

;;; Notes: The combo-field and the text field misses text

soegaard

How to render html document

I used 

    raco scribble --htmls seclink-main.rkt

to render the document as multiple html files.

soegaard

#lang racket
;;;
;;; Regular Expression Matching for S-expressions
;;;

;; Exports
(provide regular-match ; the main form
         named-groups) ; holds immutable hash table of named groups

;; Imports

soegaard

#lang at-exp racket
(require urlang urlang/html urlang/react/urx)
(require net/sendurl syntax/parse)

;;;
;;; Urlang Configuration
;;;

(current-urlang-run?                            #f) ; run using Node?              No, use browser
(current-urlang-echo?                           #t) ; print generated JavaScript?  

soegaard

#lang at-exp racket/base

(require racket/runtime-path racket/format racket/file
         urlang urlang/html urlang/extra urlang/react/urx urlang/for
         syntax/parse racket/syntax)

;;;
;;; CONFIGURATION
;;; 

soegaard

#lang racket
(require (for-syntax racket/syntax syntax/parse))


(define-syntax (define-record stx)
  (syntax-parse stx
    [(_define-record name:id (field:id ...))
     (with-syntax
       ([make-name         (format-id #'name "make-~a" #'name)]
        [(name->field ...) (for/list ([field (syntax->list #'(field ...))])

soegaard

#lang racket/base
(require racket/match racket/list racket/port racket/string 
         "flomat.rkt")

;;;
;;; Homogeneous coordinates for 3 dimensions
;;;

; Follow the tutorial
;   http://www.opengl-tutorial.org/beginners-tutorials/tutorial-3-matrices/

soegaard

#lang at-exp racket
(require racket/tcp racket/string)

;;; Maxima

;; This module starts an external Maxima process.
;; The function send will send a command to Maxima.
;; The function receive will get the output from Maxima as a list of strings.
;; The various send-* and receive-* functions sends and receives to and from Maxima.
;; The various read-* and display-* functions reads and displays to Racket (DrRacket).

soegaard

#lang at-exp racket
(require racket/tcp)

;;; Maxima

;; This module starts an external Maxima process.
;; The function send will send a command to Maxima.
;; The function receive will get the output from Maxima as a list of strings.
;; The various send-* and receive-* functions sends and receives to and from Maxima.
;; The various read-* and display-* functions reads and displays to Racket (DrRacket).