Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

doctorondemand / Pygments python

Repository URL to install this package:

Version: 
2.5.0  ▾
Details    
Pygments / examplefiles / output / example.red
Size: Mime: 
€]q(cpygments.token
_TokenType
qXGenericqXStrongq†q…qq}q(Xsubtypesqcbuiltins
set
q	]q
…qRqXparentq
hh…q…qq}q(hh	]q(hhXErrorq†q…qq}q(hh	]q…qRqh
hubhhX
Subheadingq†q…qq}q(hh	]q …q!Rq"h
hubhhX	Tracebackq#†q$…q%q&}q'(hh	]q(…q)Rq*h
hubhhXOutputq+†q,…q-q.}q/(hh	]q0…q1Rq2h
hubhhXPromptq3†q4…q5q6}q7(hh	]q8…q9Rq:h
hubhhXDeletedq;†q<…q=q>}q?(hh	]q@…qARqBh
hubhhXInsertedqC†qD…qEqF}qG(hh	]qH…qIRqJh
hubhhXHeadingqK†qL…qMqN}qO(hh	]qP…qQRqRh
hubhhhXEmphqS†qT…qUqV}qW(hh	]qX…qYRqZh
hube…q[Rq\h
h)…q]q^}q_(hh	]q`(hXEscapeqa…qb…qcqd}qe(hh	]qf…qgRqhh
h^ubhXOperatorqi…qj…qkql}qm(hh	]qn(hhiXDBSqo†qp…qqqr}qs(hh	]qt…quRqvh
hlubhhiXWordqw†qx…qyqz}q{(hh	]q|…q}Rq~h
hlube…qRq€h
h^hwhzhohrubhXNameq…q‚…qƒq„}q…(hh	]q†(hhXTagq‡†qˆ…q‰qŠ}q‹(hh	]qŒ…qRqŽh
h„ubhhXEntityq†q…q‘q’}q“(hh	]q”hhhho‡q•…q–q—}q˜(hh	]q™…qšRq›h
h’uba…qœRqh
h„hoh—ubhhX	Exceptionqž†qŸ…q q¡}q¢(hh	]q£…q¤Rq¥h
h„ubhhX	Decoratorq¦†q§…q¨q©}qª(hh	]q«…q¬Rq­h
h„ubhhXClassq®†q¯…q°q±}q²(hh	]q³(hhh®ho‡q´…qµq¶}q·(hh	]q¸…q¹Rqºh
h±ubhhh®XStartq»‡q¼…q½q¾}q¿(hh	]qqÁRqÂh
h±ube…qÃRqÄh
h„h»h¾hoh¶ubhhXVariableqņqƅqǁqÈ}qÉ(hh	]qÊ(hhhÅX	Anonymousqˇq̅q́qÎ}qÏ(hh	]qЅqÑRqÒh
hÈubhhhÅh®‡qӅqԁqÕ}qÖ(hh	]qׅqØRqÙh
hÈubhhhÅXMagicqڇqۅq܁qÝ}qÞ(hh	]q߅qàRqáh
hÈubhhhÅXGlobalqâ‡qã…qäqå}qæ(hh	]qç…qèRqéh
hÈubhhhÅXInstanceqê‡që…qìqí}qî(hh	]qï…qðRqñh
hÈube…qòRqóh
h„h®hÕhâhåhêhíhÚhÝhËhÎubhhX	Attributeqô†qõ…qöq÷}qø(hh	]qùhhhôhŇqú…qûqü}qý(hh	]qþ…qÿRrh
h÷uba…rRrh
h„hÅhüubhhX	Namespacer†r…rr}r(hh	]r…r	Rr
h
h„ubhhXPropertyr†r…r
r}r(hh	]r…rRrh
h„ubhhXSymbolr†r…rr}r(hh	]r…rRrh
h„ubhhXClassesr†r…rr}r(hh	]r …r!Rr"h
h„ubhhXPseudor#†r$…r%r&}r'(hh	]r(…r)Rr*h
h„ubhhXLabelr+†r,…r-r.}r/(hh	]r0…r1Rr2h
h„ubhhhi†r3…r4r5}r6(hh	]r7…r8Rr9h
h„ubhhXBuiltinr:†r;…r<r=}r>(hh	]r?(hhj:j#‡r@…rArB}rC(hh	]rD…rERrFh
j=ubhhj:XTyperG‡rH…rIrJ}rK(hh	]rL…rMRrNh
j=ube…rORrPh
h„j#jBjGjJubhhXFieldrQ†rR…rSrT}rU(hh	]rV…rWRrXh
h„ubhhXOtherrY†rZ…r[r\}r](hh	]r^hhjYXMemberr_‡r`…rarb}rc(hh	]rd…reRrfh
j\uba…rgRrhh
h„j_jbubhhXFunctionri†rj…rkrl}rm(hh	]rnhhjihڇro…rprq}rr(hh	]rs…rtRruh
jluba…rvRrwh
h„hÚjqubhhjG†rx…ryrz}r{(hh	]r|…r}Rr~h
h„ubhhXConstantr†r€…rr‚}rƒ(hh	]r„…r…Rr†h
h„ube…r‡Rrˆh
h^hôh÷j:j=h®h±jj‚h¦h©hh’hžh¡jijljjj+j.jjjYj\h‡hŠhÅhÈjQjTjjj#j&hij5jjjGjzubhXLiteralr‰…rŠ…r‹rŒ}r(hh	]rŽ(hj‰jY†r…rr‘}r’(hh	]r“…r”Rr•h
jŒubhj‰XCharr–†r—…r˜r™}rš(hh	]r›…rœRrh
jŒubhj‰XDaterž†rŸ…r r¡}r¢(hh	]r£…r¤Rr¥h
jŒubhj‰XScalarr¦†r§…r¨r©}rª(hh	]r«hj‰j¦XPlainr¬‡r­…r®r¯}r°(hh	]r±…r²Rr³h
j©uba…r´Rrµh
jŒj¬j¯ubhj‰XStringr¶†r·…r¸r¹}rº(hh	]r»(hj‰j¶XInterpolr¼‡r½…r¾r¿}rÀ(hh	]rÁ…rÂRrÃh
j¹ubhj‰j¶X	DelimeterrćrÅ…rƁrÇ}rÈ(hh	]rÉ…rÊRrËh
j¹ubhj‰j¶j–‡rÌ…ŕrÎ}rÏ(hh	]rÐ…rÑRrÒh
j¹ubhj‰j¶j‡rÓ…rԁrÕ}rÖ(hh	]r×…rØRrÙh
j¹ubhj‰j¶XSinglerÚ‡rÛ…r܁rÝ}rÞ(hh	]rß…ràRráh
j¹ubhj‰j¶jY‡râ…rãrä}rå(hh	]ræ…rçRrèh
j¹ubhj‰j¶XBacktickré‡rê…rërì}rí(hh	]rî…rïRrðh
j¹ubhj‰j¶ha‡rñ…ròró}rô(hh	]rõ…röRr÷h
j¹ubhj‰j¶XRegexrø‡rù…rúrû}rü(hh	]rý…rþRrÿh
j¹ubhj‰j¶XMomentr‡r…rr}r(hh	]r…rRrh
j¹ubhj‰j¶XBooleanr‡r	…r
r}r(hh	]r
…rRrh
j¹ubhj‰j¶X	Characterr‡r…rr}r(hh	]r…rRrh
j¹ubhj‰j¶X	Delimiterr‡r…rr}r(hh	]r…rRrh
j¹ubhj‰j¶XDocr ‡r!…r"r#}r$(hh	]r%…r&Rr'h
j¹ubhj‰j¶h‡r(…r)r*}r+(hh	]r,…r-Rr.h
j¹ubhj‰j¶XAffixr/‡r0…r1r2}r3(hh	]r4…r5Rr6h
j¹ubhj‰j¶XHeredocr7‡r8…r9r:}r;(hh	]r<…r=Rr>h
j¹ubhj‰j¶XDoubler?‡r@…rArB}rC(hh	]rD…rERrFh
j¹ubhj‰j¶XInterprG‡rH…rIrJ}rK(hh	]rL…rMRrNh
j¹ubhj‰j¶XAtomrO‡rP…rQrR}rS(hh	]rT…rURrVh
j¹ube…rWRrXh
jŒj/j2jéjìj–jÎjjj j#j?jBhajój7j:j¼j¿jYjäjøjûjÚjÝjjÕjjjjjGjJjjjÄjÇjOjRhj*ubhj‰XNumberrY†rZ…r[r\}r](hh	]r^(hj‰jYXFloatr_‡r`…rarb}rc(hh	]rd…reRrfh
j\ubhj‰jYXDecrg‡rh…rirj}rk(hh	]rl…rmRrnh
j\ubhj‰jYXRadixro‡rp…rqrr}rs(hh	]rt…ruRrvh
j\ubhj‰jYXOctrw‡rx…ryrz}r{(hh	]r|…r}Rr~h
j\ubhj‰jYXBinr‡r€…rr‚}rƒ(hh	]r„…r…Rr†h
j\ubhj‰jYhô‡r‡…rˆr‰}rŠ(hh	]r‹…rŒRrh
j\ubhj‰jYXHexrŽ‡r…rr‘}r’(hh	]r“…r”Rr•h
j\ubhj‰jYXIntegerr–‡r—…r˜r™}rš(hh	]r›h(j‰jYj–XLongrœtr…ržrŸ}r (hh	]r¡…r¢Rr£h
j™uba…r¤Rr¥h
j\jœjŸubhj‰jYXDecimalr¦‡r§…r¨r©}rª(hh	]r«…r¬Rr­h
j\ube…r®Rr¯h
jŒjj‚j_jbjŽj‘j–j™jwjzjojrhôj‰j¦j©jgjjube…r°Rr±h
h^j¶j¹jYj\jžj¡j¦j©jYj‘j–j™ubhhh…r²…r³r´}rµ(hh	]r¶…r·Rr¸h
h^ubhXKeywordr¹…rº…r»r¼}r½(hh	]r¾(hj¹hw†r¿…rÀrÁ}rÂ(hh	]rÃ…rÄRrÅh
j¼ubhj¹j¹†rÆ…rǁrÈ}rÉ(hh	]rÊ…rËRrÌh
j¼ubhj¹jG†rÍ…r΁rÏ}rÐ(hh	]rÑ…rÒRrÓh
j¼ubhj¹XPreProcrÔ†rÕ…rցr×}rØ(hh	]rÙ…rÚRrÛh
j¼ubhj¹XControlr܆rÝ…rށrß}rà(hh	]rá…râRrãh
j¼ubhj¹j†rä…råræ}rç(hh	]rè…réRrêh
j¼ubhj¹j†rë…rìrí}rî(hh	]rï…rðRrñh
j¼ubhj¹j#†rò…rórô}rõ(hh	]rö…r÷Rrøh
j¼ubhj¹XDeclarationrù†rú…rûrü}rý(hh	]rþ…rÿRrh
j¼ubhj¹XReservedr†r…rr}r(hh	]r…rRrh
j¼ube…r	Rr
h
h^jjæjùjüjjíj#jôjjjGjÏjÜjßj¹jÈjÔj×hwjÁubhjY…r…rr
}r(hh	]r…rRrh
h^ubhXTextr…r…rr}r(hh	]r(hjXRootr†r…rr}r(hh	]r…rRrh
jubhjj†r …r!r"}r#(hh	]r$…r%Rr&h
jubhjXRagr'†r(…r)r*}r+(hh	]r,…r-Rr.h
jubhjX
Whitespacer/†r0…r1r2}r3(hh	]r4…r5Rr6h
jubhjXBeerr7†r8…r9r:}r;(hh	]r<…r=Rr>h
jubhjXPunctuationr?†r@…rArB}rC(hh	]rD…rERrFh
jube…rGRrHh
h^j/j2jj"j?jBjjj7j:j'j*ubhXCommentrI…rJ…rKrL}rM(hh	]rN(hjIXPreprocrO†rP…rQrR}rS(hh	]rT…rURrVh
jLubhjIXMultirW†rX…rYrZ}r[(hh	]r\…r]Rr^h
jLubhjIXHashbangr_†r`…rarb}rc(hh	]rd…reRrfh
jLubhjIjÚ†rg…rhri}rj(hh	]rk…rlRrmh
jLubhjIX
SingleLinern†ro…rprq}rr(hh	]rs…rtRruh
jLubhjIj †rv…rwrx}ry(hh	]rz…r{Rr|h
jLubhjIX	Directiver}†r~…rr€}r(hh	]r‚…rƒRr„h
jLubhjIX	Multiliner…†r†…r‡rˆ}r‰(hh	]rŠ…r‹RrŒh
jLubhjIX
Singleliner†rŽ…rr}r‘(hh	]r’…r“Rr”h
jLubhjIXPreprocFiler•†r–…r—r˜}r™(hh	]rš…r›Rrœh
jLubhjIXSpecialr†rž…rŸr }r¡(hh	]r¢…r£Rr¤h
jLube…r¥Rr¦h
h^j_jbj…jˆjOjRj•j˜jÚjijj j}j€jnjqj jxjWjZjjubhj?…r§…r¨r©}rª(hh	]r«hj?X	Indicatorr¬†r­…r®r¯}r°(hh	]r±…r²Rr³h
j©uba…r´Rrµh
h^j¬j¯ube…r¶Rr·jjhahdhj´jYj
j¹j¼hh„j‰jŒj?j©hihljIjLhhXTokenr¸h^j¶j¹jYj\ubh;h>hShVhhhKhNhChFh+h.h3h6hhhhh#h&ububXRed [r¹†rºjX
    r»†r¼hXTitle:r½†r¾jX  r¿†rÀj¹X"rÁ†rÂj¹XRed consolerÆrÄj¹jÁ†rÅjX
    rƆrÇhXAuthor:rȆrÉjX rʆrËhX[r̆rÍj¹jÁ†rÎj¹XNenad RakocevicrφrÐj¹jÁ†rÑjjʆrÒj¹jÁ†rÓj¹X
Kaj de VosrÔ†rÕj¹jÁ†rÖhX]r׆rØjX
    rÙ†rÚhXFile:rÛ†rÜjX   r݆rÞh©X%console.redr߆ràjX
    rá†râhXTabs:rã†räjX   rå†ræj\X4rç†rèjX
    ré†rêhXRights:rë†rìjjʆríj¹jÁ†rîj¹X
Copyright rï†rðj¹X(rñ†ròj¹XCró†rôj¹X)rõ†röj¹X0 2012-2013 Nenad Rakocevic. All rights reserved.r÷†røj¹jÁ†rùjX
    rú†rûhXLicense:rü†rýjjʆrþj¹X{rÿ†rj¹X‘
        Distributed under the Boost Software License, Version 1.0.
        See https://github.com/dockimbel/Red/blob/master/BSL-License.txt
    r†rj¹X}r†rjX
    r†rhXPurpose:r†rjX    r	†r
j¹jÁ†rj¹X-Just some code for testing Pygments colorizerr†r
j¹jÁ†rjX
    r†rhX	Language:r†rjX   r†rh©Xhttp://www.red-lang.org/r†rjX
r†rhj׆rjX

r†rjíX#system-globalr†rjjʆrhj̆rjX
    r †r!jíX#eitherr"†r#jjʆr$hÈXOSr%†r&jjʆr'hlX=r(†r)jjʆr*híX'Windowsr+†r,jjʆr-hj̆r.jX	
        r/†r0jíX#importr1†r2jjʆr3hj̆r4jX

            r5†r6j¹jÁ†r7j¹Xkernel32.dllr8†r9j¹jÁ†r:jjʆr;jíXstdcallr<†r=jjʆr>hj̆r?jX
                r@†rAhXAttachConsole:rB†rCjX   rD†rEj¹jÁ†rFj¹X
AttachConsolerG†rHj¹jÁ†rIjjʆrJhj̆rKjX
                    rL†rMhÈX	processIDrN†rOjX       rP†rQhj̆rRjÏXinteger!rS†rThj׆rUjX
                    rV†rWhXreturn:rX†rYjX	         rZ†r[hj̆r\jÏXinteger!r]†r^hj׆r_jX
                r`†rahj׆rbjX
                rc†rdhXSetConsoleTitle:re†rfjjʆrgj¹jÁ†rhj¹XSetConsoleTitleAri†rjj¹jÁ†rkjjʆrlhj̆rmjX
                    rn†rohÈXtitlerp†rqjX           rr†rshj̆rtjÏX	c-string!ru†rvhj׆rwjX
                    rx†ryhXreturn:rz†r{jX	         r|†r}hj̆r~jÏXinteger!r†r€hj׆rjX
                r‚†rƒhj׆r„jX
                r…†r†hXReadConsole:r‡†rˆjX     r‰†rŠj¹jÁ†r‹j¹XReadConsoleArŒ†rj¹jÁ†rŽjjʆrhj̆rjX
                    r‘†r’hÈXconsoleInputr“†r”jX    r•†r–hj̆r—jÏXinteger!r˜†r™hj׆ršjX
                    r›†rœhÈXbufferr†ržjX
          rŸ†r hj̆r¡jÏX	byte-ptr!r¢†r£hj׆r¤jX
                    r¥†r¦hÈXcharsToReadr§†r¨jX     r©†rªhj̆r«jÏXinteger!r¬†r­hj׆r®jX
                    r¯†r°hÈX
