[编程交流] 嘿伙计们，伙计们，WR 的 LISP

[b][color=BLACK]([/color][/b]defun c:xml-ins [b][color=FUCHSIA]([/color][/b]/ ss i en ed an ad tmp fl xml[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ss [b][color=MAROON]([/color][/b]ssget [color=#2f4f4f]"X"[/color] '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"INSERT"[/color][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]      [b][color=NAVY]([/color][/b]setq i 0[b][color=NAVY])[/color][/b]      [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq en [b][color=GREEN]([/color][/b]ssname ss i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]             [b][color=MAROON]([/color][/b]setq ed [b][color=GREEN]([/color][/b]entget en[b][color=GREEN])[/color][/b]                   tmp [b][color=GREEN]([/color][/b]list [b][color=BLUE]([/color][/b]cdr [b][color=RED]([/color][/b]assoc 2 ed[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]             [b][color=MAROON]([/color][/b]and [b][color=GREEN]([/color][/b]= 1 [b][color=BLUE]([/color][/b]cdr [b][color=RED]([/color][/b]assoc 66 ed[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]                  [b][color=GREEN]([/color][/b]setq an [b][color=BLUE]([/color][/b]entnext en[b][color=BLUE])[/color][/b]                        ad [b][color=BLUE]([/color][/b]entget an[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]                  [b][color=GREEN]([/color][/b]while [b][color=BLUE]([/color][/b]= [color=#2f4f4f]"ATTRIB"[/color] [b][color=RED]([/color][/b]cdr [b][color=PURPLE]([/color][/b]assoc 0 ad[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b]                         [b][color=BLUE]([/color][/b]setq tmp [b][color=RED]([/color][/b]cons [b][color=PURPLE]([/color][/b]cons [b][color=TEAL]([/color][/b]cdr [b][color=OLIVE]([/color][/b]assoc 2 ad[b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b]                                               [b][color=TEAL]([/color][/b]cdr [b][color=OLIVE]([/color][/b]assoc 1 ad[b][color=OLIVE])[/color][/b][b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b] tmp[b][color=RED])[/color][/b]                               an [b][color=RED]([/color][/b]entnext an[b][color=RED])[/color][/b]                               ad [b][color=RED]([/color][/b]entget an[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]             [b][color=MAROON]([/color][/b]setq fl [b][color=GREEN]([/color][/b]cons [b][color=BLUE]([/color][/b]reverse tmp[b][color=BLUE])[/color][/b] fl[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]             [b][color=MAROON]([/color][/b]setq i [b][color=GREEN]([/color][/b]1+ i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]setq xml [b][color=NAVY]([/color][/b]open [color=#2f4f4f]"test.xml"[/color] [color=#2f4f4f]"w"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]foreach i fl    [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]= [b][color=GREEN]([/color][/b]length i[b][color=GREEN])[/color][/b] 1[b][color=MAROON])[/color][/b]        [b][color=MAROON]([/color][/b]write-line [b][color=GREEN]([/color][/b]strcat [color=#2f4f4f]""[/color] [b][color=BLUE]([/color][/b]car i[b][color=BLUE])[/color][/b] [color=#2f4f4f]""[/color][b][color=GREEN])[/color][/b] xml[b][color=MAROON])[/color][/b]        [b][color=MAROON]([/color][/b]progn          [b][color=GREEN]([/color][/b]write-line [b][color=BLUE]([/color][/b]strcat [color=#2f4f4f]""[/color] [b][color=RED]([/color][/b]car i[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] xml[b][color=GREEN])[/color][/b]          [b][color=GREEN]([/color][/b]foreach a [b][color=BLUE]([/color][/b]cdr i[b][color=BLUE])[/color][/b]             [b][color=BLUE]([/color][/b]write-line [b][color=RED]([/color][/b]strcat [color=#2f4f4f]"  "[/color] [b][color=PURPLE]([/color][/b]car a[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b] xml[b][color=BLUE])[/color][/b]             [b][color=BLUE]([/color][/b]write-line [b][color=RED]([/color][/b]strcat [color=#2f4f4f]"    "[/color] [b][color=PURPLE]([/color][/b]cdr a[b][color=PURPLE])[/color][/b] [color=#2f4f4f]""[/color][b][color=RED])[/color][/b] xml[b][color=BLUE])[/color][/b]             [b][color=BLUE]([/color][/b]write-line [color=#2f4f4f]"  "[/color] xml[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b]          [b][color=GREEN]([/color][/b]write-line [color=#2f4f4f]""[/color] xml[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]close xml[b][color=FUCHSIA])[/color][/b][b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]