Merge pull request #858 from github/perl_6

Perl 6

lib/linguist/languages.yml

@@ -1212,16 +1212,28 @@ Perl:
   primary_extension: .pl
   extensions:
   - .PL
-  - .nqp
   - .perl
   - .ph
   - .plx
-  - .pm6
+  - .pm
   - .pod
   - .psgi
   interpreters:
   - perl
 
+Perl6:
+  type: programming
+  color: "#0298c3"
+  primary_extension: .p6
+  extensions:
+  - .6pl
+  - .6pm
+  - .nqp
+  - .p6l
+  - .p6m
+  - .pl6
+  - .pm6
+
 Pike:
   type: programming
   color: "#066ab2"

lib/linguist/samples.json

@@ -295,6 +295,10 @@
       ".script!",
       ".t"
     ],
+    "Perl6": [
+      ".p6",
+      ".pm6"
+    ],
     "PHP": [
       ".module",
       ".php",
@@ -512,8 +516,8 @@
       ".gemrc"
     ]
   },
-  "tokens_total": 432779,
+  "tokens_total": 433151,
-  "languages_total": 506,
+  "languages_total": 509,
   "tokens": {
     "ABAP": {
       "*/**": 1,
@@ -36991,6 +36995,131 @@
       "reference.": 1,
       "AUTHOR": 1
     },
+    "Perl6": {
+      "token": 6,
+      "pod_formatting_code": 1,
+      "{": 29,
+      "<code>": 1,
+      "<[A..Z]>": 1,
+      "*POD_IN_FORMATTINGCODE": 1,
+      "}": 27,
+      "<content>": 1,
+      "[": 1,
+      "<!before>": 1,
+      "#": 13,
+      "N*": 1,
+      "role": 10,
+      "q": 5,
+      "stopper": 2,
+      "MAIN": 1,
+      "quote": 1,
+      ")": 19,
+      "backslash": 3,
+      "sym": 3,
+      "<\\\\>": 1,
+      "<text=.sym>": 1,
+      "<stopper>": 1,
+      "<text=.stopper>": 1,
+      "<miscq>": 1,
+      ".": 1,
+      "method": 2,
+      "tweak_q": 1,
+      "(": 16,
+      "v": 2,
+      "self.panic": 2,
+      "tweak_qq": 1,
+      "qq": 5,
+      "does": 7,
+      "b1": 1,
+      "c1": 1,
+      "s1": 1,
+      "a1": 1,
+      "h1": 1,
+      "f1": 1,
+      "Too": 2,
+      "late": 2,
+      "for": 2,
+      "SHEBANG#!perl": 1,
+      "use": 1,
+      "v6": 1,
+      ";": 19,
+      "my": 10,
+      "string": 7,
+      "if": 1,
+      "eq": 1,
+      "say": 10,
+      "regex": 2,
+      "http": 1,
+      "-": 3,
+      "verb": 1,
+      "|": 9,
+      "multi": 2,
+      "line": 5,
+      "comment": 2,
+      "I": 1,
+      "there": 1,
+      "m": 2,
+      "even": 1,
+      "specialer": 1,
+      "nesting": 1,
+      "work": 1,
+      "<": 3,
+      "trying": 1,
+      "mixed": 1,
+      "delimiters": 1,
+      "<Hooray,>": 1,
+      "arbitrary": 2,
+      "delimiter": 2,
+      "Hooray": 1,
+      "<now>": 1,
+      "with": 9,
+      "whitespace": 1,
+      "<<": 1,
+      "more": 1,
+      "strings": 1,
+      "%": 1,
+      "hash": 1,
+      "Hash.new": 1,
+      "begin": 1,
+      "pod": 1,
+      "Here": 1,
+      "t": 2,
+      "highlighted": 1,
+      "table": 1,
+      "Of": 1,
+      "things": 1,
+      "A": 3,
+      "single": 3,
+      "declarator": 7,
+      "a": 8,
+      "keyword": 7,
+      "like": 7,
+      "Another": 2,
+      "block": 2,
+      "brace": 1,
+      "More": 2,
+      "blocks": 2,
+      "don": 2,
+      "x": 2,
+      "foo": 3,
+      "Rob": 1,
+      "food": 1,
+      "match": 1,
+      "sub": 1,
+      "something": 1,
+      "Str": 1,
+      "D": 1,
+      "value": 1,
+      "...": 1,
+      "s": 1,
+      "some": 2,
+      "stuff": 1,
+      "chars": 1,
+      "/": 1,
+      "<foo>": 1,
+      "<bar>": 1,
+      "roleq": 1
+    },
     "PHP": {
       "<": 11,
       "php": 12,
@@ -46207,6 +46336,7 @@
     "Parrot Internal Representation": 5,
     "Pascal": 30,
     "Perl": 17497,
+    "Perl6": 372,
     "PHP": 20724,
     "Pod": 658,
     "PogoScript": 250,
@@ -46343,6 +46473,7 @@
     "Parrot Internal Representation": 1,
     "Pascal": 1,
     "Perl": 14,
+    "Perl6": 3,
     "PHP": 9,
     "Pod": 1,
     "PogoScript": 1,
@@ -46391,5 +46522,5 @@
     "Xtend": 2,
     "YAML": 1
   },
-  "md5": "79c618c51790c8af3a5c6c6c451cedda"
+  "md5": "6d8277fa0559fe70f116d8106ecc9053"
 }

