@david-barr
Forum Replies Created
-
This code:
set PID [lsearch -all -inline -regexp $segList “^PID”]
returns a list in $PID. This code:
set PIDSplit [split $PID $fieldSep]
expects $PID to contain a string, not a list.
You might be able to able to fix this by getting rid of the -all. If you really do need to handle more than one PID segment then you would probably need to add a loop to your code to iterate over all the matched segments.
I’ve had Python 3 scripts working as TPS procs for a while. As you pointed out, you need to have PATH and LD_LIBRARY_PATH updated to include the cpython folder. It looks like I’m using version 3.8.12 which was referred to in one of the install guides, and it works. I’m currently on Cloverleaf 2022.09.03.
The problem I have is that I’m setting PATH and LD_LIBRARY_PATH in /etc/profile. That works when I start the engine processes from a shell prompt, but it doesn’t work when I use the supplied autostart scripts called from /usr/lib/systemd/system/cloverleaf-autostart.service.
Do you know how I can get the environment set up so that the autostart service has LD_LIBRARY_PATH set correctly when called on system startup?
Here’s the code to check if the date is a holiday.# Memorial Day – (Last Monday in may)# Labor Day – (First Monday in September)# Thanksgiving – (4th Thursday in November)# New Year’s Day – (January 1st)# Independence Day – (July 4th)# Christmas Eve – (December 24th)# Christmas Day – (December 25th)proc vmc_holidays { year } {set res {}# Memorial day, labor day, Thanksgivingforeach { month dow lim ind } {05 1 31 end09 1 30 011 4 30 3} {set s2 {}# get the numeric day of the week for the first of the monthset s [clock format [clock scan [format “%s%s01” $year $month]] -format %w]# find the day of month of the first monday or thursset day [expr (7+$dow-$s)%7+1]while { $day <= $lim } {# add the date of each matching day of the week in the month to a listlappend s2 [format “%s%s%02d” $year $month $day]incr day 7}# pick out just date specified by “ind” abovelappend res [lindex $s2 $ind]}# new years, independence, christmas & eve, new years observedforeach x { 0101 0704 1225 1231 } {set d “$year$x”set s [clock scan $d]set dow [clock format $s -format %a]if { $x eq “1231” && $dow ne “Fri” } {# new years day observed on Fri, 12/31continue}if { $x eq “1225” } {# compute where christmas and christmas eve fallif { $dow eq “Sat” } {lappend res [clock format [clock add $s -2 days] -format %Y%m%d]set s [clock add $s -1 day]} elseif { $dow eq “Sun” } {lappend res [clock format [clock add $s -2 days] -format %Y%m%d]set s [clock add $s 1 day]} elseif { $dow eq “Mon” } {lappend res [clock format [clock add $s 1 days] -format %Y%m%d]} else {lappend res [clock format [clock add $s -1 days] -format %Y%m%d]}} elseif { $dow eq “Sat” } {if { $x eq “0101” } {# this was observed last yearcontinue}set s [clock add $s -1 day]} elseif { $dow eq “Sun” } {set s [clock add $s 1 day]}lappend res [clock format $s -format %Y%m%d]}return [lsort $res]}proc is_vmc_holiday { date } {# see if the first 8 digits of the date or date/time stamp are in the list of holidays generated by the year portion of the datereturn [expr [lsearch -exact [vmc_holidays [string range $date 0 3]] [string range $date 0 7]] >= 0]}
