Subversion Repositories NaviCtrl

Rev

Rev 362 | Rev 368 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
1 ingob 1
/*#######################################################################################*/
2
/* !!! THIS IS NOT FREE SOFTWARE !!!                                                     */
3
/*#######################################################################################*/
4
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
5
// + www.MikroKopter.com
6
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
360 holgerb 7
// + Software Nutzungsbedingungen (english version: see below)
8
// + der Fa. HiSystems GmbH, Flachsmeerstrasse 2, 26802 Moormerland - nachfolgend Lizenzgeber genannt -
9
// + Der Lizenzgeber räumt dem Kunden ein nicht-ausschließliches, zeitlich und räumlich* unbeschränktes Recht ein, die im den
10
// + Mikrocontroller verwendete Firmware für die Hardware Flight-Ctrl, Navi-Ctrl, BL-Ctrl, MK3Mag & PC-Programm MikroKopter-Tool 
11
// + - nachfolgend Software genannt - nur für private Zwecke zu nutzen.
12
// + Der Einsatz dieser Software ist nur auf oder mit Produkten des Lizenzgebers zulässig.
1 ingob 13
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
360 holgerb 14
// + Die vom Lizenzgeber gelieferte Software ist urheberrechtlich geschützt. Alle Rechte an der Software sowie an sonstigen im
15
// + Rahmen der Vertragsanbahnung und Vertragsdurchführung überlassenen Unterlagen stehen im Verhältnis der Vertragspartner ausschließlich dem Lizenzgeber zu.
16
// + Die in der Software enthaltenen Copyright-Vermerke, Markenzeichen, andere Rechtsvorbehalte, Seriennummern sowie
17
// + sonstige der Programmidentifikation dienenden Merkmale dürfen vom Kunden nicht verändert oder unkenntlich gemacht werden.
18
// + Der Kunde trifft angemessene Vorkehrungen für den sicheren Einsatz der Software. Er wird die Software gründlich auf deren
19
// + Verwendbarkeit zu dem von ihm beabsichtigten Zweck testen, bevor er diese operativ einsetzt.
20
// + Die Haftung des Lizenzgebers wird - soweit gesetzlich zulässig - begrenzt in Höhe des typischen und vorhersehbaren
21
// + Schadens. Die gesetzliche Haftung bei Personenschäden und nach dem Produkthaftungsgesetz bleibt unberührt. Dem Lizenzgeber steht jedoch der Einwand 
22
// + des Mitverschuldens offen.
23
// + Der Kunde trifft angemessene Vorkehrungen für den Fall, dass die Software ganz oder teilweise nicht ordnungsgemäß arbeitet.
24
// + Er wird die Software gründlich auf deren Verwendbarkeit zu dem von ihm beabsichtigten Zweck testen, bevor er diese operativ einsetzt.
25
// + Der Kunde wird er seine Daten vor Einsatz der Software nach dem Stand der Technik sichern.
26
// + Der Kunde ist darüber unterrichtet, dass der Lizenzgeber seine Daten im zur Vertragsdurchführung erforderlichen Umfang
27
// + und auf Grundlage der Datenschutzvorschriften erhebt, speichert, verarbeitet und, sofern notwendig, an Dritte übermittelt.
28
// + *) Die räumliche Nutzung bezieht sich nur auf den Einsatzort, nicht auf die Reichweite der programmierten Software.
29
// + #### ENDE DER NUTZUNGSBEDINGUNGEN ####'
30
// +  Hinweis: Informationen über erweiterte Nutzungsrechte (wie z.B. Nutzung für nicht-private Zwecke) sind auf Anfrage per Email an info(@)hisystems.de verfügbar.
1 ingob 31
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
360 holgerb 32
// + Software LICENSING TERMS
1 ingob 33
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
360 holgerb 34
// + of HiSystems GmbH, Flachsmeerstrasse 2, 26802 Moormerland, Germany - the Licensor -
35
// + The Licensor grants the customer a non-exclusive license to use the microcontroller firmware of the Flight-Ctrl, Navi-Ctrl, BL-Ctrl, and MK3Mag hardware 
36
// + (the Software) exclusively for private purposes. The License is unrestricted with respect to time and territory*.
37
// + The Software may only be used with the Licensor's products.
38
// + The Software provided by the Licensor is protected by copyright. With respect to the relationship between the parties to this
39
// + agreement, all rights pertaining to the Software and other documents provided during the preparation and execution of this
40
// + agreement shall be the property of the Licensor.
41
// + The information contained in the Software copyright notices, trademarks, other legal reservations, serial numbers and other
42
// + features that can be used to identify the program may not be altered or defaced by the customer.
43
// + The customer shall be responsible for taking reasonable precautions
44
// + for the safe use of the Software. The customer shall test the Software thoroughly regarding its suitability for the
45
// + intended purpose before implementing it for actual operation. The Licensor's liability shall be limited to the extent of typical and
46
// + foreseeable damage to the extent permitted by law, notwithstanding statutory liability for bodily injury and product
47
// + liability. However, the Licensor shall be entitled to the defense of contributory negligence.
48
// + The customer will take adequate precautions in the case, that the software is not working properly. The customer will test
49
// + the software for his purpose before any operational usage. The customer will backup his data before using the software.
50
// + The customer understands that the Licensor collects, stores and processes, and, where required, forwards, customer data
51
// + to third parties to the extent necessary for executing the agreement, subject to applicable data protection and privacy regulations.
52
// + *) The territory aspect only refers to the place where the Software is used, not its programmed range.
53
// + #### END OF LICENSING TERMS ####
54
// + Note: For information on license extensions (e.g. commercial use), please contact us at info(@)hisystems.de.
1 ingob 55
// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
41 ingob 56
#include <stdio.h>
349 ingob 57
#include <string.h>
41 ingob 58
#include "91x_lib.h"
119 killagreg 59
#include "timer1.h"
41 ingob 60
#include "fat16.h"
61
#include "sdc.h"
62
#include "uart1.h"
362 holgerb 63
#include "main.h"
1 ingob 64
 
65
//________________________________________________________________________________________________________________________________________
88 killagreg 66
// Module name:                 fat16.c
1 ingob 67
// Compiler used:               avr-gcc 3.4.5
211 killagreg 68
// Last Modifikation:   20.03.2010
69
// Version:                             2.10
88 killagreg 70
// Authors:                             Stephan Busker & Gregor Stobrawa
41 ingob 71
// Description:                 Source files for FAT16 implementation with read and write-access
72
//                                              Copyright (C) 2008 Stephan Busker & Gregor Stobrawa
1 ingob 73
//........................................................................................................................................
41 ingob 74
// Functions:                   extern s16              Fat16_Init(void);
88 killagreg 75
//                                              extern s16              Fat16_Deinit(void);
211 killagreg 76
//                                              extern s8*              FAT16_GetVolumeLabel(void);
41 ingob 77
//                                              extern File_t * fopen_(const u8 *filename, const s8 mode);
78
//                                              extern s16              fclose_(File_t *File);
211 killagreg 79
//                                              extern u8               fexist_(s8 * const filename);
41 ingob 80
//                                              extern s16              fflush_(File_t *File);
81
//                                              extern s16      fseek_(File_t *File, s32 offset, s16 origin);
82
//                                              extern s16              fgetc_(File_t *File);
83
//                                              extern s16              fputc_(u8 c, File_t *File);
88 killagreg 84
//                                              extern u32              fread_(void *buffer, u32 size, u32 count, File_t *File);
41 ingob 85
//                                              extern u32              fwrite_(void *buffer, u32 size, u32 count, File_t *File);
86
//                                              extern s16              fputs_(const u8 *string, File_t *File);
87
//                                              extern u8 *     fgets_(u8 *string, s16 length, File_t *File);
211 killagreg 88
//                                              extern u8               feof_(File_t * const file);
1 ingob 89
//........................................................................................................................................
41 ingob 90
// ext. functions:              extern SD_Result_t SDC_Init(void;)
91
//                                              extern SD_Result_t SDC_Deinit(void);
88 killagreg 92
//                      extern SD_Result_t SDC_GetSector (u32,u8 *);
41 ingob 93
//                                              extern SD_Result_t SDC_PutSector (u32,u8 *);
1 ingob 94
//........................................................................................................................................
95
//
96
// URL:                                 www.Mikro-Control.de
97
// mailto:                              stephan.busker@mikro-control.de
98
//________________________________________________________________________________________________________________________________________
99
 
41 ingob 100
/*
101
FAT16 Drive Layout:
102
Description                                             Offset
103
Volume Boot Sector                                      Start of Partition
104
Fat Tables                                                      Start + # of Reserved Sectors
105
Root Directory Entry                            Start + # of Reserved + (# of Sectors Per FAT * 2)
106
Data Area (Starts with Cluster #2)      Start + # of Reserved + (# of Sectors Per FAT * 2) + ((Maximum Root Directory Entries * 32) / Bytes per Sector)
107
*/
1 ingob 108
 
109
 
359 StephanB 110
 
41 ingob 111
/*
112
________________________________________________________________________________________________________________________________________
88 killagreg 113
 
114
        Structure of an partition entry
41 ingob 115
________________________________________________________________________________________________________________________________________
1 ingob 116
 
41 ingob 117
        Partition Entry is 16 bytes long
118
*/
119
typedef struct
120
{
121
        u8      PartitionState;                         // Current State of Partition (00h=Inactive, 80h=Active)
122
        u8      BeginningHead;                          // Beginning of Partition - Head
123
        u16     BeginningCylSec;                        // Beginning of Partition - Cylinder/Sector (See Below)
124
        u8      Type;                                           // Type of Partition (See List Below)
125
        u8      EndHead;                                        // End of Partition - Head
126
        u16     EndCylSec;                                      // End of Partition - Cylinder/Sector
127
        u32     NoSectorsBeforePartition;       // Number of Sectors between the MBR and the First Sector in the Partition
128
        u32     NoSectorsPartition      ;               // Number of Sectors in the Partition
88 killagreg 129
} __attribute__((packed)) PartitionEntry_t;
1 ingob 130
 
349 ingob 131
 
132
 
41 ingob 133
/*
134
Coding of Cylinder/Sector words
1 ingob 135
 
41 ingob 136
Cylinder is 10 bits:  [7:0] at [15:8] and [9:8] at [7:6]
88 killagreg 137
Sector is 5 bits:  [5:0] at [5:0]
41 ingob 138
*/
1 ingob 139
 
41 ingob 140
// Partition Types:
141
#define PART_TYPE_UNKNOWN                       0x00
142
#define PART_TYPE_FAT12                         0x01
143
#define PART_TYPE_XENIX                         0x02
144
#define PART_TYPE_FAT16_ST_32_MB        0x04
145
#define PART_TYPE_EXTDOS                        0x05
146
#define PART_TYPE_FAT16_LT_32_MB        0x06
147
#define PART_TYPE_NTFS                          0x07
148
#define PART_TYPE_FAT32                         0x0B
149
#define PART_TYPE_FAT32LBA                      0x0C
150
#define PART_TYPE_FAT16LBA                      0x0E
151
#define PART_TYPE_EXTDOSLBA                     0x0F
152
#define PART_TYPE_EISA                          0x12
153
#define PART_TYPE_ONTRACK                       0x33
154
#define PART_TYPE_NOVELL                        0x40
155
#define PART_TYPE_DYNAMIC                       0x42
156
#define PART_TYPE_PCIX                          0x4B
157
#define PART_TYPE_LINUX_SWAP            0x82
158
#define PART_TYPE_LINUX_NATIVE          0x83
159
#define PART_TYPE_LINUX_LVM                     0x8E
160
#define PART_TYPE_PHOENIXSAVE           0xA0
161
#define PART_TYPE_FREEBSD                       0xA5
162
#define PART_TYPE_OPENBSD                       0xA6
163
#define PART_TYPE_NETNBSD                       0xA9
164
#define PART_TYPE_CPM                           0xDB
165
#define PART_TYPE_DBFS                          0xE0
166
#define PART_TYPE_BBT                           0xFF
1 ingob 167
 
168
 
41 ingob 169
/*
170
________________________________________________________________________________________________________________________________________
88 killagreg 171
 
172
        Structure of the MasterBootRecord
41 ingob 173
________________________________________________________________________________________________________________________________________
1 ingob 174
 
41 ingob 175
        Master Boot Record is 512 bytes long
176
        The Master Boot Record is the same for pretty much all Operating Systems.
177
        It is located on the first Sector of the Hard Drive, at Cylinder 0, Head 0, Sector 1
178
*/
179
typedef struct
180
{
88 killagreg 181
        u8                              ExecutableCode[446];    // 446 bytes for machine start code
182
        PartitionEntry_t        PartitionEntry1;                // 16 bytes for partition entry 1
183
        PartitionEntry_t        PartitionEntry2;                // 16 bytes for partition entry 2
184
        PartitionEntry_t        PartitionEntry3;                // 16 bytes for partition entry 3
185
        PartitionEntry_t        PartitionEntry4;                // 16 bytes for partition entry 4
186
        u16                                     ExecutableMarker;               // BIOS-Signature (0x55 0xAA)
187
} __attribute__((packed)) MBR_Entry_t;
1 ingob 188
 
189
 
41 ingob 190
/*
191
________________________________________________________________________________________________________________________________________
88 killagreg 192
 
193
        Structure of the VolumeBootRecord
41 ingob 194
________________________________________________________________________________________________________________________________________
24 StephanB 195
 
41 ingob 196
        The Volume Boot Record is 512 bytes long
197
        This information is located in the first sector of every partition.
198
*/
199
typedef struct
200
{
201
        u8  JumpCode[3];                        // Jump Code + NOP
88 killagreg 202
        s8  OEMName[8];                         // OEM Name
41 ingob 203
        u16 BytesPerSector;                     // Bytes Per Sector
204
        u8  SectorsPerCluster;          // Sectors Per Cluster
205
        u16 ReservedSectors;            // Reserved Sectors
206
        u8  NoFATCopies;                        // Number of Copies of FAT
88 killagreg 207
        u16 MaxRootEntries;                     // Maximum Root Directory Entries
41 ingob 208
        u16 NoSectorsInPartSml32MB;     // Number of Sectors in Partition Smaller than 32 MB
209
        u8  MediaDescriptor;            // Media Descriptor (0xF8 for Hard Disks)
210
        u16 SectorsPerFAT;                      // Sectors Per FAT
211
        u16 SectorsPerTrack;            // Sectors Per Track
212
        u16 NoHeads;                            // Number of Heads
213
        u32 NoHiddenSectors;            // Number of Hidden Sectors     in Partition
214
        u32 NoSectors;                          // Number of Sectors in Partition
215
        u16     DriveNo;                                // Logical Drive Number of Partition
216
        u8  ExtendedSig;                        // Extended Signature (0x29)
217
        u32 SerialNo;                           // Serial Number of the Partition
218
        s8  VolumeName[11];                     // Volume Name of the Partititon
219
        s8  FATName[8];                         // FAT Name (FAT16)
88 killagreg 220
        u8  ExecutableCode[446];        // 446 bytes for machine start code
221
        u16 ExecutableMarker;           // Executable Marker (0x55 0xAA)
222
} __attribute__((packed)) VBR_Entry_t;
1 ingob 223
 
224
 
225
 
41 ingob 226
/*
227
________________________________________________________________________________________________________________________________________
228
 
88 killagreg 229
        Structure of an directory entry
41 ingob 230
________________________________________________________________________________________________________________________________________
231
 
232
        Directory entry is 32 bytes.
233
*/
234
typedef struct
1 ingob 235
{
41 ingob 236
        s8      Name[8];                                        // 8 bytes name, padded with spaces.
237
        u8      Extension[3];                           // 3 bytes extension, padded with spaces.
238
        u8      Attribute;                                      // attribute of the directory entry (unused,archive,read-only,system,directory,volume)
211 killagreg 239
        u8  Res1;                                               // should be zero
240
        u8  CreationTime10ms;                   // subsecond resolution of creation time
241
        u16 CreationTime;                               // Time of creation h:m:s
242
        u16 CreationDate;                               // Date of creation Y.M.D
243
        u16 LastAccessDate;             // The date where the file was last accessed
244
        u8      Res2[2];                                    // should be zero
245
        u16 ModTime;                                    // date of last write access
246
        u16 ModDate;                                    // date of last write access to the file or directory.
41 ingob 247
        u16 StartCluster;                               // first cluster of the file or directory.
248
        u32 Size;                                               // size of the file or directory in bytes.
249
}  __attribute__((packed)) DirEntry_t;
1 ingob 250
 
41 ingob 251
#define SLOT_EMPTY              0x00    // slot has never been used
252
#define SLOT_E5                 0x05    // the real value is 0xe5
253
#define SLOT_DELETED            0xE5    // file in this slot deleted
1 ingob 254
 
41 ingob 255
#define ATTR_NONE               0x00    // normal file
256
#define ATTR_READONLY           0x01    // file is readonly
257
#define ATTR_HIDDEN                     0x02    // file is hidden
258
#define ATTR_SYSTEM                     0x04    // file is a system file
259
#define ATTR_VOLUMELABEL        0x08    // entry is a volume label
260
#define ATTR_LONG_FILENAME      0x0F    // this is a long filename entry
261
#define ATTR_SUBDIRECTORY       0x10    // entry is a directory name
262
#define ATTR_ARCHIVE            0x20    // file is new or modified
24 StephanB 263
 
264
 
41 ingob 265
/*
266
________________________________________________________________________________________________________________________________________
88 killagreg 267
 
268
        Structure of an entry within the fileallocationtable.
41 ingob 269
________________________________________________________________________________________________________________________________________
270
*/
271
typedef struct
272
{
273
        u16  NextCluster;                               // the next cluster of the file.
274
} __attribute__((packed)) Fat16Entry_t;
1 ingob 275
 
41 ingob 276
// secial fat entries
277
#define FAT16_CLUSTER_FREE                      0x0000
278
#define FAT16_CLUSTER_RESERVED          0x0001
279
#define FAT16_CLUSTER_USED_MIN          0x0002
280
#define FAT16_CLUSTER_USED_MAX          0xFFEF
281
#define FAT16_CLUSTER_ROOTDIR_MIN       0xFFF0
282
#define FAT16_CLUSTER_ROOTDIR_MAX       0xFFF6
283
#define FAT16_CLUSTER_BAD                       0xFFF7
284
#define FAT16_CLUSTER_LAST_MIN          0xFFF8
285
#define FAT16_CLUSTER_LAST_MAX          0xFFFF
286
 
