Simple database: Difference between revisions

{{trans|Kotlin}}

 

String name, date, category

 

printUsage()

E

 

{{out}}

=={{header|Bracmat}}==

This is a rather minimal solution. The program is run from the command line of the operating system, in this example the Windows command prompt. The program is stored in a file called 'sdb':

' ( arg$:?command

& ( get'db

)

);

First we add some records, a some ships that arrived at the harbour in Rotterdam today.

<pre>bracmat "get$sdb" add name "CORONA BULKER" tag "BULK CARRIER" date "2014.10.21.04:00"

"Treasure Beach","Argus","Jemky","09-22-1999","Lancast"

 

#include <stdlib.h> /* malloc */

#include <string.h> /* strlen */

}

else return ((*p1)->date > (*p2)->date);

 

=={{header|C sharp|C#}}==

using System;

using System.IO;

}

}

{{out| Program Input and Output}}

<pre>

This is a souped-up version of the task from [[Take notes on the command line]]. It stores the current date, a tag, a title and a note as an entry in a file. The database produced is not particularly human-readable or easy to modify, but it is in a well-structured format.

{{works with|OpenCOBOL}}

PROGRAM-ID. simple-database.

 

"The title should be specified as shown for -c."

DISPLAY " -t - Show all the entries sorted by tag."

 

Sample session:

Tested with [[Common Lisp]]. ''(Save the code below as db.lisp)''

 

 

(defvar *db-cat* (make-hash-table :test 'equal))

nil))

 

 

 

 

=={{header|D}}==

std.file, std.csv, std.datetime;

 

default: printUsage(); break;

}

{{out}}

<pre>C:\>simdb add item1 cat1

 

=={{header|Erlang}}==

#! /usr/bin/env escript

 

io:fwrite( "Data stored in ~p~n", [file()] ),

init:stop().

Command line session started with these file contents as database:

<pre>

 

Code:

' noop is bootmessage

 

cr cr ;

current !

 

=={{header|Go}}==

 

import (

fmt.Println(err)

}

 

=={{header|Haskell}}==

Item {description = "La traviata", category = ["Classical"], date = Date 2012 10 19, optional = ["Giuseppe Verdi","1853"]}

 

import Data.List (sortBy, nub)

import System.Environment (getArgs, getProgName)

mapM_ (hPutStrLn hw . show) v

hClose hw

 

=={{header|J}}==

J comes with a sql database, jdb. Jdb's columns are memory mapped files with header information. These won't meet the human readable data file requirement. Hence, this program:

 

Commands:

 

 

exit 0

Assume the j code is stored in file s . These bash commands, stored in file input , create a database using add .

$D add name expression algebraic rank valence example explanation

$D add atop 'x f@g y' 'f(g(x,y))' 'rank of g' dyad '>@{.' '(lisp) open the car'

$D add 'many more!'

Now we look up data from the bash command line.

$ . input # source the input

$ echo $D

'2012-02-08:23:45:06.515';'atop';'x f@g y';'f(g(x,y))';'rank of g';'dyad';'>@{.';'(lisp) open the car'

'2012-02-08:23:45:06.539';'many more!'

 

=={{header|Java}}==

{{trans|D}}

{{works with|Java|7}}

import java.text.*;

import java.util.*;

+ "\"some category name\"");

}

 

Output:

Sandy Allen,2002-03-09,Colorado,friend,sandya@mail.com

Fred Kobo,1967-10-10,Colorado,friend,fkobo@example.net</pre>

 

setting = ArgParseSettings()

println("Changes written to file $filename.")

end

 

=={{header|Kotlin}}==

{{trans|Java}}

... though not quite the same.

 

import java.text.SimpleDateFormat

else -> printUsage()

}

 

{{out}}

There are some important differences with D version and Kotlin versions. Firstly, the way to manage the command arguments is somewhat different. And secondly, the database is stored in JSON format rather than in CSV format. Indeed, if Nim provides a parser of CSV files, it provides better support for JSON with procedures for serialization of Nim objects to JSON and deserialization from JSON to Nim objects. This can be seen in the following program.

 

 

const FileName = "simdb.json"

of "all":

if params.len != 0: printUsage()

 

{{out}}

 

=={{header|Perl}}==

use warnings;

use strict;

if $by_date;

}

Sample session<pre> ~ $ db.pl n 'Donald Trump' Republican 2017-01-20

~ $ db.pl n 'Barack Obama' Democratic 2009-01-20

 

