view test/macro.c @ 467:32737bad7489

fix list/tag interference
author kono
date Sat, 30 Jul 2005 16:01:45 +0900
parents 0c256ea2a97e
children a379da780856
line wrap: on
line source

int printf(const char *format, ...);


int heap[100];

#define car(e) (heap[(int)(e)])
#define cadr(e) (heap[((int)(e))+1])

#define TEST
int i;
TEST

char *a = "test" "test";

#define TEST0 33
#define TEST111 TEST0

#define c(a,b)  g(a+1,b+1)
#define g(a,b)  printf("#0016:%d %d\n",a+1,b+1);
#define d(a,b)  cadr(b)+3
/*

    #define stdio stdio
    #define f(a,b) aho+a+b
    f (a,b)
*/

// name concateneation

#define name(a,b)   name_##b(a)

#define name_hoge(c)   (c+a)



main() {
   int a,b,e;

   b = heap[TEST111];
   d(a,b);
   a =1; b = 3;
#ifndef a
   c(a,
      b);
   /* 3,5 expected */
#endif
   e=50; heap[51]=3; heap[3]=4;
   /* 5,4 expected */
#if 0
   g(car(cadr(e)),cadr(e));
#endif
#if 0
   printf("#0050:1\n");
#elif (1)
   printf("#0052:2\n");
#elif (2)
   printf("#0054:3\n");
#else
   printf("#0056:4\n");
#endif
#if 0
   printf("#0059:1\n");
#elif (0)
   printf("#0061:2\n");
#elif (0)
   printf("#0063:3\n");
#else
   printf("#0065:4\n");
#endif
    printf("#0067:%d\n",name(3,hoge));
    return 0;
}

#if 0
#endif /*  whoeh
     wohefwiehfoi */
longlong(int i,int j)
{
//   long long i,j;
   if (i>j) main();
}