Snippets of code from Antiquity...

				
   xhr = {
	//normally we would use a platform (jQuery or dojo xhr) AJAX call,    
	//but for purposes of showing how it really works, I've rolled my own 
	serviceURL: "services/experDemo.json",
	
	get: function(service,param) {
	  if (typeof window.ActiveXObject != 'undefined' ) {
	    xmlDoc = new ActiveXObject("Microsoft.XMLHTTP");
	    xmlDoc.onreadystatechange = this.callback ;
	  }
	  else {
	    xmlDoc = new XMLHttpRequest();
	    xmlDoc.onload = this.callback;
	  }
	  //stub file for this demo
	  var url=this.serviceURL + '?' + service + '=' + param;
	  xmlDoc.open( "GET", url, true );
	  xmlDoc.send( null );
	},
	
	callback: function() {
	  //asysnchronus callback
	  if ( xmlDoc.readyState != 4 ) return ;
	  var respObj=eval(xmlDoc.responseText);
	  view.setResult(respObj);
	}
  };
				
   view = {
	getCityList: function() {
	  var zip=document.forms[0].zipCode;
	  xhr.get('zipCode',zip.value);
	},
	
	setResult: function(obj){
	  var label=document.getElementById('label');
	  label.style.display='inline';
	
	  var target=document.getElementById('CityList');		
	  target.innerHTML="";
	  if (obj==null) {
	    target.innerHTML="none found matching zip";
	  }
	  else {
	    for (i=0; i<obj.length;i++) {
	      target.innerHTML+=obj[i].cityName+", "+obj[i].stateCode+<br />'; 
	    }
	  }
	 }
  }; 
				
	

  async componentDidMount() {
	let response = await fetch(API + this.state.verb + "=" + this.state.text);
	let json = await response.json();
	if (json && json.count > 0) {
	 let rows = json.payload;
	 this.setState( { rows } ) 
	 for (var i=0; i< rows.length; i++){
	   rows[i].city = rows[i].consumer.city;
	   rows[i].make = rows[i].vehicle[0].make;
	   rows[i].rgn = rows[i].consumer.state;
	   rows[i].formerInsurer = rows[i].coverage.former_insurer;
	 }
	}
	else {
	  this.setState( { rows: [] } ) 
	}
  }
				
		

CREATE TRIGGER chg AFTER UPDATE ON tickets
FOR EACH ROW BEGIN
INSERT INTO revision
(ticketID, event, empID, dt) VALUES
(OLD.ticketID, 'MODIFY', OLD.empID, OLD.dt);
END;

SELECT p.empnameidx as 'Emp ID', p.rate, p.amt, p.phaseidx as 'Phase ID', n.lastname
FROM pr_trx_detail p LEFT JOIN fc_name n
ON p.empnameidx = n.nameidx
WHERE p.trxdate > '12-MAY-2008'
ORDER BY p.amt DESC

http://royfarms.com/mdwinestore/portal.nsf/report?openagent&query:[form]%3Dlot+or+([form]%3Dload+and
+[type]%3DIncoming)+and+[_CreationDate].GT._30DaysPast+and+[customerIdent]%3D98072& ....



The url corresponds to a Domino Full Text Query


[form]=lot or ([form]=load and [type]=Incoming) and [_CreationDate]>_30DaysPast and [customerIdent]=98072


that returns a tabular report ... 
most folks don't realize Domino can be programmed "relationally" ...
 afterall, it's all just *SET THEORY* 

package urlParser;
import java.util.*;

/**
* StringUtils

* A collection of useful string utilities developed in prehistoric Java days.
* @author Paul Smith
*
*/
class StringUtils{

/**
* parseURL

* Parse a set of url symbol:value pairs into a Hashtable so that it be accessed by symbol
* @param str string of symbol-value pairs; i.e. &symbol_1:val_1&symbol_2:val_2
* @param delimRow typically an ampersand &
* @param delimCols typically a colon :
* @return a Hashtable of the symbol-value pairs
*/	
public Hashtable parseURL(String str, String delimRows, String delimCols) {
Hashtable table = new Hashtable();
try 
{
 StringTokenizer tableRows = new StringTokenizer(str, delimRows);
 int numRows = tableRows.countTokens();
 int i = 0;
 final int PAIR=2;
 do
 {
     String row = tableRows.nextToken();
     StringTokenizer tableCols = new StringTokenizer(row,delimCols);
     int numCols = tableCols.countTokens();
     if (numCols == PAIR)
     { 
         String label = tableCols.nextToken();
         String content = tableCols.nextToken();
         table.put(label,content);
     }
     i++;
     tableCols=null;
 } while (i < numRows);
} 
catch(Exception e) 
{
 System.out.println("Exception thrown in parseURL");
}
return table;
} 
// ...

}

<?php
//this code shows how to:
//receive input via a xhrget
//connect to a db
//determine if its an update or insert
//respond with a table of data
header('Content-type: application/json'); 
function showerror()
{
die("Error " . mysql_errno() . " : " . mysql_error());
}

