textbringer-tree-sitter 1.2.0 → 1.2.2

data/samples/sample.cob

@@ -0,0 +1,174 @@
+      * COBOL Sample Program
+      * Demonstrates all major language features
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. SAMPLE-PROGRAM.
+       AUTHOR. Sample.
+
+       ENVIRONMENT DIVISION.
+       CONFIGURATION SECTION.
+       INPUT-OUTPUT SECTION.
+       FILE-CONTROL.
+           SELECT EMPLOYEE-FILE
+               ASSIGN TO "employees.dat"
+               ORGANIZATION IS SEQUENTIAL
+               ACCESS MODE IS SEQUENTIAL
+               FILE STATUS IS WS-FILE-STATUS.
+
+       DATA DIVISION.
+       FILE SECTION.
+       FD EMPLOYEE-FILE.
+       01 EMPLOYEE-RECORD.
+           05 EMP-ID          PIC 9(5).
+           05 EMP-NAME         PIC X(30).
+           05 EMP-SALARY       PIC 9(7)V99.
+           05 EMP-DEPARTMENT   PIC X(20).
+
+       WORKING-STORAGE SECTION.
+      * --- Variables ---
+       01 WS-FILE-STATUS       PIC XX.
+       01 WS-EOF               PIC 9 VALUE ZERO.
+       01 WS-COUNTER           PIC 9(3) VALUE ZEROS.
+       01 WS-TOTAL-SALARY      PIC 9(10)V99 VALUE ZEROES.
+       01 WS-AVERAGE            PIC 9(7)V99.
+       01 WS-NAME              PIC X(30) VALUE SPACES.
+       01 WS-MESSAGE           PIC X(80) VALUE LOW-VALUE.
+
+      * --- Numbers ---
+       01 WS-INTEGER           PIC 9(5) VALUE 42.
+       01 WS-NEGATIVE          PIC S9(5) VALUE -17.
+       01 WS-DECIMAL           PIC 9(5)V99 VALUE 3.14.
+
+      * --- String ---
+       01 WS-GREETING          PIC X(20) VALUE "Hello, World!".
+
+      * --- Table / Array ---
+       01 WS-SCORE-TABLE.
+           05 WS-SCORE          PIC 9(3) OCCURS 10 TIMES.
+
+       01 WS-MONTH-TABLE.
+           05 WS-MONTH-ENTRY    OCCURS 12 TIMES.
+               10 WS-MONTH-NAME PIC X(10).
+               10 WS-MONTH-DAYS PIC 99.
+
+      * --- Condition names (88 levels) ---
+       01 WS-STATUS            PIC X.
+           88 STATUS-ACTIVE    VALUE "A".
+           88 STATUS-INACTIVE  VALUE "I".
+           88 STATUS-DELETED   VALUE "D".
+
+       01 WS-RESULT            PIC 9(5).
+       01 WS-A                 PIC 9(3).
+       01 WS-B                 PIC 9(3).
+       01 WS-TEMP              PIC 9(5).
+       01 WS-INDEX             PIC 9(3).
+
+       PROCEDURE DIVISION.
+       MAIN-PROGRAM.
+      * --- Display ---
+           DISPLAY "=== COBOL Sample Program ===".
+           DISPLAY WS-GREETING.
+
+      * --- MOVE ---
+           MOVE "Alice" TO WS-NAME.
+           MOVE 100 TO WS-A.
+           MOVE 200 TO WS-B.
+           DISPLAY "Name: " WS-NAME.
+
+      * --- Arithmetic: ADD ---
+           ADD WS-A TO WS-B GIVING WS-RESULT.
+           DISPLAY "Add: " WS-RESULT.
+
+      * --- Arithmetic: SUBTRACT ---
+           SUBTRACT WS-A FROM WS-B GIVING WS-RESULT.
+           DISPLAY "Subtract: " WS-RESULT.
+
+      * --- Arithmetic: MULTIPLY ---
+           MULTIPLY WS-A BY WS-B GIVING WS-RESULT.
+           DISPLAY "Multiply: " WS-RESULT.
+
+      * --- Arithmetic: DIVIDE ---
+           DIVIDE WS-B BY WS-A GIVING WS-RESULT.
+           DISPLAY "Divide: " WS-RESULT.
+
+      * --- Arithmetic: COMPUTE ---
+           COMPUTE WS-RESULT = (WS-A + WS-B) * 2 - 10.
+           DISPLAY "Compute: " WS-RESULT.
+
+      * --- IF / ELSE ---
+           IF WS-A GREATER THAN WS-B
+               DISPLAY "A is greater"
+           ELSE IF WS-A LESS THAN WS-B
+               DISPLAY "B is greater"
+           ELSE IF WS-A EQUAL TO WS-B
+               DISPLAY "Equal"
+           END-IF.
+
+      * --- IF with AND / OR / NOT ---
+           IF WS-A GREATER THAN 0 AND WS-B GREATER THAN 0
+               DISPLAY "Both positive"
+           END-IF.
+
+           IF WS-A GREATER THAN 100 OR WS-B GREATER THAN 100
+               DISPLAY "At least one over 100"
+           END-IF.
+
+           IF NOT WS-A EQUAL TO ZERO
+               DISPLAY "A is not zero"
+           END-IF.
+
+      * --- EVALUATE (switch/case) ---
+           EVALUATE WS-INTEGER
+               WHEN 1 THRU 10
+                   DISPLAY "Small"
+               WHEN 11 THRU 100
+                   DISPLAY "Medium"
+               WHEN OTHER
+                   DISPLAY "Large"
+           END-EVALUATE.
+
+      * --- PERFORM (loop) ---
+           PERFORM DISPLAY-LINE
+               VARYING WS-INDEX FROM 1 BY 1
+               UNTIL WS-INDEX GREATER THAN 5.
+
+      * --- PERFORM with TIMES ---
+           PERFORM DISPLAY-LINE 3 TIMES.
+
+      * --- PERFORM with TEST BEFORE ---
+           MOVE 1 TO WS-INDEX.
+           PERFORM WITH TEST BEFORE
+               UNTIL WS-INDEX GREATER THAN 10
+               DISPLAY "Index: " WS-INDEX
+               ADD 1 TO WS-INDEX
+           END-PERFORM.
+
+      * --- PERFORM with TEST AFTER ---
+           MOVE 1 TO WS-INDEX.
+           PERFORM WITH TEST AFTER
+               UNTIL WS-INDEX GREATER THAN 5
+               DISPLAY "After: " WS-INDEX
+               ADD 1 TO WS-INDEX
+           END-PERFORM.
+
+      * --- Table operations ---
+           PERFORM VARYING WS-INDEX FROM 1 BY 1
+               UNTIL WS-INDEX GREATER THAN 10
+               COMPUTE WS-SCORE(WS-INDEX) = WS-INDEX * 10
+           END-PERFORM.
+
+      * --- ACCEPT ---
+           ACCEPT WS-NAME FROM COMMAND-LINE.
+
+      * --- String operations ---
+           MOVE "Hello, World!" TO WS-GREETING.
+
+      * --- GO TO ---
+           GO TO FINAL-SECTION.
+
+       DISPLAY-LINE.
+           DISPLAY "Line: " WS-INDEX.
+
+       FINAL-SECTION.
+      * --- STOP RUN ---
+           DISPLAY "=== Program Complete ===".
+           STOP RUN.

