factor: QUALIFIED: -> qualified:. More FUNCTION: fixes

locals-and-roots
Doug Coleman 2016-06-04 17:15:47 -07:00
parent 7065aa70d2
commit 4e700098bd
49 changed files with 153 additions and 207 deletions

View File

@ -5,7 +5,7 @@ classes.struct combinators destructors io.backend io.files
io.files.acls.macosx.ffi kernel libc literals locals math.order io.files.acls.macosx.ffi kernel libc literals locals math.order
prettyprint sequences unix unix.ffi unix.groups unix.types prettyprint sequences unix unix.ffi unix.groups unix.types
unix.users ; unix.users ;
QUALIFIED: io qualified: io
in: io.files.acls.macosx in: io.files.acls.macosx
<PRIVATE <PRIVATE

View File

@ -6,7 +6,7 @@ prettyprint.custom sequences specialized-arrays vocabs.generated
vocabs.loader vocabs.parser ; vocabs.loader vocabs.parser ;
FROM: sequences.private => nth-unsafe ; FROM: sequences.private => nth-unsafe ;
FROM: specialized-arrays.private => nth-c-ptr direct-like ; FROM: specialized-arrays.private => nth-c-ptr direct-like ;
QUALIFIED: vectors.functor qualified: vectors.functor
in: specialized-vectors in: specialized-vectors
mixin: specialized-vector mixin: specialized-vector

View File

@ -1,7 +1,7 @@
USING: accessors alien alien.accessors alien.c-types USING: accessors alien alien.accessors alien.c-types
alien.syntax byte-arrays continuations fry kernel layouts math alien.syntax byte-arrays continuations fry kernel layouts math
namespaces prettyprint sequences tools.memory tools.test ; namespaces prettyprint sequences tools.memory tools.test ;
QUALIFIED: sets qualified: sets
in: alien.tests in: alien.tests
{ t } [ -1 <alien> alien-address 0 > ] unit-test { t } [ -1 <alien> alien-address 0 > ] unit-test

View File

