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

extra: whitespace

modern-harvey3
Doug Coleman 2019-10-28 19:29:40 -05:00
parent 46b0e8d44f
commit 1eee4d0f34
8 changed files with 95 additions and 98 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/modern/manifest/manifest.factor
View File

@ -329,4 +329,4 @@ git branch name: no backslash, ., .., ~^:<sp>, end in /
;VOCAB> ;VOCAB>
;ROOT> ;ROOT>
;REPO> ;REPO>
]] ]]

2
extra/random/xoshiro/xoshiro.factor
View File

@ -46,7 +46,7 @@ STRUCT: xoshiro-256-star-star { s0 ulonglong } { s1 ulonglong } { s2 ulonglong }
: next-256 ( xoshiro-256-star-star -- r64 ) : next-256 ( xoshiro-256-star-star -- r64 )
dup get[ s0 s1 s2 s3 ] (next-256) dup get[ s0 s1 s2 s3 ] (next-256)
[ set[ s0 s1 s2 s3 ] drop ] dip ; [ set[ s0 s1 s2 s3 ] drop ] dip ;
:: jump ( s0! s1! s2! s3! jump-table -- s0' s1' s2' s3' ) :: jump ( s0! s1! s2! s3! jump-table -- s0' s1' s2' s3' )
0 0 0 0 :> ( t0! t1! t2! t3! ) 0 0 0 0 :> ( t0! t1! t2! t3! )

2
extra/raylib/demo/demo.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2019 Jack Lucas ! Copyright (C) 2019 Jack Lucas
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: raylib.ffi kernel math.ranges sequences locals random combinators.random math threads calendar namespaces accessors classes.struct combinators alien.enums ; USING: raylib.ffi kernel math.ranges sequences locals random combinators.random math threads calendar namespaces accessors classes.struct combinators alien.enums ;
IN: raylib.demo IN: raylib.demo
: say-hello ( -- ) : say-hello ( -- )
"Hello, Factor!" 200 400 60 MAGENTA draw-text ; "Hello, Factor!" 200 400 60 MAGENTA draw-text ;

178
extra/raylib/ffi/ffi.factor
View File

