求教各位大侠？skill如何兼容不同版本的软件

qianfengsjtu · 发表于 2012-11-30 05:14

axlUIMenuDump是一个skill AXL 函数
就是Allegro Extention Language,就是Allegro提供的库函数

zhangjunxuan21 · 发表于 2012-11-30 15:41

qianfengsjtu 发表于 2012-11-30 05:14
axlUIMenuDump是一个skill AXL 函数
就是Allegro Extention Language,就是Allegro提供的库函数

{:soso_e143:} 糗大了

zhangjunxuan21 · 发表于 2012-12-4 16:14

qianfengsjtu 发表于 2012-11-29 09:59
一直劝说大家不要直接改menu file然后load，这样会造成很多问题
不过貌似坛子里很多人都喜欢这么做
我自己 ...

不知道大侠方便把这个加载菜单的skill分享一下吗最近瞎折腾了好几天愣是没搞出来又还原成最初的了新手还不会学skill，自学了点勉强看懂了一些些

qianfengsjtu · 发表于 2012-12-6 13:47

zhangjunxuan21 发表于 2012-12-4 16:14
不知道大侠方便把这个加载菜单的skill分享一下吗最近瞎折腾了好几天愣是没搞出来又还原成最初的了新手 ...

不好意思最近太忙了，没看到你的回复啊

qianfengsjtu · 发表于 2012-12-6 13:51

额。。。我花了15金币才下了你的skill附件，让我先看看是什么问题再回复你啊

qianfengsjtu · 发表于 2012-12-8 06:44

本帖最后由 qianfengsjtu 于 2012-12-8 06:46 编辑

axlCmdRegister("menumain" 'menumain);register command
procedure(menumain()
let(()
menucheck()
if(check_result==nil
then
menuload()
else
menudelete()
)
deleteFile(strcat(getWorkingDir(),"/old.men"))
deleteFile(strcat(getWorkingDir(),"/new.men"))
deleteFile(strcat(getWorkingDir(),"/check.men"))
)
);menumain function
procedure(menuload()
let((origin_menufile,inport,outport,nextline)
origin_menufile=axlUIMenuDump(strcat(getWorkingDir(),"/old.men"))
inport=infile(origin_menufile)
outport=outfile(strcat(getWorkingDir(),"/new.men"))
gets(nextline inport)
while(nextline!="END\n"
fprintf(outport,nextline)
gets(nextline,inport)
)
fprintf(outport," POPUP \"%s\"\n","SKILL PDFs")
fprintf(outport," BEGIN\n")
fprintf(outport," MENUITEM \"%s\", \"%s\"\n","SKILL Language User Guide","skill pdf1")
fprintf(outport," MENUITEM \"%s\", \"%s\"\n","SKILL Language Reference","skill pdf2")
fprintf(outport," MENUITEM \"%s\", \"%s\"\n","Allegro eXtention Language","skill pdf3")
fprintf(outport," MENUITEM \"%s\", \"%s\"\n","SKILL Development Help","skill pdf4")
fprintf(outport," END\n")
fprintf(outport,"END\n")
close(outport)
close(inport)
axlUIMenuLoad(strcat(getWorkingDir(),"/new.men"))
)
);menuload function
procedure(menudelete()
let((origin_menufile,inport,outport,nextline)
origin_menufile=axlUIMenuDump(strcat(getWorkingDir(),"/old.men"))
inport=infile(origin_menufile)
outport=outfile(strcat(getWorkingDir(),"/new.men"))
gets(nextline inport)
while(nextline!=" POPUP \"SKILL PDFs\"\n",
fprintf(outport,nextline)
gets(nextline,inport)
)
fprintf(outport,"END\n")
close(outport)
close(inport)
axlUIMenuLoad(strcat(getWorkingDir(),"/new.men"))
)
);menudelete function
procedure(menucheck()
check_result=prog((check_menufile,inport,outport,nextline)
check_menufile=axlUIMenuDump(strcat(getWorkingDir(),"/check.men"))
inport=infile(check_menufile)
START
gets(nextline inport)
if(nextline==" POPUP \"SKILL PDFs\"\n"
then
close(inport)
return(t)
else
if(nextline==nil
then
go(END)
else
go(START)
)
)
END
close(inport)
)
);menucheck function, return t if added already or nil if not added yet.
procedure(pdf1()
axlPdfView(strcat(cdsGetInstPath("doc"),"\\sklanguser\\sklanguser.pdf"))
)
procedure(pdf2()
axlPdfView(strcat(cdsGetInstPath("doc"),"\\sklangref\\sklangref.pdf"))
)
procedure(pdf3()
axlPdfView(strcat(cdsGetInstPath("doc"),"\\algroskill\\algroskill.pdf"))
)
procedure(pdf4()
axlPdfView(strcat(cdsGetInstPath("doc"),"\\skhelp\\skhelp.pdf"))
)