Home
last modified time | relevance | path

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

12345678910>>...16

/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DFindBin.pm121 my $script = $0;
131 unless(($script =~ m#/# || ($dosish && $script =~ m#\\#))
132 && -f $script)
137 my $scr = File::Spec->catfile($dir, $script);
140 $script = $scr;
152 $script = $0 unless(-T $script);
159 croak("Cannot find current script '$0'") unless(-f $script);
163 $script = File::Spec->catfile(getcwd(), $script)
164 unless File::Spec->file_name_is_absolute($script);
166 ($Script,$Bin) = fileparse($script);
[all …]
H A 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'");
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/
H A DComplex.t25 my @script = (
73 push(@script, <<'EOT');
81 push(@script, qq(print "ok $test\\n"}\n));
84 push(@script, <<'EOT');
94 push(@script, qq(print "ok $test\\n"}\n));
97 push(@script, <<'EOT');
107 push(@script, qq(print "ok $test\\n"}\n));
120 push(@script, $constants);
128 push(@script, <<EOT);
134 push(@script, qq(print "ok $test\\n";\n));
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/x2p/
H A 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 …]
/onnv-gate/usr/src/lib/libshell/common/tests/
H A Drestricted.sh63 print 'echo hello' > script
64 chmod +x ./script
65 ! check_restricted script || err_exit 'script without builtins should run in restricted mode'
66 check_restricted ./script || err_exit 'script with / in name should not run in restricted mode'
67 print '/bin/echo hello' > script
68 ! check_restricted script || err_exit 'script with pathnames should run in restricted mode'
69 print 'echo hello> file' > script
70 ! check_restricted script || err_exit 'script with output redirection should run in restricted mod…
71 print 'PATH=/bin' > script
72 ! check_restricted script || err_exit 'script with PATH assignment should run in restricted mode'
[all …]
H A Dbasic.sh118 cat > $tmp/script <<- !
122 chmod 755 $tmp/script
123 if [[ $($tmp/script) != "$tmp/script" ]]
186 cat > $tmp/script <<\!
194 chmod +x $tmp/script
195 case $( (print) | $tmp/script;:) in
200 print 'print $0' > $tmp/script
240 cat > $tmp/script <<- \!
244 if [[ $($SHELL $tmp/script <&-) != done ]]
248 cat > $tmp/script <<- \!
[all …]
H A Dfunctions.sh139 cat > $tmp/script <<-\!
142 chmod +x $tmp/script
145 $tmp/script "$@"
150 cat > $tmp/script <<-\!
158 if ! $tmp/script
161 if ! $SHELL -c $tmp/script
165 if [[ -f $tmp/script ]]
168 cat > $tmp/script <<- \EOF
177 chmod +x $tmp/script
178 if [[ $( $SHELL $tmp/script arg1 arg2) != arg2 ]]
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Locale/Codes/t/
H A Dall.t33 my $script;
383 $script = code2script($code);
384 if (!defined $script)
389 $reverse = script2code($script);
409 $script = code2script($code, LOCALE_CODE_ALPHA_2);
410 if (!defined $script)
415 $reverse = script2code($script, LOCALE_CODE_ALPHA_2);
435 $script = code2script($code, LOCALE_CODE_ALPHA_3);
436 if (!defined $script)
441 $reverse = script2code($script, LOCALE_CODE_ALPHA_3);
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Locale/
H A 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 …]
H A 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 …]
/onnv-gate/usr/src/cmd/svr4pkg/pkgremove/
H A Dmain.c174 char script[PATH_MAX]; in main() local
963 (void) snprintf(script, sizeof (script), "%s/preremove", pkgbin); in main()
964 if (access(script, F_OK) != 0) { in main()
970 echoDebug(DBG_PKGREMOVE_POC_NODEL, pkginst, script, in main()
974 echoDebug(DBG_PKGREMOVE_POC_DBUPD, pkginst, script, in main()
981 echoDebug(DBG_PKGREMOVE_EXEPOC_GZ, pkginst, script); in main()
984 echoDebug(DBG_PKGREMOVE_EXEPOC_LZ, pkginst, script, in main()
991 script, NULL), ERR_PREREMOVE); in main()
994 PROC_USER, PROC_GRP, SHELL, script, in main()
1051 (void) snprintf(script, sizeof (script), "%s/postremove", pkgbin); in main()
[all …]
/onnv-gate/usr/src/cmd/svr4pkg/pkginstall/
H A Dreqexec.c53 static int do_exec(int update, char *script, char *output,
87 dup_chkinstall(char *script) in dup_chkinstall() argument
117 r = copyf(script, dstpath, (time_t)0); in dup_chkinstall()
119 progerr(ERR_CANNOT_COPY, script, dstpath); in dup_chkinstall()
223 reqexec(int update, char *script, int non_abi_scripts, in reqexec() argument
247 if (access(script, F_OK) != 0 || respfile_ro) in reqexec()
278 return (do_exec(update, script, resppath, REQ_STDIN, req_user)); in reqexec()
282 chkexec(int update, char *script) in chkexec() argument
318 return (do_exec(update, script, resppath, CHK_STDIN, CHK_USER_ALT)); in chkexec()
322 do_exec(int update, char *script, char *output, char *inport, char *alt_user) in do_exec() argument
[all …]
H A Dmain.c263 char script[PATH_MAX]; in main() local
293 (void) memset(script, '\0', sizeof (script)); in main()
1647 (void) snprintf(script, sizeof (script), "%s/install/checkinstall", in main()
1649 if (access(script, F_OK) != 0) { in main()
1651 echoDebug(DBG_PKGINSTALL_COC_NONE, pkginst, script, in main()
1655 echoDebug(DBG_PKGINSTALL_COC_DBUPD, pkginst, script, in main()
1659 echoDebug(DBG_PKGINSTALL_COC_NODEL, pkginst, script, in main()
1665 echoDebug(DBG_PKGINSTALL_EXECOC_GZ, pkginst, script); in main()
1668 echoDebug(DBG_PKGINSTALL_EXECOC_LZ, pkginst, script, in main()
1671 n = chkexec(update, script); in main()
[all …]
/onnv-gate/usr/src/cmd/svc/lsvcrun/
H A Dlsvcrun.c194 get_start_pg(const char *script, scf_handle_t *h, scf_service_t *svc, in get_start_pg() argument
201 if ((pg_name = start_pg_name(script)) == NULL) in get_start_pg()
229 "not launching \"%s\".\n"), script); in get_start_pg()
277 "seems to be running.\n"), script); in get_start_pg()
286 "group.\n"), script); in get_start_pg()
392 get_stop_pg(const char *script, scf_handle_t *h, scf_service_t *svc, in get_stop_pg() argument
399 if (stat(script, &st) != 0) { in get_stop_pg()
400 uu_warn(gettext("Couldn't stat %s (%s).\n"), script, in get_stop_pg()
405 if ((suffix = script_suffix(script)) == NULL) { in get_stop_pg()
420 "doesn't seem to be running.\n"), script); in get_stop_pg()
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dmagic.t207 $script = "$wd/show-shebang";
212 $script = "$wd/show-shebang.bat";
227 $script = "./show-shebang";
230 $script = ":show-shebang";
233 $script = "[]show-shebang";
241 $s1 = "\$^X is $perl, \$0 is $script\n";
242 ok open(SCRIPT, ">$script"), $!;
249 ok chmod(0755, $script), $!;
250 $_ = ($Is_MacOS || $Is_VMS) ? `$perl $script` : `$script`;
256 $_ = `$perl $script`;
[all …]
/onnv-gate/usr/src/cmd/sgs/tools/
H A Dlibconv_mk_report_bufsize.pl31 use vars qw($script $limit $i);
33 $script = "libconv_mk_report_bufsize";
48 die "usage: $script toplimit\n";
51 die "$script: Unable to create report_bufsize.h";
56 * This file was generated by $script,
/onnv-gate/usr/src/cmd/saf/
H A Dadmutil.c276 do_config(char *script, char *basename) in do_config() argument
284 if (script) { in do_config()
286 if (access(script, 0) == 0) { in do_config()
287 if (stat(script, &statbuf) < 0) { in do_config()
289 (void) fprintf(stderr, "Could not stat <%s>\n", script); in do_config()
293 (void) fprintf(stderr, "warning - %s not a regular file - ignored\n", script); in do_config()
299 (void) fprintf(stderr, "Invalid request, %s does not exist\n", script); in do_config()
302 ifp = fopen(script, "r"); in do_config()
304 (void) fprintf(stderr, "Invalid request, can not open %s\n", script); in do_config()
/onnv-gate/usr/src/cmd/dtrace/test/tst/common/mdb/
H A Dtst.dtracedcmd.ksh37 script() function
53 kill $script
63 script &
64 script=$!
/onnv-gate/usr/src/cmd/sgs/packages/common/
H A Dreadme_revision60 use vars qw($script $usage $readme $cnt);
65 $script = $_[$#_];
66 $usage = "usage: $script [-d] [readme-file]\n";
101 open(FILE, $readme) || die "$script: Unable to open $readme\n";
/onnv-gate/usr/src/tools/cscope-fast/
H A Dcommand.c491 FILE *script; /* shell script file */ in changestring() local
498 if ((script = fopen(temp2, "w")) == NULL) { in changestring()
605 (void) fprintf(script, "ed - <<\\!\nH\n"); in changestring()
628 (void) fprintf(script, in changestring()
633 (void) fprintf(script, "e %s\n", oldfile); in changestring()
636 (void) fprintf(script, in changestring()
640 (void) putc('\\', script); in changestring()
642 (void) putc(*s, script); in changestring()
644 (void) putc('/', script); /* to */ in changestring()
647 (void) putc('\\', script); in changestring()
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/utils/port/
H A DREADME20 this, unpack perl 5.8.4 and then run the InstallPerl script from inside the
21 directory. This script needs to be setuid root, and will install perl under
29 From the perl build directory, run the MapFiles script. This will produce
33 the MapFiles script.
37 Run the CheckIn script, giving as parameters the CSV file, the perl build
38 directory and the workspace that perl is to be checked in to. The script
39 outputs a shell script to stdout, the script contains the commands necessary
44 Verify that the resulting script looks sane, then run it to perform the
71 CheckIn Generates a ksh script to do the integration.
/onnv-gate/usr/src/cmd/sgs/tools/common/
H A Dsgsmsg_piglatin_nl.pl62 use vars qw($script $lineno);
64 $script = 'sgsmsg_piglatin_nl';
66 die "usage: $script start_index\n" if ($ARGV[0] eq '');
/onnv-gate/usr/src/cmd/filebench/fbscript/
H A Dfilebench.pl275 $script = $mstrstatsdir . "/stats$SCRIPT_NO.sh";
276 open (RUNSCRIPT, ">$script");
277 chmod (0755, $script);
278 print FSCRIPT "system \"$script\"\n";
308 $script = $mstrstatsdir . "/stats$SCRIPT_NO.sh";
309 open (RUNSCRIPT, ">$script");
310 chmod (0755, $script);
311 print FSCRIPT "system \"$script\"\n";
324 $script = $mstrstatsdir . "/stats$SCRIPT_NO.pl";
325 open (RUNSCRIPT, ">$script");
[all …]
/onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dscript.t21 $x = `$Perl Comp.script`;
25 $x = `$Perl <Comp.script`;
29 unlink 'Comp.script' || `/bin/rm -f Comp.script`;
/onnv-gate/usr/src/lib/libast/common/comp/
H A Dconf.sh190 script=
199 eval script='$'script_$1
203 "sh{") script="# $name" ;;
204 *) script= ;;
213 script=$script$nl$line
278 eval CONF_script_${key}='$'script
300 …n" "$flags" "$define${values:+$sp=$values}${headers:+$sp$headers$nl}${script:+$sp$ob$script$nl$cb}"
634 …n" "$flags" "$define${values:+$sp=$values}${headers:+$sp$headers$nl}${script:+$sp$ob$script$nl$cb}"
1077 '') case $script in
1078 '#'*) echo "$script" > $tmp.sh
[all …]

12345678910>>...16