rouge-picat 0.1.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 4bf3b0a384725113f58d6e2f389414168405f241261964102744e41758a71942
+  data.tar.gz: 39e997b9b5d4d16a29f063f659830c438c489a0b01e8242f0ae574a15d1fc374
+SHA512:
+  metadata.gz: a63a045b27fbe55b9c8d5323f08bd8c41e9a3ae60d3b38973b1284af2168d43d5c4c671b7fd0dae2878c880603e54ba7166c52985655f98d0f158bdb1b118907
+  data.tar.gz: 794ef72e1d23cc3b6ce7318569e7044cb315ab950e1a4d8a007399da919d9ca73dd36469911cc69306956806c0cd9cc197e3f29182ccf6ee57bea0a50bd4f532

data/Gemfile

@@ -0,0 +1,8 @@
+source 'https://rubygems.org'
+
+gemspec
+
+gem 'minitest'
+gem 'rake'
+gem 'webrick'
+gem 'rackup'

data/LICENSE

@@ -0,0 +1,9 @@
+MIT License
+
+Copyright (c) 2026 Arclight Automata
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,69 @@
+# rouge-picat
+
+A [Rouge](https://github.com/rouge-ruby/rouge) plugin that adds syntax
+highlighting support for the [Picat](http://picat-lang.org/) programming
+language.
+
+Picat is a logic-based multi-paradigm programming language aimed at
+general-purpose applications, combining features from logic programming,
+functional programming, and scripting languages.
+
+## Background
+
+This lexer was originally submitted to Rouge core as
+[rouge-ruby/rouge#2110](https://github.com/rouge-ruby/rouge/pull/2110).
+The Rouge maintainers declined the PR and asked that new languages be
+distributed as plugin gems instead — this repository is that plugin.
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+```ruby
+gem 'rouge-picat'
+```
+
+Or install it directly:
+
+```console
+$ gem install rouge-picat
+```
+
+## Usage
+
+Require the gem after Rouge and the lexer registers itself under the
+`picat` tag:
+
+```ruby
+require 'rouge'
+require 'rouge-picat'
+
+source    = File.read('queens.pi')
+formatter = Rouge::Formatters::HTML.new
+lexer     = Rouge::Lexer.find('picat')
+
+formatter.format(lexer.lex(source))
+```
+
+The lexer is also picked up automatically when guessing by filename
+(`*.pi`) or mimetype (`text/x-picat`).
+
+## Development
+
+* `spec/sample.pi` holds the visual spec - this is text intended to
+  stress-test the lexer and catch any weirdnesses or errors.
+* `ruby preview.rb` will output the highlighted sample to the terminal.
+  Set the environment variable `DEBUG=1` to instead output detailed debugging
+  information.
+* `rake` or `rake spec` runs the tests.
+* `rake server` runs a preview server on port 9292, which hot-reloads the lexer.
+
+This plugin follows the structure of the
+[rouge-plugin-example](https://github.com/rouge-ruby/rouge-plugin-example)
+repository. See also Rouge's [Lexer Development Guide][lexer-dev-doc].
+
+[lexer-dev-doc]: https://rouge-ruby.github.io/docs/file.LexerDevelopment.html "Rouge's lexer development guide"
+
+## License
+
+MIT - see [LICENSE](LICENSE).

data/lib/rouge-picat.rb

@@ -0,0 +1,154 @@
+# -*- coding: utf-8 -*- #
+# frozen_string_literal: true
+
+require 'rouge' unless defined?(Rouge)
+
+module RougePicat
+  class Picat < Rouge::RegexLexer
+    title "Picat"
+    desc "The Picat programming language (picat-lang.org)"
+
+    tag 'picat'
+    filenames '*.pi'
+    mimetypes 'text/x-picat'
+
+    demo <<~'DEMO'
+      module main.
+
+      import util.
+
+      % Calculate factorial using recursion
+      fact(0) = 1.
+      fact(N) = N * fact(N-1) => N > 0.
+
+      main =>
+          X = 5,
+          writef("Factorial of %d is %d\n", X, fact(X)),
+          Sum = sum([1,2,3]),
+          writef("Sum = %d\n", Sum).
+    DEMO
+
+    def self.keywords
+      @keywords ||= Set.new %w(
+        module import private table index
+        if else elseif end foreach while do
+        not fail true false
+        catch try in
+        repeat once var throw
+      )
+    end
+
+    def self.builtins
+      @builtins ||= Set.new %w(
+        append write writeln print println member length
+        solve solve_all new_array new_map new_set
+        min max sum prod floor ceiling round
+        abs sqrt sin cos tan log exp
+        open close printf get_heap_map get_global_map
+        get_table_map instance final action solve
+      )
+    end
+
+    state :root do
+      rule %r/\s+/m, Text
+      rule %r/%.*$/, Comment::Single
+      rule %r/\/\*/, Comment::Multiline, :multiline_comment
+
+      # Module declaration
+      rule %r/(module)(\s+)([a-z][a-zA-Z0-9_]*)/m do
+        groups Keyword::Namespace, Text::Whitespace, Name::Namespace
+      end
+
+      # Import declaration
+      rule %r/(import)(\s+)([a-z][a-zA-Z0-9_]*)/m do
+        groups Keyword::Namespace, Text::Whitespace, Name::Namespace
+        push :import_list
+      end
+
+      # Handle bare 'import' without immediate module name
+      rule %r/(import)(\s*$)/ do
+        groups Keyword::Namespace, Text::Whitespace
+        push :import_list
+      end
+
+      # Numbers with underscore separators (must come before regular integers)
+      rule %r/\d+(_\d+)+/, Num::Integer
+
+      # Other numbers
+      rule %r/0[xX][0-9a-fA-F]+/, Num::Hex
+      rule %r/0[oO][0-7]+/, Num::Oct
+      rule %r/0[bB][01]+/, Num::Bin
+      rule %r/[0-9]+\.[0-9]+([eE][+-]?[0-9]+)?/, Num::Float
+      rule %r/[0-9]+/, Num::Integer
+
+      # Strings and Atoms
+      rule %r/"(\\.|[^"])*"/, Str::Double
+      rule %r/'(\\.|[^'])*'/, Str::Symbol         # Quoted atoms
+
+      # Variables
+      rule %r/[A-Z_][A-Za-z0-9_]*/, Name::Variable
+
+      # Keywords and builtins (moved before other identifier patterns)
+      rule %r/[a-z][a-zA-Z0-9_]*(?=[^a-zA-Z0-9_])/ do |m|
+        if self.class.keywords.include? m[0]
+          token Keyword
+        elsif self.class.builtins.include? m[0]
+          token Name::Builtin
+        else
+          token Name
+        end
+      end
+
+      # Module-qualified names
+      rule %r/([a-z][a-zA-Z0-9_]*)(\.)([a-z][a-zA-Z0-9_]*)/ do
+        groups Name::Namespace, Punctuation, Name::Function
+      end
+
+      # Structure notation
+      rule %r/\$[a-z][a-zA-Z0-9_]*/, Name::Class
+
+      # Other identifiers
+      rule %r/[a-z][a-zA-Z0-9_]*/, Name
+
+      # Import items (commas and periods)
+      rule %r/,|\./, Punctuation
+
+      # Constraint operators
+      rule %r/#=>|#<=>|#\/\\|#\\\/|#\^|#~|#=|#!=|#<|#=<|#<=|#>|#>=/, Operator
+
+      # Term comparison operators
+      rule %r/@<|@=<|@<=|@>|@>=/, Operator
+
+      # DCG notation
+      rule %r/-->/, Operator
+
+      # List comprehension separator
+      rule %r/\s+:\s+/, Punctuation
+
+      # Range notation
+      rule %r/\.\./, Operator
+
+      # List cons operator (|)
+      rule %r/\|/, Punctuation
+
+      # Other operators and punctuation
+      rule %r/=>|:=|\?=>|==|!=|=<|>=|::|\+\+|--|!|;|:|\.|=|<|>|\+|-|\*|\/|\[|\]|\{|\}|\(|\)|\$|@/, Operator
+
+      # Table/index declarations
+      rule %r/(\+|-)(?=[\s,\)])/, Operator
+    end
+
+    state :multiline_comment do
+      rule %r/[^*\/]+/m, Comment::Multiline
+      rule %r/\*\//, Comment::Multiline, :pop!
+      rule %r/[\*\/]/, Comment::Multiline
+    end
+
+    state :import_list do
+      rule %r/\s+/m, Text::Whitespace
+      rule %r/[a-z][a-zA-Z0-9_]*/, Name::Namespace
+      rule %r/,/, Punctuation
+      rule %r/\./, Punctuation, :pop!
+    end
+  end
+end

