#11 Article 3249 Posted at 1989/07/14 06:55:14 by SUKA (MAP614) [ML1]
Subject: Re:*5 ＭＬ１通信 /3245 ... /3241 /3238
ええっ、知らなかった。そうなんですか．．。
うー２回（本当は３回）もＵＰするようなたいした物じゃないんですけど。
------ｷ ﾘ ﾄ ﾘ ｾ ﾝ--------
/* */
/* ＰＲＨＥＡＤ．Ｃ Version 1.01 July 14 1989 */
/* for XC Version 1.01 */
/* MSC Version 3~ */
/* */
/* ＭＬ１評価版１．０（具体的にはNEDI3-68K2.00bの出力ファイル）の */
/* ヘッダー内の情報を表示します。 */
/* */
/* コンパイル : XC cc /DX68 prhead.c */
/* MS-DOS の場合は．．普通にやって下さい．． */
/* あまり詳しいことは知らないもので。 */
/* 用法 : prhead filename... */
/* */
# include <stdlib.h>
# include <stdio.h>
# include <string.h>
# include <fcntl.h>
# if X68
# define SWAP_SHORT(c) (c)
# else
# define SWAP_SHORT(c) ((((c)>>8)&0xff)|(((c)&0xff)<<8))
# endif
static unsigned char Mark[5] = "ML1\x1a" ;
typedef struct
{
unsigned char id[4] ;
unsigned char date[3], time[3] ;
struct {short x, y ;} start, end ;
unsigned char handle[12] ;
short fsize ;
unsigned char mid[16], eid[16] ;
unsigned char comment[32] ;
} ML1HEAD ;
int print_header(head)
ML1HEAD *head ;
{
unsigned char p[256] ;
strncpy(p, head->id, 4) ;
if ((p[0]!=Mark[0])||(p[1]!=Mark[1])||(p[2]!=Mark[2])||(p[3]!=Mark[3]))
return 1 ;
printf(" Head mark -> [%c%c%c]\n", p[0], p[1], p[2]) ;
printf(" Date -> [%02d-%02d-%02d]\n",
head->date[0], head->date[1], head->date[2]) ;
printf(" Time -> [%02d:%02d:%02d]\n",
head->time[0], head->time[1], head->time[2]) ;
printf(" Coordinates -> [(%d,%d)-(%d,%d)]\n",
head->start.x, head->start.y, head->end.x, head->end.y) ;
strncpy(p, head->handle, 12), p[12] = '\0' ;
printf(" Handle-name -> [%s]\n", p) ;
printf(" File size -> [%dbytes]\n", head->fsize) ;
strncpy(p, head->mid, 16), p[16] = '\0' ;
printf(" Machine-name -> [%s]\n", p) ;
strncpy(p, head->eid, 16), p[16] = '\0' ;
printf(" Editor-name -> [%s]\n", p) ;
printf(" Comment -> [%s]\n", head->comment) ;
return 0 ;
}
int read_header(fname, head)
unsigned char *fname ;
ML1HEAD *head ;
{
int fd ;
if ((fd=open(fname, O_RDONLY|O_BINARY))==-1) return 1 ;
read(fd, (char *)head, sizeof(ML1HEAD)) ;
close(fd) ;
head->start.x = SWAP_SHORT(head->start.x) ;
head->start.y = SWAP_SHORT(head->start.y) ;
head->end.x = SWAP_SHORT(head->end.x) ;
head->end.y = SWAP_SHORT(head->end.y) ;
head->fsize = SWAP_SHORT(head->fsize) ;
return 0 ;
}
void strip_name(name)
unsigned char name[] ;
{
static unsigned char exp[] = ".ML1" ;
int i ;
for (i=0 ; i<256 && name[i]!='\0' ; i++) ;
for (i-- ; i>=0 && name[i]!='.' ; i--) ;
if (i>0) sprintf(&name[i], exp) ;
else strcat(name, exp) ;
}
void main(ac, av)
int ac ;
char *av[] ;
{
ML1HEAD head ;
int i ;
unsigned char fname[256] ;
for (i=1 ; i<ac ; i++)
{
strcpy(fname, av[i]) ;
strip_name(fname) ;
printf(" %s\n", fname) ;
if (read_header(fname, &head))
printf(" ファイルが見付かりません\n") ;
else
if (print_header(&head))
printf(" ＭＬファイルではありません\n") ;
printf("\n") ;
}
}
------ｷ ﾘ ﾄ ﾘ ｾ ﾝ--------
で、サンプルデータです。
<<< sample.ml1 for Human68K ( use S-JIS ish ) [ 35 lines ] ish ver1.111+ >>>
##ｸp##tU#:%#ﾏｽｸcﾊｼd\,)｢iﾉｾ##:N#?hｸ･#########################################t?Z
##ｸp##tU#:%#ﾏｽｸcﾊｼd\,)｢iﾉｾ##:N#?hｸ･#########################################t?Z
##ｸp##tU#:%#ﾏｽｸcﾊｼd\,)｢iﾉｾ##:N#?hｸ･#########################################t?Z
%cｱﾖ,帆ﾋqGF@G@@@@Aﾋ砿B畆tﾓgｺru<@*@@ﾀﾅB優l@F@@@@@@@@積qJ虞､:ｰﾒVﾔ/<ﾊ･Lyﾏﾎ染V3ﾍｻｮ
&ｷﾍ體8ﾙﾀｰ･ﾏｭ9檎昜nﾟ]ﾖo世ﾍK咫@FDBﾗEiｫ6I絆ｰS9R<U~N欅af必sZﾀg+p<'fsﾒ剿芝nRQX衛ﾈﾓｧ
'YND4ｨ藝.ﾎ6ZﾇV瓠E鋭-2u拷ﾋ愬卍7嬬ﾇ,榲､珪.鮠dﾘﾃ0ﾐｫｫF~FIsWtｹ同HｦK｢qｨ,膰掬q+ｸNdooﾒ
)呶歟B柁ｯ1K()Dﾑ9eKV瑜ﾓ筌ｼBｵｵ庭ﾘﾃ隍cﾇm壘F諍ｷﾎD_w5ﾜK畚5kZo<ke瑪Zﾊ;撩0e7ﾉ鈩ﾕP蜍|T
+3TXc[ﾌ啖9凰ｬP｣犢0前橡LｭｱｮdV9ﾅ>@u.殀ﾀxｭxﾘﾋ=lﾑe1X｢ｪ1｡ﾓ[/ﾎZﾇy畍堝R添3ｻ_T'ﾎ痰h･髻
,銑ﾑﾌPｮcx|貊]nm｡H-Hﾜ鯀ﾛﾏntﾉｰﾄ･Y結ﾅ･史ｮ_蜂ﾓﾝB酪ﾞ0=w椌3ﾝﾒdHｰﾓﾃZｪ_wｿﾕU}ｨｪﾌ巧ﾍ跳泊
?ﾌ)ｩ蜷ﾞｦｸCｺo8K坦(CMObnKS｡B}iｮ,聊eｭ,ﾔBｳ艟@\ｰH=P<ｪﾌ,O察ｪ{ｨjﾜ躬S頼鹿eo愨S､Nｷ鮨X脳
/荵u胚ｳCZ圓]6｢lyﾅ[ﾎｦｱﾛ屮ｾF牟ｿA<ﾂ0ｽOﾈ站?<Mｪv｢ｧｵﾇqｺ豈I(6ｭﾝ'岳梺jw譲(ｸｸｿXSRﾟJ羶縮
2-oﾋﾛｼs貽WF2<ｷ(ﾂaｳ誨zﾝｴ6ﾆT'三-螻ﾋ舂lt簓tﾇFBK-徐nN@Ag@ﾒ|攸*x諒ｸf憶q)｡Q個MｵﾞkU>ﾐ
4ﾟq^ﾗﾇU8<G｡ﾅ践猴BAGt豸)0ﾗ條ﾙ/7i言}Cﾞﾒｸﾋﾇﾒ駿iｯ@a@@P羹,}Fr草<鰍BTH槁ZBu@@,｡閣ﾅｲ\
5ﾟﾝa逐d影(皋ﾔ嘆@ﾃ｡u託GﾂF崔踈nﾍg4ﾓ摘ﾖﾂﾍY｡l.UxﾘcH嫖\ﾆtｼ田_浮ﾔB2OW:叙OE?発+,08(螟
6嶂嫺ｵ劑HﾄR1xｽI蘇ｵ僮uJl怡kS@Q鯒:ｾ9畔緻6b盃7ﾝ麼ｮ6ﾘ塀ﾀﾓxbﾒﾌ発c^誡AqBﾘﾏDx3ﾌ盞4Tﾃﾔ
7Z權神ﾙGﾅS｡ﾟ殖茆ﾜﾆJ瀰ERｸｼ淑H｡ﾚﾊIJ兢Se耘Qf洗3n蒸m.ﾘﾜwﾁKｵo:zﾏｩ繙:櫻P2U｡|+)_綜4髮
8ﾔｩﾞw､c-XMﾗ徠類ﾄCYR｣L嚇ﾅｮ~@屍nｳｬG柴6ｧ遡苒WA嗚O*ｿｩﾑﾅKﾑ:rﾘﾃﾑｧg1峡ﾇD}鬻聽ｽ+CﾝｩQ5'
9D噺ｴﾝ檬mY6球2pG蚊ﾆ7ｦbﾒ6G/I肴(ｻﾑ1ｦﾘｰ振ﾗQｩKO鬘ｷﾛｦ~ｯ@IN墾K}K勿ﾇﾂｯ執斉ｻ斛ﾝ｡TEMﾃｷB
:･｣､ﾜyX戊ｱｿ磨･sｺ有澪｢梺Pﾋ爐'nl酌ﾏﾔｽHfH+ﾔｱﾃｫ温5Zﾇ>oﾌ丹嫻ﾈ盾wﾅ4謇ﾚ羲Sﾏ罷ﾂﾋ?8蚋彗
;ﾟXﾁﾗ濁鑪魃ｱﾉ0sEqTﾙ鮖niI梧tｮ0u凩Xsoﾐ;ﾞ娵N文(ﾔ馭^省I|杓ﾎ鏘~ﾆv･Bﾂyﾈ關ｦeｷ､ﾛu筌ﾝm[
<}L霆ﾁﾛLhｽ嬾x弗Y醢U9V｣ﾇL>薮B)ﾚA|ﾟ澹4ﾅ嘯接ｱﾊN擡Xｰ3R_aﾐ+ｴPﾏ扮6fﾄ漫ｬek阡ﾍ虫A7ｼｺGｶ
=w瓠ﾞ+ｦﾃ;ﾂ嚏白ﾆｽpﾍ稠Yｲu(S1｣,優ｰ0fYﾒ6=cｯﾁh;'変r郛ｨｰ(躅ﾀ:*dｰ｡ﾒMｵｴ｢N樫{ﾋ[j)oI熄kA
>i｡aﾉ･k5ﾀｶkU_geｳｿwJﾕｭﾂ熹~ｪﾖｳpｿ.ﾕ@L}ﾌ魅拂73ﾗ[ｷ瀧ﾄqOｮ端Mｾ,sz,wzﾞK僮ﾍﾛﾈﾂ荅<q狃6ｹI
AｬgV0ﾉﾒ96糞ｧi<t_VQｦ曄炳0P-[2=ﾃd@tﾏﾁｻｬｵﾋDﾙ/rｺｫｨﾊｦ溘Yｨ貳創ThCｺ~S苟ｳ｡ｼｸﾄﾐ;ｵOｭTｧｲw
Bf6fﾝ~羈a劉綰<C1ｫ･矧泉DVﾛ梯eeOn2燒xMgｨﾞｩ鐓FB｡NﾄｺF驀xﾒiｴﾕh柄ｽ_|yiｰ9TG6V瓶ｫL9Vｨﾛ
Coｱﾁﾓa櫻cwﾋｰｧx>b耿ﾊuﾘt忘艫_嗜ｩw｢ﾝ患{Yh:Dｴ｣;ﾂｧ|w｡u3ﾅ悲)iｦｶﾖｮ_朞ﾔ｣ｨA輔ｷｳu苗哭中X
D槿｣ﾕｻ1fｨｩjtﾂﾏpﾝ[1:狒ﾅﾏﾒUﾂri遨)叙唱aSﾇlﾁ傑~=b吮xED錐[~ﾘ縲ﾁnﾔgFI遒｡･+gc｡冗6w冨(
Ej嚇ﾏ崙ｹﾖﾝq儡ｬｨ稾ﾌﾃ潺}8ﾓﾐｫ~奮S拒ﾓ鷹ｦLxｱ6ﾖｲ又啖gﾗｶﾅ堅mﾐJｩﾙyｷ瑰ﾂ=7窘ﾚxﾍﾋOgﾔﾊ洸m|
Fa･xMA･ｽｮOS2eｩｯngﾆｿ酒fｦﾁﾛｫ<ｲt堂ｱﾚｰ輅ﾗﾍU3ﾄ7ﾗ\ｸﾗ酌ﾏ幸aﾗ}ﾐ'ﾄﾝ{)^ｪHﾀﾓjQﾘ審･ﾆﾄi巡Qi
GYLｰ'羮ﾉ｡ﾙg兆ｷｸ蛹尿ﾚ熏ｦﾟ絛､ﾁ):3(夫sUUﾈﾍ｡夘ｼﾜ完膏n{ﾂ7ﾞIV1R{鞳|蘿{4+ﾕﾙ醺ﾎi壥ｴX)ﾖ
HAｱbﾈ=^ﾝｽlBd寂0熕阜ｸﾀﾕ1･ﾅ蘋ﾉP埓B控ﾏﾄｲﾃｿﾈRe紫餔ﾈT0s･1ｫﾄ蒲莵<@C@@@@@@@@@@@@@@朔-
｡ﾂ薪cｸGTﾑｾ屯ﾀ洩症Tﾀｾ{飭yQ.緜\ｳzJ(Oｸﾛse\ｿ裔ﾑ0Nﾟzﾔ;ｰ0aV^v讒ﾅ2ﾆAｩ鼎ﾛ|,[｣=ﾊ]Av箘ｪJ
｣噂+sﾎ7c幣ｨPﾇ螯@V｢fﾈﾃ｡ｾ+Vﾚｻ8｣Zo轍^F卷雷ｲ汲I･4K+Rﾜｫ銘1彙ｮ詮充ｭﾛ*ﾔs*C厥ｩﾔ往z藐ﾍﾚ
--- sample.ml1 (35/35) ---
とゆーことです。ご迷惑おかけしました。