// Copied from https://github.com/git-touch/highlight const CODE_SNIPPETS = { '1c': '#ЗагрузитьИзФайла ext_module.txt // директива 7.7\n#Если Клиент ИЛИ НаКлиенте Тогда // инструкции препроцессора\n &НаКлиентеНаСервереБезКонтекста // директивы компиляции\n Функция ТолстыйКлиентОбычноеПриложение(Знач Параметр1 = Неопределено, // комментарий\n Параметр2 = "", ПараметрN = 123.45, ПарамNN) Экспорт // еще комментарий\n Попытка\n Результат_Булевы_Значения = Новый Структура("П1, П2", Истина, Ложь, NULL, Неопределено);\n Перейти ~МеткаGOTO; // комментарий\n РезультатТаблицаДат = Новый ТаблицаЗначений;\n РезультатТаблицаДат.Колонки.Добавить("Колонка1", \n Новый ОписаниеТипов("Дата", , ,\n Новый КвалификаторыДаты(ЧастиДаты.ДатаВремя));\n НС = РезультатТаблицаДат.Добавить(); НС["Колонка1"] = \'20170101120000\');\n Исключение\n ОписаниеОшибки = ОписаниеОшибки(); // встроенная функция\n Масс = Новый Массив; // встроенный тип\n Для Каждого Значение Из Масс Цикл\n Сообщить(Значение + Символы.ПС + "\n |продолжение строки"); // продолжение многострочной строки\n Продолжить; Прервать;\n КонецЦикла;\n СправочникСсылка = Справочники.Языки.НайтиПоНаименованию("ru"); // встроенные типы\n СправочникОбъект = СправочникСсылка.ПолучитьОбъект();\n ПеречислениеСсылка = Перечисления.ВидыМодификацииДанных.Изменен;\n ВызватьИсключение ОписаниеОшибки;\n КонецПопытки;\n ~МеткаGOTO: // еще комментарий\n ВД = ВидДвиженияБухгалтерии.Дебет;\n КонецФункции // ТолстыйКлиентОбычноеПриложение()\n#КонецЕсли', 'abnf': '; line comment\n\nruleset = [optional] *(group1 / group2 / SP) CRLF ; trailing comment\n\ngroup1 = alt1\ngroup1 =/ alt2\n\nalt1 = %x41-4D / %d78-90\n\nalt2 = %b00100001\n\ngroup2 = *1DIGIT / 2*HEXDIG / 3*4OCTET\n\noptional = hex-codes\n / literal\n / sensitive\n / insensitive\n\nhex-codes = %x68.65.6C.6C.6F\nliteral = "string literal"\nsensitive = %s"case-sensitive string"\ninsensitive = %i"case-insensitive string"\n', 'accesslog': '20.164.151.111 - - [20/Aug/2015:22:20:18 -0400] "GET /mywebpage/index.php HTTP/1.1" 403 772 "-" "Mozilla/5.0 (Macintosh; Intel Mac OS X 10_6_8) AppleWebKit/535.1 (KHTML, like Gecko) Chrome/13.0.782.220 Safari/535.1"\n', 'actionscript': 'package org.example.dummy {\n import org.dummy.*;\n\n /*define package inline interface*/\n public interface IFooBarzable {\n public function foo(... pairs):Array;\n }\n\n public class FooBar implements IFooBarzable {\n static private var cnt:uint = 0;\n private var bar:String;\n\n //constructor\n public function TestBar(bar:String):void {\n bar = bar;\n ++cnt;\n }\n\n public function foo(... pairs):Array {\n pairs.push(bar);\n return pairs;\n }\n }\n}', 'ada': 'package body Sqlite.Simple is\n\n Foo : int := int\'Size;\n Bar : int := long\'Size;\n\n Error_Message_C : chars_ptr := Sqlite_Errstr (Error);\n Error_Message : String := Null_Ignore_Value (Error_Message_C);\n begin\n\n Named : for Index in Foo..Bar loop\n Put ("Hi[]{}");\n end loop Named;\n\n Foo := Bar;\n end Message;\n\nend Sqlite.Simple;\n', 'angelscript': 'interface IInterface\n{\n void DoSomething();\n}\n\nnamespace MyApplication\n{\n /*\n * This ia a test class.\n */\n class SomeClass : IInterface\n {\n array m_arr;\n\n array m_children;\n array> m_subChildren; // Nested templates\n\n int m_thing;\n\n SomeClass()\n {\n // Add some integers\n m_arr.insertLast(1.0f);\n m_arr.insertLast(1.75f);\n m_arr.insertLast(3.14159f);\n uint x = 0x7fff0000;\n int y = 9001;\n }\n\n int get_Thing() property { return m_thing; }\n void set_Thing(int x) property { m_thing = x; }\n\n void DoSomething()\n {\n print("Something! " + \'stuff.\');\n for (uint i = 0; i < m_arr.length(); i++) {\n print(" " + i + ": " + m_arr[i]);\n }\n }\n\n protected void SomeProtectedFunction()\n {\n try {\n DoSomething();\n } catch {\n print("Exception while doing something!");\n }\n }\n }\n}\n\nvoid Main()\n{\n SomeClass@ c = SomeClass();\n c.DoSomething();\n}\n', 'apache': '# rewrite`s rules for wordpress pretty url\nLoadModule rewrite_module modules/mod_rewrite.so\nRewriteCond %{REQUEST_FILENAME} !-f\nRewriteCond %{REQUEST_FILENAME} !-d\nRewriteRule . index.php [NC,L]\n\nExpiresActive On\nExpiresByType application/x-javascript "access plus 1 days"\n\nOrder Deny,Allow\nAllow from All\n\n\n RewriteMap map txt:map.txt\n RewriteMap lower int:tolower\n RewriteCond %{REQUEST_URI} ^/([^/.]+)\\.html\$ [NC]\n RewriteCond \${map:\${lower:%1}|NOT_FOUND} !NOT_FOUND\n RewriteRule .? /index.php?q=\${map:\${lower:%1}} [NC,L]\n\n', 'applescript': 'repeat 5 times\n if foo is greater than bar then\n display dialog "Hello there"\n else\n beep\n end if\nend repeat\n\n(* comment (*nested comment*) *)\non do_something(s, y)\n return {s + pi, y mod 4}\nend do_something\n\ndo shell script "/bin/echo \'hello\'"\n', 'arcade': '/* Highlight.js est for Arcade */\nfunction testGeometry(element, point) {\n if (point.y != -1)\n return point;\n for (var i = 0 / 2; i < element.length; i++) {\n if (checkCondition(\$map.element[i]) === Infinity) {\n return DistanceGeodetic(element[i]);\n }\n }\n return element;\n}\nvar filePath = "literal " + TextFormatting.BackSlash + TextFormatting.SingleQuote + ".ext"\nvar d = Dictionary("field1", 1, "field2",2);\nreturn FeatureSet(\$map, ["POPULATION", "ELECTION-DATA"]);\n', 'arduino': '/*\n Blink\n Turns on an LED on for one second, then off for one second, repeatedly.\n \n This example code is in the public domain.\n */\n \n// Pin 13 has an LED connected on most Arduino boards.\n// give it a name:\nint led = 13;\n\n// the setup routine runs once when you press reset:\nvoid setup() {\n // initialize the digital pin as an output.\n pinMode(led, OUTPUT); \n}\n\n// the loop routine runs over and over again forever:\nvoid loop() {\n digitalWrite(led, HIGH); // turn the LED on (HIGH is the voltage level)\n delay(1000); // wait for a second\n digitalWrite(led, LOW); // turn the LED off by making the voltage LOW\n delay(1000); // wait for a second\n}', 'armasm': '.text\n\n.global connect\nconnect:\n mov r3, #2 ; s->sin_family = AF_INET\n strh r3, [sp]\n ldr r3, =server_port ; s->sin_port = server_port\n ldr r3, [r3]\n strh r3, [sp, #2]\n ldr r3, =server_addr ; s->sin_addr = server_addr\n ldr r3, [r3]\n str r3, [sp, #4]\n mov r3, #0 ; bzero(&s->sin_zero)\n str r3, [sp, #8]\n str r3, [sp, #12]\n mov r1, sp ; const struct sockaddr *addr = sp\n\n ldr r7, =connect_call\n ldr r7, [r7]\n swi #0\n\n add sp, sp, #16\n pop {r0} ; pop sockfd\n\n pop {r7}\n pop {fp, ip, lr}\n mov sp, ip\n bx lr\n\n.data\nsocket_call: .long 281\nconnect_call: .long 283\n\n/* all addresses are network byte-order (big-endian) */\nserver_addr: .long 0x0100007f ; localhost\nserver_port: .hword 0x0b1a\n', 'asciidoc': 'Hello, World!\n============\nAuthor Name, \n\nyou can write text http://example.com[with links], optionally\nusing an explicit link:http://example.com[link prefix].\n\n* single quotes around a phrase place \'emphasis\'\n** alternatively, you can put underlines around a phrase to add _emphasis_\n* astericks around a phrase make the text *bold*\n* pluses around a phrase make it +monospaced+\n* `smart\' quotes using a leading backtick and trailing single quote\n** use two of each for double ``smart\'\' quotes\n\n- escape characters are supported\n- you can escape a quote inside emphasized text like \'here\\\'s johnny!\'\n\nterm:: definition\n another term:: another definition\n\n// this is just a comment\n\nLet\'s make a break.\n\n\'\'\'\n\n////\nwe\'ll be right with you\n\nafter this brief interruption.\n////\n\n== We\'re back!\n\nWant to see a image::images/tiger.png[Tiger]?\n\n.Nested highlighting\n++++\n\n++++\n\n____\nasciidoc is so powerful.\n____\n\nanother quote:\n\n[quote, Sir Arthur Conan Doyle, The Adventures of Sherlock Holmes]\n____\nWhen you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth.\n____\n\nGetting Literal\n---------------\n\n want to get literal? prefix a line with a space.\n\n....\nI\'ll join that party, too.\n....\n\n. one thing (yeah!)\n. two thing `i can write code`, and `more` wipee!\n\nNOTE: AsciiDoc is quite cool, you should try it.', 'aspectj': 'package com.aspectj.syntax;\nimport org.aspectj.lang.annotation.AdviceName;\n\nprivileged public aspect LoggingAspect percflowbelow(ajia.services.*){\n private pointcut getResult() : call(* *(..) throws SQLException) && args(Account, .., int);\n @AdviceName("CheckValidEmail")\n before (Customer hu) : getResult(hu){ \n System.out.println("Your mail address is valid!");\n }\n Object around() throws InsufficientBalanceException: getResult() && call(Customer.new(String,String,int,int,int)){\n return proceed();\n }\n public Cache getCache() {\n return this.cache;\n }\n pointcut beanPropertyChange(BeanSupport bean, Object newValue): execution(void BeanSupport+.set*(*)) && args(newValue) && this(bean);\n declare parents: banking.entities.* implements BeanSupport;\n declare warning : call(void TestSoftening.perform()): "Please ensure you are not calling this from an AWT thread";\n private String Identifiable.id;\n public void Identifiable.setId(String id) {\n this.id = id;\n }\n}', 'autohotkey': '; hotkeys and hotstrings\n#a::WinSet, AlwaysOnTop, Toggle, A\n#Space::\n MsgBox, Percent sign (`%) need to be escaped.\n Run "C:\\Program Files\\some\\program.exe"\n Gosub, label1\nreturn\n::btw::by the way\n; volume\n#Numpad8::Send {Volume_Up}\n#Numpad5::Send {Volume_Mute}\n#Numpad2::Send {Volume_Down}\n\nlabel1:\n if (Clipboard = "")\n {\n MsgBox, , Clipboard, Empty!\n }\n else\n {\n StringReplace, temp, Clipboard, old, new, All\n MsgBox, , Clipboard, %temp%\n }\nreturn\n', 'autoit': '#NoTrayIcon\n#AutoIt3Wrapper_Run_Tidy=Y\n#include \n\n_Singleton(@ScriptName) ; Allow only one instance\nexample(0, 10)\n\nFunc example(\$min, \$max)\n For \$i = \$min To \$max\n If Mod(\$i, 2) == 0 Then\n MsgBox(64, "Message", \$i & \' is even number!\')\n Else\n MsgBox(64, "Message", \$i & \' is odd number!\')\n EndIf\n Next\nEndFunc ;==>example', 'avrasm': ';* Title: Block Copy Routines\n;* Version: 1.1\n\n.include "8515def.inc"\n\n rjmp RESET ;reset handle\n\n.def flashsize=r16 ;size of block to be copied\n\nflash2ram:\n lpm ;get constant\n st Y+,r0 ;store in SRAM and increment Y-pointer\n adiw ZL,1 ;increment Z-pointer\n dec flashsize\n brne flash2ram ;if not end of table, loop more\n ret\n\n.def ramtemp =r1 ;temporary storage register\n.def ramsize =r16 ;size of block to be copied\n', 'awk': 'BEGIN {\n POPService = "/inet/tcp/0/emailhost/pop3"\n RS = ORS = "\\r\\n"\n print "user name" |& POPService\n POPService |& getline\n print "pass password" |& POPService\n POPService |& getline\n print "retr 1" |& POPService\n POPService |& getline\n if (\$1 != "+OK") exit\n print "quit" |& POPService\n RS = "\\r\\n\\\\.\\r\\n"\n POPService |& getline\n print \$0\n close(POPService)\n}\n', 'axapta': 'class ExchRateLoadBatch extends RunBaseBatch {\n ExchRateLoad rbc;\n container currencies;\n boolean actual;\n boolean overwrite;\n date beg;\n date end;\n\n #define.CurrentVersion(5)\n\n #localmacro.CurrentList\n currencies,\n actual,\n beg,\n end\n #endmacro\n}\n\npublic boolean unpack(container packedClass) {\n container base;\n boolean ret;\n Integer version = runbase::getVersion(packedClass);\n\n switch (version) {\n case #CurrentVersion:\n [version, #CurrentList] = packedClass;\n return true;\n default:\n return false;\n }\n return ret;\n}\n', 'bash': '#!/bin/bash\n\n###### CONFIG\nACCEPTED_HOSTS="/root/.hag_accepted.conf"\nBE_VERBOSE=false\n\nif [ "\$UID" -ne 0 ]\nthen\n echo "Superuser rights required"\n exit 2\nfi\n\ngenApacheConf(){\n echo -e "# Host \${HOME_DIR}\$1/\$2 :"\n}\n\necho \'"quoted"\' | tr -d \\" > text.txt\n', 'basic': '10 CLS\n20 FOR I = 0 TO 15\n22 FOR J = 0 TO 7\n30 COLOR I,J\n40 PRINT " ** ";\n45 NEXT J\n46 COLOR I,0\n47 GOSUB 100\n48 PRINT\n50 NEXT I\n60 COLOR 15,0\n99 END\n100 FOR T = 65 TO 90\n101 PRINT CHR\$(T);\n102 NEXT T\n103 RETURN\n200 REM Data types test\n201 TOTAL# = 3.30# \'Double precision variable\n202 BALANCE! = 3! \'Single precision variable\n203 B2! = 12e5 \'120000\n204 ITEMS% = 10 \'Integer variable\n205 HEXTEST = &H12DB \'Hex value\n', 'bnf': ' ::= | \n ::= "<" ">" "::=" \n ::= " " | ""\n ::= | "|" \n ::= | \n ::= | \n ::= | "<" ">"\n ::= \'"\' \'"\' | "\'" "\'"\n', 'brainfuck': '++++++++++\n[ 3*10 and 10*10\n ->+++>++++++++++<<\n]>>\n[ filling cells\n ->++>>++>++>+>++>>++>++>++>++>++>++>++>++>++>++>++[>\n]<\n+++++++++<<\n[ rough codes correction loop\n ->>>+>+>+>+++>+>+>+>+>+>+>+>+>+>+>+>+>+>+[<]<\n]\nmore accurate сodes correction\n>>>++>\n-->+++++++>------>++++++>++>+++++++++>++++++++++>++++++++>--->++++++++++>------>++++++>\n++>+++++++++++>++++++++++++>------>+++\nrewind and output\n[<]>[.>]\n', 'cal': 'OBJECT Codeunit 11 Gen. Jnl.-Check Line\n{\n OBJECT-PROPERTIES\n {\n Date=09-09-14;\n Time=12:00:00;\n Version List=NAVW18.00;\n }\n PROPERTIES\n {\n TableNo=81;\n Permissions=TableData 252=rimd;\n OnRun=BEGIN\n GLSetup.GET;\n RunCheck(Rec);\n END;\n\n }\n CODE\n {\n VAR\n Text000@1000 : TextConst \'ENU=can only be a closing date for G/L entries\';\n Text001@1001 : TextConst \'ENU=is not within your range of allowed posting dates\';\n\n PROCEDURE ErrorIfPositiveAmt@2(GenJnlLine@1000 : Record 81);\n BEGIN\n IF GenJnlLine.Amount > 0 THEN\n GenJnlLine.FIELDERROR(Amount,Text008);\n END;\n\n LOCAL PROCEDURE CheckGenJnlLineDocType@7(GenJnlLine@1001 : Record 81);\n }\n}\n', 'capnproto': '@0xdbb9ad1f14bf0b36; # unique file ID, generated by `capnp id`\n\nstruct Person {\n name @0 :Text;\n birthdate @3 :Date;\n\n email @1 :Text;\n phones @2 :List(PhoneNumber);\n\n struct PhoneNumber {\n number @0 :Text;\n type @1 :Type;\n\n enum Type {\n mobile @0;\n home @1;\n work @2;\n }\n }\n}\n\nstruct Date {\n year @0 :Int16;\n month @1 :UInt8;\n day @2 :UInt8;\n flags @3 :List(Bool) = [ true, false, false, true ];\n}\n\ninterface Node {\n isDirectory @0 () -> (result :Bool);\n}\n\ninterface Directory extends(Node) {\n list @0 () -> (list: List(Entry));\n struct Entry {\n name @0 :Text;\n node @1 :Node;\n }\n\n create @1 (name :Text) -> (file :File);\n mkdir @2 (name :Text) -> (directory :Directory)\n open @3 (name :Text) -> (node :Node);\n delete @4 (name :Text);\n link @5 (name :Text, node :Node);\n}\n\ninterface File extends(Node) {\n size @0 () -> (size: UInt64);\n read @1 (startAt :UInt64 = 0, amount :UInt64 = 0xffffffffffffffff)\n -> (data: Data);\n # Default params = read entire file.\n\n write @2 (startAt :UInt64, data :Data);\n truncate @3 (size :UInt64);\n}', 'ceylon': 'shared void run() {\n print("Hello, `` process.arguments.first else "World" ``!");\n}\nclass Counter(count=0) {\n variable Integer count;\n shared Integer currentValue => count;\n shared void increment() => count++;\n}\n', 'clean': 'module fsieve\n\nimport StdClass; // RWS\nimport StdInt, StdReal\n\nNrOfPrimes :== 3000\n\nprimes :: [Int]\nprimes = pr where pr = [5 : sieve 7 4 pr]\n\nsieve :: Int !Int [Int] -> [Int]\nsieve g i prs\n| isPrime prs g (toInt (sqrt (toReal g))) = [g : sieve` g i prs]\n| otherwise = sieve (g + i) (6 - i) prs\n\nsieve` :: Int Int [Int] -> [Int]\nsieve` g i prs = sieve (g + i) (6 - i) prs\n\nisPrime :: [Int] !Int Int -> Bool\nisPrime [f:r] pr bd\n| f>bd = True\n| pr rem f==0 = False\n| otherwise = isPrime r pr bd\n\nselect :: [x] Int -> x\nselect [f:r] 1 = f\nselect [f:r] n = select r (n - 1)\n\nStart :: Int\nStart = select [2, 3 : primes] NrOfPrimes\n', 'clojure': '(def ^:dynamic chunk-size 17)\n\n(defn next-chunk [rdr]\n (let [buf (char-array chunk-size)\n s (.read rdr buf)]\n (when (pos? s)\n (java.nio.CharBuffer/wrap buf 0 s))))\n\n(defn chunk-seq [rdr]\n (when-let [chunk (next-chunk rdr)]\n (cons chunk (lazy-seq (chunk-seq rdr)))))\n', 'clojure-repl': 'user=> (defn f [x y]\n #_=> (+ x y))\n#\'user/f\nuser=> (f 5 7)\n12\nuser=> nil\nnil\n', 'cmake': 'cmake_minimum_required(VERSION 2.8.8)\nproject(cmake_example)\n\n# Show message on Linux platform\nif (\${CMAKE_SYSTEM_NAME} MATCHES Linux)\n message("Good choice, bro!")\nendif()\n\n# Tell CMake to run moc when necessary:\nset(CMAKE_AUTOMOC ON)\n# As moc files are generated in the binary dir,\n# tell CMake to always look for includes there:\nset(CMAKE_INCLUDE_CURRENT_DIR ON)\n\n# Widgets finds its own dependencies.\nfind_package(Qt5Widgets REQUIRED)\n\nadd_executable(myproject main.cpp mainwindow.cpp)\nqt5_use_modules(myproject Widgets)\n', 'coffeescript': 'grade = (student, period=(if b? then 7 else 6)) ->\n if student.excellentWork\n "A+"\n else if student.okayStuff\n if student.triedHard then "B" else "B-"\n else\n "C"\n\nclass Animal extends Being\n constructor: (@name) ->\n\n move: (meters) ->\n alert @name + " moved #{meters}m."\n', 'coq': 'Inductive seq : nat -> Set :=\n| niln : seq 0\n| consn : forall n : nat, nat -> seq n -> seq (S n).\n\nFixpoint length (n : nat) (s : seq n) {struct s} : nat :=\n match s with\n | niln => 0\n | consn i _ s\' => S (length i s\')\n end.\n\nTheorem length_corr : forall (n : nat) (s : seq n), length n s = n.\nProof.\n intros n s.\n\n (* reasoning by induction over s. Then, we have two new goals\n corresponding on the case analysis about s (either it is\n niln or some consn *)\n induction s.\n\n (* We are in the case where s is void. We can reduce the\n term: length 0 niln *)\n simpl.\n\n (* We obtain the goal 0 = 0. *)\n trivial.\n\n (* now, we treat the case s = consn n e s with induction\n hypothesis IHs *)\n simpl.\n\n (* The induction hypothesis has type length n s = n.\n So we can use it to perform some rewriting in the goal: *)\n rewrite IHs.\n\n (* Now the goal is the trivial equality: S n = S n *)\n trivial.\n\n (* Now all sub cases are closed, we perform the ultimate\n step: typing the term built using tactics and save it as\n a witness of the theorem. *)\nQed.\n', 'cos': '#dim test as %Library.Integer\nSET test = 123.099\nset ^global = %request.Content\nWrite "Current date """, \$ztimestamp, """, result: ", test + ^global = 125.099\ndo ##class(Cinema.Utils).AddShow("test") // class method call\ndo ##super() ; another one-line comment\nd:(^global = 2) ..thisClassMethod(1, 2, "test")\n/*\n * Sub-languages support:\n */\n&sql( SELECT * FROM Cinema.Film WHERE Length > 2 )\n&js\n&html<\n\n \nTest\n>\n\nquit \$\$\$OK\n', 'cpp': '#include \n\nint main(int argc, char *argv[]) {\n\n /* An annoying "Hello World" example */\n for (auto i = 0; i < 0xFFFF; i++)\n cout << "Hello, World!" << endl;\n\n char c = \'\\n\';\n unordered_map > m;\n m["key"] = "\\\\\\\\"; // this is an error\n\n return -2e3 + 12l;\n}\n', 'crmsh': 'node webui\nnode 168633611: node1\nrsc_template web-server apache \\\n params port=8000 \\\n op monitor interval=10s\n# Never use this STONITH agent in production!\nprimitive development-stonith stonith:null \\\n params hostlist="webui node1 node2 node3"\nprimitive proxy systemd:haproxy \\\n op monitor interval=10s\nprimitive proxy-vip IPaddr2 \\\n params ip=10.13.37.20\nprimitive srv1 @web-server\nprimitive srv2 @web-server\nprimitive test1 Dummy\nprimitive test2 IPaddr2 \\\n params ip=10.13.37.99\nprimitive vip1 IPaddr2 \\\n params ip=10.13.37.21 \\\n op monitor interval=20s\nprimitive vip2 IPaddr2 \\\n params ip=10.13.37.22 \\\n op monitor interval=20s\ngroup g-proxy proxy-vip proxy\ngroup g-serv1 vip1 srv1\ngroup g-serv2 vip2 srv2\n# Never put the two web servers on the same node\ncolocation co-serv -inf: g-serv1 g-serv2\n# Never put any web server or haproxy on webui\nlocation l-avoid-webui { g-proxy g-serv1 g-serv2 } -inf: webui\n# Prever to spread groups across nodes\nlocation l-proxy g-proxy 200: node1\nlocation l-serv1 g-serv1 200: node2\nlocation l-serv2 g-serv2 200: node3\nproperty cib-bootstrap-options: \\\n stonith-enabled=true \\\n no-quorum-policy=ignore \\\n placement-strategy=balanced \\\n have-watchdog=false \\\n dc-version="1.1.13-1.1.13+git20150827.e8888b9" \\\n cluster-infrastructure=corosync \\\n cluster-name=hacluster\nrsc_defaults rsc-options: \\\n resource-stickiness=1 \\\n migration-threshold=3\nop_defaults op-options: \\\n timeout=600 \\\n record-pending=true\n', 'crystal': 'class Person\n def initialize(@name : String)\n end\n\n def greet\n puts "Hi, I\'m #{@name}"\n end\nend\n\nclass Employee < Person\nend\n\nemployee = Employee.new "John"\nemployee.greet # => "Hi, I\'m John"\nemployee.is_a?(Person) # => true\n\n@[Link("m")]\nlib C\n # In C: double cos(double x)\n fun cos(value : Float64) : Float64\nend\n\nC.cos(1.5_f64) # => 0.0707372\n\ns = uninitialized String\ns = <<-\'STR\'\n\\hello\\world\n\\hello\\world\nSTR\n', 'cs': 'using System.IO.Compression;\n\n#pragma warning disable 414, 3021\n\nnamespace MyApplication\n{\n [Obsolete("...")]\n class Program : IInterface\n {\n public static List JustDoIt(int count)\n {\n Console.WriteLine(\$"Hello {Name}!");\n return new List(new int[] { 1, 2, 3 })\n }\n }\n}\n', 'csp': 'Content-Security-Policy:\n default-src \'self\';\n style-src \'self\' css.example.com;\n img-src *.example.com;\n script-src \'unsafe-eval\' \'self\' js.example.com \'nonce-Nc3n83cnSAd3wc3Sasdfn939hc3\'\n', 'css': '@font-face {\n font-family: Chunkfive; src: url(\'Chunkfive.otf\');\n}\n\nbody, .usertext {\n color: #F0F0F0; background: #600;\n font-family: Chunkfive, sans;\n --heading-1: 30px/32px Helvetica, sans-serif;\n}\n\n@import url(print.css);\n@media print {\n a[href^=http]::after {\n content: attr(href)\n }\n}\n', 'd': '#!/usr/bin/rdmd\n// Computes average line length for standard input.\nimport std.stdio;\n\n/+\n this is a /+ nesting +/ comment\n+/\n\nenum COMPILED_ON = __TIMESTAMP__; // special token\n\nenum character = \'©\';\nenum copy_valid = \'©\';\nenum backslash_escaped = \'\\\\\';\n\n// string literals\nenum str = `hello "world"!`;\nenum multiline = r"lorem\nipsum\ndolor"; // wysiwyg string, no escapes here allowed\nenum multiline2 = "sit\namet\n\\"adipiscing\\"\nelit.";\nenum hex = x"66 6f 6f"; // same as "foo"\n\n#line 5\n\n// float literals\nenum f = [3.14f, .1, 1., 1e100, 0xc0de.01p+100];\n\nstatic if (something == true) {\n import std.algorithm;\n}\n\nvoid main() pure nothrow @safe {\n ulong lines = 0;\n double sumLength = 0;\n foreach (line; stdin.byLine()) {\n ++lines;\n sumLength += line.length;\n }\n writeln("Average line length: ",\n lines ? sumLength / lines : 0);\n}\n', 'dart': 'library app;\nimport \'dart:html\';\n\npart \'app2.dart\';\n\n/**\n * Class description and [link](http://dartlang.org/).\n */\n@Awesome(\'it works!\')\nclass SomeClass extends BaseClass implements Comparable {\n factory SomeClass(num param);\n SomeClass._internal(int q) : super() {\n assert(q != 1);\n double z = 0.0;\n }\n\n /// **Sum** function\n int sum(int a, int b) => a + b;\n\n ElementList els() => querySelectorAll(\'.dart\');\n}\n\nString str = \' (\${\'parameter\' + \'zxc\'})\';\nString str = " (\${true ? 2 + 2 / 2 : null})";\nString str = " (\$variable)";\nString str = r\'\\nraw\\\';\nString str = r"\\nraw\\";\nvar str = \'\'\'\nSomething \${2+3}\n\'\'\';\nvar str = r"""\nSomething \${2+3}\n""";\n\ncheckVersion() async {\n var version = await lookUpVersion();\n}\n', 'delphi': 'TList = Class(TObject)\nPrivate\n Some: String;\nPublic\n Procedure Inside; // Suxx\nEnd;{TList}\n\nProcedure CopyFile(InFileName, var OutFileName: String);\nConst\n BufSize = 4096; (* Huh? *)\nVar\n InFile, OutFile: TStream;\n Buffer: Array[1..BufSize] Of Byte;\n ReadBufSize: Integer;\nBegin\n InFile := Nil;\n OutFile := Nil;\n Try\n InFile := TFileStream.Create(InFileName, fmOpenRead);\n OutFile := TFileStream.Create(OutFileName, fmCreate);\n Repeat\n ReadBufSize := InFile.Read(Buffer, BufSize);\n OutFile.Write(Buffer, ReadBufSize);\n Until ReadBufSize<>BufSize;\n Log(\'File \'\'\' + InFileName + \'\'\' copied\'#13#10);\n Finally\n InFile.Free;\n OutFile.Free;\n End;{Try}\nEnd;{CopyFile}\n', 'diff': 'Index: languages/ini.js\n===================================================================\n--- languages/ini.js (revision 199)\n+++ languages/ini.js (revision 200)\n@@ -1,8 +1,7 @@\n hljs.LANGUAGES.ini =\n {\n case_insensitive: true,\n- defaultMode:\n- {\n+ defaultMode: {\n contains: [\'comment\', \'title\', \'setting\'],\n illegal: \'[^\\\\s]\'\n },\n\n*** /path/to/original timestamp\n--- /path/to/new timestamp\n***************\n*** 1,3 ****\n--- 1,9 ----\n+ This is an important\n+ notice! It should\n+ therefore be located at\n+ the beginning of this\n+ document!\n\n! compress the size of the\n! changes.\n\n It is important to spell\n', 'django': '{% if articles|length %}\n{% for article in articles %}\n\n{% custom %}\n\n{# Striped table #}\n\n {{ article|default:"Hi... " }}\n \n Published on {{ article.date }}\n \n\n\n{% endfor %}\n{% endif %}\n', 'dns': '\$ORIGIN example.com. ; designates the start of this zone file in the namespace\n\$TTL 1h ; default expiration time of all resource records without their own TTL value\nexample.com. IN SOA ns.example.com. username.example.com. ( 2007120710 1d 2h 4w 1h )\nexample.com. IN NS ns ; ns.example.com is a nameserver for example.com\nexample.com. IN NS ns.somewhere.example. ; ns.somewhere.example is a backup nameserver for example.com\nexample.com. IN MX 10 mail.example.com. ; mail.example.com is the mailserver for example.com\n@ IN MX 20 mail2.example.com. ; equivalent to above line, "@" represents zone origin\n@ IN MX 50 mail3 ; equivalent to above line, but using a relative host name\nexample.com. IN A 192.0.2.1 ; IPv4 address for example.com\n IN AAAA 2001:db8:10::1 ; IPv6 address for example.com\nns IN A 192.0.2.2 ; IPv4 address for ns.example.com\n IN AAAA 2001:db8:10::2 ; IPv6 address for ns.example.com\nwww IN CNAME example.com. ; www.example.com is an alias for example.com\nwwwtest IN CNAME www ; wwwtest.example.com is another alias for www.example.com\nmail IN A 192.0.2.3 ; IPv4 address for mail.example.com\nmail2 IN A 192.0.2.4 ; IPv4 address for mail2.example.com\nmail3 IN A 192.0.2.5 ; IPv4 address for mail3.example.com\n', 'dockerfile': '# Example instructions from https://docs.docker.com/reference/builder/\nFROM ubuntu:14.04\n\nMAINTAINER example@example.com\n\nENV foo /bar\nWORKDIR \${foo} # WORKDIR /bar\nADD . \$foo # ADD . /bar\nCOPY \\\$foo /quux # COPY \$foo /quux\nARG VAR=FOO\n\nRUN apt-get update && apt-get install -y software-properties-common\\\n zsh curl wget git htop\\\n unzip vim telnet\nRUN ["/bin/bash", "-c", "echo hello \${USER}"]\n\nCMD ["executable","param1","param2"]\nCMD command param1 param2\n\nEXPOSE 1337\n\nENV myName="John Doe" myDog=Rex\\ The\\ Dog \\\n myCat=fluffy\n\nENV myName John Doe\nENV myDog Rex The Dog\nENV myCat fluffy\n\nADD hom* /mydir/ # adds all files starting with "hom"\nADD hom?.txt /mydir/ # ? is replaced with any single character\n\nCOPY hom* /mydir/ # adds all files starting with "hom"\nCOPY hom?.txt /mydir/ # ? is replaced with any single character\nCOPY --from=foo / .\n\nENTRYPOINT ["executable", "param1", "param2"]\nENTRYPOINT command param1 param2\n\nVOLUME ["/data"]\n\nUSER daemon\n\nLABEL com.example.label-with-value="foo"\nLABEL version="1.0"\nLABEL description="This text illustrates \\\nthat label-values can span multiple lines."\n\nWORKDIR /path/to/workdir\n\nONBUILD ADD . /app/src\n\nSTOPSIGNAL SIGKILL\n\nHEALTHCHECK --retries=3 cat /health\n\nSHELL ["/bin/bash", "-c"]\n', 'dos': 'cd \\\ncopy a b\nping 192.168.0.1\n@rem ping 192.168.0.1\nnet stop sharedaccess\ndel %tmp% /f /s /q\ndel %temp% /f /s /q\nipconfig /flushdns\ntaskkill /F /IM JAVA.EXE /T\n\ncd Photoshop/Adobe Photoshop CS3/AMT/\nif exist application.sif (\n ren application.sif _application.sif\n) else (\n ren _application.sif application.sif\n)\n\ntaskkill /F /IM proquota.exe /T\n\nsfc /SCANNOW\n\nset path = test\n\nxcopy %1\\*.* %2\n', 'dsconfig': '# Create client connection policies\ndsconfig create-client-connection-policy \\\n --policy-name "Restrictive Client Connection Policy" \\\n --set "description:Restrictive Client Connection Policy" \\\n --set enabled:true --set evaluation-order-index:1000 \\\n --set "connection-criteria:User.0 Connection Criteria" \\\n --set maximum-concurrent-connections:2 \\\n --set "maximum-connection-duration:1 s" \\\n --set "maximum-idle-connection-duration:1 s" \\\n --set maximum-operation-count-per-connection:1000\ncreate-client-connection-policy \\\n --policy-name "Another Client Connection Policy" \\\n --set enabled:true --set evaluation-order-index:100 \\\n --set \'connection-criteria:User.1 Connection Criteria\' \\\n --reset maximum-concurrent-connections\n# Configure global ACIs\ndsconfig set-access-control-handler-prop \\\n --add global-aci:\'(target="ldap:///cn=config")(targetattr="*")(version 3.0; acl "Allow access to the config tree by cn=admin,c=us"; allow(all) groupdn="ldap:///cn=directory administrators,ou=groups,c=us";)\' \\\n --add global-aci:\'(target="ldap:///cn=monitor")(targetattr="*")(version 3.0; acl "Allow access to the monitor tree by cn=admin,c=us"; allow(all) groupdn="ldap:///cn=directory administrators,ou=groups,c=us";)\' \\\n --remove global-aci:\'(target="ldap:///cn=alerts")(targetattr="*")(version 3.0; acl "Allow access to the alerts tree by cn=admin,c=us"; allow(all) groupdn="ldap:///cn=directory administrators,ou=groups,c=us";)\'\n# Delete error logger\ndsconfig delete-log-publisher --publisher-name "File-Based Error Logger"\n', 'dts': '/*\n * Copyright (C) 2011 - 2014 Xilinx\n *\n * This software is licensed under the terms of the GNU General Public\n * License version 2, as published by the Free Software Foundation, and\n * may be copied, distributed, and modified under those terms.\n *\n * This program is distributed in the hope that it will be useful,\n * but WITHOUT ANY WARRANTY; without even the implied warranty of\n * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\n * GNU General Public License for more details.\n */\n/include/ "skeleton.dtsi"\n\n/ {\n compatible = "xlnx,zynq-7000";\n\n pmu {\n compatible = "arm,cortex-a9-pmu";\n interrupts = <0 5 4>, <0 6 4>;\n interrupt-parent = <&intc>;\n reg = < 0xf8891000 0x1000 0xf8893000 0x1000 >;\n };\n\n regulator_vccpint: fixedregulator@0 {\n compatible = "regulator-fixed";\n regulator-name = "VCCPINT";\n regulator-min-microvolt = <1000000>;\n regulator-max-microvolt = <1000000>;\n regulator-boot-on;\n regulator-always-on;\n };\n\n amba: amba {\n compatible = "simple-bus";\n #address-cells = <1>;\n #size-cells = <1>;\n interrupt-parent = <&intc>;\n ranges;\n\n adc: adc@f8007100 {\n compatible = "xlnx,zynq-xadc-1.00.a";\n reg = <0xf8007100 0x20>;\n interrupts = <0 7 4>;\n interrupt-parent = <&intc>;\n clocks = <&clkc 12>;\n };\n\n i2c0: i2c@e0004000 {\n compatible = "cdns,i2c-r1p10";\n status = "disabled";\n clocks = <&clkc 38>;\n interrupt-parent = <&intc>;\n interrupts = <0 25 4>;\n reg = <0xe0004000 0x1000>;\n #address-cells = <1>;\n #size-cells = <0>;\n };\n\n L2: cache-controller@f8f02000 {\n compatible = "arm,pl310-cache";\n reg = <0xF8F02000 0x1000>;\n interrupts = <0 2 4>;\n arm,data-latency = <3 2 2>;\n arm,tag-latency = <2 2 2>;\n cache-unified;\n cache-level = <2>;\n };\n\n };\n};\n', 'dust': '

