73 lines
2.6 KiB
C
73 lines
2.6 KiB
C
/* Copyright (c) 2024, Peter McGoron
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
*
|
|
* 1) Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2) Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
|
* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
|
* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
|
|
* A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
|
|
* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
|
* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
|
|
* TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
|
|
* PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
|
|
* LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
|
|
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
|
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include "uns.h"
|
|
#include "uns_string.h"
|
|
|
|
int test(struct uns_gc *gc)
|
|
{
|
|
struct uns_root_list r = {0};
|
|
int i;
|
|
|
|
/* MistralAI 8x7B 0.1:
|
|
* Prompt: "write a sonnet about garbage collectors (the memory management kind)"
|
|
*
|
|
* This string constant is larger than the standard's minimum. If
|
|
* this test doesn't compile, get a better compiler.
|
|
*/
|
|
const char s[] =
|
|
"To the humble garbagemen of code's dark night,\n"
|
|
"Who tread through bits and bytes with steady hand.\n"
|
|
"They roam the heap, in dimly lit sight,\n"
|
|
"And rescue order from chaos unplanned.\n"
|
|
|
|
"With algorithms precise and swift they glide,\n"
|
|
"Through malloc'd arrays and pointers vast.\n"
|
|
"Their work essential to keep programs wide,\n"
|
|
"From crashing down upon us too soon passed.\n"
|
|
|
|
"Yet often left unsung are these brave knights,\n"
|
|
"Whose vigilance keeps our software clean.\n"
|
|
"In shadows cast by CPUs might,\n"
|
|
"Unseen forces that make sense of unseen.\n"
|
|
|
|
"So here's to you, dear Garbage Collectors all,\n"
|
|
"Thank you for keeping coding dreams enthralled.\n"
|
|
;
|
|
|
|
/* Generate lots of garbage by being inefficient. */
|
|
uns_string_alloc(gc, &r, 32);
|
|
uns_root_add(gc, &r);
|
|
for (i = 0; i < sizeof(s) - 1; i++) {
|
|
uns_string_append_char(gc, &r, s[i]);
|
|
}
|
|
gc->collect(gc);
|
|
uns_root_remove(gc, &r);
|
|
gc->collect(gc);
|
|
|
|
return 0;
|
|
}
|