/*
**
** The C code is generated by ATS/Anairiats
** The compilation time is: 2020-11-6:  1h:51m
**
*/

/* include some .h files */
#ifndef _ATS_HEADER_NONE
#include "ats_config.h"
#include "ats_basics.h"
#include "ats_types.h"
#include "ats_exception.h"
#include "ats_memory.h"
#endif /* _ATS_HEADER_NONE */

/* include some .cats files */
#ifndef _ATS_PRELUDE_NONE
#include "prelude/CATS/basics.cats"
#include "prelude/CATS/bool.cats"
#include "prelude/CATS/char.cats"
#include "prelude/CATS/byte.cats"
#include "prelude/CATS/float.cats"
#include "prelude/CATS/integer.cats"
#include "prelude/CATS/integer_ptr.cats"
#include "prelude/CATS/integer_fixed.cats"
#include "prelude/CATS/sizetype.cats"
#include "prelude/CATS/pointer.cats"
#include "prelude/CATS/reference.cats"
#include "prelude/CATS/string.cats"
#include "prelude/CATS/lazy.cats"
#include "prelude/CATS/lazy_vt.cats"
#include "prelude/CATS/printf.cats"
#include "prelude/CATS/list.cats"
#include "prelude/CATS/option.cats"
#include "prelude/CATS/array.cats"
#include "prelude/CATS/matrix.cats"
#endif /* _ATS_PRELUDE_NONE */
/* prologues from statically loaded files */

#include "pats_location.cats"

#include "libc/CATS/string.cats"

#include "libc/CATS/errno.cats"

#include "libc/CATS/unistd.cats"

#include "libc/sys/CATS/types.cats"

#include "libc/CATS/fcntl.cats"

#include "libc/sys/CATS/types.cats"
/* external codes at top */
/* type definitions */
typedef
struct {
ats_ptr_type atslab_3 ;
ats_ptr_type atslab_4 ;
} anairiats_rec_0 ;

typedef
struct {
ats_ptr_type atslab_filename_givename ;
ats_ptr_type atslab_filename_partname ;
ats_ptr_type atslab_filename_fullname ;
} anairiats_rec_1 ;

typedef struct {
ats_ptr_type atslab_0 ;
ats_ptr_type atslab_1 ;
} anairiats_sum_2 ;

typedef struct {
ats_ptr_type atslab_0 ;
} anairiats_sum_3 ;

/* external typedefs */
/* external dynamic constructor declarations */
ATSextern_val(ats_sum_type, ATS_2d0_2e2_2e12_2prelude_2basics_sta_2esats__list_cons_0) ;
ATSextern_val(ats_sum_type, ATS_2d0_2e2_2e12_2prelude_2basics_sta_2esats__list_nil_1) ;
ATSextern_val(ats_sum_type, ATS_2d0_2e2_2e12_2prelude_2basics_sta_2esats__None_0) ;
ATSextern_val(ats_sum_type, ATS_2d0_2e2_2e12_2prelude_2basics_sta_2esats__Some_1) ;
ATSextern_val(ats_sum_type, ATS_2d0_2e2_2e12_2prelude_2basics_sta_2esats__list_vt_cons_0) ;
ATSextern_val(ats_sum_type, ATS_2d0_2e2_2e12_2prelude_2basics_sta_2esats__list_vt_nil_1) ;
ATSextern_val(ats_sum_type, ATS_2d0_2e2_2e12_2prelude_2basics_sta_2esats__None_vt_0) ;
ATSextern_val(ats_sum_type, ATS_2d0_2e2_2e12_2prelude_2basics_sta_2esats__Some_vt_1) ;

/* external dynamic constant declarations */
ATSextern_fun(ats_void_type, atspre_vbox_make_view_ptr) (ats_ptr_type) ;
ATSextern_fun(ats_void_type, atspre_fprint_newline) (ats_ptr_type) ;
ATSextern_fun(ats_bool_type, atspre_neg_bool) (ats_bool_type) ;
ATSextern_fun(ats_bool_type, atspre_lt_char_char) (ats_char_type, ats_char_type) ;
ATSextern_fun(ats_bool_type, atspre_gt_char_char) (ats_char_type, ats_char_type) ;
ATSextern_fun(ats_bool_type, atspre_eq_char_char) (ats_char_type, ats_char_type) ;
ATSextern_fun(ats_bool_type, atspre_neq_char_char) (ats_char_type, ats_char_type) ;
ATSextern_fun(ats_int_type, atspre_compare_char_char) (ats_char_type, ats_char_type) ;
ATSextern_fun(ats_void_type, atspre_fprint_char) (ats_ptr_type, ats_char_type) ;
ATSextern_fun(ats_bool_type, atspre_char_isdigit) (ats_char_type) ;
ATSextern_fun(ats_char_type, atspre_char_toupper) (ats_char_type) ;
ATSextern_fun(ats_bool_type, atspre_eq_char_char) (ats_char_type, ats_char_type) ;
ATSextern_fun(ats_int_type, atspre_add_int_int) (ats_int_type, ats_int_type) ;
ATSextern_fun(ats_int_type, atspre_sub_int_int) (ats_int_type, ats_int_type) ;
ATSextern_fun(ats_bool_type, atspre_lt_int_int) (ats_int_type, ats_int_type) ;
ATSextern_fun(ats_bool_type, atspre_lte_int_int) (ats_int_type, ats_int_type) ;
ATSextern_fun(ats_bool_type, atspre_gt_int_int) (ats_int_type, ats_int_type) ;
ATSextern_fun(ats_bool_type, atspre_eq_int_int) (ats_int_type, ats_int_type) ;
ATSextern_fun(ats_uint_type, atspre_add_uint_uint) (ats_uint_type, ats_uint_type) ;
ATSextern_fun(ats_int_type, atspre_isucc) (ats_int_type) ;
ATSextern_fun(ats_int_type, atspre_iadd) (ats_int_type, ats_int_type) ;
ATSextern_fun(ats_int_type, atspre_isub) (ats_int_type, ats_int_type) ;
ATSextern_fun(ats_int_type, atspre_idiv) (ats_int_type, ats_int_type) ;
ATSextern_fun(ats_bool_type, atspre_ilt) (ats_int_type, ats_int_type) ;
ATSextern_fun(ats_bool_type, atspre_igt) (ats_int_type, ats_int_type) ;
ATSextern_fun(ats_bool_type, atspre_igte) (ats_int_type, ats_int_type) ;
ATSextern_fun(ats_llint_type, atspre_llint_of_int) (ats_int_type) ;
ATSextern_fun(ats_llint_type, atspre_mul_llint_llint) (ats_llint_type, ats_llint_type) ;
ATSextern_fun(ats_size_type, atspre_add_size_int) (ats_size_type, ats_int_type) ;
ATSextern_fun(ats_size_type, atspre_sub_size_size) (ats_size_type, ats_size_type) ;
ATSextern_fun(ats_bool_type, atspre_gte_size_size) (ats_size_type, ats_size_type) ;
ATSextern_fun(ats_size_type, atspre_size1_of_int1) (ats_int_type) ;
ATSextern_fun(ats_size_type, atspre_add_size1_int1) (ats_size_type, ats_int_type) ;
ATSextern_fun(ats_size_type, atspre_sub_size1_int1) (ats_size_type, ats_int_type) ;
ATSextern_fun(ats_size_type, atspre_sub_size1_size1) (ats_size_type, ats_size_type) ;
ATSextern_fun(ats_size_type, atspre_mul_size1_size1) (ats_size_type, ats_size_type) ;
ATSextern_fun(ats_size_type, atspre_mul2_size1_size1) (ats_size_type, ats_size_type) ;
ATSextern_fun(ats_bool_type, atspre_lt_size1_size1) (ats_size_type, ats_size_type) ;
ATSextern_fun(ats_bool_type, atspre_gt_size1_int1) (ats_size_type, ats_int_type) ;
ATSextern_fun(ats_bool_type, atspre_gt_size1_size1) (ats_size_type, ats_size_type) ;
ATSextern_fun(ats_bool_type, atspre_eq_size1_int1) (ats_size_type, ats_int_type) ;
ATSextern_fun(ats_bool_type, atspre_eq_size1_size1) (ats_size_type, ats_size_type) ;
ATSextern_fun(ats_bool_type, atspre_neq_size1_size1) (ats_size_type, ats_size_type) ;
ATSextern_fun(ats_ptr_type, ats_malloc_gc) (ats_size_type) ;
ATSextern_fun(ats_ptr_type, atspre_ptr_alloc_tsz) (ats_size_type) ;
ATSextern_fun(ats_void_type, atspre_ptr_zero_tsz) (ats_ref_type, ats_size_type) ;
ATSextern_fun(ats_ptr_type, atspre_ref_make_elt_tsz) (ats_ref_type, ats_size_type) ;
ATSextern_fun(ats_void_type, atspre_bytes_strbuf_trans) (ats_ptr_type, ats_size_type) ;
ATSextern_fun(ats_bool_type, atspre_eq_string_string) (ats_ptr_type, ats_ptr_type) ;
ATSextern_fun(ats_int_type, atspre_compare_string_string) (ats_ptr_type, ats_ptr_type) ;
ATSextern_fun(ats_void_type, atspre_fprint_string) (ats_ptr_type, ats_ptr_type) ;
ATSextern_fun(ats_char_type, atspre_string_get_char_at) (ats_ptr_type, ats_size_type) ;
ATSextern_fun(ats_char_type, atspre_string_get_char_at__intsz) (ats_ptr_type, ats_int_type) ;
ATSextern_fun(ats_ptr_type, atspre_string_make_substring) (ats_ptr_type, ats_size_type, ats_size_type) ;
ATSextern_fun(ats_ptr_type, atspre_string_copy) (ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, atspre_stringlst_concat) (ats_ptr_type) ;
ATSextern_fun(ats_bool_type, atspre_string_contains) (ats_ptr_type, ats_char_type) ;
ATSextern_fun(ats_size_type, atspre_string_length) (ats_ptr_type) ;
ATSextern_fun(ats_size_type, atspre_string_length) (ats_ptr_type) ;
ATSextern_fun(ats_bool_type, atspre_string_isnot_empty) (ats_ptr_type) ;
ATSextern_fun(ats_bool_type, atspre_string_isnot_atend) (ats_ptr_type, ats_size_type) ;
ATSextern_val(ats_ptr_type, atspre_stropt_none) ;
ATSextern_fun(ats_bool_type, atspre_stropt_is_some) (ats_ptr_type) ;
ATSextern_fun(ats_void_type, atspre_strptr_free) (ats_ptr_type) ;
ATSextern_fun(ats_void_type, atspre_fprintf_exn) (ats_ptr_type, ats_ptr_type, ...) ;
ATSextern_fun(ats_ptr_type, atspre_tostringf) (ats_ptr_type, ...) ;
ATSextern_fun(ats_bool_type, atspre_test_file_exists) (ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, ListSubscriptException_make) () ;
ATSextern_fun(ats_ptr_type, atspre_array_ptr_alloc_tsz) (ats_size_type, ats_size_type) ;
ATSextern_fun(ats_void_type, atspre_array_ptr_free) (ats_ptr_type) ;
ATSextern_fun(ats_void_type, atspre_array_ptr_initialize_funenv_tsz) (ats_ref_type, ats_size_type, ats_ptr_type, ats_size_type, ats_ptr_type) ;
ATSextern_fun(ats_void_type, atspre_array_ptr_initialize_cloenv_tsz) (ats_ref_type, ats_size_type, ats_ref_type, ats_size_type, ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, atspre_array_ptr_split_tsz) (ats_ptr_type, ats_size_type, ats_size_type) ;
ATSextern_fun(ats_ptr_type, atspre_array_ptr_takeout_tsz) (ats_ptr_type, ats_size_type, ats_size_type) ;
ATSextern_fun(anairiats_rec_0, atspre_array_ptr_takeout2_tsz) (ats_ptr_type, ats_size_type, ats_size_type, ats_size_type) ;
ATSextern_fun(ats_void_type, atspre_array_ptr_foreach_funenv_tsz) (ats_ref_type, ats_ptr_type, ats_size_type, ats_size_type, ats_ptr_type) ;
ATSextern_fun(ats_void_type, atspre_array_ptr_iforeach_funenv_tsz) (ats_ref_type, ats_ptr_type, ats_size_type, ats_size_type, ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, atspre_array2_ptr_takeout_tsz) (ats_ptr_type, ats_size_type, ats_size_type, ats_size_type) ;
ATSextern_fun(ats_void_type, atslib_qsort) (ats_ref_type, ats_size_type, ats_size_type, ats_ptr_type) ;
ATSextern_fun(ats_void_type, _2tmp_2ATS_2dPostiats_2src_2pats_utils_2esats__fprint_stropt) (ats_ptr_type, ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_utils_2esats__charset_listize) (ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, patsopt_file2strptr) (ats_int_type) ;
ATSextern_fun(ats_size_type, ATS_2d0_2e2_2e12_2libats_2ngc_2SATS_2deque_arr_2esats__deque_cap) (ats_ref_type) ;
ATSextern_fun(ats_size_type, ATS_2d0_2e2_2e12_2libats_2ngc_2SATS_2deque_arr_2esats__deque_size) (ats_ref_type) ;
ATSextern_fun(ats_bool_type, ATS_2d0_2e2_2e12_2libats_2ngc_2SATS_2deque_arr_2esats__deque_is_empty) (ats_ref_type) ;
ATSextern_fun(ats_bool_type, ATS_2d0_2e2_2e12_2libats_2ngc_2SATS_2deque_arr_2esats__deque_isnot_empty) (ats_ref_type) ;
ATSextern_fun(ats_bool_type, ATS_2d0_2e2_2e12_2libats_2ngc_2SATS_2deque_arr_2esats__deque_is_full) (ats_ref_type) ;
ATSextern_fun(ats_bool_type, ATS_2d0_2e2_2e12_2libats_2ngc_2SATS_2deque_arr_2esats__deque_isnot_full) (ats_ref_type) ;
ATSextern_fun(ats_void_type, atslib_ngc_deque_arr_deque_initialize_tsz) (ats_ref_type, ats_size_type, ats_ptr_type, ats_size_type) ;
ATSextern_fun(ats_ptr_type, atslib_ngc_deque_arr_deque_uninitialize) (ats_ref_type) ;
ATSextern_fun(ats_ptr_type, ATS_2d0_2e2_2e12_2libats_2ngc_2SATS_2deque_arr_2esats__deque_uninitialize_vt) (ats_ref_type) ;
ATSextern_fun(ats_ptr_type, atslib_ngc_deque_arr_deque_takeout_tsz) (ats_ref_type, ats_size_type, ats_size_type) ;
ATSextern_fun(ats_void_type, atslib_ngc_deque_arr_deque_insert_end_many_tsz) (ats_ref_type, ats_size_type, ats_ref_type, ats_size_type) ;
ATSextern_fun(ats_void_type, atslib_ngc_deque_arr_deque_remove_beg_many_tsz) (ats_ref_type, ats_size_type, ats_ref_type, ats_size_type) ;
ATSextern_fun(ats_void_type, ATS_2d0_2e2_2e12_2libats_2ngc_2SATS_2deque_arr_2esats__deque_clear_all) (ats_ref_type) ;
ATSextern_fun(ats_void_type, atslib_ngc_deque_arr_deque_copyout_tsz) (ats_ref_type, ats_size_type, ats_size_type, ats_ref_type, ats_size_type) ;
ATSextern_fun(ats_ptr_type, atslib_ngc_deque_arr_deque_update_capacity_tsz) (ats_ref_type, ats_size_type, ats_ptr_type, ats_size_type) ;
ATSextern_fun(ats_ptr_type, atslib_getcwd0) () ;
ATSextern_val(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__symbol_empty) ;
ATSextern_val(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__symbol__STDIN__) ;
ATSextern_val(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__symbol__STRING__) ;
ATSextern_fun(ats_bool_type, _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__eq_symbol_symbol) (ats_ptr_type, ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__symbol_get_name) (ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__symbol_make_string) (ats_ptr_type) ;
ATSextern_fun(ats_char_type, patsopt_filename_theDirSep_get) () ;
ATSextern_fun(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__theParDir_get) () ;
ATSextern_fun(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__theCurDir_get) () ;
ATSextern_fun(ats_int_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__givename_srchknd) (ats_ptr_type) ;
ATSextern_fun(ats_int_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__givename_get_ngurl) (ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_get_partname) (ats_ptr_type) ;
ATSextern_fun(ats_void_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint_filename_full) (ats_ptr_type, ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, patsopt_filename_merge) (ats_ptr_type, ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, patsopt_filename_dirbase) (ats_ptr_type, ats_ptr_type) ;
ATSextern_fun(ats_bool_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__eq_filename_filename) (ats_ptr_type, ats_ptr_type) ;
ATSextern_val(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_dummy) ;
ATSextern_fun(ats_bool_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_isnot_dummy) (ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_get_current) () ;
ATSextern_fun(ats_void_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_push) (ats_ptr_type) ;
ATSextern_fun(ats_void_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_ppop) () ;
ATSextern_fun(ats_void_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_ppush) (ats_ptr_type) ;
ATSextern_fun(ats_void_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint_pathlst) (ats_ptr_type, ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__path_normalize) (ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__path_normalize_vt) (ats_ptr_type) ;
ATSextern_fun(ats_void_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_pathlst_ppush) (ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_make) (ats_ptr_type, ats_ptr_type, ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__pkgsrcname_relocatize) (ats_ptr_type, ats_int_type) ;
ATSextern_fun(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_PATSHOMELOCS_get_pathlst) () ;
ATSextern_fun(ats_bool_type, patsopt_string_test_suffix) (ats_ptr_type, ats_ptr_type) ;
ATSextern_fun(ats_bool_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2edats__givename_is_relative) (ats_ptr_type) ;
ATSextern_fun(ats_ptr_type, patsopt_PATSHOMELOCS_get) () ;

