Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
|
|
@ -0,0 +1,16 @@
|
|||
(lib 'struct)
|
||||
(lib 'sql)
|
||||
|
||||
(define Postal (make-table
|
||||
(struct postal (auto: id name street city state zip))))
|
||||
|
||||
Postal
|
||||
→ #table:#struct:postal [id name street city state zip]:[0]
|
||||
|
||||
(table-insert Postal '(0 Gallubert "29 rue de l'Ermitage" Paris Seine 75020))
|
||||
(table-insert Postal '(0 Brougnard "666 rue des Cascades " Paris Seine 75042))
|
||||
(table-make-index Postal 'postal.id)
|
||||
(table-print Postal)
|
||||
|
||||
[0] 15 Gallubert 29 rue de l'Ermitage Paris Seine 75020
|
||||
[1] 16 Brougnard 666 rue des Cascades Paris Seine 75042
|
||||
|
|
@ -0,0 +1,37 @@
|
|||
import db.*
|
||||
import util.*
|
||||
|
||||
Class.forName( 'org.h2.Driver' )
|
||||
conn = DriverManager.getConnection( 'jdbc:h2:mem:test', 'sa', '' )
|
||||
statement = conn.createStatement()
|
||||
|
||||
statement.execute( '''
|
||||
CREATE TABLE `user_data` (
|
||||
`id` identity,
|
||||
`name` varchar(255) NOT NULL,
|
||||
`street` varchar(255) NOT NULL,
|
||||
`city` varchar(255) NOT NULL,
|
||||
`region` char(2) NOT NULL,
|
||||
`country` char(2) NOT NULL,
|
||||
`code` varchar(20) NOT NULL,
|
||||
`phone` varchar(20) NOT NULL,
|
||||
PRIMARY KEY (`id`)
|
||||
)''' )
|
||||
|
||||
statement.execute( '''
|
||||
INSERT INTO `user_data` (`name`, `street`, `city`, `region`, `code`, `country`, `phone`) VALUES
|
||||
('Jacinthe Steinert', '8540 Fallen Pony Villas', 'Searights', 'IA', '51584-4315', 'US', '(641) 883-4342'),
|
||||
('Keeley Pinkham', '1363 Easy Downs', 'Mileta', 'TX', '77667-7376', 'US', '(469) 527-4784'),
|
||||
('Rimon Cleveland', '8052 Blue Pond Dale', 'The Willows', 'UT', '84630-2674', 'US', '(385) 305-7261'),
|
||||
('Berenice Benda', '2688 Merry Pines', 'Dacono', 'HI', '96766-7398', 'US', '(808) 451-2732'),
|
||||
('Mehetabel Marcano', '109 Sleepy Goose Crescent', 'Plains', 'UT', '84727-7254', 'US', '(385) 733-8404'),
|
||||
('Ambria Schiller', '7100 Tawny Robin Highway', 'Barlowes', 'ID', '83792-2043', 'US', '(208) 227-8887'),
|
||||
('Carne Cancino', '3842 Broad Pioneer Cape', 'Bardstown', 'IA', '51571-6473', 'US', '(563) 060-8352'),
|
||||
('Ince Leite', '7876 Stony Fawn Boulevard', 'Easton', 'ID', '83651-9235', 'US', '(208) 951-3024'),
|
||||
('Britney Odell', '3386 Lazy Shadow Thicket', 'Kimberly', 'OK', '73539-6632', 'US', '(539) 848-4448'),
|
||||
('Suprabha Penton', '9311 Dusty Leaf Alley', 'Niumalu', 'GA', '39927-8332', 'US', '(404) 589-0183')''' )
|
||||
|
||||
result = statement.executeQuery( '''SELECT * FROM user_data WHERE region = 'ID' ORDER BY code''' )
|
||||
print( TextTable.apply(result) )
|
||||
|
||||
conn.close()
|
||||
|
|
@ -0,0 +1,12 @@
|
|||
// connect to a Mysql database
|
||||
inline(-database = 'rosettatest', -sql = "CREATE TABLE `address` (
|
||||
`id` int(11) NOT NULL auto_increment,
|
||||
`street` varchar(50) NOT NULL default '',
|
||||
`city` varchar(25) NOT NULL default '',
|
||||
`state` char(2) NOT NULL default '',
|
||||
`zip` char(10) NOT NULL default '',
|
||||
PRIMARY KEY (`id`)
|
||||
);
|
||||
") => {^
|
||||
error_msg
|
||||
^}
|
||||
|
|
@ -0,0 +1,18 @@
|
|||
import db_sqlite as db
|
||||
#import db_mysql as db
|
||||
#import db_postgres as db
|
||||
|
||||
const
|
||||
connection = ":memory:"
|
||||
user = "foo"
|
||||
pass = "bar"
|
||||
database = "db"
|
||||
|
||||
var c = open(connection, user, pass, database)
|
||||
c.exec sql"""CREATE TABLE address (
|
||||
addrID INTEGER PRIMARY KEY AUTOINCREMENT,
|
||||
addrStreet TEXT NOT NULL,
|
||||
addrCity TEXT NOT NULL,
|
||||
addrState TEXT NOT NULL,
|
||||
addrZIP TEXT NOT NULL)"""
|
||||
c.close()
|
||||
|
|
@ -0,0 +1,17 @@
|
|||
require('DBI');
|
||||
|
||||
var db = %s'DBI'.connect('DBI:mysql:database:server','login','password');
|
||||
|
||||
var statment = <<'EOF';
|
||||
CREATE TABLE `Address` (
|
||||
`addrID` int(11) NOT NULL auto_increment,
|
||||
`addrStreet` varchar(50) NOT NULL default '',
|
||||
`addrCity` varchar(25) NOT NULL default '',
|
||||
`addrState` char(2) NOT NULL default '',
|
||||
`addrZIP` char(10) NOT NULL default '',
|
||||
PRIMARY KEY (`addrID`)
|
||||
);
|
||||
EOF
|
||||
|
||||
var exec = db.prepare(statment);
|
||||
exec.execute;
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
CLOSE DATABASES ALL
|
||||
CREATE DATABASE usdata.dbc
|
||||
SET NULL OFF
|
||||
CREATE TABLE address.dbf ;
|
||||
(id I AUTOINC NEXTVALUE 1 STEP 1 PRIMARY KEY COLLATE "Machine", ;
|
||||
street V(50), city V(25), state C(2), zipcode C(10))
|
||||
CLOSE DATABASES ALL
|
||||
*!* To use
|
||||
CLOSE DATABASES ALL
|
||||
OPEN DATABASE usdata.dbc
|
||||
USE address.dbf SHARED
|
||||
Loading…
Add table
Add a link
Reference in a new issue