16 lines
494 B
Plaintext
16 lines
494 B
Plaintext
;;; Make pop-11 print strings with quotes
|
|
true -> pop_pr_quotes;
|
|
;;;
|
|
;;; Create a string of tokens using comma as token separator
|
|
lvars str='Hello,How,Are,You,Today';
|
|
;;;
|
|
;;; Make a list of strings by applying sys_parse_string
|
|
;;; to str, using the character `,` as separator (the default
|
|
;;; separator, if none is provided, is the space character).
|
|
lvars strings;
|
|
[% sys_parse_string(str, `,`) %] -> strings;
|
|
;;;
|
|
;;; print the list of strings
|
|
strings =>
|
|
** ['Hello' 'How' 'Are' 'You' 'Today']
|