2008-01-09 18:24:03 -05:00
|
|
|
! Copyright (C) 2007 Daniel Ehrenberg
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-05-10 01:16:46 -04:00
|
|
|
USING: delegate sequences.private sequences assocs
|
2009-01-13 18:12:43 -05:00
|
|
|
io io.styles definitions kernel continuations ;
|
2008-01-09 18:24:03 -05:00
|
|
|
IN: delegate.protocols
|
|
|
|
|
|
|
|
PROTOCOL: sequence-protocol
|
2008-05-10 01:16:46 -04:00
|
|
|
clone clone-like like new-sequence new-resizable nth
|
|
|
|
nth-unsafe set-nth set-nth-unsafe length set-length
|
|
|
|
lengthen ;
|
2008-01-09 18:24:03 -05:00
|
|
|
|
|
|
|
PROTOCOL: assoc-protocol
|
2008-05-10 01:16:46 -04:00
|
|
|
at* assoc-size >alist set-at assoc-clone-like
|
2008-06-09 06:22:21 -04:00
|
|
|
delete-at clear-assoc new-assoc assoc-like ;
|
2008-01-09 18:24:03 -05:00
|
|
|
|
2008-05-05 04:51:41 -04:00
|
|
|
PROTOCOL: input-stream-protocol
|
2008-05-09 17:38:27 -04:00
|
|
|
stream-read1 stream-read stream-read-partial stream-readln
|
2008-12-08 20:45:58 -05:00
|
|
|
stream-read-until ;
|
2008-05-05 04:51:41 -04:00
|
|
|
|
|
|
|
PROTOCOL: output-stream-protocol
|
2008-01-09 18:24:03 -05:00
|
|
|
stream-flush stream-write1 stream-write stream-format
|
2008-05-09 17:38:27 -04:00
|
|
|
stream-nl make-span-stream make-block-stream
|
2008-02-09 22:34:42 -05:00
|
|
|
make-cell-stream stream-write-table ;
|
2008-01-09 18:24:03 -05:00
|
|
|
|
|
|
|
PROTOCOL: definition-protocol
|
2008-04-04 10:17:33 -04:00
|
|
|
where set-where forget uses
|
2008-01-09 18:24:03 -05:00
|
|
|
synopsis* definer definition ;
|