workbench/classes/datatypes/picture/support.c

   1 /**********************************************************************
   2  text.datatype - (c) 2000 by Sebastian Bauer
   3
   4  This module provides some support functions
   5 ***********************************************************************/
   6
   7 #include <string.h>
   8
   9 #include <proto/exec.h>
  10 #include <proto/dos.h>
  11 #include <proto/iffparse.h>
  12
  13 #ifndef __AROS__
  14 #ifdef __SASC
  15
  16 /* sprintf replacements for SAS C (shorter code, currently not used
  17    anywhere in the code) */
  18 #ifdef UNUSED
  19 STATIC VOID SR_CopyFunc(VOID)
  20 {
  21     __emit(0x16c0);             /* MOVE.B  D0,(A3)+ */
  22 }
  23
  24 int sprintf(char *buf, const char *fmt,...)
  25 {
  26     RawDoFmt((STRPTR) fmt, (STRPTR *) & fmt + 1, (void (*)()) SR_CopyFunc, buf);
  27     return 1;
  28 }
  29 #endif /* UNUSED */
  30 #endif /* __SASC */
  31 #endif /* __AROS__ */
  32
  33 /**************************************************************************************************/
  34
  35 struct MinNode *Node_Next(APTR node)
  36 {
  37     if(node == NULL) return NULL;
  38     if(((struct MinNode*)node)->mln_Succ == NULL) return NULL;
  39     if(((struct MinNode*)node)->mln_Succ->mln_Succ == NULL)
  40         return NULL;
  41
  42     return ((struct MinNode*)node)->mln_Succ;
  43 }
  44
  45 /**************************************************************************************************/
  46
  47 struct MinNode *Node_Prev(APTR node)
  48 {
  49     if(node == NULL) return NULL;
  50     if(((struct MinNode*)node)->mln_Pred == NULL) return NULL;
  51     if(((struct MinNode*)node)->mln_Pred->mln_Pred == NULL)
  52         return NULL;
  53
  54     return ((struct MinNode*)node)->mln_Pred;
  55 }
  56
  57
  58 /**************************************************************************************************/
  59
  60 struct MinNode *List_First(APTR list)
  61 {
  62     if( !((struct MinList*)list)->mlh_Head) return NULL;
  63     if(((struct MinList*)list)->mlh_Head->mln_Succ == NULL) return NULL;
  64
  65     return ((struct MinList*)list)->mlh_Head;
  66 }
  67
  68 /**************************************************************************************************/
  69
  70 #if 0
  71
  72 struct MinNode *List_Last(APTR list)
  73 {
  74     if( !((struct MinList*)list)->mlh_TailPred) return NULL;
  75     if(((struct MinList*)list)->mlh_TailPred->mln_Pred == NULL) return NULL;
  76
  77     return ((struct MinList*)list)->mlh_TailPred;
  78 }
  79
  80 #endif
  81
  82 /**************************************************************************************************/
  83
  84 #if 0
  85
  86 ULONG List_Length(APTR list)
  87 {
  88     struct MinNode *node = List_First(list);
  89     ULONG          len=0;
  90
  91     while(node)
  92     {
  93         len++;
  94         node = Node_Next(node);
  95     }
  96
  97     return len;
  98 }
  99
 100 #endif
 101
 102 /**************************************************************************************************/
 103
 104 #if 0
 105
 106 struct MinNode *List_Find(APTR list, ULONG num)
 107 {
 108     struct MinNode *node = List_First(list);
 109
 110     while(num--)
 111     {
 112         if(!(node = Node_Next(node))) break;
 113     }
 114
 115     return node;
 116 }
 117
 118 #endif
 119
 120
 121 /**************************************************************************
 122  Dupplicates a string
 123 **************************************************************************/
 124 STRPTR StrCopy( const STRPTR str )
 125 {
 126     STRPTR dst;
 127
 128     if( !str ) return NULL;
 129     if( !*str) return NULL;
 130
 131     dst = (STRPTR)AllocVec(strlen(str) + 1, 0);
 132     if(dst) strcpy(dst, str);
 133
 134     return dst;
 135 }
 136
 137 /**************************************************************************
 138  Returns the size of a file
 139 **************************************************************************/
 140 LONG GetFileSize( BPTR fileh )
 141 {
 142     struct FileInfoBlock *fib = (struct FileInfoBlock*)AllocDosObject( DOS_FIB, NULL );
 143     LONG                 size = -1;
 144
 145     if (fib)
 146     {
 147         if (ExamineFH( fileh, fib ))
 148         {
 149             if ((fib->fib_DirEntryType > 0) && (fib->fib_DirEntryType != ST_SOFTLINK))
 150             {
 151                 size = 0;
 152             }
 153             size = fib->fib_Size;
 154         }
 155         FreeDosObject( DOS_FIB, fib );
 156     }
 157
 158     return size;
 159 }
 160
 161 /**************************************************************************
 162  Prepares the clipboard so that text can be written into it
 163 **************************************************************************/
 164 struct IFFHandle *PrepareClipboard(void)
 165 {
 166     struct IFFHandle *iff = AllocIFF();
 167
 168     if(iff)
 169     {
 170         if((iff->iff_Stream = (ULONG) OpenClipboard (0)))
 171         {
 172             InitIFFasClip(iff);
 173             if(!OpenIFF(iff,IFFF_WRITE))
 174             {
 175                 if(!PushChunk(iff, MAKE_ID('F','T','X','T'), MAKE_ID('F','O','R','M'), IFFSIZE_UNKNOWN))
 176                 {
 177                     if(!PushChunk(iff, 0, MAKE_ID('C','H','R','S'), IFFSIZE_UNKNOWN))
 178                     {
 179                         return iff;
 180                     }
 181                     PopChunk(iff);
 182                 }
 183                 CloseIFF(iff);
 184             }
 185             CloseClipboard((struct ClipboardHandle*)iff->iff_Stream);
 186         }
 187         FreeIFF(iff);
 188     }
 189
 190     return NULL;
 191 }
 192
 193 /**************************************************************************
 194  Free all resources allocated in PrepareClipboard
 195 **************************************************************************/
 196 VOID FreeClipboard(struct IFFHandle *iff)
 197 {
 198     PopChunk(iff);
 199     PopChunk(iff);
 200     CloseIFF(iff);
 201     CloseClipboard((struct ClipboardHandle*)iff->iff_Stream);
 202     FreeIFF(iff);
 203 }
 204