//(1) open the database connection
$connection=mysql_connect("localhost","userName","password");

//(2) open connection and select binticket database
mysql_select_db("binticket",$connection);

//(3) set target table for data to be inserted or updated

$targetTable="tickets";
//(4) retreive from url of xhr get

$ticket=$_GET["ticket"];
//pad leading  zeros if necessary
$ticket=str_pad($ticket,5,"0",STR_PAD_LEFT);
//samething, but padding incorporated in input line
$emp=$_GET["emp"];
if (strtolower($emp)=="void") 
{
$emp="void ";
}
else
{
$empval=intval($emp);
$emp=str_pad($empval,5,"0",STR_PAD_LEFT);
}
//(5) see if the row with primary key ticketID already exists

$searchQuery = "SELECT ticketID FROM {$targetTable} WHERE ticketID={$ticket}";
$result=mysql_query($searchQuery,$connection);
if(mysql_num_rows($result)==0)
{
print "Inserted Data";
$insertData="INSERT INTO {$targetTable}
        (ticketID,empID)
        VALUES ('{$ticket}','{$emp}')";
}
else
{
print "Existing Data, updated if new empID";
$insertData="UPDATE {$targetTable}
        SET empID='{$emp}'
        WHERE ticketID={$ticket}";		
}
//(6) interface with the database table
if (!mysql_query($insertData,$connection))
showerror();
 
//(7) Query the database and output to the xhr handler as a table
$query="SELECT ticketID, empID, dt FROM tickets order by ticketID";
$result=mysql_query ($query, $connection);
print "<Table border=1 cellspacing=0 cellpadding=3>";
print "<TH>Bin Ticket</TH><TH>Employee ID</TH><TH>Date</TH>";
//While there are still rows in the result set, get the current row into the array $row
while ($row=mysql_fetch_array($result))
{
print "<TR><TD> {$row["ticketID"]} </TD><TD> {$row["empID"]} </TD><TD> {$row["dt"]} </TD></TR>";
}
print "</Table>";
?>

Sub Initialize
'note the colon : char seems to interrupt the xml stream
'this AJAX agent uses the bems, list of source fields and list of target symbols
'to provide a web server for various name related pickers

Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As notesdocument
Dim qString As String
Dim thisAgent As String
Dim bems As String
Dim fieldList As String
Dim symbolList As String
Print "Content-Type: text/xml" 'xml output	
Set doc = s.documentcontext
Set db = s.currentdatabase	
qString = doc.QUERY_STRING(0) + "&"
thisAgent = takeFromFifo(qString,"&")
bems=takeFromFifo(qString,"&")
fieldList=takeFromFifo(qString,"&")
symbolList=takeFromFifo(qString,"&")
''fieldList and symbol list might look like this:
''fieldList ="EmailAddr,RepTelNbr,MsCd,RepDsgntdTtl,repnm,repnm,"
''symbolList="RegMgrEmail,RegMgrTel,RegMgrMailCd,RegMgrTtl,RegMgrDisp,RegMgr,"
Print ""	
Print getAJAXinfo(s, db, bems, fieldList, symbolList)
Print ""
End Sub



Function getAJAXinfo(s As notessession, db As notesdatabase, bems As String, fieldList As String, symbolList As String) As String
'this function will return a formatted string consisting
'of info from the rep data document as described in fieldList
'and return a keyed list as set in symbolList
Dim vStatic As notesview
Dim staticData As notesdocument
Dim path As String
Dim lookupDB As NotesDatabase
Dim vBEMS As notesView
Dim repDataDoc As notesdocument
Dim field As String
Dim symbol As String
Dim fieldVal As String
Dim tv As String

On Error Goto ErrorHandler
Set vBEMS=db.GetView("BEMS")
Set repDataDoc=vBEMS.getDocumentByKey(bems,True)
If repDataDoc Is Nothing Then
 getAJAXinfo="Error=not found"
End If
'systematically find the info in the doc and tag with the symbol  =  value  &~ 
tv=""
field=takeFromFifo(fieldList,",")
While Not field=""
 fieldVal=Cstr(repDataDoc.getItemValue(field)(0))
 symbol=takeFromFifo(symbolList,",")
 tv=tv & symbol & "=" & fieldVal & "~~"
 field=takeFromFifo(fieldList,",")
Wend
getAJAXinfo=tv

Exit Function

ErrorHandler:
Print "Error=repdataAJAX.getAJAXInfo agent at line " + Cstr(Erl) + Error	

End Function


Function takeFromFifo(fifo As String, delim As String) As String
'return the first item in the queue and delete it from the queue
Dim takeStr As String
Dim x As Integer
x = Instr(fifo, delim)
If x > 1 Then
 takeStr = Left(fifo, x - 1)
 fifo = Right(fifo, Len(fifo) - x)
 TakeFromFifo = takeStr
Else
 TakeFromFifo = ""
End If

End Function

//potential web demo ... have a uav fly inside a dojo animation on the web

//then let people fly the uav over google earth
#include 
using namespace std;