samples/Perl6/RoleQ.pm6

@@ -0,0 +1,23 @@
+role q {
+    token stopper { \' }
+
+    token escape:sym<\\> { <sym> <item=.backslash> }
+
+    token backslash:sym<qq> { <?before 'q'> <quote=.LANG('MAIN','quote')> }
+    token backslash:sym<\\> { <text=.sym> }
+    token backslash:sym<stopper> { <text=.stopper> }
+
+    token backslash:sym<miscq> { {} . }
+
+    method tweak_q($v) { self.panic("Too late for :q") }
+    method tweak_qq($v) { self.panic("Too late for :qq") }
+}
+
+role qq does b1 does c1 does s1 does a1 does h1 does f1 {
+    token stopper { \" }
+    token backslash:sym<unrec> { {} (\w) { self.throw_unrecog_backslash_seq: $/[0].Str } }
+    token backslash:sym<misc> { \W }
+
+    method tweak_q($v) { self.panic("Too late for :q") }
+    method tweak_qq($v) { self.panic("Too late for :qq") }
+}

samples/Perl6/grammar-test.p6

@@ -0,0 +1,22 @@
+token pod_formatting_code {
+    $<code>=<[A..Z]>
+    '<' { $*POD_IN_FORMATTINGCODE := 1 }
+    $<content>=[ <!before '>'> <pod_string_character> ]+
+    '>' { $*POD_IN_FORMATTINGCODE := 0 }
+}
+
+token pod_string {
+    <pod_string_character>+
+}
+
+token something:sym«<» {
+    <!>
+}
+
+token name {
+    <!>
+}
+
+token comment:sym<#> {
+   '#' {} \N*
+}

samples/Perl6/test.p6

@@ -0,0 +1,252 @@
+#!/usr/bin/env perl6
+
+use v6;
+
+my $string = 'I look like a # comment!';
+
+if $string eq 'foo' {
+    say 'hello';
+}
+
+regex http-verb {
+      'GET'
+    | 'POST'
+    | 'PUT'
+    | 'DELETE'
+    | 'TRACE'
+    | 'OPTIONS'
+    | 'HEAD'
+}
+
+# a sample comment
+
+say 'Hello from Perl 6!'
+
+
+#`{
+multi-line comment!
+}
+
+say 'here';
+
+#`(
+multi-line comment!
+)
+
+say 'here';
+
+

	
	Internal Server Error - Schleppe Git
	
	
	




	
		
			
				
					
						
					
				
				
					
				
			
		
		
		
			
				 .ui.message.flash-message { text-align: left; } 
				
				
					500 Internal Server Error
					
					
						Gitea Version: 1.26.4
						
					
				
			
		
	

	
	
		const embedded = document.querySelector('.page-content .page-content.status-page-500');
		if (embedded) {
			
			const embeddedParent = embedded.parentNode;
			let main = document.querySelector('.page-content');
			main = main ?? document.querySelector('body');
			main.prepend(document.createElement('hr'));
			main.prepend(embedded);
			embeddedParent.remove(); 
		}