#include <stdio.h>
#include <stdlib.h>
#include <ssdef.h>
#include <descrip.h>
#include "sys$examples:bapidef.h"

/*
** Define a fixed size (simple) structure for specifying the
** BACKUP operation.
*/
typedef struct _buf_arg
               {
                bck_opt_struct_flag arg1;
                bck_opt_struct_flag arg2;
                bck_opt_struct_flag arg3;
                bck_opt_struct_flag arg4;
                bck_opt_struct_dsc arg5;
                bck_opt_struct_dsc arg6;
                bck_opt_struct_flag arg7;
                bck_opt_struct_flag arg8;
                bck_opt_struct_adr arg9;
                bck_opt_struct_adr arg10;
                bck_opt_struct_adr arg11;
                bck_opt_struct_flag arg12;
                bck_opt_struct_flag arg13;
               } buf_arg;


struct dsc$descriptor
               input_dsc,
               output_dsc,
               event_type_dsc;
buf_arg myarg_buff;
unsigned int status;

extern unsigned int backup$start(buf_arg  *myarg_buff);
unsigned int subtest(bckEvent *param);

static char  input_str[]      = "APITEST1_IN:";
static char  output_str1[]      = "APITEST1_OUT:a.bck";
static char  output_str2[]      = "APITEST2_OUT:";

main()
{
 myarg_buff.arg1.option_type = BCK_OPT_K_ALIAS;
 myarg_buff.arg1.opt_flag_value = TRUE;

 myarg_buff.arg2.option_type = BCK_OPT_K_VERIFY;
 myarg_buff.arg2.opt_flag_value = TRUE;

 myarg_buff.arg3.option_type = BCK_OPT_K_CRC;
 myarg_buff.arg3.opt_flag_value = TRUE;

 myarg_buff.arg4.option_type = BCK_OPT_K_LOG;
 myarg_buff.arg4.opt_flag_value = TRUE;

 myarg_buff.arg5.opt_dsc_type = BCK_OPT_K_INPUT;
 myarg_buff.arg5.opt_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
 myarg_buff.arg5.opt_dsc.dsc$b_class = DSC$K_CLASS_S;
 myarg_buff.arg5.opt_dsc.dsc$w_length = sizeof(input_str) - 1;
 myarg_buff.arg5.opt_dsc.dsc$a_pointer = input_str;


 myarg_buff.arg6.opt_dsc_type = BCK_OPT_K_OUTPUT;
 myarg_buff.arg6.opt_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
 myarg_buff.arg6.opt_dsc.dsc$b_class = DSC$K_CLASS_S;
 myarg_buff.arg6.opt_dsc.dsc$w_length = sizeof(output_str1) - 1;
 myarg_buff.arg6.opt_dsc.dsc$a_pointer = output_str1;

 myarg_buff.arg7.option_type = BCK_OPT_K_SAVE_SET_OUT;
 myarg_buff.arg7.opt_flag_value = TRUE;

 myarg_buff.arg8.option_type = BCK_OPT_K_OPERATION_TYPE;
 myarg_buff.arg8.opt_flag_value = BCK_OP_K_SAVE ;

 myarg_buff.arg9.opt_adr_type = BCK_OPT_K_EVENT_CALLBACK;
 myarg_buff.arg9.opt_adr_attributes = BCK_EVENT_K_LOG;
 myarg_buff.arg9.opt_adr_value[0] = (int *)subtest;
 myarg_buff.arg9.opt_adr_value[1] = 0;


 /*
 ** Specify that this application will handle user-visible messages.
 ** (The operation phase, and user/file-logging messages.)
 */
 myarg_buff.arg10.opt_adr_type = BCK_OPT_K_EVENT_CALLBACK;
 myarg_buff.arg10.opt_adr_attributes = BCK_EVENT_K_OP_PHASE;
 myarg_buff.arg10.opt_adr_value[0] = (int *)subtest;
 myarg_buff.arg10.opt_adr_value[1] = 0;

 myarg_buff.arg11.opt_adr_type = BCK_OPT_K_EVENT_CALLBACK;
 myarg_buff.arg11.opt_adr_attributes = BCK_EVENT_K_USER_MSG;
 myarg_buff.arg11.opt_adr_value[0] = (int *)subtest;
 myarg_buff.arg11.opt_adr_value[1] = 0;


 /*
 ** Indicate the end of options that specify the BACKUP operation
 ** to be performed.
 */
 myarg_buff.arg12.option_type = BCK_OPT_K_END_OPT;
 myarg_buff.arg12.opt_flag_value = FALSE;

 /*
 ** Notes:
 **  An extra option structure (# 13) was allocated for testing.
 **
 **  The DCL command analogous to the following BACKUP API call
 ** is illustrated below.
 **
 ** "$ BACKUP/LOG/VERIFY/CRC/ALIAS APITEST1_IN:*.*;* -"
 ** "_$  APITEST1_OUT:a.bck/SAVE_SET "
 */


        status = backup$start(&myarg_buff);

 if (! (status & 1))
 {
     exit (status);  /* EXIT if the first part of the test failed. */
 }

 /*
 **  Now use the resultant saveset to perform a restore operation.
 */

 /*
 **  Change the input string to specify the saveset, ("output_str1").
 */
 myarg_buff.arg5.opt_dsc.dsc$w_length = sizeof(output_str1) - 1;
 myarg_buff.arg5.opt_dsc.dsc$a_pointer = output_str1;


 /*
 **  Change the output string to specify the output device/directory).
 */
 myarg_buff.arg6.opt_dsc.dsc$w_length = sizeof(output_str2) - 1;
 myarg_buff.arg6.opt_dsc.dsc$a_pointer = output_str2;

 /*
 **  Change the option to denote it is now an input saveset,
 **  (not an output saveset).
 */
 myarg_buff.arg7.option_type = BCK_OPT_K_SAVE_SET_IN;


 /*
 **  Change the option to specify a restore operation,
 **  (not a save operation).
 */
 myarg_buff.arg8.opt_flag_value = BCK_OP_K_RESTORE;

 /*
 **  The DCL command analogous to the following BACKUP API call
 ** is illustrated below.
 **
 ** "$ BACKUP/LOG/VERIFY/CRC/ALIAS APITEST1_OUT:a.bck/SAVE_SET -"
 ** "_$  APITEST2_OUT:*.*;*"
 */

 status = backup$start(&myarg_buff);

        exit (status);
}


unsigned int subtest(bckEvent *param)
{

 printf("\n BACKUP API Event Type = %d,\n",param->bckevt_l_event_type);
 printf("               Subtype = %d\n",param->bckevt_l_event_subtype);

 if (param->bckevt_l_event_type == BCK_EVENT_K_LOG)
 {
     printf(" BACKUP API LOG Event item:\n %.*s\n",
      param->bckevt_r_event_buffer.dsc$w_length,
      param->bckevt_r_event_buffer.dsc$a_pointer);
 }


 if (param->bckevt_l_event_type == BCK_EVENT_K_OP_PHASE)
 {
     printf(" BACKUP API Operation Phase Event\n %.*s\n",
      param->bckevt_r_event_buffer.dsc$w_length,
      param->bckevt_r_event_buffer.dsc$a_pointer);
 }

 fflush(stdout);

        return (1);
}