Home
last modified time | relevance | path

Searched refs:script (Results 1 – 25 of 541) sorted by relevance

12345678910>>...22

/mirbsd/src/gnu/usr.bin/perl/lib/Math/
DComplex.t26 my @script = (
74 push(@script, <<'EOT');
82 push(@script, qq(print "ok $test\\n"}\n));
85 push(@script, <<'EOT');
95 push(@script, qq(print "ok $test\\n"}\n));
98 push(@script, <<'EOT');
108 push(@script, qq(print "ok $test\\n"}\n));
123 push(@script, $constants);
131 push(@script, <<EOT);
137 push(@script, qq(print "ok $test\\n";\n));
[all …]
/mirbsd/src/usr.bin/file/magdir/
Dcommands8 0 string #!/bin/sh Bourne shell script text
9 0 string #!\ /bin/sh Bourne shell script text
10 0 string #!/bin/csh C shell script text
11 0 string #!\ /bin/csh C shell script text
13 0 string #!/bin/ksh Korn shell script text
14 0 string #!\ /bin/ksh Korn shell script text
16 0 string #!/bin/mksh MirBSD Korn shell script text
17 0 string #!\ /bin/mksh MirBSD Korn shell script text
18 0 string #!/usr/bin/env\ mksh MirBSD Korn shell script text
19 0 string #!\ /usr/bin/env\ mksh MirBSD Korn shell script text
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/
DFindBin.pm130 my $script = $0;
140 unless(($script =~ m#/# || ($dosish && $script =~ m#\\#))
141 && -f $script)
146 my $scr = File::Spec->catfile($dir, $script);
149 $script = $scr;
161 $script = $0 unless(-T $script);
168 croak("Cannot find current script '$0'") unless(-f $script);
172 $script = File::Spec->catfile(cwd2(), $script)
173 unless File::Spec->file_name_is_absolute($script);
175 ($Script,$Bin) = fileparse($script);
[all …]
Dcharnames.pm119 my ($script, $cname) = ($1, $2);
121 if ($txt =~ m/\t\t\U$script\E (?:$case )?LETTER \U\Q$cname\E$/m) {
131 for my $script (@{$^H{charnames_scripts}}) {
132 if ($txt =~ m/\t\t$script (?:$case )?LETTER \U\Q$name\E$/m) {
233 for my $script (@{$^H{charnames_scripts}}) {
234 if (not $txt =~ m/\t\t$script (?:CAPITAL |SMALL )?LETTER /) {
235 warnings::warn('utf8', "No such script: '$script'");
/mirbsd/src/gnu/usr.bin/perl/t/x2p/
Ds2p.t11 (a) run psed with a sed script and input data to obtain some output
12 (b) run s2p with a sed script creating a Perl program and then run the
19 - script: the sed script
94 script => <<'[TheEnd]',
139 script => <<'[TheEnd]',
160 script => <<'[TheEnd]',
200 script => <<'[TheEnd]',
224 script => <<'[TheEnd]',
250 script => <<'[TheEnd]',
267 script => <<'[TheEnd]',
[all …]
/mirbsd/src/usr.sbin/httpd/src/modules/standard/
Dmod_actions.c92 char *script; member
138 char *script) in add_action() argument
140 ap_table_setn(m->action_types, type, script); in add_action()
145 char *method, char *script) in set_script() argument
154 m->scripted[methnum] = script; in set_script()
173 xm->script = script; in set_script()
180 xm->script = script; in set_script()
201 const char *script; in action_handler() local
214 script = conf->scripted[M_GET]; in action_handler()
217 script = NULL; in action_handler()
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/Locale/Codes/t/
Dall.t28 my $script;
378 $script = code2script($code);
379 if (!defined $script)
384 $reverse = script2code($script);
404 $script = code2script($code, LOCALE_CODE_ALPHA_2);
405 if (!defined $script)
410 $reverse = script2code($script, LOCALE_CODE_ALPHA_2);
430 $script = code2script($code, LOCALE_CODE_ALPHA_3);
431 if (!defined $script)
436 $reverse = script2code($script, LOCALE_CODE_ALPHA_3);
[all …]
/mirbsd/src/usr.bin/sed/
Dmain.c75 static struct s_compunit *script, **cu_nextp = &script; variable
172 if (script == NULL) in cu_fgets()
175 switch (script->type) { in cu_fgets()
177 if ((f = fopen(script->s, "r")) == NULL) in cu_fgets()
179 "%s: %s", script->s, strerror(errno)); in cu_fgets()
180 fname = script->s; in cu_fgets()
185 sizeof(string_ident), "\"%s\"", script->s)) >= in cu_fgets()
190 s = script->s; in cu_fgets()
201 script = script->next; in cu_fgets()
218 if (s == script->s) { in cu_fgets()
[all …]
/mirbsd/src/gnu/usr.bin/perl/lib/Locale/
DScript.pm84 my $script = shift;
88 return undef unless defined $script;
89 $script = lc($script);
90 if (exists $COUNTRIES->[$codeset]->{$script})
92 return $COUNTRIES->[$codeset]->{$script};
117 my $script;
121 $script = code2script($code, $inset);
122 return undef if not defined $script;
123 $outcode = script2code($script, $outset);
161 my $script;
[all …]
DScript.pod4 Locale::Script - ISO codes for script identification (ISO 15924)
11 $script = code2script('ph'); # 'Phoenician'
31 of all script codes or all script names.
84 B<zy>, B<zyy>, and B<998>, are the codes for an undetermined script.
88 B<zz>, B<zzz>, and B<999>, are the codes for an uncoded script.
105 This function takes a script code and returns a string
106 which contains the name of the script identified.
107 If the code is not a valid script code, as defined by ISO 15924,
110 $script = code2script('cy'); # Cyrillic
114 This function takes a script name and returns the corresponding
[all …]
/mirbsd/src/gnu/usr.bin/perl/t/op/
Dmagic.t209 $script = "$wd/show-shebang";
214 $script = "$wd/show-shebang.bat";
229 $script = "./show-shebang";
232 $script = ":show-shebang";
235 $script = "[]show-shebang";
243 $s1 = "\$^X is $perl, \$0 is $script\n";
244 ok open(SCRIPT, ">$script"), $!;
251 ok chmod(0755, $script), $!;
252 $_ = ($Is_MacOS || $Is_VMS) ? `$perl $script` : `$script`;
254 s{./$script}{$script} if $Is_BeOS; # revert BeOS execvp() side-effect
[all …]
/mirbsd/src/usr.sbin/ppp/ppp/
Ddefs.c294 MakeArgs(char *script, char **pvect, int maxargs, int flags) in MakeArgs() argument
299 while (*script) { in MakeArgs()
300 script += strspn(script, " \t"); in MakeArgs()
301 if (*script == '#' && !(flags & PARSE_NOHASH)) { in MakeArgs()
302 *script = '\0'; in MakeArgs()
305 if (*script) { in MakeArgs()
308 *pvect++ = script; in MakeArgs()
310 script = findblank(script, flags); in MakeArgs()
311 if (script == NULL) in MakeArgs()
313 else if (!(flags & PARSE_NOHASH) && *script == '#') in MakeArgs()
[all …]
Ddatalink.c140 dl->script.run = 1; in datalink_HangupDone()
141 dl->script.packetmode = 1; in datalink_HangupDone()
217 if (!dl->script.packetmode) { in datalink_LoginDone()
224 if (dl->script.run) { in datalink_LoginDone()
226 if (!chat_Setup(&dl->chat, dl->cfg.script.logout, NULL)) in datalink_LoginDone()
284 if (dl->script.run) { in datalink_UpdateSet()
286 if (!chat_Setup(&dl->chat, dl->cfg.script.dial, in datalink_UpdateSet()
287 *dl->cfg.script.dial ? in datalink_UpdateSet()
336 if (dl->script.run) { in datalink_UpdateSet()
338 if (!chat_Setup(&dl->chat, dl->cfg.script.login, NULL)) in datalink_UpdateSet()
[all …]
/mirbsd/src/sys/dev/pci/
Dncrstat.c889 m = sizeof (struct script); in sn()
891 if ((d=a-offsetof(struct script, start))<m) m=d, s="<start>"; in sn()
892 if ((d=a-offsetof(struct script, start1))<m) m=d, s="<start1>"; in sn()
893 if ((d=a-offsetof(struct script, startpos))<m) m=d, s="<startpos>"; in sn()
894 if ((d=a-offsetof(struct script, tryloop))<m) m=d, s="<tryloop>"; in sn()
895 if ((d=a-offsetof(struct script, trysel))<m) m=d, s="<trysel>"; in sn()
896 if ((d=a-offsetof(struct script, skip))<m) m=d, s="<skip>"; in sn()
897 if ((d=a-offsetof(struct script, skip2))<m) m=d, s="<skip2>"; in sn()
898 if ((d=a-offsetof(struct script, idle))<m) m=d, s="<idle>"; in sn()
899 if ((d=a-offsetof(struct script, select))<m) m=d, s="<select>"; in sn()
[all …]
/mirbsd/src/gnu/usr.bin/cvs/diff/
Ded.c27 print_ed_script (script) in print_ed_script() argument
28 struct change *script; in print_ed_script()
30 print_script (script, find_reverse_change, print_ed_hunk);
104 pr_forward_ed_script (script) in pr_forward_ed_script() argument
105 struct change *script; in pr_forward_ed_script()
107 print_script (script, find_change, pr_forward_ed_hunk);
148 print_rcs_script (script) in print_rcs_script() argument
149 struct change *script; in print_rcs_script()
151 print_script (script, find_change, print_rcs_hunk);
Dcontext.c77 print_context_script (script, unidiff_flag) in print_context_script() argument
78 struct change *script; in print_context_script()
82 mark_ignorable (script);
86 for (e = script; e; e = e->link)
94 print_script (script, find_hunk, pr_unidiff_hunk);
96 print_script (script, find_hunk, pr_context_hunk);
395 mark_ignorable (script) in mark_ignorable() argument
396 struct change *script; in mark_ignorable()
398 while (script)
400 struct change *next = script->link;
[all …]
Danalyze.c752 struct change *script = 0; local
773 script = add_change (line0, line1, i0 - line0, i1 - line1, script);
780 return script;
790 struct change *script = 0; local
808 script = add_change (i0, i1, line0 - i0, line1 - i1, script);
815 return script;
840 struct change *script; local
967 script = build_reverse_script (filevec);
969 script = build_script (filevec);
975 struct change *next = script;
[all …]
/mirbsd/src/gnu/usr.bin/perl/ext/Encode/
DMANIFEST56 t/Aliases.t test script
57 t/CJKT.t test script
58 t/Encode.t test script
59 t/Encoder.t test script
61 t/Unicode.t test script
62 t/at-cn.t test script
63 t/at-tw.t test script
68 t/enc_data.t test script for encoding.pm vs. DATA fh
69 t/enc_eucjp.t test script
71 t/enc_module.t test script
[all …]
/mirbsd/src/gnu/usr.bin/cvs/contrib/
DREADME17 course they come from the original author of the script.
27 clmerge A perl script to handle merge conflicts in GNU
31 cln_hist A perl script to compress your
36 commit_prep A perl script, to be combined with log_accum.pl, to
45 cvs2vendor A shell script to move changes from a repository
50 cvs_acls A perl script that implements Access Control Lists
61 debug_check_log A shell script to help analyze sanity check failures.
64 descend A shell script that can be used to recursively
81 log A perl script suitable for including in your
89 mfpipe Another perl script for logging. Allows you to
[all …]
/mirbsd/src/gnu/usr.bin/binutils/ld/
Dldint.texinfo101 default linker script, and certain emulations also modify certain types
104 Emulations are created during the build process by the shell script
107 The @file{genscripts.sh} script starts by reading a file in the
108 @file{emulparams} directory. This is a shell script which sets various
112 The @file{genscripts.sh} script will invoke a shell script in the
114 written in the linker command language. The @file{scripttempl} script
117 The choice of script is made based on the command line options.
120 shell script, this time in the @file{emultempl} directory. That shell
121 script will create the emulation source file, which contains C code.
127 emulation parameters script in the @file{emulparams} directory, a linker
[all …]
/mirbsd/src/gnu/usr.bin/perl/
DPolicy_sh.SH146 if $test -d $prefix/script; then
147 dflt=$prefix/script
173 if $test -d $siteprefix/script; then
174 dflt=$siteprefix/script
202 if $test -d $vendorprefix/script; then
203 dflt=$vendorprefix/script
/mirbsd/src/gnu/usr.bin/binutils/ld/scripttempl/
Dtic80coff.sc3 # Linker script for TI TMS320C80 (tic80) COFF.
5 # Besides the shell variables set by the emulparams script, and the LD_FLAG
6 # variable, the genscripts.sh script will set the following variables for each
7 # time this script is run to generate one of the linker scripts for ldscripts:
16 # aligned, or to "." when generating the -N script.
18 # CREATE_SHLIB: Set to a non-empty string when generating a script for
/mirbsd/src/gnu/usr.bin/perl/NetWare/t/
DReadme.txt26 2. Generate an automated script, 'nwauto.pl' that executes all the above
30 The script, 'NWScripts.pl' available under the 'NetWare\t' folder of the
53 prompt of your server. This script replaces
85 1. 'openpid.t' in 'sys:\perl\scripts\t\io.pl' script
88 scripts. When run individually, the script execution goes through
91 2. 'argv.t' in 'sys:\perl\scripts\t\io.pl' script
94 scripts. When run individually, the script execution goes through
97 3. 'filehandle.t' in 'sys:\perl\scripts\t\lib.pl' script
100 whether run individually or through an auto script.
/mirbsd/src/bin/ed/test/
DREADME11 .t Template - a list of ed commands from which an ed script is
13 .d Data - read by an ed script
15 script.
21 *** The script u.ed exited abnormally ***
23 *** Output u.o of script u.ed is incorrect ***
/mirbsd/src/gnu/usr.bin/perl/x2p/
Da2p.pod11 I<A2p> takes an awk script specified on the command line (or from
12 standard input) and produces a comparable I<perl> script on the
27 tells a2p that this awk script is always invoked with this B<-F>
33 split into an array. If you were translating an awk script that
73 examine the perl script produced and tweak it some. Here are some of
99 throughout the script. If it splits to an array instead, the script
106 from the perl script.
121 implicit in the awk script. There are times when you can move this
132 Awk scripts are often embedded in a shell script that pipes stuff into
133 and out of awk. Often the shell script wrapper can be incorporated
[all …]

12345678910>>...22