diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/lisp-on-tex/lisp-simple-alloc.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/lisp-on-tex/lisp-simple-alloc.sty | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-simple-alloc.sty b/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-simple-alloc.sty new file mode 100644 index 00000000000..6213d0cb5e3 --- /dev/null +++ b/Master/texmf-dist/tex/latex/lisp-on-tex/lisp-simple-alloc.sty @@ -0,0 +1,32 @@ +\newcount\@lisp@gc@simple@count + +% gc initializer (called by lisp-on-tex.sty) +\def\@lisp@gc@init{\@lisp@gc@simple@count=0\relax} + +% allocator +% The allocator define #1 to allocated the control sequence +\def\@lisp@gc@alloc#1{% + \expandafter\def\expandafter#1\expandafter{% + \csname @lisp@gc@memory\the\@lisp@gc@simple@count\endcsname}% + \global\advance\@lisp@gc@simple@count1\relax} + +% GC main routine. The routine is called by the allocator. +% If you want to call GC manually, you can do it. +% In simple mode, this does not affects. +\def\@lisp@gc@perform{} + +% pinning a object on global. +% In simple mode, this does not affects. +\def\@lisp@gc@pinning#1#2{} + +% pinning objects on local. +% In simple mode, this does not affects. +\def\@lisp@gc@save@objects@local#1{} + +% pinning memories on local. +% In simple mode, this does not affects. +\def\@lisp@gc@save@memory@local#1{} + +% pinning environmnt on local. +% In simple mode, this does not affects. +\def\@lisp@gc@save@env@local#1{}
\ No newline at end of file |