Example Symbol send 002
|
Define a method named EatSpace which will removes spaces from a String.
vars: (NewString, i, j, len)
(setq NewString (new String: ""))
(setq j 0)
(setq len (length S))
(loop for i from 0 until len do
;;Move the character to the buffer only if it isn't a space
(if (<> S[i] #\space)
(begin
(setq NewString[j] S[i])
(setq j (add1 j ))
) ;; end begin
) ;; end if
) ;; end loop
NewString) ;; End EatSpace
Returns:
Returns:
Returns:
Returns:
Returns:
Here are examples of the send function at work.
Here is the link to the current function used in this example.
Here are a number of links to other related functions.
addMethod(#void) | defMethod(#void) | methodsOf(#void) |
Here are the links to the data types of the arguments used in this example. Here are a number of links to examples having similar argument types.
String
Text
Dictionary
Analytic Information Server (AIS)AIS Component Systems
|