Fujimoto, Takao

Okayama University Scientific Achievement Repository

岡山大学経済学会雑誌31(3),1999,255-264LZHの中での末尾数字を意識したファイル ･ソー ト藤 本 喬 雄ファイルを次々,LZH ファイル (吉崎栄寿氏の LHA (ver.2.13:1991午)によって圧縮されたファイル)の中へ追加保有していくと,時折ソートしたくなる｡各月ごとの LZH ファイルを構成する場合,各週ごとに作成されたファイルが追加される｡その際,ファイル名でソートしたいのだが,普通のソート･プログラムは,各文字ごとに比較していくので,昇順の場合,"AAAIO.DOC"の方が "AAA2.DOC"より前にきてしまうO末尾の数字を全体として数とみなし,後者を前におきたいので,プログラムを作成 した｡使用した言語は,1985年に Borland(現在のInprise)より発売された,TurboPascalver.3である｡DOS上で汎用的で,Windowsでも,DOSに抜ければ使用できるQメモリが,64KB,128KBの時代なので,データ型として,Wordや Longintがない｡以下,プログラムの要点を説明する｡(1) ファイル名リストには,レコー ド型 (FileContent)の配列を用いた｡ファイル名と,LZHファイルの中での,開始バイ トと長さを含む｡この配列は,2000個のファイルを含むことができる｡個々のファイル用の動的なメモリ配分はやめて,最初から,ヒープ ･エリアに2000個分のメモリ40KBをとった｡現在の普通のメモリ量なら数万個を扱えるが,2000個で充分であろう｡(2) 元のファイルのタイム･スタンプを変えないために,INT21h (AH-57h)を使って,DOSのファンクション ･コールを行 った｡Turbo- 255-622Pascalver.4の,SetFTimeと異なり,ファイルを閉じてからやらないといけない｡(3) ソートは,quicksortを使った.C言語の quicksort関数がないので,BASIC用のものを,Pascalに書き直した｡(4) ファイルの読み書きは,BlockRead,BlockWriteを用いた｡おもしろいことに,長さのパラメータは整数としてほ負数でも,Wordとして解釈 してくれるのである｡今回は,このことは利用しなかったOファイルの1レコードは,1バイ トとして設定しオープンした｡(5) LZHの中で使われている,Longintに対処するためreal型の変数を用いた｡ファイルの長さにも,real型を使った｡proceduresortの中で,Longintを 1バイ トづつ,realに変換している｡(6) 次のファイル情報を見つけるために,48バイ ト先読みを行 った｡BlockReadを行う前に,LongSeekで,適切な切れ 目に戻す必要が生 じた ｡(7) ファイル名の末尾の最大3桁 (半角)を数とみなすことにしたO末尾からスキャンして,数字でないものが現れたら打ち切るO打ち切られた前の部分が共通であれば,数としての大 きさが順番を決めるoprocedureCompStringの部分である｡(8) 付録のプログラムには,デバッグ中に使ったメッセージ印刷をコメントとして残してある｡LZHファイルにおける関連した部分の構造について,述べておこう｡圧縮された1個 1個のファイルは,LZH ファイルの中で独立 したバラバラの状態である｡目次のようなものはない03バイ ト目に, "-1h" (2Dh,6Ch,68h)がある｡8バイ ト目から4バイ トが,ファイル ･ディレクト1)からとったファイルの長さである (proceduresortの真ん中あた りの処理を参照)015バイト目から2バイトがファイル更新の時刻,17バイ ト目から2バイトが年月日を示す｡22バイ ト目にファイル名の長さが1バイトで表わされ- 256-LZHの中での末尾数字を意識したファイル･ソー ト 623ている｡圧縮されたファイル全体の長さは,ファイルの長さ+ファイル名の長さ+27,となる｡付録プログラムにおける,proceduresortの リengthの計算を見られたい｡Longintがないので,この変数は real型にしているO現在の開始点に,この リengthを加えれば次のファイルの開始点になる｡プログラム自体のテキスト･ファイルは,10,380バイ ト,コンパイル後のCOM ファイルが,15,175バイ T,EXEに変換して,LZEXE(FabriceBelard氏によるもの :1989年)で圧縮すると,ll,595バイ トになった｡LHAは,ver.2.13であることに注意してほしい｡長さ1MB以下のファイルなら1,2秒でソートは終わるが,時間が異様にかかる場合,ソート後の長さが異なる場合,全て順調に修了したように見えてもソート後のファイルに対して LHAがファイル異常を報告する場合,元の LZHファイルが,ver.2.13より旧い版で作成されたと考えてよい｡もっとも流布したこの版で解凍,圧縮をし直せばよい01991年より旧いLZHファイルの場合,この可能性が高い｡種々の LZHファイルのソートをしてみたが,27MBのもので,1900個以上のファイルを含む場合,Inte180486,66MHzのPCにおいて,ソートに3分かかった｡解凍して DOS上でソートし,マニュアルで入れ替えるよりもましであると考える｡Windowsもファイル ･リストのオプションで,この種のソー トを許すようにすべきであろう｡IE4,IE5のスクリプトが既に利用可能かも知れない｡- 257 -624付録 Pascal(vcr.3)プログラムprogramLZHSORT,'(*SortingLHZarchlvesforTtlrboPacalvcr.3.OIL*)(*TF:1999-8-24(Tue.),8-29(Sun):Yashlna:Cloudy.★)(*NB:trallingmmeralsupto3digits.*)constZ4AX_F工LE≡2000,.(*MaxnumberoffilesallowedlnaLZH*)buflen=24576,.rblflen二24576.0;b盲fJ盲na=24624,･(ItoreadalittlemoreadditionalbytesI)t.ypeRegRec=recordcaseIntegerofl:(AX.BX.CX.DX,BP.SI.DI.Ds.ES.Flags:integer),･2:(Al.AH.BL,BZT.CL,CH,DL,DH:byt:e);end;typeFileContent:=recordName:Strlngl12】;Start:real;Length:real,'end;typestr12=stringl12],･str13=strlngl13】,.typeFlleArray-array【1‥Z仏XjILE]ofFileContent;VarPFileArray:AFileArray;FF工.OFI.EXT:St:r13;p_str12:-Strl2,.p_byteJ :-byte,'p｣)yte｣11:ーbyte;HjFI.H_OFI:integer;(Ihandles*)fl.f2 :file;lastbyte:real;i,j :integer;NⅦnRead.NtwWrlt,ten:integer,'buf :array【1‥buf_lenaloftyte;sbuf :integer,IRegs :RegRec;f_date.f_time:integer;procedureinitia112;e,'beginlftParamStr(1)く>日)thenFFI:=ParanStr(1)elsebeginvrite('***Pleasekeyinthelnput-filename.(ext.default.LZH).=リ.･readln(FFI);end;if(ParanSt:r(2)<>T')ttlenOFI:=ParamStr(2)elsebeginwrit:e('***NovkeyintheOltput-filename. (ext:.default.LZ2).=').･readln(OF工);end,IifPOS(I.I,FFI)=Ot:henFFI:=FFI+I.L2:tll;ifOFI=llthenbegin-258-LZHの中での末尾数字を意識したファイル ･ソート 6250FI:=FFI;OFIl011.=CtIR(POS(I.I.FFl)-i);eld,'ifPOS('.I,OFI)=Ot.henOFI:=OFI+I.LZ2r,Ifori:=ltoLength(FFI)doFFIli]:=UpCase(FFIli]),'fori:=ltoLength(OFI)doOFI【i]:=UpCase(OFI【i]),･lfFF工=OFIthenbeginwrit.elm(rxxxThesamenaLneforエnput良0utpltFiles!Tryagain.I);halt(1);end;1:=POS(I.t.FFI);ifl>1theTIEXで:=Copy(FF工.i+1.3);if(i=0)or(EXTく>■LZH■)thenbeginvrit.elm(.xxxlnputFileisnot【LZH【lTryagain.').Ihalt(1);end;(*tx)makeASCIIZstrings★)i:=Length(FFI),Ilnsert(ChrtQ),FFl,i+1);FFIl0]:=Chr(i),I (*Insertmakesthestringlonger.*)i:=Length(OFI),'Insert(Chr(0),OFI.i+1);OFIl0]:=Chr(i);assign(fl,FFI),'assi9m(f2,OFI).ItSト)Reset(fl.1);tSI+)ifIOresult.<>Othenbeginvrite]山('Ⅹ王Ⅹ工nputFiledoesnotexist!Tryagain.-);halt(1);end;Rewrite(f2.1),.lastbyt:e:=LongFileSiz;e(fl)+0.001.Vriteln(.‥.FileLengthoft.FFI.■三㌧last.byte:10:0.'bytes.I),.(*S_buf:anegativevalueOK.SeeBl∝kread.*)S_buf:=Si男eOf(buf).'end,I(*endofinitialiZ;e*)procedureopen_handle(varnJile:str13,.varhjile:integer),'beginWithRegsdobeginAX:=$3DOO;Ds:=DSeg;DX:=Ofs(nJile)+1;Z4sDos(Regs);hfile:=AX,-en-a,.end,.-259-626procedureclose_handle(hj ile:integer),'beginvlthRegsdobeginAX:=$3EOO;BX:=h file,'MsDos(Regs),Iend;end,'procedureget_tine(varnjlle:Btr13,.Tarh_file,Ldate,Ltime:integer);beginopen_handle(n_file,hjile),'withBegsdobeginAR:=$5700,A (*Get.thetinestampOflnputfile.*)BX:=hfile;HsI)osTRegs).･fdate:=DX,Iftime:=CX;end;close_hardle(hJile),Aend,I(*endofget._tine*)procedureset_time(varnJile:st:r13;varhjile:int.eger,'Ldate,Ltine:int.eger);beginopen_handle(njile,hjile);withRegsdobeginAX'.=$5701; (ISetthetimestampoflnpltfile.I)8Ⅹ:=hjile,I (*AL=$01★)CX:=ftime;DX:=Ldate,'HsDos(Regs);end,.close_han血e(h_file);end,I(*endofseLtime*)ftmctionCompString(Sl.S2:str12):Boolean,IvarSIO.S20:str12,･pl,p2:integer;nl.n2:integer;nll,n12,n13,n21,n22,n23:integer,･ie:int.eger,'begin(*writeln(rSl三一.Sl.-,'S2=■.S2),.I)SIO:=Sl;S20:=S2;pl:=Pos(I.■.Sl)-1;p2:=Pos('.,S2)-i;ifpl>OthenSl【0):=Chr(pl),･ifp2>OtherLS2[01:=Chr(p2);nll:=0;n12:=0;n13:=0;if(Sl【pll>=■0')and(Sl【pl】くニー9')then-260-LZHの中での末尾数字を意識したファイル ･ソート 627beginVal(Sl【pl1.mll.le);Sll0]:=Chr(pl-1);if(Sltpl-1】>=■0-)and(Sl【pト11く=■9-)tIlenbeginVal(Sl【pト11.n12.1e);lfS(lsl10[]責_C2hf翫 亨);and(Slt｡ト21く三.,･)thenbeginVal(Sl【pl-2】.n13′le);Sl【01;=Chr(pト3);end;end;end;nl:=n13*100+n12*10+nil;n21:=0;n22:=0;n23:=0;if(S2lp2]>=101)and(S2lp2]<='9')thenbeginVal(SZ【p2】.n21.1e);S2[01:=Chr(p2-I);if(S2lp2-11>三一0-)and(S2lp2-1】く三一9.)thenbeginVal(S2lp2-1].n22,ie).'S2[01.'=Chr(p2-2),'if(S2lp2-2]>=10.)and(S2lp2-2]<=19.)thenbeginVal(S2lp2-2],n23,ie),IS2[0]:=Chr(p213).end,～end;end.n2:=n23★100十m22★10+n21;(tvrlteln(I.‥-.S1.㌔ I.S2.-;ml:=一.nl′-;n2 ='.nZ);♯)ifSlくS2thena)mpString:=TRtTE;1fSl=S2thenlfnl<n2thenComtString:=TRUEelSeifnl=n2thenbeginifSIOくS20thenCompString.I=TRUEelseConpString:=FALSE;endelseConpString:=FALSE,'ifSl>S2thenConpString:=FALSE;end;ftmctionConpStringE(Sl,S2:str12):Boolean.IbeginifCompString(Sl.S2)thenComPStringE:=TRUEelseifSl=S2thenCompStringE:=TRUEelseCくmpStringE:=FALSE;end;procedureSvapArray(A,a:integer),IγarTenp:FileContent:,IbeginTenp:=PFileArray-lA].IPFileArray-【A]:=PFlleArrayAlBl;ー261-628PFileArray-lBl:=TeJnP,'end;procedureOuickSort.(Low,High:integer);VarRandlndex:integer;PartitionI.Str12;i,j:integer,.beginifLow<Hight.henbegin(*thecaseof2elements★)工FHigh-Lew =1thenbeginlFCompStringtPFileArrayー(tigh].Name.PFileArrayAtLo打1.Name)thenSwaEArray(Low,High);endelsebegin(*centreelenentrandomlychosenplacedatt.heend.I)Randlndex:=RANDOM(rLigh-Low+1)+Low,'SwapArray(tigh,Randlndex);Partition:IPFileArrayー【High].Name,'repeat(Icomparethebothendstowardthecentre.★)1;=Low;]:=High,Iwhile(iくj)and(ConpStringE(PFileArrayAli1.Name,Partition))dol:=1+1;while(j>i)and(CompStringE(Partition.PFlleArrayAljl.Name))doj:=3-1,'(*1fnotreachedthecentre,thetwoelements*)(*areexchanged. *)iflくjthenbeginSwapArray(i,i);end;tmtili>=3,'(*thecent.reelementattherightplace･*)SwapArray(i,tligh),'(*QuickSort.iscalledrecursively.*)(*to削.ppreSStheuseofst.ack ★)(*thelesserelementsdonefirst.★)if(i-Low)<(Higl-i)thenbeginQuickSort(Low.i-1).lQuickSort(i+1.High),.eTdelsebegirLOuickSort(i+1,tligh);OuickSort.(Low,i-1),'erd.Iend;(ifHigh-Low=1･..elsebegin)end,'tifLow<HighIend;-262-LZHの中での末尾数字を意識したファイル ･ソート 629proceduresort,IγarLstart,r_length:real,'tnpJength:real.'blfcount:int.eger,･remainder,k:integer,Iist,art:integer,'beginr_start:=0.0;i:=1;j:=0;repeat(*mockRead:integertreatedasword.*)repeatBlockRead(fl.buf.S-buf.Nu皿Read);コ:=j+1,'LongSeek(fl,LbufJen*j);(*Donotforgettoadjust!*)untll(LStartく=LblユLlentj);if(NlmRead<>O)thenbegin(* writeln(tNu皿read=I,Nu瓜ead);*)でepeat(* writeln('i=■′i,-;j=',j,I;Lstart=.,rlStart),･*)Lstart:=Round(rーStart-LbufJen*(j-1)+0.001),I(****longintnotavailableinTPv.3****)tnpJength:=0.0.p_byte_i:=ADDR(buf【i_start+8】).･tnpJengt･h:=tnpJength+p_byte_1-,'p_byte_1:=ADDR(buf【Lstart+9日,.tnpJength:=tmpJength+256.0*p_byte_I-,'p_byte-1:≡ADDR(blユf【Lstart+10日;t皿p_1engt:h:=tmp_length+256.0*256.0*p_byte｣A,Ip_byt･eJ :=ADDR(but【Lstart+11日,'tnpJength:=tnpJength+256.0*256.0*256.0*p_byte_lA:p_str12:IADDR(buf【L3tart:+22]);p_byteJll:=ADDR(blf【Lstart+22]).'PFileArrayー【i].Name :≡p_StrlT,'PFileArrayー【i】.Start :≡Lstart;r_length:=27.0+tzqL1ength+p_byt.e_nlA.'(*L2:Hstructure*)PFileArrayAliI.Length :=r_length,～LStart:≡LStart+r_length,Ii:=i+1;(* writeln(p_str12-,',･1ergt.h=.,I_length:10:0);★)until(Lstart:>(r_buL1en*j))or(r_start>(lastbyte-5.0)).･LongSeek(fl.r｣)uLlen*j),･end;until(NumRead=0)or(I_st,art>(1astbyte-5.0)),.QuickSort:(1,i-1),Iforj:とlto(i-1)dobeginLongSeeJE(fl′PFileArrayー【j】.Start),I(*hovmanytimes*)bufcount:=Trunc((PFileArray-lj].Length+0.01)/r_but_len);(* wr-itch(-buLcount=1,but_count);★)if(buLcount=0)thenbegin81ockRead(fl.but,Round(PFileArray-ljI.Length+0.01LNtnRead),･81ockWrite(f2,buf.NunRead,NunWritten),･- 2 6 3 -630endelsebeglnfor汰:=1toblfcountdobeginBlockRead(fl,buf.buLlen.NumRead),'Bloc棚rite(f2,but.NumRead,Nl1如Iritten);end;remainder:=Round(PFlleArrayAlj).Length-LbuLlen*buLcount+0.01).･(* writeh(rreJnainders='一remalnder),'*)BlockRead(fl.buf.rcAainder,NtnRead);BlockWrlte(f2,buf,mnRead,NunWrltten),･end;end,'buf【1】:=0,I(*thelastbyt:eofLZH*)81ockWrite(f2,buf.1.NunWritt,en).'end;(Iendofsort*)procedureepilogue,Ibeginclose(fl);close(f2),.writeln(一触 ★Sortingcompletedi***TF***-),･end,.(州★皿ainroltlne柑★)beginNew(PFileArray),Iinitiali五e,'get:_time(FF工.HjFI.Ldate,f_time).'sort;(★forj:≡lto(ト1)dovriteln(PFileArrayAHl.Name);*)epilo9ue;set:_time(肝Ⅰ′H_OFI′Ldate,f_time);Dispose(押■11eArray);end.-2641

'Natural' Sorting in LZH-Files

Abstract

Similar works

Full text

Available Versions

Okayama University Scientific Achievement Repository

Okayama University Digital Information Repository