abs-number <number> to <absolute number>

 set-number my_num = -10
 abs-number my_num to abs_num
 print-out abs_num new-line

 after-handler
 ...
 end-after-handler

 after-handler
      @Hi there!!
 end-after-handler

 run-query @mydb = ...

 //or

 begin-transaction @sales_db

 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 [<<print-out key>>]
         else-if
             @Added [<<print-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 [<<print-out key>>]
         else-if
             @Deleted, old value was [<<print-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 [<<print-out key>>]
         else-if
             @Value [<<print-out val>>]
         end-if
     end-if
 end-handler

 #include "gcli.h"

 int golf_client (gg_cli *req, char *connection, char *method, char *app_path, char *request, char *url_params);

 // Send request to Golf server and receive reply
 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 res;
     char *urlreq, *data;
     gg_cli req;

     urlreq = "/op=add/key=some_key/data=some_data"; // Add data
     res = golf_client (&req, "/var/lib/gg/index/sock/sock", "GET", "/index", "/srv", urlreq);
     if (res != GG_OKAY) printf("Request failed [%d] [%s]\n", res, req.errm); else printf("%s", gg_cli_data(&req));
     gg_cli_delete(&req);

     urlreq = "/op=query/key=some_key"; // Query data
     res = golf_client (&req, "/var/lib/gg/index/sock/sock", "GET", "/index", "/srv", urlreq);
     if (res != GG_OKAY) printf("Request failed [%d] [%s]\n", res, req.errm); else printf("%s", data = gg_cli_data(&req));
     gg_cli_delete(&req);

     urlreq = "/op=delete/key=some_key"; // Delete data
     res = golf_client (&req, "/var/lib/gg/index/sock/sock", "GET", "/index", "/srv", urlreq);
     if (res != GG_OKAY) printf("Request failed [%d] [%s]\n", res, req.errm); else printf("%s", data=gg_cli_data(&req));
     gg_cli_delete(&req);
 }

 begin-handler /biscuit
     get-param action

     if-true action equal "enter-cookie"
         // Display a form to get cookie value
         @<h2>Enter your name</h2>
         @<form action="<<print-path "/biscuit">>" method="POST">
         @    <input type="hidden" name="action" value="save-cookie">
         @    <label for="cookie-value">Your name:</label><br/>
         @    <input type="text" name="cookie-value" value=""><br/>
         @    <br/>
         @    <input type="submit" value="Submit">
         @</form>

     else-if action equal "save-cookie"
         // Submittal of form: save the cookie through response to the browser
         get-param cookie_value
         get-time to cookie_expiration year 1 timezone "GMT"
         set-cookie "customer-name" = cookie_value  expires cookie_expiration  path "/"
         @Cookie sent to browser!
         @<hr/>

     else-if action equal "query-cookie"
         // Web request that delivers cookie value back here (to server); display it.
         get-cookie name="customer-name"
         @Customer name is <<print-out name web-encode>>
         @<hr/>

     else-if
         @Unrecognized action<hr/>
     end-if
 end-handler

  begin-handler /parse
      silent-header
      set-string str = "a=1&b=2&c=3"
      // Split string using "&" as a delimiter
      split-string str with "&" to pair count pair_tot
      start-loop repeat pair_tot use pair_count
          read-split pair_count from pair to item
          // Now split each item using "=" as a delimiter
          split-string item with "=" to equal
          read-split 1 from equal to name
          read-split 2 from equal to value
          // Output each name/value
          print-format "Name [%s] value [%s]\n", name, value
      end-loop
  end-handler

 begin-handler /status public
     silent-header
     get-param server
     get-param days

     print-format "/server/remote-status/days=%s", days to payload
     print-format "%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: [<<print-out dt>>]
 end-handler

 begin-handler /remote-status public
     silent-header
     get-param days

     print-format "Status in the past %s days is okay", days
 end-handler

 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"
     print-out enc_str
     @
     // Decrypt
     decrypt-data enc_str password "my_password" to dec_str
     print-out dec_str
     @
 end-handler

 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" binary
     // Save the encrypted data to a file
     write-file "encrypted_data" from enc_str
     get-app directory to app_dir
     @Encrypted data written to file <<print-out app_dir>>/encrypted_data
     // Decrypt data
     decrypt-data enc_str password "my_password" binary to dec_str
     print-out dec_str
     @
 end-handler

 begin-handler /encrypt public
     set-string str = "This c\000ontains a secret code, which is Open Sesame!"
     // Encrypt
     encrypt-data str to enc_str password "my_password" input-length 12
     print-out enc_str
     @
     // Decrypt
     decrypt-data enc_str password "my_password" to dec_str
     // Output binary data; present null byte as octal \000

     string-length dec_str to res_len
     start-loop repeat res_len use i start-with 0
         if-true dec_str[i] equal 0
             print-out "\\000"
         else-if
             print-format "%c", dec_str[i]
         end-if
     end-loop
     @
 end-handler

 begin-handler /encrypt public
     set-string str = "This contains a secret code, which is Open Sesame!"
     // Encrypt data
     encrypt-data str to enc_str password "my_password" \
         cipher "CAMELLIA-256-CFB1" digest "SHA3-512"
     print-out enc_str
     @
     // Decrypt data
     decrypt-data enc_str password "my_password"  to dec_str \
         cipher "CAMELLIA-256-CFB1" digest "SHA3-512"
     print-out dec_str
     @
 end-handler

 begin-handler /encrypt public
     set-string str = "This contains a secret code, which is Open Sesame!"
     // Get salt
     random-string to rs length 16
     // Encrypt data
     encrypt-data str to enc_str password "my_password" salt rs
     @Salt used is <<print-out rs>>, and the encrypted string is <<print-out enc_str>>
     // Decrypt data
     decrypt-data enc_str password "my_password" salt rs to dec_str
     print-out dec_str
     @
 end-handler

 begin-handler /encrypt public
     // Get salt
     random-string to rs length 16
     // Encrypt data
     start-loop repeat 10
         random-string to iv length 16
         encrypt-data "The same message" to enc_str password "my_password" salt rs iterations 2000 init-vector iv cache
         @The encrypted string is <<print-out enc_str>>
         // Decrypt data
         decrypt-data enc_str password "my_password" salt rs iterations 2000 init-vector iv to dec_str cache
         print-out dec_str
         @
     end-loop
 end-handler

 begin-handler /list
     silent-header

     // Create a list
     new-fifo mylist

     // Add data to the list
     write-fifo mylist key "key1" value "value1"
     write-fifo mylist key "key2" value "value2"

     start-loop
      // Get data from the list
      read-fifo mylist key k value v status st
      // Check if no more data
      if-true st not-equal GG_OKAY
          break-loop
      end-if
      @Obtained key <<print-out k>> with value <<print-out v>>
     end-loop

     // Go through the list again, use rewind-fifo for that
     rewind-fifo mylist
     start-loop
         read-fifo mylist key k value v status st
         if-true st not-equal GG_OKAY
             break-loop
         end-if
         @Again obtained key <<print-out k>> with value <<print-out v>>
     end-loop

     // Delete FIFO list
     purge-fifo mylist
 end-handler

 begin-handler /start public
    @<h2>File Manager</h2>
    @To manage the uploaded files, <a href="<<print-path "/list">>">click here.</a><br/>
    @<br/>
    @<form action="<<print-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-handler

 begin-handler /list public
     @<h2>List of files</h2>
     @To add a file, <a href="<<print-path "/start">>">click here</a><br/><br/>
     @<table border="1">
     @<tr>
     @    <td>File</td><td>Description</td><td>Size</td><td>Show</td><td>Delete</td>
     @</tr>
     run-query @db= \
         "select fileName, description, fileSize, fileID from files order by fileSize desc" \
         output file_name, description noencode, file_size, file_ID
         @<tr>
         @    <td><<print-out file_name web-encode>></td><td><<print-out description web-encode>><td><<print-out file_size web-encode>></td>
         @    <td><a href="<<print-path "/download">>/file_id=<<print-out file_ID url-encode>>">Show</a></td>
         @    <td><a href="<<print-path "/delete">>/action=confirm/file_id=<<print-out file_ID url-encode>>">Delete</a></td>
         @</tr>
     end-query
     @</table>
 end-handler

 begin-handler /upload public
    get-param filedesc      // file description from the upload form
    get-param file_filename // file name
    get-param file_location // the path to uploaded file
    get-param file_size     // size in bytes
    get-param file_ext      // the file extension
    @<h2>Uploading file</h2>
    run-query @db= \
         "insert into files (fileName, localPath, extension, description, fileSize) \
             values ('%s', '%s', '%s', '%s', '%s')" \
         input file_filename, file_location, file_ext, filedesc, file_size
    end-query
    @File <<print-out file_filename web-encode>> of size <<print-out file_size web-encode>> \
         is stored on server at <<print-out file_location web-encode>>. \
         File description is <<print-out filedesc web-encode>>.<hr/>
 end-handler

 begin-handler /download public
     get-param file_id
     run-query @db= \
         "select localPath,extension from files where fileID='%s'" \
         input file_id \
         output local_path, ext \
         row-count num_files
             if-true ext equal ".jpg"
                 send-file local_path headers content-type "image/jpg"
             else-if ext equal ".png"
                 send-file local_path headers content-type "image/png"
             else-if ext equal ".pdf"
                 send-file local_path headers content-type "application/pdf"
             else-if
                 send-file local_path headers content-type "application/octet-stream" download
             end-if
     end-query
     if-true num_files not-equal 1
         @Cannot find this file!<hr/>
         exit-handler
     end-if
 end-handler

 begin-handler /delete public
    @<h2>Delete a file</h2>
    get-param action
    get-param file_id
    run-query @db="select fileName, localPath, description  from files where fileID='%s'" output file_name, local_path, desc input file_id
         if-true action equal "confirm" // get file information to confirm what will be deleted
            @Are you sure you want to delete file <<print-out file_name web-encode>> (<<print-out desc web-encode>>)? Click <a href="<<print-path "/delete">>?action=delete&amp;file_id=<<print-out file_id url-encode>>">Delete</a> or click the browser's Back button to go back.<br/>
         else-if action equal "delete"  // actual delete file, once confirmed
            begin-transaction @db
            run-query @db= "delete from files where fileID='%s'" input file_id error err no-loop
            if-true err not-equal "0"
                @Could not delete the file (error <<print-out err web-encode>>)
                rollback-transaction @db
            else-if
                delete-file local_path status st
                if-true st equal GG_OKAY
                    commit-transaction @db
                    @File deleted. Go back to <a href="<<print-path "/start">>">start page</a>
                else-if
                    rollback-transaction @db
                    @File could not be deleted, error <<print-out st>>
                end-if
            end-if
         else-if
            @Unrecognized action <<print-out action web-encode>>
         end-if
    end-query
 end-handler

 begin-handler /srv public
     silent-header
     @Hello world!
 end-handler

 #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);
     }
 }

 begin-handler /hello-world public
     get-param name
     @This is Hello World from <<print-out name>>
 end-handler

 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 [<<print-out et>>] at [<<print-out 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 [<<print-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-handler

 %% /add-stock public
     @<html>
         @<body>
         get-param name
         get-param price
         // Add data to stock table, update if the stock exists
         run-query @db_stock = "insert into stock (stock_name, stock_price) values ('%s', '%s') on duplicate key update stock_price='%s'" \
             input name, price, price error err no-loop
         if-true err not-equal "0"
             report-error "Cannot update stock price, error [%s]", err
         end-if
         @<div>
             @Stock price updated!
         @</div>
         @</body>
     @</html>
 %%

 %% /show-stock public
     @<html>
         @<body>
             @<table>
                 @<tr>
                     @<td>Stock name</td>
                     @<td>Stock price</td>
                 @</tr>
                 run-query @db_stock = "select stock_name, stock_price from stock" output stock_name, stock_price
                     @<tr>
                         @<td>
                         print-out stock_name
                         @</td>
                         @<td>
                         print-out  stock_price
                         @</td>
                     @</tr>
                 end-query
             @</table>
         @</body>
     @</html>
 %%

 before-handler
     set-param displayed_logout = false, is_logged_in = false
     call-handler "/session/check"
 end-before-handler

 // Display link to login or signup
 %% /session/login-or-signup private
     @<a href="<<print-path "/session/user/login">>">Login</a> &nbsp; &nbsp; <a href="<<print-path "/session/user/new/form">>">Sign Up</a><hr/>
 %%
 // Login with email and password, and create a new session, then display home pag
 %% /session/login public
     get-param pwd, email
     hash-string pwd to hashed_pwd
     random-string to sess_id length 30
     run-query @db_app = "select userId from users where email='%s' and hashed_pwd='%s'" output sess_user_id : email, hashed_pwd
         run-query @db_app no-loop = "update users set session='%s' where userId='%s'" input sess_id, sess_user_id affected-rows arows
         if-true arows not-equal 1
             @Could not create a session. Please try again. <<call-handler "/session/login-or-signup">> <hr/>
             exit-handler
         end-if
         set-cookie "sess_user_id" = sess_user_id path "/", "sess_id" = sess_id path "/"
         call-handler "/session/check"
         call-handler "/session/show-home"
         exit-handler
     end-query
     @Email or password are not correct. <<call-handler "/session/login-or-signup">><hr/>
 %%
 // Starting point of the application. Either display login form or a home page:
 %% /session/start public
     get-param action, is_logged_in type bool
     if-true is_logged_in equal true
         if-true action not-equal "logout"
             call-handler "/session/show-home"
             exit-handler
         end-if
     end-if
     call-handler "/session/user/login"
 %%
 // Generic home page, you can call anything from here, in this case a list of note
 %% /session/show-home private
     call-handler "/notes/list"
 %%
 // Logout user and display home, which will ask to either login or signup
 %% /session/logout public
     get-param is_logged_in type bool
     if-true is_logged_in equal true
         get-param sess_user_id
         run-query @db_app = "update users set session='' where userId='%s'" input sess_user_id no-loop affected-rows arows
         if-true arows equal 1
             set-param is_logged_in = false
             @You have been logged out.<hr/>
             commit-transaction @db_app
         end-if
     end-if
     call-handler "/session/show-home"
 %%
 // Check session based on session cookie. If session cookie corresponds to the email address, the request is a part of an authorized session
 %% /session/check private
     get-cookie sess_user_id="sess_user_id", sess_id="sess_id"
     set-param sess_id, sess_user_id
     if-true sess_id not-equal ""
         set-param is_logged_in = false
         run-query @db_app = "select email from users where userId='%s' and session='%s'" output email input sess_user_id, sess_id row-count rcount
             set-param is_logged_in = true
             get-param displayed_logout type bool
             if-true displayed_logout equal false
                 get-param action
                 if-true action not-equal "logout"
                     @Hi <<print-out email>>! <a href="<<print-path "/session/logout">>">Logout</a><br/>
                 end-if
                 set-param displayed_logout = true
             end-if
         end-query
         if-true rcount not-equal 1
             set-param is_logged_in = false
         end-if
     end-if
 %%
 // Check that email verification token is the one actually sent to the email address
 %% /session/verify-signup public
     get-param code, email
     run-query @db_app = "select verify_token from users where email='%s'" output db_verify : email
         if-true  code equal db_verify
             @Your email has been verifed. Please <a href="<<print-path "/session/user/login">>">Login</a>.
             run-query @db_app no-loop = "update users set verified=1 where email='%s'" : email
             exit-handler
         end-if
     end-query
     @Could not verify the code. Please try <a href="<<print-path "/session/user/new/verify-form">>">again</a>.
     exit-handler
 %%
 // Display login form that asks for email and password
 %% /session/user/login public
     call-handler "/session/login-or-signup"
     @Please Login:<hr/>
     @<form action="<<print-path "/session/login">>" method="POST">
     @<input name="email" type="text" value="" size="50" maxlength="50" required autofocus placeholder="Email">
     @<input name="pwd" type="password" value="" size="50" maxlength="50" required placeholder="Password">
     @<button type="submit">Go</button>
     @</form>
 %%
 // Display form for a new user, asking for an email and password
 %% /session/user/new/form public
     @Create New User<hr/>
     @<form action="<<print-path "/session/user/new/create">>" method="POST">
     @<input name="email" type="text" value="" size="50" maxlength="50" required autofocus placeholder="Email">
     @<input name="pwd" type="password" value="" size="50" maxlength="50" required placeholder="Password">
     @<input type="submit" value="Sign Up">
     @</form>
 %%
 // Send verification email
 %% /session/user/new/send-verify private
     get-param email, verify
     write-string msg
         @From: service@your-service.com
         @To: <<print-out email>>
         @Subject: verify your account
         @
         @Your verification code is: <<print-out verify>>
     end-write-string
     exec-program "/usr/sbin/sendmail" args "-i", "-t" input msg status st
     if-true st not-equal 0 or true equal false
         @Could not send email to <<print-out email>>, code is <<print-out verify>>
         set-param verify_sent = false
     else-if
         set-param verify_sent = true
     end-if
 %%
 // Create new user from email and password
 %% /session/user/new/create public
     get-param email, pwd
     hash-string pwd to hashed_pwd
     random-string to verify length 5 number
     begin-transaction @db_app
     run-query @db_app no-loop = "insert into users (email, hashed_pwd, verified, verify_token, session) values ('%s', '%s', '0', '%s', '')" input email, hashed_pwd, verify affected-rows arows error err on-error-continue
     if-true err not-equal "0" or arows not-equal 1
         call-handler "/session/login-or-signup"
         @User with this email already exists.
         rollback-transaction @db_app
     else-if
         set-param email, verify
         call-handler "/session/user/new/send-verify"
         get-param verify_sent type bool
         if-true verify_sent equal false
             rollback-transaction @db_app
             exit-handler
         end-if
         commit-transaction @db_app
         call-handler "/session/user/new/verify-form"
     end-if
 %%
 // Display form to enter the code emailed to user to verify the email address
 %% /session/user/new/verify-form public
     get-param email
     @Please check your email and enter verification code here:
     @<form action="<<print-path "/session/verify-signup">>" method="POST">
     @<input name="email" type="hidden" value="<<print-out email>>">
     @<input name="code" type="text" value="" size="50" maxlength="50" required autofocus placeholder="Verification code">
     @<button type="submit">Verify</button>
     @</form>
 %%

 // Delete a note
 %% /notes/delete public
     call-handler "/notes/header"
     get-param sess_user_id, note_id
     run-query @db_app = "delete from notes where noteId='%s' and userId='%s'" : note_id, sess_user_id \
             affected-rows arows no-loop error errnote
     if-true arows equal 1
         @Note deleted
     else-if
         @Could not delete note (<<print-out errnote>>)
     end-if
 %%
 // Display a form to add a note
 %% /notes/form-add  public
     call-handler "/notes/header"
     @Add New Note
     @<form action="<<print-path "/notes/add">>" method="POST">
     @<textarea name="note" rows="5" cols="50" required autofocus placeholder="Enter Note"></textarea>
     @<button type="submit">Create</button>
     @</form>
 %%
 // Add a note
 %% /notes/add public
     call-handler "/notes/header"
     get-param note, sess_user_id
     run-query @db_app = "insert into notes (dateOf, userId, note) values (now(), '%s', '%s')" : sess_user_id, note \
             affected-rows arows no-loop error errnote
     if-true arows equal 1
         @Note added
     else-if
         @Could not add note (<<print-out errnote>>)
     end-if
 %%
 // List all notes
 %% /notes/list public
     call-handler "/notes/header"
     get-param sess_user_id
     run-query @db_app = "select dateOf, note, noteId from notes where userId='%s' order by dateOf desc" \
             input sess_user_id output dateOf, note, noteId
         match-regex "\n" in note replace-with "<br/>\n" result with_breaks status st cache
         if-true st equal 0
             set-string with_breaks = note
         end-if
         @Date: <<print-out dateOf>> (<a href="<<print-path "/notes/ask-delete">>?note_id=<<print-out noteId>>">delete note</a>)<br/>
         @Note: <<print-out with_breaks>><br/>
         @<hr/>
     end-query
 %%
 // Display a question whether to delete a note or not
 %% /notes/ask-delete public
     call-handler "/notes/header"
     get-param note_id
     @Are you sure you want to delete a note? Use Back button to go back,\
        or <a href="<<print-path "/notes/delete">>?note_id=<<print-out note_id>>">delete note now</a>.
 %%
 // Check if session is authorized, and display an appropriate header
 %% /notes/header private
     get-param is_logged_in type bool
     if-true is_logged_in equal false
         call-handler "/session/login-or-signup"
     end-if
     @<h1>Welcome to Notes!</h1><hr/>
     if-true is_logged_in equal false
         exit-handler
     end-if
     @<a href="<<print-path "/notes/form-add">>">Add Note</a> <a href="<<print-path "/notes/list">>">List Notes</a><hr/>
 %%

 random-string to rnd
 print-out rnd new-line

 random-string to rnd length 100

 random-string to rnd length 100 number

 random-string to rnd length 100 binary

 %% /reg public
     // Use backreferences to swap two words, with "Reverse order word" as a result
     match-regex "(word)\\s+(order)" in "Reverse word order" replace-with "\\2 \\1" result res
     print-out res new-line

     // Recognize a pattern, in this case 3 found
     match-regex "[abc]{3}" in "Recognize 'aaa' or 'aa' or 'abc' or 'cab'" status st
     print-out st new-line

     // Recognize a pattern, in this case not found
     match-regex "[abc]{3}" in "Recognize 'aa' or 'aa' or 'bc' or 'ca'" status st
     print-out st new-line

     // Use case insensitive search to recognize a pattern, in this case 3 found
     match-regex "[abc]{3}" in "Recognize 'aAa' or 'aa' or 'aBc' or 'Cab'" case-insensitive status st
     print-out st new-line

     // Use case insensitive search to recognize a pattern and replace, with "Recognize 'XXX' or 'aa' or 'XXX' or 'XXX'" as a result
     match-regex "[abc]{3}" in "Recognize 'aAa' or 'aa' or 'aBc' or 'Cab'" replace-with "XXX" result res case-insensitive status st
     print-out res new-line
     print-out st new-line
 %%

 // Use backreferences to swap two words
 match-regex "(word)\\s+(order)" in "Reverse word order" replace-with "\\2 \\1" result res
 print-out res new-line

 // Recognize a pattern, found
 match-regex "[abc]{3}" in "Recognize 'aaa' or 'aa' or 'abc' or 'cab'" status st
 print-out st new-line

 // Recognize a pattern, in this case not found
 match-regex "[abc]{3}" in "Recognize 'aa' or 'aa' or 'bc' or 'ca'" status st
 print-out st new-line

 // Use case insensitive search to recognize a pattern
 match-regex "[abc]{3}" in "Recognize 'aAa' or 'aa' or 'aBc' or 'Cab'" case-insensitive status st
 print-out st new-line

 // Use case insensitive search to recognize a pattern and replace
 match-regex "[abc]{3}" in "Recognize 'aAa' or 'aa' or 'aBc' or 'Cab'" replace-with "XXX" result res case-insensitive status st
 print-out res new-line
 print-out st new-line

 begin-handler /local/time
     get-param tzone // get time zone as input parameter (i.e. "EST", "MST", "PST" etc.)
     get-time to curr_time timezone tzone
     @<div>Current time is <<print-out curr_time>></div>
 end-handler

 begin-handler /some/service
     set-param tzone="EST" // set the input parameter to be obtained by /local/time handler
     call-handler "/local/time"
 end-handler

 begin-handler /local/time
     get-param tzone
     get-time to curr_time timezone tzone
     set-param curr_time // set the return parameter to be obtained by the caller
 end-handler

 begin-handler /some/service
     set-param tzone="EST" // set input parameter used by "/local/time"
     call-handler "/local/time"
     get-param curr_time // get parameter that was set by "/local/time"
     @<div>Current time is <<print-out curr_time>></div>
 end-handler

 begin-handler /check/even
     get-param num type number // get input parameter
     if-true num every 2
         set-param is_even = true // set output parameter
     else-if
         set-param is_even = false // set output parameter
     end-if
 end-handler

 begin-handler /some/task
     set-param num = 23 // set input parameter for /check/even
     call-handler "/check/even"
     get-param is_even type bool //get output from /check/even
     if-true is_even equal true
         @EVEN
     else-if
         @ODD
     end-if
 end-handler

 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="<<print-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: <<print-out from_mail>>
             @To: <<print-out to_mail>>
             @Subject: <<print-out subject_mail>>
             @
             <<print-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-handler

 begin-handler /add-customer
     out-header use content-type "application/json"
     get-param first_name
     get-param last_name
     // Add a customer SQL
     run-query @db ="insert into customers (firstName, lastName) \
             values ('%s', '%s') returning customerID" output customerID : \
             first_name, last_name
         @"<<print-out customerID>>"
     end-query
 end-handler

 begin-handler /add-item
     out-header use content-type "application/json"
     get-param name
     get-param description
     // Add an item to inventory SQL
     run-query @db ="insert into items (name, description) \
         values ('%s', '%s') returning itemID" output item_id : name, description
         @"<<print-out item_id>>"
     end-query
 end-handler

 begin-handler /add-to-order
     out-header use content-type "application/json"
     get-param order_id
     get-param item_id
     get-param quantity
     // SQL to add an item to an order
     run-query @db ="insert into orderItems (orderId, itemID, quantity) values  ('%s', '%s', '%s')" \
         : order_id, item_id, quantity no-loop affected-rows arows
     @"<<print-out arows>>"
 end-handler

 begin-handler /create-order
     out-header use content-type "application/json"
     get-param customer_id
     // SQL to create an order
     run-query @db ="insert into orders (customerId) \
         values ('%s') returning orderID" output order_id : customer_id
         @"<<print-out order_id>>"
     end-query
 end-handler

 begin-handler /delete-order
     out-header use content-type "application/json"
     get-param order_id
     begin-transaction
     run-query @db ="delete from orders where orderID='%s'" : order_id \
         no-loop affected-rows order_rows
     run-query @db ="delete from orderItems where orderID='%s'" : order_id \
         no-loop affected-rows item_rows
     commit-transaction
     @{ "orders":"<<print-out order_rows>>", "items":"<<print-out item_rows>>" }
 end-handler

 begin-handler /json_from_order
     get-param order_id type string
     get-param curr_order type number
     get-param order_count type number
     get-param customer_id type string
     get-param first_name type string
     get-param last_name type string
     @   {
     @       "orderID": "<<print-out order_id>>",
     @       "customer":
     @       {
     @           "customerID": "<<print-out customer_id>>",
     @           "firstName": "<<print-out first_name>>",
     @           "lastName": "<<print-out last_name>>"
     @       },
     @       "items": [
     set-number curr_item = 0
     // Query to get all items in an order
     run-query @db ="select i.itemID, t.name, t.description, i.quantity \
             from orderItems i, items t where i.orderID='%s' \
                 and t.itemID=i.itemID" \
             output itemID, itemName, itemDescription, itemQuantity : order_id \
             row-count item_count
         @       {
         @           "itemID": "<<print-out itemID>>",
         @           "itemName": "<<print-out itemName>>",
         @           "itemDescription": "<<print-out itemDescription>>",
         @           "itemQuantity": "<<print-out itemQuantity>>"
         // add a comma if there are more items after this
         set-number curr_item=curr_item+1
         if-true curr_item lesser-than item_count
             @       },
         else-if
             @       }
         end-if
     end-query
     @   ]
     // add a comma if there are more orders after this
     set-number curr_order = curr_order+1
     if-true curr_order lesser-than order_count
         @},
     else-if
         @}
     end-if
 end-handler

 begin-handler /list-orders
     out-header use content-type "application/json"
     get-param order_id
     set-number curr_order = 0
     // Start JSON output
     @{ "orders": [
     if-true order_id not-equal ""
         // Query just a specific order
         run-query @db = "select o.orderID, c.customerID, c.firstName, c.lastName \
                 from orders o, customers c \
                 where o.customerID=c.customerID and o.orderId='%s'" \
                 output customer_id, first_name, last_name \
                 row-count order_count : order_id
                 set-param order_id, curr_order, order_count, customer_id, first_name, last_name
                 call-handler "/json_from_order"
         end-query
     else-if
         // Query to get all orders
         run-query @db ="select o.orderID, c.customerID, c.firstName, c.lastName \
                 from orders o, customers c \
                 where o.customerID=c.customerID order by o.orderId" \
                 output order_id, customer_id, first_name, last_name \
                 row-count order_count
                 set-param order_id, curr_order, order_count, customer_id, first_name, last_name
                 call-handler "/json_from_order"
         end-query
     end-if
     // Finish JSON output
     @   ]
     @}
 end-handler

 begin-handler /update-order
     out-header use content-type "application/json"
     get-param order_id, item_id, quantity
     set-number arows
     // If quantity update is 0, issue SQL to delete an item from order, otherwise update 
     if-true quantity equal "0"
         run-query @db ="delete from orderItems where orderID='%s' and itemID='%s'" \
             : order_id, item_id no-loop affected-rows arows
     else-if
         run-query @db ="update orderItems set quantity='%s' where orderID='%s' and itemID='%s'" \
             : quantity, order_id, item_id no-loop affected-rows arows
     end-if
     @"<<print-out arows>>"
 end-handler

 %% /insert public
     get-param key
     get-param value
     run-query @mydb = "insert into key_value(key,value) values ('%s', '%s')" input key, value error err affected-rows aff_rows no-loop
     @Error <<print-out err>>, affected rows <<print-out aff_rows>>
 %%

 %% /file-name public
     silent-header // don't output HTTP header
     get-param fname // get file name we'll read
     change-dir run-dir // change to directory we ran this program from
     read-file fname to file_content // read file
     // Transform file contents
     match-regex "File: ([0-9]+).imp" in file_content replace-with "\\1" result res cache
     // Print out the result
     print-out res
 %%

 read-file fname to file_content // read file

 %% /file-name public
     silent-header // don't output HTTP header
     get-param fname // get file name we'll read
     change-dir run-dir // change to directory we ran this program from
     read-file fname to file_content status st// read file
     if-true st not-equal GG_OKAY
         @Sorry, cannot open file <<print-out fname>>!
     end-if
     // Transform file contents
     match-regex "File: ([0-9]+).imp" in file_content replace-with "\\1" result res cache
     // Print out the result
     print-out res
 %%

 begin-handler /srv public
     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 [<<print-out key>>]
         else-if
             @Added [<<print-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 [<<print-out key>>]
         else-if
             @Deleted, old value was [<<print-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 [<<print-out key>>]
         else-if
             @Value [<<print-out val>>]
         end-if
     end-if
 end-handler

 extended-mode // extended mode in order to call C code

 %% /calc-fact public
     get-param par // get input parameter from URL
     string-number par to num // convert to number
     set-number result
     call-extended factorial(num, &result) // call C function
     // Output result
     @Factorial of <<print-out par>> is <<print-out result>>
 %%

 #include "golf.h"

 // Compute factorial of f, and store result into res
 void factorial(gg_num f, gg_num *res)
 {
     *res = 1;
     gg_num i;
     for (i = 2; i <= f; i++) {
         *res *= i;
     }
 }

 void factorial(gg_num f, gg_num *res);

 before-handler
 ...
 end-before-handler

 before-handler
     @Getting Started!!
 end-before-handler

 begin-handler <request path> [ private | public ]
     <any code>
 end-handler

 begin-handler  /items/wines/red-wine public
     @This is a request handler to display a list of red wines!
 end-handler

 %%  /items/wines/red-wine public
     @This is a request handler to display a list of red wines!
 %%

 begin-transaction [ @<database> ] \
     [ on-error-continue | on-error-exit ] \
     [ error <error> ] [ error-text <error text> ] \
     [ options <options> ]

 begin-transaction @mydb
 run-query @mydb="insert into employee (name, dateOfHire) values ('%s', now())" input "Terry" no-loop
 commit-transaction @mydb

 set-bool b1 = ! (b2 && b3) || b4

 break-loop

 set-number max_loop = 300
 start-loop repeat 1000 use i start-with 1
     @Completed <<print-out i>> loops so far
     if-true i equal max_loop
         break-loop
     end-if
 end-loop

 call-extended <function> "( " [ & ]<variable>  [ , ... ]  " )"

 #include "golf.h"

 // Compute factorial of f, and store result into res
 void factorial(gg_num f, gg_num *res)
 {
     *res = 1;
     gg_num i;
     for (i = 2; i <= f; i++) {
         *res *= i;
     }
 }

 void factorial(gg_num f, gg_num *res);

 void factorial(gg_num f, gg_num *res);

 #define mod10(n, m) m=(n)%10

 extended-mode

 begin-handler /fact public
     set-number fact
     call-extended factorial (10, &fact)
     print-out fact
 end-handler

 extended-mode

 begin-handler /mod public
     set-number mod
     call-extended mod10(103, mod)
     print-out mod
 end-handler

 call-handler <request path> [ return-value  <return value> ]

 %% /callsub public
     //
     // First call to call-handler
     //
     // Set input for call-handler
     set-param inp = "some string"
     (( s
     call-handler "/sub/service"
     ))
     // Get output from call-handler
     get-param out type string
     @<<print-out s>> with output [<<print-out out>>]

     //
     // Second call to call-handler
     //
     // Set input for call-handler called as inline code
     set-param inp = "new string"
     (( s
     @Output: <<call-handler "/sub/service">>
     ))
     // Get output from call-handler
     get-param out type string
     @<<print-out s>> with output [<<print-out out>>]
 %%

 %% /sub/service private
     @This is sub!
     get-param inp
     (( out
     @got input: <<print-out inp>>
     ))
     set-param out = out
 %%

 call-remote <service> [ ,... ]   \
     [ status <status> ]  \
     [ started <started> ] \
     [ finished-okay <finished okay> ]

 // Create single call
 new-remote srv location "/var/lib/gg/app_name/sock/sock" \
     method "GET" app-path "/app_name" request-path "/server" \
     url-params "/op=add/key=2"
 // Call single service call
 call-remote srv finished-okay sfok
 // Get results of a remote service call
 read-remote srv data rdata
 // Display results
 @Data from service is <<print-out rdata>>

 new-remote srv location "192.168.0.28:2400" \
     method "GET" app-path "/app_name" request-path "/server" \
     url-params "/op=add/key=2"

 call-web <URL> \
     response <result> \
     [ response-code <response code> ] \
     [ response-headers <headers> ] \
     [ status <status> ] \
     [ method <request method> ] \
     [ request-headers \
         [ content-type <content type> ] \
         [ content-length <content length> ] \
         custom <header name>=<header value> [ , ... ] ] \
     [ request-body \
         ( [ fields <field name>=<field value> [ , ... ] ] \
             [ files <file name>=<file location> [ , ... ] ] ) \
         | \
         ( content <body content> ) \
     ] \
     [ error <error> ] \
     [ cert <certificate> | no-cert ] \
     [ cookie-jar <cookie jar> ] \
     [ timeout <timeout> ]

 call-web "http://website.com/app_name/some_request" response resp response-code rc status len \
     request-body fields "source"="web","act"="setcookie"

 call-web "http://website.com" response resp response-code rc status len \
     request-body files "file1"="uploadtest.jpg", "file23"="fileup4.pdf"

 call-web "http://website.com/app_name/some_request" response resp response-code rc
     request-body fields "source"="web","act"="setcookie" \
         files "file1"="uploadtest.jpg", "file23"="fileup4.pdf" \
     status st error err

 call-web "https://website.com" response resp \
     request-headers content-type "application/json" \
     request-body content "{ \
         \"employee\": { \
             \"name\":       \"sonoo\", \
             \"salary\":      56000, \
             \"married\":    true \
         } \
     }"

 read-file "somefile" to file_contents status file_length
 call-web "https://website.com" response resp \
     request-headers content-type "image/jpeg" \
     request-headers content-length file_length \
     request-body content file_contents

 call-web "https://<web address>/resource" \
     request-headers content-type "application/json" \
     request-body content some_json

 call-web "http://website.com/<app name>/<request name>?act=get_file" response resp response-code rc status len \
     request-headers custom "Golf-header"="Some_ID", "Another-Header"="New_ID"

 get-req header "Golf-header" to hvh0
 get-req header "Another-Header" to hvh1

 call-web "https://website.com/page.html" response resp
 print-out resp

 call-web "https://website.com/images/someimg.jpg" status wlen response resp
 write-file "pic.jpg" from resp length wlen

 change-dir [ <directory>  | home | run-dir ] [ status <status> ]

 change-dir "/home/user/new_dir" status s
 if-true s equal GG_OKAY
     @Directory changed
 else
     get-req errno to eno
     @Error <<print-out eno>>
 end-if

 change-dir "./new_dir"

 change-dir home

 change-mode <file-or-directory> mode <mode> [ status <status> ]

 change-mode "myfile" mode 0760