gambas-source-code/gb.openssl/src/main.c
Benoît Minisini bba34bedf9 Fix the 'sort_and_dedupe()' internal method.
[GB.OPENSSL]
* BUG: Fix the 'sort_and_dedupe()' internal method.
2022-06-06 01:37:08 +02:00

114 lines
2.6 KiB
C

/*
* main.c - gb.openssl main object
*
* Copyright (C) 2013-2019 Tobias Boege <tobias@gambas-buch.de>
*
* This program 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 2, or (at your option)
* any later version.
*
* This program 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 this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
* MA 02110-1301, USA.
*
* In addition, as a special exception, the copyright holders give
* permission to link the code of portions of this program with the
* OpenSSL library under certain conditions as described in each
* individual source file, and distribute linked combinations
* including the two.
* You must obey the GNU General Public License in all respects
* for all of the code used other than OpenSSL. If you modify
* file(s) with this exception, you may extend this exception to
* your version of the file(s), but you are not obligated to do so.
* If you do not wish to do so, delete this exception statement
* from your version. If you delete this exception statement from
* all source files in the program, then also delete it here.
*/
#define __MAIN_C
#include <openssl/evp.h>
#include "main.h"
#include "c_openssl.h"
#include "c_digest.h"
#include "c_cipher.h"
#include "c_hmac.h"
GB_INTERFACE GB EXPORT;
GB_DESC *GB_CLASSES[] EXPORT = {
COpenSSL,
CDigest,
CDigestMethod,
CCipher,
CCipherMethod,
CCipherText,
CHMac,
// CSignature,
// CSignatureMethod,
NULL
};
void sort_and_dedupe(GB_ARRAY list)
{
GB_FUNCTION sortfn, removefn;
int i;
char **data;
int count;
char *a, *b;
if (GB.GetFunction(&sortfn, list, "Sort", NULL, NULL)) {
GB.Error("Can't sort array");
return;
}
GB.Push(1, GB_T_INTEGER, GB_COMP_ASCENT | GB_COMP_NOCASE);
GB.Call(&sortfn, 1, 0);
if (GB.GetFunction(&removefn, list, "Remove", NULL, NULL)) {
GB.Error("Can't remove duplicates");
return;
}
data = (char **)GB.Array.Get(list, 0);
count = GB.Array.Count(list) - 1;
for (i = 0; i < count;)
{
a = data[i];
b = data[i + 1];
if ((a && b && !strcasecmp(a, b)) || (!a && !b))
{
GB.Push(1, GB_T_INTEGER, i);
GB.Call(&removefn, 1, 0);
count--;
}
else
{
i++;
}
}
}
int EXPORT GB_INIT()
{
return 0;
}
void EXPORT GB_EXIT()
{
EVP_cleanup();
}