galope/buffer-colon.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
\ galope/buffer-colon.fs

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

\ Taken from Wil Baden's ToolBelt 2002.

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

[undefined] buffer: [if]

: buffer: ( u "name" -- ) create allot ;

  \ doc{
  \
  \ buffer: ( u "name" -- )
  \
  \ Forth-2012's ``buffer:``.
  \
  \ NOTE: This module is deprecated: If ``buffer:`` is already defined
  \ in the Forth system, this module does nothing.
  \
  \ }doc

[then]

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

\ 2012-05-19: Added. 'buffer:' is common use.
\
\ 2013-05-18: Conditional compilation, because 'buffer:' has been
\ included in the Forth-2012 Standard, and eventually will be part of
\ Gforth. Stack notation modified.
\
\ 2015-01-25: Typo.
\
\ 2017-08-17: Update change log layout. Update header. Update code
\ style.
\
\ 2017-10-25: Improve documentation.
\
\ 2017-11-22: Improve documentation.