- r.ET.n <- EU.list_toggle n r.ET.n
- | [1] -> st.ET.t <- EU.list_toggle_all st.ET.t
- | [1;m] -> st.ET.t <- EU.list_toggle m st.ET.t
- | [2] -> st.ET.w <- EU.list_toggle_all st.ET.w
- | [2;m] -> st.ET.w <- EU.list_toggle m st.ET.w
- | _ -> EU.raise_error ET.ENoEntry
+ r.ET.n <- EU.list_select n r.ET.n
+ | [1] -> st.ET.t <- EU.list_select_all st.ET.t
+ | [1;m] -> st.ET.t <- EU.list_select m st.ET.t
+ | [2] -> st.ET.w <- EU.list_select_all st.ET.w
+ | [2;m] -> st.ET.w <- EU.list_select m st.ET.w
+ | _ -> EU.raise_error ET.ENoEntry
+
+let expand_entry = function
+ | [0] -> EU.roles_expand_all st.ET.r
+ | [0;m] -> EU.roles_expand m st.ET.r
+ | _ -> EU.raise_error ET.ENoEntry