src/interfaces/ecpg/test/sql/sqljson_jsontable.pgc - master - balmaster/postgres

src/interfaces/ecpg/test/sql/sqljson_jsontable.pgc

37 строк711 B

Peter Eisentraut

Prevent -Wstrict-prototypes and -Wold-style-definition warnings

16 мар 2026, 12:53

16 мар 2026, 12:53d7ad79e

#include <stdio.h>

EXEC SQL INCLUDE sqlca;
exec sql include ../regression;

EXEC SQL WHENEVER SQLERROR sqlprint;

int
main(void)
{
EXEC SQL BEGIN DECLARE SECTION;
  int foo;
EXEC SQL END DECLARE SECTION;

  ECPGdebug (1, stderr);

  EXEC SQL CONNECT TO REGRESSDB1;
  EXEC SQL SET AUTOCOMMIT = ON;

  EXEC SQL SELECT foo INTO :foo FROM JSON_TABLE(jsonb '[{"foo":1}]', '$[*]' AS p0
	COLUMNS (
			foo int
	)) jt (foo);
  printf("Found foo=%d\n", foo);

  EXEC SQL SELECT foo INTO :foo FROM JSON_TABLE(jsonb '[{"foo":"1"}]', '$[*]' AS p0
	COLUMNS (
		NESTED '$' AS p1 COLUMNS (
			NESTED PATH '$' AS p11 COLUMNS ( foo int )
		)
	)) jt (foo);
  printf("Found foo=%d\n", foo);

  EXEC SQL DISCONNECT;

  return 0;
}