Simple database: Difference between revisions

*   [[Take notes on the command line]]

<br><br>

 

=={{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"

* "CRUDE OIL"^(("2014.10.10.02:00"."HS MEDEA")+("2014.10.10.12:00".GHAZAL));</pre>

 

 

=={{header|C}}==

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

 

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

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

}

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

 

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

item6,2014-06-04T16:01:55,cat4

item7,2014-06-04T16:02:01,cat4</pre>

 

=={{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>

2013-9-16 comic gustaf

</pre>

 

=={{header|Forth}}==

 

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:

item5,2014-06-03 19:30:23,cat3</pre>

 

 

=={{header|Kotlin}}==

{{trans|Java}}

... though not quite the same.

 

import java.text.SimpleDateFormat

else -> printUsage()

}

 

{{out}}

item5, 2018-03-23 16:49:46, cat3

</pre>

 

=={{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}}==

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:

[cds] Some-CD; 2013-01-03

</pre>

 

=={{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

</pre>

 

=={{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'