/* external dynamic terminating constant declarations */
#ifdef _ATS_PROOFCHECK
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2SATS_2list_2esats__list_length_is_nonnegative_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2SATS_2list_vt_2esats__list_vt_length_is_nonnegative_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2SATS_2array_2esats__array_v_takeout2_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_vt_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_vt_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_vt_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_vt_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_vt_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_vt_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2array_2edats____copy_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2array_2edats____free_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2array_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2array_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2libats_2ngc_2SATS_2deque_arr_2esats__lemma_deque_param_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats__DEQUEarr_v_encode_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats__DEQUEarr_v_decode_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats__DEQUEarr_v_clear_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats__DEQUEarr_insert_beg_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats__DEQUEarr_insert_end_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats__DEQUEarr_remove_beg_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats__DEQUEarr_remove_end_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats____assert_prfck () ;
extern
ats_void_type ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats____assert_prfck () ;
extern
ats_void_type _2tmp_2ATS_2dPostiats_2src_2pats_utils_2edats____assert_prfck () ;
extern
ats_void_type _2tmp_2ATS_2dPostiats_2src_2pats_utils_2edats____assert_prfck () ;
#endif /* _ATS_PROOFCHECK */

/* assuming abstract types */
int _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__sasp__the_pathlst_push_v = 0 ;
int _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__sasp__the_filenamelst_push_v = 0 ;
int _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__sasp__filename_type = 0 ;

/* sum constructor declarations */
/* exn constructor declarations */
/* global dynamic (non-functional) constant declarations */
ATSglobal(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_dummy) ;
ATSglobal(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_stdin) ;
ATSglobal(ats_ptr_type, _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_string) ;

/* internal function declarations */
static
ats_ptr_type ptr_succ_char_0 (ats_ptr_type arg0) ;
static
ats_char_type ptr0_get_01759_ats_char_type (ats_ptr_type arg0) ;
static
ats_ptr_type loop_6 (ats_ptr_type arg0, ats_int_type arg1, ats_char_type arg2, ats_char_type arg3) ;
static
ats_bool_type aux_20 (ats_ptr_type arg0, ats_size_type arg1, ats_char_type arg2) ;
static
ats_void_type aux_27 (ats_ptr_type env0, ats_ptr_type env1, ats_ptr_type env2, ats_ptr_type arg0, ats_int_type arg1) ;
static
ats_clo_ptr_type aux_27_closure_make (ats_ptr_type env0, ats_ptr_type env1, ats_ptr_type env2) ;
static
ats_void_type aux_27_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0, ats_int_type arg1) ;
static
ats_void_type fprintlst_01889_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3) ;
static
ats_void_type __ats_fun_28 (ats_ptr_type arg0, ats_ptr_type arg1) ;
static
ats_void_type loop1_30 (ats_char_type arg0, ats_ptr_type arg1, ats_size_type arg2, ats_size_type arg3, ats_ref_type arg4) ;
static
ats_void_type loop2_31 (ats_char_type arg0, ats_ptr_type arg1, ats_size_type arg2, ats_size_type arg3, ats_size_type arg4, ats_ref_type arg5) ;
static
ats_ptr_type loop_33 (ats_ptr_type arg0, ats_int_type arg1, ats_ptr_type arg2) ;
static
ats_ptr_type dirs_process_32 (ats_ptr_type arg0, ats_ptr_type arg1, ats_int_type arg2, ats_ptr_type arg3, ats_ptr_type arg4) ;
static
ats_void_type loop_35 (ats_ptr_type env0, ats_ptr_type arg0) ;
static
ats_clo_ptr_type loop_35_closure_make (ats_ptr_type env0) ;
static
ats_void_type loop_35_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0) ;
static
ats_void_type list_vt_free_fun_01500_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) ;
static
ats_void_type __ats_fun_36 (ats_ref_type arg0) ;
static
ats_ptr_type partname_fullize_38 (ats_ptr_type arg0) ;
static
ats_ptr_type ref_01088_ats_ptr_type (ats_ptr_type arg0) ;
static
ats_ptr_type ref_make_elt_01089_ats_ptr_type (ats_ptr_type arg0) ;
static
ats_bool_type loop_42 (ats_ptr_type arg0, ats_ptr_type arg1) ;
static
ats_bool_type filename_occurs_41 (ats_ptr_type arg0) ;
static
ats_void_type loop_50 (ats_ptr_type arg0, ats_ptr_type arg1) ;
static
ats_ptr_type the_pathlst_get_51 () ;
static
ats_void_type the_pathlst_set_52 (ats_ptr_type arg0) ;
static
ats_ptr_type the_prepathlst_get_56 () ;
static
ats_void_type the_prepathlst_set_57 (ats_ptr_type arg0) ;
static
ats_ptr_type aux_try_60 (ats_ptr_type arg0, ats_ptr_type arg1) ;
static
ats_ptr_type aux2_try_61 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) ;
static
ats_ptr_type aux_local_62 (ats_ptr_type arg0) ;
static
ats_ptr_type aux_try_pathlst_63 (ats_ptr_type arg0) ;
static
ats_ptr_type aux_try_prepathlst_64 (ats_ptr_type arg0) ;
static
ats_ptr_type aux_tryloc_65 (ats_ptr_type arg0, ats_ptr_type arg1) ;
static
ats_ptr_type aux2_tryloc_66 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) ;
static
ats_ptr_type loop_69 (ats_char_type env0, ats_ptr_type arg0) ;
static
ats_clo_ptr_type loop_69_closure_make (ats_char_type env0) ;
static
ats_ptr_type loop_69_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0) ;
static
ats_ptr_type given_get_partname_68 (ats_ptr_type arg0) ;
static
ats_ptr_type aux_homelocs_67 (ats_ptr_type arg0) ;
static
ats_ptr_type aux_relative_70 (ats_ptr_type arg0) ;
static
ats_ptr_type my_make_substring_range_73 (ats_ptr_type arg0, ats_size_type arg1, ats_size_type arg2) ;
static
ats_bool_type pathlst_test_74 (ats_ptr_type arg0, ats_ptr_type arg1) ;
static
ats_ptr_type pathlst_insert_75 (ats_ptr_type arg0, ats_ptr_type arg1) ;
static
ats_ptr_type loop2_77 (ats_ptr_type env0, ats_ptr_type arg0, ats_size_type arg1, ats_ptr_type arg2) ;
static
ats_clo_ptr_type loop2_77_closure_make (ats_ptr_type env0) ;
static
ats_ptr_type loop2_77_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0, ats_size_type arg1, ats_ptr_type arg2) ;
static
ats_ptr_type loop3_78 (ats_ptr_type env0, ats_ptr_type arg0, ats_size_type arg1, ats_size_type arg2, ats_ptr_type arg3) ;
static
ats_clo_ptr_type loop3_78_closure_make (ats_ptr_type env0) ;
static
ats_ptr_type loop3_78_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0, ats_size_type arg1, ats_size_type arg2, ats_ptr_type arg3) ;
static
ats_ptr_type revapp_81 (ats_ptr_type arg0, ats_ptr_type arg1) ;
static
ats_ptr_type list_vt_reverse_append_01507_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) ;
static
ats_ptr_type list_vt_reverse_01506_ats_ptr_type (ats_ptr_type arg0) ;
static
ats_ptr_type the_PATSHOMELOCS_split_76 (ats_ptr_type arg0) ;
static
ats_ptr_type the_PATSHOMELOCS_initize_82 () ;

/* partial value template declarations */
/* static temporary variable declarations */
ATSstatic (ats_ptr_type, statmp59) ;
ATSstatic (ats_ptr_type, statmp60) ;
ATSstatic (ats_ptr_type, statmp61) ;
ATSstatic (ats_ptr_type, statmp139) ;
ATSstatic (ats_ptr_type, statmp143) ;
ATSstatic (ats_ptr_type, statmp144) ;
ATSstatic (ats_ptr_type, statmp179) ;
ATSstatic (ats_ptr_type, statmp180) ;
ATSstatic (ats_ptr_type, statmp181) ;
ATSstatic (ats_ptr_type, statmp182) ;
ATSstatic (ats_ptr_type, statmp284) ;
ATSstatic (ats_ptr_type, statmp285) ;

/* external value variable declarations */

/* function implementations */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 1986(line=77, offs=1) -- 2049(line=79, offs=32)
*/
ATSstaticdec()
ats_ptr_type
ptr_succ_char_0 (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp0) ;

__ats_lab_ptr_succ_char_0:
tmp0 = atspre_padd_size (arg0, sizeof(ats_char_type)) ;
return (tmp0) ;
} /* end of [ptr_succ_char_0] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 2301(line=98, offs=25) -- 2315(line=98, offs=39)
*/
ATSglobaldec()
ats_char_type
patsopt_filename_theDirSep_get () {
/* local vardec */
ATSlocal (ats_char_type, tmp1) ;

__ats_lab_patsopt_filename_theDirSep_get:
tmp1 = '/' ;
return (tmp1) ;
} /* end of [patsopt_filename_theDirSep_get] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 2340(line=99, offs=25) -- 2354(line=99, offs=39)
*/
ATSglobaldec()
ats_ptr_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__theCurDir_get () {
/* local vardec */
ATSlocal (ats_ptr_type, tmp2) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__theCurDir_get:
tmp2 = ATSstrcst("./") ;
return (tmp2) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__theCurDir_get] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 2379(line=100, offs=25) -- 2393(line=100, offs=39)
*/
ATSglobaldec()
ats_ptr_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__theParDir_get () {
/* local vardec */
ATSlocal (ats_ptr_type, tmp3) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__theParDir_get:
tmp3 = ATSstrcst("../") ;
return (tmp3) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__theParDir_get] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 2575(line=117, offs=3) -- 2830(line=142, offs=4)
*/
ATSglobaldec()
ats_int_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__givename_srchknd (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_int_type, tmp4) ;
ATSlocal (ats_ptr_type, tmp5) ;
ATSlocal (ats_size_type, tmp6) ;
ATSlocal (ats_bool_type, tmp7) ;
ATSlocal (ats_int_type, tmp8) ;
ATSlocal (ats_bool_type, tmp9) ;
ATSlocal (ats_int_type, tmp10) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__givename_srchknd:
tmp5 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__theCurDir_get () ;
tmp6 = atspre_string_length (tmp5) ;
tmp8 = atslib_strncmp (arg0, tmp5, tmp6) ;
tmp7 = atspre_eq_int_int (tmp8, 0) ;
if (tmp7) {
tmp4 = 0 ;
} else {
tmp10 = atslib_strncmp (arg0, ATSstrcst("$PATSHOMELOCS/"), 14) ;
tmp9 = atspre_eq_int_int (0, tmp10) ;
if (tmp9) {
tmp4 = 1 ;
} else {
tmp4 = 2 ;
} /* end of [if] */
} /* end of [if] */
return (tmp4) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__givename_srchknd] */

/*
// /nix/store/rfja8ixrs5wb4kj3kiwlch1apnh7qgvy-ats-0.2.12/lib/ats-anairiats-0.2.12/prelude/DATS/unsafe.dats: 1763(line=50, offs=10) -- 1979(line=60, offs=2)
*/
ATSstaticdec()
ats_char_type
ptr0_get_01759_ats_char_type (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_char_type, tmp14) ;

__ats_lab_ptr0_get_01759_ats_char_type:
tmp14 = ats_ptrget_mac(ats_char_type, ats_castfn_mac(ats_ptr_type, arg0)) ;
return (tmp14) ;
} /* end of [ptr0_get_01759_ats_char_type] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 3183(line=157, offs=5) -- 3519(line=178, offs=4)
*/
ATSstaticdec()
ats_ptr_type
loop_6 (ats_ptr_type arg0, ats_int_type arg1, ats_char_type arg2, ats_char_type arg3) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp12) ;
ATSlocal (ats_char_type, tmp13) ;
ATSlocal (ats_ptr_type, tmp15) ;
ATSlocal (ats_bool_type, tmp16) ;
ATSlocal (ats_int_type, tmp17) ;
ATSlocal (ats_bool_type, tmp18) ;
ATSlocal (ats_bool_type, tmp19) ;
ATSlocal (ats_int_type, tmp20) ;
ATSlocal (ats_bool_type, tmp21) ;

