workbench/tools/debug/bifteck/Bifteck.c

   1 /*
   2       Copyright © 2009-2012, The AROS Development Team. All rights reserved.
   3       $Id$
   4
   5       Bifteck -- Retrieves memory-stored debug output.
   6 */
   7
   8 #include <exec/memory.h>
   9 #include <dos/dos.h>
  10
  11 #include <proto/exec.h>
  12 #include <proto/dos.h>
  13
  14 struct Args
  15 {
  16      TEXT *to;
  17 };
  18
  19 struct LogBlock
  20 {
  21       struct MinNode node;
  22       ULONG length;    /* number of data bytes that follow */
  23 };
  24
  25 struct LogData
  26 {
  27       struct SignalSemaphore lock;
  28       struct MinList buffers;
  29       struct LogBlock *block;
  30       ULONG block_pos;
  31       APTR pool;
  32 };
  33
  34 static TEXT GetLogChar(struct LogData *data, struct LogBlock **block,
  35      ULONG *pos);
  36
  37 const TEXT template[] = "TO/K";
  38 const TEXT version_string[] = "$VER: Bifteck 41.2 (30.8.2012)";
  39 #if (0)
  40 static const TEXT data_name[] = "bifteck";
  41 #endif
  42
  43 LONG main(VOID)
  44 {
  45     struct RDArgs *read_args;
  46     LONG error = 0, result = RETURN_OK;
  47     BPTR output;
  48     struct Args args = {NULL};
  49     struct LogData *data;
  50     struct LogBlock *block;
  51     ULONG pos = 0;
  52     TEXT ch, old_ch = '\n';
  53
  54     /* Parse arguments */
  55
  56     read_args = ReadArgs(template, (SIPTR *)&args, NULL);
  57
  58     /* Get buffer */
  59
  60     Forbid();
  61     data = (struct LogData *)FindSemaphore("bifteck");
  62     Permit();
  63
  64     if (read_args != NULL && data != NULL)
  65     {
  66         ObtainSemaphore(&data->lock);
  67         block = (struct LogBlock *)data->buffers.mlh_Head;
  68
  69         /* Get destination */
  70
  71         if (args.to != NULL)
  72             output = Open(args.to, MODE_NEWFILE);
  73         else
  74             output = Output();
  75
  76         /* Type debug log */
  77
  78         if (output != (BPTR)NULL)
  79         {
  80             while ((ch = GetLogChar(data, &block, &pos)) != '\0' && error == 0)
  81             {
  82                 FPutC(output,ch);
  83                 if (SetSignal(0, SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C)
  84                     error = ERROR_BREAK;
  85                 old_ch = ch;
  86             }
  87             error = IoErr();
  88
  89             if (old_ch != '\n')
  90                 FPutC(output, '\n');
  91         }
  92         else
  93         {
  94             result = RETURN_FAIL;
  95             error = IoErr();
  96         }
  97
  98         /* Close the destination file */
  99
 100         if (args.to != NULL && output != BNULL)
 101             Close(output);
 102
 103         ReleaseSemaphore(&data->lock);
 104     }
 105     else
 106     {
 107         result = RETURN_FAIL;
 108         if (read_args != NULL && data == NULL)
 109         {
 110             PutStr("Debug data not found. "
 111                 "Add \"debug=memory\" to boot options.\n");
 112             error = ERROR_OBJECT_NOT_FOUND;
 113         }
 114         else
 115             error = IoErr();
 116     }
 117
 118     FreeArgs(read_args);
 119
 120     /* Print any error message and exit */
 121
 122     if (result == RETURN_OK)
 123         SetIoErr(0);
 124     else
 125         PrintFault(error, NULL);
 126
 127      return result;
 128 }
 129
 130
 131 static TEXT GetLogChar(struct LogData *data, struct LogBlock **block,
 132      ULONG *pos)
 133 {
 134     TEXT ch = '\0';
 135
 136     /* Move on to next block if necessary */
 137
 138     if (*pos == (*block)->length)
 139     {
 140         *block = (struct LogBlock *)(*block)->node.mln_Succ;
 141         *pos = 0;
 142     }
 143
 144     /* Retrieve a character if the current block is valid and we're not past
 145        the used portion of the last block. Assume that block_pos is updated
 146        atomically */
 147
 148     if ((*block)->node.mln_Succ != NULL
 149         && (*block != data->block || *pos < data->block_pos))
 150         ch = ((UBYTE *)*block)[sizeof(struct LogBlock) + (*pos)++];
 151
 152      return ch;
 153 }
 154
 155