// typedef allows us to give something a new simpler name
typedef struct position UAVState;
typedef struct weapon WEAPON;
typedef struct inventory INVENTORY;
//a global data element
struct position {
  float lat;
  float lon;
};
//many weapons in a in single mission's worth of UAVWeapons

struct weapon {
  int ammoCount;
  char *name;
  int damage;
}; 

struct inventory {
  WEAPON weapon1; /* struct within a struct */
  char *name;
  int missionIDent;
};

//declare prototype global functions
void info(UAVState uav);  
UAVState update(UAVState *r);
UAVState init();

int main() {

UAVState uav= init();
printf("\nPosition After Init "); 
info(uav);

update(&uav);
printf("\nPosition After Update "); 
info(uav);
//initialization should be moved to a sub

INVENTORY manifest = { 
{100,     /* onboard.weapons.count */
"GPS Guided Grenades", /* onboard.weapons.name */
16},      /* onboard.weapons.damage =16 ft circle*/
"IED Positioning Deter", /* onboard.name */
867};     /* onboard.missionID */
INVENTORY *onboard;
WEAPON *weapons;

onboard = &manifest;

weapons = &manifest.weapon1;

printf("Goal: %s\n", onboard->name);
printf("Mission ID: %d\n", onboard->missionIDent);
printf("Weapons: %s\n", weapons->name);
printf("Damage radius: %d meters\n", weapons->damage);
printf("Inventory remaining: %d\n", onboard->weapon1.ammoCount);

return 0;
}

void info(UAVState uav) {
 printf("%f %f\n", uav.lat, uav.lon);
}

//this creates and returns a new static UAVState object

UAVState init() {
UAVState uav={33,68};
return uav;
}

//this updates an existing UAVState object
//note: we pass a handle to an existing object

UAVState update(UAVState *uav) {
//for example
uav->lat =33.551667; //normally a device output read
uav->lon =68.536611;
}

	package main
	
	import "fmt"
	import "math/rand"
	
	
	func factorial(i int)int {
	if(i <= 1) {
	  return 1
	}
	return i * factorial(i - 1)
	}
	
	func sum(numbers []int) int {
	if len(numbers) <= 1 {
	  return numbers[0]
	}
	return  numbers[0] + sum(numbers[1:]) 
	}
	
	func max(list []int) int {
	  if len(list) == 2 {
		if list[0] > list[1]{
			return list[0]
		} 
		return list[1]
	}
	subMax := max(list[1:])
	if list[0] > subMax {
		return list[0]
	} 
	return subMax
	}
	
	func count(list []int) int {
	if len(list) == 0 {
		return 0
	}
	return 1 + count(list[1:])
	}
	
	func binarySearch(list []int, target int, low int, high int) (index int, found bool) {
	if low > high { //indexes crossed over, item not found
	  index = -1
	  found = false
	} else {
	  mid := (high + low) / 2
	  if target < list[mid] {
		index, found = binarySearch(list, target, low, mid + 1)
	  } else if target > list[mid] {
		index, found = binarySearch(list, target, mid + 1, high)
	  } else if target == list[mid] {
		index = mid
		found = true
	  } else {
		index = -1
		found = false
	  }
	}
	return
	}
	
	//for a given ordinate, returns its corresonding fib number
	func fibonacciRecursion(n int) int {
	if n <= 1 {
		return n
	}
	return fibonacciRecursion(n-1) + fibonacciRecursion(n-2)
	}
	
	func quickSort(arrayz []int) []int {
	
	if len(arrayz) <= 1 {
		return arrayz
	}
	median := arrayz[rand.Intn(len(arrayz))]
	low := make([]int, 0, len(arrayz))
	high := make([]int, 0, len(arrayz))
	middle := make([]int, 0, len(arrayz))
	for _, item := range arrayz {
		switch {
		case item < median:
			low = append(low, item)
		case item == median:
			middle = append(middle, item)
		case item > median:
			high = append(high, item)
		}
	}
	
	low = quickSort(low)
	high = quickSort(high)
	
	low = append(low, middle...)
	low = append(low, high...)
	
	return low
	}
	
	func main() { 
	  i := 5 //factoral
	  fmt.Printf("Factorial of %d is %d\n", i, factorial(i))
	  numbers := []int{4,6,8,100, 101}
	  fmt.Println("Sum is: ", sum(numbers))
	  fmt.Println("Max is: ", max(numbers))
	  fmt.Println("Count is ", count(numbers))
	  target := 100;
	  index, found := binarySearch ( numbers, target, 0, len(numbers)-1 )
	  fmt.Println("Search index is", index , found)
	  //generate the sequence for the first n numbers 
	  const SLEN int = 8
	  fmt.Printf("Fibonacci Recursion:")
	  for n:=0; n < SLEN; n++ {
	    fmt.Print(" ", fibonacciRecursion(n))
	  }
	  randArray := []int { 100, 200, 30, 40, 45, 2, 0}
	  fmt.Println("")
	  fmt.Println("Sorted array is", quickSort(randArray))
	}