2 * Copyright (c) 2016 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:
7 * http://www.apache.org/licenses/LICENSE-2.0
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.
15 #include <vnet/session/application_interface.h>
17 #include <vnet/session/session.h>
18 #include <vlibmemory/api.h>
19 #include <vnet/dpo/load_balance.h>
22 VPP's application/session API bind/unbind/connect/disconnect calls
26 * TLS server cert and keys to be used for testing only
28 const char test_srv_crt_rsa[] =
29 "-----BEGIN CERTIFICATE-----\r\n"
30 "MIID5zCCAs+gAwIBAgIJALeMYCEHrTtJMA0GCSqGSIb3DQEBCwUAMIGJMQswCQYD\r\n"
31 "VQQGEwJVUzELMAkGA1UECAwCQ0ExETAPBgNVBAcMCFNhbiBKb3NlMQ4wDAYDVQQK\r\n"
32 "DAVDaXNjbzEOMAwGA1UECwwFZmQuaW8xFjAUBgNVBAMMDXRlc3R0bHMuZmQuaW8x\r\n"
33 "IjAgBgkqhkiG9w0BCQEWE3ZwcC1kZXZAbGlzdHMuZmQuaW8wHhcNMTgwMzA1MjEx\r\n"
34 "NTEyWhcNMjgwMzAyMjExNTEyWjCBiTELMAkGA1UEBhMCVVMxCzAJBgNVBAgMAkNB\r\n"
35 "MREwDwYDVQQHDAhTYW4gSm9zZTEOMAwGA1UECgwFQ2lzY28xDjAMBgNVBAsMBWZk\r\n"
36 "LmlvMRYwFAYDVQQDDA10ZXN0dGxzLmZkLmlvMSIwIAYJKoZIhvcNAQkBFhN2cHAt\r\n"
37 "ZGV2QGxpc3RzLmZkLmlvMIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEA\r\n"
38 "4C1k8a1DuStgggqT4o09fP9sJ2dC54bxhS/Xk2VEfaIZ222WSo4X/syRVfVy9Yah\r\n"
39 "cpI1zJ/RDxaZSFhgA+nPZBrFMsrULkrdAOpOVj8eDEp9JuWdO2ODSoFnCvLxcYWB\r\n"
40 "Yc5kHryJpEaGJl1sFQSesnzMFty/59ta0stk0Fp8r5NhIjWvSovGzPo6Bhz+VS2c\r\n"
41 "ebIZh4x1t2hHaFcgm0qJoJ6DceReWCW8w+yOVovTolGGq+bpb2Hn7MnRSZ2K2NdL\r\n"
42 "+aLXpkZbS/AODP1FF2vTO1mYL290LO7/51vJmPXNKSDYMy5EvILr5/VqtjsFCwRL\r\n"
43 "Q4jcM/+GeHSAFWx4qIv0BwIDAQABo1AwTjAdBgNVHQ4EFgQUWa1SOB37xmT53tZQ\r\n"
44 "aXuLLhRI7U8wHwYDVR0jBBgwFoAUWa1SOB37xmT53tZQaXuLLhRI7U8wDAYDVR0T\r\n"
45 "BAUwAwEB/zANBgkqhkiG9w0BAQsFAAOCAQEAoUht13W4ya27NVzQuCMvqPWL3VM4\r\n"
46 "3xbPFk02FaGz/WupPu276zGlzJAZrbuDcQowwwU1Ni1Yygxl96s1c2M5rHDTrOKG\r\n"
47 "rK0hbkSFBo+i6I8u4HiiQ4rYmG0Hv6+sXn3of0HsbtDPGgWZoipPWDljPYEURu3e\r\n"
48 "3HRe/Dtsj9CakBoSDzs8ndWaBR+f4sM9Tk1cjD46Gq2T/qpSPXqKxEUXlzhdCAn4\r\n"
49 "twub17Bq2kykHpppCwPg5M+v30tHG/R2Go15MeFWbEJthFk3TZMjKL7UFs7fH+x2\r\n"
50 "wSonXb++jY+KmCb93C+soABBizE57g/KmiR2IxQ/LMjDik01RSUIaM0lLA==\r\n"
51 "-----END CERTIFICATE-----\r\n";
52 const u32 test_srv_crt_rsa_len = sizeof (test_srv_crt_rsa);
54 const char test_srv_key_rsa[] =
55 "-----BEGIN PRIVATE KEY-----\r\n"
56 "MIIEvQIBADANBgkqhkiG9w0BAQEFAASCBKcwggSjAgEAAoIBAQDgLWTxrUO5K2CC\r\n"
57 "CpPijT18/2wnZ0LnhvGFL9eTZUR9ohnbbZZKjhf+zJFV9XL1hqFykjXMn9EPFplI\r\n"
58 "WGAD6c9kGsUyytQuSt0A6k5WPx4MSn0m5Z07Y4NKgWcK8vFxhYFhzmQevImkRoYm\r\n"
59 "XWwVBJ6yfMwW3L/n21rSy2TQWnyvk2EiNa9Ki8bM+joGHP5VLZx5shmHjHW3aEdo\r\n"
60 "VyCbSomgnoNx5F5YJbzD7I5Wi9OiUYar5ulvYefsydFJnYrY10v5otemRltL8A4M\r\n"
61 "/UUXa9M7WZgvb3Qs7v/nW8mY9c0pINgzLkS8guvn9Wq2OwULBEtDiNwz/4Z4dIAV\r\n"
62 "bHioi/QHAgMBAAECggEBAMzGipP8+oT166U+NlJXRFifFVN1DvdhG9PWnOxGL+c3\r\n"
63 "ILmBBC08WQzmHshPemBvR6DZkA1H23cV5JTiLWrFtC00CvhXsLRMrE5+uWotI6yE\r\n"
64 "iofybMroHvD6/X5R510UX9hQ6MHu5ShLR5VZ9zXHz5MpTmB/60jG5dLx+jgcwBK8\r\n"
65 "LuGv2YB/WCUwT9QJ3YU2eaingnXtz/MrFbkbltrqlnBdlD+kTtw6Yac9y1XuuQXc\r\n"
66 "BPeulLNDuPolJVWbUvDBZrpt2dXTgz8ws1sv+wCNE0xwQJsqW4Nx3QkpibUL9RUr\r\n"
67 "CVbKlNfa9lopT6nGKlgX69R/uH35yh9AOsfasro6w0ECgYEA82UJ8u/+ORah+0sF\r\n"
68 "Q0FfW5MTdi7OAUHOz16pUsGlaEv0ERrjZxmAkHA/VRwpvDBpx4alCv0Hc39PFLIk\r\n"
69 "nhSsM2BEuBkTAs6/GaoNAiBtQVE/hN7awNRWVmlieS0go3Y3dzaE9IUMyj8sPOFT\r\n"
70 "5JdJ6BM69PHKCkY3dKdnnfpFEuECgYEA68mRpteunF1mdZgXs+WrN+uLlRrQR20F\r\n"
71 "ZyMYiUCH2Dtn26EzA2moy7FipIIrQcX/j+KhYNGM3e7MU4LymIO29E18mn8JODnH\r\n"
72 "sQOXzBTsf8A4yIVMkcuQD3bfb0JiUGYUPOidTp2N7IJA7+6Yc3vQOyb74lnKnJoO\r\n"
73 "gougPT2wS+cCgYAn7muzb6xFsXDhyW0Tm6YJYBfRS9yAWEuVufINobeBZPSl2cN1\r\n"
74 "Jrnw+HlrfTNbrJWuJmjtZJXUXQ6cVp2rUbjutNyRV4vG6iRwEXYQ40EJdkr1gZpi\r\n"
75 "CHQhuShuuPih2MNAy7EEbM+sXrDjTBR3bFqzuHPzu7dp+BshCFX3lRfAAQKBgGQt\r\n"
76 "K5i7IhCFDjb/+3IPLgOAK7mZvsvZ4eXD33TQ2eZgtut1PXtBtNl17/b85uv293Fm\r\n"
77 "VDISVcsk3eLNS8zIiT6afUoWlxAwXEs0v5WRfjl4radkGvgGiJpJYvyeM67877RB\r\n"
78 "EDSKc/X8ESLfOB44iGvZUEMG6zJFscx9DgN25iQZAoGAbyd+JEWwdVH9/K3IH1t2\r\n"
79 "PBkZX17kNWv+iVM1WyFjbe++vfKZCrOJiyiqhDeEqgrP3AuNMlaaduC3VRC3G5oV\r\n"
80 "Mj1tlhDWQ/qhvKdCKNdIVQYDE75nw+FRWV8yYkHAnXYW3tNoweDIwixE0hkPR1bc\r\n"
81 "oEjPLVNtx8SOj/M4rhaPT3I=\r\n" "-----END PRIVATE KEY-----\r\n";
82 const u32 test_srv_key_rsa_len = sizeof (test_srv_key_rsa);
85 session_endpoint_is_local (session_endpoint_t * sep)
87 return (ip_is_zero (&sep->ip, sep->is_ip4)
88 || ip_is_local_host (&sep->ip, sep->is_ip4));
92 session_endpoint_is_zero (session_endpoint_t * sep)
94 return ip_is_zero (&sep->ip, sep->is_ip4);
98 session_endpoint_in_ns (session_endpoint_t * sep)
100 u8 is_lep = session_endpoint_is_local (sep);
101 if (!is_lep && sep->sw_if_index != ENDPOINT_INVALID_INDEX
102 && !ip_interface_has_address (sep->sw_if_index, &sep->ip, sep->is_ip4))
104 clib_warning ("sw_if_index %u not configured with ip %U",
105 sep->sw_if_index, format_ip46_address, &sep->ip,
109 return (is_lep || ip_is_local (sep->fib_index, &sep->ip, sep->is_ip4));
113 api_parse_session_handle (u64 handle, u32 * session_index, u32 * thread_index)
115 session_manager_main_t *smm = vnet_get_session_manager_main ();
116 stream_session_t *pool;
118 *thread_index = handle & 0xFFFFFFFF;
119 *session_index = handle >> 32;
121 if (*thread_index >= vec_len (smm->sessions))
122 return VNET_API_ERROR_INVALID_VALUE;
124 pool = smm->sessions[*thread_index];
126 if (pool_is_free_index (pool, *session_index))
127 return VNET_API_ERROR_INVALID_VALUE_2;
133 session_endpoint_update_for_app (session_endpoint_extended_t * sep,
136 app_namespace_t *app_ns;
139 ns_index = app->ns_index;
141 /* App is a transport proto, so fetch the calling app's ns */
142 if (app->flags & APP_OPTIONS_FLAGS_IS_TRANSPORT_APP)
144 app_worker_t *owner_wrk;
145 application_t *owner_app;
147 owner_wrk = app_worker_get (sep->app_wrk_index);
148 owner_app = application_get (owner_wrk->app_index);
149 ns_index = owner_app->ns_index;
151 app_ns = app_namespace_get (ns_index);
154 /* Ask transport and network to bind to/connect using local interface
155 * that "supports" app's namespace. This will fix our local connection
158 sep->sw_if_index = app_ns->sw_if_index;
160 sep->is_ip4 ? app_ns->ip4_fib_index : app_ns->ip6_fib_index;
165 vnet_bind_inline (vnet_bind_args_t * a)
167 u64 ll_handle = SESSION_INVALID_HANDLE;
168 app_worker_t *app_wrk;
172 app = application_get_if_valid (a->app_index);
175 SESSION_DBG ("app not attached");
176 return VNET_API_ERROR_APPLICATION_NOT_ATTACHED;
178 app_wrk = application_get_worker (app, a->wrk_map_index);
179 a->sep_ext.app_wrk_index = app_wrk->wrk_index;
181 session_endpoint_update_for_app (&a->sep_ext, app);
182 if (!session_endpoint_in_ns (&a->sep))
183 return VNET_API_ERROR_INVALID_VALUE_2;
186 * Add session endpoint to local session table. Only binds to "inaddr_any"
187 * (i.e., zero address) are added to local scope table.
189 if (application_has_local_scope (app)
190 && session_endpoint_is_local (&a->sep))
192 if ((rv = application_start_local_listen (app, &a->sep_ext,
195 ll_handle = a->handle;
198 if (!application_has_global_scope (app))
199 return (ll_handle == SESSION_INVALID_HANDLE ? -1 : 0);
202 * Add session endpoint to global session table
205 /* Setup listen path down to transport */
206 rv = application_start_listen (app, &a->sep_ext, &a->handle);
207 if (rv && ll_handle != SESSION_INVALID_HANDLE)
209 application_stop_local_listen (a->app_index, a->wrk_map_index,
215 * Store in local table listener the index of the transport layer
216 * listener. We'll need if if local listeners are hit and we need to
217 * return global handle
219 if (ll_handle != SESSION_INVALID_HANDLE)
222 stream_session_t *tl;
223 ll = application_get_local_listener_w_handle (ll_handle);
224 tl = listen_session_get_from_handle (a->handle);
225 if (ll->transport_listener_index == ~0)
226 ll->transport_listener_index = tl->session_index;
232 vnet_unbind_inline (vnet_unbind_args_t * a)
237 if (!(app = application_get_if_valid (a->app_index)))
239 SESSION_DBG ("app (%d) not attached", wrk_map_index);
240 return VNET_API_ERROR_APPLICATION_NOT_ATTACHED;
243 if (application_has_local_scope (app))
245 if ((rv = application_stop_local_listen (a->app_index,
246 a->wrk_map_index, a->handle)))
251 * Clear the global scope table of the listener
253 if (application_has_global_scope (app))
254 return application_stop_listen (a->app_index, a->wrk_map_index,
260 application_connect (vnet_connect_args_t * a)
262 app_worker_t *server_wrk, *client_wrk;
263 u32 table_index, server_index, li;
264 stream_session_t *listener;
265 application_t *client, *server;
270 if (session_endpoint_is_zero (&a->sep))
271 return VNET_API_ERROR_INVALID_VALUE;
273 client = application_get (a->app_index);
274 session_endpoint_update_for_app (&a->sep_ext, client);
275 client_wrk = application_get_worker (client, a->wrk_map_index);
278 * First check the local scope for locally attached destinations.
279 * If we have local scope, we pass *all* connects through it since we may
280 * have special policy rules even for non-local destinations, think proxy.
282 if (application_has_local_scope (client))
284 table_index = application_local_session_table (client);
285 lh = session_lookup_local_endpoint (table_index, &a->sep);
286 if (lh == SESSION_DROP_HANDLE)
287 return VNET_API_ERROR_APP_CONNECT_FILTERED;
289 if (lh == SESSION_INVALID_HANDLE)
292 local_session_parse_handle (lh, &server_index, &li);
295 * Break loop if rule in local table points to connecting app. This
296 * can happen if client is a generic proxy. Route connect through
297 * global table instead.
299 if (server_index != a->app_index)
301 server = application_get (server_index);
302 ll = application_get_local_listen_session (server, li);
303 listener = (stream_session_t *) ll;
304 server_wrk = application_listener_select_worker (listener,
306 return application_local_session_connect (client_wrk,
313 * If nothing found, check the global scope for locally attached
314 * destinations. Make sure first that we're allowed to.
318 if (session_endpoint_is_local (&a->sep))
319 return VNET_API_ERROR_SESSION_CONNECT;
321 if (!application_has_global_scope (client))
322 return VNET_API_ERROR_APP_CONNECT_SCOPE;
324 fib_proto = session_endpoint_fib_proto (&a->sep);
325 table_index = application_session_table (client, fib_proto);
326 listener = session_lookup_listener (table_index, &a->sep);
329 server_wrk = application_listener_select_worker (listener,
331 ll = (local_session_t *) listener;
332 return application_local_session_connect (client_wrk, server_wrk, ll,
337 * Not connecting to a local server, propagate to transport
339 if (app_worker_open_session (client_wrk, &a->sep, a->api_context))
340 return VNET_API_ERROR_SESSION_CONNECT;
345 * unformat a vnet URI
347 * transport-proto://[hostname]ip46-addr:port
348 * eg. tcp://ip46-addr:port
349 * tls://[testtsl.fd.io]ip46-addr:port
351 * u8 ip46_address[16];
352 * u16 port_in_host_byte_order;
353 * stream_session_type_t sst;
356 * if (unformat (input, "%U", unformat_vnet_uri, &ip46_address,
357 * &sst, &port, &fifo_name))
362 unformat_vnet_uri (unformat_input_t * input, va_list * args)
364 session_endpoint_extended_t *sep = va_arg (*args,
365 session_endpoint_extended_t *);
366 u32 transport_proto = 0, port;
368 if (unformat (input, "%U://%U/%d", unformat_transport_proto,
369 &transport_proto, unformat_ip4_address, &sep->ip.ip4, &port))
371 sep->transport_proto = transport_proto;
372 sep->port = clib_host_to_net_u16 (port);
376 else if (unformat (input, "%U://[%s]%U/%d", unformat_transport_proto,
377 &transport_proto, &sep->hostname, unformat_ip4_address,
378 &sep->ip.ip4, &port))
380 sep->transport_proto = transport_proto;
381 sep->port = clib_host_to_net_u16 (port);
385 else if (unformat (input, "%U://%U/%d", unformat_transport_proto,
386 &transport_proto, unformat_ip6_address, &sep->ip.ip6,
389 sep->transport_proto = transport_proto;
390 sep->port = clib_host_to_net_u16 (port);
394 else if (unformat (input, "%U://[%s]%U/%d", unformat_transport_proto,
395 &transport_proto, &sep->hostname, unformat_ip6_address,
396 &sep->ip.ip6, &port))
398 sep->transport_proto = transport_proto;
399 sep->port = clib_host_to_net_u16 (port);
406 static u8 *cache_uri;
407 static session_endpoint_extended_t *cache_sep;
410 parse_uri (char *uri, session_endpoint_extended_t * sep)
412 unformat_input_t _input, *input = &_input;
414 if (cache_uri && !strncmp (uri, (char *) cache_uri, vec_len (cache_uri)))
421 uri = (char *) format (0, "%s%c", uri, 0);
424 unformat_init_string (input, uri, strlen (uri));
425 if (!unformat (input, "%U", unformat_vnet_uri, sep))
427 unformat_free (input);
428 return VNET_API_ERROR_INVALID_VALUE;
430 unformat_free (input);
432 vec_free (cache_uri);
433 cache_uri = (u8 *) uri;
435 clib_mem_free (cache_sep);
436 cache_sep = clib_mem_alloc (sizeof (*sep));
443 app_validate_namespace (u8 * namespace_id, u64 secret, u32 * app_ns_index)
445 app_namespace_t *app_ns;
446 if (vec_len (namespace_id) == 0)
448 /* Use default namespace */
453 *app_ns_index = app_namespace_index_from_id (namespace_id);
454 if (*app_ns_index == APP_NAMESPACE_INVALID_INDEX)
455 return VNET_API_ERROR_APP_INVALID_NS;
456 app_ns = app_namespace_get (*app_ns_index);
458 return VNET_API_ERROR_APP_INVALID_NS;
459 if (app_ns->ns_secret != secret)
460 return VNET_API_ERROR_APP_WRONG_NS_SECRET;
465 * Attach application to vpp
467 * Allocates a vpp app, i.e., a structure that keeps back pointers
468 * to external app and a segment manager for shared memory fifo based
469 * communication with the external app.
472 vnet_application_attach (vnet_app_attach_args_t * a)
474 svm_fifo_segment_private_t *fs;
475 application_t *app = 0;
476 app_worker_t *app_wrk;
477 segment_manager_t *sm;
478 u32 app_ns_index = 0;
482 if (a->api_client_index != APP_INVALID_INDEX)
483 app = application_lookup (a->api_client_index);
485 app = application_lookup_name (a->name);
487 return clib_error_return_code (0, VNET_API_ERROR_INVALID_VALUE, 0,
488 "api index or name must be provided");
491 return clib_error_return_code (0, VNET_API_ERROR_APP_ALREADY_ATTACHED, 0,
492 "app already attached");
494 secret = a->options[APP_OPTIONS_NAMESPACE_SECRET];
495 if ((rv = app_validate_namespace (a->namespace_id, secret, &app_ns_index)))
496 return clib_error_return_code (0, rv, 0, "namespace validation: %d", rv);
497 a->options[APP_OPTIONS_NAMESPACE] = app_ns_index;
499 if ((rv = application_alloc_and_init ((app_init_args_t *) a)))
500 return clib_error_return_code (0, rv, 0, "app init: %d", rv);
502 app = application_get (a->app_index);
503 if ((rv = app_worker_alloc_and_init (app, &app_wrk)))
504 return clib_error_return_code (0, rv, 0, "app default wrk init: %d", rv);
506 a->app_evt_q = app_wrk->event_queue;
507 sm = segment_manager_get (app_wrk->first_segment_manager);
508 fs = segment_manager_get_segment_w_lock (sm, 0);
510 if (application_is_proxy (app))
511 application_setup_proxy (app);
513 ASSERT (vec_len (fs->ssvm.name) <= 128);
514 a->segment = &fs->ssvm;
516 segment_manager_segment_reader_unlock (sm);
522 * Detach application from vpp
525 vnet_application_detach (vnet_app_detach_args_t * a)
528 app = application_get_if_valid (a->app_index);
532 clib_warning ("app not attached");
533 return VNET_API_ERROR_APPLICATION_NOT_ATTACHED;
536 application_free (app);
541 vnet_bind_uri (vnet_bind_args_t * a)
543 session_endpoint_extended_t sep = SESSION_ENDPOINT_EXT_NULL;
546 rv = parse_uri (a->uri, &sep);
549 sep.app_wrk_index = 0;
550 clib_memcpy (&a->sep_ext, &sep, sizeof (sep));
551 return vnet_bind_inline (a);
555 vnet_unbind_uri (vnet_unbind_args_t * a)
557 session_endpoint_extended_t sep = SESSION_ENDPOINT_EXT_NULL;
558 stream_session_t *listener;
562 rv = parse_uri (a->uri, &sep);
566 /* NOTE: only default fib tables supported for uri apis */
567 table_index = session_lookup_get_index_for_fib (fib_ip_proto (!sep.is_ip4),
569 listener = session_lookup_listener (table_index,
570 (session_endpoint_t *) & sep);
572 return VNET_API_ERROR_ADDRESS_NOT_IN_USE;
573 a->handle = listen_session_get_handle (listener);
574 return vnet_unbind_inline (a);
578 vnet_connect_uri (vnet_connect_args_t * a)
580 session_endpoint_extended_t sep = SESSION_ENDPOINT_EXT_NULL;
584 rv = parse_uri (a->uri, &sep);
586 return clib_error_return_code (0, rv, 0, "app init: %d", rv);
588 clib_memcpy (&a->sep_ext, &sep, sizeof (sep));
589 if ((rv = application_connect (a)))
590 return clib_error_return_code (0, rv, 0, "connect failed");
595 vnet_disconnect_session (vnet_disconnect_args_t * a)
597 if (session_handle_is_local (a->handle))
601 /* Disconnect reply came to worker 1 not main thread */
602 if (vlib_get_thread_index () == 1)
604 vlib_rpc_call_main_thread (vnet_disconnect_session, (u8 *) a,
609 if (!(ls = application_get_local_session_from_handle (a->handle)))
612 return application_local_session_disconnect (a->app_index, ls);
616 app_worker_t *app_wrk;
619 s = session_get_from_handle_if_valid (a->handle);
621 return VNET_API_ERROR_INVALID_VALUE;
622 app_wrk = app_worker_get (s->app_wrk_index);
623 if (app_wrk->app_index != a->app_index)
624 return VNET_API_ERROR_INVALID_VALUE;
626 /* We're peeking into another's thread pool. Make sure */
627 ASSERT (s->session_index == session_index_from_handle (a->handle));
629 stream_session_disconnect (s);
635 vnet_bind (vnet_bind_args_t * a)
638 if ((rv = vnet_bind_inline (a)))
639 return clib_error_return_code (0, rv, 0, "bind failed: %d", rv);
644 vnet_unbind (vnet_unbind_args_t * a)
647 if ((rv = vnet_unbind_inline (a)))
648 return clib_error_return_code (0, rv, 0, "unbind failed: %d", rv);
653 vnet_connect (vnet_connect_args_t * a)
657 if ((rv = application_connect (a)))
658 return clib_error_return_code (0, rv, 0, "connect failed: %d", rv);
663 * fd.io coding-style-patch-verification: ON
666 * eval: (c-set-style "gnu")