88 killagreg 287
/*****************************************************************************************************************************************/
41 ingob 288
/*                                                                                                                                                                                                                                                                               */
289
/*      Global variables needed for read- or write-acces to the FAT16- filesystem.                                                                                                                       */
290
/*                                                                                                                                                                                                                                                                               */
291
/*****************************************************************************************************************************************/
292
 
293
#define MBR_SECTOR                                      0x00    // the masterboot record is located in sector 0.
294
#define DIRENTRY_SIZE                           32              //bytes
295
#define DIRENTRIES_PER_SECTOR           BYTES_PER_SECTOR/DIRENTRY_SIZE
296
#define FAT16_BYTES                                     2
297
#define FAT16_ENTRIES_PER_SECTOR        BYTES_PER_SECTOR/FAT16_BYTES
298
 
211 killagreg 299
#define SECTOR_UNDEFINED        0x00000000L
300
#define CLUSTER_UNDEFINED       0x0000
301
 
88 killagreg 302
#define FSTATE_UNUSED   0
41 ingob 303
#define FSTATE_USED             1
304
 
305
typedef struct
1 ingob 306
{
41 ingob 307
        u8      IsValid;                                // 0 means invalid, else valid
308
        u8      SectorsPerCluster;              // how many sectors does a cluster contain?
309
        u8      FatCopies;                              // Numbers of copies of the FAT
310
        u16     MaxRootEntries;                 // Possible number of entries in the root directory.
311
        u16     SectorsPerFat;                  // how many sectors does a fat16 contain?
312
        u32 FirstFatSector;                     // sector of the start of the fat
313
        u32 FirstRootDirSector;         // sector of the rootdirectory
314
        u32 FirstDataSector;            // sector of the first cluster containing data (cluster2).
315
        u32 LastDataSector;                     // the last data sector of the partition
349 ingob 316
        u8  VolumeLabel[12];        // the volume label
317
        u32     CurrentWorkingDirectory;// A pointer to the directory we are actual using 
318
        s8      PathToCwd[256];                 // a string containing the complete path to the current working directory                               
319
}   __attribute__((packed)) Partition_t;
1 ingob 320
 
349 ingob 321
Partition_t     Partition;              // Structure holds partition information
1 ingob 322
 
41 ingob 323
File_t FilePointer[FILE_MAX_OPEN];      // Allocate Memmoryspace for each filepointer used.
1 ingob 324
 
41 ingob 325
 
353 StephanB 326
 
327
 
41 ingob 328
/****************************************************************************************************************************************/
211 killagreg 329
/*      Function:               FileDate(DateTime_t *);                                                                                                                                                                                         */
41 ingob 330
/*                                                                                                                                                                                                                                                                              */
211 killagreg 331
/*      Description:    This function calculates the DOS date from a pointer to a time structure.                                                                                       */
41 ingob 332
/*                                                                                                                                                                                                                                                                              */
211 killagreg 333
/*      Returnvalue:    Returns the DOS date.                                                                                                                                                                                           */
41 ingob 334
/****************************************************************************************************************************************/
211 killagreg 335
u16 FileDate(DateTime_t * pTimeStruct)
336
{
337
        u16 date = 0;
338
        if(pTimeStruct == NULL)   return date;
339
        if(!(pTimeStruct->Valid)) return date;
41 ingob 340
 
211 killagreg 341
        date |= (0x007F & (u16)(pTimeStruct->Year - 1980))<<9; // set year
342
        date |= (0x000F & (u16)(pTimeStruct->Month))<<5; // set month
343
        date |= (0x001F & (u16)(pTimeStruct->Day));
344
        return date;
345
}
346
 
347
/****************************************************************************************************************************************/
348
/*      Function:               FileTime(DateTime_t *);                                                                                                                                                                                         */
349
/*                                                                                                                                                                                                                                                                              */
350
/*      Description:    This function calculates the DOS time from a pointer to a time structure.                                                                                       */
351
/*                                                                                                                                                                                                                                                                              */
352
/*      Returnvalue:    Returns the DOS time.                                                                                                                                                                                           */
353
/****************************************************************************************************************************************/
354
 
355
u16 FileTime(DateTime_t * pTimeStruct)
1 ingob 356
{
211 killagreg 357
        u16 time = 0;
358
        if(pTimeStruct == NULL)   return time;
359
        if(!(pTimeStruct->Valid)) return time;
24 StephanB 360
 
211 killagreg 361
        time |= (0x001F & (u16)(pTimeStruct->Hour))<<11;
362
        time |= (0x003F & (u16)(pTimeStruct->Min))<<5;
363
        time |= (0x001F & (u16)(pTimeStruct->Sec/2));
364
        return time;
1 ingob 365
}
366
 
41 ingob 367
/****************************************************************************************************************************************/
368
/*      Function:               LockFilePointer();                                                                                                                                                                                                      */
369
/*                                                                                                                                                                                                                                                                              */
370
/*      Description:    This function trys to lock a free file pointer.                                                                                                                                         */
371
/*                                                                                                                                                                                                                                                                              */
372
/*      Returnvalue:    Returns the Filepointer on success or 0.                                                                                                                                                        */
373
/****************************************************************************************************************************************/
374
File_t * LockFilePointer(void)
1 ingob 375
{
41 ingob 376
        u8 i;
377
        File_t * File = 0;
378
        for(i = 0; i < FILE_MAX_OPEN; i++)
1 ingob 379
        {
88 killagreg 380
                if(FilePointer[i].State == FSTATE_UNUSED)               // found an unused one
1 ingob 381
                {
88 killagreg 382
                        File = &FilePointer[i];                                         // set pointer to that entry
41 ingob 383
                        FilePointer[i].State = FSTATE_USED;                     // mark it as used
384
                        break;
1 ingob 385
                }
41 ingob 386
        }
387
        return(File);
1 ingob 388
}
389
 
41 ingob 390
/****************************************************************************************************************************************/
391
/*      Function:               UnlockFilePointer(file_t *);                                                                                                                                                                            */
392
/*                                                                                                                                                                                                                                                                              */
393
/*      Description:    This function trys to unlock a file pointer.                                                                                                                                            */
394
/*                                                                                                                                                                                                                                                                              */
395
/*      Returnvalue:    Returns 1 if file pointer was freed else 0.                                                                                                                                                     */
396
/****************************************************************************************************************************************/
397
u8 UnlockFilePointer(File_t * file)
1 ingob 398
{
41 ingob 399
        u8 cnt;
400
        if(file == NULL) return(0);
401
        for(cnt = 0; cnt < FILE_MAX_OPEN; cnt++)
1 ingob 402
        {
41 ingob 403
                if(&FilePointer[cnt] == file)                                           // filepointer to be freed found?
1 ingob 404
                {
88 killagreg 405
                        file->State = FSTATE_UNUSED;
211 killagreg 406
                        file->FirstSectorOfFirstCluster = SECTOR_UNDEFINED;                     // Sectorpointer to the first sector of the first datacluster of the file.
407
                        file->FirstSectorOfCurrCluster  = SECTOR_UNDEFINED;                     // Pointer to the cluster which is edited at the moment.
41 ingob 408
                        file->SectorOfCurrCluster               = 0;                    // The sector which is edited at the moment (cluster_pointer + sector_index).
409
                        file->ByteOfCurrSector                  = 0;                    // The bytelocation within the current sector (cluster_pointer + sector_index + byte_index).
410
                        file->Mode                                              = 0;                    // mode of fileoperation (read,write)
411
                        file->Size                                              = 0;                    // the size of the opend file in bytes.
412
                        file->Position                                  = 0;                    // pointer to a character within the file 0 < fileposition < filesize
211 killagreg 413
                        file->SectorInCache                     = SECTOR_UNDEFINED;                     // the last sector read, wich is still in the sectorbuffer.
414
                        file->DirectorySector                   = SECTOR_UNDEFINED;                     // the sectorposition where the directoryentry has been made.
41 ingob 415
                        file->DirectoryIndex                    = 0;                    // the index to the directoryentry within the specified sector.
416
                        file->Attribute                                 = 0;                    // the attribute of the file opened.
88 killagreg 417
                        file = NULL;
41 ingob 418
                        return(1);
1 ingob 419
                }
41 ingob 420
        }
421
        return(0);
422
}
1 ingob 423
 
41 ingob 424
/****************************************************************************************************************************************/
425
/*      Function:               SeperateDirName(s8*, s8*);                                                                                                                                                                              */
426
/*                                                                                                                                                                                                                                                                              */
427
/*      Description:    This function seperates the first dirname from filepath and brings them                                                                                         */
428
/*                                      into the needed format ('test.txt' -> 'TEST    TXT')                                                                                                                            */
210 killagreg 429
/*                                      The subpath is the pointer to the remaining substring of the filepath                                                                                           */
41 ingob 430
/*                                                                                                                                                                                                                                                                              */
431
/*      Returnvalue:    Return NULL on error or pointer to subpath                                                                                                                                                                                                      */
432
/****************************************************************************************************************************************/
433
s8* SeperateDirName(const s8 *filepath, s8 *dirname)
434
{
435
        s8* subpath = NULL;
436
        u8 readpointer  = 0;
437
        u8 writepointer = 0;
1 ingob 438
 
88 killagreg 439
        // search subpath from beginning of filepath
41 ingob 440
        subpath = NULL;
441
        readpointer     = 0;
442
        if(filepath[0] == '/') readpointer = 1; // ignore first '/'
362 holgerb 443
        while(subpath == NULL && (SD_WatchDog)) // search the filepath until a subpath was found.
1 ingob 444
        {
88 killagreg 445
                if(((filepath[readpointer] == 0) || (filepath[readpointer] == '/')))    // if '/' found or end of filepath reached
446
                {
41 ingob 447
                        subpath = (s8*)&filepath[readpointer];                          // store the position of the first "/" found after the beginning of the filenpath
448
                }
449
                readpointer++;
450
        }
1 ingob 451
 
41 ingob 452
        // clear dirname with spaces
453
        dirname[11] = 0; // terminate dirname
454
        for(writepointer = 0; writepointer < 11; writepointer++) dirname[writepointer] = ' ';
353 StephanB 455
 
456
        // handle the special dirnames "." and ".." seperately
457
        readpointer = 0;
458
        if(filepath[0] == '/') readpointer++;
459
        // if we are trying to enter directories "." or ".." 
460
        if(filepath[readpointer] == '.')
461
        {
462
                // directory '.'
463
                if(filepath[readpointer+1] == 0)
464
                {
465
                        dirname[0] = '.';
466
                        return((s8*)&filepath[readpointer]);
467
                }
468
                // directory '..'               
469
                if((filepath[readpointer+1] == '.') &&  (filepath[readpointer+2] == 0))
470
                {
471
                        dirname[0] = '.';
472
                        dirname[1] = '.';
473
                        return((s8*)&filepath[readpointer]);
474
                }
475
        }
476
 
41 ingob 477
        writepointer = 0;
478
        // start seperating the dirname from the filepath.
479
        readpointer = 0;
480
        if(filepath[0] == '/') readpointer = 1; // ignore first '/'
362 holgerb 481
        while( &filepath[readpointer] < subpath && (SD_WatchDog))
1 ingob 482
        {
41 ingob 483
                if(writepointer >= 11) return(NULL);            // dirname to long
484
                if(filepath[readpointer] == '.')                        // seperating dirname and extension.
1 ingob 485
                {
41 ingob 486
                        if(writepointer <= 8)
1 ingob 487
                        {
41 ingob 488
                                readpointer++;                                          // next character in filename
489
                                writepointer = 8;                                       // jump to start of extension
1 ingob 490
                        }
88 killagreg 491
                        else return(NULL);                                              // dirbasename to long
41 ingob 492
                }
493
                else
494
                {
495
                        if((0x60 < filepath[readpointer]) && (filepath[readpointer] < 0x7B))
496
                        {
497
                                dirname[writepointer] = (filepath[readpointer] - 0x20);                                 // all characters must be upper case.
498
                        }
1 ingob 499
                        else
500
                        {
41 ingob 501
                                dirname[writepointer] = filepath[readpointer];
88 killagreg 502
                        }
41 ingob 503
                        readpointer++;
504
                        writepointer++;
1 ingob 505
                }
41 ingob 506
        }
88 killagreg 507
        return(subpath);
1 ingob 508
}
509
 
510
 
41 ingob 511
/**************************************************************************************************************************************+*/
512
/*      Function:       Fat16ClusterToSector( u16 cluster);                                                                                                                                                                             */
513
/*                                                                                                                                                                                                                                                                              */
514
/*      Description:    This function converts a cluster number given by the fat to the corresponding                                                                           */
515
/*                                      sector that points to the start of the data area that is represented by the cluster number.                                                     */
516
/*                                                                                                                                                                                                                                                                              */
517
/*      Returnvalue: The sector number with the data area of the given cluster                                                                                                                          */
518
/****************************************************************************************************************************************/
519
u32     Fat16ClusterToSector(u16 cluster)
520
{
211 killagreg 521
        if(!Partition.IsValid) return SECTOR_UNDEFINED;
218 killagreg 522
        if ((cluster < 2) || (cluster == CLUSTER_UNDEFINED))
211 killagreg 523
        {
524
                return SECTOR_UNDEFINED;
525
        }
526
        else
527
        {
528
                return ( (cluster - 2) * Partition.SectorsPerCluster) + Partition.FirstDataSector; // the first data sector     is represented by the 2nd cluster
529
        }
41 ingob 530
}
531
 
532
/****************************************************************************************************************************************/
533
/*      Function:       SectorToFat16Cluster( u32 sector);                                                                                                                                                                              */
534
/*                                                                                                                                                                                                                                                                              */
535
/*      Description:    This function converts a given sector number given to the corresponding                                                                                         */
536
/*                                      cluster number in the fat that represents this data area.                                                                                                                       */
537
/*                                                                                                                                                                                                                                                                              */
538
/*      Returnvalue: The cluster number representing the data area of the sector.                                                                                                                       */
539
/****************************************************************************************************************************************/
540
u16     SectorToFat16Cluster(u32 sector)
541
{
211 killagreg 542
        if(!Partition.IsValid) return CLUSTER_UNDEFINED;
543
        if((sector == SECTOR_UNDEFINED) || (sector < Partition.FirstDataSector)) return CLUSTER_UNDEFINED;
544
        else return ((u16)((sector - Partition.FirstDataSector) / Partition.SectorsPerCluster) + 2);
41 ingob 545
}
546
 
547
 
548
/****************************************************************************************************************************************/
210 killagreg 549
/*      Function:       Fat16_IsValid(void);                                                                                                                                                                                                    */
90 killagreg 550
/*                                                                                                                                                                                                                                                                              */
210 killagreg 551
/*      Description:    This function return the Fat 16 filesystem state                                                                                                                                        */
90 killagreg 552
/*                                                                                                                                                                                                                                                                              */
553
/*      Returnvalue: The function returns "1" on success                                                                                                                                                                        */
554
/****************************************************************************************************************************************/
555
u8 Fat16_IsValid(void)
556
{
557
        return(Partition.IsValid);
558
}
559
 
560
/****************************************************************************************************************************************/
41 ingob 561
/*      Function:       Fat16_Deinit(void);                                                                                                                                                                                                             */
562
/*                                                                                                                                                                                                                                                                              */
563
/*      Description:    This function uninitializes the fat 16 api                                                                                                                                                      */
564
/*                                                                                                                                                                                                                                                                              */
565
/*      Returnvalue: The function returns "0" on success                                                                                                                                                                        */
566
/****************************************************************************************************************************************/
567
u8 Fat16_Deinit(void)
568
{
569
        s16 returnvalue = 0;
570
        u8 cnt;
146 killagreg 571
 
572
        UART1_PutString("\r\n FAT16 deinit...");
41 ingob 573
        // declare the filepointers as unused.
574
        for(cnt = 0; cnt < FILE_MAX_OPEN; cnt++)
324 killagreg 575
        {      
576
                UnlockFilePointer(&FilePointer[cnt]);
1 ingob 577
        }
324 killagreg 578
        returnvalue = SDC_Deinit();                     // uninitialize interface to sd-card
41 ingob 579
        Partition.IsValid = 0;  // mark data in partition structure as invalid
210 killagreg 580
        Partition.VolumeLabel[0]='\0';
146 killagreg 581
        UART1_PutString("ok");
41 ingob 582
        return(returnvalue);
1 ingob 583
}
584
 
