Megatest

Check-in [97fa5b16d5]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
Overview
Comment:corrected client.scm changes
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | nanomsg-ectomy
Files: files | file ages | folders
SHA1: 97fa5b16d5ce70d731948dfceb3f8e97821fd0b3
User & Date: bjbarcla on 2016-10-03 12:45:27
Other Links: branch diff | manifest | tags
Context
2016-10-03
14:05
removed nanomsg dependency check-in: 4aaf0c61b9 user: bjbarcla tags: v1.62
12:45
corrected client.scm changes Closed-Leaf check-in: 97fa5b16d5 user: bjbarcla tags: nanomsg-ectomy
12:35
removed nanomsg dependency check-in: 2105102cdc user: bjbarcla tags: nanomsg-ectomy
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified client.scm from [aa28cc9571] to [c5821d20e2].

︙
169
170
171
172
173
174
175
176

177
178
179
180





181
182
183
184
185
186
187

169
170
171
172
173
174
175

176




177
178
179
180
181
182
183
184
185
186
187
188








-
+
-
-
-
-
+
+
+
+
+








		     (port      (tasks:hostinfo-get-port      server-dat))
		     (start-res (case *transport-type*
				  ((http)(http-transport:client-connect iface port))
				  ;;((nmsg)(nmsg-transport:client-connect hostname port))
                                  ))
		     (ping-res  (case *transport-type* 
				  ((http)(rmt:login-no-auto-client-setup start-res run-id))
				  ;;((nmsg)(let ((logininfo (rmt:login-no-auto-client-setup start-res run-id)
				  ;; ((nmsg)(let ((logininfo (rmt:login-no-auto-client-setup start-res run-id)))
                                                          ))
 					   (if logininfo
 					       (car (vector-ref logininfo 1))
 					       #f))))))
 				  ;;          (if logininfo
 				  ;;              (car (vector-ref logininfo 1))
 				  ;;              #f)))

                                  )))
		(if (and start-res
			 ping-res)
		    (begin
		      (hash-table-set! *runremote* run-id start-res)
		      (debug:print-info 2 *default-log-port* "connected to " (http-transport:server-dat-make-url start-res))
		      start-res)
		    (begin    ;; login failed but have a server record, clean out the record and try again
︙

This page was generated in about 0.103s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00