Initial import of files
Eduardo Cavazos
parent
f6499a63b0
commit
bd89c89b9f
|
|
@ -0,0 +1,103 @@
|
||||||
|
! Ed Cavazos - wayo.cavazos@gmail.com
|
||||||
|
|
||||||
|
IN: automata
|
||||||
|
|
||||||
|
USING: parser kernel hashtables namespaces sequences lists math io
|
||||||
|
threads strings vectors prettyprint xlib xobj ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
! set-rule
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
SYMBOL: rule
|
||||||
|
|
||||||
|
SYMBOL: char-0
|
||||||
|
|
||||||
|
48 char-0 set
|
||||||
|
|
||||||
|
: rule-keys ( -- { ... } )
|
||||||
|
{ { 0 0 0 }
|
||||||
|
{ 0 0 1 }
|
||||||
|
{ 0 1 0 }
|
||||||
|
{ 0 1 1 }
|
||||||
|
{ 1 0 0 }
|
||||||
|
{ 1 0 1 }
|
||||||
|
{ 1 1 0 }
|
||||||
|
{ 1 1 1 } } ;
|
||||||
|
|
||||||
|
: rule-values ( n -- { ... } )
|
||||||
|
>bin 8 char-0 get pad-left
|
||||||
|
>vector
|
||||||
|
[ 48 - ] map ;
|
||||||
|
|
||||||
|
: set-rule ( n -- )
|
||||||
|
rule-values rule-keys [ rule get set-hash ] 2each ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
! step
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
: 3nth ( n seq -- slice ) >r dup 3 + r> <slice> ;
|
||||||
|
|
||||||
|
: next-chunk ( << slice: a b c >> - value )
|
||||||
|
>vector rule get hash ;
|
||||||
|
|
||||||
|
: step-line ( line -- new-line )
|
||||||
|
>r { 0 } r> { 0 } append append
|
||||||
|
(step) ;
|
||||||
|
|
||||||
|
: (step) ( line -- new-line )
|
||||||
|
dup length 2 - [ swap 3nth next-chunk ] map-with ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
! Display the rule
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
! SYMBOL: win
|
||||||
|
|
||||||
|
: setup-window
|
||||||
|
":0.0" initialize-x
|
||||||
|
create-window* win set
|
||||||
|
400 400 resize-window*
|
||||||
|
map-window*
|
||||||
|
flush-dpy ;
|
||||||
|
|
||||||
|
: random-line ( -- line )
|
||||||
|
0 400 <range>
|
||||||
|
[ drop 0 1 random-int ]
|
||||||
|
map ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
! show-line
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
: show-point ( { x y } p -- )
|
||||||
|
1 = [ draw-point* ] [ drop ] ifte ;
|
||||||
|
|
||||||
|
: (show-line) ( { x y } line -- )
|
||||||
|
[ >r dup r> show-point { 1 0 } v+ ] each drop ;
|
||||||
|
|
||||||
|
: show-line ( y line -- )
|
||||||
|
>r >r 0 r> 2vector r> (show-line) ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
! Go
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
: run-rule
|
||||||
|
clear-window*
|
||||||
|
0 random-line
|
||||||
|
400
|
||||||
|
[ drop
|
||||||
|
2dup show-line >r
|
||||||
|
1 +
|
||||||
|
r> step-line ] each
|
||||||
|
flush-dpy ;
|
||||||
|
|
||||||
|
: random-gallery
|
||||||
|
1 255 random-int
|
||||||
|
dup unparse print
|
||||||
|
set-rule
|
||||||
|
run-rule
|
||||||
|
5000 sleep
|
||||||
|
random-gallery ;
|
||||||
|
|
@ -0,0 +1,572 @@
|
||||||
|
! Eduardo Cavazos - wayo.cavazos@gmail.com
|
||||||
|
!
|
||||||
|
! The most popular guides to programming the X Window System are the
|
||||||
|
! series from Oreilly. For programming with Xlib, there is the
|
||||||
|
! reference manual and the programmers guide. However, a lesser known
|
||||||
|
! manual is the free Xlib manual that comes with the MIT X
|
||||||
|
! distribution. The arrangement and order of these bindings follows
|
||||||
|
! the structure of the free Xlib manual. If you add to this library
|
||||||
|
! and are wondering what part of the file to modify, just find the
|
||||||
|
! function or data structure in the manual and note the section.
|
||||||
|
|
||||||
|
IN: xlib
|
||||||
|
USE: alien
|
||||||
|
USE: math
|
||||||
|
LIBRARY: xlib
|
||||||
|
|
||||||
|
! "X11" "libX11.so" "cdecl" add-library
|
||||||
|
|
||||||
|
"xlib" "libX11.so" "cdecl" add-library
|
||||||
|
|
||||||
|
TYPEDEF: ulong XID
|
||||||
|
TYPEDEF: XID Window
|
||||||
|
TYPEDEF: XID Drawable
|
||||||
|
TYPEDEF: XID Font
|
||||||
|
TYPEDEF: XID Pixmap
|
||||||
|
TYPEDEF: XID Cursor
|
||||||
|
TYPEDEF: XID Colormap
|
||||||
|
TYPEDEF: XID GContext
|
||||||
|
TYPEDEF: XID KeySym
|
||||||
|
|
||||||
|
TYPEDEF: void* Display*
|
||||||
|
TYPEDEF: void* Screen*
|
||||||
|
TYPEDEF: void* GC
|
||||||
|
TYPEDEF: void* Visual*
|
||||||
|
TYPEDEF: void* XExtData*
|
||||||
|
TYPEDEF: void* XFontProp*
|
||||||
|
|
||||||
|
TYPEDEF: int Status
|
||||||
|
|
||||||
|
TYPEDEF: int Bool
|
||||||
|
|
||||||
|
TYPEDEF: ulong Time
|
||||||
|
|
||||||
|
!
|
||||||
|
! 2 - Display Functions
|
||||||
|
!
|
||||||
|
|
||||||
|
FUNCTION: Display* XOpenDisplay ( char* display_name ) ;
|
||||||
|
|
||||||
|
! 2.2 Obtaining Information about the Display, Image Formats, or Screens
|
||||||
|
|
||||||
|
FUNCTION: ulong XBlackPixel ( Display* display, int screen_number ) ;
|
||||||
|
FUNCTION: ulong XWhitePixel ( Display* display, int screen_number ) ;
|
||||||
|
FUNCTION: Colormap XDefaultColormap ( Display* display, int screen_number ) ;
|
||||||
|
FUNCTION: int XDefaultDepth ( Display* display, int screen_number ) ;
|
||||||
|
FUNCTION: GC XDefaultGC ( Display* display, int screen_number ) ;
|
||||||
|
FUNCTION: int XDefaultScreen ( Display* display ) ;
|
||||||
|
FUNCTION: Window XRootWindow ( Display* display, int screen_number ) ;
|
||||||
|
FUNCTION: Window XDefaultRootWindow ( Display* display ) ;
|
||||||
|
FUNCTION: int XProtocolVersion ( Display* display ) ;
|
||||||
|
FUNCTION: int XProtocolRevision ( Display* display ) ;
|
||||||
|
FUNCTION: int XQLength ( Display* display ) ;
|
||||||
|
FUNCTION: int XScreenCount ( Display* display ) ;
|
||||||
|
FUNCTION: int XConnectionNumber ( Display* display ) ;
|
||||||
|
|
||||||
|
!
|
||||||
|
! 3 - Window Functions
|
||||||
|
!
|
||||||
|
|
||||||
|
! 3.2 - Window Attributes
|
||||||
|
|
||||||
|
: CWBackPixmap 1 0 shift ;
|
||||||
|
: CWBackPixel 1 1 shift ;
|
||||||
|
: CWBorderPixmap 1 2 shift ;
|
||||||
|
: CWBorderPixel 1 3 shift ;
|
||||||
|
: CWBitGravity 1 4 shift ;
|
||||||
|
: CWWinGravity 1 5 shift ;
|
||||||
|
: CWBackingStore 1 6 shift ;
|
||||||
|
: CWBackingPlanes 1 7 shift ;
|
||||||
|
: CWBackingPixel 1 8 shift ;
|
||||||
|
: CWOverrideRedirect 1 9 shift ;
|
||||||
|
: CWSaveUnder 1 10 shift ;
|
||||||
|
: CWEventMask 1 11 shift ;
|
||||||
|
: CWDontPropagate 1 12 shift ;
|
||||||
|
: CWColormap 1 13 shift ;
|
||||||
|
: CWCursor 1 14 shift ;
|
||||||
|
|
||||||
|
BEGIN-STRUCT: XSetWindowAttributes
|
||||||
|
FIELD: Pixmap background_pixmap
|
||||||
|
FIELD: ulong background_pixel
|
||||||
|
FIELD: Pixmap border_pixmap
|
||||||
|
FIELD: ulong border_pixel
|
||||||
|
FIELD: int bit_gravity
|
||||||
|
FIELD: int win_gravity
|
||||||
|
FIELD: int backing_store
|
||||||
|
FIELD: ulong backing_planes
|
||||||
|
FIELD: ulong backing_pixel
|
||||||
|
FIELD: Bool save_under
|
||||||
|
FIELD: long event_mask
|
||||||
|
FIELD: long do_not_propagate_mask
|
||||||
|
FIELD: Bool override_redirect
|
||||||
|
FIELD: Colormap colormap
|
||||||
|
FIELD: Cursor cursor
|
||||||
|
END-STRUCT
|
||||||
|
|
||||||
|
: UnmapGravity 0 ;
|
||||||
|
|
||||||
|
: ForgetGravity 0 ;
|
||||||
|
: NorthWestGravity 1 ;
|
||||||
|
: NorthGravity 2 ;
|
||||||
|
: NorthEastGravity 3 ;
|
||||||
|
: WestGravity 4 ;
|
||||||
|
: CenterGravity 5 ;
|
||||||
|
: EastGravity 6 ;
|
||||||
|
: SouthWestGravity 7 ;
|
||||||
|
: SouthGravity 8 ;
|
||||||
|
: SouthEastGravity 9 ;
|
||||||
|
: StaticGravity 10 ;
|
||||||
|
|
||||||
|
! 3.3 - Creating Windows
|
||||||
|
|
||||||
|
FUNCTION: Window XCreateSimpleWindow ( Display* display, Window parent, int x, int y, uint width, uint height, uint border_width, ulong border, ulong background ) ;
|
||||||
|
FUNCTION: Status XDestroyWindow ( Display* display, Window w ) ;
|
||||||
|
FUNCTION: Status XMapWindow ( Display* display, Window window ) ;
|
||||||
|
FUNCTION: Status XMapSubwindows ( Display* display, Window window ) ;
|
||||||
|
FUNCTION: Status XUnmapWindow ( Display* display, Window w ) ;
|
||||||
|
FUNCTION: Status XUnmapSubwindows ( Display* display, Window w ) ;
|
||||||
|
|
||||||
|
! 3.7 - Configuring Windows
|
||||||
|
|
||||||
|
: CWX 1 0 shift ;
|
||||||
|
: CWY 1 1 shift ;
|
||||||
|
: CWWidth 1 2 shift ;
|
||||||
|
: CWHeight 1 3 shift ;
|
||||||
|
: CWBorderWidth 1 4 shift ;
|
||||||
|
: CWSibling 1 5 shift ;
|
||||||
|
: CWStackMode 1 6 shift ;
|
||||||
|
|
||||||
|
BEGIN-STRUCT: XWindowChanges
|
||||||
|
FIELD: int x
|
||||||
|
FIELD: int y
|
||||||
|
FIELD: int width
|
||||||
|
FIELD: int height
|
||||||
|
FIELD: int border_width
|
||||||
|
FIELD: Window sibling
|
||||||
|
FIELD: int stack_mode
|
||||||
|
END-STRUCT
|
||||||
|
|
||||||
|
FUNCTION: Status XConfigureWindow ( Display* display, Window w, uint value_mask, XWindowChanges* values ) ;
|
||||||
|
FUNCTION: Status XMoveWindow ( Display* display, Window w, int x, int y ) ;
|
||||||
|
FUNCTION: Status XResizeWindow ( Display* display, Window w, uint width, uint height ) ;
|
||||||
|
FUNCTION: Status XSetWindowBorderWidth ( Display* display, ulong w, uint width ) ;
|
||||||
|
|
||||||
|
|
||||||
|
! 3.8 Changing Window Stacking Order
|
||||||
|
|
||||||
|
FUNCTION: Status XRaiseWindow ( Display* display, Window w ) ;
|
||||||
|
FUNCTION: Status XLowerWindow ( Display* display, Window w ) ;
|
||||||
|
|
||||||
|
! 3.9 - Changing Window Attributes
|
||||||
|
|
||||||
|
FUNCTION: Status XChangeWindowAttributes ( Display* display, Window w, ulong valuemask, XSetWindowAttributes* attr ) ;
|
||||||
|
FUNCTION: Status XSetWindowBackground ( Display* display, Window w, ulong background_pixel ) ;
|
||||||
|
FUNCTION: Status XDefineCursor ( Display* display, Window w, Cursor cursor ) ;
|
||||||
|
FUNCTION: Status XUndefineCursor ( Display* display, Window w ) ;
|
||||||
|
|
||||||
|
!
|
||||||
|
! 4 - Window Information Functions
|
||||||
|
!
|
||||||
|
|
||||||
|
FUNCTION: Status XQueryTree ( Display* display, Window w, Window* root_return, Window* parent_return, Window** children_return, uint* nchildren_return ) ;
|
||||||
|
|
||||||
|
BEGIN-STRUCT: XWindowAttributes
|
||||||
|
FIELD: int x
|
||||||
|
FIELD: int y
|
||||||
|
FIELD: int width
|
||||||
|
FIELD: int height
|
||||||
|
FIELD: int border_width
|
||||||
|
FIELD: int depth
|
||||||
|
FIELD: Visual* visual
|
||||||
|
FIELD: Window root
|
||||||
|
FIELD: int class
|
||||||
|
FIELD: int bit_gravity
|
||||||
|
FIELD: int win_gravity
|
||||||
|
FIELD: int backing_store
|
||||||
|
FIELD: ulong backing_planes
|
||||||
|
FIELD: ulong backing_pixel
|
||||||
|
FIELD: Bool save_under
|
||||||
|
FIELD: Colormap colormap
|
||||||
|
FIELD: Bool map_installed
|
||||||
|
FIELD: int map_state
|
||||||
|
FIELD: long all_event_masks
|
||||||
|
FIELD: long your_event_mask
|
||||||
|
FIELD: long do_not_propagate_mask
|
||||||
|
FIELD: Bool override_redirect
|
||||||
|
FIELD: Screen* screen
|
||||||
|
END-STRUCT
|
||||||
|
|
||||||
|
FUNCTION: Status XGetWindowAttributes ( Display* display, Window w, XWindowAttributes* attr ) ;
|
||||||
|
|
||||||
|
: IsUnmapped 0 ;
|
||||||
|
: IsUnviewable 1 ;
|
||||||
|
: IsViewable 2 ;
|
||||||
|
|
||||||
|
FUNCTION: boolean XQueryPointer ( Display* display, Window w, Window* root_return, Window* child_return, int* root_x_return, int* root_y_return, int* win_x_return, int* win_y_return, uint* mask_return ) ;
|
||||||
|
|
||||||
|
!
|
||||||
|
! 6 - Color Management Functions
|
||||||
|
!
|
||||||
|
|
||||||
|
BEGIN-STRUCT: XColor
|
||||||
|
FIELD: ulong pixel
|
||||||
|
FIELD: ushort red
|
||||||
|
FIELD: ushort green
|
||||||
|
FIELD: ushort blue
|
||||||
|
FIELD: char flags
|
||||||
|
FIELD: char pad
|
||||||
|
END-STRUCT
|
||||||
|
|
||||||
|
FUNCTION: Status XLookupColor ( Display* display, Colormap colormap, char* color_name, XColor* exact_def_return, XColor* screen_def_return ) ;
|
||||||
|
FUNCTION: Status XAllocColor ( Display* display, Colormap colormap, XColor* screen_in_out ) ;
|
||||||
|
FUNCTION: Status XQueryColor ( Display* display, Colormap colormap, XColor* def_in_out ) ;
|
||||||
|
|
||||||
|
!
|
||||||
|
! 7 - Graphics Context Functions
|
||||||
|
!
|
||||||
|
|
||||||
|
: GCFunction 1 0 shift ;
|
||||||
|
: GCPlaneMask 1 1 shift ;
|
||||||
|
: GCForeground 1 2 shift ;
|
||||||
|
: GCBackground 1 3 shift ;
|
||||||
|
: GCLineWidth 1 4 shift ;
|
||||||
|
: GCLineStyle 1 5 shift ;
|
||||||
|
: GCCapStyle 1 6 shift ;
|
||||||
|
: GCJoinStyle 1 7 shift ;
|
||||||
|
: GCFillStyle 1 8 shift ;
|
||||||
|
: GCFillRule 1 9 shift ;
|
||||||
|
: GCTile 1 10 shift ;
|
||||||
|
: GCStipple 1 11 shift ;
|
||||||
|
: GCTileStipXOrigin 1 12 shift ;
|
||||||
|
: GCTileStipYOrigin 1 13 shift ;
|
||||||
|
: GCFont 1 14 shift ;
|
||||||
|
: GCSubwindowMode 1 15 shift ;
|
||||||
|
: GCGraphicsExposures 1 16 shift ;
|
||||||
|
: GCClipXOrigin 1 17 shift ;
|
||||||
|
: GCClipYOrigin 1 18 shift ;
|
||||||
|
: GCClipMask 1 19 shift ;
|
||||||
|
: GCDashOffset 1 20 shift ;
|
||||||
|
: GCDashList 1 21 shift ;
|
||||||
|
: GCArcMode 1 22 shift ;
|
||||||
|
|
||||||
|
: GXclear HEX: 0 ;
|
||||||
|
: GXand HEX: 1 ;
|
||||||
|
: GXandReverse HEX: 2 ;
|
||||||
|
: GXcopy HEX: 3 ;
|
||||||
|
: GXandInverted HEX: 4 ;
|
||||||
|
: GXnoop HEX: 5 ;
|
||||||
|
: GXxor HEX: 6 ;
|
||||||
|
: GXor HEX: 7 ;
|
||||||
|
: GXnor HEX: 8 ;
|
||||||
|
: GXequiv HEX: 9 ;
|
||||||
|
: GXinvert HEX: a ;
|
||||||
|
: GXorReverse HEX: b ;
|
||||||
|
: GXcopyInverted HEX: c ;
|
||||||
|
: GXorInverted HEX: d ;
|
||||||
|
: GXnand HEX: e ;
|
||||||
|
: GXset HEX: f ;
|
||||||
|
|
||||||
|
BEGIN-STRUCT: XGCValues
|
||||||
|
FIELD: int function
|
||||||
|
FIELD: ulong plane_mask
|
||||||
|
FIELD: ulong foreground
|
||||||
|
FIELD: ulong background
|
||||||
|
FIELD: int line_width
|
||||||
|
FIELD: int line_style
|
||||||
|
FIELD: int cap_style
|
||||||
|
FIELD: int join_style
|
||||||
|
FIELD: int fill_style
|
||||||
|
FIELD: int fill_rule
|
||||||
|
FIELD: int arc_mode
|
||||||
|
FIELD: Pixmap tile
|
||||||
|
FIELD: Pixmap stipple
|
||||||
|
FIELD: int ts_x_origin
|
||||||
|
FIELD: int ts_y_origin
|
||||||
|
FIELD: Font font
|
||||||
|
FIELD: int subwindow_mode
|
||||||
|
FIELD: Bool graphics_exposures
|
||||||
|
FIELD: int clip_x_origin
|
||||||
|
FIELD: int clip_y_origin
|
||||||
|
FIELD: Pixmap clip_mask
|
||||||
|
FIELD: int dash_offset
|
||||||
|
FIELD: char dashes
|
||||||
|
END-STRUCT
|
||||||
|
|
||||||
|
FUNCTION: GC XCreateGC ( Display* display, Window d, ulong valuemask, XGCValues* values ) ;
|
||||||
|
FUNCTION: int XChangeGC ( Display* display, GC gc, ulong valuemask, XGCValues* values ) ;
|
||||||
|
FUNCTION: Status XGetGCValues ( Display* display, GC gc, ulong valuemask, XGCValues* values_return ) ;
|
||||||
|
FUNCTION: Status XSetForeground ( Display* display, GC gc, ulong foreground ) ;
|
||||||
|
FUNCTION: Status XSetBackground ( Display* display, GC gc, ulong background ) ;
|
||||||
|
FUNCTION: Status XSetFunction ( Display* display, GC gc, int function ) ;
|
||||||
|
FUNCTION: Status XSetSubwindowMode ( Display* display, GC gc, int subwindow_mode ) ;
|
||||||
|
|
||||||
|
: ClipByChildren 0 ;
|
||||||
|
: IncludeInferiors 1 ;
|
||||||
|
|
||||||
|
FUNCTION: Status XSetFont ( Display* display, GC gc, Font font ) ;
|
||||||
|
|
||||||
|
!
|
||||||
|
! 8 - Graphics Functions
|
||||||
|
!
|
||||||
|
|
||||||
|
FUNCTION: Status XClearWindow ( Display* display, Window w ) ;
|
||||||
|
FUNCTION: Status XDrawPoint ( Display* display, Drawable d, GC gc, int x, int y ) ;
|
||||||
|
FUNCTION: Status XDrawLine ( Display* display, Drawable d, GC gc, int x1, int y1, int x2, int y2 ) ;
|
||||||
|
FUNCTION: Status XDrawArc ( Display* display, Drawable d, GC gc, int x, int y, uint width, uint height, int angle1, int angle2 ) ;
|
||||||
|
FUNCTION: Status XFillArc ( Display* display, Drawable d, GC gc, int x, int y, uint width, uint height, int angle1, int angle2 ) ;
|
||||||
|
|
||||||
|
|
||||||
|
! 8.5 - Font Metrics
|
||||||
|
|
||||||
|
BEGIN-STRUCT: XCharStruct
|
||||||
|
FIELD: short lbearing;
|
||||||
|
FIELD: short rbearing;
|
||||||
|
FIELD: short width;
|
||||||
|
FIELD: short ascent;
|
||||||
|
FIELD: short descent;
|
||||||
|
FIELD: ushort attributes;
|
||||||
|
END-STRUCT
|
||||||
|
|
||||||
|
FUNCTION: Font XLoadFont ( Display* display, char* name ) ;
|
||||||
|
FUNCTION: XFontStruct* XLoadQueryFont ( Display* display, char* name ) ;
|
||||||
|
|
||||||
|
BEGIN-STRUCT: XFontStruct
|
||||||
|
FIELD: XExtData* ext_data
|
||||||
|
FIELD: Font fid
|
||||||
|
FIELD: uint direction
|
||||||
|
FIELD: uint min_char_or_byte2
|
||||||
|
FIELD: uint max_char_or_byte2
|
||||||
|
FIELD: uint min_byte1
|
||||||
|
FIELD: uint max_byte1
|
||||||
|
FIELD: Bool all_chars_exist
|
||||||
|
FIELD: uint default_char
|
||||||
|
FIELD: int n_properties
|
||||||
|
FIELD: XFontProp* properties
|
||||||
|
FIELD: XCharStruct min_bounds
|
||||||
|
FIELD: XCharStruct max_bounds
|
||||||
|
FIELD: XCharStruct* per_char
|
||||||
|
FIELD: int ascent
|
||||||
|
FIELD: int descent
|
||||||
|
END-STRUCT
|
||||||
|
|
||||||
|
FUNCTION: int XTextWidth ( XFontStruct* font_struct, char* string, int count ) ;
|
||||||
|
|
||||||
|
! 8.6 - Drawing Text
|
||||||
|
|
||||||
|
FUNCTION: Status XDrawString ( Display* display, Drawable d, GC gc, int x, int y, char* string, int length ) ;
|
||||||
|
|
||||||
|
!
|
||||||
|
! 9 - Window and Session Manager Functions
|
||||||
|
!
|
||||||
|
|
||||||
|
FUNCTION: Status XReparentWindow ( Display* display, Window w, Window parent, int x, int y ) ;
|
||||||
|
FUNCTION: Status XAddToSaveSet ( Display* display, Window w ) ;
|
||||||
|
FUNCTION: Status XRemoveFromSaveSet ( Display* display, Window w ) ;
|
||||||
|
FUNCTION: Status XGrabServer ( Display* display ) ;
|
||||||
|
FUNCTION: Status XUngrabServer ( Display* display ) ;
|
||||||
|
FUNCTION: Status XKillClient ( Display* display, XID resource ) ;
|
||||||
|
|
||||||
|
!
|
||||||
|
! 10 - Events
|
||||||
|
!
|
||||||
|
|
||||||
|
! 10.3 - Event Masks
|
||||||
|
|
||||||
|
: NoEventMask 0 ;
|
||||||
|
: KeyPressMask 1 0 shift ;
|
||||||
|
: KeyReleaseMask 1 1 shift ;
|
||||||
|
: ButtonPressMask 1 2 shift ;
|
||||||
|
: ButtonReleaseMask 1 3 shift ;
|
||||||
|
: EnterWindowMask 1 4 shift ;
|
||||||
|
: LeaveWindowMask 1 5 shift ;
|
||||||
|
: PointerMotionMask 1 6 shift ;
|
||||||
|
: PointerMotionHintMask 1 7 shift ;
|
||||||
|
: Button1MotionMask 1 8 shift ;
|
||||||
|
: Button2MotionMask 1 9 shift ;
|
||||||
|
: Button3MotionMask 1 10 shift ;
|
||||||
|
: Button4MotionMask 1 11 shift ;
|
||||||
|
: Button5MotionMask 1 12 shift ;
|
||||||
|
: ButtonMotionMask 1 13 shift ;
|
||||||
|
: KeymapStateMask 1 14 shift ;
|
||||||
|
: ExposureMask 1 15 shift ;
|
||||||
|
: VisibilityChangeMask 1 16 shift ;
|
||||||
|
: StructureNotifyMask 1 17 shift ;
|
||||||
|
: ResizeRedirectMask 1 18 shift ;
|
||||||
|
: SubstructureNotifyMask 1 19 shift ;
|
||||||
|
: SubstructureRedirectMask 1 20 shift ;
|
||||||
|
: FocusChangeMask 1 21 shift ;
|
||||||
|
: PropertyChangeMask 1 22 shift ;
|
||||||
|
: ColormapChangeMask 1 23 shift ;
|
||||||
|
: OwnerGrabButtonMask 1 24 shift ;
|
||||||
|
|
||||||
|
: KeyPress 2 ;
|
||||||
|
: KeyRelease 3 ;
|
||||||
|
: ButtonPress 4 ;
|
||||||
|
: ButtonRelease 5 ;
|
||||||
|
: MotionNotify 6 ;
|
||||||
|
: EnterNotify 7 ;
|
||||||
|
: LeaveNotify 8 ;
|
||||||
|
: FocusIn 9 ;
|
||||||
|
: FocusOut 10 ;
|
||||||
|
: KeymapNotify 11 ;
|
||||||
|
: Expose 12 ;
|
||||||
|
: GraphicsExpose 13 ;
|
||||||
|
: NoExpose 14 ;
|
||||||
|
: VisibilityNotify 15 ;
|
||||||
|
: CreateNotify 16 ;
|
||||||
|
: DestroyNotify 17 ;
|
||||||
|
: UnmapNotify 18 ;
|
||||||
|
: MapNotify 19 ;
|
||||||
|
: MapRequest 20 ;
|
||||||
|
: ReparentNotify 21 ;
|
||||||
|
: ConfigureNotify 22 ;
|
||||||
|
: ConfigureRequest 23 ;
|
||||||
|
: GravityNotify 24 ;
|
||||||
|
: ResizeRequest 25 ;
|
||||||
|
: CirculateNotify 26 ;
|
||||||
|
: CirculateRequest 27 ;
|
||||||
|
: PropertyNotify 28 ;
|
||||||
|
: SelectionClear 29 ;
|
||||||
|
: SelectionRequest 30 ;
|
||||||
|
: SelectionNotify 31 ;
|
||||||
|
: ColormapNotify 32 ;
|
||||||
|
: ClientMessage 33 ;
|
||||||
|
: MappingNotify 34 ;
|
||||||
|
: LASTEvent 35 ;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
BEGIN-STRUCT: XAnyEvent
|
||||||
|
FIELD: int type
|
||||||
|
FIELD: ulong serial
|
||||||
|
FIELD: Bool send_event
|
||||||
|
FIELD: Display* display
|
||||||
|
FIELD: Window window
|
||||||
|
END-STRUCT
|
||||||
|
|
||||||
|
BEGIN-STRUCT: XButtonEvent
|
||||||
|
FIELD: int type
|
||||||
|
FIELD: ulong serial
|
||||||
|
FIELD: Bool send_event
|
||||||
|
FIELD: Display* display
|
||||||
|
FIELD: Window window
|
||||||
|
FIELD: Window root
|
||||||
|
FIELD: Window subwindow
|
||||||
|
FIELD: Time time
|
||||||
|
FIELD: int x
|
||||||
|
FIELD: int y
|
||||||
|
FIELD: int x_root
|
||||||
|
FIELD: int y_root
|
||||||
|
FIELD: uint state
|
||||||
|
FIELD: uint button
|
||||||
|
FIELD: Bool same_screen
|
||||||
|
END-STRUCT
|
||||||
|
|
||||||
|
TYPEDEF: XButtonEvent XButtonPressedEvent
|
||||||
|
TYPEDEF: XButtonEvent XButtonReleasedEvent
|
||||||
|
|
||||||
|
! BEGIN-UNION: XEvent
|
||||||
|
! int type;
|
||||||
|
! XAnyEvent xany;
|
||||||
|
! XKeyEvent xkey;
|
||||||
|
! XButtonEvent xbutton;
|
||||||
|
! XMotionEvent xmotion;
|
||||||
|
! XCrossingEvent xcrossing;
|
||||||
|
! XFocusChangeEvent xfocus;
|
||||||
|
! XExposeEvent xexpose;
|
||||||
|
! XGraphicsExposeEvent xgraphicsexpose;
|
||||||
|
! XNoExposeEvent xnoexpose;
|
||||||
|
! XVisibilityEvent xvisibility;
|
||||||
|
! XCreateWindowEvent xcreatewindow;
|
||||||
|
! XDestroyWindowEvent xdestroywindow;
|
||||||
|
! XUnmapEvent xunmap;
|
||||||
|
! XMapEvent xmap;
|
||||||
|
! XMapRequestEvent xmaprequest;
|
||||||
|
! XReparentEvent xreparent;
|
||||||
|
! XConfigureEvent xconfigure;
|
||||||
|
! XGravityEvent xgravity;
|
||||||
|
! XResizeRequestEvent xresizerequest;
|
||||||
|
! XConfigureRequestEvent xconfigurerequest;
|
||||||
|
! XCirculateEvent xcirculate;
|
||||||
|
! XCirculateRequestEvent xcirculaterequest;
|
||||||
|
! XPropertyEvent xproperty;
|
||||||
|
! XSelectionClearEvent xselectionclear;
|
||||||
|
! XSelectionRequestEvent xselectionrequest;
|
||||||
|
! XSelectionEvent xselection;
|
||||||
|
! XColormapEvent xcolormap;
|
||||||
|
! XClientMessageEvent xclient;
|
||||||
|
! XMappingEvent xmapping;
|
||||||
|
! XErrorEvent xerror;
|
||||||
|
! XKeymapEvent xkeymap;
|
||||||
|
! long pad[24];
|
||||||
|
! END-UNION
|
||||||
|
|
||||||
|
BEGIN-UNION: XEvent
|
||||||
|
MEMBER: int
|
||||||
|
MEMBER: XAnyEvent
|
||||||
|
! MEMBER: XKeyEvent
|
||||||
|
MEMBER: XButtonEvent
|
||||||
|
! MEMBER: XMotionEvent
|
||||||
|
! MEMBER: XCrossingEvent
|
||||||
|
! MEMBER: XFocusChangeEvent
|
||||||
|
! MEMBER: XExposeEvent
|
||||||
|
! MEMBER: XGraphicsExposeEvent
|
||||||
|
! MEMBER: XNoExposeEvent
|
||||||
|
! MEMBER: XVisibilityEvent
|
||||||
|
! MEMBER: XCreateWindowEvent
|
||||||
|
! MEMBER: XDestroyWindowEvent
|
||||||
|
! MEMBER: XUnmapEvent
|
||||||
|
! MEMBER: XMapEvent
|
||||||
|
! MEMBER: XMapRequestEvent
|
||||||
|
! MEMBER: XReparentEvent
|
||||||
|
! MEMBER: XConfigureEvent
|
||||||
|
! MEMBER: XGravityEvent
|
||||||
|
! MEMBER: XResizeRequestEvent
|
||||||
|
! MEMBER: XConfigureRequestEvent
|
||||||
|
! MEMBER: XCirculateEvent
|
||||||
|
! MEMBER: XCirculateRequestEvent
|
||||||
|
! MEMBER: XPropertyEvent
|
||||||
|
! MEMBER: XSelectionClearEvent
|
||||||
|
! MEMBER: XSelectionRequestEvent
|
||||||
|
! MEMBER: XSelectionEvent
|
||||||
|
! MEMBER: XColormapEvent
|
||||||
|
! MEMBER: XClientMessageEvent
|
||||||
|
! MEMBER: XMappingEvent
|
||||||
|
! MEMBER: XErrorEvent
|
||||||
|
! MEMBER: XKeymapEvent
|
||||||
|
! long pad[24];
|
||||||
|
END-UNION
|
||||||
|
|
||||||
|
!
|
||||||
|
! 11 - Event Handling Functions
|
||||||
|
!
|
||||||
|
|
||||||
|
FUNCTION: Status XSelectInput ( Display* display, Window w, long event_mask ) ;
|
||||||
|
FUNCTION: Status XFlush ( Display* display ) ;
|
||||||
|
FUNCTION: Status XSync ( Display* display, int discard ) ;
|
||||||
|
FUNCTION: int XPending ( Display* display ) ;
|
||||||
|
FUNCTION: Status XNextEvent ( Display* display, XEvent* event ) ;
|
||||||
|
FUNCTION: Status XMaskEvent ( Display* display, long event_mask, XEvent* event_return ) ;
|
||||||
|
|
||||||
|
!
|
||||||
|
! 12 - Input Device Functions
|
||||||
|
!
|
||||||
|
|
||||||
|
FUNCTION: int XGrabPointer ( Display* display, Window grab_window, Bool owner_events, uint event_mask, int pointer_mode, int keyboard_mode, Window confine_to, Cursor cursor, Time time ) ;
|
||||||
|
FUNCTION: Status XUngrabPointer ( Display* display, Time time ) ;
|
||||||
|
FUNCTION: Status XChangeActivePointerGrab ( Display* display, uint event_mask, Cursor cursor, Time time ) ;
|
||||||
|
FUNCTION: Status XGrabKey ( Display* display, int keycode, uint modifiers, Window grab_window, Bool owner_events, int pointer_mode, int keyboard_mode ) ;
|
||||||
|
FUNCTION: Status XSetInputFocus ( Display* display, Window focus, int revert_to, Time time ) ;
|
||||||
|
FUNCTION: Status XWarpPointer ( Display* display, Window src_w, Window dest_w, int src_x, int src_y, uint src_width, uint src_height, int dest_x, int dest_y ) ;
|
||||||
|
!
|
||||||
|
! 14 - Inter-Client Communication Functions
|
||||||
|
!
|
||||||
|
|
||||||
|
FUNCTION: Status XFetchName ( Display* display, Window w, char** window_name_return ) ;
|
||||||
|
FUNCTION: Status XGetTransientForHint ( Display* display, Window w, Window* prop_window_return ) ;
|
||||||
|
|
||||||
|
!
|
||||||
|
! 16 - Application Utility Functions
|
||||||
|
!
|
||||||
|
|
||||||
|
FUNCTION: int XLookupString ( XKeyEvent* event_struct, char* buffer_return, int bytes_buffer, KeySym* keysym_return, XComposeStatus* status_in_out ) ;
|
||||||
|
|
@ -0,0 +1,160 @@
|
||||||
|
|
||||||
|
IN: xobj
|
||||||
|
USING: kernel namespaces lists sequences xlib ;
|
||||||
|
|
||||||
|
SYMBOL: dpy
|
||||||
|
SYMBOL: scr
|
||||||
|
SYMBOL: root
|
||||||
|
|
||||||
|
TUPLE: window display id ;
|
||||||
|
|
||||||
|
: raw-window ( <window> -- display id )
|
||||||
|
dup window-display swap window-id ;
|
||||||
|
|
||||||
|
: open-display ( string-or-f -- )
|
||||||
|
XOpenDisplay dpy set ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
! 3.3 - Creating Windows
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
! : create-window* ( -- <window> )
|
||||||
|
! dpy get root get 0 0 100 100 10 "black" get "white" get XCreateSimpleWindow
|
||||||
|
! dpy get swap <window> ;
|
||||||
|
|
||||||
|
: create-window ( dpy parent -- <window> )
|
||||||
|
swap dup rot
|
||||||
|
0 0 100 100 10 "black" get "white" get XCreateSimpleWindow
|
||||||
|
<window> ;
|
||||||
|
|
||||||
|
: create-window* ( -- win )
|
||||||
|
dpy get root get 0 0 100 100 10 "black" get "white" get XCreateSimpleWindow ;
|
||||||
|
|
||||||
|
: destroy-window ( <window> -- )
|
||||||
|
raw-window XDestroyWindow drop ;
|
||||||
|
|
||||||
|
: map-window ( <window> -- )
|
||||||
|
raw-window XMapWindow drop ;
|
||||||
|
|
||||||
|
: map-window* ( -- )
|
||||||
|
dpy get win get XMapWindow drop ;
|
||||||
|
|
||||||
|
: map-subwindows ( <window> -- )
|
||||||
|
raw-window XMapSubwindows drop ;
|
||||||
|
|
||||||
|
: unmap-window ( <window> -- )
|
||||||
|
raw-window XUnmapWindow drop ;
|
||||||
|
|
||||||
|
: flush-window ( <window> -- )
|
||||||
|
window-display XFlush drop ;
|
||||||
|
|
||||||
|
: flush-dpy ( -- )
|
||||||
|
dpy get XFlush drop ;
|
||||||
|
|
||||||
|
: reparent ( window parent -- )
|
||||||
|
swap raw-window rot window-id 0 0 XReparentWindow ;
|
||||||
|
|
||||||
|
: lookup-color ( name -- pixel ) ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
! 3.7 - Configuring Windows
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
: move-window ( <window> x y -- )
|
||||||
|
>r >r raw-window r> r> XMoveWindow drop ;
|
||||||
|
|
||||||
|
: resize-window ( <window> width height -- )
|
||||||
|
>r >r raw-window r> r> XResizeWindow drop ;
|
||||||
|
|
||||||
|
: resize-window* ( width height -- )
|
||||||
|
>r >r dpy get win get r> r> XResizeWindow drop ;
|
||||||
|
|
||||||
|
: set-border-width ( <window> width -- )
|
||||||
|
swap raw-window rot XSetWindowBorderWidth drop ;
|
||||||
|
|
||||||
|
! 3.8 Changing Window Stacking Order
|
||||||
|
|
||||||
|
: raise-window ( <window> -- ) raw-window XRaiseWindow drop ;
|
||||||
|
: lower-window ( <window> -- ) raw-window XLowerWindow drop ;
|
||||||
|
|
||||||
|
! 3.9 - Changing Window Attributes
|
||||||
|
|
||||||
|
: sattr-background-pixel ( val -- sattr )
|
||||||
|
<XSetWindowAttributes> dup -rot set-XSetWindowAttributes-background_pixel ;
|
||||||
|
|
||||||
|
: set-window-background-pixel ( <window> pixel -- )
|
||||||
|
swap raw-window rot CWBackPixel swap sattr-background-pixel
|
||||||
|
XChangeWindowAttributes drop ;
|
||||||
|
|
||||||
|
! 4 - Window Information Functions
|
||||||
|
|
||||||
|
: XGetWindowAttributes* ( <window> -- attr )
|
||||||
|
raw-window <XWindowAttributes> dup >r XGetWindowAttributes drop r> ;
|
||||||
|
|
||||||
|
: window-x XGetWindowAttributes* XWindowAttributes-x ;
|
||||||
|
: window-y XGetWindowAttributes* XWindowAttributes-y ;
|
||||||
|
: window-width XGetWindowAttributes* XWindowAttributes-width ;
|
||||||
|
: window-height XGetWindowAttributes* XWindowAttributes-height ;
|
||||||
|
|
||||||
|
! 8 - Graphics Functions
|
||||||
|
|
||||||
|
SYMBOL: win
|
||||||
|
SYMBOL: gcontext
|
||||||
|
|
||||||
|
: clear-window ( <window> -- )
|
||||||
|
raw-window XClearWindow ;
|
||||||
|
|
||||||
|
: clear-window* ( -- )
|
||||||
|
dpy get win get XClearWindow drop ;
|
||||||
|
|
||||||
|
|
||||||
|
: draw-point ( <window> gc x y -- )
|
||||||
|
>r >r >r raw-window r> r> r> XDrawPoint drop ;
|
||||||
|
|
||||||
|
: draw-point* ( { x y } -- )
|
||||||
|
>r dpy get win get gcontext get r> [ ] each XDrawPoint drop ;
|
||||||
|
|
||||||
|
: draw-line ( <window> gc x1 y1 x2 y2 -- )
|
||||||
|
>r >r >r >r >r raw-window r> r> r> r> r> XDrawLine drop ;
|
||||||
|
|
||||||
|
! 8.6 - Drawing Text
|
||||||
|
|
||||||
|
: draw-string ( <window> gc x y string -- )
|
||||||
|
>r >r >r >r raw-window r> r> r> r> dup length XDrawString drop ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
! 9 - Window and Session Manager Functions
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
: reparent-window ( window parent -- )
|
||||||
|
>r raw-window r> window-id 0 0 XReparentWindow drop ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
! 11 - Event Handling Functions
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
: select-input ( <window> mask -- )
|
||||||
|
>r raw-window r> XSelectInput drop ;
|
||||||
|
|
||||||
|
: flush-window ( <window> -- )
|
||||||
|
window-display XFlush drop ;
|
||||||
|
|
||||||
|
! : next-event ( dpy -- event )
|
||||||
|
! <XEvent> dup >r XNextEvent drop r> ;
|
||||||
|
|
||||||
|
: next-event ( -- event )
|
||||||
|
dpy get <XEvent> dup >r XNextEvent drop r> ;
|
||||||
|
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
! Not Categorized Yet
|
||||||
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||||
|
|
||||||
|
: with-window ( window quot -- ) [ swap window set call ] with-scope ; inline
|
||||||
|
|
||||||
|
: initialize-x ( display-string -- )
|
||||||
|
XOpenDisplay dpy set
|
||||||
|
dpy get XDefaultScreen scr set
|
||||||
|
dpy get scr get XRootWindow root set
|
||||||
|
dpy get scr get XBlackPixel "black" set
|
||||||
|
dpy get scr get XWhitePixel "white" set
|
||||||
|
dpy get scr get XDefaultGC gcontext set ;
|
||||||
Loading…
Reference in New Issue