41 ingob 585
/****************************************************************************************************************************************/
586
/*      Function:               Fat16_Init(void);                                                                                                                                                                                                       */
587
/*                                                                                                                                                                                                                                                                          */
588
/*      Description:    This function reads the Masterbootrecord and finds the position of the Volumebootrecord, the FAT and the Rootdir    */
589
/*                                      and stores the information in global variables.                                                                                                                                     */
590
/*                                                                                                                                                                                                                                                                          */
591
/*      Returnvalue:    The function returns "0" if the filesystem is initialized.                                                                                                                      */
592
/****************************************************************************************************************************************/
593
u8 Fat16_Init(void)
88 killagreg 594
{
41 ingob 595
    u8  cnt     = 0;
596
        u32     partitionfirstsector;
88 killagreg 597
        VBR_Entry_t *VBR;
41 ingob 598
        MBR_Entry_t *MBR;
599
        File_t *file;
600
        u8 result = 0;
1 ingob 601
 
110 killagreg 602
        UART1_PutString("\r\n FAT16 init...");
41 ingob 603
        Partition.IsValid = 0;
604
        // declare the filepointers as unused.
605
        for(cnt = 0; cnt < FILE_MAX_OPEN; cnt++)
1 ingob 606
        {
211 killagreg 607
                UnlockFilePointer(&FilePointer[cnt]);
1 ingob 608
        }
41 ingob 609
        // set current file pinter to first position in list
88 killagreg 610
        file = &FilePointer[0];
611
 
211 killagreg 612
        // try to initialize the sd-card.
88 killagreg 613
        if(SD_SUCCESS != SDC_Init())
614
        {
110 killagreg 615
                UART1_PutString("SD-Card could not be initialized.");
41 ingob 616
                result = 1;
88 killagreg 617
                goto end;
41 ingob 618
        }
1 ingob 619
 
41 ingob 620
        // SD-Card is initialized successfully
621
        if(SD_SUCCESS != SDC_GetSector((u32)MBR_SECTOR,file->Cache))    // Read the MasterBootRecord
1 ingob 622
        {
110 killagreg 623
                UART1_PutString("Error reading the MBR.");
41 ingob 624
                result = 2;
88 killagreg 625
                goto end;
1 ingob 626
        }
41 ingob 627
        MBR = (MBR_Entry_t *)file->Cache;                                               // Enter the MBR using the structure MBR_Entry_t.
88 killagreg 628
        if((MBR->PartitionEntry1.Type == PART_TYPE_FAT16_ST_32_MB) ||
41 ingob 629
           (MBR->PartitionEntry1.Type == PART_TYPE_FAT16_LT_32_MB) ||
630
           (MBR->PartitionEntry1.Type == PART_TYPE_FAT16LBA))
1 ingob 631
        {
41 ingob 632
                // get sector offset 1st partition
633
                partitionfirstsector = MBR->PartitionEntry1.NoSectorsBeforePartition;
634
                // Start of Partition is the Volume Boot Sector
635
                if(SD_SUCCESS != SDC_GetSector(partitionfirstsector,file->Cache)) // Read the volume boot record
1 ingob 636
                {
110 killagreg 637
                        UART1_PutString("Error reading the VBR.");
41 ingob 638
                        result = 3;
88 killagreg 639
                        goto end;
640
                }
1 ingob 641
        }
41 ingob 642
        else  // maybe the medium has no partition assuming sector 0 is the vbr
643
        {
644
                partitionfirstsector = 0;
645
        }
88 killagreg 646
 
41 ingob 647
        VBR = (VBR_Entry_t *) file->Cache;                                              // Enter the VBR using the structure VBR_Entry_t.
648
        if(VBR->BytesPerSector != BYTES_PER_SECTOR)
649
        {
110 killagreg 650
                UART1_PutString("VBR: Sector size not supported.");
41 ingob 651
                result = 4;
88 killagreg 652
                goto end;
41 ingob 653
        }
654
        Partition.SectorsPerCluster             = VBR->SectorsPerCluster;                       // Number of sectors per cluster. Depends on the memorysize of the sd-card.
655
        Partition.FatCopies                     = VBR->NoFATCopies;                                     // Number of fatcopies.
656
        Partition.MaxRootEntries                = VBR->MaxRootEntries;                          // How many Entries are possible in the rootdirectory (FAT16 allows max. 512 entries).
210 killagreg 657
        Partition.SectorsPerFat                 = VBR->SectorsPerFAT;                           // The number of sectors per FAT                                // copy volume label
658
        Partition.VolumeLabel[0] = '\0';                                                                        // set string terminator
41 ingob 659
 
660
        /* Calculate the sectorpositon of the FAT, the Rootdirectory and the first Datacluster. */
88 killagreg 661
        // Calculate the position of the FileAllocationTable:
41 ingob 662
        // Start + # of Reserved Sectors
88 killagreg 663
        Partition.FirstFatSector        =   (u32)(partitionfirstsector + (u32)(VBR->ReservedSectors));
664
        // Calculate the position of the Rootdirectory:
665
        // Start + # of Reserved Sectors + (# of Sectors Per FAT * # of FAT Copies)
41 ingob 666
        Partition.FirstRootDirSector    =   Partition.FirstFatSector + (u32)((u32)Partition.SectorsPerFat*(u32)Partition.FatCopies);
667
        // Calculate the position of the first datacluster:
88 killagreg 668
        // Start + # of Reserved + (# of Sectors Per FAT * # of FAT Copies) + ((Maximum Root Directory Entries * 32) / Bytes per Sector)
41 ingob 669
        Partition.FirstDataSector       =   Partition.FirstRootDirSector + (u32)(Partition.MaxRootEntries>>4);  // assuming 512 Byte Per Sector
670
        // Calculate the last data sector
671
        if(VBR->NoSectors == 0)
672
        {
110 killagreg 673
                UART1_PutString("VBR: Bad number of sectors.");
41 ingob 674
                result = 5;
88 killagreg 675
                goto end;
41 ingob 676
        }
677
        Partition.LastDataSector = Partition.FirstDataSector + VBR->NoSectors - 1;
678
        // check for FAT16 in VBR of first partition
679
        if(!((VBR->FATName[0]=='F') && (VBR->FATName[1]=='A') && (VBR->FATName[2]=='T') && (VBR->FATName[3]=='1')&&(VBR->FATName[4]=='6')))
680
        {
110 killagreg 681
                UART1_PutString("VBR: Partition ist not FAT16 type.");
41 ingob 682
                result = 6;
683
                goto end;
684
        }
685
        Partition.IsValid = 1; // mark data in partition structure as valid
349 ingob 686
        Partition.CurrentWorkingDirectory = Partition.FirstRootDirSector;
359 StephanB 687
        strcpy(Partition.PathToCwd,"/");       
41 ingob 688
        result = 0;
689
        end:
690
        if(result != 0) Fat16_Deinit();
110 killagreg 691
        else UART1_PutString("ok");
88 killagreg 692
        return(result);
1 ingob 693
}
694
 
695
 
41 ingob 696
 
697
/****************************************************************************************************************************************/
698
/* Function:    ClearCurrCluster(File_t*);                                                                                                                                                                                      */
699
/*                                                                                                                                                                                                                                                                              */
700
/* Description: This function fills the current cluster with 0.                                                                                                                                                 */
701
/*                                                                                                                                                                                                                                                                              */
702
/* Returnvalue: The function returns 1 on success else 0.                                                                                                                                                               */
703
/****************************************************************************************************************************************/
704
u8 ClearCurrCluster(File_t * file)
1 ingob 705
{
41 ingob 706
        u8 retvalue = 1;
707
        u32 i;
88 killagreg 708
 
41 ingob 709
        if((!Partition.IsValid) || (file == NULL)) return(0);
710
 
711
        for(i = 0; i < BYTES_PER_SECTOR; i++) file->Cache[i] = 0; // clear file cache
211 killagreg 712
        if(file->FirstSectorOfCurrCluster == SECTOR_UNDEFINED) return (0); // nothing to do 
41 ingob 713
        for(i = 0; i < Partition.SectorsPerCluster; i++)
1 ingob 714
        {
41 ingob 715
                file->SectorInCache = file->FirstSectorOfCurrCluster + i;
716
                if(SD_SUCCESS != SDC_PutSector(file->SectorInCache, file->Cache))
717
                {
88 killagreg 718
                        Fat16_Deinit();
363 ingob 719
                        return(0);
41 ingob 720
                }
1 ingob 721
        }
88 killagreg 722
        return(retvalue);
1 ingob 723
}
724
 
41 ingob 725
/*****************************************************************************************************************************************/
726
/* Function:    GetNextCluster(File_t* );                                                                                                                                                                                        */
727
/*                                                                                                                                                                                                                                                                               */
728
/* Description: This function finds the next datacluster of the file specified with File *File.                                                                                  */
729
/*                                                                                                                                                                                                                                                                               */
730
/* Returnvalue: The function returns the next cluster or 0 if the last cluster has already reached.                                                                                                      */
731
/*****************************************************************************************************************************************/
732
u16 GetNextCluster(File_t * file)
1 ingob 733
{
211 killagreg 734
        u16 cluster = CLUSTER_UNDEFINED;
41 ingob 735
        u32 fat_byte_offset, sector, byte;
736
        Fat16Entry_t * fat;
88 killagreg 737
 
41 ingob 738
        if((!Partition.IsValid) || (file == NULL)) return(cluster);
211 killagreg 739
        if(file->FirstSectorOfCurrCluster == SECTOR_UNDEFINED) return(cluster);
41 ingob 740
        // if sector is within the data area
741
        if((Partition.FirstDataSector <= file->FirstSectorOfCurrCluster)&& (file->FirstSectorOfCurrCluster <= Partition.LastDataSector))
1 ingob 742
        {
41 ingob 743
                // determine current file cluster
744
                cluster = SectorToFat16Cluster(file->FirstSectorOfCurrCluster);
745
                // calculate byte offset in the fat for corresponding entry
746
                fat_byte_offset = ((u32)cluster)<<1; // two FAT bytes (16 bits) for every cluster
747
                // calculate the sector that contains the current cluster within the fat
748
                sector = Partition.FirstFatSector + ( fat_byte_offset / BYTES_PER_SECTOR);
749
                // calculate byte offset of the current cluster within that fat sector
750
                byte = fat_byte_offset % BYTES_PER_SECTOR;
751
                // read this sector to the file cache
752
                if(file->SectorInCache != sector)
1 ingob 753
                {
41 ingob 754
                        file->SectorInCache = sector;                                           // update sector stored in buffer
755
                        if(SD_SUCCESS != SDC_GetSector(file->SectorInCache, file->Cache))       // read sector from sd-card
24 StephanB 756
                        {
41 ingob 757
                                Fat16_Deinit();
363 ingob 758
                                return (CLUSTER_UNDEFINED);
88 killagreg 759
                        }
760
                }
41 ingob 761
                // read the next cluster from cache
762
                fat = (Fat16Entry_t *)(&(file->Cache[byte]));
763
                cluster = fat->NextCluster;
211 killagreg 764
                // if no next cluster exist
41 ingob 765
                if(FAT16_CLUSTER_LAST_MIN <= cluster)
766
                {
211 killagreg 767
                         cluster = CLUSTER_UNDEFINED; // next cluster is undefined
1 ingob 768
                }
24 StephanB 769
                else
770
                {
41 ingob 771
                        file->FirstSectorOfCurrCluster = Fat16ClusterToSector(cluster);
772
                        file->SectorOfCurrCluster = 0;
773
                        file->ByteOfCurrSector = 0;
24 StephanB 774
                }
88 killagreg 775
        }
41 ingob 776
        return(cluster);
1 ingob 777
}
778
 
779
 
353 StephanB 780
 
41 ingob 781
/****************************************************************************************************************************************/
782
/* Function:    FindNextFreeCluster(File_t *);                                                                                                                                                                          */
783
/*                                                                                                                                                                                                                                                                              */
784
/* Description: This function looks in the fat to find the next free cluster                                                                                                                    */
785
/*                                                                                                                                                                                                                                                                              */
786
/* Returnvalue: The function returns the cluster number of the next free cluster found within the fat.                                                                  */
787
/****************************************************************************************************************************************/
788
u16 FindNextFreeCluster(File_t *file)
1 ingob 789
{
41 ingob 790
        u32 fat_sector;                                 // current sector within the fat relative to the first sector of the fat.
791
        u32     curr_sector;                            // current sector
792
        u16     fat_entry;                                      // index to an fatentry within the actual sector (256 fatentries are possible within one sector).
211 killagreg 793
        u16     free_cluster    = CLUSTER_UNDEFINED;    // next free cluster number.
41 ingob 794
        Fat16Entry_t * fat;
88 killagreg 795
 
41 ingob 796
        if((!Partition.IsValid) || (file == NULL)) return(0);
24 StephanB 797
 
41 ingob 798
        // start searching for an empty cluster at the beginning of the fat.
88 killagreg 799
        fat_sector = 0;
800
        do
1 ingob 801
        {
41 ingob 802
                curr_sector = Partition.FirstFatSector + fat_sector;    // calculate sector to read
803
                file->SectorInCache = curr_sector;                                              // upate the sector number of file cache.
804
                if( SD_SUCCESS != SDC_GetSector(file->SectorInCache, file->Cache))              // read sector of fat from sd-card.
805
                {
806
                        Fat16_Deinit();
363 ingob 807
                        return(CLUSTER_UNDEFINED);
41 ingob 808
                }
809
 
810
                fat = (Fat16Entry_t *)file->Cache;                                              // set fat pointer to file cache
811
 
88 killagreg 812
                for(fat_entry = 0; fat_entry < FAT16_ENTRIES_PER_SECTOR; fat_entry++)                                           // look for an free cluster at all entries in this sector of the fat.
41 ingob 813
                {
814
                        if(fat[fat_entry].NextCluster == FAT16_CLUSTER_FREE)            // empty cluster found!!
88 killagreg 815
                        {
816
                                fat[fat_entry].NextCluster = FAT16_CLUSTER_LAST_MAX;    // mark this fat-entry as used
41 ingob 817
                                if(SD_SUCCESS != SDC_PutSector(file->SectorInCache, file->Cache))               // and save the sector at the sd-card.
818
                                {
819
                                        Fat16_Deinit();
363 ingob 820
                                        return(CLUSTER_UNDEFINED);
41 ingob 821
                                }
88 killagreg 822
                                free_cluster = (u16)(fat_sector * FAT16_ENTRIES_PER_SECTOR + (u32)fat_entry);
41 ingob 823
                                fat_entry = FAT16_ENTRIES_PER_SECTOR;                                   // terminate the search for a free cluster in this sector.
824
                        }
825
                }
826
                fat_sector++;                                                                                                   // continue the search in next fat sector
88 killagreg 827
        // repeat until the end of the fat is  reached and no free cluster has been found so far
362 holgerb 828
        }while((fat_sector < Partition.SectorsPerFat) && (!free_cluster) && (SD_WatchDog));
41 ingob 829
        return(free_cluster);
1 ingob 830
}
831
 
832
 
41 ingob 833
/****************************************************************************************************************************************************/
834
/* Function:    s16 fseek_(File_t *, s32 *, u8)                                                                                                                                                                                                         */
835
/*                                                                                                                                                                                                                                                                                                      */
836
/* Description: This function sets the pointer of the stream relative to the position                                                                                                                           */
837
/*                              specified by origin (SEEK_SET, SEEK_CUR, SEEK_END)                                                                                                                                                                      */
211 killagreg 838
/* Returnvalue: Is 0 if seek was successful                                                                                                                                                                                                                                                                     */
41 ingob 839
/****************************************************************************************************************************************************/
840
s16 fseek_(File_t *file, s32 offset, s16 origin)
1 ingob 841
{
41 ingob 842
        s32             fposition       = 0;
843
        s16     retvalue        = 1;
88 killagreg 844
 
211 killagreg 845
        if((!Partition.IsValid) || (file == NULL)) return(retvalue);
41 ingob 846
        switch(origin)
847
        {
848
                case SEEK_SET:                          // Fileposition relative to the beginning of the file.
88 killagreg 849
                        fposition = 0;
41 ingob 850
                        break;
851
                case SEEK_END:                          // Fileposition relative to the end of the file.
852
                        fposition = (s32)file->Size;
853
                        break;
854
                case SEEK_CUR:                          // Fileposition relative to the current position of the file.
855
                default:
856
                        fposition = file->Position;
857
                        break;
1 ingob 858
        }
41 ingob 859
 
860
        fposition += offset;
861
 
862
        if((fposition >= 0) && (fposition <= (s32)file->Size))          // is the pointer still within the file?
1 ingob 863
        {
41 ingob 864
                // reset file position to start of the file
865
                file->FirstSectorOfCurrCluster = file->FirstSectorOfFirstCluster;
866
                file->SectorOfCurrCluster       = 0;
867
                file->ByteOfCurrSector          = 0;
868
                file->Position                          = 0;
211 killagreg 869
                if(file->FirstSectorOfCurrCluster == SECTOR_UNDEFINED) return(retvalue);
362 holgerb 870
                while(file->Position < fposition && (SD_WatchDog))      // repeat until the current position is less than target
1 ingob 871
                {
41 ingob 872
                        file->Position++;                               // increment file position
88 killagreg 873
                        file->ByteOfCurrSector++;               // next byte in current sector
874
                        if(file->ByteOfCurrSector >= BYTES_PER_SECTOR)
41 ingob 875
                        {
876
                                file->ByteOfCurrSector = 0;                                                                             // reading at the beginning of new sector.
877
                                file->SectorOfCurrCluster++;                                                                    // continue reading in next sector
878
                                if(file->SectorOfCurrCluster >= Partition.SectorsPerCluster)    // if end of cluster is reached, the next datacluster has to be searched in the FAT.
879
                                {
880
                                        if(GetNextCluster(file))                                                                        // Sets the clusterpointer of the file to the next datacluster.
881
                                        {
88 killagreg 882
                                                file->SectorOfCurrCluster = 0;
41 ingob 883
                                        }
884
                                        else // the last cluster was allready reached
885
                                        {
211 killagreg 886
                                                file->SectorOfCurrCluster--;                                                    // jump back to the last sector in the last cluster
41 ingob 887
                                                file->ByteOfCurrSector = BYTES_PER_SECTOR;                              // set ByteOfCurrSector one byte over sector end
888
                                        }
889
                                }
88 killagreg 890
                        }
891
                }
1 ingob 892
        }
88 killagreg 893
        if(file->Position == fposition) retvalue = 0;
1 ingob 894
        return(retvalue);
895
}
896
 
897
 
