(setq ;|a41343|;
rr (if_try10 "C063dfn_dcl_onesel2" (list a b))
)
(if (= rr ##err) (princ "You got this error=#<%catch-all-apply-error%>\nPlease you fix here."))
:idiot2:(defun str_pathtemp ( / rr e f k) (asserte "A131")
(setq rr nil f (if_try11 "0x975D" (list (if_try11 "0xE12A" (list "TEMP"))))) (if (and (not rr) f) (setq rr f)) (setq f (if (not f) (if_try11 "0x975D" (list
(if_try11 "0xE12A" (list "TMP")))) f)) (if (and (not rr) f) (setq rr f)) (setq f
(if_try11 "0x975D" (list (if_try11 "0x4E37" (list "TEMPPREFIX")))) f (if (not f) (if_try11 "0x975D" (list (if_try11 "0xE12A" (list "TMP")))) f)) (setq f (if_try11 "0x975D" (list (if_try11 "0x4E37" (list "XLOADPATH"))))
f (if (not f) (if_try11 "0x975D" (list (if_try11 "0xE12A"
(list "TMP")))) f)) (if (= rr nil) (setq rr "")) (setq k (strlen rr)) (if (> k 2) (progn
(while (and (> k 1) (= (if_try11 "0xF2C4" (list rr k 1)) " ")) (setq rr (if_try11 "0xF2C4" (list rr 1 (- k 1))))) (progn (while (and (> k 1) (if_try11 "0x46CA" (list rr "*[\\]*"))) (if (= (if_try11 "0xF2C4" (list rr k 1)) "\\")
(setq rr (if_try11 "0x31AB" (list (if_try11 "0xF2C4" (list rr 1 (- k 1))) "/" (if_try11 "0xF2C4" (list rr (+ k 1))))))) (setq k (- k 1)))) (setq c (if_try11 "0xF2C4" (list rr (strlen rr)))) (if (/= c "/") (setq rr (if_try11 "0x31AB" (list rr "/")))))) rr)
(defun str_pathtemp ( / rr e f k) (asserte "A131")
(setq rr nil f (dfn_var_isstr (getenv "TEMP"))) (if (and (not rr) f) (setq rr f)) (setq f (if (not f)
(dfn_var_isstr (getenv "TMP")) f)) (if (and (not rr) f)
(setq rr f)) (setq f (dfn_var_isstr (getvar "TEMPPREFIX")) f (if (not f) (dfn_var_isstr (getenv "TMP")) f))
(setq f (dfn_var_isstr (getvar "XLOADPATH")) f (if (not f) (dfn_var_isstr (getenv "TMP")) f)) (if (= rr nil) (setq rr ""))
(setq k (strlen rr)) (if (> k 2) (progn (while (and (> k 1) (= (substr rr k 1) " ")) (setq rr (substr rr 1 (- k 1))))
(progn (while (and (> k 1) (wcmatch rr "*[\\]*")) (if (= (substr rr k 1) "\\")
(setq rr (strcat (substr rr 1 (- k 1)) "/" (substr rr (+ k 1))))) (setq k (- k 1)))) (setq c (substr rr (strlen rr))) (if (/= c "/") (setq rr (strcat rr "/"))))) rr)