ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/cebix/Frodo4/Src/1541fs.cpp
Revision: 1.1
Committed: 2003-07-01T17:09:43Z (21 years, 4 months ago) by cebix
Branch: MAIN
Log Message:
imported files

File Contents

# User Rev Content
1 cebix 1.1 /*
2     * 1541fs.cpp - 1541 emulation in host file system
3     *
4     * Frodo (C) 1994-1997,2002 Christian Bauer
5     *
6     * This program is free software; you can redistribute it and/or modify
7     * it under the terms of the GNU General Public License as published by
8     * the Free Software Foundation; either version 2 of the License, or
9     * (at your option) any later version.
10     *
11     * This program is distributed in the hope that it will be useful,
12     * but WITHOUT ANY WARRANTY; without even the implied warranty of
13     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14     * GNU General Public License for more details.
15     *
16     * You should have received a copy of the GNU General Public License
17     * along with this program; if not, write to the Free Software
18     * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19     */
20    
21     /*
22     * Notes:
23     * ------
24     *
25     * - If the directory is opened (file name "$"), a temporary file
26     * with the structure of a 1541 directory file is created and
27     * opened. It can then be accessed in the same way as all other
28     * files.
29     *
30     * Incompatibilities:
31     * ------------------
32     *
33     * - No "raw" directory reading
34     * - No relative/sequential/user files
35     * - Only "I" and "UJ" commands implemented
36     */
37    
38     #include "sysdeps.h"
39    
40     #include "1541fs.h"
41     #include "IEC.h"
42     #include "main.h"
43     #include "Prefs.h"
44    
45     #ifdef __riscos__
46     #include "ROlib.h"
47     #endif
48    
49    
50     // Access modes
51     enum {
52     FMODE_READ, FMODE_WRITE, FMODE_APPEND
53     };
54    
55     // File types
56     enum {
57     FTYPE_PRG, FTYPE_SEQ
58     };
59    
60     // Prototypes
61     static bool match(char *p, char *n);
62    
63    
64     /*
65     * Constructor: Prepare emulation
66     */
67    
68     FSDrive::FSDrive(IEC *iec, char *path) : Drive(iec)
69     {
70     strcpy(orig_dir_path, path);
71     dir_path[0] = 0;
72    
73     if (change_dir(orig_dir_path)) {
74     for (int i=0; i<16; i++)
75     file[i] = NULL;
76    
77     Reset();
78    
79     Ready = true;
80     }
81     }
82    
83    
84     /*
85     * Destructor
86     */
87    
88     FSDrive::~FSDrive()
89     {
90     if (Ready) {
91     close_all_channels();
92     Ready = false;
93     }
94     }
95    
96    
97     /*
98     * Change emulation directory
99     */
100    
101     bool FSDrive::change_dir(char *dirpath)
102     {
103     #ifndef __riscos__
104     DIR *dir;
105    
106     if ((dir = opendir(dirpath)) != NULL) {
107     closedir(dir);
108     strcpy(dir_path, dirpath);
109     strncpy(dir_title, dir_path, 16);
110     return true;
111     } else
112     return false;
113     #else
114     int Info[4];
115    
116     if ((ReadCatalogueInfo(dirpath,Info) & 2) != 0) // Directory or image file
117     {
118     strcpy(dir_path, dirpath);
119     strncpy(dir_title, dir_path, 16);
120     return true;
121     }
122     else
123     {
124     return false;
125     }
126     #endif
127     }
128    
129    
130     /*
131     * Open channel
132     */
133    
134     uint8 FSDrive::Open(int channel, char *filename)
135     {
136     set_error(ERR_OK);
137    
138     // Channel 15: Execute file name as command
139     if (channel == 15) {
140     execute_command(filename);
141     return ST_OK;
142     }
143    
144     // Close previous file if still open
145     if (file[channel]) {
146     fclose(file[channel]);
147     file[channel] = NULL;
148     }
149    
150     if (filename[0] == '$')
151     return open_directory(channel, filename+1);
152    
153     if (filename[0] == '#') {
154     set_error(ERR_NOCHANNEL);
155     return ST_OK;
156     }
157    
158     return open_file(channel, filename);
159     }
160    
161    
162     /*
163     * Open file
164     */
165    
166     uint8 FSDrive::open_file(int channel, char *filename)
167     {
168     char plainname[NAMEBUF_LENGTH];
169     int filemode = FMODE_READ;
170     int filetype = FTYPE_PRG;
171     bool wildflag = false;
172     char *mode = "rb";
173    
174     convert_filename(filename, plainname, &filemode, &filetype, &wildflag);
175    
176     // Channel 0 is READ PRG, channel 1 is WRITE PRG
177     if (!channel) {
178     filemode = FMODE_READ;
179     filetype = FTYPE_PRG;
180     }
181     if (channel == 1) {
182     filemode = FMODE_WRITE;
183     filetype = FTYPE_PRG;
184     }
185    
186     // Wildcards are only allowed on reading
187     if (wildflag) {
188     if (filemode != FMODE_READ) {
189     set_error(ERR_SYNTAX33);
190     return ST_OK;
191     }
192     find_first_file(plainname);
193     }
194    
195     // Select fopen() mode according to file mode
196     switch (filemode) {
197     case FMODE_READ:
198     mode = "rb";
199     break;
200     case FMODE_WRITE:
201     mode = "wb";
202     break;
203     case FMODE_APPEND:
204     mode = "ab";
205     break;
206     }
207    
208     // Open file
209     #ifndef __riscos__
210     if (chdir(dir_path))
211     set_error(ERR_NOTREADY);
212     else if ((file[channel] = fopen(plainname, mode)) != NULL) {
213     if (filemode == FMODE_READ) // Read and buffer first byte
214     read_char[channel] = fgetc(file[channel]);
215     } else
216     set_error(ERR_FILENOTFOUND);
217     chdir(AppDirPath);
218     #else
219     {
220     char fullname[NAMEBUF_LENGTH];
221    
222     // On RISC OS make a full filename
223     sprintf(fullname,"%s.%s",dir_path,plainname);
224     if ((file[channel] = fopen(fullname, mode)) != NULL)
225     {
226     if (filemode == FMODE_READ)
227     {
228     read_char[channel] = fgetc(file[channel]);
229     }
230     }
231     else
232     {
233     set_error(ERR_FILENOTFOUND);
234     }
235     }
236     #endif
237    
238     return ST_OK;
239     }
240    
241    
242     /*
243     * Analyze file name, get access mode and type
244     */
245    
246     void FSDrive::convert_filename(char *srcname, char *destname, int *filemode, int *filetype, bool *wildflag)
247     {
248     char *p, *q;
249     int i;
250    
251     // Search for ':', p points to first character after ':'
252     if ((p = strchr(srcname, ':')) != NULL)
253     p++;
254     else
255     p = srcname;
256    
257     // Convert char set of the remaining string -> destname
258     q = destname;
259     for (i=0; i<NAMEBUF_LENGTH && (*q++ = conv_from_64(*p++, true)); i++) ;
260    
261     // Look for mode parameters seperated by ','
262     p = destname;
263     while ((p = strchr(p, ',')) != NULL) {
264    
265     // Cut string after the first ','
266     *p++ = 0;
267    
268     switch (*p) {
269     case 'p':
270     *filetype = FTYPE_PRG;
271     break;
272     case 's':
273     *filetype = FTYPE_SEQ;
274     break;
275     case 'r':
276     *filemode = FMODE_READ;
277     break;
278     case 'w':
279     *filemode = FMODE_WRITE;
280     break;
281     case 'a':
282     *filemode = FMODE_APPEND;
283     break;
284     }
285     }
286    
287     // Search for wildcards
288     *wildflag = (strchr(destname, '?') != NULL) || (strchr(destname, '*') != NULL);
289     }
290    
291    
292     /*
293     * Find first file matching wildcard pattern and get its real name
294     */
295    
296     // Return true if name 'n' matches pattern 'p'
297     static bool match(char *p, char *n)
298     {
299     if (!*p) // Null pattern matches everything
300     return true;
301    
302     do {
303     if (*p == '*') // Wildcard '*' matches all following characters
304     return true;
305     if ((*p != *n) && (*p != '?')) // Wildcard '?' matches single character
306     return false;
307     p++; n++;
308     } while (*p);
309    
310     return !*n;
311     }
312    
313     void FSDrive::find_first_file(char *name)
314     {
315     #ifndef __riscos__
316     DIR *dir;
317     struct dirent *de;
318    
319     // Open directory for reading and skip '.' and '..'
320     if ((dir = opendir(dir_path)) == NULL)
321     return;
322     de = readdir(dir);
323     while (de && (0 == strcmp(".", de->d_name) || 0 == strcmp("..", de->d_name)))
324     de = readdir(dir);
325    
326     while (de) {
327    
328     // Match found? Then copy real file name
329     if (match(name, de->d_name)) {
330     strncpy(name, de->d_name, NAMEBUF_LENGTH);
331     closedir(dir);
332     return;
333     }
334    
335     // Get next directory entry
336     de = readdir(dir);
337     }
338    
339     closedir(dir);
340     #else
341     dir_env de;
342     char Buffer[NAMEBUF_LENGTH];
343    
344     de.offset = 0; de.buffsize = NAMEBUF_LENGTH; de.match = name;
345     do
346     {
347     de.readno = 1;
348     if (ReadDirName(dir_path,Buffer,&de) != NULL) {de.offset = -1;}
349     else if (de.offset != -1)
350     {
351     if (match(name,Buffer))
352     {
353     strncpy(name, Buffer, NAMEBUF_LENGTH);
354     return;
355     }
356     }
357     }
358     while (de.offset != -1);
359     #endif
360     }
361    
362    
363     /*
364     * Open directory, create temporary file
365     */
366    
367     uint8 FSDrive::open_directory(int channel, char *filename)
368     {
369     char buf[] = "\001\004\001\001\0\0\022\042 \042 00 2A";
370     char str[NAMEBUF_LENGTH];
371     char pattern[NAMEBUF_LENGTH];
372     char *p, *q;
373     int i;
374     int filemode;
375     int filetype;
376     bool wildflag;
377    
378     #ifndef __riscos__
379     DIR *dir;
380     struct dirent *de;
381     struct stat statbuf;
382    
383     // Special treatment for "$0"
384     if (filename[0] == '0' && filename[1] == 0)
385     filename += 1;
386    
387     // Convert filename ('$' already stripped), filemode/type are ignored
388     convert_filename(filename, pattern, &filemode, &filetype, &wildflag);
389    
390     // Open directory for reading and skip '.' and '..'
391     if ((dir = opendir(dir_path)) == NULL) {
392     set_error(ERR_NOTREADY);
393     return ST_OK;
394     }
395     de = readdir(dir);
396     while (de && (0 == strcmp(".", de->d_name) || 0 == strcmp("..", de->d_name)))
397     de = readdir(dir);
398    
399     // Create temporary file
400     if ((file[channel] = tmpfile()) == NULL) {
401     closedir(dir);
402     return ST_OK;
403     }
404    
405     // Create directory title
406     p = &buf[8];
407     for (i=0; i<16 && dir_title[i]; i++)
408     *p++ = conv_to_64(dir_title[i], false);
409     fwrite(buf, 1, 32, file[channel]);
410    
411     // Create and write one line for every directory entry
412     while (de) {
413    
414     // Include only files matching the pattern
415     if (match(pattern, de->d_name)) {
416    
417     // Get file statistics
418     chdir(dir_path);
419     stat(de->d_name, &statbuf);
420     chdir(AppDirPath);
421    
422     // Clear line with spaces and terminate with null byte
423     memset(buf, ' ', 31);
424     buf[31] = 0;
425    
426     p = buf;
427     *p++ = 0x01; // Dummy line link
428     *p++ = 0x01;
429    
430     // Calculate size in blocks (254 bytes each)
431     i = (statbuf.st_size + 254) / 254;
432     *p++ = i & 0xff;
433     *p++ = (i >> 8) & 0xff;
434    
435     p++;
436     if (i < 10) p++; // Less than 10: add one space
437     if (i < 100) p++; // Less than 100: add another space
438    
439     // Convert and insert file name
440     strcpy(str, de->d_name);
441     *p++ = '\"';
442     q = p;
443     for (i=0; i<16 && str[i]; i++)
444     *q++ = conv_to_64(str[i], true);
445     *q++ = '\"';
446     p += 18;
447    
448     // File type
449     if (S_ISDIR(statbuf.st_mode)) {
450     *p++ = 'D';
451     *p++ = 'I';
452     *p++ = 'R';
453     } else {
454     *p++ = 'P';
455     *p++ = 'R';
456     *p++ = 'G';
457     }
458    
459     // Write line
460     fwrite(buf, 1, 32, file[channel]);
461     }
462    
463     // Get next directory entry
464     de = readdir(dir);
465     }
466     #else
467     dir_full_info di;
468     dir_env de;
469    
470     // Much of this is very similar to the original
471     if ((filename[0] == '0') && (filename[1] == 0)) {filename++;}
472     // Concatenate dir_path and pattern in buffer pattern ==> read subdirs!
473     strcpy(pattern,dir_path);
474     convert_filename(filename, pattern + strlen(pattern), &filemode, &filetype, &wildflag);
475    
476     // We don't use tmpfile() -- problems involved!
477     DeleteFile(RO_TEMPFILE); // first delete it, if it exists
478     if ((file[channel] = fopen(RO_TEMPFILE,"wb+")) == NULL)
479     {
480     return(ST_OK);
481     }
482     de.offset = 0; de.buffsize = NAMEBUF_LENGTH; de.match = filename;
483    
484     // Create directory title - copied from above
485     p = &buf[8];
486     for (i=0; i<16 && dir_title[i]; i++)
487     *p++ = conv_to_64(dir_title[i], false);
488     fwrite(buf, 1, 32, file[channel]);
489    
490     do
491     {
492     de.readno = 1;
493     if (ReadDirNameInfo(pattern,&di,&de) != NULL) {de.offset = -1;}
494     else if (de.offset != -1) // don't have to check for match here
495     {
496     memset(buf,' ',31); buf[31] = 0; // most of this: see above
497     p = buf; *p++ = 0x01; *p++ = 0x01;
498     i = (di.length + 254) / 254; *p++ = i & 0xff; *p++ = (i>>8) & 0xff;
499     p++;
500     if (i < 10) {*p++ = ' ';}
501     if (i < 100) {*p++ = ' ';}
502     strcpy(str, di.name);
503     *p++ = '\"'; q = p;
504     for (i=0; (i<16 && str[i]); i++)
505     {
506     *q++ = conv_to_64(str[i], true);
507     }
508     *q++ = '\"'; p += 18;
509     if ((di.otype & 2) == 0)
510     {
511     *p++ = 'P'; *p++ = 'R'; *p++ = 'G';
512     }
513     else
514     {
515     *p++ = 'D'; *p++ = 'I'; *p++ = 'R';
516     }
517     fwrite(buf, 1, 32, file[channel]);
518     }
519     }
520     while (de.offset != -1);
521     #endif
522    
523     // Final line
524     fwrite("\001\001\0\0BLOCKS FREE. \0\0", 1, 32, file[channel]);
525    
526     // Rewind file for reading and read first byte
527     rewind(file[channel]);
528     read_char[channel] = fgetc(file[channel]);
529    
530     #ifndef __riscos
531     // Close directory
532     closedir(dir);
533     #endif
534    
535     return ST_OK;
536     }
537    
538    
539     /*
540     * Close channel
541     */
542    
543     uint8 FSDrive::Close(int channel)
544     {
545     if (channel == 15) {
546     close_all_channels();
547     return ST_OK;
548     }
549    
550     if (file[channel]) {
551     fclose(file[channel]);
552     file[channel] = NULL;
553     }
554    
555     return ST_OK;
556     }
557    
558    
559     /*
560     * Close all channels
561     */
562    
563     void FSDrive::close_all_channels(void)
564     {
565     for (int i=0; i<15; i++)
566     Close(i);
567    
568     cmd_len = 0;
569     }
570    
571    
572     /*
573     * Read from channel
574     */
575    
576     uint8 FSDrive::Read(int channel, uint8 *byte)
577     {
578     int c;
579    
580     // Channel 15: Error channel
581     if (channel == 15) {
582     *byte = *error_ptr++;
583    
584     if (*byte != '\r')
585     return ST_OK;
586     else { // End of message
587     set_error(ERR_OK);
588     return ST_EOF;
589     }
590     }
591    
592     if (!file[channel]) return ST_READ_TIMEOUT;
593    
594     // Read one byte
595     *byte = read_char[channel];
596     c = fgetc(file[channel]);
597     if (c == EOF)
598     return ST_EOF;
599     else {
600     read_char[channel] = c;
601     return ST_OK;
602     }
603     }
604    
605    
606     /*
607     * Write to channel
608     */
609    
610     uint8 FSDrive::Write(int channel, uint8 byte, bool eoi)
611     {
612     // Channel 15: Collect chars and execute command on EOI
613     if (channel == 15) {
614     if (cmd_len >= 40)
615     return ST_TIMEOUT;
616    
617     cmd_buffer[cmd_len++] = byte;
618    
619     if (eoi) {
620     cmd_buffer[cmd_len] = 0;
621     cmd_len = 0;
622     execute_command(cmd_buffer);
623     }
624     return ST_OK;
625     }
626    
627     if (!file[channel]) {
628     set_error(ERR_FILENOTOPEN);
629     return ST_TIMEOUT;
630     }
631    
632     if (fputc(byte, file[channel]) == EOF) {
633     set_error(ERR_WRITEERROR);
634     return ST_TIMEOUT;
635     }
636    
637     return ST_OK;
638     }
639    
640    
641     /*
642     * Execute command string
643     */
644    
645     void FSDrive::execute_command(char *command)
646     {
647     switch (command[0]) {
648     case 'I':
649     close_all_channels();
650     set_error(ERR_OK);
651     break;
652    
653     case 'U':
654     if ((command[1] & 0x0f) == 0x0a) {
655     Reset();
656     } else
657     set_error(ERR_SYNTAX30);
658     break;
659    
660     case 'G':
661     if (command[1] != ':')
662     set_error(ERR_SYNTAX30);
663     else
664     chdir_cmd(&command[2]);
665     break;
666    
667     default:
668     set_error(ERR_SYNTAX30);
669     }
670     }
671    
672    
673     /*
674     * Execute 'G' command
675     */
676    
677     void FSDrive::chdir_cmd(char *dirpath)
678     {
679     char str[NAMEBUF_LENGTH];
680     char *p = str;
681    
682     close_all_channels();
683    
684     // G:. resets the directory path to its original setting
685     if (dirpath[0] == '.' && dirpath[1] == 0) {
686     change_dir(orig_dir_path);
687     } else {
688    
689     // Convert directory name
690     for (int i=0; i<NAMEBUF_LENGTH && (*p++ = conv_from_64(*dirpath++, false)); i++) ;
691    
692     if (!change_dir(str))
693     set_error(ERR_NOTREADY);
694     }
695     }
696    
697    
698     /*
699     * Reset drive
700     */
701    
702     void FSDrive::Reset(void)
703     {
704     close_all_channels();
705     cmd_len = 0;
706     set_error(ERR_STARTUP);
707     }
708    
709    
710     /*
711     * Conversion PETSCII->ASCII
712     */
713    
714     uint8 FSDrive::conv_from_64(uint8 c, bool map_slash)
715     {
716     if ((c >= 'A') && (c <= 'Z') || (c >= 'a') && (c <= 'z'))
717     return c ^ 0x20;
718     if ((c >= 0xc1) && (c <= 0xda))
719     return c ^ 0x80;
720     if ((c == '/') && map_slash && ThePrefs.MapSlash)
721     #ifdef __riscos__
722     return '.'; // directory separator is '.' in RO
723     if (c == '.') {return('_');} // convert dot to underscore
724     #else
725     return '\\';
726     #endif
727     return c;
728     }
729    
730    
731     /*
732     * Conversion ASCII->PETSCII
733     */
734    
735     uint8 FSDrive::conv_to_64(uint8 c, bool map_slash)
736     {
737     if ((c >= 'A') && (c <= 'Z') || (c >= 'a') && (c <= 'z'))
738     return c ^ 0x20;
739     #ifdef __riscos__
740     if ((c == '.') && map_slash && ThePrefs.MapSlash)
741     #else
742     if ((c == '\\') && map_slash && ThePrefs.MapSlash)
743     #endif
744     return '/';
745     #ifdef __riscos__
746     if (c == '_') {return('.');} // convert underscore to dot
747     #endif
748     return c;
749     }