LISP EID virtualization support
[vpp.git] / vnet / vnet / lisp-gpe / lisp_gpe.c
1 /*
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:
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 #include <vnet/lisp-gpe/lisp_gpe.h>
17
18 lisp_gpe_main_t lisp_gpe_main;
19
20 static int
21 lisp_gpe_rewrite (lisp_gpe_tunnel_t * t)
22 {
23   u8 *rw = 0;
24   lisp_gpe_header_t * lisp0;
25   int len;
26
27   if (ip_addr_version(&t->src) == IP4)
28     {
29       ip4_header_t * ip0;
30       ip4_udp_lisp_gpe_header_t * h0;
31       len = sizeof(*h0);
32
33       vec_validate_aligned(rw, len - 1, CLIB_CACHE_LINE_BYTES);
34
35       h0 = (ip4_udp_lisp_gpe_header_t *) rw;
36
37       /* Fixed portion of the (outer) ip4 header */
38       ip0 = &h0->ip4;
39       ip0->ip_version_and_header_length = 0x45;
40       ip0->ttl = 254;
41       ip0->protocol = IP_PROTOCOL_UDP;
42
43       /* we fix up the ip4 header length and checksum after-the-fact */
44       ip_address_copy_addr(&ip0->src_address, &t->src);
45       ip_address_copy_addr(&ip0->dst_address, &t->dst);
46       ip0->checksum = ip4_header_checksum (ip0);
47
48       /* UDP header, randomize src port on something, maybe? */
49       h0->udp.src_port = clib_host_to_net_u16 (4341);
50       h0->udp.dst_port = clib_host_to_net_u16 (UDP_DST_PORT_lisp_gpe);
51
52       /* LISP-gpe header */
53       lisp0 = &h0->lisp;
54     }
55   else
56     {
57       ip6_header_t * ip0;
58       ip6_udp_lisp_gpe_header_t * h0;
59       len = sizeof(*h0);
60
61       vec_validate_aligned(rw, len - 1, CLIB_CACHE_LINE_BYTES);
62
63       h0 = (ip6_udp_lisp_gpe_header_t *) rw;
64
65       /* Fixed portion of the (outer) ip6 header */
66       ip0 = &h0->ip6;
67       ip0->ip_version_traffic_class_and_flow_label =
68           clib_host_to_net_u32 (0x6 << 28);
69       ip0->hop_limit = 254;
70       ip0->protocol = IP_PROTOCOL_UDP;
71
72       /* we fix up the ip6 header length after-the-fact */
73       ip_address_copy_addr(&ip0->src_address, &t->src);
74       ip_address_copy_addr(&ip0->dst_address, &t->dst);
75
76       /* UDP header, randomize src port on something, maybe? */
77       h0->udp.src_port = clib_host_to_net_u16 (4341);
78       h0->udp.dst_port = clib_host_to_net_u16 (UDP_DST_PORT_lisp_gpe);
79
80       /* LISP-gpe header */
81       lisp0 = &h0->lisp;
82     }
83
84   lisp0->flags = t->flags;
85   lisp0->ver_res = t->ver_res;
86   lisp0->res = t->res;
87   lisp0->next_protocol = t->next_protocol;
88   lisp0->iid = clib_host_to_net_u32 (t->vni);
89
90   t->rewrite = rw;
91   return 0;
92 }
93
94 #define foreach_copy_field                      \
95 _(encap_fib_index)                              \
96 _(decap_fib_index)                              \
97 _(decap_next_index)                             \
98 _(vni)
99
100 static u32
101 add_del_ip_tunnel (vnet_lisp_gpe_add_del_fwd_entry_args_t *a,
102                    u32 * tun_index_res)
103 {
104   lisp_gpe_main_t * lgm = &lisp_gpe_main;
105   lisp_gpe_tunnel_t *t = 0;
106   uword * p;
107   int rv;
108   lisp_gpe_tunnel_key_t key;
109
110   /* prepare tunnel key */
111   memset(&key, 0, sizeof(key));
112   ip_prefix_copy(&key.eid, &gid_address_ippref(&a->deid));
113   ip_address_copy(&key.dst_loc, &a->dlocator);
114   key.iid = clib_host_to_net_u32 (a->vni);
115
116   p = mhash_get (&lgm->lisp_gpe_tunnel_by_key, &key);
117
118   if (a->is_add)
119     {
120       /* adding a tunnel: tunnel must not already exist */
121       if (p)
122         return VNET_API_ERROR_INVALID_VALUE;
123
124       if (a->decap_next_index >= LISP_GPE_INPUT_N_NEXT)
125         return VNET_API_ERROR_INVALID_DECAP_NEXT;
126
127       pool_get_aligned (lgm->tunnels, t, CLIB_CACHE_LINE_BYTES);
128       memset (t, 0, sizeof (*t));
129
130       /* copy from arg structure */
131 #define _(x) t->x = a->x;
132       foreach_copy_field;
133 #undef _
134
135       ip_address_copy(&t->src, &a->slocator);
136       ip_address_copy(&t->dst, &a->dlocator);
137
138       /* if vni is non-default */
139       if (a->vni)
140         {
141           t->flags = LISP_GPE_FLAGS_I;
142           t->vni = a->vni;
143         }
144
145       t->flags |= LISP_GPE_FLAGS_P;
146       t->next_protocol = ip_prefix_version(&key.eid) == IP4 ?
147           LISP_GPE_NEXT_PROTO_IP4 : LISP_GPE_NEXT_PROTO_IP6;
148
149       rv = lisp_gpe_rewrite (t);
150
151       if (rv)
152         {
153           pool_put(lgm->tunnels, t);
154           return rv;
155         }
156
157       mhash_set(&lgm->lisp_gpe_tunnel_by_key, &key, t - lgm->tunnels, 0);
158
159       /* return tunnel index */
160       if (tun_index_res)
161         tun_index_res[0] = t - lgm->tunnels;
162     }
163   else
164     {
165       /* deleting a tunnel: tunnel must exist */
166       if (!p)
167         {
168           clib_warning("Tunnel for eid %U doesn't exist!", format_gid_address,
169                        &a->deid);
170           return VNET_API_ERROR_NO_SUCH_ENTRY;
171         }
172
173       t = pool_elt_at_index(lgm->tunnels, p[0]);
174
175       mhash_unset(&lgm->lisp_gpe_tunnel_by_key, &key, 0);
176
177       vec_free(t->rewrite);
178       pool_put(lgm->tunnels, t);
179     }
180
181   return 0;
182 }
183
184 static int
185 add_del_negative_fwd_entry (lisp_gpe_main_t * lgm,
186                             vnet_lisp_gpe_add_del_fwd_entry_args_t * a)
187 {
188   ip_adjacency_t adj;
189   ip_prefix_t * dpref = &gid_address_ippref(&a->deid);
190   ip_prefix_t * spref = &gid_address_ippref(&a->seid);
191
192   /* setup adjacency for eid */
193   memset (&adj, 0, sizeof(adj));
194   adj.n_adj = 1;
195
196   /* fill in 'legal' data to avoid issues */
197   adj.lookup_next_index =  (ip_prefix_version(dpref) == IP4) ?
198                                   lgm->ip4_lookup_next_lgpe_ip4_lookup :
199                                   lgm->ip6_lookup_next_lgpe_ip6_lookup;
200
201   adj.rewrite_header.sw_if_index = ~0;
202   adj.rewrite_header.next_index = ~0;
203
204   switch (a->action)
205     {
206     case NO_ACTION:
207       /* TODO update timers? */
208     case FORWARD_NATIVE:
209       /* TODO check if route/next-hop for eid exists in fib and add
210        * more specific for the eid with the next-hop found */
211     case SEND_MAP_REQUEST:
212       /* insert tunnel that always sends map-request */
213       adj.explicit_fib_index = (ip_prefix_version(dpref) == IP4) ?
214                                LGPE_IP4_LOOKUP_NEXT_LISP_CP_LOOKUP:
215                                LGPE_IP6_LOOKUP_NEXT_LISP_CP_LOOKUP;
216       /* add/delete route for prefix */
217       return ip_sd_fib_add_del_route (lgm, dpref, spref, a->table_id, &adj,
218                                       a->is_add);
219     case DROP:
220       /* for drop fwd entries, just add route, no need to add encap tunnel */
221       adj.explicit_fib_index =  (ip_prefix_version(dpref) == IP4 ?
222               LGPE_IP4_LOOKUP_NEXT_DROP : LGPE_IP6_LOOKUP_NEXT_DROP);
223
224       /* add/delete route for prefix */
225       return ip_sd_fib_add_del_route (lgm, dpref, spref, a->table_id, &adj,
226                                       a->is_add);
227     default:
228       return -1;
229     }
230 }
231
232 int
233 vnet_lisp_gpe_add_del_fwd_entry (vnet_lisp_gpe_add_del_fwd_entry_args_t * a,
234                                  u32 * hw_if_indexp)
235 {
236   lisp_gpe_main_t * lgm = &lisp_gpe_main;
237   ip_adjacency_t adj, * adjp;
238   u32 adj_index, rv, tun_index = ~0;
239   ip_prefix_t * dpref, * spref;
240   uword * lookup_next_index, * lgpe_sw_if_index, * lnip;
241   u8 ip_ver;
242
243   if (vnet_lisp_gpe_enable_disable_status() == 0)
244     {
245       clib_warning ("LISP is disabled!");
246       return VNET_API_ERROR_LISP_DISABLED;
247     }
248
249   /* treat negative fwd entries separately */
250   if (a->is_negative)
251     return add_del_negative_fwd_entry (lgm, a);
252
253   dpref = &gid_address_ippref(&a->deid);
254   spref = &gid_address_ippref(&a->seid);
255   ip_ver = ip_prefix_version(dpref);
256
257   /* add/del tunnel to tunnels pool and prepares rewrite */
258   rv = add_del_ip_tunnel (a, &tun_index);
259   if (rv)
260     return rv;
261
262   /* setup adjacency for eid */
263   memset (&adj, 0, sizeof(adj));
264   adj.n_adj = 1;
265
266   /* fill in lookup_next_index with a 'legal' value to avoid problems */
267   adj.lookup_next_index = (ip_ver == IP4) ?
268           lgm->ip4_lookup_next_lgpe_ip4_lookup :
269           lgm->ip6_lookup_next_lgpe_ip6_lookup;
270
271   if (a->is_add)
272     {
273       /* send packets that hit this adj to lisp-gpe interface output node in
274        * requested vrf. */
275       lnip = (ip_ver == IP4) ?
276               lgm->lgpe_ip4_lookup_next_index_by_table_id :
277               lgm->lgpe_ip6_lookup_next_index_by_table_id;
278       lookup_next_index = hash_get(lnip, a->table_id);
279       lgpe_sw_if_index = hash_get(lgm->lisp_gpe_hw_if_index_by_table_id,
280                                   a->table_id);
281
282       /* the assumption is that the interface must've been created before
283        * programming the dp */
284       ASSERT(lookup_next_index != 0);
285       ASSERT(lgpe_sw_if_index != 0);
286
287       /* hijack explicit fib index to store lisp interface node index and
288        * if_address_index for the tunnel index */
289       adj.explicit_fib_index = lookup_next_index[0];
290       adj.if_address_index = tun_index;
291       adj.rewrite_header.sw_if_index = lgpe_sw_if_index[0];
292     }
293
294   /* add/delete route for prefix */
295   rv = ip_sd_fib_add_del_route (lgm, dpref, spref, a->table_id, &adj,
296                                 a->is_add);
297
298   /* check that everything worked */
299   if (CLIB_DEBUG && a->is_add)
300     {
301       adj_index = ip_sd_fib_get_route (lgm, dpref, spref, a->table_id);
302       ASSERT(adj_index != 0);
303
304       adjp = ip_get_adjacency ((ip_ver == IP4) ? lgm->lm4 : lgm->lm6,
305                                adj_index);
306
307       ASSERT(adjp != 0);
308       ASSERT(adjp->if_address_index == tun_index);
309     }
310
311   return rv;
312 }
313
314 static clib_error_t *
315 lisp_gpe_add_del_fwd_entry_command_fn (vlib_main_t * vm,
316                                        unformat_input_t * input,
317                                        vlib_cli_command_t * cmd)
318 {
319   unformat_input_t _line_input, * line_input = &_line_input;
320   u8 is_add = 1;
321   ip_address_t slocator, dlocator, *slocators = 0, *dlocators = 0;
322   ip_prefix_t * prefp;
323   gid_address_t * eids = 0, eid;
324   clib_error_t * error = 0;
325   u32 i;
326   int rv;
327
328   prefp = &gid_address_ippref(&eid);
329
330   /* Get a line of input. */
331   if (! unformat_user (input, unformat_line_input, line_input))
332     return 0;
333
334   while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT)
335     {
336       if (unformat (line_input, "del"))
337         is_add = 0;
338       else if (unformat (line_input, "add"))
339         is_add = 1;
340       else if (unformat (line_input, "eid %U slocator %U dlocator %U",
341                          unformat_ip_prefix, prefp,
342                          unformat_ip_address, &slocator,
343                          unformat_ip_address, &dlocator))
344         {
345           vec_add1 (eids, eid);
346           vec_add1 (slocators, slocator);
347           vec_add1 (dlocators, dlocator);
348         }
349       else
350         {
351           error = unformat_parse_error (line_input);
352           goto done;
353         }
354     }
355   unformat_free (line_input);
356
357   if (vec_len (eids) + vec_len (slocators) == 0)
358     {
359       error = clib_error_return (0, "expected ip4/ip6 eids/locators.");
360       goto done;
361     }
362
363   if (vec_len (eids) != vec_len (slocators))
364     {
365       error = clib_error_return (0, "number of eids not equal to that of "
366           "locators.");
367       goto done;
368     }
369
370   for (i = 0; i < vec_len(eids); i++)
371     {
372       vnet_lisp_gpe_add_del_fwd_entry_args_t a;
373       memset (&a, 0, sizeof(a));
374
375       a.is_add = is_add;
376       a.deid = eids[i];
377       a.slocator = slocators[i];
378       a.dlocator = dlocators[i];
379       rv = vnet_lisp_gpe_add_del_fwd_entry (&a, 0);
380       if (0 != rv)
381         {
382           error = clib_error_return(0, "failed to %s gpe maptunnel!",
383                                     is_add ? "add" : "delete");
384           break;
385         }
386     }
387
388  done:
389   vec_free(eids);
390   vec_free(slocators);
391   vec_free(dlocators);
392   return error;
393 }
394
395 VLIB_CLI_COMMAND (lisp_gpe_add_del_fwd_entry_command, static) = {
396   .path = "lisp gpe maptunnel",
397   .short_help = "lisp gpe maptunnel eid <eid> sloc <src-locator> "
398       "dloc <dst-locator> [del]",
399   .function = lisp_gpe_add_del_fwd_entry_command_fn,
400 };
401
402 static u8 *
403 format_decap_next (u8 * s, va_list * args)
404 {
405   u32 next_index = va_arg (*args, u32);
406
407   switch (next_index)
408     {
409     case LISP_GPE_INPUT_NEXT_DROP:
410       return format (s, "drop");
411     case LISP_GPE_INPUT_NEXT_IP4_INPUT:
412       return format (s, "ip4");
413     case LISP_GPE_INPUT_NEXT_IP6_INPUT:
414       return format (s, "ip6");
415     default:
416       return format (s, "unknown %d", next_index);
417     }
418   return s;
419 }
420
421 u8 *
422 format_lisp_gpe_tunnel (u8 * s, va_list * args)
423 {
424   lisp_gpe_tunnel_t * t = va_arg (*args, lisp_gpe_tunnel_t *);
425   lisp_gpe_main_t * lgm = &lisp_gpe_main;
426
427   s = format (s,
428               "[%d] %U (src) %U (dst) fibs: encap %d, decap %d",
429               t - lgm->tunnels,
430               format_ip_address, &t->src,
431               format_ip_address, &t->dst,
432               t->encap_fib_index,
433               t->decap_fib_index);
434
435   s = format (s, " decap next %U\n", format_decap_next, t->decap_next_index);
436   s = format (s, "lisp ver %d ", (t->ver_res>>6));
437
438 #define _(n,v) if (t->flags & v) s = format (s, "%s-bit ", #n);
439   foreach_lisp_gpe_flag_bit;
440 #undef _
441
442   s = format (s, "next_protocol %d ver_res %x res %x\n",
443               t->next_protocol, t->ver_res, t->res);
444
445   s = format (s, "iid %d (0x%x)\n", t->vni, t->vni);
446   return s;
447 }
448
449 static clib_error_t *
450 show_lisp_gpe_tunnel_command_fn (vlib_main_t * vm,
451                                 unformat_input_t * input,
452                                 vlib_cli_command_t * cmd)
453 {
454   lisp_gpe_main_t * lgm = &lisp_gpe_main;
455   lisp_gpe_tunnel_t * t;
456   
457   if (pool_elts (lgm->tunnels) == 0)
458     vlib_cli_output (vm, "No lisp-gpe tunnels configured...");
459
460   pool_foreach (t, lgm->tunnels,
461   ({
462     vlib_cli_output (vm, "%U", format_lisp_gpe_tunnel, t);
463   }));
464   
465   return 0;
466 }
467
468 VLIB_CLI_COMMAND (show_lisp_gpe_tunnel_command, static) = {
469     .path = "show lisp gpe tunnel",
470     .function = show_lisp_gpe_tunnel_command_fn,
471 };
472
473 u8
474 vnet_lisp_gpe_enable_disable_status(void)
475 {
476   lisp_gpe_main_t * lgm = &lisp_gpe_main;
477
478   return lgm->is_en;
479 }
480
481 clib_error_t *
482 vnet_lisp_gpe_enable_disable (vnet_lisp_gpe_enable_disable_args_t * a)
483 {
484   lisp_gpe_main_t * lgm = &lisp_gpe_main;
485   vnet_main_t * vnm = lgm->vnet_main;
486
487   if (a->is_en)
488     {
489       /* add lgpe_ip4_lookup as possible next_node for ip4 lookup */
490       if (lgm->ip4_lookup_next_lgpe_ip4_lookup == ~0)
491         {
492           lgm->ip4_lookup_next_lgpe_ip4_lookup = vlib_node_add_next (
493               vnm->vlib_main, ip4_lookup_node.index,
494               lgpe_ip4_lookup_node.index);
495         }
496       /* add lgpe_ip6_lookup as possible next_node for ip6 lookup */
497       if (lgm->ip6_lookup_next_lgpe_ip6_lookup == ~0)
498         {
499           lgm->ip6_lookup_next_lgpe_ip6_lookup = vlib_node_add_next (
500               vnm->vlib_main, ip6_lookup_node.index,
501               lgpe_ip6_lookup_node.index);
502         }
503       else
504         {
505           /* ask cp to re-add ifaces and defaults */
506         }
507
508       lgm->is_en = 1;
509     }
510   else
511     {
512       CLIB_UNUSED(uword * val);
513       hash_pair_t * p;
514       u32 * table_ids = 0, * table_id;
515       lisp_gpe_tunnel_key_t * tunnels = 0, * tunnel;
516       vnet_lisp_gpe_add_del_fwd_entry_args_t _at, * at = &_at;
517       vnet_lisp_gpe_add_del_iface_args_t _ai, * ai= &_ai;
518
519       /* remove all tunnels */
520       mhash_foreach(tunnel, val, &lgm->lisp_gpe_tunnel_by_key, ({
521         vec_add1(tunnels, tunnel[0]);
522       }));
523
524       vec_foreach(tunnel, tunnels) {
525         memset(at, 0, sizeof(at[0]));
526         at->is_add = 0;
527         gid_address_type(&at->deid) = GID_ADDR_IP_PREFIX;
528         ip_prefix_copy(&gid_address_ippref(&at->deid), &tunnel->eid);
529         ip_address_copy(&at->dlocator, &tunnel->dst_loc);
530         vnet_lisp_gpe_add_del_fwd_entry (at, 0);
531       }
532       vec_free(tunnels);
533
534       /* disable all ifaces */
535       hash_foreach_pair(p, lgm->lisp_gpe_hw_if_index_by_table_id, ({
536         vec_add1(table_ids, p->key);
537       }));
538
539       vec_foreach(table_id, table_ids) {
540         ai->is_add = 0;
541         ai->table_id = table_id[0];
542
543         /* disables interface and removes defaults */
544         vnet_lisp_gpe_add_del_iface(ai, 0);
545       }
546       vec_free(table_ids);
547       lgm->is_en = 0;
548     }
549
550   return 0;
551 }
552
553 static clib_error_t *
554 lisp_gpe_enable_disable_command_fn (vlib_main_t * vm, unformat_input_t * input,
555                                     vlib_cli_command_t * cmd)
556 {
557   unformat_input_t _line_input, * line_input = &_line_input;
558   u8 is_en = 1;
559   vnet_lisp_gpe_enable_disable_args_t _a, * a = &_a;
560
561   /* Get a line of input. */
562   if (! unformat_user (input, unformat_line_input, line_input))
563     return 0;
564
565   while (unformat_check_input (line_input) != UNFORMAT_END_OF_INPUT)
566     {
567       if (unformat (line_input, "enable"))
568         is_en = 1;
569       else if (unformat (line_input, "disable"))
570         is_en = 0;
571       else
572         {
573           return clib_error_return (0, "parse error: '%U'",
574                                    format_unformat_error, line_input);
575         }
576     }
577   a->is_en = is_en;
578   return vnet_lisp_gpe_enable_disable (a);
579 }
580
581 VLIB_CLI_COMMAND (enable_disable_lisp_gpe_command, static) = {
582   .path = "lisp gpe",
583   .short_help = "lisp gpe [enable|disable]",
584   .function = lisp_gpe_enable_disable_command_fn,
585 };
586
587 static clib_error_t *
588 lisp_show_iface_command_fn (vlib_main_t * vm,
589                             unformat_input_t * input,
590                             vlib_cli_command_t * cmd)
591 {
592   lisp_gpe_main_t * lgm = &lisp_gpe_main;
593   hash_pair_t * p;
594
595   vlib_cli_output (vm, "%=10s%=12s", "vrf", "hw_if_index");
596   hash_foreach_pair (p, lgm->lisp_gpe_hw_if_index_by_table_id, ({
597     vlib_cli_output (vm, "%=10d%=10d", p->key, p->value[0]);
598   }));
599   return 0;
600 }
601
602 VLIB_CLI_COMMAND (lisp_show_iface_command) = {
603     .path = "show lisp gpe interface",
604     .short_help = "show lisp gpe interface",
605     .function = lisp_show_iface_command_fn,
606 };
607
608 clib_error_t *
609 lisp_gpe_init (vlib_main_t *vm)
610 {
611   lisp_gpe_main_t * lgm = &lisp_gpe_main;
612   clib_error_t * error = 0;
613
614   if ((error = vlib_call_init_function (vm, ip_main_init)))
615     return error;
616
617   if ((error = vlib_call_init_function (vm, ip4_lookup_init)))
618     return error;
619
620   lgm->vnet_main = vnet_get_main();
621   lgm->vlib_main = vm;
622   lgm->im4 = &ip4_main;
623   lgm->im6 = &ip6_main;
624   lgm->lm4 = &ip4_main.lookup_main;
625   lgm->lm6 = &ip6_main.lookup_main;
626   lgm->ip4_lookup_next_lgpe_ip4_lookup = ~0;
627   lgm->ip6_lookup_next_lgpe_ip6_lookup = ~0;
628
629   mhash_init (&lgm->lisp_gpe_tunnel_by_key, sizeof(uword),
630               sizeof(lisp_gpe_tunnel_key_t));
631
632   udp_register_dst_port (vm, UDP_DST_PORT_lisp_gpe, 
633                          lisp_gpe_ip4_input_node.index, 1 /* is_ip4 */);
634   udp_register_dst_port (vm, UDP_DST_PORT_lisp_gpe6,
635                          lisp_gpe_ip6_input_node.index, 0 /* is_ip4 */);
636   return 0;
637 }
638
639 u8 *
640 format_vnet_lisp_gpe_status (u8 * s, va_list * args)
641 {
642   lisp_gpe_main_t * lgm = &lisp_gpe_main;
643   return format (s, "%s", lgm->is_en ? "enabled" : "disabled");
644 }
645
646 VLIB_INIT_FUNCTION(lisp_gpe_init);