Home
last modified time | relevance | path

Searched refs:subs (Results 1 – 25 of 113) sorted by relevance

12345

/mirbsd/src/gnu/usr.bin/perl/t/lib/strict/
Dsubs1 Check strict subs functionality
21 no strict 'subs' ;
27 # strict subs - error
28 use strict 'subs' ;
32 Bareword "xyz" not allowed while "strict subs" in use at - line 5.
36 # strict subs - error
37 use strict 'subs' ;
40 Bareword "Fred" not allowed while "strict subs" in use at - line 4.
44 # strict subs - error
45 use strict 'subs' ;
[all …]
/mirbsd/src/lib/libc/regex/test/
Dmain.c58 regmatch_t subs[NS]; in main() local
116 subs[0].rm_so = startoff; in main()
117 subs[0].rm_eo = strlen(argv[optind]) - endoff; in main()
119 err = regexec(&re, argv[optind], (size_t)NS, subs, eopts); in main()
127 len = (int)(subs[0].rm_eo - subs[0].rm_so); in main()
128 if (subs[0].rm_so != -1) { in main()
131 argv[optind] + subs[0].rm_so); in main()
134 argv[optind] + subs[0].rm_so); in main()
137 if (subs[i].rm_so != -1) in main()
139 (int)(subs[i].rm_eo - subs[i].rm_so), in main()
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/
Dsubs.t98 use subs qw( Fred ) ;
108 use subs qw( Fred) ;
116 use subs qw( open ) ;
124 use subs qw( open ) ;
132 use subs qw( open ) ;
140 use subs qw( open ) ;
151 use subs qw( Fred ) ;
160 use subs qw( Fred ) ;
DDB.t14 use strict qw( vars subs );
166 my $subs = DB->subs;
167 is( $subs, 0, 'DB::subs() should return keys of %DB::subs' );
169 $subs = DB->subs;
170 is( $subs, 2, '... same song, different key' );
171 my @subs = DB->subs( 'foo', 'boo', 'bar' );
172 is( scalar @subs, 2, '... should report only for requested subs' );
174 ok( eq_array( \@subs, \@expected ), '... find file, start, end for subs' );
DDumpvalue.pm5 our(%address, $stab, @stab, %stab, %subs);
373 my $place = $DB::sub{$sub} || (($s = $subs{"$subref"}) && $DB::sub{$s})
388 $subs{"$addr"} = $name;
391 $subs{ shift() };
Ddumpvar.pl426 my $place = $DB::sub{$sub} || (($s = $subs{"$subref"}) && $DB::sub{$s})
439 $subs{"$addr"} = $name;
442 $subs{ shift() };
DFileHandle.t18 use strict subs;
/mirbsd/src/gnu/usr.bin/rcs/src/
Dco.c734 struct buf subs; local
741 bufautobegin(&subs);
764 bufscpy(&subs, targetdelta->num);
766 bufscat(&subs, ",");
767 bufscat(&subs, joinlist[i-2]);
768 bufscat(&subs, ":");
769 bufscat(&subs, joinlist[i-1]);
784 mergev[3] = subs.string;
802 bufautoend(&subs);
808 bufautoend(&subs);
/mirbsd/src/gnu/usr.bin/binutils/libiberty/
Dcp-demint.c205 di.subs = ((struct demangle_component **) in cplus_demangle_v3_components()
207 if (di.comps == NULL || di.subs == NULL) in cplus_demangle_v3_components()
211 if (di.subs != NULL) in cplus_demangle_v3_components()
212 free (di.subs); in cplus_demangle_v3_components()
226 free (di.subs); in cplus_demangle_v3_components()
Dcp-demangle.c2421 di->subs[di->next_sub] = dc; in d_add_substitution()
2506 return di->subs[id]; in d_substitution()
3814 __extension__ struct demangle_component *subs[di.num_subs]; in d_demangle() local
3817 di.subs = &subs[0]; in d_demangle()
3821 di.subs = ((struct demangle_component **) in d_demangle()
3823 if (di.comps == NULL || di.subs == NULL) in d_demangle()
3827 if (di.subs != NULL) in d_demangle()
3828 free (di.subs); in d_demangle()
3864 free (di.subs); in d_demangle()
4068 __extension__ struct demangle_component *subs[di.num_subs]; in is_ctor_or_dtor() local
[all …]
Dcp-demangle.h109 struct demangle_component **subs; member
/mirbsd/src/gnu/usr.bin/perl/lib/Net/demos/
Dnntp15 if($subs = $nntp->newsgroups)
17 print join("\n",(keys %$subs)[0 .. 10]),"\n";
/mirbsd/src/gnu/usr.bin/perl/t/op/
Duniversal.t122 my $subs = join ' ', sort grep { defined &{"UNIVERSAL::$_"} } keys %UNIVERSAL::;
126 is $subs, "can import isa VERSION";
128 is $subs, "VERSION can import isa";
/mirbsd/src/gnu/usr.bin/perl/ext/B/
DTodo15 CvOUTSIDE for ordinary subs
33 compile-time qw(), constant subs
DNOTES8 -uPackname Force apparently unused subs from package Packname to
11 time. The down side is that any subs which really are
37 subs to be saved. Without extra arguments, it saves the main program.
40 -uPackname Force apparently unused subs from package Packname to
43 time. The down side is that any subs which really are
DREADME29 Anonymous subs work properly with C and CC.
30 Heuristics for forcing compilation of apparently unused subs/methods.
148 If your program uses classes which define methods (or other subs which
151 subs to be compiled. Future releases will probably default the other
205 variables, subs and formats are defined and used.
216 saving those XS subs itself. For each XSUB used, the C and CC compiler
/mirbsd/src/gnu/usr.bin/perl/t/io/
Dfflush.t106 my %subs = (
123 my $code = $subs{$_};
/mirbsd/src/gnu/usr.bin/perl/os2/OS2/REXX/
DREXX.xs76 char *subs = 0; in exec_in_REXX_with() local
83 Newxz(subs, c, char); in exec_in_REXX_with()
87 subs[n] = 1; in exec_in_REXX_with()
124 if (!subs[n]) in exec_in_REXX_with()
127 Safefree(subs); in exec_in_REXX_with()
/mirbsd/src/gnu/usr.bin/binutils/opcodes/
Dia64-gen.c212 int *subs; /* Other classes within this class. */ member
445 mark_used (ics[ic->subs[i]], clear_terminals); in mark_used()
565 ics[ind]->subs = tmalloc(int); in fetch_insn_class()
566 ics[ind]->subs[0] = fetch_insn_class (subname, 1);; in fetch_insn_class()
668 ics[iclass]->subs = (int *) in load_insn_classes()
669 xrealloc ((void *)ics[iclass]->subs, in load_insn_classes()
673 ics[iclass]->subs = (int *) in load_insn_classes()
674 xrealloc (ics[iclass]->subs, (ics[iclass]->nsubs + 1) * sizeof (int)); in load_insn_classes()
675 ics[iclass]->subs[ics[iclass]->nsubs++] = sub; in load_insn_classes()
679 qsort ((void *)ics[iclass]->subs, in load_insn_classes()
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/ExtUtils/Constant/
DBase.pm875 my ($body, @subs);
935 push @subs, $self->C_constant ({package=>$package,
956 return (@subs, $body);
/mirbsd/src/gnu/usr.bin/binutils/gdb/doc/
Dconfigure1938 s/@@/,@/; s/@@/@,/; s/@;t t\$/,;t t/' >\$tmp/subs.sed <<\\CEOF
1990 sed "1,${ac_beg}d; ${ac_end}q" $tmp/subs.sed >$tmp/subs.frag
1992 sed "${ac_end}q" $tmp/subs.sed >$tmp/subs.frag
1994 if test ! -s $tmp/subs.frag; then
2002 /@[a-zA-Z_][a-zA-Z_0-9]*@/!b' && cat $tmp/subs.frag) >$tmp/subs-$ac_sed_frag.sed
/mirbsd/src/gnu/usr.bin/perl/x2p/
Dcflags.SH28 : Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!.
/mirbsd/src/gnu/usr.bin/perl/
Dwritemain.SH21 : Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!.
Dcflags.SH21 : Move anything that needs config subs from !NO!SUBS! section to !GROK!THIS!.
/mirbsd/src/gnu/usr.bin/binutils/gdb/config/djgpp/
Dconfig.sed30 /ac_max_sed_lines=[0-9]/s,=.*$,=`sed -n "$=" $tmp/subs.sed`,

12345