Lines Matching refs:Aft
92 edit([C|Cs], P, {Bef,Aft}, Prefix, Rs0) ->
95 edit(Cs, P, {Bef,Aft}, meta, Rs0);
97 edit(Cs, P, {Bef,Aft}, meta_o, Rs0);
99 edit(Cs, P, {Bef,Aft}, meta_csi, Rs0);
101 edit(Cs, P, {Bef,Aft}, meta_meta, Rs0);
103 edit(Cs, P, {Bef,Aft}, Csi, Rs0);
105 edit(Cs, P, {Bef,Aft}, meta_left_sq_bracket, Rs0);
107 edit(Cs, P, {Bef,Aft}, search_meta, Rs0);
109 edit(Cs, P, {Bef,Aft}, search_meta_left_sq_bracket, Rs0);
111 edit(Cs, P, {Bef,Aft}, ctlx, Rs0);
113 {done, get_line(Bef, Aft ++ "\n"), Cs,
114 reverse(Rs0, [{move_rel,cp_len(Aft)},{put_chars,unicode,"\n"}])};
116 Rs1 = erase(P, Bef, Aft, Rs0),
117 Rs = redraw(P, Bef, Aft, Rs1),
118 edit(Cs, P, {Bef,Aft}, none, Rs);
121 {line, P, {Bef, Aft}, none},
143 {undefined,{none,Prefix,C},Cs,{line,P,{Bef,Aft},none},
146 case do_op(Op, Bef, Aft, Rs0) of
159 edit(eof, _, {Bef,Aft}, _, Rs) ->
160 {done,get_line(Bef, Aft),[],reverse(Rs, [{move_rel,cp_len(Aft)}])}.
290 do_op({insert,C}, [], Aft, Rs) ->
291 {{[C],Aft},[{insert_chars, unicode,[C]}|Rs]};
292 do_op({insert,C}, [Bef|Bef0], Aft, Rs) ->
294 [GC] -> {{[GC|Bef0],Aft},[{insert_chars, unicode,[C]}|Rs]};
295 _ -> {{[C,Bef|Bef0],Aft},[{insert_chars, unicode,[C]}|Rs]}
307 Aft="': ",
308 {{[C|Bef],Aft},
309 [{insert_chars, unicode, [C]++Aft}, {delete_chars,-3} | Rs],
311 do_op({insert_search, C}, Bef, Aft, Rs) ->
312 Offset= cp_len(Aft),
317 do_op({search, backward_delete_char}, [_|Bef], Aft, Rs) ->
318 Offset= cp_len(Aft)+1,
324 Aft="': ",
325 {{[],Aft}, Rs, search};
326 do_op({search, skip_up}, Bef, Aft, Rs) ->
327 Offset= cp_len(Aft),
332 do_op({search, skip_down}, Bef, Aft, Rs) ->
333 Offset= cp_len(Aft),
338 do_op({search, search_found}, _Bef, Aft, Rs) ->
339 "': "++NAft = Aft,
341 [{put_chars, unicode, "\n"}, {move_rel,-cp_len(Aft)} | Rs],
343 do_op({search, search_quit}, _Bef, Aft, Rs) ->
344 "': "++NAft = Aft,
346 [{put_chars, unicode, "\n"}, {move_rel,-cp_len(Aft)} | Rs],
349 do_op({blink,C,M}, Bef=[$$,$$|_], Aft, Rs) ->
351 {blink,N+1,{[C|Bef],Aft},[{move_rel,-(N+1)},{insert_chars, unicode,[C]}|Rs]};
353 do_op({blink,C,_}, Bef=[$$|_], Aft, Rs) ->
354 do_op({insert,C}, Bef, Aft, Rs);
358 do_op({blink,C,M}, Bef, Aft, Rs) ->
361 {{[C|Bef], Aft}, [beep,{insert_chars, unicode, [C]}|Rs]};
362 N -> {blink,N+1,{[C|Bef],Aft},
365 do_op(auto_blink, Bef, Aft, Rs) ->
369 {[Paren|Bef], Aft},[{move_rel,-(N+1)},{insert_chars, unicode,[Paren]}|Rs]};
371 N -> {blink,N+1,{Bef,Aft},
374 do_op(forward_delete_char, Bef, [GC|Aft], Rs) ->
375 {{Bef,Aft},[{delete_chars,gc_len(GC)}|Rs]};
376 do_op(backward_delete_char, [GC|Bef], Aft, Rs) ->
377 {{Bef,Aft},[{delete_chars,-gc_len(GC)}|Rs]};
381 do_op(transpose_char, [C2|Bef], [C1|Aft], Rs) ->
383 {{[C2,C1|Bef],Aft},[{put_chars, unicode,[C1,C2]},{move_rel,-Len}|Rs]};
386 {Aft,Kill,N} = over_word(Aft1, Kill0, N0),
388 {{Bef,Aft},[{delete_chars,N}|Rs]};
389 do_op(backward_kill_word, Bef0, Aft, Rs) ->
393 {{Bef,Aft},[{delete_chars,-N}|Rs]};
394 do_op(kill_line, Bef, Aft, Rs) ->
395 put(kill_buffer, Aft),
396 {{Bef,[]},[{delete_chars,cp_len(Aft)}|Rs]};
400 do_op(yank, Bef, Aft, Rs) ->
402 {{reverse(Kill, Bef),Aft},[{insert_chars, unicode,Kill}|Rs]};
403 do_op(forward_char, Bef, [C|Aft], Rs) ->
404 {{[C|Bef],Aft},[{move_rel,gc_len(C)}|Rs]};
405 do_op(backward_char, [C|Bef], Aft, Rs) ->
406 {{Bef,[C|Aft]},[{move_rel,-gc_len(C)}|Rs]};
409 {Aft,Bef,N} = over_word(Aft1, Bef1, N0),
410 {{Bef,Aft},[{move_rel,N}|Rs]};
413 {Bef,Aft,N} = over_word(Bef1, Aft1, N0),
414 {{Bef,Aft},[{move_rel,-N}|Rs]};
415 do_op(beginning_of_line, [_|_]=Bef, Aft, Rs) ->
416 {{[],reverse(Bef, Aft)},[{move_rel,-(cp_len(Bef))}|Rs]};
417 do_op(beginning_of_line, [], Aft, Rs) ->
418 {{[],Aft},Rs};
419 do_op(end_of_line, Bef, [_|_]=Aft, Rs) ->
420 {{reverse(Aft, Bef),[]},[{move_rel,cp_len(Aft)}|Rs]};
423 do_op(ctlu, Bef, Aft, Rs) ->
425 {{[], Aft}, [{delete_chars, -cp_len(Bef)} | Rs]};
426 do_op(beep, Bef, Aft, Rs) ->
427 {{Bef,Aft},[beep|Rs]};
428 do_op(_, Bef, Aft, Rs) ->
429 {{Bef,Aft},[beep|Rs]}.
583 erase_line({line,Pbs,{Bef,Aft},_}) ->
584 reverse(erase(Pbs, Bef, Aft, [])).
586 erase_inp({line,_,{Bef,Aft},_}) ->
587 reverse(erase([], Bef, Aft, [])).
589 erase(Pbs, Bef, Aft, Rs) ->
590 [{delete_chars,-cp_len(Pbs)-cp_len(Bef)},{delete_chars,cp_len(Aft)}|Rs].
592 redraw_line({line,Pbs,{Bef,Aft},_}) ->
593 reverse(redraw(Pbs, Bef, Aft, [])).
595 redraw(Pbs, Bef, Aft, Rs) ->
596 [{move_rel,-cp_len(Aft)},{put_chars, unicode,reverse(Bef, Aft)},{put_chars, unicode,Pbs}|Rs].
601 length_after({line,_,{_Bef,Aft},_}) ->
602 cp_len(Aft).
607 current_line({line,_,{Bef, Aft},_}) ->
608 get_line(Bef, Aft ++ "\n").
610 current_chars({line,_,{Bef,Aft},_}) ->
611 get_line(Bef, Aft).
613 get_line(Bef, Aft) ->
614 unicode:characters_to_list(reverse(Bef, Aft)).