41 ingob 898
/****************************************************************************************************************************************/
899
/* Function:    u16 DeleteClusterChain(File *file);                                                                                                                                                                             */
900
/*                                                                                                                                                                                                                                                                              */
901
/* Description: This function trances along a cluster chain in the fat and frees all clusters visited.                                                                  */
902
/*                                                                                                                                                                                                                                                                              */
903
/****************************************************************************************************************************************/
904
u8 DeleteClusterChain(u16 StartCluster)
1 ingob 905
{
88 killagreg 906
        u16 cluster;
41 ingob 907
        u32 fat_byte_offset, sector, byte;
908
        Fat16Entry_t * fat;
909
        u8 buffer[BYTES_PER_SECTOR];
910
        u32 sector_in_buffer = 0;
911
        u8 repeat = 0;
912
 
211 killagreg 913
        if(!Partition.IsValid) return(0);
914
        if(StartCluster == CLUSTER_UNDEFINED) return(0);
210 killagreg 915
        cluster = StartCluster; // init chain trace
211 killagreg 916
        // if start cluster is no real cluster
917
    if(FAT16_CLUSTER_LAST_MIN <= cluster) return 1;
41 ingob 918
 
919
        // calculate byte offset in the fat for corresponding entry
920
        fat_byte_offset = ((u32)cluster)<<1; // two FAT bytes (16 bits) for every cluster
921
        // calculate the sector that contains the current cluster within the fat
922
        sector = Partition.FirstFatSector + ( fat_byte_offset / BYTES_PER_SECTOR);
923
        // calculate byte offset of the current cluster within that fat sector
924
        byte = fat_byte_offset % BYTES_PER_SECTOR;
88 killagreg 925
        do
1 ingob 926
        {
41 ingob 927
                if(sector != sector_in_buffer)
1 ingob 928
                {
41 ingob 929
                        // read this sector to buffer
930
                        sector_in_buffer = sector;
931
                        if(SD_SUCCESS != SDC_GetSector(sector_in_buffer, buffer)) return 0;     // read sector from sd-card
88 killagreg 932
                }
41 ingob 933
                // read the next cluster from cache
934
                fat = (Fat16Entry_t *)(&(buffer[byte]));
935
                cluster = fat->NextCluster;
211 killagreg 936
                fat->NextCluster =      FAT16_CLUSTER_FREE; // mark current cluster as free
937
 
938
                if((FAT16_CLUSTER_USED_MIN <= cluster) && (cluster <= FAT16_CLUSTER_USED_MAX) )
939
                {
940
                        repeat = 1;
941
                        // calculate sector byte and byte offset in the fat for the next cluster
942
                        fat_byte_offset = ((u32)cluster)<<1; // two FAT bytes (16 bits) for every cluster
943
                        // calculate the sector that contains the current cluster within the fat
944
                        sector = Partition.FirstFatSector + ( fat_byte_offset / BYTES_PER_SECTOR);
945
                        // calculate byte offset of the current cluster within that fat sector
946
                        byte = fat_byte_offset % BYTES_PER_SECTOR;
947
                }
41 ingob 948
                else repeat = 0;
949
 
950
                // if new sector is not the sector in buffer or the last cluster in the chain was traced
951
                if((sector != sector_in_buffer) || !repeat)
952
                {       // write sector in buffer
210 killagreg 953
                        if(SD_SUCCESS != SDC_PutSector(sector_in_buffer,buffer))
146 killagreg 954
                        {
955
                                Fat16_Deinit();
211 killagreg 956
                                return(0);
146 killagreg 957
                        }
1 ingob 958
                }
41 ingob 959
        }
362 holgerb 960
        while(repeat && (SD_WatchDog));
41 ingob 961
 
962
        return 1;
1 ingob 963
}
964
 
965
 
41 ingob 966
/****************************************************************************************************************************************/
967
/* Function:    u16 AppendCluster(File *file);                                                                                                                                                                                  */
968
/*                                                                                                                                                                                                                                                                              */
969
/* Description: This function looks in the fat to find the next free cluster and appends it to the file.                                                                */
970
/*                                                                                                                                                                                                                                                                              */
211 killagreg 971
/* Returnvalue: The function returns the appened cluster number or CLUSTER_UNDEFINED of no cluster was appended.                                                */
41 ingob 972
/****************************************************************************************************************************************/
973
u16 AppendCluster(File_t *file)
1 ingob 974
{
211 killagreg 975
        u16 last_cluster, new_cluster = CLUSTER_UNDEFINED;
41 ingob 976
        u32 fat_byte_offset, sector, byte;
977
        Fat16Entry_t * fat;
88 killagreg 978
 
41 ingob 979
        if((!Partition.IsValid) || (file == NULL)) return(new_cluster);
1 ingob 980
 
41 ingob 981
        new_cluster = FindNextFreeCluster(file);        // the next free cluster found on the disk.
211 killagreg 982
        if(new_cluster != CLUSTER_UNDEFINED)
88 killagreg 983
        {       // A free cluster was found and can be added to the end of the file.
41 ingob 984
                fseek_(file, 0, SEEK_END);                                                                                                      // jump to the end of the file
88 killagreg 985
                last_cluster = SectorToFat16Cluster(file->FirstSectorOfCurrCluster);            // determine current file cluster
211 killagreg 986
                if(last_cluster != CLUSTER_UNDEFINED)
41 ingob 987
                {
211 killagreg 988
                        // update FAT entry of last cluster
989
                        fat_byte_offset = ((u32)last_cluster)<<1;
990
                        sector = Partition.FirstFatSector + ( fat_byte_offset / BYTES_PER_SECTOR);
991
                        byte = fat_byte_offset % BYTES_PER_SECTOR;
992
                        // read the sector containing the last cluster of the file
993
                        if(file->SectorInCache != sector)
41 ingob 994
                        {
211 killagreg 995
                                file->SectorInCache = sector;   // update sector stored in buffer
996
                                if(SD_SUCCESS != SDC_GetSector(file->SectorInCache, file->Cache))       // read sector from sd-card
997
                                {
998
                                        Fat16_Deinit();
999
                                        return(0);
1000
                                }
1001
                        }
1002
                        fat = (Fat16Entry_t *)(&(file->Cache[byte]));
1003
                        fat->NextCluster = new_cluster;                                                 // append the free cluster to the end of the file in the FAT.
1004
                        if(SD_SUCCESS != SDC_PutSector(file->SectorInCache, file->Cache))               // save the modified sector to the FAT.
1005
                        {
41 ingob 1006
                                Fat16_Deinit();
211 killagreg 1007
                                return(0);
88 killagreg 1008
                        }
1009
                }
211 killagreg 1010
                else // last cluster of the file is undefined
1011
                {   // then the new cluster must be the first one of the file
1012
                    // and its cluster number must be set in the direntry
1013
                        DirEntry_t * dir;
1014
                        file->SectorInCache = file->DirectorySector;                            // update the sector number of file cache.
1015
                        if(SD_SUCCESS != SDC_GetSector(file->SectorInCache, file->Cache))// read in the sector.
1016
                        {
1017
                                Fat16_Deinit();
1018
                                return(CLUSTER_UNDEFINED);
1019
                        }
1020
                        dir = (DirEntry_t *)file->Cache;                                                        // set pointer to directory
1021
                        dir[file->DirectoryIndex].Res1 = 0;
1022
                        dir[file->DirectoryIndex].Res2[0] = 0;
1023
                        dir[file->DirectoryIndex].Res2[1] = 0;
1024
                        dir[file->DirectoryIndex].StartCluster = new_cluster;           // update startcluster 
1025
                    dir[file->DirectoryIndex].ModTime   = FileTime(&SystemTime);// set time
1026
                        dir[file->DirectoryIndex].ModDate       = FileDate(&SystemTime);// and date of modification
1027
                        dir[file->DirectoryIndex].LastAccessDate = dir[file->DirectoryIndex].ModDate;
1028
                        dir[file->DirectoryIndex].Size          = 0;
1029
                        // write sector containing the direntry
1030
                        if(SD_SUCCESS != SDC_PutSector(file->SectorInCache, file->Cache))
1031
                        {
1032
                                Fat16_Deinit();
1033
                                return(CLUSTER_UNDEFINED);
1034
                        }
1035
                        // update file info     
1036
                        file->FirstSectorOfFirstCluster = Fat16ClusterToSector(new_cluster);
1037
                        file->Size = 0;
1038
                        file->Position = 0;
41 ingob 1039
                }
211 killagreg 1040
                // update file pointes
41 ingob 1041
                file->FirstSectorOfCurrCluster = Fat16ClusterToSector(new_cluster);
1042
                file->SectorOfCurrCluster = 0;
1043
                file->ByteOfCurrSector = 0;
1044
        }
1045
        return(new_cluster);
1 ingob 1046
}
1047
 
41 ingob 1048
/****************************************************************************************************************************************************/
1049
/* Function:    DirectoryEntryExist(s8 *, u8, u8, File_t *)                                                                                                                                                                                     */
1050
/*                                                                                                                                                                                                                                                                                                      */
1051
/* Description: This function searches all possible dir entries until the file or directory is found or the end of the directory is reached                     */
1052
/*                                                                                                                                                                                                                                                                                                      */
1053
/* Returnvalue: This function returns 1 if the directory entry specified was found.                                                                                                                                     */
1054
/****************************************************************************************************************************************************/
1055
u8 DirectoryEntryExist(s8 *dirname, u8 attribfilter, u8 attribmask, File_t *file)
1056
{
1057
        u32             dir_sector, max_dir_sector, curr_sector;
1058
        u16     dir_entry = 0;
24 StephanB 1059
 
41 ingob 1060
        u16     end_of_directory_not_reached = 0;
1061
        u8              i = 0;
1062
        u8      direntry_exist = 0;
1063
        DirEntry_t * dir;
24 StephanB 1064
 
41 ingob 1065
        // if incomming pointers are useless return immediatly
88 killagreg 1066
        if((!Partition.IsValid) || (file == NULL) || (dirname == NULL)) return(direntry_exist);
41 ingob 1067
 
88 killagreg 1068
        // dir entries can be searched only in filesclusters that have
1069
        // a corresponding dir entry with adir-flag set in its attribute
41 ingob 1070
        // or direct within the root directory area
211 killagreg 1071
        file->FirstSectorOfFirstCluster = SECTOR_UNDEFINED;
41 ingob 1072
        // no current directory exist therefore assume searching in the root
211 killagreg 1073
        if(file->DirectorySector == SECTOR_UNDEFINED)
24 StephanB 1074
        {
41 ingob 1075
                max_dir_sector = (Partition.MaxRootEntries * DIRENTRY_SIZE)/BYTES_PER_SECTOR;
1076
                file->FirstSectorOfFirstCluster = Partition.FirstRootDirSector;
1077
        }
1078
        // within the root directory area we can read sectors sequentially until the end of this area
1079
        else if((Partition.FirstRootDirSector <= file->DirectorySector) && (file->DirectorySector < Partition.FirstDataSector))
1080
        {
1081
                max_dir_sector = (Partition.MaxRootEntries * DIRENTRY_SIZE)/BYTES_PER_SECTOR;
1082
        }
88 killagreg 1083
        // within the data clusters we can read sectors sequentially only within the cluster
41 ingob 1084
        else if((Partition.FirstDataSector <= file->DirectorySector) && (file->DirectorySector <= Partition.LastDataSector))
1085
        {
1086
                max_dir_sector = Partition.SectorsPerCluster;                           // limit max secters before next cluster
1087
        }
1088
        else return (direntry_exist); // bad sector range for directory sector of the file
1089
        // if search area is not defined yet
211 killagreg 1090
        if(file->FirstSectorOfFirstCluster == SECTOR_UNDEFINED)
41 ingob 1091
        {
1092
                // check if the directory entry of current file is existent and has the dir-flag set
1093
                file->SectorInCache = file->DirectorySector;                            // update the sector number of file cache.
1094
                if(SD_SUCCESS != SDC_GetSector(file->SectorInCache, file->Cache))// read in the sector.
24 StephanB 1095
                {
41 ingob 1096
                        Fat16_Deinit();
363 ingob 1097
                        return(0);
24 StephanB 1098
                }
41 ingob 1099
                dir = (DirEntry_t *)file->Cache;                                                        // set pointer to directory
211 killagreg 1100
                switch((u8)dir[file->DirectoryIndex].Name[0])                           // check if current directory exist
24 StephanB 1101
                {
41 ingob 1102
                        case SLOT_EMPTY:
1103
                        case SLOT_DELETED:
1104
                                // the directrory pointer of this file points to a deleted or not existen directory
1105
                                // therefore no file or subdirectory can be created
1106
                                return (direntry_exist);
1107
                                break;
88 killagreg 1108
                        default:        // and is a real directory
41 ingob 1109
                                if((dir[file->DirectoryIndex].Attribute & ATTR_SUBDIRECTORY) != ATTR_SUBDIRECTORY)
1110
                                {       // current file is not a directory therefore no file or subdirectory can be created here
1111
                                        return (direntry_exist);
1112
                                }
1113
                                break;
24 StephanB 1114
                }
41 ingob 1115
                file->FirstSectorOfFirstCluster = Fat16ClusterToSector(dir[file->DirectoryIndex].StartCluster);
24 StephanB 1116
        }
1117
 
41 ingob 1118
        // update current file data area position to start of first cluster
88 killagreg 1119
        file->FirstSectorOfCurrCluster  = file->FirstSectorOfFirstCluster;
1120
        file->SectorOfCurrCluster               = 0;
41 ingob 1121
        file->ByteOfCurrSector                  = 0;
24 StephanB 1122
 
41 ingob 1123
        do // loop over all data clusters of the current directory entry
88 killagreg 1124
        {
349 ingob 1125
                dir_sector = 0;
41 ingob 1126
                do // loop over all sectors of a cluster or all sectors of the root directory
88 killagreg 1127
                {
41 ingob 1128
                        curr_sector = file->FirstSectorOfCurrCluster + dir_sector;      // calculate sector number
1129
                        file->SectorInCache = curr_sector;                                                      // upate the sector number of file cache.
1130
                        if(SD_SUCCESS != SDC_GetSector(file->SectorInCache, file->Cache))// read the sector
1131
                        {
1132
                                Fat16_Deinit();
363 ingob 1133
                                return(0);
41 ingob 1134
                        }
1135
                        dir = (DirEntry_t *)file->Cache;                                                        // set pointer to directory
1136
                        // search all directory entries within that sector
1137
                        for(dir_entry = 0; dir_entry < DIRENTRIES_PER_SECTOR; dir_entry++)
1138
                        {   // check for existing dir entry
1139
                                switch((u8)dir[dir_entry].Name[0])
1140
                                {
1141
                                        case SLOT_EMPTY:
1142
                                        case SLOT_DELETED:
1143
                                                // ignore empty or deleted dir entries
1144
                                                break;
1145
                                        default:
1146
                                                // if existing check attributes before names are compared will safe performance
1147
                                                if ((dir[dir_entry].Attribute & attribmask) != attribfilter) break; // attribute must match
1148
                                                // then compare the name to the giveb dirname (first 11 characters include 8 chars of basename and 3 chars extension.)
1149
                                                i = 0;
1150
                                                while((i < 11) && (dir[dir_entry].Name[i] == dirname[i])) i++;
1151
                                                if (i < 10) break; // names does not match
1152
                                                // if dirname and attribute have matched
1153
                                                file->Attribute = dir[dir_entry].Attribute; // store attribute of found dir entry
88 killagreg 1154
                                                file->FirstSectorOfFirstCluster = Fat16ClusterToSector(dir[dir_entry].StartCluster); // set sector of first data cluster
41 ingob 1155
                                                file->FirstSectorOfCurrCluster = file->FirstSectorOfFirstCluster;
1156
                                                file->SectorOfCurrCluster = 0;
1157
                                                file->ByteOfCurrSector = 0;
1158
                                                file->DirectorySector = curr_sector; // current sector
1159
                                                file->DirectoryIndex  = dir_entry; // current direntry in current sector
88 killagreg 1160
                                                file->Size = dir[dir_entry].Size;
1161
                                                direntry_exist = 1; // mark as found
1162
                                                dir_entry = DIRENTRIES_PER_SECTOR;      // stop for-loop
41 ingob 1163
                                } // end of first byte of name check
1164
                        }
1165
                        dir_sector++; // search next sector
1166
                // stop if we reached the end of the cluster or the end of the root dir
362 holgerb 1167
                }while((dir_sector < max_dir_sector) && (!direntry_exist) && (SD_WatchDog));
1 ingob 1168
 
41 ingob 1169
                // if we are seaching in the data area and the file not found in this cluster so take next cluster.
88 killagreg 1170
                if(!direntry_exist && ( Partition.FirstDataSector <= file->FirstSectorOfCurrCluster))
41 ingob 1171
                {
1172
                        end_of_directory_not_reached = GetNextCluster(file);  // updates File->FirstSectorOfCurrCluster
1173
                }
362 holgerb 1174
        }while((end_of_directory_not_reached) && (!direntry_exist) && (SD_WatchDog)); // repeat until a next cluster exist an no
41 ingob 1175
        return(direntry_exist);
1 ingob 1176
}
1177
 
1178
 