__ats_lab_loop_6:
tmp13 = ptr0_get_01759_ats_char_type (arg0) ;
tmp15 = ptr_succ_char_0 (arg0) ;
do {
/* branch: __ats_lab_0 */
__ats_lab_0_0:
__ats_lab_0_1:
tmp16 = atspre_eq_char_char (tmp13, arg2) ;
if (!tmp16) { goto __ats_lab_1_1 ; }
tmp17 = atspre_add_int_int (arg1, 1) ;
arg0 = tmp15 ;
arg1 = tmp17 ;
arg2 = arg2 ;
arg3 = arg3 ;
goto __ats_lab_loop_6 ; // tail call
break ;

/* branch: __ats_lab_1 */
__ats_lab_1_0:
__ats_lab_1_1:
tmp18 = atspre_eq_char_char (tmp13, arg3) ;
if (!tmp18) { goto __ats_lab_2_1 ; }
tmp19 = atspre_gt_int_int (arg1, 1) ;
if (tmp19) {
tmp20 = atspre_sub_int_int (arg1, 1) ;
arg0 = tmp15 ;
arg1 = tmp20 ;
arg2 = arg2 ;
arg3 = arg3 ;
goto __ats_lab_loop_6 ; // tail call
} else {
tmp12 = tmp15 ;
} /* end of [if] */
break ;

/* branch: __ats_lab_2 */
__ats_lab_2_0:
__ats_lab_2_1:
tmp21 = atspre_neq_char_char (tmp13, '\000') ;
if (tmp21) {
arg0 = tmp15 ;
arg1 = arg1 ;
arg2 = arg2 ;
arg3 = arg3 ;
goto __ats_lab_loop_6 ; // tail call
} else {
tmp12 = atspre_null_ptr ;
} /* end of [if] */
break ;
} while (0) ;
return (tmp12) ;
} /* end of [loop_6] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 3162(line=155, offs=3) -- 4039(line=203, offs=4)
*/
ATSglobaldec()
ats_int_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__givename_get_ngurl (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_int_type, tmp11) ;
ATSlocal (ats_char_type, tmp22) ;
ATSlocal (ats_ptr_type, tmp23) ;
ATSlocal (ats_bool_type, tmp24) ;
ATSlocal (ats_ptr_type, tmp25) ;
ATSlocal (ats_bool_type, tmp26) ;
ATSlocal (ats_ptrdiff_type, tmp27) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__givename_get_ngurl:
tmp22 = ptr0_get_01759_ats_char_type (ats_castfn_mac(ats_ptr_type, arg0)) ;
do {
/* branch: __ats_lab_3 */
__ats_lab_3_0:
__ats_lab_3_1:
tmp24 = atspre_eq_char_char (tmp22, '{') ;
if (!tmp24) { goto __ats_lab_4_1 ; }
tmp25 = ptr_succ_char_0 (ats_castfn_mac(ats_ptr_type, arg0)) ;
tmp23 = loop_6 (tmp25, 1, tmp22, '}') ;
break ;

/* branch: __ats_lab_4 */
__ats_lab_4_0:
__ats_lab_4_1:
tmp23 = atspre_null_ptr ;
break ;
} while (0) ;
tmp26 = atspre_pgt (ats_castfn_mac(ats_ptr_type, tmp23), ats_castfn_mac(ats_ptr_type, ats_castfn_mac(ats_ptr_type, arg0))) ;
if (tmp26) {
tmp27 = atspre_pdiff (ats_castfn_mac(ats_ptr_type, tmp23), ats_castfn_mac(ats_ptr_type, ats_castfn_mac(ats_ptr_type, arg0))) ;
tmp11 = ats_castfn_mac(ats_int_type, tmp27) ;
} else {
tmp11 = -1 ;
} /* end of [if] */
return (tmp11) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__givename_get_ngurl] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 4310(line=220, offs=3) -- 4339(line=220, offs=32)
*/
ATSglobaldec()
ats_ptr_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_get_givename (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp28) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_get_givename:
tmp28 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_1, arg0), atslab_filename_givename) ;
return (tmp28) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_get_givename] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 4377(line=224, offs=3) -- 4406(line=224, offs=32)
*/
ATSglobaldec()
ats_ptr_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_get_partname (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp29) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_get_partname:
tmp29 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_1, arg0), atslab_filename_partname) ;
return (tmp29) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_get_partname] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 4444(line=228, offs=3) -- 4473(line=228, offs=32)
*/
ATSglobaldec()
ats_ptr_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_get_fullname (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp30) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_get_fullname:
tmp30 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_1, arg0), atslab_filename_fullname) ;
return (tmp30) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_get_fullname] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 4787(line=249, offs=3) -- 4834(line=250, offs=40)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__print_filename_full (ats_ptr_type arg0) {
/* local vardec */
// ATSlocal_void (tmp31) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__print_filename_full:
/* tmp31 = */ _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint_filename_full (stdout, arg0) ;
return /* (tmp31) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__print_filename_full] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 4867(line=253, offs=3) -- 4914(line=254, offs=40)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__prerr_filename_full (ats_ptr_type arg0) {
/* local vardec */
// ATSlocal_void (tmp32) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__prerr_filename_full:
/* tmp32 = */ _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint_filename_full (stderr, arg0) ;
return /* (tmp32) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__prerr_filename_full] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 4948(line=257, offs=3) -- 5059(line=262, offs=4)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint_filename_full (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
// ATSlocal_void (tmp33) ;
ATSlocal (ats_ptr_type, tmp34) ;
ATSlocal (ats_ptr_type, tmp35) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint_filename_full:
tmp35 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_1, arg1), atslab_filename_fullname) ;
tmp34 = _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__symbol_get_name (tmp35) ;
/* tmp33 = */ atspre_fprint_string (arg0, tmp34) ;
return /* (tmp33) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint_filename_full] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 5149(line=268, offs=3) -- 5426(line=284, offs=4)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint2_filename_full (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
// ATSlocal_void (tmp36) ;
ATSlocal (ats_ptr_type, tmp37) ;
ATSlocal (ats_int_type, tmp38) ;
ATSlocal (ats_ptr_type, tmp39) ;
ATSlocal (ats_ptr_type, tmp40) ;
ATSlocal (ats_bool_type, tmp41) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint2_filename_full:
tmp37 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_1, arg1), atslab_filename_givename) ;
tmp38 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__givename_get_ngurl (tmp37) ;
tmp40 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_1, arg1), atslab_filename_fullname) ;
tmp39 = _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__symbol_get_name (tmp40) ;
tmp41 = atspre_lt_int_int (tmp38, 0) ;
if (tmp41) {
/* tmp36 = */ atspre_fprint_string (arg0, tmp39) ;
} else {
/* tmp36 = */ atspre_fprintf_exn (arg0, ATSstrcst("%s(%s)"), tmp39, tmp37) ;
} /* end of [if] */
return /* (tmp36) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint2_filename_full] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 5516(line=290, offs=3) -- 5572(line=291, offs=46)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__eq_filename_filename (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
ATSlocal (ats_bool_type, tmp42) ;
ATSlocal (ats_ptr_type, tmp43) ;
ATSlocal (ats_ptr_type, tmp44) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__eq_filename_filename:
tmp43 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_1, arg0), atslab_filename_fullname) ;
tmp44 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_1, arg1), atslab_filename_fullname) ;
tmp42 = _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__eq_symbol_symbol (tmp43, tmp44) ;
return (tmp42) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__eq_filename_filename] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 5666(line=298, offs=3) -- 5833(line=308, offs=4)
*/
ATSglobaldec()
ats_int_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__compare_filename_filename (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
ATSlocal (ats_int_type, tmp45) ;
ATSlocal (ats_ptr_type, tmp46) ;
ATSlocal (ats_ptr_type, tmp47) ;
ATSlocal (ats_ptr_type, tmp48) ;
ATSlocal (ats_ptr_type, tmp49) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__compare_filename_filename:
tmp47 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_1, arg0), atslab_filename_fullname) ;
tmp46 = _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__symbol_get_name (tmp47) ;
tmp49 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_1, arg1), atslab_filename_fullname) ;
tmp48 = _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__symbol_get_name (tmp49) ;
tmp45 = atspre_compare_string_string (tmp46, tmp48) ;
return (tmp45) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__compare_filename_filename] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 6108(line=327, offs=18) -- 6169(line=329, offs=35)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_is_sats (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp50) ;
ATSlocal (ats_ptr_type, tmp51) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_is_sats:
tmp51 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_1, arg0), atslab_filename_partname) ;
tmp50 = patsopt_string_test_suffix (tmp51, ATSstrcst(".sats")) ;
return (tmp50) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_is_sats] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 6200(line=332, offs=18) -- 6261(line=334, offs=35)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_is_dats (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp52) ;
ATSlocal (ats_ptr_type, tmp53) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_is_dats:
tmp53 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_1, arg0), atslab_filename_partname) ;
tmp52 = patsopt_string_test_suffix (tmp53, ATSstrcst(".dats")) ;
return (tmp52) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_is_dats] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 6426(line=350, offs=1) -- 6644(line=365, offs=4)
*/
ATSstaticdec()
ats_bool_type
aux_20 (ats_ptr_type arg0, ats_size_type arg1, ats_char_type arg2) {
/* local vardec */
ATSlocal (ats_bool_type, tmp55) ;
ATSlocal (ats_bool_type, tmp56) ;
ATSlocal (ats_char_type, tmp57) ;

__ats_lab_aux_20:
tmp56 = atspre_string_isnot_atend (arg0, arg1) ;
if (tmp56) {
tmp57 = atspre_string_get_char_at (arg0, arg1) ;
tmp55 = atspre_neq_char_char (tmp57, arg2) ;
} else {
tmp55 = ats_false_bool ;
} /* end of [if] */
return (tmp55) ;
} /* end of [aux_20] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 6405(line=347, offs=3) -- 6772(line=374, offs=4)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2edats__givename_is_relative (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp54) ;
ATSlocal (ats_char_type, tmp58) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2edats__givename_is_relative:
tmp58 = patsopt_filename_theDirSep_get () ;
tmp54 = aux_20 (ats_castfn_mac(ats_ptr_type, arg0), 0, tmp58) ;
return (tmp54) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2edats__givename_is_relative] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 7361(line=402, offs=18) -- 7440(line=406, offs=23)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_is_dummy (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp62) ;
ATSlocal (ats_bool_type, tmp63) ;
ATSlocal (ats_ptr_type, tmp64) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_is_dummy:
tmp64 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_1, arg0), atslab_filename_fullname) ;
tmp63 = _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__eq_symbol_symbol (tmp64, _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__symbol_empty) ;
if (tmp63) {
tmp62 = ats_true_bool ;
} else {
tmp62 = ats_false_bool ;
} /* end of [if] */
return (tmp62) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_is_dummy] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 7474(line=409, offs=21) -- 7553(line=413, offs=23)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_isnot_dummy (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp65) ;
ATSlocal (ats_bool_type, tmp66) ;
ATSlocal (ats_ptr_type, tmp67) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_isnot_dummy:
tmp67 = ats_selbox_mac(ats_castptr_mac(anairiats_rec_1, arg0), atslab_filename_fullname) ;
tmp66 = _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__eq_symbol_symbol (tmp67, _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__symbol_empty) ;
if (tmp66) {
tmp65 = ats_false_bool ;
} else {
tmp65 = ats_true_bool ;
} /* end of [if] */
return (tmp65) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_isnot_dummy] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 7603(line=418, offs=14) -- 7640(line=419, offs=31)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__print_pathlst (ats_ptr_type arg0) {
/* local vardec */
// ATSlocal_void (tmp68) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__print_pathlst:
/* tmp68 = */ _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint_pathlst (stdout, arg0) ;
return /* (tmp68) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__print_pathlst] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 7664(line=421, offs=14) -- 7701(line=422, offs=31)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__prerr_pathlst (ats_ptr_type arg0) {
/* local vardec */
// ATSlocal_void (tmp69) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__prerr_pathlst:
/* tmp69 = */ _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint_pathlst (stderr, arg0) ;
return /* (tmp69) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__prerr_pathlst] */

/*
// /tmp/ATS-Postiats/src/pats_utils.dats: 11884(line=651, offs=1) -- 12164(line=665, offs=2)
*/
ATSstaticdec()
ats_void_type
aux_27 (ats_ptr_type env0, ats_ptr_type env1, ats_ptr_type env2, ats_ptr_type arg0, ats_int_type arg1) {
/* local vardec */
// ATSlocal_void (tmp72) ;
ATSlocal (ats_ptr_type, tmp73) ;
ATSlocal (ats_ptr_type, tmp74) ;
// ATSlocal_void (tmp75) ;
ATSlocal (ats_bool_type, tmp76) ;
// ATSlocal_void (tmp77) ;
ATSlocal (ats_int_type, tmp78) ;

__ats_lab_aux_27:
do {
/* branch: __ats_lab_5 */
__ats_lab_5_0:
if (arg0 != (ats_sum_ptr_type)0) { goto __ats_lab_6_0 ; }
__ats_lab_5_1:
break ;

/* branch: __ats_lab_6 */
__ats_lab_6_0:
// if (arg0 == (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_6_1:
tmp73 = ats_caselptrlab_mac(anairiats_sum_2, arg0, atslab_0) ;
tmp74 = ats_caselptrlab_mac(anairiats_sum_2, arg0, atslab_1) ;
tmp76 = atspre_gt_int_int (arg1, 0) ;
if (tmp76) {
/* tmp75 = */ atspre_fprint_string (env0, env1) ;
} else {
/* empty */
} /* end of [if] */
/* tmp77 = */ ((ats_void_type(*)(ats_ptr_type, ats_ptr_type))env2) (env0, tmp73) ;
tmp78 = atspre_add_int_int (arg1, 1) ;
arg0 = tmp74 ;
arg1 = tmp78 ;
goto __ats_lab_aux_27 ; // tail call
break ;
} while (0) ;
return /* (tmp72) */ ;
} /* end of [aux_27] */

typedef struct {
ats_fun_ptr_type closure_fun ;
ats_ptr_type closure_env_0 ;
ats_ptr_type closure_env_1 ;
ats_ptr_type closure_env_2 ;
} aux_27_closure_type ;

ats_void_type
aux_27_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0, ats_int_type arg1) {
aux_27 (((aux_27_closure_type*)cloptr)->closure_env_0, ((aux_27_closure_type*)cloptr)->closure_env_1, ((aux_27_closure_type*)cloptr)->closure_env_2, arg0, arg1) ; return ;
} /* end of function */

ATSinline()
ats_void_type
aux_27_closure_init (aux_27_closure_type *p_clo, ats_ptr_type env0, ats_ptr_type env1, ats_ptr_type env2) {
p_clo->closure_fun = (ats_fun_ptr_type)&aux_27_clofun ;
p_clo->closure_env_0 = env0 ;
p_clo->closure_env_1 = env1 ;
p_clo->closure_env_2 = env2 ;
return ;
} /* end of function */

ats_clo_ptr_type
aux_27_closure_make (ats_ptr_type env0, ats_ptr_type env1, ats_ptr_type env2) {
aux_27_closure_type *p_clo = ATS_MALLOC(sizeof(aux_27_closure_type)) ;
aux_27_closure_init (p_clo, env0, env1, env2) ;
return (ats_clo_ptr_type)p_clo ;
} /* end of function */

/*
// /tmp/ATS-Postiats/src/pats_utils.dats: 11844(line=646, offs=11) -- 12207(line=669, offs=4)
*/
ATSstaticdec()
ats_void_type
fprintlst_01889_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2, ats_ptr_type arg3) {
/* local vardec */
// ATSlocal_void (tmp71) ;

__ats_lab_fprintlst_01889_ats_ptr_type:
/* tmp71 = */ aux_27 (arg0, arg2, arg3, arg1, 0) ;
return /* (tmp71) */ ;
} /* end of [fprintlst_01889_ats_ptr_type] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 7770(line=426, offs=30) -- 7806(line=426, offs=66)
*/
ATSstaticdec()
ats_void_type
__ats_fun_28 (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
// ATSlocal_void (tmp79) ;

__ats_lab___ats_fun_28:
/* tmp79 = */ atspre_fprint_string (arg0, arg1) ;
return /* (tmp79) */ ;
} /* end of [__ats_fun_28] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 7729(line=425, offs=15) -- 7807(line=426, offs=67)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint_pathlst (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
// ATSlocal_void (tmp70) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint_pathlst:
/* tmp70 = */ fprintlst_01889_ats_ptr_type (arg0, arg1, ATSstrcst(":"), &__ats_fun_28) ;
return /* (tmp70) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint_pathlst] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 7947(line=440, offs=1) -- 8140(line=450, offs=2)
*/
ATSstaticdec()
ats_void_type
loop1_30 (ats_char_type arg0, ats_ptr_type arg1, ats_size_type arg2, ats_size_type arg3, ats_ref_type arg4) {
/* local vardec */
// ATSlocal_void (tmp81) ;
ATSlocal (ats_bool_type, tmp82) ;

__ats_lab_loop1_30:
tmp82 = atspre_lt_size1_size1 (arg3, arg2) ;
if (tmp82) {
/* tmp81 = */ loop2_31 (arg0, arg1, arg2, arg3, arg3, arg4) ;
} else {
/* empty */
} /* end of [if] */
return /* (tmp81) */ ;
} /* end of [loop1_30] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 8148(line=453, offs=1) -- 9107(line=504, offs=2)
*/
ATSstaticdec()
ats_void_type
loop2_31 (ats_char_type arg0, ats_ptr_type arg1, ats_size_type arg2, ats_size_type arg3, ats_size_type arg4, ats_ref_type arg5) {
/* local vardec */
// ATSlocal_void (tmp83) ;
ATSlocal (ats_bool_type, tmp84) ;
ATSlocal (ats_bool_type, tmp85) ;
ATSlocal (ats_char_type, tmp86) ;
ATSlocal (ats_size_type, tmp87) ;
ATSlocal (ats_ptr_type, tmp88) ;
ATSlocal (ats_size_type, tmp89) ;
ATSlocal (ats_size_type, tmp90) ;
ATSlocal (ats_ptr_type, tmp91) ;
ATSlocal (ats_size_type, tmp92) ;
ATSlocal (ats_ptr_type, tmp93) ;
ATSlocal (ats_size_type, tmp94) ;
ATSlocal (ats_ptr_type, tmp95) ;

__ats_lab_loop2_31:
tmp84 = atspre_lt_size1_size1 (arg4, arg2) ;
if (tmp84) {
tmp86 = atspre_string_get_char_at (arg1, arg4) ;
tmp85 = atspre_neq_char_char (tmp86, arg0) ;
if (tmp85) {
tmp87 = atspre_add_size1_int1 (arg4, 1) ;
arg0 = arg0 ;
arg1 = arg1 ;
arg2 = arg2 ;
arg3 = arg3 ;
arg4 = tmp87 ;
arg5 = arg5 ;
goto __ats_lab_loop2_31 ; // tail call
} else {
tmp90 = atspre_sub_size1_size1 (arg4, arg3) ;
tmp89 = atspre_add_size1_int1 (tmp90, 1) ;
tmp88 = atspre_string_make_substring (arg1, arg3, tmp89) ;
tmp91 = ATS_MALLOC(sizeof(anairiats_sum_2)) ;
ats_selptrset_mac(anairiats_sum_2, tmp91, atslab_0, ats_castfn_mac(ats_ptr_type, tmp88)) ;
ats_selptrset_mac(anairiats_sum_2, tmp91, atslab_1, ats_ptrget_mac(ats_ptr_type, arg5)) ;
ats_ptrget_mac(ats_ptr_type, arg5) = tmp91 ;
tmp92 = atspre_add_size1_int1 (arg4, 1) ;
/* tmp83 = */ loop1_30 (arg0, arg1, arg2, tmp92, arg5) ;
} /* end of [if] */
} else {
tmp94 = atspre_sub_size1_size1 (arg4, arg3) ;
tmp93 = atspre_string_make_substring (arg1, arg3, tmp94) ;
tmp95 = ATS_MALLOC(sizeof(anairiats_sum_2)) ;
ats_selptrset_mac(anairiats_sum_2, tmp95, atslab_0, ats_castfn_mac(ats_ptr_type, tmp93)) ;
ats_selptrset_mac(anairiats_sum_2, tmp95, atslab_1, ats_ptrget_mac(ats_ptr_type, arg5)) ;
ats_ptrget_mac(ats_ptr_type, arg5) = tmp95 ;
} /* end of [if] */
return /* (tmp83) */ ;
} /* end of [loop2_31] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 9450(line=526, offs=7) -- 9912(line=540, offs=21)
*/
ATSstaticdec()
ats_ptr_type
loop_33 (ats_ptr_type arg0, ats_int_type arg1, ats_ptr_type arg2) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp97) ;
ATSlocal (ats_bool_type, tmp98) ;
ATSlocal (ats_size_type, tmp99) ;
ATSlocal (ats_ptr_type, tmp100) ;
ATSlocal (ats_int_type, tmp101) ;
ATSlocal (ats_ptr_type, tmp102) ;

__ats_lab_loop_33:
tmp98 = atspre_igt (arg1, 0) ;
if (tmp98) {
tmp99 = atspre_string_length (ats_castfn_mac(ats_ptr_type, arg0)) ;
tmp100 = atspre_string_make_substring (ats_castfn_mac(ats_ptr_type, arg0), 0, tmp99) ;
tmp101 = atspre_isub (arg1, 1) ;
tmp102 = ATS_MALLOC(sizeof(anairiats_sum_2)) ;
ats_selptrset_mac(anairiats_sum_2, tmp102, atslab_0, ats_castfn_mac(ats_ptr_type, tmp100)) ;
ats_selptrset_mac(anairiats_sum_2, tmp102, atslab_1, arg2) ;
arg0 = arg0 ;
arg1 = tmp101 ;
arg2 = tmp102 ;
goto __ats_lab_loop_33 ; // tail call
} else {
tmp97 = arg2 ;
} /* end of [if] */
return (tmp97) ;
} /* end of [loop_33] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 9243(line=513, offs=1) -- 10669(line=563, offs=4)
*/
ATSstaticdec()
ats_ptr_type
dirs_process_32 (ats_ptr_type arg0, ats_ptr_type arg1, ats_int_type arg2, ats_ptr_type arg3, ats_ptr_type arg4) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp96) ;
ATSlocal (ats_ptr_type, tmp103) ;
ATSlocal (ats_ptr_type, tmp104) ;
ATSlocal (ats_bool_type, tmp105) ;
// ATSlocal_void (tmp106) ;
ATSlocal (ats_bool_type, tmp107) ;
// ATSlocal_void (tmp108) ;
ATSlocal (ats_int_type, tmp109) ;
ATSlocal (ats_bool_type, tmp110) ;
// ATSlocal_void (tmp111) ;
ATSlocal (ats_int_type, tmp112) ;
ATSlocal (ats_ptr_type, tmp113) ;

__ats_lab_dirs_process_32:
do {
/* branch: __ats_lab_7 */
__ats_lab_7_0:
if (arg3 != (ats_sum_ptr_type)0) { goto __ats_lab_8_0 ; }
__ats_lab_7_1:
tmp96 = loop_33 (arg1, arg2, arg4) ;
break ;

/* branch: __ats_lab_8 */
__ats_lab_8_0:
// if (arg3 == (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_8_1:
tmp103 = ats_caselptrlab_mac(anairiats_sum_2, arg3, atslab_0) ;
tmp104 = ats_caselptrlab_mac(anairiats_sum_2, arg3, atslab_1) ;
ATS_FREE(arg3) ;
tmp105 = atspre_eq_string_string (ats_castfn_mac(ats_ptr_type, tmp103), arg0) ;
if (tmp105) {
/* tmp106 = */ atspre_strptr_free (tmp103) ;
arg0 = arg0 ;
arg1 = arg1 ;
arg2 = arg2 ;
arg3 = tmp104 ;
arg4 = arg4 ;
goto __ats_lab_dirs_process_32 ; // tail call
} else {
tmp107 = atspre_eq_string_string (ats_castfn_mac(ats_ptr_type, tmp103), arg1) ;
if (tmp107) {
/* tmp108 = */ atspre_strptr_free (tmp103) ;
tmp109 = atspre_iadd (arg2, 1) ;
arg0 = arg0 ;
arg1 = arg1 ;
arg2 = tmp109 ;
arg3 = tmp104 ;
arg4 = arg4 ;
goto __ats_lab_dirs_process_32 ; // tail call
} else {
tmp110 = atspre_igt (arg2, 0) ;
if (tmp110) {
/* tmp111 = */ atspre_strptr_free (tmp103) ;
tmp112 = atspre_isub (arg2, 1) ;
arg0 = arg0 ;
arg1 = arg1 ;
arg2 = tmp112 ;
arg3 = tmp104 ;
arg4 = arg4 ;
goto __ats_lab_dirs_process_32 ; // tail call
} else {
tmp113 = ATS_MALLOC(sizeof(anairiats_sum_2)) ;
ats_selptrset_mac(anairiats_sum_2, tmp113, atslab_0, tmp103) ;
ats_selptrset_mac(anairiats_sum_2, tmp113, atslab_1, arg4) ;
arg0 = arg0 ;
arg1 = arg1 ;
arg2 = 0 ;
arg3 = tmp104 ;
arg4 = tmp113 ;
goto __ats_lab_dirs_process_32 ; // tail call
} /* end of [if] */
} /* end of [if] */
} /* end of [if] */
break ;
} while (0) ;
return (tmp96) ;
} /* end of [dirs_process_32] */

/*
// /nix/store/rfja8ixrs5wb4kj3kiwlch1apnh7qgvy-ats-0.2.12/lib/ats-anairiats-0.2.12/prelude/DATS/list_vt.dats: 5132(line=186, offs=7) -- 5320(line=191, offs=28)
*/
ATSstaticdec()
ats_void_type
loop_35 (ats_ptr_type env0, ats_ptr_type arg0) {
/* local vardec */
// ATSlocal_void (tmp125) ;
ATSlocal (ats_ptr_type, tmp126) ;
ATSlocal (ats_ptr_type, tmp127) ;
// ATSlocal_void (tmp128) ;

__ats_lab_loop_35:
do {
/* branch: __ats_lab_9 */
__ats_lab_9_0:
if (arg0 == (ats_sum_ptr_type)0) { goto __ats_lab_10_0 ; }
__ats_lab_9_1:
tmp126 = &ats_caselptrlab_mac(anairiats_sum_2, arg0, atslab_0) ;
tmp127 = ats_caselptrlab_mac(anairiats_sum_2, arg0, atslab_1) ;
/* tmp128 = */ ((ats_void_type(*)(ats_ref_type))env0) (tmp126) ;
ATS_FREE(arg0) ;
arg0 = tmp127 ;
goto __ats_lab_loop_35 ; // tail call
break ;

/* branch: __ats_lab_10 */
__ats_lab_10_0:
// if (arg0 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_10_1:
break ;
} while (0) ;
return /* (tmp125) */ ;
} /* end of [loop_35] */

typedef struct {
ats_fun_ptr_type closure_fun ;
ats_ptr_type closure_env_0 ;
} loop_35_closure_type ;

ats_void_type
loop_35_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0) {
loop_35 (((loop_35_closure_type*)cloptr)->closure_env_0, arg0) ; return ;
} /* end of function */

ATSinline()
ats_void_type
loop_35_closure_init (loop_35_closure_type *p_clo, ats_ptr_type env0) {
p_clo->closure_fun = (ats_fun_ptr_type)&loop_35_clofun ;
p_clo->closure_env_0 = env0 ;
return ;
} /* end of function */

ats_clo_ptr_type
loop_35_closure_make (ats_ptr_type env0) {
loop_35_closure_type *p_clo = ATS_MALLOC(sizeof(loop_35_closure_type)) ;
loop_35_closure_init (p_clo, env0) ;
return (ats_clo_ptr_type)p_clo ;
} /* end of function */

/*
// /nix/store/rfja8ixrs5wb4kj3kiwlch1apnh7qgvy-ats-0.2.12/lib/ats-anairiats-0.2.12/prelude/DATS/list_vt.dats: 5111(line=185, offs=18) -- 5359(line=195, offs=4)
*/
ATSstaticdec()
ats_void_type
list_vt_free_fun_01500_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
// ATSlocal_void (tmp124) ;

__ats_lab_list_vt_free_fun_01500_ats_ptr_type:
/* tmp124 = */ loop_35 (arg1, arg0) ;
return /* (tmp124) */ ;
} /* end of [list_vt_free_fun_01500_ats_ptr_type] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 11215(line=594, offs=34) -- 11238(line=594, offs=57)
*/
ATSstaticdec()
ats_void_type
__ats_fun_36 (ats_ref_type arg0) {
/* local vardec */
// ATSlocal_void (tmp129) ;

__ats_lab___ats_fun_36:
/* tmp129 = */ atspre_strptr_free (ats_ptrget_mac(ats_ptr_type, arg0)) ;
return /* (tmp129) */ ;
} /* end of [__ats_fun_36] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 7929(line=437, offs=3) -- 11266(line=598, offs=4)
*/
ATSglobaldec()
ats_ptr_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__path_normalize_vt (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp80) ;
ATSlocal (ats_char_type, tmp114) ;
ATSlocal (ats_ptr_type, tmp115) ;
ATSlocal (ats_ptr_type, tmp116) ;
ATSlocal (ats_ptr_type, tmp117) ;
ATSlocal (ats_size_type, tmp118) ;
// ATSlocal_void (tmp119) ;
ATSlocal (ats_ptr_type, tmp120) ;
ATSlocal (ats_ptr_type, tmp121) ;
ATSlocal (ats_ptr_type, tmp122) ;
// ATSlocal_void (tmp123) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__path_normalize_vt:
tmp114 = patsopt_filename_theDirSep_get () ;
tmp115 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__theCurDir_get () ;
tmp116 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__theParDir_get () ;
/* ats_ptr_type tmp117 ; */
tmp117 = (ats_sum_ptr_type)0 ;
tmp118 = atspre_string_length (ats_castfn_mac(ats_ptr_type, arg0)) ;
/* tmp119 = */ loop1_30 (tmp114, ats_castfn_mac(ats_ptr_type, arg0), tmp118, 0, (&tmp117)) ;
tmp121 = (ats_sum_ptr_type)0 ;
tmp120 = dirs_process_32 (tmp115, tmp116, 0, tmp117, tmp121) ;
tmp117 = tmp120 ;
tmp122 = atspre_stringlst_concat (ats_castfn_mac(ats_ptr_type, tmp117)) ;
/* tmp123 = */ list_vt_free_fun_01500_ats_ptr_type (tmp117, &__ats_fun_36) ;
tmp80 = tmp122 ;
return (tmp80) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__path_normalize_vt] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 11323(line=601, offs=16) -- 11371(line=602, offs=42)
*/
ATSglobaldec()
ats_ptr_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__path_normalize (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp130) ;
ATSlocal (ats_ptr_type, tmp131) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__path_normalize:
tmp131 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__path_normalize_vt (arg0) ;
tmp130 = ats_castfn_mac(ats_ptr_type, tmp131) ;
return (tmp130) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__path_normalize] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 11516(line=617, offs=1) -- 11931(line=642, offs=4)
*/
ATSstaticdec()
ats_ptr_type
partname_fullize_38 (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp132) ;
ATSlocal (ats_bool_type, tmp133) ;
ATSlocal (ats_ptr_type, tmp134) ;
ATSlocal (ats_ptr_type, tmp135) ;
// ATSlocal_void (tmp136) ;
ATSlocal (ats_ptr_type, tmp137) ;
// ATSlocal_void (tmp138) ;

__ats_lab_partname_fullize_38:
tmp133 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2edats__givename_is_relative (arg0) ;
if (tmp133) {
tmp134 = atslib_getcwd0 () ;
tmp135 = patsopt_filename_dirbase (ats_castfn_mac(ats_ptr_type, tmp134), arg0) ;
/* tmp136 = */ atspre_strptr_free (tmp134) ;
tmp137 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__path_normalize (ats_castfn_mac(ats_ptr_type, tmp135)) ;
/* tmp138 = */ atspre_strptr_free (tmp135) ;
tmp132 = tmp137 ;
} else {
tmp132 = arg0 ;
} /* end of [if] */
return (tmp132) ;
} /* end of [partname_fullize_38] */

/*
// /nix/store/rfja8ixrs5wb4kj3kiwlch1apnh7qgvy-ats-0.2.12/lib/ats-anairiats-0.2.12/prelude/DATS/reference.dats: 1828(line=57, offs=18) -- 1902(line=59, offs=4)
*/
ATSstaticdec()
ats_ptr_type
ref_01088_ats_ptr_type (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp141) ;
ATSlocal (ats_ptr_type, tmp142) ;

__ats_lab_ref_01088_ats_ptr_type:
/* ats_ptr_type tmp142 ; */
tmp142 = arg0 ;
tmp141 = atspre_ref_make_elt_tsz ((&tmp142), sizeof(ats_ptr_type)) ;
return (tmp141) ;
} /* end of [ref_01088_ats_ptr_type] */

/*
// /nix/store/rfja8ixrs5wb4kj3kiwlch1apnh7qgvy-ats-0.2.12/lib/ats-anairiats-0.2.12/prelude/DATS/reference.dats: 1994(line=62, offs=27) -- 2009(line=62, offs=42)
*/
ATSstaticdec()
ats_ptr_type
ref_make_elt_01089_ats_ptr_type (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp140) ;

__ats_lab_ref_make_elt_01089_ats_ptr_type:
tmp140 = ref_01088_ats_ptr_type (arg0) ;
return (tmp140) ;
} /* end of [ref_make_elt_01089_ats_ptr_type] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 12288(line=667, offs=1) -- 12778(line=692, offs=2)
*/
ATSstaticdec()
ats_bool_type
loop_42 (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
ATSlocal (ats_bool_type, tmp146) ;
ATSlocal (ats_ptr_type, tmp147) ;
ATSlocal (ats_ptr_type, tmp148) ;
ATSlocal (ats_bool_type, tmp149) ;
ATSlocal (ats_ptr_type, tmp150) ;

__ats_lab_loop_42:
do {
/* branch: __ats_lab_11 */
__ats_lab_11_0:
if (arg0 == (ats_sum_ptr_type)0) { goto __ats_lab_12_0 ; }
__ats_lab_11_1:
tmp147 = ats_caselptrlab_mac(anairiats_sum_2, arg0, atslab_0) ;
tmp148 = &ats_caselptrlab_mac(anairiats_sum_2, arg0, atslab_1) ;
tmp149 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__eq_filename_filename (arg1, tmp147) ;
if (tmp149) {
tmp146 = ats_true_bool ;
} else {
tmp150 = ats_ptrget_mac(ats_ptr_type, tmp148) ;
arg0 = tmp150 ;
arg1 = arg1 ;
goto __ats_lab_loop_42 ; // tail call
} /* end of [if] */
break ;

/* branch: __ats_lab_12 */
__ats_lab_12_0:
// if (arg0 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_12_1:
tmp146 = ats_false_bool ;
break ;
} while (0) ;
return (tmp146) ;
} /* end of [loop_42] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 12236(line=663, offs=1) -- 12886(line=701, offs=4)
*/
ATSstaticdec()
ats_bool_type
filename_occurs_41 (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp145) ;
ATSlocal (ats_ptr_type, tmp151) ;
ATSlocal (ats_ptr_type, tmp152) ;

__ats_lab_filename_occurs_41:
tmp151 = ats_selsin_mac(ats_castfn_mac(ats_ptr_type, statmp143), atslab_1) ;
tmp152 = ats_ptrget_mac(ats_ptr_type, tmp151) ;
tmp145 = loop_42 (tmp152, arg0) ;
return (tmp145) ;
} /* end of [filename_occurs_41] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 12972(line=706, offs=21) -- 12998(line=706, offs=47)
*/
ATSglobaldec()
ats_ptr_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_get_current () {
/* local vardec */
ATSlocal (ats_ptr_type, tmp153) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_get_current:
tmp153 = ats_ptrget_mac(ats_ptr_type, statmp139) ;
return (tmp153) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_get_current] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 13053(line=712, offs=1) -- 13144(line=720, offs=4)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_pop () {
/* local vardec */
// ATSlocal_void (tmp154) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_pop:
/* tmp154 = */ _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_ppop () ;
return /* (tmp154) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_pop] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 13211(line=724, offs=3) -- 13461(line=742, offs=4)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_ppop () {
/* local vardec */
// ATSlocal_void (tmp155) ;
ATSlocal (ats_ptr_type, tmp156) ;
ATSlocal (ats_ptr_type, tmp157) ;
ATSlocal (ats_ptr_type, tmp158) ;
ATSlocal (ats_ptr_type, tmp159) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_ppop:
tmp156 = ats_selsin_mac(ats_castfn_mac(ats_ptr_type, statmp143), atslab_1) ;
tmp157 = ats_ptrget_mac(ats_ptr_type, tmp156) ;
if (tmp157 == (ats_sum_ptr_type)0) { ats_caseof_failure_handle ("/tmp/ATS-Postiats/src/pats_filename.dats: 13326(line=733, offs=3) -- 13352(line=733, offs=29)") ; }
tmp158 = ats_caselptrlab_mac(anairiats_sum_2, tmp157, atslab_0) ;
tmp159 = ats_caselptrlab_mac(anairiats_sum_2, tmp157, atslab_1) ;
ATS_FREE(tmp157) ;
ats_ptrget_mac(ats_ptr_type, tmp156) = tmp159 ;
ats_ptrget_mac(ats_ptr_type, statmp139) = tmp158 ;
return /* (tmp155) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_ppop] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 13549(line=747, offs=21) -- 13625(line=752, offs=4)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_push (ats_ptr_type arg0) {
/* local vardec */
// ATSlocal_void (tmp160) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_push:
/* tmp160 = */ _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_ppush (arg0) ;
return /* (tmp160) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_push] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 13693(line=755, offs=22) -- 13873(line=762, offs=4)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_ppush (ats_ptr_type arg0) {
/* local vardec */
// ATSlocal_void (tmp161) ;
ATSlocal (ats_ptr_type, tmp162) ;
ATSlocal (ats_ptr_type, tmp163) ;
ATSlocal (ats_ptr_type, tmp164) ;
ATSlocal (ats_ptr_type, tmp165) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_ppush:
tmp162 = ats_ptrget_mac(ats_ptr_type, statmp139) ;
ats_ptrget_mac(ats_ptr_type, statmp139) = arg0 ;
tmp163 = ats_selsin_mac(ats_castfn_mac(ats_ptr_type, statmp143), atslab_1) ;
tmp165 = ats_ptrget_mac(ats_ptr_type, tmp163) ;
tmp164 = ATS_MALLOC(sizeof(anairiats_sum_2)) ;
ats_selptrset_mac(anairiats_sum_2, tmp164, atslab_0, tmp162) ;
ats_selptrset_mac(anairiats_sum_2, tmp164, atslab_1, tmp165) ;
ats_ptrget_mac(ats_ptr_type, tmp163) = tmp164 ;
return /* (tmp161) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_ppush] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 14293(line=784, offs=3) -- 14788(line=813, offs=4)
*/
ATSglobaldec()
ats_bool_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_push_check (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_bool_type, tmp166) ;
// ATSlocal_void (tmp167) ;
// ATSlocal_void (tmp168) ;
ATSlocal (ats_bool_type, tmp169) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_push_check:
/* tmp167 = */ _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_push (arg0) ;
/* tmp168 = ats_selsin_mac(tmp167, atslab_1) */ ;
tmp169 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_isnot_dummy (arg0) ;
if (tmp169) {
tmp166 = filename_occurs_41 (arg0) ;
} else {
tmp166 = ats_false_bool ;
} /* end of [if] */
return (tmp166) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_filenamelst_push_check] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 14904(line=822, offs=1) -- 15258(line=842, offs=2)
*/
ATSstaticdec()
ats_void_type
loop_50 (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
// ATSlocal_void (tmp171) ;
ATSlocal (ats_ptr_type, tmp172) ;
ATSlocal (ats_ptr_type, tmp173) ;
// ATSlocal_void (tmp174) ;
// ATSlocal_void (tmp175) ;
ATSlocal (ats_ptr_type, tmp176) ;

__ats_lab_loop_50:
do {
/* branch: __ats_lab_13 */
__ats_lab_13_0:
if (arg1 == (ats_sum_ptr_type)0) { goto __ats_lab_14_0 ; }
__ats_lab_13_1:
tmp172 = ats_caselptrlab_mac(anairiats_sum_2, arg1, atslab_0) ;
tmp173 = &ats_caselptrlab_mac(anairiats_sum_2, arg1, atslab_1) ;
/* tmp174 = */ _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint_filename_full (arg0, tmp172) ;
/* tmp175 = */ atspre_fprint_newline (arg0) ;
tmp176 = ats_ptrget_mac(ats_ptr_type, tmp173) ;
arg0 = arg0 ;
arg1 = tmp176 ;
goto __ats_lab_loop_50 ; // tail call
break ;

/* branch: __ats_lab_14 */
__ats_lab_14_0:
// if (arg1 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_14_1:
break ;
} while (0) ;
return /* (tmp171) */ ;
} /* end of [loop_50] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 14885(line=819, offs=3) -- 15384(line=852, offs=4)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint_the_filenamelst (ats_ptr_type arg0) {
/* local vardec */
// ATSlocal_void (tmp170) ;
ATSlocal (ats_ptr_type, tmp177) ;
ATSlocal (ats_ptr_type, tmp178) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint_the_filenamelst:
tmp177 = ats_selsin_mac(ats_castfn_mac(ats_ptr_type, statmp143), atslab_1) ;
tmp178 = ats_ptrget_mac(ats_ptr_type, tmp177) ;
/* tmp170 = */ loop_50 (arg0, tmp178) ;
return /* (tmp170) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__fprint_the_filenamelst] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 15747(line=874, offs=1) -- 15900(line=887, offs=2)
*/
ATSstaticdec()
ats_ptr_type
the_pathlst_get_51 () {
/* local vardec */
ATSlocal (ats_ptr_type, tmp183) ;
ATSlocal (ats_ptr_type, tmp184) ;
ATSlocal (ats_ptr_type, tmp185) ;
ATSlocal (ats_ptr_type, tmp186) ;

__ats_lab_the_pathlst_get_51:
tmp184 = ats_selsin_mac(ats_castfn_mac(ats_ptr_type, statmp179), atslab_1) ;
tmp185 = ats_ptrget_mac(ats_ptr_type, tmp184) ;
tmp186 = (ats_sum_ptr_type)0 ;
ats_ptrget_mac(ats_ptr_type, tmp184) = tmp186 ;
tmp183 = tmp185 ;
return (tmp183) ;
} /* end of [the_pathlst_get_51] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 15937(line=890, offs=1) -- 16093(line=904, offs=2)
*/
ATSstaticdec()
ats_void_type
the_pathlst_set_52 (ats_ptr_type arg0) {
/* local vardec */
// ATSlocal_void (tmp187) ;
ATSlocal (ats_ptr_type, tmp188) ;
ATSlocal (ats_ptr_type, tmp189) ;

__ats_lab_the_pathlst_set_52:
tmp188 = ats_selsin_mac(ats_castfn_mac(ats_ptr_type, statmp179), atslab_1) ;
tmp189 = ats_ptrget_mac(ats_ptr_type, tmp188) ;
if (tmp189 != (ats_sum_ptr_type)0) { ats_caseof_failure_handle ("/tmp/ATS-Postiats/src/pats_filename.dats: 16049(line=901, offs=1) -- 16068(line=901, offs=20)") ; }
ats_ptrget_mac(ats_ptr_type, tmp188) = arg0 ;
return /* (tmp187) */ ;
} /* end of [the_pathlst_set_52] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 16175(line=910, offs=3) -- 16341(line=925, offs=2)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_pathlst_pop () {
/* local vardec */
// ATSlocal_void (tmp190) ;
ATSlocal (ats_ptr_type, tmp191) ;
ATSlocal (ats_ptr_type, tmp192) ;
ATSlocal (ats_ptr_type, tmp193) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_pathlst_pop:
tmp191 = ats_selsin_mac(ats_castfn_mac(ats_ptr_type, statmp179), atslab_1) ;
tmp192 = ats_ptrget_mac(ats_ptr_type, tmp191) ;
if (tmp192 == (ats_sum_ptr_type)0) { ats_caseof_failure_handle ("/tmp/ATS-Postiats/src/pats_filename.dats: 16285(line=922, offs=1) -- 16310(line=922, offs=26)") ; }
tmp193 = ats_caselptrlab_mac(anairiats_sum_2, tmp192, atslab_1) ;
ATS_FREE(tmp192) ;
ats_ptrget_mac(ats_ptr_type, tmp191) = tmp193 ;
return /* (tmp190) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_pathlst_pop] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 16400(line=928, offs=17) -- 16472(line=933, offs=4)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_pathlst_push (ats_ptr_type arg0) {
/* local vardec */
// ATSlocal_void (tmp194) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_pathlst_push:
/* tmp194 = */ _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_pathlst_ppush (arg0) ;
return /* (tmp194) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_pathlst_push] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 16530(line=936, offs=18) -- 16636(line=945, offs=4)
*/
ATSglobaldec()
ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_pathlst_ppush (ats_ptr_type arg0) {
/* local vardec */
// ATSlocal_void (tmp195) ;
ATSlocal (ats_ptr_type, tmp196) ;
ATSlocal (ats_ptr_type, tmp197) ;
ATSlocal (ats_ptr_type, tmp198) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_pathlst_ppush:
tmp196 = ats_selsin_mac(ats_castfn_mac(ats_ptr_type, statmp179), atslab_1) ;
tmp198 = ats_ptrget_mac(ats_ptr_type, tmp196) ;
tmp197 = ATS_MALLOC(sizeof(anairiats_sum_2)) ;
ats_selptrset_mac(anairiats_sum_2, tmp197, atslab_0, arg0) ;
ats_selptrset_mac(anairiats_sum_2, tmp197, atslab_1, tmp198) ;
ats_ptrget_mac(ats_ptr_type, tmp196) = tmp197 ;
return /* (tmp195) */ ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_pathlst_ppush] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 16922(line=969, offs=1) -- 17102(line=983, offs=2)
*/
ATSstaticdec()
ats_ptr_type
the_prepathlst_get_56 () {
/* local vardec */
ATSlocal (ats_ptr_type, tmp199) ;
ATSlocal (ats_ptr_type, tmp200) ;
ATSlocal (ats_ptr_type, tmp201) ;
ATSlocal (ats_ptr_type, tmp202) ;

__ats_lab_the_prepathlst_get_56:
tmp200 = ats_selsin_mac(ats_castfn_mac(ats_ptr_type, statmp181), atslab_1) ;
tmp201 = ats_ptrget_mac(ats_ptr_type, tmp200) ;
tmp202 = (ats_sum_ptr_type)0 ;
ats_ptrget_mac(ats_ptr_type, tmp200) = tmp202 ;
tmp199 = tmp201 ;
return (tmp199) ;
} /* end of [the_prepathlst_get_56] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 17142(line=986, offs=1) -- 17308(line=998, offs=2)
*/
ATSstaticdec()
ats_void_type
the_prepathlst_set_57 (ats_ptr_type arg0) {
/* local vardec */
// ATSlocal_void (tmp203) ;
ATSlocal (ats_ptr_type, tmp204) ;
ATSlocal (ats_ptr_type, tmp205) ;

__ats_lab_the_prepathlst_set_57:
tmp204 = ats_selsin_mac(ats_castfn_mac(ats_ptr_type, statmp181), atslab_1) ;
tmp205 = ats_ptrget_mac(ats_ptr_type, tmp204) ;
if (tmp205 != (ats_sum_ptr_type)0) { ats_caseof_failure_handle ("/tmp/ATS-Postiats/src/pats_filename.dats: 17257(line=995, offs=5) -- 17277(line=995, offs=25)") ; }
ats_ptrget_mac(ats_ptr_type, tmp204) = arg0 ;
return /* (tmp203) */ ;
} /* end of [the_prepathlst_set_57] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 17391(line=1003, offs=20) -- 17498(line=1012, offs=4)
*/
ATSglobaldec()
ats_void_type
libatsopt_the_prepathlst_push (ats_ptr_type arg0) {
/* local vardec */
// ATSlocal_void (tmp206) ;
ATSlocal (ats_ptr_type, tmp207) ;
ATSlocal (ats_ptr_type, tmp208) ;
ATSlocal (ats_ptr_type, tmp209) ;

__ats_lab_libatsopt_the_prepathlst_push:
tmp207 = ats_selsin_mac(ats_castfn_mac(ats_ptr_type, statmp181), atslab_1) ;
tmp209 = ats_ptrget_mac(ats_ptr_type, tmp207) ;
tmp208 = ATS_MALLOC(sizeof(anairiats_sum_2)) ;
ats_selptrset_mac(anairiats_sum_2, tmp208, atslab_0, arg0) ;
ats_selptrset_mac(anairiats_sum_2, tmp208, atslab_1, tmp209) ;
ats_ptrget_mac(ats_ptr_type, tmp207) = tmp208 ;
return /* (tmp206) */ ;
} /* end of [libatsopt_the_prepathlst_push] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 17621(line=1022, offs=1) -- 17794(line=1031, offs=6)
*/
ATSglobaldec()
ats_ptr_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_make (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp210) ;
ATSlocal (ats_ptr_type, tmp211) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_make:
tmp211 = _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__symbol_make_string (arg2) ;
tmp210 = ATS_MALLOC(sizeof(anairiats_rec_1)) ;
ats_selptrset_mac(anairiats_rec_1, tmp210, atslab_filename_givename, arg0) ;
ats_selptrset_mac(anairiats_rec_1, tmp210, atslab_filename_partname, arg1) ;
ats_selptrset_mac(anairiats_rec_1, tmp210, atslab_filename_fullname, tmp211) ;

return (tmp210) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_make] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 17988(line=1045, offs=1) -- 18210(line=1059, offs=4)
*/
ATSstaticdec()
ats_ptr_type
aux_try_60 (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp212) ;
ATSlocal (ats_ptr_type, tmp213) ;
ATSlocal (ats_ptr_type, tmp214) ;

__ats_lab_aux_try_60:
do {
/* branch: __ats_lab_15 */
__ats_lab_15_0:
if (arg0 == (ats_sum_ptr_type)0) { goto __ats_lab_16_0 ; }
__ats_lab_15_1:
tmp213 = ats_caselptrlab_mac(anairiats_sum_2, arg0, atslab_0) ;
tmp214 = ats_caselptrlab_mac(anairiats_sum_2, arg0, atslab_1) ;
tmp212 = aux2_try_61 (tmp213, tmp214, arg1) ;
break ;

/* branch: __ats_lab_16 */
__ats_lab_16_0:
// if (arg0 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_16_1:
tmp212 = atspre_stropt_none ;
break ;
} while (0) ;
return (tmp212) ;
} /* end of [aux_try_60] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 18236(line=1062, offs=1) -- 18655(line=1091, offs=4)
*/
ATSstaticdec()
ats_ptr_type
aux2_try_61 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp215) ;
ATSlocal (ats_ptr_type, tmp216) ;
ATSlocal (ats_bool_type, tmp217) ;
// ATSlocal_void (tmp218) ;

__ats_lab_aux2_try_61:
tmp216 = patsopt_filename_dirbase (arg0, arg2) ;
tmp217 = atspre_test_file_exists (ats_castfn_mac(ats_ptr_type, tmp216)) ;
if (tmp217) {
tmp215 = ats_castfn_mac(ats_ptr_type, tmp216) ;
} else {
/* tmp218 = */ atspre_strptr_free (tmp216) ;
tmp215 = aux_try_60 (arg1, arg2) ;
} /* end of [if] */
return (tmp215) ;
} /* end of [aux2_try_61] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 18703(line=1096, offs=1) -- 19278(line=1120, offs=4)
*/
ATSstaticdec()
ats_ptr_type
aux_local_62 (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp219) ;
ATSlocal (ats_ptr_type, tmp220) ;
ATSlocal (ats_ptr_type, tmp221) ;
ATSlocal (ats_ptr_type, tmp222) ;
ATSlocal (ats_ptr_type, tmp223) ;
// ATSlocal_void (tmp224) ;
ATSlocal (ats_bool_type, tmp225) ;
// ATSlocal_void (tmp226) ;

__ats_lab_aux_local_62:
tmp220 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_get_current () ;
tmp221 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_get_partname (tmp220) ;
tmp222 = patsopt_filename_merge (tmp221, arg0) ;
tmp223 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__path_normalize_vt (ats_castfn_mac(ats_ptr_type, tmp222)) ;
/* tmp224 = */ atspre_strptr_free (tmp222) ;
tmp225 = atspre_test_file_exists (ats_castfn_mac(ats_ptr_type, tmp223)) ;
if (tmp225) {
tmp219 = ats_castfn_mac(ats_ptr_type, tmp223) ;
} else {
/* tmp226 = */ atspre_strptr_free (tmp223) ;
tmp219 = atspre_stropt_none ;
} /* end of [if] */
return (tmp219) ;
} /* end of [aux_local_62] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 19327(line=1125, offs=1) -- 19888(line=1165, offs=2)
*/
ATSstaticdec()
ats_ptr_type
aux_try_pathlst_63 (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp227) ;
ATSlocal (ats_ptr_type, tmp228) ;
ATSlocal (ats_ptr_type, tmp229) ;
ATSlocal (ats_ptr_type, tmp230) ;
// ATSlocal_void (tmp231) ;

__ats_lab_aux_try_pathlst_63:
tmp228 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__theCurDir_get () ;
tmp229 = the_pathlst_get_51 () ;
tmp230 = aux2_try_61 (tmp228, ats_castfn_mac(ats_ptr_type, tmp229), arg0) ;
/* tmp231 = */ the_pathlst_set_52 (tmp229) ;
tmp227 = tmp230 ;
return (tmp227) ;
} /* end of [aux_try_pathlst_63] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 19925(line=1168, offs=1) -- 20313(line=1197, offs=2)
*/
ATSstaticdec()
ats_ptr_type
aux_try_prepathlst_64 (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp232) ;
ATSlocal (ats_ptr_type, tmp233) ;
ATSlocal (ats_ptr_type, tmp234) ;
// ATSlocal_void (tmp235) ;

__ats_lab_aux_try_prepathlst_64:
tmp233 = the_prepathlst_get_56 () ;
tmp234 = aux_try_60 (ats_castfn_mac(ats_ptr_type, tmp233), arg0) ;
/* tmp235 = */ the_prepathlst_set_57 (tmp233) ;
tmp232 = tmp234 ;
return (tmp232) ;
} /* end of [aux_try_prepathlst_64] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 20374(line=1202, offs=1) -- 20602(line=1216, offs=4)
*/
ATSstaticdec()
ats_ptr_type
aux_tryloc_65 (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp236) ;
ATSlocal (ats_ptr_type, tmp237) ;
ATSlocal (ats_ptr_type, tmp238) ;

__ats_lab_aux_tryloc_65:
do {
/* branch: __ats_lab_17 */
__ats_lab_17_0:
if (arg0 == (ats_sum_ptr_type)0) { goto __ats_lab_18_0 ; }
__ats_lab_17_1:
tmp237 = ats_caselptrlab_mac(anairiats_sum_2, arg0, atslab_0) ;
tmp238 = ats_caselptrlab_mac(anairiats_sum_2, arg0, atslab_1) ;
tmp236 = aux2_tryloc_66 (tmp237, tmp238, arg1) ;
break ;

/* branch: __ats_lab_18 */
__ats_lab_18_0:
// if (arg0 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_18_1:
tmp236 = atspre_stropt_none ;
break ;
} while (0) ;
return (tmp236) ;
} /* end of [aux_tryloc_65] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 20631(line=1219, offs=1) -- 21049(line=1247, offs=4)
*/
ATSstaticdec()
ats_ptr_type
aux2_tryloc_66 (ats_ptr_type arg0, ats_ptr_type arg1, ats_ptr_type arg2) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp239) ;
ATSlocal (ats_ptr_type, tmp240) ;
ATSlocal (ats_ptr_type, tmp241) ;
// ATSlocal_void (tmp242) ;
ATSlocal (ats_bool_type, tmp243) ;

__ats_lab_aux2_tryloc_66:
tmp240 = patsopt_filename_dirbase (arg0, arg2) ;
tmp241 = aux_local_62 (ats_castfn_mac(ats_ptr_type, tmp240)) ;
/* tmp242 = */ atspre_strptr_free (tmp240) ;
tmp243 = atspre_stropt_is_some (tmp241) ;
if (tmp243) {
tmp239 = tmp241 ;
} else {
tmp239 = aux_tryloc_65 (arg1, arg2) ;
} /* end of [if] */
return (tmp239) ;
} /* end of [aux2_tryloc_66] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 21350(line=1278, offs=1) -- 21604(line=1300, offs=4)
*/
ATSstaticdec()
ats_ptr_type
loop_69 (ats_char_type env0, ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp247) ;
ATSlocal (ats_char_type, tmp248) ;
ATSlocal (ats_bool_type, tmp249) ;
ATSlocal (ats_bool_type, tmp250) ;
ATSlocal (ats_ptr_type, tmp251) ;
ATSlocal (ats_ptr_type, tmp252) ;

__ats_lab_loop_69:
tmp248 = ptr0_get_01759_ats_char_type (arg0) ;
tmp249 = atspre_eq_char_char (tmp248, '\000') ;
if (tmp249) {
tmp247 = ATSstrcst("") ;
} else {
tmp250 = atspre_neq_char_char (tmp248, env0) ;
if (tmp250) {
tmp251 = ptr_succ_char_0 (arg0) ;
arg0 = tmp251 ;
goto __ats_lab_loop_69 ; // tail call
} else {
tmp252 = ptr_succ_char_0 (arg0) ;
tmp247 = ats_castfn_mac(ats_ptr_type, tmp252) ;
} /* end of [if] */
} /* end of [if] */
return (tmp247) ;
} /* end of [loop_69] */

typedef struct {
ats_fun_ptr_type closure_fun ;
ats_char_type closure_env_0 ;
} loop_69_closure_type ;

ats_ptr_type
loop_69_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0) {
return loop_69 (((loop_69_closure_type*)cloptr)->closure_env_0, arg0) ;
} /* end of function */

ATSinline()
ats_void_type
loop_69_closure_init (loop_69_closure_type *p_clo, ats_char_type env0) {
p_clo->closure_fun = (ats_fun_ptr_type)&loop_69_clofun ;
p_clo->closure_env_0 = env0 ;
return ;
} /* end of function */

ats_clo_ptr_type
loop_69_closure_make (ats_char_type env0) {
loop_69_closure_type *p_clo = ATS_MALLOC(sizeof(loop_69_closure_type)) ;
loop_69_closure_init (p_clo, env0) ;
return (ats_clo_ptr_type)p_clo ;
} /* end of function */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 21239(line=1266, offs=1) -- 21673(line=1304, offs=4)
*/
ATSstaticdec()
ats_ptr_type
given_get_partname_68 (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp245) ;
ATSlocal (ats_char_type, tmp246) ;

__ats_lab_given_get_partname_68:
tmp246 = patsopt_filename_theDirSep_get () ;
tmp245 = loop_69 (tmp246, ats_castfn_mac(ats_ptr_type, arg0)) ;
return (tmp245) ;
} /* end of [given_get_partname_68] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 21100(line=1252, offs=1) -- 21913(line=1321, offs=4)
*/
ATSstaticdec()
ats_ptr_type
aux_homelocs_67 (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp244) ;
ATSlocal (ats_ptr_type, tmp253) ;
ATSlocal (ats_ptr_type, tmp254) ;

__ats_lab_aux_homelocs_67:
tmp253 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_PATSHOMELOCS_get_pathlst () ;
tmp254 = given_get_partname_68 (arg0) ;
tmp244 = aux_tryloc_65 (tmp253, tmp254) ;
return (tmp244) ;
} /* end of [aux_homelocs_67] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 21965(line=1326, offs=1) -- 22507(line=1367, offs=4)
*/
ATSstaticdec()
ats_ptr_type
aux_relative_70 (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp255) ;
ATSlocal (ats_int_type, tmp256) ;
ATSlocal (ats_ptr_type, tmp257) ;
ATSlocal (ats_bool_type, tmp258) ;

__ats_lab_aux_relative_70:
tmp256 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__givename_srchknd (ats_castfn_mac(ats_ptr_type, arg0)) ;
do {
/* branch: __ats_lab_19 */
__ats_lab_19_0:
if (tmp256 != 0) { goto __ats_lab_20_0 ; }
__ats_lab_19_1:
tmp255 = aux_local_62 (ats_castfn_mac(ats_ptr_type, arg0)) ;
break ;

/* branch: __ats_lab_20 */
__ats_lab_20_0:
if (tmp256 != 1) { goto __ats_lab_21_0 ; }
__ats_lab_20_1:
tmp255 = aux_homelocs_67 (ats_castfn_mac(ats_ptr_type, arg0)) ;
break ;

/* branch: __ats_lab_21 */
__ats_lab_21_0:
__ats_lab_21_1:
tmp257 = aux_try_pathlst_63 (ats_castfn_mac(ats_ptr_type, arg0)) ;
tmp258 = atspre_stropt_is_some (tmp257) ;
if (tmp258) {
tmp255 = tmp257 ;
} else {
tmp255 = aux_try_prepathlst_64 (ats_castfn_mac(ats_ptr_type, arg0)) ;
} /* end of [if] */
break ;
} while (0) ;
return (tmp255) ;
} /* end of [aux_relative_70] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 22635(line=1377, offs=3) -- 22915(line=1393, offs=4)
*/
ATSglobaldec()
ats_ptr_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filenameopt_make_local (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp259) ;
ATSlocal (ats_ptr_type, tmp260) ;
ATSlocal (ats_bool_type, tmp261) ;
ATSlocal (ats_ptr_type, tmp262) ;
ATSlocal (ats_ptr_type, tmp263) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filenameopt_make_local:
tmp260 = aux_local_62 (arg0) ;
tmp261 = atspre_stropt_is_some (tmp260) ;
if (tmp261) {
tmp262 = partname_fullize_38 (ats_castfn_mac(ats_ptr_type, tmp260)) ;
tmp263 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_make (arg0, ats_castfn_mac(ats_ptr_type, tmp260), tmp262) ;
tmp259 = ATS_MALLOC(sizeof(anairiats_sum_3)) ;
ats_selptrset_mac(anairiats_sum_3, tmp259, atslab_0, tmp263) ;
} else {
tmp259 = (ats_sum_ptr_type)0 ;
} /* end of [if] */
return (tmp259) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filenameopt_make_local] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 23011(line=1399, offs=3) -- 23972(line=1447, offs=4)
*/
ATSglobaldec()
ats_ptr_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filenameopt_make_relative (ats_ptr_type arg0, ats_ref_type arg1) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp264) ;
ATSlocal (ats_int_type, tmp265) ;
ATSlocal (ats_ptr_type, tmp266) ;
ATSlocal (ats_ptr_type, tmp267) ;
ATSlocal (ats_bool_type, tmp268) ;
ATSlocal (ats_bool_type, tmp269) ;
ATSlocal (ats_bool_type, tmp270) ;
ATSlocal (ats_ptr_type, tmp271) ;
ATSlocal (ats_ptr_type, tmp272) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filenameopt_make_relative:
tmp265 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__givename_get_ngurl (arg0) ;
tmp266 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__pkgsrcname_relocatize (arg0, tmp265) ;
ats_ptrget_mac(ats_ptr_type, arg1) = tmp266 ;
do {
/* branch: __ats_lab_22 */
__ats_lab_22_0:
__ats_lab_22_1:
tmp268 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2edats__givename_is_relative (tmp266) ;
if (!tmp268) { goto __ats_lab_23_1 ; }
tmp267 = aux_relative_70 (tmp266) ;
break ;

/* branch: __ats_lab_23 */
__ats_lab_23_0:
__ats_lab_23_1:
tmp269 = atspre_test_file_exists (tmp266) ;
if (tmp269) {
tmp267 = ats_castfn_mac(ats_ptr_type, tmp266) ;
} else {
tmp267 = atspre_stropt_none ;
} /* end of [if] */
break ;
} while (0) ;
tmp270 = atspre_stropt_is_some (tmp267) ;
if (tmp270) {
tmp271 = partname_fullize_38 (ats_castfn_mac(ats_ptr_type, tmp267)) ;
tmp272 = _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_make (arg0, ats_castfn_mac(ats_ptr_type, tmp267), tmp271) ;
tmp264 = ATS_MALLOC(sizeof(anairiats_sum_3)) ;
ats_selptrset_mac(anairiats_sum_3, tmp264, atslab_0, tmp272) ;
} else {
tmp264 = (ats_sum_ptr_type)0 ;
} /* end of [if] */
return (tmp264) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filenameopt_make_relative] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 24215(line=1466, offs=1) -- 24447(line=1477, offs=4)
*/
ATSstaticdec()
ats_ptr_type
my_make_substring_range_73 (ats_ptr_type arg0, ats_size_type arg1, ats_size_type arg2) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp273) ;
ATSlocal (ats_size_type, tmp274) ;
ATSlocal (ats_bool_type, tmp275) ;
ATSlocal (ats_ptr_type, tmp276) ;

__ats_lab_my_make_substring_range_73:
tmp275 = atspre_gte_size_size (arg2, arg1) ;
if (tmp275) {
tmp274 = atspre_sub_size_size (arg2, arg1) ;
} else {
tmp274 = 0 ;
} /* end of [if] */
tmp276 = atspre_string_make_substring (arg0, arg1, tmp274) ;
tmp273 = ats_castfn_mac(ats_ptr_type, tmp276) ;
return (tmp273) ;
} /* end of [my_make_substring_range_73] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 24514(line=1482, offs=1) -- 24877(line=1503, offs=2)
*/
ATSstaticdec()
ats_bool_type
pathlst_test_74 (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
ATSlocal (ats_bool_type, tmp277) ;
ATSlocal (ats_ptr_type, tmp278) ;
ATSlocal (ats_ptr_type, tmp279) ;
ATSlocal (ats_bool_type, tmp280) ;
ATSlocal (ats_ptr_type, tmp281) ;

__ats_lab_pathlst_test_74:
do {
/* branch: __ats_lab_24 */
__ats_lab_24_0:
if (arg0 != (ats_sum_ptr_type)0) { goto __ats_lab_25_0 ; }
__ats_lab_24_1:
tmp277 = ats_false_bool ;
break ;

/* branch: __ats_lab_25 */
__ats_lab_25_0:
// if (arg0 == (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_25_1:
tmp278 = ats_caselptrlab_mac(anairiats_sum_2, arg0, atslab_0) ;
tmp279 = &ats_caselptrlab_mac(anairiats_sum_2, arg0, atslab_1) ;
tmp280 = atspre_eq_string_string (arg1, tmp278) ;
if (tmp280) {
tmp277 = ats_true_bool ;
} else {
tmp281 = ats_ptrget_mac(ats_ptr_type, tmp279) ;
arg0 = tmp281 ;
arg1 = arg1 ;
goto __ats_lab_pathlst_test_74 ; // tail call
} /* end of [if] */
break ;
} while (0) ;
return (tmp277) ;
} /* end of [pathlst_test_74] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 24913(line=1506, offs=1) -- 25034(line=1510, offs=60)
*/
ATSstaticdec()
ats_ptr_type
pathlst_insert_75 (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp282) ;
ATSlocal (ats_bool_type, tmp283) ;

__ats_lab_pathlst_insert_75:
tmp283 = pathlst_test_74 (arg0, arg1) ;
if (tmp283) {
tmp282 = arg0 ;
} else {
tmp282 = ATS_MALLOC(sizeof(anairiats_sum_2)) ;
ats_selptrset_mac(anairiats_sum_2, tmp282, atslab_0, arg1) ;
ats_selptrset_mac(anairiats_sum_2, tmp282, atslab_1, arg0) ;
} /* end of [if] */
return (tmp282) ;
} /* end of [pathlst_insert_75] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 25256(line=1531, offs=1) -- 25510(line=1552, offs=4)
*/
ATSstaticdec()
ats_ptr_type
loop2_77 (ats_ptr_type env0, ats_ptr_type arg0, ats_size_type arg1, ats_ptr_type arg2) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp288) ;
ATSlocal (ats_char_type, tmp289) ;
ATSlocal (ats_bool_type, tmp290) ;
ATSlocal (ats_bool_type, tmp291) ;
ATSlocal (ats_ptr_type, tmp292) ;
ATSlocal (ats_size_type, tmp293) ;
ATSlocal (ats_ptr_type, tmp294) ;
ATSlocal (ats_size_type, tmp295) ;

__ats_lab_loop2_77:
tmp289 = ptr0_get_01759_ats_char_type (arg0) ;
tmp290 = atspre_eq_char_char (tmp289, '\000') ;
if (tmp290) {
tmp288 = arg2 ;
} else {
tmp291 = atspre_eq_char_char (tmp289, ':') ;
if (tmp291) {
tmp292 = ptr_succ_char_0 (arg0) ;
tmp293 = atspre_add_size_int (arg1, 1) ;
arg0 = tmp292 ;
arg1 = tmp293 ;
arg2 = arg2 ;
goto __ats_lab_loop2_77 ; // tail call
} else {
tmp294 = ptr_succ_char_0 (arg0) ;
tmp295 = atspre_add_size_int (arg1, 1) ;
tmp288 = loop3_78 (env0, tmp294, arg1, tmp295, arg2) ;
} /* end of [if] */
} /* end of [if] */
return (tmp288) ;
} /* end of [loop2_77] */

typedef struct {
ats_fun_ptr_type closure_fun ;
ats_ptr_type closure_env_0 ;
} loop2_77_closure_type ;

ats_ptr_type
loop2_77_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0, ats_size_type arg1, ats_ptr_type arg2) {
return loop2_77 (((loop2_77_closure_type*)cloptr)->closure_env_0, arg0, arg1, arg2) ;
} /* end of function */

ATSinline()
ats_void_type
loop2_77_closure_init (loop2_77_closure_type *p_clo, ats_ptr_type env0) {
p_clo->closure_fun = (ats_fun_ptr_type)&loop2_77_clofun ;
p_clo->closure_env_0 = env0 ;
return ;
} /* end of function */

ats_clo_ptr_type
loop2_77_closure_make (ats_ptr_type env0) {
loop2_77_closure_type *p_clo = ATS_MALLOC(sizeof(loop2_77_closure_type)) ;
loop2_77_closure_init (p_clo, env0) ;
return (ats_clo_ptr_type)p_clo ;
} /* end of function */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 25539(line=1555, offs=1) -- 26072(line=1600, offs=4)
*/
ATSstaticdec()
ats_ptr_type
loop3_78 (ats_ptr_type env0, ats_ptr_type arg0, ats_size_type arg1, ats_size_type arg2, ats_ptr_type arg3) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp296) ;
ATSlocal (ats_char_type, tmp297) ;
ATSlocal (ats_bool_type, tmp298) ;
ATSlocal (ats_ptr_type, tmp299) ;
ATSlocal (ats_bool_type, tmp300) ;
ATSlocal (ats_ptr_type, tmp301) ;
ATSlocal (ats_ptr_type, tmp302) ;
ATSlocal (ats_size_type, tmp303) ;
ATSlocal (ats_ptr_type, tmp304) ;
ATSlocal (ats_ptr_type, tmp305) ;
ATSlocal (ats_size_type, tmp306) ;

__ats_lab_loop3_78:
tmp297 = ptr0_get_01759_ats_char_type (arg0) ;
tmp298 = atspre_eq_char_char (tmp297, '\000') ;
if (tmp298) {
tmp299 = my_make_substring_range_73 (env0, arg1, arg2) ;
tmp296 = pathlst_insert_75 (arg3, tmp299) ;
} else {
tmp300 = atspre_eq_char_char (tmp297, ':') ;
if (tmp300) {
tmp301 = my_make_substring_range_73 (env0, arg1, arg2) ;
tmp302 = ptr_succ_char_0 (arg0) ;
tmp303 = atspre_add_size_int (arg2, 1) ;
tmp304 = pathlst_insert_75 (arg3, tmp301) ;
tmp296 = loop2_77 (env0, tmp302, tmp303, tmp304) ;
} else {
tmp305 = ptr_succ_char_0 (arg0) ;
tmp306 = atspre_add_size_int (arg2, 1) ;
arg0 = tmp305 ;
arg1 = arg1 ;
arg2 = tmp306 ;
arg3 = arg3 ;
goto __ats_lab_loop3_78 ; // tail call
} /* end of [if] */
} /* end of [if] */
return (tmp296) ;
} /* end of [loop3_78] */

typedef struct {
ats_fun_ptr_type closure_fun ;
ats_ptr_type closure_env_0 ;
} loop3_78_closure_type ;

ats_ptr_type
loop3_78_clofun (ats_clo_ptr_type cloptr, ats_ptr_type arg0, ats_size_type arg1, ats_size_type arg2, ats_ptr_type arg3) {
return loop3_78 (((loop3_78_closure_type*)cloptr)->closure_env_0, arg0, arg1, arg2, arg3) ;
} /* end of function */

ATSinline()
ats_void_type
loop3_78_closure_init (loop3_78_closure_type *p_clo, ats_ptr_type env0) {
p_clo->closure_fun = (ats_fun_ptr_type)&loop3_78_clofun ;
p_clo->closure_env_0 = env0 ;
return ;
} /* end of function */

ats_clo_ptr_type
loop3_78_closure_make (ats_ptr_type env0) {
loop3_78_closure_type *p_clo = ATS_MALLOC(sizeof(loop3_78_closure_type)) ;
loop3_78_closure_init (p_clo, env0) ;
return (ats_clo_ptr_type)p_clo ;
} /* end of function */

/*
// /nix/store/rfja8ixrs5wb4kj3kiwlch1apnh7qgvy-ats-0.2.12/lib/ats-anairiats-0.2.12/prelude/DATS/list_vt.dats: 7889(line=308, offs=7) -- 8174(line=317, offs=28)
*/
ATSstaticdec()
ats_ptr_type
revapp_81 (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp310) ;
ATSlocal (ats_ptr_type, tmp311) ;
ATSlocal (ats_ptr_type, tmp312) ;
ATSlocal (ats_ptr_type, tmp313) ;

__ats_lab_revapp_81:
do {
/* branch: __ats_lab_26 */
__ats_lab_26_0:
if (arg0 == (ats_sum_ptr_type)0) { goto __ats_lab_27_0 ; }
__ats_lab_26_1:
tmp311 = &ats_caselptrlab_mac(anairiats_sum_2, arg0, atslab_1) ;
tmp312 = ats_ptrget_mac(ats_ptr_type, tmp311) ;
ats_ptrget_mac(ats_ptr_type, tmp311) = arg1 ;
tmp313 = arg0 ;
arg0 = tmp312 ;
arg1 = tmp313 ;
goto __ats_lab_revapp_81 ; // tail call
break ;

/* branch: __ats_lab_27 */
__ats_lab_27_0:
// if (arg0 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_27_1:
tmp310 = arg1 ;
break ;
} while (0) ;
return (tmp310) ;
} /* end of [revapp_81] */

