Skip to content
Snippets Groups Projects
Commit 0e16fec0 authored by Christoph Knote's avatar Christoph Knote
Browse files

Works

parent d754cdfd
No related branches found
No related tags found
No related merge requests found
......@@ -6,3 +6,4 @@ depcomp
install-sh
missing
ylwrap
*.o
......@@ -186,6 +186,9 @@ extern void (*FunctionPrototipe)( int f, ... );
extern void (*FunctionBegin)( int f, ... );
extern void (*FunctionEnd)( int f );
void MATLAB_Inline( char *fmt, ... );
void F90_Inline( char *fmt, ... );
void WriteDelim();
#endif
......@@ -7,6 +7,6 @@ dnl we use the build type foreign here instead of gnu because I do not have a NE
AM_INIT_AUTOMAKE([foreign])
AC_CONFIG_FILES([Makefile])
AC_PROG_CC
AC_PROG_LEX(yywrap)
AC_PROG_LEX(noyywrap)
AC_PROG_YACC
AC_OUTPUT
......@@ -35,8 +35,6 @@
#include "gdata.h"
#include "code.h"
#include "scan.h"
#include "code_matlab.c"
#include "code_f90.c"
#define MAX_MONITOR 8
enum strutypes { PLAIN, LU };
......
......@@ -72,6 +72,8 @@ extern int nError;
extern int nWarning;
extern int crt_section;
int EqNoCase( char *s1, char *s2 );
int ParseEquationFile( char * filename );
int Parser( char * filename );
......
......@@ -36,7 +36,6 @@
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include <ctype.h>
int AtomNr = 0;
int SpeciesNr = 0;
......@@ -172,14 +171,6 @@ int n;
ScanError("Bad Z grid number <%s>", cmd);
}
int EqNoCase( char *s1, char *s2 )
{
while( *s1 ) {
if ( toupper(*s1++) != toupper(*s2++) ) return 0;
}
return *s1 == *s2;
}
void CmdFunction( char *cmd )
{
if( EqNoCase( cmd, "AGGREGATE" ) ) {
......
......@@ -41,6 +41,8 @@
%s COMMENT COMMENT2 EQN_ID
%x INL_CODE
%option noyywrap
%{
#include <string.h> /* strcpy, strlen */
#include "gdata.h"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment