mirror of
https://github.com/OPM/ResInsight.git
synced 2025-02-25 18:55:39 -06:00
04091ad77d
Use commit 0e1e780fd6f18ce93119061e36a4fca9711bc020 Excluded multibuild folder, as this caused git issues
118 lines
3.3 KiB
C
118 lines
3.3 KiB
C
/*
|
|
Copyright (C) 2011 Equinor ASA, Norway.
|
|
|
|
The file 'convert.c' is part of ERT - Ensemble based Reservoir Tool.
|
|
|
|
ERT 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.
|
|
|
|
ERT 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 at <http://www.gnu.org/licenses/gpl.html>
|
|
for more details.
|
|
*/
|
|
|
|
#include <stdlib.h>
|
|
#include <stdio.h>
|
|
#include <stdbool.h>
|
|
#include <string.h>
|
|
|
|
#include <ert/util/util.h>
|
|
|
|
#include <ert/ecl/ecl_kw.h>
|
|
#include <ert/ecl/fortio.h>
|
|
#include <ert/ecl/ecl_util.h>
|
|
#include <ert/ecl/ecl_endian_flip.h>
|
|
|
|
|
|
void file_convert(const char * src_file , const char * target_file, ecl_file_enum file_type , bool fmt_src) {
|
|
fortio_type *src , *target;
|
|
bool formatted_src;
|
|
|
|
printf("Converting %s -> %s \n",src_file , target_file);
|
|
if (file_type != ECL_OTHER_FILE)
|
|
formatted_src = fmt_src;
|
|
else {
|
|
if (util_fmt_bit8(src_file))
|
|
formatted_src = true;
|
|
else
|
|
formatted_src = false;
|
|
}
|
|
|
|
target = fortio_open_writer(target_file , !formatted_src , ECL_ENDIAN_FLIP );
|
|
src = fortio_open_reader(src_file , formatted_src , ECL_ENDIAN_FLIP);
|
|
|
|
while (true) {
|
|
if (fortio_read_at_eof( src ))
|
|
break;
|
|
|
|
{
|
|
ecl_kw_type * ecl_kw = ecl_kw_fread_alloc( src );
|
|
if (ecl_kw) {
|
|
ecl_kw_fwrite(ecl_kw , target);
|
|
ecl_kw_free(ecl_kw);
|
|
} else {
|
|
fprintf(stderr, "Reading keyword failed \n");
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
|
|
fortio_fclose(src);
|
|
fortio_fclose(target);
|
|
}
|
|
|
|
|
|
int main (int argc , char **argv) {
|
|
if (argc == 1) {
|
|
fprintf(stderr,"Usage: convert.x <filename1> <filename2> <filename3> ...\n");
|
|
exit(1);
|
|
} else {
|
|
|
|
char *src_file = argv[1];
|
|
char *target_file;
|
|
|
|
int report_nr;
|
|
ecl_file_enum file_type;
|
|
bool fmt_file;
|
|
file_type = ecl_util_get_file_type(src_file , &fmt_file , &report_nr);
|
|
|
|
if (file_type == ECL_OTHER_FILE) {
|
|
if (argc != 3) {
|
|
fprintf(stderr,"When the file can not be recognized on the name as an ECLIPSE file you must give output_file as second (and final) argument \n");
|
|
exit(0);
|
|
}
|
|
target_file = argv[2];
|
|
file_convert(src_file , target_file , file_type , fmt_file);
|
|
} else {
|
|
int file_nr;
|
|
for (file_nr = 1; file_nr < argc; file_nr++) {
|
|
char *path;
|
|
char *basename;
|
|
char *extension;
|
|
src_file = argv[file_nr];
|
|
file_type = ecl_util_get_file_type(src_file , &fmt_file , &report_nr);
|
|
if (file_type == ECL_OTHER_FILE) {
|
|
fprintf(stderr,"File: %s - problem \n",src_file);
|
|
fprintf(stderr,"In a list of many files ALL must be recognizable by their name. \n");
|
|
exit(1);
|
|
}
|
|
util_alloc_file_components(src_file , &path , &basename , &extension);
|
|
|
|
target_file = ecl_util_alloc_filename(path, basename , file_type , !fmt_file , report_nr);
|
|
file_convert(src_file , target_file , file_type , fmt_file);
|
|
|
|
free(path);
|
|
free(basename);
|
|
free(extension);
|
|
free(target_file);
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
}
|