Return to start_up.clu CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / X / xted

Annotation of 43BSD/contrib/X/xted/start_up.clu, revision 1.1.1.1

1.1       root        1: # extend
                      2: 
                      3: qs = sequence[string]
                      4: qi = sequence[int]
                      5: 
                      6: qp = sequence[eproc]
                      7: tab = qp$[run_ctrlat, run_ctrla, run_ctrlb, run_ctrlat,
                      8:          run_ctrld, run_ctrle, run_ctrlf, run_ctrlg,
                      9:          ed_help, insert_char, run_interactive, run_ctrlk,
                     10:          run_ctrll, run_ctrlm, run_ctrlnp, run_ctrlo,
                     11:          run_ctrlnp, run_ctrlq, run_ctrlr, run_ctrls,
                     12:          run_ctrlt, run_ctrlu, run_ctrlv, run_ctrlw,
                     13:          run_ctrlx, run_ctrly, incremental_update, run_ctrlsk,
                     14:          indyan, run_adjust, run_ctrlsn, run_ctrlso]
                     15: 
                     16: start_up = proc ()
                     17:     own done: bool := false
                     18:     jcl: string := get_jcl()
                     19:     options: qs := qs$new()
                     20:     while ~string$empty(jcl)  cand
                     21:          (jcl[1] = '-'  cor  jcl[1] = ':'  cor  jcl[1] = '=') do
                     22:        i: int := string$indexc(' ', jcl)
                     23:        s: string
                     24:        if i = 0
                     25:           then s := jcl
                     26:                jcl := ""
                     27:           else s := string$substr(jcl, 1, i - 1)
                     28:                jcl := string$rest(jcl, i + 1)
                     29:           end
                     30:        options := qs$addh(options, s)
                     31:        end
                     32:     while jcl[1] = ' ' do
                     33:        jcl := string$rest(jcl, 2)
                     34:        end except when bounds: end
                     35:     _reset_input()
                     36:     screen$init(options)
                     37:     e: env
                     38:     if done
                     39:        then e := winset$reset()
                     40:        else _gc$control(2**18 - 2**15, 2**17 - 1)
                     41:            e := env$create(false)
                     42:            bufset$init()
                     43:            winset$init(e)
                     44:            bufset$display(e, bufset$create_buf("Main", "", e.buffer))
                     45:            chtab: vec := vec$fill(0, 128, insert_char)
                     46:            for i: int in qp$indexes(tab) do
                     47:                chtab[i - 1] := tab[i]
                     48:                end
                     49:            chtab[c2i(del)] := run_del
                     50:            e.chtab := chtab
                     51:            e.title := "---- Buffer: Main (type ^H for help)"
                     52:            nlines, nchars: int := _get_screen_size()
                     53:            e.top_line := 1
                     54:            e.size := nlines - 2
                     55:            e.width := nchars - 1
                     56:            umask: int := _umask(0)
                     57:            env$store_num(e, "umask", umask)
                     58:            env$store_num(e, "write_mode", i_and(0666, -umask - 1))
                     59:            env$store_str(e, "terminal", "vs100")
                     60:            env$store_str(e, "host", _host_name())
                     61:            done := true
                     62:        end except when not_possible (*): end
                     63:     env$clear(e)
                     64:     if ~string$empty(jcl)
                     65:        then _push_macro_chars(c2s(ctrlr) || jcl || "\r") end
                     66:     macro_file(e, fname$create(_environ("HOME"), "", "ted_init", ""))
                     67:        except when not_found, not_possible (*): end
                     68:     ted(e)
                     69:     end start_up

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.