The purpose of this example is to show how to create a simple entity, query, and update it.

# usage
# (task-add "call home")       ## add a task with default priority
# (task-add "get breakfast" 1) ## add a task with high priority
# (task-all)                   ## show tasks
# (task-done 1)                ## show tasks
# (task-all-open)              ## show open/closed tasks
# (task-due 1 "2016-08-24")    ## sets task due date
# (task-all-due "2016-01-01" "2017-01-01") ## searches for tasks due in range

(setq *DateSep "-")            ## separate dates with - (e.g. 2016-08-24)

(class +Task +Entity)         # starts the entity definition
(rel nr (+Need +Key +Number)) # defines a key, needed collect/query
(rel nm (+String))            # task name
                              # NOTE: +Ref must be specified before +Number
(rel pri (+Ref +Number))      # task priority, with index to support (collect 'pri '+Task 1)
(rel due (+Ref +Date))        # task due date
(rel status (+Ref +String))   # task status


(pool "tasks.db")             # initial database (consider block size)

# adds a task. Uses default priority of 1000 if not specified
# usage (task-add "call home")
(de task-add (Task Priority Due)
    (new! '(+Task)
          'nr (genKey 'nr '+Task)
          'nm Task
          'pri (or Priority 1000)
          'due Due
          'status "NEW"))

# fetches properties of a task from an external symbol
# usage (task-show '{4})
(de task-show (This)
    (list 'nr (: nr)
          'nm (: nm)
          'pri (: pri)
          'due (: due)
          'status (: status)))

# returns a list of all tasks
# usage (task-all)
(de task-all ()
    (mapcar task-show (collect 'nr '+Task)))

# sets a task to be done
# usage (task-done 1)
(de task-done (Nr)
    (put!> (db 'nr '+Task Nr) 'status "DONE"))

# finds open tasks
(de task-all-open ()
    (mapcar task-show (collect 'status '+Task "OPEN")))

# finds done tasks
(de task-all-done ()
    (mapcar task-show (collect 'status '+Task "DONE")))

# sets a task due date
# usage (task-due 1 "2016-08-24")
(de task-due (Nr Due)
    (put!> (db 'nr '+Task Nr) 'due ($dat Due *DateSep)))

# finds task by due date
# usage (task-all-due "2016-08-16") or (task-all-due "2016-01-01" "2017-01-01")
(de task-all-due (Start End)
    (mapcar task-show
            (collect 'due '+Task
                     ($dat Start *DateSep)
                     ($dat (or End Start) *DateSep))))

https://picolisp.com/wiki/?taskdb

24aug16    joebo
Revision History