41 ingob 1179
/****************************************************************************************************************************************/
1180
/*      Function:               CreateDirectoryEntry(s8 *, u16, File_t *)                                                                                                                                                       */
1181
/*                                                                                                                                                                                                                                                                              */
1182
/*      Description:    This function looks for the next free position in the directory and creates an entry.                                                           */
1183
/*                                      The type of an directory entry is specified by the file attribute.                                                                                                      */
1184
/*                                                                                                                                                                                                                                                                              */
1185
/*      Returnvalue:    Return 0 on error                                                                                                                                                                                                       */
1186
/****************************************************************************************************************************************/
1187
u8 CreateDirectoryEntry(s8 *dirname, u8 attrib, File_t *file)
1 ingob 1188
{
41 ingob 1189
        u32 dir_sector, max_dir_sector, curr_sector;
1190
        u16 dir_entry   = 0;
1191
        u16 subdircluster, dircluster = 0;
1192
        u16 end_of_directory_not_reached = 0;
1193
        u8      i                       = 0;
88 killagreg 1194
        u8      retvalue        = 0;
41 ingob 1195
        DirEntry_t *dir;
1196
 
1197
        if((!Partition.IsValid) || (file == NULL) || (dirname == NULL)) return (retvalue);
1198
        // It is not checked here that the dir entry that should be created is already existent!
88 killagreg 1199
 
1200
        // Dir entries can be created only in file-clusters that have
41 ingob 1201
        // the dir-flag set in its attribute or within the root directory
88 killagreg 1202
 
211 killagreg 1203
        file->FirstSectorOfFirstCluster = SECTOR_UNDEFINED;
41 ingob 1204
        // no current directory exist therefore assume creating in the root
211 killagreg 1205
        if(file->DirectorySector == SECTOR_UNDEFINED)
24 StephanB 1206
        {
41 ingob 1207
                max_dir_sector = (Partition.MaxRootEntries * DIRENTRY_SIZE)/BYTES_PER_SECTOR;
1208
                dircluster = 0;
1209
                file->FirstSectorOfFirstCluster = Partition.FirstRootDirSector;
1210
        }
1211
        // within the root directory area we can read sectors sequentially until the end of this area
1212
        else if((Partition.FirstRootDirSector <= file->DirectorySector) && (file->DirectorySector < Partition.FirstDataSector))
1213
        {
1214
                max_dir_sector = (Partition.MaxRootEntries * DIRENTRY_SIZE)/BYTES_PER_SECTOR;
1215
        }
88 killagreg 1216
        // within the data clusters we can read sectors sequentially only within the cluster
41 ingob 1217
        else if((Partition.FirstDataSector <= file->DirectorySector) && (file->DirectorySector <= Partition.LastDataSector))
1218
        {
1219
                max_dir_sector = Partition.SectorsPerCluster;
1220
        }
88 killagreg 1221
        else return (retvalue); // bad sector range for directory sector of the file
41 ingob 1222
        // if search area is not defined yet
211 killagreg 1223
        if(file->FirstSectorOfFirstCluster == SECTOR_UNDEFINED)
41 ingob 1224
        {
1225
            // check if the directory entry of current file is existent and has the dir-flag set
1226
                file->SectorInCache = file->DirectorySector;                            // update the sector number of file cache.
88 killagreg 1227
                if(SD_SUCCESS != SDC_GetSector(file->SectorInCache, file->Cache))// read in the sector.
41 ingob 1228
                {
1229
                        Fat16_Deinit();
363 ingob 1230
                        return(0);
88 killagreg 1231
                }
41 ingob 1232
                dir = (DirEntry_t *)file->Cache;                                                        // set pointer to directory
218 killagreg 1233
                switch((u8)dir[file->DirectoryIndex].Name[0])                           // check if current directory exist
41 ingob 1234
                {
1235
                        case SLOT_EMPTY:
1236
                        case SLOT_DELETED:
1237
                                return (retvalue);
1238
                                break;
88 killagreg 1239
                        default:        // and is a real directory
41 ingob 1240
                                if((dir[file->DirectoryIndex].Attribute & ATTR_SUBDIRECTORY) != ATTR_SUBDIRECTORY)
1241
                                {       // current file is not a directory therefore no file or subdirectory can be created here
1242
                                        return (retvalue);
1243
                                }
1244
                                break;
1245
                }
1246
                dircluster = dir[file->DirectoryIndex].StartCluster;
88 killagreg 1247
                file->FirstSectorOfFirstCluster = Fat16ClusterToSector(dircluster);
41 ingob 1248
        }
88 killagreg 1249
 
218 killagreg 1250
        // if the new direntry is a subdirectory
1251
        if((attrib & ATTR_SUBDIRECTORY) == ATTR_SUBDIRECTORY)
1252
        {       // get a free clutser for its content
1253
                subdircluster = FindNextFreeCluster(file);      // get the next free cluster on the disk and mark it as used.
1254
        }
1255
        else // a normal file
1256
        {       // has no data cluster after creation
1257
                subdircluster = CLUSTER_UNDEFINED;
1258
        }
1259
 
211 killagreg 1260
        file->FirstSectorOfCurrCluster  = file->FirstSectorOfFirstCluster;
1261
        file->SectorOfCurrCluster               = 0;
1262
        do // loop over all clusters of current directory
41 ingob 1263
        {
211 killagreg 1264
                dir_sector = 0; // reset sector counter within a new cluster
1265
                do // loop over all sectors of a cluster or all sectors of the root directory
88 killagreg 1266
                {
211 killagreg 1267
                        curr_sector = file->FirstSectorOfCurrCluster + dir_sector;      // calculate sector number
1268
                        file->SectorInCache = curr_sector;                                                      // upate the sector number of file cache.
1269
                        if(SD_SUCCESS != SDC_GetSector(file->SectorInCache, file->Cache))// read in the sector.
1 ingob 1270
                        {
211 killagreg 1271
                                Fat16_Deinit();
363 ingob 1272
                                return(0);
211 killagreg 1273
                        }
1274
 
1275
                        dir = (DirEntry_t *)file->Cache;                                                        // set pointer to directory
1276
                        // search all directory entries of a sector
1277
                        for(dir_entry = 0; dir_entry < DIRENTRIES_PER_SECTOR; dir_entry++)
1278
                        {       // check if current direntry is available
1279
                                if(((u8)dir[dir_entry].Name[0] == SLOT_EMPTY) || ((u8)dir[dir_entry].Name[0] == SLOT_DELETED))
1280
                                {       // a free direntry was found
1281
                                        for(i = 0; i < 11; i++) dir[dir_entry].Name[i] = dirname[i];            // Set dir name
1282
                                        dir[dir_entry].Attribute    = attrib;
1283
                                        dir[dir_entry].Res1 = 0;
1284
                                        dir[dir_entry].CreationTime10ms = (u8)(SystemTime.mSec/10);
1285
                                        dir[dir_entry].CreationTime     = FileTime(&SystemTime);
1286
                                        dir[dir_entry].CreationDate     = FileDate(&SystemTime);
1287
                                        dir[dir_entry].LastAccessDate = dir[dir_entry].CreationDate;
1288
                                        dir[dir_entry].Res2[0] = 0;
1289
                                        dir[dir_entry].Res2[1] = 0;
1290
                                        dir[dir_entry].ModTime = dir[dir_entry].CreationTime;
1291
                                        dir[dir_entry].ModDate = dir[dir_entry].CreationDate;
1292
                                        // Set the attribute of the new directoryentry.
1293
                                        dir[dir_entry].StartCluster = subdircluster;                                            // copy the location of the first datacluster to the directoryentry.
1294
                                        dir[dir_entry].Size             = 0;                                                                    // the new createted file has no content yet.
1295
                                        if(SD_SUCCESS != SDC_PutSector(file->SectorInCache, file->Cache))       // write back to card
1296
                                        {
1297
                                                Fat16_Deinit();
363 ingob 1298
                                                return(0);
211 killagreg 1299
                                        }
218 killagreg 1300
                                        file->FirstSectorOfFirstCluster = Fat16ClusterToSector(subdircluster);  // Calculate absolute sectorposition of first datacluster.
211 killagreg 1301
                                        file->FirstSectorOfCurrCluster  = file->FirstSectorOfFirstCluster;      // Start reading the file with the first sector of the first datacluster.
1302
                                        file->SectorOfCurrCluster               = 0;                                                            // reset sector of cureen cluster
1303
                                        file->ByteOfCurrSector                  = 0;                                                            // reset the byte location within the current sector
1304
                                        file->Attribute                                 = attrib;                                               // set file attribute to dir attribute
1305
                                        file->Size                                              = 0;                                                        // new file has no size
1306
                                        file->DirectorySector                   = curr_sector;
1307
                                        file->DirectoryIndex                    = dir_entry;
1308
                                        // prepare subdirectory data cluster
1309
                                        if((attrib & ATTR_SUBDIRECTORY) == ATTR_SUBDIRECTORY)                           // if a new directory was created then initilize the data area
1310
                                        {
1311
                                                ClearCurrCluster(file); // fill cluster with zeros
1312
                                                file->SectorInCache = file->FirstSectorOfFirstCluster;
1313
                                                if(SD_SUCCESS != SDC_GetSector(file->SectorInCache, file->Cache))// read in the sector.
41 ingob 1314
                                                {
211 killagreg 1315
                                                        Fat16_Deinit();
363 ingob 1316
                                                        return(0);
41 ingob 1317
                                                }
211 killagreg 1318
                                                dir = (DirEntry_t *)file->Cache;
1319
                                                // create direntry "." to current dir
1320
                                                dir[0].Name[0] = 0x2E;
1321
                                                for(i = 1; i < 11; i++) dir[0].Name[i] = ' ';
1322
                                                dir[0].Attribute = ATTR_SUBDIRECTORY;
1323
                                                dir[0].StartCluster = subdircluster;
1324
                                                dir[0].Size = 0;
1325
                                                // create direntry ".." to the upper dir
1326
                                                dir[1].Name[0] = 0x2E;
1327
                                                dir[1].Name[1] = 0x2E;
1328
                                                for(i = 2; i < 11; i++) dir[1].Name[i] = ' ';
1329
                                                dir[1].Attribute = ATTR_SUBDIRECTORY;
1330
                                                dir[1].StartCluster = dircluster;
1331
                                                dir[1].Size = 0;
1332
                                                if(SD_SUCCESS != SDC_PutSector(file->SectorInCache, file->Cache))// read in the sector.
88 killagreg 1333
                                                {
211 killagreg 1334
                                                        Fat16_Deinit();
363 ingob 1335
                                                        return(0);
211 killagreg 1336
                                                }
1337
                                        }
1338
                                        retvalue = 1;
1339
                                        dir_entry = DIRENTRIES_PER_SECTOR;      // stop for-loop
88 killagreg 1340
                                }
211 killagreg 1341
                        }
1342
                        dir_sector++; // search next sector
1343
                // stop if we reached the end of the cluster or the end of the root dir
362 holgerb 1344
                }while((dir_sector < max_dir_sector) && (!retvalue) && (SD_WatchDog));
88 killagreg 1345
 
211 killagreg 1346
                // if we are seaching in the data area and the file not found in this cluster so take next cluster.
1347
                if(!retvalue && ( Partition.FirstDataSector <= file->FirstSectorOfCurrCluster))
1348
                {
1349
                        end_of_directory_not_reached = GetNextCluster(file);  // updates File->FirstSectorOfCurrCluster
1350
                }
362 holgerb 1351
        }while((end_of_directory_not_reached) && (!retvalue) && (SD_WatchDog));
211 killagreg 1352
        // Perhaps we are at the end of the last cluster of a directory file and have no free direntry found.
1353
        // Then we would need to add a cluster to that file and create the new direntry there.
1354
        // This code is not implemented yet, because its occurs only if more that 32*32=1024 direntries are
1355
        // within a subdirectory of root.
1356
 
41 ingob 1357
        return(retvalue);       // return 1 if file has been created otherwise return 0.
1 ingob 1358
}
1359
 
41 ingob 1360
/********************************************************************************************************************************************/
1361
/*      Function:               FileExist(const s8* filename, u8 attribfilter, u8 attribmask, File_t *file);                                                                                    */
1362
/*                                                                                                                                                                                                                                                                                      */
1363
/*      Description:    This function looks for the specified file including its subdirectories beginning                                                                               */
1364
/*                                      in the rootdirectory of the drive. If the file is found the Filepointer properties are                                                                  */
1365
/*                                      updated.                                                                                                                                                                                                                                */
1366
/*                                                                                                                                                                                                                                                                                      */
1367
/*      Returnvalue:    1 if file is found else 0.                                                                                                                                                                                              */
1368
/********************************************************************************************************************************************/
1369
u8 FileExist(const s8* filename, const u8 attribfilter, const u8 attribmask, File_t *file)
1 ingob 1370
{
41 ingob 1371
        s8* path = 0;
1372
        s8* subpath = 0;
1373
        u8 af, am, file_exist = 0;
1374
        s8 dirname[12]; // 8+3 + temination character
1 ingob 1375
 
41 ingob 1376
        // if incomming pointers are useless return immediatly
1377
        if ((filename == NULL) || (file == NULL) || (!Partition.IsValid)) return 0;
1 ingob 1378
 
41 ingob 1379
        // trace along the filepath
1380
        path = (s8*)filename;                                                           // start a the beginning of the filename string
1381
        file->DirectorySector = 0;                                                              // start at RootDirectory with file search
88 killagreg 1382
        file->DirectoryIndex = 0;
349 ingob 1383
        /* if a path begins with a '/' at index 0 the search starts at the rootdirectory otherwise we will start relative to the cwd */
1384
        if(path[0] != '/')
1385
        {
1386
                /* is the current working directory the rootdirectory? */
1387
                if(Partition.CurrentWorkingDirectory == Partition.FirstRootDirSector) file->DirectorySector = 0;
1388
                /* otherwise we are working in an subdirectory */
1389
                else file->DirectorySector = Partition.CurrentWorkingDirectory;
1390
        }
41 ingob 1391
        // as long as the file was not found and the remaining path is not empty
362 holgerb 1392
        while((*path != 0) && !file_exist && (SD_WatchDog))
41 ingob 1393
        {       // separate dirname and subpath from filepath string
1394
                subpath = SeperateDirName(path, dirname);
1395
                if(subpath != NULL)
88 killagreg 1396
                {
1397
                        if(*subpath == 0)
41 ingob 1398
                        {       // empty subpath indicates last element of dir chain
1399
                                af = attribfilter;
1400
                                am = attribmask;
1401
                        }
1402
                        else  // it must be a subdirectory and no volume label
1 ingob 1403
                        {
41 ingob 1404
                                af = ATTR_SUBDIRECTORY;
1405
                                am = ATTR_SUBDIRECTORY|ATTR_VOLUMELABEL;
1406
                        }
1407
                        if(!DirectoryEntryExist(dirname, af, am, file))
1408
                        {
1409
                                return (file_exist); // subdirectory does not exist
1410
                        }
88 killagreg 1411
                        else
1412
                        {
41 ingob 1413
                                if (*subpath == 0)
24 StephanB 1414
                                {
41 ingob 1415
                                        file_exist = 1; // last element of path chain was found with the given attribute filter
24 StephanB 1416
                                }
1 ingob 1417
                        }
1418
                }
41 ingob 1419
                else // error seperating the subpath
1 ingob 1420
                {
41 ingob 1421
                        return file_exist; // bad subdir format
1 ingob 1422
                }
41 ingob 1423
                path = subpath;
1424
                subpath = 0;
1 ingob 1425
        }
41 ingob 1426
        return (file_exist);
1 ingob 1427
}
1428
 
24 StephanB 1429
 
41 ingob 1430
/********************************************************************************************************************************************/
1431
/*      Function:               FileCreate(const s8* filename, u8 attrib, File_t *file);                                                                                                                                */
1432
/*                                                                                                                                                                                                                                                                                      */
1433
/*      Description:    This function looks for the specified file including its subdirectories beginning                                                                               */
1434
/*                                      in the rootdirectory of the partition. If the file is found the Filepointer properties are                                                              */
88 killagreg 1435
/*                                      updated. If file or its subdirectories are not found they will be created                                                                                               */
41 ingob 1436
/*                                                                                                                                                                                                                                                                                      */
1437
/*      Returnvalue:    1 if file was created else 0.                                                                                                                                                                                   */
1438
/********************************************************************************************************************************************/
1439
u8 FileCreate(const s8* filename, const u8 attrib, File_t *file)
1440
{
1441
        s8 *path = 0;
1442
        s8 *subpath = 0;
1443
        u8 af, am, file_created = 0;
1444
        s8 dirname[12];
24 StephanB 1445
 
41 ingob 1446
        // if incomming pointers are useless return immediatly
1447
        if ((filename == NULL) || (file == NULL) || (!Partition.IsValid)) return 0;
1 ingob 1448
 
41 ingob 1449
        // trace along the filepath
1450
        path = (s8*)filename;                                                                   // start a the beginning of the filename string
1451
        file->DirectorySector = 0;                                                              // start at RootDirectory with file search
1452
        file->DirectoryIndex = 0;
1453
        // as long as the file was not created and the remaining file path is not empty
362 holgerb 1454
        while((*path != 0) && !file_created && (SD_WatchDog))
41 ingob 1455
        {   // separate dirname and subpath from filepath string
1456
                subpath = SeperateDirName(path, dirname);
1457
                if(subpath != NULL)
24 StephanB 1458
                {
88 killagreg 1459
                        if(*subpath == 0)
41 ingob 1460
                        {       // empty subpath indicates last element of dir chain
1461
                                af = ATTR_NONE;
1462
                                am = ATTR_SUBDIRECTORY|ATTR_VOLUMELABEL;  // any file that is no subdir or volume label
24 StephanB 1463
                        }
41 ingob 1464
                        else  // it must be a subdirectory and no volume label
24 StephanB 1465
                        {
41 ingob 1466
                                af = ATTR_SUBDIRECTORY;
1467
                                am = ATTR_SUBDIRECTORY|ATTR_VOLUMELABEL;
24 StephanB 1468
                        }
41 ingob 1469
                        if(!DirectoryEntryExist(dirname, af, am, file)) // if subdir or file is not existent
1470
                        {  // try to create subdir or file
1471
                                if(*subpath == 0) af = attrib; // if last element in dir chain take the given attribute
1472
                                if(!CreateDirectoryEntry(dirname, af, file))
1473
                                {       // could not be created
88 killagreg 1474
                                        return(file_created);
1475
                                }
41 ingob 1476
                                else if (*subpath == 0) file_created = 1; // last element of path chain was created
24 StephanB 1477
                        }
1478
                }
41 ingob 1479
                else // error seperating the subpath
24 StephanB 1480
                {
41 ingob 1481
                        return file_created; // bad subdir format
24 StephanB 1482
                }
41 ingob 1483
                path = subpath;
1484
                subpath = 0;
1485
        }
1486
        return (file_created);
24 StephanB 1487
}
1 ingob 1488
 
24 StephanB 1489
 
41 ingob 1490
/********************************************************************************************************************************************/
1491
/*      Function:               File_t * fopen_(s8* filename, s8 mode);                                                                                                                                                                 */
1492
/*                                                                                                                                                                                                                                                                                      */
1493
/*      Description:    This function looks for the specified file in the rootdirectory of the drive. If the file is found the number of the    */
1494
/*                                      corrosponding filepointer is returned. Only modes 'r' (reading) and 'a' append are implemented yet.                                             */
1495
/*                                                                                                                                                                                                                                                                                      */
1496
/*      Returnvalue:    The filepointer to the file or 0 if faild.                                                                                                                                                              */
1497
/********************************************************************************************************************************************/
89 killagreg 1498
File_t * fopen_(s8 * const filename, const s8 mode)
88 killagreg 1499
{
41 ingob 1500
        File_t *file    = 0;
359 StephanB 1501
        s8 *cptr;
88 killagreg 1502
 
41 ingob 1503
        if((!Partition.IsValid) || (filename == 0)) return(file);
1504
 
1505
        // Look for an unused filepointer in the file pointer list?
1506
        file = LockFilePointer();
1507
        // if no unused file pointer was found return 0
1508
        if(file == NULL) return(file);
1509
 
1510
        // now we have found a free filepointer and claimed it
1511
        // so let initiate its property values
211 killagreg 1512
        file->FirstSectorOfFirstCluster = SECTOR_UNDEFINED;             // Sectorpointer to the first sector of the first datacluster of the file.
1513
        file->FirstSectorOfCurrCluster  = SECTOR_UNDEFINED;             // Pointer to the cluster which is edited at the moment.
41 ingob 1514
        file->SectorOfCurrCluster               = 0;            // The sector which is edited at the moment (cluster_pointer + sector_index).
1515
        file->ByteOfCurrSector                  = 0;            // The bytelocation within the current sector (cluster_pointer + sector_index + byte_index).
1516
        file->Mode                                              = mode;         // mode of fileoperation (read,write)
1517
        file->Size                                              = 0;            // the size of the opened file in bytes.
1518
        file->Position                                  = 0;            // pointer to a byte within the file 0 < fileposition < filesize
211 killagreg 1519
        file->SectorInCache                             = SECTOR_UNDEFINED;             // the last sector read, wich is still in the sectorbuffer.
1520
        file->DirectorySector                   = SECTOR_UNDEFINED;             // the sectorposition where the directoryentry has been made.
41 ingob 1521
        file->DirectoryIndex                    = 0;            // the index to the directoryentry within the specified sector.
1522
        file->Attribute                                 = 0;            // the attribute of the file opened.
1523
 
359 StephanB 1524
        // bring the path into the correct syntax 
1525
        cptr = filename;
1526
        // search the whole string 
362 holgerb 1527
        while(*cptr != 0 && (SD_WatchDog))
359 StephanB 1528
        {
1529
                // replace all '\' by '/'
1530
                if(*cptr == '\\') *cptr = '/';
1531
                cptr++;
1532
        }
41 ingob 1533
        // check if a real file (no directory) to the given filename exist
88 killagreg 1534
        if(FileExist(filename, ATTR_NONE, ATTR_SUBDIRECTORY|ATTR_VOLUMELABEL, file))
41 ingob 1535
        {  // file exist
1536
                switch(mode)  // check mode
1 ingob 1537
                {
41 ingob 1538
                        case 'a':       // if mode is: append to file
1539
                                if((file->Attribute & ATTR_READONLY) == ATTR_READONLY)
1540
                                {       // file is marked as readonly --> do not open this file
1541
                                        fclose_(file);
1542
                                        file = NULL;
1543
                                }
1544
                                else
1545
                                {       // file is not marked as read only --> goto end of file
1546
                                        fseek_(file, 0, SEEK_END);              // point to the end of the file
1547
                                }
1548
                                break;
1549
                        case 'w':       // if mode is: write to file
1550
                                if((file->Attribute & ATTR_READONLY) == ATTR_READONLY)
1551
                                {       // file is marked as readonly --> do not open this file
1552
                                        fclose_(file);
1553
                                        file = NULL;
1554
                                }
1555
                                else
211 killagreg 1556
                                {       // file is not marked as read only
1557
                                        DirEntry_t * dir;
41 ingob 1558
                                        // free all clusters of that file
1559
                                        DeleteClusterChain(SectorToFat16Cluster(file->FirstSectorOfFirstCluster));
211 killagreg 1560
                                        // update directory entry of that file
1561
                                        file->SectorInCache = file->DirectorySector;                            // update the sector number of file cache.
1562
                                        if(SD_SUCCESS != SDC_GetSector(file->SectorInCache, file->Cache))// read in the sector.
1563
                                        {
1564
                                                Fat16_Deinit();
1565
                                                return(NULL);
1566
                                        }
1567
                                        dir = (DirEntry_t *)file->Cache;                                                                // set pointer to directory
1568
                                    dir[file->DirectoryIndex].ModTime   = FileTime(&SystemTime);        // set modification time
1569
                                        dir[file->DirectoryIndex].ModDate       = FileDate(&SystemTime);        // set modification date
1570
                                        dir[file->DirectoryIndex].LastAccessDate = dir[file->DirectoryIndex].ModDate;
1571
                                        dir[file->DirectoryIndex].StartCluster = CLUSTER_UNDEFINED;             // update startcluster 
1572
                                        dir[file->DirectoryIndex].Size          = 0;
1573
                                        // write sector containing the direntry
1574
                                        if(SD_SUCCESS != SDC_PutSector(file->SectorInCache, file->Cache))
1575
                                        {
1576
                                                Fat16_Deinit();
1577
                                                return(NULL);
1578
                                        }
1579
                                        file->FirstSectorOfFirstCluster = SECTOR_UNDEFINED;
41 ingob 1580
                                        file->FirstSectorOfCurrCluster = file->FirstSectorOfFirstCluster;
1581
                                        file->SectorOfCurrCluster = 0;
1582
                                        file->ByteOfCurrSector = 0;
1583
                                        file->Size = 0;
1584
                                        file->Position = 0;
1585
                                        fseek_(file, 0, SEEK_SET);
1586
                                }
1587
                                break;
1588
                        case 'r':       // if mode is: read from file
88 killagreg 1589
                                // goto end of file
41 ingob 1590
                                fseek_(file, 0, SEEK_SET);
1591
                                break;
1592
                        default: // other modes are not supported
1593
                                fclose_(file);
1594
                                file = NULL;
24 StephanB 1595
                        break;
1 ingob 1596
                }
88 killagreg 1597
                return(file);
1 ingob 1598
        }
41 ingob 1599
        else // file does not exist
1600
        {
1601
                switch(mode)  // check mode
1602
                {
1603
                        case 'a':
1604
                        case 'w': // if mode is write or append
1605
                                // try to create the file
1606
                                if(!FileCreate(filename, ATTR_ARCHIVE, file))
1607
                                { // if it could not be created
1608
                                        fclose_(file);
1609
                                        file = NULL;
349 ingob 1610
                                }
41 ingob 1611
                                break;
1612
                        case 'r': // else opened for 'r'
218 killagreg 1613
                        default:  // if unsupported mode
41 ingob 1614
                                fclose_(file);
1615
                                file = NULL;
88 killagreg 1616
                                break;
41 ingob 1617
                }
88 killagreg 1618
                return(file);
41 ingob 1619
        }
1620
        // we should never come to this point
1621
        fclose_(file);
1622
        file = NULL;
24 StephanB 1623
        return(file);
1624
}
1625
 
41 ingob 1626
/****************************************************************************************************************************************************/
1627
/* Function:    fflush_(File *);                                                                                                                                                                                                                                        */
1628
/*                                                                                                                                                                                                                                                                                                      */
1629
/* Description: This function writes the data already in the buffer but not yet written to the file.                                                                                            */
1630
/*                                                                                                                                                                                                                                                                                                      */
1631
/* Returnvalue: 0 on success EOF on error                                                                                                                                                                                                                       */
1632
/****************************************************************************************************************************************************/
1633
s16     fflush_(File_t *file)
24 StephanB 1634
{
88 killagreg 1635
        DirEntry_t *dir;
1636
 
41 ingob 1637
        if((file == NULL) || (!Partition.IsValid)) return (EOF);
88 killagreg 1638
 
41 ingob 1639
        switch(file->Mode)
24 StephanB 1640
        {
41 ingob 1641
                case 'a':
1642
                case 'w':
88 killagreg 1643
                        if(file->ByteOfCurrSector > 0)                                                                          // has data been added to the file?
41 ingob 1644
                        {
88 killagreg 1645
                                if(SD_SUCCESS != SDC_PutSector(file->SectorInCache, file->Cache))// save the data still in the buffer
41 ingob 1646
                                {
88 killagreg 1647
                                        Fat16_Deinit();
1648
                                        return(EOF);
1649
                                }
41 ingob 1650
                        }
1651
                        file->SectorInCache     = file->DirectorySector;
1652
                        if(SD_SUCCESS != SDC_GetSector(file->SectorInCache, file->Cache))                                       // read the directory entry for this file.
1653
                        {
1654
                                Fat16_Deinit();
88 killagreg 1655
                                return(EOF);
41 ingob 1656
                        }
88 killagreg 1657
 
41 ingob 1658
                        dir = (DirEntry_t *)file->Cache;
324 killagreg 1659
                        // update file size and modification time & date
211 killagreg 1660
                        dir[file->DirectoryIndex].ModTime = FileTime(&SystemTime);
1661
                        dir[file->DirectoryIndex].ModDate = FileDate(&SystemTime);
1662
                        dir[file->DirectoryIndex].LastAccessDate = dir[file->DirectoryIndex].ModDate;
41 ingob 1663
                        dir[file->DirectoryIndex].Size = file->Size;                                            // update file size
1664
                        if(SD_SUCCESS != SDC_PutSector(file->SectorInCache, file->Cache))       // write back to sd-card
1665
                        {
1666
                                Fat16_Deinit();
1667
                                return(EOF);
1668
                        }
1669
                        break;
1670
                case 'r':
1671
                default:
211 killagreg 1672
                        // do nothing!
41 ingob 1673
                        return(EOF);
1674
                        break;
1675
 
24 StephanB 1676
        }
41 ingob 1677
        return(0);
24 StephanB 1678
}
1 ingob 1679
 
41 ingob 1680
/****************************************************************************************************************************************/
1681
/*      Function:               fclose_(File *file);                                                                                                                                                                                            */
1682
/*                                                                                                                                                                                                                                                                              */
1683
/*      Description:    This function closes the open file by writing the remaining data                                                                                                        */
1684
/*                                      from the buffer to the device and entering the filesize in the directory entry.                                                                         */
1685
/*                                                                                                                                                                                                                                                                              */
1686
/*      Returnvalue:    0 on success EOF on error                                                                                                                                                                                       */
1687
/****************************************************************************************************************************************/
1688
s16 fclose_(File_t *file)
24 StephanB 1689
{
41 ingob 1690
        s16 returnvalue = EOF;
24 StephanB 1691
 
41 ingob 1692
        if(file == NULL) return(returnvalue);
1693
        returnvalue = fflush_(file);
1694
        UnlockFilePointer(file);
1695
        return(returnvalue);
24 StephanB 1696
}
1697
 
41 ingob 1698
/********************************************************************************************************************************************/
1699
/*      Function:               fgetc_(File *file);                                                                                                                                                                                                             */
1700
/*                                                                                                                                                                                                                                                                                      */
1701
/*      Description:    This function reads and returns one character from the specified file. Is the end of the actual sector reached the              */
1702
/*                                      next sector of the cluster is read. If the last sector of the cluster read the next cluster will be searched in FAT.    */
1703
/*                                                                                                                                                                                                                                                                                      */
1704
/*      Returnvalue:    The function returns the character read from the specified memorylocation as u8 casted to s16 or EOF.                                   */
1705
/********************************************************************************************************************************************/
1706
s16 fgetc_(File_t *file)
88 killagreg 1707
{
41 ingob 1708
        s16 c = EOF;
1709
        u32 curr_sector;
88 killagreg 1710
 
41 ingob 1711
        if( (!Partition.IsValid) || (file == NULL)) return(c);
1712
        // if the end of the file is not reached, get the next character.
349 ingob 1713
        if((0 < file->Size) && ((file->Position) < file->Size) )
1 ingob 1714
        {
41 ingob 1715
                curr_sector  = file->FirstSectorOfCurrCluster;          // calculate the sector of the next character to be read.
88 killagreg 1716
                curr_sector += file->SectorOfCurrCluster;
1717
 
41 ingob 1718
                if(file->SectorInCache != curr_sector)
1 ingob 1719
                {
41 ingob 1720
                        file->SectorInCache = curr_sector;
1721
                        if(SD_SUCCESS != SDC_GetSector(file->SectorInCache,file->Cache))
1722
                        {
1723
                                Fat16_Deinit();
363 ingob 1724
                                return(EOF);
88 killagreg 1725
                        }
1726
                }
41 ingob 1727
                c = (s16) file->Cache[file->ByteOfCurrSector];
1728
                file->Position++;                                                                       // increment file position
88 killagreg 1729
                file->ByteOfCurrSector++;                                                       // goto next byte in sector
41 ingob 1730
                if(file->ByteOfCurrSector >= BYTES_PER_SECTOR)          // if end of sector
24 StephanB 1731
                {
41 ingob 1732
                        file->ByteOfCurrSector = 0;                                             //  reset byte location
1733
                        file->SectorOfCurrCluster++;                                    //      next sector
1734
                        if(file->SectorOfCurrCluster >= Partition.SectorsPerCluster)    // if end of cluster is reached, the next datacluster has to be searched in the FAT.
24 StephanB 1735
                        {
88 killagreg 1736
 
41 ingob 1737
                                if(GetNextCluster(file))                                                                                // Sets the clusterpointer of the file to the next datacluster.
24 StephanB 1738
                                {
41 ingob 1739
                                        file->SectorOfCurrCluster = 0;                                                          // start reading new cluster at first sector of the cluster.
1740
                                }
1741
                                else // the last cluster was allready reached
1742
                                {
1743
                                        file->SectorOfCurrCluster--;                                                    // jump back to the last sector in the last cluster
1744
                                        file->ByteOfCurrSector = BYTES_PER_SECTOR;                              // set ByteOfCurrSector one byte over sector end
1745
                                }
1 ingob 1746
                        }
24 StephanB 1747
                }
1748
        }
41 ingob 1749
        return(c);
24 StephanB 1750
}
1751
 
41 ingob 1752
/********************************************************************************************************************************************/
1753
/*      Function:               fputc_( const s8 c, File *file);                                                                                                                                                                                */
1754
/*                                                                                                                                                                                                                                                                                      */
1755
/*      Description:    This function writes a byte to the specified file and takes care of writing the necessary FAT- Entries.                                 */
1756
/*                                      next sector of the cluster is read. If the last sector of the cluster read the next cluster will be searched in FAT.    */
1757
/*                                                                                                                                                                                                                                                                                      */
1758
/*      Returnvalue:    The function returns the character written to the stream or EOF on error.                                                                                               */
1759
/********************************************************************************************************************************************/
1760
s16 fputc_(const s8 c, File_t *file)
88 killagreg 1761
{
41 ingob 1762
        u32 curr_sector  = 0;
88 killagreg 1763
 
41 ingob 1764
        if((!Partition.IsValid) || (file == NULL)) return(EOF);
211 killagreg 1765
        switch(file->Mode)
41 ingob 1766
        {
211 killagreg 1767
                case 'w':
1768
                case 'a':
1769
                        // If file position equals to file size, then the end of file has been reached.
1770
                        // In this case it has to be checked that the ByteOfCurrSector is BYTES_PER_SECTOR
1771
                        // and a new cluster should be appended.
1772
                        // If the first sector of first cluster is unvalid, then the file claims no data clusters 
1773
                        // and size should be zero, therefore append a new Cluster too.
1774
                        if(((file->Position >= file->Size) && (file->ByteOfCurrSector >= BYTES_PER_SECTOR)) || (file->FirstSectorOfFirstCluster == SECTOR_UNDEFINED))
1775
                        {
1776
                                if(CLUSTER_UNDEFINED == AppendCluster(file)) return(EOF);
1777
                        }
1778
 
1779
                        curr_sector  = file->FirstSectorOfCurrCluster;
1780
                        curr_sector += file->SectorOfCurrCluster;
1781
                        if(file->SectorInCache != curr_sector)
1782
                        {
1783
                                file->SectorInCache = curr_sector;
1784
                                if(SD_SUCCESS != SDC_GetSector(file->SectorInCache, file->Cache))
24 StephanB 1785
                                {
211 killagreg 1786
                                        Fat16_Deinit();
1787
                                        return(EOF);
24 StephanB 1788
                                }
1 ingob 1789
                        }
211 killagreg 1790
 
1791
                        file->Cache[file->ByteOfCurrSector] = (u8)c;            // write databyte into the buffer. The byte will be written to the device at once
1792
                        if(file->Size == file->Position) file->Size++;          // a character has been written to the file so the size is incremented only when the character has been added at the end of the file.
1793
                        file->Position++;                                                                       // the actual positon within the file.
1794
                        file->ByteOfCurrSector++;                                                       // goto next byte in sector
1795
                        if(file->ByteOfCurrSector >= BYTES_PER_SECTOR)          // if the end of this sector is reached yet
1796
                        {       // save the sector to the sd-card
1797
                                if(SD_SUCCESS != SDC_PutSector(file->SectorInCache, file->Cache))
1798
                                {
1799
                                        Fat16_Deinit();
1800
                                        return(EOF);
1801
                                }
1802
                                file->ByteOfCurrSector = 0;                                             //  reset byte location
1803
                                file->SectorOfCurrCluster++;                                    //      next sector
1804
                                if(file->SectorOfCurrCluster >= Partition.SectorsPerCluster)// if end of cluster is reached, the next datacluster has to be searched in the FAT.
1805
                                {
1806
                                        if(!GetNextCluster(file))                                                               // Sets the clusterpointer of the file to the next datacluster.
1807
                                        { // if current cluster was the last cluster of the file
1808
                                                if(!AppendCluster(file))                                                // append a new and free cluster at the end of the file.
1809
                                                {
1810
                                                        file->SectorOfCurrCluster--;                            // jump back to last sector of last cluster
1811
                                                        file->ByteOfCurrSector = BYTES_PER_SECTOR;      // set byte location to 1 byte over sector len
1812
                                                        return(EOF);
1813
                                                }
1814
                                        }
1815
                                        else // next cluster
1816
                                        {
1817
                                                file->SectorOfCurrCluster = 0;                                                  // start reading new cluster at first sector of the cluster.
1818
                                        }
1819
                                }
88 killagreg 1820
                        }
211 killagreg 1821
                        break;
1822
                case 'r':
1823
                default:
1824
                        return(EOF);
1825
                        break;
1826
        } // EOF switch(file->Mode)
41 ingob 1827
        return(0);
24 StephanB 1828
}
1829
 
1830
 
41 ingob 1831
/****************************************************************************************************************************************/
1832
/*      Function:               fread_(void *buffer, s32 size, s32 count, File *File);                                                                                                                          */
1833
/*                                                                                                                                                                                                                                                                              */
1834
/*      Description:    This function reads count objects of the specified size                                                                                                                         */
1835
/*                                      from the actual position of the file to the specified buffer.                                                                                                           */
1836
/*                                                                                                                                                                                                                                                                              */
1837
/*      Returnvalue:    The function returns the number of objects (not bytes) read from the file.                                                                                      */
1838
/****************************************************************************************************************************************/
1839
u32 fread_(void *buffer, u32 size, u32 count, File_t *file)
1840
{
1841
        u32 object_cnt  = 0;                                                                                    // count the number of objects read from the file.
1842
        u32 object_size = 0;                                                                                    // count the number of bytes read from the actual object.
1843
        u8 *pbuff       = 0;                                                                                    // a pointer to the actual bufferposition.
1844
        u8 success      = 1;                                                                                    // no error occured during read operation to the file.
88 killagreg 1845
        s16 c;
24 StephanB 1846
 
41 ingob 1847
        if((!Partition.IsValid) || (file == NULL) || (buffer == NULL)) return(0);
24 StephanB 1848
 
41 ingob 1849
        pbuff = (u8 *) buffer;                                                                                  // cast the void pointer to an u8 *
88 killagreg 1850
 
362 holgerb 1851
        while((object_cnt < count) && success && (SD_WatchDog))
24 StephanB 1852
        {
41 ingob 1853
                object_size = size;
362 holgerb 1854
                while((size > 0) && success && (SD_WatchDog))
41 ingob 1855
                {
1856
                        c = fgetc_(file);
1857
                        if(c != EOF)
1858
                        {
1859
                                *pbuff = (u8)c;                                                                         // read a byte from the buffer to the opened file.
1860
                                pbuff++;
1861
                                size--;
1862
                        }
1863
                        else // error or end of file reached
1864
                        {
88 killagreg 1865
                                success = 0;
41 ingob 1866
                        }
1867
                }
1868
                if(success) object_cnt++;
88 killagreg 1869
        }
41 ingob 1870
        return(object_cnt);                                                                                             // return the number of objects succesfully read from the file
1 ingob 1871
}
1872
 
