/dports/sysutils/testdisk/testdisk-7.1/src/ |
H A D | fatn.c | 54 wprintw(stdscr,"cluster_size %u\n", fh1->sectors_per_cluster); in dump_fat_info_ncurses() 55 wprintw(stdscr,"reserved %u\n", le16(fh1->reserved)); in dump_fat_info_ncurses() 56 if(fat_sectors(fh1)!=0) in dump_fat_info_ncurses() 57 wprintw(stdscr,"sectors %u\n", fat_sectors(fh1)); in dump_fat_info_ncurses() 58 if(le32(fh1->total_sect)!=0) in dump_fat_info_ncurses() 64 wprintw(stdscr,"flags %04X\n", le16(fh1->flags)); in dump_fat_info_ncurses() 65 wprintw(stdscr,"version %u.%u\n", fh1->version[0], fh1->version[1]); in dump_fat_info_ncurses() 78 wprintw(stdscr,"fat_length %u\n", le16(fh1->fat_length)); in dump_fat_info_ncurses() 79 wprintw(stdscr,"dir_entries %u\n", get_dir_entries(fh1)); in dump_fat_info_ncurses() 103 if(fat_sectors(fh1)!=0 || fat_sectors(fh2)!=0) in dump_2fat_info_ncurses() [all …]
|
H A D | fat.c | 63 log_info("sector_size %u\n", fat_sector_size(fh1)); in log_fat_info() 65 log_info("reserved %u\n", le16(fh1->reserved)); in log_fat_info() 66 log_info("fats %u\n", fh1->fats); in log_fat_info() 67 log_info("dir_entries %u\n", get_dir_entries(fh1)); in log_fat_info() 68 log_info("sectors %u\n", fat_sectors(fh1)); in log_fat_info() 69 log_info("media %02X\n", fh1->media); in log_fat_info() 70 log_info("fat_length %u\n", le16(fh1->fat_length)); in log_fat_info() 71 log_info("secs_track %u\n", le16(fh1->secs_track)); in log_fat_info() 72 log_info("heads %u\n", le16(fh1->heads)); in log_fat_info() 79 log_info("version %u.%u\n", fh1->version[0], fh1->version[1]); in log_fat_info() [all …]
|
/dports/devel/p5-FileHandle-Unget/FileHandle-Unget-0.1634/t/ |
H A D | gensym.t | 16 my $fh1 = gensym; 17 open $fh1, ">" . $tmp->filename; 24 $fh = new FileHandle::Unget($fh1); 39 my $fh1 = gensym; 40 open $fh1, "<" . $tmp->filename; 63 my $fh1 = gensym; 64 open $fh1, "<" . $tmp->filename; 87 my $fh1 = gensym; 88 open $fh1, "<" . $tmp->filename; 108 my $fh1 = gensym; [all …]
|
H A D | input_record_separator.t | 21 my $line1 = <$fh1>; 27 my $line2 = <$fh1>; 32 $fh1->close; 40 my $line1 = <$fh1>; 45 $fh1->input_record_separator("\n"); 48 my $line2 = <$fh1>; 53 $fh1->ungets($line2); 55 my $line3 = <$fh1>; 60 $fh1->close; 74 my $line1 = <$fh1>; [all …]
|
H A D | new.t | 14 my $fh = new FileHandle::Unget($fh1); 18 $fh1 = new FileHandle(">>" . $tmp->filename); 19 $fh = new FileHandle::Unget($fh1); 31 my $fh1 = new FileHandle($tmp->filename); 32 my $fh = new FileHandle::Unget($fh1); 50 my $fh1 = new FileHandle($tmp->filename); 51 my $fh = new FileHandle::Unget($fh1); 69 my $fh1 = new FileHandle($tmp->filename); 70 my $fh = new FileHandle::Unget($fh1); 85 my $fh1 = new FileHandle($tmp->filename); [all …]
|
H A D | multiple_handles.t | 17 my $fh1 = new FileHandle::Unget($tmp->filename); 20 my $line = <$fh1>; 23 $fh1->ungets("inserted 1\n"); 26 $line = <$fh1>; 34 $line = <$fh1>; 42 $fh1->close;
|
/dports/textproc/p5-Perl-Critic/Perl-Critic-1.140/t/InputOutput/ |
H A D | RequireBriefOpen.run | 6 close $fh1; 24 $fh1->close; 45 while (<$fh1>) { 48 close $fh1; 91 close $fh1; 140 local (*fh1); 189 close $fh1; 207 close $fh1; 218 close $fh1; 233 close $fh1; [all …]
|
/dports/sysutils/hfsutils/hfsutils-3.2.6/test/ |
H A D | test1.tcl | 68 set fh1 [$curvol open $file1] 71 $fh1 fork data 75 set data [$fh1 read [string length $block]] 77 error "$fh1 ($file1) fork data block $i differs" 86 if {[string length [$fh1 read 1]]} { 87 error "$fh1 ($file1) bad data fork length" 95 $fh1 fork rsrc 99 set data [$fh1 read [string length $block]] 110 if {[string length [$fh1 read 1]]} { 111 error "$fh1 ($file1) bad resource fork length" [all …]
|
/dports/textproc/p5-Perl-Lint/Perl-Lint-0.25/t/Policy/InputOutput/ |
H A D | require_brief_open.t | 28 close $fh1; 45 $fh1->close; 64 while (<$fh1>) { 67 close $fh1; 107 close $fh1; 151 local (*fh1); 196 close $fh1; 213 close $fh1; 222 close $fh1; 236 close $fh1; [all …]
|
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/ext/PerlIO-via/t/ |
H A D | via.t | 85 ok(open(my $fh1, ">", $tmp), "open $tmp"); 86 ok(binmode($fh1, ":via(XXX)"), "binmode :via(XXX) onto it"); 87 ok(open(my $fh2, ">&", $fh1), "dup it"); 88 close $fh1; 92 ok(open($fh1, ">", $tmp), "open $tmp"); 93 ok(binmode($fh1, ":via(YYY)"), "binmode :via(YYY) onto it"); 94 ok(open($fh2, ">&", $fh1), "dup it"); 96 close $fh1; 99 ok(open($fh1, "<", $tmp), "open $tmp for check"); 100 { local $/; $b = <$fh1> } [all …]
|
/dports/lang/perl5.34/perl-5.34.0/ext/PerlIO-via/t/ |
H A D | via.t | 89 ok(open(my $fh1, ">", $tmp), "open $tmp"); 90 ok(binmode($fh1, ":via(XXX)"), "binmode :via(XXX) onto it"); 91 ok(open(my $fh2, ">&", $fh1), "dup it"); 92 close $fh1; 96 ok(open($fh1, ">", $tmp), "open $tmp"); 97 ok(binmode($fh1, ":via(YYY)"), "binmode :via(YYY) onto it"); 98 ok(open($fh2, ">&", $fh1), "dup it"); 100 close $fh1; 103 ok(open($fh1, "<", $tmp), "open $tmp for check"); 104 { local $/; $b = <$fh1> } [all …]
|
/dports/lang/perl5.30/perl-5.30.3/ext/PerlIO-via/t/ |
H A D | via.t | 89 ok(open(my $fh1, ">", $tmp), "open $tmp"); 90 ok(binmode($fh1, ":via(XXX)"), "binmode :via(XXX) onto it"); 91 ok(open(my $fh2, ">&", $fh1), "dup it"); 92 close $fh1; 96 ok(open($fh1, ">", $tmp), "open $tmp"); 97 ok(binmode($fh1, ":via(YYY)"), "binmode :via(YYY) onto it"); 98 ok(open($fh2, ">&", $fh1), "dup it"); 100 close $fh1; 103 ok(open($fh1, "<", $tmp), "open $tmp for check"); 104 { local $/; $b = <$fh1> } [all …]
|
/dports/lang/perl5.32/perl-5.32.1/ext/PerlIO-via/t/ |
H A D | via.t | 89 ok(open(my $fh1, ">", $tmp), "open $tmp"); 90 ok(binmode($fh1, ":via(XXX)"), "binmode :via(XXX) onto it"); 91 ok(open(my $fh2, ">&", $fh1), "dup it"); 92 close $fh1; 96 ok(open($fh1, ">", $tmp), "open $tmp"); 97 ok(binmode($fh1, ":via(YYY)"), "binmode :via(YYY) onto it"); 98 ok(open($fh2, ">&", $fh1), "dup it"); 100 close $fh1; 103 ok(open($fh1, "<", $tmp), "open $tmp for check"); 104 { local $/; $b = <$fh1> } [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/pspw/water_pseudopotential/ |
H A D | BLCJ_Inter.F | 212 fh1(1) = fh1(1) - ((rh1(1)-rph1(1))/r11) * tmp 213 fh1(2) = fh1(2) - ((rh1(2)-rph1(2))/r11) * tmp 214 fh1(3) = fh1(3) - ((rh1(3)-rph1(3))/r11) * tmp 221 fh1(1) = fh1(1) - ((rh1(1)-rph2(1))/r12) * tmp 222 fh1(2) = fh1(2) - ((rh1(2)-rph2(2))/r12) * tmp 223 fh1(3) = fh1(3) - ((rh1(3)-rph2(3))/r12) * tmp 299 fh1(1) = fh1(1) - ((rh1(1)-rph1(1))/r11) * tmp 300 fh1(2) = fh1(2) - ((rh1(2)-rph1(2))/r11) * tmp 368 fh1(1) = fh1(1) - ((rh1(1)-rpo(1))/r1o) * tmp 369 fh1(2) = fh1(2) - ((rh1(2)-rpo(2))/r1o) * tmp [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/pspw/water_pseudopotential/ |
H A D | BLCJ_Inter.F | 212 fh1(1) = fh1(1) - ((rh1(1)-rph1(1))/r11) * tmp 213 fh1(2) = fh1(2) - ((rh1(2)-rph1(2))/r11) * tmp 214 fh1(3) = fh1(3) - ((rh1(3)-rph1(3))/r11) * tmp 221 fh1(1) = fh1(1) - ((rh1(1)-rph2(1))/r12) * tmp 222 fh1(2) = fh1(2) - ((rh1(2)-rph2(2))/r12) * tmp 223 fh1(3) = fh1(3) - ((rh1(3)-rph2(3))/r12) * tmp 299 fh1(1) = fh1(1) - ((rh1(1)-rph1(1))/r11) * tmp 300 fh1(2) = fh1(2) - ((rh1(2)-rph1(2))/r11) * tmp 368 fh1(1) = fh1(1) - ((rh1(1)-rpo(1))/r1o) * tmp 369 fh1(2) = fh1(2) - ((rh1(2)-rpo(2))/r1o) * tmp [all …]
|
/dports/www/p5-HTML-GenToc/HTML-GenToc-3.20/t/ |
H A D | compare.pl | 9 my $fh1 = undef; 11 open($fh1, $file1) || return 0; 16 while (<$fh1>) 30 close($fh1); 41 close($fh1); 46 close($fh1);
|
/dports/devel/py-llfuse/llfuse-1.3.8/rst/ |
H A D | gotchas.rst | 16 with open('mnt/file_one', 'w+') as fh1: 17 fh1.write('foo') 18 fh1.flush() 23 os.close(os.dup(fh1.fileno())) 24 fh1.seek(0) 25 assert fh1.read() == 'foobar'
|
/dports/math/octave/octave-6.4.0/test/nest/ |
H A D | nest.tst | 93 %! fh1 = nst1 (13); 97 %! assert (fh1 (), 13); 101 %! assert (fh1 (42), 42); 106 %! assert (fh1 (), 42); 114 %! fh1 = nst2 (13); 118 %! assert (fh1 (), 13); 122 %! assert (fh1 (42), 42); 127 %! assert (fh1 (), pi); 133 %! fh1 = nst3 (13); 137 %! assert (fh1 (), 13); [all …]
|
/dports/net/mpich/mpich-3.4.3/src/mpi/errhan/ |
H A D | file_call_errhandler.c | 102 void *fh1 = (void *) &fh; in MPI_File_call_errhandler() local 103 (*MPIR_Process.cxx_call_errfn) (1, fh1, &errorcode, in MPI_File_call_errhandler() 116 void *fh1 = (void *) &fh; in MPI_File_call_errhandler() local 119 (*e->errfn.F77_Handler_function) (fh1, &ferr); in MPI_File_call_errhandler() 150 void *fh1 = (void *) fh; in MPIR_File_call_cxx_errhandler() local 151 (*MPIR_Process.cxx_call_errfn) (1, fh1, errorcode, (void (*)(void)) c_errhandler); in MPIR_File_call_cxx_errhandler()
|
/dports/net/mpich2/mpich2-1.5/src/mpi/errhan/ |
H A D | file_call_errhandler.c | 108 { void *fh1 = (void *)&fh; in MPI_File_call_errhandler() local 109 (*MPIR_Process.cxx_call_errfn)( 1, fh1, &errorcode, in MPI_File_call_errhandler() 121 { void *fh1 = (void *)&fh; in MPI_File_call_errhandler() local 124 (*e->errfn.F77_Handler_function)( fh1, &ferr ); in MPI_File_call_errhandler() 159 void *fh1 = (void *)fh; in MPIR_File_call_cxx_errhandler() local 160 (*MPIR_Process.cxx_call_errfn)( 1, fh1, errorcode, (void(*)(void))c_errhandler ); in MPIR_File_call_cxx_errhandler()
|
/dports/lang/perl5.34/perl-5.34.0/cpan/Pod-Usage/t/pod/ |
H A D | testcmp.pl | 51 my ($fh1, $fh2) = ($file1, $file2); 52 unless (ref $fh1) { 53 $fh1 = FileHandle->new($file1, "r") or die "Can't open $file1: $!"; 64 defined($f1text = <$fh1>) and chomp($f1text); 75 close($fh1) unless (ref $file1);
|
/dports/lang/perl5.34/perl-5.34.0/cpan/Pod-Checker/t/pod/ |
H A D | testcmp.pl | 51 my ($fh1, $fh2) = ($file1, $file2); 52 unless (ref $fh1) { 53 $fh1 = FileHandle->new($file1, "r") or die "Can't open $file1: $!"; 64 defined($f1text = <$fh1>) and chomp($f1text); 75 close($fh1) unless (ref $file1);
|
/dports/lang/perl5.30/perl-5.30.3/cpan/Pod-Parser/t/pod/ |
H A D | testcmp.pl | 51 my ($fh1, $fh2) = ($file1, $file2); 52 unless (ref $fh1) { 53 $fh1 = FileHandle->new($file1, "r") or die "Can't open $file1: $!"; 64 defined($f1text = <$fh1>) and chomp($f1text); 75 close($fh1) unless (ref $file1);
|
/dports/lang/perl5.30/perl-5.30.3/cpan/Pod-Checker/t/pod/ |
H A D | testcmp.pl | 51 my ($fh1, $fh2) = ($file1, $file2); 52 unless (ref $fh1) { 53 $fh1 = FileHandle->new($file1, "r") or die "Can't open $file1: $!"; 64 defined($f1text = <$fh1>) and chomp($f1text); 75 close($fh1) unless (ref $file1);
|
/dports/lang/perl5.30/perl-5.30.3/cpan/Pod-Usage/t/pod/ |
H A D | testcmp.pl | 51 my ($fh1, $fh2) = ($file1, $file2); 52 unless (ref $fh1) { 53 $fh1 = FileHandle->new($file1, "r") or die "Can't open $file1: $!"; 64 defined($f1text = <$fh1>) and chomp($f1text); 75 close($fh1) unless (ref $file1);
|