2 * echo_client.c - vpp built-in echo client code
4 * Copyright (c) 2017 by Cisco and/or its affiliates.
5 * Licensed under the Apache License, Version 2.0 (the "License");
6 * you may not use this file except in compliance with the License.
7 * You may obtain a copy of the License at:
9 * http://www.apache.org/licenses/LICENSE-2.0
11 * Unless required by applicable law or agreed to in writing, software
12 * distributed under the License is distributed on an "AS IS" BASIS,
13 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14 * See the License for the specific language governing permissions and
15 * limitations under the License.
18 #include <vnet/vnet.h>
19 #include <vlibapi/api.h>
20 #include <vlibmemory/api.h>
21 #include <vnet/session-apps/echo_client.h>
23 echo_client_main_t echo_client_main;
25 #define ECHO_CLIENT_DBG (0)
28 signal_evt_to_cli_i (int *code)
30 echo_client_main_t *ecm = &echo_client_main;
31 ASSERT (vlib_get_thread_index () == 0);
32 vlib_process_signal_event (ecm->vlib_main, ecm->cli_node_index, *code, 0);
36 signal_evt_to_cli (int code)
38 if (vlib_get_thread_index () != 0)
39 vl_api_rpc_call_main_thread (signal_evt_to_cli_i, (u8 *) & code,
42 signal_evt_to_cli_i (&code);
46 send_data_chunk (echo_client_main_t * ecm, session_t * s)
48 u8 *test_data = ecm->connect_test_data;
49 int test_buf_len, test_buf_offset, rv;
52 test_buf_len = vec_len (test_data);
53 ASSERT (test_buf_len > 0);
54 test_buf_offset = s->bytes_sent % test_buf_len;
55 bytes_this_chunk = clib_min (test_buf_len - test_buf_offset,
59 rv = app_send_stream (&s->data, test_data + test_buf_offset,
62 rv = app_send_dgram (&s->data, test_data + test_buf_offset,
65 /* If we managed to enqueue data... */
68 /* Account for it... */
69 s->bytes_to_send -= rv;
75 ELOG_TYPE_DECLARE (e) =
77 .format = "tx-enq: xfer %d bytes, sent %u remain %u",
78 .format_args = "i4i4i4",
85 ed = ELOG_DATA (&vlib_global_main.elog_main, e);
87 ed->data[1] = s->bytes_sent;
88 ed->data[2] = s->bytes_to_send;
94 receive_data_chunk (echo_client_main_t * ecm, session_t * s)
96 svm_fifo_t *rx_fifo = s->data.rx_fifo;
97 u32 thread_index = vlib_get_thread_index ();
103 n_read = app_recv_stream (&s->data, ecm->rx_buf[thread_index],
104 vec_len (ecm->rx_buf[thread_index]));
106 n_read = app_recv_dgram (&s->data, ecm->rx_buf[thread_index],
107 vec_len (ecm->rx_buf[thread_index]));
111 n_read = svm_fifo_max_dequeue (rx_fifo);
112 svm_fifo_dequeue_drop (rx_fifo, n_read);
120 ELOG_TYPE_DECLARE (e) =
122 .format = "rx-deq: %d bytes",
130 ed = ELOG_DATA (&vlib_global_main.elog_main, e);
131 ed->data[0] = n_read;
136 for (i = 0; i < n_read; i++)
138 if (ecm->rx_buf[thread_index][i]
139 != ((s->bytes_received + i) & 0xff))
141 clib_warning ("read %d error at byte %lld, 0x%x not 0x%x",
142 n_read, s->bytes_received + i,
143 ecm->rx_buf[thread_index][i],
144 ((s->bytes_received + i) & 0xff));
145 ecm->test_failed = 1;
149 ASSERT (n_read <= s->bytes_to_receive);
150 s->bytes_to_receive -= n_read;
151 s->bytes_received += n_read;
156 echo_client_node_fn (vlib_main_t * vm, vlib_node_runtime_t * node,
157 vlib_frame_t * frame)
159 echo_client_main_t *ecm = &echo_client_main;
160 int my_thread_index = vlib_get_thread_index ();
164 u32 *connection_indices;
165 u32 *connections_this_batch;
166 u32 nconnections_this_batch;
168 connection_indices = ecm->connection_index_by_thread[my_thread_index];
169 connections_this_batch =
170 ecm->connections_this_batch_by_thread[my_thread_index];
172 if ((ecm->run_test == 0) ||
173 ((vec_len (connection_indices) == 0)
174 && vec_len (connections_this_batch) == 0))
177 /* Grab another pile of connections */
178 if (PREDICT_FALSE (vec_len (connections_this_batch) == 0))
180 nconnections_this_batch =
181 clib_min (ecm->connections_per_batch, vec_len (connection_indices));
183 ASSERT (nconnections_this_batch > 0);
184 vec_validate (connections_this_batch, nconnections_this_batch - 1);
185 clib_memcpy (connections_this_batch,
186 connection_indices + vec_len (connection_indices)
187 - nconnections_this_batch,
188 nconnections_this_batch * sizeof (u32));
189 _vec_len (connection_indices) -= nconnections_this_batch;
192 if (PREDICT_FALSE (ecm->prev_conns != ecm->connections_per_batch
193 && ecm->prev_conns == vec_len (connections_this_batch)))
196 ecm->prev_conns = vec_len (connections_this_batch);
197 if (ecm->repeats == 500000)
199 clib_warning ("stuck clients");
204 ecm->prev_conns = vec_len (connections_this_batch);
208 for (i = 0; i < vec_len (connections_this_batch); i++)
212 sp = pool_elt_at_index (ecm->sessions, connections_this_batch[i]);
214 if (sp->bytes_to_send > 0)
216 send_data_chunk (ecm, sp);
219 if (sp->bytes_to_receive > 0)
223 if (PREDICT_FALSE (delete_session == 1))
227 __sync_fetch_and_add (&ecm->tx_total, sp->bytes_sent);
228 __sync_fetch_and_add (&ecm->rx_total, sp->bytes_received);
229 s = session_get_from_handle_if_valid (sp->vpp_session_handle);
233 vnet_disconnect_args_t _a, *a = &_a;
234 a->handle = session_handle (s);
235 a->app_index = ecm->app_index;
236 vnet_disconnect_session (a);
238 vec_delete (connections_this_batch, 1, i);
240 __sync_fetch_and_add (&ecm->ready_connections, -1);
244 clib_warning ("session AWOL?");
245 vec_delete (connections_this_batch, 1, i);
248 /* Kick the debug CLI process */
249 if (ecm->ready_connections == 0)
251 signal_evt_to_cli (2);
256 ecm->connection_index_by_thread[my_thread_index] = connection_indices;
257 ecm->connections_this_batch_by_thread[my_thread_index] =
258 connections_this_batch;
263 VLIB_REGISTER_NODE (echo_clients_node) =
265 .function = echo_client_node_fn,
266 .name = "echo-clients",
267 .type = VLIB_NODE_TYPE_INPUT,
268 .state = VLIB_NODE_STATE_DISABLED,
273 create_api_loopback (echo_client_main_t * ecm)
275 api_main_t *am = &api_main;
276 vl_shmem_hdr_t *shmem_hdr;
278 shmem_hdr = am->shmem_hdr;
279 ecm->vl_input_queue = shmem_hdr->vl_input_queue;
280 ecm->my_client_index = vl_api_memclnt_create_internal ("echo_client",
281 ecm->vl_input_queue);
286 echo_clients_init (vlib_main_t * vm)
288 echo_client_main_t *ecm = &echo_client_main;
289 vlib_thread_main_t *vtm = vlib_get_thread_main ();
293 if (create_api_loopback (ecm))
296 num_threads = 1 /* main thread */ + vtm->n_threads;
298 /* Init test data. Big buffer */
299 vec_validate (ecm->connect_test_data, 4 * 1024 * 1024 - 1);
300 for (i = 0; i < vec_len (ecm->connect_test_data); i++)
301 ecm->connect_test_data[i] = i & 0xff;
303 vec_validate (ecm->rx_buf, num_threads - 1);
304 for (i = 0; i < num_threads; i++)
305 vec_validate (ecm->rx_buf[i], vec_len (ecm->connect_test_data) - 1);
309 vec_validate (ecm->connection_index_by_thread, vtm->n_vlib_mains);
310 vec_validate (ecm->connections_this_batch_by_thread, vtm->n_vlib_mains);
311 vec_validate (ecm->vpp_event_queue, vtm->n_vlib_mains);
317 echo_clients_session_connected_callback (u32 app_index, u32 api_context,
318 stream_session_t * s, u8 is_fail)
320 echo_client_main_t *ecm = &echo_client_main;
323 u8 thread_index = vlib_get_thread_index ();
327 clib_warning ("connection %d failed!", api_context);
328 signal_evt_to_cli (-1);
332 ASSERT (s->thread_index == thread_index);
334 if (!ecm->vpp_event_queue[thread_index])
335 ecm->vpp_event_queue[thread_index] =
336 session_manager_get_vpp_event_queue (thread_index);
341 clib_spinlock_lock_if_init (&ecm->sessions_lock);
342 pool_get (ecm->sessions, session);
343 clib_spinlock_unlock_if_init (&ecm->sessions_lock);
345 memset (session, 0, sizeof (*session));
346 session_index = session - ecm->sessions;
347 session->bytes_to_send = ecm->bytes_to_send;
348 session->bytes_to_receive = ecm->no_return ? 0ULL : ecm->bytes_to_send;
349 session->data.rx_fifo = s->server_rx_fifo;
350 session->data.rx_fifo->client_session_index = session_index;
351 session->data.tx_fifo = s->server_tx_fifo;
352 session->data.tx_fifo->client_session_index = session_index;
353 session->data.vpp_evt_q = ecm->vpp_event_queue[thread_index];
354 session->vpp_session_handle = session_handle (s);
358 transport_connection_t *tc;
359 tc = session_get_transport (s);
360 clib_memcpy (&session->data.transport, tc,
361 sizeof (session->data.transport));
362 session->data.is_dgram = 1;
365 vec_add1 (ecm->connection_index_by_thread[thread_index], session_index);
366 __sync_fetch_and_add (&ecm->ready_connections, 1);
367 if (ecm->ready_connections == ecm->expected_connections)
370 /* Signal the CLI process that the action is starting... */
371 signal_evt_to_cli (1);
378 echo_clients_session_reset_callback (stream_session_t * s)
380 if (s->session_state == SESSION_STATE_READY)
381 clib_warning ("Reset active connection %U", format_stream_session, s, 2);
382 stream_session_cleanup (s);
387 echo_clients_session_create_callback (stream_session_t * s)
393 echo_clients_session_disconnect_callback (stream_session_t * s)
395 echo_client_main_t *ecm = &echo_client_main;
396 vnet_disconnect_args_t _a, *a = &_a;
397 a->handle = session_handle (s);
398 a->app_index = ecm->app_index;
399 vnet_disconnect_session (a);
404 echo_clients_rx_callback (stream_session_t * s)
406 echo_client_main_t *ecm = &echo_client_main;
409 sp = pool_elt_at_index (ecm->sessions,
410 s->server_rx_fifo->client_session_index);
411 receive_data_chunk (ecm, sp);
413 if (svm_fifo_max_dequeue (s->server_rx_fifo))
415 session_fifo_event_t evt;
417 if (svm_fifo_set_event (s->server_rx_fifo))
419 evt.fifo = s->server_rx_fifo;
420 evt.event_type = FIFO_EVENT_BUILTIN_RX;
421 q = session_manager_get_vpp_event_queue (s->thread_index);
422 if (PREDICT_FALSE (q->cursize == q->maxsize))
423 clib_warning ("out of event queue space");
424 else if (svm_queue_add (q, (u8 *) & evt, 0))
425 clib_warning ("failed to enqueue self-tap");
432 echo_client_add_segment_callback (u32 client_index, const ssvm_private_t * sp)
434 /* New heaps may be added */
439 static session_cb_vft_t echo_clients = {
440 .session_reset_callback = echo_clients_session_reset_callback,
441 .session_connected_callback = echo_clients_session_connected_callback,
442 .session_accept_callback = echo_clients_session_create_callback,
443 .session_disconnect_callback = echo_clients_session_disconnect_callback,
444 .builtin_app_rx_callback = echo_clients_rx_callback,
445 .add_segment_callback = echo_client_add_segment_callback
449 static clib_error_t *
450 echo_clients_attach (u8 * appns_id, u64 appns_flags, u64 appns_secret)
452 u32 prealloc_fifos, segment_size = 256 << 20;
453 echo_client_main_t *ecm = &echo_client_main;
454 vnet_app_attach_args_t _a, *a = &_a;
456 clib_error_t *error = 0;
458 memset (a, 0, sizeof (*a));
459 memset (options, 0, sizeof (options));
461 a->api_client_index = ecm->my_client_index;
462 a->session_cb_vft = &echo_clients;
464 prealloc_fifos = ecm->prealloc_fifos ? ecm->expected_connections : 1;
466 if (ecm->private_segment_size)
467 segment_size = ecm->private_segment_size;
469 options[APP_OPTIONS_ACCEPT_COOKIE] = 0x12345678;
470 options[APP_OPTIONS_SEGMENT_SIZE] = segment_size;
471 options[APP_OPTIONS_ADD_SEGMENT_SIZE] = segment_size;
472 options[APP_OPTIONS_RX_FIFO_SIZE] = ecm->fifo_size;
473 options[APP_OPTIONS_TX_FIFO_SIZE] = ecm->fifo_size;
474 options[APP_OPTIONS_PRIVATE_SEGMENT_COUNT] = ecm->private_segment_count;
475 options[APP_OPTIONS_PREALLOC_FIFO_PAIRS] = prealloc_fifos;
476 options[APP_OPTIONS_FLAGS] = APP_OPTIONS_FLAGS_IS_BUILTIN;
477 options[APP_OPTIONS_TLS_ENGINE] = ecm->tls_engine;
480 options[APP_OPTIONS_FLAGS] |= appns_flags;
481 options[APP_OPTIONS_NAMESPACE_SECRET] = appns_secret;
483 a->options = options;
484 a->namespace_id = appns_id;
486 if ((error = vnet_application_attach (a)))
489 ecm->app_index = a->app_index;
494 echo_clients_detach ()
496 echo_client_main_t *ecm = &echo_client_main;
497 vnet_app_detach_args_t _da, *da = &_da;
500 da->app_index = ecm->app_index;
501 rv = vnet_application_detach (da);
502 ecm->test_client_attached = 0;
508 echo_client_thread_fn (void *arg)
513 /** Start a transmit thread */
515 echo_clients_start_tx_pthread (echo_client_main_t * ecm)
517 if (ecm->client_thread_handle == 0)
519 int rv = pthread_create (&ecm->client_thread_handle,
521 echo_client_thread_fn, 0);
524 ecm->client_thread_handle = 0;
532 echo_clients_connect (vlib_main_t * vm, u32 n_clients)
534 echo_client_main_t *ecm = &echo_client_main;
535 vnet_connect_args_t _a, *a = &_a;
536 clib_error_t *error = 0;
539 memset (a, 0, sizeof (*a));
540 for (i = 0; i < n_clients; i++)
542 a->uri = (char *) ecm->connect_uri;
544 a->app_index = ecm->app_index;
546 if ((error = vnet_connect_uri (a)))
549 /* Crude pacing for call setups */
551 vlib_process_suspend (vm, 10e-6);
552 ASSERT (i + 1 >= ecm->ready_connections);
553 while (i + 1 - ecm->ready_connections > 1000)
555 vlib_process_suspend (vm, 100e-6);
561 #define ec_cli_output(_fmt, _args...) \
562 if (!ecm->no_output) \
563 vlib_cli_output(vm, _fmt, ##_args)
565 static clib_error_t *
566 echo_clients_command_fn (vlib_main_t * vm,
567 unformat_input_t * input, vlib_cli_command_t * cmd)
569 echo_client_main_t *ecm = &echo_client_main;
570 vlib_thread_main_t *thread_main = vlib_get_thread_main ();
571 u64 tmp, total_bytes, appns_flags = 0, appns_secret = 0;
572 f64 test_timeout = 20.0, syn_timeout = 20.0, delta;
573 char *default_uri = "tcp://6.0.1.1/1234";
574 uword *event_data = 0, event_type;
575 f64 time_before_connects;
577 int preallocate_sessions = 0;
579 clib_error_t *error = 0;
583 ecm->bytes_to_send = 8192;
585 ecm->fifo_size = 64 << 10;
586 ecm->connections_per_batch = 1000;
587 ecm->private_segment_count = 0;
588 ecm->private_segment_size = 0;
591 ecm->test_failed = 0;
593 ecm->tls_engine = TLS_ENGINE_OPENSSL;
595 if (thread_main->n_vlib_mains > 1)
596 clib_spinlock_init (&ecm->sessions_lock);
597 vec_free (ecm->connect_uri);
599 while (unformat_check_input (input) != UNFORMAT_END_OF_INPUT)
601 if (unformat (input, "uri %s", &ecm->connect_uri))
603 else if (unformat (input, "nclients %d", &n_clients))
605 else if (unformat (input, "mbytes %lld", &tmp))
606 ecm->bytes_to_send = tmp << 20;
607 else if (unformat (input, "gbytes %lld", &tmp))
608 ecm->bytes_to_send = tmp << 30;
609 else if (unformat (input, "bytes %lld", &ecm->bytes_to_send))
611 else if (unformat (input, "test-timeout %f", &test_timeout))
613 else if (unformat (input, "syn-timeout %f", &syn_timeout))
615 else if (unformat (input, "no-return"))
617 else if (unformat (input, "fifo-size %d", &ecm->fifo_size))
618 ecm->fifo_size <<= 10;
619 else if (unformat (input, "private-segment-count %d",
620 &ecm->private_segment_count))
622 else if (unformat (input, "private-segment-size %U",
623 unformat_memory_size, &tmp))
625 if (tmp >= 0x100000000ULL)
626 return clib_error_return
627 (0, "private segment size %lld (%llu) too large", tmp, tmp);
628 ecm->private_segment_size = tmp;
630 else if (unformat (input, "preallocate-fifos"))
631 ecm->prealloc_fifos = 1;
632 else if (unformat (input, "preallocate-sessions"))
633 preallocate_sessions = 1;
635 if (unformat (input, "client-batch %d", &ecm->connections_per_batch))
637 else if (unformat (input, "appns %_%v%_", &appns_id))
639 else if (unformat (input, "all-scope"))
640 appns_flags |= (APP_OPTIONS_FLAGS_USE_GLOBAL_SCOPE
641 | APP_OPTIONS_FLAGS_USE_LOCAL_SCOPE);
642 else if (unformat (input, "local-scope"))
643 appns_flags = APP_OPTIONS_FLAGS_USE_LOCAL_SCOPE;
644 else if (unformat (input, "global-scope"))
645 appns_flags = APP_OPTIONS_FLAGS_USE_GLOBAL_SCOPE;
646 else if (unformat (input, "secret %lu", &appns_secret))
648 else if (unformat (input, "no-output"))
650 else if (unformat (input, "test-bytes"))
652 else if (unformat (input, "tls-engine %d", &ecm->tls_engine))
655 return clib_error_return (0, "failed: unknown input `%U'",
656 format_unformat_error, input);
659 /* Store cli process node index for signalling */
660 ecm->cli_node_index =
661 vlib_get_current_process (vm)->node_runtime.node_index;
663 if (ecm->is_init == 0)
665 if (echo_clients_init (vm))
666 return clib_error_return (0, "failed init");
670 ecm->ready_connections = 0;
671 ecm->expected_connections = n_clients;
675 if (!ecm->connect_uri)
677 clib_warning ("No uri provided. Using default: %s", default_uri);
678 ecm->connect_uri = format (0, "%s%c", default_uri, 0);
681 if (ecm->connect_uri[0] == 'u' && ecm->connect_uri[3] != 'c')
684 #if ECHO_CLIENT_PTHREAD
685 echo_clients_start_tx_pthread ();
688 vlib_worker_thread_barrier_sync (vm);
689 vnet_session_enable_disable (vm, 1 /* turn on session and transports */ );
690 vlib_worker_thread_barrier_release (vm);
692 if (ecm->test_client_attached == 0)
694 if ((error = echo_clients_attach (appns_id, appns_flags, appns_secret)))
697 clib_error_report (error);
702 ecm->test_client_attached = 1;
704 /* Turn on the builtin client input nodes */
705 for (i = 0; i < thread_main->n_vlib_mains; i++)
706 vlib_node_set_state (vlib_mains[i], echo_clients_node.index,
707 VLIB_NODE_STATE_POLLING);
709 if (preallocate_sessions)
711 session_t *sp __attribute__ ((unused));
712 for (i = 0; i < n_clients; i++)
713 pool_get (ecm->sessions, sp);
714 for (i = 0; i < n_clients; i++)
715 pool_put_index (ecm->sessions, i);
718 /* Fire off connect requests */
719 time_before_connects = vlib_time_now (vm);
720 if ((error = echo_clients_connect (vm, n_clients)))
723 /* Park until the sessions come up, or ten seconds elapse... */
724 vlib_process_wait_for_event_or_clock (vm, syn_timeout);
725 event_type = vlib_process_get_events (vm, &event_data);
729 ec_cli_output ("Timeout with only %d sessions active...",
730 ecm->ready_connections);
731 error = clib_error_return (0, "failed: syn timeout with %d sessions",
732 ecm->ready_connections);
736 delta = vlib_time_now (vm) - time_before_connects;
738 ec_cli_output ("%d three-way handshakes in %.2f seconds %.2f/s",
739 n_clients, delta, ((f64) n_clients) / delta);
741 ecm->test_start_time = vlib_time_now (ecm->vlib_main);
742 ec_cli_output ("Test started at %.6f", ecm->test_start_time);
746 ec_cli_output ("unexpected event(1): %d", event_type);
747 error = clib_error_return (0, "failed: unexpected event(1): %d",
752 /* Now wait for the sessions to finish... */
753 vlib_process_wait_for_event_or_clock (vm, test_timeout);
754 event_type = vlib_process_get_events (vm, &event_data);
758 ec_cli_output ("Timeout with %d sessions still active...",
759 ecm->ready_connections);
760 error = clib_error_return (0, "failed: timeout with %d sessions",
761 ecm->ready_connections);
765 ecm->test_end_time = vlib_time_now (vm);
766 ec_cli_output ("Test finished at %.6f", ecm->test_end_time);
770 ec_cli_output ("unexpected event(2): %d", event_type);
771 error = clib_error_return (0, "failed: unexpected event(2): %d",
776 delta = ecm->test_end_time - ecm->test_start_time;
779 total_bytes = (ecm->no_return ? ecm->tx_total : ecm->rx_total);
780 transfer_type = ecm->no_return ? "half-duplex" : "full-duplex";
781 ec_cli_output ("%lld bytes (%lld mbytes, %lld gbytes) in %.2f seconds",
782 total_bytes, total_bytes / (1ULL << 20),
783 total_bytes / (1ULL << 30), delta);
784 ec_cli_output ("%.2f bytes/second %s", ((f64) total_bytes) / (delta),
786 ec_cli_output ("%.4f gbit/second %s",
787 (((f64) total_bytes * 8.0) / delta / 1e9),
792 ec_cli_output ("zero delta-t?");
793 error = clib_error_return (0, "failed: zero delta-t");
797 if (ecm->test_bytes && ecm->test_failed)
798 error = clib_error_return (0, "failed: test bytes");
802 for (i = 0; i < vec_len (ecm->connection_index_by_thread); i++)
804 vec_reset_length (ecm->connection_index_by_thread[i]);
805 vec_reset_length (ecm->connections_this_batch_by_thread[i]);
808 pool_free (ecm->sessions);
810 /* Detach the application, so we can use different fifo sizes next time */
811 if (ecm->test_client_attached)
813 if (echo_clients_detach ())
815 error = clib_error_return (0, "failed: app detach");
816 ec_cli_output ("WARNING: app detach failed...");
820 ec_cli_output ("test failed");
821 vec_free (ecm->connect_uri);
826 VLIB_CLI_COMMAND (echo_clients_command, static) =
828 .path = "test echo clients",
829 .short_help = "test echo clients [nclients %d][[m|g]bytes <bytes>]"
830 "[test-timeout <time>][syn-timeout <time>][no-return][fifo-size <size>]"
831 "[private-segment-count <count>][private-segment-size <bytes>[m|g]]"
832 "[preallocate-fifos][preallocate-sessions][client-batch <batch-size>]"
833 "[uri <tcp://ip/port>][test-bytes][no-output]",
834 .function = echo_clients_command_fn,
840 echo_clients_main_init (vlib_main_t * vm)
842 echo_client_main_t *ecm = &echo_client_main;
847 VLIB_INIT_FUNCTION (echo_clients_main_init);
850 * fd.io coding-style-patch-verification: ON
853 * eval: (c-set-style "gnu")