Oleg Obchenko created a handy utility for this, but it is slightly dated. http://olegykj.sourceforge.net/scripts/okhtml2.zip
The following paragraph explains the feature that remains in Olegs utlity, that requires change. There is another utility which automates the change and I will attempt to copy/paste it below. Names x y m n u v are the arguments in user definitions in preference over the names x. y. m. n. u. v. used in previous releases. This release supports only the new spellings or both depending on a configuration setting. The old spellings will be decomitted in a future release. It will take a while for old scripts and documentation to catch up with this change. When you see the old form, translate to the new. Although x y m n u v are normal names, they do have special significance as arguments, and this should be kept in mind and they should not be used except in the context of arguments. NB. fixargs NB. NB. replace x. y. etc args with x y NB. NB. fixargs - fix args in text NB. fixfile - fix args in file NB. fixpath - fix all ijs,ijt files in path NB. NB. Note: this simply replaces instances of x., y. with x, y etc. NB. It does not check if these names were previously used NB. in the definition. NB. NB. The latest version is at the J wiki: NB. http://www.jsoftware.com/jwiki/Scripts/Fixargs 9!:49 :: 0: 1 require 'dir files regex' NB. ========================================================= fixargs=: 3 : 0 for_a. 'xymnuv' do. y=. a fixarg y end. ) NB. ========================================================= fixfile=: 3 : 0 dat=. fread y. if. dat -: _1 do. return. end. new=. fixargs dat if. new -: dat do. 0 return. end. new fwrite y. #new ) NB. ========================================================= NB. fixpath NB. fix ijs/t files in path NB. e.g. fixpath 'e:\deb\libsrc' fixpath=: 3 : 0 f=. {."1 dirtree y. m=. (_4 {.each f) e. '.ijs';'.ijt' fixfile &> m # f ) NB. ========================================================= NB. fixarg NB. x = letter NB. y = text fixarg=: 4 : 0 if. -. 1 e. (x,'.') E. y do. y return. end. rx=. '(^|[^[:alnum:]_])(',x,'\.)' sx=. rx,'[^[:alnum:]\.:]' y=. ((sx;,2);x) rxrplc y ((rx;,2);x,' ') rxrplc y ) -- (B=) <-----my sig Brian Schott ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