@ -148,7 +148,7 @@ ARTICLE: "c-types.ambiguity" "Word name clashes with C types"
"FUNCTION: float magic_number ( ) ;" "FUNCTION: float magic_number ( ) ;"
"magic_number 3.0 + ." "magic_number 3.0 + ."
} }
"The correct solution is to use one of " { $link postpone: FROM: } ", " { $link postpone: QUALIFIED: } " or " { $link postpone: QUALIFIED-WITH: } " to disambiguate word lookup:" "The correct solution is to use one of " { $link postpone: FROM: } ", " { $link postpone: qualified: } " or " { $link postpone: QUALIFIED-WITH: } " to disambiguate word lookup:"
{ $code { $code
"USING: alien.syntax math prettyprint ;" "USING: alien.syntax math prettyprint ;"
"QUALIFIED-WITH: alien.c-types c" "QUALIFIED-WITH: alien.c-types c"

View File

@ -4,7 +4,7 @@ USING: assocs hash-sets hashtables hashtables.identity
hashtables.wrapped init io io.files kernel kernel.private make hashtables.wrapped init io io.files kernel kernel.private make
memory namespaces parser parser.notes sequences system vocabs memory namespaces parser parser.notes sequences system vocabs
vocabs.loader vocabs.hierarchy ; vocabs.loader vocabs.hierarchy ;
QUALIFIED: bootstrap.image.private qualified: bootstrap.image.private
in: bootstrap.stage1 in: bootstrap.stage1
"Bootstrap stage 1..." print flush "Bootstrap stage 1..." print flush

View File

@ -65,7 +65,7 @@ in: bootstrap.syntax
"UNUSE:" "UNUSE:"
"unuse:" "unuse:"
"USING:" "USING:"
"QUALIFIED:" "qualified:"
"qualified:" "qualified:"
"QUALIFIED-WITH:" "QUALIFIED-WITH:"
"FROM:" "FROM:"

View File

@ -1,5 +1,5 @@
USING: assocs graphs kernel namespaces sorting tools.test ; USING: assocs graphs kernel namespaces sorting tools.test ;
QUALIFIED: sets qualified: sets
H{ } "g" set H{ } "g" set
{ 1 2 3 } "v" set { 1 2 3 } "v" set

View File

@ -519,8 +519,8 @@ in: qualified.tests.bar
in: qualified.tests.baz in: qualified.tests.baz
: x ( -- a ) 3 ; : x ( -- a ) 3 ;
QUALIFIED: qualified.tests.foo qualified: qualified.tests.foo
QUALIFIED: qualified.tests.bar qualified: qualified.tests.bar
{ 1 2 3 } [ qualified.tests.foo:x qualified.tests.bar:x x ] unit-test { 1 2 3 } [ qualified.tests.foo:x qualified.tests.bar:x x ] unit-test
QUALIFIED-WITH: qualified.tests.bar p ; QUALIFIED-WITH: qualified.tests.bar p ;

View File

@ -529,19 +529,19 @@ HELP: USING:
{ $notes "If adding the vocabularies introduces ambiguity, referencing the ambiguous names will throw a " { $link ambiguous-use-error } "." } { $notes "If adding the vocabularies introduces ambiguity, referencing the ambiguous names will throw a " { $link ambiguous-use-error } "." }
{ $errors "Throws an error if one of the vocabularies does not exist." } ; { $errors "Throws an error if one of the vocabularies does not exist." } ;
HELP: QUALIFIED: HELP: qualified:
{ $syntax "QUALIFIED: vocab" } { $syntax "qualified: vocab" }
{ $description "Adds the vocabulary's words, prefixed with the vocabulary name, to the search path." } { $description "Adds the vocabulary's words, prefixed with the vocabulary name, to the search path." }
{ $notes "If adding the vocabulary introduces ambiguity, the vocabulary will take precedence when resolving any ambiguous names. This is a rare case; for example, suppose a vocabulary " { $snippet "fish" } " defines a word named " { $snippet "go:fishing" } ", and a vocabulary named " { $snippet "go" } " defines a word named " { $snippet "fishing" } ". Then, the following will call the latter word:" { $notes "If adding the vocabulary introduces ambiguity, the vocabulary will take precedence when resolving any ambiguous names. This is a rare case; for example, suppose a vocabulary " { $snippet "fish" } " defines a word named " { $snippet "go:fishing" } ", and a vocabulary named " { $snippet "go" } " defines a word named " { $snippet "fishing" } ". Then, the following will call the latter word:"
{ $code { $code
"use: fish" "use: fish"
"QUALIFIED: go" "qualified: go"
"go:fishing" "go:fishing"
} }
} }
{ $examples { $example { $examples { $example
"USING: prettyprint ;" "USING: prettyprint ;"
"QUALIFIED: math" "qualified: math"
"1 2 math:+ ." "1 2 math:+ ."
"3" "3"
} } ; } } ;

View File

@ -82,7 +82,7 @@ in: bootstrap.syntax
"USING:" [ ";" [ use-vocab ] each-token ] define-core-syntax "USING:" [ ";" [ use-vocab ] each-token ] define-core-syntax
"QUALIFIED:" [ scan-token dup add-qualified ] define-core-syntax "qualified:" [ scan-token dup add-qualified ] define-core-syntax
"qualified:" [ scan-token dup add-qualified ] define-core-syntax "qualified:" [ scan-token dup add-qualified ] define-core-syntax
"QUALIFIED-WITH:" [ scan-token scan-token ";" expect add-qualified ] define-core-syntax "QUALIFIED-WITH:" [ scan-token scan-token ";" expect add-qualified ] define-core-syntax

View File

@ -1,11 +1,12 @@
! Copyright (C) 2014 Doug Coleman. ! Copyright (C) 2014 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types alien.data alien.strings byte-arrays USING: accessors alien.c-types alien.data alien.strings arrays
classes.struct combinators constructors continuations destructors byte-arrays classes.struct combinators constructors
forestdb.ffi fry generalizations io.directories io.encodings.string continuations destructors forestdb.ffi forestdb.paths fry
io.encodings.utf8 io.pathnames kernel libc math multiline namespaces generalizations io.encodings.string io.encodings.utf8
sequences strings ; io.pathnames kernel libc math multiline namespaces sequences
QUALIFIED: sets strings ;
qualified: sets
in: forestdb.lib in: forestdb.lib
/* /*

View File

@ -10,19 +10,11 @@ library: libudev
c-type: udev c-type: udev
FUNCTION: udev* udev_ref ( FUNCTION: udev* udev_ref ( udev* udev ) ;
udev* udev )
FUNCTION: void udev_unref (
udev* udev )
FUNCTION: udev* udev_new ( ) ;
FUNCTION: void udev_unref ( udev* udev ) ;
FUNCTION: udev* udev_new ( ) ;
CALLBACK: void udev_set_log_fn_callback ( CALLBACK: void udev_set_log_fn_callback (
udev* udev udev* udev
@ -30,66 +22,41 @@ CALLBACK: void udev_set_log_fn_callback (
c-string file, c-string file,
int line, int line,
c-string fn, c-string fn,
c-string format ) c-string format ) ;
! va_list args ) ; ! va_list args ) ;
FUNCTION: void udev_set_log_fn ( FUNCTION: void udev_set_log_fn (
udev* udev, udev* udev,
udev_set_log_fn_callback log_fn ) udev_set_log_fn_callback log_fn ) ;
FUNCTION: int udev_get_log_priority ( udev* udev ) ;
FUNCTION: void udev_set_log_priority ( udev* udev, int priority ) ;
FUNCTION: int udev_get_log_priority ( FUNCTION: c-string udev_get_sys_path ( udev* udev ) ;
udev* udev )
FUNCTION: c-string udev_get_dev_path ( udev* udev ) ;
FUNCTION: void* udev_get_userdata ( udev* udev ) ;
FUNCTION: void udev_set_log_priority ( FUNCTION: void udev_set_userdata ( udev* udev, void* userdata ) ;
udev* udev,
int priority )
FUNCTION: c-string udev_get_sys_path (
udev* udev )
FUNCTION: c-string udev_get_dev_path (
udev* udev )
FUNCTION: void* udev_get_userdata (
udev* udev )
FUNCTION: void udev_set_userdata (
udev* udev,
void* userdata )
c-type: udev_list_entry c-type: udev_list_entry
FUNCTION: udev_list_entry* udev_list_entry_get_next ( FUNCTION: udev_list_entry* udev_list_entry_get_next ( udev_list_entry* list_entry ) ;
udev_list_entry* list_entry )
FUNCTION: udev_list_entry* udev_list_entry_get_by_name ( FUNCTION: udev_list_entry* udev_list_entry_get_by_name (
udev_list_entry* list_entry, udev_list_entry* list_entry,
c-string name ) c-string name ) ;
FUNCTION: c-string udev_list_entry_get_name ( FUNCTION: c-string udev_list_entry_get_name (
udev_list_entry* list_entry ) udev_list_entry* list_entry ) ;
FUNCTION: c-string udev_list_entry_get_value ( FUNCTION: c-string udev_list_entry_get_value (
udev_list_entry* list_entry ) udev_list_entry* list_entry ) ;
@ -102,342 +69,320 @@ FUNCTION: c-string udev_list_entry_get_value (
: udev-list-entries ( first_entry -- seq ) : udev-list-entries ( first_entry -- seq )
[ ] collector [ udev_list_entry_foreach ] dip ; [ ] collector [ udev_list_entry_foreach ] dip ;
c-type: udev_device c-type: udev_device
FUNCTION: udev_device* udev_device_ref ( FUNCTION: udev_device* udev_device_ref (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: void udev_device_unref ( FUNCTION: void udev_device_unref (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: udev* udev_device_get_udev ( FUNCTION: udev* udev_device_get_udev (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: udev_device* udev_device_new_from_syspath ( FUNCTION: udev_device* udev_device_new_from_syspath (
udev* udev, udev* udev,
c-string syspath ) c-string syspath ) ;
FUNCTION: udev_device* udev_device_new_from_devnum ( FUNCTION: udev_device* udev_device_new_from_devnum (
udev* udev, udev* udev,
char type, char type,
dev_t devnum ) dev_t devnum ) ;
FUNCTION: udev_device* udev_device_new_from_subsystem_sysname ( FUNCTION: udev_device* udev_device_new_from_subsystem_sysname (
udev* udev, udev* udev,
c-string subsystem, c-string subsystem,
c-string sysname ) c-string sysname ) ;
FUNCTION: udev_device* udev_device_get_parent ( FUNCTION: udev_device* udev_device_get_parent (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: udev_device* udev_device_get_parent_with_subsystem_devtype ( FUNCTION: udev_device* udev_device_get_parent_with_subsystem_devtype (
udev_device* udev_device, udev_device* udev_device,
c-string subsystem, c-string subsystem,
c-string devtype ) c-string devtype ) ;
FUNCTION: c-string udev_device_get_devpath ( FUNCTION: c-string udev_device_get_devpath (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: c-string udev_device_get_subsystem ( FUNCTION: c-string udev_device_get_subsystem (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: c-string udev_device_get_devtype ( FUNCTION: c-string udev_device_get_devtype (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: c-string udev_device_get_syspath ( FUNCTION: c-string udev_device_get_syspath (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: c-string udev_device_get_sysname ( FUNCTION: c-string udev_device_get_sysname (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: c-string udev_device_get_sysnum ( FUNCTION: c-string udev_device_get_sysnum (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: c-string udev_device_get_devnode ( FUNCTION: c-string udev_device_get_devnode (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: udev_list_entry* udev_device_get_devlinks_list_entry ( FUNCTION: udev_list_entry* udev_device_get_devlinks_list_entry (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: udev_list_entry* udev_device_get_properties_list_entry ( FUNCTION: udev_list_entry* udev_device_get_properties_list_entry (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: c-string udev_device_get_property_value ( FUNCTION: c-string udev_device_get_property_value (
udev_device* udev_device, udev_device* udev_device,
c-string key ) c-string key ) ;
FUNCTION: c-string udev_device_get_driver ( FUNCTION: c-string udev_device_get_driver (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: dev_t udev_device_get_devnum ( FUNCTION: dev_t udev_device_get_devnum (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: c-string udev_device_get_action ( FUNCTION: c-string udev_device_get_action (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: ulonglong udev_device_get_seqnum ( FUNCTION: ulonglong udev_device_get_seqnum (
udev_device* udev_device ) udev_device* udev_device ) ;
FUNCTION: c-string udev_device_get_sysattr_value ( FUNCTION: c-string udev_device_get_sysattr_value (
udev_device* udev_device, udev_device* udev_device,
c-string sysattr ) c-string sysattr ) ;
c-type: udev_monitor c-type: udev_monitor
FUNCTION: udev_monitor* udev_monitor_ref ( FUNCTION: udev_monitor* udev_monitor_ref (
udev_monitor* udev_monitor ) udev_monitor* udev_monitor ) ;
FUNCTION: void udev_monitor_unref ( FUNCTION: void udev_monitor_unref (
udev_monitor* udev_monitor ) udev_monitor* udev_monitor ) ;
FUNCTION: udev* udev_monitor_get_udev ( FUNCTION: udev* udev_monitor_get_udev (
udev_monitor* udev_monitor ) udev_monitor* udev_monitor ) ;
FUNCTION: udev_monitor* udev_monitor_new_from_netlink ( FUNCTION: udev_monitor* udev_monitor_new_from_netlink (
udev* udev, udev* udev,
c-string name ) c-string name ) ;
FUNCTION: udev_monitor* udev_monitor_new_from_socket ( FUNCTION: udev_monitor* udev_monitor_new_from_socket (
udev* udev, udev* udev,
c-string socket_path ) c-string socket_path ) ;
FUNCTION: int udev_monitor_enable_receiving ( FUNCTION: int udev_monitor_enable_receiving (
udev_monitor* udev_monitor ) udev_monitor* udev_monitor ) ;
FUNCTION: int udev_monitor_set_receive_buffer_size ( FUNCTION: int udev_monitor_set_receive_buffer_size (
udev_monitor* udev_monitor, udev_monitor* udev_monitor,
int size ) int size ) ;
FUNCTION: int udev_monitor_get_fd ( FUNCTION: int udev_monitor_get_fd (
udev_monitor* udev_monitor ) udev_monitor* udev_monitor ) ;
FUNCTION: udev_device* udev_monitor_receive_device ( FUNCTION: udev_device* udev_monitor_receive_device (
udev_monitor* udev_monitor ) udev_monitor* udev_monitor ) ;
FUNCTION: int udev_monitor_filter_add_match_subsystem_devtype ( FUNCTION: int udev_monitor_filter_add_match_subsystem_devtype (
udev_monitor* udev_monitor, udev_monitor* udev_monitor,
c-string subsystem, c-string subsystem,
c-string devtype ) c-string devtype ) ;
FUNCTION: int udev_monitor_filter_update ( FUNCTION: int udev_monitor_filter_update (
udev_monitor* udev_monitor ) udev_monitor* udev_monitor ) ;
FUNCTION: int udev_monitor_filter_remove ( FUNCTION: int udev_monitor_filter_remove (
udev_monitor* udev_monitor ) udev_monitor* udev_monitor ) ;
c-type: udev_enumerate c-type: udev_enumerate
FUNCTION: udev_enumerate* udev_enumerate_ref ( FUNCTION: udev_enumerate* udev_enumerate_ref (
udev_enumerate* udev_enumerate ) udev_enumerate* udev_enumerate ) ;
FUNCTION: void udev_enumerate_unref ( FUNCTION: void udev_enumerate_unref (
udev_enumerate* udev_enumerate ) udev_enumerate* udev_enumerate ) ;
FUNCTION: udev* udev_enumerate_get_udev ( FUNCTION: udev* udev_enumerate_get_udev (
udev_enumerate* udev_enumerate ) udev_enumerate* udev_enumerate ) ;
FUNCTION: udev_enumerate* udev_enumerate_new ( FUNCTION: udev_enumerate* udev_enumerate_new (
udev* udev ) udev* udev ) ;
FUNCTION: int udev_enumerate_add_match_subsystem ( FUNCTION: int udev_enumerate_add_match_subsystem (
udev_enumerate* udev_enumerate, udev_enumerate* udev_enumerate,
c-string subsystem ) c-string subsystem ) ;
FUNCTION: int udev_enumerate_add_nomatch_subsystem ( FUNCTION: int udev_enumerate_add_nomatch_subsystem (
udev_enumerate* udev_enumerate, udev_enumerate* udev_enumerate,
c-string subsystem ) c-string subsystem ) ;
FUNCTION: int udev_enumerate_add_match_sysattr ( FUNCTION: int udev_enumerate_add_match_sysattr (
udev_enumerate* udev_enumerate, udev_enumerate* udev_enumerate,
c-string sysattr, c-string sysattr,
c-string value ) c-string value ) ;
FUNCTION: int udev_enumerate_add_nomatch_sysattr ( FUNCTION: int udev_enumerate_add_nomatch_sysattr (
udev_enumerate* udev_enumerate, udev_enumerate* udev_enumerate,
c-string sysattr, c-string sysattr,
c-string value ) c-string value ) ;
FUNCTION: int udev_enumerate_add_match_property ( FUNCTION: int udev_enumerate_add_match_property (
udev_enumerate* udev_enumerate, udev_enumerate* udev_enumerate,
c-string property, c-string property,
c-string value ) c-string value ) ;
FUNCTION: int udev_enumerate_add_match_sysname ( FUNCTION: int udev_enumerate_add_match_sysname (
udev_enumerate* udev_enumerate, udev_enumerate* udev_enumerate,
c-string sysname ) c-string sysname ) ;
FUNCTION: int udev_enumerate_add_syspath ( FUNCTION: int udev_enumerate_add_syspath (
udev_enumerate* udev_enumerate, udev_enumerate* udev_enumerate,
c-string syspath ) c-string syspath ) ;
FUNCTION: int udev_enumerate_scan_devices ( FUNCTION: int udev_enumerate_scan_devices (
udev_enumerate* udev_enumerate ) udev_enumerate* udev_enumerate ) ;
FUNCTION: int udev_enumerate_scan_subsystems ( FUNCTION: int udev_enumerate_scan_subsystems (
udev_enumerate* udev_enumerate ) udev_enumerate* udev_enumerate ) ;
FUNCTION: udev_list_entry* udev_enumerate_get_list_entry ( FUNCTION: udev_list_entry* udev_enumerate_get_list_entry (
udev_enumerate* udev_enumerate ) udev_enumerate* udev_enumerate ) ;
c-type: udev_queue c-type: udev_queue
FUNCTION: udev_queue* udev_queue_ref ( FUNCTION: udev_queue* udev_queue_ref (
udev_queue* udev_queue ) udev_queue* udev_queue ) ;
FUNCTION: void udev_queue_unref ( FUNCTION: void udev_queue_unref (
udev_queue* udev_queue ) udev_queue* udev_queue ) ;
FUNCTION: udev* udev_queue_get_udev ( FUNCTION: udev* udev_queue_get_udev (
udev_queue* udev_queue ) udev_queue* udev_queue ) ;
FUNCTION: udev_queue* udev_queue_new ( FUNCTION: udev_queue* udev_queue_new (
udev* udev ) udev* udev ) ;
FUNCTION: ulonglong udev_queue_get_kernel_seqnum ( FUNCTION: ulonglong udev_queue_get_kernel_seqnum (
udev_queue* udev_queue ) udev_queue* udev_queue ) ;
FUNCTION: ulonglong udev_queue_get_udev_seqnum ( FUNCTION: ulonglong udev_queue_get_udev_seqnum (
udev_queue* udev_queue ) udev_queue* udev_queue ) ;
FUNCTION: int udev_queue_get_udev_is_active ( FUNCTION: int udev_queue_get_udev_is_active (
udev_queue* udev_queue ) udev_queue* udev_queue ) ;
FUNCTION: int udev_queue_get_queue_is_empty ( FUNCTION: int udev_queue_get_queue_is_empty (
udev_queue* udev_queue ) udev_queue* udev_queue ) ;
FUNCTION: int udev_queue_get_seqnum_is_finished ( FUNCTION: int udev_queue_get_seqnum_is_finished (
udev_queue* udev_queue, udev_queue* udev_queue,
ulonglong seqnum ) ulonglong seqnum ) ;
FUNCTION: int udev_queue_get_seqnum_sequence_is_finished ( FUNCTION: int udev_queue_get_seqnum_sequence_is_finished (
udev_queue* udev_queue, udev_queue* udev_queue,
ulonglong start, ulonglong start,
ulonglong end ) ulonglong end ) ;
FUNCTION: udev_list_entry* udev_queue_get_queued_list_entry ( FUNCTION: udev_list_entry* udev_queue_get_queued_list_entry (
udev_queue* udev_queue ) udev_queue* udev_queue ) ;
FUNCTION: udev_list_entry* udev_queue_get_failed_list_entry ( FUNCTION: udev_list_entry* udev_queue_get_failed_list_entry (
udev_queue* udev_queue ) udev_queue* udev_queue ) ;

View File

@ -1,7 +1,7 @@
USING: accessors arrays assocs continuations http.client kernel USING: accessors arrays assocs continuations http.client kernel
literals math.ranges pcre pcre.ffi pcre.private random sequences literals math.ranges pcre pcre.ffi pcre.private random sequences
system tools.test ; system tools.test ;
QUALIFIED: regexp qualified: regexp
in: pcre.tests in: pcre.tests
{ { "Bords" "words" "word" } } [ { { "Bords" "words" "word" } } [

View File

@ -5,7 +5,7 @@ USING: accessors alien alien.accessors alien.c-types alien.data
alien.enums alien.strings arrays assocs combinators fry alien.enums alien.strings arrays assocs combinators fry
io.encodings.string io.encodings.utf8 kernel literals math io.encodings.string io.encodings.utf8 kernel literals math
math.bitwise pcre.ffi sequences splitting strings ; math.bitwise pcre.ffi sequences splitting strings ;
QUALIFIED: regexp qualified: regexp
in: pcre in: pcre
ERROR: bad-option what ; ERROR: bad-option what ;

View File

@ -3,7 +3,7 @@ hashtables init io.encodings.utf8 kernel namespaces
python.errors python.ffi python.objects sequences python.errors python.ffi python.objects sequences
specialized-arrays strings vectors ; specialized-arrays strings vectors ;
in: python in: python
QUALIFIED: math qualified: math
ERROR: python-error type message traceback ; ERROR: python-error type message traceback ;

View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.data alien.libraries alien.strings compiler.units USING: alien.data alien.libraries alien.strings compiler.units
destructors fry io.encodings.utf8 kernel libc sequences words ; destructors fry io.encodings.utf8 kernel libc sequences words ;
QUALIFIED: readline.ffi qualified: readline.ffi
in: readline in: readline
: readline ( prompt -- str ) : readline ( prompt -- str )

View File

@ -1,5 +1,5 @@
USING: accessors alien.c-types alien.syntax system vocabs ; USING: accessors alien.c-types alien.syntax system vocabs ;
QUALIFIED: sequences qualified: sequences
in: unix.types in: unix.types
TYPEDEF: uchar u_int8_t ; TYPEDEF: uchar u_int8_t ;

View File

@ -5,7 +5,7 @@ byte-arrays classes.struct combinators combinators.short-circuit
continuations fry grouping io.encodings.utf8 kernel math continuations fry grouping io.encodings.utf8 kernel math
math.parser namespaces sequences splitting strings system unix math.parser namespaces sequences splitting strings system unix
unix.ffi vocabs ; unix.ffi vocabs ;
QUALIFIED: unix.ffi qualified: unix.ffi
in: unix.users in: unix.users
TUPLE: passwd user-name password uid gid gecos dir shell ; TUPLE: passwd user-name password uid gid gecos dir shell ;

View File

@ -6,8 +6,8 @@ USING: accessors alien.c-types alien.data arrays
combinators cpu.8080 cpu.8080.emulator io.pathnames kernel combinators cpu.8080 cpu.8080.emulator io.pathnames kernel
locals math math.order openal openal.alut opengl.gl sequences locals math math.order openal openal.alut opengl.gl sequences
specialized-arrays ui ui.gadgets ui.gestures ui.render ; specialized-arrays ui ui.gadgets ui.gestures ui.render ;
QUALIFIED: threads qualified: threads
QUALIFIED: system qualified: system
specialized-array: uchar specialized-array: uchar
in: space-invaders in: space-invaders

View File

@ -6,21 +6,21 @@ compiler.cfg.intrinsics.fixnum compiler.cfg.intrinsics.float
compiler.cfg.intrinsics.misc compiler.cfg.intrinsics.slots compiler.cfg.intrinsics.misc compiler.cfg.intrinsics.slots
compiler.cfg.intrinsics.strings compiler.cfg.stacks compiler.cfg.intrinsics.strings compiler.cfg.stacks
cpu.architecture kernel words ; cpu.architecture kernel words ;
QUALIFIED: alien qualified: alien
QUALIFIED: alien.accessors qualified: alien.accessors
QUALIFIED: alien.c-types qualified: alien.c-types
QUALIFIED: alien.data.private qualified: alien.data.private
QUALIFIED: arrays qualified: arrays
QUALIFIED: byte-arrays qualified: byte-arrays
QUALIFIED: classes.tuple.private qualified: classes.tuple.private
QUALIFIED: kernel.private qualified: kernel.private
QUALIFIED: math.bitwise.private qualified: math.bitwise.private
QUALIFIED: math.floats.private qualified: math.floats.private
QUALIFIED: math.integers.private qualified: math.integers.private
QUALIFIED: math.libm qualified: math.libm
QUALIFIED: math.private qualified: math.private
QUALIFIED: slots.private qualified: slots.private
QUALIFIED: strings.private qualified: strings.private
in: compiler.cfg.intrinsics in: compiler.cfg.intrinsics
ERROR: inline-intrinsics-not-supported word quot ; ERROR: inline-intrinsics-not-supported word quot ;

View File

@ -8,7 +8,7 @@ compiler.cfg.renaming.functor compiler.cfg.ssa.destruction.leaders
compiler.cfg.utilities fry heaps kernel make math namespaces sequences compiler.cfg.utilities fry heaps kernel make math namespaces sequences
; ;
in: compiler.cfg.linear-scan.assignment in: compiler.cfg.linear-scan.assignment
QUALIFIED: sets qualified: sets
! This contains both active and inactive intervals; any interval ! This contains both active and inactive intervals; any interval
! such that start <= insn# <= end is in this set. ! such that start <= insn# <= end is in this set.

View File

@ -5,7 +5,7 @@ compiler.cfg.ssa.destruction.leaders compiler.cfg.utilities
cpu.architecture cpu.x86.assembler.operands kernel math namespaces cpu.architecture cpu.x86.assembler.operands kernel math namespaces
sequences system tools.test ; sequences system tools.test ;
in: compiler.cfg.liveness.tests in: compiler.cfg.liveness.tests
QUALIFIED: sets qualified: sets
! compute-edge-live-in ! compute-edge-live-in
{ H{ } } [ { H{ } } [

View File

@ -3,7 +3,7 @@
USING: assocs compiler.cfg.instructions compiler.cfg.registers USING: assocs compiler.cfg.instructions compiler.cfg.registers
compiler.cfg.ssa.destruction.leaders cpu.architecture deques compiler.cfg.ssa.destruction.leaders cpu.architecture deques
dlists fry kernel locals make namespaces sequences ; dlists fry kernel locals make namespaces sequences ;
QUALIFIED: sets qualified: sets
in: compiler.cfg.parallel-copy in: compiler.cfg.parallel-copy
<PRIVATE <PRIVATE

View File

@ -1,7 +1,7 @@
USING: accessors arrays compiler.cfg compiler.cfg.debugger USING: accessors arrays compiler.cfg compiler.cfg.debugger
compiler.cfg.ssa.construction.tdmsc compiler.cfg.utilities compiler.cfg.ssa.construction.tdmsc compiler.cfg.utilities
kernel namespaces sequences tools.test ; kernel namespaces sequences tools.test ;
QUALIFIED: sets qualified: sets
in: compiler.cfg.ssa.construction.tdmsc.tests in: compiler.cfg.ssa.construction.tdmsc.tests
: test-tdmsc ( -- ) : test-tdmsc ( -- )

View File

@ -3,7 +3,7 @@ compiler.cfg.registers compiler.cfg.ssa.destruction.coalescing
compiler.cfg.ssa.destruction.leaders compiler.cfg.ssa.interference compiler.cfg.ssa.destruction.leaders compiler.cfg.ssa.interference
compiler.cfg.utilities cpu.architecture grouping kernel make compiler.cfg.utilities cpu.architecture grouping kernel make
namespaces random sequences tools.test ; namespaces random sequences tools.test ;
QUALIFIED: sets qualified: sets
in: compiler.cfg.ssa.destruction.coalescing.tests in: compiler.cfg.ssa.destruction.coalescing.tests
! eliminatable-copy? ! eliminatable-copy?

View File

@ -3,7 +3,7 @@ compiler.cfg.stacks.height compiler.cfg.stacks.local
compiler.cfg.utilities compiler.test cpu.architecture kernel compiler.cfg.utilities compiler.test cpu.architecture kernel
kernel.private make math namespaces sequences.private slots.private kernel.private make math namespaces sequences.private slots.private
tools.test ; tools.test ;
QUALIFIED: sets qualified: sets
in: compiler.cfg.stacks.local.tests in: compiler.cfg.stacks.local.tests
! loc>vreg ! loc>vreg

View File

@ -4,7 +4,7 @@ USING: accessors arrays assocs compiler.cfg.dataflow-analysis
compiler.cfg.instructions compiler.cfg.linearization compiler.cfg.registers compiler.cfg.instructions compiler.cfg.linearization compiler.cfg.registers
compiler.cfg.stacks.local fry kernel math math.order namespaces compiler.cfg.stacks.local fry kernel math math.order namespaces
sequences ; sequences ;
QUALIFIED: sets qualified: sets
in: compiler.cfg.stacks.padding in: compiler.cfg.stacks.padding
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

View File

@ -3,7 +3,7 @@ compiler.cfg.instructions compiler.cfg.stack-frame compiler.cfg.utilities
compiler.codegen.gc-maps compiler.codegen.relocation cpu.architecture compiler.codegen.gc-maps compiler.codegen.relocation cpu.architecture
cpu.x86 byte-arrays make namespaces kernel layouts math sequences cpu.x86 byte-arrays make namespaces kernel layouts math sequences
specialized-arrays system tools.test ; specialized-arrays system tools.test ;
QUALIFIED: vm qualified: vm
specialized-array: uint specialized-array: uint
in: compiler.codegen.gc-maps.tests in: compiler.codegen.gc-maps.tests

View File

@ -1,7 +1,7 @@
USING: accessors classes.struct continuations kernel kernel.private literals USING: accessors classes.struct continuations kernel kernel.private literals
math memory sequences system threads.private tools.dispatch.private math memory sequences system threads.private tools.dispatch.private
tools.test ; tools.test ;
QUALIFIED: vm qualified: vm
in: compiler.tests.callstack-overflow in: compiler.tests.callstack-overflow
! This test file is for all callstack overflow-related problems. ! This test file is for all callstack overflow-related problems.

View File

@ -7,7 +7,7 @@ make alien.c-types alien.data combinators.short-circuit math.order
math.libm math.parser math.functions alien.syntax memory math.libm math.parser math.functions alien.syntax memory
stack-checker ; stack-checker ;
FROM: math => float ; FROM: math => float ;
QUALIFIED: namespaces.private qualified: namespaces.private
in: compiler.tests.codegen in: compiler.tests.codegen
! Originally, this file did black box testing of templating ! Originally, this file did black box testing of templating

View File

@ -1,5 +1,5 @@
USING: alien alien.syntax eval math tools.test ; USING: alien alien.syntax eval math tools.test ;
QUALIFIED: alien.c-types qualified: alien.c-types
in: compiler.tests.redefine24 in: compiler.tests.redefine24
TYPEDEF: alien.c-types:int type-1 ; TYPEDEF: alien.c-types:int type-1 ;

View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs compiler.tree compiler.tree.combinators USING: accessors assocs compiler.tree compiler.tree.combinators
fry kernel namespaces sequences stack-checker.branches ; fry kernel namespaces sequences stack-checker.branches ;
QUALIFIED: sets qualified: sets
in: compiler.tree.def-use in: compiler.tree.def-use
symbol: def-use symbol: def-use

View File

@ -6,7 +6,7 @@ io.backend io.backend.unix.multiplexers io.buffers io.files
io.ports io.timeouts kernel kernel.private libc locals make math io.ports io.timeouts kernel kernel.private libc locals make math
namespaces sequences summary system threads unix unix.ffi namespaces sequences summary system threads unix unix.ffi
unix.stat unix.types ; unix.stat unix.types ;
QUALIFIED: io qualified: io
in: io.backend.unix in: io.backend.unix
CONSTANT: file-mode 0o0666 ; CONSTANT: file-mode 0o0666 ;

View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.c-types alien.data system kernel unix math sequences USING: alien.c-types alien.data system kernel unix math sequences
io.backend.unix io.ports libc specialized-arrays accessors unix.ffi ; io.backend.unix io.ports libc specialized-arrays accessors unix.ffi ;
QUALIFIED: io.pipes qualified: io.pipes
specialized-array: int specialized-array: int
in: io.pipes.unix in: io.pipes.unix

View File

@ -246,7 +246,7 @@ SYNTAX: M:
define ; define ;
! Definition protocol. We qualify core generics here ! Definition protocol. We qualify core generics here
QUALIFIED: syntax qualified: syntax
syntax:M: generic definer drop \ GENERIC: f ; syntax:M: generic definer drop \ GENERIC: f ;

View File

@ -7,7 +7,7 @@ hash-sets hashtables io.pathnames io.styles kernel make math
math.order math.parser namespaces prettyprint.config math.order math.parser namespaces prettyprint.config
prettyprint.custom prettyprint.sections prettyprint.stylesheet prettyprint.custom prettyprint.sections prettyprint.stylesheet
quotations sbufs sequences strings vectors words ; quotations sbufs sequences strings vectors words ;
QUALIFIED: sets qualified: sets
in: prettyprint.backend in: prettyprint.backend
M: effect pprint* effect>string text ; M: effect pprint* effect>string text ;

View File

@ -1,6 +1,6 @@
USING: accessors classes.struct kernel kernel.private math math.order USING: accessors classes.struct kernel kernel.private math math.order
tools.test ; tools.test ;
QUALIFIED: vm qualified: vm
in: vm.tests in: vm.tests
: get-ctx ( -- ctx ) : get-ctx ( -- ctx )

View File

@ -1,6 +1,6 @@
USING: arrays definitions fuel.xref fuel.xref.private io.pathnames kernel math USING: arrays definitions fuel.xref fuel.xref.private io.pathnames kernel math
sequences sets tools.test ; sequences sets tools.test ;
QUALIFIED: tools.crossref qualified: tools.crossref
in: fuel.xref.tests in: fuel.xref.tests
{ t } [ { t } [

View File

@ -10,7 +10,7 @@ io.files.info io.directories io.pathnames io.encodings.binary
fry xml.entities destructors urls html xml.syntax fry xml.entities destructors urls html xml.syntax
html.templates.fhtml http http.server http.server.responses html.templates.fhtml http http.server http.server.responses
http.server.redirection xml.writer ; http.server.redirection xml.writer ;
QUALIFIED: sets qualified: sets
TUPLE: file-responder root hook special index-names allow-listings ; TUPLE: file-responder root hook special index-names allow-listings ;

View File

@ -5,7 +5,7 @@ compression.inflate fry grouping images images.loader io io.binary
io.encodings.8-bit.latin1 io.encodings.ascii io.encodings.binary io.encodings.8-bit.latin1 io.encodings.ascii io.encodings.binary
io.encodings.string io.streams.byte-array io.streams.throwing kernel io.encodings.string io.streams.byte-array io.streams.throwing kernel
locals math math.bitwise math.functions sequences sorting splitting ; locals math math.bitwise math.functions sequences sorting splitting ;
QUALIFIED: bitstreams qualified: bitstreams
in: images.png in: images.png
singleton: png-image singleton: png-image

View File

@ -3,7 +3,7 @@ formatting fry grouping io io.crlf io.encodings.ascii io.encodings.binary
io.encodings.string io.encodings.utf7 io.encodings.utf8 io.sockets io.encodings.string io.encodings.utf7 io.encodings.utf8 io.sockets
io.sockets.secure io.streams.duplex io.streams.string kernel math math.parser io.sockets.secure io.streams.duplex io.streams.string kernel math math.parser
sequences splitting strings ; sequences splitting strings ;
QUALIFIED: pcre qualified: pcre
in: imap in: imap
ERROR: imap4-error ind data ; ERROR: imap4-error ind data ;

View File

@ -3,7 +3,7 @@
USING: logging.analysis logging.server logging smtp kernel USING: logging.analysis logging.server logging smtp kernel
io.files io.streams.string namespaces make timers assocs io.files io.streams.string namespaces make timers assocs
io.encodings.utf8 accessors calendar sequences locals ; io.encodings.utf8 accessors calendar sequences locals ;
QUALIFIED: io.sockets qualified: io.sockets
in: logging.insomniac in: logging.insomniac
symbol: insomniac-sender symbol: insomniac-sender

View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: combinators.short-circuit kernel locals namespaces sbufs USING: combinators.short-circuit kernel locals namespaces sbufs
sequences splitting unicode.categories unicode.data ; sequences splitting unicode.categories unicode.data ;
QUALIFIED: ascii qualified: ascii
in: unicode.case in: unicode.case
symbol: locale ! Just casing locale, or overall? symbol: locale ! Just casing locale, or overall?

View File

@ -12,7 +12,7 @@ tools.deploy.config combinators combinators.private classes
vocabs.loader.private classes.builtin slots.private grouping vocabs.loader.private classes.builtin slots.private grouping
command-line io.pathnames memoize namespaces.private command-line io.pathnames memoize namespaces.private
hashtables locals source-files ; hashtables locals source-files ;
QUALIFIED: classes.private qualified: classes.private
in: tools.deploy.shaker in: tools.deploy.shaker
! This file is some hairy shit. ! This file is some hairy shit.

View File

@ -1,7 +1,7 @@
USING: accessors alien.c-types classes.struct io kernel math USING: accessors alien.c-types classes.struct io kernel math
math.bitwise tools.image-analyzer.gc-info tools.image-analyzer.vm ; math.bitwise tools.image-analyzer.gc-info tools.image-analyzer.vm ;
in: tools.image-analyzer.code-heap-reader in: tools.image-analyzer.code-heap-reader
QUALIFIED: layouts qualified: layouts
: free? ( code-block -- ? ) : free? ( code-block -- ? )
header>> 1 mask? ; header>> 1 mask? ;

View File

@ -7,11 +7,11 @@ random sequences sequences.generalizations
tools.image-analyzer.gc-info tools.image-analyzer.utils tools.test vm tools.image-analyzer.gc-info tools.image-analyzer.utils tools.test vm
vocabs words ; vocabs words ;
in: tools.image-analyzer.gc-info.tests in: tools.image-analyzer.gc-info.tests
QUALIFIED: cpu.x86.features.private qualified: cpu.x86.features.private
QUALIFIED: crypto.aes.utils qualified: crypto.aes.utils
QUALIFIED: effects qualified: effects
QUALIFIED: gtk-samples.opengl qualified: gtk-samples.opengl
QUALIFIED: opencl qualified: opencl
: normal? ( word -- ? ) : normal? ( word -- ? )
{ [ generic? ] [ primitive? ] [ inline? ] [ no-compile? ] } 1|| not ; { [ generic? ] [ primitive? ] [ inline? ] [ no-compile? ] } 1|| not ;

View File

@ -8,7 +8,7 @@ USING: kernel alien.c-types combinators namespaces make arrays
ui.gadgets.handler ui.gestures assocs ui.gadgets macros ui.gadgets.handler ui.gestures assocs ui.gadgets macros
specialized-arrays.double ; specialized-arrays.double ;
QUALIFIED: syntax qualified: syntax
in: cfdg in: cfdg

View File

@ -4,7 +4,7 @@ USING: alien.c-types alien.syntax destructors hexdump io
io.buffers io.nonblocking io.sockets io.buffers io.nonblocking io.sockets
io.unix.backend io.unix.files kernel libc locals math qualified io.unix.backend io.unix.files kernel libc locals math qualified
sequences io.sniffer.backend ; sequences io.sniffer.backend ;
QUALIFIED: unix qualified: unix
in: io.sniffer.bsd in: io.sniffer.bsd
M: unix-io destruct-handle ( obj -- ) unix:close ; M: unix-io destruct-handle ( obj -- ) unix:close ;

View File

@ -2,7 +2,7 @@ USING: accessors assocs arrays fry kernel lexer make math.parser
models monads namespaces parser sequences models monads namespaces parser sequences
sequences.extras models.combinators ui.gadgets sequences.extras models.combinators ui.gadgets
ui.gadgets.tracks words ui.gadgets.controls ; ui.gadgets.tracks words ui.gadgets.controls ;
QUALIFIED: make qualified: make
QUALIFIED-WITH: ui.gadgets.books book ; QUALIFIED-WITH: ui.gadgets.books book ;
in: ui.gadgets.layout in: ui.gadgets.layout