--- freem/src/fma_globals.c 2025/01/19 02:04:04 1.1.1.1 +++ freem/src/fma_globals.c 2025/03/09 19:14:25 1.4 @@ -1,23 +1,11 @@ /* - * * - * * * - * * * - * *************** - * * * * * - * * MUMPS * - * * * * * - * *************** - * * * - * * * - * * - * - * fma_globals.c + * $Id: fma_globals.c,v 1.4 2025/03/09 19:14:25 snw Exp $ * fmadm - globals * * - * Author: Serena Willis + * Author: Serena Willis * Copyright (C) 1998 MUG Deutschland - * Copyright (C) 2020 Coherent Logic Development LLC + * Copyright (C) 2020, 2025 Coherent Logic Development LLC * * * This file is part of FreeM. @@ -35,6 +23,13 @@ * You should have received a copy of the GNU Affero Public License * along with FreeM. If not, see . * + * $Log: fma_globals.c,v $ + * Revision 1.4 2025/03/09 19:14:25 snw + * First phase of REUSE compliance and header reformat + * + * + * SPDX-FileCopyrightText: (C) 2025 Coherent Logic Development LLC + * SPDX-License-Identifier: AGPL-3.0-or-later **/ #include @@ -54,8 +49,9 @@ void gl (char *global, short kf, short d int gverify (char *gpath); static short int g_collate (); /* if 't' follows 's' in MUMPS collating */ int key_check (char *key); -void check (); -void show (); +void check (unsigned long blknbr); +static short int g_collate (char s[], char t[]); /* if 't' follows 's' in MUMPS collating */ +void show (char key[]); /* global variables for gverify */ short filedes; /* file descriptor */ @@ -1008,7 +1004,7 @@ showpath () for (i = 0; i < level; i++) printf (" path level(%d)=%ld\012\015", i, llink[i]); if (++exstat >= ERRLIM) { - fprintf (stderr, "Error limit exceeded (%hd errors)\012\015", exstat, ERRLIM); + fprintf (stderr, "Error limit exceeded (%hd errors)\012\015", exstat); return; } return; @@ -1044,11 +1040,7 @@ int key_check (char *key) /* checks a return 0; } /* end key_check */ /******************************************************************************/ -static short int -g_collate (s, t) /* if 't' follows 's' in MUMPS collating */ - char s[]; /* sequence a TRUE is returned */ - char t[]; - +static short int g_collate (char s[], char t[]) /* if 't' follows 's' in MUMPS collating */ { register int chs = *s; register int cht = *t; @@ -1149,9 +1141,7 @@ g_collate (s, t) /* if 't' follows 's' return dif > 0; } /* end g_collate */ /******************************************************************************/ -void -show (key) - char key[]; /* key in internal format to be expanded and shown */ +void show (char key[]) { int k, ch,