Quelle  init.pgc   Sprache: unbekannt

exec sql include sqlca;

enum e { ENUM0, ENUM1 };
struct sa { int member; };

static int fa(void)
{
 printf("in fa\n");
 return 2;
}

static int
fb(int x)
{
 printf("in fb (%d)\n", x);
 return x;
}

static int
fc(const char *x)
{
 printf("in fc (%s)\n", x);
 return *x;
}

static int fd(const char *x,int i)
{
 printf("in fd (%s, %d)\n", x, i);
 return (*x)*i;
}

static int fe(enum e x)
{
 printf("in fe (%d)\n", (int) x);
 return (int)x;
}

static void sqlnotice(const char *notice, short trans)
{
 if (!notice)
  notice = "-empty-";
 printf("in sqlnotice (%s, %d)\n", notice, trans);
}

exec sql define NONO 0;

#define YES 1

#ifdef _cplusplus
namespace N
{
 static const int i=2;
};
#endif

int main(void)
{
 struct sa x = { 14 },*y = &x;
 exec sql begin declare section;
  int a=(int)2;
  int b=2+2;
  int b2=(14*7);
  int d=x.member;
  int g=fb(2);
  int i=3^1;
  int j=1?1:2;

  int e=y->member;
  int c=10>>2;
  bool h=2||1;
  long iay /* = 1L */ ;
 exec sql end declare section;

 int f=fa();

#ifdef _cplusplus
 exec sql begin declare section;
 int k=N::i; /* compile error */
 exec sql end declare section;
#endif

 ECPGdebug(1, stderr);

 printf("%d %d %d %d %d %d %d %d %d %d %d\n", a, b, b2, c, d, e, f, g, h, i, j);
 iay = 0;
 printf("%ld\n", iay);
 exec sql whenever sqlerror do fa();
 exec sql select now();
 exec sql whenever sqlerror do fb(20);
 exec sql select now();
 exec sql whenever sqlerror do fc("50");
 exec sql select now();
 exec sql whenever sqlerror do fd("50",1);
 exec sql select now();
 exec sql whenever sqlerror do fe(ENUM0);
 exec sql select now();
 exec sql whenever sqlerror do sqlnotice(NULL, NONO);
 exec sql select now();
 return 0;
}