@ -12,7 +12,7 @@ IN: raylib.ffi
{ [ os windows? ] [ "raylib.dll" ] } { [ os windows? ] [ "raylib.dll" ] }
{ [ os macosx? ] [ "libraylib.dylib" ] } { [ os macosx? ] [ "libraylib.dylib" ] }
{ [ os unix? ] [ "libraylib.so" ] } { [ os unix? ] [ "libraylib.so" ] }
} cond cdecl add-library } cond cdecl add-library
"raylib" deploy-library "raylib" deploy-library
>> >>
@ -241,84 +241,84 @@ ENUM: raylibConfigFlags
{ FLAG_VSYNC_HINT 64 } ; ! Set to try enabling V-Sync on GPU { FLAG_VSYNC_HINT 64 } ; ! Set to try enabling V-Sync on GPU
ENUM: KeyboardFunctionKeys ENUM: KeyboardFunctionKeys
{ KEY_SPACE 32 } { KEY_SPACE 32 }
{ KEY_ESCAPE 256 } { KEY_ESCAPE 256 }
{ KEY_ENTER 257 } { KEY_ENTER 257 }
{ KEY_TAB 258 } { KEY_TAB 258 }
{ KEY_BACKSPACE 259 } { KEY_BACKSPACE 259 }
{ KEY_INSERT 260 } { KEY_INSERT 260 }
{ KEY_DELETE 261 } { KEY_DELETE 261 }
{ KEY_RIGHT 262 } { KEY_RIGHT 262 }
{ KEY_LEFT 263 } { KEY_LEFT 263 }
{ KEY_DOWN 264 } { KEY_DOWN 264 }
{ KEY_UP 265 } { KEY_UP 265 }
{ KEY_PAGE_UP 266 } { KEY_PAGE_UP 266 }
{ KEY_PAGE_DOWN 267 } { KEY_PAGE_DOWN 267 }
{ KEY_HOME 268 } { KEY_HOME 268 }
{ KEY_END 269 } { KEY_END 269 }
{ KEY_CAPS_LOCK 280 } { KEY_CAPS_LOCK 280 }
{ KEY_SCROLL_LOCK 281 } { KEY_SCROLL_LOCK 281 }
{ KEY_NUM_LOCK 282 } { KEY_NUM_LOCK 282 }
{ KEY_PRINT_SCREEN 283 } { KEY_PRINT_SCREEN 283 }
{ KEY_PAUSE 284 } { KEY_PAUSE 284 }
{ KEY_F1 290 } { KEY_F1 290 }
{ KEY_F2 291 } { KEY_F2 291 }
{ KEY_F3 292 } { KEY_F3 292 }
{ KEY_F4 293 } { KEY_F4 293 }
{ KEY_F5 294 } { KEY_F5 294 }
{ KEY_F6 295 } { KEY_F6 295 }
{ KEY_F7 296 } { KEY_F7 296 }
{ KEY_F8 297 } { KEY_F8 297 }
{ KEY_F9 298 } { KEY_F9 298 }
{ KEY_F10 299 } { KEY_F10 299 }
{ KEY_F11 300 } { KEY_F11 300 }
{ KEY_F12 301 } { KEY_F12 301 }
{ KEY_LEFT_SHIFT 340 } { KEY_LEFT_SHIFT 340 }
{ KEY_LEFT_CONTROL 341 } { KEY_LEFT_CONTROL 341 }
{ KEY_LEFT_ALT 342 } { KEY_LEFT_ALT 342 }
{ KEY_RIGHT_SHIFT 344 } { KEY_RIGHT_SHIFT 344 }
{ KEY_RIGHT_CONTROL 345 } { KEY_RIGHT_CONTROL 345 }
{ KEY_RIGHT_ALT 346 } { KEY_RIGHT_ALT 346 }
{ KEY_GRAVE 96 } { KEY_GRAVE 96 }
{ KEY_SLASH 47 } { KEY_SLASH 47 }
{ KEY_BACKSLASH 92 } ; { KEY_BACKSLASH 92 } ;
ENUM: KeyboardAlphaNumericKeys ENUM: KeyboardAlphaNumericKeys
{ KEY_ZERO 48 } { KEY_ZERO 48 }
{ KEY_ONE 49 } { KEY_ONE 49 }
{ KEY_TWO 50 } { KEY_TWO 50 }
{ KEY_THREE 51 } { KEY_THREE 51 }
{ KEY_FOUR 52 } { KEY_FOUR 52 }
{ KEY_FIVE 53 } { KEY_FIVE 53 }
{ KEY_SIX 54 } { KEY_SIX 54 }
{ KEY_SEVEN 55 } { KEY_SEVEN 55 }
{ KEY_EIGHT 56 } { KEY_EIGHT 56 }
{ KEY_NINE 57 } { KEY_NINE 57 }
{ KEY_A 65 } { KEY_A 65 }
{ KEY_B 66 } { KEY_B 66 }
{ KEY_C 67 } { KEY_C 67 }
{ KEY_D 68 } { KEY_D 68 }
{ KEY_E 69 } { KEY_E 69 }
{ KEY_F 70 } { KEY_F 70 }
{ KEY_G 71 } { KEY_G 71 }
{ KEY_H 72 } { KEY_H 72 }
{ KEY_I 73 } { KEY_I 73 }
{ KEY_J 74 } { KEY_J 74 }
{ KEY_K 75 } { KEY_K 75 }
{ KEY_L 76 } { KEY_L 76 }
{ KEY_M 77 } { KEY_M 77 }
{ KEY_N 78 } { KEY_N 78 }
{ KEY_O 79 } { KEY_O 79 }
{ KEY_P 80 } { KEY_P 80 }
{ KEY_Q 81 } { KEY_Q 81 }
{ KEY_R 82 } { KEY_R 82 }
{ KEY_S 83 } { KEY_S 83 }
{ KEY_T 84 } { KEY_T 84 }
{ KEY_U 85 } { KEY_U 85 }
{ KEY_V 86 } { KEY_V 86 }
{ KEY_W 87 } { KEY_W 87 }
{ KEY_X 88 } { KEY_X 88 }
{ KEY_Y 89 } { KEY_Y 89 }
{ KEY_Z 90 } ; { KEY_Z 90 } ;
: LIGHTGRAY ( -- Color ) 200 200 200 255 Color <struct-boa> ; ! Light Gray : LIGHTGRAY ( -- Color ) 200 200 200 255 Color <struct-boa> ; ! Light Gray
@ -385,8 +385,8 @@ ENUM: ShaderLocationIndex
LOC_COLOR_DIFFUSE LOC_COLOR_DIFFUSE
LOC_COLOR_SPECULAR LOC_COLOR_SPECULAR
LOC_COLOR_AMBIENT LOC_COLOR_AMBIENT
LOC_MAP_ALBEDO LOC_MAP_ALBEDO
LOC_MAP_METALNESS LOC_MAP_METALNESS
LOC_MAP_NORMAL LOC_MAP_NORMAL
LOC_MAP_ROUGHNESS LOC_MAP_ROUGHNESS
LOC_MAP_OCCLUSION LOC_MAP_OCCLUSION
@ -399,16 +399,16 @@ ENUM: ShaderLocationIndex
! Material map type ! Material map type
ENUM: TexmapIndex ENUM: TexmapIndex
MAP_ALBEDO MAP_ALBEDO
MAP_METALNESS MAP_METALNESS
MAP_NORMAL MAP_NORMAL
MAP_ROUGHNESS MAP_ROUGHNESS
MAP_OCCLUSION MAP_OCCLUSION
MAP_EMISSION MAP_EMISSION
MAP_HEIGHT MAP_HEIGHT
MAP_CUBEMAP MAP_CUBEMAP
MAP_IRRADIANCE MAP_IRRADIANCE
MAP_PREFILTER MAP_PREFILTER
MAP_BRDF ; MAP_BRDF ;
! Pixel formats ! Pixel formats
@ -1023,10 +1023,8 @@ FUNCTION-ALIAS: set-audio-stream-volume void SetAudioStreamVolume ( AudioStream
FUNCTION-ALIAS: set-audio-stream-pitch void SetAudioStreamPitch ( AudioStream stream, float pitch ) ! Set pitch for audio stream ( 1.0 is base level ) FUNCTION-ALIAS: set-audio-stream-pitch void SetAudioStreamPitch ( AudioStream stream, float pitch ) ! Set pitch for audio stream ( 1.0 is base level )
! Load modules depending on what the installed dll/so supports ! Load modules depending on what the installed dll/so supports
"raylib" find-library dlopen dup "raylib" find-library dlopen dup
! Check for ricons symbols ! Check for ricons symbols
"DrawIcon" swap dlsym [ "raylib.modules.ricons" require ] when "DrawIcon" swap dlsym [ "raylib.modules.ricons" require ] when
! Check for gui symbols ! Check for gui symbols
"GuiEnable" swap dlsym [ "raylib.modules.gui" require ] when "GuiEnable" swap dlsym [ "raylib.modules.gui" require ] when

2
extra/raylib/gui-demo/gui-demo.factor
View File

@ -33,7 +33,7 @@ IN: raylib.gui-demo
rl-gui-unlock ; rl-gui-unlock ;
: render-loop ( -- ) : render-loop ( -- )
begin-drawing white-background begin-drawing white-background
say-hello render-gui end-drawing ; say-hello render-gui end-drawing ;
: main ( -- ) : main ( -- )

2
extra/raylib/modules/gui/gui.factor
View File

@ -25,7 +25,7 @@ ENUM: GuiTextAlignment
! Gui standard controls ! Gui standard controls
ENUM: GuiControlStandard ENUM: GuiControlStandard
DEFAULT DEFAULT
LABEL ! LABELBUTTON LABEL ! LABELBUTTON
BUTTON ! IMAGEBUTTON BUTTON ! IMAGEBUTTON
TOGGLE ! TOGGLEGROUP TOGGLE ! TOGGLEGROUP

3
extra/raylib/modules/ricons/ricons.factor
View File

@ -9,7 +9,7 @@ IN: raylib.modules.ricons
FUNCTION-ALIAS: rl-draw-icon void DrawIcon ( int iconId, Vector2 position, int pixelSize, Color color ) FUNCTION-ALIAS: rl-draw-icon void DrawIcon ( int iconId, Vector2 position, int pixelSize, Color color )
ENUM: rIconDescription ENUM: rIconDescription
RICON_NONE RICON_NONE
RICON_FOLDER_FILE_OPEN RICON_FOLDER_FILE_OPEN
RICON_FILE_SAVE_CLASSIC RICON_FILE_SAVE_CLASSIC
RICON_FOLDER_OPEN RICON_FOLDER_OPEN
@ -208,4 +208,3 @@ ENUM: rIconDescription
RICON_LAYERS_VISIBLE RICON_LAYERS_VISIBLE
RICON_LAYERS RICON_LAYERS
RICON_WINDOW ; RICON_WINDOW ;

2
extra/zealot/help-lint/help-lint.factor
View File

@ -27,4 +27,4 @@ CONSTANT: ignored-resources {
: zealot-help-lint-main ( -- ) : zealot-help-lint-main ( -- )
t zealot-help-lint ; t zealot-help-lint ;
MAIN: zealot-help-lint-main MAIN: zealot-help-lint-main