data/samples/sample.cr

@@ -0,0 +1,321 @@
+# Single line comment
+
+# Crystal sample - Ruby-like syntax with static typing
+
+# --- Require ---
+require "json"
+require "http/client"
+
+# --- Constants ---
+MAX_SIZE = 100
+PI       = 3.14159
+
+# --- Modules ---
+module Greeter
+  abstract def greet(name : String) : String
+end
+
+# --- Enums ---
+enum Color
+  Red
+  Green
+  Blue
+
+  def display : String
+    to_s.downcase
+  end
+end
+
+# --- Struct ---
+struct Point
+  property x : Float64
+  property y : Float64
+
+  def initialize(@x : Float64, @y : Float64)
+  end
+
+  def distance(other : Point) : Float64
+    Math.sqrt((x - other.x) ** 2 + (y - other.y) ** 2)
+  end
+
+  def to_s(io : IO) : Nil
+    io << "(#{x}, #{y})"
+  end
+end
+
+# --- Abstract class ---
+abstract class Animal
+  getter name : String
+  getter age : Int32
+
+  def initialize(@name : String, @age : Int32 = 0)
+  end
+
+  abstract def speak : String
+
+  def to_s(io : IO) : Nil
+    io << "#{name}: #{speak}"
+  end
+end
+
+# --- Class with inheritance ---
+class Dog < Animal
+  include Greeter
+
+  getter breed : String
+
+  def initialize(name : String, age : Int32, @breed : String = "Mixed")
+    super(name, age)
+  end
+
+  def speak : String
+    "Woof!"
+  end
+
+  def greet(person : String) : String
+    "Woof! Hello, #{person}!"
+  end
+end
+
+# --- Generic class ---
+class Container(T)
+  @items = [] of T
+
+  def add(item : T) : Nil
+    @items << item
+  end
+
+  def get(index : Int32) : T?
+    @items[index]?
+  end
+
+  def size : Int32
+    @items.size
+  end
+
+  def each(&block : T -> _)
+    @items.each { |item| yield item }
+  end
+end
+
+# --- Strings ---
+single = 'A'  # Char in Crystal
+double = "Hello, World!"
+interpolated = "Sum: #{1 + 2}"
+escaped = "tab\tnewline\nnull\0"
+heredoc = <<-HEREDOC
+  This is a heredoc
+  with #{interpolated}
+  HEREDOC
+raw = %q(no interpolation #{here})
+command = `echo hello`
+symbol = :my_symbol
+regex = /pattern[a-z]+/i
+
+# --- Numbers ---
+integer = 42
+negative = -17
+hex = 0xFF
+octal = 0o77
+binary = 0b1010
+float_val = 3.14
+scientific = 1.5e10
+underscore = 1_000_000
+
+i8_val = 42_i8
+i16_val = 42_i16
+i32_val = 42_i32
+i64_val = 42_i64
+u8_val = 42_u8
+u32_val = 42_u32
+f32_val = 3.14_f32
+f64_val = 3.14_f64
+
+# --- Booleans & Nil ---
+yes = true
+no = false
+nothing = nil
+
+# --- Variables ---
+local_var = "local"
+@instance_var = "instance" # in class context
+@@class_var = "class"      # in class context
+
+# --- Collections ---
+array = [1, 2, 3, 4, 5]
+empty_array = [] of Int32
+tuple = {1, "hello", true}
+named_tuple = {name: "Alice", age: 30}
+hash = {"name" => "Alice", "age" => 30}
+set = Set{1, 2, 3}
+range = (1..10)
+exclusive = (1...10)
+
+# --- Control flow ---
+if integer > 0
+  puts "positive"
+elsif integer < 0
+  puts "negative"
+else
+  puts "zero"
+end
+
+unless integer == 0
+  puts "not zero"
+end
+
+# Ternary
+result = integer > 0 ? "positive" : "non-positive"
+
+# --- Case ---
+case integer
+when 0
+  puts "zero"
+when 1..10
+  puts "small"
+when .> 100
+  puts "big"
+else
+  puts "other"
+end
+
+# --- Case with type ---
+value = 42.as(Int32 | String | Nil)
+case value
+when Int32
+  puts "integer: #{value}"
+when String
+  puts "string: #{value}"
+when nil
+  puts "nil"
+end
+
+# --- Loops ---
+10.times do |i|
+  break if i == 5
+  next if i == 3
+  puts i
+end
+
+array.each do |item|
+  puts item
+end
+
+i = 10
+while i > 0
+  i -= 1
+end
+
+until i >= 10
+  i += 1
+end
+
+loop do
+  i += 1
+  break if i > 20
+end
+
+# --- Operators ---
+sum = 1 + 2
+diff = 5 - 3
+prod = 4 * 2
+quot = 10 / 3
+modulo = 10 % 3
+power = 2 ** 8
+bit_and = 0xFF & 0x0F
+bit_or = 0x10 | 0x01
+bit_xor = 0xFF ^ 0x0F
+bit_not = ~0
+lshift = 1 << 4
+rshift = 16 >> 2
+logic = true && false || !nil
+spaceship = 1 <=> 2
+
+# --- Methods ---
+def add(a : Int32, b : Int32) : Int32
+  a + b
+end
+
+def greet(name : String, greeting = "Hello") : String
+  "#{greeting}, #{name}!"
+end
+
+def variadic(*args : Int32) : Int32
+  args.sum
+end
+
+# --- Blocks & Procs ---
+square = ->(x : Int32) { x * x }
+result = square.call(5)
+
+def with_logging(&block : -> _)
+  puts "Before"
+  yield
+  puts "After"
+end
+
+with_logging { puts "Inside" }
+
+# --- Exception handling ---
+begin
+  raise "Something went wrong"
+rescue ex : RuntimeError
+  puts "Caught: #{ex.message}"
+rescue ex : Exception
+  puts "General: #{ex.message}"
+ensure
+  puts "cleanup"
+end
+
+# --- Type checking ---
+dog = Dog.new("Rex", 5, "Labrador")
+puts dog.speak
+puts dog.is_a?(Animal)  # true
+puts dog.responds_to?(:speak)  # true
+puts typeof(dog)  # Dog
+puts sizeof(Int32)  # 4
+puts offsetof(Point, @x)
+
+# --- Macros ---
+macro define_method(name, content)
+  def {{name}}
+    {{content}}
+  end
+end
+
+define_method(:hello, puts "hello!")
+
+# --- Annotations ---
+@[Deprecated("Use new_method instead")]
+def old_method
+end
+
+# --- Alias ---
+alias StringArray = Array(String)
+
+# --- Lib (C bindings) ---
+lib LibC
+  fun puts(str : UInt8*) : Int32
+end
+
+# --- Pointers (unsafe) ---
+ptr = Pointer(Int32).malloc(1)
+ptr.value = 42
+puts ptr.value
+
+# --- with ---
+dog = Dog.new("Max", 3)
+with dog
+  puts name
+  puts speak
+end
+
+# --- Uninitialized ---
+x = uninitialized Int32
+
+# --- Self ---
+class Example
+  def self.class_method
+    "class method on #{self}"
+  end
+end