Visual Servoing Platform  version 3.6.1 under development (2024-11-15)
vpSkipio.cpp
1 /****************************************************************************
2  *
3  * ViSP, open source Visual Servoing Platform software.
4  * Copyright (C) 2005 - 2023 by Inria. All rights reserved.
5  *
6  * This software is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  * See the file LICENSE.txt at the root directory of this source
11  * distribution for additional information about the GNU GPL.
12  *
13  * For using ViSP with software that can not be combined with the GNU
14  * GPL, please contact Inria about acquiring a ViSP Professional
15  * Edition License.
16  *
17  * See https://visp.inria.fr for more information.
18  *
19  * This software was developed at:
20  * Inria Rennes - Bretagne Atlantique
21  * Campus Universitaire de Beaulieu
22  * 35042 Rennes Cedex
23  * France
24  *
25  * If you have questions regarding the use of this file, please contact
26  * Inria at visp@inria.fr
27  *
28  * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
29  * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
30  *
31  * Description:
32  * Le module "skipio.c" contient les procedures d'analyse
33  * syntaxique du fichier "source" qui permettent de traiter
34  * les commandes inconnues.
35  *
36  * Authors:
37  * Jean-Luc CORRE
38  *
39 *****************************************************************************/
40 
41 #include <visp3/core/vpConfig.h>
42 
43 #ifndef DOXYGEN_SHOULD_SKIP_THIS
44 #include "vpLex.h"
45 #include "vpMy.h"
46 #include "vpSkipio.h"
47 #include "vpToken.h"
48 #include <stdio.h>
49 
50 BEGIN_VISP_NAMESPACE
51 /*
52  * La procedure "skip_cmd" saute les structures d'une commande
53  * jusqu'a reconnaitre le debut d'une nouvelle commande.
54  * Entree :
55  * f Fichier en sortie.
56  */
57 void skip_cmd(void)
58 {
59  int token;
60 
61  fprintf(stderr, "\n$ ");
62  fwrite(mytext, (size_t)mylength, 1, stderr);
63  while ((token = lexecho(stderr, '$')) != T_EOF && token != '$') {
64  };
65  unlex();
66 }
67 
68 /*
69  * La procedure "skip_keyword" saute les structures des articles
70  * jusqu'a reconnaitre le mot cle de jeton "token".
71  * Entree :
72  * token Jeton du mot cle a reconnaitre.
73  * err Message d'erreur si le mot cle n'est pas reconnu.
74  */
75 void skip_keyword(int token, const char *err)
76 {
77  int t;
78 
79  switch (t = lex()) {
80  case T_IDENT: /* saute le mot cle inconnu */
81  while ((t = lex()) != 0) {
82  switch (t) {
83  case '$': /* nouvelle commande */
84  case T_EOF: /* fin de fichier */
85  lexerr("start", err, NULL);
86  break;
87  default:
88  if (t == token)
89  return;
90  break;
91  }
92  }
93  break;
94  default:
95  if (t == token)
96  return;
97  break;
98  }
99  lexerr("start", err, NULL);
100 }
101 END_VISP_NAMESPACE
102 #endif