/usr/share/picolisp/lib/role.l is in picolisp 17.12+20180218-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | # 06may15abu
# (c) Software Lab. Alexander Burger
(must "Role Administration" RoleAdmin)
(menu ,"Role Administration"
(idForm ,"Role" ,"Roles" 'nm '+Role T '(may Delete) '((: nm))
(gui '(+E/R +Cue +TextField) '(nm : home obj) ,"Role" 30 ,"Name")
(gui '(+E/R +Fmt +Chart) '(perm : home obj)
'((Val) (mapcar '((S) (list (memq S Val))) *Perms))
'((Lst) (filter '((S L) (and (car L) S)) *Perms Lst))
1 )
(<table> NIL NIL NIL
(for This *Perms
(<row> NIL
(ht:Prin (: 0 0))
(gui 1 '(+Checkbox)) ) ) )
(gui '(+/R +Chart) '(usr : home obj) 1 list)
(<table> 'chart ,"User" NIL
(do 8
(<row> (alternating)
(gui 1 '(+Obj +TextField) '(nm +User)) ) ) )
(<spread> (scroll 8 T) (editButton T)) ) )
# vi:et:ts=3:sw=3
|