numberOfCharsr±†r²jX   r³†r´hj̆rµjÏXint-ptr!r¶†r·hj׆r¸jX
                    r¹†rºhÈXinputControlr»†r¼jX    r½†r¾hj̆r¿jÏXint-ptr!rÀ†rÁhj׆rÂjX
                    rÆrÄhXreturn:rņrÆjX	         rdžrÈhj̆rÉjÏXinteger!rʆrËhj׆rÌjX
                r͆rÎhj׆rÏjX

            rІrÑhj׆rÒjX	
        rÓ†rÔhj׆rÕjX	
        rÖ†r×hXline-buffer-size:r؆rÙjjʆrÚj\X16rÛ†rÜjjʆrÝhlX*rÞ†rßjjʆràj\X1024rá†râjX	
        rã†rähXline-buffer:rå†ræjjʆrçhÈXallocaterè†réjjʆrêhÈXline-buffer-sizerë†rìjX
    rí†rîhj׆rïhj̆rðjX	
        rñ†ròjíX#switchró†rôjjʆrõhÈXOSrö†r÷jjʆrøhj̆rùjX

            rú†rûhÈXMacOSXrü†rýjjʆrþhj̆rÿjX
                r†rjíX#definer†rjjʆrhÈXReadLine-libraryr†rjjʆrj¹jÁ†rj¹Xlibreadline.dylibr	†r
