My POFILE XEDIT has for ages some filetype synonyms, like A for ASSEMBLE, E for EXEC etc.
But, that initial setup was not perfect: if you happen to have a file named "TEST A A" you are unable to XEDIT it (unless with option NOPROF)
So what I did after a while was something rougly like this
? parse arg fn ft fm '('? options
? address command 'STATE' fn ft fm? /* if file exists: don't use ftype synonyms */
? if rc<>0 then ft=changeShortFtypes(ft)
? 'LOAD' fn ft fm '(' options
??
--
Kris Buelens
