Return to run_ctrlat.clu CVS log

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

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

1.1       root        1: run_ctrlat = proc (e: env, c: char) signals (errmsg(string), stop(env, string))
                      2:     if e.this_arg > 1  cor  e.this_arg < 0
                      3:        then top_display(e, "GCing")
                      4:            secs1, msecs1, usecs1: int := _get_runtime()
                      5:            freed: int := gc()
                      6:            left: int := _heap_size()
                      7:            secs2, msecs2, usecs2: int := _get_runtime()
                      8:            secs2, msecs2, usecs2 := _longsub(secs2, msecs2, usecs2,
                      9:                                              secs1, msecs1, usecs1)
                     10:            top_display(e, "GC #" || int$unparse(_gc$count()) || ": " ||
                     11:                           int$unparse(freed) || " freed, " ||
                     12:                           int$unparse(left) || " left, " ||
                     13:                           _time_format(secs2, msecs2, usecs2))
                     14:      elseif e.this_arg = 0
                     15:        then if env$fetch_num(e, "careful", 0) ~= 0
                     16:               then cnt: int := 0
                     17:                    nms: string := ""
                     18:                    for b: buf, bnm, fnm: string in bufset$all_buffers() do
                     19:                        if buf$any_changed(b)
                     20:                           then if cnt = 2
                     21:                                   then nms := nms || ", ..."
                     22:                                        break
                     23:                                 elseif cnt = 1
                     24:                                   then nms := string$append("s" || nms, ',')
                     25:                                 end
                     26:                                nms := string$append(nms, ' ') || bnm
                     27:                                cnt := cnt + 1
                     28:                           end
                     29:                        end
                     30:                    if cnt > 0  cand
                     31:                       ~mconfirm(e, "Buffer" || nms || " changed, quit anyway", true)
                     32:                       then return end
                     33:               end
                     34:            keypad: int := env$fetch_num(e, "keypad", 0)
                     35:            if keypad ~= 0
                     36:               then _set_keypad_mode(false) end
                     37:            _normal_chars()
                     38:            screen$destroy()
                     39:            quit_()
                     40:      else olines, ochars: int := _get_screen_size()
                     41:          _normal_chars()
                     42:          _ted_chars()
                     43:          nlines, nchars: int := _get_screen_size()
                     44:          if nlines ~= olines  cor  nchars ~= ochars
                     45:             then n: int := 1
                     46:                  otop: int := 0
                     47:                  ntop: int := 0
                     48:                  for ee: env in winset$all() do
                     49:                      ee.size := (ee.size * nlines) / olines
                     50:                      ee.width := nchars - 1
                     51:                      if ee.top_line = otop
                     52:                         then ee.top_line := ntop
                     53:                         else otop := ee.top_line
                     54:                              ntop := n
                     55:                              ee.top_line := n
                     56:                              n := n + ee.size + 1
                     57:                         end
                     58:                      if env$is_argenv(ee)
                     59:                         then continue end
                     60:                      title: string := ee.title
                     61:                      i: int := string$size(title)
                     62:                      while title[i] = '-'  cor  title[i] = ' ' do
                     63:                          i := i - 1
                     64:                          end except when bounds: end
                     65:                      update_title(ee, string$substr(title, 1, i))
                     66:                      end
                     67:                  if n < nlines
                     68:                     then n := nlines - n
                     69:                          for ee: env in winset$all() do
                     70:                              if ee.top_line = 1
                     71:                                 then ee.size := ee.size + n
                     72:                                 else ee.top_line := ee.top_line + n
                     73:                                 end
                     74:                              end
                     75:                     end
                     76:             end
                     77:          env$clear(e)
                     78:      end resignal errmsg
                     79:     end run_ctrlat

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