/* ** ** The C code is generated by ATS/Anairiats ** The compilation time is: 2011-9-10: 22h:10m ** */ /* 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/byte.cats" #include "prelude/CATS/char.cats" #include "prelude/CATS/float.cats" #include "prelude/CATS/integer.cats" #include "prelude/CATS/integer_fixed.cats" #include "prelude/CATS/integer_ptr.cats" #include "prelude/CATS/lazy.cats" #include "prelude/CATS/lazy_vt.cats" #include "prelude/CATS/pointer.cats" #include "prelude/CATS/printf.cats" #include "prelude/CATS/reference.cats" #include "prelude/CATS/sizetype.cats" #include "prelude/CATS/string.cats" #include "prelude/CATS/array.cats" #include "prelude/CATS/list.cats" #include "prelude/CATS/matrix.cats" #include "prelude/CATS/option.cats" #endif /* _ATS_PRELUDE_NONE */ /* prologues from statically loaded files */ /* external codes at top */ /* type definitions */ /* external typedefs */ /* external dynamic constructor declarations */ /* external dynamic constant declarations */ ATSextern_fun(ats_int64_type, atspre_int64_of_int) (ats_int_type) ; ATSextern_fun(ats_int64_type, atspre_add_int64_int64) (ats_int64_type, ats_int64_type) ; ATSextern_fun(ats_bool_type, atspre_eq_int64_int64) (ats_int64_type, ats_int64_type) ; ATSextern_fun(ats_bool_type, atspre_neq_int64_int64) (ats_int64_type, ats_int64_type) ; ATSextern_fun(ats_void_type, atspre_fprint_int64) (ats_ptr_type, ats_int64_type) ; ATSextern_fun(ats_ptr_type, atspre_ref_make_elt_tsz) (ats_ref_type, ats_size_type) ; ATSextern_fun(ats_void_type, _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__fprint_stamp) (ats_ptr_type, ats_int64_type) ; /* external dynamic terminating constant declarations */ #ifdef _ATS_PROOFCHECK #endif /* _ATS_PROOFCHECK */ /* sum constructor declarations */ /* exn constructor declarations */ /* global dynamic (non-functional) constant declarations */ /* internal function declarations */ static ats_ptr_type ref_01023_ats_int64_type (ats_int64_type arg0) ; static ats_ptr_type ref_make_elt_01024_ats_int64_type (ats_int64_type arg0) ; /* partial value template declarations */ /* static temporary variable declarations */ ATSstatic (ats_ptr_type, statmp0) ; ATSstatic (ats_int64_type, statmp4) ; /* external value variable declarations */ /* function implementations */ /* // /home/fac2/hwxi/research/ATS/IMPLEMENT/Geizella/Anairiats/svn/ats-lang/prelude/DATS/reference.dats: 1834(line=59, offs=18) -- 1908(line=61, offs=4) */ ATSstaticdec() ats_ptr_type ref_01023_ats_int64_type (ats_int64_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp2) ; ATSlocal (ats_int64_type, tmp3) ; __ats_lab_ref_01023_ats_int64_type: #line 60 "reference.dats" /* ats_int64_type tmp3 ; */ #line 60 "reference.dats" tmp3 = arg0 ; #line 60 "reference.dats" tmp2 = atspre_ref_make_elt_tsz ((&tmp3), sizeof(ats_int64_type)) ; return (tmp2) ; } /* end of [ref_01023_ats_int64_type] */ /* // /home/fac2/hwxi/research/ATS/IMPLEMENT/Geizella/Anairiats/svn/ats-lang/prelude/DATS/reference.dats: 2000(line=64, offs=27) -- 2015(line=64, offs=42) */ ATSstaticdec() ats_ptr_type ref_make_elt_01024_ats_int64_type (ats_int64_type arg0) { /* local vardec */ ATSlocal (ats_ptr_type, tmp1) ; __ats_lab_ref_make_elt_01024_ats_int64_type: #line 64 "reference.dats" tmp1 = ref_01023_ats_int64_type (arg0) ; return (tmp1) ; } /* end of [ref_make_elt_01024_ats_int64_type] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/stamp.dats: 418(line=28, offs=22) -- 506(line=33, offs=4) */ ATSglobaldec() ats_int64_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__stamp_make () { /* local vardec */ ATSlocal (ats_int64_type, tmp5) ; ATSlocal (ats_int64_type, tmp6) ; ATSlocal (ats_int64_type, tmp7) ; ATSlocal (ats_int64_type, tmp8) ; __ats_lab__2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__stamp_make: #line 29 "stamp.dats" tmp6 = ats_ptrget_mac(ats_int64_type, statmp0) ; #line 30 "stamp.dats" tmp8 = atspre_int64_of_int (1) ; #line 30 "stamp.dats" tmp7 = atspre_add_int64_int64 (tmp6, tmp8) ; #line 30 "stamp.dats" ats_ptrget_mac(ats_int64_type, statmp0) = tmp7 ; #line 32 "stamp.dats" tmp5 = tmp6 ; return (tmp5) ; } /* end of [_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__stamp_make] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/stamp.dats: 575(line=37, offs=24) -- 607(line=37, offs=56) */ ATSglobaldec() ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__fprint_stamp (ats_ptr_type arg0, ats_int64_type arg1) { /* local vardec */ // ATSlocal_void (tmp9) ; __ats_lab__2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__fprint_stamp: #line 37 "stamp.dats" /* tmp9 = */ atspre_fprint_int64 (arg0, arg1) ; return /* (tmp9) */ ; } /* end of [_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__fprint_stamp] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/stamp.dats: 631(line=39, offs=23) -- 665(line=39, offs=57) */ ATSglobaldec() ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__print_stamp (ats_int64_type arg0) { /* local vardec */ // ATSlocal_void (tmp10) ; __ats_lab__2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__print_stamp: #line 39 "stamp.dats" /* tmp10 = */ _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__fprint_stamp (stdout, arg0) ; return /* (tmp10) */ ; } /* end of [_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__print_stamp] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/stamp.dats: 688(line=40, offs=23) -- 722(line=40, offs=57) */ ATSglobaldec() ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__prerr_stamp (ats_int64_type arg0) { /* local vardec */ // ATSlocal_void (tmp11) ; __ats_lab__2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__prerr_stamp: #line 40 "stamp.dats" /* tmp11 = */ _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__fprint_stamp (stderr, arg0) ; return /* (tmp11) */ ; } /* end of [_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__prerr_stamp] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/stamp.dats: 770(line=44, offs=26) -- 804(line=44, offs=60) */ ATSglobaldec() ats_bool_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__eq_stamp_stamp (ats_int64_type arg0, ats_int64_type arg1) { /* local vardec */ ATSlocal (ats_bool_type, tmp12) ; __ats_lab__2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__eq_stamp_stamp: #line 44 "stamp.dats" tmp12 = atspre_eq_int64_int64 (arg0, arg1) ; return (tmp12) ; } /* end of [_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__eq_stamp_stamp] */ /* // /cs-pub/www-dir/faculty/hwxi/academic/courses/CS525/Spring09/code/Tiger/stamp.dats: 831(line=45, offs=27) -- 866(line=45, offs=62) */ ATSglobaldec() ats_bool_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__neq_stamp_stamp (ats_int64_type arg0, ats_int64_type arg1) { /* local vardec */ ATSlocal (ats_bool_type, tmp13) ; __ats_lab__2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__neq_stamp_stamp: #line 45 "stamp.dats" tmp13 = atspre_neq_int64_int64 (arg0, arg1) ; return (tmp13) ; } /* end of [_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__neq_stamp_stamp] */ /* static load function */ extern ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__staload (void) ; extern ats_void_type ATS_2d0_2e2_2e6_2prelude_2DATS_2reference_2edats__staload (void) ; ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2edats__staload () { static int _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2edats__staload_flag = 0 ; if (_2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2edats__staload_flag) return ; _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2edats__staload_flag = 1 ; _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2esats__staload () ; ATS_2d0_2e2_2e6_2prelude_2DATS_2reference_2edats__staload () ; return ; } /* staload function */ /* dynamic load function */ // dynload flag declaration extern ats_int_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2edats__dynload_flag ; ats_void_type _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2edats__dynload () { _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2edats__dynload_flag = 1 ; _2cs_2dpub_2www_2ddir_2faculty_2hwxi_2academic_2courses_2CS525_2Spring09_2code_2Tiger_2stamp_2edats__staload () ; #ifdef _ATS_PROOFCHECK #endif /* _ATS_PROOFCHECK */ /* marking static variables for GC */ ATS_GC_MARKROOT(&statmp0, sizeof(ats_ptr_type)) ; ATS_GC_MARKROOT(&statmp4, sizeof(ats_int64_type)) ; /* marking external values for GC */ /* code for dynamic loading */ #line 24 "stamp.dats" statmp4 = atspre_int64_of_int (0) ; #line 24 "stamp.dats" statmp0 = ref_make_elt_01024_ats_int64_type (statmp4) ; return ; } /* end of [dynload function] */ /* external codes at mid */ /* external codes at bot */ /* ****** ****** */ /* end of [stamp_dats.c] */