misc: add callback hooks and refactor pmc
[vpp.git] / src / vlib / node_funcs.h
1 /*
2  * Copyright (c) 2015 Cisco and/or its affiliates.
3  * Licensed under the Apache License, Version 2.0 (the "License");
4  * you may not use this file except in compliance with the License.
5  * You may obtain a copy of the License at:
6  *
7  *     http://www.apache.org/licenses/LICENSE-2.0
8  *
9  * Unless required by applicable law or agreed to in writing, software
10  * distributed under the License is distributed on an "AS IS" BASIS,
11  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
12  * See the License for the specific language governing permissions and
13  * limitations under the License.
14  */
15 /*
16  * node_funcs.h: processing nodes global functions/inlines
17  *
18  * Copyright (c) 2008 Eliot Dresselhaus
19  *
20  * Permission is hereby granted, free of charge, to any person obtaining
21  * a copy of this software and associated documentation files (the
22  * "Software"), to deal in the Software without restriction, including
23  * without limitation the rights to use, copy, modify, merge, publish,
24  * distribute, sublicense, and/or sell copies of the Software, and to
25  * permit persons to whom the Software is furnished to do so, subject to
26  * the following conditions:
27  *
28  * The above copyright notice and this permission notice shall be
29  * included in all copies or substantial portions of the Software.
30  *
31  *  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
32  *  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
33  *  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
34  *  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
35  *  LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
36  *  OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
37  *  WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
38  */
39
40 /** \file
41     vlib node functions
42 */
43
44
45 #ifndef included_vlib_node_funcs_h
46 #define included_vlib_node_funcs_h
47
48 #include <vppinfra/fifo.h>
49 #include <vppinfra/tw_timer_1t_3w_1024sl_ov.h>
50
51 #ifdef CLIB_SANITIZE_ADDR
52 #include <sanitizer/asan_interface.h>
53 #endif
54
55 static_always_inline void
56 vlib_process_start_switch_stack (vlib_main_t * vm, vlib_process_t * p)
57 {
58 #ifdef CLIB_SANITIZE_ADDR
59   void *stack = p ? (void *) p->stack : vlib_thread_stacks[vm->thread_index];
60   u32 stack_bytes = p ? p->log2_n_stack_bytes : VLIB_THREAD_STACK_SIZE;
61   __sanitizer_start_switch_fiber (&vm->asan_stack_save, stack, stack_bytes);
62 #endif
63 }
64
65 static_always_inline void
66 vlib_process_finish_switch_stack (vlib_main_t * vm)
67 {
68 #ifdef CLIB_SANITIZE_ADDR
69   const void *bottom_old;
70   size_t size_old;
71
72   __sanitizer_finish_switch_fiber (&vm->asan_stack_save, &bottom_old,
73                                    &size_old);
74 #endif
75 }
76
77 /** \brief Get vlib node by index.
78  @warning This function will ASSERT if @c i is out of range.
79  @param vm vlib_main_t pointer, varies by thread
80  @param i node index.
81  @return pointer to the requested vlib_node_t.
82 */
83
84 always_inline vlib_node_t *
85 vlib_get_node (vlib_main_t * vm, u32 i)
86 {
87   return vec_elt (vm->node_main.nodes, i);
88 }
89
90 /** \brief Get vlib node by graph arc (next) index.
91  @param vm vlib_main_t pointer, varies by thread
92  @param node_index index of original node
93  @param next_index graph arc index
94  @return pointer to the vlib_node_t at the end of the indicated arc
95 */
96
97 always_inline vlib_node_t *
98 vlib_get_next_node (vlib_main_t * vm, u32 node_index, u32 next_index)
99 {
100   vlib_node_main_t *nm = &vm->node_main;
101   vlib_node_t *n;
102
103   n = vec_elt (nm->nodes, node_index);
104   ASSERT (next_index < vec_len (n->next_nodes));
105   return vlib_get_node (vm, n->next_nodes[next_index]);
106 }
107
108 /** \brief Get node runtime by node index.
109  @param vm vlib_main_t pointer, varies by thread
110  @param node_index index of node
111  @return pointer to the indicated vlib_node_runtime_t
112 */
113
114 always_inline vlib_node_runtime_t *
115 vlib_node_get_runtime (vlib_main_t * vm, u32 node_index)
116 {
117   vlib_node_main_t *nm = &vm->node_main;
118   vlib_node_t *n = vec_elt (nm->nodes, node_index);
119   vlib_process_t *p;
120   if (n->type != VLIB_NODE_TYPE_PROCESS)
121     return vec_elt_at_index (nm->nodes_by_type[n->type], n->runtime_index);
122   else
123     {
124       p = vec_elt (nm->processes, n->runtime_index);
125       return &p->node_runtime;
126     }
127 }
128
129 /** \brief Get node runtime private data by node index.
130  @param vm vlib_main_t pointer, varies by thread
131  @param node_index index of the node
132  @return pointer to the indicated vlib_node_runtime_t private data
133 */
134
135 always_inline void *
136 vlib_node_get_runtime_data (vlib_main_t * vm, u32 node_index)
137 {
138   vlib_node_runtime_t *r = vlib_node_get_runtime (vm, node_index);
139   return r->runtime_data;
140 }
141
142 /** \brief Set node runtime private data.
143  @param vm vlib_main_t pointer, varies by thread
144  @param node_index index of the node
145  @param runtime_data arbitrary runtime private data
146  @param n_runtime_data_bytes size of runtime private data
147 */
148
149 always_inline void
150 vlib_node_set_runtime_data (vlib_main_t * vm, u32 node_index,
151                             void *runtime_data, u32 n_runtime_data_bytes)
152 {
153   vlib_node_t *n = vlib_get_node (vm, node_index);
154   vlib_node_runtime_t *r = vlib_node_get_runtime (vm, node_index);
155
156   n->runtime_data_bytes = n_runtime_data_bytes;
157   vec_free (n->runtime_data);
158   vec_add (n->runtime_data, runtime_data, n_runtime_data_bytes);
159
160   ASSERT (vec_len (n->runtime_data) <= sizeof (vlib_node_runtime_t) -
161           STRUCT_OFFSET_OF (vlib_node_runtime_t, runtime_data));
162
163   if (vec_len (n->runtime_data) > 0)
164     clib_memcpy_fast (r->runtime_data, n->runtime_data,
165                       vec_len (n->runtime_data));
166 }
167
168 /** \brief Set node dispatch state.
169  @param vm vlib_main_t pointer, varies by thread
170  @param node_index index of the node
171  @param new_state new state for node, see vlib_node_state_t
172 */
173 always_inline void
174 vlib_node_set_state (vlib_main_t * vm, u32 node_index,
175                      vlib_node_state_t new_state)
176 {
177   vlib_node_main_t *nm = &vm->node_main;
178   vlib_node_t *n;
179   vlib_node_runtime_t *r;
180
181   n = vec_elt (nm->nodes, node_index);
182   if (n->type == VLIB_NODE_TYPE_PROCESS)
183     {
184       vlib_process_t *p = vec_elt (nm->processes, n->runtime_index);
185       r = &p->node_runtime;
186
187       /* When disabling make sure flags are cleared. */
188       p->flags &= ~(VLIB_PROCESS_RESUME_PENDING
189                     | VLIB_PROCESS_IS_SUSPENDED_WAITING_FOR_CLOCK
190                     | VLIB_PROCESS_IS_SUSPENDED_WAITING_FOR_EVENT);
191     }
192   else
193     r = vec_elt_at_index (nm->nodes_by_type[n->type], n->runtime_index);
194
195   ASSERT (new_state < VLIB_N_NODE_STATE);
196
197   if (n->type == VLIB_NODE_TYPE_INPUT)
198     {
199       ASSERT (nm->input_node_counts_by_state[n->state] > 0);
200       nm->input_node_counts_by_state[n->state] -= 1;
201       nm->input_node_counts_by_state[new_state] += 1;
202     }
203
204   if (PREDICT_FALSE (r->state == VLIB_NODE_STATE_DISABLED))
205     vlib_node_runtime_perf_counter (vm, r, 0, 0, 0,
206                                     VLIB_NODE_RUNTIME_PERF_RESET);
207
208   n->state = new_state;
209   r->state = new_state;
210 }
211
212 /** \brief Get node dispatch state.
213  @param vm vlib_main_t pointer, varies by thread
214  @param node_index index of the node
215  @return state for node, see vlib_node_state_t
216 */
217 always_inline vlib_node_state_t
218 vlib_node_get_state (vlib_main_t * vm, u32 node_index)
219 {
220   vlib_node_main_t *nm = &vm->node_main;
221   vlib_node_t *n;
222   n = vec_elt (nm->nodes, node_index);
223   return n->state;
224 }
225
226 always_inline void
227 vlib_node_set_interrupt_pending_with_data (vlib_main_t * vm, u32 node_index,
228                                            u32 data)
229 {
230   vlib_node_main_t *nm = &vm->node_main;
231   vlib_node_t *n = vec_elt (nm->nodes, node_index);
232   vlib_node_interrupt_t *i;
233   ASSERT (n->type == VLIB_NODE_TYPE_INPUT);
234
235   if (vm == vlib_get_main ())
236     {
237       /* local thread */
238       vec_add2 (nm->pending_local_interrupts, i, 1);
239       i->node_runtime_index = n->runtime_index;
240       i->data = data;
241     }
242   else
243     {
244       /* remote thread */
245       clib_spinlock_lock (&nm->pending_interrupt_lock);
246       vec_add2 (nm->pending_remote_interrupts, i, 1);
247       i->node_runtime_index = n->runtime_index;
248       i->data = data;
249       *nm->pending_remote_interrupts_notify = 1;
250       clib_spinlock_unlock (&nm->pending_interrupt_lock);
251     }
252 }
253
254 always_inline void
255 vlib_node_set_interrupt_pending (vlib_main_t * vm, u32 node_index)
256 {
257   vlib_node_set_interrupt_pending_with_data (vm, node_index, 0);
258 }
259
260 always_inline vlib_process_t *
261 vlib_get_process_from_node (vlib_main_t * vm, vlib_node_t * node)
262 {
263   vlib_node_main_t *nm = &vm->node_main;
264   ASSERT (node->type == VLIB_NODE_TYPE_PROCESS);
265   return vec_elt (nm->processes, node->runtime_index);
266 }
267
268 always_inline vlib_frame_t *
269 vlib_get_frame (vlib_main_t * vm, vlib_frame_t * f)
270 {
271   ASSERT (f != NULL);
272   ASSERT (f->frame_flags & VLIB_FRAME_IS_ALLOCATED);
273   return f;
274 }
275
276 always_inline void
277 vlib_frame_no_append (vlib_frame_t * f)
278 {
279   f->frame_flags |= VLIB_FRAME_NO_APPEND;
280 }
281
282 /* Byte alignment for vector arguments. */
283 #define VLIB_FRAME_VECTOR_ALIGN (1 << 4)
284
285 always_inline u32
286 vlib_frame_vector_byte_offset (u32 scalar_size)
287 {
288   return round_pow2 (sizeof (vlib_frame_t) + scalar_size,
289                      VLIB_FRAME_VECTOR_ALIGN);
290 }
291
292 /** \brief Get pointer to frame vector data.
293  @param f vlib_frame_t pointer
294  @return pointer to first vector element in frame
295 */
296 always_inline void *
297 vlib_frame_vector_args (vlib_frame_t * f)
298 {
299   return (void *) f + vlib_frame_vector_byte_offset (f->scalar_size);
300 }
301
302 /** \brief Get pointer to frame scalar data.
303
304  @param f vlib_frame_t pointer
305
306  @return arbitrary node scalar data
307
308  @sa vlib_frame_vector_args
309 */
310 always_inline void *
311 vlib_frame_scalar_args (vlib_frame_t * f)
312 {
313   return vlib_frame_vector_args (f) - f->scalar_size;
314 }
315
316 always_inline vlib_next_frame_t *
317 vlib_node_runtime_get_next_frame (vlib_main_t * vm,
318                                   vlib_node_runtime_t * n, u32 next_index)
319 {
320   vlib_node_main_t *nm = &vm->node_main;
321   vlib_next_frame_t *nf;
322
323   ASSERT (next_index < n->n_next_nodes);
324   nf = vec_elt_at_index (nm->next_frames, n->next_frame_index + next_index);
325
326   if (CLIB_DEBUG > 0)
327     {
328       vlib_node_t *node, *next;
329       node = vec_elt (nm->nodes, n->node_index);
330       next = vec_elt (nm->nodes, node->next_nodes[next_index]);
331       ASSERT (nf->node_runtime_index == next->runtime_index);
332     }
333
334   return nf;
335 }
336
337 /** \brief Get pointer to frame by (@c node_index, @c next_index).
338
339  @warning This is not a function that you should call directly.
340  See @ref vlib_get_next_frame instead.
341
342  @param vm vlib_main_t pointer, varies by thread
343  @param node_index index of the node
344  @param next_index graph arc index
345
346  @return pointer to the requested vlib_next_frame_t
347
348  @sa vlib_get_next_frame
349 */
350
351 always_inline vlib_next_frame_t *
352 vlib_node_get_next_frame (vlib_main_t * vm, u32 node_index, u32 next_index)
353 {
354   vlib_node_main_t *nm = &vm->node_main;
355   vlib_node_t *n;
356   vlib_node_runtime_t *r;
357
358   n = vec_elt (nm->nodes, node_index);
359   r = vec_elt_at_index (nm->nodes_by_type[n->type], n->runtime_index);
360   return vlib_node_runtime_get_next_frame (vm, r, next_index);
361 }
362
363 vlib_frame_t *vlib_get_next_frame_internal (vlib_main_t * vm,
364                                             vlib_node_runtime_t * node,
365                                             u32 next_index,
366                                             u32 alloc_new_frame);
367
368 #define vlib_get_next_frame_macro(vm,node,next_index,vectors,n_vectors_left,alloc_new_frame) \
369 do {                                                                    \
370   vlib_frame_t * _f                                                     \
371     = vlib_get_next_frame_internal ((vm), (node), (next_index),         \
372                                     (alloc_new_frame));                 \
373   u32 _n = _f->n_vectors;                                               \
374   (vectors) = vlib_frame_vector_args (_f) + _n * sizeof ((vectors)[0]); \
375   (n_vectors_left) = VLIB_FRAME_SIZE - _n;                              \
376 } while (0)
377
378
379 /** \brief Get pointer to next frame vector data by
380     (@c vlib_node_runtime_t, @c next_index).
381  Standard single/dual loop boilerplate element.
382  @attention This is a MACRO, with SIDE EFFECTS.
383
384  @param vm vlib_main_t pointer, varies by thread
385  @param node current node vlib_node_runtime_t pointer
386  @param next_index requested graph arc index
387
388  @return @c vectors -- pointer to next available vector slot
389  @return @c n_vectors_left -- number of vector slots available
390 */
391 #define vlib_get_next_frame(vm,node,next_index,vectors,n_vectors_left)  \
392   vlib_get_next_frame_macro (vm, node, next_index,                      \
393                              vectors, n_vectors_left,                   \
394                              /* alloc new frame */ 0)
395
396 #define vlib_get_new_next_frame(vm,node,next_index,vectors,n_vectors_left) \
397   vlib_get_next_frame_macro (vm, node, next_index,                      \
398                              vectors, n_vectors_left,                   \
399                              /* alloc new frame */ 1)
400
401 /** \brief Release pointer to next frame vector data.
402  Standard single/dual loop boilerplate element.
403  @param vm vlib_main_t pointer, varies by thread
404  @param r current node vlib_node_runtime_t pointer
405  @param next_index graph arc index
406  @param n_packets_left number of slots still available in vector
407 */
408 void
409 vlib_put_next_frame (vlib_main_t * vm,
410                      vlib_node_runtime_t * r,
411                      u32 next_index, u32 n_packets_left);
412
413 /* Combination get plus put.  Returns vector argument just added. */
414 #define vlib_set_next_frame(vm,node,next_index,v)                       \
415 ({                                                                      \
416   uword _n_left;                                                        \
417   vlib_get_next_frame ((vm), (node), (next_index), (v), _n_left);       \
418   ASSERT (_n_left > 0);                                                 \
419   vlib_put_next_frame ((vm), (node), (next_index), _n_left - 1);        \
420   (v);                                                                  \
421 })
422
423 always_inline void
424 vlib_set_next_frame_buffer (vlib_main_t * vm,
425                             vlib_node_runtime_t * node,
426                             u32 next_index, u32 buffer_index)
427 {
428   u32 *p;
429   p = vlib_set_next_frame (vm, node, next_index, p);
430   p[0] = buffer_index;
431 }
432
433 vlib_frame_t *vlib_get_frame_to_node (vlib_main_t * vm, u32 to_node_index);
434 void vlib_put_frame_to_node (vlib_main_t * vm, u32 to_node_index,
435                              vlib_frame_t * f);
436
437 always_inline uword
438 vlib_in_process_context (vlib_main_t * vm)
439 {
440   return vm->node_main.current_process_index != ~0;
441 }
442
443 always_inline vlib_process_t *
444 vlib_get_current_process (vlib_main_t * vm)
445 {
446   vlib_node_main_t *nm = &vm->node_main;
447   if (vlib_in_process_context (vm))
448     return vec_elt (nm->processes, nm->current_process_index);
449   return 0;
450 }
451
452 always_inline uword
453 vlib_current_process (vlib_main_t * vm)
454 {
455   return vlib_get_current_process (vm)->node_runtime.node_index;
456 }
457
458 /** Returns TRUE if a process suspend time is less than 10us
459     @param dt - remaining poll time in seconds
460     @returns 1 if dt < 10e-6, 0 otherwise
461 */
462 always_inline uword
463 vlib_process_suspend_time_is_zero (f64 dt)
464 {
465   return dt < 10e-6;
466 }
467
468 /** Suspend a vlib cooperative multi-tasking thread for a period of time
469     @param vm - vlib_main_t *
470     @param dt - suspend interval in seconds
471     @returns VLIB_PROCESS_RESUME_LONGJMP_RESUME, routinely ignored
472 */
473
474 always_inline uword
475 vlib_process_suspend (vlib_main_t * vm, f64 dt)
476 {
477   uword r;
478   vlib_node_main_t *nm = &vm->node_main;
479   vlib_process_t *p = vec_elt (nm->processes, nm->current_process_index);
480
481   if (vlib_process_suspend_time_is_zero (dt))
482     return VLIB_PROCESS_RESUME_LONGJMP_RESUME;
483
484   p->flags |= VLIB_PROCESS_IS_SUSPENDED_WAITING_FOR_CLOCK;
485   r = clib_setjmp (&p->resume_longjmp, VLIB_PROCESS_RESUME_LONGJMP_SUSPEND);
486   if (r == VLIB_PROCESS_RESUME_LONGJMP_SUSPEND)
487     {
488       /* expiration time in 10us ticks */
489       p->resume_clock_interval = dt * 1e5;
490       vlib_process_start_switch_stack (vm, 0);
491       clib_longjmp (&p->return_longjmp, VLIB_PROCESS_RETURN_LONGJMP_SUSPEND);
492     }
493   else
494     vlib_process_finish_switch_stack (vm);
495
496   return r;
497 }
498
499 always_inline void
500 vlib_process_free_event_type (vlib_process_t * p, uword t,
501                               uword is_one_time_event)
502 {
503   ASSERT (!pool_is_free_index (p->event_type_pool, t));
504   pool_put_index (p->event_type_pool, t);
505   if (is_one_time_event)
506     p->one_time_event_type_bitmap =
507       clib_bitmap_andnoti (p->one_time_event_type_bitmap, t);
508 }
509
510 always_inline void
511 vlib_process_maybe_free_event_type (vlib_process_t * p, uword t)
512 {
513   ASSERT (!pool_is_free_index (p->event_type_pool, t));
514   if (clib_bitmap_get (p->one_time_event_type_bitmap, t))
515     vlib_process_free_event_type (p, t, /* is_one_time_event */ 1);
516 }
517
518 always_inline void *
519 vlib_process_get_event_data (vlib_main_t * vm,
520                              uword * return_event_type_opaque)
521 {
522   vlib_node_main_t *nm = &vm->node_main;
523   vlib_process_t *p;
524   vlib_process_event_type_t *et;
525   uword t;
526   void *event_data_vector;
527
528   p = vec_elt (nm->processes, nm->current_process_index);
529
530   /* Find first type with events ready.
531      Return invalid type when there's nothing there. */
532   t = clib_bitmap_first_set (p->non_empty_event_type_bitmap);
533   if (t == ~0)
534     return 0;
535
536   p->non_empty_event_type_bitmap =
537     clib_bitmap_andnoti (p->non_empty_event_type_bitmap, t);
538
539   ASSERT (_vec_len (p->pending_event_data_by_type_index[t]) > 0);
540   event_data_vector = p->pending_event_data_by_type_index[t];
541   p->pending_event_data_by_type_index[t] = 0;
542
543   et = pool_elt_at_index (p->event_type_pool, t);
544
545   /* Return user's opaque value and possibly index. */
546   *return_event_type_opaque = et->opaque;
547
548   vlib_process_maybe_free_event_type (p, t);
549
550   return event_data_vector;
551 }
552
553 /* Return event data vector for later reuse.  We reuse event data to avoid
554    repeatedly allocating event vectors in cases where we care about speed. */
555 always_inline void
556 vlib_process_put_event_data (vlib_main_t * vm, void *event_data)
557 {
558   vlib_node_main_t *nm = &vm->node_main;
559   vec_add1 (nm->recycled_event_data_vectors, event_data);
560 }
561
562 /** Return the first event type which has occurred and a vector of per-event
563     data of that type, or a timeout indication
564
565     @param vm - vlib_main_t pointer
566     @param data_vector - pointer to a (uword *) vector to receive event data
567     @returns either an event type and a vector of per-event instance data,
568     or ~0 to indicate a timeout.
569 */
570
571 always_inline uword
572 vlib_process_get_events (vlib_main_t * vm, uword ** data_vector)
573 {
574   vlib_node_main_t *nm = &vm->node_main;
575   vlib_process_t *p;
576   vlib_process_event_type_t *et;
577   uword r, t, l;
578
579   p = vec_elt (nm->processes, nm->current_process_index);
580
581   /* Find first type with events ready.
582      Return invalid type when there's nothing there. */
583   t = clib_bitmap_first_set (p->non_empty_event_type_bitmap);
584   if (t == ~0)
585     return t;
586
587   p->non_empty_event_type_bitmap =
588     clib_bitmap_andnoti (p->non_empty_event_type_bitmap, t);
589
590   l = _vec_len (p->pending_event_data_by_type_index[t]);
591   if (data_vector)
592     vec_add (*data_vector, p->pending_event_data_by_type_index[t], l);
593   _vec_len (p->pending_event_data_by_type_index[t]) = 0;
594
595   et = pool_elt_at_index (p->event_type_pool, t);
596
597   /* Return user's opaque value. */
598   r = et->opaque;
599
600   vlib_process_maybe_free_event_type (p, t);
601
602   return r;
603 }
604
605 always_inline uword
606 vlib_process_get_events_helper (vlib_process_t * p, uword t,
607                                 uword ** data_vector)
608 {
609   uword l;
610
611   p->non_empty_event_type_bitmap =
612     clib_bitmap_andnoti (p->non_empty_event_type_bitmap, t);
613
614   l = _vec_len (p->pending_event_data_by_type_index[t]);
615   if (data_vector)
616     vec_add (*data_vector, p->pending_event_data_by_type_index[t], l);
617   _vec_len (p->pending_event_data_by_type_index[t]) = 0;
618
619   vlib_process_maybe_free_event_type (p, t);
620
621   return l;
622 }
623
624 /* As above but query as specified type of event.  Returns number of
625    events found. */
626 always_inline uword
627 vlib_process_get_events_with_type (vlib_main_t * vm, uword ** data_vector,
628                                    uword with_type_opaque)
629 {
630   vlib_node_main_t *nm = &vm->node_main;
631   vlib_process_t *p;
632   uword t, *h;
633
634   p = vec_elt (nm->processes, nm->current_process_index);
635   h = hash_get (p->event_type_index_by_type_opaque, with_type_opaque);
636   if (!h)
637     /* This can happen when an event has not yet been
638        signaled with given opaque type. */
639     return 0;
640
641   t = h[0];
642   if (!clib_bitmap_get (p->non_empty_event_type_bitmap, t))
643     return 0;
644
645   return vlib_process_get_events_helper (p, t, data_vector);
646 }
647
648 always_inline uword *
649 vlib_process_wait_for_event (vlib_main_t * vm)
650 {
651   vlib_node_main_t *nm = &vm->node_main;
652   vlib_process_t *p;
653   uword r;
654
655   p = vec_elt (nm->processes, nm->current_process_index);
656   if (clib_bitmap_is_zero (p->non_empty_event_type_bitmap))
657     {
658       p->flags |= VLIB_PROCESS_IS_SUSPENDED_WAITING_FOR_EVENT;
659       r =
660         clib_setjmp (&p->resume_longjmp, VLIB_PROCESS_RESUME_LONGJMP_SUSPEND);
661       if (r == VLIB_PROCESS_RESUME_LONGJMP_SUSPEND)
662         {
663           vlib_process_start_switch_stack (vm, 0);
664           clib_longjmp (&p->return_longjmp,
665                         VLIB_PROCESS_RETURN_LONGJMP_SUSPEND);
666         }
667       else
668         vlib_process_finish_switch_stack (vm);
669     }
670
671   return p->non_empty_event_type_bitmap;
672 }
673
674 always_inline uword
675 vlib_process_wait_for_one_time_event (vlib_main_t * vm,
676                                       uword ** data_vector,
677                                       uword with_type_index)
678 {
679   vlib_node_main_t *nm = &vm->node_main;
680   vlib_process_t *p;
681   uword r;
682
683   p = vec_elt (nm->processes, nm->current_process_index);
684   ASSERT (!pool_is_free_index (p->event_type_pool, with_type_index));
685   while (!clib_bitmap_get (p->non_empty_event_type_bitmap, with_type_index))
686     {
687       p->flags |= VLIB_PROCESS_IS_SUSPENDED_WAITING_FOR_EVENT;
688       r =
689         clib_setjmp (&p->resume_longjmp, VLIB_PROCESS_RESUME_LONGJMP_SUSPEND);
690       if (r == VLIB_PROCESS_RESUME_LONGJMP_SUSPEND)
691         {
692           vlib_process_start_switch_stack (vm, 0);
693           clib_longjmp (&p->return_longjmp,
694                         VLIB_PROCESS_RETURN_LONGJMP_SUSPEND);
695         }
696       else
697         vlib_process_finish_switch_stack (vm);
698     }
699
700   return vlib_process_get_events_helper (p, with_type_index, data_vector);
701 }
702
703 always_inline uword
704 vlib_process_wait_for_event_with_type (vlib_main_t * vm,
705                                        uword ** data_vector,
706                                        uword with_type_opaque)
707 {
708   vlib_node_main_t *nm = &vm->node_main;
709   vlib_process_t *p;
710   uword r, *h;
711
712   p = vec_elt (nm->processes, nm->current_process_index);
713   h = hash_get (p->event_type_index_by_type_opaque, with_type_opaque);
714   while (!h || !clib_bitmap_get (p->non_empty_event_type_bitmap, h[0]))
715     {
716       p->flags |= VLIB_PROCESS_IS_SUSPENDED_WAITING_FOR_EVENT;
717       r =
718         clib_setjmp (&p->resume_longjmp, VLIB_PROCESS_RESUME_LONGJMP_SUSPEND);
719       if (r == VLIB_PROCESS_RESUME_LONGJMP_SUSPEND)
720         {
721           vlib_process_start_switch_stack (vm, 0);
722           clib_longjmp (&p->return_longjmp,
723                         VLIB_PROCESS_RETURN_LONGJMP_SUSPEND);
724         }
725       else
726         vlib_process_finish_switch_stack (vm);
727
728       /* See if unknown event type has been signaled now. */
729       if (!h)
730         h = hash_get (p->event_type_index_by_type_opaque, with_type_opaque);
731     }
732
733   return vlib_process_get_events_helper (p, h[0], data_vector);
734 }
735
736 /** Suspend a cooperative multi-tasking thread
737     Waits for an event, or for the indicated number of seconds to elapse
738     @param vm - vlib_main_t pointer
739     @param dt - timeout, in seconds.
740     @returns the remaining time interval
741 */
742
743 always_inline f64
744 vlib_process_wait_for_event_or_clock (vlib_main_t * vm, f64 dt)
745 {
746   vlib_node_main_t *nm = &vm->node_main;
747   vlib_process_t *p;
748   f64 wakeup_time;
749   uword r;
750
751   p = vec_elt (nm->processes, nm->current_process_index);
752
753   if (vlib_process_suspend_time_is_zero (dt)
754       || !clib_bitmap_is_zero (p->non_empty_event_type_bitmap))
755     return dt;
756
757   wakeup_time = vlib_time_now (vm) + dt;
758
759   /* Suspend waiting for both clock and event to occur. */
760   p->flags |= (VLIB_PROCESS_IS_SUSPENDED_WAITING_FOR_EVENT
761                | VLIB_PROCESS_IS_SUSPENDED_WAITING_FOR_CLOCK);
762
763   r = clib_setjmp (&p->resume_longjmp, VLIB_PROCESS_RESUME_LONGJMP_SUSPEND);
764   if (r == VLIB_PROCESS_RESUME_LONGJMP_SUSPEND)
765     {
766       p->resume_clock_interval = dt * 1e5;
767       vlib_process_start_switch_stack (vm, 0);
768       clib_longjmp (&p->return_longjmp, VLIB_PROCESS_RETURN_LONGJMP_SUSPEND);
769     }
770   else
771     vlib_process_finish_switch_stack (vm);
772
773   /* Return amount of time still left to sleep.
774      If <= 0 then we've been waken up by the clock (and not an event). */
775   return wakeup_time - vlib_time_now (vm);
776 }
777
778 always_inline vlib_process_event_type_t *
779 vlib_process_new_event_type (vlib_process_t * p, uword with_type_opaque)
780 {
781   vlib_process_event_type_t *et;
782   pool_get (p->event_type_pool, et);
783   et->opaque = with_type_opaque;
784   return et;
785 }
786
787 always_inline uword
788 vlib_process_create_one_time_event (vlib_main_t * vm, uword node_index,
789                                     uword with_type_opaque)
790 {
791   vlib_node_main_t *nm = &vm->node_main;
792   vlib_node_t *n = vlib_get_node (vm, node_index);
793   vlib_process_t *p = vec_elt (nm->processes, n->runtime_index);
794   vlib_process_event_type_t *et;
795   uword t;
796
797   et = vlib_process_new_event_type (p, with_type_opaque);
798   t = et - p->event_type_pool;
799   p->one_time_event_type_bitmap =
800     clib_bitmap_ori (p->one_time_event_type_bitmap, t);
801   return t;
802 }
803
804 always_inline void
805 vlib_process_delete_one_time_event (vlib_main_t * vm, uword node_index,
806                                     uword t)
807 {
808   vlib_node_main_t *nm = &vm->node_main;
809   vlib_node_t *n = vlib_get_node (vm, node_index);
810   vlib_process_t *p = vec_elt (nm->processes, n->runtime_index);
811
812   ASSERT (clib_bitmap_get (p->one_time_event_type_bitmap, t));
813   vlib_process_free_event_type (p, t, /* is_one_time_event */ 1);
814 }
815
816 always_inline void *
817 vlib_process_signal_event_helper (vlib_node_main_t * nm,
818                                   vlib_node_t * n,
819                                   vlib_process_t * p,
820                                   uword t,
821                                   uword n_data_elts, uword n_data_elt_bytes)
822 {
823   uword p_flags, add_to_pending, delete_from_wheel;
824   void *data_to_be_written_by_caller;
825
826   ASSERT (n->type == VLIB_NODE_TYPE_PROCESS);
827
828   ASSERT (!pool_is_free_index (p->event_type_pool, t));
829
830   vec_validate (p->pending_event_data_by_type_index, t);
831
832   /* Resize data vector and return caller's data to be written. */
833   {
834     void *data_vec = p->pending_event_data_by_type_index[t];
835     uword l;
836
837     if (!data_vec && vec_len (nm->recycled_event_data_vectors))
838       {
839         data_vec = vec_pop (nm->recycled_event_data_vectors);
840         _vec_len (data_vec) = 0;
841       }
842
843     l = vec_len (data_vec);
844
845     data_vec = _vec_resize (data_vec,
846                             /* length_increment */ n_data_elts,
847                             /* total size after increment */
848                             (l + n_data_elts) * n_data_elt_bytes,
849                             /* header_bytes */ 0, /* data_align */ 0);
850
851     p->pending_event_data_by_type_index[t] = data_vec;
852     data_to_be_written_by_caller = data_vec + l * n_data_elt_bytes;
853   }
854
855   p->non_empty_event_type_bitmap =
856     clib_bitmap_ori (p->non_empty_event_type_bitmap, t);
857
858   p_flags = p->flags;
859
860   /* Event was already signalled? */
861   add_to_pending = (p_flags & VLIB_PROCESS_RESUME_PENDING) == 0;
862
863   /* Process will resume when suspend time elapses? */
864   delete_from_wheel = 0;
865   if (p_flags & VLIB_PROCESS_IS_SUSPENDED_WAITING_FOR_CLOCK)
866     {
867       /* Waiting for both event and clock? */
868       if (p_flags & VLIB_PROCESS_IS_SUSPENDED_WAITING_FOR_EVENT)
869         {
870           if (!TW (tw_timer_handle_is_free)
871               ((TWT (tw_timer_wheel) *) nm->timing_wheel,
872                p->stop_timer_handle))
873             delete_from_wheel = 1;
874           else
875             /* timer just popped so process should already be on the list */
876             add_to_pending = 0;
877         }
878       else
879         /* Waiting only for clock.  Event will be queue and may be
880            handled when timer expires. */
881         add_to_pending = 0;
882     }
883
884   /* Never add current process to pending vector since current process is
885      already running. */
886   add_to_pending &= nm->current_process_index != n->runtime_index;
887
888   if (add_to_pending)
889     {
890       u32 x = vlib_timing_wheel_data_set_suspended_process (n->runtime_index);
891       p->flags = p_flags | VLIB_PROCESS_RESUME_PENDING;
892       vec_add1 (nm->data_from_advancing_timing_wheel, x);
893       if (delete_from_wheel)
894         TW (tw_timer_stop) ((TWT (tw_timer_wheel) *) nm->timing_wheel,
895                             p->stop_timer_handle);
896     }
897
898   return data_to_be_written_by_caller;
899 }
900
901 always_inline void *
902 vlib_process_signal_event_data (vlib_main_t * vm,
903                                 uword node_index,
904                                 uword type_opaque,
905                                 uword n_data_elts, uword n_data_elt_bytes)
906 {
907   vlib_node_main_t *nm = &vm->node_main;
908   vlib_node_t *n = vlib_get_node (vm, node_index);
909   vlib_process_t *p = vec_elt (nm->processes, n->runtime_index);
910   uword *h, t;
911
912   /* Must be in main thread */
913   ASSERT (vlib_get_thread_index () == 0);
914
915   h = hash_get (p->event_type_index_by_type_opaque, type_opaque);
916   if (!h)
917     {
918       vlib_process_event_type_t *et =
919         vlib_process_new_event_type (p, type_opaque);
920       t = et - p->event_type_pool;
921       hash_set (p->event_type_index_by_type_opaque, type_opaque, t);
922     }
923   else
924     t = h[0];
925
926   return vlib_process_signal_event_helper (nm, n, p, t, n_data_elts,
927                                            n_data_elt_bytes);
928 }
929
930 always_inline void *
931 vlib_process_signal_event_at_time (vlib_main_t * vm,
932                                    f64 dt,
933                                    uword node_index,
934                                    uword type_opaque,
935                                    uword n_data_elts, uword n_data_elt_bytes)
936 {
937   vlib_node_main_t *nm = &vm->node_main;
938   vlib_node_t *n = vlib_get_node (vm, node_index);
939   vlib_process_t *p = vec_elt (nm->processes, n->runtime_index);
940   uword *h, t;
941
942   h = hash_get (p->event_type_index_by_type_opaque, type_opaque);
943   if (!h)
944     {
945       vlib_process_event_type_t *et =
946         vlib_process_new_event_type (p, type_opaque);
947       t = et - p->event_type_pool;
948       hash_set (p->event_type_index_by_type_opaque, type_opaque, t);
949     }
950   else
951     t = h[0];
952
953   if (vlib_process_suspend_time_is_zero (dt))
954     return vlib_process_signal_event_helper (nm, n, p, t, n_data_elts,
955                                              n_data_elt_bytes);
956   else
957     {
958       vlib_signal_timed_event_data_t *te;
959
960       pool_get_aligned (nm->signal_timed_event_data_pool, te, sizeof (te[0]));
961
962       te->n_data_elts = n_data_elts;
963       te->n_data_elt_bytes = n_data_elt_bytes;
964       te->n_data_bytes = n_data_elts * n_data_elt_bytes;
965
966       /* Assert that structure fields are big enough. */
967       ASSERT (te->n_data_elts == n_data_elts);
968       ASSERT (te->n_data_elt_bytes == n_data_elt_bytes);
969       ASSERT (te->n_data_bytes == n_data_elts * n_data_elt_bytes);
970
971       te->process_node_index = n->runtime_index;
972       te->event_type_index = t;
973
974       p->stop_timer_handle =
975         TW (tw_timer_start) ((TWT (tw_timer_wheel) *) nm->timing_wheel,
976                              vlib_timing_wheel_data_set_timed_event
977                              (te - nm->signal_timed_event_data_pool),
978                              0 /* timer_id */ ,
979                              (vlib_time_now (vm) + dt) * 1e5);
980
981       /* Inline data big enough to hold event? */
982       if (te->n_data_bytes < sizeof (te->inline_event_data))
983         return te->inline_event_data;
984       else
985         {
986           te->event_data_as_vector = 0;
987           vec_resize (te->event_data_as_vector, te->n_data_bytes);
988           return te->event_data_as_vector;
989         }
990     }
991 }
992
993 always_inline void *
994 vlib_process_signal_one_time_event_data (vlib_main_t * vm,
995                                          uword node_index,
996                                          uword type_index,
997                                          uword n_data_elts,
998                                          uword n_data_elt_bytes)
999 {
1000   vlib_node_main_t *nm = &vm->node_main;
1001   vlib_node_t *n = vlib_get_node (vm, node_index);
1002   vlib_process_t *p = vec_elt (nm->processes, n->runtime_index);
1003   return vlib_process_signal_event_helper (nm, n, p, type_index, n_data_elts,
1004                                            n_data_elt_bytes);
1005 }
1006
1007 always_inline void
1008 vlib_process_signal_event (vlib_main_t * vm,
1009                            uword node_index, uword type_opaque, uword data)
1010 {
1011   uword *d = vlib_process_signal_event_data (vm, node_index, type_opaque,
1012                                              1 /* elts */ , sizeof (uword));
1013   d[0] = data;
1014 }
1015
1016 always_inline void
1017 vlib_process_signal_event_pointer (vlib_main_t * vm,
1018                                    uword node_index,
1019                                    uword type_opaque, void *data)
1020 {
1021   void **d = vlib_process_signal_event_data (vm, node_index, type_opaque,
1022                                              1 /* elts */ , sizeof (data));
1023   d[0] = data;
1024 }
1025
1026 /**
1027  * Signal event to process from any thread.
1028  *
1029  * When in doubt, use this.
1030  */
1031 always_inline void
1032 vlib_process_signal_event_mt (vlib_main_t * vm,
1033                               uword node_index, uword type_opaque, uword data)
1034 {
1035   if (vlib_get_thread_index () != 0)
1036     {
1037       vlib_process_signal_event_mt_args_t args = {
1038         .node_index = node_index,
1039         .type_opaque = type_opaque,
1040         .data = data,
1041       };
1042       vlib_rpc_call_main_thread (vlib_process_signal_event_mt_helper,
1043                                  (u8 *) & args, sizeof (args));
1044     }
1045   else
1046     vlib_process_signal_event (vm, node_index, type_opaque, data);
1047 }
1048
1049 always_inline void
1050 vlib_process_signal_one_time_event (vlib_main_t * vm,
1051                                     uword node_index,
1052                                     uword type_index, uword data)
1053 {
1054   uword *d =
1055     vlib_process_signal_one_time_event_data (vm, node_index, type_index,
1056                                              1 /* elts */ , sizeof (uword));
1057   d[0] = data;
1058 }
1059
1060 always_inline void
1061 vlib_signal_one_time_waiting_process (vlib_main_t * vm,
1062                                       vlib_one_time_waiting_process_t * p)
1063 {
1064   vlib_process_signal_one_time_event (vm, p->node_index, p->one_time_event,
1065                                       /* data */ ~0);
1066   clib_memset (p, ~0, sizeof (p[0]));
1067 }
1068
1069 always_inline void
1070 vlib_signal_one_time_waiting_process_vector (vlib_main_t * vm,
1071                                              vlib_one_time_waiting_process_t
1072                                              ** wps)
1073 {
1074   vlib_one_time_waiting_process_t *wp;
1075   vec_foreach (wp, *wps) vlib_signal_one_time_waiting_process (vm, wp);
1076   vec_free (*wps);
1077 }
1078
1079 always_inline void
1080 vlib_current_process_wait_for_one_time_event (vlib_main_t * vm,
1081                                               vlib_one_time_waiting_process_t
1082                                               * p)
1083 {
1084   p->node_index = vlib_current_process (vm);
1085   p->one_time_event = vlib_process_create_one_time_event (vm, p->node_index,    /* type opaque */
1086                                                           ~0);
1087   vlib_process_wait_for_one_time_event (vm,
1088                                         /* don't care about data */ 0,
1089                                         p->one_time_event);
1090 }
1091
1092 always_inline void
1093 vlib_current_process_wait_for_one_time_event_vector (vlib_main_t * vm,
1094                                                      vlib_one_time_waiting_process_t
1095                                                      ** wps)
1096 {
1097   vlib_one_time_waiting_process_t *wp;
1098   vec_add2 (*wps, wp, 1);
1099   vlib_current_process_wait_for_one_time_event (vm, wp);
1100 }
1101
1102 always_inline u32
1103 vlib_node_runtime_update_main_loop_vector_stats (vlib_main_t * vm,
1104                                                  vlib_node_runtime_t * node,
1105                                                  uword n_vectors)
1106 {
1107   u32 i, d, vi0, vi1;
1108   u32 i0, i1;
1109
1110   ASSERT (is_pow2 (ARRAY_LEN (node->main_loop_vector_stats)));
1111   i = ((vm->main_loop_count >> VLIB_LOG2_MAIN_LOOPS_PER_STATS_UPDATE)
1112        & (ARRAY_LEN (node->main_loop_vector_stats) - 1));
1113   i0 = i ^ 0;
1114   i1 = i ^ 1;
1115   d = ((vm->main_loop_count >> VLIB_LOG2_MAIN_LOOPS_PER_STATS_UPDATE)
1116        -
1117        (node->main_loop_count_last_dispatch >>
1118         VLIB_LOG2_MAIN_LOOPS_PER_STATS_UPDATE));
1119   vi0 = node->main_loop_vector_stats[i0];
1120   vi1 = node->main_loop_vector_stats[i1];
1121   vi0 = d == 0 ? vi0 : 0;
1122   vi1 = d <= 1 ? vi1 : 0;
1123   vi0 += n_vectors;
1124   node->main_loop_vector_stats[i0] = vi0;
1125   node->main_loop_vector_stats[i1] = vi1;
1126   node->main_loop_count_last_dispatch = vm->main_loop_count;
1127   /* Return previous counter. */
1128   return node->main_loop_vector_stats[i1];
1129 }
1130
1131 always_inline f64
1132 vlib_node_vectors_per_main_loop_as_float (vlib_main_t * vm, u32 node_index)
1133 {
1134   vlib_node_runtime_t *rt = vlib_node_get_runtime (vm, node_index);
1135   u32 v;
1136
1137   v = vlib_node_runtime_update_main_loop_vector_stats (vm, rt,  /* n_vectors */
1138                                                        0);
1139   return (f64) v / (1 << VLIB_LOG2_MAIN_LOOPS_PER_STATS_UPDATE);
1140 }
1141
1142 always_inline u32
1143 vlib_node_vectors_per_main_loop_as_integer (vlib_main_t * vm, u32 node_index)
1144 {
1145   vlib_node_runtime_t *rt = vlib_node_get_runtime (vm, node_index);
1146   u32 v;
1147
1148   v = vlib_node_runtime_update_main_loop_vector_stats (vm, rt,  /* n_vectors */
1149                                                        0);
1150   return v >> VLIB_LOG2_MAIN_LOOPS_PER_STATS_UPDATE;
1151 }
1152
1153 void
1154 vlib_frame_free (vlib_main_t * vm, vlib_node_runtime_t * r, vlib_frame_t * f);
1155
1156 /* Return the edge index if present, ~0 otherwise */
1157 uword vlib_node_get_next (vlib_main_t * vm, uword node, uword next_node);
1158
1159 /* Add next node to given node in given slot. */
1160 uword
1161 vlib_node_add_next_with_slot (vlib_main_t * vm,
1162                               uword node, uword next_node, uword slot);
1163
1164 /* As above but adds to end of node's next vector. */
1165 always_inline uword
1166 vlib_node_add_next (vlib_main_t * vm, uword node, uword next_node)
1167 {
1168   return vlib_node_add_next_with_slot (vm, node, next_node, ~0);
1169 }
1170
1171 /* Add next node to given node in given slot. */
1172 uword
1173 vlib_node_add_named_next_with_slot (vlib_main_t * vm,
1174                                     uword node, char *next_name, uword slot);
1175
1176 /* As above but adds to end of node's next vector. */
1177 always_inline uword
1178 vlib_node_add_named_next (vlib_main_t * vm, uword node, char *name)
1179 {
1180   return vlib_node_add_named_next_with_slot (vm, node, name, ~0);
1181 }
1182
1183 /**
1184  * Get list of nodes
1185  */
1186 void
1187 vlib_node_get_nodes (vlib_main_t * vm, u32 max_threads, int include_stats,
1188                      int barrier_sync, vlib_node_t **** node_dupsp,
1189                      vlib_main_t *** stat_vmsp);
1190
1191 /* Query node given name. */
1192 vlib_node_t *vlib_get_node_by_name (vlib_main_t * vm, u8 * name);
1193
1194 /* Rename a node. */
1195 void vlib_node_rename (vlib_main_t * vm, u32 node_index, char *fmt, ...);
1196
1197 /* Register new packet processing node.  Nodes can be registered
1198    dynamically via this call or statically via the VLIB_REGISTER_NODE
1199    macro. */
1200 u32 vlib_register_node (vlib_main_t * vm, vlib_node_registration_t * r);
1201
1202 /* Register all static nodes registered via VLIB_REGISTER_NODE. */
1203 void vlib_register_all_static_nodes (vlib_main_t * vm);
1204
1205 /* Start a process. */
1206 void vlib_start_process (vlib_main_t * vm, uword process_index);
1207
1208 /* Sync up runtime and main node stats. */
1209 void vlib_node_sync_stats (vlib_main_t * vm, vlib_node_t * n);
1210
1211 /* Node graph initialization function. */
1212 clib_error_t *vlib_node_main_init (vlib_main_t * vm);
1213
1214 format_function_t format_vlib_node_graph;
1215 format_function_t format_vlib_node_name;
1216 format_function_t format_vlib_next_node_name;
1217 format_function_t format_vlib_node_and_next;
1218 format_function_t format_vlib_cpu_time;
1219 format_function_t format_vlib_time;
1220 /* Parse node name -> node index. */
1221 unformat_function_t unformat_vlib_node;
1222
1223 always_inline void
1224 vlib_node_increment_counter (vlib_main_t * vm, u32 node_index,
1225                              u32 counter_index, u64 increment)
1226 {
1227   vlib_node_t *n = vlib_get_node (vm, node_index);
1228   vlib_error_main_t *em = &vm->error_main;
1229   u32 node_counter_base_index = n->error_heap_index;
1230   em->counters[node_counter_base_index + counter_index] += increment;
1231 }
1232
1233 /** @brief Create a vlib process
1234  *  @param vm &vlib_global_main
1235  *  @param f the process node function
1236  *  @param log2_n_stack_bytes size of the process stack, defaults to 16K
1237  *  @return newly-create node index
1238  *  @warning call only on the main thread. Barrier sync required
1239  */
1240 u32 vlib_process_create (vlib_main_t * vm, char *name,
1241                          vlib_node_function_t * f, u32 log2_n_stack_bytes);
1242
1243 #endif /* included_vlib_node_funcs_h */
1244
1245 /*
1246  * fd.io coding-style-patch-verification: ON
1247  *
1248  * Local Variables:
1249  * eval: (c-set-style "gnu")
1250  * End:
1251  */