Programmer 7500/MAX_PROGRAMMERS.iso/PASCAL/TOOL_INC.ZIP/PATTERN.INT

Text File | 1988-01-29 | 195 b | 8 lines

{$DEFINE PATTERN_MATCH}

function wildcard_match (var pattern,
                         line:               anystring): boolean;
{pattern must be upper case; line is not case sensitive}