; DCL2LSP function to Convert dcl file to lisp file - RLX - 25 Jan 2019 - just another luchtime fun
; https://www.cadtutor.net/forum/topic/66737-convert-dcl-file-to-lisp-file
(defun DCL2LSP ( / dcl-fn dcl-fp lsp-fn lsp-fp dir base inp)
  (if (and (setq dcl-fn (getfiled "Select DCL file" "" "dcl" 0)) (setq dcl-fp (open dcl-fn "r"))
    (setq lsp-fn (strcat (setq dir (car (fnsplitl dcl-fn))) (setq base (cadr (fnsplitl dcl-fn))) "_dcl.lsp"))
    (setq lsp-fp (open lsp-fn "w")))
    (progn
      (princ (strcat "(defun " base "_Write_Dialog ( )\n  (if (and (setq " base "-fn " "(vl-filename-mktemp ") lsp-fp)
      (prin1 (strcat base ".dcl") lsp-fp) (princ (strcat ")) (setq " base "-fp (open " base "-fn \"w\")))\n") lsp-fp)
      (princ (strcat "    (mapcar \n      '(lambda (x)(write-line x " base "-fp))\n       (list\n") lsp-fp)
      (while (setq inp (read-line dcl-fp)) (princ "         " lsp-fp)(prin1 inp lsp-fp)(princ "\n" lsp-fp))
      (princ (strcat "      )\n    )\n  )\n  (if " base "-fp (close " base "-fp))\n)") lsp-fp)
      (close dcl-fp)(close lsp-fp)(gc)
    )
  )
  (if (and lsp-fn (findfile lsp-fn))(startapp "notepad" lsp-fn))
  (princ)
)

 

; (DCL2LSP)

 

 

; original dcl file name : rlx.dcl
; rlx : dialog
;   { label = "RLX (RLX Jan'19)";
;   : list_box { key = "lb"; }
;   ok_cancel;
;   }

 

 

; converted to rlx_dcl.lsp:
;(defun rlx_Write_Dialog ( )
;  (if (and (setq rlx-fn (vl-filename-mktemp "rlx.dcl")) (setq rlx-fp (open rlx-fn "w")))
;    (mapcar
;      '(lambda (x)(write-line x rlx-fp))
;       (list
;         "rlx : dialog"
;         "  { label = \"RLX (RLX Jan'19)\";"
;         "  : list_box { key = \"lb\"; }"
;         "  ok_cancel;"
;         "  }"
;      )
;    )
;  )
;  (if rlx-fp (close rlx-fp))
; )