some more "cvs" removals
svn: r37
This commit is contained in:
parent
7316f4b7f0
commit
0f835f2003
|
@ -35,7 +35,7 @@
|
||||||
(with-handlers ([exn:fail:filesystem? (lambda (exn) #f)])
|
(with-handlers ([exn:fail:filesystem? (lambda (exn) #f)])
|
||||||
(collection-path "repos-time-stamp"))])
|
(collection-path "repos-time-stamp"))])
|
||||||
(if (and stamp-collection (file-exists? (build-path stamp-collection "stamp.ss")))
|
(if (and stamp-collection (file-exists? (build-path stamp-collection "stamp.ss")))
|
||||||
(format "~a-cvs~a" mz-version (dynamic-require '(lib "stamp.ss" "repos-time-stamp") 'stamp))
|
(format "~a-svn~a" mz-version (dynamic-require '(lib "stamp.ss" "repos-time-stamp") 'stamp))
|
||||||
mz-version)))
|
mz-version)))
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
teachpack/htdp
|
teachpack/htdp
|
||||||
collects/htdp
|
collects/htdp
|
||||||
cvs commit -m.
|
svn commit -m ""
|
||||||
|
|
||||||
-----------------------------------------------------------------------------------
|
-----------------------------------------------------------------------------------
|
||||||
|
|
||||||
|
|
|
@ -37,11 +37,10 @@
|
||||||
#|
|
#|
|
||||||
cd ~.../plt/collects/icons
|
cd ~.../plt/collects/icons
|
||||||
cp where/ever/trumpet.xbm .
|
cp where/ever/trumpet.xbm .
|
||||||
cvs update -A
|
svn update
|
||||||
cvs add -kb trumpet.xbm
|
svn trumpet.xbm
|
||||||
cvs commit -m "added trumpet image"
|
svn setprop svn:mime-type image/x-xbitmap
|
||||||
cvs tag -F exp trumpet.xbm
|
svn commit -m "added trumpet image"
|
||||||
cvs update -r exp
|
|
||||||
|#
|
|#
|
||||||
|
|
||||||
#| ------------------------------------------------------------------------
|
#| ------------------------------------------------------------------------
|
||||||
|
|
|
@ -15,4 +15,4 @@
|
||||||
(import drscheme:tool^)
|
(import drscheme:tool^)
|
||||||
(define (phase1) (void))
|
(define (phase1) (void))
|
||||||
(define (phase2) (void))
|
(define (phase2) (void))
|
||||||
(version:add-spec '-cvs stamp))))
|
(version:add-spec '-svn stamp))))
|
||||||
|
|
|
@ -36,7 +36,7 @@ please adhere to these guidelines:
|
||||||
has changed and needs to be re-translated. Do not erase the old
|
has changed and needs to be re-translated. Do not erase the old
|
||||||
version, it might help us translate the new one. Do not move it
|
version, it might help us translate the new one. Do not move it
|
||||||
either. Just comment it out and add the short comment. After the
|
either. Just comment it out and add the short comment. After the
|
||||||
next cvs update DrScheme will automatically tell us translators that
|
next svn update DrScheme will automatically tell us translators that
|
||||||
a new string needs to be translated, we will find your comment in
|
a new string needs to be translated, we will find your comment in
|
||||||
the file, and know what to do.
|
the file, and know what to do.
|
||||||
Some evil evil people might think that, since DrScheme automatically
|
Some evil evil people might think that, since DrScheme automatically
|
||||||
|
|
|
@ -36,7 +36,7 @@ please adhere to these guidelines:
|
||||||
has changed and needs to be re-translated. Do not erase the old
|
has changed and needs to be re-translated. Do not erase the old
|
||||||
version, it might help us translate the new one. Do not move it
|
version, it might help us translate the new one. Do not move it
|
||||||
either. Just comment it out and add the short comment. After the
|
either. Just comment it out and add the short comment. After the
|
||||||
next cvs update DrScheme will automatically tell us translators that
|
next svn update DrScheme will automatically tell us translators that
|
||||||
a new string needs to be translated, we will find your comment in
|
a new string needs to be translated, we will find your comment in
|
||||||
the file, and know what to do.
|
the file, and know what to do.
|
||||||
Some evil evil people might think that, since DrScheme automatically
|
Some evil evil people might think that, since DrScheme automatically
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
;; this file contains the current patch level of DrScheme
|
;; this file contains the current patch level of DrScheme
|
||||||
;; it is usually `0' in cvs, and changed only when a patch is made.
|
;; it is usually `0' in the repository, and changed only when a patch is made.
|
||||||
(module patchlevel mzscheme
|
(module patchlevel mzscheme
|
||||||
(define patchlevel 0)
|
(define patchlevel 0)
|
||||||
(provide patchlevel))
|
(provide patchlevel))
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
|
|
||||||
(define old-dir (current-directory))
|
(define old-dir (current-directory))
|
||||||
(define new-dir "~/tmp/gc6.3")
|
(define new-dir "~/tmp/gc6.3")
|
||||||
(define really-cvs? #t)
|
(define really-svn? #t)
|
||||||
|
|
||||||
(require (lib "file.ss")
|
(require (lib "file.ss")
|
||||||
(lib "process.ss"))
|
(lib "process.ss"))
|
||||||
|
@ -66,7 +66,7 @@
|
||||||
|
|
||||||
(define (go cmd)
|
(define (go cmd)
|
||||||
(printf "CMD: ~a~n" cmd)
|
(printf "CMD: ~a~n" cmd)
|
||||||
(when really-cvs?
|
(when really-svn?
|
||||||
(system cmd)))
|
(system cmd)))
|
||||||
|
|
||||||
(hash-table-for-each new
|
(hash-table-for-each new
|
||||||
|
@ -82,13 +82,13 @@
|
||||||
(go (get-output-string s)))
|
(go (get-output-string s)))
|
||||||
|
|
||||||
(let ([s (open-output-string)])
|
(let ([s (open-output-string)])
|
||||||
(fprintf s "cd ~a; cvs add " (path->string old-dir))
|
(fprintf s "cd ~a; svn add " (path->string old-dir))
|
||||||
(hash-table-for-each new (lambda (k v)
|
(hash-table-for-each new (lambda (k v)
|
||||||
(fprintf s "~a " (path->string k))))
|
(fprintf s "~a " (path->string k))))
|
||||||
(go (get-output-string s)))
|
(go (get-output-string s)))
|
||||||
|
|
||||||
(let ([s (open-output-string)])
|
(let ([s (open-output-string)])
|
||||||
(fprintf s "cd ~a; cvs remove " (path->string old-dir))
|
(fprintf s "cd ~a; svn remove " (path->string old-dir))
|
||||||
(hash-table-for-each old (lambda (k v)
|
(hash-table-for-each old (lambda (k v)
|
||||||
(fprintf s "~a " (path->string k))))
|
(fprintf s "~a " (path->string k))))
|
||||||
(go (get-output-string s)))
|
(go (get-output-string s)))
|
||||||
|
|
|
@ -225,7 +225,7 @@ Changes in 1.0.6 (19 Jan 1998)
|
||||||
- use _fdopen instead of fdopen for MSC >= 6.0 (Thomas Fanslau)
|
- use _fdopen instead of fdopen for MSC >= 6.0 (Thomas Fanslau)
|
||||||
- added makelcc.bat for lcc-win32 (Tom St Denis)
|
- added makelcc.bat for lcc-win32 (Tom St Denis)
|
||||||
- in Makefile.dj2, use copy and del instead of install and rm (Frank Donahoe)
|
- in Makefile.dj2, use copy and del instead of install and rm (Frank Donahoe)
|
||||||
- Avoid expanded $Id: ChangeLog,v 1.1 2003/06/01 21:50:44 mflatt Exp $. Use "rcs -kb" or "cvs admin -kb" to avoid Id expansion.
|
- Avoid expanded `Id'. Use "rcs -kb" or "cvs admin -kb" to avoid Id expansion.
|
||||||
- check for unistd.h in configure (for off_t)
|
- check for unistd.h in configure (for off_t)
|
||||||
- remove useless check parameter in inflate_blocks_free
|
- remove useless check parameter in inflate_blocks_free
|
||||||
- avoid useless assignment of s->check to itself in inflate_blocks_new
|
- avoid useless assignment of s->check to itself in inflate_blocks_new
|
||||||
|
|
|
@ -1,7 +1,6 @@
|
||||||
/* A lexical scanner generated by flex */
|
/* A lexical scanner generated by flex */
|
||||||
|
|
||||||
/* Scanner skeleton version:
|
/* Scanner skeleton version:
|
||||||
* $Header: /proj/scheme/cvs/plt/src/wxxt/src/x/wbuild/src/scan.c,v 1.2 2002/03/01 00:46:49 sowens Exp $
|
|
||||||
* $FreeBSD: src/usr.bin/lex/flex.skl,v 1.4 1999/10/27 07:56:44 obrien Exp $
|
* $FreeBSD: src/usr.bin/lex/flex.skl,v 1.4 1999/10/27 07:56:44 obrien Exp $
|
||||||
*/
|
*/
|
||||||
|
|
||||||
|
@ -555,7 +554,6 @@ char *yytext;
|
||||||
** Author: Bert Bos <bert@let.rug.nl>
|
** Author: Bert Bos <bert@let.rug.nl>
|
||||||
** Revised by Joel N. Weber II <nemo@nautilus.sub>
|
** Revised by Joel N. Weber II <nemo@nautilus.sub>
|
||||||
** Description: (F)LEX definition for Widget Builder
|
** Description: (F)LEX definition for Widget Builder
|
||||||
** $Header: /proj/scheme/cvs/plt/src/wxxt/src/x/wbuild/src/scan.c,v 1.2 2002/03/01 00:46:49 sowens Exp $
|
|
||||||
*/
|
*/
|
||||||
#line 12 "scan.l"
|
#line 12 "scan.l"
|
||||||
#include <config.h>
|
#include <config.h>
|
||||||
|
|
|
@ -3,7 +3,6 @@
|
||||||
** Author: Bert Bos <bert@let.rug.nl>
|
** Author: Bert Bos <bert@let.rug.nl>
|
||||||
** Revised by Joel N. Weber II <nemo@nautilus.sub>
|
** Revised by Joel N. Weber II <nemo@nautilus.sub>
|
||||||
** Description: (F)LEX definition for Widget Builder
|
** Description: (F)LEX definition for Widget Builder
|
||||||
** $Header: /proj/scheme/cvs/plt/src/wxxt/src/x/wbuild/src/scan.l,v 1.1 2000/04/05 13:51:42 mflatt Exp $
|
|
||||||
*/
|
*/
|
||||||
|
|
||||||
%k 2000
|
%k 2000
|
||||||
|
|
Loading…
Reference in New Issue
Block a user