/* * * The following C code is generated by ATSCC * The compilation time is: 2007-9-17: 7:23 * */ #include "ats_basics.h" #include "ats_exception.h" #include "ats_memory.h" #include "ats_types.h" /* include some .cats files */ #include "prelude/CATS/array.cats" #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/pointer.cats" #include "prelude/CATS/printf.cats" #include "prelude/CATS/reference.cats" #include "prelude/CATS/string.cats" /* external codes at top */ /* type definitions */ /* external dynamic constructor declarations */ /* external dynamic constant declarations */ extern ats_void_type ats_print_newline() ; extern ats_void_type ats_print_string(ats_abs_type) ; /* internal function declarations */ /* sum constructor declarations */ /* exception constructor declarations */ /* global dynamic constant declarations */ /* static temporary variable declarations */ /* function implementations */ ats_void_type ats_main (ats_int_type arg0, ats_ref_type arg1) { ATSlocal_void(tmp0) ; ATSlocal_void(tmp1) ; __ats_lab_ats_main: /* tmp1 = */ ats_print_string ("Hello, world!") ; /* tmp0 = */ ats_print_newline () ; return ; } /* fun */ /* static load function */ static int _2fsw_2fpub_2fwww_2ffaculty_2fhwxi_2fATS_2fEXAMPLE_2fINTRO_2fHelloWorld_2edats__staload_flag = 0 ; ats_void_type _2fsw_2fpub_2fwww_2ffaculty_2fhwxi_2fATS_2fEXAMPLE_2fINTRO_2fHelloWorld_2edats__staload () { if (_2fsw_2fpub_2fwww_2ffaculty_2fhwxi_2fATS_2fEXAMPLE_2fINTRO_2fHelloWorld_2edats__staload_flag) return ; _2fsw_2fpub_2fwww_2ffaculty_2fhwxi_2fATS_2fEXAMPLE_2fINTRO_2fHelloWorld_2edats__staload_flag = 1 ; } /* dynamic load function */ ats_void_type _2fsw_2fpub_2fwww_2ffaculty_2fhwxi_2fATS_2fEXAMPLE_2fINTRO_2fHelloWorld_2edats__dynload () { _2fsw_2fpub_2fwww_2ffaculty_2fhwxi_2fATS_2fEXAMPLE_2fINTRO_2fHelloWorld_2edats__staload () ; } /* main function */ int main (int argc, char *argv[]) { ats_gc_init () ; _2fsw_2fpub_2fwww_2ffaculty_2fhwxi_2fATS_2fEXAMPLE_2fINTRO_2fHelloWorld_2edats__dynload () ; ats_main ((ats_int_type)argc, (ats_ptr_type)argv) ; return 0 ; } /* end of main */ /* external types */ /* external codes at mid */ /* external codes at bot */