SetPBoxes

/* Copyright 1998 Acorn Computers Ltd
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */
/***************************************************/
/* File   : SetPBoxes.c                            */
/*                                                 */
/* Purpose: Functions relating to the Set Post_In  */
/*          / Post_Out dialogue box.               */
/*                                                 */
/* Author : A.D.Hodgkinson                         */
/*                                                 */
/* History: 19-Mar-98: Created.                    */
/***************************************************/

#include <stdlib.h>
#include <string.h>

#include "swis.h"

#include "wimp.h"
#include "wimplib.h"
#include "event.h"

#include "toolbox.h"
#include "window.h"

#include "svcprint.h"
#include "Global.h"
#include "Utils.h"

#include "Multiuser.h"
#include "Save.h"

#include "SetPBoxes.h"

/* This doesn't do much unless in a multiuser build... */

#ifndef SINGLE_USER

  /* Local statics */

  static ObjectId dbox = NULL_ObjectId;

  /* Static function prototypes */

  static int setpboxes_ok     (int eventcode, ToolboxEvent * event, IdBlock * idb, void * handle);
  static int setpboxes_cancel (int eventcode, ToolboxEvent * event, IdBlock * idb, void * handle);

  /*************************************************/
  /* setpboxes_check_boxes()                       */
  /*                                               */
  /* Find out whether !Post_In and !Post_Out, set  */
  /* in choices.post_in and choices.post_out, are  */
  /* at least readable as directories or image     */
  /* files.                                        */
  /*                                               */
  /* Parameters: Pointer to an int, in which 1 is  */
  /*             written if Post_In is readable as */
  /*             a directory or image file, else 0 */
  /*             is written;                       */
  /*                                               */
  /*             Similarly, pointer to an int for  */
  /*             Post_Out.                         */
  /*                                               */
  /* Assumes:    Either int pointer may be NULL.   */
  /*************************************************/

  void setpboxes_check_boxes(int * in, int * out)
  {
    int attr;
    int in_ok  = 0;
    int out_ok = 0;

    /* Which can't we find - Post_In, Post_Out or both? */

    _swix(OS_File,
          _INR(0,1) | _OUT(0),

          17,              /* Read catalogue info for named object */
          choices.post_in,

          &attr);

    if (attr == 2 || attr == 3) in_ok = 1; /* 2 = dir, 3 = image file (so could be dir) */

    _swix(OS_File,
          _INR(0,1) | _OUT(0),

          17,              /* Read catalogue info for named object */
          choices.post_out,

          &attr);

    if (attr == 2 || attr == 3) out_ok = 1; /* 2 = dir, 3 = image file (so could be dir) */

    /* Return the values */

    if (in)  *in  = in_ok;
    if (out) *out = out_ok;

    return;
  }

  /*************************************************/
  /* setpboxes_show_dialogue()                     */
  /*                                               */
  /* Create, fill in and show the SetPBoxes        */
  /* dialogue box.                                 */
  /*************************************************/

  _kernel_oserror * setpboxes_show_dialogue(void)
  {
    char help_panel[Limits_Help];

    int  in_ok  = 0;
    int  out_ok = 0;

    setpboxes_check_boxes(&in_ok, &out_ok);

    /* Show the 'question mark' icon bar icon */

    show_error_ret(multiuser_set_iconbar_variant("q"));

    /* Create the dialogue box */

    RetError(toolbox_create_object(0,
                                   "SetPBoxes",
                                   &dbox));

    /* Fill in the main writable. First compile the text. */

    StrNCpy0(help_panel,
             lookup_token("SPB1:The browser cannot find \"",
                          0,
                          0));

    /* We either have only Post_In, only Post_Out or neither. If */
    /* we have both, assume someone called by accident or in a   */
    /* panic, so treat as if none could be found.                */

    if (in_ok && !out_ok)
    {
      /* No Post_Out */

      if (
           strlen(help_panel) + sizeof("!Post_Out") < sizeof(help_panel)
         )
         strcat(help_panel, "!Post_Out");
    }
    else if (!in_ok && out_ok)
    {
      /* No Post_In */

      if (
           strlen(help_panel) + sizeof("!Post_In") < sizeof(help_panel)
         )
         strcat(help_panel, "!Post_In");
    }
    else
    {
      /* Neither or both (treat latter as neither, see above) */

      if (
           strlen(help_panel) + sizeof("!Post_In") < sizeof(help_panel)
         )
         strcat(help_panel, "!Post_In");

      if (
           strlen(help_panel) + strlen(lookup_token("SPB2:\" or \"",0,0)) + 1 < sizeof(help_panel)
         )
         strcat(help_panel, tokens);

      if (
           strlen(help_panel) + sizeof("!Post_Out") < sizeof(help_panel)
         )
         strcat(help_panel, "!Post_Out");
    }

    if (
         strlen(help_panel)

         + strlen(lookup_token("SPB3:\". To set the locations of either, drag them to the writable icons below or type in their filenames directly. Then click on 'Set'.",
                  0,
                  0))
         + 1

         < sizeof(help_panel)
       )
       strcat(help_panel, tokens);

    /* Now put it into the icon */

    button_set_value(0,
                     dbox,
                     SetPBoxes_Prompt,
                     help_panel);

    /* Fill in the writables. Errors on setting are ignored, but   */
    /* errors on reading are not, so these gadgets must be present */
    /* (write errors are ignored in case the path happens to be    */
    /* too long for the buffer, say, which isn't necessarily fatal */
    /* if the path is going to be reset anyway).                   */

    writablefield_set_value(0,
                            dbox,
                            SetPBoxes_InWrit,
                            choices.post_in);

    writablefield_set_value(0,
                            dbox,
                            SetPBoxes_OutWrit,
                            choices.post_out);

    /* Event handlers */

    RetError(event_register_toolbox_handler(dbox,
                                            ESetPBoxes_OK,
                                            setpboxes_ok,
                                            NULL));

    RetError(event_register_toolbox_handler(dbox,
                                            ESetPBoxes_Cancel,
                                            setpboxes_cancel,
                                            NULL));

    /* Open the dialogue */

    return toolbox_show_object(0,
                               dbox,
                               Toolbox_ShowObject_Centre,
                               NULL,
                               NULL_ObjectId,
                               NULL_ComponentId);
  }

  /*************************************************/
  /* setpboxes_check_message()                     */
  /*                                               */
  /* Check to see if a Wimp_MDataLoad is for the   */
  /* writables in the Set Post_In / Post_Out       */
  /* dialogue box or not. If so, deal with it.     */
  /*                                               */
  /* Parameters: Pointer to a WimpMessage block    */
  /*             containing a Wimp_MDataLoad.      */
  /*                                               */
  /* Returns:    1 if the message was of interest, */
  /*             else 0.                           */
  /*************************************************/

  int setpboxes_check_message(WimpMessage * m)
  {
    int          window;

    int          icon_in  [2];
    int          icon_out [2];

    const char * name = m->data.data_load.leaf_name;

    if (dbox == NULL_ObjectId) return 0;

    /* Check the window handle */

    if (
         window_get_wimp_handle(0,
                                dbox,
                                &window)
       )
       return 0;

    if (window != m->data.data_load.destination_window) return 0;

    /* We swallow the message either way now, but still need to */
    /* check which icon it was dropped over.                    */

    if (
         gadget_get_icon_list(0,
                              dbox,
                              SetPBoxes_InWrit,
                              icon_in,
                              sizeof(icon_in),
                              NULL)
       )
       return 1;

    if (
         gadget_get_icon_list(0,
                              dbox,
                              SetPBoxes_OutWrit,
                              icon_out,
                              sizeof(icon_out),
                              NULL)
       )
       return 1;

    /* Deal with a drop on the Post_In writable */

    if (icon_in[0] == m->data.data_load.destination_icon)
    {
      const char * d = strrchr(name, '.');
      const char * f = strstr(name, ".!Post_In");

      if (d == f)
      {
        show_error_ret(writablefield_set_value(0,
                                               dbox,
                                               SetPBoxes_InWrit,
                                               (char *) name));
      }
    }

    /* Deal with a drop on the Post_Out writable */

    else if (icon_out[0] == m->data.data_load.destination_icon)
    {
      const char * d = strrchr(name, '.');
      const char * f = strstr(name, ".!Post_Out");

      if (d == f)
      {
        show_error_ret(writablefield_set_value(0,
                                               dbox,
                                               SetPBoxes_OutWrit,
                                               (char *) name));
      }
    }

    /* Exit, saying we dealt with the message */

    return 1;
  }

  /*************************************************/
  /* setpboxes_ok()                                */
  /*                                               */
  /* Handle ESetPBoxes_OK events, usually from a   */
  /* click on the 'OK' / 'Set' button in the       */
  /* Set Post_In / Post_Out dialogue box.          */
  /*                                               */
  /* Parameters are as standard for a Toolbox      */
  /* event handler.                                */
  /*************************************************/

  static int setpboxes_ok(int eventcode, ToolboxEvent * event, IdBlock * idb, void * handle)
  {
    char path[Limits_Multi_Pathname];

    int  in_ok  = 0;
    int  out_ok = 0;

    /* Read Post_In */

    *path = 0;

    show_error_ret(writablefield_get_value(0,
                                           idb->self_id,
                                           SetPBoxes_InWrit,
                                           path,
                                           sizeof(path),
                                           NULL));

    /* Allocate memory for this in choices.post_in */

    free(choices.post_in);

    choices.post_in = malloc(strlen(path) + 1);
    if (choices.post_in) strcpy(choices.post_in, path);

    /* Read Post_Out */

    *path = 0;

    show_error_ret(writablefield_get_value(0,
                                           idb->self_id,
                                           SetPBoxes_OutWrit,
                                           path,
                                           sizeof(path),
                                           NULL));

    /* Allocate memory for this in choices.post_in */

    free(choices.post_out);

    choices.post_out = malloc(strlen(path) + 1);
    if (choices.post_out) strcpy(choices.post_out, path);

    /* If either allocation failed, complain and shut down */

    if (
         !choices.post_in  ||
         !choices.post_out
       )
    {
      show_error(make_no_memory_error(33));

      /* Just in case someone changes the behaviour above to not exit, */
      /* we should return cleanly here                                 */

      return 1;
    }

    /* If we have an invalid post_in or post_out, complain and */
    /* leave the dialogue box up.                              */

    if (
         *choices.post_in  &&
         *choices.post_out
       )
       setpboxes_check_boxes(&in_ok, &out_ok);

    if (!in_ok || !out_ok)
    {
      erb.errnum = Utils_Error_Custom_Message;

      StrNCpy0(erb.errmess,
               lookup_token("NoPBoxSet:You must set a valid location for both !Post_In and !Post_Out.",
                            0,
                            0));

      show_error_ret(&erb);

      return 1;
    }

    /* Post_In / Post_Out OK, so get rid of the dialogue box */

    event_deregister_toolbox_handlers_for_object(idb->self_id);
    toolbox_delete_object(0, idb->self_id);

    /* Save the settings */

    show_error_ret(save_save_choices(NULL));

    /* Show the log in prompt */

    show_error(multiuser_login());

    return 1;
  }

  /*************************************************/
  /* setpboxes_cancel()                            */
  /*                                               */
  /* Handle ESetPBoxes_Cancel events, usually from */
  /* a click on the 'Cancel' / 'Exit' button in    */
  /* the Set Post_In / Post_Out dialogue box.      */
  /*                                               */
  /* NB This will quit the browser through calling */
  /* exit(EXIT_SUCCESS)!                           */
  /*                                               */
  /* Parameters are as standard for a Toolbox      */
  /* event handler.                                */
  /*************************************************/

  static int setpboxes_cancel(int eventcode, ToolboxEvent * event, IdBlock * idb, void * handle)
  {
    /* Tidy up, in case someone later wants this code to keep */
    /* the browser alive rather than shutting it down.        */

    event_deregister_toolbox_handlers_for_object(idb->self_id);
    toolbox_delete_object(0, idb->self_id);

    /* Quit */

    exit(EXIT_SUCCESS);

    /* Keep compiler happy */

    return 1;
  }

#endif