/*
 * Copyright 2009 VMware, Inc.
 * All Rights Reserved.
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * on the rights to use, copy, modify, merge, publish, distribute, sub
 * license, and/or sell copies of the Software, and to permit persons to whom
 * the Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice (including the next
 * paragraph) shall be included in all copies or substantial portions of the
 * Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.  IN NO EVENT SHALL
 * VMWARE AND/OR THEIR SUPPLIERS BE LIABLE FOR ANY CLAIM,
 * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
 * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE
 * USE OR OTHER DEALINGS IN THE SOFTWARE.
 */

#include "pipe/p_compiler.h"
#include "pipe/p_format.h"
#include "pipe/p_state.h"
#include "util/u_memory.h"
#include "util/u_debug.h"
#include "util/u_format.h"
#include "util/u_network.h"
#include "util/u_tile.h"
#include "rbug/rbug.h"

static void dump(rbug_texture_t tex,
                 struct rbug_proto_texture_info_reply *info,
                 struct rbug_proto_texture_read_reply *read,
                 int mip)
{
   enum pipe_format format = info->format;
   uint8_t *data = read->data;
   unsigned width = info->width[mip];
   unsigned height = info->height[mip];
   unsigned dst_stride = width * 4 * 4;
   unsigned src_stride = read->stride;
   float *rgba = MALLOC(dst_stride * height);
   int i;
   char filename[512];

   util_snprintf(filename, 512, "%llu_%s_%u.bmp",
                 (unsigned long long)tex, pf_name(info->format), mip);

   if (util_format_is_compressed(info->format)) {
      debug_printf("skipping: %s\n", filename);
      return;
   }

   debug_printf("saving: %s\n", filename);

   for (i = 0; i < height; i++) {
      pipe_tile_raw_to_rgba(format, data + src_stride * i,
                            width, 1,
                            &rgba[width*4*i], dst_stride);
   }

   debug_dump_float_rgba_bmp(filename, width, height, rgba, width);

   FREE(rgba);
}

static void talk()
{
   int c = u_socket_connect("localhost", 13370);
   struct rbug_connection *con = rbug_from_socket(c);
   struct rbug_header *header;
   struct rbug_header *header2;
   struct rbug_proto_texture_list_reply *list;
   struct rbug_proto_texture_info_reply *info;
   struct rbug_proto_texture_read_reply *read;
   int i, j;

   assert(c >= 0);
   assert(con);
   debug_printf("Connection get!\n");

   debug_printf("Sending get textures\n");
   rbug_send_texture_list(con, NULL);

   debug_printf("Waiting for textures\n");
   header = rbug_get_message(con, NULL);
   assert(header->opcode == RBUG_OP_TEXTURE_LIST_REPLY);
   list = (struct rbug_proto_texture_list_reply *)header;

   debug_printf("Got textures:\n");
   for (i = 0; i < list->textures_len; i++) {
      rbug_send_texture_info(con, list->textures[i], NULL);

      header = rbug_get_message(con, NULL);
      assert(header->opcode == RBUG_OP_TEXTURE_INFO_REPLY);
      info = (struct rbug_proto_texture_info_reply *)header;

      for (j = 0; j <= info->last_level; j++) {
         rbug_send_texture_read(con, list->textures[i],
                                0, j, 0,
                                0, 0, info->width[j], info->height[j],
                                NULL);

         header2 = rbug_get_message(con, NULL);
         assert(header2->opcode == RBUG_OP_TEXTURE_READ_REPLY);
         read = (struct rbug_proto_texture_read_reply *)header2;

         dump(list->textures[i], info, read, j);

         rbug_free_header(header2);
      }

      rbug_free_header(header);

   }
   rbug_free_header(&list->header);
   rbug_disconnect(con);
}

int main(int argc, char** argv)
{
   talk();
   return 0;
}