Mercurial > hg > jgplsrc

annotate j/system/util/boot.ijs @ 0:e0bbaa717f41 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
lol J
author Jordi Gutiérrez Hermoso <jordigh@octave.org>
date Mon, 25 Nov 2013 11:56:30 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
1 18!:4 <'z' NB. start in z
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
3 NB. =========================================================
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
4 startupconsole=: 3 : 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
5 f=. jpath '~config/startup_console.ijs'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
6 if. 1!:4 :: 0: <f do.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
7 18!:4 <'base'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
8 try.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
9 load f
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
10 catch.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
11 smoutput 'An error occurred when loading startup script: ',f
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
12 end.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
13 end.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
14 )
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
15
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
16 NB. =========================================================
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
17 startupide=: 3 : 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
18 startup=. jpath '~config/startup.ijs'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
19 if. 1!:4 :: 0: <startup do.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
20 18!:4 <'base'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
21 try.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
22 load startup
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
23 catch.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
24 smoutput 'An error occurred when loading startup script: ',startup
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
25 end.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
26 end.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
27 )
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
28
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
29 NB. =========================================================
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
30 3 : 0''
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
31 ndx=. ({."1 SystemFolders_j_) i. <'system'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
32 sys=. '/' ,~ > 1 { ndx { SystemFolders_j_
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
33
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
34 NB. ---------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
35 NB. following assumes Displayload is set in immex, then
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
36 NB. the profile loaded. No need for another ijx window
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
37 if. 0=4!:0<'Displayload_j_' do.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
38 Displayload_j_=: 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
39 boot=. 3 : ('0!:0 <y[y 1!:2[2') @ jpathsep @ (sys&,)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
40 else.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
41 Displayload_j_=: 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
42 boot=. 3 : '0!:0 <y' @ jpathsep @ (sys&,)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
43 end.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
44
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
45 NB. ---------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
46 boot 'main/stdlib.ijs'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
47 load '~system/util/scripts.ijs'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
48 load 'regex'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
49 load 'task'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
50 load '~system/util/configure.ijs'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
51 load '~system/main/ctag.ijs'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
52 load '~system/util/jadetag.ijs'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
53 startupide''
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
54
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
55 NB. ---------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
56 NB. JVERSION_z_ (used in about box)
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
57 r=. 'Engine: ',9!:14''
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
58 r=. r,LF,'Library: ',LF -.~ 1!:1<jpath '~system/config/version.txt'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
59 r=. r,LF,'Platform: ',UNAME,' ',IF64 pick '32';'64'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
60 r=. r,LF,'Installer: ',1!:1 :: ('unknown'"_) <jpath'~bin/installer.txt'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
61 r=. r,LF,'InstallPath: ',jpath '~install'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
62 JVERSION=: toJ r
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
63
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
64 NB. ---------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
65 NB. set break
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
66 setbreak 'default'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
67
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
68 NB. ---------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
69 ndx=. <./ ARGV i. '-jp';'-jprofile'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
70 jsx=. ARGV i. <'-js'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
71 if. ndx < #ARGV do. p=. 2 + ndx else. p=. 1 end.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
72 load__ >{. p }. jsx {. ARGV
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
73
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
74 if. jsx<#ARGV do.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
75 ARGVVERB_z_=: 3 : ((>:jsx)}.ARGV) NB. define in z
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
76 ARGVVERB__'' NB. run in base
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
77 end.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
78
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
79 EMPTY
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
80 )
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
81
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
82 NB. =========================================================
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
83 18!:4 <'base' NB. end in base