lisp2arx
Visual Programming for AutoLisp
Mathématiques en programmation Lisp..
doc2cpp,doc2lsp, sld2lsp, bmp2dcl,
free__GifCcapture for all-CAD'platforms..
|
Lista Forumurilor Pe Tematici
|
lisp2arx | Reguli | Inregistrare | Login
POZE LISP2ARX
Nu sunteti logat.
|
Nou pe simpatie:
andrum94 la Simpatie.ro
 | Femeie
24 ani
Galati
cauta Barbat
27 - 80 ani |
|
|
admin
Administrator
Din: Bucharest
Inregistrat: acum 13 ani
Postari: 509
|
|
Here you view first-version of Encrypt-source, but working very-nice inside AutoCad
We re-transform the source-AutoCad-lisp, before you compile to *.Fas or *.Vlx
First-Code is native.
You see three types of sources for only one the "pp_topoxcad.vlx"
Code:
(defun str_pathtemp ( / rr e f k) (asserte "A131")
(setq;|a16740|;
rr nil
f (dfn_var_isstr (getenv "TEMP"))) (if (and (not rr) f) (setq;|a16962|;
rr f)) (setq;|a17022|;
f (if (not f) (dfn_var_isstr (getenv "TMP")) f)) (if (and (not rr) f) (setq;|a17248|;
rr f)) (setq;|a17312|;
f (dfn_var_isstr (getvar "TEMPPREFIX"))
f (if (not f) (dfn_var_isstr (getenv "TMP")) f)) (setq;|a17578|;
f (dfn_var_isstr (getvar "XLOADPATH"))
f (if (not f) (dfn_var_isstr (getenv "TMP")) f)) (if (= rr nil) (setq;|a17894|;
rr "")) (setq;|a17954|;
k (strlen rr)) (if (> k 2) (progn (while (and (> k 1) (= (substr rr k 1) " ")) (setq;|a18256|;
rr (substr rr 1 (- k 1)))) (progn (while (and (> k 1) (wcmatch rr "*[\\]*")) (if (= (substr rr k 1) "\\") (setq;|a18662|;
rr (strcat (substr rr 1 (- k 1)) "/" (substr rr (+ k 1))))) (setq;|a18940|;
k (- k 1)))) (setq;|a19028|;
c (substr rr (strlen rr))) (if (/= c "/") (setq;|a19192|;
rr (strcat rr "/"))))) rr) |
;; ___ /^[___
;; /|^+----+ |#___________;;rem:
;; ( -+ |____| ______-----+/_NOW, YOU can transform TO NEXTCODE
;; ==_________--' \
;; ~_|___|__
;;
Code:
(defun str_pathtemp ( / rr e f k) (asserte "A131")
(setq;|a16790|; [b]HERE FIRST ENCRYPTED [/b]
rr nil HERE FIRST ENCRYPTED
f (if_try10 "C010" "dfn_var_isstr" (list (if_try10 "C009" "getenv" (list "TEMP"))))) (if (and (not rr) f) (setq;|a17024|;
rr f)) (setq;|a17084|;
f (if (not f) (if_try10 "C012" "dfn_var_isstr" (list (if_try10 "C011" "getenv" (list "TMP")))) f)) (if (and (not rr) f) (setq;|a17322|;
rr f)) (setq;|a17386|;
f (if_try10 "C014" "dfn_var_isstr" (list (if_try10 "C013" "getvar" (list "TEMPPREFIX"))))
f (if (not f) (if_try10 "C016" "dfn_var_isstr" (list (if_try10 "C015" "getenv" (list "TMP")))) f)) (setq;|a17676|;
f (if_try10 "C018" "dfn_var_isstr" (list (if_try10 "C017" "getvar" (list "XLOADPATH"))))
f (if (not f) (if_try10 "C020" "dfn_var_isstr" (list (if_try10 "C019" "getenv" (list "TMP")))) f)) (if (= rr nil) (setq;|a18016|;
rr "")) (setq;|a18076|;
k (strlen rr)) (if (> k 2) (progn (while (and (> k 1) (= (if_try10 "C021" "substr" (list rr k 1)) " ")) (setq;|a18384|;
rr (if_try10 "C022" "substr" (list rr 1 (- k 1))))) (progn (while (and (> k 1) (if_try10 "C023" "wcmatch" (list rr "*[\\]*"))) (if (= (if_try10 "C024" "substr" (list rr k 1)) "\\") (setq;|a18808|;
rr (if_try10 "C027" "strcat" (list (if_try10 "C025" "substr" (list rr 1 (- k 1))) "/" (if_try10 "C026" "substr" (list rr (+ k 1))))))) (setq;|a19104|;
k (- k 1)))) (setq;|a19192|;
c (if_try10 "C028" "substr" (list rr (strlen rr)))) (if (/= c "/") (setq;|a19362|;
rr (if_try10 "C029" "strcat" (list rr "/")))))) rr) |
;; ,
;;/,`\
;;` | \____\\
;; _( ) \
;; \-\~~~_|\ \
;; \ ` \ `
;; ` `
Code:
(defun str_pathtemp ( / rr e f k) (asserte "A131")
/*c2s: rr=nil,
f=dfn_var_isstr(getenv("TEMP")),
if ((!rr)&&(f)) rr=f;
f=(!f)?dfn_var_isstr(getenv("TMP")):f;
if ((!rr)&&(f)) rr=f;
f=dfn_var_isstr(getvar("TEMPPREFIX")),
f=(!f)?dfn_var_isstr(getenv("TMP")):f;
f=dfn_var_isstr(getvar("XLOADPATH")),
f=(!f)?dfn_var_isstr(getenv("TMP")):f;
if (rr==nil) rr="";
k=strlen(rr);
if (k>2)
{ while ((k>1)&&(substr(rr,k,1)==" "))
rr=substr(rr,1,k-1);
for (;(k>1)&&(wcmatch(rr,"*[\\]*"));k=k-1)
if (substr(rr,k,1)=="\\")
rr=strcat(substr(rr,1,k-1),"/",substr(rr,k+1));
c=substr(rr,strlen(rr));
if (c!="/") rr=strcat(rr,"/");
};
*/ rr) |
_______________________________________
|
|
| pus acum 4 ani |
|