femto/command.h at master · jorge-leon/femto · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
#ifndef COMMAND_H
#define COMMAND_H

extern void append_string(buffer_t *, char *);
extern void backspace(void);
extern void scroll_down(void);
extern void backward_word(void);
extern void beginning_of_buffer(void);
extern void copy_region(void);
extern void delete(void);
extern void down(void);
extern void end_of_buffer(void);
extern bool goto_line(int line);
extern void eval_block(void);
extern void scroll_up(void);
extern void forward_word(void);
extern void insert(void);
extern void insert_string(char *);
extern void kill_region(void);
extern void left(void);
extern void lnbegin(void);
extern void lnend(void);
extern void match_parens(void);
extern void suspend(void);
extern void quit(void);
extern void right(void);
extern void set_mark(void);
extern void up(void);
extern void user_func(void);
extern void yank(void);

extern bool femto_register(Interpreter *);

/* Export void name(void) as Lisp function */
/* Note: the C-Function is used by set_key_internal() bindings */
#define DEFINE_EDITOR_FUNC(name)					\
    extern void name(void);                                             \
    Object *e_##name(Interpreter *interp, Object ** args, Object **env)	\
    {									\
        name();								\
        return t;                                                       \
    }


#endif