data/rouge-picat.gemspec

@@ -0,0 +1,19 @@
+# frozen_string_literal: true
+
+Gem::Specification.new do |s|
+  s.name = "rouge-picat"
+  s.version = "0.1.0"
+  s.authors = ["Arclight Automata"]
+  s.email = ["root@arclight.run"]
+  s.summary = "A Picat language plugin for Rouge"
+  s.description = <<-desc.strip.gsub(/\s+/, ' ')
+    Support for the Picat programming language (picat-lang.org) for Rouge
+  desc
+
+  s.homepage = "https://github.com/arclight-automata/rouge-picat"
+  s.files = Dir['Gemfile', 'LICENSE', 'README.md', 'rouge-picat.gemspec', 'lib/**/*.rb']
+  s.licenses = ['MIT']
+  s.required_ruby_version = '>= 3.0'
+
+  s.add_dependency 'rouge', '>= 4.0', '< 6'
+end

metadata

@@ -0,0 +1,65 @@
+--- !ruby/object:Gem::Specification
+name: rouge-picat
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+platform: ruby
+authors:
+- Arclight Automata
+bindir: bin
+cert_chain: []
+date: 2026-08-05 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: rouge
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '4.0'
+    - - "<"
+      - !ruby/object:Gem::Version
+        version: '6'
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - ">="
+      - !ruby/object:Gem::Version
+        version: '4.0'
+    - - "<"
+      - !ruby/object:Gem::Version
+        version: '6'
+description: Support for the Picat programming language (picat-lang.org) for Rouge
+email:
+- root@arclight.run
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- Gemfile
+- LICENSE
+- README.md
+- lib/rouge-picat.rb
+- rouge-picat.gemspec
+homepage: https://github.com/arclight-automata/rouge-picat
+licenses:
+- MIT
+metadata: {}
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '3.0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubygems_version: 3.6.2
+specification_version: 4
+summary: A Picat language plugin for Rouge
+test_files: []