Lisp/Scheme code in VMware WS 17.6.1

At the end of the 'vmware-vmx' binary/compiled file (VMware WS 17.6.1), I've found ~110k of (autogenerated) Lisp/Scheme code, seemingly related to VM configuration...

Excerpt:

(define (get-vgpu-predtree-work is-restoring devname profile)
  (let ((modNamePred (list 0
                           "_moduleName" "nvidia"))
        (profilePred (list 0x2
                           "_vgpu" profile))
        (overridePred (get-vgpu-override-pred devname)))
    (if (not overridePred) #f
        (if is-restoring
            (let ((vmotionPreds (get-vgpu-vmotion-preds devname "_")))
              (cons 0x14
                    (cons modNamePred
                          (cons profilePred
                                (if (null? overridePred)
                                    vmotionPreds
                                    (cons overridePred vmotionPreds))))))
            (if (null? overridePred)
                (list 0x14 modNamePred profilePred)
                (list 0x14 modNamePred profilePred
                      overridePred))))))
(define (get-dvx-predtree devname is-restoring devNum)
  (let ((devClass (vmconfig-getstr () (string-append devname ".dvx.deviceClass")))
        (netpred (if (is-sriov-nic devname)
                     (let ((switchpred (mk-switch-pred devname "_")))
                       (if (null? switchpred)
                           (list 0x7 #f)
                           switchpred))
                     (list 0x7 #t))))
    (cond ((null? devClass)
           (list "pciPassthru" devNum #f))

All the code, ~100k of it.

(the post first published at 20241015.)

List of my other blog posts.

Subscribe to my news feed,

Yes, I know about these lousy Disqus ads. Please use adblocker. I would consider to subscribe to 'pro' version of Disqus if the signal/noise ratio in comments would be good enough.