Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
T
Tor
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package registry
Container Registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Benjamin J. Thompson
Tor
Commits
e8760b6e
Commit
e8760b6e
authored
8 years ago
by
cypherpunks
Committed by
Nick Mathewson
8 years ago
Browse files
Options
Downloads
Patches
Plain Diff
Use the new message function
Substitutions were made using `sed -e 's/print/msg/g'`.
parent
4b251631
No related branches found
Branches containing commit
No related tags found
Tags containing commit
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
scripts/maint/checkSpace.pl
+23
-23
23 additions, 23 deletions
scripts/maint/checkSpace.pl
with
23 additions
and
23 deletions
scripts/maint/checkSpace.pl
+
23
−
23
View file @
e8760b6e
...
...
@@ -27,33 +27,33 @@ for my $fn (@ARGV) {
# (We insist on lines that end with a single LF character, not
# CR LF.)
if
(
/\r/
)
{
print
"
CR:
$fn
:$.
\n
";
msg
"
CR:
$fn
:$.
\n
";
}
## Warn about tabs.
# (We only use spaces)
if
(
/\t/
)
{
print
"
TAB:
$fn
:$.
\n
";
msg
"
TAB:
$fn
:$.
\n
";
}
## Warn about labels that don't have a space in front of them
# (We indent every label at least one space)
if
(
/^[a-zA-Z_][a-zA-Z_0-9]*:/
)
{
print
"
nosplabel:
$fn
:$.
\n
";
msg
"
nosplabel:
$fn
:$.
\n
";
}
## Warn about trailing whitespace.
# (We don't allow whitespace at the end of the line; make your
# editor highlight it for you so you can stop adding it in.)
if
(
/ +$/
)
{
print
"
Space
\@
EOL:
$fn
:$.
\n
";
msg
"
Space
\@
EOL:
$fn
:$.
\n
";
}
## Warn about control keywords without following space.
# (We put a space after every 'if', 'while', 'for', 'switch', etc)
if
(
$C
&&
/\s(?:if|while|for|switch)\(/
)
{
print
"
KW(:
$fn
:$.
\n
";
msg
"
KW(:
$fn
:$.
\n
";
}
## Warn about #else #if instead of #elif.
# (We only allow #elif)
if
((
$lastline
=~
/^\# *else/
)
and
(
$_
=~
/^\# *if/
))
{
print
"
#else#if:
$fn
:$.
\n
";
msg
"
#else#if:
$fn
:$.
\n
";
}
## Warn about some K&R violations
# (We use K&R-style C, where open braces go on the same line as
...
...
@@ -65,22 +65,22 @@ for my $fn (@ARGV) {
# }
if
(
/^\s+\{/
and
$lastline
=~
/^\s*(if|while|for|else if)/
and
$lastline
!~
/\{$/
)
{
print
"
non-K&R {:
$fn
:$.
\n
";
msg
"
non-K&R {:
$fn
:$.
\n
";
}
if
(
/^\s*else/
and
$lastline
=~
/\}$/
)
{
print
"
}
\\
nelse:
$fn
:$.
\n
";
msg
"
}
\\
nelse:
$fn
:$.
\n
";
}
$lastline
=
$_
;
## Warn about unnecessary empty lines.
# (Don't put an empty line before a line that contains nothing
# but a closing brace.)
if
(
$lastnil
&&
/^\s*}\n/
)
{
print
"
UnnecNL:
$fn
:$.
\n
";
msg
"
UnnecNL:
$fn
:$.
\n
";
}
## Warn about multiple empty lines.
# (At most one blank line in a row.)
if
(
$lastnil
&&
/^$/
)
{
print
"
DoubleNL:
$fn
:$.
\n
";
msg
"
DoubleNL:
$fn
:$.
\n
";
}
elsif
(
/^$/
)
{
$lastnil
=
1
;
}
else
{
...
...
@@ -90,7 +90,7 @@ for my $fn (@ARGV) {
## accept double-line lines.
# (Don't make lines wider than 80 characters, including newline.)
if
(
/^.{80}/
)
{
print
"
Wide:
$fn
:$.
\n
";
msg
"
Wide:
$fn
:$.
\n
";
}
### Juju to skip over comments and strings, since the tests
### we're about to do are okay there.
...
...
@@ -115,22 +115,22 @@ for my $fn (@ARGV) {
## Warn about C++-style comments.
# (Use C style comments only.)
if
(
m!//!
)
{
#
print
" //:$fn:$.\n";
#
msg
" //:$fn:$.\n";
s!//.*!!
;
}
## Warn about unquoted braces preceded by non-space.
# (No character except a space should come before a {)
if
(
/([^\s'])\{/
)
{
print
"
$1
\
{:
$fn
:$.
\n
";
msg
"
$1
\
{:
$fn
:$.
\n
";
}
## Warn about multiple internal spaces.
#if (/[^\s,:]\s{2,}[^\s\\=]/) {
#
print
" X X:$fn:$.\n";
#
msg
" X X:$fn:$.\n";
#}
## Warn about { with stuff after.
#s/\s+$//;
#if (/\{[^\}\\]+$/) {
#
print
" {X:$fn:$.\n";
#
msg
" {X:$fn:$.\n";
#}
## Warn about function calls with space before parens.
# (Don't put a space between the name of a function and its
...
...
@@ -142,7 +142,7 @@ for my $fn (@ARGV) {
$
1
ne
"
void
"
and
$
1
ne
"
__attribute__
"
and
$
1
ne
"
op
"
and
$
1
ne
"
size_t
"
and
$
1
ne
"
double
"
and
$
1
ne
"
workqueue_reply_t
")
{
print
"
fn ():
$fn
:$.
\n
";
msg
"
fn ():
$fn
:$.
\n
";
}
}
## Warn about functions not declared at start of line.
...
...
@@ -154,7 +154,7 @@ for my $fn (@ARGV) {
!
/^(?:const |static )*(?:typedef|struct|union)[^\(]*$/
&&
!
/= *\{$/
&&
!
/;$/
))
{
if
(
/.\{$/
){
print
"
fn() {:
$fn
:$.
\n
";
msg
"
fn() {:
$fn
:$.
\n
";
$in_func_head
=
0
;
}
elsif
(
/^\S[^\(]* +\**[a-zA-Z0-9_]+\(/
)
{
$in_func_head
=
-
1
;
# started with tp fn
...
...
@@ -162,7 +162,7 @@ for my $fn (@ARGV) {
$in_func_head
=
0
;
}
elsif
(
/\{/
)
{
if
(
$in_func_head
==
-
1
)
{
print
"
tp fn():
$fn
:$.
\n
";
msg
"
tp fn():
$fn
:$.
\n
";
}
$in_func_head
=
0
;
}
...
...
@@ -171,19 +171,19 @@ for my $fn (@ARGV) {
## Check for forbidden functions except when they are
# explicitly permitted
if
(
/\bassert\(/
&&
not
/assert OK/
)
{
print
"
assert :
$fn
:$. (use tor_assert)
\n
";
msg
"
assert :
$fn
:$. (use tor_assert)
\n
";
}
if
(
/\bmemcmp\(/
&&
not
/memcmp OK/
)
{
print
"
memcmp :
$fn
:$. (use {tor,fast}_mem{eq,neq,cmp}
\n
";
msg
"
memcmp :
$fn
:$. (use {tor,fast}_mem{eq,neq,cmp}
\n
";
}
# always forbidden.
if
(
not
/\ OVERRIDE\ /
)
{
if
(
/\bstrcat\(/
or
/\bstrcpy\(/
or
/\bsprintf\(/
)
{
print
"
$& :
$fn
:$.
\n
";
msg
"
$& :
$fn
:$.
\n
";
}
if
(
/\bmalloc\(/
or
/\bfree\(/
or
/\brealloc\(/
or
/\bstrdup\(/
or
/\bstrndup\(/
or
/\bcalloc\(/
)
{
print
"
$& :
$fn
:$. (use tor_malloc, tor_free, etc)
\n
";
msg
"
$& :
$fn
:$. (use tor_malloc, tor_free, etc)
\n
";
}
}
}
...
...
@@ -191,7 +191,7 @@ for my $fn (@ARGV) {
## Warn if the file doesn't end with a blank line.
# (End each file with a single blank line.)
if
(
!
$lastnil
)
{
print
"
EOL
\@
EOF:
$fn
:$.
\n
";
msg
"
EOL
\@
EOF:
$fn
:$.
\n
";
}
close
(
F
);
}
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment