Topic: Syntax Color test

[Kerry]

Syntax Color test

Code: [Select]


[color=red]([/color][color=blue]defun[/color] c:Swap_ODCL_Runtime [color=red]([/color][color=blue]/[/color] ArxName BuildVersion FolderName[color=red])[/color]
  [color=teal];;[/color]
  [color=teal];; kdub 20091202[/color]
  [color=teal];;[/color]
  [color=red]([/color][color=blue]if[/color] [color=red]([/color][color=blue]setq[/color]
        ArxName [color=red]([/color][color=blue]car[/color] [color=red]([/color][color=blue]vl-member-if[/color] [color=orange]'[/color][color=red]([/color][color=blue]lambda[/color] [color=red]([/color][color=blue]x[/color][color=red])[/color] [color=red]([/color][color=blue]wcmatch[/color] x [color=brown]"opendcl.*"[/color][color=red]))[/color] [color=red]([/color][color=blue]arx[/color][color=red])))[/color]
      [color=red])[/color]
    [color=red]([/color][color=blue]setq[/color] BuildVersion [color=red]([/color][color=blue]dcl_GetVersionEx[/color][color=red])[/color]
          FolderName   [color=red]([/color][color=blue]dcl_SelectFolder[/color]
                         [color=red]([/color][color=blue]strcat[/color]
                           [color=brown]"Select OpenDCL Runtime Folder to load .. Select 'OpenDCL' for latest Build."[/color]
                           [color=brown]" Current Runtime is : "[/color]
                           BuildVersion
                         [color=red])[/color]
                         [color=brown]"C:\\Program Files\\Common Files\\OpenDCL"[/color]
                         [color=brown]"C:\\Program Files\\Common Files\\OpenDCL"[/color]
                       [color=red])[/color]
    [color=red])[/color]
  [color=red])[/color]
  [color=red]([/color][color=blue]cond[/color] [color=red](([/color][color=blue]not[/color] FolderName[color=red])[/color]
         [color=red]([/color][color=blue]princ[/color] [color=brown]"\nCommand Cancelled\n"[/color][color=red])[/color]
        [color=red])[/color]
        [color=red](([/color][color=blue]=[/color] FolderName [color=brown]"C:\\Program Files\\Common Files\\OpenDCL"[/color][color=red])[/color]
         [color=teal];; Load the Default installed Build[/color]
         [color=red]([/color][color=blue]arxunload[/color] ArxName[color=red])[/color]
         [color=red]([/color][color=blue]command[/color] [color=brown]"_OpenDCL"[/color][color=red])[/color]
        [color=red])[/color]
        [color=red]([/color][color=blue]FolderName[/color]
         [color=teal];; load the selected Build[/color]
         [color=red]([/color][color=blue]setq[/color] NewArxName [color=red]([/color][color=blue]findfile[/color] [color=red]([/color][color=blue]strcat[/color] FolderName [color=brown]"\\"[/color] ArxName[color=red])))[/color]
         [color=red]([/color][color=blue]arxunload[/color] ArxName[color=red])[/color]
         [color=red]([/color][color=blue]arxload[/color] NewArxName[color=red])[/color]
        [color=red])[/color]
        [color=teal];; Load the installed Build by default.[/color]
        [color=red]([/color][color=blue]T[/color] [color=red]([/color][color=brown]"_OpenDCL"[/color][color=red]))[/color]
  [color=red])[/color]
  [color=red]([/color][color=blue]princ[/color][color=red])[/color]
[color=red])[/color]
[color=red]([/color][color=blue]princ[/color] [color=brown]"\nCommand 'Swap_ODCL_Runtime' to RUN. \n"[/color][color=red])[/color]
[color=red]([/color][color=blue]princ[/color][color=red])[/color]


 [color=teal];|«Visual LISP© Format Options»[/color]
[color=red]([/color][color=green]80[/color] [color=green]2[/color] [color=green]65[/color] [color=green]2[/color] nil [color=brown]"end of "[/color] [color=green]80[/color] [color=green]50[/color] [color=green]0[/color] [color=green]0[/color] [color=green]0[/color] nil nil nil T[color=red])[/color]
[color=teal];*** DO NOT add text below the comment! ***|;[/color]




[It's Alive!]

Hey how did you do that?

[Kerry]

not quite finished yet ...
Lee had a colored post at the other place, so I thought I'd give it a try

Code: [Select]



[color=teal];;; based on c:lsp->html  http://www.bugman123.com/Programs/Lisptohtml.html[/color]
[color=teal];;; referenced at http://www.theswamp.org/index.php?topic=26843.msg323759#msg323759[/color]

[color=red]([/color][color=blue]defun[/color] c:lsp->smf [color=red]([/color][color=blue]/[/color] file rf wf t1 word str char i f argument *error*[color=red])[/color]
  [color=red]([/color][color=blue]vl-load-com[/color][color=red])[/color]
  [color=teal];; codehimBelonga kdub@theSwamp 20091219[/color]
  ;;
  ;; code removed ... not ready for public release
  ;;
[color=red])[/color]
[color=red]([/color][color=blue]prompt[/color] [color=brown]"\nType 'lsp->SMF' at the command prompt to run routine."[/color][color=red])[/color]
[color=red]([/color][color=blue]princ[/color] [color=red])[/color]




 [color=teal];|«Visual LISP© Format Options»[/color]
[color=red]([/color][color=green]120[/color] [color=green]2[/color] [color=green]60[/color] [color=green]2[/color] nil [color=brown]"end of "[/color] [color=green]100[/color] [color=green]70[/color] [color=green]1[/color] [color=green]1[/color] [color=green]0[/color] nil nil nil T[color=red])[/color]
[color=teal];*** DO NOT add text below the comment! ***|;[/color]



[Lee Mac]

Hehe nice one Kerry 

Dan - http://www.cadtutor.net/forum/showthread.php?t=43191

[Lee Mac]

Just need to account for things like 't' and 'nil'  

This was mine, (original code from David Bethel)