Official Golf Blog: programming language, framework and application server
To create a Golf installation package for Fedora or RedHat (or similar based on those, like Rocky), first get Golf source code. To do that, install git first:
sudo dnf install git
Then get Golf source code:
git clone https://github.com/golf-lang/golf.git
cd golf
For Redhat/Rocky/etc. install EPEL:
sudo dnf install epel-release
Next, install rpm-build package:
sudo dnf install rpm-build
On Fedora,
If you'd like to create a Golf installation package for Ubuntu or Debian (or similar based on those), first get Golf source code. To do that, install git first:
sudo apt update
sudo apt install git
Then get Golf source code:
git clone https://github.com/golf-lang/golf.git
cd golf
Before you can create a package, you must first install Debian tools:
sudo apt update
sudo apt -y install devscripts equivs build-essential lintian
Next,
mkdir -p srv-example cd srv-example mkdir -p clientCopied!
begin-handler /srv public silent-header @Hello world! end-handlerCopied!
gg -k hello
Copied!
gg -q --exclude-dir=clientCopied!
mgrg -w 1 helloCopied!
cd client
Copied!
#include "gcli.h" int golf_client (gg_cli *req, char *connection, char *method, char *app_path, char *request, char *url_params); int golf_client (gg_cli *req, char *connection, char *method, char *app_path, char *request, char *url_params) { memset ((char*)req, 0, sizeof(gg_cli)); req->server = connection; req->req_method = method; req->app_path = app_path; req->req = request; req->url_params = url_params; return gg_cli_request (req); } void main () { int i; for (i = 0; i < 100000; i++) { gg_cli req; int res = golf_client (&req, "/var/lib/gg/hello/sock/sock", "GET", "/hello", "/srv", "/"); if (res != GG_OKAY) printf("Request failed [%d] [%s]\n", res, req.errm); else printf("%s", gg_cli_data(&req)); gg_cli_delete(&req); } }Copied!
gcc -o cli cli.c $(gg -i) -O3Copied!
./cliCopied!
mkdir -p c-api cd c-apiCopied!
begin-handler /srv public silent-header do-once new-tree ind process-scope end-do-once get-param op get-param key get-param data if-true op equal "add" write-tree ind key (key) value data status st if-true st equal GG_ERR_EXIST @Key exists [<<p-out key>>] else-if @Added [<<p-out key>>] end-if else-if op equal "delete" delete-tree ind key (key) value val status st if-true st equal GG_ERR_EXIST @Not found [<<p-out key>>] else-if @Deleted, old value was [<<p-out val>>] end-if else-if op equal "query" read-tree ind equal (key) value val status st if-true st equal GG_ERR_EXIST @Not found, queried [<<p-out key>>] else-if @Value [<<p-out val>>] end-if end-if end-handlerCopied!
Golf's AUR page is https://aur.archlinux.org/packages/golf
You can build a pacman package from it, and install Golf from that package (on this or other machines):
You can install Golf from precompiled binaries provided by Launchpad which is Ubuntu service that builds Golf directly from its github source code repo.
You would add Golf repo:
sudo add-apt-repository ppa:golf-lang/golf sudo apt update
And then install Golf with:
sudo apt install golf
You can then manage the package using standard Ubuntu apt tools.
mkdir -p mail cd mailCopied!
gg -k mail-sender
Copied!
begin-handler /mail public // Get URL parameter get-param action if-true action equal "show_form" // Display HTML form @<h2>Enter email and click Send to send it</h2> @Note: 'From' field must be the email address from the domain of your server.<br/><br/> @<form action="<<p-path "/mail">>" method="POST"> @ <input type="hidden" name="action" value="submit_form"> @ <label for="from_mail">From:</label><br> @ <input type="text" name="from_mail" value=""><br> @ <label for="to_mail">To:</label><br> @ <input type="text" name="to_mail" value=""><br><br> @ <label for="subject_mail">Subject:</label><br> @ <input type="text" name="subject_mail" value=""><br><br> @ <label for="message">Message:</label><br> @ <textarea name="message" rows="3" columns="50"></textarea> @ <br/><br/> @ <input type="submit" value="Send"> @</form> else-if action equal "submit_form" // Get data from HTML form get-param from_mail get-param to_mail get-param message get-param subject_mail // Construct email message write-string msg @From: <<p-out from_mail>> @To: <<p-out to_mail>> @Subject: <<p-out subject_mail>> @ <<p-out message>> end-write-string // Send email exec-program "/usr/sbin/sendmail" args "-i", "-t" input msg status st // Check status of email sending if-true st not-equal GG_OKAY @Could not send email! else-if @Email sent! end-if @<hr/> else-if @Unrecognized action!<hr/> end-if end-handlerCopied!
mkdir -p json cd jsonCopied!
{ "country": [
{
"name": "USA",
"state": [
{
"name": "Arizona",
"city": [
{
"name" : "Phoenix",
"population": 5000000
} ,
{
"name" : "Tuscon",
"population": 1000000
}
]
} ,
{
"name": "California",
"city": [
{
"name" : "Los Angeles",
"population": 19000000
},
{
"name" : "Irvine"
}
]
}
]
} ,
{
"name": "Mexico",
"state": [
{
"name": "Veracruz",
"city": [
{
"name" : "Xalapa-EnrÃquez",
"population": 8000000
},
{
"name" : "C\u00F3rdoba",
"population": 220000
}
]
} ,
{
"name": "Sinaloa",
"city": [
{
"name" : "Culiac\u00E1n Rosales",
"population": 3000000
}
]
}
]
}
]
}
Copied!
begin-handler /parse-json public // Read the JSON file read-file "countries.json" to countries status st if-true st lesser-equal 0 @Cannot read file or file empty exit-handler -1 end-if // Parse JSON json-doc countries no-enum status st error-text et error-position ep to json // Check for errors in JSON document if-true st not-equal GG_OKAY @Error [<<p-out et>>] at [<<p-num ep>>] exit-handler -2 end-if // This is the JSON element we're looking for set-string city_name unquoted ="country"."state"."city"."name" // Read elements one by one - note you can then store them in a tree or hash for future fast searches start-loop // Read just a key read-json json key k type t // Exit if end of document if-true t equal GG_JSON_TYPE_NONE break-loop end-if // If matches key we're looking for, get the value, and output it if-true city_name equal k read-json json value v @Value [<<p-out v>>] @-------- end-if // Move on to the next JSON element read-json json next end-loop // Optionally delete JSON object, or it will be automatically deleted json-doc delete json end-handlerCopied!
mkdir enc_example cd enc_example gg -k encCopied!
begin-handler /encrypt public set-string str = "This contains a secret code, which is Open Sesame!" // Encrypt encrypt-data str to enc_str password "my_password" p-out enc_str @ // Decrypt decrypt-data enc_str password "my_password" to dec_str p-out dec_str @ end-handlerCopied!
set-string str='hello'
set-number num = 10+str[0]set-string str[10] = 'a'set-number byte = str[10]
mkdir ~/local_server cd ~/local_serverCopied!
begin-handler /status public silent-header get-param server get-param days pf-out "/server/remote-status/days=%s", days to payload pf-out "%s:3800", server to srv_location new-remote srv location srv_location \ method "GET" url-path payload \ timeout 30 call-remote srv read-remote srv data dt @Output is: [<<p-out dt>>] end-handlerCopied!
mkdir filemgr cd filemgr gg -k file-managerCopied!
echo "create user $(whoami); create database db_file_manager with owner=$(whoami); grant all on database db_file_manager to $(whoami); \q" | sudo -u postgres psqlCopied!
echo "user=$(whoami) dbname=db_file_manager" > dbCopied!
echo "create table if not exists files (fileName varchar(100), localPath varchar(300), extension varchar(10), description varchar(200), fileSize int, fileID bigserial primary key);" | psql -d db_file_managerCopied!
begin-handler /start public @<h2>File Manager</h2> @To manage the uploaded files, <a href="<<p-path "/list">>">click here.</a><br/> @<br/> @<form action="<<p-path "/upload">>" method="POST" enctype="multipart/form-data"> @ <label for="file_description">File description:</label><br> @ <textarea name="filedesc" rows="3" columns="50"></textarea><br/> @ <br/> @ <label for="filename">File:</label> @ <input type="file" name="file" value=""><br><br> @ <input type="submit" value="Submit"> @</form> end-handlerCopied!