Ruby  2.1.10p492(2016-04-01revision54464)
eval_jump.c
Go to the documentation of this file.
1 /* -*-c-*- */
2 /*
3  * from eval.c
4  */
5 
6 #include "eval_intern.h"
7 
8 /* exit */
9 
10 void
12 {
13  rb_proc_call(data, rb_ary_new());
14 }
15 
16 /*
17  * call-seq:
18  * at_exit { block } -> proc
19  *
20  * Converts _block_ to a +Proc+ object (and therefore
21  * binds it at the point of call) and registers it for execution when
22  * the program exits. If multiple handlers are registered, they are
23  * executed in reverse order of registration.
24  *
25  * def do_at_exit(str1)
26  * at_exit { print str1 }
27  * end
28  * at_exit { puts "cruel world" }
29  * do_at_exit("goodbye ")
30  * exit
31  *
32  * <em>produces:</em>
33  *
34  * goodbye cruel world
35  */
36 
37 static VALUE
39 {
40  VALUE proc;
41 
42  if (!rb_block_given_p()) {
43  rb_raise(rb_eArgError, "called without a block");
44  }
45  proc = rb_block_proc();
47  return proc;
48 }
49 
50 struct end_proc_data {
51  void (*func) ();
53  int safe;
55 };
56 
58 
59 void
61 {
62  struct end_proc_data *link = ALLOC(struct end_proc_data);
63  struct end_proc_data **list;
65 
66  if (th->top_wrapper) {
67  list = &ephemeral_end_procs;
68  }
69  else {
70  list = &end_procs;
71  }
72  link->next = *list;
73  link->func = func;
74  link->data = data;
75  link->safe = rb_safe_level();
76  *list = link;
77 }
78 
79 void
81 {
82  struct end_proc_data *link;
83 
84  link = end_procs;
85  while (link) {
86  rb_gc_mark(link->data);
87  link = link->next;
88  }
89  link = ephemeral_end_procs;
90  while (link) {
91  rb_gc_mark(link->data);
92  link = link->next;
93  }
94 }
95 
96 static void
97 exec_end_procs_chain(struct end_proc_data *volatile *procs)
98 {
99  struct end_proc_data volatile endproc;
100  struct end_proc_data *link;
101 
102  while ((link = *procs) != 0) {
103  *procs = link->next;
104  endproc = *link;
105  xfree(link);
106  rb_set_safe_level_force(endproc.safe);
107  (*endproc.func) (endproc.data);
108  }
109 }
110 
111 void
113 {
114  int status;
115  volatile int safe = rb_safe_level();
117  volatile VALUE errinfo = th->errinfo;
118 
119  PUSH_TAG();
120  if ((status = EXEC_TAG()) == 0) {
121  again:
122  exec_end_procs_chain(&ephemeral_end_procs);
123  exec_end_procs_chain(&end_procs);
124  }
125  else {
126  TH_TMPPOP_TAG();
127  error_handle(status);
128  if (!NIL_P(th->errinfo)) errinfo = th->errinfo;
129  TH_REPUSH_TAG();
130  goto again;
131  }
132  POP_TAG();
133 
135  th->errinfo = errinfo;
136 }
137 
138 void
140 {
142 }
VALUE data
Definition: tcltklib.c:3360
#define ALLOC(type)
static VALUE VALUE th
Definition: tcltklib.c:2944
VALUE proc
Definition: tcltklib.c:2955
SSL_METHOD *(* func)(void)
Definition: ossl_ssl.c:113
void rb_exec_end_proc(void)
Definition: eval_jump.c:112
int status
Definition: tcltklib.c:2197
void Init_jump(void)
Definition: eval_jump.c:139
NIL_P(eventloop_thread)
Definition: tcltklib.c:4056
int safe
Definition: tcltklib.c:6418
#define xfree
void rb_raise(VALUE exc, const char *fmt,...)
Definition: error.c:1857
#define PUSH_TAG()
Definition: eval_intern.h:141
void rb_define_global_function(const char *name, VALUE(*func)(ANYARGS), int argc)
Defines a global function.
Definition: class.c:1675
VALUE rb_block_proc(void)
Definition: proc.c:620
void rb_mark_end_proc(void)
Definition: eval_jump.c:80
static int error_handle(int ex)
Definition: eval_error.c:245
int rb_block_given_p(void)
Definition: eval.c:712
#define EXEC_TAG()
Definition: eval_intern.h:168
VALUE rb_ary_new(void)
Definition: array.c:499
void rb_gc_mark(VALUE)
Definition: gc.c:3607
static struct end_proc_data * ephemeral_end_procs
Definition: eval_jump.c:57
#define POP_TAG()
Definition: eval_intern.h:142
int link(const char *, const char *)
Definition: win32.c:4601
void rb_call_end_proc(VALUE data)
Definition: eval_jump.c:11
VP_EXPORT void
Definition: bigdecimal.c:5207
VALUE data
Definition: eval_jump.c:52
void rb_set_safe_level_force(int)
Definition: safe.c:43
#define TH_TMPPOP_TAG()
Definition: eval_intern.h:137
void rb_set_end_proc(void(*func)(VALUE), VALUE data)
Definition: eval_jump.c:60
static struct end_proc_data * end_procs
Definition: eval_jump.c:57
static void exec_end_procs_chain(struct end_proc_data *volatile *procs)
Definition: eval_jump.c:97
VALUE top_wrapper
Definition: vm_core.h:552
VALUE rb_proc_call(VALUE, VALUE)
Definition: proc.c:744
void(* func)()
Definition: eval_jump.c:51
struct rb_encoding_entry * list
Definition: encoding.c:47
#define rb_safe_level()
Definition: tcltklib.c:95
unsigned long VALUE
Definition: ripper.y:88
struct end_proc_data * next
Definition: eval_jump.c:54
#define TH_REPUSH_TAG()
Definition: eval_intern.h:139
static VALUE rb_f_at_exit(void)
Definition: eval_jump.c:38
static rb_thread_t * GET_THREAD(void)
Definition: vm_core.h:929
VALUE rb_eArgError
Definition: error.c:549