lists.c

/* File name: lists.c */
#include "common.h"

int main() {
  I handle;
  I portnumber= 12345;
  S hostname= "localhost";
  S usernamePassword= "kdb:pass";
  K x;

  handle= khpu(hostname, portnumber, usernamePassword);
  if(!handleOk(handle)) {
    m9();
    return EXIT_FAILURE;
  }

  x= k(handle, "reverse `A`B`C", (K) 0);
  if(isRemoteErr(x)) {
    kclose(handle);
    m9();
    return EXIT_FAILURE;
  }

  printf("Symbols: %s %s %s\n", kS(x)[0], kS(x)[1], kS(x)[2]);
  r0(x);
  x= k(handle, "reverse 1 2 3", (K) 0);
  if(isRemoteErr(x)) {
    kclose(handle);
    m9();
    return EXIT_FAILURE;
  }

  printf("Ints: %lld %lld %lld\n", kJ(x)[0], kJ(x)[1], kJ(x)[2]);
  r0(x);
  x= k(handle, "reverse 1.0 2.0 3.0", (K) 0);
  if(isRemoteErr(x)) {
    kclose(handle);
    m9();
    return EXIT_FAILURE;
  }

  printf("Floats: %f %f %f\n", kF(x)[0], kF(x)[1], kF(x)[2]);
  r0(x);

  kclose(handle);
  m9();
  return EXIT_SUCCESS;
}