(old)Puppy Linux Discussion Forum

Code: Select all

[indent=4]
 
/* Build with valac --pkg gtk+-2.0 yourfile.gs */
 
uses
    Gtk
 
init
    Gtk.init (ref args)
    var test = new StatusIconTest ()
    test.show_all ()
    Gtk.main ()
 
class StatusIconTest : Widget
 
    trayicon : StatusIcon
    menu : Menu
 
    init
        /* Create tray icon */
        trayicon = new StatusIcon.from_stock(STOCK_HOME)
        trayicon.set_tooltip_text ("Hello, i'm a tooltip !")
        trayicon.set_visible(true)
        trayicon.activate += icon_clicked
        create_menu()
 
        /* Create menu */
    def private create_menu ()
        menu = new Menu()
        var menuItem = new ImageMenuItem.from_stock(STOCK_ABOUT, null)
        menuItem.activate += about_clicked
        menu.append(menuItem)
        var menuItem2 = new ImageMenuItem.from_stock(STOCK_QUIT, null)
        menuItem2.activate += exit_app
        menu.append(menuItem2)
        menu.show_all()
        trayicon.popup_menu += def (button, time)
            show_popup(button, time)
 
        /* Show popup menu */
    def private show_popup (button : uint, time : uint)
        menu.popup(null, null, null, button, time)
 
    def private icon_clicked ()
        print("I know you have clicked on the icon !!")
 
def private about_clicked ()
        var about = new AboutDialog ()
        about.set_version("1.0")
        about.set_program_name("Simple StatusIcon Test")
        about.set_comments("This is a Simple StatusIcon Test")
        about.set_copyright("Nicolas alias nikobordx")
        about.run()
        about.hide()
 
    def private exit_app ()
        Gtk.main_quit();

Code: Select all

class Demo.HelloWorld : GLib.Object
{
	public static int main(string[] args)
	{
		if ("hello" in args[0]){stdout.printf("Hello World!\n");}
		if ("goodbye" in args[0]){stdout.printf("Good-Bye World!\n");}
		return 0;
    }
}

Code: Select all

[indent=4]
uses Sqlite
 
class SqliteSample : Object
 
    def callback (n_columns: int, values : array of string, column_names : array of string ) : int
        for i:int = 0 to n_columns
            print ("%s = %s\n", column_names[i], values[i]);

        print ("\n");
        return 0;

    def main (args : array of string): int
        var db = new Database 
        rc :int
        if args.length != 2
            print ("Usage: %s DATABASE SQL-STATEMENT\n", args[0])
            return 1

        if !FileUtils.test (args[1], FileTest.IS_REGULAR)
            print ("Database %s does not exist or is directory\n", args[1])
            return 1
		
        rc = Database.open (args[1], out db)
		
        if rc != Sqlite.OK
            print ("Can't open database: %d, %s\n", rc, db.errmsg ())
            return 1
 
        rc = db.exec (args[2], callback, null)
        if rc != Sqlite.OK
            print ("SQL error: %d, %s\n", rc, db.errmsg ())
            return 1
	
        return 0

init
    var SQLLiteTest = new SqliteSample
    params: array of string = {"/root/my-applications/PointOfSale.sqlite", "SELECT * FROM currencies"}
    SQLLiteTest.main(params)

Code: Select all

# valac --pkg sqlite3 sqlite.gs
sqlite.gs:39.5-39.10: error: syntax error, expected identifier
    params: array of string = {"/root/my-applications/PointOfSale.sqlite", "SELECT * FROM currencies"}
    ^^^^^^
Compilation failed: 1 error(s), 0 warning(s)

Code: Select all

indent=4]
/* Build with "valac --thread --pkg libsoup-2.4 yourfile.gs */
uses 
    Soup
	
init 
    var session = new Soup.SessionAsync ()
    ItemCode:string = "DVD-TOPGUN"
    UserName:string = "admin"
    Password:string = "weberp"
    
    var message = Soup.xmlrpc_request_new ("http://localhost/webERP/api/api_xml-rpc.php", "weberp.xmlrpc_GetStockBalance", typeof(string),ItemCode, typeof(string), UserName, typeof(string), Password)
    
    session.send_message(message)
    
    ResponseData:string = message.response_body.flatten().data
    
    ErrorNumber:int = typeof(int)
    try    
        xmlrpc_parse_method_response (ResponseData, -1, ErrorNumber)
        print("Stock of %s = %s",ItemCode, ResponseData)
        print("Error number %d", ErrorNumber)
    except
        print("Could not get webERP API location stock over XML-RPC")

    /*Is this how to create an associative array

    struct LocQty
          quantity : double
          loccode : string

    var StockQuantities = new array of LocQty
    ErrorMessage:string
    xmlrpc_extract_method_response(ResponseData, -1, ErrorMessage, typeof(array of dict of string, double), StockQuantities)
	*/

Code: Select all

# ./SoupXMLRPC 
Stock of DVD-TOPGUN = <?xml version="1.0"?>
<methodResponse>
<params>
<param>
<value><array>
<data>
<value><int>0</int></value>
<value><array>
<data>
<value><struct>
<member><name>quantity</name>
<value><string>-1</string></value>
</member>
<member><name>loccode</name>
<value><string>MEL</string></value>
</member>
</struct></value>
<value><struct>
<member><name>quantity</name>
<value><string>0</string></value>
</member>
<member><name>loccode</name>
<value><string>TOR</string></value>
</member>
</struct></value>
</data>
</array></value>
</data>
</array></value>
</param>
</params>
</methodResponse>
Error number 24

Code: Select all

[indent=4]

uses
    Sqlite
 
class SqliteSample : Object

    db : Sqlite.Database
 
    def callback (n_columns: int, values : array of string, column_names : array of string ) : int
        for i:int = 0 to n_columns
            print ("%s = %s\n", column_names[i], values[i])

        print ("\n");
        return 0;

    def begin (args : array of string) : int
        rc : int
        if args.length != 2
            print ("Usage: %s DATABASE SQL-STATEMENT\n", args[0])
            return 1

        if !FileUtils.test (args[0], FileTest.IS_REGULAR)
            print ("Database %s does not exist or is directory\n", args[0])
            return 1
      
        rc = Database.open (args[0], out db)
      
        if rc != Sqlite.OK
            print ("Can't open database: %d, %s\n", rc, db.errmsg ())
            return 1
 
        rc = db.exec (args[1], callback, null)
        if rc != Sqlite.OK
            print ("SQL error: %d, %s\n", rc, db.errmsg ())
            return 1
   
        return 0

init
    var SQLLiteTest = new SqliteSample
    test : array of string = {"/root/my-applications/PointOfSale.sqlite", "SELECT * FROM currencies"}
    SQLLiteTest.begin(test) 

Code: Select all

test : array of string = {"", "/root/my-applications/PointOfSale.sqlite", "SELECT * FROM currencies"} 

Code: Select all

test : array of string = {"/root/my-applications/PointOfSale.sqlite", "SELECT * FROM currencies"}

Code: Select all

[CCode (cname = "FILE", free_function = "fclose", cheader_filename = "stdio.h")]