Lines Matching full:my
54 my $current = getcwd;
55 my $working = $current;
117 my $text = shift;
122 my $name = shift;
123 open( my $fp, $name ) || &failed("cannot open $name");
124 my (@input) = <$fp>;
131 my $path = shift;
132 my @result;
133 if ( opendir( my $dh, $path ) ) {
134 my @data = sort readdir($dh);
136 for my $d ( 0 .. $#data ) {
146 my $src = shift;
147 my $dst = shift;
153 my $path = shift;
155 my $full = abs_path($path);
163 my $path = shift;
164 my $full = abs_path($path);
165 my $command = "";
179 my @data = &read_dir(".");
187 my $tree = shift;
195 my $leaf = shift;
196 my $src = $target_dir . $leaf . "/CVS";
197 my $dst = $update_dir . $leaf . "/CVS";
198 my $verbose = $opt_v ? "v" : "";
200 my $mid = $update_dir . $leaf;
208 my $item = shift;
209 my $result = 0;
224 my $name = shift;
225 my $text = shift;
226 my $code = 0;
234 my $target = shift;
235 my $source = $target;
239 my @source = &read_file($source);
240 my @target = &read_file($target);
241 my $old_id = "";
242 my $gap_id = 0;
243 my $new_id = "";
244 my $skipit = -1;
246 for my $n ( 0 .. $#source ) {
266 my @update;
267 my $tables = &uses_tables($target);
271 for my $n ( $tables .. $#target ) {
280 if ( open my $fp, ">", $target ) {
281 for my $n ( 0 .. $#update ) {
293 my $path = shift;
294 my @data = &read_file($path);
295 my $done = 0;
296 for my $n ( 0 .. $#data ) {
297 my $text = $data[$n];
302 my $left = "";
304 my $next = index( $text, "@" );
310 my $word = substr( $text, 0, $next );
334 if ( open my $fp, ">", $path ) {
335 for my $n ( 0 .. $#data ) {
345 my $src = shift;
346 my $dst = shift;
347 my $verbose = $opt_v ? "v" : "";
349 my $leaf = $src;
359 my $src = shift;
360 my $dst = shift;
363 my @data = &read_dir($src);
365 my $verbose = $opt_v ? "v" : "";
366 for my $d ( 0 .. $#data ) {
367 my $item = $data[$d];
368 my $src_item = $src . "/" . $item;
385 my $prog = $dst;
419 my $docs = shift;
420 my @docs = &read_file($docs);
421 my $code = 0;
422 for my $n ( 0 .. $#docs ) {
435 my $docs = shift;
436 my $src = "$source_dir/man/$docs";
437 my $dst = "$update_dir/$docs";
449 my $docs = shift;
458 my @docs = &read_dir("$source_dir/man");
460 for my $n ( 0 .. $#docs ) {
471 for my $n ( 0 .. $#docs ) {
477 for my $n ( 0 .. $#docs ) {
483 for my $n ( 0 .. $#docs ) {
492 my $dst = shift;
498 my $result = 0;
525 my $command = shift;
552 my @data = @{ $_[0] };
553 my %data;
554 for my $n ( 0 .. $#data ) {
555 my $text = $data[$n];
562 my @data = @{ $_[0] };
563 my $name = $_[1];
564 my $skip = $_[2];
565 my %data;
566 my $state = 0;
567 for my $n ( 0 .. $#data ) {
568 my $text = $data[$n];
596 my $path = shift;
597 my @data = &read_dir($path);
598 my %data;
599 for my $n ( 0 .. $#data ) {
600 my $text = $data[$n];
607 my $string = shift;
608 my $result = 0;
609 for my $n ( 0 .. length($string) - 1 ) {
610 my $c = substr( $string, $n, 1 );
626 my $name = $_[0];
627 my @data = @{ $_[1] };
628 my $keep = ( defined $_[2] ) ? 1 : 0;
629 my $base;
630 my $fill;
639 my $result = sprintf( "%s%s", $name, $fill );
641 my %data;
642 for my $n ( 0 .. $#data ) {
647 for my $n ( 0 .. $#data ) {
648 my $data = $data[$n];
649 my $col = &columns_of($result);
650 my $add = 1 + length($data);
669 my $newfile = shift;
670 my $bakfile =
678 my $libname = "curses";
679 my $oldfile = "$source_dir/n$libname/Makefile";
680 my @oldfile = &read_file($oldfile);
682 my $newfile = "$update_dir/Makefile";
683 open( my $fp, ">", $newfile ) || &failed("cannot open $newfile");
684 my @subdirs = (
707 my @autosrc = &makefile_list( \@oldfile, "AUTO_SRC", "?" );
708 my @auto_cc = &only_c_files( \@autosrc );
711 my @sources = &makefile_list( \@oldfile, "C_SRC", "./" );
722 my @manpages = &manpage_list($update_dir);
839 my $libname = shift;
840 my $oldfile = "$source_dir/$libname/Makefile";
841 my @oldfile = &read_file($oldfile);
846 my @headers = &makefile_list( \@oldfile, "AUTO_SRC", "?" );
849 my @sources = &makefile_list( \@oldfile, "C_SRC", "?" );
850 my $newfile = "$update_dir/Makefile";
851 open( my $fp, ">", $newfile ) || &failed("cannot open $newfile");
860 my $includes = '-I${.CURDIR}/../libcurses';
865 my @manpages = &manpage_list($update_dir);
890 my $binname = shift;
891 my $oldfile = "$source_dir/progs/Makefile";
892 my @oldfile = &read_file($oldfile);
893 my $newfile = "$update_dir/Makefile";
895 open( my $fp, ">", $newfile ) || &failed("cannot open $newfile");
896 my @sources = ("$binname.c");
897 my @links = ();
898 my @autosrc = &makefile_list( \@oldfile, "AUTO_SRC", "?" );
900 my $tput_ver = 0;
901 my $use_dump_entry = 0;
902 my $use_termsort = 0;
903 my $use_tparm_type = 0;
904 my $use_transform = 0;
958 my @bin_links;
959 for my $n ( 0 .. $#links ) {
965 my $ticfix = '${.CURDIR}/';
1161 my $prog = abs_path("$target_dir/../../usr.bin/tic");
1162 my $libs = abs_path("$target_dir/../../lib/libcurses");
1177 my @search = ( "/usr/share/terminfo", "/usr/local/share/terminfo" );
1178 my @prefix = ("./configure");
1181 my @options = (
1217 my @data = &read_file("dist.mk");
1218 for my $n ( 0 .. $#data ) {
1219 my $text = $data[$n];
1223 my $name = $text;
1225 my $value = $text;