galope/dollar-variable.fs at master · programandala-net/galope · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
\ galope/dollar-variable.fs

\ This file is part of Galope
\ http://programandala.net/en.program.galope.html

\ Author: Marcos Cruz (programandala.net), 2013, 2015, 2017, 2018.

\ ==============================================================

[undefined] $variable [if]

require string.fs  \ Gforth's dynamic strings

: $variable ( "name" -- )
  variable 0 latestxt execute $!len ;

  \ doc{
  \
  \ $variable ( "name" -- )
  \
  \ Create a Gforth's dynamic string variable _name_.
  \
  \ NOTE: Gforth 0.7.9 includes an improved version of ``$variable``
  \ in the kernel. The Galope version will not be loaded if
  \ ``$variable`` is already defined.
  \
  \ See: `:$variable`, `svariable`.
  \
  \ }doc

[then]

\ ==============================================================
\ Change log

\ 2013-11-09: Added.
\
\ 2015-04-15: Simpler.
\
\ 2017-08-17: Update change log layout and source style.
\
\ 2017-10-26: Improve documentation.
\
\ 2018-12-20: Don't load the file if `$variable` is already defined.
\ Update documentation.