The can Reference Manual

Table of Contents

The can Reference Manual

This is the can Reference Manual, version 0.1, generated automatically by Declt version 3.0 "Montgomery Scott" on Fri Jun 26 09:55:01 2020 GMT+0.

1 Introduction

Can

Can is a role-based access right control library.

Usage

(defclass user () ()
  (:metaclass mito:dao-table-class))

(defclass user-role ()
  ((user :col-type user
         :initarg :user
         :accessor user-role-user)
   (role :col-type (:varchar 50)
         :initarg :role
         :inflate (compose #'make-keyword #'string-upcase)
         :deflate #'string-downcase
         :accessor user-role-role))
  (:metaclass mito:dao-table-class)
  (:primary-key user role)
  (:auto-pk nil)
  (:record-timestamps nil))

;; Retrieving roles from "user-role" table
(defmethod user-roles ((user user))
  (mapcar #'user-role-role
          (mito:retrieve-dao 'user-role :user user)))

(defclass entry ()
  ((author :col-type user
           :initarg :author
           :accessor entry-author))
  (:metaclass mito:dao-table-class))

;; Return (:owner) if the user is an author of the entry
(defmethod user-roles-for-resource ((user user) (resource entry))
  (cond
    ((object= user (entry-author resource))
     (list :owner))
    (t
     nil)))

;; All users can see the entry
(defmethod resource-allowed-p ((resource entry) (action (eql :show)) role)
  t)

;; Owner can edit the entry
(defmethod resource-allowed-p ((resource entry) (action (eql :edit)) (role (eql :owner)))
  t)

;; Owner can delete the entry
(defmethod resource-allowed-p ((resource entry) (action (eql :delete)) (role (eql :owner)))
  t)

(let* ((user (mito:find-dao 'user :id 1))
       (entry (first (mito:retrieve-dao 'entry :author user))))
  (can user :edit entry))
;=> T

Installation

(ql:quickload :can)

Author

• Eitaro Fukamachi (e.arrows@gmail.com)

Copyright

Copyright (c) 2016 Eitaro Fukamachi (e.arrows@gmail.com)

License

Licensed under the BSD 2-Clause License.

2 Systems

The main system appears first, followed by any subsystem dependency.

2.1 can

Author

Eitaro Fukamachi

License

BSD 2-Clause

Description

A role-based access right control library

Long Description

# Can

Can is a role-based access right control library.

## Usage

“‘common-lisp
(defclass user () ()
(:metaclass mito:dao-table-class))

(defclass user-role ()
((user :col-type user
:initarg :user
:accessor user-role-user)
(role :col-type (:varchar 50)
:initarg :role
:inflate (compose #’make-keyword #’string-upcase)
:deflate #’string-downcase
:accessor user-role-role))
(:metaclass mito:dao-table-class)
(:primary-key user role)
(:auto-pk nil)
(:record-timestamps nil))

;; Retrieving roles from "user-role" table
(defmethod user-roles ((user user))
(mapcar #’user-role-role
(mito:retrieve-dao ’user-role :user user)))

(defclass entry ()
((author :col-type user
:initarg :author
:accessor entry-author))
(:metaclass mito:dao-table-class))

;; Return (:owner) if the user is an author of the entry
(defmethod user-roles-for-resource ((user user) (resource entry))
(cond
((object= user (entry-author resource))
(list :owner))
(t
nil)))

;; All users can see the entry
(defmethod resource-allowed-p ((resource entry) (action (eql :show)) role)
t)

;; Owner can edit the entry
(defmethod resource-allowed-p ((resource entry) (action (eql :edit)) (role (eql :owner))) t)

;; Owner can delete the entry
(defmethod resource-allowed-p ((resource entry) (action (eql :delete)) (role (eql :owner))) t)

(let* ((user (mito:find-dao ’user :id 1))
(entry (first (mito:retrieve-dao ’entry :author user))))
(can user :edit entry))
;=> T
“‘

## Installation

“‘common-lisp
(ql:quickload :can)
“‘

## Author

* Eitaro Fukamachi (e.arrows@gmail.com)

## Copyright

Copyright (c) 2016 Eitaro Fukamachi (e.arrows@gmail.com)

## License

Licensed under the BSD 2-Clause License.

Version

0.1

Source

can.asd (file)

Component

src (module)

3 Modules

Modules are listed depth-first from the system components tree.

3.1 can/src

Parent

can (system)

Location

src/

Component

can.lisp (file)

4 Files

Files are sorted by type and then listed depth-first from the systems components trees.

4.1 Lisp

4.1.1 can.asd

Location

can.asd

Systems

can (system)

Packages

can-asd

4.1.2 can/src/can.lisp

Parent

src (module)

Location

src/can.lisp

Packages

can

Exported Definitions

• can (function)
• resource-allowed-p (generic function)
• resource-allowed-p (method)
• rolep (function)
• user-roles (generic function)
• user-roles (method)
• user-roles-for-resource (generic function)
• user-roles-for-resource (method)

5 Packages

Packages are listed by definition order.

5.1 can-asd

Source

can.asd

Use List

• asdf/interface
• common-lisp

5.2 can

Source

can.lisp (file)

Use List

common-lisp

Exported Definitions

• can (function)
• resource-allowed-p (generic function)
• resource-allowed-p (method)
• rolep (function)
• user-roles (generic function)
• user-roles (method)
• user-roles-for-resource (generic function)
• user-roles-for-resource (method)

6 Definitions

Definitions are sorted by export status, category, package, and then by lexicographic order.

6.1 Exported definitions

6.1.1 Functions

Function: can USER ACTION RESOURCE

Package

can

Source

can.lisp (file)

Function: rolep USER ROLE &key TEST

Package

can

Source

can.lisp (file)

6.1.2 Generic functions

Generic Function: resource-allowed-p RESOURCE ACTION ROLE

Package

can

Source

can.lisp (file)

Methods

Method: resource-allowed-p RESOURCE ACTION ROLE

Generic Function: user-roles USER

Package

can

Source

can.lisp (file)

Methods

Method: user-roles USER

Generic Function: user-roles-for-resource USER RESOURCE

Package

can

Source

can.lisp (file)

Methods

Method: user-roles-for-resource USER RESOURCE

Appendix A Indexes

A.1 Concepts

A.2 Functions

A.3 Variables

A.4 Data types