lyda

{$mode TP}
program test;
uses keyboard;

begin
  writeln('Hello World.');
end.

lyda

{$mode TP}
program test;
uses baseunix,strings;

const vcs_device:shortint=-1;

function try_grab_vcsa_in_path(path:Pchar;len:cardinal):boolean;

const  grab_vcsa='/grab_vcsa';
       grab_vcsa_s:array[1..length(grab_vcsa)] of char=grab_vcsa;

lyda

program exec_kbd_test;
uses sysutils;

begin
  SysUtils.ExecuteProcess('kbd-test', '', []);
end.

lyda

/**
 * Chunkify
 * Google Chrome Speech Synthesis Chunking Pattern
 * Fixes inconsistencies with speaking long texts in speechUtterance objects
 * Licensed under the MIT License
 *
 * Peter Woolley and Brett Zamir
 *   https://gist.github.com/woollsta/2d146f13878a301b36d7
 * Modified by Haaris for bug fixes
 *   https://gist.github.com/hsed/ef4a2d17f76983588cb6d2a11d4566d6

lyda

func spewJSON(fn, data string) { 
  w, err := os.Create(fn)
  if err != nil { 
    panic(err)
  } 
  defer w.Close()

  var v any
  json.Unmarshal([]byte(data), &v)
  e := json.NewEncoder(w)