kcp
/
kip
mirror of https://git.cro.wtf/kip.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

small disk behaviour change

This commit is contained in:
Kitty-Cricket Piapiac 2023-06-29 03:26:49 -07:00
parent 27329ad76d
commit ff93a7ccfc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
kip-io-disk.c
View File

@ -11,7 +11,7 @@ V disk_close(B i){Disk d=ds[i];Q(d.f,fclose(d.f),d.z=0,d.f=0)}
V disk_closeall(V){disk_close(1),disk_close(2),disk_close(3);}
#define UA "disk %d unavailable",w
DEV(disk_which,(w=x;Q(2<w,die(UA))),(R w))
DEV(disk_which,(Q(3>x&&ds[x].f,w=x)OR w=-1),(R w))
DEV(disk_size,((V)x),(R ds[w].z))
DEV(disk_seek,(FILE*f;N(f=ds[w].f,die(UA))fseek(f,BLK*(ds[w].s=x),SEEK_SET)),(R ds[w].s))
DEV(disk_read,(FILE*f;N(f=ds[w].f,die(UA))a=fread(mem+x,1,BLK,f),printf("read %d\n",a)),(R a))