(old)Puppy Linux Discussion Forum

Code: Select all

init
	a:array of string = {"abc", "def", "xyz"}
	for s in a
		print(s)

Code: Select all

#include "v5.h"




static void _vala_array_free (gpointer array, gint array_length, GDestroyNotify destroy_func);



void _main (char** args, int args_length1) {
	char** _tmp1;
	gint a_size;
	gint a_length1;
	char** _tmp0;
	char** a;
	_tmp1 = NULL;
	_tmp0 = NULL;
	a = (_tmp1 = (_tmp0 = g_new0 (char*, 3 + 1), _tmp0[0] = g_strdup ("abc"), _tmp0[1] = g_strdup ("def"), _tmp0[2] = g_strdup ("xyz"), _tmp0), a_length1 = 3, a_size = a_length1, _tmp1);
	{
		char** s_collection;
		int s_collection_length1;
		int s_it;
		s_collection = a;
		s_collection_length1 = a_length1;
		for (s_it = 0; s_it < a_length1; s_it = s_it + 1) {
			const char* _tmp3;
			char* s;
			_tmp3 = NULL;
			s = (_tmp3 = s_collection[s_it], (_tmp3 == NULL) ? NULL : g_strdup (_tmp3));
			{
				char* _tmp2;
				_tmp2 = NULL;
				g_print (_tmp2 = g_strconcat (s, \n", NULL));
				_tmp2 = (g_free (_tmp2), NULL);
				s = (g_free (s), NULL);
			}
		}
	}
	a = (_vala_array_free (a, a_length1, (GDestroyNotify) g_free), NULL);
}


int main (int argc, char ** argv) {
	g_type_init ();
	_main (argv, argc);
	return 0;
}


static void _vala_array_free (gpointer array, gint array_length, GDestroyNotify destroy_func) {
	if ((array != NULL) && (destroy_func != NULL)) {
		int i;
		for (i = 0; i < array_length; i = i + 1) {
			if (((gpointer*) array)[i] != NULL) {
				destroy_func (((gpointer*) array)[i]);
			}
		}
	}
	g_free (array);
}

Code: Select all

#ifndef __V5_H__
#define __V5_H__

#include <glib.h>
#include <glib-object.h>
#include <stdlib.h>
#include <string.h>

G_BEGIN_DECLS



void _main (char** args, int args_length1);


G_END_DECLS

#endif

Code: Select all

				g_print (_tmp2 = g_strconcat (s, \n", NULL));

Code: Select all

				g_print (_tmp2 = g_strconcat (s, "\n", NULL));

Code: Select all

init

	// return a random value from 1 to 9
	a:int
	a = GLib.Random.int_range(1,10)
	print("%d" , a)
	

Code: Select all

# ./valide
./valide: error while loading shared libraries: libgio-2.0.so.0: cannot open shared object file: No such file or directory
# 

Code: Select all

# ./valide
./valide: symbol lookup error: /usr/lib/libvalide-0.0.so: undefined symbol: g_dgettext
# 

Code: Select all

while myLine != "in the"	

Code: Select all

// Infinite Monkey Theorem, Lobster and Shadow, March 2009 
init
	myChars:array of string = {" ", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
	myLine:string = ""
	myCount:int = 6
	while myLine != "in the"
		for i:int = 1 to myCount
			myLine = myLine.concat(myChars[GLib.Random.int_range(0,myChars.length)])
		print(myLine)

Code: Select all

<pkg>libglade-2.0</pkg>
<pkg>gmodule</pkg>