T. Kurt Bond tkurtbond

Oberon-3

A new experimental Oberon-3 dialect arose in the process of rethinking and improving the Ofront + translator. It is most similar to Component Pascal, so only the differences will be listed below.

Especially recommended for development for 8, 16 and 32-bit microcontrollers. Although it is perfectly adapted for development for 64-bit architectures.

	/* tpop_match.c -- The regexp matcher from The Practice of Programming. */
	/* See: http://genius.cat-v.org/brian-kernighan/articles/beautiful */

	/* This code is a simple regular expression matcher that implements
	the following constructs:

	c matches any literal character c
	. matches any single character
	^ matches the beginning of the input string
	$ matches the end of the input string

	(* Match.Mod -- The regexp matcher from The Practice of Programming, translated to Oberon-2. *)
	(* See: http://genius.cat-v.org/brian-kernighan/articles/beautiful *)

	(* This code is a simple regular expression matcher that implements
	the following constructs:

	c matches any literal character c
	. matches any single character
	^ matches the beginning of the input string
	$ matches the end of the input string

	MODULE generic;

	IMPORT Out;

	TYPE ListItem = POINTER TO ListDesc;
	ListDesc = RECORD
	next: ListItem;
	END;

	IntegerItem = POINTER TO IntegerDesc;

	with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
	with Ada.Text_IO; use Ada.Text_IO;
	with Ada.Integer_Text_IO; use Ada.Integer_Text_Io;
	with Ada.Text_IO.Unbounded_IO; use Ada.Text_IO.Unbounded_IO;
	with Ada.Containers.Vectors;
	procedure split_unbounded is
	package Unbounded_String_Vectors is new
	Ada.Containers.Vectors (Natural, Unbounded_String);
	use Unbounded_String_Vectors;

	with Ada.Strings; use Ada.Strings;
	with Ada.Strings.Bounded; use Ada.Strings.Bounded;
	with Ada.Text_IO.Bounded_IO;
	with Ada.Text_IO; use Ada.Text_IO;
	with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;
	with Ada.Containers.Vectors;
	procedure split_bounded is
	package B_String is new
	Ada.Strings.Bounded.Generic_Bounded_Length (Max => 128);
	use B_String;

	(load-library "cl-indent") ; defines the common-lisp-indent-function properties
	(setq lisp-indent-function 'common-lisp-indent-function)
	(cl-loop for symbol being the symbols
	for cl-indent-rule = (get symbol 'common-lisp-indent-function)
	for elisp-equivalent = (intern-soft (concat "cl-" (symbol-name symbol)))
	when (and cl-indent-rule elisp-equivalent (fboundp elisp-equivalent))
	do (put elisp-equivalent 'common-lisp-indent-function cl-indent-rule))

	(module get-gemini-atom ()

	(import (scheme))
	(import (chicken base))
	(import (chicken file))
	(import (chicken process-context))
	(import (chicken condition))

	(import (utf8))
	(import args)

	(defvar tkb-beep-sound "/usr/share/sounds/freedesktop/stereo/bell.oga")
	(defvar tkb-beep-program "ogg123")

	(defun tkb-bell ()
	(interactive)
	(start-process "Beep" nil tkb-beep-program
	tkb-beep-sound))

	(setq ring-bell-function #'tkb-bell)

	(defun tkb-select-frame-popup ()
	(interactive)
	(let* ((frames (cl-loop for frame in (frame-list)
	collect (cons (frame-parameter frame 'name)
	frame)
	into frames finally return frames))
	(frame (x-popup-menu t `("Pick a frame" ("frames" ,@frames)))))
	(when frame
	(raise-frame frame)
	(select-frame frame))))