File: tcl2ini.tcl

package info (click to toggle)
aolserver4 4.0.10-3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 10,980 kB
  • ctags: 14,068
  • sloc: ansic: 39,138; tcl: 3,233; sh: 2,703; makefile: 255; php: 13
file content (59 lines) | stat: -rw-r--r-- 1,759 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
#
# The contents of this file are subject to the AOLserver Public License
# Version 1.1 (the "License"); you may not use this file except in
# compliance with the License. You may obtain a copy of the License at
# http://aolserver.com/.
#
# Software distributed under the License is distributed on an "AS IS"
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
# the License for the specific language governing rights and limitations
# under the License.
#
# The Original Code is AOLserver Code and related documentation
# distributed by AOL.
# 
# The Initial Developer of the Original Code is America Online,
# Inc. Portions created by AOL are Copyright (C) 1999 America Online,
# Inc. All Rights Reserved.
#
# Alternatively, the contents of this file may be used under the terms
# of the GNU General Public License (the "GPL"), in which case the
# provisions of GPL are applicable instead of those above.  If you wish
# to allow use of your version of this file only under the terms of the
# GPL and not to allow others to use your version of this file under the
# License, indicate your decision by deleting the provisions above and
# replace them with the notice and other provisions required by the GPL.
# If you do not delete the provisions above, a recipient may use your
# version of this file under either the License or the GPL.
#

# tcl2ini.tcl --
#
#	Dump old-style nsd.ini format.
#
#  Usage:
#	nsd -ft tcl2ini.tcl nsd.tcl 
#


proc ns_section s {
	global _section
	set _section $s
}

proc ns_param {k v} {
	global _section _sections
	lappend _sections($_section) $k $v
}

source [lindex $argv 3]

foreach s [lsort [array names _sections]] {
	puts "\[$s\]"
	foreach {k v} $_sections($s) {
		puts "  $k = $v"
	}
	puts ""
}

exit