Lines Matching refs:entry
7 use vars qw($termpat $state $first $entry);
83 chomp (my @entry = <DATA>);
84 $VMS_TERMCAP = join '', @entry;
120 The function extracts the entry of the specified terminal
135 files are searched and a tc field occurs in the requested entry,
136 the entry it names must be found in the same file or one of the
141 The extracted termcap entry is available in the object
159 The terminal type whose termcap entry will be used - if not supplied it will
176 local($termpat,$state,$first,$entry); # used inside eval
205 # $entry is the extracted termcap entry
207 $entry = $foo;
212 unless (@termcap_path || $entry)
218 $entry = $VMS_TERMCAP;
227 $entry = $tmp;
234 croak "Can't find a valid termcap file" unless @termcap_path || $entry;
240 $first = 0; # first entry (keeps term name)
244 if ($entry) {
246 $first++; # we're the first entry
248 if ($entry =~ s/:tc=([^:]+):/:/) {
273 defined $entry or $entry = '';
274 $entry .= $_ if $_;
296 $entry =~ s/:tc=([^:]+):/:/ && ($tmp_term = $1, $state = 2);
301 croak "Can't find $term" if $entry eq '';
302 $entry =~ s/:+\s*:+/:/g; # cleanup $entry
303 $entry =~ s/:+/:/g; # cleanup $entry
304 $self->{TERMCAP} = $entry; # save it
305 # print STDERR "DEBUG: $entry = ", $entry, "\n";
307 # Precompile $entry into the object
308 $entry =~ s/^[^:]*://;
309 foreach $field (split(/:[\s:\\]*/,$entry)) {
633 # Below is a default entry for systems where there are terminals but no