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

factor: C-GLOBAL: ;

locals-and-roots
Doug Coleman 2016-06-04 16:23:03 -07:00
parent 3cfe7302ca
commit 8c3a9d069f
8 changed files with 132 additions and 132 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ffi/core-foundation/fsevents/fsevents.factor
View File

@ -135,7 +135,7 @@ FUNCTION: CFStringRef FSEventStreamCopyDescription ( FSEventStreamRef streamRef
flags flags
FSEventStreamCreate ; FSEventStreamCreate ;
C-GLOBAL: void* kCFRunLoopCommonModes C-GLOBAL: void* kCFRunLoopCommonModes ;
: schedule-event-stream ( event-stream -- ) : schedule-event-stream ( event-stream -- )
CFRunLoopGetMain CFRunLoopGetMain

16
ffi/core-text/core-text.factor
View File

@ -10,14 +10,14 @@ in: core-text
TYPEDEF: void* CTLineRef ; TYPEDEF: void* CTLineRef ;
C-GLOBAL: CFStringRef kCTFontAttributeName C-GLOBAL: CFStringRef kCTFontAttributeName ;
C-GLOBAL: CFStringRef kCTKernAttributeName C-GLOBAL: CFStringRef kCTKernAttributeName ;
C-GLOBAL: CFStringRef kCTLigatureAttributeName C-GLOBAL: CFStringRef kCTLigatureAttributeName ;
C-GLOBAL: CFStringRef kCTForegroundColorAttributeName C-GLOBAL: CFStringRef kCTForegroundColorAttributeName ;
C-GLOBAL: CFStringRef kCTParagraphStyleAttributeName C-GLOBAL: CFStringRef kCTParagraphStyleAttributeName ;
C-GLOBAL: CFStringRef kCTUnderlineStyleAttributeName C-GLOBAL: CFStringRef kCTUnderlineStyleAttributeName ;
C-GLOBAL: CFStringRef kCTVerticalFormsAttributeName C-GLOBAL: CFStringRef kCTVerticalFormsAttributeName ;
C-GLOBAL: CFStringRef kCTGlyphInfoAttributeName C-GLOBAL: CFStringRef kCTGlyphInfoAttributeName ;
FUNCTION: CTLineRef CTLineCreateWithAttributedString ( CFAttributedStringRef string ) ; FUNCTION: CTLineRef CTLineCreateWithAttributedString ( CFAttributedStringRef string ) ;

42
ffi/core-text/fonts/fonts.factor
View File

@ -18,28 +18,28 @@ TYPEDEF: void* CTFontDescriptorRef ;
: kCTFontVerticalTrait ( -- n ) 11 2^ ; inline : kCTFontVerticalTrait ( -- n ) 11 2^ ; inline
: kCTFontUIOptimizedTrait ( -- n ) 12 2^ ; inline : kCTFontUIOptimizedTrait ( -- n ) 12 2^ ; inline
C-GLOBAL: CFStringRef kCTFontSymbolicTrait C-GLOBAL: CFStringRef kCTFontSymbolicTrait ;
C-GLOBAL: CFStringRef kCTFontWeightTrait C-GLOBAL: CFStringRef kCTFontWeightTrait ;
C-GLOBAL: CFStringRef kCTFontWidthTrait C-GLOBAL: CFStringRef kCTFontWidthTrait ;
C-GLOBAL: CFStringRef kCTFontSlantTrait C-GLOBAL: CFStringRef kCTFontSlantTrait ;
C-GLOBAL: CFStringRef kCTFontNameAttribute C-GLOBAL: CFStringRef kCTFontNameAttribute ;
C-GLOBAL: CFStringRef kCTFontDisplayNameAttribute C-GLOBAL: CFStringRef kCTFontDisplayNameAttribute ;
C-GLOBAL: CFStringRef kCTFontFamilyNameAttribute C-GLOBAL: CFStringRef kCTFontFamilyNameAttribute ;
C-GLOBAL: CFStringRef kCTFontStyleNameAttribute C-GLOBAL: CFStringRef kCTFontStyleNameAttribute ;
C-GLOBAL: CFStringRef kCTFontTraitsAttribute C-GLOBAL: CFStringRef kCTFontTraitsAttribute ;
C-GLOBAL: CFStringRef kCTFontVariationAttribute C-GLOBAL: CFStringRef kCTFontVariationAttribute ;
C-GLOBAL: CFStringRef kCTFontSizeAttribute C-GLOBAL: CFStringRef kCTFontSizeAttribute ;
C-GLOBAL: CFStringRef kCTFontMatrixAttribute C-GLOBAL: CFStringRef kCTFontMatrixAttribute ;
C-GLOBAL: CFStringRef kCTFontCascadeListAttribute C-GLOBAL: CFStringRef kCTFontCascadeListAttribute ;
C-GLOBAL: CFStringRef kCTFontCharacterSetAttribute C-GLOBAL: CFStringRef kCTFontCharacterSetAttribute ;
C-GLOBAL: CFStringRef kCTFontLanguagesAttribute C-GLOBAL: CFStringRef kCTFontLanguagesAttribute ;
C-GLOBAL: CFStringRef kCTFontBaselineAdjustAttribute C-GLOBAL: CFStringRef kCTFontBaselineAdjustAttribute ;
C-GLOBAL: CFStringRef kCTFontMacintoshEncodingsAttribute C-GLOBAL: CFStringRef kCTFontMacintoshEncodingsAttribute ;
C-GLOBAL: CFStringRef kCTFontFeaturesAttribute C-GLOBAL: CFStringRef kCTFontFeaturesAttribute ;
C-GLOBAL: CFStringRef kCTFontFeatureSettingsAttribute C-GLOBAL: CFStringRef kCTFontFeatureSettingsAttribute ;
C-GLOBAL: CFStringRef kCTFontFixedAdvanceAttribute C-GLOBAL: CFStringRef kCTFontFixedAdvanceAttribute ;
C-GLOBAL: CFStringRef kCTFontOrientationAttribute C-GLOBAL: CFStringRef kCTFontOrientationAttribute ;
FUNCTION: CTFontDescriptorRef CTFontDescriptorCreateWithAttributes ( FUNCTION: CTFontDescriptorRef CTFontDescriptorCreateWithAttributes (
CFDictionaryRef attributes CFDictionaryRef attributes

6
ffi/curses/ffi/ffi.factor
View File

@ -83,7 +83,7 @@ STRUCT: MEVENT
LIBRARY: curses LIBRARY: curses
C-GLOBAL: void* stdscr C-GLOBAL: void* stdscr ;
FUNCTION: WINDOW* initscr ( ) ; FUNCTION: WINDOW* initscr ( ) ;
FUNCTION: int endwin ( ) ; FUNCTION: int endwin ( ) ;
@ -248,8 +248,8 @@ FUNCTION: bool can_change_color ( ) ;
FUNCTION: int color_content ( short color, short* r, short* g, short* b ) ; FUNCTION: int color_content ( short color, short* r, short* g, short* b ) ;
FUNCTION: int pair_content ( short pair, short* f, short* b ) ; FUNCTION: int pair_content ( short pair, short* f, short* b ) ;
C-GLOBAL: int COLORS C-GLOBAL: int COLORS ;
C-GLOBAL: int COLOR_PAIRS C-GLOBAL: int COLOR_PAIRS ;
: COLOR_PAIR ( n -- n' ) 8 shift ; inline foldable : COLOR_PAIR ( n -- n' ) 8 shift ; inline foldable

4
ffi/gdbm/ffi/ffi.factor
View File

@ -10,7 +10,7 @@ cdecl add-library >>
LIBRARY: libgdbm LIBRARY: libgdbm
C-GLOBAL: c-string gdbm_version C-GLOBAL: c-string gdbm_version ;
CONSTANT: GDBM_SYNC 0x20 ; CONSTANT: GDBM_SYNC 0x20 ;
CONSTANT: GDBM_NOLOCK 0x40 ; CONSTANT: GDBM_NOLOCK 0x40 ;
@ -42,6 +42,6 @@ FUNCTION: int gdbm_exists ( GDBM_FILE dbf, datum key ) ;
FUNCTION: int gdbm_setopt ( GDBM_FILE dbf, int option, int* value, int size ) ; FUNCTION: int gdbm_setopt ( GDBM_FILE dbf, int option, int* value, int size ) ;
FUNCTION: int gdbm_fdesc ( GDBM_FILE dbf ) ; FUNCTION: int gdbm_fdesc ( GDBM_FILE dbf ) ;
C-GLOBAL: int gdbm_errno C-GLOBAL: int gdbm_errno ;
FUNCTION: c-string gdbm_strerror ( int errno ) ; FUNCTION: c-string gdbm_strerror ( int errno ) ;

190
ffi/readline/ffi/ffi.factor
View File

@ -100,11 +100,11 @@ CONSTANT: ISFUNC 0 ;
CONSTANT: ISKMAP 1 ; CONSTANT: ISKMAP 1 ;
CONSTANT: ISMACR 2 ; CONSTANT: ISMACR 2 ;
C-GLOBAL: KEYMAP_ENTRY_ARRAY emacs_standard_keymap C-GLOBAL: KEYMAP_ENTRY_ARRAY emacs_standard_keymap ;
C-GLOBAL: KEYMAP_ENTRY_ARRAY emacs_meta_keymap C-GLOBAL: KEYMAP_ENTRY_ARRAY emacs_meta_keymap ;
C-GLOBAL: KEYMAP_ENTRY_ARRAY emacs_ctlx_keymap C-GLOBAL: KEYMAP_ENTRY_ARRAY emacs_ctlx_keymap ;
C-GLOBAL: KEYMAP_ENTRY_ARRAY vi_insertion_keymap C-GLOBAL: KEYMAP_ENTRY_ARRAY vi_insertion_keymap ;
C-GLOBAL: KEYMAP_ENTRY_ARRAY vi_movement_keymap C-GLOBAL: KEYMAP_ENTRY_ARRAY vi_movement_keymap ;
FUNCTION: Keymap rl_copy_keymap ( Keymap k ) ; FUNCTION: Keymap rl_copy_keymap ( Keymap k ) ;
FUNCTION: Keymap rl_make_keymap ( ) ; FUNCTION: Keymap rl_make_keymap ( ) ;
@ -112,29 +112,29 @@ FUNCTION: void rl_discard_keymap ( Keymap k ) ;
CALLBACK: c-string tilde_hook_func_t ( c-string s ) ; CALLBACK: c-string tilde_hook_func_t ( c-string s ) ;
C-GLOBAL: tilde_hook_func_t* tilde_expansion_preexpansion_hook C-GLOBAL: tilde_hook_func_t* tilde_expansion_preexpansion_hook ;
C-GLOBAL: tilde_hook_func_t* tilde_expansion_failure_hook C-GLOBAL: tilde_hook_func_t* tilde_expansion_failure_hook ;
C-GLOBAL: char** tilde_additional_prefixes C-GLOBAL: char** tilde_additional_prefixes ;
C-GLOBAL: char** tilde_additional_suffixes C-GLOBAL: char** tilde_additional_suffixes ;
FUNCTION: c-string tilde_expand ( c-string s ) ; FUNCTION: c-string tilde_expand ( c-string s ) ;
FUNCTION: c-string tilde_expand_word ( c-string s ) ; FUNCTION: c-string tilde_expand_word ( c-string s ) ;
FUNCTION: c-string tilde_find_word ( c-string arg1, int arg2, FUNCTION: c-string tilde_find_word ( c-string arg1, int arg2,
int* arg3 ) ; int* arg3 ) ;
C-GLOBAL: int history_base C-GLOBAL: int history_base ;
C-GLOBAL: int history_length C-GLOBAL: int history_length ;
C-GLOBAL: int history_max_entries C-GLOBAL: int history_max_entries ;
C-GLOBAL: char history_expansion_char C-GLOBAL: char history_expansion_char ;
C-GLOBAL: char history_subst_char C-GLOBAL: char history_subst_char ;
C-GLOBAL: c-string history_word_delimiters C-GLOBAL: c-string history_word_delimiters ;
C-GLOBAL: char history_comment_char C-GLOBAL: char history_comment_char ;
C-GLOBAL: c-string history_no_expand_chars C-GLOBAL: c-string history_no_expand_chars ;
C-GLOBAL: c-string history_search_delimiter_chars C-GLOBAL: c-string history_search_delimiter_chars ;
C-GLOBAL: int history_quotes_inhibit_expansion C-GLOBAL: int history_quotes_inhibit_expansion ;
C-GLOBAL: int history_write_timestamps C-GLOBAL: int history_write_timestamps ;
C-GLOBAL: int max_input_history C-GLOBAL: int max_input_history ;
C-GLOBAL: rl_linebuf_func_t* history_inhibit_expansion_function C-GLOBAL: rl_linebuf_func_t* history_inhibit_expansion_function ;
CALLBACK: int rl_intfunc_t ( int i ) ; CALLBACK: int rl_intfunc_t ( int i ) ;
CALLBACK: int rl_icpfunc_t ( c-string s ) ; CALLBACK: int rl_icpfunc_t ( c-string s ) ;
@ -159,13 +159,13 @@ STRUCT: UNDO_LIST
{ text char* } { text char* }
{ what undo_code } ; { what undo_code } ;
C-GLOBAL: UNDO_LIST* rl_undo_list C-GLOBAL: UNDO_LIST* rl_undo_list ;
STRUCT: FUNMAP STRUCT: FUNMAP
{ name c-string } { name c-string }
{ function rl_command_func_t* } ; { function rl_command_func_t* } ;
C-GLOBAL: FUNMAP** funmap C-GLOBAL: FUNMAP** funmap ;
FUNCTION: int rl_digit_argument ( int arg1, int arg2 ) ; FUNCTION: int rl_digit_argument ( int arg1, int arg2 ) ;
FUNCTION: int rl_universal_argument ( int arg, int arg ) ; FUNCTION: int rl_universal_argument ( int arg, int arg ) ;
@ -501,87 +501,87 @@ FUNCTION: c-string rl_filename_completion_function ( c-string
FUNCTION: int rl_completion_mode ( rl_command_func_t* p ) ; FUNCTION: int rl_completion_mode ( rl_command_func_t* p ) ;
C-GLOBAL: c-string rl_library_version C-GLOBAL: c-string rl_library_version ;
C-GLOBAL: int rl_readline_version C-GLOBAL: int rl_readline_version ;
C-GLOBAL: int rl_gnu_readline_p C-GLOBAL: int rl_gnu_readline_p ;
C-GLOBAL: int rl_readline_state C-GLOBAL: int rl_readline_state ;
C-GLOBAL: int rl_editing_mode C-GLOBAL: int rl_editing_mode ;
C-GLOBAL: int rl_insert_mode C-GLOBAL: int rl_insert_mode ;
C-GLOBAL: c-string rl_readline_name C-GLOBAL: c-string rl_readline_name ;
C-GLOBAL: c-string rl_prompt C-GLOBAL: c-string rl_prompt ;
C-GLOBAL: c-string rl_display_prompt C-GLOBAL: c-string rl_display_prompt ;
C-GLOBAL: c-string rl_line_buffer C-GLOBAL: c-string rl_line_buffer ;
C-GLOBAL: int rl_point C-GLOBAL: int rl_point ;
C-GLOBAL: int rl_end C-GLOBAL: int rl_end ;
C-GLOBAL: int rl_mark C-GLOBAL: int rl_mark ;
C-GLOBAL: int rl_done C-GLOBAL: int rl_done ;
C-GLOBAL: int rl_pending_input C-GLOBAL: int rl_pending_input ;
C-GLOBAL: int rl_dispatching C-GLOBAL: int rl_dispatching ;
C-GLOBAL: int rl_explicit_arg C-GLOBAL: int rl_explicit_arg ;
C-GLOBAL: int rl_numeric_arg C-GLOBAL: int rl_numeric_arg ;
C-GLOBAL: rl_command_func_t* rl_last_func C-GLOBAL: rl_command_func_t* rl_last_func ;
C-GLOBAL: c-string rl_terminal_name C-GLOBAL: c-string rl_terminal_name ;
C-GLOBAL: FILE* rl_instream C-GLOBAL: FILE* rl_instream ;
C-GLOBAL: FILE* rl_outstream C-GLOBAL: FILE* rl_outstream ;
C-GLOBAL: int rl_prefer_env_winsize C-GLOBAL: int rl_prefer_env_winsize ;
C-GLOBAL: rl_hook_func_t* rl_startup_hook C-GLOBAL: rl_hook_func_t* rl_startup_hook ;
C-GLOBAL: rl_hook_func_t* rl_pre_input_hook C-GLOBAL: rl_hook_func_t* rl_pre_input_hook ;
C-GLOBAL: rl_hook_func_t* rl_event_hook C-GLOBAL: rl_hook_func_t* rl_event_hook ;
C-GLOBAL: rl_getc_func_t* rl_getc_function C-GLOBAL: rl_getc_func_t* rl_getc_function ;
C-GLOBAL: rl_voidfunc_t* rl_redisplay_function C-GLOBAL: rl_voidfunc_t* rl_redisplay_function ;
C-GLOBAL: rl_vintfunc_t* rl_prep_term_function C-GLOBAL: rl_vintfunc_t* rl_prep_term_function ;
C-GLOBAL: rl_voidfunc_t* rl_deprep_term_function C-GLOBAL: rl_voidfunc_t* rl_deprep_term_function ;
C-GLOBAL: Keymap rl_executing_keymap C-GLOBAL: Keymap rl_executing_keymap ;
C-GLOBAL: Keymap rl_binding_keymap C-GLOBAL: Keymap rl_binding_keymap ;
C-GLOBAL: int rl_erase_empty_line C-GLOBAL: int rl_erase_empty_line ;
C-GLOBAL: int rl_already_prompted C-GLOBAL: int rl_already_prompted ;
C-GLOBAL: int rl_num_chars_to_read C-GLOBAL: int rl_num_chars_to_read ;
C-GLOBAL: c-string rl_executing_macro C-GLOBAL: c-string rl_executing_macro ;
C-GLOBAL: int rl_catch_signals C-GLOBAL: int rl_catch_signals ;
C-GLOBAL: int rl_catch_sigwinch C-GLOBAL: int rl_catch_sigwinch ;
C-GLOBAL: rl_compentry_func_t* rl_completion_entry_function C-GLOBAL: rl_compentry_func_t* rl_completion_entry_function ;
C-GLOBAL: rl_compentry_func_t* rl_menu_completion_entry_function C-GLOBAL: rl_compentry_func_t* rl_menu_completion_entry_function ;
C-GLOBAL: rl_compignore_func_t* rl_ignore_some_completions_function C-GLOBAL: rl_compignore_func_t* rl_ignore_some_completions_function ;
C-GLOBAL: rl_completion_func_t* rl_attempted_completion_function C-GLOBAL: rl_completion_func_t* rl_attempted_completion_function ;
C-GLOBAL: c-string rl_basic_word_break_characters C-GLOBAL: c-string rl_basic_word_break_characters ;
C-GLOBAL: c-string rl_completer_word_break_characters C-GLOBAL: c-string rl_completer_word_break_characters ;
C-GLOBAL: rl_cpvfunc_t* rl_completion_word_break_hook C-GLOBAL: rl_cpvfunc_t* rl_completion_word_break_hook ;
C-GLOBAL: c-string rl_completer_quote_characters C-GLOBAL: c-string rl_completer_quote_characters ;
C-GLOBAL: c-string rl_basic_quote_characters C-GLOBAL: c-string rl_basic_quote_characters ;
C-GLOBAL: c-string rl_filename_quote_characters C-GLOBAL: c-string rl_filename_quote_characters ;
C-GLOBAL: c-string rl_special_prefixes C-GLOBAL: c-string rl_special_prefixes ;
C-GLOBAL: rl_icppfunc_t* rl_directory_completion_hook C-GLOBAL: rl_icppfunc_t* rl_directory_completion_hook ;
C-GLOBAL: rl_icppfunc_t* rl_directory_rewrite_hook C-GLOBAL: rl_icppfunc_t* rl_directory_rewrite_hook ;
C-GLOBAL: rl_dequote_func_t* rl_filename_rewrite_hook C-GLOBAL: rl_dequote_func_t* rl_filename_rewrite_hook ;
C-GLOBAL: rl_compdisp_func_t* rl_completion_display_matches_hook C-GLOBAL: rl_compdisp_func_t* rl_completion_display_matches_hook ;
C-GLOBAL: int rl_filename_completion_desired C-GLOBAL: int rl_filename_completion_desired ;
C-GLOBAL: int rl_filename_quoting_desired C-GLOBAL: int rl_filename_quoting_desired ;
C-GLOBAL: rl_quote_func_t* rl_filename_quoting_function C-GLOBAL: rl_quote_func_t* rl_filename_quoting_function ;
C-GLOBAL: rl_dequote_func_t* rl_filename_dequoting_function C-GLOBAL: rl_dequote_func_t* rl_filename_dequoting_function ;
C-GLOBAL: rl_linebuf_func_t* rl_char_is_quoted_p C-GLOBAL: rl_linebuf_func_t* rl_char_is_quoted_p ;
C-GLOBAL: int rl_attempted_completion_over C-GLOBAL: int rl_attempted_completion_over ;
C-GLOBAL: int rl_completion_type C-GLOBAL: int rl_completion_type ;
C-GLOBAL: int rl_completion_invoking_key C-GLOBAL: int rl_completion_invoking_key ;
C-GLOBAL: int rl_completion_query_items C-GLOBAL: int rl_completion_query_items ;
C-GLOBAL: int rl_completion_append_character C-GLOBAL: int rl_completion_append_character ;
C-GLOBAL: int rl_completion_suppress_append C-GLOBAL: int rl_completion_suppress_append ;
C-GLOBAL: int rl_completion_quote_character C-GLOBAL: int rl_completion_quote_character ;
C-GLOBAL: int rl_completion_found_quote C-GLOBAL: int rl_completion_found_quote ;
C-GLOBAL: int rl_completion_suppress_quote C-GLOBAL: int rl_completion_suppress_quote ;
C-GLOBAL: int rl_sort_completion_matches C-GLOBAL: int rl_sort_completion_matches ;
C-GLOBAL: int rl_completion_mark_symlink_dirs C-GLOBAL: int rl_completion_mark_symlink_dirs ;
C-GLOBAL: int rl_ignore_completion_duplicates C-GLOBAL: int rl_ignore_completion_duplicates ;
C-GLOBAL: int rl_inhibit_completion C-GLOBAL: int rl_inhibit_completion ;
CONSTANT: READERR -2 ; CONSTANT: READERR -2 ;

2
language/alien/syntax/syntax-docs.factor
View File

@ -121,7 +121,7 @@ HELP: typedef
{ postpone: TYPEDEF: typedef } related-words { postpone: TYPEDEF: typedef } related-words
HELP: C-GLOBAL: HELP: C-GLOBAL:
{ $syntax "C-GLOBAL: type name" } { $syntax "C-GLOBAL: type name ;" }
{ $values { "type" "a C type" } { "name" "a C global variable name" } } { $values { "type" "a C type" } { "name" "a C global variable name" } }
{ $description "Defines a getter " { $snippet "name" } " and setter " { $snippet "set-name" } " for the global value in the current library, set with " { $link postpone: LIBRARY: } "." } ; { $description "Defines a getter " { $snippet "name" } " and setter " { $snippet "set-name" } " for the global value in the current library, set with " { $link postpone: LIBRARY: } "." } ;

2
language/alien/syntax/syntax.factor
View File

@ -36,7 +36,7 @@ SYNTAX: C-TYPE:
SYNTAX: &: SYNTAX: &:
scan-token current-library get '[ _ _ address-of ] append! ; scan-token current-library get '[ _ _ address-of ] append! ;
SYNTAX: C-GLOBAL: scan-c-type scan-new-word define-global ; SYNTAX: C-GLOBAL: scan-c-type scan-new-word ";" expect define-global ;
SYNTAX: pointer: SYNTAX: pointer:
scan-c-type <pointer> suffix! ; scan-c-type <pointer> suffix! ;