code.delx.au - gnu-emacs-elpa/blob - packages/sm-c-mode/sm-c-mode-test.c

   1 /* -*- sm-c -*- */
   2
   3 #include <toto>
   4
   5 #define toto(arg) /* bla
   6                      bla */ \
   7   if (a) {  /* toto
   8              * titi
   9              */    \
  10     fs((arg) + 2); \
  11   }
  12
  13 #define test(arg) \
  14   (hello + arg)
  15
  16 struct foo
  17   {
  18     int field;
  19   };
  20
  21 struct foo {
  22   int field;
  23 };
  24
  25 struct foo *getfoo (void)
  26 {
  27   return NULL;
  28 }
  29
  30 #define titi(arg) { \
  31     if (a) {        \
  32       f(arg + 1)    \
  33     }               \
  34   }
  35
  36 DEFUN ()
  37   ()
  38 {
  39   return Qnil;
  40 }
  41
  42 int main (void)
  43 {
  44   if (a)
  45     do
  46       if (b)
  47         if (c)
  48           printf ("hello\n");
  49         else
  50           printf ("there\n");
  51       else
  52         printf ("elsewhere\n");
  53     while (6);
  54   else if (b)
  55     printf ("wow\n");
  56   else
  57     if (c)
  58       printf
  59         ("weee\n");
  60     else
  61       printf ("wop\n");
  62
  63   if (a)
  64     if (b) {
  65       c;
  66     }
  67
  68   *a = b;
  69
  70   if (pITORIG != pITCOPY)
  71     *(pITORIG)
  72       = *(pITCOPY);
  73
  74   switch (a)
  75     {
  76     case 1:
  77       {
  78         if (a)
  79           {
  80             y = 5;
  81     case 2:
  82             x = 3;
  83           }
  84       }
  85     }
  86 }
  87
  88 static struct myownspecialstruct *
  89 testfunction
  90   (args)
  91 {
  92   return NULL;
  93 }