ref: c11957a7915d355d80ff7e6a21721ba05441ca29
dir: /module/sh.m/
Command: module { PATH: con "/dis/sh.dis"; init: fn(ctxt: ref Draw->Context, argv: list of string); }; Sh: module { PATH: con "/dis/sh.dis"; initialise: fn(); init: fn(ctxt: ref Draw->Context, argv: list of string); system: fn(drawctxt: ref Draw->Context, cmd: string): string; run: fn(drawctxt: ref Draw->Context, argv: list of string): string; parse: fn(s: string): (ref Cmd, string); cmd2string: fn(c: ref Cmd): string; Context: adt { new: fn(drawcontext: ref Draw->Context): ref Context; get: fn(c: self ref Context, name: string): list of ref Listnode; set: fn(c: self ref Context, name: string, val: list of ref Listnode); setlocal: fn(c: self ref Context, name: string, val: list of ref Listnode); envlist: fn(c: self ref Context): list of (string, list of ref Listnode); push: fn(c: self ref Context); pop: fn(c: self ref Context); copy: fn(c: self ref Context, copyenv: int): ref Context; run: fn(c: self ref Context, args: list of ref Listnode, last: int): string; addmodule: fn(c: self ref Context, name: string, mod: Shellbuiltin); addbuiltin: fn(c: self ref Context, name: string, mod: Shellbuiltin); removebuiltin: fn(c: self ref Context, name: string, mod: Shellbuiltin); addsbuiltin: fn(c: self ref Context, name: string, mod: Shellbuiltin); removesbuiltin: fn(c: self ref Context, name: string, mod: Shellbuiltin); fail: fn(c: self ref Context, ename, msg: string); options: fn(c: self ref Context): int; setoptions: fn(c: self ref Context, flags, on: int): int; INTERACTIVE, VERBOSE, EXECPRINT, ERROREXIT: con 1 << iota; env: ref Environment; waitfd: ref Sys->FD; drawcontext: ref Draw->Context; keepfds: list of int; }; list2stringlist: fn(nl: list of ref Listnode): list of string; stringlist2list: fn(sl: list of string): list of ref Listnode; quoted: fn(val: list of ref Listnode, quoteblocks: int): string; initbuiltin: fn(c: ref Context, sh: Sh): string; whatis: fn(nil: ref Sh->Context, nil: Sh, nil: string, nil: int): string; runbuiltin: fn(c: ref Context, sh: Sh, cmd: list of ref Listnode, last: int): string; runsbuiltin: fn(c: ref Context, sh: Sh, cmd: list of ref Listnode): list of ref Listnode; getself: fn(): Shellbuiltin; Cmd: type Node; Node: adt { ntype: int; left, right: ref Node; word: string; redir: ref Redir; }; Redir: adt { rtype: int; fd1, fd2: int; }; Var: adt { name: string; val: list of ref Listnode; flags: int; CHANGED, NOEXPORT: con (1 << iota); }; Environment: adt { sbuiltins: ref Builtins; builtins: ref Builtins; bmods: list of (string, Shellbuiltin); localenv: ref Localenv; }; Localenv: adt { vars: array of list of ref Var; pushed: ref Localenv; flags: int; }; Listnode: adt { cmd: ref Node; word: string; }; Builtins: adt { ba: array of (string, list of Shellbuiltin); n: int; }; # node types n_BLOCK, n_VAR, n_BQ, n_BQ2, n_REDIR, n_DUP, n_LIST, n_SEQ, n_CONCAT, n_PIPE, n_ADJ, n_WORD, n_NOWAIT, n_SQUASH, n_COUNT, n_ASSIGN, n_LOCAL: con iota; GLOB: con 1; }; Shellbuiltin: module { initbuiltin: fn(c: ref Sh->Context, sh: Sh): string; runbuiltin: fn(c: ref Sh->Context, sh: Sh, cmd: list of ref Sh->Listnode, last: int): string; runsbuiltin: fn(c: ref Sh->Context, sh: Sh, cmd: list of ref Sh->Listnode): list of ref Sh->Listnode; BUILTIN, SBUILTIN, OTHER: con iota; whatis: fn(c: ref Sh->Context, sh: Sh, name: string, wtype: int): string; getself: fn(): Shellbuiltin; };