24 StephanB 1873
 
41 ingob 1874
/****************************************************************************************************************************************/
1875
/*      Function:               fwrite_(void *buffer, s32 size, s32 count, File *file);                                                                                                                         */
1876
/*                                                                                                                                                                                                                                                                              */
1877
/*      Description:    This function writes count objects of the specified size                                                                                                                        */
1878
/*                                      from the buffer pointer to the actual position in the file.                                                                                                                     */
1879
/*                                                                                                                                                                                                                                                                              */
1880
/*      Returnvalue:    The function returns the number of objects (not bytes) read from the file.                                                                                      */
1881
/****************************************************************************************************************************************/
1882
u32 fwrite_(void *buffer, u32 size, u32 count, File_t *file)
1 ingob 1883
{
41 ingob 1884
        u32 object_cnt  = 0;                                                                                                            // count the number of objects written to the file.
1885
        u32 object_size = 0;                                                                                                            // count the number of bytes written from the actual object.
1886
        u8 *pbuff           = 0;                                                                                                                // a pointer to the actual bufferposition.
1887
        u8 success      = 1;                                                                                                            // no error occured during write operation to the file.
88 killagreg 1888
        s16 c;
24 StephanB 1889
 
41 ingob 1890
        if((!Partition.IsValid) || (file == NULL) || (buffer == NULL)) return(0);
211 killagreg 1891
        if(file->Mode == 'r') return (0); // opened read only
41 ingob 1892
        pbuff = (u8 *) buffer;                                                                                                          // cast the void pointer to an u8 *
88 killagreg 1893
 
362 holgerb 1894
        while((object_cnt < count) && success && (SD_WatchDog))
1 ingob 1895
        {
41 ingob 1896
                object_size = size;
362 holgerb 1897
                while((size > 0) && success && (SD_WatchDog))
1 ingob 1898
                {
41 ingob 1899
                        c = fputc_(*pbuff, file);                                                                               // write a byte from the buffer to the opened file.
1900
                        if(c != EOF)
24 StephanB 1901
                        {
41 ingob 1902
                                pbuff++;
1903
                                size--;
24 StephanB 1904
                        }
41 ingob 1905
                        else
24 StephanB 1906
                        {
41 ingob 1907
                                success = 0;
24 StephanB 1908
                        }
1 ingob 1909
                }
41 ingob 1910
                if(success) object_cnt++;
88 killagreg 1911
        }
1912
 
41 ingob 1913
        return(object_cnt);                                                                                                                             // return the number of objects succesfully written to the file
88 killagreg 1914
}
1 ingob 1915
 
24 StephanB 1916
 
41 ingob 1917
/****************************************************************************************************************************************/
1918
/*      Function:               fputs_(const s8 *string, File_t *File);                                                                                                                                                         */
1919
/*                                                                                                                                                                                                                                                                              */
1920
/*      Description:    This function writes a string to the specified file.                                                                                                                            */
1921
/*                                                                                                                                                                                                                                                                              */
1922
/*      Returnvalue:    The function returns a no negative value or EOF on error.                                                                                                                       */
1923
/****************************************************************************************************************************************/
89 killagreg 1924
s16 fputs_(s8 * const string, File_t * const file)
24 StephanB 1925
{
41 ingob 1926
        u8 i=0;
1927
        s16 c = 0;
88 killagreg 1928
 
211 killagreg 1929
        if((!Partition.IsValid) || (file == NULL) || (string == NULL)) return(EOF);
1930
        if(file->Mode == 'r') return(EOF);
362 holgerb 1931
        while((string[i] != 0)&& (c != EOF) && (SD_WatchDog))
24 StephanB 1932
        {
41 ingob 1933
                c = fputc_(string[i], file);
1934
                i++;
24 StephanB 1935
        }
41 ingob 1936
        return(c);
24 StephanB 1937
}
1938
 
41 ingob 1939
/****************************************************************************************************************************************/
1940
/*      Function:               fgets_(s8 *, s16 , File_t *);                                                                                                                                                                           */
1941
/*                                                                                                                                                                                                                                                                              */
1942
/*      Description:    This function reads a string from the file to the specifies string.                                                                                             */
1943
/*                                                                                                                                                                                                                                                                              */
1944
/*      Returnvalue:    A pointer to the string read from the file or 0 on error.                                                                                                                       */
1945
/****************************************************************************************************************************************/
89 killagreg 1946
s8 * fgets_(s8 * const string, s16 const length, File_t * const file)
24 StephanB 1947
{
89 killagreg 1948
        s8 *pbuff;
1949
        s16 c = 0, bytecount;
88 killagreg 1950
 
89 killagreg 1951
        if((!Partition.IsValid) || (file == NULL) || (string == NULL) || (length < 1)) return (0);
1952
        bytecount = length;
1953
        pbuff = string;                                                         // set write pointer to start of string
362 holgerb 1954
        while(bytecount > 1 && (SD_WatchDog))                                           // read the length-1 characters from the file to the string.
24 StephanB 1955
        {
41 ingob 1956
                c = fgetc_(file);                                               // read a character from the opened file.
1957
                switch(c)
1 ingob 1958
                {
89 killagreg 1959
                        case 0x0A:                                                      // new line
1960
                                *pbuff = 0;                                             // set string terminator
1961
                                return(string);                                 // return normal
88 killagreg 1962
 
41 ingob 1963
                        case EOF:
89 killagreg 1964
                                *pbuff = 0;                                             // set string terminator
1965
                                return(0);
1966
 
1967
                        default:
1968
                                *pbuff++ = (s8)c;                               // copy byte to string
1969
                                bytecount--;
88 killagreg 1970
                                break;
1 ingob 1971
                }
24 StephanB 1972
        }
89 killagreg 1973
        *pbuff = 0;     // set string terminator
41 ingob 1974
        return(string);
24 StephanB 1975
}
1976
 
41 ingob 1977
/****************************************************************************************************************************************/
1978
/*      Function:               fexist_(const u8*);                                                                                                                                                                                                     */
1979
/*                                                                                                                                                                                                                                                                              */
1980
/*      Description:    This function checks if a file already exist.                                                                                                                                           */
1981
/*                                                                                                                                                                                                                                                                              */
1982
/*      Returnvalue:    1 if the file exist else 0.                                                                                                                                                                                     */
1983
/****************************************************************************************************************************************/
89 killagreg 1984
u8 fexist_(s8 * const filename)
24 StephanB 1985
{
41 ingob 1986
        u8 exist = 0;
1987
        File_t *file = 0;
1988
        file = LockFilePointer();
1989
        exist = FileExist(filename, ATTR_NONE, ATTR_SUBDIRECTORY|ATTR_VOLUMELABEL, file);
1990
        UnlockFilePointer(file);
1991
        return(exist);
1 ingob 1992
}
24 StephanB 1993
 
41 ingob 1994
/****************************************************************************************************************************************/
1995
/*      Function:               feof_(File_t *File);                                                                                                                                                                                            */
1996
/*                                                                                                                                                                                                                                                                              */
1997
/*      Description:    This function checks wether the end of the file has been reached.                                                                                                                                               */
1998
/*                                                                                                                                                                                                                                                                              */
1999
/*      Returnvalue:    0 if the end of the file was not reached otherwise 1.                                                                                                                                                                           */
2000
/****************************************************************************************************************************************/
2001
u8 feof_(File_t *file)
88 killagreg 2002
{
41 ingob 2003
        if(((file->Position)+1) < (file->Size))
24 StephanB 2004
        {
2005
                return(0);
2006
        }
88 killagreg 2007
        else
24 StephanB 2008
        {
88 killagreg 2009
                return(1);
24 StephanB 2010
        }
2011
}
41 ingob 2012
 
210 killagreg 2013
/****************************************************************************************************************************************************/
2014
/* Function:    s8* FAT16_GetVolumeLabel(void)                                                                                                                                                                                                                  */
2015
/*                                                                                                                                                                                                                                                                                                      */
2016
/* Description: This function returns the volume label                                                                                                                                                                                          */
2017
/*                                                                                                                                                                                                                                                                                                      */
2018
/* Returnvalue: This function returns the pointer to the volume label or NULL if not found.                                                                                                                     */
2019
/****************************************************************************************************************************************************/
2020
s8* FAT16_GetVolumeLabel(void)
2021
{
2022
        s8              *pVolumeLabel = NULL;
2023
        u32             dir_sector, max_dir_sector, curr_sector;
2024
        u16     dir_entry = 0;
2025
        u8              i = 0;
41 ingob 2026
 
210 killagreg 2027
        DirEntry_t * dir;
2028
        File_t *file = NULL;
2029
 
2030
        // if Partition is not valud return NULL
2031
        if(!Partition.IsValid) return(pVolumeLabel);
2032
        // if Volume label was read before return it
2033
        if(Partition.VolumeLabel[0]!= '\0') return (Partition.VolumeLabel);
2034
        // try to catch a file pointer
2035
        file = LockFilePointer();
2036
        if(file == NULL) return(pVolumeLabel);
2037
        // search dir entries direct within the root directory area
2038
        file->DirectorySector = 0;
2039
        max_dir_sector = (Partition.MaxRootEntries * DIRENTRY_SIZE)/BYTES_PER_SECTOR;
2040
        file->FirstSectorOfFirstCluster = Partition.FirstRootDirSector;
2041
 
2042
        // update current file data area position to start of first cluster
2043
        file->FirstSectorOfCurrCluster  = file->FirstSectorOfFirstCluster;
2044
        file->SectorOfCurrCluster               = 0;
2045
        file->ByteOfCurrSector                  = 0;
2046
 
2047
        dir_sector = 0; // reset sector counter within a new cluster
2048
        do // loop over all sectors of the root directory
2049
        {
2050
                curr_sector = file->FirstSectorOfCurrCluster + dir_sector;      // calculate sector number
2051
                file->SectorInCache = curr_sector;                                                      // upate the sector number of file cache.
2052
                if(SD_SUCCESS != SDC_GetSector(file->SectorInCache, file->Cache))// read the sector
2053
                {
2054
                        Fat16_Deinit();
363 ingob 2055
                        return(NULL);
210 killagreg 2056
                }
2057
                dir = (DirEntry_t *)file->Cache;                                                        // set pointer to directory
2058
                // search all directory entries within that sector
2059
                for(dir_entry = 0; dir_entry < DIRENTRIES_PER_SECTOR; dir_entry++)
2060
                {   // check for existing dir entry
2061
                        switch((u8)dir[dir_entry].Name[0])
2062
                        {
2063
                                case SLOT_EMPTY:
2064
                                case SLOT_DELETED:
2065
                                        // ignore empty or deleted dir entries
2066
                                        break;
2067
                                default:
2068
                                        // check attributes for volume label
2069
                                        if ((dir[dir_entry].Attribute & ATTR_VOLUMELABEL) != ATTR_VOLUMELABEL) break; // attribute must match
2070
                                        // (first 11 characters include 8 chars of basename and 3 chars extension.)
2071
                                        for(i = 0; i<11;i++) Partition.VolumeLabel[i] = dir[dir_entry].Name[i];
2072
                                        Partition.VolumeLabel[11] = '\0'; // terminate string
2073
                                        file->Attribute = dir[dir_entry].Attribute; // store attribute of found dir entry
2074
                                        file->FirstSectorOfFirstCluster = Fat16ClusterToSector(dir[dir_entry].StartCluster); // set sector of first data cluster
2075
                                        file->FirstSectorOfCurrCluster = file->FirstSectorOfFirstCluster;
219 killagreg 2076
                                        file->SectorOfCurrCluster = 0;
2077
                                        file->ByteOfCurrSector = 0;
210 killagreg 2078
                                        file->DirectorySector = curr_sector; // current sector
2079
                                        file->DirectoryIndex  = dir_entry; // current direntry in current sector
2080
                                        file->Size = dir[dir_entry].Size;
2081
                                        dir_entry = DIRENTRIES_PER_SECTOR;      // stop for-loop
2082
                                        pVolumeLabel =  Partition.VolumeLabel;
2083
                        } // end of first byte of name check
2084
                }
2085
                dir_sector++; // search next sector
2086
        // stop if we reached the end of the cluster or the end of the root dir
362 holgerb 2087
        }while((dir_sector < max_dir_sector) && (!pVolumeLabel) && (SD_WatchDog));
210 killagreg 2088
 
2089
        UnlockFilePointer(file);
2090
        return(pVolumeLabel);
2091
}
349 ingob 2092
 
2093
 
2094
 
2095
#define ATTR_NONE               0x00    // normal file
2096
#define ATTR_READONLY           0x01    // file is readonly
2097
#define ATTR_HIDDEN                     0x02    // file is hidden
2098
#define ATTR_SYSTEM                     0x04    // file is a system file
2099
#define ATTR_VOLUMELABEL        0x08    // entry is a volume label
2100
#define ATTR_LONG_FILENAME      0x0F    // this is a long filename entry
2101
#define ATTR_SUBDIRECTORY       0x10    // entry is a directory name
2102
#define ATTR_ARCHIVE            0x20    // file is new or modified
2103
 
2104
 
2105
/********************************************************************************************************************************************/
2106
/*      Function:               u8 FindItem(Find_t);                                                                                                                                                                                                                    */
2107
/*                                                                                                                                                                                                                                                                                      */
2108
/*      Description:    This function looks for the item specified by global structure FindElement in the actual directory                                      */
2109
/*                                                                                                                                                                                                                                                              */
2110
/*                                                                                                                                                                                                                                                                                      */
2111
/*      Returnvalue:    TRUE if an matching element was found                                                                                                                                                                           */
2112
/********************************************************************************************************************************************/
2113
 
2114
u8 FindItem(Find_t *findelement)
2115
{
353 StephanB 2116
        u16             index = 0;
2117
        u16             max_dir_sector = 0;
2118
        u16     end_of_directory_not_reached = 1;                                                                               // the directory has been read completely without a result.
2119
        u8              i = 0;
349 ingob 2120
        u8              readpointer = 0;
2121
        u8              writepointer = 0;
2122
        u8              retvalue = 0;
2123
        DirEntry_t      *DirectoryEntry;
2124
        File_t  file;
2125
 
2126
        file.FirstSectorOfCurrCluster   = findelement->fp.FirstSectorOfCurrCluster;
2127
        file.SectorOfCurrCluster        = findelement->fp.SectorOfCurrCluster;
2128
        index                                                   = findelement->fp.DirectoryIndex;
2129
 
353 StephanB 2130
        // within the root directory area we can read sectors sequentially until the end of this area
2131
        if((Partition.FirstRootDirSector <= file.FirstSectorOfCurrCluster) && (file.FirstSectorOfCurrCluster < Partition.FirstDataSector))
2132
        {
2133
                max_dir_sector = (Partition.MaxRootEntries * DIRENTRY_SIZE)/BYTES_PER_SECTOR;
2134
        }
2135
        // within the data clusters we can read sectors sequentially only within the cluster
2136
        else if((Partition.FirstDataSector <= file.FirstSectorOfCurrCluster) && (file.FirstSectorOfCurrCluster <= Partition.LastDataSector))
2137
        {
2138
                max_dir_sector = Partition.SectorsPerCluster;                           // limit max secters before next cluster
2139
        }
349 ingob 2140
 
2141
        do
2142
        {                                                                                                                                                               // search the next 16 rootentries in this sector of the roordirectory.          
363 ingob 2143
                if(SD_SUCCESS != SDC_GetSector(((u32) file.FirstSectorOfCurrCluster + (u32)file.SectorOfCurrCluster), file.Cache));                                             // Read the Rootdirectory.
2144
                {
2145
                        Fat16_Deinit();
2146
                        return(0);
2147
                }
2148
 
349 ingob 2149
                DirectoryEntry = (DirEntry_t *)file.Cache;
2150
 
362 holgerb 2151
                while((!retvalue)&&(index<16) && (SD_WatchDog))
349 ingob 2152
                {
2153
                        i=0;                   
2154
                        if((u8) DirectoryEntry[index].Name[0] != 0xe5)                                                          // ignore deleted items.
2155
                        {
2156
                                while((i<=10)&&((DirectoryEntry[index].Name[i] == findelement->searchstring[i]) || (findelement->searchstring[i]=='*') || findelement->searchstring[i]=='?'))
2157
                                {
2158
                                        i++;
2159
                                }
2160
                        }
2161
                        if((DirectoryEntry[index].Attribute <= 0x30) && (DirectoryEntry[index].Attribute & findelement->attribmask) && (i==11))
2162
                        {
2163
                for(readpointer=0;readpointer<=10;readpointer++)
2164
                                {
2165
                                        if((DirectoryEntry[index].Name[readpointer] != ' ') && (readpointer!=8))
2166
                                        {
2167
                                                findelement->name[writepointer] = DirectoryEntry[index].Name[readpointer];      // copy the name of the item found to the find_structure.
2168
                                                writepointer++;
2169
                                        }
2170
                                        else  
2171
                                        {
353 StephanB 2172
                                                if(DirectoryEntry[index].Attribute == ATTR_ARCHIVE)                                            
349 ingob 2173
                                                {
2174
                                        if(readpointer < 8) readpointer=8;
2175
                                        if(DirectoryEntry[index].Name[readpointer] != ' ')
2176
                                        {
2177
                                        findelement->name[writepointer] = '.';                                                  // then seperate the name and the extension by a '.' at index 8.                                                
2178
                                        writepointer++;
2179
                                        findelement->name[writepointer] = DirectoryEntry[index].Name[readpointer];      // copy the name of the item found to the find_structure.
2180
                                        writepointer++;
2181
                                        }
2182
                                            else break;
2183
                                                }
2184
                            else break;
2185
                        }
2186
                        /* terminate the namestring with 0 for debugpurposes*/
2187
                        findelement->name[12] = 0;
2188
                                }
2189
                                findelement->fp.FirstSectorOfFirstCluster = (u32) DirectoryEntry[index].StartCluster;                                                  
2190
                                findelement->fp.DirectoryIndex   = index;              
2191
                                findelement->fp.FirstSectorOfCurrCluster   = file.FirstSectorOfCurrCluster;
2192
                                findelement->fp.DirectorySector  = (file.FirstSectorOfCurrCluster + file.SectorOfCurrCluster);
2193
                                findelement->fp.SectorOfCurrCluster      = file.SectorOfCurrCluster;
2194
                findelement->fp.Size            = DirectoryEntry[index].Size;
2195
                                findelement->fp.Attribute               = DirectoryEntry[index].Attribute;
2196
                retvalue = 1;
2197
                        }                      
353 StephanB 2198
                        /* search the next sector */
349 ingob 2199
                        index++;
2200
                }
353 StephanB 2201
                /* this sector has been searched but we havn't found what we are looking for. Therefore we have to find the next sector */
349 ingob 2202
                if(!retvalue)                                                                                                                           // file not found in this sector so take next sector.
2203
                {
353 StephanB 2204
                        /* in the next sector we start looking for the specified entry beginning at index 0 */
2205
                        index = 0;
2206
                        /* there are still sectors to be read within the cluster or within the linear addresspace of the rootdirectory */
2207
                        if(file.SectorOfCurrCluster < max_dir_sector-1)  file.SectorOfCurrCluster++; else end_of_directory_not_reached = 0;
2208
                        /* if we are looking for an directoryentry outside the rootdirectory and have reached the end of the cluster we have to get the next one */
2209
                        if(Partition.FirstDataSector <= file.FirstSectorOfCurrCluster)
2210
                        {
2211
                                end_of_directory_not_reached = GetNextCluster(&file);
349 ingob 2212
                        }
2213
                }
2214
        }
362 holgerb 2215
        while((end_of_directory_not_reached) && (!retvalue)  && (SD_WatchDog));
349 ingob 2216
 
2217
        return(retvalue);      
2218
}
2219
 
