#
#
# Copyright (C) 1994-2018 Altair Engineering, Inc.
# For more information, contact Altair at www.altair.com.
#
# This file is part of the PBS Professional ("PBS Pro") software.
#
# Open Source License Information:
#
# PBS Pro is free software. You can redistribute it and/or modify it under the
# terms of the GNU Affero General Public License as published by the Free
# Software Foundation, either version 3 of the License, or (at your option) any
# later version.
#
# PBS Pro is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE.
# See the GNU Affero General Public License for more details.
#
# You should have received a copy of the GNU Affero General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
# Commercial License Information:
#
# For a copy of the commercial license terms and conditions,
# go to: (http://www.pbspro.com/UserArea/agreement.html)
# or contact the Altair Legal Department.
#
# Altair’s dual-license business model allows companies, individuals, and
# organizations to create proprietary derivative works of PBS Pro and
# distribute them - whether embedded or bundled with other software -
# under a commercial license agreement.
#
# Use of Altair’s trademarks, including but not limited to "PBS™",
# "PBS Professional®", and "PBS Pro™" and Altair’s logos is subject to Altair's
# trademark licensing policies.
#
#
proc niceprint {level name} {
	upvar $name str

	if {$level == 0} {
		set colone ""
		set limit 78
	} else {
		set colone "\t"
		set limit 70
	}

	set comma [string first "," $str]
	if {$comma != -1} {
		if {$comma < $limit} {
			set line ""
			while {[string length $line] + $comma < $limit} {
				set line "$line[string range $str 0 $comma]"
				set str [string range $str [expr $comma+1] end]

				set comma [string first "," $str]
				if {$comma == -1} {
					break
				}
			}
		} else {
			set line [string range $str 0 $comma]
			set str [string range $str [expr $comma+1] end]
		}
	} else {
		set line $str
		set str ""
	}

	puts "$colone[string range $line 0 $limit]"
	set line [string range $line [expr $limit+1] end]
	set len [string length $line]
	while {$len > 0} {
		puts "\t[string range $line 0 70]"
		set line [string range $line 71 end]
		set len [string length $line]
	}
}

if {[lsearch [info vars] objects] == -1} return

foreach object $objects {
	foreach obj [lindex $object 1] {
		puts "[lindex $object 0]: [lindex $obj 0]"
		foreach attr [lindex $obj 1] {
			set name [lindex $attr 0]
			set value [lindex $attr 1]

			set line "   $name = $value"
			set len [string length $line]
			if {$len < 80} {
				puts $line
				continue
			}

			set comma [string first "," $line]
			if {$comma == -1} {
				puts [string range $line 0 78]
				set line [string range $line 79 end]
				set len [string length $line]
				while {$len > 0} {
					puts "\t[string range $line 0 70]"
					set line [string range $line 71 end]
					set len [string length $line]
				}
				continue;
			}

			niceprint 0 line 
			set len [string length $line]
			while {$len > 0} {
				niceprint 1 line
				set len [string length $line]
			}
		}
		puts [lindex $obj 3]
	}
}
