src/main.c

   1 /*
   2 Copyright (C) 2007-2008, Parrot Foundation.
   3 $Id$
   4
   5 =head1 NAME
   6
   7 src/main.c - the Entry Point to Parrot Programs
   8
   9 =head1 DESCRIPTION
  10
  11 Start Parrot
  12
  13 =head2 Functions
  14
  15 =over 4
  16
  17 =cut
  18
  19 */
  20
  21 #include <stdio.h>
  22
  23 #include "parrot/parrot.h"
  24 #include "parrot/embed.h"
  25 #include "parrot/imcc.h"
  26
  27 /*
  28
  29 =item C<int main(int argc, char * argv[])>
  30
  31 The entry point from the command line into Parrot.
  32
  33 =cut
  34
  35 */
  36
  37 int
  38 main(int argc, char * argv[])
  39 {
  40     const char *sourcefile;
  41     Interp     *interp;
  42     int         status;
  43
  44     /* internationalization setup */
  45     /* setlocale(LC_ALL, ""); */
  46     PARROT_BINDTEXTDOMAIN(PACKAGE, LOCALEDIR);
  47     PARROT_TEXTDOMAIN(PACKAGE);
  48
  49     Parrot_set_config_hash();
  50
  51     interp = Parrot_new(NULL);
  52     imcc_initialize(interp);
  53
  54     /* We parse the arguments, but first store away the name of the Parrot
  55        executable, since parsing destroys that and we want to make it
  56        available. */
  57     Parrot_set_executable_name(interp, Parrot_str_new(interp, argv[0], 0));
  58
  59     sourcefile = parseflags(interp, &argc, &argv);
  60     status     = imcc_run(interp, sourcefile, argc, argv);
  61     UNUSED(status);
  62
  63     /* Clean-up after ourselves */
  64     Parrot_destroy(interp);
  65     Parrot_exit(interp, 0);
  66 }
  67
  68 /*
  69
  70 =back
  71
  72 =head1 SEE ALSO
  73
  74 F<compilers/imcc/main.c>, unfortunately.
  75
  76 =cut
  77
  78 */
  79
  80 /*
  81  * Local variables:
  82  *   c-file-style: "parrot"
  83  * End:
  84  * vim: expandtab shiftwidth=4:
  85  */