Skip to content

Commit

Permalink
accept all valid, fully-qualified subcommand names for [string]
Browse files Browse the repository at this point in the history
even if they do nothing; error on invalid subcommands, return '' for now
on the stubs.
  • Loading branch information
coke committed Nov 30, 2009
1 parent 485a993 commit bf6a58c
Showing 1 changed file with 40 additions and 2 deletions.
42 changes: 40 additions & 2 deletions src/PmTcl/commands/string.pm
Expand Up @@ -20,11 +20,49 @@ our sub string(*@args) {
} else {
return 1;
}
} elsif $cmd eq 'equal' {
return '';
} elsif $cmd eq 'first' {
} elsif $cmd eq 'index' {
return '';
} elsif $cmd eq 'is' {
return '';
} elsif $cmd eq 'last' {
return '';
} elsif $cmd eq 'length' {
return '';
} elsif $cmd eq 'map' {
return '';
} elsif $cmd eq 'match' {
return '';
} elsif $cmd eq 'range' {
return '';
} elsif $cmd eq 'repeat' {
return '';
} elsif $cmd eq 'replace' {
return '';
} elsif $cmd eq 'reverse' {
return '';
} elsif $cmd eq 'tolower' {
return '';
} elsif $cmd eq 'totitle' {
return '';
} elsif $cmd eq 'toupper' {
return pir::upcase(@args[0]);
} else {
return 'XXX';
} elsif $cmd eq 'trim' {
return '';
} elsif $cmd eq 'trimleft' {
return '';
} elsif $cmd eq 'trimright' {
return '';
} elsif $cmd eq 'wordend' {
return '';
} elsif $cmd eq 'wordstart' {
return '';
}

# invalid subcommand.
error("unknown or ambiguous subcommand \"$cmd\": must be bytelength, compare, equal, first, index, is, last, length, map, match, range, repeat, replace, reverse, tolower, totitle, toupper, trim, trimleft, trimright, wordend, or wordstart");
}

module _tcl {
Expand Down

0 comments on commit bf6a58c

Please sign in to comment.