aboutsummaryrefslogtreecommitdiffstats
path: root/src/svm/svm_test.c
blob: c55d631d3db15ed794ad8c90f422e9168387182a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
/*
 * Copyright (c) 2015 Cisco and/or its affiliates.
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at:
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */
/*
 *------------------------------------------------------------------
 * svm_test.c -- brain police
 *------------------------------------------------------------------
 */

#include <stdio.h>
#include <stdlib.h>
#include <sys/types.h>
#include <sys/mman.h>
#include <sys/stat.h>
#include <netinet/in.h>
#include <signal.h>
#include <pthread.h>
#include <unistd.h>
#include <time.h>
#include <fcntl.h>
#include <string.h>
#include <vppinfra/clib.h>
#include <vppinfra/vec.h>
#include <vppinfra/hash.h>
#include <vppinfra/bitmap.h>
#include <vppinfra/fifo.h>
#include <vppinfra/time.h>
#include <vppinfra/heap.h>
#include <vppinfra/pool.h>

#include "svm.h"


int
main (int argc, char **argv)
{
  svm_region_t *root_rp, *rp;
  svm_map_region_args_t *a = 0;

  vec_validate (a, 0);

  root_rp = svm_region_init ();

  ASSERT (root_rp);

  a->name = "/qvnet";
  a->size = (4 << 10);

  rp = svm_region_find_or_create (root_rp, a);

  ASSERT (rp);

  *((u32 *) rp->data_base) = 0xdeadbeef;
  svm_region_unmap (root_rp, rp);

  fformat (stdout, "exiting...\n");

  exit (0);
}

/*
 * fd.io coding-style-patch-verification: ON
 *
 * Local Variables:
 * eval: (c-set-style "gnu")
 * End:
 */
makunbound 'indent-offset-list)) (setq indent-offset-list nil) (goto-char (point-max)) (while (search-backward "*INDENT-OFF*" (point-min) t) (move-beginning-of-line nil) (setq indent-offset-list (cons (point) indent-offset-list)) (previous-line)))) ;; Insert indent-off ... indent-on brackets around ;; a certain xxx_foreach macro, etc. which "indent" ;; completely screws up. Doesn't handle nesting, of which there ;; are few examples (fortunately). (defun fix-initializer (what) (interactive) (find-indent-offs) (save-excursion (goto-char (point-min)) (while (search-forward-regexp what (point-max) t) (move-beginning-of-line nil) (previous-line) (let ((index 0)(pointval 0)) (while (and (< pointval (point))(elt indent-offset-list index)) (setq pointval (elt indent-offset-list index)) (setq index (1+ index))) (if (not (eq pointval (point))) (let ((junk 0)) (next-line) (open-line 1) (c-indent-line-or-region) (insert "/* *INDENT-OFF* */") (search-forward "{") (backward-char) (forward-sexp) (move-end-of-line nil) (newline 1) (c-indent-line-or-region) (insert "/* *INDENT-ON* */") (find-indent-offs)) (search-forward "*INDENT-ON*")))))) (defun fix-pool-foreach () (interactive) (fix-initializer "pool_foreach *(")) (defun fix-pool-foreach-index () (interactive) (fix-initializer "pool_foreach_index *(")) (defun fix-hash-foreach () (interactive) (fix-initializer "hash_foreach *(")) (defun fix-hash-foreach-pair () (interactive) (fix-initializer "hash_foreach_pair *(")) (defun fix-hash-foreach-mem () (interactive) (fix-initializer "hash_foreach_mem *(")) (defun fix-clib-fifo-foreach () (interactive) (fix-initializer "clib_fifo_foreach *(")) (defun fix-clib-bitmap-foreach () (interactive) (fix-initializer "clib_bitmap_foreach *(")) (defun fix-foreach-ip-interface-address () (interactive) (fix-initializer "foreach_ip_interface_address *(")) (defun fix-vlib-register-thread () (interactive) (fix-initializer "VLIB_REGISTER_THREAD *(")) (defun fix-vlib-cli-command () (interactive) (fix-initializer "VLIB_CLI_COMMAND *(")) (defun fix-vlib-register-node () (interactive) (fix-initializer "VLIB_REGISTER_NODE *(")) (defun fix-reply-macro2 () (interactive) (fix-initializer "REPLY_MACRO2 *(")) (defun fix-vnet-device-class () (interactive) (fix-initializer "VNET_DEVICE_CLASS *(")) (defun fix-vnet-hw-interface-class () (interactive) (fix-initializer "VNET_HW_INTERFACE_CLASS *(")) (defun fix-clib-packed () (interactive) (fix-initializer "CLIB_PACKED *(")) (defun fix-vl-api-packed () (interactive) (fix-initializer "VL_API_PACKED *(")) ;; Driver routine which runs the set of functions ;; defined above, as well as the bottom boilerplate function (defun fd-io-styleify () (interactive) (fix-pool-foreach) (fix-pool-foreach-index) (fix-hash-foreach) (fix-hash-foreach-pair) (fix-hash-foreach-mem) (fix-foreach-ip-interface-address) (fix-clib-fifo-foreach) (fix-clib-bitmap-foreach) (fix-vlib-register-thread) (fix-vlib-cli-command) (fix-vlib-register-node) (fix-reply-macro2) (fix-vnet-device-class) (fix-vnet-hw-interface-class) (fix-clib-packed) (fix-vl-api-packed) (insert-style-boilerplate) (if (boundp 'indent-offset-list) (makunbound 'indent-offset-list))) ;; When run as a script, this sexp ;; walks the list of files supplied on the command line. ;; ;; (elt argv index) returns nil if you M-x eval-buffer ;; or M-x load-file the file, so we won't accidentally ;; evaluate (save-buffers-kill-emacs)... (let ((file-index 0)) (if (elt argv file-index) (while (elt argv file-index) (find-file (elt argv file-index)) (fd-io-styleify) (message "Done %s..." (elt argv file-index)) (setq file-index (1+ file-index)))) (if (> file-index 0) (let ((junk 0)) (message "Save and quit...") (save-buffers-kill-emacs t))))