summaryrefslogtreecommitdiff
path: root/src/pl/tcl
diff options
context:
space:
mode:
authorPeter Eisentraut2013-11-10 14:20:52 +0000
committerPeter Eisentraut2013-11-10 19:48:29 +0000
commit001e114b8d59f4eaf2a314a2bc5e57078afdf82f (patch)
tree606fa622be346ef917886a29aea7e17383e00d31 /src/pl/tcl
parentdca09ac53329e92d73f45674957c26d3d7ae5117 (diff)
Fix whitespace issues found by git diff --check, add gitattributes
Set per file type attributes in .gitattributes to fine-tune whitespace checks. With the associated cleanups, the tree is now clean for git
Diffstat (limited to 'src/pl/tcl')
-rw-r--r--src/pl/tcl/expected/pltcl_setup.out10
-rw-r--r--src/pl/tcl/modules/pltcl_listmod.in4
-rw-r--r--src/pl/tcl/modules/pltcl_loadmod.in4
-rw-r--r--src/pl/tcl/sql/pltcl_setup.sql10
4 files changed, 14 insertions, 14 deletions
diff --git a/src/pl/tcl/expected/pltcl_setup.out b/src/pl/tcl/expected/pltcl_setup.out
index 3f36a80525..c4cdb26bde 100644
--- a/src/pl/tcl/expected/pltcl_setup.out
+++ b/src/pl/tcl/expected/pltcl_setup.out
@@ -38,7 +38,7 @@ create function check_pkey1_exists(int4, bpchar) returns bool as E'
set GD(plan) [spi_prepare \\
"select 1 from T_pkey1 \\
where key1 = \\$1 and key2 = \\$2" \\
- {int4 bpchar}]
+ {int4 bpchar}]
}
set n [spi_execp -count 1 $GD(plan) [list $1 $2]]
@@ -55,8 +55,8 @@ CREATE VIEW trigger_test_view AS SELECT * FROM trigger_test;
CREATE FUNCTION trigger_data() returns trigger language pltcl as $_$
if { [info exists TG_relid] } {
- set TG_relid "bogus:12345"
- }
+ set TG_relid "bogus:12345"
+ }
set dnames [info locals {[a-zA-Z]*} ]
@@ -72,10 +72,10 @@ CREATE FUNCTION trigger_data() returns trigger language pltcl as $_$
set str "$str$akey: $val"
}
set str "$str}"
- elog NOTICE "$key: $str"
+ elog NOTICE "$key: $str"
} else {
set val [eval list "\$$key" ]
- elog NOTICE "$key: $val"
+ elog NOTICE "$key: $val"
}
}
diff --git a/src/pl/tcl/modules/pltcl_listmod.in b/src/pl/tcl/modules/pltcl_listmod.in
index 231cb3f316..7d930ff0ea 100644
--- a/src/pl/tcl/modules/pltcl_listmod.in
+++ b/src/pl/tcl/modules/pltcl_listmod.in
@@ -109,8 +109,8 @@ set conn [eval pg_connect $dbname $options]
if {$i == $argc} {
pg_select $conn "select distinct modname from pltcl_modules \
- order by modname" \
- MOD {
+ order by modname" \
+ MOD {
listmodule $conn $MOD(modname)
}
} else {
diff --git a/src/pl/tcl/modules/pltcl_loadmod.in b/src/pl/tcl/modules/pltcl_loadmod.in
index c26e2a229e..645c6bbd9c 100644
--- a/src/pl/tcl/modules/pltcl_loadmod.in
+++ b/src/pl/tcl/modules/pltcl_loadmod.in
@@ -84,7 +84,7 @@ proc __PLTcl_loadmod_check_table {conn tabname expnames exptypes} {
set found 0
pg_select $conn "select C.relname, A.attname, A.attnum, T.typname \
- from pg_catalog.pg_class C, pg_catalog.pg_attribute A, pg_catalog.pg_type T \
+ from pg_catalog.pg_class C, pg_catalog.pg_attribute A, pg_catalog.pg_type T \
where C.relname = '$tabname' \
and A.attrelid = C.oid \
and A.attnum > 0 \
@@ -449,7 +449,7 @@ proc __PLTcl_loadmod_load_modules {conn} {
set srctext [string range $srctext 4000 end]
pg_result [ \
- pg_exec $conn "insert into pltcl_modules values ( \
+ pg_exec $conn "insert into pltcl_modules values ( \
'$xname', $i, '$xpart')" \
] -clear
incr i
diff --git a/src/pl/tcl/sql/pltcl_setup.sql b/src/pl/tcl/sql/pltcl_setup.sql
index df7f9fadd1..0ac6669c6e 100644
--- a/src/pl/tcl/sql/pltcl_setup.sql
+++ b/src/pl/tcl/sql/pltcl_setup.sql
@@ -43,7 +43,7 @@ create function check_pkey1_exists(int4, bpchar) returns bool as E'
set GD(plan) [spi_prepare \\
"select 1 from T_pkey1 \\
where key1 = \\$1 and key2 = \\$2" \\
- {int4 bpchar}]
+ {int4 bpchar}]
}
set n [spi_execp -count 1 $GD(plan) [list $1 $2]]
@@ -65,8 +65,8 @@ CREATE VIEW trigger_test_view AS SELECT * FROM trigger_test;
CREATE FUNCTION trigger_data() returns trigger language pltcl as $_$
if { [info exists TG_relid] } {
- set TG_relid "bogus:12345"
- }
+ set TG_relid "bogus:12345"
+ }
set dnames [info locals {[a-zA-Z]*} ]
@@ -82,10 +82,10 @@ CREATE FUNCTION trigger_data() returns trigger language pltcl as $_$
set str "$str$akey: $val"
}
set str "$str}"
- elog NOTICE "$key: $str"
+ elog NOTICE "$key: $str"
} else {
set val [eval list "\$$key" ]
- elog NOTICE "$key: $val"
+ elog NOTICE "$key: $val"
}
}