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 typedef struct bar {
  26   int field;
  27 } *BarPtr;
  28
  29 struct foo *getfoo (void)
  30 {
  31   return NULL;
  32 }
  33
  34 #define titi(arg) { \
  35     if (a) {        \
  36       f(arg + 1)    \
  37     }               \
  38   }
  39
  40 DEFUN ()
  41   ()
  42 {
  43   return Qnil;
  44 }
  45
  46 int main (void)
  47 {
  48   if (a)
  49     do
  50       if (b)
  51         if (c)
  52           printf ("hello\n");
  53         else
  54           printf ("there\n");
  55       else
  56         printf ("elsewhere\n");
  57     while (6);
  58   else if (b)
  59     printf ("wow\n");
  60   else
  61     if (c)
  62       printf
  63         ("weee\n");
  64     else
  65       printf ("wop\n");
  66
  67   if (a)
  68     if (b) {
  69       c;
  70     }
  71
  72   *a = b;
  73
  74   if (pITORIG != pITCOPY)
  75     *(pITORIG)
  76       = *(pITCOPY);
  77
  78   switch (a)
  79     {
  80     case 1:
  81       {
  82         if (a)
  83           {
  84             y = 5;
  85     case 2:
  86             x = 3;
  87           }
  88       }
  89     }
  90 }
  91
  92 static struct myownspecialstruct *
  93 testfunction
  94   (args)
  95 {
  96   return NULL;
  97 }