std/std_init.c

   1 /*
   2     std_init.c - MaLa standard module initialization table
   3
   4   Copyright (C) 2005, Christian Thaeter <chth@gmx.net>
   5
   6   This program is free software; you can redistribute it and/or modify
   7   it under the terms of the GNU General Public License version 2 as
   8   published by the Free Software Foundation.
   9
  10   This program is distributed in the hope that it will be useful,
  11   but WITHOUT ANY WARRANTY; without even the implied warranty of
  12   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13   GNU General Public License for more details.
  14
  15   You should have received a copy of the GNU General Public License
  16   along with this program; if not, contact me.
  17
  18 */
  19 \f
  20 #include <stdio.h>
  21 #include <string.h>
  22
  23 #include "mala.h"
  24 #include "std.h"
  25
  26 static
  27 mala_actioninit std_actions[] =
  28   {
  29     /*
  30     MALA_PARSER("--", mala__parser, NULL, NULL, NULL),
  31     MALA_PARSER_BRIEF("--", ""),
  32     MALA_PARSER_HELP("--", ("TODO")),
  33     MALA_PARSER_SIGNATURE_TYPE("--", ("")),
  34     MALA_PARSER_SIGNATURE_USAGE("--", ("")),
  35     MALA_PARSER_RESULT_TYPE("--", ("")),
  36     MALA_PARSER_RESULT_USAGE("--", ("")),
  37
  38
  39     MALA_PARSER("--CHILDOF", mala__parser, NULL, NULL, NULL),
  40     MALA_PARSER_BRIEF("--", ""),
  41     MALA_PARSER_HELP("--", ("TODO")),
  42     MALA_PARSER_SIGNATURE_TYPE("--", ("")),
  43     MALA_PARSER_SIGNATURE_USAGE("--", ("")),
  44     MALA_PARSER_RESULT_TYPE("--", ("")),
  45     MALA_PARSER_RESULT_USAGE("--", ("")),
  46
  47     MALA_PARSER("--FOREACH-WORD", mala_foreach_word_parser, NULL, NULL, NULL),
  48     MALA_PARSER_BRIEF("--", ""),
  49     MALA_PARSER_HELP("--", ("TODO")),
  50     MALA_PARSER_SIGNATURE_TYPE("--", ("")),
  51     MALA_PARSER_SIGNATURE_USAGE("--", ("")),
  52     MALA_PARSER_RESULT_TYPE("--", ("")),
  53     MALA_PARSER_RESULT_USAGE("--", ("")),
  54     */
  55
  56     MALA_SUBSTITUTE_PARSER("--MALA-VERSION","MaLa 0.2 ("__DATE__" "__TIME__")"),
  57     MALA_PARSER_BRIEF("--MALA-VERSION", "Holds the version"),
  58
  59     MALA_SUBSTITUTE_PARSER("--DEFAULT-PARSER","--LITERAL"),
  60     MALA_PARSER_BRIEF("--DEFAULT-PARSER", "is used for any word which has no associated action"),
  61     // MALA_PARSER_HELP("--DEFAULT-PARSER", ("TODO")),
  62     // MALA_PARSER_SIGNATURE_TYPE("--", ("")),
  63     // MALA_PARSER_SIGNATURE_USAGE("--", ("")),
  64     // MALA_PARSER_RESULT_TYPE("--", ("")),
  65     // MALA_PARSER_RESULT_USAGE("--", ("")),
  66
  67     MALA_TRUE_PARSER("--FLAG-NUMSPLIT-EXPANSION"),
  68     // MALA_PARSER_BRIEF("--FLAG-NUMSPLIT-EXPANSION", "TODO"),
  69     // MALA_PARSER_HELP("--FLAG-NUMSPLIT-EXPANSION", ("TODO")),
  70
  71     MALA_TRUE_PARSER("--FLAG-LITERAL-EXPANSION"),
  72     MALA_PARSER_BRIEF("--FLAG-LITERAL-EXPANSION",
  73                       "words beginning with a single backquote will be "
  74                       "preprocessed as '--LITERAL' 'theword'"),
  75     // MALA_PARSER_HELP("--FLAG-LITERAL-EXPANSION", ("TODO")),
  76
  77     MALA_TRUE_PARSER("--FLAG-EXCLAM-EXPANSION"),
  78     MALA_PARSER_BRIEF("--FLAG-EXCLAM-EXPANSION",
  79                       "a single ! will be preprocessed as --NOT"),
  80     // MALA_PARSER_HELP("--FLAG-EXCLAM-EXPANSION", ("TODO")),
  81
  82     MALA_TRUE_PARSER("--FLAG-NO-EXPANSION"),
  83     // MALA_PARSER_BRIEF("--", ""),
  84     // MALA_PARSER_HELP("--", ("TODO")),
  85
  86     MALA_TRUE_PARSER("--FLAG-ASSIGN-EXPANSION"),
  87     // MALA_PARSER_BRIEF("--", ""),
  88     // MALA_PARSER_HELP("--", ("TODO")),
  89
  90     MALA_TRUE_PARSER("--FLAG-ENVVAR-EXPANSION"),
  91     // MALA_PARSER_BRIEF("--", ""),
  92     // MALA_PARSER_HELP("--", ("TODO")),
  93
  94     MALA_TRUE_PARSER("--FLAG-CHAR-EXPANSION"),
  95     // MALA_PARSER_BRIEF("--", ""),
  96     // MALA_PARSER_HELP("--", ("TODO")),
  97
  98     MALA_TRUE_PARSER("--FLAG-UNDERSCORE-EXPANSION"),
  99     // MALA_PARSER_BRIEF("--", ""),
 100     // MALA_PARSER_HELP("--", ("TODO")),
 101
 102     MALA_TRUE_PARSER("--FLAG-SETENV-EXPANSION"),
 103     // MALA_PARSER_BRIEF("--", ""),
 104     // MALA_PARSER_HELP("--", ("TODO")),
 105
 106     MALA_TRUE_PARSER("--FLAG-BRACKET-EXPANSION"),
 107     // MALA_PARSER_BRIEF("--", ""),
 108     // MALA_PARSER_HELP("--", ("TODO")),
 109
 110     MALA_TRUE_PARSER("--FLAG-ASSIGN-CONTRACTION"),
 111     // MALA_PARSER_BRIEF("--", ""),
 112     // MALA_PARSER_HELP("--", ("TODO")),
 113
 114
 115
 116     // TODO to strings module
 117     //MALA_MACRO_PARSER("--CAT",("%1%2")),
 118     // MALA_PARSER_BRIEF("--CAT", "concatenates two words"),
 119     // MALA_PARSER_HELP("--CAT", ("TODO")),
 120     // MALA_PARSER_SIGNATURE_TYPE("--", ("")),
 121     // MALA_PARSER_SIGNATURE_USAGE("--", ("")),
 122     // MALA_PARSER_RESULT_TYPE("--", ("")),
 123     // MALA_PARSER_RESULT_USAGE("--", ("")),
 124
 125     // TODO remove this
 126     //MALA_EXPAND_PARSER("TESTLIST",("TEST","LIST")),
 127
 128
 129     MALA_ACTIONS_END
 130   };
 131
 132 int
 133 mala_module_std_init (MalaEngine self)
 134 {
 135   /*
 136   ! mala_module_std_macros_init (self)
 137     && ! mala_module_std_statements_init (self)
 138     && ! mala_module_std_io_init (self)
 139     && ! mala_engine_actions_register (self, std_actions);
 140     return self->state;*/
 141
 142   mala_engine_actions_register (self, std_actions);
 143
 144   return 0; // TODO
 145 }
 146
 147
 148 /*
 149 // Local Variables:
 150 // mode: C
 151 // c-file-style: "gnu"
 152 // End:
 153 // arch-tag: e6d43941-2533-4f28-863e-2dd3128e58bb
 154 // end_of_file
 155 */