#

/* jff_algol (Jan van Katwijk) */
/* Version 2.1.4		*/
/* input file: mcelan.alg		*/
/* Compiled at Sat Sep 28 01:24:24 2024		*/


#include	<stdio.h>
#include "/usr/local/include/jff_header.h"
/* Headers		*/
extern	double fabs (double); /* fabs declared at line 2*/
extern	double _abs_4 (double); /* abs declared at line 3*/
struct ___abs_4_rec {
char *__l_field;
double __res_val;
double x_;
};
extern	void space (int); /* space declared at line 24*/
extern int _t6_45; /* t6 declared at line 7*/
extern int _t8_45; /* t8 declared at line 7*/
extern int _t12_45; /* t12 declared at line 7*/
extern int _t16_45; /* t16 declared at line 7*/
extern int _t18_45; /* t18 declared at line 7*/
extern int _accentsymbol_45; /* accentsymbol declared at line 8*/
extern int _colonsymbol_45; /* colonsymbol declared at line 8*/
extern int _opensymbol_45; /* opensymbol declared at line 8*/
extern int _smallersymbol_45; /* smallersymbol declared at line 8*/
extern int _nlcrsymbol_45; /* nlcrsymbol declared at line 8*/
extern int _semicolonsymbol_45; /* semicolonsymbol declared at line 9*/
extern int _closesymbol_45; /* closesymbol declared at line 9*/
extern int _greatersymbol_45; /* greatersymbol declared at line 9*/
extern int _commasymbol_45; /* commasymbol declared at line 9*/
extern int _prtapesymbol_45; /* prtapesymbol declared at line 10*/
extern int _spacesymbol_45; /* spacesymbol declared at line 10*/
extern int _pointsymbol_45; /* pointsymbol declared at line 10*/
extern int _apostrophesymbol_45; /* apostrophesymbol declared at line 11*/
extern int _tabsymbol_45; /* tabsymbol declared at line 11*/
extern int _blocknumber_45; /* blocknumber declared at line 13*/
extern int _linenumber_45; /* linenumber declared at line 13*/
extern int _linecounter_45; /* linecounter declared at line 13*/
extern int _symbol_45; /* symbol declared at line 14*/
extern char _firstscan_45; /* firstscan declared at line 16*/
extern char _secondscan_45; /* secondscan declared at line 16*/
extern	int _stringsymbol_46 (int,char	*); /* stringsymbol declared at line 18*/
struct ___stringsymbol_46_rec {
char *__l_field;
int __res_val;
int k_;
char *text_;
};
extern	void _stowintobuffer_48 (int); /* stowintobuffer declared at line 26*/
struct ___stowintobuffer_48_rec {
char *__l_field;
int char_;
};
extern	int _RESYM1_50 (); /* RESYM1 declared at line 31*/
struct ___RESYM1_50_rec {
char *__l_field;
int __res_val;
};
extern	void _runout_52 (); /* runout declared at line 36*/
struct ___runout_52_rec {
char *__l_field;
};
extern	void _NS_54 (); /* NS declared at line 40*/
struct ___NS_54_rec {
char *__l_field;
};
extern	void _prsym_56 (int); /* prsym declared at line 44*/
struct ___prsym_56_rec {
char *__l_field;
int s_;
};
extern	void _ERROR_58 (char,int); /* ERROR declared at line 49*/
struct ___ERROR_58_rec {
char *__l_field;
char cond_;
int errnum_;
};
extern int _maxofnamestack_45; /* maxofnamestack declared at line 93*/
extern int _maxofdefstack_45; /* maxofdefstack declared at line 93*/
extern int _maxofactualstack_45; /* maxofactualstack declared at line 93*/
extern int _maxofpointerstack_45; /* maxofpointerstack declared at line 93*/
extern int _maxofsavestack_45; /* maxofsavestack declared at line 94*/
extern int _stackptr_45; /* stackptr declared at line 94*/
extern int _freeptr_45; /* freeptr declared at line 94*/
extern int _pointerptr_45; /* pointerptr declared at line 94*/
extern int _saveptr_45; /* saveptr declared at line 94*/
extern int _spacecntr_45; /* spacecntr declared at line 95*/
extern int _lcntr_45; /* lcntr declared at line 95*/
extern int _bcntr_45; /* bcntr declared at line 95*/
extern int _llcntr_45; /* llcntr declared at line 95*/
extern int _bbcntr_45; /* bbcntr declared at line 95*/
extern int _SPACEcntr_45; /* SPACEcntr declared at line 95*/
extern int _LLcntr_45; /* LLcntr declared at line 95*/
extern int _BBcntr_45; /* BBcntr declared at line 95*/
extern int _t8j_45; /* t8j declared at line 95*/
extern int _t8J_45; /* t8J declared at line 96*/
extern int _word_45; /* word declared at line 96*/
extern int _Word_45; /* Word declared at line 96*/
extern int _nextacc_45; /* nextacc declared at line 96*/
extern int _endmarker_45; /* endmarker declared at line 96*/
extern int _placeofname_45; /* placeofname declared at line 96*/
extern int _tt_45; /* tt declared at line 96*/
extern int _asterisk_45; /* asterisk declared at line 96*/
extern int _ksiretsa_45; /* ksiretsa declared at line 96*/
extern char _indefmode_45; /* indefmode declared at line 97*/
extern char _inactualmode_45; /* inactualmode declared at line 97*/
extern char _onlymac_45; /* onlymac declared at line 97*/
extern char _frommacro_45; /* frommacro declared at line 97*/
extern char _fromactualstack_45; /* fromactualstack declared at line 97*/
extern char _accentread_45; /* accentread declared at line 98*/
extern	int __dv0 [];
extern int _namestack_45 []; // 
extern	int __dv1 [];
extern int _definitionstack_45 []; // 
extern	int __dv2 [];
extern int _actualstack_45 []; // 
extern int _pointerstack_45 []; // 
extern int _savestack_45 []; // 
extern	void _readname_67 (struct ___definemacro_64_rec	*); /* readname declared at line 123*/
struct ___readname_67_rec {
struct ___definemacro_64_rec	*__l_field;
int _save_69; /* save declared at line 124*/
};

//	specification for thunk
extern int A_jff_0A (char *, int);
extern int _jff_0A (char *, int);
extern	void _readformals_70 (struct ___definemacro_64_rec	*); /* readformals declared at line 135*/
struct ___readformals_70_rec {
struct ___definemacro_64_rec	*__l_field;
jmp_buf _outaccent_72;
int _i_72; /* i declared at line 136*/
int _ptr_72; /* ptr declared at line 136*/
int _aux_72; /* aux declared at line 136*/
int _par_72; /* par declared at line 136*/
char _incommamode_72; /* incommamode declared at line 137*/
};
extern	int _reaffer1_73 (struct ___readformals_70_rec	*); /* reaffer1 declared at line 139*/
struct ___reaffer1_73_rec {
struct ___readformals_70_rec	*__l_field;
int __res_val;
};
extern	void _reaffer1while_75 (struct ___readformals_70_rec	*,char	*,char (*)(char *, char), char(*)(char *, int)); /* reaffer1while declared at line 144*/
struct ___reaffer1while_75_rec {
struct ___readformals_70_rec	*__l_field;
char	*Lcondition_;
 char (*Acondition_)(char *, char);
char (*Vcondition_)(char *, int);
int _i_77; /* i declared at line 145*/
};

//	specification for thunk
extern char A_jff_1A (char *, char);
extern char _jff_1A (char *, int);

//	specification for thunk
extern char A_jff_2A (char *, char);
extern char _jff_2A (char *, int);

//	specification for thunk
extern char A_jff_3A (char *, char);
extern char _jff_3A (char *, int);

//	specification for thunk
extern int A_jff_4A (char *, int);
extern int _jff_4A (char *, int);

//	specification for thunk
extern char A_jff_5A (char *, char);
extern char _jff_5A (char *, int);

//	specification for thunk
extern char A_jff_6A (char *, char);
extern char _jff_6A (char *, int);

//	specification for thunk
extern char A_jff_7A (char *, char);
extern char _jff_7A (char *, int);

//	specification for thunk
extern char A_jff_8A (char *, char);
extern char _jff_8A (char *, int);

//	specification for thunk
extern char A_jff_9A (char *, char);
extern char _jff_9A (char *, int);

//	specification for thunk
extern char A_jff_10A (char *, char);
extern char _jff_10A (char *, int);

//	specification for thunk
extern char A_jff_11A (char *, char);
extern char _jff_11A (char *, int);
extern	void _readblock_80 (struct ___definemacro_64_rec	*); /* readblock declared at line 228*/
struct ___readblock_80_rec {
struct ___definemacro_64_rec	*__l_field;
int _i_82; /* i declared at line 229*/
int _begcntr_82; /* begcntr declared at line 229*/
char _declarations_82; /* declarations declared at line 230*/
char _withinaccents_82; /* withinaccents declared at line 230*/
};
extern	void _compareparameters_83 (struct ___readblock_80_rec	*); /* compareparameters declared at line 231*/
struct ___compareparameters_83_rec {
struct ___readblock_80_rec	*__l_field;
int _i_85; /* i declared at line 232*/
int _j_85; /* j declared at line 232*/
int _l_85; /* l declared at line 232*/
int _ptr_85; /* ptr declared at line 232*/
int _length_85; /* length declared at line 232*/
char _found_85; /* found declared at line 233*/
int __dv3 [2 * 1 + DOPE_BASE];
int	*_parameter_85; /* parameter declared at line 234*/
};

//	specification for thunk
extern int A_jff_12A (char *, int);
extern int _jff_12A (char *, int);
extern	void ___for_body_0_88 (struct ___compareparameters_83_rec	*); /* __for_body_0 declared at line 0*/
struct _____for_body_0_88_rec {
struct ___compareparameters_83_rec	*__l_field;
};

//	specification for thunk
extern int A_jff_13A (char *, int);
extern int _jff_13A (char *, int);
extern	void _deletesymbol_90 (struct ___readblock_80_rec	*,char	*,int (*)(char *, int), int(*)(char *, int)); /* deletesymbol declared at line 257*/
struct ___deletesymbol_90_rec {
struct ___readblock_80_rec	*__l_field;
char	*Ls_;
 int (*As_)(char *, int);
int (*Vs_)(char *, int);
int _word_92; /* word declared at line 258*/
};

//	specification for thunk
extern char A_jff_14A (char *, char);
extern char _jff_14A (char *, int);

//	specification for thunk
extern int A_jff_15A (char *, int);
extern int _jff_15A (char *, int);

//	specification for thunk
extern int A_jff_16A (char *, int);
extern int _jff_16A (char *, int);
extern	void _readactuals_99 (struct ___expandmacro_96_rec	*); /* readactuals declared at line 338*/
struct ___readactuals_99_rec {
struct ___expandmacro_96_rec	*__l_field;
int _i_101; /* i declared at line 339*/
int _opcntr_101; /* opcntr declared at line 339*/
int _quotcntr_101; /* quotcntr declared at line 339*/
int _savel_101; /* savel declared at line 339*/
int _auxptr_101; /* auxptr declared at line 339*/
};
extern	void _completeactualparameter_102 (struct ___readactuals_99_rec	*); /* completeactualparameter declared at line 341*/
struct ___completeactualparameter_102_rec {
struct ___readactuals_99_rec	*__l_field;
};

//	specification for thunk
extern char A_jff_19A (char *, char);
extern char _jff_19A (char *, int);

//	specification for thunk
extern char A_jff_20A (char *, char);
extern char _jff_20A (char *, int);

//	specification for thunk
extern char A_jff_21A (char *, char);
extern char _jff_21A (char *, int);
extern	void _storeexpansion_109 (); /* storeexpansion declared at line 428*/
struct ___storeexpansion_109_rec {
char *__l_field;
};
extern	int _macrosym_111 (); /* macrosym declared at line 453*/
struct ___macrosym_111_rec {
char *__l_field;
int __res_val;
int _s_113; /* s declared at line 454*/
};
extern	void _restoreexpansion_114 (); /* restoreexpansion declared at line 456*/
struct ___restoreexpansion_114_rec {
char *__l_field;
};
extern	int _reaffer_116 (); /* reaffer declared at line 530*/
struct ___reaffer_116_rec {
char *__l_field;
int __res_val;
int _i_118; /* i declared at line 531*/
};
extern int D_reaffer_116 (char *, int, ...);	 /* reaffer declared at line 530*/
extern	int _readandbuffer_119 (); /* readandbuffer declared at line 533*/
struct ___readandbuffer_119_rec {
char *__l_field;
int __res_val;
int _s_121; /* s declared at line 534*/
};
extern	void ___for_body_1_122 (struct ___reaffer_116_rec	*); /* __for_body_1 declared at line 0*/
struct _____for_body_1_122_rec {
struct ___reaffer_116_rec	*__l_field;
};
extern	char _compare_125 (char	*); /* compare declared at line 567*/
struct ___compare_125_rec {
char *__l_field;
char __res_val;
char *text_;
int _s_127; /* s declared at line 568*/
int _k_127; /* k declared at line 568*/
};
extern	void _readwhile_129 (char	*,char (*)(char *, char), char(*)(char *, int)); /* readwhile declared at line 577*/
struct ___readwhile_129_rec {
char *__l_field;
char	*Lcondition_;
 char (*Acondition_)(char *, char);
char (*Vcondition_)(char *, int);
int _i_131; /* i declared at line 578*/
};
extern	void _skipuntil_133 (char	*); /* skipuntil declared at line 582*/
struct ___skipuntil_133_rec {
char *__l_field;
char *text_;
int _i_135; /* i declared at line 583*/
int _firstsymbol_135; /* firstsymbol declared at line 583*/
};

//	specification for thunk
extern char A_jff_22A (char *, char);
extern char _jff_22A (char *, int);

//	specification for thunk
extern char A_jff_23A (char *, char);
extern char _jff_23A (char *, int);
extern	void _stowintostack_137 (int *, int	*,int,int); /* stowintostack declared at line 591*/
struct ___stowintostack_137_rec {
char *__l_field;
int	*Dstack_ ;
int	*stack_ ;
int max_;
int char_;
int _i_139; /* i declared at line 593*/
};
extern	void _storeletgits_141 (int *, int	*,char	*,int (*)(char *, int), int(*)(char *, int),int,char	*,int (*)(char *, int), int(*)(char *, int)); /* storeletgits declared at line 616*/
struct ___storeletgits_141_rec {
char *__l_field;
int	*Dlist_ ;
int	*list_ ;
char	*Lpointer_;
 int (*Apointer_)(char *, int);
int (*Vpointer_)(char *, int);
int max_;
char	*Lletgit_;
 int (*Aletgit_)(char *, int);
int (*Vletgit_)(char *, int);
int _i_143; /* i declared at line 618*/
int _j_143; /* j declared at line 618*/
int _word_143; /* word declared at line 618*/
char _full_143; /* full declared at line 619*/
};
extern	void ___for_body_2_153 (struct ___skipmacrodeclarations_150_rec	*); /* __for_body_2 declared at line 0*/
struct _____for_body_2_153_rec {
struct ___skipmacrodeclarations_150_rec	*__l_field;
};

//	specification for thunk
extern char A_jff_24A (char *, char);
extern char _jff_24A (char *, int);

//	specification for thunk
extern char A_jff_25A (char *, char);
extern char _jff_25A (char *, int);

//	specification for thunk
extern char A_jff_26A (char *, char);
extern char _jff_26A (char *, int);

//	specification for thunk
extern char A_jff_27A (char *, char);
extern char _jff_27A (char *, int);