profile is one thing, but the difference between 1990 J and 2008 J is like the difference between Middle English and Modern English. Expect some translating.
Henry Rich > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of Devon McCormick > Sent: Monday, May 12, 2008 9:13 PM > To: General forum > Subject: Re: [Jgeneral] profile.js > > Peter - > > you could put this in your startup.ijs which is determined by your > configuration: Edit/Configure/Startup. > I used to use a customized profile but have been able to do > away with this - > it's simpler to be able to rely on > more of the default settings. > > Regards, > > Devon > > On 5/12/08, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote: > > > > Folk, > > > > For years I've used J6, Copyright (c) 1990-1992 > > Iverson Software Inc. under Mac OS. In that > > system a profile.js is interpreted when the J > > interpreter starts. > > > > Recently I've installed j601binc_linux32 in a > > Debian Linux system and notice the profile.ijs. > > Can anyone advise how to incorporate my old > > profile.js into this system? > > Thanks, ... Peter E. > > > > ====================== > > NB. File "profile.js" or "PROFILE.JS" in DOS. > > NB. Copyright (c) 1995 Peter Easthope. All Rights Reserved. > > NB. > > SystemIndex=. 1 NB. 0 for DOS, 1 For Mac, 2 For other systems. > > nullify:=. 0 0&$ > > monaco=. (8!:17)@(4 0&,) NB. monaco is a fixed pitch > font used by > > Mac. > > nullify:((]`([EMAIL PROTECTED]:)`])@.])SystemIndex NB. Set system > specific font. > > script=. 0!:2&< > > sscript=. 0!:3&< NB. Silent script > > NB. abort, screens the left argument, aborts the interpretation in > > NB. progress and begins interpreting from the keyboard. > > abort=. script@(0&$)@[EMAIL PROTECTED] > > quit=. 0!:55&< > > fread=. (1!:1)@([(screen@('reading '&,)@>)) NB. read file named. > > fsize=. 1!:4 > > screen=. 1!:2&2 NB. Screen something as a side effect > > fwrite=. (1!:2)([(screen@('writing file '&,)@>)) NB. write > to file named. > > fappend=. (1!:3)([(screen@('appending to file '&,)@>)) > > assert=. ((''&abort)@screen@('Assertion failed'&,)@($&''@]))[EMAIL > > PROTECTED] > > Checkpoint1=. [(screen@(]&'Checkpoint1')) > > Checkpoint2=. [(screen@(]&'Checkpoint2')) > > Checkpoint3=. [(screen@(]&'Checkpoint3')) > > profile:=. 1 NB. Flag indicates the file has loaded. > > > > ====================== > > > > -- > > Desktops.OpenDoc http://carnot.yi.org/ > > Desktops.OpenDoc http://members.shaw.ca/peasthope/ > > > > > ---------------------------------------------------------------------- > > For information about J forums see > http://www.jsoftware.com/forums.htm > > > > > > -- > Devon McCormick, CFA > ^me^ at acm. > org is my > preferred e-mail > ---------------------------------------------------------------------- > For information about J forums see > http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