/*
// /nix/store/rfja8ixrs5wb4kj3kiwlch1apnh7qgvy-ats-0.2.12/lib/ats-anairiats-0.2.12/prelude/DATS/list_vt.dats: 7770(line=303, offs=24) -- 8220(line=321, offs=4)
*/
ATSstaticdec()
ats_ptr_type
list_vt_reverse_append_01507_ats_ptr_type (ats_ptr_type arg0, ats_ptr_type arg1) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp309) ;

__ats_lab_list_vt_reverse_append_01507_ats_ptr_type:
tmp309 = revapp_81 (arg0, arg1) ;
return (tmp309) ;
} /* end of [list_vt_reverse_append_01507_ats_ptr_type] */

/*
// /nix/store/rfja8ixrs5wb4kj3kiwlch1apnh7qgvy-ats-0.2.12/lib/ats-anairiats-0.2.12/prelude/DATS/list_vt.dats: 7652(line=298, offs=17) -- 7704(line=299, offs=46)
*/
ATSstaticdec()
ats_ptr_type
list_vt_reverse_01506_ats_ptr_type (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp308) ;
ATSlocal (ats_ptr_type, tmp314) ;

__ats_lab_list_vt_reverse_01506_ats_ptr_type:
tmp314 = (ats_sum_ptr_type)0 ;
tmp308 = list_vt_reverse_append_01507_ats_ptr_type (arg0, tmp314) ;
return (tmp308) ;
} /* end of [list_vt_reverse_01506_ats_ptr_type] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 25120(line=1519, offs=1) -- 26213(line=1609, offs=4)
*/
ATSstaticdec()
ats_ptr_type
the_PATSHOMELOCS_split_76 (ats_ptr_type arg0) {
/* local vardec */
ATSlocal (ats_ptr_type, tmp286) ;
ATSlocal (ats_char_type, tmp287) ;
ATSlocal (ats_ptr_type, tmp307) ;
ATSlocal (ats_ptr_type, tmp315) ;
ATSlocal (ats_ptr_type, tmp316) ;

__ats_lab_the_PATSHOMELOCS_split_76:
tmp287 = patsopt_filename_theDirSep_get () ;
tmp316 = (ats_sum_ptr_type)0 ;
tmp315 = loop2_77 (arg0, ats_castfn_mac(ats_ptr_type, arg0), 0, tmp316) ;
tmp307 = list_vt_reverse_01506_ats_ptr_type (tmp315) ;
tmp286 = ats_castfn_mac(ats_ptr_type, tmp307) ;
return (tmp286) ;
} /* end of [the_PATSHOMELOCS_split_76] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 26256(line=1612, offs=1) -- 26898(line=1657, offs=4)
*/
ATSstaticdec()
ats_ptr_type
the_PATSHOMELOCS_initize_82 () {
/* local vardec */
ATSlocal (ats_ptr_type, tmp317) ;
ATSlocal (ats_ptr_type, tmp318) ;
ATSlocal (ats_bool_type, tmp319) ;
ATSlocal (ats_ptr_type, tmp320) ;
ATSlocal (ats_ptr_type, tmp321) ;
ATSlocal (ats_ptr_type, tmp322) ;
ATSlocal (ats_ptr_type, tmp323) ;

__ats_lab_the_PATSHOMELOCS_initize_82:
tmp318 = patsopt_PATSHOMELOCS_get () ;
tmp319 = atspre_stropt_is_some (tmp318) ;
if (tmp319) {
tmp320 = the_PATSHOMELOCS_split_76 (ats_castfn_mac(ats_ptr_type, tmp318)) ;
tmp321 = ATS_MALLOC(sizeof(anairiats_sum_3)) ;
ats_selptrset_mac(anairiats_sum_3, tmp321, atslab_0, tmp320) ;
ats_ptrget_mac(ats_ptr_type, statmp284) = tmp321 ;
tmp317 = tmp320 ;
} else {
tmp322 = (ats_sum_ptr_type)0 ;
tmp323 = ATS_MALLOC(sizeof(anairiats_sum_3)) ;
ats_selptrset_mac(anairiats_sum_3, tmp323, atslab_0, tmp322) ;
ats_ptrget_mac(ats_ptr_type, statmp284) = tmp323 ;
tmp317 = tmp322 ;
} /* end of [if] */
return (tmp317) ;
} /* end of [the_PATSHOMELOCS_initize_82] */

/*
// /tmp/ATS-Postiats/src/pats_filename.dats: 26983(line=1663, offs=3) -- 27121(line=1674, offs=4)
*/
ATSglobaldec()
ats_ptr_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_PATSHOMELOCS_get_pathlst () {
/* local vardec */
ATSlocal (ats_ptr_type, tmp324) ;
ATSlocal (ats_ptr_type, tmp325) ;
ATSlocal (ats_ptr_type, tmp326) ;

__ats_lab__2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_PATSHOMELOCS_get_pathlst:
tmp325 = ats_ptrget_mac(ats_ptr_type, statmp284) ;
do {
/* branch: __ats_lab_28 */
__ats_lab_28_0:
if (tmp325 == (ats_sum_ptr_type)0) { goto __ats_lab_29_0 ; }
__ats_lab_28_1:
tmp326 = ats_caselptrlab_mac(anairiats_sum_3, tmp325, atslab_0) ;
tmp324 = tmp326 ;
break ;

/* branch: __ats_lab_29 */
__ats_lab_29_0:
// if (tmp325 != (ats_sum_ptr_type)0) { ats_deadcode_failure_handle () ; }
__ats_lab_29_1:
tmp324 = the_PATSHOMELOCS_initize_82 () ;
break ;
} while (0) ;
return (tmp324) ;
} /* end of [_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__the_PATSHOMELOCS_get_pathlst] */

/* static load function */

// extern ats_void_type _2tmp_2ATS_2dPostiats_2src_2pats_atspre_2edats__staload (void) ;
// extern ats_void_type ATS_2d0_2e2_2e12_2prelude_2SATS_2unsafe_2esats__staload (void) ;
extern ats_void_type ATS_2d0_2e2_2e12_2prelude_2DATS_2unsafe_2edats__staload (void) ;
extern ats_void_type _2tmp_2ATS_2dPostiats_2src_2pats_utils_2esats__staload (void) ;
extern ats_void_type _2tmp_2ATS_2dPostiats_2src_2pats_utils_2edats__staload (void) ;
extern ats_void_type _2tmp_2ATS_2dPostiats_2src_2pats_location_2esats__staload (void) ;
extern ats_void_type _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__staload (void) ;
extern ats_void_type _2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__staload (void) ;
extern ats_void_type ATS_2d0_2e2_2e12_2libc_2SATS_2string_2esats__staload (void) ;
extern ats_void_type ATS_2d0_2e2_2e12_2libc_2SATS_2unistd_2esats__staload (void) ;

ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2edats__staload () {
static int _2tmp_2ATS_2dPostiats_2src_2pats_filename_2edats__staload_flag = 0 ;
if (_2tmp_2ATS_2dPostiats_2src_2pats_filename_2edats__staload_flag) return ;
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2edats__staload_flag = 1 ;

// _2tmp_2ATS_2dPostiats_2src_2pats_atspre_2edats__staload () ;
// ATS_2d0_2e2_2e12_2prelude_2SATS_2unsafe_2esats__staload () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2unsafe_2edats__staload () ;
_2tmp_2ATS_2dPostiats_2src_2pats_utils_2esats__staload () ;
_2tmp_2ATS_2dPostiats_2src_2pats_utils_2edats__staload () ;
_2tmp_2ATS_2dPostiats_2src_2pats_location_2esats__staload () ;
_2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__staload () ;
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__staload () ;
ATS_2d0_2e2_2e12_2libc_2SATS_2string_2esats__staload () ;
ATS_2d0_2e2_2e12_2libc_2SATS_2unistd_2esats__staload () ;

return ;
} /* staload function */

/* dynamic load function */

// dynload flag declaration
extern ats_int_type _2tmp_2ATS_2dPostiats_2src_2pats_filename_2edats__dynload_flag ;

ats_void_type
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2edats__dynload () {
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2edats__dynload_flag = 1 ;
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2edats__staload () ;

#ifdef _ATS_PROOFCHECK
ATS_2d0_2e2_2e12_2prelude_2SATS_2list_2esats__list_length_is_nonnegative_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2SATS_2list_vt_2esats__list_vt_length_is_nonnegative_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2SATS_2array_2esats__array_v_takeout2_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_vt_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_vt_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_vt_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_vt_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_vt_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_vt_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2array_2edats____copy_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2array_2edats____free_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2array_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2array_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2prelude_2DATS_2list_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2libats_2ngc_2SATS_2deque_arr_2esats__lemma_deque_param_prfck () ;
ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats__DEQUEarr_v_encode_prfck () ;
ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats__DEQUEarr_v_decode_prfck () ;
ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats__DEQUEarr_v_clear_prfck () ;
ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats__DEQUEarr_insert_beg_prfck () ;
ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats__DEQUEarr_insert_end_prfck () ;
ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats__DEQUEarr_remove_beg_prfck () ;
ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats__DEQUEarr_remove_end_prfck () ;
ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats____assert_prfck () ;
ATS_2d0_2e2_2e12_2libats_2ngc_2DATS_2deque_arr_2edats____assert_prfck () ;
_2tmp_2ATS_2dPostiats_2src_2pats_utils_2edats____assert_prfck () ;
_2tmp_2ATS_2dPostiats_2src_2pats_utils_2edats____assert_prfck () ;
#endif /* _ATS_PROOFCHECK */

/* marking static variables for GC */
ATS_GC_MARKROOT(&statmp59, sizeof(ats_ptr_type)) ;
ATS_GC_MARKROOT(&statmp60, sizeof(ats_ptr_type)) ;
ATS_GC_MARKROOT(&statmp61, sizeof(ats_ptr_type)) ;
ATS_GC_MARKROOT(&statmp139, sizeof(ats_ptr_type)) ;
ATS_GC_MARKROOT(&statmp143, sizeof(ats_ptr_type)) ;
ATS_GC_MARKROOT(&statmp144, sizeof(ats_ptr_type)) ;
ATS_GC_MARKROOT(&statmp179, sizeof(ats_ptr_type)) ;
ATS_GC_MARKROOT(&statmp180, sizeof(ats_ptr_type)) ;
ATS_GC_MARKROOT(&statmp181, sizeof(ats_ptr_type)) ;
ATS_GC_MARKROOT(&statmp182, sizeof(ats_ptr_type)) ;
ATS_GC_MARKROOT(&statmp284, sizeof(ats_ptr_type)) ;
ATS_GC_MARKROOT(&statmp285, sizeof(ats_ptr_type)) ;

/* marking external values for GC */

/* code for dynamic loading */
statmp59 = ATS_MALLOC(sizeof(anairiats_rec_1)) ;
ats_selptrset_mac(anairiats_rec_1, statmp59, atslab_filename_givename, ATSstrcst("")) ;
ats_selptrset_mac(anairiats_rec_1, statmp59, atslab_filename_partname, ATSstrcst("")) ;
ats_selptrset_mac(anairiats_rec_1, statmp59, atslab_filename_fullname, _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__symbol_empty) ;

ATS_GC_MARKROOT(&_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_dummy, sizeof(ats_ptr_type)) ;
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_dummy = statmp59 ;
statmp60 = ATS_MALLOC(sizeof(anairiats_rec_1)) ;
ats_selptrset_mac(anairiats_rec_1, statmp60, atslab_filename_givename, ATSstrcst("__STDIN__")) ;
ats_selptrset_mac(anairiats_rec_1, statmp60, atslab_filename_partname, ATSstrcst("__STDIN__")) ;
ats_selptrset_mac(anairiats_rec_1, statmp60, atslab_filename_fullname, _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__symbol__STDIN__) ;

ATS_GC_MARKROOT(&_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_stdin, sizeof(ats_ptr_type)) ;
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_stdin = statmp60 ;
statmp61 = ATS_MALLOC(sizeof(anairiats_rec_1)) ;
ats_selptrset_mac(anairiats_rec_1, statmp61, atslab_filename_givename, ATSstrcst("__STRING__")) ;
ats_selptrset_mac(anairiats_rec_1, statmp61, atslab_filename_partname, ATSstrcst("__STRING__")) ;
ats_selptrset_mac(anairiats_rec_1, statmp61, atslab_filename_fullname, _2tmp_2ATS_2dPostiats_2src_2pats_symbol_2esats__symbol__STRING__) ;

ATS_GC_MARKROOT(&_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_string, sizeof(ats_ptr_type)) ;
_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_string = statmp61 ;
statmp139 = ref_make_elt_01089_ats_ptr_type (_2tmp_2ATS_2dPostiats_2src_2pats_filename_2esats__filename_dummy) ;
statmp144 = (ats_sum_ptr_type)0 ;
statmp143 = ref_make_elt_01089_ats_ptr_type (statmp144) ;
statmp180 = (ats_sum_ptr_type)0 ;
statmp179 = ref_make_elt_01089_ats_ptr_type (statmp180) ;
statmp182 = (ats_sum_ptr_type)0 ;
statmp181 = ref_make_elt_01089_ats_ptr_type (statmp182) ;
statmp285 = (ats_sum_ptr_type)0 ;
statmp284 = ref_01088_ats_ptr_type (statmp285) ;
return ;
} /* end of [dynload function] */

/* external codes at mid */
/* external codes at bot */


ats_ptr_type
patsopt_filename_merge
(
  ats_ptr_type ful, ats_ptr_type bas
) {
  char c, dirsep ;
  char *p0, *p1, *p ;
  int n, n1, n2, found = 0 ;
  char *fulbas ;
  p0 = p = (char*)ful ;
  dirsep =
    patsopt_filename_theDirSep_get () ;
//
  while (1) {
    c = *p++ ;
    if (c == 0) break ;
    if (c == dirsep) { found = 1 ; p1 = p ; }
  }
//
  n1 = 0 ;
  if (found) n1 = (p1-p0) ;
  n2 = strlen ((char*)bas) ;
  n = n1 + n2 ;
  fulbas = ATS_MALLOC (n+1) ;
  memcpy (fulbas, ful, n1) ;
  memcpy (fulbas + n1, bas, n2) ;
  fulbas[n] = '\000' ;
//
  return fulbas ;
//
} // end of [patsopt_filename_merge]

ats_ptr_type
patsopt_filename_dirbase
(
  ats_ptr_type dir, ats_ptr_type bas
) {
  int n1, n2, n ;
  char dirsep, *dirbas ;
//
  dirsep = patsopt_filename_theDirSep_get () ;
//
  n1 = strlen ((char*)dir) ;
  n2 = strlen ((char*)bas) ;
  n = n1 + n2 ;
//
  if (n1 > 0 && ((char*)dir)[n1-1] != dirsep) n += 1 ;
  dirbas = ATS_MALLOC (n + 1) ;
  memcpy (dirbas, dir, n1) ;
  if (n > n1 + n2) { dirbas[n1] = dirsep ; n1 += 1 ; }
  memcpy (dirbas + n1, bas, n2) ;
  dirbas[n] = '\000' ;
//
  return dirbas ;
} /* end of [patsopt_filename_dirbase] */



/* ****** ****** */

/* end of [pats_filename_dats.c] */
