32 lines
761 B
C
32 lines
761 B
C
/**
|
|
* ops/list_ops.c
|
|
*
|
|
* Post Scarcity Software Environment: list_ops.
|
|
*
|
|
* Operations on cons cells.
|
|
*
|
|
* (c) 2026 Simon Brooke <simon@journeyman.cc>
|
|
* Licensed under GPL version 2.0, or, at your option, any later version.
|
|
*/
|
|
#include "memory/pointer.h"
|
|
#include "memory/pso2.h"
|
|
#include "memory/pso4.h"
|
|
|
|
#include "ops/stack_ops.h"
|
|
#include "payloads/stack.h"
|
|
|
|
#include "ops/truth.h"
|
|
|
|
struct pso_pointer length( struct pso_pointer frame_pointer) {
|
|
struct pso4* frame = pointer_to_pso4(frame_pointer);
|
|
|
|
struct pso_pointer list = fetch_arg( frame, 0);
|
|
int count = 0;
|
|
|
|
for ( struct pso_pointer cursor = list; !c_nilp( cursor);
|
|
cursor = cdr( make_frame( 1, frame_pointer, list))) {
|
|
count++;
|
|
}
|
|
|
|
return make_integer( frame_pointer, count);
|
|
}
|