/[m4]/m4/modules/m4.c
ViewVC logotype

Diff of /m4/modules/m4.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.33 by gary, Wed Jun 4 10:56:32 2003 UTC revision 1.34 by gary, Thu Jun 5 16:12:16 2003 UTC
# Line 153  M4BUILTIN_HANDLER (define) Line 153  M4BUILTIN_HANDLER (define)
153    
154    if (argc == 2)    if (argc == 2)
155      {      {
156        m4_macro_define (M4ARG (1), NULL, "", 0, 0, -1);        m4_macro_define (M4ARG (1), NULL);
157        return;        return;
158      }      }
159    
160    switch (TOKEN_TYPE (argv[2]))    switch (TOKEN_TYPE (argv[2]))
161      {      {
162      case M4_TOKEN_TEXT:      case M4_TOKEN_TEXT:
163        m4_macro_define (M4ARG (1), TOKEN_HANDLE (argv[2]),        m4_macro_define (M4ARG (1), argv[2]);
                        TOKEN_TEXT (argv[2]), TOKEN_FLAGS (argv[2]),  
                        TOKEN_MIN_ARGS (argv[2]), TOKEN_MAX_ARGS (argv[2]));  
164        return;        return;
165    
166      case M4_TOKEN_FUNC:      case M4_TOKEN_FUNC:
167        m4_builtin_define (M4ARG (1), TOKEN_HANDLE (argv[2]),        m4_builtin_define (M4ARG (1), argv[2]);
                          TOKEN_FUNC (argv[2]), TOKEN_FLAGS (argv[2]),  
                          TOKEN_MIN_ARGS (argv[2]), TOKEN_MAX_ARGS (argv[2]));  
168        return;        return;
169      }      }
170    
# Line 192  M4BUILTIN_HANDLER (pushdef) Line 188  M4BUILTIN_HANDLER (pushdef)
188    
189    if (argc == 2)    if (argc == 2)
190      {      {
191        m4_macro_pushdef (M4ARG (1), NULL, "", 0, 0, -1);        m4_macro_pushdef (M4ARG (1), NULL);
192        return;        return;
193      }      }
194    
195    switch (TOKEN_TYPE (argv[2]))    switch (TOKEN_TYPE (argv[2]))
196      {      {
197      case M4_TOKEN_TEXT:      case M4_TOKEN_TEXT:
198        m4_macro_pushdef (M4ARG (1), TOKEN_HANDLE (argv[2]),        m4_macro_pushdef (M4ARG (1), argv[2]);
                         TOKEN_TEXT (argv[2]), TOKEN_FLAGS (argv[2]),  
                         TOKEN_MIN_ARGS (argv[2]), TOKEN_MAX_ARGS (argv[2]));  
199        return;        return;
200    
201      case M4_TOKEN_FUNC:      case M4_TOKEN_FUNC:
202        m4_builtin_pushdef (M4ARG (1), TOKEN_HANDLE (argv[2]),        m4_builtin_pushdef (M4ARG (1), argv[2]);
                           TOKEN_FUNC (argv[2]), TOKEN_FLAGS (argv[2]),  
                           TOKEN_MIN_ARGS (argv[2]), TOKEN_MAX_ARGS (argv[2]));  
203        return;        return;
204      }      }
205    

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26