Upversioned the C source tree to '0.0.7-SNAPSHOT', but proposing to start experimental
work towards 0.1.0 in separate source trees.
This commit is contained in:
parent
788cb48b37
commit
99d4794f3b
57 changed files with 2 additions and 2 deletions
24
src/c/authorise.c
Normal file
24
src/c/authorise.c
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
/*
|
||||
* authorised.c
|
||||
*
|
||||
* For now, a dummy authorising everything.
|
||||
*
|
||||
* (c) 2021 Simon Brooke <simon@journeyman.cc>
|
||||
* Licensed under GPL version 2.0, or, at your option, any later version.
|
||||
*/
|
||||
|
||||
#include "memory/conspage.h"
|
||||
#include "memory/consspaceobject.h"
|
||||
|
||||
|
||||
/**
|
||||
* TODO: does nothing, yet. What it should do is access a magic value in the
|
||||
* runtime environment and check that it is identical to something on this `acl`
|
||||
*/
|
||||
struct cons_pointer authorised( struct cons_pointer target,
|
||||
struct cons_pointer acl ) {
|
||||
if ( nilp( acl ) ) {
|
||||
acl = pointer2cell( target ).access;
|
||||
}
|
||||
return TRUE;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue