Author Topic: LISP PACKAGER (Read 6699 times)

JohnK · « **Reply #15 on:** December 27, 2020, 08:01:16 PM »

Quote from: domenicomaria on December 26, 2020, 12:21:23 PM

I have seen your software.
It seems to be interesting and well done.
But it is not what I need.
. . .
I have TWO KIND of files :
- ONE lisp file that contains a ROUTINE that DOES something
and uses external SUB-ROUTINES

- SOME lisp files that contain ONLY SUB-ROUTINES

The "PACKAGER"
has to pack up the lisp file that contains the MAIN ROUTINE
and to search, the DEFUNs and their related codes,
in the lisp files that contain only SUB-ROUTINES ...

What I want acheive is
ONE LISP FILE that contains
everything it needs to work and only this

This because,
if I want create a VLX,
I don't want put everything in the "compiler".
. . .

That's odd because it sounds exactly like what you want. ...You just described one of the many uses of LiFP (That is exactly the design principle behind the use of LiFP).

Read the description and/or tutorial for LiFP again. Your `sub-routines` should be divided into separate files (one file per sub-routine or one file per small group of sub-routines) just like all other programming languages do. I even give you a starting point and created a small (simple) starters library of functions you can use in your code or as a guide to create your own (-i.e. the idea was that you would expand on that library).

The concept of keeping your library functions separate played into the design of LiFP (-I.e. keep the library files somewhere in your path); all the LiFP instructions are kept behind a semi-colin so you can still use/load the files right into AutoCAD with no problems.

And if you ever needed to `package` up your code for compiling or shipment off to a client then you can use the LiFP tool to assemble a file in seconds. LiFP was designed for speed so you can use/call it from another lisp file (it would have zero problem crunching hundreds of files at a time in less then a second).

LiFP is just a preprocessor (it is a fancy way to take files and copies and pastes their contents into another file) so you can use it to build websites, documentation, etc. etc. I have used LiFP in Visual Studio when I did some C# (dotNet) development. It is a very versatile tool.

domenicomaria · « **Reply #16 on:** December 28, 2020, 12:50:01 AM »

Reading source files...
reading "C:\@\[PACKAGER]\%BLOCK-INSERT.LSP"...
reading "C:\@\[PACKAGER]\%BLOCK-MANAGER.lsp"...
reading "C:\@\[PACKAGER]\%BLOCK-PURGE.lsp"...
reading "C:\@\[PACKAGER]\%BLOCK-RENAME.lsp"...
reading "C:\@\[PACKAGER]\%CHANGE-OBJECTS-PROPERTIES.lsp"...
reading "C:\@\[PACKAGER]\%COMMANDS-COLLECTION.lsp"...
reading "C:\@\[PACKAGER]\%DIM-LINEAR.LSP"...
reading "C:\@\[PACKAGER]\%DISTANCE-2P.lsp"...
reading "C:\@\[PACKAGER]\%DWG-MANAGER.lsp"...
reading "C:\@\[PACKAGER]\%ID-POINT.lsp"...
reading "C:\@\[PACKAGER]\%MAKE-INSERT-BLOCK-WBLOCK.LSP"...
reading "C:\@\[PACKAGER]\%STEEL-PROFILES.LSP"...
reading "C:\@\[PACKAGER]\%TEXT-UTILITIES.lsp"...
reading "C:\@\[PACKAGER]\---%3D-UTILITIES.LSP"...
reading "C:\@\[PACKAGER]\---%commands.LSP"...
reading "C:\@\[PACKAGER]\3-Point Rectangle.LSP"...
reading "C:\@\[PACKAGER]\@ABOUT-AND-DEMO-ALERT.lsp"...
reading "C:\@\[PACKAGER]\@ACAD-ENTITIES.LSP"...
reading "C:\@\[PACKAGER]\@BASE.lsp"...
reading "C:\@\[PACKAGER]\@BLOCK-GROUP-SETTINGS.LSP"...
reading "C:\@\[PACKAGER]\@BLOCK-INSERT.LSP"...
reading "C:\@\[PACKAGER]\@BOUNDING BOX.LSP"...
reading "C:\@\[PACKAGER]\@CURVE.LSP"...
reading "C:\@\[PACKAGER]\@DCL-SELECT-COLOR.lsp"...
reading "C:\@\[PACKAGER]\@DCL-TEXT-PARAMETERS.lsp"...
reading "C:\@\[PACKAGER]\@DCL.lsp"...
reading "C:\@\[PACKAGER]\@ERROR-AND-REQUIREMENTS-CHECKS.lsp"...
reading "C:\@\[PACKAGER]\@GET-INPUT.lsp"...
reading "C:\@\[PACKAGER]\@GET-INPUT2.LSP"...
reading "C:\@\[PACKAGER]\@GRDRAW.lsp"...
reading "C:\@\[PACKAGER]\@hatch.lsp"...
reading "C:\@\[PACKAGER]\@INIT-VARS.lsp"...
reading "C:\@\[PACKAGER]\@INTERS.LSP"...
reading "C:\@\[PACKAGER]\@LIST.LSP"...
reading "C:\@\[PACKAGER]\@MATEMATICA E GEOMETRIA.lsp"...
reading "C:\@\[PACKAGER]\@ODCL-BLOCK-VIEW.lsp"...
reading "C:\@\[PACKAGER]\@ODCL-BLOCKVIEW-SETTINGS.lsp"...
reading "C:\@\[PACKAGER]\@ODCL-HATCH-PARAMETERS.lsp"...
reading "C:\@\[PACKAGER]\@ODCL-INSERTION-PARAMETERS.lsp"...
reading "C:\@\[PACKAGER]\@ODCL-LINETYPES-PARAMETERS.lsp"...
reading "C:\@\[PACKAGER]\@ODCL-MESSAGE-BOX.lsp"...
reading "C:\@\[PACKAGER]\@ODCL-OBJECT-BASE-PROPERTIES.lsp"...
reading "C:\@\[PACKAGER]\@ODCL-TEXT-PARAMETERS.LSP"...
reading "C:\@\[PACKAGER]\@ODCL.lsp"...
reading "C:\@\[PACKAGER]\@OS-FILES.LSP"...
reading "C:\@\[PACKAGER]\@RICH-TEXT-BOX.LSP"...
reading "C:\@\[PACKAGER]\@SELECTION-SET-FILTER.lsp"...
reading "C:\@\[PACKAGER]\@SSET.LSP"...
reading "C:\@\[PACKAGER]\@STRING-LIST.lsp"...
reading "C:\@\[PACKAGER]\@STRING.LSP"...
reading "C:\@\[PACKAGER]\@TABLES.lsp"...
reading "C:\@\[PACKAGER]\@TEXT.LSP"...
reading "C:\@\[PACKAGER]\@TL-GROUPS.LSP"...
reading "C:\@\[PACKAGER]\@VIEWS.lsp"...
reading "C:\@\[PACKAGER]\@VLAX.LSP"...
reading "C:\@\[PACKAGER]\bbpoly.lsp"...
reading "C:\@\[PACKAGER]\CCZZ.LSP"...
reading "C:\@\[PACKAGER]\changetbfont.LSP"...
reading "C:\@\[PACKAGER]\CookieCutter2 v1.2 mod by VVA.lsp"...
reading "C:\@\[PACKAGER]\create-3d-lib.LSP"...
reading "C:\@\[PACKAGER]\dcl-grid-2c.LSP"...
reading "C:\@\[PACKAGER]\DCL-LISTBOX.lsp"...
reading "C:\@\[PACKAGER]\DCL-RIGHT-CLICK-MENU.LSP"...
reading "C:\@\[PACKAGER]\DCL_PALETTE_TABS_MENU.LSP"...
reading "C:\@\[PACKAGER]\ElpanovEvgeniy GRREAD.LSP"...
reading "C:\@\[PACKAGER]\Flex 23 CAB.LSP"...
reading "C:\@\[PACKAGER]\GRID - OPENDCL SAMPLE.LSP"...
reading "C:\@\[PACKAGER]\interpolate-triangulation-new.LSP"...
reading "C:\@\[PACKAGER]\LAYER-LIST.LSP"...
reading "C:\@\[PACKAGER]\LIST-FUNCTIONS.LSP"...
reading "C:\@\[PACKAGER]\LISTBOX-STYLE.LSP"...
reading "C:\@\[PACKAGER]\LM-alphanumsort.LSP"...
reading "C:\@\[PACKAGER]\LM-GetSyntax.LSP"...
reading "C:\@\[PACKAGER]\MOUSE REACTOR.LSP"...
reading "C:\@\[PACKAGER]\NOTEPAD.lsp"...
reading "C:\@\[PACKAGER]\ODCL8Upd.lsp"...
reading "C:\@\[PACKAGER]\on_doc_load.lsp"...
reading "C:\@\[PACKAGER]\Osnaps.lsp"...
reading "C:\@\[PACKAGER]\qh.lsp"...
reading "C:\@\[PACKAGER]\STUDIO-PURGEABLE-BLOCKS.LSP"...
reading "C:\@\[PACKAGER]\tab-test.LSP"...
reading "C:\@\[PACKAGER]\TEST.LSP"...
reading "C:\@\[PACKAGER]\Text2MTextV2-0.lsp"...
reading "C:\@\[PACKAGER]\VK_PACKAGER !.LSP"...
reading "C:\@\[PACKAGER]\VLA-ADD-MTEXT.lsp"...
reading "C:\@\[PACKAGER]\WORDS-s.LSP"...
reading "C:\@\[PACKAGER]\WORDS.LSP"...
reading "C:\@\[PACKAGER]\WRDS-FORMAT-STRINGS.lsp"...
reading "C:\@\[PACKAGER]\XML 2.LSP"...
reading "C:\@\[PACKAGER]\XML.LSP"...
reading "C:\@\[PACKAGER]\[DEBUG].lsp"...
reading "C:\@\[PACKAGER]\[LOADER].LSP"...
reading "C:\@\[PACKAGER]\[Triang V0.6.7].LSP"...
Source files read.
Tracing fucntions.
tracing 'C:WRDS...
Hard error occurred ***
internal stack limit reached (simulated)

domenicomaria · « **Reply #17 on:** December 28, 2020, 12:58:27 AM »

Quote from: John Kaul (Se7en) on December 27, 2020, 08:01:16 PM

. . .
And if you ever needed to `package` up your code for compiling or shipment off to a client then you can use the LiFP tool to assemble a file in seconds. LiFP was designed for speed so you can use/call it from another lisp file (it would have zero problem crunching hundreds of files at a time in less then a second).

LiFP is just a preprocessor (it is a fancy way to take files and copies and pastes their contents into another file) so you can use it to build websites, documentation, etc. etc. I have used LiFP in Visual Studio when I did some C# (dotNet) development. It is a very versatile tool.

I prefer a LSP file that does this work.
Because I can undestand and modify it, if i need.

But with lisp it is possible to find this kind of troubles . . .

Hard error occurred ***
internal stack limit reached (simulated)

. . .

thank you for your reply . . .

domenicomaria · « **Reply #18 on:** December 28, 2020, 02:25:34 AM »

perhaps,
to avoid this kind of problem

Hard error occurred ***
internal stack limit reached (simulated)

it could be possible
split the work
in more smaller works
(considering the size of LSP files)
and at the end
assemble every things

any idea ?

VovKa · « **Reply #19 on:** December 28, 2020, 08:00:49 AM »

Quote from: domenicomaria on December 28, 2020, 02:25:34 AM

any idea ?

i've been looking at this my function for a while now and the only idea i have is: i have no idea of how it's working

i'll implement some 'improvements' (i suppose) and post a new version

d2010 · « **Reply #20 on:** December 28, 2020, 08:10:59 AM »

You can compile pp_topoxcad.zip to--> pp_topoxcad.lsp.
You can compile pp_peter2ucs.zip to-> pp_peter2ucs.lsp.txt

domenicomaria · « **Reply #21 on:** December 28, 2020, 11:30:37 AM »

Quote from: VovKa on December 28, 2020, 08:00:49 AM

i've been looking at this my function for a while now and the only idea i have is: i have no idea of how it's working
i'll implement some 'improvements' (i suppose) and post a new version

Thanks VovKa.
You are very professional and very kind.

However I will try to do something,too.
And if the routine will work well
I will post it here.

Ciao

domenicomaria · « **Reply #22 on:** December 29, 2020, 03:12:47 AM »

Quote from: VovKa on December 28, 2020, 08:00:49 AM

i've been looking at this my function for a while now and the only idea i have is: i have no idea of how it's working
i'll implement some 'improvements' (i suppose) and post a new version

Good news VovKa ! ! !

Your code worked well ! ! !

I tried to remove all the not necessary files . . .

It is a little bit slow !

And maybe it cannot handle too many and too much great files . . .

But this is a limit of VLISP . . .

Maybe it could be optimized
splitting the work in more little works
and at the end
assemble the result.

But nothing is easy as it could seem.

. . .
I have found also my (packaged) PACKAGER
that has 1950 lines ! ! !

It works too.
But it works analizing every row of every file
and counts the open parens and the closed parens
...
While your code is almost perfect.
And is very compact.
You are very clever.

Thank you very much.

Ciao

domenicomaria · « **Reply #23 on:** December 29, 2020, 03:46:20 AM »

VovKa
maybe
an ITERATIVE mode
could be better then
a RECURSIVE mode.

Because
the RECURSIVE mode
makes to grow too much
the lists
and the too much nested processes
require too much resources . . .
!

VovKa · « **Reply #24 on:** December 29, 2020, 05:48:08 AM »

Quote from: domenicomaria on December 29, 2020, 03:12:47 AM

Maybe it could be optimized

vk_FindFunction was the 'weakest link', it did a lot of unnecessary work
i've rewritten it long ago but never posted new version because nobody was interested in the code

i also did some more changes and now it is supposed to work even without 'author prefix'

Code: [Select]