2220
 
353 StephanB 2221
 
2222
 
349 ingob 2223
/********************************************************************************************************************************************/
2224
/*      Function:               findnext_(Find_t *);                                                                                                                                                                                                                    */
2225
/*                                                                                                                                                                                                                                                                                      */
2226
/*      Description:    This function looks for the next item in the specified directory with a matching filename and fileattributes specified  */
2227
/*                  by function findfirst()                                                                                                                                                                                                     */
2228
/*                                                                                                                                                                                                                                                                                      */
2229
/*      Returnvalue:                                                                                                                                                                                                                                                    */
2230
/********************************************************************************************************************************************/
2231
u8 findnext_(Find_t * findelement)
2232
{
2233
        u8 itemfound = 0;
2234
        u8 index = 0;
2235
 
2236
        findelement->fp.DirectoryIndex++;
2237
 
2238
        /* before we start searching an element we clear the complete namestring within the structure FindElement */
2239
        for(index=0;index<11;index++) findelement->name[index] = 0;
2240
 
2241
        if(FindItem(findelement))
2242
        {
2243
                itemfound = 1;         
2244
        }
2245
 
2246
        return(itemfound);
2247
}
2248
 
2249
 
2250
 
2251
/********************************************************************************************************************************************/
353 StephanB 2252
/*      Function:               findfirst_(s8* filename, u8 attribmask, Find_t *);                                                                                                                                              */
349 ingob 2253
/*                                                                                                                                                                                                                                                                                      */
2254
/*      Description:    This function looks for the first item in the specified directory with a matching filename and fileattributes                   */
2255
/*                                      The filename of the element found is transformed from 8.3 to a string                                                                                                   */
2256
/*                                                                                                                                                                                                                                                                                      */
2257
/*                                                                                                                                                                                                                                                                                      */
2258
/*      Returnvalue:    (1) if Element was found. (0) if no valid element was found                                                                                                                     */
2259
/********************************************************************************************************************************************/
2260
u8 findfirst_(const s8* name, u8 attribmask, Find_t *findelement)
2261
{
2262
        u8 itemfound = 0;
2263
        u8 index = 0;  
2264
 
2265
        /* initialize the FindElement structure */
2266
        findelement->fp.FirstSectorOfFirstCluster = 0;  // First sector of the first cluster of the file.
2267
        findelement->fp.FirstSectorOfCurrCluster = Partition.CurrentWorkingDirectory;                                   // First sector of the cluster which is edited at the moment.
2268
        findelement->fp.SectorOfCurrCluster = 0;                                                        // The sector within the current cluster.
2269
        findelement->fp.ByteOfCurrSector = 0;                                                   // The byte location within the current sector.
2270
        findelement->fp.Size = 0;                                                                               // The size of the opend file in bytes.
2271
        findelement->fp.Position = 0;                                                                   // Pointer to a character within the file 0 < fileposition < filesize
2272
        findelement->fp.DirectorySector = 0;                                                            // the sectorposition where the directoryentry has been made.
2273
        findelement->fp.DirectoryIndex = 0;                                                             // The index to the directoryentry within the specified sector.
2274
        findelement->attribfilter = 0;
2275
        findelement->attribmask = attribmask;
2276
        findelement->searchstring[0]=0;
2277
 
2278
        /* seperate the name of the element to be found from the filepath and bring it to the 8.3*/
2279
        SeperateDirName(name, findelement->searchstring);
2280
        /* after the name of the element is in 8.3 we process the wildcards (*). After an * all following character are wildcards to */
2281
        for(index=0;index<8;index++)
2282
        {
2283
                /* if we find an wildcard within the name of the searchstring all remaining character after the wildcard shall be wildcards also */
2284
                if(findelement->searchstring[index] == '*')
2285
                {
2286
                        /*  */
2287
                        while(++index <8) findelement->searchstring[index] = '*';
2288
                }
2289
        }
2290
        for(index=8;index<11;index++)
2291
        {                                                                                                                                                                                                                                        
2292
                /* if we find an wildcard within the name of the searchstring all remaining character after the wildcard shall be wildcards also */
2293
                if(findelement->searchstring[index] == '*')
2294
                {
2295
                        /*  */
2296
                        while(++index <11) findelement->searchstring[index] = '*';
2297
                }
2298
        }
2299
 
2300
        /* the value of ...DirectoryIndex will be incremented in findnext_() thererfore it has to be decremented in findfirst_() */
2301
        findelement->fp.DirectoryIndex--;
2302
        /* now lets search for the item within the direcory */
2303
        itemfound = findnext_(findelement);
2304
 
2305
        return(itemfound);
2306
}
2307
 
2308
 
2309
/********************************************************************************************************************************************/
2310
/*      Function:               u8 GetDirCount(s8* filepath);                                                                                                                                                                                   */
2311
/*                                                                                                                                                                                                                                                                                      */
2312
/*      Description:    This function counts the number of subdirectories the dirpath contains                                                                                                  */
2313
/*                                                                                                                                                                                                                                                              */
2314
/*                                                                                                                                                                                                                                                                                      */
2315
/*      Returnvalue:    then number of subdirectories within the specified path                                                                                                                                 */
2316
/********************************************************************************************************************************************/
2317
u8 GetDirCount(u8 *dirpath)
2318
{
2319
   u8 i=0;
2320
   u8 cnt=0;
2321
 
362 holgerb 2322
   while(dirpath[i] != 0  && (SD_WatchDog))
349 ingob 2323
   {
2324
      if(dirpath[i]=='/')
2325
      {  
2326
         if(dirpath[i+1]!=0) cnt++;                                            // ignore last'/'
2327
      }
2328
      i++;  
2329
   }
2330
   i=0;  
2331
   return(cnt);
2332
}
2333
 
2334
 
2335
/********************************************************************************************************************************************/
2336
/* Funtion:     char *GetSubDirectory (char *dirpath, char *directory)                                                                                                                                          */
2337
/*                                                                                                                                                                                                                                                                                      */
2338
/* Description: this function returns a pointer to the beginning of the next subdirectory or NULL                                                                                       */
2339
/*                                                                                                                                                                                                                                                                                      */
2340
/*                                                                                                                                                                                                                                                                                      */
2341
/* returnvalue:   number of subdirectories in the filepath                                                                                                                                                                      */
2342
/********************************************************************************************************************************************/
2343
u8 * GetSubDirectory(u8 *dirpath, u8 *directory)
2344
{
2345
   u8 *cptr = dirpath;
2346
   u8 *dptr = directory;
2347
   u8 *retvalue = NULL;
2348
 
2349
   /* if the first character of the path is an '/' we go to the next character */
2350
   if(*cptr == '/') cptr++;
2351
   /* search end of path or subdirectory*/
362 holgerb 2352
   while((*cptr != 0) && (*cptr != '/') && (SD_WatchDog))
349 ingob 2353
   {
2354
      *dptr = *cptr;
2355
       dptr++;
2356
       cptr++;
2357
   }  
2358
   if(*cptr!=0) retvalue = ++cptr;
2359
   *dptr = 0;
2360
 
2361
   return(retvalue);
2362
}
2363
 
2364
/********************************************************************************************************************************************/
2365
/*      Function:               s8 *GetPath(void);                                                                                                                                                                                                              */
2366
/*                                                                                                                                                                                                                                                                                      */
2367
/*      Description:    This function function returns a pointer to the absolute path of the active partition                                                                   */
2368
/*                                                                                                                                                                                                                                      */
2369
/*                                                                                                                                                                                                                                                                                      */
2370
/*      Returnvalue:                                                                                                                                                                                                                                                    */
2371
/********************************************************************************************************************************************/
2372
 
2373
s8 *GetPath(void)
2374
{
2375
        return(Partition.PathToCwd);
2376
}
2377
 
2378
/********************************************************************************************************************************************/
2379
/*      Function:               void SetPathToRoot(void);                                                                                                                                                                                                       */
2380
/*                                                                                                                                                                                                                                                                                      */
2381
/*      Description:    This function sets the path to the rootdirectory                                                                                                                                                */
2382
/*                                                                                                                                                                                                                                      */
2383
/*                                                                                                                                                                                                                                                                                      */
2384
/*      Returnvalue:                                                                                                                                                                                                                                                    */
2385
/********************************************************************************************************************************************/
2386
 
2387
void SetPathToRoot(void)
2388
{
2389
        /* lets point to the rootdirectory */
2390
        strcpy(Partition.PathToCwd, "/");      
2391
}
2392
 
2393
/********************************************************************************************************************************************/
2394
/*      Function:               void AppendDirToPath(s8* directory);                                                                                                                                                                                    */
2395
/*                                                                                                                                                                                                                                                                                      */
2396
/*      Description:    This function function appends the name of an directory to the Path to the CWD                                                                                  */
2397
/*                                                                                                                                                                                                                                      */
2398
/*                                                                                                                                                                                                                                                                                      */
2399
/*      Returnvalue:                                                                                                                                                                                                                                                    */
2400
/********************************************************************************************************************************************/
2401
 
2402
void AppendDirToPath(s8* directory)
2403
{
2404
        /* append the name of the directory to the path */
2405
        strcat(Partition.PathToCwd, directory);
2406
        /* append a '/' after the directoryname */
2407
        strcat(Partition.PathToCwd, "/");
2408
}
2409
 
2410
/********************************************************************************************************************************************/
2411
/*      Function:               RemoveLastDirFromPath(void);                                                                                                                                                                                    */
2412
/*                                                                                                                                                                                                                                                                                      */
2413
/*      Description:    This function removes the last directory from the path to the cwd                                                                                                               */
2414
/*                                                                                                                                                                                                                                      */
2415
/*                                                                                                                                                                                                                                                                                      */
2416
/*      Returnvalue:                                                                                                                                                                                                                                                    */
2417
/********************************************************************************************************************************************/
2418
 
2419
void RemoveLastDirFromPath(void)
2420
{
2421
        /* a pointer to the beginning of the absolute path to the cwd */
2422
        s8 * cptr = Partition.PathToCwd;
2423
        /* lets find the end of the path to the cwd */
362 holgerb 2424
        while(*cptr != 0  && (SD_WatchDog)) cptr++;
353 StephanB 2425
        /* if the path is terminated with an '/' */
2426
        if((*(cptr-1)) == '/') *(cptr-1)=0;    
349 ingob 2427
        /* now lets find the beginning of the last directorientry */
362 holgerb 2428
        while((*cptr != '/'  && (SD_WatchDog)) && cptr > Partition.PathToCwd) cptr--;
353 StephanB 2429
        /* is there one subdirectory left within the path? */
2430
        if(cptr > Partition.PathToCwd)
2431
        {
2432
                /* we delete the direntry by terminating the path with 0 */
2433
                *cptr = 0;
2434
        }
2435
        /* there is no subdirectory left within the path. Therefore we create the root instead. */
2436
        else
2437
        {
2438
                *cptr = '/';
2439
                *(cptr+1) = 0;
2440
        }
349 ingob 2441
}
2442
 
2443
/********************************************************************************************************************************************/
2444
/*      Function:               chdir_(s8* filepath);                                                                                                                                                                                                   */
2445
/*                                                                                                                                                                                                                                                                                      */
2446
/*      Description:    This function changed the current working directory to the directory specified by the filepath                                                  */
2447
/*                  by function findfirst()                                                                                                                                                                                                     */
2448
/*                                                                                                                                                                                                                                                                                      */
2449
/*      Returnvalue:                                                                                                                                                                                                                                                    */
2450
/********************************************************************************************************************************************/
353 StephanB 2451
/*                                                                         
349 ingob 2452
#define ATTR_NONE               0x00    // normal file
2453
#define ATTR_READONLY           0x01    // file is readonly
2454
#define ATTR_HIDDEN                     0x02    // file is hidden
2455
#define ATTR_SYSTEM                     0x04    // file is a system file
2456
#define ATTR_VOLUMELABEL        0x08    // entry is a volume label
2457
#define ATTR_LONG_FILENAME      0x0F    // this is a long filename entry
2458
#define ATTR_SUBDIRECTORY       0x10    // entry is a directory name
2459
#define ATTR_ARCHIVE            0x20    // file is new or modified
2460
*/
2461
 
2462
u8 chdir_(s8 *path)
2463
{
2464
        u8              retvalue = 0;                                   // the value returned by this function
2465
        u32     ultemp = 0;                                             // temp. variable
2466
        u8     *directory = path;                               // pointer to a directoryname within the path
2467
        u8      dircount = 0;                                   // the number of subdirectoryentries within the path
2468
        u8      cache[64];                                              // a buffer containing the name of the subdirectory we are actually looking for
2469
        Find_t  fe;                                                             // The findelement needed for function findfirst to find the subdirectoryentry
2470
        s8              tp[256];                                                // temporarily we remember the actual path until the operation has finished successfully
2471
        u32     cwdt = 0;
359 StephanB 2472
        s8     *cptr;
349 ingob 2473
 
359 StephanB 2474
        /* bring the path into the correct syntax */
2475
        cptr = path;
2476
        /* search the whole string */
362 holgerb 2477
        while(*cptr != 0  && (SD_WatchDog))
359 StephanB 2478
        {
2479
                if(*cptr == '\\') *cptr = '/';
2480
                cptr++;
2481
        }
349 ingob 2482
        /* lets remember the actual path */
2483
        strcpy(tp, Partition.PathToCwd);
2484
        cwdt = Partition.CurrentWorkingDirectory;
359 StephanB 2485
        /* how many subdirectories are there within the path? */
2486
        dircount = GetDirCount(path);  
349 ingob 2487
        /* if the path is absolute we begin at the rootdirectory */
353 StephanB 2488
        if(path[0] == '/')
2489
        {
2490
                strcpy(Partition.PathToCwd, "/");
2491
                Partition.CurrentWorkingDirectory = Partition.FirstRootDirSector;
359 StephanB 2492
                /* if there is no other pathinformation we only switch to the rootdirectory. So theres nothing left todo.*/
2493
                if(!dircount) return(1);
353 StephanB 2494
        }
349 ingob 2495
        /* now we parse through all the subdirectories within the path */
2496
        do
2497
        {  
2498
                /* until all the subdirectories within the path have been processed */
2499
        if(dircount) dircount--;
2500
                /* this is the name of the next subdirectory we are looking for */             
2501
            directory = GetSubDirectory(directory, cache);  
2502
                /* search for the next subdirectory within the path */
2503
                if(findfirst_(cache, ATTR_SUBDIRECTORY, &fe))
2504
                {
2505
                        /* we try to change into the directory "..". Now we have to delete the last direntry from the path */
2506
                        if(strcmp(cache,"..") == 0) RemoveLastDirFromPath();
2507
                        /* we try to change into the actual directory so there's nothing todo */
2508
                        else if(cache[0] == '.') return(1);
2509
                        /* otherwise we append the name of the directory we are changing in to the path */
2510
                        else AppendDirToPath(cache);
2511
                        /* The startcluster within an directoryentry specifies the position within the fat where the file or directory starts */
2512
                        ultemp = (u32) fe.fp.FirstSectorOfFirstCluster;
2513
                        /* the first 2 entries are reserved for '.' and '..' */
2514
                        ultemp -= 2;
2515
                        /* now we have to transform the position within the fat into the corrosponding sectoraddress relative to the beginning of the datasection of the active partition*/
2516
                        ultemp *= Partition.SectorsPerCluster;
2517
                        /* at least we make the sectoraddress absolute by adding the relative address to the beginning of the datasection of the active partition */
2518
                        ultemp += Partition.FirstDataSector;
2519
                        /* the cwd now points to the specified directory */
2520
                        Partition.CurrentWorkingDirectory = ultemp;
2521
                        /* we found the folder specified by the foldername */
2522
                        retvalue = 1;
2523
                }
2524
        }
2525
        /* do this until all subdirectories have been found or a subdirectory is missing */
362 holgerb 2526
        while(dircount && retvalue  && (SD_WatchDog));
349 ingob 2527
 
2528
        /* if we could not change to the specified directory we restore the actual path */
2529
        if(!retvalue)
2530
        {
353 StephanB 2531
                Partition.CurrentWorkingDirectory = cwdt;                                                  
349 ingob 2532
                strcpy(Partition.PathToCwd, tp);
2533
        }
2534
        return(retvalue);      
2535
}