j¹jÁ†rjX

            r†r
hj׆rjX

            r†rjíX#defaultr†rjjʆrhj̆rjX
                r†rjíX#definer†rjjʆrhÈXReadLine-libraryr†rjjʆrj¹jÁ†rj¹Xlibreadline.so.6r†rj¹jÁ†r jX
                r!†r"jíX#definer#†r$jjʆr%hÈXHistory-libraryr&†r'jX  r(†r)j¹jÁ†r*j¹Xlibhistory.so.6r+†r,j¹jÁ†r-jX

            r.†r/hj׆r0jX	
        r1†r2hj׆r3jX	
        r4†r5jíX#importr6†r7jjʆr8hj̆r9jX

            r:†r;hÈXReadLine-libraryr<†r=jjʆr>jíXcdeclr?†r@jjʆrAhj̆rBjX
                rC†rDhX
read-line:rE†rFjjʆrGj¹jÁ†rHj¹XreadlinerI†rJj¹jÁ†rKjjʆrLhj̆rMjX  rN†rOjLX ; Read a line from the console.
rP†rQjX                    rR†rShÈXpromptrT†rUjX
          rV†rWhj̆rXjÏX	c-string!rY†rZhj׆r[jX
                    r\†r]hXreturn:r^†r_jX	         r`†rahj̆rbjÏX	c-string!rc†rdhj׆rejX
                rf†rghj׆rhjX
                ri†rjhXrl-bind-key:rk†rljjʆrmj¹jÁ†rnj¹Xrl_bind_keyro†rpj¹jÁ†rqjjʆrrhj̆rsjX
                    rt†ruhÈXkeyrv†rwjX
             rx†ryhj̆rzjÏXinteger!r{†r|hj׆r}jX
                    r~†rhÈXcommandr€†rjX	         r‚†rƒhj̆r„jÏXinteger!r…†r†hj׆r‡jX
                    rˆ†r‰hXreturn:rŠ†r‹jX	         rŒ†rhj̆rŽjÏXinteger!r†rhj׆r‘jX
                r’†r“hj׆r”jX
                r•†r–hX
rl-insert:r—†r˜jX   r™†ršj¹jÁ†r›j¹X	rl_insertrœ†rj¹jÁ†ržjjʆrŸhj̆r jX
                    r¡†r¢hÈXcountr£†r¤jX           r¥†r¦hj̆r§jÏXinteger!r¨†r©hj׆rªjX
                    r«†r¬hÈXkeyr­†r®jX
             r¯†r°hj̆r±jÏXinteger!r²†r³hj׆r´jX
                    rµ†r¶hXreturn:r·†r¸jX	         r¹†rºhj̆r»jÏXinteger!r¼†r½hj׆r¾jX
                r¿†rÀhj׆rÁjX

            r†rÃhj׆rÄjX

            rņrÆjíX#ifrdžrÈjjʆrÉhÈXOSrʆrËjjʆrÌhlX<>r͆rÎjjʆrÏhíX'MacOSXrІrÑjjʆrÒhj̆rÓjX
                rÔ†rÕhÈXHistory-libraryrÖ†r×jjʆrØjíXcdeclrÙ†rÚjjʆrÛhj̆rÜjX
                    r݆rÞhXadd-history:r߆ràjjʆráj¹jÁ†râj¹Xadd_historyrã†räj¹jÁ†råjjʆræhj̆rçjX  rè†réjLX; Add line to the history.
rê†rëjX                        rì†ríhÈXlinerî†rïjX        rð†rñhj̆ròjÏX	c-string!ró†rôhj׆rõjX
                    rö†r÷hj׆røjX
                rù†rúhj׆rûjX

            rü†rýhj׆rþjX	
        rÿ†rhj׆rjX


        r†rhXrl-insert-wrapper:r†rjjʆrj=Xfuncr†rjjʆr	hj̆r
jX

            r†rhj̆r
jíXcdeclr†rhj׆rjX

            r†rhÈXcountr†rjX   r†rhj̆rjÏXinteger!r†rhj׆rjX

            r†rhÈXkeyr†rjX     r†r hj̆r!jÏXinteger!r"†r#hj׆r$jX

            r%†r&hXreturn:r'†r(jjʆr)hj̆r*jÏXinteger!r+†r,hj׆r-jX	
        r.†r/hj׆r0hj̆r1jX

            r2†r3hÈX	rl-insertr4†r5jjʆr6hÈXcountr7†r8jjʆr9hÈXkeyr:†r;jX	
        r<†r=hj׆r>jX
        
    r?†r@hj׆rAjj†rBhj׆rCjX

rD†rEhX	Windows?:rF†rGjjʆrHh¡XsystemrI†rJh÷X	/platformrK†rLjjʆrMhlj(†rNjjʆrOhíX'WindowsrP†rQjX

rR†rShXread-argument:rT†rUjjʆrVj=XroutinerW†rXjjʆrYhj̆rZjX
    r[†r\h÷X/localr]†r^jX	
        r_†r`hÈXargsra†rbjjʆrchj̆rdjÏX
str-array!re†rfhj׆rgjX	
        rh†rihÈXstrrj†rkjX  rl†rmhj̆rnjÏXred-string!ro†rphj׆rqjj†rrhj׆rshj̆rtjX
    ru†rvj=Xifrw†rxjjʆryh¡Xsystemrz†r{h÷X/args-countr|†r}jjʆr~hlX<>r†r€jjʆrj\X2r‚†rƒjjʆr„hj̆r…jX	
        r††r‡hÈX
SET_RETURNrˆ†r‰hjñ†rŠjX
none-valuer‹†rŒhjõ†rjX	
        rŽ†rh¡Xexitr†r‘jX
    r’†r“hj׆r”jX
    r•†r–hXargs:r—†r˜jjʆr™h¡Xsystemrš†r›h÷X
/args-listrœ†rjjʆržhlX+rŸ†r jjʆr¡j\X1r¢†r£jX                          r¤†r¥jLX;-- skip binary filename
r¦†r§jX    r¨†r©hXstr:rª†r«jjʆr¬hÈX	simple-ior­†r®h÷X	/read-txtr¯†r°jjʆr±hÈXargsr²†r³h÷X/itemr´†rµjX
    r¶†r·hÈX
SET_RETURNr¸†r¹hjñ†rºjXstrr»†r¼hjõ†r½jj†r¾hj׆r¿jX

rÀ†rÁhX
init-console:r†rÃjjʆrÄj=XroutinerņrÆjjʆrÇhj̆rÈjX
    rɆrÊhÈXstrrˆrÌjjʆrÍhj̆rÎjÏXstring!rφrÐhj׆rÑjX
    rÒ†rÓh÷X/localrÔ†rÕjX	
        rÖ†r×hÈXretr؆rÙjj†rÚhj׆rÛhj̆rÜjX
    r݆rÞjíX#eitherr߆ràjjʆráhÈXOSrâ†rãjjʆrählj(†råjjʆræhíX'Windowsrç†rèjjʆréhj̆rêjX	
        rë†rìjLX;ret: AttachConsole -1
rí†rîjX        rï†rðjLX6;if zero? ret [print-line "ReadConsole failed!" halt]
rñ†ròjX        
        ró†rôhXret:rõ†röjjʆr÷hÈXSetConsoleTitlerø†rùjjʆrúhÈXasrû†rüjjʆrýjÏX	c-string!rþ†rÿjjʆrhÈXstringr†rh÷X/rs-headr†rjjʆrhÈXstrr†rjX	
        r†r	j=Xifr
†rjjʆrj¼Xzero?r
†rjjʆrhÈXretr†rjjʆrhj̆rhÈX
print-liner†rjjʆrj¹jÁ†rj¹XSetConsoleTitle failed!r†rj¹jÁ†rjjʆrh¡Xhaltr†rhj׆rjX
    r†r hj׆r!hj̆r"jX	
        r#†r$hÈXrl-bind-keyr%†r&jjʆr'hÈX
as-integerr(†r)jjʆr*jBXtabr+†r,jjʆr-hÈX
as-integerr.†r/jjʆr0hX:rl-insert-wrapperr1†r2jX
    r3†r4hj׆r5jj†r6hj׆r7jX

r8†r9hXinput:r:†r;jjʆr<j=Xroutiner=†r>jjʆr?hj̆r@jX
    rA†rBhÈXpromptrC†rDjjʆrEhj̆rFjÏXstring!rG†rHhj׆rIjX
    rJ†rKh÷X/localrL†rMjX	
        rN†rOhÈXlenrP†rQjjʆrRhÈXretrS†rTjjʆrUhÈXstrrV†rWjjʆrXhÈXbufferrY†rZjjʆr[hÈXliner\†r]jj†r^hj׆r_hj̆r`jX
    ra†rbjíX#eitherrc†rdjjʆrehÈXOSrf†rgjjʆrhhlj(†rijjʆrjhíX'Windowsrk†rljjʆrmhj̆rnjX	
        ro†rphXlen:rq†rrjjʆrsj\X0rt†rujX	
        rv†rwj=Xprintrx†ryjjʆrzhÈXasr{†r|jjʆr}jÏX	c-string!r~†rjjʆr€hÈXstringr†r‚h÷X/rs-headrƒ†r„jjʆr…hÈXpromptr††r‡jX	
        rˆ†r‰hXret:rŠ†r‹jjʆrŒhÈXReadConsoler†rŽjjʆrhÈXstdinr†r‘jjʆr’hÈXline-bufferr“†r”jjʆr•hÈXline-buffer-sizer–†r—jjʆr˜hX:lenr™†ršjjʆr›jBXnullrœ†rjX	
        rž†rŸj=Xifr †r¡jjʆr¢j¼Xzero?r£†r¤jjʆr¥hÈXretr¦†r§jjʆr¨hj̆r©hÈX
print-linerª†r«jjʆr¬j¹jÁ†r­j¹XReadConsole failed!r®†r¯j¹jÁ†r°jjʆr±h¡Xhaltr²†r³hj׆r´jX	
        rµ†r¶hXlen:r·†r¸jjʆr¹hÈXlenrº†r»jjʆr¼hljŸ†r½jjʆr¾j\j¢†r¿jX	
        rÀ†rÁhÈXline-bufferr†rÃh÷X/len:rĆrÅjjʆrÆjBX	null-byterdžrÈjX	
        rɆrÊhXstr:rˆrÌjjʆrÍhÈXstringrΆrÏh÷X/loadrІrÑjjʆrÒhÈXasrÓ†rÔjjʆrÕjÏX	c-string!rÖ†r×jjʆrØhÈXline-bufferrÙ†rÚjjʆrÛhÈXlenr܆rÝjX
    rÞ†rßhj׆ràhj̆rájX	
        râ†rãhXline:rä†råjjʆræhÈX	read-linerç†rèjjʆréhÈXasrê†rëjjʆrìjÏX	c-string!rí†rîjjʆrïhÈXstringrð†rñh÷X/rs-headrò†rójjʆrôhÈXpromptrõ†röjX	
        r÷†røj=Xifrù†rújjʆrûhÈXlinerü†rýjjʆrþhlj(†rÿjjʆrjBXnullr†rjjʆrhj̆rh¡Xhaltr†rhj׆rjX  r†r	jLX; EOF
r
†rjX

         r†r
jíX#ifr†rjjʆrhÈXOSr†rjjʆrhlX<>r†rjjʆrhíX'MacOSXr†rjjʆrhj̆rhÈXadd-historyr†rjjʆrhÈXliner†rhj׆r jX


        r!†r"hXstr:r#†r$jjʆr%hÈXstringr&†r'h÷X/loadr(†r)jjʆr*hÈXliner+†r,jX  r-†r.j\j¢†r/jjʆr0hljŸ†r1jjʆr2jlXlength?r3†r4jjʆr5hÈXliner6†r7jj†r8jLX;       free as byte-ptr! line
r9†r:jX    r;†r<hj׆r=jX
    r>†r?hÈX
SET_RETURNr@†rAhjñ†rBjXstrrC†rDhjõ†rEjj†rFhj׆rGjX

rH†rIhXcount-delimiters:rJ†rKjjʆrLj=XfunctionrM†rNjjʆrOhj̆rPjX
    rQ†rRhÈXbufferrS†rTjX  rU†rVhj̆rWjÏXstring!rX†rYhj׆rZjX
    r[†r\hXreturn:r]†r^jjʆr_hj̆r`jÏXblock!ra†rbhj׆rcjj†rdhj׆rehj̆rfjX
    rg†rhhXlist:ri†rjjjʆrkjlXcopyrl†rmjjʆrnhj̆roj\jt†rpjjʆrqj\jt†rrhj׆rsjX
    rt†ruhXc:rv†rwjjʆrxjBXnonery†rzjX

    
    r{†r|j=Xforeachr}†r~jjʆrhÈXcr€†rjjʆr‚hÈXbufferrƒ†r„jjʆr…hj̆r†jX	
        r‡†rˆj=Xcaser‰†rŠjjʆr‹hj̆rŒjX

            r†rŽhÈXescaped?r†rjjʆr‘hj̆r’jX
                r“†r”hX	escaped?:r•†r–jjʆr—jBXnor˜†r™jX

            rš†r›hj׆rœjX

            r†ržhÈXin-comment?rŸ†r jjʆr¡hj̆r¢jX
                r£†r¤j=Xswitchr¥†r¦jjʆr§hÈj€†r¨jjʆr©hj̆rªjX
                    r«†r¬jÎX#"r­†r®jÎX^/"r¯†r°jjʆr±hj̆r²hXin-comment?:r³†r´jjʆrµjBXnor¶†r·hj׆r¸jX
                r¹†rºhj׆r»jX

            r¼†r½hj׆r¾jX

            r¿†rÀhíX'elserÁ†rÂjjʆrÃhj̆rÄjX
                rņrÆj=XswitchrdžrÈjjʆrÉhÈj€†rÊjjʆrËhj̆rÌjX
                    r͆rÎjÎX#"rφrÐjÎX^^"rцrÒjjʆrÓhj̆rÔhX	escaped?:rÕ†rÖjjʆr×jBXyesr؆rÙhj׆rÚjX
                    rÛ†rÜjÎX#"r݆rÞjÎX;"r߆ràjX  rá†râhj̆rãj=Xifrä†råjjʆræj¼Xzero?rç†rèjjʆréhÈXlistrê†rëh÷X/2rì†ríjjʆrîhj̆rïhXin-comment?:rð†rñjjʆròjBXyesró†rôhj׆rõhj׆röjX
                    r÷†røjÎX#"rù†rújÎX["rû†rüjX  rý†rþhj̆rÿhÈXlistr	†r	h÷X/1:r	†r	jjʆr	hÈXlistr	†r	h÷X/1r	†r	jjʆr		hljŸ†r
	jjʆr	j\j¢†r	hj׆r
	jX
                    r	†r	jÎX#"r	†r	jÎX]"r	†r	jX  r	†r	hj̆r	hÈXlistr	†r	h÷X/1:r	†r	jjʆr	hÈXlistr	†r	h÷X/1r	†r	jjʆr 	hlX-r!	†r"	jjʆr#	j\j¢†r$	hj׆r%	jX
                    r&	†r'	jÎX#"r(	†r)	jÎX{"r*	†r+	jX  r,	†r-	hj̆r.	hÈXlistr/	†r0	h÷X/2:r1	†r2	jjʆr3	hÈXlistr4	†r5	h÷X/2r6	†r7	jjʆr8	hljŸ†r9	jjʆr:	j\j¢†r;	hj׆r<	jX
                    r=	†r>	jÎX#"r?	†r@	jÎX}"rA	†rB	jX  rC	†rD	hj̆rE	hÈXlistrF	†rG	h÷X/2:rH	†rI	jjʆrJ	hÈXlistrK	†rL	h÷X/2rM	†rN	jjʆrO	hlj!	†rP	jjʆrQ	j\j¢†rR	hj׆rS	jX
                rT	†rU	hj׆rV	jX

            rW	†rX	hj׆rY	jX	
        rZ	†r[	hj׆r\	jX
    r]	†r^	hj׆r_	jX
    r`	†ra	hÈXlistrb	†rc	jj†rd	hj׆re	jX

rf	†rg	hXdo-console:rh	†ri	jjʆrj	j=Xfunctionrk	†rl	jjʆrm	hj̆rn	hj׆ro	hj̆rp	jX
    rq	†rr	hXbuffer:rs	†rt	jjʆru	jlXmakerv	†rw	jjʆrx	jÏXstring!ry	†rz	jjʆr{	j\X10000r|	†r}	jX
    r~	†r	hXprompt:r€	†r	jjʆr‚	hXred-prompt:rƒ	†r„	jjʆr…	j¹jÁ†r†	j¹Xred>> r‡	†rˆ	j¹jÁ†r‰	jX
    rŠ	†r‹	hXmode:rŒ	†r	jX  rŽ	†r	híX'monor	†r‘	jX

    
    r’	†r“	hXswitch-mode:r”	†r•	jjʆr–	hj̆r—	jX	
        r˜	†r™	hXmode:rš	†r›	jjʆrœ	j=Xcaser	†rž	jjʆrŸ	hj̆r 	jX

            r¡	†r¢	hÈXcntr£	†r¤	h÷X/1r¥	†r¦	jjʆr§	hÈX>r¨	†r©	jjʆrª	j\jt†r«	jjʆr¬	hj̆r­	híX'blockr®	†r¯	hj׆r°	jX

            r±	†r²	hÈXcntr³	†r´	h÷X/2rµ	†r¶	jjʆr·	hÈj¨	†r¸	jjʆr¹	j\jt†rº	jjʆr»	hj̆r¼	híX'stringr½	†r¾	hj׆r¿	jX

            rÀ	†rÁ	híX'elserÂ	†rÃ	jX     rÄ	†rÅ	hj̆rÆ	jX
                rÇ	†rÈ	e(hXprompt:rÉ	†rÊ	jjʆrË	hÈX
red-promptrÌ	†rÍ	jX
                rÎ	†rÏ	h¡XdorÐ	†rÑ	jjʆrÒ	hÈXevalrÓ	†rÔ	jX
                rÕ	†rÖ	híX'monor×	†rØ	jX

            rÙ	†rÚ	hj׆rÛ	jX	
        rÜ	†rÝ	hj׆rÞ	jX	
        rß	†rà	hXprompt:rá	†râ	jjʆrã	j=Xswitchrä	†rå	jjʆræ	hÈXmoderç	†rè	jjʆré	hj̆rê	jX

            rë	†rì	hÈXblockrí	†rî	jX  rï	†rð	hj̆rñ	j¹jÁ†rò	j¹j̆ró	jóX^-rô	†rõ	j¹jÁ†rö	hj׆r÷	jX

            rø	†rù	hÈXstringrú	†rû	jjʆrü	hj̆rý	j¹jÁ†rþ	j¹jÿ†rÿ	jóX^-r
†r
j¹jÁ†r
hj׆r
jX

            r
†r
hÈXmonor
†r
jX   r
†r	
hj̆r

hÈX
red-promptr
†r
hj׆r
jX	
        r
†r
hj׆r
jX
    r
†r
hj׆r
jX

    
    r
†r
hXeval:r
†r
jjʆr
hj̆r
jX	
        r
†r
hXcode:r
†r
jjʆr
h¡Xloadr
†r 
h÷X/allr!
†r"
jjʆr#
hÈXbufferr$
†r%
jX
        
        r&
†r'
j=Xunlessr(
†r)
jjʆr*
jlXtail?r+
†r,
jjʆr-
hÈXcoder.
†r/
jjʆr0
hj̆r1
jX

            r2
†r3
j=Xsetr4
†r5
h÷X/anyr6
†r7
jjʆr8
híX'resultr9
†r:
jjʆr;
h¡Xdor<
†r=
jjʆr>
hÈXcoder?
†r@
jX
            
            rA
†rB
j=XunlessrC
†rD
jjʆrE
j¼Xunset?rF
†rG
jjʆrH
hX:resultrI
†rJ
jjʆrK
hj̆rL
jX
                rM
†rN
j=XifrO
†rP
jjʆrQ
j\X67rR
†rS
jjʆrT
hlj(†rU
jjʆrV
jlXlength?rW
†rX
jjʆrY
hXresult:rZ
†r[
jjʆr\
jlXmoldr]
†r^
h÷X/partr_
†r`
jjʆra
hX:resultrb
†rc
jjʆrd
j\X67re
†rf
jjʆrg
hj̆rh
jX  ri
†rj
jLX;-- optimized for width = 72
rk
†rl
jX                    rm
†rn
jlXclearro
†rp
jjʆrq
jlXbackrr
†rs
jjʆrt
jlXtailru
†rv
jjʆrw
hÈXresultrx
†ry
jX
                    rz
†r{
jlXappendr|
†r}
jjʆr~
hÈXresultr
†r€
jjʆr
j¹jÁ†r‚
j¹X...rƒ
†r„
j¹jÁ†r…
jX
                r†
†r‡
hj׆rˆ
jX
                r‰
†rŠ
j=Xprintr‹
†rŒ
jjʆr
hj̆rŽ
j¹jÁ†r
j¹X==r
†r‘
j¹jÁ†r’
jjʆr“
hÈXresultr”
†r•
hj׆r–
jX

            r—
†r˜
hj׆r™
jX	
        rš
†r›
hj׆rœ
jX	
        r
†rž
jlXclearrŸ
†r 
jjʆr¡
hÈXbufferr¢
†r£
jX
    r¤
†r¥
hj׆r¦
jX

    r§
†r¨
j=Xwhiler©
†rª
jjʆr«
hj̆r¬
jBXtruer­
†r®
hj׆r¯
hj̆r°
jX	
        r±
†r²
j=Xunlessr³
†r´
jjʆrµ
jlXtail?r¶
†r·
jjʆr¸
hXline:r¹
†rº
jjʆr»
hÈXinputr¼
†r½
jjʆr¾
hÈXpromptr¿
†rÀ
jjʆrÁ
hj̆rÂ
jX

            rÃ
†rÄ
jlXappendrÅ
†rÆ
jjʆrÇ
hÈXbufferrÈ
†rÉ
jjʆrÊ
hÈXlinerË
†rÌ
jX

            rÍ
†rÎ
hXcnt:rÏ
†rÐ
jjʆrÑ
hÈXcount-delimitersrÒ
†rÓ
jjʆrÔ
hÈXbufferrÕ
†rÖ
jX

            r×
†rØ
j=XeitherrÙ
†rÚ
jjʆrÛ
hÈXWindows?rÜ
†rÝ
jjʆrÞ
hj̆rß
jX
                rà
†rá
jlXremoverâ
†rã
jjʆrä
jlXskiprå
†ræ
jjʆrç
jlXtailrè
†ré
jjʆrê
hÈXbufferrë
†rì
jjʆrí
j\X-2rî
†rï
jX
          rð
†rñ
jLX;-- clear extra CR (Windows)
rò
†ró
jX            rô
†rõ
hj׆rö
hj̆r÷
jX
                rø
†rù
jlXappendrú
†rû
jjʆrü
hÈXbufferrý
†rþ
jjʆrÿ
jBXlfr†rjX                    r†rjLX	;-- Unix
r†rjX            r†rhj׆rjX
            
            r	†r
j=Xswitchr†rjjʆr
hÈXmoder†rjjʆrhj̆rjX
                r†rhÈXblockr†rjX  r†rhj̆rj=Xifr†rjjʆrhÈXcntr†rh÷X/1r†rjjʆr hlX<=r!†r"jjʆr#j\jt†r$jjʆr%hj̆r&h¡Xdor'†r(jjʆr)hÈXswitch-moder*†r+hj׆r,hj׆r-jX
                r.†r/hÈXstringr0†r1jjʆr2hj̆r3j=Xifr4†r5jjʆr6hÈXcntr7†r8h÷X/2r9†r:jjʆr;hlX<=r<†r=jjʆr>j\jt†r?jjʆr@hj̆rAh¡XdorB†rCjjʆrDhÈXswitch-moderE†rFhj׆rGhj׆rHjX
                rI†rJhÈXmonorK†rLjX   rM†rNhj̆rOh¡XdorP†rQjjʆrRj=XeitherrS†rTjjʆrUj=XanyrV†rWjjʆrXhj̆rYhÈXcntrZ†r[h÷X/1r\†r]jjʆr^hÈj¨	†r_jjʆr`j\jt†rajjʆrbhÈXcntrc†rdh÷X/2re†rfjjʆrghÈj¨	†rhjjʆrij\jt†rjhj׆rkhj̆rlhÈXswitch-moderm†rnhj׆rohj̆rphÈXevalrq†rrhj׆rshj׆rtjX

            ru†rvhj׆rwjX	
        rx†ryhj׆rzjX
    r{†r|hj׆r}jj†r~hj׆rjX

r€†rhXq:r‚†rƒjjʆr„hX:quitr…†r†jX

r‡†rˆj=Xifr‰†rŠjjʆr‹hXscript:rŒ†rjjʆrŽhÈX
read-argumentr†rjjʆr‘hj̆r’jX
    r“†r”hXscript:r•†r–jjʆr—h¡Xloadr˜†r™jjʆršhÈXscriptr›†rœjX
    r†ržj=XeitherrŸ†r jjʆr¡j=Xanyr¢†r£jjʆr¤hj̆r¥jX	
        r¦†r§hÈXscriptr¨†r©h÷X/1rª†r«jjʆr¬hlX<>r­†r®jjʆr¯híX'Redr°†r±jX	
        r²†r³j=Xnotr´†rµjjʆr¶j¼Xblock?r·†r¸jjʆr¹hÈXscriptrº†r»h÷X/2r¼†r½jX 
    r¾†r¿hj׆rÀhj̆rÁjX	
        r†rÃj=XprintrĆrÅjjʆrÆj¹jÁ†rÇj¹X*** Error: not a Red program!rȆrÉj¹jÁ†rÊjX
    rˆrÌhj׆rÍhj̆rÎjX	
        rφrÐh¡XdorцrÒjjʆrÓjlXskiprÔ†rÕjjʆrÖhÈXscriptr׆rØjjʆrÙj\j‚†rÚjX
    rÛ†rÜhj׆rÝjX
    rÞ†rßh¡Xquitrà†rájj†râhj׆rãjX

rä†råhÈXinit-consoleræ†rçjjʆrèj¹jÁ†réj¹XRed Consolerê†rëj¹jÁ†rìjX

rí†rîj=Xprintrï†rðjjʆrñj¹jÿ†ròj¹X%
-=== Red Console alpha version ===-
ró†rôj¹jñ†rõj¹Xonly ASCII input supportedrö†r÷j¹jõ†røj¹j†rùj¹j†rújX

rû†rühÈX
do-consolerý†rþjj†rÿe.

Products

About

Resources

Contact Gemfury