steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

move deprecation to tools.deprecation; load with bootstrap.tools

db4
Joe Groff 2009-08-20 16:17:36 -05:00
parent 2760079b65
commit 6089251574
6 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/bootstrap/tools/tools.factor
View File

@ -8,6 +8,7 @@ IN: bootstrap.tools
"tools.crossref" "tools.crossref"
"tools.errors" "tools.errors"
"tools.deploy" "tools.deploy"
"tools.deprecation"
"tools.disassembler" "tools.disassembler"
"tools.memory" "tools.memory"
"tools.profiler" "tools.profiler"

0
basis/deprecation/authors.txt → basis/tools/deprecation/authors.txt
View File

8
basis/deprecation/deprecation-docs.factor → basis/tools/deprecation/deprecation-docs.factor
View File

@ -1,13 +1,13 @@
! (c)2009 Joe Groff bsd license ! (c)2009 Joe Groff bsd license
USING: help.markup help.syntax kernel words ; USING: help.markup help.syntax kernel words ;
IN: deprecation IN: tools.deprecation
HELP: :deprecations HELP: :deprecations
{ $description "Prints all deprecation notes." } ; { $description "Prints all deprecation notes." } ;
ARTICLE: "deprecation" "Deprecation tracking" ARTICLE: "tools.deprecation" "Deprecation tracking"
"Factor's core syntax defines a " { $link POSTPONE: deprecated } " word that can be applied to words to mark them as deprecated. When the " { $vocab-link "deprecation" } " vocabulary is loaded, notes will be collected and reported by the " { $link "tools.errors" } " mechanism when deprecated words are used to define other words." "Factor's core syntax defines a " { $link POSTPONE: deprecated } " word that can be applied to words to mark them as deprecated. When the " { $vocab-link "tools.deprecation" } " vocabulary is loaded, notes will be collected and reported by the " { $link "tools.errors" } " mechanism when deprecated words are used to define other words."
{ $subsection POSTPONE: deprecated } { $subsection POSTPONE: deprecated }
{ $subsection :deprecations } ; { $subsection :deprecations } ;
ABOUT: "deprecation" ABOUT: "tools.deprecation"

8
basis/deprecation/deprecation.factor → basis/tools/deprecation/deprecation.factor
View File

@ -1,9 +1,9 @@
! (c)2009 Joe Groff bsd license ! (c)2009 Joe Groff bsd license
USING: accessors arrays assocs compiler.units USING: accessors arrays assocs compiler.units
debugger io kernel namespaces prettyprint sequences debugger io kernel namespaces prettyprint sequences
source-files.errors summary tools.crossref.private source-files.errors summary tools.crossref
tools.errors words ; tools.crossref.private tools.errors words ;
IN: deprecation IN: tools.deprecation
SYMBOL: +deprecation-note+ SYMBOL: +deprecation-note+
SYMBOL: deprecation-notes SYMBOL: deprecation-notes
@ -42,7 +42,7 @@ T{ error-type
: check-deprecations ( word -- ) : check-deprecations ( word -- )
dup "forgotten" word-prop dup "forgotten" word-prop
[ clear-deprecation-note ] [ [ clear-deprecation-note ] [
dup def>> [ deprecated? ] filter dup def>> uses [ deprecated? ] filter
[ clear-deprecation-note ] [ >array deprecation-note ] if-empty [ clear-deprecation-note ] [ >array deprecation-note ] if-empty
] if ; ] if ;

0
basis/deprecation/summary.txt → basis/tools/deprecation/summary.txt
View File

2
core/syntax/syntax-docs.factor
View File

@ -193,7 +193,7 @@ HELP: delimiter
HELP: deprecated HELP: deprecated
{ $syntax ": foo ... ; deprecated" } { $syntax ": foo ... ; deprecated" }
{ $description "Declares the most recently defined word as deprecated. If the " { $vocab-link "deprecation" } " vocabulary is loaded, usages of deprecated words will be noted as they are made." } ; { $description "Declares the most recently defined word as deprecated. If the " { $vocab-link "tools.deprecation" } " vocabulary is loaded, usages of deprecated words will be noted as they are made." } ;
HELP: SYNTAX: HELP: SYNTAX:
{ $syntax "SYNTAX: foo ... ;" } { $syntax "SYNTAX: foo ... ;" }