Re: [INTERFACES] sqlbang - Mailing list pgsql-hackers
From | Bruce Momjian |
---|---|
Subject | Re: [INTERFACES] sqlbang |
Date | |
Msg-id | 200204180349.g3I3nBv04245@candle.pha.pa.us Whole thread Raw |
Responses |
Re: [INTERFACES] sqlbang
("."@babolo.ru)
|
List | pgsql-hackers |
Can someone comment on this feature? --------------------------------------------------------------------------- "."@babolo.ru wrote: > 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, nets > WHERE 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 catch accidental 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/ > > ---------------------------(end of broadcast)--------------------------- > TIP 2: you can get off all lists at once with the unregister command > (send "unregister YourEmailAddressHere" to majordomo@postgresql.org) > -- Bruce Momjian | http://candle.pha.pa.us pgman@candle.pha.pa.us | (610) 853-3000+ If your life is a hard drive, | 830 Blythe Avenue + Christ can be your backup. | Drexel Hill, Pennsylvania19026
pgsql-hackers by date: