std/std.c

   1 /*
   2     std.c - MaLa standard parser module
   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
  22 #include "mala.h"
  23 #include "std.h"
  24
  25 static mala_actioninit std_actions[] =
  26   {
  27     /*
  28     MALA_PARSER("--", mala__parser, NULL, NULL, NULL),
  29     MALA_PARSER_BRIEF("--", ""),
  30     MALA_PARSER_HELP("--", ("--HELP-ACTION", "TODO")),
  31
  32     */
  33     /*
  34     MALA_MACRO_PARSER("--BRIEF", "--BRIEF.%1"),
  35     MALA_PARSER_BRIEF("--BRIEF", "gives a short note about a command"),
  36     MALA_PARSER_HELP("--BRIEF", ("--HELP-ACTION", "TODO")),
  37
  38     MALA_MACRO_PARSER("--HELP", "--HELP.%1"),
  39     MALA_PARSER_BRIEF("--HELP", "gives help about some command"),
  40     MALA_PARSER_HELP("--HELP", ("--HELP-ACTION", "TODO")),
  41
  42     MALA_PARSER("--DEF", mala_macrodef_parser, NULL, NULL, NULL),
  43     MALA_PARSER_BRIEF("--DEF", "defines a new macro"),
  44     MALA_PARSER_HELP("--DEF", ("--HELP-ACTION", "TODO")),
  45
  46     MALA_PARSER("--BEGIN", mala_block_parser, NULL, NULL, NULL),
  47     MALA_PARSER_BRIEF("--BEGIN", "starts a block of code"),
  48     MALA_PARSER_HELP("--BEGIN", ("--HELP-ACTION", "TODO")),
  49     */
  50
  51     MALA_PARSER("--NOT", mala_not_parser, NULL, NULL, NULL),
  52     MALA_PARSER_BRIEF("--NOT", "negates logic"),
  53     MALA_PARSER_HELP("--NOT", ("--HELP-ACTION", "TODO")),
  54
  55     MALA_PARSER("--LITERAL", mala_literal_parser, NULL, NULL, NULL),
  56     MALA_PARSER_BRIEF("--LITERAL", "Treats the next word literally"),
  57     MALA_PARSER_HELP("--LITERAL", ("--HELP-ACTION", "TODO")),
  58
  59     MALA_PARSER("--PRINTL", mala_printl_parser, NULL, NULL, NULL),
  60     MALA_PARSER_BRIEF("--PRINTL", "prints a word to stdout"),
  61     MALA_PARSER_HELP("--PRINTL", ("--HELP-ACTION", "blah")),
  62
  63     MALA_NULL_PARSER("--NULL"),
  64     MALA_PARSER_BRIEF("--NULL","does nothing"),
  65     MALA_PARSER_HELP("--NULL",("--HELP-ACTION","blah")),
  66
  67     MALA_TRUE_PARSER("--FLAG-NUMSPLIT-EXPANSION"),
  68     MALA_PARSER_BRIEF("--FLAG-NUMSPLIT-EXPANSION", "TODO"),
  69     MALA_PARSER_HELP("--FLAG-NUMSPLIT-EXPANSION", ("--HELP-ACTION", "TODO")),
  70
  71     MALA_TRUE_PARSER("--FLAG-LITERAL-EXPANSION"),
  72     MALA_PARSER_BRIEF("--FLAG-LITERAL-EXPANSION", "words beginning with a single backquote will be preprocessed as '--LITERAL' 'theword'"),
  73     MALA_PARSER_HELP("--FLAG-LITERAL-EXPANSION", ("--HELP-ACTION", "TODO")),
  74
  75     MALA_TRUE_PARSER("--FLAG-EXCLAM-EXPANSION"),
  76     MALA_PARSER_BRIEF("--FLAG-EXCLAM-EXPANSION", "a single ! will be preprocessed as --NOT"),
  77     MALA_PARSER_HELP("--FLAG-EXCLAM-EXPANSION", ("--HELP-ACTION", "TODO")),
  78
  79     MALA_TRUE_PARSER("--FLAG-NO-EXPANSION"),
  80     MALA_PARSER_BRIEF("--", ""),
  81     MALA_PARSER_HELP("--", ("--HELP-ACTION", "TODO")),
  82
  83     MALA_TRUE_PARSER("--FLAG-ASSIGN-EXPANSION"),
  84     MALA_PARSER_BRIEF("--", ""),
  85     MALA_PARSER_HELP("--", ("--HELP-ACTION", "TODO")),
  86
  87     MALA_TRUE_PARSER("--FLAG-ENVVAR-EXPANSION"),
  88     MALA_PARSER_BRIEF("--", ""),
  89     MALA_PARSER_HELP("--", ("--HELP-ACTION", "TODO")),
  90
  91     MALA_TRUE_PARSER("--FLAG-CHAR-EXPANSION"),
  92     MALA_PARSER_BRIEF("--", ""),
  93     MALA_PARSER_HELP("--", ("--HELP-ACTION", "TODO")),
  94
  95     MALA_TRUE_PARSER("--FLAG-UNDERSCORE-EXPANSION"),
  96     MALA_PARSER_BRIEF("--", ""),
  97     MALA_PARSER_HELP("--", ("--HELP-ACTION", "TODO")),
  98
  99     MALA_TRUE_PARSER("--FLAG-SETENV-EXPANSION"),
 100     MALA_PARSER_BRIEF("--", ""),
 101     MALA_PARSER_HELP("--", ("--HELP-ACTION", "TODO")),
 102
 103     MALA_TRUE_PARSER("--FLAG-BRACKET-EXPANSION"),
 104     MALA_PARSER_BRIEF("--", ""),
 105     MALA_PARSER_HELP("--", ("--HELP-ACTION", "TODO")),
 106
 107     MALA_TRUE_PARSER("--FLAG-ASSIGN-CONTRACTION"),
 108     MALA_PARSER_BRIEF("--", ""),
 109     MALA_PARSER_HELP("--", ("--HELP-ACTION", "TODO")),
 110
 111     MALA_SUBSTITUTE_PARSER("--BRIEF-ACTION","--PRINTL"),
 112     MALA_PARSER_BRIEF("--", ""),
 113     MALA_PARSER_HELP("--", ("--HELP-ACTION", "TODO")),
 114
 115     MALA_SUBSTITUTE_PARSER("--HELP-ACTION","--PRINTL"),
 116     MALA_PARSER_BRIEF("--", ""),
 117     MALA_PARSER_HELP("--", ("--HELP-ACTION", "TODO")),
 118
 119     MALA_ACTIONS_END
 120   };
 121 \f
 122
 123 int
 124 mala_module_std_init (MalaEngine self)
 125 {
 126   return mala_engine_actions_register (self, std_actions);
 127 }
 128 \f
 129
 130 int
 131 mala_substitute_parser (MalaEngine eng,
 132                         MalaStringListNode_ref pptr,
 133                         void * data)
 134 {
 135   if (!mala_stringlist_after_new (&eng->program, *pptr, (MalaString) data))
 136     return MALA_EALLOC;
 137
 138   mala_stringlist_elem_delete_fwd (&eng->program, pptr);
 139
 140   return MALA_SUCCESS;
 141 }
 142
 143 int
 144 mala_expand_parser (MalaEngine eng,
 145                     MalaStringListNode_ref pptr,
 146                     void * data)
 147 {
 148   MalaStringListNode itr;
 149   MalaStringListNode end;
 150
 151   end = mala_stringlist_next (*pptr);
 152
 153   for (itr = mala_stringlist_tail ((MalaStringList) data);
 154        !mala_stringlist_is_end ((MalaStringList) data, itr);
 155        mala_stringlist_rev (&itr))
 156     {
 157       if (!mala_stringlist_after_new (&eng->program, *pptr, itr->string))
 158         goto ealloc_node;
 159     }
 160
 161   mala_stringlist_elem_delete_fwd (&eng->program, pptr);
 162
 163   return MALA_SUCCESS;
 164
 165  ealloc_node:
 166   /* remove already added things */
 167   for (itr = mala_stringlist_next (*pptr);
 168        itr != end;
 169        mala_stringlist_elem_delete_fwd (&eng->program, &itr));
 170
 171   return MALA_EALLOC;
 172 }
 173
 174
 175 int
 176 mala_macro_parser (MalaEngine eng,
 177                    MalaStringListNode_ref pptr,
 178                    void * data)
 179 {
 180   (void) data;
 181   mala_stringlist_elem_delete_fwd (&eng->program, pptr);
 182   return eng->state;
 183 }
 184
 185 int
 186 mala_null_parser (MalaEngine eng,
 187                   MalaStringListNode_ref pptr,
 188                   void * data)
 189 {
 190   (void) data;
 191   mala_stringlist_elem_delete_fwd (&eng->program, pptr);
 192   return eng->state;
 193 }
 194
 195 int
 196 mala_printl_parser (MalaEngine eng,
 197                     MalaStringListNode_ref pptr,
 198                     void * data)
 199 {
 200   (void) data;
 201
 202   mala_engine_try_eval_arg_n (eng, pptr, 1);
 203
 204   if (mala_stringlist_is_tail (&eng->program, *pptr))
 205     return mala_engine_exception (eng, pptr, *pptr,
 206                                   eng->common_string[MALA_STRING_ERROR_MISSING_ARGUMENT]);
 207
 208   if (eng->state > MALA_EFAULT)
 209     return eng->state;
 210
 211   printf("%s\n",mala_string_cstr (mala_stringlist_next (*pptr)->string));
 212
 213   mala_stringlist_elem_delete_fwd (&eng->program, pptr);
 214   mala_stringlist_elem_delete_fwd (&eng->program, pptr);
 215   return MALA_SUCCESS;
 216 }
 217
 218 int
 219 mala_literal_parser (MalaEngine eng,
 220                      MalaStringListNode_ref pptr,
 221                      void * data)
 222 {
 223   (void) data;
 224
 225   if (eng->state > MALA_EFAULT)
 226     return eng->state;
 227
 228   if (mala_stringlist_is_tail (&eng->program, *pptr))
 229     return mala_engine_exception (eng, pptr, *pptr,
 230                                   eng->common_string[MALA_STRING_ERROR_MISSING_ARGUMENT]);
 231
 232   mala_stringlist_elem_delete_fwd (&eng->program, pptr);
 233   return MALA_LITERAL;
 234 }
 235
 236 int
 237 mala_not_parser (MalaEngine eng,
 238                  MalaStringListNode_ref pptr,
 239                  void * data)
 240 {
 241   (void) data;
 242
 243   if (eng->state > MALA_EFAULT)
 244     return eng->state;
 245
 246   if (mala_stringlist_is_tail (&eng->program, *pptr))
 247     return mala_engine_exception (eng, pptr, *pptr,
 248                                   eng->common_string[MALA_STRING_ERROR_MISSING_ARGUMENT]);
 249
 250   mala_stringlist_elem_delete_fwd (&eng->program, pptr);
 251   eng->negated = !eng->negated;
 252   return MALA_SUCCESS;
 253 }
 254
 255
 256 /*
 257 // Local Variables:
 258 // mode: C
 259 // c-file-style: "gnu"
 260 // End:
 261 // arch-tag: 687e1195-8aad-4425-983d-9767a25c3793
 262 // end_of_file
 263 */