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