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

windows.com: split off prettyprinting into windows.com.prettyprint

db4
Slava Pestov 2009-09-04 22:00:23 -05:00
parent 1bdaebdf5e
commit 3e6189fec1
3 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/windows/com/prettyprint/prettyprint.factor Executable file
View File

@ -0,0 +1,7 @@
! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: windows.com windows.kernel32 windows.ole32
prettyprint.custom prettyprint.sections sequences ;
IN: windows.com.prettyprint
M: GUID pprint* guid>string "GUID: " prepend text ;

8
basis/windows/com/syntax/syntax.factor
View File

@ -2,7 +2,7 @@ USING: alien alien.c-types alien.accessors effects kernel
windows.ole32 parser lexer splitting grouping sequences windows.ole32 parser lexer splitting grouping sequences
namespaces assocs quotations generalizations accessors words namespaces assocs quotations generalizations accessors words
macros alien.syntax fry arrays layouts math classes.struct macros alien.syntax fry arrays layouts math classes.struct
windows.kernel32 prettyprint.custom prettyprint.sections ; windows.kernel32 ;
IN: windows.com.syntax IN: windows.com.syntax
<PRIVATE <PRIVATE
@ -99,4 +99,8 @@ SYNTAX: COM-INTERFACE:
SYNTAX: GUID: scan string>guid parsed ; SYNTAX: GUID: scan string>guid parsed ;
M: GUID pprint* guid>string "GUID: " prepend text ; USING: vocabs vocabs.loader ;
"prettyprint" vocab [
"windows.com.prettyprint" require
] when

3
basis/windows/com/wrapper/wrapper.factor
View File

@ -3,8 +3,7 @@ init windows.com.syntax.private windows.com continuations kernel
namespaces windows.ole32 libc vocabs assocs accessors arrays namespaces windows.ole32 libc vocabs assocs accessors arrays
sequences quotations combinators math words compiler.units sequences quotations combinators math words compiler.units
destructors fry math.parser generalizations sets destructors fry math.parser generalizations sets
specialized-arrays.alien specialized-arrays.direct.alien specialized-arrays.alien windows.kernel32 classes.struct ;
windows.kernel32 classes.struct ;
IN: windows.com.wrapper IN: windows.com.wrapper
TUPLE: com-wrapper < disposable callbacks vtbls ; TUPLE: com-wrapper < disposable callbacks vtbls ;