=={{header|Phix}}==

<span style="color: #000080;font-style:italic;">--

-- demo\rosetta\Simple_db.exw

<span style="color: #000000;">process</span><span style="color: #0000FF;">(</span><span style="color: #000000;">cl</span><span style="color: #0000FF;">[</span><span style="color: #000000;">3</span><span style="color: #0000FF;">..$])</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">if</span>

Sample session

<pre>

=={{header|PicoLisp}}==

The '[http://software-lab.de/doc/refR.html#rc rc]' resource file handling function is used typically for such tasks. It also takes care of proper locking and protection.

 

(de usage ()

(T (usage)) ) )

 

Test:

<pre>$ sdb CDs add "Title 1" "Category 1" 2011-11-13

=={{header|Pike}}==

{{trans|Common Lisp}} (simplified)

 

mapping make_episode(string series, string title, string episode, array date)

else

watch_list(db);

 

=={{header|PowerShell}}==

function db

{

db -Name Vince -Category family -Birthday 3/10/1960

db -Name Wayne -Category coworker -Birthday 5/29/1962

Here is the data from the CSV file as a PowerShell Object:

db

{{Out}}

<pre>

</pre>

The latest entry:

db -Latest

{{Out}}

<pre>

</pre>

The latest entries by category:

db -LatestByCategory

{{Out}}

<pre>

</pre>

The database sorted on the Birthday property:

db -SortedByDate

{{Out}}

<pre>

 

=={{header|Python}}==

 

'''\

now = datetime.datetime.utcnow()

args._date = now.isoformat()

 

;Sample session (Unix):

 

=={{header|Racket}}==

#!/usr/bin/env racket

#lang racket

(for-each (compose1 show last/cat) (remove-duplicates (map cadr data)))]

[else (error 'sdb "bad printout mode")])])

 

Sample run:

A generic client/server JSON database.<br>

<b>server.raku:</b>

use JSON::Fast ;

sub MAIN( :$server='0.0.0.0', :$port=3333, :$dbfile='db' ) {

spurt "{$dbfile}_index.json", to-json(%index) ;

}

<b>client.raku:</b>

use JSON::Fast ;

multi MAIN('set', $topic, $message='', :$server='localhost', :$port='3333', :$json='') {

}

}

Example:

<pre>./client.raku addindex constructor

 

=={{header|REBOL}}==

write/append %rdb "" db: load %rdb

switch system/options/args/1 [

"sort" [probe sort/skip db 4]

]

 

=={{header|REXX}}==

* 05.10.2014

*--------------------------------------------------------------------*/

Say 'end to end this program'

Say 'Use category - to list items without category'

{{out}}

<pre> Enter your commands, ?, or end

 

=={{header|Ruby}}==

require 'json'

require 'securerandom'

end

 

 

Sample session

 

=={{header|Run BASIC}}==

 

' -------------------------------

' ------ the end -------

[exit]

Output:

 

 

=={{header|Scala}}==

type Entry = Array[String]

def asTSV(e: Entry) = e mkString "\t"

case _ => println("Usage: SimpleDatabase filename.tsv [all [latest]| latest [CATEGORY] | add [DESCRIPTION [CATEGORY [OPTIONAL]...]]]")

}

{{out}}

<pre>> SimpleDatabase

=={{header|Tcl}}==

The format used is that of a Tcl dictionary, where each entry uses the title as a key and the remaining information (category, date and miscellaneous metadata) is the value associated with it. The only variation from the standard internal format is that entries are separated by newlines instead of spaces; this is still a legal value, but is a non-canonical.

package require Tcl 8.6

namespace eval udb {

}

 

Sample session:

wrong # args: should be "udb.tcl dbfile subcommand ?args...?"

bash$ udb.tcl db ?

Title: Title 3

Category: bar

 

=={{header|ToffeeScript}}==

 

prog = require 'commander'

printFormatted entry

 

 

=={{header|UNIX Shell}}==

This format is guaranteed to be human readable: if you can type it, you can read it.

 

db_create() {

show_help

;;

Create DB `CDs'

$ sdb add CDs Bookends

$ sdb drop CDs

Delete DB `CDs'

 

=={{header|Wren}}==

{{libheader|Wren-str}}

Note that since Wren CLI currently has no way of determining the current date/time, a date needs to be input for each item to be added.

 

import "os" for Process

} else {

printUsage.call()

 

{{out}}