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
