workbench/system/Wanderer/Tools/DiskInfo/support.c

   1 /*
   2     Copyright © 2005-2009, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <exec/memory.h>
   7 #include <dos/var.h>
   8
   9 #include <proto/exec.h>
  10 #include <proto/dos.h>
  11 #include <proto/muimaster.h>
  12
  13 #include <ctype.h>
  14
  15 #include "locale.h"
  16 #include "support.h"
  17
  18 #include <stdio.h>
  19
  20 STRPTR GetENV(CONST_STRPTR name)
  21 {
  22     UBYTE  dummy = 0;
  23     STRPTR value = NULL;
  24
  25     /* Check that the variable exists, and get the length */
  26     if (GetVar(name, &dummy, 1, GVF_GLOBAL_ONLY) != -1)
  27     {
  28         ULONG length = IoErr() + 1;
  29
  30         if ((value = AllocVec(length, MEMF_ANY)) != NULL)
  31         {
  32             if (GetVar(name, value, length, GVF_GLOBAL_ONLY) == -1)
  33             {
  34                 FreeVec(value);
  35                 value = NULL;
  36             }
  37         }
  38     }
  39
  40     return value;
  41 }
  42
  43 BOOL SetENV(CONST_STRPTR name, CONST_STRPTR value)
  44 {
  45     return SetVar(name, value, -1, GVF_GLOBAL_ONLY);
  46 }
  47
  48 VOID ShowError(Object *application, Object *window, CONST_STRPTR message, BOOL useIOError)
  49 {
  50     TEXT   buffer[128];
  51     STRPTR newline = "\n",
  52            period  = ".",
  53            extra   = buffer;
  54
  55     /* Never use IO error if it is 0 */
  56     if (IoErr() == 0) useIOError = FALSE;
  57
  58     if (useIOError)
  59     {
  60         Fault(IoErr(), NULL, buffer, sizeof(buffer));
  61         buffer[0] = toupper(buffer[0]);
  62     }
  63     else
  64     {
  65         newline = "";
  66         period  = "";
  67         extra   = "";
  68     }
  69
  70     MUI_Request
  71     (
  72         application, window, 0, _(MSG_TITLE), _(MSG_ERROR_OK),
  73         "%s:\n%s%s%s%s", _(MSG_ERROR_HEADER), message, newline, extra, period
  74     );
  75 }
  76
  77 ULONG FormatSize(STRPTR buffer, ULONG blocks, ULONG totalblocks, ULONG bytesperblock, BOOL showPercentage)
  78 {
  79     static STRPTR suffixes[] = {" bytes", "K", "M", "G", "T", "P"};
  80     DOUBLE internalsize = (DOUBLE)((UQUAD)blocks * bytesperblock);
  81     ULONG divcount = 0;
  82     ULONG percentage;
  83
  84     if (totalblocks != 0)
  85         percentage = 100 * blocks / totalblocks;
  86     else
  87         percentage = 100;
  88
  89     while (internalsize > 1024)
  90     {
  91         internalsize /= 1024;
  92         divcount++;
  93     }
  94
  95     if (!showPercentage)
  96         sprintf(buffer, "%.1f%s  (%d %s)", internalsize, suffixes[divcount], (int)blocks, _(MSG_BLOCKS) );
  97     else
  98         sprintf(buffer, "%.1f%s  (%d %s, %d%%)", internalsize, suffixes[divcount], (int)blocks, _(MSG_BLOCKS), (int)percentage);
  99
 100     return percentage;
 101 }