| /programs/develop/libraries/menuetlibc/src/libc/dos/dos_emu/Makefile |
|---|
| 0,0 → 1,3 |
| THIS_SRCS = dosemu.c curdir.c emu_init.c |
| include $(MENUET_LIBC_TOPDIR)/Make.rules |
| /programs/develop/libraries/menuetlibc/src/libc/dos/dos_emu/curdir.c |
|---|
| 0,0 → 1,73 |
| #include<stdio.h> |
| #include<stdlib.h> |
| #include<string.h> |
| extern char __curdir_buf[1024]; |
| char* __get_curdir(void) {return __curdir_buf;} |
| static void ___chdir(char* dest, const char* src) |
| { |
| // handle absolute paths |
| if (src[0]=='/') |
| { |
| strcpy(dest,src); |
| return; |
| } |
| // handle relative paths |
| char* ptr = dest + strlen(dest); |
| while (*src) |
| { |
| if (src[0] == '.' && src[1] == 0) |
| break; |
| if (src[0] == '.' && src[1] == '/') |
| {++src;++src;continue;} |
| if (src[0] == '.' && src[1] == '.' && |
| (src[2] == 0 || src[2] == '/')) |
| { |
| while (ptr > dest && ptr[-1] != '/') |
| --ptr; |
| ++src;++src; |
| if (*src == 0) break; |
| ++src; |
| continue; |
| } |
| *ptr++ = '/'; |
| if (*src == '/') ++src; |
| while (*src && *src!='/') *ptr++ = *src++; |
| } |
| *ptr = 0; |
| } |
| void __chdir(const char* path) |
| { |
| ___chdir(__curdir_buf,path); |
| } |
| static char __libc_combine_buffer[1024]; |
| char* __libc_combine_path(const char* c) |
| { |
| strcpy(__libc_combine_buffer,__curdir_buf); |
| ___chdir(__libc_combine_buffer,c); |
| return __libc_combine_buffer; |
| } |
| #ifdef __TEST_IN_DOS__ |
| int main(void) |
| { |
| init_dir_stack(); |
| printf("|%s|\n",__get_curdir()); |
| __chdir("jp/1/2/3"); |
| printf("|%s|\n",__get_curdir()); |
| __chdir("/jp/1/2/3"); |
| printf("|%s|\n",__get_curdir()); |
| __chdir("../4"); |
| printf("|%s|\n",__get_curdir()); |
| __chdir("./../.."); |
| printf("|%s|\n",__get_curdir()); |
| printf("Combined=|%s|\n",combine_path("./abc/def/../../../rd/2")); |
| return 0; |
| } |
| #endif |
| /programs/develop/libraries/menuetlibc/src/libc/dos/dos_emu/dosemu.c |
|---|
| 0,0 → 1,238 |
| #include "dosemuin.h" |
| #include <errno.h> |
| static char _io_filename[256]; |
| static inline int sys_systree(struct systree_info * i,int * EBX) |
| { |
| int d0,d1; |
| __asm__ __volatile__("int $0x40" |
| :"=a"(d0),"=b"(d1) |
| :"0"(70),"1"((unsigned long)i) |
| :"memory"); |
| if(EBX) *EBX=d1; |
| return d0; |
| } |
| int dosemu_file_exists(const char * filename) |
| { |
| struct systree_info finf; |
| struct bdfe_item attr; |
| finf.command = 5; |
| finf.file_offset_low = 0; |
| finf.file_offset_high = 0; |
| finf.size = 0; |
| finf.data_pointer = (__u32)&attr; |
| finf._zero = 0; |
| finf.nameptr = filename; |
| if (sys_systree(&finf,NULL)!=0) |
| return -1; |
| return (int)attr.filesize_low; |
| } |
| int dosemu_createtrunc(const char * filename) |
| { |
| struct systree_info finf; |
| finf.command = 2; |
| finf.file_offset_low = finf.file_offset_high = 0; |
| finf.size = 0; |
| finf.data_pointer = 0; |
| finf._zero = 0; |
| finf.nameptr = filename; |
| if (sys_systree(&finf,NULL)) |
| return -1; |
| return 0; |
| } |
| _io_struct * dosemu_getiostruct(int handle) |
| { |
| if(handle<0 || handle>=_MAX_HANDLES) return NULL; |
| if(_io_handles[handle].oflags==-1) return NULL; |
| return _io_handles+handle; |
| } |
| int dosemu_allochandle(void) |
| { |
| int i; |
| for(i=0;i<_MAX_HANDLES;i++) |
| if(_io_handles[i].oflags==-1) return i; |
| return -1; |
| } |
| int dosemu_freehandle(int i) |
| { |
| if(i<0) return; |
| _io_handles[i].oflags=-1; |
| } |
| int dosemu_fileread(_io_struct * sh,char * buffer,int count) |
| { |
| struct systree_info finf; |
| int res,ebx; |
| finf.command = 0; |
| finf.file_offset_low = sh->pointer; |
| finf.file_offset_high = 0; |
| finf.size = count; |
| finf.data_pointer = (__u32)buffer; |
| finf._zero = 0; |
| finf.nameptr = sh->filename; |
| res = sys_systree(&finf,&ebx); |
| if (res != 0 && res != 6) |
| return -1; |
| sh->pointer += ebx; |
| return ebx; |
| } |
| int dosemu_filewrite(_io_struct * sh,char * buffer,int count) |
| { |
| struct systree_info finf; |
| int res,ebx; |
| finf.command = 3; |
| finf.file_offset_low = sh->pointer; |
| finf.file_offset_high = 0; |
| finf.size = count; |
| finf.data_pointer = (__u32)buffer; |
| finf._zero = 0; |
| finf.nameptr = sh->filename; |
| res = sys_systree(&finf,&ebx); |
| if (res != 0 && res != 6) |
| return -1; |
| sh->pointer += ebx; |
| if (sh->size < sh->pointer) |
| sh->size = sh->pointer; |
| return ebx; |
| } |
| int dosemu_iosize(int handle) |
| { |
| _io_struct * sh=dosemu_getiostruct(handle); |
| if(!sh) return -1; |
| return sh->size; |
| } |
| int dosemu_filesize(char * filename) |
| { |
| return dosemu_file_exists(filename); |
| } |
| static char fn_buf[256]; |
| int dosemu_open(char * filename,int oflags) |
| { |
| int baseflags,h,fsize; |
| _fixpath(filename,_io_filename); |
| baseflags=oflags&(O_RDONLY|O_WRONLY|O_RDWR); |
| h=dosemu_allochandle(); |
| fsize=dosemu_file_exists(_io_filename); |
| if(oflags & O_CREAT) |
| { |
| int creatflags=oflags & (O_EXCL|O_TRUNC); |
| if(creatflags & O_EXCL) |
| { |
| if(fsize>=0) |
| { |
| dosemu_freehandle(h); |
| return -1; |
| } |
| } |
| if(fsize<0 || (creatflags&O_TRUNC)) |
| { |
| if(dosemu_createtrunc(_io_filename)<0) |
| { |
| dosemu_freehandle(h); |
| return -1; |
| } |
| fsize=0; |
| } |
| } |
| else if (fsize<0) |
| { |
| dosemu_freehandle(h); |
| return -1; |
| } |
| _io_handles[h].oflags=oflags; |
| _io_handles[h].size=fsize; |
| _io_handles[h].pointer=0; |
| switch (baseflags) |
| { |
| case O_RDONLY:_io_handles[h].flags=_IO_READ;break; |
| case O_WRONLY:_io_handles[h].flags=_IO_WRITE;break; |
| case O_RDWR:_io_handles[h].flags=_IO_READ|_IO_WRITE;break; |
| default:dosemu_freehandle(h);return -1; |
| } |
| strcpy(_io_handles[h].filename,_io_filename); |
| return h; |
| } |
| int dosemu_tell(int handle) |
| { |
| _io_struct * sh=dosemu_getiostruct(handle); |
| if(!sh) return -1; |
| return sh->pointer; |
| } |
| int dosemu_lseek(int handle,long offset,int origin) |
| { |
| int newpointer=0; |
| _io_struct *sh=dosemu_getiostruct(handle); |
| if(!sh)return -1; |
| if(handle==0 || handle==1 || handle==2 || handle==3) return -1; |
| switch(origin) |
| { |
| case SEEK_SET: newpointer=offset;break; |
| case SEEK_CUR: newpointer=sh->pointer+offset;break; |
| case SEEK_END: newpointer=sh->size+offset;break; |
| } |
| if(newpointer<0)return -1; |
| sh->pointer=newpointer; |
| return newpointer; |
| } |
| int dosemu_read( int handle, void *buffer, unsigned int count ) |
| { |
| _io_struct *sh=dosemu_getiostruct(handle); |
| if(!sh)return -1; |
| if(!(sh->flags&_IO_READ)) return -1; |
| return dosemu_fileread(sh,buffer,count); |
| } |
| int dosemu_write( int handle, void *buffer, unsigned int count ) |
| { |
| _io_struct *sh=dosemu_getiostruct(handle); |
| int k; |
| if(!sh)return -1; |
| if(!(sh->flags&_IO_WRITE)) return -1; |
| return dosemu_filewrite(sh,buffer,count); |
| } |
| int dosemu_close( int handle ) |
| { |
| _io_struct *sh=dosemu_getiostruct(handle); |
| if(!sh)return -1; |
| dosemu_freehandle(handle); |
| return 0; |
| } |
| void _dosemu_flush(int handle) |
| {} |
| int dosemu_truncate(int fd, off_t where) |
| { |
| struct systree_info finf; |
| int res; |
| _io_struct* sh = dosemu_getiostruct(fd); |
| if (!sh) return EBADF; |
| if (!(sh->flags & _IO_WRITE)) return EBADF; |
| finf.command = 4; |
| finf.file_offset_low = where; |
| finf.file_offset_high = 0; |
| finf.size = 0; |
| finf.data_pointer = 0; |
| finf._zero = 0; |
| finf.nameptr = sh->filename; |
| res = sys_systree(&finf,NULL); |
| if (res == 8) return ENOSPC; |
| if (res) return EACCES; |
| sh->size = where; |
| return 0; |
| } |
| /programs/develop/libraries/menuetlibc/src/libc/dos/dos_emu/dosemuin.h |
|---|
| 0,0 → 1,26 |
| #include<stdio.h> |
| #include<stdlib.h> |
| #include<string.h> |
| #include<unistd.h> |
| #include<fcntl.h> |
| #include<errno.h> |
| #include<menuet/os.h> |
| #define _MAX_HANDLES 64 |
| #define _IO_READ 1 |
| #define _IO_WRITE 2 |
| #define _IO_BUFDIRTY 4 |
| #define IODEBUG(x...) /* */ |
| typedef struct |
| { |
| int size; |
| int oflags; |
| int flags; |
| int pointer; |
| char filename[512]; |
| } _io_struct; |
| extern _io_struct _io_handles[_MAX_HANDLES]; |
| /programs/develop/libraries/menuetlibc/src/libc/dos/dos_emu/emu_init.c |
|---|
| 0,0 → 1,32 |
| #include "dosemuin.h" |
| _io_struct _io_handles[_MAX_HANDLES]; |
| void dosemu_inithandles(void) |
| { |
| int i; |
| for(i=0;i<_MAX_HANDLES;i++) |
| _io_handles[i].oflags=-1; |
| _io_handles[0].oflags=1; |
| _io_handles[1].oflags=1; |
| _io_handles[2].oflags=1; |
| _io_handles[3].oflags=1; |
| } |
| /* If you want to do some actions for closing handles, |
| you must add it to this function |
| and uncomment call to atexit(dosemu_atexit) in crt1.c. |
| In this case I recommend to implement all referenced functions |
| here (and not in dosemu.c) to avoid linking dosemu.o |
| in programs which do not use I/O system. - diamond */ |
| //void dosemu_atexit() |
| //{} |
| char __curdir_buf[1024]; |
| extern char __menuet__app_path_area[]; |
| void init_dir_stack(void) |
| { |
| strcpy(__curdir_buf,__menuet__app_path_area); |
| *strrchr(__curdir_buf,'/') = 0; |
| } |
| /programs/develop/libraries/menuetlibc/src/libc/dos/dos_emu/fslayer.c |
|---|
| 0,0 → 1,287 |
| #include<stdio.h> |
| #include<stdlib.h> |
| #include<string.h> |
| #include<errno.h> |
| #include<fcntl.h> |
| #include<menuet/os.h> |
| struct systree_blk |
| { |
| unsigned long cmd,pos,blks; |
| void * data,* work; |
| char name[256]; |
| } __attribute__((packed)); |
| typedef struct EMU_FILE |
| { |
| int handle; |
| unsigned long size; |
| unsigned long pos; |
| unsigned long mode; |
| unsigned long current_sector; |
| unsigned long size_sectors; |
| char * write_buf; |
| unsigned long write_bufsize; |
| char rd_buffer[512]; |
| char name[256]; |
| unsigned char dirty; |
| } EMU_FILE; |
| #define _MAX_HANDLES 64 |
| static EMU_FILE * EMU_file_table[_MAX_HANDLES]; |
| static char systree_work_area[16384+512]; |
| static volatile struct systree_blk sblk; |
| static volatile int S_eax,S_ebx; |
| static inline int EMU_alloc_handle(void) |
| { |
| register int i; |
| for(i=0;i<_MAX_HANDLES;i++) |
| if(!EMU_file_table[i]) |
| { |
| EMU_file_table[i]=(EMU_FILE *)malloc(sizeof(EMU_FILE)); |
| if(!EMU_file_table[i]) return -ENOMEM; |
| return i; |
| } |
| return -EAGAIN; |
| } |
| static inline int EMU_systree_cmd(void) |
| { |
| __asm__ __volatile__("int $0x40" |
| :"=a"(S_eax),"=b"(S_ebx) |
| :"0"(58),"1"((void *)&sblk)); |
| return S_eax; |
| } |
| static int EMU_loadsector(EMU_FILE * filp) |
| { |
| sblk.cmd=0; |
| sblk.pos=filp->current_sector; |
| sblk.blks=1; |
| sblk.data=filp->rd_buffer; |
| sblk.work=systree_work_area; |
| memcpy((void *)&sblk.name,(const void *)filp->name,strlen(filp->name)+1); |
| return EMU_systree_cmd(); |
| } |
| static int EMU_fsync(EMU_FILE * filp) |
| { |
| if(filp->mode==O_RDONLY) return 0; |
| if(!filp->dirty) return 0; |
| filp->dirty=0; |
| sblk.cmd=1; |
| sblk.pos=0; |
| sblk.blks=filp->size; |
| sblk.data=filp->write_buf; |
| sblk.work=systree_work_area; |
| memcpy((void *)sblk.name,(const void *)filp->name,strlen(filp->name)+1); |
| return EMU_systree_cmd(); |
| } |
| static inline int EMU_realloc_buf(EMU_FILE * filp,unsigned long newsize) |
| { |
| char * n; |
| newsize=(newsize+511)&~511; |
| if(filp->write_bufsize==newsize) return 0; |
| n=(char *)realloc(filp->write_buf,newsize); |
| if(!n) return -ENOSPC; |
| filp->write_buf=n; |
| filp->write_bufsize=newsize; |
| filp->dirty=1; |
| return 0; |
| } |
| static int EMU_createtrunc(char * fname) |
| { |
| sblk.cmd=1; |
| sblk.pos=0; |
| sblk.blks=0; |
| sblk.data=sblk.work=systree_work_area; |
| memcpy((void *)sblk.name,(const void *)fname,strlen(fname)+1); |
| return EMU_systree_cmd(); |
| } |
| static int EMU_getfsize(char * fname,unsigned long * sizep) |
| { |
| sblk.cmd=0; |
| sblk.pos=0; |
| sblk.blks=1; |
| sblk.data=systree_work_area+16384; |
| sblk.work=systree_work_area; |
| memcpy((void *)sblk.name,(const void *)fname,strlen(fname)+1); |
| if(EMU_systree_cmd()!=0) return -EINVAL; |
| if(sizep) *sizep=(unsigned long)S_ebx; |
| return 0; |
| } |
| static int EMU_open(char * fname,int mode) |
| { |
| EMU_FILE * filp; |
| register int hid; |
| unsigned long iomode; |
| hid=EMU_alloc_handle(); |
| if(hid<0) return hid; |
| filp=EMU_file_table[hid]; |
| filp->handle=hid; |
| iomode=mode&(O_RDONLY|O_WRONLY|O_RDWR); |
| memcpy((void *)filp->name,(const void *)fname,strlen(fname)+1); |
| strupr(filp->name); |
| filp->mode=iomode; |
| if(mode&O_CREAT) |
| { |
| int createflags=mode&(O_TRUNC|O_EXCL); |
| if(createflags&O_EXCL) |
| { |
| unsigned long psz=0; |
| if(EMU_getfsize(filp->name,&psz)==0) |
| { |
| free(EMU_file_table[hid=filp->handle]); |
| EMU_file_table[hid]=NULL; |
| return -EEXIST; |
| } |
| } |
| if(createflags&O_TRUNC) |
| { |
| EMU_createtrunc(filp->name); |
| } |
| } |
| if(iomode==O_RDONLY) |
| { |
| hid=EMU_getfsize(filp->name,&filp->size); |
| if(hid<0) |
| { |
| free(EMU_file_table[hid=filp->handle]); |
| EMU_file_table[hid]=NULL; |
| return -ENOENT; |
| } |
| filp->current_sector=0; |
| if(EMU_loadsector(filp)<0) filp->current_sector=-1UL; |
| filp->mode=O_RDONLY; |
| filp->size_sectors=(filp->size+511)/512; |
| filp->write_bufsize=0; |
| filp->dirty=0; |
| return filp->handle; |
| } |
| if(iomode==O_WRONLY) |
| { |
| hid=EMU_getfsize(filp->name,&filp->size); |
| if(hid<0) |
| { |
| BAD_WRO: |
| free(EMU_file_table[hid=filp->handle]); |
| EMU_file_table[hid]=NULL; |
| return -ENOENT; |
| } |
| filp->current_sector=-1UL; |
| filp->mode=O_WRONLY; |
| filp->size_sectors=0; |
| filp->write_bufsize=(filp->size+511)&~511; |
| filp->write_buf=(char *)malloc(filp->write_bufsize); |
| if(!filp->write_buf) |
| { |
| free(filp->write_buf); |
| goto BAD_WRO; |
| } |
| sblk.cmd=0; |
| sblk.pos=0; |
| sblk.blks=filp->write_bufsize/512; |
| sblk.data=filp->write_buf; |
| sblk.work=systree_work_area; |
| if(EMU_systree_cmd()!=0) goto BAD_WRO1; |
| return filp->handle; |
| } |
| hid=EMU_getfsize(filp->name,&filp->size); |
| if(hid<0) |
| { |
| BAD_WRO1: |
| free(EMU_file_table[hid=filp->handle]); |
| EMU_file_table[hid]=NULL; |
| return -ENOENT; |
| } |
| filp->current_sector=-1UL; |
| filp->mode=O_RDWR; |
| filp->size_sectors=0; |
| filp->write_bufsize=(filp->size+511)&~511; |
| filp->write_buf=(char *)malloc(filp->write_bufsize); |
| if(!filp->write_buf) |
| { |
| free(filp->write_buf); |
| goto BAD_WRO1; |
| } |
| sblk.cmd=0; |
| sblk.pos=0; |
| sblk.blks=filp->write_bufsize/512; |
| sblk.data=filp->write_buf; |
| sblk.work=systree_work_area; |
| if(EMU_systree_cmd()!=0) goto BAD_WRO1; |
| return filp->handle; |
| } |
| static int EMU_close(EMU_FILE * filp) |
| { |
| int hid; |
| if(!filp) return -ENOENT; |
| if(EMU_file_table[hid=filp->handle]!=filp) return -EBADF; |
| if(filp->write_buf) free(filp->write_buf); |
| free(filp); |
| EMU_file_table[hid]=NULL; |
| return 0; |
| } |
| static int EMU_lseek(EMU_FILE * filp,unsigned long off,int whence) |
| { |
| unsigned long newpos; |
| switch(whence) |
| { |
| case SEEK_SET: |
| newpos=off; |
| break; |
| case SEEK_CUR: |
| newpos=filp->pos+off; |
| break; |
| case SEEK_END: |
| newpos=filp->size+off-1; |
| break; |
| } |
| if(newpos>=filp->size) return -1; |
| filp->pos=newpos; |
| return filp->pos; |
| } |
| static int EMU_read(EMU_FILE * filp,unsigned long size,void * buf) |
| { |
| int icount,curr_sector,curr_sector_ofs,n; |
| int nbufbytes,totalremaining; |
| if(filp->pos+count>filp->size) |
| count=filp->size-filp->pos; |
| if(filp->mode==O_RDWR) |
| { |
| memcpy(buffer,filp->write_buf+filp->pos,count); |
| filp->pos+=count; |
| return count; |
| } |
| icount=count; |
| while(count>0) |
| { |
| if(filp->pos>=filp->size) return icount=count; |
| curr_sector=sh->pointer>>9; |
| curr_sector_ofs=sh->pointer&511; |
| n=count; |
| if(sh->bufsector==-1 || curr_sector!=sh->bufsector) |
| { |
| if(dosemu_loadcurrsector(sh)==-1) return -1; |
| } |
| nbufbytes=512-curr_sector_ofs; |
| totalremaining=sh->size-sh->pointer; |
| if(nbufbytes>totalremaining) nbufbytes=totalremaining; |
| if(n>nbufbytes) n=nbufbytes; |
| memcpy(buffer,&sh->buf[curr_sector_ofs],n); |
| buffer+=n; |
| count-=n; |
| sh->pointer+=n; |
| } |
| return icount; |
| } |
| } |