Mercurial > hg > octave-nkf

comparison src/variables.cc @ 864:4c3de23d0fb1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-11-01 00:03:49 by jwe]
author jwe
date Tue, 01 Nov 1994 00:03:49 +0000
parents 433ab56e62cd
children b6b78f85743a
comparison
equal deleted inserted replaced
863:a2e030473d6d 864:4c3de23d0fb1
1590 SYMTAB_LOCAL_SCOPE); 1590 SYMTAB_LOCAL_SCOPE);
1591 1591
1592 gvars = curr_sym_tab->list (gcount, 0, symbol_def::USER_VARIABLE, 1592 gvars = curr_sym_tab->list (gcount, 0, symbol_def::USER_VARIABLE,
1593 SYMTAB_GLOBAL_SCOPE); 1593 SYMTAB_GLOBAL_SCOPE);
1594 1594
1595 fcns = curr_sym_tab->list (fcount, 0, symbol_def::USER_FUNCTION, 1595 fcns = global_sym_tab->list (fcount, 0, symbol_def::USER_FUNCTION,
1596 SYMTAB_ALL_SCOPES); 1596 SYMTAB_ALL_SCOPES);
1597 } 1597 }
1598 1598
1599 while (argc > 0) 1599 while (argc > 0)
1600 { 1600 {
1601 char *pat = *argv; 1601 char *pat = *argv;
1629 char *nm = fcns[i]; 1629 char *nm = fcns[i];
1630 int match = (fnmatch (pat, nm, __FNM_FLAGS) == 0); 1630 int match = (fnmatch (pat, nm, __FNM_FLAGS) == 0);
1631 if ((exclusive && ! match) || (! exclusive && match)) 1631 if ((exclusive && ! match) || (! exclusive && match))
1632 { 1632 {
1633 count = curr_sym_tab->clear (nm); 1633 count = curr_sym_tab->clear (nm);
1634 if (count > 0) 1634 global_sym_tab->clear (nm, clear_user_functions);
1635 global_sym_tab->clear (nm, clear_user_functions);
1636 } 1635 }
1637 } 1636 }
1638 } 1637 }
1639 1638
1640 argc--; 1639 argc--;