Stephen De Gabrielle spdegabrielle

I've deprecated this Gist and migrated the CER FAQ to my faculty webpage:

https://github.com/amyjko/faculty/blob/master/components/cer.js

Feel free to submit pull requests on that file to make additions or corrections.

This talk was given by Gregor Kiczales of Xerox PARC at OOPSLA ’94, 10/26/94. © 1994, University Video Communications. A transcript, with point- and-click retrieval of the slides, is available at http:/www.xerox.com/PARC/spl/eca/oi/gregor-invite/gregor- transcript.html

Why are black boxes so hard to reuse?

I think our field will go through a revolution. We will fundamentally change the way we think about and use abstraction in the engineering of software.

The goal of this talk is to summarize the need for and the basic nature of this abstraction framework.

The change is not new problems or new systems, but a new way of thinking about existing problems and existing systems.

	#lang send-exp racket

	(require racket/draw)

	(define-syntax-rule (build-path (p) body ...)
	(let ((p (new dc-path%)))
	body ...
	p))

	(define (quarter-circle p cx cy quarter radius)

	<!DOCTYPE html>
	<html>
	<head>
	<meta http-equiv="Content-type" content="text/html; charset=utf-8">
	<title>Testing Pie Chart</title>
	<!--<script type="text/javascript" src="d3/d3.v2.js"></script>-->
	<script src="http://d3js.org/d3.v2.js"></script>
	<!-- Note: I made good use of the sample code provided by the D3JS community and extended it to fit my needs to create this simple dashboard -->
	<style type="text/css">

	#lang s-exp syntax/module-reader
	(submod "daylang.rkt" semantics)
	#:read my-read
	#:read-syntax my-read-syntax

	(define (my-read in) (syntax->datum (my-read-syntax #f in)))

	(define (my-read-syntax src in)
	(define line (read-line in))
	(if (eof-object? line)

	#lang s-exp syntax/module-reader
	(submod "daylang.rkt" semantics)
	#:read my-read
	#:read-syntax my-read-syntax

	(define (my-read in) (syntax->datum (my-read-syntax #f in)))

	(define (my-read-syntax src in)
	(define line (read-line in))
	(if (eof-object? line)

	#lang racket

	(require request
	fancy-app)

	(define (read-from-string s) (read (open-input-string s)))
	(define read-response-requester (wrap-requester-response read-from-string _))

	(define (header-requester key value requester)
	(add-requester-headers (list (format "~a:~a" key value)) requester))

	module type CELL = sig
	type 'a cell
	type 'a exp

	val return : 'a -> 'a exp
	val (>>=) : 'a exp -> ('a -> 'b exp) -> 'b exp

	val cell : 'a exp -> 'a cell exp
	val get : 'a cell -> 'a exp

	#lang racket/base

	(require racket/tcp racket/async-channel racket/match racket/function)

	(define-struct ami [input-port
	output-port thread
	request-channel
	response-channel
	event-channel
	[dead? #:mutable]]

	#lang racket

	(require syntax/strip-context)

	; A '#lang reader' language must provide read and read-syntax, which return a module form

	; The idea is that "3 4 +:2 7 eq?:2" gets turned into '(module anything racket (eq? (+ 3 4) 7))

	(provide (rename-out [rpn-read read]
	[rpn-read-syntax read-syntax]))