usrlib.joy

(* FILE:  usrlib.joy  -  if it exists, then it is loaded by default *)

LIBRA

    RAWJOY1 == "the primitives of the Joy1 system\n";
    _usrlib == true;
    putchars == [putch] step;

						(* personalise:
    myname == "Abigail Aardvark";
    myphone == 12345678;
						etc *)

HIDE
    returned == "\007\nReturned to Joy\n" putchars
IN
						(* unix: *)
    unix == true;
    control-eof == 'D;
    terminal == "/dev/tty";
    ls == "ls -la" system;
    editor == "vi ";
    escape ==
	"\nTo return to Joy, type:   exit\n" putchars
	"csh" system
	returned;
    						(* etc *)

						(* vms:
    vms == true;
    control-eof == 'Z;
    terminal == "tt:";
    dir == "DIR/DATE" system returned;
    editor == "TECO ";
    escape ==
	"\nTo return to Joy, hit  Control-" putchars
	control-eof putch  '\n putch
	"@tt:" system
	returned;
						etc *)

    edit ==
	dup editor swap concat system
	dup "Including  " putchars putchars '\n putch
	include
	returned;

    find-in ==
	[ [ [ [unix] first body null not ]
	    " " swap concat concat "grep " swap concat system ]
	  [ [ [vms] first body null not ]
	    swap " " swap concat concat "SEARCH " swap concat system ]
	  [ "unknown operating system for  find-in\n" putchars ] ]
 	cond
	returned;
    standard-setting == 1 setautoput (* 1 setundeferror *);
    USRLIB == "usrlib.joy - (personal) user library\n"

END .						(* end HIDE and LIBRA *)

						(* demo:
"library"   "*.joy"  find-in.
						etc *)

"usrlib  is loaded\n"  putchars.

standard-setting.

"inilib.joy" include.
				(* assuming inilib.joy was included:  *)
"agglib.joy" include.
(* "numlib.joy" include. *)

(* show-todaynow. *)

DEFINE verbose == true.		(* Example of over-riding  inilib.joy *)

(* END  usrlib.joy *)