src/main.c

   1 /*
   2 Copyright (C) 2007-2008, The Perl 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 #include <string.h>
  23
  24 #include "parrot/parrot.h"
  25 #include "parrot/embed.h"
  26 #include "parrot/imcc.h"
  27
  28 /*
  29
  30 =item C<int main(int argc, char * argv[])>
  31
  32 The entry point from the command line into Parrot.
  33
  34 =cut
  35
  36 */
  37
  38 int
  39 main(int argc, const char * argv[])
  40 {
  41     const char *sourcefile;
  42     Interp  *interp;
  43     int      status;
  44
  45     Parrot_set_config_hash();
  46
  47     interp = Parrot_new(NULL);
  48     imcc_initialize(interp);
  49
  50     /* We parse the arguments, but first store away the name of the Parrot
  51        executable, since parsing destroys that and we want to make it
  52        available. */
  53     Parrot_set_executable_name(interp, string_from_cstring(interp, argv[0], 0));
  54
  55     sourcefile = parseflags(interp, &argc, &argv);
  56     status     = imcc_run(interp, sourcefile, argc, argv);
  57     UNUSED(status);
  58
  59     /* Clean-up after ourselves */
  60     Parrot_destroy(interp);
  61     Parrot_exit(interp, 0);
  62 }
  63
  64 /*
  65
  66 =back
  67
  68 =head1 SEE ALSO
  69
  70 F<compilers/imcc/main.c>, unfortunately.
  71
  72 =cut
  73
  74 */
  75
  76 /*
  77  * Local variables:
  78  *   c-file-style: "parrot"
  79  * End:
  80  * vim: expandtab shiftwidth=4:
  81  */