Hours

\n\n
    \n {#users}\n
  • {firstName}
    • {~n}\n {/users}\n
\n', 'ebnf': '(* line comment *)\n\nrule = [optional] , symbol , { letters } , ( digit | symbol ) ;\n\noptional = ? something unnecessary ? ; (* trailing comment *)\n\nsymbol = \'!\' | \'@\' | \'#\' | \'\$\' | \'%\' | \'&\' | \'*\' ;\ndigit = "0" | "1" | "2" | "3" | "4" | "5" | "6" | "7" | "8" | "9" ;\nletter = "A" | "B" | "C" | "D" | "E" | "F" | "G"\n | "H" | "I" | "J" | "K" | "L" | "M" | "N"\n | "O" | "P" | "Q" | "R" | "S" | "T" | "U"\n | "V" | "W" | "X" | "Y" | "Z" ;\n', 'elixir': 'defrecord Person, first_name: nil, last_name: "Dudington" do\n def name record do # huh ?\n "#{record.first_name} #{record.last_name}"\n end\nend\n\ndefrecord User, name: "José", age: 25\n\nguy = Person.new first_name: "Guy"\nguy.name\n\ndefmodule ListServer do\n @moduledoc """\n This module provides an easy to use ListServer, useful for keeping\n lists of things.\n """\n use GenServer.Behaviour\n alias Foo.Bar\n\n ### Public API\n @doc """\n Starts and links a new ListServer, returning {:ok, pid}\n\n ## Example\n\n iex> {:ok, pid} = ListServer.start_link\n\n """\n def start_link do\n :gen_server.start_link({:local, :list}, __MODULE__, [], [])\n end\n\n ### GenServer API\n def init(list) do\n {:ok, list}\n end\n\n # Clear the list\n def handle_cast :clear, list do\n {:noreply, []}\n end\nend\n\n{:ok, pid} = ListServer.start_link\npid <- {:foo, "bar"}\n\ngreeter = fn(x) -> IO.puts "hey #{x}" end\ngreeter.("Bob")\n\n', 'elm': 'import Browser\nimport Html exposing (div, button, text)\nimport Html.Events exposing (onClick)\n\ntype Msg\n = Increment\n\nmain =\n Browser.sandbox\n { init = 0\n , update = \\msg model -> model + 1\n , view = view\n }\n\nview model =\n div []\n [ div [] [ text (String.fromInt model) ]\n , button [ onClick Increment ] [ text "+" ]\n ]\n\nchars =\n String.cons \'C\' <| String.cons \'h\' <| "ars"\n', 'erb': '<%# this is a comment %>\n\n<% @posts.each do |post| %>\n

<%= link_to post.title, post %>

\n<% end %>\n\n<%- available_things = things.select(&:available?) -%>\n<%%- x = 1 + 2 -%%>\n<%% value = \'real string #{@value}\' %%>\n<%%= available_things.inspect %%>\n', 'erlang': '-module(ssh_cli).\n\n-behaviour(ssh_channel).\n\n-include("ssh.hrl").\n%% backwards compatibility\n-export([listen/1, listen/2, listen/3, listen/4, stop/1]).\n\nif L =/= [] -> % If L is not empty\n sum(L) / count(L);\ntrue ->\n error\nend.\n\n%% state\n-record(state, {\n cm,\n channel\n }).\n\n-spec foo(integer()) -> integer().\nfoo(X) -> 1 + X.\n\ntest(Foo)->Foo.\n\ninit([Shell, Exec]) ->\n {ok, #state{shell = Shell, exec = Exec}};\ninit([Shell]) ->\n false = not true,\n io:format("Hello, \\"~p!~n", [atom_to_list(\'World\')]),\n {ok, #state{shell = Shell}}.\n\nconcat([Single]) -> Single;\nconcat(RList) ->\n EpsilonFree = lists:filter(\n fun (Element) ->\n case Element of\n epsilon -> false;\n _ -> true\n end\n end,\n RList),\n case EpsilonFree of\n [Single] -> Single;\n Other -> {concat, Other}\n end.\n\nunion_dot_union({union, _}=U1, {union, _}=U2) ->\n union(lists:flatten(\n lists:map(\n fun (X1) ->\n lists:map(\n fun (X2) ->\n concat([X1, X2])\n end,\n union_to_list(U2)\n )\n end,\n union_to_list(U1)\n ))).\n', 'erlang-repl': '1> Str = "abcd".\n"abcd"\n2> L = test:length(Str).\n4\n3> Descriptor = {L, list_to_atom(Str)}.\n{4,abcd}\n4> L.\n4\n5> b().\nDescriptor = {4,abcd}\nL = 4\nStr = "abcd"\nok\n6> f(L).\nok\n7> b().\nDescriptor = {4,abcd}\nStr = "abcd"\nok\n8> {L, _} = Descriptor.\n{4,abcd}\n9> L.\n4\n10> 2#101.\n5\n11> 1.85e+3.\n1850\n', 'excel': '=IF(C10 <= 275.5, "Unprofitable", "Profitable")', 'fix': '8=FIX.4.2␁9=0␁35=8␁49=SENDERTEST␁56=TARGETTEST␁34=00000001526␁52=20120429-13:30:08.137␁1=ABC12345␁11=2012abc1234␁14=100␁17=201254321␁20=0␁30=NYSE␁31=108.20␁32=100␁38=100␁39=2␁40=1␁47=A␁54=5␁55=BRK␁59=2␁60=20120429-13:30:08.000␁65=B␁76=BROKER␁84=0␁100=NYSE␁111=100␁150=2␁151=0␁167=CS␁377=N␁10000=SampleCustomTag␁10=123␁\n\n8=FIX.4.29=035=849=SENDERTEST56=TARGETTEST34=0000000152652=20120429-13:30:08.1371=ABC1234511=2012abc123414=10017=20125432120=030=NYSE31=108.2032=10038=10039=240=147=A54=555=BRK59=260=20120429-13:30:08.00065=B76=BROKER84=0100=NYSE111=100150=2151=0167=CS377=N10000=SampleCustomTag10=123\n', 'flix': '/**\n * An example of Flix for syntax highlighting.\n */\n\n// Here is a namespace.\nnamespace a.b.c {\n\n // Here are some literals.\n def b: Bool = true\n def c: Char = \'a\'\n def f: Float = 1.23\n def i: Int = 42\n def s: Str = "string"\n\n // Here are some relations.\n rel LitStm(r: Str, c: Int)\n rel AddStm(r: Str, x: Str, y: Str)\n rel DivStm(r: Str, x: Str, y: Str)\n\n // Here is a lattice.\n lat LocalVar(k: Str, v: Constant)\n\n // Here is an index.\n index LitStm{{r}, {r, c}}\n\n // Here is an enum.\n enum Constant {\n case Top,\n\n case Cst(Int),\n\n case Bot\n }\n\n // Here is a function.\n def leq(e1: Constant, e2: Constant): Bool = match (e1, e2) with {\n case (Constant.Bot, _) => true\n case (Constant.Cst(n1), Constant.Cst(n2)) => n1 == n2\n case (_, Constant.Top) => true\n case _ => false\n }\n\n // Here are some rules.\n LocalVar(r, alpha(c)) :- LitStm(r, c).\n\n LocalVar(r, sum(v1, v2)) :- AddStm(r, x, y),\n LocalVar(x, v1),\n LocalVar(y, v2).\n}\n', 'fortran': 'subroutine test_sub(k)\n implicit none\n\n !===============================\n ! This is a test subroutine\n !===============================\n\n integer, intent(in) :: k\n double precision, allocatable :: a(:)\n integer, parameter :: nmax=10\n integer :: i\n\n allocate (a(nmax))\n\n do i=1,nmax\n a(i) = dble(i)*5.d0\n enddo\n\n print *, \'Hello world\'\n write (*,*) a(:)\n\nend subroutine test_sub\n', 'fsharp': 'open System\n\n// Single line comment...\n(*\n This is a\n multiline comment.\n*)\nlet checkList alist =\n match alist with\n | [] -> 0\n | [a] -> 1\n | [a; b] -> 2\n | [a; b; c] -> 3\n | _ -> failwith "List is too big!"\n\n\nlet text = "Some text..."\nlet text2 = @"A ""verbatim"" string..."\nlet catalog = """\nSome "long" string...\n"""\n\nlet rec fib x = if x <= 2 then 1 else fib(x-1) + fib(x-2)\n\nlet fibs =\n Async.Parallel [ for i in 0..40 -> async { return fib(i) } ]\n |> Async.RunSynchronously\n\ntype Sprocket(gears) =\n member this.Gears : int = gears\n\n[]\ntype Animal =\n abstract Speak : unit -> unit\n\ntype Widget =\n | RedWidget\n | GreenWidget\n\ntype Point = {X: float; Y: float;}\n\n[]\ntype s\nlet minutte = 60\n\ntype DefaultMailbox<\'a>() =\n let mutable inbox = ConcurrentQueue<\'a>()\n let awaitMsg = new AutoResetEvent(false)\n', 'gams': 'SETS\n I canning plants / SEATTLE, SAN-DIEGO /\n J markets / NEW-YORK, CHICAGO, TOPEKA / ;\nPARAMETERS\n A(I) capacity of plant i in cases\n / SEATTLE 350\n SAN-DIEGO 600 /\n B(J) demand at market j in cases\n / NEW-YORK 325\n CHICAGO 300\n TOPEKA 275 / ;\nTABLE D(I,J) distance in thousands of miles\n NEW-YORK CHICAGO TOPEKA\n SEATTLE 2.5 1.7 1.8\n SAN-DIEGO 2.5 1.8 1.4 ;\nSCALAR F freight in dollars per case per thousand miles /90/ ;\nPARAMETER C(I,J) transport cost in thousands of dollars per case ;\n C(I,J) = F * D(I,J) / 1000 ;\nVARIABLES\n X(I,J) shipment quantities in cases\n Z total transportation costs in thousands of dollars ;\nPOSITIVE VARIABLE X ;\nEQUATIONS\n COST define objective function\n SUPPLY(I) observe supply limit at plant i\n DEMAND(J) satisfy demand at market j ;\nCOST .. Z =E= SUM((I,J), C(I,J)*X(I,J)) ;\nSUPPLY(I) .. SUM(J, X(I,J)) =L= A(I) ;\nDEMAND(J) .. SUM(I, X(I,J)) =G= B(J) ;\nMODEL TRANSPORT /ALL/ ;\nSOLVE TRANSPORT USING LP MINIMIZING Z ;\n', 'gauss': '// This is a test\n#include pv.sdf\n\nproc (1) = calc(local__row, fin);\n if local__row;\n nr = local__row;\n else;\n k = colsf(fin);\n nr = floor(minc(maxbytes/(k*8*3.5)|maxvec/(k+1)));\n endif;\n retp(nr);\nendp;\n\ns = "{% test string %}";\n\nfn twopi=pi*2;\n\n/* Takes in multiple numbers.\n Output sum */\nkeyword add(str);\n local tok,sum;\n sum = 0;\n do until str \$== "";\n { tok, str } = token(str);\n sum = sum + stof(tok);\n endo;\n print "Sum is: " sum;\nendp;\n', 'gcode': 'O003 (DIAMOND SQUARE)\nN2 G54 G90 G49 G80\nN3 M6 T1 (1.ENDMILL)\nN4 M3 S1800\nN5 G0 X-.6 Y2.050\nN6 G43 H1 Z.1\nN7 G1 Z-.3 F50.\nN8 G41 D1 Y1.45\nN9 G1 X0 F20.\nN10 G2 J-1.45\n(CUTTER COMP CANCEL)\nN11 G1 Z-.2 F50.\nN12 Y-.990\nN13 G40\nN14 G0 X-.6 Y1.590\nN15 G0 Z.1\nN16 M5 G49 G28 G91 Z0\nN17 CALL O9456\nN18 #500=0.004\nN19 #503=[#500+#501]\nN20 VC45=0.0006\nVS4=0.0007\nN21 G90 G10 L20 P3 X5.Y4. Z6.567\nN22 G0 X5000\nN23 IF [#1 LT 0.370] GOTO 49\nN24 X-0.678 Y+.990\nN25 G84.3 X-0.1\nN26 #4=#5*COS[45]\nN27 #4=#5*SIN[45]\nN28 VZOFZ=652.9658\n%\n', 'gherkin': '# language: en\nFeature: Addition\n In order to avoid silly mistakes\n As a math idiot\n I want to be told the sum of two numbers\n\n @this_is_a_tag\n Scenario Outline: Add two numbers\n * I have a calculator\n Given I have entered into the calculator\n And I have entered into the calculator\n When I press