(defun vk_GetSysCharset (/) (strcat "windows-" (substr (getvar "SYSCODEPAGE") 6)))
(defun vk_Assemble (Dir			  WorkFunctionNamesList	OutFileName	      /			    AllFunctionsList*
		    FoundFunction	  FunctionTail		WorkFunctionNamesList*			    WorkFunctionsList
		    OutFile							;
		    _FindFunction	  _TraceFunction	_IsFunctionCustom
		   )
  (defun _IsFunctionCustom (Name)
    (or
;;;      (wcmatch (vl-symbol-name Name) (strcat (vk_AuthorPrefix) "*,C:" (vk_AuthorPrefix) "*"))
	(= (type (eval Name)) 'USUBR)
    )
  )
  (defun _FindFunction (Name FunctionsList /)
    (cond ((not FunctionsList) nil)
	  ((atom FunctionsList) nil)
	  ((atom (cdr FunctionsList)) nil)
	  ((and (= (car FunctionsList) 'DEFUN) (= (cadr FunctionsList) Name)) FunctionsList)
	  ((car	(vl-member-if (function (lambda (e) (and (listp e) (= (car e) 'DEFUN) (= (cadr e) Name))))
			      FunctionsList
		)
	   )
	  )
	  ((_FindFunction Name (car FunctionsList)))
	  (t (_FindFunction Name (cdr FunctionsList)))
    )
  )
  (defun _TraceFunction	(FunctionDefun FunctionTail / Found)
    (if	FunctionTail
      (progn (if (atom FunctionTail)
	       (setq FunctionTail (list FunctionTail))
	     )
	     (if (= (car FunctionTail) 'DEFUN)
	       (_TraceFunction FunctionTail (cdr FunctionTail))
	       (if (listp (car FunctionTail))
		 (append (_TraceFunction FunctionDefun (car FunctionTail))
			 (_TraceFunction FunctionDefun (cdr FunctionTail))
		 )
		 (if (and (= (type (car FunctionTail)) 'SYM)
			  (_IsFunctionCustom (car FunctionTail))
			  (not (vl-position (car FunctionTail) WorkFunctionNamesList*))
			  (not (vl-position (car FunctionTail) (caddr FunctionDefun)))
			  (not (_FindFunction (car FunctionTail) FunctionDefun))
		     )
		   (append (if (setq Found (_FindFunction (car FunctionTail) AllFunctionsList*))
			     (progn (setq WorkFunctionNamesList* (cons (car FunctionTail) WorkFunctionNamesList*))
				    (cons (car FunctionTail) (_TraceFunction (car FunctionTail) Found))
			     )
			     (progn (princ (strcat "    " (vl-symbol-name (car FunctionTail)) " not found\n")) nil)
			   )
			   (_TraceFunction FunctionDefun (cdr FunctionTail))
		   )
		   (_TraceFunction FunctionDefun (cdr FunctionTail))
		 )
	       )
	     )
      )
    )
  )
  (textscr)
  (setq WorkFunctionNamesList* WorkFunctionNamesList)
  (princ (strcat "Reading source files...\n" Dir "\n"))
  (setq	AllFunctionsList*
	 (apply	'append
		(mapcar	(function
			  (lambda (FileName /)
			    (princ (strcat "  " FileName "... "))
			    (if	(vl-catch-all-error-p (vl-catch-all-apply 'load (list (strcat Dir FileName))))
			      (progn (princ "ERROR\n") nil)
			      (progn (princ "OK\n")
				     (cdr (read (strcat "(progn\n" (vk_ReadTextStream (strcat Dir FileName) (vk_GetSysCharset)) "\n)")))
			      )
			    )
			  )
			)
			(acad_strlsort (vl-directory-files Dir "*.lsp" 1))
		)
	 )
  )
  (princ "Done\n\n")
  (princ "Tracing functions...\n")
  (foreach WorkFunction	WorkFunctionNamesList*
    (princ (strcat "  " (vl-symbol-name WorkFunction) "...\n"))
    (setq FoundFunction (_FindFunction WorkFunction AllFunctionsList*))
    (_TraceFunction FoundFunction (cdr FoundFunction))
  )
  (princ "Done\n\n")
  (princ (strcat "Writing destination file...\n" OutFileName "\n"))
  (setq OutFile (open OutFileName "W"))
  (princ "(vl-load-com)\n" OutFile)
  (foreach WorkFunctionName WorkFunctionNamesList*
    (princ (strcat "  " (vl-symbol-name WorkFunctionName) "...\n"))
    (prin1 (_FindFunction WorkFunctionName AllFunctionsList*) OutFile)
    (princ "\n" OutFile)
  )
  (foreach WorkFunctionName WorkFunctionNamesList
    (if	(wcmatch (vl-symbol-name WorkFunctionName) "C:*")
      (princ (strcat "(vl-doc-export '" (vl-symbol-name WorkFunctionName) ")\n") OutFile)
    )
  )
  (close OutFile)
  (princ "Done\n\n")
  (princ)
)

domenicomaria · « **Reply #25 on:** December 29, 2020, 06:27:40 AM »

Quote

i've rewritten it long ago but never posted new version because nobody was interested in the code

I believe that your code
is absolutely
a "must-have" !

I can't imagine a LISPER
that can work without your routine !

I will test it.
But I feel that you are on the right way.

Thank you very much.

VovKa · « **Reply #26 on:** December 29, 2020, 07:25:03 AM »

Quote from: domenicomaria on December 29, 2020, 06:27:40 AM

I can't imagine a LISPER
that can work without your routine !

it's almost 2021 and all lispers are doing just fine without it

i think they have their own routines to organize their projects

domenicomaria · « **Reply #27 on:** December 30, 2020, 05:57:50 AM »

VovKa,
you forgot to add VK_READTEXTSTREAM
to your code . . .

This is the complete WORKING (! ) code !

Code - Auto/Visual Lisp: [Select]

(defun vk_GetSysCharset   (/)
   (strcat "windows-" (substr (getvar "SYSCODEPAGE") 6))
)
 
(defun VK_ASSEMBLE (Dir                     WorkFunctionNamesList OutFileName
                    /                     AllFunctionsList*       FoundFunction
                    FunctionTail            WorkFunctionNamesList*
                    WorkFunctionsList      OutFile ;
                    _FINDFUNCTION         _TRACEFUNCTION          _ISFUNCTIONCUSTOM
                   )
 
   
   (defun VK_READTEXTSTREAM (FileName Charset / ADODBStreamObj Result)
      (if (and   (setq FileName (findfile FileName))
               (setq ADODBStreamObj (vlax-create-object "ADODB.Stream"))
          )
         (progn (setq Result
                        (vl-catch-all-apply
                           (function
                              (lambda ()
                                 (vlax-put ADODBStreamObj "Charset" Charset)
                                 (vlax-invoke ADODBStreamObj "Open")
                                 (vlax-invoke ADODBStreamObj "LoadFromFile" FileName)
                                 (vlax-invoke-method ADODBStreamObj "ReadText" -1)
                              )
                           )
                        )
                )
                (vlax-release-object ADODBStreamObj)
                (if (not (vl-catch-all-error-p Result))
                   Result
                )
         )
      )
   )
 
   
   
   (defun _ISFUNCTIONCUSTOM (Name)
      (or
         ; (wcmatch (vl-symbol-name Name) (strcat (vk_AuthorPrefix) "*,C:" (vk_AuthorPrefix) "*"))
         (= (type (eval Name)) 'USUBR)
      )
   )
 
 
   
   (defun _FINDFUNCTION   (Name FunctionsList /)
      (cond   ((not FunctionsList) nil)
            ((atom FunctionsList) nil)
            ((atom (cdr FunctionsList)) nil)
            ((and   (= (car FunctionsList) 'DEFUN)
                  (= (cadr FunctionsList) Name)
             )
             FunctionsList
            )
            ((car
                (vl-member-if
                   (function
                      (lambda   (e)
                         (and (listp e) (= (car e) 'DEFUN) (= (cadr e) Name))
                      )
                   )
                   FunctionsList
                )
             )
            )
            ((_FINDFUNCTION Name (car FunctionsList)))
            (t (_FINDFUNCTION Name (cdr FunctionsList)))
      )
   )
 
 
   
   (defun _TRACEFUNCTION (FunctionDefun FunctionTail / Found)
      (if FunctionTail
         (progn (if (atom FunctionTail)
                   (setq FunctionTail (list FunctionTail))
                )
                (if (= (car FunctionTail) 'DEFUN)
                   (_TRACEFUNCTION FunctionTail (cdr FunctionTail))
                   (if (listp (car FunctionTail))
                      (append   (_TRACEFUNCTION FunctionDefun (car FunctionTail))
                              (_TRACEFUNCTION FunctionDefun (cdr FunctionTail))
                      )
                      (if (and (= (type (car FunctionTail)) 'SYM)
                               (_ISFUNCTIONCUSTOM (car FunctionTail))
                               (not   (vl-position (car FunctionTail) WorkFunctionNamesList*)
                               )
                               (not (vl-position (car FunctionTail) (caddr FunctionDefun)))
                               (not (_FINDFUNCTION (car FunctionTail) FunctionDefun))
                          )
                         (append   (if (setq Found (_FINDFUNCTION (car FunctionTail) AllFunctionsList*))
                                    (progn (setq WorkFunctionNamesList*
                                                   (cons   (car FunctionTail)
                                                         WorkFunctionNamesList*
                                                   )
                                           )
                                           (cons (car FunctionTail)
                                                 (_TRACEFUNCTION (car FunctionTail) Found)
                                           )
                                    )
                                    (progn (princ (strcat "    "
                                                          (vl-symbol-name (car FunctionTail))
                                                          " not found\n"
                                                  )
                                           )
                                           nil
                                    )
                                 )
                                 (_TRACEFUNCTION FunctionDefun (cdr FunctionTail))
                         )
                         (_TRACEFUNCTION FunctionDefun (cdr FunctionTail))
                      )
                   )
                )
         )
      )
   )
 
   
   (textscr)
   (setq WorkFunctionNamesList* WorkFunctionNamesList)
   (princ (strcat "Reading source files...\n" Dir "\n"))
   (setq   AllFunctionsList*
           (apply
              'append
              (mapcar
                 (function
                    (lambda (FileName /)
                       (princ (strcat "  " FileName "... "))
                       (if   (vl-catch-all-error-p
                              (vl-catch-all-apply 'load (list (strcat Dir FileName)))
                           )
                          (progn (princ "ERROR\n") nil)
                          (progn
                             (princ "OK\n")
                             (cdr
                                (read
                                   (strcat "(progn\n"
                                           (vk_ReadTextStream (strcat Dir FileName) (vk_GetSysCharset))
                                           "\n)"
                                   )
                                )
                             )
                          )
                       )
                    )
                 )
                 (acad_strlsort (vl-directory-files Dir "*.lsp" 1))
              )
           )
   )
   (princ "Done\n\n")
   (princ "Tracing functions...\n")
   (foreach   WorkFunction WorkFunctionNamesList*
      (princ (strcat "  " (vl-symbol-name WorkFunction) "...\n"))
      (setq FoundFunction (_FINDFUNCTION WorkFunction AllFunctionsList*))
      (_TRACEFUNCTION FoundFunction (cdr FoundFunction))
   )
   (princ "Done\n\n")
   (princ
      (strcat "Writing destination file...\n" OutFileName "\n")
   )
   (setq OutFile (open OutFileName "W"))
   (princ "(vl-load-com)\n" OutFile)
   (foreach   WorkFunctionName WorkFunctionNamesList*
      (princ
         (strcat "  " (vl-symbol-name WorkFunctionName) "...\n")
      )
      (prin1 (_FINDFUNCTION WorkFunctionName AllFunctionsList*)
             OutFile
      )
      (princ "\n" OutFile)
   )
   (foreach   WorkFunctionName WorkFunctionNamesList
      (if (wcmatch (vl-symbol-name WorkFunctionName) "C:*")
         (princ (strcat   "(vl-doc-export '"
                        (vl-symbol-name WorkFunctionName)
                        ")\n"
                )
                OutFile
         )
      )
   )
   (close OutFile)
   (princ "Done\n\n")
   (princ)
)
 

ribarm · « **Reply #28 on:** December 30, 2020, 07:56:16 AM »

Quote from: domenicomaria on December 30, 2020, 05:57:50 AM

This is the complete WORKING (! ) code !

You could add command testing function with all necessary inputs like all normal routines...
BTW. I don't know what is it for, I keep organized all my *.lsp files with only those subs that are used in functioning... According to my testings, there is no big gain in speed-efficiency if subs are as globals (not binded within main routine)... All my subs are binded no matter how much I have them and if they are the same - library functions into each *.lsp that is called with invoking command call (c:functionname)...

domenicomaria · « **Reply #29 on:** December 30, 2020, 02:19:27 PM »

Quote from: ribarm on December 30, 2020, 07:56:16 AM

I don't know what is it for, . . .
there is no big gain in speed-efficiency if subs are as globals

. . .
I have
a file that contains all sub-routines that handle STRINGS
a file that contains all sub-routines that handle LISTS
a file that handles OPEN DCL controls
a file that handles GEOMETRICAL issues
a file that handles MATHEMATICAL issues
and so on . . .
. . . when I work on a new LISP project,
it uses some sub-routines contained in these files . . .
. . .
If I need to create a STANDALONE file,
I need a "packager", an "assembler"
that analizes the main routine, finds the name of all the used subroutines,
and searchs in the library files to find the definitions of these functions.
(and finds also the subroutines used from subroutines . . . and so on)
And at the end ASSEMBLES everything in ONLY ONE STANDALONE FILE.

The lisp file of VovKa is for THIS .

Quote

no big gain in speed-efficiency if subs are as globals

We are not treating this issue.

Ciao.

News:

Author Topic: LISP PACKAGER (Read 6699 times)

JohnK

Re: LISP PACKAGER

domenicomaria

Re: LISP PACKAGER

domenicomaria

Re: LISP PACKAGER

domenicomaria

Re: LISP PACKAGER

VovKa

Re: LISP PACKAGER

d2010

Re: LISP PACKAGER

domenicomaria

Re: LISP PACKAGER

domenicomaria

Re: LISP PACKAGER

domenicomaria

Re: LISP PACKAGER

VovKa

Re: LISP PACKAGER

domenicomaria

Re: LISP PACKAGER

VovKa

Re: LISP PACKAGER

domenicomaria

Re: LISP PACKAGER

ribarm

Re: LISP PACKAGER

domenicomaria

Re: LISP PACKAGER