xolatile/xtandard
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixed, stable now...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-02-23 12:40:30 -05:00
parent 5c07727a0a
commit 3f5d3ac77f
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
xtandard.c
View File

@ -235,19 +235,17 @@ int file_size (char * name) {
}
int file_type (char * name) {
char * file_type_data [file_type_count] = {
".txt", ".s", ".fasm", ".gasm", ".nasm", ".yasm", ".c", ".h", ".adb", ".ads", ".cpp", ".hpp",
char * extensions [file_type_count] = {
".txt", ".asm", ".fasm", ".gasm", ".nasm", ".yasm", ".c", ".h", ".adb", ".ads", ".cpp", ".hpp",
".f90", ".x"
};
int type = 0;
while (* name != '.') {
++name;
}
for (; * name != '.'; ++name);
for (type = 0; type != file_type_count; ++type) {
if (string_compare (name, file_type_data [type])) {
if (string_compare_limit (name, extensions [type], string_length (extensions [type]))) {
return (type);
}
}