move release notes in appropriate packages
A collection declares release notes with a `release-notes' field in "info.rkt". The "doc" directory is now populated exclusively by generated content, instead of having a static "release-notes" directory (and a "keep-dirs.rktd" file to record the static directories).
This commit is contained in:
Matthew Flatt
parent
8bd81d456b
commit
fa6f56fcb1
|
|
@ -8,3 +8,5 @@
|
|||
|
||||
(define gracket-launcher-names '("DrRacket"))
|
||||
(define gracket-launcher-libraries '("drracket.rkt"))
|
||||
|
||||
(define release-notes (list (list "DrRacket" "HISTORY.txt")))
|
||||
|
|
|
|||
3
pkgs/drracket/gui-debugger/LICENSE.txt
Normal file
3
pkgs/drracket/gui-debugger/LICENSE.txt
Normal file
|
|
@ -0,0 +1,3 @@
|
|||
Clanbomber icon
|
||||
Everaldo Coelho
|
||||
http://www.everaldo.com/
|
||||
|
|
@ -2,3 +2,9 @@
|
|||
|
||||
(define version '(400))
|
||||
(define post-install-collection "installer.rkt")
|
||||
|
||||
(define release-notes '(("GRacket and racket/gui" "HISTORY.txt"
|
||||
0
|
||||
(("Porting from v5.0.x to v5.1" "Draw_and_GUI_5_1.txt")
|
||||
("Porting to v1xxx" "MrEd_100.txt")
|
||||
("Porting to v1xxx" "MrEd_100_Framework.txt")))))
|
||||
|
|
|
|||
|
|
@ -7,3 +7,4 @@
|
|||
(define drracket-tool-icons (list '("stepper-32x32.png" "icons")))
|
||||
|
||||
(define scribblings '(("scribblings/stepper.scrbl")))
|
||||
(define release-notes (list (list "Stepper" "HISTORY.txt")))
|
||||
|
|
|
|||
|
|
@ -1,3 +1,4 @@
|
|||
#lang setup/infotab
|
||||
|
||||
(define scribblings '(("teachpack.scrbl" (multi-page) (teaching -13))))
|
||||
(define release-notes (list (list "Teachpacks" "HISTORY.txt")))
|
||||
|
|
|
|||
7
pkgs/icons/LICENSE.txt
Normal file
7
pkgs/icons/LICENSE.txt
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
Stop icon
|
||||
Everaldo Coelho
|
||||
http://www.everaldo.com/
|
||||
|
||||
Save icon
|
||||
David Vignoni
|
||||
http://icon-king.com/
|
||||
|
|
@ -1,7 +1,7 @@
|
|||
The math collection is distributed under the GNU Lesser General Public
|
||||
License Version 3 (LGPLv3) just like the majority of Racket's libraries.
|
||||
The LGPLv3 license text is included in every Racket distribution, in the
|
||||
file "doc/release-notes/COPYING_LESSER.txt".
|
||||
file "COPYING_LESSER.txt".
|
||||
|
||||
Some of the math library code is derived from the C++ project Boost,
|
||||
from source files released under the Boost Software License Version 1.0
|
||||
|
|
|
|||
15
pkgs/picturing-programs/picturing-programs/HISTORY.txt
Normal file
15
pkgs/picturing-programs/picturing-programs/HISTORY.txt
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
Version 2.5: Re-enabled diagonal reflection. Moved into the bundle
|
||||
(so it doesn't require a PLaneT install). Added some picture variables.
|
||||
Rewrote a bunch of things for compatibility with 5.1.
|
||||
Version 2.4: Added change-to-color and map3-image. Cleaned up documentation.
|
||||
Version 2.3: Renamed files from .ss to .rkt, so they work better with Racket.
|
||||
Added map-image, build-image, name->color, and friends; re-fixed bug in rotate-cw and rotate-ccw.
|
||||
Version 2.2: Fixed bug in rotate-cw and rotate-ccw; restored reflect-vert and reflect-horiz; added with-input-from-url.
|
||||
Version 2.1: Added argument type-checking. And reflection primitives are now present but produce error message, rather than being missing.
|
||||
Version 2.0: now fully compatible with 2htdp/image and 2htdp/universe. No pinholes; temporarily disabled reflection primitives.
|
||||
Version 1.6: fixed same transparency bug for 4.2.4
|
||||
Version 1.5: fixed same transparency bug for 4.2.3
|
||||
Version 1.4: fixed transparency bug for 4.2.2
|
||||
Version 1.3: initial release, for DrScheme 4.2.4
|
||||
Version 1.2: initial release, for DrScheme 4.2.3
|
||||
Version 1.1: initial release, for DrScheme 4.2.2
|
||||
|
|
@ -8,18 +8,4 @@
|
|||
(define compile-omit-paths '("tests"))
|
||||
(define blurb
|
||||
`("The picturing-programs collection supersedes the tiles and sb-world collections. It provides functions to rotate, etc. images, as well as a slightly modified version of the universe teachpack."))
|
||||
(define release-notes '(
|
||||
(p "Version 2.5: Re-enabled diagonal reflection. Moved into the bundle
|
||||
(so it doesn't require a PLaneT install). Added some picture variables.
|
||||
Rewrote a bunch of things for compatibility with 5.1.")
|
||||
(p "Version 2.4: Added change-to-color and map3-image. Cleaned up documentation.")
|
||||
(p "Version 2.3: Renamed files from .ss to .rkt, so they work better with Racket. Added map-image, build-image, name->color, and friends; re-fixed bug in rotate-cw and rotate-ccw.")
|
||||
(p "Version 2.2: Fixed bug in rotate-cw and rotate-ccw; restored reflect-vert and reflect-horiz; added with-input-from-url.")
|
||||
(p "Version 2.1: Added argument type-checking. And reflection primitives are now present but produce error message, rather than being missing.")
|
||||
(p "Version 2.0: now fully compatible with 2htdp/image and 2htdp/universe. No pinholes; temporarily disabled reflection primitives.")
|
||||
(p "Version 1.6: fixed same transparency bug for 4.2.4")
|
||||
(p "Version 1.5: fixed same transparency bug for 4.2.3")
|
||||
(p "Version 1.4: fixed transparency bug for 4.2.2")
|
||||
(p "Version 1.3: initial release, for DrScheme 4.2.4")
|
||||
(p "Version 1.2: initial release, for DrScheme 4.2.3")
|
||||
(p "Version 1.1: initial release, for DrScheme 4.2.2")))
|
||||
(define release-notes '(("Picturing Programs" "HISTORY.txt")))
|
||||
|
|
|
|||
|
|
@ -7,3 +7,4 @@
|
|||
(define primary-file "main.rkt")
|
||||
|
||||
(define scribblings '(("scribblings/plai.scrbl" (multi-page) (teaching -20))))
|
||||
(define release-notes (list (list "PLAI" "HISTORY.txt")))
|
||||
|
|
|
|||
|
|
@ -405,6 +405,27 @@ Optional @filepath{info.rkt} fields trigger additional actions by
|
|||
into the document. It must be a positive, exact integer, and the
|
||||
default is @racket[1].}
|
||||
|
||||
@item{@as-index{@racketidfont{release-notes}} : @racket[(listof (cons/c string? (cons/c string? list?)))] ---
|
||||
A list of release-notes text files to link from the main documentation pages.
|
||||
Each note is itself represented as a list, and the list can specify auxiliary
|
||||
notes that are grouped with the main note.
|
||||
|
||||
A @racketidfont{release-notes} entry must be a value
|
||||
that can be generated from an expression matching the following
|
||||
@racket[entry] grammar:
|
||||
|
||||
@racketgrammar*[
|
||||
#:literals (list)
|
||||
[entry (list note ...)]
|
||||
[doc (list label-string note-path)
|
||||
(list label-string note-path order-integer)
|
||||
(list label-string note-path order-integer
|
||||
(list sub-note ...))]
|
||||
[sub-note (list label-string note-path)]
|
||||
]
|
||||
|
||||
The @racket[_order-integer] is used to order notes and defaults to @racket[0].}
|
||||
|
||||
@item{@indexed-racket[racket-launcher-names] : @racket[(listof string?)]
|
||||
--- @elemtag["racket-launcher-names"] A list of executable names
|
||||
to be generated in the installation's executable directory to run
|
||||
|
|
|
|||
|
|
@ -18,7 +18,7 @@
|
|||
---
|
||||
(license "License" plt "license/index.html")
|
||||
(acks "Acknowledgements" plt "acks/index.html")
|
||||
(release "Release Notes" plt "release/index.html")
|
||||
(release "Release Notes" user "release/index.html")
|
||||
---
|
||||
(bugreport "Report a Bug" #f ,(format "~a?v=~a" bug-url (version)))))
|
||||
|
||||
|
|
|
|||
|
|
@ -7,4 +7,4 @@
|
|||
("local-redirect.scrbl" (depends-all-main no-depend-on) (omit))
|
||||
("license.scrbl" () (omit))
|
||||
("acks.scrbl" () (omit))
|
||||
("release.scrbl" () (omit))))
|
||||
("release.scrbl" (depends-all-main no-depend-on) (omit))))
|
||||
|
|
|
|||
|
|
@ -21,8 +21,8 @@ General Public License (LGPL). This means
|
|||
|
||||
]
|
||||
|
||||
See @filepath{doc/release-notes/COPYING_LESSER.txt} in your Racket installation
|
||||
for more information.
|
||||
See @filepath{COPYING_LESSER.txt} in your Racket installation's @filepath{lib}
|
||||
directory for more information.
|
||||
|
||||
@copyright{
|
||||
Racket
|
||||
|
|
@ -31,27 +31,6 @@ for more information.
|
|||
|
||||
Racket software includes or extends the following copyrighted material:
|
||||
|
||||
@copyright{
|
||||
DrScheme
|
||||
Copyright (c) 1995-2003 PLT
|
||||
Copyright (c) 2004-2010 PLT Design Inc.
|
||||
All rights reserved.
|
||||
}
|
||||
|
||||
@copyright{
|
||||
MrEd
|
||||
Copyright (c) 1995-2003 PLT
|
||||
Copyright (c) 2004-2010 PLT Design Inc.
|
||||
All rights reserved.
|
||||
}
|
||||
|
||||
@copyright{
|
||||
MzScheme
|
||||
Copyright (c) 1995-2003 PLT
|
||||
Copyright (c) 2004-2010 PLT Design Inc.
|
||||
All rights reserved.
|
||||
}
|
||||
|
||||
@copyright{
|
||||
libscheme
|
||||
Copyright (c) 1994 Brent Benson
|
||||
|
|
@ -79,13 +58,6 @@ Racket software includes or extends the following copyrighted material:
|
|||
Free Software Foundation, Inc.
|
||||
}
|
||||
|
||||
@copyright{
|
||||
GNU MPFR Library
|
||||
Copyright (c) 2000-2012
|
||||
Free Software Foundation, Inc.
|
||||
Contributed by the AriC and Caramel projects, INRIA.
|
||||
}
|
||||
|
||||
@copyright{
|
||||
GNU lightning
|
||||
Copyright (c) 1994, 1995, 1996, 1999, 2000, 2001, 2002, 2011
|
||||
|
|
@ -97,20 +69,5 @@ Racket software includes or extends the following copyrighted material:
|
|||
Copyright (c) 2003-2005 Hewlett-Packard Development Company, L.P.
|
||||
}
|
||||
|
||||
@copyright{
|
||||
PSMTabBarControl
|
||||
John Pannell, Robert Payne, Adam Strzelecki, Dorian Johnson
|
||||
https://github.com/dorianj/PSMTabBarControl
|
||||
}
|
||||
|
||||
@copyright{
|
||||
Clanbomber icon and Stop icons
|
||||
Everaldo Coelho
|
||||
http://www.everaldo.com/
|
||||
}
|
||||
|
||||
@copyright{
|
||||
Save icon
|
||||
David Vignoni
|
||||
http://icon-king.com/
|
||||
}
|
||||
See also other @filepath{LICENSE.txt} files in your distribution or
|
||||
packages.
|
||||
|
|
|
|||
|
|
@ -0,0 +1,52 @@
|
|||
#lang racket/base
|
||||
(require setup/getinfo
|
||||
scribble/core
|
||||
(except-in scribble/base url)
|
||||
scribble/html-properties
|
||||
net/url
|
||||
racket/path)
|
||||
|
||||
(provide release-items)
|
||||
|
||||
(struct notes (pos label path subs)
|
||||
#:transparent)
|
||||
|
||||
(define (build-release-list which)
|
||||
(sort
|
||||
(for*/list ([dir (in-list (find-relevant-directories '(release-notes) which))]
|
||||
[rel (let ([i (get-info/full dir)])
|
||||
(if i
|
||||
(i 'release-notes (lambda () null))
|
||||
null))])
|
||||
(define label (car rel))
|
||||
(define file (cadr rel))
|
||||
(define pos (if (null? (cddr rel))
|
||||
0
|
||||
(caddr rel)))
|
||||
(define subs (if (or (null? (cddr rel))
|
||||
(null? (cdddr rel)))
|
||||
null
|
||||
(list-ref rel 3)))
|
||||
(notes pos label (path->complete-path file dir)
|
||||
(for/list ([sub (in-list subs)])
|
||||
(cons (car sub) (path->complete-path (cadr sub) dir)))))
|
||||
(lambda (a b)
|
||||
(cond
|
||||
[((notes-pos a) . < . (notes-pos b)) #t]
|
||||
[((notes-pos a) . > . (notes-pos b)) #f]
|
||||
[else (string<? (notes-label a) (notes-label b))]))))
|
||||
|
||||
(define (item-link lbl p)
|
||||
(elem #:style (style #f (list (link-resource p)))
|
||||
lbl))
|
||||
|
||||
(define (release-items which)
|
||||
(apply itemlist #:style "compact"
|
||||
(for/list ([n (in-list (build-release-list which))])
|
||||
(item (item-link (notes-label n) (notes-path n))
|
||||
(if (null? (notes-subs n))
|
||||
null
|
||||
(apply itemlist #:style "compact"
|
||||
(for/list ([s (in-list (notes-subs n))])
|
||||
(item (item-link (car s) (cdr s))))))))))
|
||||
|
||||
|
|
@ -1,28 +1,7 @@
|
|||
#lang scribble/doc
|
||||
@(require scribble/manual setup/dirs "private/utils.rkt")
|
||||
|
||||
@(define (rl-link path . content)
|
||||
(apply link (apply build-path (find-doc-dir) "release-notes" path)
|
||||
content))
|
||||
@(define (mzport doc from to)
|
||||
(rl-link (list "racket" doc) (format "Porting from ~a to ~a" from to)))
|
||||
@(require "private/utils.rkt"
|
||||
"private/release.rkt")
|
||||
|
||||
@main-page['release]
|
||||
|
||||
@itemize[#:style "compact"]{
|
||||
|
||||
@item{@rl-link['("racket" "HISTORY.txt")]{Racket core}
|
||||
@itemize[#:style "compact"]{
|
||||
@item{@mzport["Draw_and_GUI_5_1.txt" "v5.0.x" "v5.1"]}
|
||||
@item{@mzport["Racket_5.txt" "v4.x" "v5.x"]}
|
||||
@item{@mzport["MzScheme_4.txt" "v3xx" "v4.x"]}
|
||||
@item{@mzport["MzScheme_300.txt" "v2xx" "v3xx"]}
|
||||
@item{@mzport["MzScheme_200.txt" "v1xx" "v2xx"]}}}
|
||||
@item{@rl-link['("drracket" "HISTORY.txt")]{DrRacket}}
|
||||
@item{@rl-link['("gracket" "HISTORY.txt")]{GRacket}}
|
||||
@item{@rl-link['("teachpack" "HISTORY.txt")]{Teachpacks}}
|
||||
@item{@rl-link['("stepper" "HISTORY.txt")]{Stepper}}
|
||||
@item{@rl-link['("plai" "HISTORY.txt")]{PLAI}}
|
||||
@item{@rl-link['("redex" "HISTORY.txt")]{Redex}}
|
||||
|
||||
}
|
||||
@(release-items 'no-user)
|
||||
|
|
|
|||
|
|
@ -3,4 +3,5 @@
|
|||
(define scribblings
|
||||
'(("start.scrbl" (user-doc-root depends-all no-depend-on) (omit))
|
||||
("search.scrbl" (user-doc depends-all no-depend-on) (omit))
|
||||
("local-redirect.scrbl" (user-doc depends-all no-depend-on) (omit))))
|
||||
("local-redirect.scrbl" (user-doc depends-all no-depend-on) (omit))
|
||||
("release.scrbl" (user-doc depends-all no-depend-on) (omit))))
|
||||
|
|
|
|||
|
|
@ -0,0 +1,7 @@
|
|||
#lang scribble/doc
|
||||
@(require "../private/utils.rkt"
|
||||
"../private/release.rkt")
|
||||
|
||||
@main-page['release #f]
|
||||
|
||||
@(release-items 'all-available)
|
||||
|
|
@ -201,14 +201,8 @@
|
|||
;; in the main installation:
|
||||
(log-setup-info "checking installation document directories")
|
||||
(define main-doc-dir (find-doc-dir))
|
||||
(define extra-dirs (call-with-input-file*
|
||||
(build-path main-doc-dir "keep-dirs.rktd")
|
||||
(lambda (i) (read i))))
|
||||
(define expected (set-union
|
||||
(for/set ([doc (in-list main-docs)])
|
||||
(doc-dest-dir doc))
|
||||
(for/set ([i (in-list extra-dirs)])
|
||||
(build-path main-doc-dir i))))
|
||||
(define expected (for/set ([doc (in-list main-docs)])
|
||||
(doc-dest-dir doc)))
|
||||
(for ([i (in-list (directory-list main-doc-dir))])
|
||||
(define p (build-path main-doc-dir i))
|
||||
(when (directory-exists? p)
|
||||
|
|
@ -1241,6 +1235,7 @@
|
|||
(when (and (doc-pkg? doc)
|
||||
(not (doc-under-main? doc))
|
||||
(not latex-dest))
|
||||
(make-directory*/ignore-exists-exn (doc-dest-dir doc))
|
||||
(with-compile-output
|
||||
(sxref-path latex-dest doc "provides.sxref")
|
||||
(lambda (out tmp-filename)
|
||||
|
|
|
|||
|
|
@ -4,5 +4,6 @@
|
|||
|
||||
(define name "PLT Redex")
|
||||
(define scribblings (list (list "redex.scrbl" (list 'multi-page) (list 'tool))))
|
||||
(define release-notes (list (list "Redex" "HISTORY.txt")))
|
||||
|
||||
(define compile-omit-paths '("tests"))
|
||||
|
|
|
|||
|
|
@ -22,5 +22,6 @@
|
|||
|
||||
[part-link-redirect ([url url?])]
|
||||
[install-resource ([path path-string?])]
|
||||
[link-resource ([path path-string?])]
|
||||
|
||||
[head-extra ([xexpr xexpr/c])])
|
||||
|
|
|
|||
|
|
@ -1262,7 +1262,11 @@
|
|||
[resources (for/list ([p (in-list properties)]
|
||||
#:when (install-resource? p))
|
||||
(install-resource-path p))]
|
||||
[link? (and (ormap target-url? properties)
|
||||
[link-resource (for/or ([p (in-list properties)]
|
||||
#:when (link-resource? p))
|
||||
(link-resource-path p))]
|
||||
[link? (and (or (ormap target-url? properties)
|
||||
link-resource)
|
||||
(not (current-no-links)))]
|
||||
[anchor? (ormap url-anchor? properties)]
|
||||
[attribs
|
||||
|
|
@ -1317,7 +1321,11 @@
|
|||
[link? 'a]
|
||||
[newline? 'br]
|
||||
[else 'span])
|
||||
,attribs
|
||||
,(append
|
||||
(if link-resource
|
||||
`([href ,(install-file link-resource)])
|
||||
null)
|
||||
attribs)
|
||||
,@content))))))
|
||||
|
||||
(define/private (element-style->attribs name style [extras null])
|
||||
|
|
|
|||
|
|
@ -0,0 +1,3 @@
|
|||
#lang setup/infotab
|
||||
|
||||
(define release-notes '(("Typed Racket" "HISTORY.txt")))
|
||||
1
racket/.gitignore
vendored
1
racket/.gitignore
vendored
|
|
@ -2,6 +2,7 @@
|
|||
/bin/
|
||||
/include/
|
||||
/etc/
|
||||
/doc/
|
||||
|
||||
# Windows and OSX executables
|
||||
/*.app
|
||||
|
|
|
|||
12
racket/doc/.gitignore
vendored
12
racket/doc/.gitignore
vendored
|
|
@ -1,12 +0,0 @@
|
|||
# ignore all sub-directories and generated files
|
||||
/*/
|
||||
/*.html
|
||||
/*.css
|
||||
/*.js
|
||||
/*.sxref
|
||||
/blueboxes.rktd
|
||||
/docindex.sqlite
|
||||
|
||||
# except directories that have committed contents
|
||||
!/release-notes/
|
||||
!/*-std/
|
||||
|
|
@ -1,2 +0,0 @@
|
|||
Unless noted otherwise, PLT Documentations are all distributed under
|
||||
the terms of the LGPL. See release-notes/COPYING_LESSER.txt.
|
||||
|
|
@ -1,9 +0,0 @@
|
|||
;; This file holds a list of directory names that should be preserved
|
||||
;; but are not a result of any "info.rkt"'s 'scribblings entry. Such
|
||||
;; directories usually hold content that is static (i.e., not built from
|
||||
;; Scribble sources).
|
||||
;;
|
||||
;; The `setup/scribblings' library uses this list to avoid deleting
|
||||
;; those drectories.
|
||||
|
||||
("release-notes")
|
||||
|
|
@ -1,125 +0,0 @@
|
|||
|
||||
;; This script attempts to update a program that uses the v20x class
|
||||
;; system to use the v299 class system: it eliminates `rename' clauses,
|
||||
;; and changes the corresponding uses of `(super-<id> <arg> ...)' to
|
||||
;; uses of `(super <id> <arg> ...)'.
|
||||
|
||||
;; The script is not particularly clever: it assumes that an S-exp of
|
||||
;; the form `(rename [<id> <id>] ...)' is a use in `class', unless it
|
||||
;; appears immediately a `unit/sig' S-exp. Furthermore, uses of the
|
||||
;; first identifier in the rename pair are converted to use `super'
|
||||
;; only if that identifier's name starts with `super-'.
|
||||
|
||||
;; Provide files to convert on the command line:
|
||||
;; mzscheme -qr rename-super-fixup.ss <file> ...
|
||||
;; Each <file> is copied to <file>.bak before <file> is overwritten
|
||||
;; with the converted code (unless <file>.bak already exists, in which
|
||||
;; case it is left as-is).
|
||||
|
||||
(require mzlib/list
|
||||
syntax/stx)
|
||||
|
||||
;; returns a list of syntax for `rename' clauses
|
||||
;; the order in the list matches the textual order in the source
|
||||
(define (find-all-renames s)
|
||||
(cond
|
||||
[(and (stx-pair? s)
|
||||
(eq? 'unit/sig (syntax-e (stx-car s))))
|
||||
;; Avoid `rename' clause in a unit:
|
||||
(let ([l (stx->list s)])
|
||||
(if (and l
|
||||
((length l) . > . 3)
|
||||
(stx-pair? (cadddr l))
|
||||
(eq? 'rename (syntax-e (stx-car (cadddr l)))))
|
||||
(find-all-renames (list-tail l 4))
|
||||
(find-all-renames (stx-cdr s))))]
|
||||
[(and (stx-pair? s)
|
||||
(eq? 'rename (syntax-e (stx-car s))))
|
||||
(let ([l (or (stx->list (stx-cdr s)) '(#f))])
|
||||
(if (andmap (lambda (i)
|
||||
(and (stx-pair? i)
|
||||
(identifier? (stx-car i))
|
||||
(stx-pair? (stx-cdr i))
|
||||
(identifier? (stx-car (stx-cdr i)))
|
||||
(stx-null? (stx-cdr (stx-cdr i)))))
|
||||
l)
|
||||
(list s)
|
||||
null))]
|
||||
[(syntax? s) (find-all-renames (syntax-e s))]
|
||||
[(pair? s) (append
|
||||
(find-all-renames (car s))
|
||||
(find-all-renames (cdr s)))]
|
||||
[else null]))
|
||||
|
||||
;; returns a list of identifiers
|
||||
(define (find-all-uses s ids)
|
||||
(cond
|
||||
[(and (identifier? s)
|
||||
(memq (syntax-e s) ids))
|
||||
(list s)]
|
||||
[(syntax? s) (find-all-uses (syntax-e s) ids)]
|
||||
[(pair? s) (append
|
||||
(find-all-uses (car s) ids)
|
||||
(find-all-uses (cdr s) ids))]
|
||||
[else null]))
|
||||
|
||||
(define (fixup f)
|
||||
;; First, search in S-exp form
|
||||
(fprintf (current-error-port) "Fixing ~a~n" (if (path? f)
|
||||
(path->string f)
|
||||
f))
|
||||
(let ([s (with-input-from-file f read-syntax)])
|
||||
(let* ([renames (find-all-renames s)]
|
||||
[ids (filter
|
||||
(lambda (sym)
|
||||
(regexp-match #rx"super-" (symbol->string sym)))
|
||||
(map syntax-e
|
||||
(map stx-car
|
||||
(apply
|
||||
append
|
||||
(stx->list (map stx-cdr renames))))))]
|
||||
[uses (find-all-uses s ids)])
|
||||
;; Load file content as bytes:
|
||||
(let ([str (with-input-from-file f (lambda () (read-string (file-size f))))])
|
||||
;; Change `super-' to `super ':
|
||||
(for-each (lambda (use)
|
||||
(let ([pos (syntax-position use)])
|
||||
(when pos
|
||||
(string-set! str (+ (sub1 pos) 5) #\space))))
|
||||
uses)
|
||||
;; Drop `rename' lines:
|
||||
(for-each (lambda (rename)
|
||||
(let ([pos (syntax-position rename)]
|
||||
[span (syntax-span rename)])
|
||||
(when (and pos span)
|
||||
(let ([line-start
|
||||
(regexp-match-positions
|
||||
#rx"[\t ]+$"
|
||||
str
|
||||
0
|
||||
(sub1 pos))]
|
||||
[line-end (regexp-match-positions
|
||||
#rx"^ *(\r|\n|\r\n)"
|
||||
str
|
||||
(+ (sub1 pos) span))])
|
||||
|
||||
(set! str
|
||||
(string-append
|
||||
(substring str 0 (if line-start
|
||||
(caar line-start)
|
||||
(sub1 pos)))
|
||||
(substring str (if line-end
|
||||
(cdar line-end)
|
||||
(+ (sub1 pos) span)))))))))
|
||||
(reverse renames))
|
||||
;; Write string out:
|
||||
(let ([bak (format "~a.bak" (if (path? f)
|
||||
(path->string f)
|
||||
f))])
|
||||
(unless (file-exists? bak)
|
||||
(copy-file f bak)))
|
||||
(with-output-to-file f (lambda ()
|
||||
(display str))
|
||||
'truncate)))))
|
||||
|
||||
(map fixup (vector->list (current-command-line-arguments)))
|
||||
8
racket/lib/collects/racket/info.rkt
Normal file
8
racket/lib/collects/racket/info.rkt
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
#lang setup/infotab
|
||||
|
||||
(define release-notes '(("Racket core" "HISTORY.txt"
|
||||
-100
|
||||
(("Porting from v4.x to v5.x" "Racket_5.txt")
|
||||
("Porting from v3xxx to v4.x" "MzScheme_4.txt")
|
||||
("Porting from v2xxx to v3xxx" "MzScheme_300.txt")
|
||||
("Porting from v1xxx to v2xxx" "MzScheme_200.txt")))))
|
||||
|
|
@ -18,6 +18,8 @@ builddir = @builddir@
|
|||
|
||||
NOOP = :
|
||||
|
||||
ICP = @ICP@
|
||||
|
||||
# RUN_RACKET_<X> typically redirects to RUN_THIS_RACKET_<X>,
|
||||
# but it can also redirect to an existing Racket executable
|
||||
# that is the same as the version being built (which is
|
||||
|
|
@ -35,6 +37,10 @@ ALLDIRINFO = "$(DESTDIR)$(bindir)" \
|
|||
"$(DESTDIR)$(configdir)" \
|
||||
"$(DESTDIR)$(mandir)"
|
||||
|
||||
COPYING = "$(srcdir)/COPYING-libscheme.txt" \
|
||||
"$(srcdir)/COPYING_LESSER.txt" \
|
||||
"$(srcdir)/COPYING.txt"
|
||||
|
||||
all:
|
||||
$(MAKE) @MAIN_VARIANT@
|
||||
|
||||
|
|
@ -92,6 +98,7 @@ install-common-middle:
|
|||
install-common-last:
|
||||
$(MAKE) fix-paths
|
||||
$(MAKE) @MAKE_INSTALL_PKGSCOPE@-raco-pkg-default-scope
|
||||
$(ICP) $(COPYING) "$(DESTDIR)$(libpltdir)"/
|
||||
|
||||
install-no:
|
||||
$(NOOP)
|
||||
|
|
|
|||
|
|
@ -84,6 +84,7 @@ XCode:
|
|||
Build PSMTabBarControl. You only need the Framework target, and
|
||||
in Release mode (which is "Build for Archiving" in Xcode 4.5).
|
||||
Use `ditto' to reduce the framework to one architecture.
|
||||
Add back the "LICENSE.txt" file.
|
||||
|
||||
Install:
|
||||
racket install-libs.rkt <dest>/lib
|
||||
|
|
|
|||
|
|
@ -47,5 +47,9 @@ cd ..
|
|||
..\..\racket -l racket/kernel/init -e "(if (directory-exists? \"../../etc\") (void) (make-directory \"../../etc\"))"
|
||||
if errorlevel 1 exit /B 1
|
||||
|
||||
copy COPYING-libscheme.txt ..\..\etc\
|
||||
copy COPYING_LESSER.txt ..\..\etc\
|
||||
copy COPYING.txt ..\..\etc\
|
||||
|
||||
..\..\racket -N "raco setup" %SELF_RACKET_FLAGS% -l- setup %PLT_SETUP_OPTIONS%
|
||||
if errorlevel 1 exit /B 1
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user