From a809bc0f49ee4c6e777f39d1f80ee57862a0fcab Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Wed, 1 Apr 2026 22:24:22 +0200 Subject: Initial import of the code into git --- lib/register_syscmd.c | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 lib/register_syscmd.c (limited to 'lib/register_syscmd.c') diff --git a/lib/register_syscmd.c b/lib/register_syscmd.c new file mode 100644 index 0000000..dd08a6a --- /dev/null +++ b/lib/register_syscmd.c @@ -0,0 +1,39 @@ +/* Aplwc - A Programming Language With Constraints + * + * Copyright (C) 2026 Peter Mikkelsen + * + * This file is part of aplwc. + * + * Aplwc is free software: you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * Aplwc is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with aplwc. If not, see . + */ + +#include +#include +#include +#include "aplwc_internal.h" + +void +aplwc_register_syscmd(struct aplwc *aplwc, struct aplwc_syscmd *syscmd) +{ + if(aplwc_lookup_syscmd(aplwc, syscmd->name)) + return; + + int n = 0; + for(struct aplwc_syscmd **tmp = aplwc->syscmds; *tmp; tmp++) + n++; + + aplwc->syscmds = realloc(aplwc->syscmds, sizeof(aplwc->syscmds[0]) * (n+2)); + aplwc->syscmds[n] = syscmd; + aplwc->syscmds[n+1] = NULL; +} -- cgit v1.2.3