remove obsolete files

pull/105/head
Matthew Butterick 9 years ago
parent bdd5282477
commit 2ac1bf0ad3

@ -1,40 +0,0 @@
#lang racket/base
(require (for-syntax racket/base racket/syntax) sugar/test)
(provide (all-defined-out))
(define-syntax (define-caching-ns stx)
(syntax-case stx ()
[(_ name)
#'(define-caching-ns name null)]
[(_ name mods)
(with-syntax ([caching-module-name (generate-temporary)])
#'(begin
(module caching-module-name racket/base
(define-namespace-anchor nsa) ; could handle this macro-introduced name better
(provide nsa))
(require 'caching-module-name)
(define name (namespace-anchor->namespace nsa))
(require-in-namespace name mods)))]))
;; `namespace-require mod` = (eval '(require mod) namespace)
(define (require-in-namespace ns module-names)
(parameterize ([current-namespace ns])
(for-each (λ(mod-name) (namespace-require mod-name)) module-names)))
(define (attach-from-namespace from-ns to-ns module-names)
(for-each (λ(mod-name) (namespace-attach-module from-ns mod-name to-ns)) module-names)
(require-in-namespace to-ns module-names))
(module-test-external
(define module-names '(xml racket/function))
(define-caching-ns from-ns module-names)
(check-true (eval '(andmap procedure? (list xexpr? curry)) from-ns))
(define to-ns (make-base-namespace))
(attach-from-namespace from-ns to-ns module-names)
(check-true (eval '(andmap procedure? (list xexpr? curry)) to-ns)))

@ -1,5 +1,5 @@
#lang racket/base
(require racket/path racket/file compiler/cm file/cache sugar/coerce sugar/list "project.rkt" "rerequire.rkt" "cache-ns.rkt" "debug.rkt" "file.rkt" racket/place "world.rkt")
(require racket/path racket/file compiler/cm file/cache sugar/coerce sugar/list "project.rkt" "rerequire.rkt" "debug.rkt" "file.rkt" racket/place "world.rkt")
;; The cache is a hash with paths as keys.
;; The cache values are also hashes, with key/value pairs for that path.

@ -1,7 +1,7 @@
#lang racket/base
(require racket/file racket/path compiler/cm)
(require sugar/test sugar/define sugar/file)
(require "file.rkt" "cache.rkt" "debug.rkt" "pagetree.rkt" "project.rkt" "template.rkt" "rerequire.rkt" "cache-ns.rkt" "world.rkt")
(require "file.rkt" "cache.rkt" "debug.rkt" "pagetree.rkt" "project.rkt" "template.rkt" "rerequire.rkt" "world.rkt")
;; used to track renders according to modification dates of component files
(define mod-date-hash (make-hash))

@ -1,143 +0,0 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
<key>CFBundleAllowMixedLocalizations</key>
<true/>
<key>CFBundleDevelopmentRegion</key>
<string>English</string>
<key>CFBundleExecutable</key>
<string>applet</string>
<key>CFBundleIconFile</key>
<string>applet</string>
<key>CFBundleIdentifier</key>
<string>com.apple.ScriptEditor.id.add-pollen-source-extensions</string>
<key>CFBundleInfoDictionaryVersion</key>
<string>6.0</string>
<key>CFBundleName</key>
<string>add-pollen-source-extensions</string>
<key>CFBundlePackageType</key>
<string>APPL</string>
<key>CFBundleShortVersionString</key>
<string>1.0</string>
<key>CFBundleSignature</key>
<string>aplt</string>
<key>LSMinimumSystemVersionByArchitecture</key>
<dict>
<key>x86_64</key>
<string>10.6</string>
</dict>
<key>LSRequiresCarbon</key>
<true/>
<key>UTExportedTypeDeclarations</key>
<array>
<dict>
<key>UTTypeIdentifier</key>
<string>com.pollenpub.pm</string>
<key>UTTypeTagSpecification</key>
<dict>
<key>public.filename-extension</key>
<array>
<string>pm</string>
</array>
</dict>
<key>UTTypeDescription</key>
<string>Pollen markup source file</string>
<key>UTTypeConformsTo</key>
<array>
<string>public.source-code</string>
</array>
</dict>
<dict>
<key>UTTypeIdentifier</key>
<string>com.pollenpub.pmd</string>
<key>UTTypeTagSpecification</key>
<dict>
<key>public.filename-extension</key>
<array>
<string>pmd</string>
</array>
</dict>
<key>UTTypeDescription</key>
<string>Pollen Markdown source file</string>
<key>UTTypeConformsTo</key>
<array>
<string>public.source-code</string>
</array>
</dict>
<dict>
<key>UTTypeIdentifier</key>
<string>com.pollenpub.pp</string>
<key>UTTypeTagSpecification</key>
<dict>
<key>public.filename-extension</key>
<array>
<string>pp</string>
</array>
</dict>
<key>UTTypeDescription</key>
<string>Pollen preprocessor source file</string>
<key>UTTypeConformsTo</key>
<array>
<string>public.source-code</string>
</array>
</dict>
<dict>
<key>UTTypeIdentifier</key>
<string>com.pollenpub.ptree</string>
<key>UTTypeTagSpecification</key>
<dict>
<key>public.filename-extension</key>
<array>
<string>ptree</string>
</array>
</dict>
<key>UTTypeDescription</key>
<string>Pollen pagetree source file</string>
<key>UTTypeConformsTo</key>
<array>
<string>public.source-code</string>
</array>
</dict>
<dict>
<key>UTTypeIdentifier</key>
<string>com.pollenpub.p</string>
<key>UTTypeTagSpecification</key>
<dict>
<key>public.filename-extension</key>
<array>
<string>p</string>
</array>
</dict>
<key>UTTypeDescription</key>
<string>Pollen null source file</string>
<key>UTTypeConformsTo</key>
<array>
<string>public.source-code</string>
</array>
</dict>
</array>
<key>WindowState</key>
<dict>
<key>dividerCollapsed</key>
<false/>
<key>eventLogLevel</key>
<integer>-1</integer>
<key>name</key>
<string>ScriptWindowState</string>
<key>positionOfDivider</key>
<real>333</real>
<key>savedFrame</key>
<string>7 461 602 597 0 0 1920 1058 </string>
<key>selectedTabView</key>
<string>result</string>
</dict>
</dict>
</plist>

@ -1,4 +0,0 @@
{\rtf1\ansi\ansicpg1252\cocoartf1265\cocoasubrtf210
{\fonttbl}
{\colortbl;\red255\green255\blue255;}
}

Binary file not shown.

Before

Width:  |  Height:  |  Size: 362 B

@ -1,4 +0,0 @@
{\rtf1\ansi\ansicpg1252\cocoartf1265\cocoasubrtf210
{\fonttbl}
{\colortbl;\red255\green255\blue255;}
}
Loading…
Cancel
Save