Test - ignore

Greg Skelhorn

This is a test of code formatting... sorry for the noise on the list.

(defun cool_func ( / a b c)    (while (setq a (get_a))        (setq b (do_something a))        (if b (setq c (update_c b)) NIL)    ))

End test...

Greg Skelhorn

The above method preserves my horizontal white space but is too much vertical white space for my personal preference. It also creates double spaced code when pasted into an editor locally.Try a slightly different way:

(defun cool_func ( / a b c) (while (setq a (get_a)) (setq b (do_something a)) (if b (setq c (update_c b)) NIL) ))

Sander Scheiris

Hi Greg,We are aware of these problems/shortcomings. A revision of the forums is planned for April. Thank you for your suggestions.Sander ScheirisBricsys

Greg Skelhorn

Great... thanks for the info!

Greg Skelhorn

Hmmm.... the forums have been updated I guess!

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Function to remove a point from the POINTS dictionary by name.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun nss:remove_point (pt_name / points_dict)
    (setq points_dict (nss:get_nested_dict (list "NSS_ROOT" "POINTS")))
    (dictremove points_dict pt_name)
)

(defun Test ( / )

  (princ "Testing posting code on the forums...")

  (princ

    (strcat

      "Testing "

      "posting code..."

    )

  )

)

Something seems to be a bit odd with the code window... Maybe it will look right once I submit... I am currently using Firefox on Linux.

Greg Skelhorn

Well, the pasted code looks ok but not the lines typed into the message manually....

Sander Scheiris

 

(defun cool_func ( / a b c)    (while (setq a (get_a))        (setq b (do_something a))        (if b (setq c (update_c b)) NIL)    ))

Please paste the code as plain text in to the "PAST CODE HERE" block.

 

Sander Scheiris

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Function to remove a point from the POINTS dictionary by name.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;(defun nss:remove_point (pt_name / points_dict)    (setq points_dict (nss:get_nested_dict (list "NSS_ROOT" "POINTS")))    (dictremove points_dict pt_name))

 

 

Greg Skelhorn

Hi Sander;

 

Yes, the code posted was copied from jEdit and pasted into the web form. My jEdit settings are using a mono font for display. As fas as the representation of the characters on the clipboard, I do not know what they were. Perhaps jEdit does attempt to copy some type of formatting with the text... I would not expect it to do so though.

 

The lines I typed maually seemed odd at the time. Next time I will pay more attention. My cursor was "stuck" at the bottom of the "code" panel. There was just the top few pixels visible of what might have been a scrollbar and a couple of smaller controls at the bottom of the message editing panel and each time I hit the enter key I seemed to get a new blank code panel.

 

I was using Firefox 3.0.10 or 3.0.11 (not sure what is at home right now) on Ubuntu Linux.

 

;;;
;;; Testing...
;;;
(defun func1 (a / b c)
  (setq b
    (do_something a)
  )
  (cond
    ((b > a)
      (setq c
        (do_something b)
      )
    )
  )
)

;;; A small code sample
(mapcar 'princ l)

Seems like everything works fine using Firefox 3.0.11 on WinXP Pro from my work machine.