Sorry I don't know if this is right list.
I use scripts of such a kind (I say "SQLbang")
#!/usr/local/bin/psql -qQ
\a \t \pset fieldsep ' '
\set router '\'' :1 '\''
SELECT ispdb_sfbsdr_allow(network(inet),niface)FROM ispdb_sfbsdr_riaddr, netsWHERE nrouter = :router AND int_type =
index_int_type('int') AND network(inet) <<= network(net) AND nets.control
Parameters after sqlbang's name goes to :1, :2 so on.
This is patch:
--- doc/src/sgml/ref/psql-ref.sgml Sun Apr 1 23:17:30 2001
+++ doc/src/sgml/ref/psql-ref.sgml Thu Apr 26 05:46:20 2001
@@ -1406,6 +1406,22 @@ <varlistentry>
+ <term>-Q <replaceable class="parameter">filename</replaceable></term>
+ <listitem>
+ <para>
+ Use the file <replaceable class="parameter">filename</replaceable>
+ as the source of queries instead of reading queries interactively.
+ After the file is processed, <application>psql</application> terminates.
+ This in many ways similar to the <literal>-f</literal> flag,
+ but for use in <quote>sqlbang</quote> scripts.
+ First script's psrameters will be assigned to
+ <literal>:1</literal> .. <literal>:9</literal> variables.
+ </para>
+ </listitem>
+ </varlistentry>
+
+
+ <varlistentry> <term>-R, --record-separator <replaceable class="parameter">separator</replaceable></term>
<listitem> <para>
--- src/bin/psql/help.c Thu Oct 25 09:49:54 2001
+++ src/bin/psql/help.c Sun Mar 17 02:56:34 2002
@@ -112,6 +112,7 @@ puts(_(" -P VAR[=ARG] Set printing option 'VAR' to 'ARG' (see \\pset command)"));
puts(_(" -q Run quietly (no messages, only query output)"));
+ puts(_(" -Q Like -f, for scripts, arguments :1 .. :9")); puts(_(" -R STRING Set record
separator(default: newline) (-P recordsep=)")); puts(_(" -s Single step mode (confirm each query)"));
puts(_(" -S Single line mode (end of line terminates SQL command)"));
--- src/bin/psql/mainloop.c Sun Apr 1 23:17:32 2001
+++ src/bin/psql/mainloop.c Thu Apr 26 05:51:46 2001
@@ -53,7 +53,7 @@ const char *var; volatile unsigned int bslash_count = 0;
- int i,
+ int i,j, prevlen, thislen;
@@ -91,7 +91,7 @@ /* main loop to get queries and execute them */
- while (1)
+ for(j = 0;;j++) {#ifndef WIN32
@@ -189,6 +189,11 @@ line = gets_fromFile(source); }
+ if (!j && line && line[0] == '#' && line[1] == '!')
+ {
+ free(line);
+ continue;
+ } /* Setting this will not have effect until next line. */ die_on_error =
GetVariableBool(pset.vars,"ON_ERROR_STOP");
--- src/bin/psql/startup.c.orig Mon Nov 5 20:46:31 2001
+++ src/bin/psql/startup.c Sun Mar 17 03:28:01 2002
@@ -237,7 +237,7 @@ */ /*
- * process file given by -f
+ * process file given by -f or -Q */ if (options.action == ACT_FILE && strcmp(options.action_string, "-")
!=0) {
@@ -369,19 +369,19 @@ extern char *optarg; extern int optind; int c;
- bool used_old_u_option = false;
+ bool used_old_u_option = false, sqlbang = false; memset(options, 0, sizeof *options);#ifdef
HAVE_GETOPT_LONG
- while ((c = getopt_long(argc, argv, "aAc:d:eEf:F:h:Hlno:p:P:qR:sStT:uU:v:VWxX?", long_options, &optindex)) != -1)
+ while ((c = getopt_long(argc, argv, "aAc:d:eEf:F:h:Hlno:p:P:qQ:R:sStT:uU:v:VWxX?", long_options, &optindex)) !=
-1)#else /* not HAVE_GETOPT_LONG */ /* * Be sure to leave the '-' in here, so we can
catchaccidental long * options. */
- while ((c = getopt(argc, argv, "aAc:d:eEf:F:h:Hlno:p:P:qR:sStT:uU:v:VWxX?-")) != -1)
+ while ((c = getopt(argc, argv, "aAc:d:eEf:F:h:Hlno:p:P:qQ:R:sStT:uU:v:VWxX?-")) != -1)#endif /* not
HAVE_GETOPT_LONG*/ { switch (c)
@@ -464,6 +464,12 @@ case 'q': SetVariableBool(pset.vars, "QUIET"); break;
+ case 'Q':
+ SetVariableBool(pset.vars, "ON_ERROR_STOP");
+ options->action = ACT_FILE;
+ options->action_string = optarg;
+ sqlbang = true;
+ break; case 'R': pset.popt.topt.recordSep = xstrdup(optarg);
break;
@@ -563,21 +569,45 @@ } }
- /*
- * if we still have arguments, use it as the database name and
- * username
- */
- while (argc - optind >= 1)
+ if (sqlbang) {
- if (!options->dbname)
- options->dbname = argv[optind];
- else if (!options->username)
- options->username = argv[optind];
- else if (!QUIET())
- fprintf(stderr, gettext("%s: warning: extra option %s ignored\n"),
- pset.progname, argv[optind]);
+ char optname[] = "1";
+ while (argc - optind >= 1)
+ {
+ if (optname[0] <= '9')
+ {
+ if (!SetVariable(pset.vars, optname, argv[optind]))
+ {
+ fprintf(stderr, "%s: could not set variable %s\n",
+ pset.progname, optname);
+ exit(EXIT_FAILURE);
+ }
+ }
+ else if (!QUIET())
+ fprintf(stderr, "%s: warning: extra option %s ignored\n",
+ pset.progname, argv[optind]);
+ optname[0]++;
+ optind++;
+ }
+ }
+ else
+ {
+ /*
+ * if we still have arguments, use it as the database name and
+ * username
+ */
+ while (argc - optind >= 1)
+ {
+ if (!options->dbname)
+ options->dbname = argv[optind];
+ else if (!options->username)
+ options->username = argv[optind];
+ else if (!QUIET())
+ fprintf(stderr, gettext("%s: warning: extra option %s ignored\n"),
+ pset.progname, argv[optind]);
- optind++;
+ optind++;
+ } } if (used_old_u_option && !QUIET())
I propose to include this feature.
Sorry for bad English.
--
@BABOLO http://links.ru/