Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
Per Cederqvist
lyskom-server-ceder-1616-generations-topgit
Commits
24aa07a7
Commit
24aa07a7
authored
Oct 06, 1998
by
Per Cederqvist
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(read_versions): New function, extracted from ../lyskomd.0/01.exp.
parent
b2ec3688
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
22 additions
and
0 deletions
+22
-0
src/server/testsuite/config/unix.exp
src/server/testsuite/config/unix.exp
+22
-0
No files found.
src/server/testsuite/config/unix.exp
View file @
24aa07a7
...
...
@@ -303,3 +303,25 @@ proc holl {str} {
return "[string length $str]H$str"
}
proc read_versions {} {
# Read $top_srcdir/versions and store the versions in global variables.
global top_srcdir
global protocol_a_level
global server_software
global server_version
global server_compat_version
set f [open "$top_srcdir/versions"]
while {[gets $f line] >= 0} {
if {[lindex $line 0] == "PROTOCOL-A-LEVEL:"} {
set protocol_a_level [lindex $line 1]
} elseif {[lindex $line 0] == "SERVER-SOFTWARE:"} {
set server_software [lindex $line 1]
} elseif {[lindex $line 0] == "SERVER-VERSION:"} {
set server_version [lindex $line 1]
} elseif {[lindex $line 0] == "SERVER-COMPAT-VERSION:"} {
set server_compat_version [lindex $line 1]
}
}
close $f
}
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment