pygments.rb 0.6.3 → 1.0.0
Sign up to get free protection for your applications and to get access to all the features.
- checksums.yaml +7 -0
- data/CHANGELOG.md +11 -0
- data/README.md +6 -6
- data/Rakefile +2 -1
- data/cache-lexers.rb +1 -1
- data/circle.yml +7 -0
- data/lib/pygments/lexer.rb +3 -3
- data/lib/pygments/popen.rb +67 -30
- data/lib/pygments/version.rb +1 -1
- data/pygments.rb.gemspec +2 -1
- data/test/test_pygments.rb +16 -16
- data/vendor/pygments-main/AUTHORS +54 -8
- data/vendor/pygments-main/CHANGES +247 -25
- data/vendor/pygments-main/LICENSE +1 -1
- data/vendor/pygments-main/Makefile +15 -6
- data/vendor/pygments-main/README.rst +39 -0
- data/vendor/pygments-main/REVISION +1 -1
- data/vendor/pygments-main/TODO +0 -3
- data/vendor/pygments-main/doc/_themes/pygments14/layout.html +1 -1
- data/vendor/pygments-main/doc/_themes/pygments14/static/pygments14.css_t +1 -1
- data/vendor/pygments-main/doc/conf.py +3 -11
- data/vendor/pygments-main/doc/docs/api.rst +15 -0
- data/vendor/pygments-main/doc/docs/cmdline.rst +6 -2
- data/vendor/pygments-main/doc/docs/filterdevelopment.rst +4 -3
- data/vendor/pygments-main/doc/docs/integrate.rst +11 -15
- data/vendor/pygments-main/doc/docs/java.rst +7 -7
- data/vendor/pygments-main/doc/docs/lexerdevelopment.rst +258 -171
- data/vendor/pygments-main/doc/docs/lexers.rst +2 -2
- data/vendor/pygments-main/doc/docs/styles.rst +58 -0
- data/vendor/pygments-main/doc/docs/tokens.rst +22 -2
- data/vendor/pygments-main/doc/docs/unicode.rst +15 -7
- data/vendor/pygments-main/doc/faq.rst +17 -21
- data/vendor/pygments-main/doc/index.rst +12 -11
- data/vendor/pygments-main/doc/languages.rst +10 -7
- data/vendor/pygments-main/external/autopygmentize +9 -6
- data/vendor/pygments-main/external/lasso-builtins-generator-9.lasso +70 -52
- data/vendor/pygments-main/external/markdown-processor.py +1 -1
- data/vendor/pygments-main/external/moin-parser.py +1 -1
- data/vendor/pygments-main/external/rst-directive.py +1 -1
- data/vendor/pygments-main/pygmentize +2 -1
- data/vendor/pygments-main/pygments/__init__.py +14 -15
- data/vendor/pygments-main/pygments/cmdline.py +188 -113
- data/vendor/pygments-main/pygments/console.py +13 -13
- data/vendor/pygments-main/pygments/filter.py +7 -7
- data/vendor/pygments-main/pygments/filters/__init__.py +24 -32
- data/vendor/pygments-main/pygments/formatter.py +5 -5
- data/vendor/pygments-main/pygments/formatters/__init__.py +92 -44
- data/vendor/pygments-main/pygments/formatters/_mapping.py +51 -69
- data/vendor/pygments-main/pygments/formatters/bbcode.py +1 -1
- data/vendor/pygments-main/pygments/formatters/html.py +63 -51
- data/vendor/pygments-main/pygments/formatters/img.py +25 -22
- data/vendor/pygments-main/pygments/formatters/irc.py +182 -0
- data/vendor/pygments-main/pygments/formatters/latex.py +34 -22
- data/vendor/pygments-main/pygments/formatters/other.py +5 -7
- data/vendor/pygments-main/pygments/formatters/rtf.py +28 -31
- data/vendor/pygments-main/pygments/formatters/svg.py +1 -2
- data/vendor/pygments-main/pygments/formatters/terminal.py +29 -45
- data/vendor/pygments-main/pygments/formatters/terminal256.py +118 -31
- data/vendor/pygments-main/pygments/lexer.py +120 -34
- data/vendor/pygments-main/pygments/lexers/__init__.py +85 -53
- data/vendor/pygments-main/pygments/lexers/{_asybuiltins.py → _asy_builtins.py} +7 -7
- data/vendor/pygments-main/pygments/lexers/{_clbuiltins.py → _cl_builtins.py} +17 -17
- data/vendor/pygments-main/pygments/lexers/_cocoa_builtins.py +72 -0
- data/vendor/pygments-main/pygments/lexers/_csound_builtins.py +1346 -0
- data/vendor/pygments-main/pygments/lexers/{_lassobuiltins.py → _lasso_builtins.py} +4699 -4561
- data/vendor/pygments-main/pygments/lexers/{_luabuiltins.py → _lua_builtins.py} +91 -51
- data/vendor/pygments-main/pygments/lexers/_mapping.py +342 -242
- data/vendor/pygments-main/pygments/lexers/_mql_builtins.py +1172 -0
- data/vendor/pygments-main/pygments/lexers/_openedge_builtins.py +2547 -0
- data/vendor/pygments-main/pygments/lexers/{_phpbuiltins.py → _php_builtins.py} +350 -353
- data/vendor/pygments-main/pygments/lexers/_postgres_builtins.py +600 -212
- data/vendor/pygments-main/pygments/lexers/_scilab_builtins.py +3084 -30
- data/vendor/pygments-main/pygments/lexers/_sourcemod_builtins.py +1163 -0
- data/vendor/pygments-main/pygments/lexers/_stan_builtins.py +91 -13
- data/vendor/pygments-main/pygments/lexers/_stata_builtins.py +419 -0
- data/vendor/pygments-main/pygments/lexers/_tsql_builtins.py +1004 -0
- data/vendor/pygments-main/pygments/lexers/_vim_builtins.py +1939 -0
- data/vendor/pygments-main/pygments/lexers/actionscript.py +240 -0
- data/vendor/pygments-main/pygments/lexers/agile.py +14 -2542
- data/vendor/pygments-main/pygments/lexers/algebra.py +221 -0
- data/vendor/pygments-main/pygments/lexers/ambient.py +76 -0
- data/vendor/pygments-main/pygments/lexers/ampl.py +87 -0
- data/vendor/pygments-main/pygments/lexers/apl.py +101 -0
- data/vendor/pygments-main/pygments/lexers/archetype.py +318 -0
- data/vendor/pygments-main/pygments/lexers/asm.py +276 -81
- data/vendor/pygments-main/pygments/lexers/automation.py +374 -0
- data/vendor/pygments-main/pygments/lexers/basic.py +500 -0
- data/vendor/pygments-main/pygments/lexers/bibtex.py +156 -0
- data/vendor/pygments-main/pygments/lexers/business.py +594 -0
- data/vendor/pygments-main/pygments/lexers/c_cpp.py +252 -0
- data/vendor/pygments-main/pygments/lexers/c_like.py +541 -0
- data/vendor/pygments-main/pygments/lexers/capnproto.py +79 -0
- data/vendor/pygments-main/pygments/lexers/chapel.py +101 -0
- data/vendor/pygments-main/pygments/lexers/clean.py +288 -0
- data/vendor/pygments-main/pygments/lexers/compiled.py +24 -5182
- data/vendor/pygments-main/pygments/lexers/configs.py +833 -0
- data/vendor/pygments-main/pygments/lexers/console.py +114 -0
- data/vendor/pygments-main/pygments/lexers/crystal.py +384 -0
- data/vendor/pygments-main/pygments/lexers/csound.py +366 -0
- data/vendor/pygments-main/pygments/lexers/css.py +689 -0
- data/vendor/pygments-main/pygments/lexers/d.py +251 -0
- data/vendor/pygments-main/pygments/lexers/dalvik.py +6 -6
- data/vendor/pygments-main/pygments/lexers/data.py +555 -0
- data/vendor/pygments-main/pygments/lexers/diff.py +165 -0
- data/vendor/pygments-main/pygments/lexers/dotnet.py +96 -88
- data/vendor/pygments-main/pygments/lexers/dsls.py +878 -0
- data/vendor/pygments-main/pygments/lexers/dylan.py +289 -0
- data/vendor/pygments-main/pygments/lexers/ecl.py +125 -0
- data/vendor/pygments-main/pygments/lexers/eiffel.py +65 -0
- data/vendor/pygments-main/pygments/lexers/elm.py +121 -0
- data/vendor/pygments-main/pygments/lexers/erlang.py +533 -0
- data/vendor/pygments-main/pygments/lexers/esoteric.py +275 -0
- data/vendor/pygments-main/pygments/lexers/ezhil.py +68 -0
- data/vendor/pygments-main/pygments/lexers/factor.py +344 -0
- data/vendor/pygments-main/pygments/lexers/fantom.py +250 -0
- data/vendor/pygments-main/pygments/lexers/felix.py +273 -0
- data/vendor/pygments-main/pygments/lexers/forth.py +177 -0
- data/vendor/pygments-main/pygments/lexers/fortran.py +205 -0
- data/vendor/pygments-main/pygments/lexers/foxpro.py +1 -1
- data/vendor/pygments-main/pygments/lexers/functional.py +11 -3661
- data/vendor/pygments-main/pygments/lexers/go.py +101 -0
- data/vendor/pygments-main/pygments/lexers/grammar_notation.py +213 -0
- data/vendor/pygments-main/pygments/lexers/graph.py +7 -8
- data/vendor/pygments-main/pygments/lexers/graphics.py +553 -0
- data/vendor/pygments-main/pygments/lexers/haskell.py +840 -0
- data/vendor/pygments-main/pygments/lexers/haxe.py +936 -0
- data/vendor/pygments-main/pygments/lexers/hdl.py +172 -145
- data/vendor/pygments-main/pygments/lexers/hexdump.py +97 -0
- data/vendor/pygments-main/pygments/lexers/html.py +602 -0
- data/vendor/pygments-main/pygments/lexers/idl.py +270 -0
- data/vendor/pygments-main/pygments/lexers/igor.py +288 -0
- data/vendor/pygments-main/pygments/lexers/inferno.py +3 -3
- data/vendor/pygments-main/pygments/lexers/installers.py +322 -0
- data/vendor/pygments-main/pygments/lexers/int_fiction.py +1343 -0
- data/vendor/pygments-main/pygments/lexers/iolang.py +63 -0
- data/vendor/pygments-main/pygments/lexers/j.py +146 -0
- data/vendor/pygments-main/pygments/lexers/javascript.py +1506 -0
- data/vendor/pygments-main/pygments/lexers/julia.py +333 -0
- data/vendor/pygments-main/pygments/lexers/jvm.py +232 -186
- data/vendor/pygments-main/pygments/lexers/lisp.py +2621 -0
- data/vendor/pygments-main/pygments/lexers/make.py +202 -0
- data/vendor/pygments-main/pygments/lexers/markup.py +595 -0
- data/vendor/pygments-main/pygments/lexers/math.py +11 -2276
- data/vendor/pygments-main/pygments/lexers/matlab.py +663 -0
- data/vendor/pygments-main/pygments/lexers/ml.py +769 -0
- data/vendor/pygments-main/pygments/lexers/modeling.py +358 -0
- data/vendor/pygments-main/pygments/lexers/modula2.py +1561 -0
- data/vendor/pygments-main/pygments/lexers/monte.py +203 -0
- data/vendor/pygments-main/pygments/lexers/ncl.py +1053 -0
- data/vendor/pygments-main/pygments/lexers/nimrod.py +159 -0
- data/vendor/pygments-main/pygments/lexers/nit.py +64 -0
- data/vendor/pygments-main/pygments/lexers/nix.py +136 -0
- data/vendor/pygments-main/pygments/lexers/oberon.py +105 -0
- data/vendor/pygments-main/pygments/lexers/objective.py +504 -0
- data/vendor/pygments-main/pygments/lexers/ooc.py +85 -0
- data/vendor/pygments-main/pygments/lexers/other.py +30 -4481
- data/vendor/pygments-main/pygments/lexers/parasail.py +79 -0
- data/vendor/pygments-main/pygments/lexers/parsers.py +171 -114
- data/vendor/pygments-main/pygments/lexers/pascal.py +644 -0
- data/vendor/pygments-main/pygments/lexers/pawn.py +199 -0
- data/vendor/pygments-main/pygments/lexers/perl.py +616 -0
- data/vendor/pygments-main/pygments/lexers/php.py +267 -0
- data/vendor/pygments-main/pygments/lexers/praat.py +294 -0
- data/vendor/pygments-main/pygments/lexers/prolog.py +306 -0
- data/vendor/pygments-main/pygments/lexers/python.py +938 -0
- data/vendor/pygments-main/pygments/lexers/qvt.py +152 -0
- data/vendor/pygments-main/pygments/lexers/r.py +453 -0
- data/vendor/pygments-main/pygments/lexers/rdf.py +195 -24
- data/vendor/pygments-main/pygments/lexers/rebol.py +431 -0
- data/vendor/pygments-main/pygments/lexers/resource.py +85 -0
- data/vendor/pygments-main/pygments/lexers/rnc.py +67 -0
- data/vendor/pygments-main/pygments/lexers/roboconf.py +82 -0
- data/vendor/pygments-main/pygments/lexers/{_robotframeworklexer.py → robotframework.py} +20 -18
- data/vendor/pygments-main/pygments/lexers/ruby.py +519 -0
- data/vendor/pygments-main/pygments/lexers/rust.py +209 -0
- data/vendor/pygments-main/pygments/lexers/sas.py +228 -0
- data/vendor/pygments-main/pygments/lexers/scripting.py +1222 -0
- data/vendor/pygments-main/pygments/lexers/shell.py +478 -115
- data/vendor/pygments-main/pygments/lexers/smalltalk.py +195 -0
- data/vendor/pygments-main/pygments/lexers/smv.py +75 -0
- data/vendor/pygments-main/pygments/lexers/snobol.py +83 -0
- data/vendor/pygments-main/pygments/lexers/special.py +6 -2
- data/vendor/pygments-main/pygments/lexers/sql.py +209 -120
- data/vendor/pygments-main/pygments/lexers/stata.py +106 -0
- data/vendor/pygments-main/pygments/lexers/supercollider.py +90 -0
- data/vendor/pygments-main/pygments/lexers/tcl.py +145 -0
- data/vendor/pygments-main/pygments/lexers/templates.py +282 -90
- data/vendor/pygments-main/pygments/lexers/testing.py +207 -0
- data/vendor/pygments-main/pygments/lexers/text.py +15 -2045
- data/vendor/pygments-main/pygments/lexers/textedit.py +169 -0
- data/vendor/pygments-main/pygments/lexers/textfmts.py +297 -0
- data/vendor/pygments-main/pygments/lexers/theorem.py +458 -0
- data/vendor/pygments-main/pygments/lexers/trafficscript.py +54 -0
- data/vendor/pygments-main/pygments/lexers/typoscript.py +225 -0
- data/vendor/pygments-main/pygments/lexers/urbi.py +133 -0
- data/vendor/pygments-main/pygments/lexers/varnish.py +190 -0
- data/vendor/pygments-main/pygments/lexers/verification.py +111 -0
- data/vendor/pygments-main/pygments/lexers/web.py +13 -4499
- data/vendor/pygments-main/pygments/lexers/webmisc.py +979 -0
- data/vendor/pygments-main/pygments/lexers/whiley.py +117 -0
- data/vendor/pygments-main/pygments/lexers/x10.py +69 -0
- data/vendor/pygments-main/pygments/modeline.py +5 -2
- data/vendor/pygments-main/pygments/plugin.py +1 -1
- data/vendor/pygments-main/pygments/regexopt.py +92 -0
- data/vendor/pygments-main/pygments/scanner.py +3 -2
- data/vendor/pygments-main/pygments/sphinxext.py +11 -6
- data/vendor/pygments-main/pygments/style.py +41 -4
- data/vendor/pygments-main/pygments/styles/__init__.py +5 -1
- data/vendor/pygments-main/pygments/styles/algol.py +63 -0
- data/vendor/pygments-main/pygments/styles/algol_nu.py +63 -0
- data/vendor/pygments-main/pygments/styles/arduino.py +98 -0
- data/vendor/pygments-main/pygments/styles/autumn.py +1 -1
- data/vendor/pygments-main/pygments/styles/borland.py +1 -1
- data/vendor/pygments-main/pygments/styles/bw.py +1 -1
- data/vendor/pygments-main/pygments/styles/colorful.py +1 -1
- data/vendor/pygments-main/pygments/styles/default.py +1 -1
- data/vendor/pygments-main/pygments/styles/emacs.py +1 -1
- data/vendor/pygments-main/pygments/styles/friendly.py +1 -1
- data/vendor/pygments-main/pygments/styles/fruity.py +1 -1
- data/vendor/pygments-main/pygments/styles/igor.py +1 -1
- data/vendor/pygments-main/pygments/styles/lovelace.py +97 -0
- data/vendor/pygments-main/pygments/styles/manni.py +1 -1
- data/vendor/pygments-main/pygments/styles/monokai.py +1 -1
- data/vendor/pygments-main/pygments/styles/murphy.py +1 -1
- data/vendor/pygments-main/pygments/styles/native.py +1 -1
- data/vendor/pygments-main/pygments/styles/paraiso_dark.py +1 -1
- data/vendor/pygments-main/pygments/styles/paraiso_light.py +1 -1
- data/vendor/pygments-main/pygments/styles/pastie.py +1 -1
- data/vendor/pygments-main/pygments/styles/perldoc.py +2 -2
- data/vendor/pygments-main/pygments/styles/rrt.py +1 -1
- data/vendor/pygments-main/pygments/styles/sas.py +41 -0
- data/vendor/pygments-main/pygments/styles/stata.py +37 -0
- data/vendor/pygments-main/pygments/styles/tango.py +1 -1
- data/vendor/pygments-main/pygments/styles/trac.py +1 -1
- data/vendor/pygments-main/pygments/styles/vim.py +1 -1
- data/vendor/pygments-main/pygments/styles/vs.py +1 -1
- data/vendor/pygments-main/pygments/styles/xcode.py +1 -1
- data/vendor/pygments-main/pygments/token.py +31 -16
- data/vendor/pygments-main/pygments/unistring.py +141 -65
- data/vendor/pygments-main/pygments/util.py +129 -33
- data/vendor/pygments-main/requirements.txt +5 -0
- data/vendor/pygments-main/scripts/check_sources.py +25 -40
- data/vendor/pygments-main/scripts/debug_lexer.py +246 -0
- data/vendor/pygments-main/scripts/find_error.py +1 -0
- data/vendor/pygments-main/scripts/get_vimkw.py +35 -4
- data/vendor/pygments-main/setup.cfg +3 -0
- data/vendor/pygments-main/setup.py +17 -30
- data/vendor/pygments-main/tox.ini +7 -0
- metadata +159 -387
- data/vendor/pygments-main/ez_setup.py +0 -382
- data/vendor/pygments-main/pygments/lexers/_cocoabuiltins.py +0 -73
- data/vendor/pygments-main/pygments/lexers/_openedgebuiltins.py +0 -562
- data/vendor/pygments-main/pygments/lexers/_sourcemodbuiltins.py +0 -1077
- data/vendor/pygments-main/pygments/lexers/_vimbuiltins.py +0 -13
- data/vendor/pygments-main/pygments/lexers/qbasic.py +0 -157
- data/vendor/pygments-main/scripts/find_codetags.py +0 -213
- data/vendor/pygments-main/scripts/find_error.py +0 -173
- data/vendor/pygments-main/tests/dtds/HTML4-f.dtd +0 -37
- data/vendor/pygments-main/tests/dtds/HTML4-s.dtd +0 -869
- data/vendor/pygments-main/tests/dtds/HTML4.dcl +0 -88
- data/vendor/pygments-main/tests/dtds/HTML4.dtd +0 -1092
- data/vendor/pygments-main/tests/dtds/HTML4.soc +0 -9
- data/vendor/pygments-main/tests/dtds/HTMLlat1.ent +0 -195
- data/vendor/pygments-main/tests/dtds/HTMLspec.ent +0 -77
- data/vendor/pygments-main/tests/dtds/HTMLsym.ent +0 -241
- data/vendor/pygments-main/tests/examplefiles/99_bottles_of_beer.chpl +0 -118
- data/vendor/pygments-main/tests/examplefiles/AcidStateAdvanced.hs +0 -209
- data/vendor/pygments-main/tests/examplefiles/AlternatingGroup.mu +0 -102
- data/vendor/pygments-main/tests/examplefiles/BOM.js +0 -1
- data/vendor/pygments-main/tests/examplefiles/CPDictionary.j +0 -611
- data/vendor/pygments-main/tests/examplefiles/Config.in.cache +0 -1973
- data/vendor/pygments-main/tests/examplefiles/Constants.mo +0 -158
- data/vendor/pygments-main/tests/examplefiles/DancingSudoku.lhs +0 -411
- data/vendor/pygments-main/tests/examplefiles/Deflate.fs +0 -578
- data/vendor/pygments-main/tests/examplefiles/Error.pmod +0 -38
- data/vendor/pygments-main/tests/examplefiles/Errors.scala +0 -18
- data/vendor/pygments-main/tests/examplefiles/FakeFile.pike +0 -360
- data/vendor/pygments-main/tests/examplefiles/Get-CommandDefinitionHtml.ps1 +0 -66
- data/vendor/pygments-main/tests/examplefiles/IPDispatchC.nc +0 -104
- data/vendor/pygments-main/tests/examplefiles/IPDispatchP.nc +0 -671
- data/vendor/pygments-main/tests/examplefiles/Intro.java +0 -1660
- data/vendor/pygments-main/tests/examplefiles/Makefile +0 -1131
- data/vendor/pygments-main/tests/examplefiles/Object.st +0 -4394
- data/vendor/pygments-main/tests/examplefiles/OrderedMap.hx +0 -584
- data/vendor/pygments-main/tests/examplefiles/RoleQ.pm6 +0 -23
- data/vendor/pygments-main/tests/examplefiles/SmallCheck.hs +0 -378
- data/vendor/pygments-main/tests/examplefiles/Sorting.mod +0 -470
- data/vendor/pygments-main/tests/examplefiles/Sudoku.lhs +0 -382
- data/vendor/pygments-main/tests/examplefiles/addressbook.proto +0 -30
- data/vendor/pygments-main/tests/examplefiles/antlr_ANTLRv3.g +0 -608
- data/vendor/pygments-main/tests/examplefiles/antlr_throws +0 -1
- data/vendor/pygments-main/tests/examplefiles/apache2.conf +0 -393
- data/vendor/pygments-main/tests/examplefiles/as3_test.as +0 -143
- data/vendor/pygments-main/tests/examplefiles/as3_test2.as +0 -46
- data/vendor/pygments-main/tests/examplefiles/as3_test3.as +0 -3
- data/vendor/pygments-main/tests/examplefiles/aspx-cs_example +0 -27
- data/vendor/pygments-main/tests/examplefiles/autoit_submit.au3 +0 -25
- data/vendor/pygments-main/tests/examplefiles/badcase.java +0 -2
- data/vendor/pygments-main/tests/examplefiles/batchfile.bat +0 -49
- data/vendor/pygments-main/tests/examplefiles/bigtest.nsi +0 -308
- data/vendor/pygments-main/tests/examplefiles/boot-9.scm +0 -1557
- data/vendor/pygments-main/tests/examplefiles/ca65_example +0 -284
- data/vendor/pygments-main/tests/examplefiles/cbmbas_example +0 -9
- data/vendor/pygments-main/tests/examplefiles/cells.ps +0 -515
- data/vendor/pygments-main/tests/examplefiles/ceval.c +0 -2604
- data/vendor/pygments-main/tests/examplefiles/cheetah_example.html +0 -13
- data/vendor/pygments-main/tests/examplefiles/classes.dylan +0 -125
- data/vendor/pygments-main/tests/examplefiles/clojure-weird-keywords.clj +0 -5
- data/vendor/pygments-main/tests/examplefiles/condensed_ruby.rb +0 -10
- data/vendor/pygments-main/tests/examplefiles/coq_RelationClasses +0 -447
- data/vendor/pygments-main/tests/examplefiles/core.cljs +0 -52
- data/vendor/pygments-main/tests/examplefiles/database.pytb +0 -20
- data/vendor/pygments-main/tests/examplefiles/de.MoinMoin.po +0 -2461
- data/vendor/pygments-main/tests/examplefiles/demo.ahk +0 -181
- data/vendor/pygments-main/tests/examplefiles/demo.cfm +0 -50
- data/vendor/pygments-main/tests/examplefiles/demo.hbs +0 -12
- data/vendor/pygments-main/tests/examplefiles/django_sample.html+django +0 -68
- data/vendor/pygments-main/tests/examplefiles/dwarf.cw +0 -17
- data/vendor/pygments-main/tests/examplefiles/ember.handlebars +0 -33
- data/vendor/pygments-main/tests/examplefiles/erl_session +0 -10
- data/vendor/pygments-main/tests/examplefiles/escape_semicolon.clj +0 -1
- data/vendor/pygments-main/tests/examplefiles/evil_regex.js +0 -48
- data/vendor/pygments-main/tests/examplefiles/example.Rd +0 -78
- data/vendor/pygments-main/tests/examplefiles/example.als +0 -217
- data/vendor/pygments-main/tests/examplefiles/example.bug +0 -54
- data/vendor/pygments-main/tests/examplefiles/example.c +0 -2080
- data/vendor/pygments-main/tests/examplefiles/example.ceylon +0 -52
- data/vendor/pygments-main/tests/examplefiles/example.chai +0 -6
- data/vendor/pygments-main/tests/examplefiles/example.clay +0 -33
- data/vendor/pygments-main/tests/examplefiles/example.cls +0 -15
- data/vendor/pygments-main/tests/examplefiles/example.cob +0 -3556
- data/vendor/pygments-main/tests/examplefiles/example.coffee +0 -27
- data/vendor/pygments-main/tests/examplefiles/example.cpp +0 -2363
- data/vendor/pygments-main/tests/examplefiles/example.e +0 -124
- data/vendor/pygments-main/tests/examplefiles/example.f90 +0 -8
- data/vendor/pygments-main/tests/examplefiles/example.feature +0 -16
- data/vendor/pygments-main/tests/examplefiles/example.gd +0 -23
- data/vendor/pygments-main/tests/examplefiles/example.gi +0 -64
- data/vendor/pygments-main/tests/examplefiles/example.groovy +0 -2
- data/vendor/pygments-main/tests/examplefiles/example.gs +0 -106
- data/vendor/pygments-main/tests/examplefiles/example.gst +0 -7
- data/vendor/pygments-main/tests/examplefiles/example.hs +0 -27
- data/vendor/pygments-main/tests/examplefiles/example.hx +0 -185
- data/vendor/pygments-main/tests/examplefiles/example.i6t +0 -32
- data/vendor/pygments-main/tests/examplefiles/example.i7x +0 -45
- data/vendor/pygments-main/tests/examplefiles/example.inf +0 -374
- data/vendor/pygments-main/tests/examplefiles/example.j +0 -564
- data/vendor/pygments-main/tests/examplefiles/example.jag +0 -48
- data/vendor/pygments-main/tests/examplefiles/example.java +0 -16
- data/vendor/pygments-main/tests/examplefiles/example.kal +0 -75
- data/vendor/pygments-main/tests/examplefiles/example.kt +0 -47
- data/vendor/pygments-main/tests/examplefiles/example.lagda +0 -19
- data/vendor/pygments-main/tests/examplefiles/example.liquid +0 -42
- data/vendor/pygments-main/tests/examplefiles/example.lua +0 -250
- data/vendor/pygments-main/tests/examplefiles/example.ma +0 -8
- data/vendor/pygments-main/tests/examplefiles/example.monkey +0 -152
- data/vendor/pygments-main/tests/examplefiles/example.moo +0 -26
- data/vendor/pygments-main/tests/examplefiles/example.moon +0 -629
- data/vendor/pygments-main/tests/examplefiles/example.mq4 +0 -187
- data/vendor/pygments-main/tests/examplefiles/example.mqh +0 -123
- data/vendor/pygments-main/tests/examplefiles/example.msc +0 -43
- data/vendor/pygments-main/tests/examplefiles/example.ni +0 -57
- data/vendor/pygments-main/tests/examplefiles/example.nim +0 -1010
- data/vendor/pygments-main/tests/examplefiles/example.nix +0 -80
- data/vendor/pygments-main/tests/examplefiles/example.ns2 +0 -69
- data/vendor/pygments-main/tests/examplefiles/example.pas +0 -2708
- data/vendor/pygments-main/tests/examplefiles/example.pp +0 -8
- data/vendor/pygments-main/tests/examplefiles/example.prg +0 -161
- data/vendor/pygments-main/tests/examplefiles/example.rb +0 -1852
- data/vendor/pygments-main/tests/examplefiles/example.red +0 -257
- data/vendor/pygments-main/tests/examplefiles/example.reds +0 -150
- data/vendor/pygments-main/tests/examplefiles/example.reg +0 -19
- data/vendor/pygments-main/tests/examplefiles/example.rexx +0 -50
- data/vendor/pygments-main/tests/examplefiles/example.rhtml +0 -561
- data/vendor/pygments-main/tests/examplefiles/example.rkt +0 -743
- data/vendor/pygments-main/tests/examplefiles/example.rpf +0 -4
- data/vendor/pygments-main/tests/examplefiles/example.sh +0 -22
- data/vendor/pygments-main/tests/examplefiles/example.sh-session +0 -19
- data/vendor/pygments-main/tests/examplefiles/example.shell-session +0 -45
- data/vendor/pygments-main/tests/examplefiles/example.slim +0 -31
- data/vendor/pygments-main/tests/examplefiles/example.sls +0 -51
- data/vendor/pygments-main/tests/examplefiles/example.sml +0 -156
- data/vendor/pygments-main/tests/examplefiles/example.snobol +0 -15
- data/vendor/pygments-main/tests/examplefiles/example.stan +0 -110
- data/vendor/pygments-main/tests/examplefiles/example.tea +0 -34
- data/vendor/pygments-main/tests/examplefiles/example.todotxt +0 -9
- data/vendor/pygments-main/tests/examplefiles/example.ts +0 -28
- data/vendor/pygments-main/tests/examplefiles/example.u +0 -548
- data/vendor/pygments-main/tests/examplefiles/example.weechatlog +0 -9
- data/vendor/pygments-main/tests/examplefiles/example.xhtml +0 -376
- data/vendor/pygments-main/tests/examplefiles/example.xtend +0 -34
- data/vendor/pygments-main/tests/examplefiles/example.yaml +0 -302
- data/vendor/pygments-main/tests/examplefiles/example2.aspx +0 -29
- data/vendor/pygments-main/tests/examplefiles/example2.msc +0 -79
- data/vendor/pygments-main/tests/examplefiles/exampleScript.cfc +0 -241
- data/vendor/pygments-main/tests/examplefiles/exampleTag.cfc +0 -18
- data/vendor/pygments-main/tests/examplefiles/example_elixir.ex +0 -205
- data/vendor/pygments-main/tests/examplefiles/example_file.fy +0 -128
- data/vendor/pygments-main/tests/examplefiles/firefox.mak +0 -586
- data/vendor/pygments-main/tests/examplefiles/flipflop.sv +0 -19
- data/vendor/pygments-main/tests/examplefiles/foo.sce +0 -6
- data/vendor/pygments-main/tests/examplefiles/format.ml +0 -1213
- data/vendor/pygments-main/tests/examplefiles/fucked_up.rb +0 -77
- data/vendor/pygments-main/tests/examplefiles/function.mu +0 -1
- data/vendor/pygments-main/tests/examplefiles/functional.rst +0 -1472
- data/vendor/pygments-main/tests/examplefiles/garcia-wachs.kk +0 -133
- data/vendor/pygments-main/tests/examplefiles/genclass.clj +0 -510
- data/vendor/pygments-main/tests/examplefiles/genshi_example.xml+genshi +0 -193
- data/vendor/pygments-main/tests/examplefiles/genshitext_example.genshitext +0 -33
- data/vendor/pygments-main/tests/examplefiles/glsl.frag +0 -7
- data/vendor/pygments-main/tests/examplefiles/glsl.vert +0 -13
- data/vendor/pygments-main/tests/examplefiles/grammar-test.p6 +0 -22
- data/vendor/pygments-main/tests/examplefiles/hash_syntax.rb +0 -5
- data/vendor/pygments-main/tests/examplefiles/hello.at +0 -6
- data/vendor/pygments-main/tests/examplefiles/hello.golo +0 -5
- data/vendor/pygments-main/tests/examplefiles/hello.lsl +0 -12
- data/vendor/pygments-main/tests/examplefiles/hello.smali +0 -40
- data/vendor/pygments-main/tests/examplefiles/hello.sp +0 -9
- data/vendor/pygments-main/tests/examplefiles/html+php_faulty.php +0 -1
- data/vendor/pygments-main/tests/examplefiles/http_request_example +0 -15
- data/vendor/pygments-main/tests/examplefiles/http_response_example +0 -29
- data/vendor/pygments-main/tests/examplefiles/hybris_File.hy +0 -174
- data/vendor/pygments-main/tests/examplefiles/idl_sample.pro +0 -73
- data/vendor/pygments-main/tests/examplefiles/iex_example +0 -23
- data/vendor/pygments-main/tests/examplefiles/inet_pton6.dg +0 -71
- data/vendor/pygments-main/tests/examplefiles/intro.ik +0 -24
- data/vendor/pygments-main/tests/examplefiles/ints.php +0 -10
- data/vendor/pygments-main/tests/examplefiles/intsyn.fun +0 -675
- data/vendor/pygments-main/tests/examplefiles/intsyn.sig +0 -286
- data/vendor/pygments-main/tests/examplefiles/irb_heredoc +0 -8
- data/vendor/pygments-main/tests/examplefiles/irc.lsp +0 -214
- data/vendor/pygments-main/tests/examplefiles/java.properties +0 -16
- data/vendor/pygments-main/tests/examplefiles/jbst_example1.jbst +0 -28
- data/vendor/pygments-main/tests/examplefiles/jbst_example2.jbst +0 -45
- data/vendor/pygments-main/tests/examplefiles/jinjadesignerdoc.rst +0 -713
- data/vendor/pygments-main/tests/examplefiles/json.lasso +0 -301
- data/vendor/pygments-main/tests/examplefiles/json.lasso9 +0 -213
- data/vendor/pygments-main/tests/examplefiles/language.hy +0 -165
- data/vendor/pygments-main/tests/examplefiles/lighttpd_config.conf +0 -13
- data/vendor/pygments-main/tests/examplefiles/limbo.b +0 -456
- data/vendor/pygments-main/tests/examplefiles/linecontinuation.py +0 -47
- data/vendor/pygments-main/tests/examplefiles/livescript-demo.ls +0 -43
- data/vendor/pygments-main/tests/examplefiles/logos_example.xm +0 -28
- data/vendor/pygments-main/tests/examplefiles/ltmain.sh +0 -2849
- data/vendor/pygments-main/tests/examplefiles/main.cmake +0 -44
- data/vendor/pygments-main/tests/examplefiles/markdown.lsp +0 -679
- data/vendor/pygments-main/tests/examplefiles/matlab_noreturn +0 -3
- data/vendor/pygments-main/tests/examplefiles/matlab_sample +0 -30
- data/vendor/pygments-main/tests/examplefiles/matlabsession_sample.txt +0 -37
- data/vendor/pygments-main/tests/examplefiles/metagrammar.treetop +0 -455
- data/vendor/pygments-main/tests/examplefiles/minehunt.qml +0 -112
- data/vendor/pygments-main/tests/examplefiles/minimal.ns2 +0 -4
- data/vendor/pygments-main/tests/examplefiles/moin_SyntaxReference.txt +0 -340
- data/vendor/pygments-main/tests/examplefiles/multiline_regexes.rb +0 -38
- data/vendor/pygments-main/tests/examplefiles/nanomsg.intr +0 -95
- data/vendor/pygments-main/tests/examplefiles/nasm_aoutso.asm +0 -96
- data/vendor/pygments-main/tests/examplefiles/nasm_objexe.asm +0 -30
- data/vendor/pygments-main/tests/examplefiles/nemerle_sample.n +0 -87
- data/vendor/pygments-main/tests/examplefiles/nginx_nginx.conf +0 -118
- data/vendor/pygments-main/tests/examplefiles/numbers.c +0 -12
- data/vendor/pygments-main/tests/examplefiles/objc_example.m +0 -179
- data/vendor/pygments-main/tests/examplefiles/openedge_example +0 -34
- data/vendor/pygments-main/tests/examplefiles/pawn_example +0 -25
- data/vendor/pygments-main/tests/examplefiles/perl_misc +0 -62
- data/vendor/pygments-main/tests/examplefiles/perl_perl5db +0 -998
- data/vendor/pygments-main/tests/examplefiles/perl_regex-delims +0 -120
- data/vendor/pygments-main/tests/examplefiles/perlfunc.1 +0 -856
- data/vendor/pygments-main/tests/examplefiles/phpMyAdmin.spec +0 -163
- data/vendor/pygments-main/tests/examplefiles/phpcomplete.vim +0 -567
- data/vendor/pygments-main/tests/examplefiles/pleac.in.rb +0 -1223
- data/vendor/pygments-main/tests/examplefiles/postgresql_test.txt +0 -47
- data/vendor/pygments-main/tests/examplefiles/pppoe.applescript +0 -10
- data/vendor/pygments-main/tests/examplefiles/psql_session.txt +0 -122
- data/vendor/pygments-main/tests/examplefiles/py3_test.txt +0 -2
- data/vendor/pygments-main/tests/examplefiles/py3tb_test.py3tb +0 -4
- data/vendor/pygments-main/tests/examplefiles/pycon_test.pycon +0 -14
- data/vendor/pygments-main/tests/examplefiles/pytb_test2.pytb +0 -2
- data/vendor/pygments-main/tests/examplefiles/pytb_test3.pytb +0 -4
- data/vendor/pygments-main/tests/examplefiles/python25-bsd.mak +0 -234
- data/vendor/pygments-main/tests/examplefiles/qbasic_example +0 -2
- data/vendor/pygments-main/tests/examplefiles/qsort.prolog +0 -13
- data/vendor/pygments-main/tests/examplefiles/r-console-transcript.Rout +0 -38
- data/vendor/pygments-main/tests/examplefiles/r6rs-comments.scm +0 -23
- data/vendor/pygments-main/tests/examplefiles/ragel-cpp_rlscan +0 -280
- data/vendor/pygments-main/tests/examplefiles/ragel-cpp_snippet +0 -2
- data/vendor/pygments-main/tests/examplefiles/regex.js +0 -22
- data/vendor/pygments-main/tests/examplefiles/reversi.lsp +0 -427
- data/vendor/pygments-main/tests/examplefiles/robotframework_test.txt +0 -39
- data/vendor/pygments-main/tests/examplefiles/rql-queries.rql +0 -34
- data/vendor/pygments-main/tests/examplefiles/ruby_func_def.rb +0 -11
- data/vendor/pygments-main/tests/examplefiles/rust_example.rs +0 -233
- data/vendor/pygments-main/tests/examplefiles/scilab.sci +0 -30
- data/vendor/pygments-main/tests/examplefiles/scope.cirru +0 -43
- data/vendor/pygments-main/tests/examplefiles/session.dylan-console +0 -9
- data/vendor/pygments-main/tests/examplefiles/sibling.prolog +0 -19
- data/vendor/pygments-main/tests/examplefiles/simple.md +0 -747
- data/vendor/pygments-main/tests/examplefiles/smarty_example.html +0 -209
- data/vendor/pygments-main/tests/examplefiles/source.lgt +0 -343
- data/vendor/pygments-main/tests/examplefiles/sources.list +0 -62
- data/vendor/pygments-main/tests/examplefiles/sparql.rq +0 -23
- data/vendor/pygments-main/tests/examplefiles/sphere.pov +0 -18
- data/vendor/pygments-main/tests/examplefiles/sqlite3.sqlite3-console +0 -27
- data/vendor/pygments-main/tests/examplefiles/squid.conf +0 -30
- data/vendor/pygments-main/tests/examplefiles/string.jl +0 -1031
- data/vendor/pygments-main/tests/examplefiles/string_delimiters.d +0 -21
- data/vendor/pygments-main/tests/examplefiles/stripheredoc.sh +0 -3
- data/vendor/pygments-main/tests/examplefiles/swig_java.swg +0 -1329
- data/vendor/pygments-main/tests/examplefiles/swig_std_vector.i +0 -225
- data/vendor/pygments-main/tests/examplefiles/test.R +0 -185
- data/vendor/pygments-main/tests/examplefiles/test.adb +0 -211
- data/vendor/pygments-main/tests/examplefiles/test.agda +0 -102
- data/vendor/pygments-main/tests/examplefiles/test.apl +0 -26
- data/vendor/pygments-main/tests/examplefiles/test.asy +0 -131
- data/vendor/pygments-main/tests/examplefiles/test.awk +0 -121
- data/vendor/pygments-main/tests/examplefiles/test.bb +0 -95
- data/vendor/pygments-main/tests/examplefiles/test.bmx +0 -145
- data/vendor/pygments-main/tests/examplefiles/test.boo +0 -39
- data/vendor/pygments-main/tests/examplefiles/test.bro +0 -250
- data/vendor/pygments-main/tests/examplefiles/test.cs +0 -374
- data/vendor/pygments-main/tests/examplefiles/test.css +0 -54
- data/vendor/pygments-main/tests/examplefiles/test.cu +0 -36
- data/vendor/pygments-main/tests/examplefiles/test.cyp +0 -123
- data/vendor/pygments-main/tests/examplefiles/test.d +0 -135
- data/vendor/pygments-main/tests/examplefiles/test.dart +0 -23
- data/vendor/pygments-main/tests/examplefiles/test.dtd +0 -89
- data/vendor/pygments-main/tests/examplefiles/test.ebnf +0 -31
- data/vendor/pygments-main/tests/examplefiles/test.ec +0 -605
- data/vendor/pygments-main/tests/examplefiles/test.ecl +0 -58
- data/vendor/pygments-main/tests/examplefiles/test.eh +0 -315
- data/vendor/pygments-main/tests/examplefiles/test.erl +0 -169
- data/vendor/pygments-main/tests/examplefiles/test.evoque +0 -33
- data/vendor/pygments-main/tests/examplefiles/test.fan +0 -818
- data/vendor/pygments-main/tests/examplefiles/test.flx +0 -57
- data/vendor/pygments-main/tests/examplefiles/test.gdc +0 -13
- data/vendor/pygments-main/tests/examplefiles/test.groovy +0 -97
- data/vendor/pygments-main/tests/examplefiles/test.html +0 -339
- data/vendor/pygments-main/tests/examplefiles/test.idr +0 -93
- data/vendor/pygments-main/tests/examplefiles/test.ini +0 -10
- data/vendor/pygments-main/tests/examplefiles/test.java +0 -653
- data/vendor/pygments-main/tests/examplefiles/test.jsp +0 -24
- data/vendor/pygments-main/tests/examplefiles/test.maql +0 -45
- data/vendor/pygments-main/tests/examplefiles/test.mask +0 -41
- data/vendor/pygments-main/tests/examplefiles/test.mod +0 -374
- data/vendor/pygments-main/tests/examplefiles/test.moo +0 -51
- data/vendor/pygments-main/tests/examplefiles/test.myt +0 -166
- data/vendor/pygments-main/tests/examplefiles/test.nim +0 -93
- data/vendor/pygments-main/tests/examplefiles/test.opa +0 -10
- data/vendor/pygments-main/tests/examplefiles/test.p6 +0 -252
- data/vendor/pygments-main/tests/examplefiles/test.pan +0 -54
- data/vendor/pygments-main/tests/examplefiles/test.pas +0 -743
- data/vendor/pygments-main/tests/examplefiles/test.php +0 -507
- data/vendor/pygments-main/tests/examplefiles/test.pig +0 -148
- data/vendor/pygments-main/tests/examplefiles/test.plot +0 -333
- data/vendor/pygments-main/tests/examplefiles/test.ps1 +0 -108
- data/vendor/pygments-main/tests/examplefiles/test.pwn +0 -253
- data/vendor/pygments-main/tests/examplefiles/test.pypylog +0 -1839
- data/vendor/pygments-main/tests/examplefiles/test.r3 +0 -114
- data/vendor/pygments-main/tests/examplefiles/test.rb +0 -177
- data/vendor/pygments-main/tests/examplefiles/test.rhtml +0 -43
- data/vendor/pygments-main/tests/examplefiles/test.rsl +0 -111
- data/vendor/pygments-main/tests/examplefiles/test.scaml +0 -8
- data/vendor/pygments-main/tests/examplefiles/test.ssp +0 -12
- data/vendor/pygments-main/tests/examplefiles/test.swift +0 -65
- data/vendor/pygments-main/tests/examplefiles/test.tcsh +0 -830
- data/vendor/pygments-main/tests/examplefiles/test.vb +0 -407
- data/vendor/pygments-main/tests/examplefiles/test.vhdl +0 -161
- data/vendor/pygments-main/tests/examplefiles/test.xqy +0 -138
- data/vendor/pygments-main/tests/examplefiles/test.xsl +0 -23
- data/vendor/pygments-main/tests/examplefiles/test.zep +0 -33
- data/vendor/pygments-main/tests/examplefiles/test2.pypylog +0 -120
- data/vendor/pygments-main/tests/examplefiles/truncated.pytb +0 -15
- data/vendor/pygments-main/tests/examplefiles/type.lisp +0 -1218
- data/vendor/pygments-main/tests/examplefiles/underscore.coffee +0 -603
- data/vendor/pygments-main/tests/examplefiles/unicode.applescript +0 -5
- data/vendor/pygments-main/tests/examplefiles/unicode.go +0 -10
- data/vendor/pygments-main/tests/examplefiles/unicodedoc.py +0 -11
- data/vendor/pygments-main/tests/examplefiles/unix-io.lid +0 -37
- data/vendor/pygments-main/tests/examplefiles/vbnet_test.bas +0 -29
- data/vendor/pygments-main/tests/examplefiles/vctreestatus_hg +0 -4
- data/vendor/pygments-main/tests/examplefiles/vimrc +0 -21
- data/vendor/pygments-main/tests/examplefiles/webkit-transition.css +0 -3
- data/vendor/pygments-main/tests/examplefiles/while.pov +0 -13
- data/vendor/pygments-main/tests/examplefiles/wiki.factor +0 -384
- data/vendor/pygments-main/tests/examplefiles/xml_example +0 -1897
- data/vendor/pygments-main/tests/examplefiles/zmlrpc.f90 +0 -798
- data/vendor/pygments-main/tests/run.py +0 -44
- data/vendor/pygments-main/tests/string_asserts.py +0 -22
- data/vendor/pygments-main/tests/support.py +0 -15
- data/vendor/pygments-main/tests/support/tags +0 -36
- data/vendor/pygments-main/tests/test_basic_api.py +0 -309
- data/vendor/pygments-main/tests/test_cfm.py +0 -46
- data/vendor/pygments-main/tests/test_clexer.py +0 -236
- data/vendor/pygments-main/tests/test_cmdline.py +0 -106
- data/vendor/pygments-main/tests/test_examplefiles.py +0 -110
- data/vendor/pygments-main/tests/test_html_formatter.py +0 -180
- data/vendor/pygments-main/tests/test_latex_formatter.py +0 -57
- data/vendor/pygments-main/tests/test_lexers_other.py +0 -68
- data/vendor/pygments-main/tests/test_objectiveclexer.py +0 -81
- data/vendor/pygments-main/tests/test_perllexer.py +0 -137
- data/vendor/pygments-main/tests/test_qbasiclexer.py +0 -43
- data/vendor/pygments-main/tests/test_regexlexer.py +0 -54
- data/vendor/pygments-main/tests/test_rtf_formatter.py +0 -109
- data/vendor/pygments-main/tests/test_string_asserts.py +0 -39
- data/vendor/pygments-main/tests/test_token.py +0 -46
- data/vendor/pygments-main/tests/test_using_api.py +0 -40
- data/vendor/pygments-main/tests/test_util.py +0 -135
@@ -1,165 +0,0 @@
|
|
1
|
-
;;;; This contains some of the core Hy functions used
|
2
|
-
;;;; to make functional programming slightly easier.
|
3
|
-
;;;;
|
4
|
-
|
5
|
-
|
6
|
-
(defn _numeric-check [x]
|
7
|
-
(if (not (numeric? x))
|
8
|
-
(raise (TypeError (.format "{0!r} is not a number" x)))))
|
9
|
-
|
10
|
-
(defn cycle [coll]
|
11
|
-
"Yield an infinite repetition of the items in coll"
|
12
|
-
(setv seen [])
|
13
|
-
(for [x coll]
|
14
|
-
(yield x)
|
15
|
-
(.append seen x))
|
16
|
-
(while seen
|
17
|
-
(for [x seen]
|
18
|
-
(yield x))))
|
19
|
-
|
20
|
-
(defn dec [n]
|
21
|
-
"Decrement n by 1"
|
22
|
-
(_numeric-check n)
|
23
|
-
(- n 1))
|
24
|
-
|
25
|
-
(defn distinct [coll]
|
26
|
-
"Return a generator from the original collection with duplicates
|
27
|
-
removed"
|
28
|
-
(let [[seen []] [citer (iter coll)]]
|
29
|
-
(for [val citer]
|
30
|
-
(if (not_in val seen)
|
31
|
-
(do
|
32
|
-
(yield val)
|
33
|
-
(.append seen val))))))
|
34
|
-
|
35
|
-
(defn drop [count coll]
|
36
|
-
"Drop `count` elements from `coll` and yield back the rest"
|
37
|
-
(let [[citer (iter coll)]]
|
38
|
-
(try (for [i (range count)]
|
39
|
-
(next citer))
|
40
|
-
(catch [StopIteration]))
|
41
|
-
citer))
|
42
|
-
|
43
|
-
(defn even? [n]
|
44
|
-
"Return true if n is an even number"
|
45
|
-
(_numeric-check n)
|
46
|
-
(= (% n 2) 0))
|
47
|
-
|
48
|
-
(defn filter [pred coll]
|
49
|
-
"Return all elements from `coll` that pass `pred`"
|
50
|
-
(let [[citer (iter coll)]]
|
51
|
-
(for [val citer]
|
52
|
-
(if (pred val)
|
53
|
-
(yield val)))))
|
54
|
-
|
55
|
-
(defn inc [n]
|
56
|
-
"Increment n by 1"
|
57
|
-
(_numeric-check n)
|
58
|
-
(+ n 1))
|
59
|
-
|
60
|
-
(defn instance? [klass x]
|
61
|
-
(isinstance x klass))
|
62
|
-
|
63
|
-
(defn iterable? [x]
|
64
|
-
"Return true if x is iterable"
|
65
|
-
(try (do (iter x) true)
|
66
|
-
(catch [Exception] false)))
|
67
|
-
|
68
|
-
(defn iterate [f x]
|
69
|
-
(setv val x)
|
70
|
-
(while true
|
71
|
-
(yield val)
|
72
|
-
(setv val (f val))))
|
73
|
-
|
74
|
-
(defn iterator? [x]
|
75
|
-
"Return true if x is an iterator"
|
76
|
-
(try (= x (iter x))
|
77
|
-
(catch [TypeError] false)))
|
78
|
-
|
79
|
-
(defn neg? [n]
|
80
|
-
"Return true if n is < 0"
|
81
|
-
(_numeric-check n)
|
82
|
-
(< n 0))
|
83
|
-
|
84
|
-
(defn none? [x]
|
85
|
-
"Return true if x is None"
|
86
|
-
(is x None))
|
87
|
-
|
88
|
-
(defn numeric? [x]
|
89
|
-
(import numbers)
|
90
|
-
(instance? numbers.Number x))
|
91
|
-
|
92
|
-
(defn nth [coll index]
|
93
|
-
"Return nth item in collection or sequence, counting from 0"
|
94
|
-
(if (not (neg? index))
|
95
|
-
(if (iterable? coll)
|
96
|
-
(try (first (list (take 1 (drop index coll))))
|
97
|
-
(catch [IndexError] None))
|
98
|
-
(try (get coll index)
|
99
|
-
(catch [IndexError] None)))
|
100
|
-
None))
|
101
|
-
|
102
|
-
(defn odd? [n]
|
103
|
-
"Return true if n is an odd number"
|
104
|
-
(_numeric-check n)
|
105
|
-
(= (% n 2) 1))
|
106
|
-
|
107
|
-
(defn pos? [n]
|
108
|
-
"Return true if n is > 0"
|
109
|
-
(_numeric_check n)
|
110
|
-
(> n 0))
|
111
|
-
|
112
|
-
(defn remove [pred coll]
|
113
|
-
"Return coll with elements removed that pass `pred`"
|
114
|
-
(let [[citer (iter coll)]]
|
115
|
-
(for [val citer]
|
116
|
-
(if (not (pred val))
|
117
|
-
(yield val)))))
|
118
|
-
|
119
|
-
(defn repeat [x &optional n]
|
120
|
-
"Yield x forever or optionally n times"
|
121
|
-
(if (none? n)
|
122
|
-
(setv dispatch (fn [] (while true (yield x))))
|
123
|
-
(setv dispatch (fn [] (for [_ (range n)] (yield x)))))
|
124
|
-
(dispatch))
|
125
|
-
|
126
|
-
(defn repeatedly [func]
|
127
|
-
"Yield result of running func repeatedly"
|
128
|
-
(while true
|
129
|
-
(yield (func))))
|
130
|
-
|
131
|
-
(defn take [count coll]
|
132
|
-
"Take `count` elements from `coll`, or the whole set if the total
|
133
|
-
number of entries in `coll` is less than `count`."
|
134
|
-
(let [[citer (iter coll)]]
|
135
|
-
(for [_ (range count)]
|
136
|
-
(yield (next citer)))))
|
137
|
-
|
138
|
-
(defn take-nth [n coll]
|
139
|
-
"Return every nth member of coll
|
140
|
-
raises ValueError for (not (pos? n))"
|
141
|
-
(if (pos? n)
|
142
|
-
(let [[citer (iter coll)] [skip (dec n)]]
|
143
|
-
(for [val citer]
|
144
|
-
(yield val)
|
145
|
-
(for [_ (range skip)]
|
146
|
-
(next citer))))
|
147
|
-
(raise (ValueError "n must be positive"))))
|
148
|
-
|
149
|
-
(defn take-while [pred coll]
|
150
|
-
"Take all elements while `pred` is true"
|
151
|
-
(let [[citer (iter coll)]]
|
152
|
-
(for [val citer]
|
153
|
-
(if (pred val)
|
154
|
-
(yield val)
|
155
|
-
(break)))))
|
156
|
-
|
157
|
-
(defn zero? [n]
|
158
|
-
"Return true if n is 0"
|
159
|
-
(_numeric_check n)
|
160
|
-
(= n 0))
|
161
|
-
|
162
|
-
(def *exports* ["cycle" "dec" "distinct" "drop" "even?" "filter" "inc"
|
163
|
-
"instance?" "iterable?" "iterate" "iterator?" "neg?"
|
164
|
-
"none?" "nth" "numeric?" "odd?" "pos?" "remove" "repeat"
|
165
|
-
"repeatedly" "take" "take_nth" "take_while" "zero?"])
|
@@ -1,13 +0,0 @@
|
|
1
|
-
fastcgi.server = ( ".php" => ((
|
2
|
-
"bin-path" => "/path/to/php-cgi",
|
3
|
-
"socket" => "/tmp/php.socket",
|
4
|
-
"max-procs" => 2,
|
5
|
-
"bin-environment" => (
|
6
|
-
"PHP_FCGI_CHILDREN" => "16",
|
7
|
-
"PHP_FCGI_MAX_REQUESTS" => "10000"
|
8
|
-
),
|
9
|
-
"bin-copy-environment" => (
|
10
|
-
"PATH", "SHELL", "USER"
|
11
|
-
),
|
12
|
-
"broken-scriptfilename" => "enable"
|
13
|
-
)))
|
@@ -1,456 +0,0 @@
|
|
1
|
-
implement Ninewin;
|
2
|
-
include "sys.m";
|
3
|
-
sys: Sys;
|
4
|
-
include "draw.m";
|
5
|
-
draw: Draw;
|
6
|
-
Image, Display, Pointer: import draw;
|
7
|
-
include "arg.m";
|
8
|
-
include "keyboard.m";
|
9
|
-
include "tk.m";
|
10
|
-
include "wmclient.m";
|
11
|
-
wmclient: Wmclient;
|
12
|
-
Window: import wmclient;
|
13
|
-
include "sh.m";
|
14
|
-
sh: Sh;
|
15
|
-
|
16
|
-
# run a p9 graphics program (default rio) under inferno wm,
|
17
|
-
# making available to it:
|
18
|
-
# /dev/winname - naming the current inferno window (changing on resize)
|
19
|
-
# /dev/mouse - pointer file + resize events; write to change position
|
20
|
-
# /dev/cursor - change appearance of cursor.
|
21
|
-
# /dev/draw - inferno draw device
|
22
|
-
# /dev/cons - read keyboard events, write to 9win stdout.
|
23
|
-
|
24
|
-
Ninewin: module {
|
25
|
-
init: fn(ctxt: ref Draw->Context, argv: list of string);
|
26
|
-
};
|
27
|
-
winname: string;
|
28
|
-
|
29
|
-
init(ctxt: ref Draw->Context, argv: list of string)
|
30
|
-
{
|
31
|
-
size := Draw->Point(500, 500);
|
32
|
-
sys = load Sys Sys->PATH;
|
33
|
-
draw = load Draw Draw->PATH;
|
34
|
-
wmclient = load Wmclient Wmclient->PATH;
|
35
|
-
wmclient->init();
|
36
|
-
sh = load Sh Sh->PATH;
|
37
|
-
|
38
|
-
buts := Wmclient->Resize;
|
39
|
-
if(ctxt == nil){
|
40
|
-
ctxt = wmclient->makedrawcontext();
|
41
|
-
buts = Wmclient->Plain;
|
42
|
-
}
|
43
|
-
arg := load Arg Arg->PATH;
|
44
|
-
arg->init(argv);
|
45
|
-
arg->setusage("9win [-s] [-x width] [-y height]");
|
46
|
-
exportonly := 0;
|
47
|
-
while(((opt := arg->opt())) != 0){
|
48
|
-
case opt {
|
49
|
-
's' =>
|
50
|
-
exportonly = 1;
|
51
|
-
'x' =>
|
52
|
-
size.x = int arg->earg();
|
53
|
-
'y' =>
|
54
|
-
size.y = int arg->earg();
|
55
|
-
* =>
|
56
|
-
arg->usage();
|
57
|
-
}
|
58
|
-
}
|
59
|
-
if(size.x < 1 || size.y < 1)
|
60
|
-
arg->usage();
|
61
|
-
argv = arg->argv();
|
62
|
-
if(argv != nil && hd argv == "-s"){
|
63
|
-
exportonly = 1;
|
64
|
-
argv = tl argv;
|
65
|
-
}
|
66
|
-
if(argv == nil && !exportonly)
|
67
|
-
argv = "rio" :: nil;
|
68
|
-
if(argv != nil && exportonly){
|
69
|
-
sys->fprint(sys->fildes(2), "9win: no command allowed with -s flag\n");
|
70
|
-
raise "fail:usage";
|
71
|
-
}
|
72
|
-
title := "9win";
|
73
|
-
if(!exportonly)
|
74
|
-
title += " " + hd argv;
|
75
|
-
w := wmclient->window(ctxt, title, buts);
|
76
|
-
w.reshape(((0, 0), size));
|
77
|
-
w.onscreen(nil);
|
78
|
-
if(w.image == nil){
|
79
|
-
sys->fprint(sys->fildes(2), "9win: cannot get image to draw on\n");
|
80
|
-
raise "fail:no window";
|
81
|
-
}
|
82
|
-
|
83
|
-
sys->pctl(Sys->FORKNS|Sys->NEWPGRP, nil);
|
84
|
-
ld := "/n/9win";
|
85
|
-
if(sys->bind("#s", ld, Sys->MREPL) == -1 &&
|
86
|
-
sys->bind("#s", ld = "/n/local", Sys->MREPL) == -1){
|
87
|
-
sys->fprint(sys->fildes(2), "9win: cannot bind files: %r\n");
|
88
|
-
raise "fail:error";
|
89
|
-
}
|
90
|
-
w.startinput("kbd" :: "ptr" :: nil);
|
91
|
-
spawn ptrproc(rq := chan of Sys->Rread, ptr := chan[10] of ref Pointer, reshape := chan[1] of int);
|
92
|
-
|
93
|
-
|
94
|
-
fwinname := sys->file2chan(ld, "winname");
|
95
|
-
fconsctl := sys->file2chan(ld, "consctl");
|
96
|
-
fcons := sys->file2chan(ld, "cons");
|
97
|
-
fmouse := sys->file2chan(ld, "mouse");
|
98
|
-
fcursor := sys->file2chan(ld, "cursor");
|
99
|
-
if(!exportonly){
|
100
|
-
spawn run(sync := chan of string, w.ctl, ld, argv);
|
101
|
-
if((e := <-sync) != nil){
|
102
|
-
sys->fprint(sys->fildes(2), "9win: %s", e);
|
103
|
-
raise "fail:error";
|
104
|
-
}
|
105
|
-
}
|
106
|
-
spawn serveproc(w, rq, fwinname, fconsctl, fcons, fmouse, fcursor);
|
107
|
-
if(!exportonly){
|
108
|
-
# handle events synchronously so that we don't get a "killed" message
|
109
|
-
# from the shell.
|
110
|
-
handleevents(w, ptr, reshape);
|
111
|
-
}else{
|
112
|
-
spawn handleevents(w, ptr, reshape);
|
113
|
-
sys->bind(ld, "/dev", Sys->MBEFORE);
|
114
|
-
export(sys->fildes(0), w.ctl);
|
115
|
-
}
|
116
|
-
}
|
117
|
-
|
118
|
-
handleevents(w: ref Window, ptr: chan of ref Pointer, reshape: chan of int)
|
119
|
-
{
|
120
|
-
for(;;)alt{
|
121
|
-
c := <-w.ctxt.ctl or
|
122
|
-
c = <-w.ctl =>
|
123
|
-
e := w.wmctl(c);
|
124
|
-
if(e != nil)
|
125
|
-
sys->fprint(sys->fildes(2), "9win: ctl error: %s\n", e);
|
126
|
-
if(e == nil && c != nil && c[0] == '!'){
|
127
|
-
alt{
|
128
|
-
reshape <-= 1 =>
|
129
|
-
;
|
130
|
-
* =>
|
131
|
-
;
|
132
|
-
}
|
133
|
-
winname = nil;
|
134
|
-
}
|
135
|
-
p := <-w.ctxt.ptr =>
|
136
|
-
if(w.pointer(*p) == 0){
|
137
|
-
# XXX would block here if client isn't reading mouse... but we do want to
|
138
|
-
# extert back-pressure, which conflicts.
|
139
|
-
alt{
|
140
|
-
ptr <-= p =>
|
141
|
-
;
|
142
|
-
* =>
|
143
|
-
; # sys->fprint(sys->fildes(2), "9win: discarding mouse event\n");
|
144
|
-
}
|
145
|
-
}
|
146
|
-
}
|
147
|
-
}
|
148
|
-
|
149
|
-
serveproc(w: ref Window, mouserq: chan of Sys->Rread, fwinname, fconsctl, fcons, fmouse, fcursor: ref Sys->FileIO)
|
150
|
-
{
|
151
|
-
winid := 0;
|
152
|
-
krc: list of Sys->Rread;
|
153
|
-
ks: string;
|
154
|
-
|
155
|
-
for(;;)alt {
|
156
|
-
c := <-w.ctxt.kbd =>
|
157
|
-
ks[len ks] = inf2p9key(c);
|
158
|
-
if(krc != nil){
|
159
|
-
hd krc <-= (array of byte ks, nil);
|
160
|
-
ks = nil;
|
161
|
-
krc = tl krc;
|
162
|
-
}
|
163
|
-
(nil, d, nil, wc) := <-fcons.write =>
|
164
|
-
if(wc != nil){
|
165
|
-
sys->write(sys->fildes(1), d, len d);
|
166
|
-
wc <-= (len d, nil);
|
167
|
-
}
|
168
|
-
(nil, nil, nil, rc) := <-fcons.read =>
|
169
|
-
if(rc != nil){
|
170
|
-
if(ks != nil){
|
171
|
-
rc <-= (array of byte ks, nil);
|
172
|
-
ks = nil;
|
173
|
-
}else
|
174
|
-
krc = rc :: krc;
|
175
|
-
}
|
176
|
-
(offset, nil, nil, rc) := <-fwinname.read =>
|
177
|
-
if(rc != nil){
|
178
|
-
if(winname == nil){
|
179
|
-
winname = sys->sprint("noborder.9win.%d", winid++);
|
180
|
-
if(w.image.name(winname, 1) == -1){
|
181
|
-
sys->fprint(sys->fildes(2), "9win: namewin %q failed: %r", winname);
|
182
|
-
rc <-= (nil, "namewin failure");
|
183
|
-
break;
|
184
|
-
}
|
185
|
-
}
|
186
|
-
d := array of byte winname;
|
187
|
-
if(offset < len d)
|
188
|
-
d = d[offset:];
|
189
|
-
else
|
190
|
-
d = nil;
|
191
|
-
rc <-= (d, nil);
|
192
|
-
}
|
193
|
-
(nil, nil, nil, wc) := <-fwinname.write =>
|
194
|
-
if(wc != nil)
|
195
|
-
wc <-= (-1, "permission denied");
|
196
|
-
(nil, nil, nil, rc) := <-fconsctl.read =>
|
197
|
-
if(rc != nil)
|
198
|
-
rc <-= (nil, "permission denied");
|
199
|
-
(nil, d, nil, wc) := <-fconsctl.write =>
|
200
|
-
if(wc != nil){
|
201
|
-
if(string d != "rawon")
|
202
|
-
wc <-= (-1, "cannot change console mode");
|
203
|
-
else
|
204
|
-
wc <-= (len d, nil);
|
205
|
-
}
|
206
|
-
(nil, nil, nil, rc) := <-fmouse.read =>
|
207
|
-
if(rc != nil)
|
208
|
-
mouserq <-= rc;
|
209
|
-
(nil, d, nil, wc) := <-fmouse.write =>
|
210
|
-
if(wc != nil){
|
211
|
-
e := cursorset(w, string d);
|
212
|
-
if(e == nil)
|
213
|
-
wc <-= (len d, nil);
|
214
|
-
else
|
215
|
-
wc <-= (-1, e);
|
216
|
-
}
|
217
|
-
(nil, nil, nil, rc) := <-fcursor.read =>
|
218
|
-
if(rc != nil)
|
219
|
-
rc <-= (nil, "permission denied");
|
220
|
-
(nil, d, nil, wc) := <-fcursor.write =>
|
221
|
-
if(wc != nil){
|
222
|
-
e := cursorswitch(w, d);
|
223
|
-
if(e == nil)
|
224
|
-
wc <-= (len d, nil);
|
225
|
-
else
|
226
|
-
wc <-= (-1, e);
|
227
|
-
}
|
228
|
-
}
|
229
|
-
}
|
230
|
-
|
231
|
-
ptrproc(rq: chan of Sys->Rread, ptr: chan of ref Pointer, reshape: chan of int)
|
232
|
-
{
|
233
|
-
rl: list of Sys->Rread;
|
234
|
-
c := ref Pointer(0, (0, 0), 0);
|
235
|
-
for(;;){
|
236
|
-
ch: int;
|
237
|
-
alt{
|
238
|
-
p := <-ptr =>
|
239
|
-
ch = 'm';
|
240
|
-
c = p;
|
241
|
-
<-reshape =>
|
242
|
-
ch = 'r';
|
243
|
-
rc := <-rq =>
|
244
|
-
rl = rc :: rl;
|
245
|
-
continue;
|
246
|
-
}
|
247
|
-
if(rl == nil)
|
248
|
-
rl = <-rq :: rl;
|
249
|
-
hd rl <-= (sys->aprint("%c%11d %11d %11d %11d ", ch, c.xy.x, c.xy.y, c.buttons, c.msec), nil);
|
250
|
-
rl = tl rl;
|
251
|
-
}
|
252
|
-
}
|
253
|
-
|
254
|
-
cursorset(w: ref Window, m: string): string
|
255
|
-
{
|
256
|
-
if(m == nil || m[0] != 'm')
|
257
|
-
return "invalid mouse message";
|
258
|
-
x := int m[1:];
|
259
|
-
for(i := 1; i < len m; i++)
|
260
|
-
if(m[i] == ' '){
|
261
|
-
while(m[i] == ' ')
|
262
|
-
i++;
|
263
|
-
break;
|
264
|
-
}
|
265
|
-
if(i == len m)
|
266
|
-
return "invalid mouse message";
|
267
|
-
y := int m[i:];
|
268
|
-
return w.wmctl(sys->sprint("ptr %d %d", x, y));
|
269
|
-
}
|
270
|
-
|
271
|
-
cursorswitch(w: ref Window, d: array of byte): string
|
272
|
-
{
|
273
|
-
Hex: con "0123456789abcdef";
|
274
|
-
if(len d != 2*4+64)
|
275
|
-
return w.wmctl("cursor");
|
276
|
-
hot := Draw->Point(bglong(d, 0*4), bglong(d, 1*4));
|
277
|
-
s := sys->sprint("cursor %d %d 16 32 ", hot.x, hot.y);
|
278
|
-
for(i := 2*4; i < len d; i++){
|
279
|
-
c := int d[i];
|
280
|
-
s[len s] = Hex[c >> 4];
|
281
|
-
s[len s] = Hex[c & 16rf];
|
282
|
-
}
|
283
|
-
return w.wmctl(s);
|
284
|
-
}
|
285
|
-
|
286
|
-
run(sync, ctl: chan of string, ld: string, argv: list of string)
|
287
|
-
{
|
288
|
-
Rcmeta: con "|<>&^*[]?();";
|
289
|
-
sys->pctl(Sys->FORKNS, nil);
|
290
|
-
if(sys->bind("#₪", "/srv", Sys->MCREATE) == -1){
|
291
|
-
sync <-= sys->sprint("cannot bind srv device: %r");
|
292
|
-
exit;
|
293
|
-
}
|
294
|
-
srvname := "/srv/9win."+string sys->pctl(0, nil); # XXX do better.
|
295
|
-
fd := sys->create(srvname, Sys->ORDWR, 8r600);
|
296
|
-
if(fd == nil){
|
297
|
-
sync <-= sys->sprint("cannot create %s: %r", srvname);
|
298
|
-
exit;
|
299
|
-
}
|
300
|
-
sync <-= nil;
|
301
|
-
spawn export(fd, ctl);
|
302
|
-
sh->run(nil, "os" ::
|
303
|
-
"rc" :: "-c" ::
|
304
|
-
"mount "+srvname+" /mnt/term;"+
|
305
|
-
"rm "+srvname+";"+
|
306
|
-
"bind -b /mnt/term"+ld+" /dev;"+
|
307
|
-
"bind /mnt/term/dev/draw /dev/draw ||"+
|
308
|
-
"bind -a /mnt/term/dev /dev;"+
|
309
|
-
quotedc("cd"::"/mnt/term"+cwd()::nil, Rcmeta)+";"+
|
310
|
-
quotedc(argv, Rcmeta)+";"::
|
311
|
-
nil
|
312
|
-
);
|
313
|
-
}
|
314
|
-
|
315
|
-
export(fd: ref Sys->FD, ctl: chan of string)
|
316
|
-
{
|
317
|
-
sys->export(fd, "/", Sys->EXPWAIT);
|
318
|
-
ctl <-= "exit";
|
319
|
-
}
|
320
|
-
|
321
|
-
inf2p9key(c: int): int
|
322
|
-
{
|
323
|
-
KF: import Keyboard;
|
324
|
-
|
325
|
-
P9KF: con 16rF000;
|
326
|
-
Spec: con 16rF800;
|
327
|
-
Khome: con P9KF|16r0D;
|
328
|
-
Kup: con P9KF|16r0E;
|
329
|
-
Kpgup: con P9KF|16r0F;
|
330
|
-
Kprint: con P9KF|16r10;
|
331
|
-
Kleft: con P9KF|16r11;
|
332
|
-
Kright: con P9KF|16r12;
|
333
|
-
Kdown: con Spec|16r00;
|
334
|
-
Kview: con Spec|16r00;
|
335
|
-
Kpgdown: con P9KF|16r13;
|
336
|
-
Kins: con P9KF|16r14;
|
337
|
-
Kend: con P9KF|16r18;
|
338
|
-
Kalt: con P9KF|16r15;
|
339
|
-
Kshift: con P9KF|16r16;
|
340
|
-
Kctl: con P9KF|16r17;
|
341
|
-
|
342
|
-
case c {
|
343
|
-
Keyboard->LShift =>
|
344
|
-
return Kshift;
|
345
|
-
Keyboard->LCtrl =>
|
346
|
-
return Kctl;
|
347
|
-
Keyboard->LAlt =>
|
348
|
-
return Kalt;
|
349
|
-
Keyboard->Home =>
|
350
|
-
return Khome;
|
351
|
-
Keyboard->End =>
|
352
|
-
return Kend;
|
353
|
-
Keyboard->Up =>
|
354
|
-
return Kup;
|
355
|
-
Keyboard->Down =>
|
356
|
-
return Kdown;
|
357
|
-
Keyboard->Left =>
|
358
|
-
return Kleft;
|
359
|
-
Keyboard->Right =>
|
360
|
-
return Kright;
|
361
|
-
Keyboard->Pgup =>
|
362
|
-
return Kpgup;
|
363
|
-
Keyboard->Pgdown =>
|
364
|
-
return Kpgdown;
|
365
|
-
Keyboard->Ins =>
|
366
|
-
return Kins;
|
367
|
-
|
368
|
-
# function keys
|
369
|
-
KF|1 or
|
370
|
-
KF|2 or
|
371
|
-
KF|3 or
|
372
|
-
KF|4 or
|
373
|
-
KF|5 or
|
374
|
-
KF|6 or
|
375
|
-
KF|7 or
|
376
|
-
KF|8 or
|
377
|
-
KF|9 or
|
378
|
-
KF|10 or
|
379
|
-
KF|11 or
|
380
|
-
KF|12 =>
|
381
|
-
return (c - KF) + P9KF;
|
382
|
-
}
|
383
|
-
return c;
|
384
|
-
}
|
385
|
-
|
386
|
-
cwd(): string
|
387
|
-
{
|
388
|
-
return sys->fd2path(sys->open(".", Sys->OREAD));
|
389
|
-
}
|
390
|
-
|
391
|
-
# from string.b, waiting for declaration to be uncommented.
|
392
|
-
quotedc(argv: list of string, cl: string): string
|
393
|
-
{
|
394
|
-
s := "";
|
395
|
-
while (argv != nil) {
|
396
|
-
arg := hd argv;
|
397
|
-
for (i := 0; i < len arg; i++) {
|
398
|
-
c := arg[i];
|
399
|
-
if (c == ' ' || c == '\t' || c == '\n' || c == '\'' || in(c, cl))
|
400
|
-
break;
|
401
|
-
}
|
402
|
-
if (i < len arg || arg == nil) {
|
403
|
-
s += "'" + arg[0:i];
|
404
|
-
for (; i < len arg; i++) {
|
405
|
-
if (arg[i] == '\'')
|
406
|
-
s[len s] = '\'';
|
407
|
-
s[len s] = arg[i];
|
408
|
-
}
|
409
|
-
s[len s] = '\'';
|
410
|
-
} else
|
411
|
-
s += arg;
|
412
|
-
if (tl argv != nil)
|
413
|
-
s[len s] = ' ';
|
414
|
-
argv = tl argv;
|
415
|
-
}
|
416
|
-
return s;
|
417
|
-
}
|
418
|
-
|
419
|
-
in(c: int, s: string): int
|
420
|
-
{
|
421
|
-
n := len s;
|
422
|
-
if(n == 0)
|
423
|
-
return 0;
|
424
|
-
ans := 0;
|
425
|
-
negate := 0;
|
426
|
-
if(s[0] == '^') {
|
427
|
-
negate = 1;
|
428
|
-
s = s[1:];
|
429
|
-
n--;
|
430
|
-
}
|
431
|
-
for(i := 0; i < n; i++) {
|
432
|
-
if(s[i] == '-' && i > 0 && i < n-1) {
|
433
|
-
if(c >= s[i-1] && c <= s[i+1]) {
|
434
|
-
ans = 1;
|
435
|
-
break;
|
436
|
-
}
|
437
|
-
i++;
|
438
|
-
}
|
439
|
-
else
|
440
|
-
if(c == s[i]) {
|
441
|
-
ans = 1;
|
442
|
-
break;
|
443
|
-
}
|
444
|
-
}
|
445
|
-
if(negate)
|
446
|
-
ans = !ans;
|
447
|
-
|
448
|
-
# just to showcase labels
|
449
|
-
skip:
|
450
|
-
return ans;
|
451
|
-
}
|
452
|
-
|
453
|
-
bglong(d: array of byte, i: int): int
|
454
|
-
{
|
455
|
-
return int d[i] | (int d[i+1]<<8) | (int d[i+2]<<16) | (int d[i+3]<<24);
|
456
|
-
}
|