home *** CD-ROM | disk | FTP | other *** search
/ PC Electronics for your PC / pcelectronics.bin / Elec_dos / SUBDWG / LSP / CARGA.LSP < prev    next >
Lisp/Scheme  |  1995-01-26  |  2KB  |  51 lines
  1. ;***********************************************
  2. ;* Funcion: carga
  3. ;* Esta funcion carga los comandos y funciones
  4. ;* necesarias para el funcionamiento del 
  5. ;* proyecto de subestaciones.
  6. ;***********************************************
  7. ;
  8. ; Change log
  9. ;
  10. ; 14/11/94 C.Perigault  Creacion
  11. ;
  12. ; 18/11/94 C.Perigault  Se agrego una instruccion
  13. ;                       para que mostrara los programas
  14. ;                       que carga
  15. ;
  16. ; 18/11/94 C.Perigault  El programa se autoinvoca al
  17. ;                       cargarse
  18. ;
  19. (defun carga ()
  20.     ; en listaDeProgramas se define el nombre de los
  21.     ; programas que deberan ser cargados
  22.     (setq listaDeProgramas (list "cvista"
  23.                                  "gvista"
  24.                                  "tabla" 
  25.                                  "linea" 
  26.                                  "mbloque" 
  27.                                  "anorma"
  28.                                  "item"
  29.                                  "prayo"
  30.                                  "iuni"
  31.                                  "iele"
  32.                                  "ican"
  33.                                  "iequ"))
  34.   
  35.  
  36.     ; SUBLSP variable del sistema del
  37.     ; path de los programas
  38.     (setq path (getenv "SUBLSP"))
  39.     (setq n    (length listaDeProgramas))
  40.     (setq i 0)
  41.     (repeat n
  42.         (setq nombre (strcat path "\\" (nth i listaDeProgramas) ".lsp"))
  43.         (setq i (+ i 1))
  44.         (if (findfile nombre)
  45.             (progn
  46.                 (princ (strcat "\nCargando: " nombre))
  47.                 (load nombre))
  48.             (princ (strcat "\n*** El programa: " nombre " no existe ***\n")))))
  49.         
  50.      
  51.  (carga) ; ejecuta el programa al cargarse