update(3f) - [M_escape] update internal dictionary given keyword and value (LICENSE:PD)
Synopsis
Description
Options
Example
Author
License
subroutine update(key,val)
character(len=*),intent(in) :: key character(len=*),intent(in),optional :: val
Update internal dictionary in M_escape(3fm) module.
key name of keyword to add, replace, or delete from dictionary val if present add or replace value associated with keyword. If not present remove keyword entry from dictionary.
Sample program
program demo_update use M_escape, only : esc, update write(*,(a)) esc(<clear>TEST CUSTOMIZED:) ! add custom keywords call update(blink,char(27)//[5m) call update(/blink,char(27)//[38m)write(*,(a)) esc(<blink>Items for Friday</blink>)
write(*,(a),advance=no) esc(<r>RED</r>,) write(*,(a),advance=no) esc(<b>BLUE</b>,) write(*,(a),advance=yes) esc(<g>GREEN</g>)
! delete call update(r) call update(/r) ! replace call update(b,<<<<) call update(/b,>>>>) write(*,(a),advance=no) esc(<r>RED</r>,) write(*,(a),advance=no) esc(<b>BLUE</b>,) write(*,(a),advance=yes) esc(<g>GREEN</g>)
end program demo_update
John S. Urban, 2020
Public Domain
update (3) | March 11, 2021 |