/*- * $Id: hanmain.c,v 1.4 90/01/27 20:13:00 Rhialto Exp $ * $Log: hanmain.c,v $ * Revision 1.4 90/01/27 20:13:00 Rhialto * *** empty log message *** * * Revision 1.3 89/12/17 21:29:51 Rhialto * *** empty log message *** * * Revision 1.1 89/12/17 20:02:31 Rhialto * Initial revision * * * HANMAIN.C * * The code for the messydos file system handler. * * Some start/stop stuff that is not really part of the * file system itself but that must be done anyway. * * This code is (C) Copyright 1989 by Olaf Seibert. All rights reserved. May * not be used or copied without a licence. -*/ #include "han.h" #include "dos.h" #ifdef DEBUG # define debug(x) dbprintf x #else # define debug(x) #endif extern char DotDot[1 + 8 + 3]; struct Library *IntuitionBase; static char RCSId[] = "Messydos filing system $Revision: 1.4 $ $Date: 90/01/27 20:13:00 $, by Olaf Seibert"; byte ToUpper(ch) register byte ch; { if (ch >= 'a' && ch <= 'z') return ch + ('A' - 'a'); if (ch == '.') return '!'; return ch & ~DIR_DELETED_MASK; } long lmin(a, b) long a, b; { return (a < b) ? a : b; } byte * ZapSpaces(begin, end) register byte *begin, *end; { while (end > begin && end[-1] == ' ') *--end = '\0'; return end; } /* * Map an arbitrary file name to MS-DOS conventions. The output format is * 8+3 without dot, padded with spaces, suitable for direct comparison * with directory entries. Return a pointer to the delimiter found ('\0' * or '/'). [[Make sure that Examine/ExNext return a proper inverse of * this...]] */ byte * ToMSName(dest, source) byte *dest; register byte *source; { byte *dotp; byte *slashp; register int i, len; if (*source == '/') { /* parentdir */ strncpy(dest, DotDot, 8 + 3); /* ".." */ return source; } /* * Remove any strictly leading dots. .info -> info, .indent.pro -> * indent.pro, .profile -> profile, etc. */ while (*source == '.') source++; /* * Find dot and slash which are delimiters of name and extension. */ { register byte *cp; cp = source; while (*cp) { if (*cp == '.' || *cp == '/') break; cp++; } dotp = cp; while (*cp) { if (*cp == '/') break; cp++; } slashp = cp; } len = dotp - source; if (len > 8) len = 8; for (i = 0; i < len; i++) { *dest++ = ToUpper(*sourEHrxy;DžIGFUl*uo, W]j6l?N< ֗܏G:ۏB̵RAN t`^k;A\mOYh!cU$*Ws)QU׮/-ީˏݩFD4b['5'k-X#|&v6RD) jw6] V_Ьp3GM=6`L}4r]R?s/ߨcK*WB^;r*g b*Qփk f3&l.q.9>^_W7ؗ$U3 8uxt}Owbwk u[eܜةW0p}ip0H&P7X"b2K_8KSYR>ǡCҸǝ"~W؅譬&R+e3[ k{o }+S*9<}~/,W6E1K ͩh@BD;.%`IhzyO*)CoĘԁ/J+X>R'J#/X#nٺ AYm_O@ ^+qF|#?63忾zK*/q 'm q0+[lor|{zK8 G01tSD*CI韄gYK3 Izߋ#^e< נvB|Ϟ*/><Ϸgq< tϘ2 BE Ðy05LT_h9٤W`uۍ-^EYGz:NmZU Q,7FxG$j? Q\VX9|NFeb>'&|#bZLy+6$UFd[mh]u.Aõ566}vE,z}&C%}(Up:(GAxTW `RЉDjW k_6?1/E`\ԨNQ/M$ ,ei̔ {/,qQfu 4I̥놩=yP%< <oo+ 19l2Y(jXI nCɢaaK>$0#uL}cҜ 'R;ϙ_żrLǦd >^?WB]1ey#1=\Dpz+eyOqwb.<&R{HNvUpҾ;Mw76H$a~gbȫO<ɯgs4;*Ű*  z[9UD`*V%]X[JnD25wmtsve4%I?2 lY[d:t>KC%b zdw6s0hz~^@=e,{u} *oˣ;t?;\s + Z'wd|tIed]߇ifFz?v+tu VO`CL{uZdB萋X.~!.'M;j)9YoL:]iWj}IU˱7R1'wlf"Ln1jYw~4D:Uɚͅj/FtR=) \E&:®RoAh@pz*nHZsMCPDTo xmP%Kwa'2Wj\:geJ媐^9R-=Vt #fū{_Ժ%2ܰ';pEn?S֑T3ě~..m|)*9xՃ9г4tO1Ew~Ye tl$0-AwyӤ}U8ںd!$Fm+݁fDw#*w<^8x~zeC@]=~pq|eo<}tw2Ժ̈́l5Kϴ'<|,HjK.B? : 97komO }">;:/0Wp_<Bǂ+T%8V>vN,{Gr/]|y}V=溃Ic6|ov~ƍ{a0V+k|:kLHē_r< T!}?ƵTy =f,_'Ud%ǘf &ra3ץj@lJC ( -WA!_}Q97K^zjXPf[3\q) $KYC\%57ύJFӮ'J:=V6eGYvDTLٚv#cP)~vK0;*i G@syS7YiJv(|q~gDٗT3B?&1WHwf ^ 9 * s[p{:M-墹,)bmOJcXF>'j< ލiÓEq_>7}cb8 [thJnO1"DBEJ^<>[sbvm͞S L'y-gg$B,Fj[JHX I)FRin;kŹ,$ gz{!1+n\gP Wv[e鱌]ҿJOkX uQMkއMIQ(mC|Fl3^)lV#Č8 {?('oڹe|T_1I'R:sx^OO*qlmMx(:&ۚ}͡/ -E3}6w&c{Bqw;yW3ER ߹AΉLwr fS|TrA^Ү׳uf(=5Q$.9滦{/nq]O朲z" 4T3С"30|՝Ac t@tCK݈f?̪kz~i1r  BET@q޻UlE|sX(=`)Q`. U x^uy {`_=V٠&Vg%욈V?|7b^AN^r=`#{E裣$${ґp'^S T"h>lf:\7^99q PN0CNkc# W[ͻYM)*+ ^o ~?Cpͺ`s9Elմ 9I5/d35g:~ާ|&O $$3nZoӻ6;v٢U k)/) hגEjR[X^vvyJ&:zB9qos\.Kƒ>$#L2Pv^Qd'qXjJ>%lv"J]eL%J:öbql_ +6\x>m:d}"1ڧbj#2ne;j4NAR&Gk&Do,LO$BtaS}bHҟ_EP 'Wck(RootLock); RootLock->msfl_Msd = FakeRootDirEntry.de_Msd; RootLock->msfl_DirSector = -1; Disk.vollabel = FakeRootDirEntry; } return DOSTRUE; } /* * No label yet? Then we must create one, even if we need to move * something else for it. */ if ((int) RootLock->msfl_DirSector < 0) { struct MSFileLock *new; new = MSLock(RootLock, "><>.\\", EXCLUSIVE_LOCK ^ MODE_CREATEFILE); if ((new == NULL) && (new = EmptyFileLock)) { error = 0; if (new->msfl_DirSector == Disk.rootdir) { RootLock->msfl_DirSector = Disk.rootdir; RootLock->msfl_DirOffset = new->msfl_DirOffset; } else { /* * Move something out of the first directory block. Try * not to move system files or directories (. ..), but * we'll do it if we need to. Set the root dir date to * now. */ byte *fromsec; byte *tosec; register struct MsDirEntry *dir; fromsec = GetSec(Disk.rootdir); tosec = GetSec(new->msfl_DirSector); dir = (struct MsDirEntry *) fromsec; while (dir->msd_Attributes & (ATTR_SYSTEM | ATTR_DIRECTORY)) { if ((byte *) ++dir >= fromsec + Disk.bps) { --dir; /* Back to last entry in the block */ break; /* and move it no matter what */ } } CopyMem(dir, tosec + new->msfl_DirOffset, (long) sizeof (struct MsDirEntry)); MarkSecDirty(tosec); RootLock->msfl_DirSector = Disk.rootdir; RootLock->msfl_DirOffset = (byte *) dir - fromsec; FreeSec(tosec); FreeSec(fromsec); } } EmptyFileLock = NULL; MSUnLock(new); } if ((int) RootLock->msfl_DirSector >= Disk.rootdir) { struct DateStamp dateStamp; /* * The easy part: Copy the name to Disk.vollabel and RootLock. */ { register int i; register byte *s, *d; s = newname; d = Disk.vollabel.de_Msd.msd_Name; for (i = 0; i < 8 + 3; i++) { if (s[0]) *d++ = ToUpper(*s++); else *d++ = ' '; } } DateStamp(&dateStamp); ToMSDate(&Disk.vollabel.de_Msd.msd_Date, &Disk.vollabel.de_Msd.msd_Time, &dateStamp); RootLock->msfl_Msd = Disk.vollabel.de_Msd; /* Just for the name and * date */ WriteFileLock(RootLock); return DOSTRUE; } return DOSFALSE; #endif } #ifdef DEBUG _abort() { HanCloseDown(); RemTask(NULL); } #endif /* DEBUG */