The
(vl-pp argv &key (state 'state)) → state
Function:
(defun vl-pp-fn (argv state) (declare (xargs :stobjs (state))) (declare (xargs :guard (string-listp argv))) (let ((__function__ 'vl-pp)) (declare (ignorable __function__)) (b* (((mv errmsg opts start-files) (parse-vl-pp-opts argv)) ((when errmsg) (die "~@0~%" errmsg) state) (opts (change-vl-pp-opts opts :start-files start-files)) ((vl-pp-opts opts) opts) ((when opts.help) (vl-cw-ps-seq (vl-print *vl-pp-help*)) (exit-ok) state) ((when opts.readme) (vl-cw-ps-seq (vl-print *vl-pp-readme*)) (exit-ok) state) ((unless (consp opts.start-files)) (die "No files to process.") state) (- (cw "Starting VL Preprocessor:~%")) (- (cw " - start files: ~x0~%" opts.start-files)) (state (must-be-regular-files! opts.start-files)) (- (cw " - include dirs: ~x0~%" opts.include-dirs)) (state (must-be-directories! opts.include-dirs)) (- (cw " - writing output to ~x0:~%" opts.output)) (- (cw " - soft heap size ceiling: ~x0 GB~%" opts.mem)) (- (acl2::set-max-mem (* (expt 2 30) opts.mem))) (state (vl-pp-main opts))) (exit-ok) state)))